Routine: IBAMTD

Call Graph Total: 17

Package	Total	Call Graph
Integrated Billing	13	PROC^IBACVA ^IBAERR1 ^IBAMTBU OE^IBAMTBU1 (KILL1,ORIG)^IBAMTC (,UNFLAG)^IBAMTD1 (ADM,DIS)^IBAMTI SITE^IBAUTL SERV^IBAUTL2 (CLOCK,CLUPD,EVCLOSE,EVFIND)^IBAUTL3 ^IBAUTL4 ($$ASIH,$$CVA,$$OE,$$SECT,FILER,LAST,PASS)^IBAUTL5 INP^IBTRKR
Registration	2	$$BILST^DGMTUB IN5^VADPT
Scheduling	1	CL^SDCO21
VA Fileman	1	(,C,H,YMD)^%DTC

Package

Total

Call Graph

PROC^IBACVA ^IBAERR1 ^IBAMTBU OE^IBAMTBU1 (KILL1,ORIG)^IBAMTC (,UNFLAG)^IBAMTD1 (ADM,DIS)^IBAMTI SITE^IBAUTL
SERV^IBAUTL2 (CLOCK,CLUPD,EVCLOSE,EVFIND)^IBAUTL3 ^IBAUTL4 ($$ASIH,$$CVA,$$OE,$$SECT,FILER,LAST,PASS)^IBAUTL5 INP^IBTRKR

$$BILST^DGMTUB IN5^VADPT

CL^SDCO21

(,C,H,YMD)^%DTC

Package	Total	Caller Graph
Integrated Billing	1	IBAMTD1

Package

Total

Caller Graph

Name	Line Occurrences
Function Call: WRITE	Prompt: " patient not billed (adm. for O&E)... " Line Location: NOEVT+1

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

Name	Field # of Occurrence
^(0	EN+12

Name	Field # of Occurrence
>> %H	EVT+3, EVT+4, EVT+5, EVT+6, NOEVT+5, NOEVT+6, NOEVT+8, NOEVT+9
>> DFN	EN+8, EN+12, EN+19, EN+27, EN+28
>> DGPMA	IBAMTD+4, EN+11, EN+12, EN+15, EN+16, EN+19, EN+26, EN+31, EN+34, EN+37
>> DGPMP	IBAMTD+4, EN+12, EN+15, EN+16, EN+19, EN+23
DT	EN+31, EN+37
DUZ	END1
>> IBA	EN+15*, EN+16, EN+28, EVT+1, NOEVT+1, NOEVT+2
>> IBADMDT	EN+20, EN+27, NOEVT+5, NOEVT+6
>> IBAFY	EN+37*
>> IBASIH	EN+11*, EN+12, EN+16, EN+34, 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+27~, EN+28*
IBCLSF(0	EN+28
>> IBCUR	NOEVT+2*, NOEVT+4, NOEVT+6
>> IBDISDT	EN+37*, EVT+1, EVT+2, EVT+3, EVT+5, NOEVT+4, NOEVT+6, NOEVT+8
>> IBDT	EVT+1, 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+44, CLOSE1
>> IBEVDT	EVT+4
>> IBEVOLD	EN+37*
>> IBJOB	EN+23, EN+31, EN+37*
>> IBLC	EN+19*, EN+20
>> IBNOS	CLOSE+1, CLOSE+2
>> IBSAVBS	NOEVT+6*
>> IBWHER	EN+37, EN+40, EN+44*
>> IBY	EN+37, EN+38, EN+39, EN+40, END1, EVT+2*, EVT+3, EVT+7, NOEVT+10, CLOSE+1 , CLOSE+2
>> 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+37*, EN+38

Information

Name	Comments	DBIA/ICR reference
END1
COUNT	; Find number of days on clock. Input: IBDT
EN	; Process events from the Movement Event Driver.
END
CLOSE1
CLOSEQ
EVTQ
NOEVT	; No billable event on record since admission date.
NOEVTQ
CLOSE	; Close out charges, events; update clocks (at discharge: tag CLOSE1)
EVT	; Billable admission event on record.