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