source: FOIAVistA/trunk/r/PAID-PRS/PRSDLD12.m@ 1397

Last change on this file since 1397 was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version

File size: 1.3 KB
Line 
1PRSDLD12 ;HISC/GWB-PAID INITIAL DOWNLOAD RECORD 12 LAYOUT ;01/15/2003
2 ;;4.0;PAID;**78**;Sep 21, 1995
3 F CC=1:1 S FLD=$T(RECORD+CC) Q:FLD="" D LDSET^PRSDSET
4 Q
5RECORD ;;Record 12;18
6 ;;MJB2COWN;SAVINGS BOND-2 CO-OWNER;BOND2;6;;;;;;363
7 ;;MHB1SSNC;SAVINGS BOND-1 CO-OWNER SSN;BOND1;8;;;;;;350
8 ;;MJB2SSNC;SAVINGS BOND-2 CO-OWNER SSN;BOND2;7;;;;;;364
9 ;;MIB1DED;SAVINGS BOND-1 DED EPPD;BOND1;10;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;;;352
10 ;;MKB2DED;SAVINGS BOND-2 DED EPPD;BOND2;9;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;;;366
11 ;;MIB1BAL;SAVINGS BOND-1 DED BALANCE;BOND1;9;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;;;351
12 ;;MKB2BAL;SAVINGS BOND-2 DED BALANCE;BOND2;8;D SIGN^PRSDUTIL,DD^PRSDUTIL;;;;;365
13 ;;MIB1EFFD;SAVINGS BOND-1 EFFECTIVE DATE;BOND1;12;S:DATA'="" DATA=DATA_"01" D DATE^PRSDUTIL;;;;;354
14 ;;MKB2EFFD;SAVINGS BOND-2 EFFECTIVE DATE;BOND2;11;S:DATA'="" DATA=DATA_"01" D DATE^PRSDUTIL;;;;;368
15 ;;MIB1TYPE;SAVINGS BOND-1 TYPE;BOND1;16;;;;;;718
16 ;;MIB2TYPE;SAVINGS BOND-2 TYPE;BOND2;15;;;;;;719
17 ;;MIB1AD1;SAVINGS BOND-1 ADD LINE-1;BOND1;2;;;;;;344
18 ;;MKB2AD1;SAVINGS BOND-2 ADD LINE-1;BOND2;1;;;;;;358
19 ;;MIB1AD2;SAVINGS BOND-1 ADD LINE-2;BOND1;3;;;;;;345
20 ;;MKB2AD2;SAVINGS BOND-2 ADD LINE-2;BOND2;2;;;;;;359
21 ;;MIB1AD3;SAVINGS BOND-1 ADD LINE-3;BOND1;4;;;;;;346
22 ;;MKB2AD3;SAVINGS BOND-2 ADD LINE-3;BOND2;3;;;;;;360
23 ;;MIB1ZIP1;SAVINGS BOND-1 ZIP CODE;BOND1;15;D ZIP^PRSDUTIL;;;;;357
Note: See TracBrowser for help on using the repository browser.