IBAMTD ;ALB/CPM - MOVEMENT EVENT DRIVER INTERFACE ; 21-OCT-91
Source file <IBAMTD.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| EN | ; Process events from the Movement Event Driver.
|
|
| END1 | ||
| END | ||
| EVT | ; Billable admission event on record.
; I +$$MVT^DGPMOBS(IBA) S IBDT=IBDISDT D OE^IBAMTBU1,CLOSE1 G EVTQ |
|
| EVTQ | ||
| NOEVT | ; No billable event on record since admission date.
; I +$$MVT^DGPMOBS(IBA) W:'$G(DGQUIET) " patient not billed (adm. for O&E)... " G NOEVTQ ; admitted for Observation & Examination |
|
| NOEVTQ | ||
| COUNT | ; Find number of days on clock. Input: IBDT
|
|
| CLOSE | ; Close out charges, events; update clocks (at discharge: tag CLOSE1)
|
|
| CLOSE1 | ||
| CLOSEQ |
| FileNo | Call Tags |
|---|---|
| ^IBE(351.2 - [#351.2] | Classic Fileman Calls |
