©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
IBEBR ;ALB/AAS - Add/Edit IB ACTION CHARGE FILE; 3-MAR-92
Source file <IBEBR.m>
| Package | Total | Caller Graph |
|---|---|---|
| Integrated Billing | 2 | IB BILLING RATES FILE IBEBRH |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| HCFA | ;;HCFA Amb. Surg. Rate
|
|
| FILEQ | ||
| EN | ||
| END | ;Kill vars
|
|
| PERDIEM | ;;Per Diem
|
|
| MEDIC | ;;Medicare Deductible
|
|
| EFFDT | ||
| COPAY | ;;Co-pay Type
|
|
| NSC | ;;RX1^RX3^RX4^^NSC RX CO-PAY (RX1)
|
|
| CHOOSEQ | ||
| 1 | ;enter edit revenue code rates
|
|
| 3 | ;enter medicare deductable
|
|
| 2 | ;enter per diem rate
|
|
| 5 | ;enter rx copay rates
|
|
| 4 | ;enter hcfa amb. surg. rates
|
|
| FILE | ; -add new entries in 350.2 and edit
|
|
| 6 | ;enter champva subsistence rates
|
|
| SC | ;;RX2^RX5^RX6^^SC RX CO-PAY (RX2)
|
|
| CHMPVA | ;;CHAMPVA Rate Type
|
|
| MAIN | ;;Billing Rate Type
|
|
| CHOOSE |
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Routine Call |
|
| Routine Call |
|
| Routine Call |
|
| Routine Call |
|
| FileNo | Call Tags |
|---|---|
| ^IBE(350.2 - [#350.2] | Classic Fileman Calls |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^IBE(350.2 - [#350.2] | FILE+4, FILE+9, FILE+12*, FILE+15, FILE+16 |
| Name | Line Occurrences |
|---|---|
| 2 | 2+3 |
| 3 | 3+3 |
| 4 | 4+3 |
| 5 | 5+3 |
| 6 | 6+3 |
| @( | EN+2 |
| CHOOSE | EN+1, 2+1, 4+1, 5+1, 6+1 |
| CHOOSEQ | CHOOSE+5 |
| EFFDT | 2+2, 3+2, 4+2, 5+2, 6+2, EFFDT+2, EFFDT+3 |
| EN | EN+3 |
| END | EN+1, 1+3, 2+2, 3+2, 4+2, 5+2, 6+2 |
| FILE | EFFDT+3 |
| FILEQ | FILE+1 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| %DT | EFFDT*, EFFDT+2! |
| DA | FILE+6*, FILE+9, FILE+12, FILE+15, FILE+17*, FILEQ!, END+1! |
| DD | FILE+17! |
| DIC | FILE+1*!, FILE+17*, FILEQ!, END+1! |
| DIC("DR" | FILE+1* |
| DIC("S" | FILE+1* |
| DIC(0 | FILE+1*, FILE+17* |
| DIE | FILE+6*!, FILE+18*, FILEQ!, END+1! |
| DIK | FILE+9*, FILEQ!, END+1! |
| DIR | CHOOSE+5!, END+1! |
| DIR("?" | CHOOSE+4* |
| DIR("??" | CHOOSE+4* |
| DIR("A" | CHOOSE+5* |
| DIR(0 | CHOOSE+5* |
| >> DIRUT | EN+1, 2+1, 4+1, 5+1, 6+1, CHOOSE+5 |
| >> DLAYGO | FILE+1* |
| DO | FILE+17! |
| DR | FILE+4!*, FILE+6*, FILE+18*, FILEQ!, END+1! |
| DTIME | EFFDT+1 |
| I | CHOOSE+1*, CHOOSE+3*, CHOOSE+6*, END+1! |
| IB | CHOOSE*, CHOOSE+1*, CHOOSE+3, CHOOSE+5, FILE+15*, FILE+16, FILE+17, END+1! |
| IB0 | FILE+15*, FILE+18, END+1! |
| IB10 | FILE+12*, FILEQ!, END+1! |
| >> IBATYP | FILE+16*, FILE+18 |
| IBEFDT | EFFDT+1, EFFDT+2*, FILE+1, FILE+4, FILE+18, END+1! |
| IBNOD | END+1! |
| IBORIG | FILE+4*, FILE+12, FILE+16*, FILEQ!, END+1! |
| IBP | CHOOSE+6*, END+1! |
| IBPD | 3+1*, CHOOSE+6*, FILE+1, FILE+4, END+1! |
| IBPD( | CHOOSE+6*, FILE+15, FILE+16, FILE+17 |
| IBRUN | END+1! |
| IBSEL | CHOOSE*, CHOOSE+5, END+1! |
| IBX | EN+1*, 2+1*, 3+1*, 4+1*, 5+1*, 6+1*, END+1! |
| IOF | %+1 |
| X | CHOOSE+3*, EFFDT+1*, EFFDT+2, FILE+1*, FILE+9*, FILE+17*, END+1! |
| Y | EN+1, EN+2, 3+2, EFFDT+2, FILE+1, FILE+4, FILE+6, FILE+17, END+1! |
| Name | Field # of Occurrence |
|---|---|
| $T(@IBX | CHOOSE |
| $T(@IBX+1 | CHOOSE+1 |
| $T(@IBX+I | CHOOSE+1 |
| $T(@IBX+Y | CHOOSE+6 |