SDKILL ;ALB/LDB - ROUTINE TO KILL VARIABLES ;5/8/91 16:33
;;5.3;Scheduling;;Aug 13, 1993
SDM K %,%DT,%Y,APL,COLLAT,COV,D,DA,DFN,DIV,DIV1,DTOUT,FND,G1,HSC,I,I1,J,MXO,MXOK,POP,S,SC,SD,SD17,SDALLE,SDAMBAE,SDATD,SDAPTYP,SDAPP,SDAT16,SDAV,SDC,SDCOL,SDD,SDCT,SDD,SDDECOD,SDEC,SDEMP,SDHX,SDIN,SDINA,SDINP,SDIV,SDLOCK,SDMADE
K SDMAX,SDMLT,SDNEXT,SDNOT,SDOEL,SDOK,SDPL,SDRE,SDRT,SDSC,SDTTM,SDTY,SDSOH,SDSX,SDSY,SDT,SDTTM,SDW,SDY,SDYC,SDZ,SDZM,SI,SL,SM,SS,ST,STR,STARTDAY,VADM,VAEL,X,X1,X2,Y,Z,ZL
Q
SDCNP K %T,DFN,DQI,%IS,%ZIS,B0,D,DIROUT,IOP,LEN,ORVP,SDPL,SDSC,X2,XQORQUIT,VA
Q
SDMULT K CCX,CCXN,DIC,HSI,J,POP,SDMM,SDY,STX,VADM,SDALLE,SDDAPP,SDATD,SDDECOD,SDDIS,SDEMP,SDLOCK,SDNEXT,SDNOT,SDOEL,SDPL,SDRT,SDSC,SDTTM,SDYC,SS,ST,%T,%Y,COV,SDAPP,DA,DIE,DIPGM,DISYS,DP,DFN
Q
SDC K %,A,ANS,CDATE,DA,DFN,DH,DIC,DO,DOW,FR,I,NOAP,P,SC,SD,SDCNT,SDHTO,SDTIME,SDV1,SDZ,SI,SL,SS,ST,STARTDAY,TO,X,Y,DGPGM,DGVAR,SDSC,VAUTD,VAUTNI,J,J2,SDLE
K %DT,SDANS,SDJ,ALL,DIV,SDLT,SDV1,DTOUT,SDARRAY,SDBD,SDED,SDVAUTC,SDX,VAUTC,SDCTO,Z,TO
Q
SDINACT K %,%DT,%H,%T,%Y,C,CTR,D,DIC,DR,ENDATE,H1,H2,HSI,L1,M1,M2,MAX,NSL,SB,SDCL,SDIN,SDL,SDONE,SDPAT,SDRE,SDREB,SDSAV,SDSOH,SDSTRTDT,SLT,SM,SS,STIME,STR,T1,T2,ZDX
Q
SDCLDOW K CXEND,ALL,DIV,KK,SDIV,VAL,POP
Q
SDPURG K SD2,VAL,SDLFY,SDAS,DFN,SDLIM,%,S,SDLIM1,A,B,SD1,X,Y,SDPR,SDDISP,SD44,E1,SDZ
Q
SDSCE K DR,SDAL,SDEL,SDHSC,SDIN,SDINH,SDLA,SDONE,SDPAT,SDRE,SDREB,SDSAV,A,CTR,SD,STIME
K SDSI,SDZ0,SDZ1,SDZQ,SI,SL,STARTDAY,SLT,HSI,SI,T1,T2,H1,H2,M1,M2,SDCL,NSL,SDCL,SDL,LT,CNT,DH,ZDX,SB,STR
K SDSOH,MAX,SC,SDSTRTDT,SDIN,SDLA,SDSI,SDINH,SDZQ,DA,POP,DOW,SDRE,S,SDJJ,SDREACT,SM
Q
SDREACT K A,CTR,D,DIC,SDEL,SDIN,SDREB,SDSAV,SDSOH,SDX,CNT,D0,DA,DH,DIE,DO,DOW,DR,ENDATE,H1,H2,HSI,I1,I2,LT,M1,M2,MAX,NSL,POP,J
K S,SB,SC,SD,SDCL,SDFSW,SDH,SDINACT,SDL,SDONE,SDPAT,SDRE,SDRE1,SDREACT,SDSTRTDT,SDX1,SDZQ,SI,SL,SLT,SM,SS,STARTDAY,STIME,STR,T1,T2,X1,ZDX
Q
SDUNC K DIC,X,Y,Z,SC,SL,SD,SI,STARTDAY,CDATE,N1,SS,HOLD,DA(1),DO,DOW,SDREST,SDTEMP,SDZZ,DH,I1,SDFR1
Q
SDDSSA K %,A,ALL,B,DISP,DIV,DIV1,ENDDATE,I1,I2,I3,I4,POP,SD321,SDEF,SDL,SDP0,SDP1,SDP2,SDP3,SDST,SDT,SDTT,SDVINF,X,Y,Z
Q
SDENROLL K %,%H,%Y,C,D0,D1,DA,DI,DIC,DIE,DR,X,Y,Z
Q
SDCD K DIC,DIPGM,DUOUT,%Y,C,DA,%Y1,D0,DI,DIE,DISYS,DQ,DR,I,SC,XX,Y,%X,D1,D2,DIG,DIH,DIU,DIV,HSC
Q
SDTRANDV D QUIT^VAUTOMA ; AFTER Q1
Q
SDSCP ;NOTHING NEEDED
Q
SDIAL K ALL,SDBD,SDED,VAL,VAR,PGM,SD,SD2,SDLT,SDV1,VAUTD ; END^SDIAL
K ^UTILITY($J)
Q
SDWARD K PGM,SDY,VAL,VAR,X1 ; END^SDWARD
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HSDKILL 2476 printed Oct 16, 2024@18:58:34 Page 2
SDKILL ;ALB/LDB - ROUTINE TO KILL VARIABLES ;5/8/91 16:33
+1 ;;5.3;Scheduling;;Aug 13, 1993
SDM KILL %,%DT,%Y,APL,COLLAT,COV,D,DA,DFN,DIV,DIV1,DTOUT,FND,G1,HSC,I,I1,J,MXO,MXOK,POP,S,SC,SD,SD17,SDALLE,SDAMBAE,SDATD,SDAPTYP,SDAPP,SDAT16,SDAV,SDC,SDCOL,SDD,SDCT,SDD,SDDECOD,SDEC,SDEMP,SDHX,SDIN,SDINA,SDINP,SDIV,SDLOCK,SDMADE
+1 KILL SDMAX,SDMLT,SDNEXT,SDNOT,SDOEL,SDOK,SDPL,SDRE,SDRT,SDSC,SDTTM,SDTY,SDSOH,SDSX,SDSY,SDT,SDTTM,SDW,SDY,SDYC,SDZ,SDZM,SI,SL,SM,SS,ST,STR,STARTDAY,VADM,VAEL,X,X1,X2,Y,Z,ZL
+2 QUIT
SDCNP KILL %T,DFN,DQI,%IS,%ZIS,B0,D,DIROUT,IOP,LEN,ORVP,SDPL,SDSC,X2,XQORQUIT,VA
+1 QUIT
SDMULT KILL CCX,CCXN,DIC,HSI,J,POP,SDMM,SDY,STX,VADM,SDALLE,SDDAPP,SDATD,SDDECOD,SDDIS,SDEMP,SDLOCK,SDNEXT,SDNOT,SDOEL,SDPL,SDRT,SDSC,SDTTM,SDYC,SS,ST,%T,%Y,COV,SDAPP,DA,DIE,DIPGM,DISYS,DP,DFN
+1 QUIT
SDC KILL %,A,ANS,CDATE,DA,DFN,DH,DIC,DO,DOW,FR,I,NOAP,P,SC,SD,SDCNT,SDHTO,SDTIME,SDV1,SDZ,SI,SL,SS,ST,STARTDAY,TO,X,Y,DGPGM,DGVAR,SDSC,VAUTD,VAUTNI,J,J2,SDLE
+1 KILL %DT,SDANS,SDJ,ALL,DIV,SDLT,SDV1,DTOUT,SDARRAY,SDBD,SDED,SDVAUTC,SDX,VAUTC,SDCTO,Z,TO
+2 QUIT
SDINACT KILL %,%DT,%H,%T,%Y,C,CTR,D,DIC,DR,ENDATE,H1,H2,HSI,L1,M1,M2,MAX,NSL,SB,SDCL,SDIN,SDL,SDONE,SDPAT,SDRE,SDREB,SDSAV,SDSOH,SDSTRTDT,SLT,SM,SS,STIME,STR,T1,T2,ZDX
+1 QUIT
SDCLDOW KILL CXEND,ALL,DIV,KK,SDIV,VAL,POP
+1 QUIT
SDPURG KILL SD2,VAL,SDLFY,SDAS,DFN,SDLIM,%,S,SDLIM1,A,B,SD1,X,Y,SDPR,SDDISP,SD44,E1,SDZ
+1 QUIT
SDSCE KILL DR,SDAL,SDEL,SDHSC,SDIN,SDINH,SDLA,SDONE,SDPAT,SDRE,SDREB,SDSAV,A,CTR,SD,STIME
+1 KILL SDSI,SDZ0,SDZ1,SDZQ,SI,SL,STARTDAY,SLT,HSI,SI,T1,T2,H1,H2,M1,M2,SDCL,NSL,SDCL,SDL,LT,CNT,DH,ZDX,SB,STR
+2 KILL SDSOH,MAX,SC,SDSTRTDT,SDIN,SDLA,SDSI,SDINH,SDZQ,DA,POP,DOW,SDRE,S,SDJJ,SDREACT,SM
+3 QUIT
SDREACT KILL A,CTR,D,DIC,SDEL,SDIN,SDREB,SDSAV,SDSOH,SDX,CNT,D0,DA,DH,DIE,DO,DOW,DR,ENDATE,H1,H2,HSI,I1,I2,LT,M1,M2,MAX,NSL,POP,J
+1 KILL S,SB,SC,SD,SDCL,SDFSW,SDH,SDINACT,SDL,SDONE,SDPAT,SDRE,SDRE1,SDREACT,SDSTRTDT,SDX1,SDZQ,SI,SL,SLT,SM,SS,STARTDAY,STIME,STR,T1,T2,X1,ZDX
+2 QUIT
SDUNC KILL DIC,X,Y,Z,SC,SL,SD,SI,STARTDAY,CDATE,N1,SS,HOLD,DA(1),DO,DOW,SDREST,SDTEMP,SDZZ,DH,I1,SDFR1
+1 QUIT
SDDSSA KILL %,A,ALL,B,DISP,DIV,DIV1,ENDDATE,I1,I2,I3,I4,POP,SD321,SDEF,SDL,SDP0,SDP1,SDP2,SDP3,SDST,SDT,SDTT,SDVINF,X,Y,Z
+1 QUIT
SDENROLL KILL %,%H,%Y,C,D0,D1,DA,DI,DIC,DIE,DR,X,Y,Z
+1 QUIT
SDCD KILL DIC,DIPGM,DUOUT,%Y,C,DA,%Y1,D0,DI,DIE,DISYS,DQ,DR,I,SC,XX,Y,%X,D1,D2,DIG,DIH,DIU,DIV,HSC
+1 QUIT
SDTRANDV ; AFTER Q1
DO QUIT^VAUTOMA
+1 QUIT
SDSCP ;NOTHING NEEDED
+1 QUIT
SDIAL ; END^SDIAL
KILL ALL,SDBD,SDED,VAL,VAR,PGM,SD,SD2,SDLT,SDV1,VAUTD
+1 KILL ^UTILITY($JOB)
+2 QUIT
SDWARD ; END^SDWARD
KILL PGM,SDY,VAL,VAR,X1
+1 QUIT
