PRSDPR05.m

PRSDPR05 ;HISC/MGD-PAID PAYRUN DOWNLOAD RECORD 5 LAYOUT ;05/13/04

 ;;4.0;PAID;**34,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 5;32

 ;;

1 ;;Group 1;1;7;9

 ;;TPVA-1PER;TSP 1-PCT GOV CONTRIB YTD;1;7;TSP1;1;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;395

 ;;

2 ;;Group 2;1;7;9

 ;;TPBASYTD;TSP BASE PAY AMT YTD;1;7;TSP1;3;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;397

 ;;

3 ;;Group 3;1;7;9

 ;;ASCITTAX;CITY TAX-2 AMT WITHHELD CPPD;1;7;CITY;15;D SIGN^PRSDUTIL,DD^PRSDUTIL;1;5;201;A

 ;;

4 ;;Group 4;1;5;9

 ;;AUGFDED;CFC DEDUCTION CPPD;1;5;CFC;3;D SIGN^PRSDUTIL,DD^PRSDUTIL;2;7;211;A

 ;;

5 ;;Group 5;1;5;9

 ;;ACOMP;COMPTIME/CREDIT HRS BALANCE;1;5;COMP;9;D SIGN^PRSDUTIL,DD^PRSDUTIL;4;4;496;O

 ;;

6 ;;Group 6;1;4;9

 ;;AUNIONDUE1;UNION DUES-1 DEDUCTION CPPD;1;4;UNION;4;D SIGN^PRSDUTIL,DD^PRSDUTIL;2;5;431;A

 ;;

7 ;;Group 7;1;4;9

 ;;AUNIONDUE2;UNION DUES-2 DEDUCTION CPPD;1;4;UNION;6;D SIGN^PRSDUTIL,DD^PRSDUTIL;2;6;433;A

 ;;

8 ;;Group 8;1;9;9

 ;;AB1BAL;SAVINGS BOND-1 BALANCE;1;9;BOND1;5;D SIGN^PRSDUTIL,DD^PRSDUTIL;2;19;347;O

 ;;

9 ;;Group 9;1;9;9

 ;;AB2BAL;SAVINGS BOND-2 BALANCE;1;9;BOND2;4;D SIGN^PRSDUTIL,DD^PRSDUTIL;2;20;361;O

 ;;

10 ;;Group 10;1;7;9

 ;;ABASE;BASE PAY CPPD;1;7;PAY;4;D SIGN^PRSDUTIL,DD^PRSDUTIL;5;5;537;A

 ;;

11 ;;Group 11;1;9;9

 ;;AGROSS;GROSS PAY CPPD;1;9;PAY;7;D SIGN^PRSDUTIL,DD^PRSDUTIL;5;1;540;A

 ;;

12 ;;Group 12;1;7;9

 ;;ARETEMP;CSRS REEMP ANNUITANT DED CPPD;1;7;RETIRE;8;D SIGN^PRSDUTIL,DD^PRSDUTIL;1;19;336;A

 ;;

13 ;;Group 13;1;7;9

 ;;ANET;NET PAY CPPD;1;7;PAY;8;D SIGN^PRSDUTIL,DD^PRSDUTIL;5;2;541;A

 ;;

14 ;;Group 14;1;7;9

 ;;AWHTAX;FEDERAL TAX AMT WITHHELD CPPD;1;7;FED;5;D SIGN^PRSDUTIL,DD^PRSDUTIL;1;1;216;A

 ;;

15 ;;Group 15;1;7;9

 ;;ARETIREVA;RETIREMENT VA SHARE CPPD;1;7;RETIRE;10;D SIGN^PRSDUTIL,DD^PRSDUTIL;1;21;338;A

 ;;

16 ;;Group 16;1;9;9

 ;;AFICAVA;OASDI TAX VA SHARE CPPD;1;9;OASDI;7;D SIGN^PRSDUTIL,DD^PRSDUTIL;1;10;296;A

 ;;

17 ;;Group 17;1;9;9

 ;;AB1DED;SAVINGS BOND DED SUM CPPD;1;9;BOND1;1;D SIGN^PRSDUTIL,DD^PRSDUTIL,BONDS^PRSDCOMP;2;21;343;A

 ;;

18 ;;Group 18;1;4;9

 ;;ACOMPUSED;COMPTIME/CREDIT HRS USED CPPD;1;4;COMP;18;D SIGN^PRSDUTIL,AHRS^PRSDUTIL;4;3;505;A

 ;;

19 ;;Group 19;1;6;9

 ;;ASTAX;STATE TAX-1 AMT WITHHELD CPPD;1;6;STATE;5;D SIGN^PRSDUTIL,DD^PRSDUTIL;1;2;376;A

 ;;

20 ;;Group 20;1;5;9

 ;;ALIDEDEMP;FEGLI BASIC DEDUCTION CPPD;1;5;FEGLI;3;D SIGN^PRSDUTIL,DD^PRSDUTIL;1;14;225;A

 ;;

21 ;;Group 21;1;5;9

 ;;ALIDEDVA;FEGLI VA SHARE CPPD;1;5;FEGLI;7;D SIGN^PRSDUTIL,DD^PRSDUTIL;1;15;229;A

 ;;

22 ;;Group 22;1;5;9

 ;;AFAMLI;FEGLI FAMILY DEDUCTION CPPD;1;5;FEGLI;5;D SIGN^PRSDUTIL,DD^PRSDUTIL;1;12;227;A

 ;;

23 ;;Group 23;1;7;9

 ;;AMEDTAX;MEDICARE AMT WITHHELD CPPD;1;7;MEDICARE;1;D SIGN^PRSDUTIL,DD^PRSDUTIL;1;6;250;A

 ;;

24 ;;Group 24;1;7;9

 ;;AMEDWAGE;MEDICARE GROSS PAY CPPD;1;7;MEDICARE;4;D SIGN^PRSDUTIL,DD^PRSDUTIL;1;7;253;A

 ;;

25 ;;Group 25;1;7;9

 ;;AHIDEDEMP;HEALTH BENEFITS DEDUCTION CPPD;1;7;FEHB;1;D SIGN^PRSDUTIL,DD^PRSDUTIL;1;17;230;A

 ;;

26 ;;Group 26;1;7;9

 ;;AHIDEDVA;HEALTH BENEFITS VA SHARE CPPD;1;7;FEHB;6;D SIGN^PRSDUTIL,DD^PRSDUTIL;1;18;235;A

 ;;

27 ;;Group 27;1;7;9

 ;;ASEVPAY;SEVERANCE PAY AMT CPPD;1;7;MISC4;18;D SIGN^PRSDUTIL,DD^PRSDUTIL;3;2;457;A

 ;;

28 ;;Group 28;1;5;9

 ;;ANITEPAY;NIGHT DIFF AMT CPPD;1;5;PREMIUM;7;D SIGN^PRSDUTIL,DD^PRSDUTIL;5;10;549;A

 ;;

29 ;;Group 29;1;5;9

 ;;AHOLPAY;HOLIDAY AMT;1;5;PREMIUM;4;D SIGN^PRSDUTIL,DD^PRSDUTIL;5;8;546;A

 ;;

30 ;;Group 30;1;5;9

 ;;ASTDBY;STANDBY AMT CPPD;1;5;PREMIUM;17;D SIGN^PRSDUTIL,DD^PRSDUTIL;5;18;559;A

 ;;

31 ;;Group 31;1;7;9

 ;;AGARNISH-COM3;COMMERCIAL GARNISHMENT-3;1;7;ACSB;21;D SIGN^PRSDUTIL,DD^PRSDUTIL;3;13;764;

 ;;

32 ;;Group 32;1;7;9

 ;;AGARNISH-COM4;COMMERCIAL GARNISHMENT-4;1;7;ACSB;22;D SIGN^PRSDUTIL,DD^PRSDUTIL;3;14;765;

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---PRSDPR05   3939     printed  Apr 09, 2024@21:31:05                                                                                                                                                                                                    Page 2

PRSDPR05  ;HISC/MGD-PAID PAYRUN DOWNLOAD RECORD 5 LAYOUT ;05/13/04

 +1       ;;4.0;PAID;**34,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 5;32

 +1       ;;

1         ;;Group 1;1;7;9

 +1       ;;TPVA-1PER;TSP 1-PCT GOV CONTRIB YTD;1;7;TSP1;1;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;395

 +2       ;;

2         ;;Group 2;1;7;9

 +1       ;;TPBASYTD;TSP BASE PAY AMT YTD;1;7;TSP1;3;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;397

 +2       ;;

3         ;;Group 3;1;7;9

 +1       ;;ASCITTAX;CITY TAX-2 AMT WITHHELD CPPD;1;7;CITY;15;D SIGN^PRSDUTIL,DD^PRSDUTIL;1;5;201;A

 +2       ;;

4         ;;Group 4;1;5;9

 +1       ;;AUGFDED;CFC DEDUCTION CPPD;1;5;CFC;3;D SIGN^PRSDUTIL,DD^PRSDUTIL;2;7;211;A

 +2       ;;

5         ;;Group 5;1;5;9

 +1       ;;ACOMP;COMPTIME/CREDIT HRS BALANCE;1;5;COMP;9;D SIGN^PRSDUTIL,DD^PRSDUTIL;4;4;496;O

 +2       ;;

6         ;;Group 6;1;4;9

 +1       ;;AUNIONDUE1;UNION DUES-1 DEDUCTION CPPD;1;4;UNION;4;D SIGN^PRSDUTIL,DD^PRSDUTIL;2;5;431;A

 +2       ;;

7         ;;Group 7;1;4;9

 +1       ;;AUNIONDUE2;UNION DUES-2 DEDUCTION CPPD;1;4;UNION;6;D SIGN^PRSDUTIL,DD^PRSDUTIL;2;6;433;A

 +2       ;;

8         ;;Group 8;1;9;9

 +1       ;;AB1BAL;SAVINGS BOND-1 BALANCE;1;9;BOND1;5;D SIGN^PRSDUTIL,DD^PRSDUTIL;2;19;347;O

 +2       ;;

9         ;;Group 9;1;9;9

 +1       ;;AB2BAL;SAVINGS BOND-2 BALANCE;1;9;BOND2;4;D SIGN^PRSDUTIL,DD^PRSDUTIL;2;20;361;O

 +2       ;;

10        ;;Group 10;1;7;9

 +1       ;;ABASE;BASE PAY CPPD;1;7;PAY;4;D SIGN^PRSDUTIL,DD^PRSDUTIL;5;5;537;A

 +2       ;;

11        ;;Group 11;1;9;9

 +1       ;;AGROSS;GROSS PAY CPPD;1;9;PAY;7;D SIGN^PRSDUTIL,DD^PRSDUTIL;5;1;540;A

 +2       ;;

12        ;;Group 12;1;7;9

 +1       ;;ARETEMP;CSRS REEMP ANNUITANT DED CPPD;1;7;RETIRE;8;D SIGN^PRSDUTIL,DD^PRSDUTIL;1;19;336;A

 +2       ;;

13        ;;Group 13;1;7;9

 +1       ;;ANET;NET PAY CPPD;1;7;PAY;8;D SIGN^PRSDUTIL,DD^PRSDUTIL;5;2;541;A

 +2       ;;

14        ;;Group 14;1;7;9

 +1       ;;AWHTAX;FEDERAL TAX AMT WITHHELD CPPD;1;7;FED;5;D SIGN^PRSDUTIL,DD^PRSDUTIL;1;1;216;A

 +2       ;;

15        ;;Group 15;1;7;9

 +1       ;;ARETIREVA;RETIREMENT VA SHARE CPPD;1;7;RETIRE;10;D SIGN^PRSDUTIL,DD^PRSDUTIL;1;21;338;A

 +2       ;;

16        ;;Group 16;1;9;9

 +1       ;;AFICAVA;OASDI TAX VA SHARE CPPD;1;9;OASDI;7;D SIGN^PRSDUTIL,DD^PRSDUTIL;1;10;296;A

 +2       ;;

17        ;;Group 17;1;9;9

 +1       ;;AB1DED;SAVINGS BOND DED SUM CPPD;1;9;BOND1;1;D SIGN^PRSDUTIL,DD^PRSDUTIL,BONDS^PRSDCOMP;2;21;343;A

 +2       ;;

18        ;;Group 18;1;4;9

 +1       ;;ACOMPUSED;COMPTIME/CREDIT HRS USED CPPD;1;4;COMP;18;D SIGN^PRSDUTIL,AHRS^PRSDUTIL;4;3;505;A

 +2       ;;

19        ;;Group 19;1;6;9

 +1       ;;ASTAX;STATE TAX-1 AMT WITHHELD CPPD;1;6;STATE;5;D SIGN^PRSDUTIL,DD^PRSDUTIL;1;2;376;A

 +2       ;;

20        ;;Group 20;1;5;9

 +1       ;;ALIDEDEMP;FEGLI BASIC DEDUCTION CPPD;1;5;FEGLI;3;D SIGN^PRSDUTIL,DD^PRSDUTIL;1;14;225;A

 +2       ;;

21        ;;Group 21;1;5;9

 +1       ;;ALIDEDVA;FEGLI VA SHARE CPPD;1;5;FEGLI;7;D SIGN^PRSDUTIL,DD^PRSDUTIL;1;15;229;A

 +2       ;;

22        ;;Group 22;1;5;9

 +1       ;;AFAMLI;FEGLI FAMILY DEDUCTION CPPD;1;5;FEGLI;5;D SIGN^PRSDUTIL,DD^PRSDUTIL;1;12;227;A

 +2       ;;

23        ;;Group 23;1;7;9

 +1       ;;AMEDTAX;MEDICARE AMT WITHHELD CPPD;1;7;MEDICARE;1;D SIGN^PRSDUTIL,DD^PRSDUTIL;1;6;250;A

 +2       ;;

24        ;;Group 24;1;7;9

 +1       ;;AMEDWAGE;MEDICARE GROSS PAY CPPD;1;7;MEDICARE;4;D SIGN^PRSDUTIL,DD^PRSDUTIL;1;7;253;A

 +2       ;;

25        ;;Group 25;1;7;9

 +1       ;;AHIDEDEMP;HEALTH BENEFITS DEDUCTION CPPD;1;7;FEHB;1;D SIGN^PRSDUTIL,DD^PRSDUTIL;1;17;230;A

 +2       ;;

26        ;;Group 26;1;7;9

 +1       ;;AHIDEDVA;HEALTH BENEFITS VA SHARE CPPD;1;7;FEHB;6;D SIGN^PRSDUTIL,DD^PRSDUTIL;1;18;235;A

 +2       ;;

27        ;;Group 27;1;7;9

 +1       ;;ASEVPAY;SEVERANCE PAY AMT CPPD;1;7;MISC4;18;D SIGN^PRSDUTIL,DD^PRSDUTIL;3;2;457;A

 +2       ;;

28        ;;Group 28;1;5;9

 +1       ;;ANITEPAY;NIGHT DIFF AMT CPPD;1;5;PREMIUM;7;D SIGN^PRSDUTIL,DD^PRSDUTIL;5;10;549;A

 +2       ;;

29        ;;Group 29;1;5;9

 +1       ;;AHOLPAY;HOLIDAY AMT;1;5;PREMIUM;4;D SIGN^PRSDUTIL,DD^PRSDUTIL;5;8;546;A

 +2       ;;

30        ;;Group 30;1;5;9

 +1       ;;ASTDBY;STANDBY AMT CPPD;1;5;PREMIUM;17;D SIGN^PRSDUTIL,DD^PRSDUTIL;5;18;559;A

 +2       ;;

31        ;;Group 31;1;7;9

 +1       ;;AGARNISH-COM3;COMMERCIAL GARNISHMENT-3;1;7;ACSB;21;D SIGN^PRSDUTIL,DD^PRSDUTIL;3;13;764;

 +2       ;;

32        ;;Group 32;1;7;9

 +1       ;;AGARNISH-COM4;COMMERCIAL GARNISHMENT-4;1;7;ACSB;22;D SIGN^PRSDUTIL,DD^PRSDUTIL;3;14;765;