PRSDPR02.m

PRSDPR02 ;HISC/GWB/FPT-PAID PAYRUN DOWNLOAD RECORD 2 LAYOUT ;6/23/93  13:34

 ;;4.0;PAID;;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 2;29

 ;;

1 ;;Group 1;1;9;9

 ;;MXSTX-YTD-GROSS;STATE TAX-1 GROSS PAY YTD;1;9;STATE;9;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;380

 ;;

2 ;;Group 2;1;9;9

 ;;MXCTX-CURRENT-TAX;CITY TAX-1 AMT WITHHELD CTPTD;1;9;CITY;3;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;189

 ;;

3 ;;Group 3;1;9;9

 ;;MXCTX-YTD-TAX;CITY TAX-1 AMT WITHHELD YTD;1;9;CITY;4;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;190

 ;;

4 ;;Group 4;1;9;9

 ;;MXCTX-CURRENT-GROSS;CITY TAX-1 GROSS PAY CPPD;1;9;CITY;7;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;193

 ;;

5 ;;Group 5;1;9;9

 ;;MXCTX-YTD-GROSS;CITY TAX-1 GROSS PAY YTD;1;9;CITY;8;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;194

 ;;

6 ;;Group 6;1;9;9

 ;;MXMEDTXQ;MEDICARE AMT WITHHELD QTD;1;9;MEDICARE;2;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;251

 ;;

7 ;;Group 7;1;9;9

 ;;MXMEDTXY;MEDICARE AMT WITHHELD YTD;1;9;MEDICARE;3;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;252

 ;;

8 ;;Group 8;1;9;9

 ;;MXMEDWGQ;GROSS PAY QTD;1;9;MEDICARE;5;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;254

 ;;

9 ;;Group 9;1;9;9

 ;;MXMEDWGY;GROSS PAY YTD;1;9;MEDICARE;6;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;255

 ;;

10 ;;Group 10;1;9;9

 ;;MXFICAQ;OASDI TAX AMT WITHHELD QTD;1;9;OASDI;2;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;291

 ;;

11 ;;Group 11;1;9;9

 ;;MXFICAYD;OASDI TAX AMT WITHHELD YTD;1;9;OASDI;3;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;292

12 ;;Group 12;1;9;9

 ;;MXFICGQ;OASDI TAX GROSS PAY QTD;1;9;OASDI;5;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;294

 ;;

13 ;;Group 13;1;9;9

 ;;MXFICGYD;OASDI TAX GROSS PAY YTD;1;9;OASDI;6;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;295

 ;;

14 ;;Group 14;1;7;9

 ;;MXBASYTD;BASE PAY SUBJECT TO CSRS;1;7;PAY;6;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;539

 ;;

15 ;;Group 15;1;7;9

 ;;MXRETYTD;CSRS DEDUCTION YTD;1;7;RETIRE;2;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;330

 ;;

16 ;;Group 16;1;9;9

 ;;MXRETEPY;CSRS DEDUCTION EOPY;1;9;RETIRE;1;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;329

 ;;

17 ;;Group 17;1;7;9

 ;;MXREAYTD;REEMP ANNUITANT DED YTD;1;7;RETIRE;4;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;332

 ;;

18 ;;Group 18;1;9;9

 ;;MXREAEPY;REEMP ANNUITANT DED EOPY;1;9;RETIRE;3;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;331

 ;;

19 ;;Group 19;1;7;9

 ;;MXFRSYTD;FERS DEDUCTION YTD;1;7;RETIRE;6;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;334

 ;;

20 ;;Group 20;1;9;9

 ;;MXFRSEPY;FERS DEDUCTION EOPY;1;9;RETIRE;5;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;333

 ;;

21 ;;Group 21;1;7;9

 ;;MBSLHRDA;LIMITATION HOURS TO DATE;1;7;1;32;D SIGN^PRSDUTIL S DATA=+DATA;;;79

 ;;

22 ;;Group 22;1;3;X

 ;;MBSTATFR;VA STATION TRANSFERRED FROM;1;3;1;40;S:DATA="" NODE="";;;87

 ;;

23 ;;Group 23;1;1;X

 ;;MBSEPAR;SEPARATION IND;1;1;1;33;D SEPIND^PRSDMISC;;;80

 ;;

24 ;;Group 24;1;1;X

 ;;MBSACODE;ACCESSION/SEPARATION CODE;1;1;1;1;S:DATA="" NODE="";;;48

 ;;

25 ;;Group 25;1;8;X

 ;;MBSADATE;ACCESSION/SEPARATION EFF DATE;1;8;1;2;D DATE^PRSDUTIL S:DATA="" NODE="";;;49

 ;;

26 ;;Group 26;1;3;X

 ;;MBSANOAC;ACCESSION/SEPARATION NOA CODE;1;3;1;3;S:DATA="" NODE="";;;50

 ;;

27 ;;Group 27;1;1;X

 ;;MBFINPAY;FINAL PAY IND;1;1;MISC4;10;;;;449

 ;;

28 ;;Group 28;1;9;9

 ;;MCSTX-CURRENT-TAX;STATE TAX-2 AMT WITHHELD CTPTD;1;9;STATE;14;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;385

 ;;

29 ;;Group 29;1;9;9

 ;;MCSTX-YTD-TAX;STATE TAX-2 AMT WITHHELD YTD;1;9;STATE;15;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;386

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---PRSDPR02   3446     printed  Apr 09, 2024@21:25:48                                                                                                                                                                                                    Page 2

PRSDPR02  ;HISC/GWB/FPT-PAID PAYRUN DOWNLOAD RECORD 2 LAYOUT ;6/23/93  13:34

 +1       ;;4.0;PAID;;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 2;29

 +1       ;;

1         ;;Group 1;1;9;9

 +1       ;;MXSTX-YTD-GROSS;STATE TAX-1 GROSS PAY YTD;1;9;STATE;9;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;380

 +2       ;;

2         ;;Group 2;1;9;9

 +1       ;;MXCTX-CURRENT-TAX;CITY TAX-1 AMT WITHHELD CTPTD;1;9;CITY;3;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;189

 +2       ;;

3         ;;Group 3;1;9;9

 +1       ;;MXCTX-YTD-TAX;CITY TAX-1 AMT WITHHELD YTD;1;9;CITY;4;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;190

 +2       ;;

4         ;;Group 4;1;9;9

 +1       ;;MXCTX-CURRENT-GROSS;CITY TAX-1 GROSS PAY CPPD;1;9;CITY;7;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;193

 +2       ;;

5         ;;Group 5;1;9;9

 +1       ;;MXCTX-YTD-GROSS;CITY TAX-1 GROSS PAY YTD;1;9;CITY;8;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;194

 +2       ;;

6         ;;Group 6;1;9;9

 +1       ;;MXMEDTXQ;MEDICARE AMT WITHHELD QTD;1;9;MEDICARE;2;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;251

 +2       ;;

7         ;;Group 7;1;9;9

 +1       ;;MXMEDTXY;MEDICARE AMT WITHHELD YTD;1;9;MEDICARE;3;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;252

 +2       ;;

8         ;;Group 8;1;9;9

 +1       ;;MXMEDWGQ;GROSS PAY QTD;1;9;MEDICARE;5;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;254

 +2       ;;

9         ;;Group 9;1;9;9

 +1       ;;MXMEDWGY;GROSS PAY YTD;1;9;MEDICARE;6;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;255

 +2       ;;

10        ;;Group 10;1;9;9

 +1       ;;MXFICAQ;OASDI TAX AMT WITHHELD QTD;1;9;OASDI;2;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;291

 +2       ;;

11        ;;Group 11;1;9;9

 +1       ;;MXFICAYD;OASDI TAX AMT WITHHELD YTD;1;9;OASDI;3;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;292

12        ;;Group 12;1;9;9

 +1       ;;MXFICGQ;OASDI TAX GROSS PAY QTD;1;9;OASDI;5;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;294

 +2       ;;

13        ;;Group 13;1;9;9

 +1       ;;MXFICGYD;OASDI TAX GROSS PAY YTD;1;9;OASDI;6;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;295

 +2       ;;

14        ;;Group 14;1;7;9

 +1       ;;MXBASYTD;BASE PAY SUBJECT TO CSRS;1;7;PAY;6;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;539

 +2       ;;

15        ;;Group 15;1;7;9

 +1       ;;MXRETYTD;CSRS DEDUCTION YTD;1;7;RETIRE;2;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;330

 +2       ;;

16        ;;Group 16;1;9;9

 +1       ;;MXRETEPY;CSRS DEDUCTION EOPY;1;9;RETIRE;1;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;329

 +2       ;;

17        ;;Group 17;1;7;9

 +1       ;;MXREAYTD;REEMP ANNUITANT DED YTD;1;7;RETIRE;4;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;332

 +2       ;;

18        ;;Group 18;1;9;9

 +1       ;;MXREAEPY;REEMP ANNUITANT DED EOPY;1;9;RETIRE;3;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;331

 +2       ;;

19        ;;Group 19;1;7;9

 +1       ;;MXFRSYTD;FERS DEDUCTION YTD;1;7;RETIRE;6;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;334

 +2       ;;

20        ;;Group 20;1;9;9

 +1       ;;MXFRSEPY;FERS DEDUCTION EOPY;1;9;RETIRE;5;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;333

 +2       ;;

21        ;;Group 21;1;7;9

 +1       ;;MBSLHRDA;LIMITATION HOURS TO DATE;1;7;1;32;D SIGN^PRSDUTIL S DATA=+DATA;;;79

 +2       ;;

22        ;;Group 22;1;3;X

 +1       ;;MBSTATFR;VA STATION TRANSFERRED FROM;1;3;1;40;S:DATA="" NODE="";;;87

 +2       ;;

23        ;;Group 23;1;1;X

 +1       ;;MBSEPAR;SEPARATION IND;1;1;1;33;D SEPIND^PRSDMISC;;;80

 +2       ;;

24        ;;Group 24;1;1;X

 +1       ;;MBSACODE;ACCESSION/SEPARATION CODE;1;1;1;1;S:DATA="" NODE="";;;48

 +2       ;;

25        ;;Group 25;1;8;X

 +1       ;;MBSADATE;ACCESSION/SEPARATION EFF DATE;1;8;1;2;D DATE^PRSDUTIL S:DATA="" NODE="";;;49

 +2       ;;

26        ;;Group 26;1;3;X

 +1       ;;MBSANOAC;ACCESSION/SEPARATION NOA CODE;1;3;1;3;S:DATA="" NODE="";;;50

 +2       ;;

27        ;;Group 27;1;1;X

 +1       ;;MBFINPAY;FINAL PAY IND;1;1;MISC4;10;;;;449

 +2       ;;

28        ;;Group 28;1;9;9

 +1       ;;MCSTX-CURRENT-TAX;STATE TAX-2 AMT WITHHELD CTPTD;1;9;STATE;14;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;385

 +2       ;;

29        ;;Group 29;1;9;9

 +1       ;;MCSTX-YTD-TAX;STATE TAX-2 AMT WITHHELD YTD;1;9;STATE;15;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;386