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

Package Total Call Graph
Integrated Billing 18 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  
$$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: 2

Package Total Caller Graph
Integrated Billing 2 IB MEANS TEST BILLING  IBAMTD1  

Entry Points

Name Comments DBIA/ICR reference
V ;;2.0;INTEGRATED BILLING;**45,52,93,115,132,153,164,156,234,312,339**;21-MAR-94;Build 2
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+40
$$BILST^DGMTUB EN+27
$$MVT^DGPMOBS EN+58
^DIK EN+34
CL^IBACV EN+38
PROC^IBACVA EN+16
EN^IBAECI EN+13
^IBAERR1 END1
^IBAMTBU EN+33, EN+46
KILL1^IBAMTC END
ORIG^IBAMTC EN+28
^IBAMTD1 NOEVT+4, NOEVT+6
UNFLAG^IBAMTD1 EN+20
ADM^IBAMTI EN+39, EN+40, EN+41, EN+42, EN+43
DIS^IBAMTI EN+24
^IBATEI EN+10
SITE^IBAUTL EN+53
SERV^IBAUTL2 EN+54
CLOCK^IBAUTL3 EN+55
CLUPD^IBAUTL3 CLOSE+3
EVCLOSE^IBAUTL3 CLOSE1
EVFIND^IBAUTL3 EN+61
^IBAUTL4 EVT+7, NOEVT+10
$$ASIH^IBAUTL5 EN+19
$$CVA^IBAUTL5 EN+16
$$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+58
$$FY^IBOUTL EN+52
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+20
^IBE(351.2 - [#351.2] EN+24, EN+34

Label References

Name Line Occurrences
@( EN+62
CLOSE EVT+7, NOEVT+10
CLOSE1 EVT+3
CLOSEQ CLOSE+1, CLOSE+2
COUNT EVT+6, NOEVT+9
END EN+16, EN+24, EN+27, EN+28, EN+32, EN+37, EN+49, EN+58
END1 EN+53, EN+54, EN+55, EN+58
EVTQ EVT+2, EVT+3
NOEVTQ NOEVT+3, NOEVT+4, NOEVT+6

Naked Globals

Name Field # of Occurrence
^(0 EN+20, EN+34

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+34*!
>> DFN EN+16, EN+20, EN+27, EN+38, EN+39, EN+40, EN+41, EN+42, EN+43
>> DGPMA V+3, EN+19, EN+20, EN+23, EN+24, EN+27, EN+34, EN+37, EN+46, EN+49
EN+52
>> DGPMP V+3, EN+20, EN+23, EN+24, EN+27, EN+32, EN+34
>> DGQUIET EN+51, END1+1
DIK EN+34*!
DT EN+46, EN+52
DUZ END1
>> IBA EN+23*, EN+24, EN+34, EN+39, EN+40, EN+41, EN+42, EN+43, EN+58, NOEVT+2
>> IBADMDT EN+28, EN+38, EN+40, NOEVT+5, NOEVT+6
>> IBAFY EN+52*
IBALTC EN+13~
>> IBASIH EN+19*, EN+20, EN+24, EN+49, 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+38~, EN+39*, EN+40*, EN+41, EN+42, EN+43
IBCLSF(0 EN+39
IBCLSF(5 EN+40*
>> IBCUR NOEVT+2*, NOEVT+4, NOEVT+6
>> IBDISDT EN+52*, 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+62, CLOSE1
>> IBEVDT EVT+4
>> IBEVOLD EN+52*
>> IBJOB EN+32*, EN+46*, EN+52*
>> IBLC EN+27*, EN+28
>> IBNOS CLOSE+1*, CLOSE+2*
>> IBSAVBS NOEVT+6*
>> IBWHER EN+52*, EN+55*, EN+62*
>> IBY EN+52*, EN+53*, EN+54, EN+55, EN+58, END1EVT+2*, EVT+3, EVT+7, NOEVT+10
CLOSE+1, CLOSE+2
U EN+40
>> 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+52*, EN+53
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