- 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