PRSDPR04.m

PRSDPR04 ;HISC/MGD-PAID PAYRUN DOWNLOAD RECORD 4 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 4;13

 ;;

1 ;;Group 1;1;9;9

 ;;MFCOLAYD;COLA AMT YTD;1;9;COLA;2;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;528

 ;;

2 ;;Group 2;16;56;X

 ;;MLCOMT-PP1;COMPTIME/CREDIT HRS PPD1 NAME;1;2;COMP;10;;;;497

 ;;MLCOMT-BAL1;COMPTIME/CREDIT HRS BAL PPD1;3;7;COMP;1;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;488

 ;;MLCOMT-PP2;COMPTIME/CREDIT HRS PPD2 NAME;8;9;COMP;11;;;;498

 ;;MLCOMT-BAL2;COMPTIME/CREDIT HRS BAL PPD2;10;14;COMP;2;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;489

 ;;MLCOMT-PP3;COMPTIME/CREDIT HRS PPD3 NAME;15;16;COMP;12;;;;499

 ;;MLCOMT-BAL3;COMPTIME/CREDIT HRS BAL PPD3;17;21;COMP;3;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;490

 ;;MLCOMT-PP4;COMPTIME/CREDIT HRS PPD4 NAME;22;23;COMP;13;;;;500

 ;;MLCOMT-BAL4;COMPTIME/CREDIT HRS BAL PPD4;24;28;COMP;4;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;491

 ;;MLCOMT-PP5;COMPTIME/CREDIT HRS PPD5 NAME;29;30;COMP;14;;;;501

 ;;MLCOMT-BAL5;COMPTIME/CREDIT HRS BAL PPD5;31;35;COMP;5;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;492

 ;;MLCOMT-PP6;COMPTIME/CREDIT HRS PPD6 NAME;36;37;COMP;15;;;;502

 ;;MLCOMT-BAL6;COMPTIME/CREDIT HRS BAL PPD6;38;42;COMP;6;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;493

 ;;MLCOMT-PP7;COMPTIME/CREDIT HRS PPD7 NAME;43;44;COMP;16;;;;503

 ;;MLCOMT-BAL7;COMPTIME/CREDIT HRS BAL PPD7;45;49;COMP;7;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;494

 ;;MLCOMT-PP8;COMPTIME/CREDIT HRS PPD8 NAME;50;51;COMP;17;;;;504

 ;;MLCOMT-BAL8;COMPTIME/CREDIT HRS BAL PPD8;52;56;COMP;8;D SIGN^PRSDUTIL,DD^PRSDUTIL,COMP^PRSDUTIL;;;495

 ;;

3 ;;Group 3;1;7;9

 ;;MNTOTCOL;MSD TOTAL AMT COLLECTED;1;7;MSD2;12;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;287

 ;;

4 ;;Group 4;1;7;9

 ;;MNCYRCOL;MSD AMT PAID YTD;1;7;MSD2;2;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;277

 ;;

5 ;;Group 5;1;7;9

 ;;MNINTCHG;MSD TOTAL INTEREST AMT;1;7;MSD2;14;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;289

 ;;

6 ;;Group 6;1;7;9

 ;;MNINTAMT;MSD AMT FOR INTEREST COMP;1;7;MSD2;1;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;276

 ;;

7 ;;Group 7;1;7;9

 ;;MNINTCY;MSD INTEREST AMT CCY;1;7;MSD2;7;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;282

 ;;

8 ;;Group 8;1;5;9

 ;;MNCYRATE;MSD INTEREST RATE CCY;1;5;MSD2;10;D SIGN^PRSDUTIL,DDDDD^PRSDUTIL;;;285

 ;;

9 ;;Group 9;1;7;9

 ;;MNINTPY;MSD INTEREST AMT PCY;1;7;MSD2;8;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;283

 ;;

10 ;;Group 10;1;5;9

 ;;MNPYRATE;MSD INTEREST RATE PCY;1;5;MSD2;11;D SIGN^PRSDUTIL,DDDDD^PRSDUTIL;;;286

 ;;

11 ;;Group 11;17;106;X

 ;;MOALCBAL;BAYLOR PLAN AL CURRENT BAL;1;7;BAYLOR;1;D SIGN^PRSDUTIL,DDD^PRSDUTIL;;;473

 ;;MOALUSED;BAYLOR PLAN AL USED LYTD;8;14;BAYLOR;3;D SIGN^PRSDUTIL,DDD^PRSDUTIL;;;475

 ;;MOALEOPY;BAYLOR PLAN AL EOPY BAL;15;21;BAYLOR;2;D SIGN^PRSDUTIL,DDD^PRSDUTIL;;;474

 ;;MOSLCBAL;BAYLOR PLAN SL CURRENT BAL;22;28;BAYLOR;13;D SIGN^PRSDUTIL,DDD^PRSDUTIL;;;485

 ;;MOSLUSED;BAYLOR PLAN SL USED LYTD;29;35;BAYLOR;15;D SIGN^PRSDUTIL,DDD^PRSDUTIL;;;487

 ;;MOSLEOPY;BAYLOR PLAN SL EOPY BAL;36;42;BAYLOR;14;D SIGN^PRSDUTIL,DDD^PRSDUTIL;;;486

 ;;MORALCD1;BAYLOR PLAN RESTORED AL YEAR-1;43;43;BAYLOR;11;;;;483

 ;;MORALBL1;BAYLOR PLAN RESTORED AL BAL-1;44;50;BAYLOR;9;D SIGN^PRSDUTIL,DDD^PRSDUTIL;;;481

 ;;MORALCD2;BAYLOR PLAN RESTORED AL YEAR-2;51;51;BAYLOR;12;;;;484

 ;;MORALBL2;BAYLOR PLAN RESTORED AL BAL-2;52;58;BAYLOR;10;D SIGN^PRSDUTIL,DDD^PRSDUTIL;;;482

 ;;MOLWOPLY;BAYLOR PLAN LWOP LYTD;59;65;BAYLOR;5;D SIGN^PRSDUTIL,DDD^PRSDUTIL;;;477

 ;;MOLWOPCY;BAYLOR PLAN LWOP CCY;66;72;BAYLOR;4;D SIGN^PRSDUTIL,DDD^PRSDUTIL;;;476

 ;;MOLWOPSS;BAYLOR PLAN LWOP THIS STEP;73;79;BAYLOR;8;D SIGN^PRSDUTIL,DDD^PRSDUTIL;;;480

 ;;MOLWOPLP;BAYLOR PLAN LWOP SINCE PROM;80;86;BAYLOR;7;D SIGN^PRSDUTIL,DDD^PRSDUTIL;;;479

 ;;MOLWOPPP;BAYLOR PLAN LWOP PROB PD;87;93;BAYLOR;6;D SIGN^PRSDUTIL,DDD^PRSDUTIL;;;478

 ;;MIB1BAL;SAVINGS BOND-1 DED BALANCE;94;100;BOND1;9;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;351

 ;;MKB2BAL;SAVINGS BOND-2 DED BALANCE;101;106;BOND2;8;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;365

12 ;;Group 12;1;7;9

 ;;AGARNISH-TAX3;TAX GARNISHMENT-3;1;7;ACSB;19;D SIGN^PRSDUTIL,DD^PRSDUTIL;3;11;762

13 ;;Group 13;1;7;9

 ;;AGARNISH-TAX4;TAX GARNISHMENT-4;1;7;ACSB;20;D SIGN^PRSDUTIL,DD^PRSDUTIL;3;12;763

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---PRSDPR04   4270     printed  Dec 13, 2024@02:25:50                                                                                                                                                                                                    Page 2

PRSDPR04  ;HISC/MGD-PAID PAYRUN DOWNLOAD RECORD 4 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 4;13

 +1       ;;

1         ;;Group 1;1;9;9

 +1       ;;MFCOLAYD;COLA AMT YTD;1;9;COLA;2;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;528

 +2       ;;

2         ;;Group 2;16;56;X

 +1       ;;MLCOMT-PP1;COMPTIME/CREDIT HRS PPD1 NAME;1;2;COMP;10;;;;497

 +2       ;;MLCOMT-BAL1;COMPTIME/CREDIT HRS BAL PPD1;3;7;COMP;1;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;488

 +3       ;;MLCOMT-PP2;COMPTIME/CREDIT HRS PPD2 NAME;8;9;COMP;11;;;;498

 +4       ;;MLCOMT-BAL2;COMPTIME/CREDIT HRS BAL PPD2;10;14;COMP;2;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;489

 +5       ;;MLCOMT-PP3;COMPTIME/CREDIT HRS PPD3 NAME;15;16;COMP;12;;;;499

 +6       ;;MLCOMT-BAL3;COMPTIME/CREDIT HRS BAL PPD3;17;21;COMP;3;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;490

 +7       ;;MLCOMT-PP4;COMPTIME/CREDIT HRS PPD4 NAME;22;23;COMP;13;;;;500

 +8       ;;MLCOMT-BAL4;COMPTIME/CREDIT HRS BAL PPD4;24;28;COMP;4;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;491

 +9       ;;MLCOMT-PP5;COMPTIME/CREDIT HRS PPD5 NAME;29;30;COMP;14;;;;501

 +10      ;;MLCOMT-BAL5;COMPTIME/CREDIT HRS BAL PPD5;31;35;COMP;5;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;492

 +11      ;;MLCOMT-PP6;COMPTIME/CREDIT HRS PPD6 NAME;36;37;COMP;15;;;;502

 +12      ;;MLCOMT-BAL6;COMPTIME/CREDIT HRS BAL PPD6;38;42;COMP;6;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;493

 +13      ;;MLCOMT-PP7;COMPTIME/CREDIT HRS PPD7 NAME;43;44;COMP;16;;;;503

 +14      ;;MLCOMT-BAL7;COMPTIME/CREDIT HRS BAL PPD7;45;49;COMP;7;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;494

 +15      ;;MLCOMT-PP8;COMPTIME/CREDIT HRS PPD8 NAME;50;51;COMP;17;;;;504

 +16      ;;MLCOMT-BAL8;COMPTIME/CREDIT HRS BAL PPD8;52;56;COMP;8;D SIGN^PRSDUTIL,DD^PRSDUTIL,COMP^PRSDUTIL;;;495

 +17      ;;

3         ;;Group 3;1;7;9

 +1       ;;MNTOTCOL;MSD TOTAL AMT COLLECTED;1;7;MSD2;12;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;287

 +2       ;;

4         ;;Group 4;1;7;9

 +1       ;;MNCYRCOL;MSD AMT PAID YTD;1;7;MSD2;2;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;277

 +2       ;;

5         ;;Group 5;1;7;9

 +1       ;;MNINTCHG;MSD TOTAL INTEREST AMT;1;7;MSD2;14;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;289

 +2       ;;

6         ;;Group 6;1;7;9

 +1       ;;MNINTAMT;MSD AMT FOR INTEREST COMP;1;7;MSD2;1;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;276

 +2       ;;

7         ;;Group 7;1;7;9

 +1       ;;MNINTCY;MSD INTEREST AMT CCY;1;7;MSD2;7;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;282

 +2       ;;

8         ;;Group 8;1;5;9

 +1       ;;MNCYRATE;MSD INTEREST RATE CCY;1;5;MSD2;10;D SIGN^PRSDUTIL,DDDDD^PRSDUTIL;;;285

 +2       ;;

9         ;;Group 9;1;7;9

 +1       ;;MNINTPY;MSD INTEREST AMT PCY;1;7;MSD2;8;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;283

 +2       ;;

10        ;;Group 10;1;5;9

 +1       ;;MNPYRATE;MSD INTEREST RATE PCY;1;5;MSD2;11;D SIGN^PRSDUTIL,DDDDD^PRSDUTIL;;;286

 +2       ;;

11        ;;Group 11;17;106;X

 +1       ;;MOALCBAL;BAYLOR PLAN AL CURRENT BAL;1;7;BAYLOR;1;D SIGN^PRSDUTIL,DDD^PRSDUTIL;;;473

 +2       ;;MOALUSED;BAYLOR PLAN AL USED LYTD;8;14;BAYLOR;3;D SIGN^PRSDUTIL,DDD^PRSDUTIL;;;475

 +3       ;;MOALEOPY;BAYLOR PLAN AL EOPY BAL;15;21;BAYLOR;2;D SIGN^PRSDUTIL,DDD^PRSDUTIL;;;474

 +4       ;;MOSLCBAL;BAYLOR PLAN SL CURRENT BAL;22;28;BAYLOR;13;D SIGN^PRSDUTIL,DDD^PRSDUTIL;;;485

 +5       ;;MOSLUSED;BAYLOR PLAN SL USED LYTD;29;35;BAYLOR;15;D SIGN^PRSDUTIL,DDD^PRSDUTIL;;;487

 +6       ;;MOSLEOPY;BAYLOR PLAN SL EOPY BAL;36;42;BAYLOR;14;D SIGN^PRSDUTIL,DDD^PRSDUTIL;;;486

 +7       ;;MORALCD1;BAYLOR PLAN RESTORED AL YEAR-1;43;43;BAYLOR;11;;;;483

 +8       ;;MORALBL1;BAYLOR PLAN RESTORED AL BAL-1;44;50;BAYLOR;9;D SIGN^PRSDUTIL,DDD^PRSDUTIL;;;481

 +9       ;;MORALCD2;BAYLOR PLAN RESTORED AL YEAR-2;51;51;BAYLOR;12;;;;484

 +10      ;;MORALBL2;BAYLOR PLAN RESTORED AL BAL-2;52;58;BAYLOR;10;D SIGN^PRSDUTIL,DDD^PRSDUTIL;;;482

 +11      ;;MOLWOPLY;BAYLOR PLAN LWOP LYTD;59;65;BAYLOR;5;D SIGN^PRSDUTIL,DDD^PRSDUTIL;;;477

 +12      ;;MOLWOPCY;BAYLOR PLAN LWOP CCY;66;72;BAYLOR;4;D SIGN^PRSDUTIL,DDD^PRSDUTIL;;;476

 +13      ;;MOLWOPSS;BAYLOR PLAN LWOP THIS STEP;73;79;BAYLOR;8;D SIGN^PRSDUTIL,DDD^PRSDUTIL;;;480

 +14      ;;MOLWOPLP;BAYLOR PLAN LWOP SINCE PROM;80;86;BAYLOR;7;D SIGN^PRSDUTIL,DDD^PRSDUTIL;;;479

 +15      ;;MOLWOPPP;BAYLOR PLAN LWOP PROB PD;87;93;BAYLOR;6;D SIGN^PRSDUTIL,DDD^PRSDUTIL;;;478

 +16      ;;MIB1BAL;SAVINGS BOND-1 DED BALANCE;94;100;BOND1;9;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;351

 +17      ;;MKB2BAL;SAVINGS BOND-2 DED BALANCE;101;106;BOND2;8;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;365

12        ;;Group 12;1;7;9

 +1       ;;AGARNISH-TAX3;TAX GARNISHMENT-3;1;7;ACSB;19;D SIGN^PRSDUTIL,DD^PRSDUTIL;3;11;762

13        ;;Group 13;1;7;9

 +1       ;;AGARNISH-TAX4;TAX GARNISHMENT-4;1;7;ACSB;20;D SIGN^PRSDUTIL,DD^PRSDUTIL;3;12;763