Routine: PRSDEU09

PRSDEU09 ;HISC/GWB-PAID EDIT AND UPDATE DOWNLOAD RECORD 9 LAYOUT ;6/1/93  14:10

 ;;4.0;PAID;;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

RECORD ;;Record 9;5

;;

1 ;;Group 1;6;30;X

 ;;MMDTENT2;MSD DATE ENTERED MIL SVC-2;1;8;MSD1;11;D DATE^PRSDUTIL;;;268

 ;;MMDTSEP2;MSD DATE SEPARATED MIL SVC-2;9;16;MSD1;14;D DATE^PRSDUTIL;;;271

 ;;MMBRSV2;MSD BRANCH OF SERVICE-2;17;17;MSD1;8;;;;265

 ;;MMLOST2;MSD LOST TIME-2;18;22;MSD1;17;D SIGN^PRSDUTIL S DATA=+DATA;;;274

 ;;MMAMTDU2;MSD AMT DUE THIS PERIOD-2;23;29;MSD1;5;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;262

 ;;MMPDMS3;MSD ACTION CODE-3;30;30;MSD1;3;S:DATA="D" DATA="";;;260

;;

2 ;;Group 2;6;34;X

 ;;MMDTENT3;MSD DATE ENTERED MIL SVC-3;1;8;MSD1;12;D DATE^PRSDUTIL;;;269

 ;;MMDTSEP3;MSD DATE SEPARATED MIL SVC-3;9;16;MSD1;15;D DATE^PRSDUTIL;;;272

 ;;MMBRSV3;MSD BRANCH OF SERVICE-3;17;17;MSD1;9;;;;266

 ;;MMLOST3;MSD LOST TIME-3;18;22;MSD1;18;D SIGN^PRSDUTIL S DATA=+DATA;;;275

 ;;MMAMTDU3;MSD AMT DUE THIS PERIOD-3;23;29;MSD1;6;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;263

 ;;MMSAVAM2;SAVINGS ALLOTMENT-2 AMT EPPD;30;34;SALLOT;3;D SIGN^PRSDUTIL S DATA=+DATA;;;341

;;

3 ;;Group 3;4;28;9

 ;;MNPPAMT;MSD DEDUCTION EPPD;1;5;MSD2;5;D SIGN^PRSDUTIL S DATA=+DATA;;;280

 ;;MNTOTDUE;MSD TOTAL AMT DUE;6;12;MSD2;13;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;288

 ;;MNICDATE;MSD INTEREST COMP DATE;13;20;MSD2;9;D DATE^PRSDUTIL;;;284

 ;;MNPAYDAT;MSD CASH PAYMENT DATE;21;28;MSD2;3;D DATE^PRSDUTIL;;;278

;;

4 ;;Group 4;9;51;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

;;

5 ;;Group 5;12;72;X

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

 ;;MOLWOPLY;BAYLOR PLAN LWOP LYTD;8;14;BAYLOR;5;D SIGN^PRSDUTIL,DDD^PRSDUTIL;;;477

 ;;MOLWOPCY;BAYLOR PLAN LWOP CCY;15;21;BAYLOR;4;D SIGN^PRSDUTIL,DDD^PRSDUTIL;;;476

 ;;MOLWOPSS;BAYLOR PLAN LWOP THIS STEP;22;28;BAYLOR;8;D SIGN^PRSDUTIL,DDD^PRSDUTIL;;;480

 ;;MOLWOPLP;BAYLOR PLAN LWOP SINCE PROM;29;35;BAYLOR;7;D SIGN^PRSDUTIL,DDD^PRSDUTIL;;;479

 ;;MOLWOPPP;BAYLOR PLAN LWOP PROB PD;36;42;BAYLOR;6;D SIGN^PRSDUTIL,DDD^PRSDUTIL;;;478

 ;;MOCNTLNO;ACSB CONTROL NUMBER-2;43;47;ACSB;10;;;;245

 ;;MOACIND;ACSB CODE-2;48;48;ACSB;8;;;;243

 ;;MOPERFAC;ACSB FED/STATE PCT FACTOR-2;49;53;ACSB;14;D SIGN^PRSDUTIL,DDDD^PRSDUTIL;;;249

 ;;MOCURDED;ACSB CURRENT ALLOTMENT-2;54;60;ACSB;12;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;247

 ;;MOBPBAL;ACSB BACK PAY BALANCE-2;61;67;ACSB;3;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;238

 ;;MOBPDED;ACSB BACK PAY DEDUCTION-2;68;72;ACSB;5;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;240

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPRSDEU09   3385     printed  Mar 13, 2025@21:30:22                                                                                                                                                                                                    Page 2

PRSDEU09  ;HISC/GWB-PAID EDIT AND UPDATE DOWNLOAD RECORD 9 LAYOUT ;6/1/93  14:10

 +1       ;;4.0;PAID;;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 9;5

 +1       ;;

1         ;;Group 1;6;30;X

 +1       ;;MMDTENT2;MSD DATE ENTERED MIL SVC-2;1;8;MSD1;11;D DATE^PRSDUTIL;;;268

 +2       ;;MMDTSEP2;MSD DATE SEPARATED MIL SVC-2;9;16;MSD1;14;D DATE^PRSDUTIL;;;271

 +3       ;;MMBRSV2;MSD BRANCH OF SERVICE-2;17;17;MSD1;8;;;;265

 +4       ;;MMLOST2;MSD LOST TIME-2;18;22;MSD1;17;D SIGN^PRSDUTIL S DATA=+DATA;;;274

 +5       ;;MMAMTDU2;MSD AMT DUE THIS PERIOD-2;23;29;MSD1;5;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;262

 +6       ;;MMPDMS3;MSD ACTION CODE-3;30;30;MSD1;3;S:DATA="D" DATA="";;;260

 +7       ;;

2         ;;Group 2;6;34;X

 +1       ;;MMDTENT3;MSD DATE ENTERED MIL SVC-3;1;8;MSD1;12;D DATE^PRSDUTIL;;;269

 +2       ;;MMDTSEP3;MSD DATE SEPARATED MIL SVC-3;9;16;MSD1;15;D DATE^PRSDUTIL;;;272

 +3       ;;MMBRSV3;MSD BRANCH OF SERVICE-3;17;17;MSD1;9;;;;266

 +4       ;;MMLOST3;MSD LOST TIME-3;18;22;MSD1;18;D SIGN^PRSDUTIL S DATA=+DATA;;;275

 +5       ;;MMAMTDU3;MSD AMT DUE THIS PERIOD-3;23;29;MSD1;6;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;263

 +6       ;;MMSAVAM2;SAVINGS ALLOTMENT-2 AMT EPPD;30;34;SALLOT;3;D SIGN^PRSDUTIL S DATA=+DATA;;;341

 +7       ;;

3         ;;Group 3;4;28;9

 +1       ;;MNPPAMT;MSD DEDUCTION EPPD;1;5;MSD2;5;D SIGN^PRSDUTIL S DATA=+DATA;;;280

 +2       ;;MNTOTDUE;MSD TOTAL AMT DUE;6;12;MSD2;13;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;288

 +3       ;;MNICDATE;MSD INTEREST COMP DATE;13;20;MSD2;9;D DATE^PRSDUTIL;;;284

 +4       ;;MNPAYDAT;MSD CASH PAYMENT DATE;21;28;MSD2;3;D DATE^PRSDUTIL;;;278

 +5       ;;

4         ;;Group 4;9;51;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      ;;

5         ;;Group 5;12;72;X

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

 +2       ;;MOLWOPLY;BAYLOR PLAN LWOP LYTD;8;14;BAYLOR;5;D SIGN^PRSDUTIL,DDD^PRSDUTIL;;;477

 +3       ;;MOLWOPCY;BAYLOR PLAN LWOP CCY;15;21;BAYLOR;4;D SIGN^PRSDUTIL,DDD^PRSDUTIL;;;476

 +4       ;;MOLWOPSS;BAYLOR PLAN LWOP THIS STEP;22;28;BAYLOR;8;D SIGN^PRSDUTIL,DDD^PRSDUTIL;;;480

 +5       ;;MOLWOPLP;BAYLOR PLAN LWOP SINCE PROM;29;35;BAYLOR;7;D SIGN^PRSDUTIL,DDD^PRSDUTIL;;;479

 +6       ;;MOLWOPPP;BAYLOR PLAN LWOP PROB PD;36;42;BAYLOR;6;D SIGN^PRSDUTIL,DDD^PRSDUTIL;;;478

 +7       ;;MOCNTLNO;ACSB CONTROL NUMBER-2;43;47;ACSB;10;;;;245

 +8       ;;MOACIND;ACSB CODE-2;48;48;ACSB;8;;;;243

 +9       ;;MOPERFAC;ACSB FED/STATE PCT FACTOR-2;49;53;ACSB;14;D SIGN^PRSDUTIL,DDDD^PRSDUTIL;;;249

 +10      ;;MOCURDED;ACSB CURRENT ALLOTMENT-2;54;60;ACSB;12;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;247

 +11      ;;MOBPBAL;ACSB BACK PAY BALANCE-2;61;67;ACSB;3;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;238

 +12      ;;MOBPDED;ACSB BACK PAY DEDUCTION-2;68;72;ACSB;5;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;240

PRSDEU09.m