PRSDLD12 ;HISC/GWB-PAID INITIAL DOWNLOAD RECORD 12 LAYOUT ;01/15/2003
;;4.0;PAID;**78**;Sep 21, 1995
F CC=1:1 S FLD=$T(RECORD+CC) Q:FLD="" D LDSET^PRSDSET
Q
RECORD ;;Record 12;18
;;MJB2COWN;SAVINGS BOND-2 CO-OWNER;BOND2;6;;;;;;363
;;MHB1SSNC;SAVINGS BOND-1 CO-OWNER SSN;BOND1;8;;;;;;350
;;MJB2SSNC;SAVINGS BOND-2 CO-OWNER SSN;BOND2;7;;;;;;364
;;MIB1DED;SAVINGS BOND-1 DED EPPD;BOND1;10;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;;;352
;;MKB2DED;SAVINGS BOND-2 DED EPPD;BOND2;9;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;;;366
;;MIB1BAL;SAVINGS BOND-1 DED BALANCE;BOND1;9;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;;;351
;;MKB2BAL;SAVINGS BOND-2 DED BALANCE;BOND2;8;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;;;365
;;MIB1EFFD;SAVINGS BOND-1 EFFECTIVE DATE;BOND1;12;S:DATA'="" DATA=DATA_"01" D DATE^PRSDUTIL;;;;;354
;;MKB2EFFD;SAVINGS BOND-2 EFFECTIVE DATE;BOND2;11;S:DATA'="" DATA=DATA_"01" D DATE^PRSDUTIL;;;;;368
;;MIB1TYPE;SAVINGS BOND-1 TYPE;BOND1;16;;;;;;718
;;MIB2TYPE;SAVINGS BOND-2 TYPE;BOND2;15;;;;;;719
;;MIB1AD1;SAVINGS BOND-1 ADD LINE-1;BOND1;2;;;;;;344
;;MKB2AD1;SAVINGS BOND-2 ADD LINE-1;BOND2;1;;;;;;358
;;MIB1AD2;SAVINGS BOND-1 ADD LINE-2;BOND1;3;;;;;;345
;;MKB2AD2;SAVINGS BOND-2 ADD LINE-2;BOND2;2;;;;;;359
;;MIB1AD3;SAVINGS BOND-1 ADD LINE-3;BOND1;4;;;;;;346
;;MKB2AD3;SAVINGS BOND-2 ADD LINE-3;BOND2;3;;;;;;360
;;MIB1ZIP1;SAVINGS BOND-1 ZIP CODE;BOND1;15;D ZIP^PRSDUTIL;;;;;357
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPRSDLD12 1390 printed Dec 13, 2024@02:25:38 Page 2
PRSDLD12 ;HISC/GWB-PAID INITIAL DOWNLOAD RECORD 12 LAYOUT ;01/15/2003
+1 ;;4.0;PAID;**78**;Sep 21, 1995
+2 FOR CC=1:1
SET FLD=$TEXT(RECORD+CC)
if FLD=""
QUIT
DO LDSET^PRSDSET
+3 QUIT
RECORD ;;Record 12;18
+1 ;;MJB2COWN;SAVINGS BOND-2 CO-OWNER;BOND2;6;;;;;;363
+2 ;;MHB1SSNC;SAVINGS BOND-1 CO-OWNER SSN;BOND1;8;;;;;;350
+3 ;;MJB2SSNC;SAVINGS BOND-2 CO-OWNER SSN;BOND2;7;;;;;;364
+4 ;;MIB1DED;SAVINGS BOND-1 DED EPPD;BOND1;10;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;;;352
+5 ;;MKB2DED;SAVINGS BOND-2 DED EPPD;BOND2;9;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;;;366
+6 ;;MIB1BAL;SAVINGS BOND-1 DED BALANCE;BOND1;9;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;;;351
+7 ;;MKB2BAL;SAVINGS BOND-2 DED BALANCE;BOND2;8;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;;;365
+8 ;;MIB1EFFD;SAVINGS BOND-1 EFFECTIVE DATE;BOND1;12;S:DATA'="" DATA=DATA_"01" D DATE^PRSDUTIL;;;;;354
+9 ;;MKB2EFFD;SAVINGS BOND-2 EFFECTIVE DATE;BOND2;11;S:DATA'="" DATA=DATA_"01" D DATE^PRSDUTIL;;;;;368
+10 ;;MIB1TYPE;SAVINGS BOND-1 TYPE;BOND1;16;;;;;;718
+11 ;;MIB2TYPE;SAVINGS BOND-2 TYPE;BOND2;15;;;;;;719
+12 ;;MIB1AD1;SAVINGS BOND-1 ADD LINE-1;BOND1;2;;;;;;344
+13 ;;MKB2AD1;SAVINGS BOND-2 ADD LINE-1;BOND2;1;;;;;;358
+14 ;;MIB1AD2;SAVINGS BOND-1 ADD LINE-2;BOND1;3;;;;;;345
+15 ;;MKB2AD2;SAVINGS BOND-2 ADD LINE-2;BOND2;2;;;;;;359
+16 ;;MIB1AD3;SAVINGS BOND-1 ADD LINE-3;BOND1;4;;;;;;346
+17 ;;MKB2AD3;SAVINGS BOND-2 ADD LINE-3;BOND2;3;;;;;;360
+18 ;;MIB1ZIP1;SAVINGS BOND-1 ZIP CODE;BOND1;15;D ZIP^PRSDUTIL;;;;;357
