APSPXUT.m

APSPXUT ;IHS/DSD/ENM - OUTPATIENT PURGE MODULE ;27-Sep-2011 12:13;PLS

 ;;7.0;IHS PHARMACY MODIFICATIONS;**1009,1013**;09/03/97;Build 33

 ; Modified - IHS/CIA/PLS - 01/13/04;05/28/04

 ;            IHS/MSC/PLS - 06/29/10

 ;                        - 09/27/11

EP ;ENTRY POINT

 K APSPEDT,APSPFLG,APSPFROM,APSPHR,APSPIIII,APSPLRF,APSPND,APSPPDFN,APSPSC,APSPU,APSPUSER,APSPVAR,APSPVT,APSPX9,APSPXED,APSPXLT

 K APSPXMF,APSPYN,APSPZW,LASTRF,LEXDT,LOT,MWR,NLWS,PSCLN,PSJ,PSLN,PSMP,PSOBASE,PSODDRG,PSOHZIP,PSOPULL,PSOSUSPR,PSOZIP,PSZQ,PSZRM,RR,SGCPH,SIGPH,TQTY,VRPH

 K APSPCP,APSPCPP,APSPMAN,APSPDOL,%APSITE,ZTSK,APCDALVR

 K PSOBILRX,PSOBILST,PSONDC,PSOPATST,PSOAWP,PSOCOST,APSQDNDC,PSOTRIP

 K PSOZZCP("DAYS"),APSPCMP,APSQSGLB,APSPLAP

 K APSPPRIO  ;P13

 Q

APSPXUT   ;IHS/DSD/ENM - OUTPATIENT PURGE MODULE ;27-Sep-2011 12:13;PLS

 +1       ;;7.0;IHS PHARMACY MODIFICATIONS;**1009,1013**;09/03/97;Build 33

 +2       ; Modified - IHS/CIA/PLS - 01/13/04;05/28/04

 +3       ;            IHS/MSC/PLS - 06/29/10

 +4       ;                        - 09/27/11

EP        ;ENTRY POINT

 +1        KILL APSPEDT,APSPFLG,APSPFROM,APSPHR,APSPIIII,APSPLRF,APSPND,APSPPDFN,APSPSC,APSPU,APSPUSER,APSPVAR,APSPVT,APSPX9,APSPXED,APSPXLT

 +2        KILL APSPXMF,APSPYN,APSPZW,LASTRF,LEXDT,LOT,MWR,NLWS,PSCLN,PSJ,PSLN,PSMP,PSOBASE,PSODDRG,PSOHZIP,PSOPULL,PSOSUSPR,PSOZIP,PSZQ,PSZRM,RR,SGCPH,SIGPH,TQTY,VRPH

 +3        KILL APSPCP,APSPCPP,APSPMAN,APSPDOL,%APSITE,ZTSK,APCDALVR

 +4        KILL PSOBILRX,PSOBILST,PSONDC,PSOPATST,PSOAWP,PSOCOST,APSQDNDC,PSOTRIP

 +5        KILL PSOZZCP("DAYS"),APSPCMP,APSQSGLB,APSPLAP

 +6       ;P13

           KILL APSPPRIO

 +7        QUIT