- 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 Feb 18, 2025@23:52:09 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