source: FOIAVistA/trunk/r/PAID-PRS/PRSDEU11.m@ 1397

PRSDEU11 ;HISC/GWB-PAID EDIT AND UPDATE DOWNLOAD RECORD 11 LAYOUT ;6/1/93  15:18
 ;;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 11;12
 ;;
1 ;;Group 1;1;23;X
 ;;MIB1AD1;SAVINGS BOND-1 ADD LINE-1;1;23;BOND1;2;;;;344
 ;;
2 ;;Group 2;1;23;X
 ;;MKB2AD1;SAVINGS BOND-2 ADD LINE-1;1;23;BOND2;1;;;;358
 ;;
3 ;;Group 3;1;23;X
 ;;MIB1AD2;SAVINGS BOND-1 ADD LINE-2;1;23;BOND1;3;;;;345
 ;;
4 ;;Group 4;1;23;X
 ;;MKB2AD2;SAVINGS BOND-2 ADD LINE-2;1;23;BOND2;2;;;;359
 ;;
5 ;;Group 5;2;32;X
 ;;MIB1AD3;SAVINGS BOND-1 ADD LINE-3;1;16;BOND1;4;;;;346
 ;;MKB2AD3;SAVINGS BOND-2 ADD LINE-3;17;32;BOND2;3;;;;360
 ;;
6 ;;Group 6;2;18;9
 ;;MIB1ZIP1;SAVINGS BOND-1 ZIP CODE;1;9;BOND1;15;D ZIP^PRSDUTIL;;;357
 ;;MKB2ZIP2;SAVINGS BOND-2 ZIP CODE;10;18;BOND2;14;D ZIP^PRSDUTIL;;;371
 ;;
7 ;;Group 7;3;7;X
 ;;MLLDRSHP;LEADERSHIP VA;1;1;1;15;;;;62
 ;;MMAGCYTO;AGENCY TRANSFERRED TO;2;3;1;4;;;;51
 ;;MPPMRS-UNITS;PMRS IDENTIFIER;4;7;1;24;;;;71
 ;;
8 ;;Group 8;1;5;9
 ;;MPPDGEOLOC;GEOGRAPHIC LOCATION PAY;1;5;T38;37;D SIGN^PRSDUTIL;;;701
 ;;
9 ;;Group 9;1;5;9
 ;;MPPDEXQUAL;EXCEPTIONAL QUALIFICATIONS;1;5;T38;38;D SIGN^PRSDUTIL;;;702
 ;;
10 ;;Group 10;1;5;9
 ;;MPPDPOSRES;POSITION RESPONSIBILITY;1;5;T38;39;D SIGN^PRSDUTIL;;;703
 ;;
11 ;;Group 11;1;5;9
 ;;MPPDSCARCE;SCARCE SPECIALTY PAY;1;5;T38;40;D SIGN^PRSDUTIL;;;704
 ;;
12 ;;Group 12;1;7;9
 ;;MPPDPAYCAP;PHYSICIAN AND DENTIST PAY CAP;1;7;T38;41;D SIGN^PRSDUTIL;;;705