Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: IBAMTD

Package: Integrated Billing

Routine: IBAMTD


Information

IBAMTD ;ALB/CPM - MOVEMENT EVENT DRIVER INTERFACE ; 21-OCT-91

Source Information

Source file <IBAMTD.m>

Call Graph

Call Graph

Call Graph Total: 26

Package Total Call Graph
Integrated Billing 20 CL^IBACV  PROC^IBACVA  EN^IBAECI  ^IBAERR1  ^IBAMTBU  (KILL1,ORIG)^IBAMTC  (,UNFLAG)^IBAMTD1  (ADM,DIS)^IBAMTI  
$$CHKELIG^IBAMTS1  ^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  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 3

Package Total Caller Graph
Integrated Billing 2 IB MEANS TEST BILLING  IBAMTD1  
Kernel 1 ^ORD(101  

Entry Points

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

External References

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+45
$$BILST^DGMTUB EN+32
$$MVT^DGPMOBS EN+63
^DIK EN+39
CL^IBACV EN+43
PROC^IBACVA EN+21
EN^IBAECI EN+18
^IBAERR1 END1
^IBAMTBU EN+38, EN+51
KILL1^IBAMTC END
ORIG^IBAMTC EN+33
^IBAMTD1 NOEVT+4, NOEVT+6
UNFLAG^IBAMTD1 EN+25
ADM^IBAMTI EN+44, EN+45, EN+46, EN+47, EN+48
DIS^IBAMTI EN+29
$$CHKELIG^IBAMTS1 EN+9
^IBATEI EN+15
SITE^IBAUTL EN+58
SERV^IBAUTL2 EN+59
CLOCK^IBAUTL3 EN+60
CLUPD^IBAUTL3 CLOSE+3
EVCLOSE^IBAUTL3 CLOSE1
EVFIND^IBAUTL3 EN+66
^IBAUTL4 EVT+7, NOEVT+10
$$ASIH^IBAUTL5 EN+24
$$CVA^IBAUTL5 EN+21
$$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+63
ADM^IBECECQ1 EN+12
$$FY^IBOUTL EN+57
INP^IBTRKR EN+7
IN5^VADPT NOEVT+2, NOEVT+6

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^IBE(351.2 - [#351.2] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DGPM - [#405] NOEVT+2
^IBE(351.1 - [#351.1] EN+25
^IBE(351.2 - [#351.2] EN+29, EN+39

Label References

Name Line Occurrences
@( EN+67
CLOSE EVT+7, NOEVT+10
CLOSE1 EVT+3
CLOSEQ CLOSE+1, CLOSE+2
COUNT EVT+6, NOEVT+9
END EN+21, EN+29, EN+32, EN+33, EN+37, EN+42, EN+54, EN+63
END1 EN+58, EN+59, EN+60, EN+63
EVTQ EVT+2, EVT+3
NOEVTQ NOEVT+3, NOEVT+4, NOEVT+6

Naked Globals

Name Field # of Occurrence
^(0 EN+25, EN+39

Local Variables

Legend:

>> 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+39*!
>> DFN EN+9, EN+21, EN+25, EN+32, EN+43, EN+44, EN+45, EN+46, EN+47, EN+48
>> DGPMA IBAMTD+4, EN+24, EN+25, EN+28, EN+29, EN+32, EN+39, EN+42, EN+51, EN+54
, EN+57
>> DGPMP IBAMTD+4, EN+25, EN+28, EN+29, EN+32, EN+37, EN+39
>> DGQUIET EN+56, END1+1
DIK EN+39*!
DT EN+51, EN+57
DUZ END1
>> IBA EN+28*, EN+29, EN+39, EN+44, EN+45, EN+46, EN+47, EN+48, EN+63, NOEVT+2
>> IBADMDT EN+33, EN+43, EN+45, NOEVT+5, NOEVT+6
>> IBAFY EN+57*
IBALTC EN+18~
>> IBASIH EN+24*, EN+25, EN+29, EN+54, 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+43~, EN+44*, EN+45*, EN+46, EN+47, EN+48
IBCLSF(0 EN+44
IBCLSF(5 EN+45*
>> IBCUR NOEVT+2*, NOEVT+4, NOEVT+6
>> IBDISDT EN+57*, 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+67, CLOSE1
>> IBEVDT EVT+4
>> IBEVOLD EN+57*
>> IBJOB EN+37*, EN+51*, EN+57*
>> IBLC EN+32*, EN+33
>> IBNOS CLOSE+1*, CLOSE+2*
>> IBSAVBS NOEVT+6*
>> IBWHER EN+57*, EN+60*, EN+67*
>> IBY EN+57*, EN+58*, EN+59, EN+60, EN+63, END1, EVT+2*, EVT+3, EVT+7, NOEVT+10
, CLOSE+1, CLOSE+2
U EN+45
>> 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+57*, EN+58
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All