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: 25

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  

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+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

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+23
^IBE(351.2 - [#351.2] EN+27, EN+37

Label References

Name Line Occurrences
@( EN+65
CLOSE EVT+7, NOEVT+10
CLOSE1 EVT+3
CLOSEQ CLOSE+1, CLOSE+2
COUNT EVT+6, NOEVT+9
END EN+19, EN+27, EN+30, EN+31, EN+35, EN+40, EN+52, EN+61
END1 EN+56, EN+57, EN+58, EN+61
EVTQ EVT+2, EVT+3
NOEVTQ NOEVT+3, NOEVT+4, NOEVT+6

Naked Globals

Name Field # of Occurrence
^(0 EN+23, EN+37

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+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, END1EVT+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
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