Routine: IBAMTD1

Call Graph

Package	Total	Call Graph
Integrated Billing	7	CTPT^IBAMTBU COUNT^IBAMTD (CHADD,COPAY,TYPE)^IBAUTL2 (CLADD,CLOCKCL,CLUPD,EVADD,EVCLOSE)^IBAUTL3 ($$DIEM,FILER)^IBAUTL5 $$BFO^IBECEAU CANCH^IBECEAU4
VA Fileman	2	NOW^%DTC ^DIE
Registration	1	$$BIL^DGMTUB

Package	Total	Caller Graph
Integrated Billing	2	IBAMTD IBAUTL4

Name	Comments	DBIA/ICR reference
EN	; Create charges for one-day admissions
LAST	; - close event, update billing clock
COPAY	; - process co-payment
UNFLAG	; Unflag continuous patient, if not transferring from the facility.
END
OPTQ
OPT(DFN,IBDATE)	; Cancel any OPT charges on days billed for inpatient care.

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Unflagging patient as continuous since 7/1/86..." Line Location: UNFLAG+2
Function Call: WRITE	Prompt: "completed." Line Location: UNFLAG+5
Routine Call	DIE Line Location: UNFLAG+4

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

Name	Line Occurrences (* Changed, ! Killed)
^DG(405.1 - [#405.1]	UNFLAG+7
^DGCR(399.1 - [#399.1]	EN+11
^IBE(350.3 - [#350.3]	OPT+5
^IBE(351.1 - [#351.1]	UNFLAG+3

Name	Line Occurrences
COPAY	EN+17
END	EN+5, EN+7, EN+8, EN+9, EN+12, EN+18, EN+19, EN+20, COPAY+5, COPAY+9 , COPAY+10
LAST	COPAY+1, COPAY+4
OPT	EN+15
OPTQ	OPT+4

Name	Field # of Occurrence
>> %	UNFLAG+4
DA	UNFLAG+3*, UNFLAG+4!
DFN	EN+5, EN+15, UNFLAG+3, OPT~, OPT+4
>> DGPMA	EN+5, EN+11, UNFLAG+1, UNFLAG+4, UNFLAG+7
DIE	UNFLAG+3*, UNFLAG+4!
DR	UNFLAG+4*!
DUZ	UNFLAG+4, OPT+3
>> IBASIH	UNFLAG+2
>> IBBS	EN+11
>> IBCHARG	COPAY+6*, COPAY+7
>> IBCHG	COPAY+6, COPAY+7*, COPAY+8
>> IBCLCT	EN+8, EN+9, LAST+1
>> IBCLDA	EN+8*, EN+9
>> IBCLDAY	EN+9, EN+13, COPAY+1, COPAY+2, COPAY+3
>> IBCLDOL	EN+9, COPAY+2, COPAY+4, COPAY+6, COPAY+8*
>> IBCLDT	EN+7, EN+9*
IBCRES	OPT+3~, OPT+5, OPT+6, OPT+7
IBDATE	OPT~, OPT+4
>> IBDT	EN+7, EN+9, EN+11, EN+15, EN+17, LAST+1
IBDUZ	OPT+3~*
>> IBEVCLD	LAST+1*
>> IBEVDT	EN+11*
>> IBMAX	COPAY+3*, COPAY+4, COPAY+6
>> IBMED	COPAY+3
IBN	EN+20, COPAY+10, OPT+3~, OPT+4*, OPT+7
>> IBNH	EN+11*, COPAY+3
>> IBNOS	EN+20, COPAY+10
>> IBSL	EN+11*
>> IBWHER	EN+8, EN+9, EN+11, EN+18, EN+19, EN+20, COPAY+5, COPAY+9, COPAY+10, LAST+1
>> IBX	EN+18*
>> IBY	EN+7*, EN+8, EN+9, EN+12, EN+18, EN+19, EN+20, COPAY+5, COPAY+9, COPAY+10
TRAN	UNFLAG+1~*, UNFLAG+2