IBCU5 ;ALB/AAS - MCCR MAILING ADDRESS UTILITY ROUTINE ;26-FEB-90
Source file <IBCU5.m>
Package | Total | Call Graph |
---|---|---|
Integrated Billing | 2 | $$ADD^IBCNADD ALL^IBCNS1 |
Registration | 1 | (ADD,DEM)^VADPT |
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 |
---|---|---|
EN | ;Entry from X-REF from who's responsible
|
|
ENQ | ||
EN1 | ;Now Trigger of primary insurance policy from who's responsible
|
|
EN1Q | ||
MAILA | ;Store Mailing Address for Bill Payer Carrier (and if not copying bill or bill not authorized,
; insert Attending Physican Id [36,.1] into Form Locator 92 [399,213] |
|
MAILQ | ||
UPDMA(DA,IB01,IB02) | ; Update insurance company mailing address in file 399
; DA = bill ifn |
|
MAILIN | ;Store Mailing Address for Institution
|
|
MAILINQ | ||
MAILP | ;Store Patient Mailing address
|
|
MAILPQ | ||
INSUR | ;
|
|
DEL |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^DGCR(399 - [#399] | EN+2, EN+4, EN+5, EN1+9, MAILA+4, MAILA+5, MAILA+7, UPDMA+4*, UPDMA+7*, UPDMA+9* , MAILIN+1, MAILIN+3*, MAILIN+4*, MAILP+3, MAILP+7*, MAILP+9*, MAILP+10*, MAILP+12*, MAILP+13*, DEL* |
^DIC(11 - [#11] | MAILP+6 |
^DIC(36 - [#36] | MAILA+8, UPDMA+4 |
^DIC(4 - [#4] | EN+4, MAILIN+1, MAILIN+2 |
^DPT - [#2] | MAILP+6 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
DA | EN+2, EN+4, EN+5, EN1+9, MAILA+3*, MAILA+4, MAILA+5, MAILA+7, MAILA+10, MAILA+12 , UPDMA~, UPDMA+4, UPDMA+7, UPDMA+9, MAILIN+1*, MAILP+2*, MAILP+3, MAILP+7, MAILP+9, MAILP+10 , MAILP+12, MAILP+13, DEL |
DFN | EN1+10, MAILP+1~, MAILP+3*, MAILP+6 |
DGNAM | MAILP+1~, MAILP+5*, MAILP+6*, MAILP+7 |
DGTAG | EN+4*, ENQ! |
DT | EN1+9 |
IB01 | MAILA+7*, MAILA+8, MAILA+12, MAILQ!, UPDMA~, UPDMA+4, MAILIN+2*, MAILIN+3, MAILINQ! |
IB02 | MAILA+10*, MAILA+12, MAILQ!, UPDMA~, UPDMA+4, UPDMA+7, UPDMA+9, MAILIN+2*, MAILIN+3, MAILINQ! |
IB03 | MAILQ!, MAILINQ! |
>> IBAC | EN1+7 |
IBCONF | MAILP+1~, MAILP+4*, MAILP+8, MAILP+11 |
IBDD | EN1Q! |
IBDD(0 | EN1+11 |
>> IBIDS(151 | EN1+9 |
>> IBIFN | MAILA+3, MAILIN+1, MAILIN+3, MAILIN+4, MAILP+2 |
IBIN | EN1Q! |
>> IBINDT | EN1+9*, EN1+10 |
IBINS | EN1Q! |
U | MAILA+4, MAILA+5, UPDMA+9, MAILIN+3, MAILP+4, MAILP+9, MAILP+12 |
>> VADM(1 | MAILP+5 |
>> VADM(5 | MAILP+6 |
VAPA | MAILP+1~ |
VAPA("P" | MAILP+3* |
VAPA(1 | MAILP+12 |
VAPA(11 | MAILP+12 |
VAPA(12 | MAILP+4 |
VAPA(13 | MAILP+9 |
VAPA(14 | MAILP+9 |
VAPA(15 | MAILP+10 |
VAPA(16 | MAILP+9 |
VAPA(17 | MAILP+9 |
VAPA(18 | MAILP+9 |
VAPA(2 | MAILP+12 |
VAPA(22 | MAILP+4 |
VAPA(3 | MAILP+13 |
VAPA(4 | MAILP+12 |
VAPA(5 | MAILP+12 |
>> X | EN+2*, EN+3, EN+4, EN+5, EN1+6*, EN1+11*, EN1+15*, MAILIN+1*, MAILIN+2 |