PRSDPR07.m

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

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---PRSDPR07   4316     printed  Apr 09, 2024@21:31:33                                                                                                                                                                                                    Page 2

PRSDPR07  ;HISC/MGD-PAID PAYRUN DOWNLOAD RECORD 7 LAYOUT ;05/13/04

 +1       ;;4.0;PAID;**86,73**;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 7;28

 +1       ;;

1         ;;Group 1;1;7;9

 +1       ;;AFICAGWG-D;OASDI TAX GROSS PAY CPPD;1;7;OASDI;4;D SIGN^PRSDUTIL,DD^PRSDUTIL;1;9;293;A

 +2       ;;

2         ;;Group 2;1;5;9

 +1       ;;AADDLI;FEGLI ADDNL DEDUCTION CPPD;1;5;FEGLI;1;D SIGN^PRSDUTIL,DD^PRSDUTIL;1;11;223;A

 +2       ;;

3         ;;Group 3;1;7;9

 +1       ;;AGARNAC;ACSB ACS AMT CPPD;1;7;ACSB;1;D SIGN^PRSDUTIL,DD^PRSDUTIL;1;27;236;A

 +2       ;;

4         ;;Group 4;1;7;9

 +1       ;;AGARNBNK;ACSB BANKRUPTCY AMT CPPD;1;7;ACSB;6;D SIGN^PRSDUTIL,DD^PRSDUTIL;1;28;241;A

 +2       ;;

5         ;;Group 5;1;7;9

 +1       ;;AVOLALLOT;VOLUNTARY ALLOTMENT AMT CPPD;1;7;VALLOT;2;D SIGN^PRSDUTIL S DATA=+DATA;2;24;436;A

 +2       ;;

6         ;;Group 6;1;6;9

 +1       ;;ASAVAMT1;SAVINGS ALLOTMENT-1 AMT CPPD;1;6;SALLOT;2;D SIGN^PRSDUTIL,DD^PRSDUTIL;2;22;340;A

 +2       ;;

7         ;;Group 7;1;6;9

 +1       ;;ASAVAMT2;SAVINGS ALLOTMENT-2 AMT CPPD;1;6;SALLOT;4;D SIGN^PRSDUTIL,DD^PRSDUTIL;2;23;342;A

 +2       ;;

8         ;;Group 8;1;7;9

 +1       ;;ASES-AWARD;SES PERFORMANCE AWARD AMT CPPD;1;7;AWARDS;3;D SIGN^PRSDUTIL,DD^PRSDUTIL;5;25;589;A

 +2       ;;

9         ;;Group 9;1;7;9

 +1       ;;AMVTAX;MOVING EXPENSES CPPD;1;7;MISC;3;D SIGN^PRSDUTIL,DD^PRSDUTIL;5;28;532;A

 +2       ;;

10        ;;Group 10;1;6;9

 +1       ;;ACTAX;CITY TAX-1 AMT WITHHELD CPPD;1;6;CITY;2;D SIGN^PRSDUTIL,DD^PRSDUTIL;1;4;188;A

 +2       ;;

11        ;;Group 11;1;6;9

 +1       ;;AONCLHRS;ON CALL HRS CPPD;1;6;PREMIUM;11;S DATA=$E(DATA,1,$L(DATA)-2) D AHRS^PRSDUTIL;5;12;553;A

 +2       ;;

12        ;;Group 12;1;7;9

 +1       ;;AONCLPAY;ON CALL AMT CPPD;1;7;PREMIUM;10;D SIGN^PRSDUTIL,DD^PRSDUTIL;5;13;552;A

 +2       ;;

13        ;;Group 13;1;2;9

 +1       ;;ANPAL;NONPAY ANNUAL LEAVE USED CPPD;1;2;ANNUAL;9;D SIGN^PRSDUTIL S DATA=+DATA;4;6;468;O

 +2       ;;

14        ;;Group 14;1;1;X

 +1       ;;AFLSAWK12B;FLSA OVERTIME WEEK CODE CPPD;1;1;MISC;2;;5;21;531;O

 +2       ;;

15        ;;Group 15;1;4;9

 +1       ;;AENVIRON;ENVIRONMENTAL HAZARD HRS CPPD;1;4;PREMIUM;3;D SIGN^PRSDUTIL,AHRS^PRSDUTIL;5;7;545;A

 +2       ;;

16        ;;Group 16;1;7;9

 +1       ;;APDSPEC;SPECIAL SALARY ADJUSTMENT;1;7;T38;32;D SIGN^PRSDUTIL,DD^PRSDUTIL;6;3;150;A

 +2       ;;

17        ;;Group 17;2;8;X

 +1       ;;MXOPMSER/MXTITCOD;OCCUPATION SERIES & TITLE;1;6;0;17;D TITLE^PRSDUTIL;;;16

 +2       ;;MXASSGCD;ASSIGNMENT;7;8;0;4;;;;3

 +3       ;;

18        ;;Group 18;1;6;9

 +1       ;;AANNU;REEMP ANNUITANT BASE PAY REDUC;1;6;PAY;5;D SIGN^PRSDUTIL,DD^PRSDUTIL;5;4;538;A

 +2       ;;

19        ;;Group 19;1;5;9

 +1       ;;AEIC;EARNED INCOME CREDIT AMT CPPD;1;5;MISC4;6;D SIGN^PRSDUTIL,DD^PRSDUTIL;3;1;445;A

 +2       ;;

20        ;;Group 20;1;6;9

 +1       ;;AVCCOST;VCS LEAVE COST ADJUSTMENT AMT;1;6;VCS;18;D SIGN^PRSDUTIL,DD^PRSDUTIL;7;1;583;A

 +2       ;;

21        ;;Grroup 21;1;5;9

 +1       ;;AVCSSALES;VCS SALE SUM PW CPPD;1;5;VCS;21;D SIGN^PRSDUTIL,DD^PRSDUTIL;7;3;586;A

 +2       ;;

22        ;;Group 22;1;1;X

 +1       ;;AVCSPW;VCS MINWAGE CD PW CPPD;1;1;VCS;20;;7;2;585;O

 +2       ;;

23        ;;Group 23;11;71;X

 +1       ;;ATSPEMP-G;TSP GSF EMP DED CPPD;1;7;TSP2;11;D SIGN^PRSDUTIL,DD^PRSDUTIL;2;12;423;A

 +2       ;;ATSPEMP-F;TSP FIF EMP DED CPPD;8;14;TSP2;6;D SIGN^PRSDUTIL,DD^PRSDUTIL;2;11;418;A

 +3       ;;ATSPEMP-C;TSP CSF EMP DED CPPD;15;21;TSP2;1;D SIGN^PRSDUTIL,DD^PRSDUTIL;2;10;413;A

 +4       ;;ATSPVAB-G;TSP GSF GOV BASIC CONTRIB;22;28;TSP2;13;D SIGN^PRSDUTIL,DD^PRSDUTIL;2;15;425;A

 +5       ;;ATSPVAM-G;TSP GSF GOV MATCH CONTRIB;29;35;TSP2;15;D SIGN^PRSDUTIL,DD^PRSDUTIL;2;18;427;A

 +6       ;;ATSPVAB-F;TSP FIF GOV BASIC CONTRIB;36;42;TSP2;8;D SIGN^PRSDUTIL,DD^PRSDUTIL;2;14;420;A

 +7       ;;ATSPVAM-F;TSP FIF GOV MATCH CONTRIB;43;49;TSP2;10;D SIGN^PRSDUTIL,DD^PRSDUTIL;2;17;422;A

 +8       ;;ATSPVAB-C;TSP CSF GOV BASIC CONTRIB;50;56;TSP2;3;D SIGN^PRSDUTIL,DD^PRSDUTIL;2;13;415;A

 +9       ;;ATSPVAM-C;TSP CSF GOV MATCH CONTRIB;57;63;TSP2;5;D SIGN^PRSDUTIL,DD^PRSDUTIL;2;16;417;A

 +10      ;;ATSPLOAN;TSP LOAN DED CPPD;64;70;TSP1;7;D SIGN^PRSDUTIL,DD^PRSDUTIL;2;8;401;A

 +11      ;;ATSPTXCD;TSP PRIOR TAX YEAR ADJ CODE;71;71;TSP1;11;;2;9;405;O

 +12      ;;

24        ;;Group 24;1;1;X

 +1       ;;TPSTATUS;TSP STATUS;1;1;TSP1;15;;;;409

 +2       ;;

25        ;;Group 25;1;8;X

 +1       ;;TPSTADTE;TSP STATUS DATE;1;8;TSP1;16;D DATE^PRSDUTIL;;;410

 +2       ;;

26        ;;Group 26;1;8;X

 +1       ;;TPELIGDTE;TSP ELIG;1;8;TSP1;5;D DATE^PRSDUTIL;;;399

 +2       ;;

27        ;;Group 27;1;6;

 +1       ;;FSA-DEP-CARE-AMT;DPNDT CARE FLX SPEND ACCT CPPD;1;6;FSA;4;D SIGN^PRSDUTIL,DD^PRSDUTIL;9;15;761

 +2       ;;

28        ;;Group 28;1;6;

 +1       ;;FSA-DEP-CARE-AMT-YTD;DPNDT CARE FLX SPEND ACCT YTD;1;6;FSA;3;D SIGN^PRSDUTIL,DD^PRSDUTIL;9;14;760