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