VistA-WorldVistAEHR/r/PAID-PRS/PRSDPR07.m

101 lines
4.1 KiB
Mathematica

PRSDPR07 ;HISC/MGD-PAID PAYRUN DOWNLOAD RECORD 7 LAYOUT ;05/13/04
;;4.0;PAID;**86,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 7;28
;;
1 ;;Group 1;1;7;9
;;AFICAGWG-D;OASDI TAX GROSS PAY CPPD;1;7;OASDI;4;D SIGN^PRSDUTIL,DD^PRSDUTIL;1;9;293;A
;;
2 ;;Group 2;1;5;9
;;AADDLI;FEGLI ADDNL DEDUCTION CPPD;1;5;FEGLI;1;D SIGN^PRSDUTIL,DD^PRSDUTIL;1;11;223;A
;;
3 ;;Group 3;1;7;9
;;AGARNAC;ACSB ACS AMT CPPD;1;7;ACSB;1;D SIGN^PRSDUTIL,DD^PRSDUTIL;1;27;236;A
;;
4 ;;Group 4;1;7;9
;;AGARNBNK;ACSB BANKRUPTCY AMT CPPD;1;7;ACSB;6;D SIGN^PRSDUTIL,DD^PRSDUTIL;1;28;241;A
;;
5 ;;Group 5;1;7;9
;;AVOLALLOT;VOLUNTARY ALLOTMENT AMT CPPD;1;7;VALLOT;2;D SIGN^PRSDUTIL S DATA=+DATA;2;24;436;A
;;
6 ;;Group 6;1;6;9
;;ASAVAMT1;SAVINGS ALLOTMENT-1 AMT CPPD;1;6;SALLOT;2;D SIGN^PRSDUTIL,DD^PRSDUTIL;2;22;340;A
;;
7 ;;Group 7;1;6;9
;;ASAVAMT2;SAVINGS ALLOTMENT-2 AMT CPPD;1;6;SALLOT;4;D SIGN^PRSDUTIL,DD^PRSDUTIL;2;23;342;A
;;
8 ;;Group 8;1;7;9
;;ASES-AWARD;SES PERFORMANCE AWARD AMT CPPD;1;7;AWARDS;3;D SIGN^PRSDUTIL,DD^PRSDUTIL;5;25;589;A
;;
9 ;;Group 9;1;7;9
;;AMVTAX;MOVING EXPENSES CPPD;1;7;MISC;3;D SIGN^PRSDUTIL,DD^PRSDUTIL;5;28;532;A
;;
10 ;;Group 10;1;6;9
;;ACTAX;CITY TAX-1 AMT WITHHELD CPPD;1;6;CITY;2;D SIGN^PRSDUTIL,DD^PRSDUTIL;1;4;188;A
;;
11 ;;Group 11;1;6;9
;;AONCLHRS;ON CALL HRS CPPD;1;6;PREMIUM;11;S DATA=$E(DATA,1,$L(DATA)-2) D AHRS^PRSDUTIL;5;12;553;A
;;
12 ;;Group 12;1;7;9
;;AONCLPAY;ON CALL AMT CPPD;1;7;PREMIUM;10;D SIGN^PRSDUTIL,DD^PRSDUTIL;5;13;552;A
;;
13 ;;Group 13;1;2;9
;;ANPAL;NONPAY ANNUAL LEAVE USED CPPD;1;2;ANNUAL;9;D SIGN^PRSDUTIL S DATA=+DATA;4;6;468;O
;;
14 ;;Group 14;1;1;X
;;AFLSAWK12B;FLSA OVERTIME WEEK CODE CPPD;1;1;MISC;2;;5;21;531;O
;;
15 ;;Group 15;1;4;9
;;AENVIRON;ENVIRONMENTAL HAZARD HRS CPPD;1;4;PREMIUM;3;D SIGN^PRSDUTIL,AHRS^PRSDUTIL;5;7;545;A
;;
16 ;;Group 16;1;7;9
;;APDSPEC;SPECIAL SALARY ADJUSTMENT;1;7;T38;32;D SIGN^PRSDUTIL,DD^PRSDUTIL;6;3;150;A
;;
17 ;;Group 17;2;8;X
;;MXOPMSER/MXTITCOD;OCCUPATION SERIES & TITLE;1;6;0;17;D TITLE^PRSDUTIL;;;16
;;MXASSGCD;ASSIGNMENT;7;8;0;4;;;;3
;;
18 ;;Group 18;1;6;9
;;AANNU;REEMP ANNUITANT BASE PAY REDUC;1;6;PAY;5;D SIGN^PRSDUTIL,DD^PRSDUTIL;5;4;538;A
;;
19 ;;Group 19;1;5;9
;;AEIC;EARNED INCOME CREDIT AMT CPPD;1;5;MISC4;6;D SIGN^PRSDUTIL,DD^PRSDUTIL;3;1;445;A
;;
20 ;;Group 20;1;6;9
;;AVCCOST;VCS LEAVE COST ADJUSTMENT AMT;1;6;VCS;18;D SIGN^PRSDUTIL,DD^PRSDUTIL;7;1;583;A
;;
21 ;;Grroup 21;1;5;9
;;AVCSSALES;VCS SALE SUM PW CPPD;1;5;VCS;21;D SIGN^PRSDUTIL,DD^PRSDUTIL;7;3;586;A
;;
22 ;;Group 22;1;1;X
;;AVCSPW;VCS MINWAGE CD PW CPPD;1;1;VCS;20;;7;2;585;O
;;
23 ;;Group 23;11;71;X
;;ATSPEMP-G;TSP GSF EMP DED CPPD;1;7;TSP2;11;D SIGN^PRSDUTIL,DD^PRSDUTIL;2;12;423;A
;;ATSPEMP-F;TSP FIF EMP DED CPPD;8;14;TSP2;6;D SIGN^PRSDUTIL,DD^PRSDUTIL;2;11;418;A
;;ATSPEMP-C;TSP CSF EMP DED CPPD;15;21;TSP2;1;D SIGN^PRSDUTIL,DD^PRSDUTIL;2;10;413;A
;;ATSPVAB-G;TSP GSF GOV BASIC CONTRIB;22;28;TSP2;13;D SIGN^PRSDUTIL,DD^PRSDUTIL;2;15;425;A
;;ATSPVAM-G;TSP GSF GOV MATCH CONTRIB;29;35;TSP2;15;D SIGN^PRSDUTIL,DD^PRSDUTIL;2;18;427;A
;;ATSPVAB-F;TSP FIF GOV BASIC CONTRIB;36;42;TSP2;8;D SIGN^PRSDUTIL,DD^PRSDUTIL;2;14;420;A
;;ATSPVAM-F;TSP FIF GOV MATCH CONTRIB;43;49;TSP2;10;D SIGN^PRSDUTIL,DD^PRSDUTIL;2;17;422;A
;;ATSPVAB-C;TSP CSF GOV BASIC CONTRIB;50;56;TSP2;3;D SIGN^PRSDUTIL,DD^PRSDUTIL;2;13;415;A
;;ATSPVAM-C;TSP CSF GOV MATCH CONTRIB;57;63;TSP2;5;D SIGN^PRSDUTIL,DD^PRSDUTIL;2;16;417;A
;;ATSPLOAN;TSP LOAN DED CPPD;64;70;TSP1;7;D SIGN^PRSDUTIL,DD^PRSDUTIL;2;8;401;A
;;ATSPTXCD;TSP PRIOR TAX YEAR ADJ CODE;71;71;TSP1;11;;2;9;405;O
;;
24 ;;Group 24;1;1;X
;;TPSTATUS;TSP STATUS;1;1;TSP1;15;;;;409
;;
25 ;;Group 25;1;8;X
;;TPSTADTE;TSP STATUS DATE;1;8;TSP1;16;D DATE^PRSDUTIL;;;410
;;
26 ;;Group 26;1;8;X
;;TPELIGDTE;TSP ELIG;1;8;TSP1;5;D DATE^PRSDUTIL;;;399
;;
27 ;;Group 27;1;6;
;;FSA-DEP-CARE-AMT;DPNDT CARE FLX SPEND ACCT CPPD;1;6;FSA;4;D SIGN^PRSDUTIL,DD^PRSDUTIL;9;15;761
;;
28 ;;Group 28;1;6;
;;FSA-DEP-CARE-AMT-YTD;DPNDT CARE FLX SPEND ACCT YTD;1;6;FSA;3;D SIGN^PRSDUTIL,DD^PRSDUTIL;9;14;760