source: WorldVistAEHR/trunk/r/PHARMACY_DATA_MANAGEMENT-PSS/PSSDEE2.m@ 1141

Last change on this file since 1141 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 1.0 KB
Line 
1PSSDEE2 ;BIR/WRT-Cleanup routine ; 6/27/05 9:55am
2 ;;1.0;PHARMACY DATA MANAGEMENT;**16,20,98**;9/30/97
3FINISH 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
Note: See TracBrowser for help on using the repository browser.