SDECEKL.m

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 ---SDECEKL   1015     printed  Apr 09, 2024@21:45:50                                                                                                                                                                                                     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