PRS8CV.m

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 ---PRS8CV   1377     printed  Feb 18, 2025@23:49:09                                                                                                                                                                                                      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