IBCF31 ;ALB/BGA -UB92 HCFA-1450 (GATHER CODES) ;25-AUG-1993
Source file <IBCF31.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 |
Package | Total | Caller Graph |
---|---|---|
Integrated Billing | 1 | IBCF3 |
Name | Comments | DBIA/ICR reference |
---|---|---|
EN | ;This routine requires prior execution of ibcf3.
; OUTPUT FORMATTER DOES NOT USE THIS ROUTINE - MAY BE OBSOLETE |
|
22 | ;patient status
|
|
23 | ;medical/health record number ssn
|
|
24 | ;condition codes 24-30
|
|
32 | ;occurrence codes/span and dates 32-35 ,36
|
|
38 | ;responsible party with name and address
|
|
39 | ;value codes, 39-41
|
|
50 | ||
INS | ;list the primary, secondary .. insurance companies
|
|
80 | ;procedure field locator 80
|
|
STATE(X) | ;returns 2 letter abbreviation for state pointer
|
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^DGCR(399 - [#399] | EN+4, 24+1, 39+1, 50+1 |
^DGCR(399.1 - [#399.1] | 22+1, 24+1, 39+1 |
^DGCR(399.3 - [#399.3] | 50+5 |
^DIC(36 - [#36] | INS+5 |
^DIC(5 - [#5] | STATE+1 |
^DPT - [#2] | INS+21 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
>> DFN | INS+21 |
I | 80+7*, 80+8! |
>> IBCBILL | 50+5 |
>> IBCU2 | INS+10 |
>> IBCUF3 | 24+4, 32+8, 39+6 |
>> IBCUF31 | 39+5 |
>> IBFL( | 50* |
>> IBFL(22 | 22+1* |
>> IBFL(23 | 23+1* |
>> IBFL(24 | 24+1*, 24+2* |
>> IBFL(37 | 32+8* |
>> IBFL(38 | 38+1*, 38+2*, 38+3*, 38+5* |
>> IBFL(39 | 39+2*, 39+3* |
>> IBFL(50 | 50+6*, INS+6* |
>> IBFL(51 | 50+6*, INS+7* |
>> IBFL(52 | 50+2*, INS+8* |
>> IBFL(53 | 50+3*, INS+9* |
>> IBFL(54 | INS+10* |
>> IBFL(56 | 39+7* |
>> IBFL(57 | 39+5* |
>> IBFL(58 | 50+6*, INS+11* |
>> IBFL(59 | 50+6*, INS+12* |
>> IBFL(60 | 50+6*, INS+13* |
>> IBFL(61 | INS+14* |
>> IBFL(62 | INS+15* |
>> IBFL(63 | 50+4*, INS+16* |
>> IBFL(64 | INS+18*, INS+21*, INS+23* |
>> IBFL(65 | INS+19*, INS+22* |
>> IBFL(66 | INS+19*, INS+22* |
>> IBFL(80 | 80+2*, 80+5*, 80+7* |
>> IBI | 24+1*, 24+2, 32+8*, 38+2*, 39+1*, 39+2*, 39+3, 39+7*, 50*, INS+4* , INS+6, INS+7, INS+8, INS+9, INS+10, INS+11, INS+12, INS+13, INS+14, INS+15 , INS+16, INS+18, INS+19, INS+21, INS+22, INS+23, 80+3*, 80+5*, 80+7* |
>> IBIFN | EN+4, 24+1, 39+1, 50+1, INS+4 |
>> IBINPAT | 22+1 |
>> IBJ | 24+1*, 38+1*, 38+2*, 38+3*, 38+5*, 39+1*, 39+2, 50* |
>> IBM | 80+6*, 80+7 |
>> IBMAIL1 | EN+4*, 38+3, 39+7, INS+7 |
>> IBPMAILN | 38+1, 38+2, 38+4, 38+5 |
IBPROC | 80+1!, 80+2, 80+3, 80+8! |
IBPROC( | 80+3, 80+4, 80+5, 80+6, 80+7 |
>> IBSIGN | 50+6 |
>> IBSTATE | 22+1, 50+2, 50+3, 50+4, INS+8, INS+9, INS+16 |
>> IBX | 22+1*, 24+1*, 24+4*, 38+3*, 39+1*, 39+6*, 39+7*, INS+4*, INS+5, INS+11 , INS+12, INS+13, INS+14, INS+15, INS+17, INS+20, 80+3*, 80+4, 80+5, 80+6 , 80+7 |
>> IBY | 39+1*, 39+2, INS+5*, INS+6, 80+4*, 80+5, 80+7* |
J | 80+8! |
U | 22+1, 23+1, 24+1, 24+2, 24+4, 32+8, 38+1, 38+2, 38+3, 38+4 , 38+5, 39+2, 39+3, 39+5, 39+6, 39+7, 50+2, 50+3, 50+4, 50+5 , 50+6, INS+6, INS+7, INS+8, INS+9, INS+10, INS+11, INS+12, INS+13, INS+14 , INS+15, INS+16, INS+17, INS+18, INS+19, INS+20, INS+21, INS+22, 80+2, 80+4 , 80+5, 80+6, 80+7, STATE+1 |
>> VADM(1 | 50+6 |
>> VADM(2 | 23+1, 50+6 |
VAOA | INS+19! |
VAOA("A" | INS+19*, INS+22* |
VAOA(4 | INS+19, INS+22 |
VAOA(5 | INS+19, INS+22 |
VAOA(9 | INS+19, INS+22 |
VAPD | INS+18! |
VAPD(7 | INS+18 |
X | STATE~, STATE+1 |
Y | 38+4!*, 38+5! |