PRSDEU11.m

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 ---PRSDEU11   1633     printed  Apr 09, 2024@21:26:11                                                                                                                                                                                                    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