source: FOIAVistA/trunk/r/PAID-PRS/PRSDPR04.m@ 1094

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