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