PRSDLD10.m

PRSDLD10 ;HISC/GWB-PAID INITIAL DOWNLOAD RECORD 10 LAYOUT ;7/8/93  15:45

 ;;4.0;PAID;;Sep 21, 1995

 F CC=1:1 S FLD=$T(RECORD+CC) Q:FLD=""  D LDSET^PRSDSET

 Q

RECORD ;;Record 10;31

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

 ;;MNCYRATE;MSD INTEREST RATE CCY;MSD2;10;S L=5 D LZ^PRSDUTIL,SIGN^PRSDUTIL,DDDDD^PRSDUTIL;;;;;285

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

 ;;MNPYRATE;MSD INTEREST RATE PCY;MSD2;11;S L=5 D LZ^PRSDUTIL,SIGN^PRSDUTIL,DDDDD^PRSDUTIL;;;;;286

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

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

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

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

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

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

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

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---PRSDLD10   2566     printed  Apr 09, 2024@21:28:47                                                                                                                                                                                                    Page 2

PRSDLD10  ;HISC/GWB-PAID INITIAL DOWNLOAD RECORD 10 LAYOUT ;7/8/93  15:45

 +1       ;;4.0;PAID;;Sep 21, 1995

 +2        FOR CC=1:1

               SET FLD=$TEXT(RECORD+CC)

               if FLD=""

                   QUIT 

               DO LDSET^PRSDSET

 +3        QUIT 

RECORD    ;;Record 10;31

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

 +16      ;;MNICDATE;MSD INTEREST COMP DATE;MSD2;9;D DATE^PRSDUTIL;;;;;284

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

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

 +19      ;;MNPAYDAT;MSD CASH PAYMENT DATE;MSD2;3;D DATE^PRSDUTIL;;;;;278

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

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

 +22      ;;MNCYRATE;MSD INTEREST RATE CCY;MSD2;10;S L=5 D LZ^PRSDUTIL,SIGN^PRSDUTIL,DDDDD^PRSDUTIL;;;;;285

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

 +24      ;;MNPYRATE;MSD INTEREST RATE PCY;MSD2;11;S L=5 D LZ^PRSDUTIL,SIGN^PRSDUTIL,DDDDD^PRSDUTIL;;;;;286

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

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

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

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

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

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

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