PSSDEE2.m

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 ---PSSDEE2   1054     printed  Oct 16, 2024@18:31:27                                                                                                                                                                                                     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