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

93 lines
3.3 KiB
Mathematica

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