PSSDEE2 ;BIR/WRT-Cleanup routine ; 6/27/05 9:55am
;;1.0;PHARMACY DATA MANAGEMENT;**16,20,98**;9/30/97
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
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")
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
K PSXOU,PSXUM,PSXVAP,PSXVAPN,PSXVP,PSXZERO,CLFLAG,LMFLAG,NFLAG,PSSAST,WHICH,ZAPFLG,PSSZ,PSSNEW,BV,WHICH1,PSNP,PSSDD,PSSOR
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
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPSSDEE2 1054 printed Dec 13, 2024@02:30:44 Page 2
PSSDEE2 ;BIR/WRT-Cleanup routine ; 6/27/05 9:55am
+1 ;;1.0;PHARMACY DATA MANAGEMENT;**16,20,98**;9/30/97
FINISH KILL 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
+1 KILL 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($JOB,"SOL"),^TMP($JOB,"ADD")
+2 KILL 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
+3 KILL PSXOU,PSXUM,PSXVAP,PSXVAPN,PSXVP,PSXZERO,CLFLAG,LMFLAG,NFLAG,PSSAST,WHICH,ZAPFLG,PSSZ,PSSNEW,BV,WHICH1,PSNP,PSSDD,PSSOR
+4 KILL 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
+5 QUIT