SDECEKL ;ALB/SAT - VISTA SCHEDULING RPCS ;JAN 15, 2016
;;5.3;Scheduling;**627**;Aug 13, 1993;Build 249
;
Q
;
EN ;KILL VARIABLES AND RESET VARS
I $E(DUZ("AG"))="I" S:$D(SDDUZ) DUZ(0)=SDDUZ
I $E(DUZ("AG"))="I" S:$D(SDDUZ2) DUZ(2)=SDDUZ2
K D0,DA,DIC,DIE,DIK,DLAYGO,DR
K SDAFLG
K ^TMP("APCD",$J)
;
EN1 ;
;
K Y
K AICDHLIM,XTLKHLIM
K SDCAT,SDCLN,SDDATE,SDLOC,SDTIME,SDTYPE,SDVSIT,SDLOOK,SDTPCC,SDTACC,SDFV,SDAX,SDAL,SDNOK,SDEQX,SDMOD,SDMPQ,SDTVST,SDTLOC,SDTTYP,SDTCAT,SDTCLN,SDEXIT,SDOLOC
K SDTBP,SDPVL,SDAPPT,SDEVM,SDCODT,SDLS,SDVELG,SDHL,SDOPT,SDPROT,SDAPDT
K SDPAT,SDDOB,SDSEX,SDDOD,SDRV
K AUPNDOB,AUPNDOD,AUPNPAT,AUPNSEX,AUPNDAYS,AUPNVSIT,AUPNLK
K SDLPAT,SDLDAT,SDLVST,SDMNE,SDNOCL,SDNOXV,SDAMN
K SDAPP,SDBEEP,SDDUZ,SDDUZ2,SDFLG,SDL,SDMODE,SDOCAT,SDODAT,SDOTYP,SDOVRR,SDPVC,SDTPLT,SDVLK,SDX,SDENV,SDEMF,SDEIN,SD,SDNOXV
Q
EN2 ;CALLED TO KILL ENVIRONMENTAL VARS
;optional
; APMFMENU
K AUPNLK
K SDPARM,SDNRV,SDRVON,SDRVOF,SDSITE,SDTRM,SDDEFL,SDDEFS,SDDEFC,SDDEFT
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HSDECEKL 1015 printed Dec 13, 2024@02:52 Page 2
SDECEKL ;ALB/SAT - VISTA SCHEDULING RPCS ;JAN 15, 2016
+1 ;;5.3;Scheduling;**627**;Aug 13, 1993;Build 249
+2 ;
+3 QUIT
+4 ;
EN ;KILL VARIABLES AND RESET VARS
+1 IF $EXTRACT(DUZ("AG"))="I"
if $DATA(SDDUZ)
SET DUZ(0)=SDDUZ
+2 IF $EXTRACT(DUZ("AG"))="I"
if $DATA(SDDUZ2)
SET DUZ(2)=SDDUZ2
+3 KILL D0,DA,DIC,DIE,DIK,DLAYGO,DR
+4 KILL SDAFLG
+5 KILL ^TMP("APCD",$JOB)
+6 ;
EN1 ;
+1 ;
+2 KILL Y
+3 KILL AICDHLIM,XTLKHLIM
+4 KILL SDCAT,SDCLN,SDDATE,SDLOC,SDTIME,SDTYPE,SDVSIT,SDLOOK,SDTPCC,SDTACC,SDFV,SDAX,SDAL,SDNOK,SDEQX,SDMOD,SDMPQ,SDTVST,SDTLOC,SDTTYP,SDTCAT,SDTCLN,SDEXIT,SDOLOC
+5 KILL SDTBP,SDPVL,SDAPPT,SDEVM,SDCODT,SDLS,SDVELG,SDHL,SDOPT,SDPROT,SDAPDT
+6 KILL SDPAT,SDDOB,SDSEX,SDDOD,SDRV
+7 KILL AUPNDOB,AUPNDOD,AUPNPAT,AUPNSEX,AUPNDAYS,AUPNVSIT,AUPNLK
+8 KILL SDLPAT,SDLDAT,SDLVST,SDMNE,SDNOCL,SDNOXV,SDAMN
+9 KILL SDAPP,SDBEEP,SDDUZ,SDDUZ2,SDFLG,SDL,SDMODE,SDOCAT,SDODAT,SDOTYP,SDOVRR,SDPVC,SDTPLT,SDVLK,SDX,SDENV,SDEMF,SDEIN,SD,SDNOXV
+10 QUIT
EN2 ;CALLED TO KILL ENVIRONMENTAL VARS
+1 ;optional
+2 ; APMFMENU
+3 KILL AUPNLK
+4 KILL SDPARM,SDNRV,SDRVON,SDRVOF,SDSITE,SDTRM,SDDEFL,SDDEFS,SDDEFC,SDDEFT
+5 QUIT
