IBAMTD ;ALB/CPM - MOVEMENT EVENT DRIVER INTERFACE ; 21-OCT-91
Source file <IBAMTD.m>
| Package | Total | Call Graph |
|---|---|---|
| Integrated Billing | 19 | CL^IBACV PROC^IBACVA EN^IBAECI ^IBAERR1 ^IBAMTBU (KILL1,ORIG)^IBAMTC (,UNFLAG)^IBAMTD1 (ADM,DIS)^IBAMTI ^IBATEI SITE^IBAUTL SERV^IBAUTL2 (CLOCK,CLUPD,EVCLOSE,EVFIND)^IBAUTL3 ^IBAUTL4 ($$ASIH,$$CVA,$$SECT,FILER,LAST,PASS)^IBAUTL5 $$SWSTAT^IBBAPI OBS^IBECEAU5 ADM^IBECECQ1 $$FY^IBOUTL INP^IBTRKR |
| Registration | 4 | $$GETSTAT^DGMSTAPI $$BILST^DGMTUB $$MVT^DGPMOBS IN5^VADPT |
| VA FileMan | 2 | (,C,H,YMD)^%DTC ^DIK |
| 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 |
| Package | Total | Caller Graph |
|---|---|---|
| Integrated Billing | 2 | IB MEANS TEST BILLING IBAMTD1 |
| Kernel | 1 | ^ORD(101 |
| 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 |
| Name | Field # of Occurrence |
|---|---|
| ^%DTC | COUNT+1 |
| C^%DTC | EVT+3 |
| H^%DTC | EVT+4, EVT+5, NOEVT+5, NOEVT+6, NOEVT+8 |
| YMD^%DTC | EVT+6, NOEVT+9 |
| $$GETSTAT^DGMSTAPI | EN+43 |
| $$BILST^DGMTUB | EN+30 |
| $$MVT^DGPMOBS | EN+61 |
| ^DIK | EN+37 |
| CL^IBACV | EN+41 |
| PROC^IBACVA | EN+19 |
| EN^IBAECI | EN+16 |
| ^IBAERR1 | END1 |
| ^IBAMTBU | EN+36, EN+49 |
| KILL1^IBAMTC | END |
| ORIG^IBAMTC | EN+31 |
| ^IBAMTD1 | NOEVT+4, NOEVT+6 |
| UNFLAG^IBAMTD1 | EN+23 |
| ADM^IBAMTI | EN+42, EN+43, EN+44, EN+45, EN+46 |
| DIS^IBAMTI | EN+27 |
| ^IBATEI | EN+13 |
| SITE^IBAUTL | EN+56 |
| SERV^IBAUTL2 | EN+57 |
| CLOCK^IBAUTL3 | EN+58 |
| CLUPD^IBAUTL3 | CLOSE+3 |
| EVCLOSE^IBAUTL3 | CLOSE1 |
| EVFIND^IBAUTL3 | EN+64 |
| ^IBAUTL4 | EVT+7, NOEVT+10 |
| $$ASIH^IBAUTL5 | EN+22 |
| $$CVA^IBAUTL5 | EN+19 |
| $$SECT^IBAUTL5 | NOEVT+2, NOEVT+6 |
| FILER^IBAUTL5 | CLOSE+1, CLOSE+2 |
| LAST^IBAUTL5 | NOEVT+7 |
| PASS^IBAUTL5 | EVT+3 |
| $$SWSTAT^IBBAPI | EN+4 |
| OBS^IBECEAU5 | EN+61 |
| ADM^IBECECQ1 | EN+10 |
| $$FY^IBOUTL | EN+55 |
| INP^IBTRKR | EN+7 |
| IN5^VADPT | NOEVT+2, NOEVT+6 |
| FileNo | Call Tags |
|---|---|
| ^IBE(351.2 - [#351.2] | Classic Fileman Calls |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DGPM - [#405] | NOEVT+2 |
| ^IBE(351.1 - [#351.1] | EN+23 |
| ^IBE(351.2 - [#351.2] | EN+27, EN+37 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| >> %H | EVT+3, EVT+4, EVT+5, EVT+6*, NOEVT+5, NOEVT+6, NOEVT+8, NOEVT+9* |
| DA | EN+37*! |
| >> DFN | EN+19, EN+23, EN+30, EN+41, EN+42, EN+43, EN+44, EN+45, EN+46 |
| >> DGPMA | IBAMTD+4, EN+22, EN+23, EN+26, EN+27, EN+30, EN+37, EN+40, EN+49, EN+52 , EN+55 |
| >> DGPMP | IBAMTD+4, EN+23, EN+26, EN+27, EN+30, EN+35, EN+37 |
| >> DGQUIET | EN+54, END1+1 |
| DIK | EN+37*! |
| DT | EN+49, EN+55 |
| DUZ | END1 |
| >> IBA | EN+26*, EN+27, EN+37, EN+42, EN+43, EN+44, EN+45, EN+46, EN+61, NOEVT+2 |
| >> IBADMDT | EN+31, EN+41, EN+43, NOEVT+5, NOEVT+6 |
| >> IBAFY | EN+55* |
| IBALTC | EN+16~ |
| >> IBASIH | EN+22*, EN+23, EN+27, EN+52, NOEVT+3, NOEVT+4, NOEVT+6 |
| >> IBBDT | EVT+3*, EVT+4*, EVT+6, NOEVT+5*, NOEVT+6*, NOEVT+9 |
| >> IBBS | NOEVT+2*, NOEVT+3, NOEVT+4, NOEVT+6* |
| >> IBCHCDA | CLOSE+2 |
| >> IBCHPDA | CLOSE+1 |
| >> IBCLCT | COUNT+1* |
| >> IBCLDA | EVT+6, NOEVT+9, CLOSE+3 |
| >> IBCLDT | COUNT+1 |
| IBCLSF | EN+41~, EN+42*, EN+43*, EN+44, EN+45, EN+46 |
| IBCLSF(0 | EN+42 |
| IBCLSF(5 | EN+43* |
| >> IBCUR | NOEVT+2*, NOEVT+4, NOEVT+6 |
| >> IBDISDT | EN+55*, EVT+2, EVT+3, EVT+5, NOEVT+4, NOEVT+6, NOEVT+8 |
| >> IBDT | EVT+3*, EVT+6*, NOEVT+4*, NOEVT+6*, NOEVT+9*, COUNT+1, CLOSE1 |
| IBDUZ | END1*! |
| >> IBEDT | EVT+5*, NOEVT+8* |
| >> IBEVCAL | EVT+2, EVT+3, EVT+4 |
| >> IBEVCLD | CLOSE1* |
| >> IBEVDA | EN+65, CLOSE1 |
| >> IBEVDT | EVT+4 |
| >> IBEVOLD | EN+55* |
| >> IBJOB | EN+35*, EN+49*, EN+55* |
| >> IBLC | EN+30*, EN+31 |
| >> IBNOS | CLOSE+1*, CLOSE+2* |
| >> IBSAVBS | NOEVT+6* |
| >> IBWHER | EN+55*, EN+58*, EN+65* |
| >> IBY | EN+55*, EN+56*, EN+57, EN+58, EN+61, END1, EVT+2*, EVT+3, EVT+7, NOEVT+10 , CLOSE+1, CLOSE+2 |
| U | EN+43 |
| >> VAIP("D" | NOEVT+2*, NOEVT+6* |
| >> VAIP(8 | NOEVT+2, NOEVT+6 |
| >> X | EVT+3, EVT+4*, EVT+5*, EVT+6, NOEVT+5*, NOEVT+6*, NOEVT+8*, NOEVT+9, COUNT+1 |
| >> X1 | EVT+3*, COUNT+1* |
| >> X2 | EVT+3*, COUNT+1* |
| >> Y | EN+55*, EN+56 |
