©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
IBECEA3 ;ALB/CPM - Cancel/Edit/Add... Add a Charge ; 30-MAR-93
Source file <IBECEA3.m>
| Package | Total | Call Graph |
|---|---|---|
| Integrated Billing | 15 | (CEA,CHK)^IBAMTI1 $$RXST^IBARXEU (COPAY,COST)^IBAUTL2 CLOCK^IBAUTL3 $$CVA^IBAUTL5 ARRAY^IBECEA0 PASSCH^IBECEA22 ($$EVF,ADEV,NOEV)^IBECEA31 (CHMPVA,CLUPD,FEPR,SPEC)^IBECEA32 (CHTYP,CLMSG,NOCL,OPT)^IBECEA33 ($$INPT,HDR,PAUSE)^IBECEAU (FR,TO,UNIT)^IBECEAU2 (ADD,CTBB,NODED)^IBECEAU3 (ERR,PROC)^IBECEAU4 $$DAT1^IBOUTL |
| Registration | 2 | $$BILST^DGMTUB PAUSE^VALM1 |
| Kernel | 1 | ($$FMADD,$$FMDIFF)^XLFDT |
| Package | Total | Caller Graph |
|---|---|---|
| Integrated Billing | 1 | IBECEA1 |
| Registration | 1 | DGVPTIB1 |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| FR | ; - ask 'bill from' date
|
|
| ADDQ | ; - display error, rebuild list, and quit
|
|
| ADDQ1 | ||
| TO | ; - ask 'bill to' date
|
|
| ADD | ; Add a Charge protocol
|
|
| EV | ; - find event record, or select admission for linkage
|
|
| PROC | ; - okay to proceed?
|
| Name | Field # of Occurrence |
|---|---|
| $$BILST^DGMTUB | ADD+1 |
| CEA^IBAMTI1 | PROC+7 |
| CHK^IBAMTI1 | PROC+18 |
| $$RXST^IBARXEU | ADD+1 |
| COPAY^IBAUTL2 | FR+7 |
| COST^IBAUTL2 | FR+17 |
| CLOCK^IBAUTL3 | ADD+5 |
| $$CVA^IBAUTL5 | ADD+1 |
| ARRAY^IBECEA0 | ADDQ+2 |
| PASSCH^IBECEA22 | PROC+15 |
| $$EVF^IBECEA31 | EV+1 |
| ADEV^IBECEA31 | PROC+4 |
| NOEV^IBECEA31 | EV+2 |
| CHMPVA^IBECEA32 | ADD+13 |
| CLUPD^IBECEA32 | PROC+21 |
| FEPR^IBECEA32 | TO+5 |
| SPEC^IBECEA32 | EV+7 |
| CHTYP^IBECEA33 | ADD+10 |
| CLMSG^IBECEA33 | FR+4 |
| NOCL^IBECEA33 | FR+10 |
| OPT^IBECEA33 | FR+13 |
| $$INPT^IBECEAU | ADD+17 |
| HDR^IBECEAU | ADD+6 |
| PAUSE^IBECEAU | ADDQ+1 |
| FR^IBECEAU2 | FR+1 |
| TO^IBECEAU2 | TO+1 |
| UNIT^IBECEAU2 | ADD+20 |
| ADD^IBECEAU3 | PROC+11 |
| CTBB^IBECEAU3 | ADD+20, FR+21, TO+7 |
| NODED^IBECEAU3 | ADD+7 |
| ERR^IBECEAU4 | ADDQ+1 |
| PROC^IBECEAU4 | PROC+1 |
| $$DAT1^IBOUTL | EV+4, EV+5 |
| PAUSE^VALM1 | ADD+2 |
| $$FMADD^XLFDT | ADD+21 |
| $$FMDIFF^XLFDT | TO+4 |
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^IB - [#350] | EV+3 |
| ^IBE(350.1 - [#350.1] | FR+18 |
| ^IBE(351.2 - [#351.2] | EV+7 |
| Name | Line Occurrences |
|---|---|
| ADDQ | ADD+7, ADD+10, ADD+13, ADD+20, FR+1, FR+4, FR+7, FR+10, FR+13, FR+16 , TO+1, TO+5, EV+2, PROC+1, PROC+4, PROC+11, PROC+15 |
| ADDQ1 | ADD+2 |
| EV | FR+21 |
| PROC | ADD+20, FR+13, TO+5, EV+2 |
| Name | Field # of Occurrence |
|---|---|
| ^(20 | FR+18 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| >> DFN | ADD+1, EV+1 |
| DT | ADD+1, ADD+21, EV+5 |
| IBAFY | ADDQ+4! |
| IBARTYP | ADDQ+4! |
| IBATYP | FR+18, ADDQ+3! |
| IBBG | ADDQ+2*, ADDQ+3! |
| IBBS | ADDQ+3! |
| IBCATC | ADD+1*, ADD+2, ADDQ1! |
| IBCHG | FR+7, FR+16, FR+21*, TO+6*, ADDQ+4! |
| IBCLDA | ADD+5, ADD+17, FR+10, ADDQ+3! |
| IBCLDAY | ADD+5*, ADD+16, ADD+17, ADDQ+3! |
| IBCLDOL | ADD+5*, ADD+17, FR+7, FR+21, TO+6, ADDQ+3! |
| IBCLDT | ADD+5*, FR+10, ADDQ+3! |
| IBCLSF | ADDQ+4! |
| IBCOMMIT | ADD+1*, ADDQ+2, ADDQ1! |
| IBCVA | ADDQ+4! |
| IBCVAEL | ADD+1*, ADD+2, ADDQ1! |
| IBDD | ADDQ+4! |
| IBDESC | FR+18*, ADDQ+4! |
| IBDG | PROC+4, ADDQ+3! |
| IBDT | FR+7*, FR+17~*, ADDQ+4! |
| IBEVDA | EV+1*, EV+2, EV+3, EV+4, EV+5, EV+6*, EV+7, PROC+7, PROC+18, ADDQ+4! |
| IBEVDT | ADDQ+4! |
| IBEXSTAT | ADD+1*, ADD+2, ADDQ1! |
| IBFR | FR+7, FR+10, FR+17, FR+21, TO+4, EV+1, ADDQ+3! |
| IBIL | ADDQ+4! |
| IBLIM | ADD+21*, ADDQ+3! |
| IBMED | ADD+5*, ADD+16*, FR+7, FR+21, TO+6, ADDQ+3! |
| IBN | ADDQ+4! |
| IBND | ADDQ+4! |
| IBNH | EV+1, ADDQ+3! |
| IBNOS | ADDQ+4! |
| IBRTED | ADDQ+3! |
| >> IBRX | ADD+2 |
| IBSEQNO | ADDQ+3! |
| IBSIBC | EV+7, PROC+7, ADDQ+3! |
| IBSIBC1 | PROC+18, ADDQ+3! |
| IBSL | EV+3*, ADDQ+4! |
| IBTO | FR+21*, TO+4, EV+1, ADDQ+3! |
| IBTOTL | ADDQ+4! |
| IBTRAN | ADDQ+4! |
| IBUNIT | FR+21*, TO+4*, TO+6, TO+7, ADDQ+4! |
| IBX | ADDQ+4! |
| IBXA | ADD+13, ADD+16, ADD+17, ADD+20, ADD+21, FR+7, FR+13, FR+16, FR+21, TO+4 , TO+5, TO+6, TO+7, ADDQ+3! |
| >> IBY | ADD+7, ADD+10, ADD+20, FR+1, FR+4, FR+7, FR+10, FR+13, TO+1, TO+5 , EV+2, PROC+1, PROC+4, PROC+11, PROC+15, ADDQ+1 |
| VA | ADDQ+4! |
| VADM | ADDQ+4! |
| VAERR | ADDQ+4! |
| >> VALMBCK | ADD+2*, ADDQ+1* |
| >> VALMBG | ADDQ+2* |
| >> Y(0 | ADD+16 |