VistA-FOIAVistA/r/PAID-PRS/PRSDPR03.m

93 lines
3.6 KiB
Mathematica

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