PRSDLD20.m

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 ---PRSDLD20   1801     printed  Apr 09, 2024@21:26:15                                                                                                                                                                                                    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