PRSDPR03 ;HISC/GWB/FPT-PAID PAYRUN DOWNLOAD RECORD 3 LAYOUT ;08/13/01
;;4.0;PAID;**34,69**;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 3;27
;;
1 ;;Group 1;1;9;9
;;MCSTX-CURRENT-GROSS;STATE TAX-2 GROSS PAY CTPTD;1;9;STATE;19;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;390
;;
2 ;;Group 2;1;9;9
;;MCSTX-YTD-GROSS;STATE TAX-2 GROSS PAY YTD;1;9;STATE;20;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;391
;;
3 ;;Group 3;1;9;9
;;MCCTX-CURRENT-TAX;CITY TAX-2 AMT WITHHELD CTPTD;1;9;CITY;13;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;199
;;
4 ;;Group 4;1;9;9
;;MCCTX-YTD-TAX;CITY TAX-2 AMT WITHHELD YTD;1;9;CITY;14;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;200
;;
5 ;;Group 5;1;9;9
;;MCCTX-CURRENT-GROSS;CITY TAX-2 GROSS PAY CPPD;1;9;CITY;18;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;204
;;
6 ;;Group 6;1;9;9
;;MCCTX-YTD-GROSS;CITY TAX-2 GROSS PAY YTD;1;9;CITY;19;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;205
;;
7 ;;Group 7;1;7;9
;;MCEMPVEH;EMPLOYEE PROVIDED VEHICLE VAL;1;7;OTHER;5;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;304
;;
8 ;;Group 8;1;9;9
;;MDOTGSS1;OTHER TAX GROSS PAY YTD-1;1;9;OTHER;15;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;314
;;
9 ;;Group 9;1;9;9
;;MDOTGSS2;OTHER TAX GROSS PAY YTD-2;1;9;OTHER;16;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;315
;;
10 ;;Group 10;1;7;9
;;MDFDBAL;FTL DEBT BALANCE;1;7;FED;9;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;220
;;
11 ;;Group 11;1;5;9
;;MDEIC;EARNED INCOME CREDIT AMT EPPD;1;5;MISC4;7;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;446
;;
12 ;;Group 12;1;7;9
;;MDEICYTD;EARNED INCOME CREDIT AMT YTD;1;7;MISC4;8;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;447
;;
13 ;;Group 13;1;1;X
;;MDOPT-DEDUCTION-IND;OCC PRIV TAX DEDUCTION IND;1;1;OTHER;6;;;;305
;;
14 ;;Group 14;7;43;9
;;MELWOPCT;LWOP CONTROL UNITS LYTD;1;3;LWOP;4;D SIGN^PRSDUTIL S DATA=+DATA;;;518
;;MELWPAYR;LWOP WG/PW PYTD;4;8;LWOP;10;D SIGN^PRSDUTIL S DATA=+DATA;;;524
;;MELWOPYR;LWOP LYTD;9;15;LWOP;6;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;520
;;MELWPCAL;LWOP CCY;16;22;LWOP;3;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;517
;;MELWPSTP;LWOP THIS STEP;23;29;LWOP;9;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;523
;;MELWPPRB;LWOP PROB PD;30;36;LWOP;7;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;521
;;MELWPPRO;LWOP SINCE PROM;37;43;LWOP;8;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;522
;;
15 ;;Group 15;1;7;9
;;MEPTIHRS;PART TIME/INTERMIT HRS TOTAL;1;7;1;23;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;70
;;
16 ;;Group 16;1;5;9
;;MECRCALY;INTMT EMP DAYS WORKED YTD;1;5;MISC4;15;D SIGN^PRSDUTIL,D^PRSDUTIL;;;454
;;
17 ;;Group 17;1;5;9
;;MECRISTP;INTMT EMP DAYS WORKED STEP;1;5;MISC4;14;D SIGN^PRSDUTIL,D^PRSDUTIL;;;453
;;
18 ;;Group 18;1;5;9
;;MECRPRB;INTMT EMP DAYS WORKED PROB PD;1;5;MISC4;13;D SIGN^PRSDUTIL,D^PRSDUTIL;;;452
;;
19 ;;Group 19;1;1;X
;;MEANRYR1;RESTORED ANNUAL LEAVE YEAR-1;1;1;ANNUAL;12;;;;471
;;
20 ;;Group 20;1;5;9
;;MEANRLV1;RESTORED ANNUAL LEAVE BAL-1;1;5;ANNUAL;10;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;469
;;
21 ;;Group 21;1;1;X
;;MEANRYR2;RESTORED ANNUAL LEAVE YEAR-2;1;1;ANNUAL;13;;;;472
;;
22 ;;Group 22;1;5;9
;;MEANRLV2;RESTORED ANNUAL LEAVE BAL-2;1;5;ANNUAL;11;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;470
;;
23 ;;Group 23;1;1;X
;;MEINDMIL;MILITARY LEAVE ELIGIBILITY IND;1;1;MILITARY;2;S:DATA=0 DATA="";;;507
;;
24 ;;Group 24;1;5;9
;;MEMILLEV;MILITARY LEAVE BALANCE;1;5;MILITARY;1;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;506
;;
25 ;;Group 25;1;7;9
;;MFBPBAL;ACSB BACK PAY BALANCE-1;1;7;ACSB;2;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;237
;;
26 ;;Group 26;1;7;9
;;MFODBAL1;OTHER DEDUCTION BALANCE-1;1;7;OTHER;7;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;306
;;
27 ;;Group 27;1;7;9
;;MFODBAL2;OTHER DEDUCTION BALANCE-2;1;7;OTHER;8;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;307
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPRSDPR03 3750 printed Dec 13, 2024@02:25:49 Page 2
PRSDPR03 ;HISC/GWB/FPT-PAID PAYRUN DOWNLOAD RECORD 3 LAYOUT ;08/13/01
+1 ;;4.0;PAID;**34,69**;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 3;27
+1 ;;
1 ;;Group 1;1;9;9
+1 ;;MCSTX-CURRENT-GROSS;STATE TAX-2 GROSS PAY CTPTD;1;9;STATE;19;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;390
+2 ;;
2 ;;Group 2;1;9;9
+1 ;;MCSTX-YTD-GROSS;STATE TAX-2 GROSS PAY YTD;1;9;STATE;20;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;391
+2 ;;
3 ;;Group 3;1;9;9
+1 ;;MCCTX-CURRENT-TAX;CITY TAX-2 AMT WITHHELD CTPTD;1;9;CITY;13;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;199
+2 ;;
4 ;;Group 4;1;9;9
+1 ;;MCCTX-YTD-TAX;CITY TAX-2 AMT WITHHELD YTD;1;9;CITY;14;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;200
+2 ;;
5 ;;Group 5;1;9;9
+1 ;;MCCTX-CURRENT-GROSS;CITY TAX-2 GROSS PAY CPPD;1;9;CITY;18;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;204
+2 ;;
6 ;;Group 6;1;9;9
+1 ;;MCCTX-YTD-GROSS;CITY TAX-2 GROSS PAY YTD;1;9;CITY;19;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;205
+2 ;;
7 ;;Group 7;1;7;9
+1 ;;MCEMPVEH;EMPLOYEE PROVIDED VEHICLE VAL;1;7;OTHER;5;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;304
+2 ;;
8 ;;Group 8;1;9;9
+1 ;;MDOTGSS1;OTHER TAX GROSS PAY YTD-1;1;9;OTHER;15;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;314
+2 ;;
9 ;;Group 9;1;9;9
+1 ;;MDOTGSS2;OTHER TAX GROSS PAY YTD-2;1;9;OTHER;16;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;315
+2 ;;
10 ;;Group 10;1;7;9
+1 ;;MDFDBAL;FTL DEBT BALANCE;1;7;FED;9;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;220
+2 ;;
11 ;;Group 11;1;5;9
+1 ;;MDEIC;EARNED INCOME CREDIT AMT EPPD;1;5;MISC4;7;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;446
+2 ;;
12 ;;Group 12;1;7;9
+1 ;;MDEICYTD;EARNED INCOME CREDIT AMT YTD;1;7;MISC4;8;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;447
+2 ;;
13 ;;Group 13;1;1;X
+1 ;;MDOPT-DEDUCTION-IND;OCC PRIV TAX DEDUCTION IND;1;1;OTHER;6;;;;305
+2 ;;
14 ;;Group 14;7;43;9
+1 ;;MELWOPCT;LWOP CONTROL UNITS LYTD;1;3;LWOP;4;D SIGN^PRSDUTIL S DATA=+DATA;;;518
+2 ;;MELWPAYR;LWOP WG/PW PYTD;4;8;LWOP;10;D SIGN^PRSDUTIL S DATA=+DATA;;;524
+3 ;;MELWOPYR;LWOP LYTD;9;15;LWOP;6;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;520
+4 ;;MELWPCAL;LWOP CCY;16;22;LWOP;3;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;517
+5 ;;MELWPSTP;LWOP THIS STEP;23;29;LWOP;9;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;523
+6 ;;MELWPPRB;LWOP PROB PD;30;36;LWOP;7;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;521
+7 ;;MELWPPRO;LWOP SINCE PROM;37;43;LWOP;8;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;522
+8 ;;
15 ;;Group 15;1;7;9
+1 ;;MEPTIHRS;PART TIME/INTERMIT HRS TOTAL;1;7;1;23;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;70
+2 ;;
16 ;;Group 16;1;5;9
+1 ;;MECRCALY;INTMT EMP DAYS WORKED YTD;1;5;MISC4;15;D SIGN^PRSDUTIL,D^PRSDUTIL;;;454
+2 ;;
17 ;;Group 17;1;5;9
+1 ;;MECRISTP;INTMT EMP DAYS WORKED STEP;1;5;MISC4;14;D SIGN^PRSDUTIL,D^PRSDUTIL;;;453
+2 ;;
18 ;;Group 18;1;5;9
+1 ;;MECRPRB;INTMT EMP DAYS WORKED PROB PD;1;5;MISC4;13;D SIGN^PRSDUTIL,D^PRSDUTIL;;;452
+2 ;;
19 ;;Group 19;1;1;X
+1 ;;MEANRYR1;RESTORED ANNUAL LEAVE YEAR-1;1;1;ANNUAL;12;;;;471
+2 ;;
20 ;;Group 20;1;5;9
+1 ;;MEANRLV1;RESTORED ANNUAL LEAVE BAL-1;1;5;ANNUAL;10;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;469
+2 ;;
21 ;;Group 21;1;1;X
+1 ;;MEANRYR2;RESTORED ANNUAL LEAVE YEAR-2;1;1;ANNUAL;13;;;;472
+2 ;;
22 ;;Group 22;1;5;9
+1 ;;MEANRLV2;RESTORED ANNUAL LEAVE BAL-2;1;5;ANNUAL;11;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;470
+2 ;;
23 ;;Group 23;1;1;X
+1 ;;MEINDMIL;MILITARY LEAVE ELIGIBILITY IND;1;1;MILITARY;2;S:DATA=0 DATA="";;;507
+2 ;;
24 ;;Group 24;1;5;9
+1 ;;MEMILLEV;MILITARY LEAVE BALANCE;1;5;MILITARY;1;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;506
+2 ;;
25 ;;Group 25;1;7;9
+1 ;;MFBPBAL;ACSB BACK PAY BALANCE-1;1;7;ACSB;2;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;237
+2 ;;
26 ;;Group 26;1;7;9
+1 ;;MFODBAL1;OTHER DEDUCTION BALANCE-1;1;7;OTHER;7;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;306
+2 ;;
27 ;;Group 27;1;7;9
+1 ;;MFODBAL2;OTHER DEDUCTION BALANCE-2;1;7;OTHER;8;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;307
