PRSDEU10.m

PRSDEU10 ;HISC/GWB-PAID EDIT AND UPDATE DOWNLOAD RECORD 10 LAYOUT ;02/13/2003

 ;;4.0;PAID;**78**;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 10;8

 ;;

1 ;;Group 1;4;43;X

 ;;MPACTSSN;ACTUAL SSN;1;9;0;34;;;;33

 ;;MXB1DENM;SAVINGS BOND-1 DENOMINATION;10;10;BOND1;11;;;;353

 ;;MXB2DENM;SAVINGS BOND-2 DENOMINATION;11;11;BOND2;10;;;;367

 ;;MHB1TIT;SAVINGS BOND-1 OWNER;12;43;BOND1;13;;;;355

 ;;

2 ;;Group 2;2;41;X

 ;;MJB2TIT;SAVINGS BOND-2 OWNER;1;32;BOND2;12;;;;369

 ;;MHB1SSN;SAVINGS BOND-1 OWNER SSN;33;41;BOND1;14;;;;356

 ;;

3 ;;Group 3;4;39;X

 ;;MJB2SSN;SAVINGS BOND-2 OWNER SSN;1;9;BOND2;13;;;;370

 ;;MHB1COD;SAVINGS BOND-1 BENE CODE;10;10;BOND1;6;;;;348

 ;;MJB2COD;SAVINGS BOND-2 BENE CODE;11;11;BOND2;5;;;;362

 ;;MHB1COWN;SAVINGS BOND-1 CO-OWNER;12;39;BOND1;7;;;;349

 ;;

4 ;;Group 4;1;28;X

 ;;MJB2COWN;SAVINGS BOND-2 CO-OWNER;1;28;BOND2;6;;;;363

 ;;

5 ;;Group 5;2;18;X

 ;;MHB1SSNC;SAVINGS BOND-1 CO-OWNER SSN;1;9;BOND1;8;;;;350

 ;;MJB2SSNC;SAVINGS BOND-2 CO-OWNER SSN;10;18;BOND2;7;;;;364

 ;;

6 ;;Group 6;1;7;9

 ;;MIB1DED;SAVINGS BOND-1 DED EPPD;1;7;BOND1;10;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;352

 ;;

7 ;;Group 7;1;7;9

 ;;MKB2DED;SAVINGS BOND-2 DED EPPD;1;7;BOND2;9;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;366

 ;;

8 ;;Group 8;4;14;

 ;;MIB1EFFD;SAVINGS BOND-1 EFFECTIVE DATE;1;6;BOND1;12;S:DATA'="" DATA=DATA_"01" D DATE^PRSDUTIL;;;354

 ;;MKB2EFFD;SAVINGS BOND-2 EFFECTIVE DATE;7;12;BOND2;11;S:DATA'="" DATA=DATA_"01" D DATE^PRSDUTIL;;;368

 ;;MIB1TYPE;SAVINGS BOND-1 TYPE;13;13;BOND1;16;;;;718

 ;;MIB2TYPE;SAVINGS BOND-2 TYPE;14;14;BOND2;15;;;;719

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---PRSDEU10   1761     printed  Apr 09, 2024@21:31                                                                                                                                                                                                       Page 2

PRSDEU10  ;HISC/GWB-PAID EDIT AND UPDATE DOWNLOAD RECORD 10 LAYOUT ;02/13/2003

 +1       ;;4.0;PAID;**78**;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 10;8

 +1       ;;

1         ;;Group 1;4;43;X

 +1       ;;MPACTSSN;ACTUAL SSN;1;9;0;34;;;;33

 +2       ;;MXB1DENM;SAVINGS BOND-1 DENOMINATION;10;10;BOND1;11;;;;353

 +3       ;;MXB2DENM;SAVINGS BOND-2 DENOMINATION;11;11;BOND2;10;;;;367

 +4       ;;MHB1TIT;SAVINGS BOND-1 OWNER;12;43;BOND1;13;;;;355

 +5       ;;

2         ;;Group 2;2;41;X

 +1       ;;MJB2TIT;SAVINGS BOND-2 OWNER;1;32;BOND2;12;;;;369

 +2       ;;MHB1SSN;SAVINGS BOND-1 OWNER SSN;33;41;BOND1;14;;;;356

 +3       ;;

3         ;;Group 3;4;39;X

 +1       ;;MJB2SSN;SAVINGS BOND-2 OWNER SSN;1;9;BOND2;13;;;;370

 +2       ;;MHB1COD;SAVINGS BOND-1 BENE CODE;10;10;BOND1;6;;;;348

 +3       ;;MJB2COD;SAVINGS BOND-2 BENE CODE;11;11;BOND2;5;;;;362

 +4       ;;MHB1COWN;SAVINGS BOND-1 CO-OWNER;12;39;BOND1;7;;;;349

 +5       ;;

4         ;;Group 4;1;28;X

 +1       ;;MJB2COWN;SAVINGS BOND-2 CO-OWNER;1;28;BOND2;6;;;;363

 +2       ;;

5         ;;Group 5;2;18;X

 +1       ;;MHB1SSNC;SAVINGS BOND-1 CO-OWNER SSN;1;9;BOND1;8;;;;350

 +2       ;;MJB2SSNC;SAVINGS BOND-2 CO-OWNER SSN;10;18;BOND2;7;;;;364

 +3       ;;

6         ;;Group 6;1;7;9

 +1       ;;MIB1DED;SAVINGS BOND-1 DED EPPD;1;7;BOND1;10;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;352

 +2       ;;

7         ;;Group 7;1;7;9

 +1       ;;MKB2DED;SAVINGS BOND-2 DED EPPD;1;7;BOND2;9;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;366

 +2       ;;

8         ;;Group 8;4;14;

 +1       ;;MIB1EFFD;SAVINGS BOND-1 EFFECTIVE DATE;1;6;BOND1;12;S:DATA'="" DATA=DATA_"01" D DATE^PRSDUTIL;;;354

 +2       ;;MKB2EFFD;SAVINGS BOND-2 EFFECTIVE DATE;7;12;BOND2;11;S:DATA'="" DATA=DATA_"01" D DATE^PRSDUTIL;;;368

 +3       ;;MIB1TYPE;SAVINGS BOND-1 TYPE;13;13;BOND1;16;;;;718

 +4       ;;MIB2TYPE;SAVINGS BOND-2 TYPE;14;14;BOND2;15;;;;719