PRS8CV ;HISC/MRL-DECOMPOSITION, CLEAN VARIABLES ;2/25/93 11:10
;;4.0;PAID;**63**;Sep 21, 1995
;
;This routine is called for two different purposes. The tag ALL
;is used to clean up all variables once the entire process is
;completed. The tag ONE is called at the point where a single
;employee is processed and we're ready to proceed with the next.
;
;Called by Routines: PRS8, PRS8CR
;
ALL ; --- Entry point for removing all variables used in decomposition
D ^%ZISC N PRSTLV G KILL^XUSCLEAN
;
ONE ; --- Entry point for removing variables after each employee
K %,%DT,%IS,%ZIS,A,A1,AC,ACC,AV,B
K C,C0,CBCK,CHK,CNT,CRSMID,CT,CY,CYA,CYA2806
K D,DAY,DAYNO,DAYZ,DB,DD,DDQ,DH,DH1,DIC,DIF,DIF1,DIK,DN,DWK,DX,DY,E
K ENT,ER,ES,F,FLX,GO,H,HDR,I,II,J,K,K1,L,LAST,LP,LU,LVGP,M,M1,MDY
K MEAL,MID,MILV,MIN,MT,MTM,MULT,N,N1,N2,NCODE,ND,NDC,NEW,NH,NODE,NY
K OC,OFF,OLD,P,P1,P2,PB,PC,PM,PMP,POP,PP,PRS8,PRS8D,PRS8L
K PRSSD,PTH,PYPL,PYPR,Q,S,SB,SH,SL,SLP,SLT,SO,SSN,SSP,ST,STA,T,TH,TLB
K TOUR,TR,TT,TYP,USE,USED,V,VALOLD,VAR,VAR1,VT,W,WCL,WCMP,WG,WK,WKL
K WRITE,X,X1,X2,X3,X4,Y,Y1,Z,ZTDESC,ZTDTH,ZTIO,ZTRTN,ZTSAVE,ZTSK
K DAYH,DOUB,FLAG,HI,HD,HT,HTFFOT,HW,ML,NP,NPL,NOOT,PEROT
K ROSS,TWO,WP,Z0,Z1,ZZ
; I $S('($D(KILL)):1,'KILL:0,1:1) K VAL ;decomp no longer saves 8B in
; the 5 node, so don't kill it, pass back to Bob
K ^TMP($J,"PRS8") Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPRS8CV 1377 printed Dec 13, 2024@02:22:44 Page 2
PRS8CV ;HISC/MRL-DECOMPOSITION, CLEAN VARIABLES ;2/25/93 11:10
+1 ;;4.0;PAID;**63**;Sep 21, 1995
+2 ;
+3 ;This routine is called for two different purposes. The tag ALL
+4 ;is used to clean up all variables once the entire process is
+5 ;completed. The tag ONE is called at the point where a single
+6 ;employee is processed and we're ready to proceed with the next.
+7 ;
+8 ;Called by Routines: PRS8, PRS8CR
+9 ;
ALL ; --- Entry point for removing all variables used in decomposition
+1 DO ^%ZISC
NEW PRSTLV
GOTO KILL^XUSCLEAN
+2 ;
ONE ; --- Entry point for removing variables after each employee
+1 KILL %,%DT,%IS,%ZIS,A,A1,AC,ACC,AV,B
+2 KILL C,C0,CBCK,CHK,CNT,CRSMID,CT,CY,CYA,CYA2806
+3 KILL D,DAY,DAYNO,DAYZ,DB,DD,DDQ,DH,DH1,DIC,DIF,DIF1,DIK,DN,DWK,DX,DY,E
+4 KILL ENT,ER,ES,F,FLX,GO,H,HDR,I,II,J,K,K1,L,LAST,LP,LU,LVGP,M,M1,MDY
+5 KILL MEAL,MID,MILV,MIN,MT,MTM,MULT,N,N1,N2,NCODE,ND,NDC,NEW,NH,NODE,NY
+6 KILL OC,OFF,OLD,P,P1,P2,PB,PC,PM,PMP,POP,PP,PRS8,PRS8D,PRS8L
+7 KILL PRSSD,PTH,PYPL,PYPR,Q,S,SB,SH,SL,SLP,SLT,SO,SSN,SSP,ST,STA,T,TH,TLB
+8 KILL TOUR,TR,TT,TYP,USE,USED,V,VALOLD,VAR,VAR1,VT,W,WCL,WCMP,WG,WK,WKL
+9 KILL WRITE,X,X1,X2,X3,X4,Y,Y1,Z,ZTDESC,ZTDTH,ZTIO,ZTRTN,ZTSAVE,ZTSK
+10 KILL DAYH,DOUB,FLAG,HI,HD,HT,HTFFOT,HW,ML,NP,NPL,NOOT,PEROT
+11 KILL ROSS,TWO,WP,Z0,Z1,ZZ
+12 ; I $S('($D(KILL)):1,'KILL:0,1:1) K VAL ;decomp no longer saves 8B in
+13 ; the 5 node, so don't kill it, pass back to Bob
+14 KILL ^TMP($JOB,"PRS8")
QUIT
