Routine: PRSDPR06

PRSDPR06 ;HISC/GWB/FPT-PAID PAYRUN DOWNLOAD RECORD 6 LAYOUT ;6/24/93  12:54

 ;;4.0;PAID;**146**;Sep 21, 1995;Build 7

 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

RECORD ;;Record 6;38

 ;PRS*4.0*146 changes piece 6 of the UNIFORM ALLOWANCE AMT CPPD field record to 6. This is due to a DD change to the field allowing 6 characters instead of 5

;;

1 ;;Group 1;1;6;9

 ;;AUNIF;UNIFORM ALLOWANCE AMT CPPD;1;6;UNIFORM;1;D SIGN^PRSDUTIL,DD^PRSDUTIL;5;29;563;A

;;

2 ;;Group 2;1;5;9

 ;;AQTRS;QUARTERS DEDUCTION CPPD;1;5;QSGP;8;D SIGN^PRSDUTIL,DD^PRSDUTIL;1;25;325;A

;;

3 ;;Group 3;1;5;9

 ;;ASUBSIST;SUBSISTANCE DEDUCTION CPPD;1;5;QSGP;10;D SIGN^PRSDUTIL,DD^PRSDUTIL;1;26;327;A

;;

4 ;;Group 4;1;5;9

 ;;AGAR;GARAGE DEDUCTION CPPD;1;5;QSGP;1;D SIGN^PRSDUTIL,DD^PRSDUTIL;1;22;318;A

;;

5 ;;Group 5;1;5;9

 ;;ASATPAY;SATURDAY AMT CPPD;1;5;PREMIUM;16;D SIGN^PRSDUTIL,DD^PRSDUTIL;5;17;558;A

;;

6 ;;Group 6;1;5;9

 ;;ASUNPAY;SUNDAY AMT CPPD;1;5;PREMIUM;18;D SIGN^PRSDUTIL,DD^PRSDUTIL;5;19;560;A

;;

7 ;;Group 7;1;5;9

 ;;ASECTAX;STATE TAX-2 AMT WITHHELD CPPD;1;5;STATE;16;D SIGN^PRSDUTIL,DD^PRSDUTIL;1;3;387;A

;;

8 ;;Group 8;1;7;9

 ;;ALIVING;COLA AMT CPPD;1;7;COLA;1;D SIGN^PRSDUTIL,DD^PRSDUTIL;5;22;527;A

;;

9 ;;Group 9;1;5;9

 ;;APOSTDIF;POST DIFF AMT CPPD;1;5;PREMIUM;15;D SIGN^PRSDUTIL,DD^PRSDUTIL;5;16;557;A

;;

10 ;;Group 10;1;5;9

 ;;ALUMPSUMHD;ANNUAL LEAVE LUMP SUM HRS/DAYS;1;5;LUMPSUM;2;D SIGN^PRSDUTIL,DD^PRSDUTIL;5;27;526;A

;;

11 ;;Group 11;1;7;9

 ;;ALMPSUM;ANNUAL LEAVE LUMP SUM AMT;1;7;LUMPSUM;1;D SIGN^PRSDUTIL,DD^PRSDUTIL;5;26;525;A

;;

12 ;;Group 12;1;7;9

 ;;AAWARD;INCENTIVE AWARD;1;7;AWARDS;1;D SIGN^PRSDUTIL,DD^PRSDUTIL;5;24;587;A

;;

13 ;;Group 13;1;7;9

 ;;ASTAPAY;DEBT REFUND ACCT 36X6875 CPPD;1;7;OTHER;4;D SIGN^PRSDUTIL,DD^PRSDUTIL;2;2;303;A

;;

14 ;;Group 14;1;7;9

 ;;ADPCPAY;NET PAY OUT-OF-SYSTEM AMT CPPD;1;7;PAY;9;D SIGN^PRSDUTIL,DD^PRSDUTIL;5;3;542;A

;;

15 ;;Group 15;1;7;9

 ;;AOTHER;DEBT DEPOSIT ACCT 36X6875 CPPD;1;7;OTHER;2;D SIGN^PRSDUTIL,DD^PRSDUTIL;2;1;301;A

;;

16 ;;Group 16;1;5;9

 ;;AQTRNOHSK;QUARTERS NON-HSKP DED CPPD;1;5;QSGP;3;D SIGN^PRSDUTIL,DD^PRSDUTIL;1;24;320;A

;;

17 ;;Group 17;1;5;9

 ;;AOPTINS;FEGLI STANDARD DEDUCTION CPPD;1;5;FEGLI;6;D SIGN^PRSDUTIL,DD^PRSDUTIL;1;16;228;A

;;

18 ;;Group 18;1;7;9

 ;;AMILRET;MSD DEDUCTION CPPD;1;7;MSD2;4;D SIGN^PRSDUTIL,DD^PRSDUTIL;1;29;279;A

;;

19 ;;Group 19;1;7;9

 ;;AFICAEMP;OASDI TAX AMT WITHHELD CPPD;1;7;OASDI;1;D SIGN^PRSDUTIL,DD^PRSDUTIL;1;8;290;A

;;

20 ;;Group 20;1;7;9

 ;;ARETIRE;RETIREMENT DED CPPD;1;7;RETIRE;9;D SIGN^PRSDUTIL,DD^PRSDUTIL;1;20;337;A

;;

21 ;;Grroup 21;1;7;9

 ;;AOTPAY;OVERTIME AMT CPPD;1;7;PREMIUM;12;D SIGN^PRSDUTIL,DD^PRSDUTIL;5;14;554;A

;;

22 ;;Group 22;1;7;9

 ;;AUOTPAY;AUO AMT CPPD;1;7;PREMIUM;1;D SIGN^PRSDUTIL,DD^PRSDUTIL;5;23;543;A

;;

23 ;;Group 23;1;7;9

 ;;ASPSALRAT;SPECIAL PAY RATE DIFFERENCE;1;7;1;35;D SIGN^PRSDUTIL,DD^PRSDUTIL;6;4;82;A

;;

24 ;;Group 24;1;5;9

 ;;AANNUSED;ANNUAL LEAVE USED CPPD;1;5;ANNUAL;6;D SIGN^PRSDUTIL,DD^PRSDUTIL;4;1;465;A

;;

25 ;;Group 25;1;5;9

 ;;ASICKUSED;TOTAL SICK LEAVE USED CPPD;1;5;SICK;6;D SIGN^PRSDUTIL,DD^PRSDUTIL;4;2;513;A

;;

26 ;;Group 26;1;3;9

 ;;ANITETIME;NIGHT DIFF HRS CPPD;1;3;PREMIUM;8;D SIGN^PRSDUTIL,AHRS^PRSDUTIL;5;11;550;A

;;

27 ;;Group 27;1;3;9

 ;;AOVRTIME;OVERTIME HRS CPPD;1;3;PREMIUM;13;D SIGN^PRSDUTIL,AHRS^PRSDUTIL;5;15;555;A

;;

28 ;;Group 28;1;3;9

 ;;AHOLTIME;HOLIDAY HOURS;1;3;PREMIUM;5;D SIGN^PRSDUTIL,AHRS^PRSDUTIL;5;9;547;A

;;

29 ;;Group 29;1;3;9

 ;;ALWOPUSED;LWOP HOURS/DAYS CPPD;1;3;LWOP;5;D SIGN^PRSDUTIL,AHRS^PRSDUTIL,NPLWOP^PRSDUTIL;4;5;519;A

;;

30 ;;Group 30;1;3;9

 ;;ANONPATIME;NONPAY HOURS/DAYS CPPD;1;3;1;19;D SIGN^PRSDUTIL,AHRS^PRSDUTIL,NPLWOP^PRSDUTIL;6;2;66;A

;;

31 ;;Group 31;1;3;9

 ;;AREGTIME;UNSCHEDULED HOURS;1;3;MISC;1;D SIGN^PRSDUTIL,AHRS^PRSDUTIL;5;30;530;A

;;

32 ;;Group 32;1;3;9

 ;;ASPECOT;REG HOURS AT OT RATE;1;3;PREMIUM;20;D SIGN^PRSDUTIL,AHRS^PRSDUTIL;5;6;562;A

;;

33 ;;Group 33;1;3;9

 ;;ASUNTIME;SUNDAY HRS CPPD;1;3;PREMIUM;19;D SIGN^PRSDUTIL,AHRS^PRSDUTIL;5;20;561;A

;;

34 ;;Group 34;1;1;9

 ;;AINSGRP;FEGLI AGE CODE CPPD;1;1;FEGLI;2;D SIGN^PRSDUTIL;1;13;224;O

;;

35 ;;Group 35;4;27;9

 ;;ASTA3875;DEBT REFUND ACCT 36F3875 CPPD;1;6;OTHER;3;D SIGN^PRSDUTIL,DD^PRSDUTIL;2;4;302;A

 ;;AOTHER3875;DEBT DEPOSIT ACCT 36F3875 CPPD;7;13;OTHER;1;D SIGN^PRSDUTIL,DD^PRSDUTIL;2;3;300;A

 ;;APARKING;PARKING DEDUCTION CPPD;14;18;QSGP;4;D SIGN^PRSDUTIL,DD^PRSDUTIL;1;23;321;A

 ;;ANEWSSN;NEW SSN;19;27;0;35;S:DATA="000000000" DATA="" D:DATA'="" NEWSSN^PRSDUTIL;6;1;34;O

;;

36 ;;Group 36;1;7;9

 ;;APERFORM-AWARD;PERFORMANCE AWARD;1;7;AWARDS;4;D SIGN^PRSDUTIL,DD^PRSDUTIL;5;31;587.1;A

;;

37 ;;Group 37;1;7;9

 ;;AINCENT-AWARD;INCENTIVE AWARD;1;7;AWARDS;1;D SIGN^PRSDUTIL,DD^PRSDUTIL;5;24;587;A

;;

38 ;;Group 38;1;1;X

 ;;MXLVGRP;LEAVE GROUP;1;1;0;15;;;;14

;;

39 ;;Group 39;1;7;9

 ;;ALOCAL-SALARY;LOCALITY PAY CPPD;1;7;MISC;21;D SIGN^PRSDUTIL,DD^PRSDUTIL;8;30;83.2;A

;;

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPRSDPR06   5147     printed  Mar 13, 2025@21:30:54                                                                                                                                                                                                    Page 2

PRSDPR06  ;HISC/GWB/FPT-PAID PAYRUN DOWNLOAD RECORD 6 LAYOUT ;6/24/93  12:54

 +1       ;;4.0;PAID;**146**;Sep 21, 1995;Build 7

 +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 6;38

 +1       ;PRS*4.0*146 changes piece 6 of the UNIFORM ALLOWANCE AMT CPPD field record to 6. This is due to a DD change to the field allowing 6 characters instead of 5

 +2       ;;

1         ;;Group 1;1;6;9

 +1       ;;AUNIF;UNIFORM ALLOWANCE AMT CPPD;1;6;UNIFORM;1;D SIGN^PRSDUTIL,DD^PRSDUTIL;5;29;563;A

 +2       ;;

2         ;;Group 2;1;5;9

 +1       ;;AQTRS;QUARTERS DEDUCTION CPPD;1;5;QSGP;8;D SIGN^PRSDUTIL,DD^PRSDUTIL;1;25;325;A

 +2       ;;

3         ;;Group 3;1;5;9

 +1       ;;ASUBSIST;SUBSISTANCE DEDUCTION CPPD;1;5;QSGP;10;D SIGN^PRSDUTIL,DD^PRSDUTIL;1;26;327;A

 +2       ;;

4         ;;Group 4;1;5;9

 +1       ;;AGAR;GARAGE DEDUCTION CPPD;1;5;QSGP;1;D SIGN^PRSDUTIL,DD^PRSDUTIL;1;22;318;A

 +2       ;;

5         ;;Group 5;1;5;9

 +1       ;;ASATPAY;SATURDAY AMT CPPD;1;5;PREMIUM;16;D SIGN^PRSDUTIL,DD^PRSDUTIL;5;17;558;A

 +2       ;;

6         ;;Group 6;1;5;9

 +1       ;;ASUNPAY;SUNDAY AMT CPPD;1;5;PREMIUM;18;D SIGN^PRSDUTIL,DD^PRSDUTIL;5;19;560;A

 +2       ;;

7         ;;Group 7;1;5;9

 +1       ;;ASECTAX;STATE TAX-2 AMT WITHHELD CPPD;1;5;STATE;16;D SIGN^PRSDUTIL,DD^PRSDUTIL;1;3;387;A

 +2       ;;

8         ;;Group 8;1;7;9

 +1       ;;ALIVING;COLA AMT CPPD;1;7;COLA;1;D SIGN^PRSDUTIL,DD^PRSDUTIL;5;22;527;A

 +2       ;;

9         ;;Group 9;1;5;9

 +1       ;;APOSTDIF;POST DIFF AMT CPPD;1;5;PREMIUM;15;D SIGN^PRSDUTIL,DD^PRSDUTIL;5;16;557;A

 +2       ;;

10        ;;Group 10;1;5;9

 +1       ;;ALUMPSUMHD;ANNUAL LEAVE LUMP SUM HRS/DAYS;1;5;LUMPSUM;2;D SIGN^PRSDUTIL,DD^PRSDUTIL;5;27;526;A

 +2       ;;

11        ;;Group 11;1;7;9

 +1       ;;ALMPSUM;ANNUAL LEAVE LUMP SUM AMT;1;7;LUMPSUM;1;D SIGN^PRSDUTIL,DD^PRSDUTIL;5;26;525;A

 +2       ;;

12        ;;Group 12;1;7;9

 +1       ;;AAWARD;INCENTIVE AWARD;1;7;AWARDS;1;D SIGN^PRSDUTIL,DD^PRSDUTIL;5;24;587;A

 +2       ;;

13        ;;Group 13;1;7;9

 +1       ;;ASTAPAY;DEBT REFUND ACCT 36X6875 CPPD;1;7;OTHER;4;D SIGN^PRSDUTIL,DD^PRSDUTIL;2;2;303;A

 +2       ;;

14        ;;Group 14;1;7;9

 +1       ;;ADPCPAY;NET PAY OUT-OF-SYSTEM AMT CPPD;1;7;PAY;9;D SIGN^PRSDUTIL,DD^PRSDUTIL;5;3;542;A

 +2       ;;

15        ;;Group 15;1;7;9

 +1       ;;AOTHER;DEBT DEPOSIT ACCT 36X6875 CPPD;1;7;OTHER;2;D SIGN^PRSDUTIL,DD^PRSDUTIL;2;1;301;A

 +2       ;;

16        ;;Group 16;1;5;9

 +1       ;;AQTRNOHSK;QUARTERS NON-HSKP DED CPPD;1;5;QSGP;3;D SIGN^PRSDUTIL,DD^PRSDUTIL;1;24;320;A

 +2       ;;

17        ;;Group 17;1;5;9

 +1       ;;AOPTINS;FEGLI STANDARD DEDUCTION CPPD;1;5;FEGLI;6;D SIGN^PRSDUTIL,DD^PRSDUTIL;1;16;228;A

 +2       ;;

18        ;;Group 18;1;7;9

 +1       ;;AMILRET;MSD DEDUCTION CPPD;1;7;MSD2;4;D SIGN^PRSDUTIL,DD^PRSDUTIL;1;29;279;A

 +2       ;;

19        ;;Group 19;1;7;9

 +1       ;;AFICAEMP;OASDI TAX AMT WITHHELD CPPD;1;7;OASDI;1;D SIGN^PRSDUTIL,DD^PRSDUTIL;1;8;290;A

 +2       ;;

20        ;;Group 20;1;7;9

 +1       ;;ARETIRE;RETIREMENT DED CPPD;1;7;RETIRE;9;D SIGN^PRSDUTIL,DD^PRSDUTIL;1;20;337;A

 +2       ;;

21        ;;Grroup 21;1;7;9

 +1       ;;AOTPAY;OVERTIME AMT CPPD;1;7;PREMIUM;12;D SIGN^PRSDUTIL,DD^PRSDUTIL;5;14;554;A

 +2       ;;

22        ;;Group 22;1;7;9

 +1       ;;AUOTPAY;AUO AMT CPPD;1;7;PREMIUM;1;D SIGN^PRSDUTIL,DD^PRSDUTIL;5;23;543;A

 +2       ;;

23        ;;Group 23;1;7;9

 +1       ;;ASPSALRAT;SPECIAL PAY RATE DIFFERENCE;1;7;1;35;D SIGN^PRSDUTIL,DD^PRSDUTIL;6;4;82;A

 +2       ;;

24        ;;Group 24;1;5;9

 +1       ;;AANNUSED;ANNUAL LEAVE USED CPPD;1;5;ANNUAL;6;D SIGN^PRSDUTIL,DD^PRSDUTIL;4;1;465;A

 +2       ;;

25        ;;Group 25;1;5;9

 +1       ;;ASICKUSED;TOTAL SICK LEAVE USED CPPD;1;5;SICK;6;D SIGN^PRSDUTIL,DD^PRSDUTIL;4;2;513;A

 +2       ;;

26        ;;Group 26;1;3;9

 +1       ;;ANITETIME;NIGHT DIFF HRS CPPD;1;3;PREMIUM;8;D SIGN^PRSDUTIL,AHRS^PRSDUTIL;5;11;550;A

 +2       ;;

27        ;;Group 27;1;3;9

 +1       ;;AOVRTIME;OVERTIME HRS CPPD;1;3;PREMIUM;13;D SIGN^PRSDUTIL,AHRS^PRSDUTIL;5;15;555;A

 +2       ;;

28        ;;Group 28;1;3;9

 +1       ;;AHOLTIME;HOLIDAY HOURS;1;3;PREMIUM;5;D SIGN^PRSDUTIL,AHRS^PRSDUTIL;5;9;547;A

 +2       ;;

29        ;;Group 29;1;3;9

 +1       ;;ALWOPUSED;LWOP HOURS/DAYS CPPD;1;3;LWOP;5;D SIGN^PRSDUTIL,AHRS^PRSDUTIL,NPLWOP^PRSDUTIL;4;5;519;A

 +2       ;;

30        ;;Group 30;1;3;9

 +1       ;;ANONPATIME;NONPAY HOURS/DAYS CPPD;1;3;1;19;D SIGN^PRSDUTIL,AHRS^PRSDUTIL,NPLWOP^PRSDUTIL;6;2;66;A

 +2       ;;

31        ;;Group 31;1;3;9

 +1       ;;AREGTIME;UNSCHEDULED HOURS;1;3;MISC;1;D SIGN^PRSDUTIL,AHRS^PRSDUTIL;5;30;530;A

 +2       ;;

32        ;;Group 32;1;3;9

 +1       ;;ASPECOT;REG HOURS AT OT RATE;1;3;PREMIUM;20;D SIGN^PRSDUTIL,AHRS^PRSDUTIL;5;6;562;A

 +2       ;;

33        ;;Group 33;1;3;9

 +1       ;;ASUNTIME;SUNDAY HRS CPPD;1;3;PREMIUM;19;D SIGN^PRSDUTIL,AHRS^PRSDUTIL;5;20;561;A

 +2       ;;

34        ;;Group 34;1;1;9

 +1       ;;AINSGRP;FEGLI AGE CODE CPPD;1;1;FEGLI;2;D SIGN^PRSDUTIL;1;13;224;O

 +2       ;;

35        ;;Group 35;4;27;9

 +1       ;;ASTA3875;DEBT REFUND ACCT 36F3875 CPPD;1;6;OTHER;3;D SIGN^PRSDUTIL,DD^PRSDUTIL;2;4;302;A

 +2       ;;AOTHER3875;DEBT DEPOSIT ACCT 36F3875 CPPD;7;13;OTHER;1;D SIGN^PRSDUTIL,DD^PRSDUTIL;2;3;300;A

 +3       ;;APARKING;PARKING DEDUCTION CPPD;14;18;QSGP;4;D SIGN^PRSDUTIL,DD^PRSDUTIL;1;23;321;A

 +4       ;;ANEWSSN;NEW SSN;19;27;0;35;S:DATA="000000000" DATA="" D:DATA'="" NEWSSN^PRSDUTIL;6;1;34;O

 +5       ;;

36        ;;Group 36;1;7;9

 +1       ;;APERFORM-AWARD;PERFORMANCE AWARD;1;7;AWARDS;4;D SIGN^PRSDUTIL,DD^PRSDUTIL;5;31;587.1;A

 +2       ;;

37        ;;Group 37;1;7;9

 +1       ;;AINCENT-AWARD;INCENTIVE AWARD;1;7;AWARDS;1;D SIGN^PRSDUTIL,DD^PRSDUTIL;5;24;587;A

 +2       ;;

38        ;;Group 38;1;1;X

 +1       ;;MXLVGRP;LEAVE GROUP;1;1;0;15;;;;14

 +2       ;;

39        ;;Group 39;1;7;9

 +1       ;;ALOCAL-SALARY;LOCALITY PAY CPPD;1;7;MISC;21;D SIGN^PRSDUTIL,DD^PRSDUTIL;8;30;83.2;A

 +2       ;;

PRSDPR06.m