PRSDPR01.m

PRSDPR01 ;HISC/MGD-PAID PAYRUN DOWNLOAD RECORD 1 LAYOUT ;05/13/04

 ;;4.0;PAID;**73**;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 1;27

 ;;

1 ;;Group 1;3;13;X

 ;;MXSTANO;STATION NUMBER;1;3;0;7;;;;6

 ;;MXSSN;SSN;4;12;0;9;;;;8

 ;;MXSSNSUB;SSN SUFFIX;13;13;;;;;;

 ;;

2 ;;Group 2;1;3;X

 ;;MXTLUNIT;T & L UNIT;1;3;0;8;S:DATA="" NODE="";0;13;7;O

 ;;

3 ;;Group 3;1;1;X

 ;;MXFIREFG;FIRE FIGHTER;1;1;1;12;;;;59

 ;;

4 ;;Group 4;1;9;9

 ;;MXFCVAQ;OASDI TAX VA SHARE QTD;1;9;OASDI;8;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;297

 ;;

5 ;;Group 5;1;9;9

 ;;MXFCVAY;OASDI TAX VA SHARE YTD;1;9;OASDI;9;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;298

 ;;

6 ;;Group 6;1;1;X

 ;;MXPAYBAS;PAY BASIS;1;1;0;20;;;;19

 ;;

7 ;;Group 7;1;9;9

 ;;MXSALRPY;SALARY;1;9;0;29;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;28

 ;;

8 ;;Group 8;1;8;X

 ;;MXSALDAT;SALARY DATE;1;8;0;28;D DATE^PRSDUTIL;;;27

 ;;

9 ;;Group 9;6;21;X

 ;;MXMERPAY;PMRS PERFORMANCE AWARD AMT;1;7;AWARDS;2;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;588

 ;;MXNTWYTD;FEDERAL NONTAXABLE WAGES YTD;8;16;FED;1;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;212

 ;;MXLASTPP;LAST PPD PROCESSED;17;18;MISC4;16;;;;455

 ;;MXWANITE;NIGHT DIFF IND;19;19;PREMIUM;9;;;;551

 ;;MXHINXPP;HEALTH BENEFITS NEXT PPD IND;20;20;FEHB;3;;;;232

 ;;MXLVRSTR;AL NON-ACCRUAL IND;21;21;ANNUAL;1;;;;460

 ;;

10 ;;Group 10;1;7;9

 ;;MXANNBAL;ANNUAL LEAVE CURRENT BALANCE;1;7;ANNUAL;3;D SIGN^PRSDUTIL,DDD^PRSDUTIL;;;462

 ;;

11 ;;Group 11;1;5;9

 ;;MXANNCRH;ANNUAL LEAVE CREDIT HOURS;1;5;ANNUAL;2;D SIGN^PRSDUTIL,DDD^PRSDUTIL;;;461

 ;;

12 ;;Group 12;1;7;9

 ;;MXANNER;ANNUAL LEAVE EARNED LYTD;1;7;ANNUAL;4;D SIGN^PRSDUTIL,DDD^PRSDUTIL;;;463

 ;;

13 ;;Group 13;1;7;9

 ;;MXANNUSE;ANNUAL LEAVE USED LYTD;1;7;ANNUAL;7;D SIGN^PRSDUTIL,DDD^PRSDUTIL;;;466

 ;;

14 ;;Group 14;1;7;9

 ;;MXANEOPY;ANNUAL LEAVE EOPY BALANCE;1;7;ANNUAL;5;D SIGN^PRSDUTIL,DDD^PRSDUTIL;;;464

 ;;

15 ;;Group 15;1;7;9

 ;;MXSICKBL;TOTAL SICK LEAVE BALANCE;1;7;SICK;3;D SIGN^PRSDUTIL,DDD^PRSDUTIL;;;510

16 ;;Group 16;1;5;9

 ;;MXSICKCR;TOTAL SICK LEAVE CREDIT HOURS;1;5;SICK;2;D SIGN^PRSDUTIL,DDD^PRSDUTIL;;;509

 ;;

17 ;;Group 17;1;7;9

 ;;MXSICKER;TOTAL SICK LEAVE EARNED LYTD;1;7;SICK;4;D SIGN^PRSDUTIL,DDD^PRSDUTIL;;;511

 ;;

18 ;;Group 18;1;7;9

 ;;MXSKUSE;TOTAL SICK LEAVE USED LYTD;1;7;SICK;7;D SIGN^PRSDUTIL,DDD^PRSDUTIL;;;514

 ;;

19 ;;Group 19;1;7;9

 ;;MXSICKEP;TOTAL SICK LEAVE EOPY BALANCE;1;7;SICK;5;D SIGN^PRSDUTIL,DDD^PRSDUTIL;;;512

 ;;

20 ;;Group 20;1;9;9

 ;;MXFTWHQ;FEDERAL TAX AMT WITHHELD QTD;1;9;FED;3;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;214

 ;;

21 ;;Group 21;1;9;9

 ;;MXFTWHYD;FEDERAL TAX AMT WITHHELD YTD;1;9;FED;4;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;215

 ;;

22 ;;Group 22;1;9;9

 ;;MXGROSSQ;FEDERAL TAX GROSS PAY QTD;1;9;FED;7;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;218

 ;;

23 ;;Group 23;1;9;9

 ;;MXGRSYTD;FEDERAL TAX GROSS PAY YTD;1;9;FED;8;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;219

 ;;

24 ;;Group 24;1;9;9

 ;;MXSTX-CURRENT-TAX;STATE TAX-1 AMT WITHHELD CTPTD;1;9;STATE;3;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;374

 ;;

25 ;;Group 25;1;9;9

 ;;MXSTX-YTD-TAX;STATE TAX-1 AMT WITHHELD YTD;1;9;STATE;4;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;375

 ;;

26 ;;Group 26;1;9;9

 ;;MXSTX-CURRENT-GROSS;STATE TAX-1 GROSS PAY CTPTD;1;9;STATE;8;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;379

 ;;

27 ;;Group 27;1;1;

 ;;MXLCKFEDTX;FEDERAL TAX LOCK-IN INDICATOR;1;1;FED;13;;9;18;754

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---PRSDPR01   3482     printed  Feb 18, 2025@23:52:18                                                                                                                                                                                                    Page 2

PRSDPR01  ;HISC/MGD-PAID PAYRUN DOWNLOAD RECORD 1 LAYOUT ;05/13/04

 +1       ;;4.0;PAID;**73**;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 1;27

 +1       ;;

1         ;;Group 1;3;13;X

 +1       ;;MXSTANO;STATION NUMBER;1;3;0;7;;;;6

 +2       ;;MXSSN;SSN;4;12;0;9;;;;8

 +3       ;;MXSSNSUB;SSN SUFFIX;13;13;;;;;;

 +4       ;;

2         ;;Group 2;1;3;X

 +1       ;;MXTLUNIT;T & L UNIT;1;3;0;8;S:DATA="" NODE="";0;13;7;O

 +2       ;;

3         ;;Group 3;1;1;X

 +1       ;;MXFIREFG;FIRE FIGHTER;1;1;1;12;;;;59

 +2       ;;

4         ;;Group 4;1;9;9

 +1       ;;MXFCVAQ;OASDI TAX VA SHARE QTD;1;9;OASDI;8;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;297

 +2       ;;

5         ;;Group 5;1;9;9

 +1       ;;MXFCVAY;OASDI TAX VA SHARE YTD;1;9;OASDI;9;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;298

 +2       ;;

6         ;;Group 6;1;1;X

 +1       ;;MXPAYBAS;PAY BASIS;1;1;0;20;;;;19

 +2       ;;

7         ;;Group 7;1;9;9

 +1       ;;MXSALRPY;SALARY;1;9;0;29;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;28

 +2       ;;

8         ;;Group 8;1;8;X

 +1       ;;MXSALDAT;SALARY DATE;1;8;0;28;D DATE^PRSDUTIL;;;27

 +2       ;;

9         ;;Group 9;6;21;X

 +1       ;;MXMERPAY;PMRS PERFORMANCE AWARD AMT;1;7;AWARDS;2;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;588

 +2       ;;MXNTWYTD;FEDERAL NONTAXABLE WAGES YTD;8;16;FED;1;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;212

 +3       ;;MXLASTPP;LAST PPD PROCESSED;17;18;MISC4;16;;;;455

 +4       ;;MXWANITE;NIGHT DIFF IND;19;19;PREMIUM;9;;;;551

 +5       ;;MXHINXPP;HEALTH BENEFITS NEXT PPD IND;20;20;FEHB;3;;;;232

 +6       ;;MXLVRSTR;AL NON-ACCRUAL IND;21;21;ANNUAL;1;;;;460

 +7       ;;

10        ;;Group 10;1;7;9

 +1       ;;MXANNBAL;ANNUAL LEAVE CURRENT BALANCE;1;7;ANNUAL;3;D SIGN^PRSDUTIL,DDD^PRSDUTIL;;;462

 +2       ;;

11        ;;Group 11;1;5;9

 +1       ;;MXANNCRH;ANNUAL LEAVE CREDIT HOURS;1;5;ANNUAL;2;D SIGN^PRSDUTIL,DDD^PRSDUTIL;;;461

 +2       ;;

12        ;;Group 12;1;7;9

 +1       ;;MXANNER;ANNUAL LEAVE EARNED LYTD;1;7;ANNUAL;4;D SIGN^PRSDUTIL,DDD^PRSDUTIL;;;463

 +2       ;;

13        ;;Group 13;1;7;9

 +1       ;;MXANNUSE;ANNUAL LEAVE USED LYTD;1;7;ANNUAL;7;D SIGN^PRSDUTIL,DDD^PRSDUTIL;;;466

 +2       ;;

14        ;;Group 14;1;7;9

 +1       ;;MXANEOPY;ANNUAL LEAVE EOPY BALANCE;1;7;ANNUAL;5;D SIGN^PRSDUTIL,DDD^PRSDUTIL;;;464

 +2       ;;

15        ;;Group 15;1;7;9

 +1       ;;MXSICKBL;TOTAL SICK LEAVE BALANCE;1;7;SICK;3;D SIGN^PRSDUTIL,DDD^PRSDUTIL;;;510

16        ;;Group 16;1;5;9

 +1       ;;MXSICKCR;TOTAL SICK LEAVE CREDIT HOURS;1;5;SICK;2;D SIGN^PRSDUTIL,DDD^PRSDUTIL;;;509

 +2       ;;

17        ;;Group 17;1;7;9

 +1       ;;MXSICKER;TOTAL SICK LEAVE EARNED LYTD;1;7;SICK;4;D SIGN^PRSDUTIL,DDD^PRSDUTIL;;;511

 +2       ;;

18        ;;Group 18;1;7;9

 +1       ;;MXSKUSE;TOTAL SICK LEAVE USED LYTD;1;7;SICK;7;D SIGN^PRSDUTIL,DDD^PRSDUTIL;;;514

 +2       ;;

19        ;;Group 19;1;7;9

 +1       ;;MXSICKEP;TOTAL SICK LEAVE EOPY BALANCE;1;7;SICK;5;D SIGN^PRSDUTIL,DDD^PRSDUTIL;;;512

 +2       ;;

20        ;;Group 20;1;9;9

 +1       ;;MXFTWHQ;FEDERAL TAX AMT WITHHELD QTD;1;9;FED;3;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;214

 +2       ;;

21        ;;Group 21;1;9;9

 +1       ;;MXFTWHYD;FEDERAL TAX AMT WITHHELD YTD;1;9;FED;4;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;215

 +2       ;;

22        ;;Group 22;1;9;9

 +1       ;;MXGROSSQ;FEDERAL TAX GROSS PAY QTD;1;9;FED;7;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;218

 +2       ;;

23        ;;Group 23;1;9;9

 +1       ;;MXGRSYTD;FEDERAL TAX GROSS PAY YTD;1;9;FED;8;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;219

 +2       ;;

24        ;;Group 24;1;9;9

 +1       ;;MXSTX-CURRENT-TAX;STATE TAX-1 AMT WITHHELD CTPTD;1;9;STATE;3;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;374

 +2       ;;

25        ;;Group 25;1;9;9

 +1       ;;MXSTX-YTD-TAX;STATE TAX-1 AMT WITHHELD YTD;1;9;STATE;4;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;375

 +2       ;;

26        ;;Group 26;1;9;9

 +1       ;;MXSTX-CURRENT-GROSS;STATE TAX-1 GROSS PAY CTPTD;1;9;STATE;8;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;379

 +2       ;;

27        ;;Group 27;1;1;

 +1       ;;MXLCKFEDTX;FEDERAL TAX LOCK-IN INDICATOR;1;1;FED;13;;9;18;754