| 1 | PRSDEU10 ;HISC/GWB-PAID EDIT AND UPDATE DOWNLOAD RECORD 10 LAYOUT ;02/13/2003
|
|---|
| 2 | ;;4.0;PAID;**78**;Sep 21, 1995
|
|---|
| 3 | 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
|
|---|
| 4 | Q
|
|---|
| 5 | RECORD ;;Record 10;8
|
|---|
| 6 | ;;
|
|---|
| 7 | 1 ;;Group 1;4;43;X
|
|---|
| 8 | ;;MPACTSSN;ACTUAL SSN;1;9;0;34;;;;33
|
|---|
| 9 | ;;MXB1DENM;SAVINGS BOND-1 DENOMINATION;10;10;BOND1;11;;;;353
|
|---|
| 10 | ;;MXB2DENM;SAVINGS BOND-2 DENOMINATION;11;11;BOND2;10;;;;367
|
|---|
| 11 | ;;MHB1TIT;SAVINGS BOND-1 OWNER;12;43;BOND1;13;;;;355
|
|---|
| 12 | ;;
|
|---|
| 13 | 2 ;;Group 2;2;41;X
|
|---|
| 14 | ;;MJB2TIT;SAVINGS BOND-2 OWNER;1;32;BOND2;12;;;;369
|
|---|
| 15 | ;;MHB1SSN;SAVINGS BOND-1 OWNER SSN;33;41;BOND1;14;;;;356
|
|---|
| 16 | ;;
|
|---|
| 17 | 3 ;;Group 3;4;39;X
|
|---|
| 18 | ;;MJB2SSN;SAVINGS BOND-2 OWNER SSN;1;9;BOND2;13;;;;370
|
|---|
| 19 | ;;MHB1COD;SAVINGS BOND-1 BENE CODE;10;10;BOND1;6;;;;348
|
|---|
| 20 | ;;MJB2COD;SAVINGS BOND-2 BENE CODE;11;11;BOND2;5;;;;362
|
|---|
| 21 | ;;MHB1COWN;SAVINGS BOND-1 CO-OWNER;12;39;BOND1;7;;;;349
|
|---|
| 22 | ;;
|
|---|
| 23 | 4 ;;Group 4;1;28;X
|
|---|
| 24 | ;;MJB2COWN;SAVINGS BOND-2 CO-OWNER;1;28;BOND2;6;;;;363
|
|---|
| 25 | ;;
|
|---|
| 26 | 5 ;;Group 5;2;18;X
|
|---|
| 27 | ;;MHB1SSNC;SAVINGS BOND-1 CO-OWNER SSN;1;9;BOND1;8;;;;350
|
|---|
| 28 | ;;MJB2SSNC;SAVINGS BOND-2 CO-OWNER SSN;10;18;BOND2;7;;;;364
|
|---|
| 29 | ;;
|
|---|
| 30 | 6 ;;Group 6;1;7;9
|
|---|
| 31 | ;;MIB1DED;SAVINGS BOND-1 DED EPPD;1;7;BOND1;10;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;352
|
|---|
| 32 | ;;
|
|---|
| 33 | 7 ;;Group 7;1;7;9
|
|---|
| 34 | ;;MKB2DED;SAVINGS BOND-2 DED EPPD;1;7;BOND2;9;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;366
|
|---|
| 35 | ;;
|
|---|
| 36 | 8 ;;Group 8;4;14;
|
|---|
| 37 | ;;MIB1EFFD;SAVINGS BOND-1 EFFECTIVE DATE;1;6;BOND1;12;S:DATA'="" DATA=DATA_"01" D DATE^PRSDUTIL;;;354
|
|---|
| 38 | ;;MKB2EFFD;SAVINGS BOND-2 EFFECTIVE DATE;7;12;BOND2;11;S:DATA'="" DATA=DATA_"01" D DATE^PRSDUTIL;;;368
|
|---|
| 39 | ;;MIB1TYPE;SAVINGS BOND-1 TYPE;13;13;BOND1;16;;;;718
|
|---|
| 40 | ;;MIB2TYPE;SAVINGS BOND-2 TYPE;14;14;BOND2;15;;;;719
|
|---|
