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 ---[H[J[2J[HPRSDPR02 3446 printed Oct 16, 2024@18:26:33 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
