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 ---[H[J[2J[HPRSDEU10 1761 printed Dec 13, 2024@02:25:20 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
