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 |
| 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! |