source: FOIAVistA/trunk/g/IBAM.zwr@ 1361

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

initial load of FOIAVistA 6/30/08 version

File size: 1.8 KB
Line 
1Globals from FOIA VistA with corrected Node problem for the cross references in the mental health files for C and AU
2Cache 13-Sep-2008 18:35:03 ZWR
3^IBAM(354.7,0)="IB PATIENT COPAY ACCOUNT^354.7P^^"
4^IBAM(354.71,0)="IB COPAY TRANSACTIONS^354.71^^"
5^IBAM(354.75,0)="IB COPAY CAPS^354.75D^15^15"
6^IBAM(354.75,1,0)="3020201^2^^770^^C"
7^IBAM(354.75,2,0)="3020201^3^^770^^C"
8^IBAM(354.75,3,0)="3020201^4^^770^^C"
9^IBAM(354.75,4,0)="3020201^5^^770^^C"
10^IBAM(354.75,5,0)="3020201^6^^770^^C"
11^IBAM(354.75,6,0)="3030101^2^^840^^C"
12^IBAM(354.75,7,0)="3030101^3^^840^^C"
13^IBAM(354.75,8,0)="3030101^4^^840^^C"
14^IBAM(354.75,9,0)="3030101^5^^840^^C"
15^IBAM(354.75,10,0)="3030101^6^^840^^C"
16^IBAM(354.75,11,0)="3060101^2^^960^^C"
17^IBAM(354.75,12,0)="3060101^3^^960^^C"
18^IBAM(354.75,13,0)="3060101^4^^960^^C"
19^IBAM(354.75,14,0)="3060101^5^^960^^C"
20^IBAM(354.75,15,0)="3060101^6^^960^^C"
21^IBAM(354.75,"AC",2,3020201,1)=""
22^IBAM(354.75,"AC",2,3030101,6)=""
23^IBAM(354.75,"AC",2,3060101,11)=""
24^IBAM(354.75,"AC",3,3020201,2)=""
25^IBAM(354.75,"AC",3,3030101,7)=""
26^IBAM(354.75,"AC",3,3060101,12)=""
27^IBAM(354.75,"AC",4,3020201,3)=""
28^IBAM(354.75,"AC",4,3030101,8)=""
29^IBAM(354.75,"AC",4,3060101,13)=""
30^IBAM(354.75,"AC",5,3020201,4)=""
31^IBAM(354.75,"AC",5,3030101,9)=""
32^IBAM(354.75,"AC",5,3060101,14)=""
33^IBAM(354.75,"AC",6,3020201,5)=""
34^IBAM(354.75,"AC",6,3030101,10)=""
35^IBAM(354.75,"AC",6,3060101,15)=""
36^IBAM(354.75,"B",3020201,1)=""
37^IBAM(354.75,"B",3020201,2)=""
38^IBAM(354.75,"B",3020201,3)=""
39^IBAM(354.75,"B",3020201,4)=""
40^IBAM(354.75,"B",3020201,5)=""
41^IBAM(354.75,"B",3030101,6)=""
42^IBAM(354.75,"B",3030101,7)=""
43^IBAM(354.75,"B",3030101,8)=""
44^IBAM(354.75,"B",3030101,9)=""
45^IBAM(354.75,"B",3030101,10)=""
46^IBAM(354.75,"B",3060101,11)=""
47^IBAM(354.75,"B",3060101,12)=""
48^IBAM(354.75,"B",3060101,13)=""
49^IBAM(354.75,"B",3060101,14)=""
50^IBAM(354.75,"B",3060101,15)=""
Note: See TracBrowser for help on using the repository browser.