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