Routine: IBOMTE1

Package	Total	Call Graph
Integrated Billing	5	(CLOCK,DED)^IBAUTL3 ($$CONT,$$DIEM)^IBAUTL5 $$PT^IBEFUNC (,COHDR)^IBOMTE2 ($$DAT1,PAUSE)^IBOUTL
Kernel	1	^%ZISC
Registration	1	$$BILST^DGMTUB
VA Fileman	1	(,COMMA,H,YMD)^%DTC

Package	Total	Caller Graph
Integrated Billing	2	IBOMTE IBOMTE2

Entry Points

Name	Comments	DBIA/ICR reference
END	; Close device and quit
HDR	; Print header.
TOT
NOCOP	; Print 'No Copay' message.
PER	; Calculate the total per diem charge and print total.
NOPD	; Print 'No Per Diem' message.

Name	Line Occurrences
Function Call: WRITE	Prompt: " Please note that this patient has never been Category C. ",! Line Location: IBOMTE1+12
Function Call: WRITE	Prompt: !,"Last date as Category C: ",$$DAT1^IBOUTL(IBLASTC),! Line Location: IBOMTE1+14
Function Call: WRITE	Prompt: " THIS PATIENT HAS AN ACTIVE BILLING CLOCK ",!?6,"Clock date: ",$$DAT1^IBOUTL(IBCLDT)," Days of inpatient care within clock: ",$J(+IBCLDAY,2) Line Location: IBOMTE1+21
Function Call: WRITE	Prompt: !?6,"Copayments made for current 90 days of inpatient care: ",$J("$"_$J(IBCLDOL,0,2),7),! Line Location: IBOMTE1+22
Function Call: WRITE	Prompt: ?3,"(PATIENT IS CONTINUOUS SINCE 7/1/86)",! Line Location: IBOMTE1+33
Function Call: WRITE	Prompt: ?61,X Line Location: PER+9
Function Call: WRITE	Prompt: ?61,X Line Location: TOT+0
Function Call: WRITE	Prompt: @IOF Line Location: HDR+2
Function Call: WRITE	Prompt: "Please note that this patient is a current inpatient.",! Line Location: HDR+4
Function Call: WRITE	Prompt: " (ONE-DAY ADMISSION)" Line Location: HDR+6

Name	Line Occurrences (* Changed, ! Killed)
^DGCR(399.1 - [#399.1]	IBOMTE1+30

Name	Field # of Occurrence
%H	IBOMTE1+28, IBOMTE1+29, PER+3*, END+4!
>> DFN	IBOMTE1+7*, IBOMTE1+10, IBOMTE1+33
DT	IBOMTE1+11, IBOMTE1+13
IBA	IBOMTE1+26!
IBATYP	END+4!
IBBDH	IBOMTE1+28*, END+4!
>> IBBDT	IBOMTE1+11, IBOMTE1+13, IBOMTE1+20, IBOMTE1+23, IBOMTE1+27, IBOMTE1+28, PER+3, PER+5*, PER+8, HDR+5 , HDR+6
>> IBBS	IBOMTE1+30
IBCHARG	END+4!
IBCHG	PER+7*, PER+9, END+4!
IBCHGT	IBOMTE1+26*, END+4!
IBCLCT	IBOMTE1+20, IBOMTE1+23, END+4!
IBCLDA	IBOMTE1+19, IBOMTE1+20*, IBOMTE1+23, END+4!
IBCLDAY	IBOMTE1+21, IBOMTE1+23*, END+4!
IBCLDOL	IBOMTE1+22, IBOMTE1+23*, END+4!
IBCLDT	IBOMTE1+20, IBOMTE1+21, IBOMTE1+23*, END+4!
IBDESC	END+4!
>> IBDFN	IBOMTE1+7
IBDIEM	PER+3*, PER+4, PER+5, END+4!
IBDT	END+4!
IBEDH	IBOMTE1+29*, PER+3, END+4!
>> IBEDT	IBOMTE1+27, IBOMTE1+29, IBOMTE1+33, PER+3*, PER+4, PER+5, PER+8, HDR+5, HDR+6
>> IBEVDA	IBOMTE1+27, HDR+4, HDR+6
IBFCTR	IBOMTE1+28*, END+4!
IBH	END+4!, HDR+1*, HDR+3
IBI	END+4!
IBJ	END+4!
IBLASTC	IBOMTE1+10*, IBOMTE1+11, IBOMTE1+12, IBOMTE1+14, END+4!
IBLINE	IBOMTE1+6*, PER+2, END+4!
IBLOS	IBOMTE1+27, PER+5, PER+6, PER+7, PER+8, END+4!
IBMAX	END+4!
IBMED	END+4!
IBNH	IBOMTE1+30*, PER+2, PER+7, PER+8, END+4!
IBPAG	IBOMTE1+6, END+4!, HDR+1, HDR+2
IBPT	IBOMTE1+7*, END+4!, HDR+1
IBQUIT	IBOMTE1+6*, IBOMTE1+36, PER+1, END+4!
IBTOT	IBOMTE1+26, PER+7, TOT, END+4!
IOF	HDR+2
IOM	IBOMTE1+6, HDR+3
IOSL	PER+1
IOST	HDR+2
>> X	IBOMTE1+20, IBOMTE1+27, IBOMTE1+28, IBOMTE1+29, PER+3, PER+5, PER+9, TOT*
>> X1	IBOMTE1+20, IBOMTE1+27, PER+5*
>> X2	IBOMTE1+20, IBOMTE1+27, PER+5, PER+9, TOT*
>> X3	PER+9, TOT
>> ZTQUEUED	END+3