Call Graph
IBAMTD1 ;ALB/CPM-MOVEMENT EVENT DRIVER INTERFACE (CON'T) ;21-OCT-91
Source file <IBAMTD1.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 | ; Create charges for one-day admissions
; Input: DFN, DGPMA, IBDT, IBBS, IBCLDA ; IBCLCT/IBCLDAY/IBCLDOL/IBCLDT (if IBCLDA'=0) |
|
| COPAY | ; - process co-payment
|
|
| LAST | ; - close event, update billing clock
|
|
| END | ||
| UNFLAG | ; Unflag continuous patient, if not transferring from the facility.
|
|
| OPT(DFN,IBDATE) | ; Cancel any OPT charges on days billed for inpatient care.
; Input: DFN -- Pointer to patient in file #2 ; IBDATE -- Date to check for OPT charges |
|
| OPTQ |
| Name | Field # of Occurrence |
|---|---|
| NOW^%DTC | UNFLAG+3 |
| $$BIL^DGMTUB | EN+5 |
| ^DIE | UNFLAG+4 |
| $$GMTEFD^IBAGMT | EN+8 |
| $$ISGMTPT^IBAGMT | EN+7 |
| $$ISGMTTYP^IBAGMT | EN+23 |
| $$REDUCE^IBAGMT | EN+23, COPAY+4, COPAY+9 |
| CTPT^IBAMTBU | UNFLAG+7 |
| COUNT^IBAMTD | EN+11 |
| CHADD^IBAUTL2 | EN+24, COPAY+13 |
| COPAY^IBAUTL2 | COPAY+7 |
| TYPE^IBAUTL2 | EN+21 |
| CLADD^IBAUTL3 | EN+12 |
| CLOCKCL^IBAUTL3 | EN+11, LAST+1 |
| CLUPD^IBAUTL3 | LAST+1 |
| EVADD^IBAUTL3 | EN+15 |
| EVCLOSE^IBAUTL3 | LAST+1 |
| $$DIEM^IBAUTL5 | EN+20 |
| FILER^IBAUTL5 | EN+25, COPAY+14 |
| $$BFO^IBECEAU | OPT+4 |
| CANCH^IBECEAU4 | OPT+7 |
| FileNo | Call Tags |
|---|---|
| ^IBE(351.1 - [#351.1] | Classic Fileman Calls |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DG(405.1 - [#405.1] | UNFLAG+7 |
| ^DGCR(399.1 - [#399.1] | EN+14 |
| ^IBE(350.3 - [#350.3] | OPT+5 |
| ^IBE(351.1 - [#351.1] | UNFLAG+3 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| >> % | UNFLAG+4 |
| DA | UNFLAG+3*, UNFLAG+4! |
| DFN | EN+5, EN+7, EN+18, UNFLAG+3, OPT~, OPT+4 |
| >> DGPMA | EN+5, EN+7, EN+14, EN+23, COPAY+4, COPAY+9, UNFLAG+1, UNFLAG+4, UNFLAG+7 |
| >> DGQUIET | UNFLAG+2, UNFLAG+5 |
| DIE | UNFLAG+3*, UNFLAG+4! |
| DR | UNFLAG+4*! |
| DUZ | UNFLAG+4, OPT+3 |
| >> IBASIH | UNFLAG+2 |
| >> IBATYP | EN+23 |
| >> IBBS | EN+14 |
| >> IBCHARG | COPAY+10*, COPAY+11 |
| >> IBCHG | EN+23*, COPAY+9*, COPAY+10, COPAY+11*, COPAY+12 |
| >> IBCLCT | EN+11*, EN+12*, LAST+1 |
| >> IBCLDA | EN+11*, EN+12 |
| >> IBCLDAY | EN+12*, EN+16*, COPAY+1, COPAY+2, COPAY+5 |
| >> IBCLDOL | EN+12*, COPAY+2*, COPAY+6, COPAY+10, COPAY+12* |
| >> IBCLDT | EN+10, EN+12* |
| IBCRES | OPT+3~, OPT+5*, OPT+6*, OPT+7 |
| IBDATE | OPT~, OPT+4 |
| >> IBDT | EN+10, EN+12, EN+14, EN+18, EN+20, LAST+1 |
| IBDUZ | OPT+3~* |
| >> IBEVCLD | LAST+1* |
| >> IBEVDT | EN+14* |
| IBGMT | EN+6~, EN+7*, EN+23, COPAY+4, COPAY+9 |
| IBGMTEFD | EN+6~, EN+8*, EN+23, COPAY+4, COPAY+9 |
| IBGMTR | EN+6~, EN+7*, EN+23*, COPAY+9* |
| >> IBMAX | COPAY+3*, COPAY+4*, COPAY+5*, COPAY+6, COPAY+10 |
| >> IBMED | COPAY+3 |
| IBN | EN+25, COPAY+14, OPT+3~, OPT+4*, OPT+7 |
| >> IBNH | EN+14*, COPAY+5 |
| >> IBNOS | EN+25*, COPAY+14* |
| >> IBSL | EN+14* |
| >> IBWHER | EN+11*, EN+12*, EN+14*, EN+21*, EN+24*, EN+25*, COPAY+7*, COPAY+13*, COPAY+14*, LAST+1* |
| >> IBX | EN+21* |
| >> IBY | EN+10*, EN+11, EN+12, EN+15, EN+21, EN+24, EN+25, COPAY+7, COPAY+13, COPAY+14 |
| TRAN | UNFLAG+1~*, UNFLAG+2 |
