PRSDLD20 ;HISC/MGD-PAID INITIAL DOWNLOAD RECORD 20 LAYOUT ;11/19/2003
;;4.0;PAID;**82,86**;Sep 21, 1995
F CC=1:1 S FLD=$T(RECORD+CC) Q:FLD="" D LDSET^PRSDSET
Q
RECORD ;;Record 20;18
;;LD-CODE1;LABOR DIST CODE-1;LD;2;S MULT=1,MFLD=1;;;;;450.0757.1-#1
;;LD-PERCENT1;LABOR DIST CODE-1 PCT;LD;3;S MULT=1,MFLD=2 D SIGN^PRSDUTIL,DD^PRSDUTIL;;;;;450.0757.2-#1
;;LD-CODE2;LABOR DIST CODE-2;LD;2;S MULT=2,MFLD=1;;;;;450.0757.1-#2
;;LD-PERCENT2;LABOR DIST CODE-2 PCT;LD;3;S MULT=2,MFLD=2 D SIGN^PRSDUTIL,DD^PRSDUTIL;;;;;450.0757.2-#2
;;LD-MHORGCOD2;LABOR DIST CODE-2 COST CENTER;LD;4;S MULT=2,MFLD=3;;;;;450.0757.3-#2
;;LD-MHFUNDCP2;LABOR DIST CODE-2 FUND CTRL PNT;LD;5;S MULT=2,MFLD=4;;;;;450.0757.4-#2
;;LD-CODE3;LABOR DIST CODE-3;LD;2;S MULT=3,MFLD=1;;;;;450.0757.1-#3
;;LD-PERCENT3;LABOR DIST CODE-3 PCT;LD;3;S MULT=3,MFLD=2 D SIGN^PRSDUTIL,DD^PRSDUTIL;;;;;450.0757.2-#3
;;LD-MHORGCOD3;LABOR DIST CODE-3 COST CENTER;LD;4;S MULT=3,MFLD=3;;;;;450.0757.3-#3
;;LD-MHFUNDCP3;LABOR DIST CODE-3 FUND CTRL PNT;LD;5;S MULT=3,MFLD=4;;;;;450.0757.4-#3
;;LD-CODE4;LABOR DIST CODE-4;LD;2;S MULT=4,MFLD=1;;;;;450.0757.1-#4
;;LD-PERCENT4;LABOR DIST CODE-4 PCT;LD;3;S MULT=4,MFLD=2 D SIGN^PRSDUTIL,DD^PRSDUTIL;;;;;450.0757.2-#4
;;LD-MHORGCOD4;LABOR DIST CODE-4 COST CENTER;LD;4;S MULT=4,MFLD=3;;;;;450.0757.3-#4
;;LD-MHFUNDCP4;LABOR DIST CODE-4 FUND CTRL PNT;LD;5;S MULT=4,MFLD=4;;;;;450.0757.4-#4
;;FSA-HEALTH-CARE-AMT;HLTH CARE FLEX SPEND ACCT CPPD;FSA;2;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;;;759
;;FSA-HEALTH-CARE-AMT-YTD;HLTH CARE FLEX SPEND ACCT YTD;FSA;1;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;;;758
;;FSA-DEP-CARE-AMT;DPNT CARE FLEX SPEND ACCT CPPD;FSA;4;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;;;761
;;FSA-DEP-CARE-AMT-YTD;DPNT CARE FLEX SPEND ACCT YTD;FSA;3;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;;;760
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPRSDLD20 1801 printed Nov 22, 2024@17:35:48 Page 2
PRSDLD20 ;HISC/MGD-PAID INITIAL DOWNLOAD RECORD 20 LAYOUT ;11/19/2003
+1 ;;4.0;PAID;**82,86**;Sep 21, 1995
+2 FOR CC=1:1
SET FLD=$TEXT(RECORD+CC)
if FLD=""
QUIT
DO LDSET^PRSDSET
+3 QUIT
RECORD ;;Record 20;18
+1 ;;LD-CODE1;LABOR DIST CODE-1;LD;2;S MULT=1,MFLD=1;;;;;450.0757.1-#1
+2 ;;LD-PERCENT1;LABOR DIST CODE-1 PCT;LD;3;S MULT=1,MFLD=2 D SIGN^PRSDUTIL,DD^PRSDUTIL;;;;;450.0757.2-#1
+3 ;;LD-CODE2;LABOR DIST CODE-2;LD;2;S MULT=2,MFLD=1;;;;;450.0757.1-#2
+4 ;;LD-PERCENT2;LABOR DIST CODE-2 PCT;LD;3;S MULT=2,MFLD=2 D SIGN^PRSDUTIL,DD^PRSDUTIL;;;;;450.0757.2-#2
+5 ;;LD-MHORGCOD2;LABOR DIST CODE-2 COST CENTER;LD;4;S MULT=2,MFLD=3;;;;;450.0757.3-#2
+6 ;;LD-MHFUNDCP2;LABOR DIST CODE-2 FUND CTRL PNT;LD;5;S MULT=2,MFLD=4;;;;;450.0757.4-#2
+7 ;;LD-CODE3;LABOR DIST CODE-3;LD;2;S MULT=3,MFLD=1;;;;;450.0757.1-#3
+8 ;;LD-PERCENT3;LABOR DIST CODE-3 PCT;LD;3;S MULT=3,MFLD=2 D SIGN^PRSDUTIL,DD^PRSDUTIL;;;;;450.0757.2-#3
+9 ;;LD-MHORGCOD3;LABOR DIST CODE-3 COST CENTER;LD;4;S MULT=3,MFLD=3;;;;;450.0757.3-#3
+10 ;;LD-MHFUNDCP3;LABOR DIST CODE-3 FUND CTRL PNT;LD;5;S MULT=3,MFLD=4;;;;;450.0757.4-#3
+11 ;;LD-CODE4;LABOR DIST CODE-4;LD;2;S MULT=4,MFLD=1;;;;;450.0757.1-#4
+12 ;;LD-PERCENT4;LABOR DIST CODE-4 PCT;LD;3;S MULT=4,MFLD=2 D SIGN^PRSDUTIL,DD^PRSDUTIL;;;;;450.0757.2-#4
+13 ;;LD-MHORGCOD4;LABOR DIST CODE-4 COST CENTER;LD;4;S MULT=4,MFLD=3;;;;;450.0757.3-#4
+14 ;;LD-MHFUNDCP4;LABOR DIST CODE-4 FUND CTRL PNT;LD;5;S MULT=4,MFLD=4;;;;;450.0757.4-#4
+15 ;;FSA-HEALTH-CARE-AMT;HLTH CARE FLEX SPEND ACCT CPPD;FSA;2;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;;;759
+16 ;;FSA-HEALTH-CARE-AMT-YTD;HLTH CARE FLEX SPEND ACCT YTD;FSA;1;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;;;758
+17 ;;FSA-DEP-CARE-AMT;DPNT CARE FLEX SPEND ACCT CPPD;FSA;4;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;;;761
+18 ;;FSA-DEP-CARE-AMT-YTD;DPNT CARE FLEX SPEND ACCT YTD;FSA;3;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;;;760
