Getnext question
Don Coleman
dcoleman at dgcreact.com
Mon Apr 3 13:03:43 PDT 2006
In reading my getnext post I saw an error which I wanted to correct. This
error is not affecting my current tests since there are only three records
in my crossndc file, none of which apply to my current data. Line 18 should
read:
AD=ndc(1);CD=""{AD{"";AE=CC&CD;goto gotcros
Don Coleman
Donald G. Coleman, Consultant
402 Andrew Circle
Indiana, PA 15701
dcoleman at dgcreact.com
(724) 349-6302
-----Original Message-----
From: filepro-list-bounces at lists.celestial.com
[mailto:filepro-list-bounces at lists.celestial.com] On Behalf Of Don Coleman
Sent: Monday, April 03, 2006 3:33 PM
To: filePro List
Subject: Getnext question
I have the following input processing which uses @KEY to generate
prescription labels using getnext. This app. was running fine until March
24. There is nothing that was changed with regard to this @KEY routine that
I can think of (or see). However, there were several additional @KEY
routines added since March 24. The @KEY routine in question does find the
first prescription correctly but fails all subsequent lookups & tests for
variables CC & CD. Yet If I enter the same exact search data via *clerk it
finds each and every match. It seems that the index is failing by actually
finding entries that come before the ones desired. I have rebuild the
indexes, removed and recreated the indexes, confirmed that the variables
used in the lookup are the exact same length & edit type as those real
fields used in the index. I have also confirmed that all variables defined
in the automatic table are identical (length & edit type) to those in this
table. Does anyone see a problem that I am overlooking?
Apr 3, 2006 15:14 File Name: QS1 Page 1
Processing: pqueue
5 ------- - - - - - - - - - - - - - - - -
@keyl If: AA ne ""
Then: goto ready
6 ------- - - - - - - - - - - - - - - - -
If:
Then: INPUTPW POPUP AA(10,ALLUP,g) "\r Enter password or press
<ENTER> to
exit: \r "
7 ------- - - - - - - - - - - - - - - - -
If: AA eq ""
Then: exit
8 ------- - - - - - - - - - - - - - - - -
If:
Then: lookup rph k=AA i=B -nx
9 ------- - - - - - - - - - - - - - - - -
If: not rph
Then: beep;msgbox "\r Invalid password ";exit
10 ------- - - - - - - - - - - - - - - - -
If:
Then: AB=rph(1)
11 ------- - - - - - - - - - - - - - - - -
ready If: AC eq ""
Then: INPUT POPUP AC(9,.0,g) "\r Scan Rx label queue ID#: \r "
12 ------- - - - - - - - - - - - - - - - -
If: AC eq ""
Then: end
13 ------- - - - - - - - - - - - - - - - -
If:
Then: INPUT POPUP AD(13,*,g) "\r Scan Medication NDC: \r "
14 ------- - - - - - - - - - - - - - - - -
If: AD eq ""
Then: end
15 ------- - - - - - - - - - - - - - - - -
If:
Then: ZE(3,.0,g)="1";CC(8,*,g)=""{AC{"";CD(11,*,g)=""{AD{""
16 ------- - - - - - - - - - - - - - - - -
If:
Then: lookup ndc = crossndc k=AD i=A -nx
17 ------- - - - - - - - - - - - - - - - -
If: not ndc
Then: goto nocross
18 ------- - - - - - - - - - - - - - - - -
If:
Then: AD=ndc(1);AE=CC&CD;goto gotcros
19 ------- - - - - - - - - - - - - - - - -
nocross If:
Then: AE(19,*,g)=CC&CD
20 ------- - - - - - - - - - - - - - - - -
gotcros If:
Then: PRINTER TYPE "I-4308";putenv
"PFPOSTPRINT","C:\PRINTWIZ\PRINTWIZ.EX
E /P\"I-4308T2\" C:\PRINTWIZ\HARDCOPY.TXT"
21 ------- - - - - - - - - - - - - - - - -
If:
Then: lookup pqu = pqueue k=AE i=A -npx
22 ------- - - - - - - - - - - - - - - - -
morerx If: not pqu
Then: end
Apr 3, 2006 15:14 File Name: QS1 Page 2
Processing: pqueue
23 ------- - - - - - - - - - - - - - - - -
If: not pqu
Then: end
24 ------- - - - - - - - - - - - - - - - -
If: CC ne pqu(8) or CD ne pqu(4)
Then: end
25 ------- - - - - - - - - - - - - - - - -
If: pqu(9) eq "Y"
Then: getnext pqu;goto morerx
26 ------- - - - - - - - - - - - - - - - -
If:
Then: BA(8,*,g)=pqu(1);BB(5,.0,g)=pqu(5);EH(5,.0,g)=pqu(5)
27 ------- - - - - - - - - - - - - - - - -
immedrx If:
Then: lookup - k=BA i=A -nx
28 ------- - - - - - - - - - - - - - - - -
If: not -
Then: beep;msgbox "\r Rx #"<BA<"not found in active file";getnext
pqu;got
o morerx
29 ------- - - - - - - - - - - - - - - - -
If: '49 lt "2"
Then: 'beep;msgbox "\r Rx #"<1<"station less than 2";getnext pqu;goto
mor
erx
30 ------- - - - - - - - - - - - - - - - -
If:
Then: lookup req = labelreq k=9 i=A -nx
31 ------- - - - - - - - - - - - - - - - -
If: not req
Then: beep;msgbox "\r Invalid patient group for Rx #"<1;getnext
pqu;goto
morerx
32 ------- - - - - - - - - - - - - - - - -
If: req(9) eq "10" and 25 gt "0"
Then: CALL "E:\QS1\TODO\FILEPRO\QS1\10";PRINTER FILE
"C:\PRINTWIZ\HARDCOP
Y.TXT";goto finish
33 ------- - - - - - - - - - - - - - - - -
If: req(9) eq "11" and 25 gt "0"
Then: CALL "E:\QS1\TODO\FILEPRO\QS1\11";PRINTER FILE
"C:\PRINTWIZ\HARDCOP
Y.TXT";goto finish
34 ------- - - - - - - - - - - - - - - - -
If: req(9) eq "12" and 25 gt "0"
Then: CALL "E:\QS1\TODO\FILEPRO\QS1\12";PRINTER FILE
"C:\PRINTWIZ\HARDCOP
Y.TXT";goto finish
35 ------- - - - - - - - - - - - - - - - -
If: req(9) eq "13" and 25 gt "0"
Then: CALL "E:\QS1\TODO\FILEPRO\QS1\13";PRINTER FILE
"C:\PRINTWIZ\HARDCOP
Y.TXT";goto finish
36 ------- - - - - - - - - - - - - - - - -
If: req(9) eq "14" and 25 gt "0"
Then: CALL "E:\QS1\TODO\FILEPRO\QS1\14";PRINTER FILE
"C:\PRINTWIZ\HARDCOP
Y.TXT";goto finish
37 ------- - - - - - - - - - - - - - - - -
If: req(9) eq "99" and 25 gt "0"
Then: CALL "E:\QS1\TODO\FILEPRO\QS1\99";PRINTER FILE
"C:\PRINTWIZ\HARDCOP
Y.TXT";goto finish
38 ------- - - - - - - - - - - - - - - - -
If: 'req(9) eq "99" and 25 gt "0"
Then: 'CALL "C:RXPRISON\FILEPRO\QS1\99";PRINTER FILE
"C:\PRINTWIZ\HARDCOP
Y.TXT";goto finish
39 ------- - - - - - - - - - - - - - - - -
If: req(9) eq "9" and 25 gt "0"
Then: CALL "E:\QS1\TODO\FILEPRO\QS1\9";PRINTER FILE
"C:\PRINTWIZ\HARDCOPY
.TXT";goto finish
40 ------- - - - - - - - - - - - - - - - -
If: req(9) eq "1" and 25 gt "0"
Then: CALL "E:\QS1\TODO\FILEPRO\QS1\1";PRINTER FILE
"C:\PRINTWIZ\HARDCOPY
.TXT";goto finish
April 3, 2006 15:14 File Name: QS1 Page 3
Processing: pqueue
41 ------- - - - - - - - - - - - - - - - -
If: req(9) eq "2" and 25 gt "0"
Then: CALL "E:\QS1\TODO\FILEPRO\QS1\2";PRINTER FILE
"C:\PRINTWIZ\HARDCOPY
.TXT";goto finish
42 ------- - - - - - - - - - - - - - - - -
If: req(9) eq "3" and 25 gt "0"
Then: CALL "E:\QS1\TODO\FILEPRO\QS1\3";PRINTER FILE
"C:\PRINTWIZ\HARDCOPY
.TXT";goto finish
43 ------- - - - - - - - - - - - - - - - -
If: req(9) eq "4" and 25 gt "0"
Then: CALL "E:\QS1\TODO\FILEPRO\QS1\4";PRINTER FILE
"C:\PRINTWIZ\HARDCOPY
.TXT";goto finish
44 ------- - - - - - - - - - - - - - - - -
If: req(9) eq "5" and 25 gt "0"
Then: CALL "E:\QS1\TODO\FILEPRO\QS1\5";PRINTER FILE
"C:\PRINTWIZ\HARDCOPY
.TXT";goto finish
45 ------- - - - - - - - - - - - - - - - -
If: req(9) eq "6" and 25 gt "0"
Then: CALL "E:\QS1\TODO\FILEPRO\QS1\6";PRINTER FILE
"C:\PRINTWIZ\HARDCOPY
.TXT";goto finish
46 ------- - - - - - - - - - - - - - - - -
If: req(9) eq "7" and 25 gt "0"
Then: CALL "E:\QS1\TODO\FILEPRO\QS1\7";PRINTER FILE
"C:\PRINTWIZ\HARDCOPY
.TXT";goto finish
47 ------- - - - - - - - - - - - - - - - -
If: 25 gt "0"
Then: CALL "E:\QS1\TODO\FILEPRO\QS1\LABEL";PRINTER FILE
"C:\PRINTWIZ\HARD
COPY.TXT"
48 ------- - - - - - - - - - - - - - - - -
finish If:
Then: lookup pqu = pqueue k=BA i=C -npx
49 ------- - - - - - - - - - - - - - - - -
If: not pqu
Then: beep;msgbox "\r Rx #"<BA<"NOT in batch queue";goto notque
50 ------- - - - - - - - - - - - - - - - -
If:
Then: pqu(9)="Y";write pqu
51 ------- - - - - - - - - - - - - - - - -
notque If:
Then: 57=AB;60=BB;58=@TD;59=@TM;49="2"
52 ------- - - - - - - - - - - - - - - - -
If: 100 lt "2"
Then: 100="2"
53 ------- - - - - - - - - - - - - - - - -
If:
Then: write
54 ------- - - - - - - - - - - - - - - - -
If:
Then: lookup det = qs1det r=free -n
55 ------- - - - - - - - - - - - - - - - -
If: not det
Then: beep;msgbox "\r QS/1DET FILE UNAVAILABLE";getnext pqu;goto
morerx
56 ------- - - - - - - - - - - - - - - - -
If:
Then: det(1)=BA;det(2)="3";det(3)=@TD;det(4)=@TM;det(5)=AB;det(6)=BB
57 ------- - - - - - - - - - - - - - - - -
If:
Then: det(7)="L";write det;getnext pqu;goto morerx
Don Coleman
Donald G. Coleman, Consultant
402 Andrew Circle
Indiana, PA 15701
dcoleman at dgcreact.com
(724) 349-6302
_______________________________________________
Filepro-list mailing list
Filepro-list at lists.celestial.com
http://mailman.celestial.com/mailman/listinfo/filepro-list
More information about the Filepro-list
mailing list