APCDEKL.m

APCDEKL ; IHS/CMI/LAB - CLEANUP ;

 ;;2.0;IHS PCC SUITE;;MAY 14, 2009

 ;

EN ;PEP - KILL VARIABLES AND RESET VARS

 I $E(DUZ("AG"))="I" S:$D(APCDDUZ) DUZ(0)=APCDDUZ

 I $E(DUZ("AG"))="I" S:$D(APCDDUZ2) DUZ(2)=APCDDUZ2

 K D0,DA,DIC,DIE,DIK,DLAYGO,DR

 K APCDAFLG

 K ^TMP("APCD",$J)

 ;

EN1 ;PEP;FOR NON-APCD ROUTINES

 ;

 K Y

 K AICDHLIM,XTLKHLIM

 K APCDCAT,APCDCLN,APCDDATE,APCDLOC,APCDTIME,APCDTYPE,APCDVSIT,APCDLOOK,APCDTPCC,APCDTACC,APCDFV,APCDAX,APCDAL,APCDNOK,APCDEQX,APCDMOD,APCDMPQ,APCDTVST,APCDTLOC,APCDTTYP,APCDTCAT,APCDTCLN,APCDEXIT,APCDOLOC

 K APCDTBP,APCDPVL,APCDAPPT,APCDEVM,APCDCODT,APCDLS,APCDVELG,APCDHL,APCDOPT,APCDPROT,APCDAPDT

 K APCDPAT,APCDDOB,APCDSEX,APCDDOD,APCDRV

 K AUPNDOB,AUPNDOD,AUPNPAT,AUPNSEX,AUPNDAYS,AUPNVSIT,AUPNLK("INAC")

 K APCDLPAT,APCDLDAT,APCDLVST,APCDMNE,APCDNOCL,APCDNOXV,APCDAMN

 K APCDAPP,APCDBEEP,APCDDUZ,APCDDUZ2,APCDFLG,APCDL,APCDMODE,APCDOCAT,APCDODAT,APCDOTYP,APCDOVRR,APCDPVC,APCDTPLT,APCDVLK,APCDX,APCDENV,APCDEMF,APCDEIN,APCD,APCDNOXV

 Q

EN2 ;PEP- CALLED TO KILL APCD ENVIRONMENTAL VARS

 I '$D(APMFMENU) K AUPNLK("ALL")

 K APCDPARM,APCDNRV,APCDRVON,APCDRVOF,APCDSITE,APCDTRM,APCDDEFL,APCDDEFS,APCDDEFC,APCDDEFT

 Q

APCDEKL   ; IHS/CMI/LAB - CLEANUP ;

 +1       ;;2.0;IHS PCC SUITE;;MAY 14, 2009

 +2       ;

EN        ;PEP - KILL VARIABLES AND RESET VARS

 +1        IF $EXTRACT(DUZ("AG"))="I"

               IF $DATA(APCDDUZ)

                   SET DUZ(0)=APCDDUZ

 +2        IF $EXTRACT(DUZ("AG"))="I"

               IF $DATA(APCDDUZ2)

                   SET DUZ(2)=APCDDUZ2

 +3        KILL D0,DA,DIC,DIE,DIK,DLAYGO,DR

 +4        KILL APCDAFLG

 +5        KILL ^TMP("APCD",$JOB)

 +6       ;

EN1       ;PEP;FOR NON-APCD ROUTINES

 +1       ;

 +2        KILL Y

 +3        KILL AICDHLIM,XTLKHLIM

 +4        KILL APCDCAT,APCDCLN,APCDDATE,APCDLOC,APCDTIME,APCDTYPE,APCDVSIT,APCDLOOK,APCDTPCC,APCDTACC,APCDFV,APCDAX,APCDAL,APCDNOK,APCDEQX,APCDMOD,APCDMPQ,APCDTVST,APCDTLOC,APCDTTYP,APCDTCAT,APCDTCLN,APCDEXIT,APCDOLOC

 +5        KILL APCDTBP,APCDPVL,APCDAPPT,APCDEVM,APCDCODT,APCDLS,APCDVELG,APCDHL,APCDOPT,APCDPROT,APCDAPDT

 +6        KILL APCDPAT,APCDDOB,APCDSEX,APCDDOD,APCDRV

 +7        KILL AUPNDOB,AUPNDOD,AUPNPAT,AUPNSEX,AUPNDAYS,AUPNVSIT,AUPNLK("INAC")

 +8        KILL APCDLPAT,APCDLDAT,APCDLVST,APCDMNE,APCDNOCL,APCDNOXV,APCDAMN

 +9        KILL APCDAPP,APCDBEEP,APCDDUZ,APCDDUZ2,APCDFLG,APCDL,APCDMODE,APCDOCAT,APCDODAT,APCDOTYP,APCDOVRR,APCDPVC,APCDTPLT,APCDVLK,APCDX,APCDENV,APCDEMF,APCDEIN,APCD,APCDNOXV

 +10       QUIT 

EN2       ;PEP- CALLED TO KILL APCD ENVIRONMENTAL VARS

 +1        IF '$DATA(APMFMENU)

               KILL AUPNLK("ALL")

 +2        KILL APCDPARM,APCDNRV,APCDRVON,APCDRVOF,APCDSITE,APCDTRM,APCDDEFL,APCDDEFS,APCDDEFC,APCDDEFT

 +3        QUIT