| [613] | 1 | PSSDEE2 ;BIR/WRT-Cleanup routine ; 6/27/05 9:55am
|
|---|
| 2 | ;;1.0;PHARMACY DATA MANAGEMENT;**16,20,98**;9/30/97
|
|---|
| 3 | FINISH K ADDITM,ADDNM,APU,ASC,BB,BBC,CLDA,COD,DA,FLAG,FLGKY,FLGMTH,FLGNDF,FLGOI,FORM,FRM,MJL,NEWDF,NUM,NWND,NWPC1,NWPC3,OLDDF,PP,PRIM,PSNB,PSNCLASS,PSNDA,PSNDDA,PSNDRG,PSNFL,PSNFN,PSNFNM,PSNFORM,PSNLOC,PSNM,PSNNAM,PSNNAME,PSNNDF
|
|---|
| 4 | K PSNNEW,PSNNODE,PSNODE,PSNOLD,PSNOU,PSNP,PSNPST,PSNRAN,PSNSTDA,PSNSZ,PSNTYP,PSNUNDA,PSNV,PSNVADC,PSNVAR,PSNW,PSNWR,PSNWRT,PSNX,PSNZ,PSSANS,PSSOITM,PTR,SOLITM,SOLNM,SPT,VADC,WRT,^TMP($J,"SOL"),^TMP($J,"ADD")
|
|---|
| 5 | K PSSXX,X,Y,FLG1,FLG2,FLG4,FLG5,FLG6,PACK,PSIUDA,PSIUX,PSSASK,ENTRY,DISPDRG,FILE,IVDF,IVDFPTR,KK,PSIUA,XXX,PSSDA,STOP,DOSE,NDE,PC1,PC3,PSXBT,PSXCMOP,PSXDN,PSXDP,PSXF,PSXFL,PSXG,PSXGN,PSXGOOD,PSXIDENT,PSXLOC,PSXNDF,PSXODE
|
|---|
| 6 | K PSXOU,PSXUM,PSXVAP,PSXVAPN,PSXVP,PSXZERO,CLFLAG,LMFLAG,NFLAG,PSSAST,WHICH,ZAPFLG,PSSZ,PSSNEW,BV,WHICH1,PSNP,PSSDD,PSSOR
|
|---|
| 7 | K MSG,PDS,PSJCLEAR,PSONEWW,PSOWARN,PSSIVID,PSSK,PSSWRN,SYNIEN,TEXT,WARNEDIT,WWW,D0,D1,DEA,DI,DLAYGO,DOSA,DQ,DRUG,DRUGENT,DRUGN,ENDWARN,FLG7,GENDER,HLMTN,%X
|
|---|
| 8 | Q
|
|---|
