- 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 Feb 19, 2025@00:18:26 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