©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
IBCF23 ;ALB/ARH - HCFA 1500 19-90 DATA (block 24, procs and charges) ; 12-JUN-93
Source file <IBCF23.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| RVC | ; charges array
|
|
| PRC | ; procedure array with charge
|
|
| DATE(X) | ;
|
|
| B24 | ; set individual enrties in print array, external format
|
|
| PRTARR | ;print procedure array
|
|
| OFFSET | ;add offset to print array
|
|
| PO | ; print order array w/ charges
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DGCR(399 - [#399] | RVC+1, RVC+4, PRC+1 |
| ^DGCR(399.1 - [#399.1] | PRTARR+10 |
| ^DGCR(399.2 - [#399.2] | B24+5 |
| ^IBE(353.1 - [#353.1] | B24+3 |
| ^IBE(353.2 - [#353.2] | B24+3 |
| Name | Line Occurrences |
|---|---|
| $$DATE | B24+2 |
| B24 | PRTARR+1, PRTARR+8 |
| Name | Field # of Occurrence |
|---|---|
| ^( | RVC+1, PRC+1 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| >> IB("U" | PRTARR+9 |
| >> IB("U1" | OFFSET+1, OFFSET+2 |
| IBCHARG | PRC+6*, PRC+7*, PRC+9, PRC+10*, PRC+11, PRC+15*, PRC+16*, PRC+17, PRTARR+2*, PRTARR+4* , PRTARR+9*, OFFSET+6!, B24+6 |
| IBCP | PO+4*, OFFSET+6! |
| IBCP( | PRC+11*, PRC+14, PRC+17*, PO+4, PRTARR+4 |
| IBDT1 | PRTARR+2*, PRTARR+5*, PRTARR+9*, OFFSET+6!, B24+2 |
| IBDT2 | PRTARR+2*, PRTARR+5*, PRTARR+9*, OFFSET+6!, B24+2 |
| >> IBDXI( | PRC+4 |
| >> IBFLD(24 | OFFSET+2*, OFFSET+4*, B24+2*, B24+3*, B24+4*, B24+5*, B24+6* |
| >> IBI | RVC+1*, RVC+4, PRC+1*, PRC+2, PRTARR+1*, OFFSET+2*, OFFSET+4, B24+1*, B24+2, B24+3 , B24+4, B24+5, B24+6 |
| >> IBIFN | RVC+1, RVC+4, PRC+1 |
| >> IBJ | RVC+2*, PRC+3*, PRC+4* |
| IBLN | RVC+1*, RVC+2, RVC+4, RVC+5, PRC+1*, PRC+2, PRC+3, PRC+4, OFFSET+6! |
| IBPDT | PRC+2*, PRC+11, OFFSET+6! |
| IBPO | PRC+2*, PRC+11, PRC+14*, PRC+17, PO+4*, PO+5, PO+6, OFFSET+6! |
| IBPO( | PO+5*, PO+6*, PRTARR+1, PRTARR+3 |
| IBPO1 | PO+5*, PRTARR+1*, PRTARR+3, OFFSET+6! |
| IBPO2 | PRTARR+3*, PRTARR+4, OFFSET+6! |
| IBPROC | B24+1*, B24+4, B24+5, B24+7! |
| IBRC | OFFSET+6! |
| IBRC( | RVC+5*, PRC+6, PRC+7*, PRC+9, PRC+10*, PRC+15, PRC+16*, PRTARR+8, PRTARR+9 |
| IBREV | PRTARR+1*, PRTARR+9*, OFFSET+6!, B24+5 |
| IBRV | PRC+6*, PRC+7, PRC+9*, PRC+10, PRC+15*, PRC+16, PRTARR+8*, PRTARR+9, PRTARR+10, OFFSET+6! |
| IBSS | RVC+2*, RVC+3*, RVC+4*, RVC+5, PRC+2*, PRC+3*, PRC+4*, PRC+6, PRC+9, PRC+11* , PO+4*, PO+5, PO+6, PRTARR+4*, PRTARR+5, PRTARR+10*, OFFSET+6!, B24+1, B24+3, B24+6 |
| IBSS( | PO+5, PO+6* |
| IBUNIT | PRTARR+1, PRTARR+2*, PRTARR+4*, PRTARR+9*, OFFSET+6!, B24+6 |
| IBX | B24+1~ |
| U | RVC+2, RVC+3, RVC+4, RVC+5, PRC+2, PRC+3, PRC+4, PRC+6, PRC+7, PRC+9 , PRC+10, PRC+14, PRC+16, PO+4, PRTARR+4, PRTARR+9, PRTARR+10, OFFSET+1, OFFSET+2, B24+1 , B24+3, B24+4, B24+5, B24+6 |
| X | DATE~, DATE+1 |