VistA-FOIAVistA/r/PAID-PRS/PRSDEU09.m

53 lines
3.3 KiB
Mathematica

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
Q
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