©2011-2018 Open Source Electronic Health Record Alliance
This work is licensed under a Creative Commons Attribution 3.0 Unported License
This work is licensed under a Creative Commons Attribution 3.0 Unported License
IBCNADD ;ALB/AAS - ADDRESS RETRIEVAL ENGINE FOR FILE 399 ; 29-AUG-93
Source file <IBCNADD.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| I | ; -- see if there is an inpatient address
|
|
| MAINQ | ||
| MAIN | ; -- determine address for company for type bill
|
|
| ADD(DA) | ; -- Retrive correct billing address for a bill
|
|
| O | ; -- see if there is an outpatient address
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DGCR(399 - [#399] | ADD+4, ADD+5, ADD+6, MAIN+12 |
| ^DIC(36 - [#36] | ADD+7, MAIN+3, I+2, I+5, O+2, O+5 |
| ^DPT - [#2] | ADD+6, ADD+10 |
| Name | Line Occurrences |
|---|---|
| @( | MAIN+14 |
| MAIN | MAIN+14 |
| MAINQ | ADD+5, ADD+7, ADD+10, MAIN+7 |
| Name | Field # of Occurrence |
|---|---|
| ^( | MAIN+3, I+2, O+2 |
| ^(2 | ADD+10 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| DA | ADD~, ADD+4, ADD+5, ADD+6, MAIN+12 |
| DFN | ADD+2~, ADD+4*, ADD+6, ADD+10 |
| I | ADD+2~ |
| IB01 | ADD+2~ |
| IB02 | ADD+2~, ADD+3*, ADD+10*, MAIN+3*, MAINQ, I+2*, O+2* |
| IBAGAIN | ADD+2~, MAIN+14!, I+5*, O+5* |
| IBCDFN | ADD+2~, ADD+6*, ADD+10 |
| IBCNS | ADD+2~, ADD+5*, ADD+6*, ADD+7, MAIN+3, MAIN+7, MAIN+8, I+2, I+5*, O+2 , O+5* |
| IBCNT | ADD+2~, MAIN+4* |
| IBCNT( | MAIN+7, MAIN+8* |
| IBTYP | ADD+2~, MAIN+12*, MAIN+13*, MAIN+14 |
| J | ADD+2~ |
| X | ADD+2~ |
| Y | ADD+2~ |