PRSDPR09.m

PRSDPR09 ;HISC/MGD-PAID PAYRUN DOWNLOAD RECORD 9 LAYOUT ;12/15/2003

 ;;4.0;PAID;**78,82,86,105**;Sep 21, 1995

 F CC=1:1 S GRP=$T(@CC) Q:GRP=""  S GRPVAL=$P(RCD,":",CC) I GRPVAL'="" S GNUM=$P(GRP,";",4),LTH=$P(GRP,";",5),PIC=$P(GRP,";",6) D:PIC=9 PIC9^PRSDUTIL F EE=1:1:GNUM S FLD=$T(@CC+EE) D EPTSET^PRSDSET

 Q

RECORD ;;Record 9;45

1 ;;GRP 1;1;5;9

 ;;ASLCBCPPD;CARE/BEREAVE LEAVE USED CPPD;1;5;SICK;9;D SIGN^PRSDUTIL,DD^PRSDUTIL;3;7;710;A

2 ;;GRP 2;1;7;9

 ;;SLCBLYTD;CARE/BEREAVE LEAVE USED LYTD;1;7;SICK;10;D SIGN^PRSDUTIL,DDD^PRSDUTIL;;;711

3 ;;GRP 3;1;5;9

 ;;ASLADCPPD;ADOPTION LEAVE USED CPPD;1;5;SICK;11;D SIGN^PRSDUTIL,DD^PRSDUTIL;3;8;712;A

4 ;;GRP 4;1;7;9

 ;;SLADLYTD;ADOPTION LEAVE USED LYTD;1;7;SICK;12;D SIGN^PRSDUTIL,DDD^PRSDUTIL;;;713

5 ;;GRP 5;1;5;9

 ;;AOSLCPPD;OTHER SICK LEAVE USED CPPD;1;5;SICK;13;D SIGN^PRSDUTIL,DD^PRSDUTIL;3;9;714;A

6 ;;GRP 6;1;7;9

 ;;OSLLYTD;OTHER SICK LEAVE USED LYTD;1;7;SICK;14;D SIGN^PRSDUTIL,DDD^PRSDUTIL;;;715

7 ;;GRP 7;1;5;9

 ;;ADLCPPD;DONOR LEAVE USED CPPD;1;5;SICK;15;D SIGN^PRSDUTIL,DD^PRSDUTIL;3;10;716;A

8 ;;GRP 8;1;7;9

 ;;DLLYTD;DONOR LEAVE USED LYTD;1;7;SICK;16;D SIGN^PRSDUTIL,DDD^PRSDUTIL;;;717

9 ;;GRP 9;1;8;X

 ;;MXWIGDTE;WGI DUE DATE;1;8;0;51;D DATE^PRSDUTIL;;;600

10 ;;GRP 10;1;1;X

 ;;HAMIL-IND;MILITARY LEAVE INDICATOR;1;1;MILITARY;3;D SIGN^PRSDUTIL;;;507.1

11 ;;GRP 11;1;5;9

 ;;HAMILUSED;MILITARY LEAVE USED CPPD;1;5;MILITARY;4;D SIGN^PRSDUTIL,DD^PRSDUTIL;9;1;507.2

12 ;;GRP 12;1;1;

 ;;MIB1TYPE;SAVINGS BOND-1 TYPE;1;1;BOND1;16;;2;25;718

13 ;;GRP 13;1;1;

 ;;MIB2TYPE;SAVINGS BOND-2 TYPE;1;1;BOND2;15;;2;26;719

14 ;;GRP 14;1;7;9

 ;;SBONDS-DED-BAL-3;SAVINGS BOND-3 DED BALANCE;1;7;BOND3;8;D SIGN^PRSDUTIL,DD^PRSDUTIL;9;3;727;O

15 ;;GRP 15;1;7;9

 ;;SBONDS-DED-PAY-PERIOD-3;SAVINGS BOND-3 DEDUCTION;1;7;BOND3;9;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;728

16 ;;GRP 16;1;1;

 ;;SBONDS-TYPE-3;SAVINGS BOND-3 TYPE;1;1;BOND3;15;;9;2;734

17 ;;GRP 17;1;7;9

 ;;SBONDS-DED-BAL-4;SAVINGS BOND-4 DED BALANCE;1;7;BOND4;8;D SIGN^PRSDUTIL,DD^PRSDUTIL;9;5;742;O

18 ;;GRP 18;1;7;9

 ;;BONDS-DED-PAY-PERIOD-4;SAVINGS BOND-4 DEDUCTION;1;7;BOND4;9;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;743

19 ;;GRP 19;1;1;

 ;;SBONDS-TYPE-4;SAVINGS BOND-4 TYPE;1;1;BOND4;15;;9;4;749

20 ;;GRP 20;1;9;

 ;;LONG-TERM-CARE-PREM;FLTCIP CPPD;1;9;FLTCIP;2;D SIGN^PRSDUTIL,DD^PRSDUTIL;9;7;751

21 ;;GRP 21;1;1;

 ;;LONG-TERM-CARE-IND;FLTCIP INDICATOR;1;1;FLTCIP;5;;9;6;754

22 ;;GRP 22;1;6;

 ;;VOL-ALLOT-AMT-3;VOLUNTARY ALLOTMENTS-3 AMT;1;6;VALLOT;6;D SIGN^PRSDUTIL;9;8;439.1

23 ;;GRP 23;1;6;

 ;;VOL-ALLOT-AMT-4;VOLUNTARY ALLOTMENTS-4 AMT;1;6;VALLOT;8;D SIGN^PRSDUTIL;9;9;439.3

24 ;;GRP 24;1;6;

 ;;VCS-ALLOT-AMT;VCS ALLOTMENT AMT;1;6;VCS;22;D SIGN^PRSDUTIL,DD^PRSDUTIL;9;10;586.1

25 ;;GRP 25;1;9;

 ;;AWARD-TRAVEL-SAVINGS;TRAVEL SAVINGS AWARD;1;9;AWARDS;5;D SIGN^PRSDUTIL,DD^PRSDUTIL;9;11;587.2

26 ;;GRP 26;1;4;

 ;;LD-CODE1;LABOR DIST CODE-1;1;4;LD;2;S MULT=1,MFLD=1;LD;2;450.0757-1

27 ;;GRP 27;1;3;

 ;;LD-PERCENT1;LABOR DIST CODE-1 PCT;1;3;LD;3;S MULT=1,MFLD=2 D SIGN^PRSDUTIL,DD^PRSDUTIL;LD;3;450.0757-2

28 ;;GRP 28;1;4

 ;;LD-MXORGCOD;LABOR DIST CODE-1 COST CENTER;1;4;LD;4;S MULT=1,MFLD=3;LD;4;450.0757-3

29 ;;GRP 29;1;3

 ;;LD-MXFUNDCP;LABOR DIST CODE-1 FUND CTRL PNT;1;3;LD;5;S MULT=1,MFLD=4;LD;5;450.0757-4

30 ;;GRP 30;1;4

 ;;LD-CODE2;LABOR DIST CODE-2;1;4;LD;2;S MULT=2,MFLD=1;LD;2;450.0757-1

31 ;;GRP 31;1;3

 ;;LD-PERCENT2;LABOR DIST CODE-2 PCT;1;3;LD;3;S MULT=2,MFLD=2 D SIGN^PRSDUTIL,DD^PRSDUTIL;LD;3;450.0757-2

32 ;;GRP 32;1;4

 ;;LD-MHORGCOD2;LABOR DIST CODE-2 COST CENTER;1;4;LD;4;S MULT=2,MFLD=3;LD;4;450.0757-3

33 ;;GRP 33;1;3

 ;;LD-MHFUNDCP2;LABOR DIST CODE-2 FUND CTRL PNT;1;3;LD;5;S MULT=2,MFLD=4;LD;5;450.0757-4

34 ;;GRP 34;1;4

 ;;LD-CODE3;LABOR DIST CODE-3;1;4;LD;2;S MULT=3,MFLD=1;LD;2;450.0757-1

35 ;;GRP 35;1;3

 ;;LD-PERCENT3;LABOR DIST CODE-3 PCT;1;3;LD;3;S MULT=3,MFLD=2 D SIGN^PRSDUTIL,DD^PRSDUTIL;LD;3;450.0757-2

36 ;;GRP 36;1;4

 ;;LD-MHORGCOD3;LABOR DIST CODE-3 COST CENTER;1;4;LD;4;S MULT=3,MFLD=3;LD;4;450.0757-3

37 ;;GRP 37;1;3

 ;;LD-MHFUNDCP3;LABOR DIST CODE-3 FUND CTRL PNT;1;3;LD;5;S MULT=3,MFLD=4;LD;5;450.0757-4

38 ;;GRP 38;1;4

 ;;LD-CODE4;LABOR DIST CODE-4;1;4;LD;2;S MULT=4,MFLD=1;LD;2;450.0757-1

39 ;;GRP 39;1;3

 ;;LD-PERCENT4;LABOR DIST CODE-4 PCT;1;3;LD;3;S MULT=4,MFLD=2 D SIGN^PRSDUTIL,DD^PRSDUTIL;LD;3;450.0757-2

40 ;;GRP 40;1;4

 ;;LD-MHORGCOD4;LABOR DIST CODE-4 COST CENTER;1;4;LD;4;S MULT=4,MFLD=3;LD;4;450.0757-3

41 ;;GRP 41;1;3

 ;;LD-MHFUNDCP4;LABOR DIST CODE-4 FUND CTRL PNT;1;3;LD;5;S MULT=4,MFLD=4;LD;5;450.0757-4

42 ;;GRP 42;1;6

 ;;FSA-HEALTH-CARE;HLTH CARE FLX SPEND ACCT CPPD;1;6;FSA;2;D SIGN^PRSDUTIL,DD^PRSDUTIL;9;13;759

43 ;;GRP 43;1;6

 ;;FSA-HEALTH-CARE-YTD;HLTH CARE FLX SPEND ACCT YTD;1;6;FSA;1;D SIGN^PRSDUTIL,DD^PRSDUTIL;9;12;758

44 ;;GRP 44;1;1

 ;;MFCOURT-ORDERED-FEHB;FED EMP HLTH BENE CRT ORD IND;1;1;FED;12;;9;16;752

45 ;;GRP 45;1;1

 ;;MX-EANDL-PRINT-IND;EARNINGS & LEAVE PRT SELECTION;1;1;ADD;11;;9;17;753

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---PRSDPR09   4955     printed  Apr 09, 2024@21:28:57                                                                                                                                                                                                    Page 2

PRSDPR09  ;HISC/MGD-PAID PAYRUN DOWNLOAD RECORD 9 LAYOUT ;12/15/2003

 +1       ;;4.0;PAID;**78,82,86,105**;Sep 21, 1995

 +2        FOR CC=1:1

               SET GRP=$TEXT(@CC)

               if GRP=""

                   QUIT 

               SET GRPVAL=$PIECE(RCD,":",CC)

               IF GRPVAL'=""

                   SET GNUM=$PIECE(GRP,";",4)

                   SET LTH=$PIECE(GRP,";",5)

                   SET PIC=$PIECE(GRP,";",6)

                   if PIC=9

                       DO PIC9^PRSDUTIL

                   FOR EE=1:1:GNUM

                       SET FLD=$TEXT(@CC+EE)

                       DO EPTSET^PRSDSET

 +3        QUIT 

RECORD    ;;Record 9;45

1         ;;GRP 1;1;5;9

 +1       ;;ASLCBCPPD;CARE/BEREAVE LEAVE USED CPPD;1;5;SICK;9;D SIGN^PRSDUTIL,DD^PRSDUTIL;3;7;710;A

2         ;;GRP 2;1;7;9

 +1       ;;SLCBLYTD;CARE/BEREAVE LEAVE USED LYTD;1;7;SICK;10;D SIGN^PRSDUTIL,DDD^PRSDUTIL;;;711

3         ;;GRP 3;1;5;9

 +1       ;;ASLADCPPD;ADOPTION LEAVE USED CPPD;1;5;SICK;11;D SIGN^PRSDUTIL,DD^PRSDUTIL;3;8;712;A

4         ;;GRP 4;1;7;9

 +1       ;;SLADLYTD;ADOPTION LEAVE USED LYTD;1;7;SICK;12;D SIGN^PRSDUTIL,DDD^PRSDUTIL;;;713

5         ;;GRP 5;1;5;9

 +1       ;;AOSLCPPD;OTHER SICK LEAVE USED CPPD;1;5;SICK;13;D SIGN^PRSDUTIL,DD^PRSDUTIL;3;9;714;A

6         ;;GRP 6;1;7;9

 +1       ;;OSLLYTD;OTHER SICK LEAVE USED LYTD;1;7;SICK;14;D SIGN^PRSDUTIL,DDD^PRSDUTIL;;;715

7         ;;GRP 7;1;5;9

 +1       ;;ADLCPPD;DONOR LEAVE USED CPPD;1;5;SICK;15;D SIGN^PRSDUTIL,DD^PRSDUTIL;3;10;716;A

8         ;;GRP 8;1;7;9

 +1       ;;DLLYTD;DONOR LEAVE USED LYTD;1;7;SICK;16;D SIGN^PRSDUTIL,DDD^PRSDUTIL;;;717

9         ;;GRP 9;1;8;X

 +1       ;;MXWIGDTE;WGI DUE DATE;1;8;0;51;D DATE^PRSDUTIL;;;600

10        ;;GRP 10;1;1;X

 +1       ;;HAMIL-IND;MILITARY LEAVE INDICATOR;1;1;MILITARY;3;D SIGN^PRSDUTIL;;;507.1

11        ;;GRP 11;1;5;9

 +1       ;;HAMILUSED;MILITARY LEAVE USED CPPD;1;5;MILITARY;4;D SIGN^PRSDUTIL,DD^PRSDUTIL;9;1;507.2

12        ;;GRP 12;1;1;

 +1       ;;MIB1TYPE;SAVINGS BOND-1 TYPE;1;1;BOND1;16;;2;25;718

13        ;;GRP 13;1;1;

 +1       ;;MIB2TYPE;SAVINGS BOND-2 TYPE;1;1;BOND2;15;;2;26;719

14        ;;GRP 14;1;7;9

 +1       ;;SBONDS-DED-BAL-3;SAVINGS BOND-3 DED BALANCE;1;7;BOND3;8;D SIGN^PRSDUTIL,DD^PRSDUTIL;9;3;727;O

15        ;;GRP 15;1;7;9

 +1       ;;SBONDS-DED-PAY-PERIOD-3;SAVINGS BOND-3 DEDUCTION;1;7;BOND3;9;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;728

16        ;;GRP 16;1;1;

 +1       ;;SBONDS-TYPE-3;SAVINGS BOND-3 TYPE;1;1;BOND3;15;;9;2;734

17        ;;GRP 17;1;7;9

 +1       ;;SBONDS-DED-BAL-4;SAVINGS BOND-4 DED BALANCE;1;7;BOND4;8;D SIGN^PRSDUTIL,DD^PRSDUTIL;9;5;742;O

18        ;;GRP 18;1;7;9

 +1       ;;BONDS-DED-PAY-PERIOD-4;SAVINGS BOND-4 DEDUCTION;1;7;BOND4;9;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;743

19        ;;GRP 19;1;1;

 +1       ;;SBONDS-TYPE-4;SAVINGS BOND-4 TYPE;1;1;BOND4;15;;9;4;749

20        ;;GRP 20;1;9;

 +1       ;;LONG-TERM-CARE-PREM;FLTCIP CPPD;1;9;FLTCIP;2;D SIGN^PRSDUTIL,DD^PRSDUTIL;9;7;751

21        ;;GRP 21;1;1;

 +1       ;;LONG-TERM-CARE-IND;FLTCIP INDICATOR;1;1;FLTCIP;5;;9;6;754

22        ;;GRP 22;1;6;

 +1       ;;VOL-ALLOT-AMT-3;VOLUNTARY ALLOTMENTS-3 AMT;1;6;VALLOT;6;D SIGN^PRSDUTIL;9;8;439.1

23        ;;GRP 23;1;6;

 +1       ;;VOL-ALLOT-AMT-4;VOLUNTARY ALLOTMENTS-4 AMT;1;6;VALLOT;8;D SIGN^PRSDUTIL;9;9;439.3

24        ;;GRP 24;1;6;

 +1       ;;VCS-ALLOT-AMT;VCS ALLOTMENT AMT;1;6;VCS;22;D SIGN^PRSDUTIL,DD^PRSDUTIL;9;10;586.1

25        ;;GRP 25;1;9;

 +1       ;;AWARD-TRAVEL-SAVINGS;TRAVEL SAVINGS AWARD;1;9;AWARDS;5;D SIGN^PRSDUTIL,DD^PRSDUTIL;9;11;587.2

26        ;;GRP 26;1;4;

 +1       ;;LD-CODE1;LABOR DIST CODE-1;1;4;LD;2;S MULT=1,MFLD=1;LD;2;450.0757-1

27        ;;GRP 27;1;3;

 +1       ;;LD-PERCENT1;LABOR DIST CODE-1 PCT;1;3;LD;3;S MULT=1,MFLD=2 D SIGN^PRSDUTIL,DD^PRSDUTIL;LD;3;450.0757-2

28        ;;GRP 28;1;4

 +1       ;;LD-MXORGCOD;LABOR DIST CODE-1 COST CENTER;1;4;LD;4;S MULT=1,MFLD=3;LD;4;450.0757-3

29        ;;GRP 29;1;3

 +1       ;;LD-MXFUNDCP;LABOR DIST CODE-1 FUND CTRL PNT;1;3;LD;5;S MULT=1,MFLD=4;LD;5;450.0757-4

30        ;;GRP 30;1;4

 +1       ;;LD-CODE2;LABOR DIST CODE-2;1;4;LD;2;S MULT=2,MFLD=1;LD;2;450.0757-1

31        ;;GRP 31;1;3

 +1       ;;LD-PERCENT2;LABOR DIST CODE-2 PCT;1;3;LD;3;S MULT=2,MFLD=2 D SIGN^PRSDUTIL,DD^PRSDUTIL;LD;3;450.0757-2

32        ;;GRP 32;1;4

 +1       ;;LD-MHORGCOD2;LABOR DIST CODE-2 COST CENTER;1;4;LD;4;S MULT=2,MFLD=3;LD;4;450.0757-3

33        ;;GRP 33;1;3

 +1       ;;LD-MHFUNDCP2;LABOR DIST CODE-2 FUND CTRL PNT;1;3;LD;5;S MULT=2,MFLD=4;LD;5;450.0757-4

34        ;;GRP 34;1;4

 +1       ;;LD-CODE3;LABOR DIST CODE-3;1;4;LD;2;S MULT=3,MFLD=1;LD;2;450.0757-1

35        ;;GRP 35;1;3

 +1       ;;LD-PERCENT3;LABOR DIST CODE-3 PCT;1;3;LD;3;S MULT=3,MFLD=2 D SIGN^PRSDUTIL,DD^PRSDUTIL;LD;3;450.0757-2

36        ;;GRP 36;1;4

 +1       ;;LD-MHORGCOD3;LABOR DIST CODE-3 COST CENTER;1;4;LD;4;S MULT=3,MFLD=3;LD;4;450.0757-3

37        ;;GRP 37;1;3

 +1       ;;LD-MHFUNDCP3;LABOR DIST CODE-3 FUND CTRL PNT;1;3;LD;5;S MULT=3,MFLD=4;LD;5;450.0757-4

38        ;;GRP 38;1;4

 +1       ;;LD-CODE4;LABOR DIST CODE-4;1;4;LD;2;S MULT=4,MFLD=1;LD;2;450.0757-1

39        ;;GRP 39;1;3

 +1       ;;LD-PERCENT4;LABOR DIST CODE-4 PCT;1;3;LD;3;S MULT=4,MFLD=2 D SIGN^PRSDUTIL,DD^PRSDUTIL;LD;3;450.0757-2

40        ;;GRP 40;1;4

 +1       ;;LD-MHORGCOD4;LABOR DIST CODE-4 COST CENTER;1;4;LD;4;S MULT=4,MFLD=3;LD;4;450.0757-3

41        ;;GRP 41;1;3

 +1       ;;LD-MHFUNDCP4;LABOR DIST CODE-4 FUND CTRL PNT;1;3;LD;5;S MULT=4,MFLD=4;LD;5;450.0757-4

42        ;;GRP 42;1;6

 +1       ;;FSA-HEALTH-CARE;HLTH CARE FLX SPEND ACCT CPPD;1;6;FSA;2;D SIGN^PRSDUTIL,DD^PRSDUTIL;9;13;759

43        ;;GRP 43;1;6

 +1       ;;FSA-HEALTH-CARE-YTD;HLTH CARE FLX SPEND ACCT YTD;1;6;FSA;1;D SIGN^PRSDUTIL,DD^PRSDUTIL;9;12;758

44        ;;GRP 44;1;1

 +1       ;;MFCOURT-ORDERED-FEHB;FED EMP HLTH BENE CRT ORD IND;1;1;FED;12;;9;16;752

45        ;;GRP 45;1;1

 +1       ;;MX-EANDL-PRINT-IND;EARNINGS & LEAVE PRT SELECTION;1;1;ADD;11;;9;17;753

 +2        QUIT