IBCNADD ;ALB/AAS - ADDRESS RETRIEVAL ENGINE FOR FILE 399 ; 29-AUG-93
Source file <IBCNADD.m>
| action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| ADD(DA,IBCOB) | ; -- Retrieve correct billing address for a bill, mailing address of Bill Payer
; assumes that new policy field points to valid ins. policy ; DA = ien to file 399 ; IBCOB = payer sequence PST or 123 (optional) |
|
| MAIN | ; -- determine address for company for type bill
|
|
| MAINQ | ||
| I | ; -- see if there is an inpatient address
; -- use if state is there |
|
| O | ; -- see if there is an outpatient address
; -- use if state is there |
|
| R | ; -- see if there is an Rx address
; -- use if state is there |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DGCR(399 - [#399] | ADD+7, ADD+8, ADD+10, ADD+11, ADD+17, ADD+18 |
| ^DIC(36 - [#36] | ADD+23, MAIN+3, I+2, I+5, O+5, O+6, O+8, O+11, R+2, R+5 |
| ^DPT - [#2] | ADD+22, ADD+26 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| DA | ADD~, ADD+7, ADD+8, ADD+10, ADD+11, ADD+17, ADD+18, O+4 |
| DFN | ADD+5~, ADD+7*, ADD+22, ADD+26 |
| I | ADD+5~ |
| IB01 | ADD+5~ |
| IB02 | ADD+5~, ADD+6*, ADD+26*, MAIN+3*, MAINQ, I+2*, O+5*, O+8*, R+2* |
| IBAGAIN | ADD+5~, MAIN+11!, MAIN+15!, I+5*, O+6*, O+11*, R+5* |
| IBBILLTY | ADD+5~, ADD+8*, MAIN+14 |
| IBCDFN | ADD+5~, ADD+11*, ADD+18*, ADD+22, ADD+26 |
| IBCHRGTY | ADD+5~, ADD+8*, MAIN+11 |
| IBCNS | ADD+5~, ADD+10*, ADD+15, ADD+17*, ADD+21, ADD+22*, ADD+23, MAIN+3, MAIN+7, MAIN+8 , I+2, I+5*, O+5, O+6*, O+8, O+11*, R+2, R+5* |
| IBCNT | ADD+5~, MAIN+4* |
| IBCNT( | MAIN+7, MAIN+8* |
| IBCOB | ADD~, ADD+15, ADD+16*, ADD+17, ADD+18 |
| IBFND | ADD+5~, MAIN+11, R+2*, R+5! |
| IBTYP | ADD+5~, MAIN+11*, MAIN+14*, MAIN+15 |
| J | ADD+5~ |
| U | ADD+10, ADD+11, ADD+17, ADD+18 |
| X | ADD+5~ |
| Y | ADD+5~ |