PRSDLD12.m

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 ---PRSDLD12   1390     printed  Apr 09, 2024@21:31:45                                                                                                                                                                                                    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