Routine: IBECEAU1

Package	Total	Call Graph
Integrated Billing	3	DED^IBAUTL3 $$INPT^IBECEAU $$DAT1^IBOUTL
VA Fileman	2	^DIE ^DIR

Package	Total	Caller Graph
Integrated Billing	4	IBECEA21 IBECEA33 IBECEA4 IBECEAU

Entry Points

Name	Comments	DBIA/ICR reference
CLSTRQ
CLDSP(X,NAM)	; Display Billing Clock data for NAM.
CLINP(BEG,DIF,IBCLDA)	; Update Billing Clock Inpatient Days
CLDSPQ
CLAMT(STR,AMT,IBCLDA)	; Update Billing Clock Medicare Deductible co-payments
CLSTR(DFN,DATE)	; Find the billing clock in effect on DATE.
CLAMTQ
CLINPQ

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Can't update the clock to reflect ",DAYS," inpatient days.",!,"Please review this patient's clock and use the Clock Maintenance option",!,"to make any changes, if necessary." Line Location: CLINP+7
Function Call: WRITE	Prompt: !,"The billing clock has not been updated." Line Location: CLINP+9
Function Call: WRITE	Prompt: !!,"Can't update the clock to reflect a copayment of -$",-NEWAMT,".",!,"Please review this patient's clock and use the Clock Maintenance option",!,"to make any changes, if necessary." Line Location: CLAMT+9
Function Call: WRITE	Prompt: !!,"Note that the effective Medicare Deductible for this billing clock is $",IBMED,".",!,"Please note that $",NEWAMT," is beyond this limit." Line Location: CLAMT+10
Function Call: WRITE	Prompt: !,"The billing clock has not been updated." Line Location: CLAMT+12
Routine Call	DIE Line Location: CLINP+10 CLAMT+13
Routine Call	DIR Line Location: CLINP+8 CLAMT+11

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

Name	Line Occurrences (* Changed, ! Killed)
^IBE(351 - [#351]	CLSTR+10

Name	Field # of Occurrence
AMT	CLAMT~, CLAMT+5, CLAMT+8
BEG	CLINP~, CLINP+5, CLINP+6, CLINP+8
DA	CLINP+4~, CLINP+10, CLAMT+4~, CLAMT+13
DATE	CLSTR~, CLSTR+9, CLSTR+10
DAYS	CLINP+4~, CLINP+6, CLINP+7, CLINP+8, CLINP+10, CLAMT+4~, CLAMT+6, CLAMT+11
DFN	CLSTR~, CLSTR+9, CLSTR+10
DIE	CLINP+4~, CLINP+10, CLAMT+4~, CLAMT+13
DIF	CLINP~, CLINP+5, CLINP+6
DIR	CLINP+4~, CLAMT+4~
DIR("?"	CLINP+8, CLAMT+11
DIR("A"	CLINP+8, CLAMT+11
DIR(0	CLINP+8, CLAMT+11
DIRUT	CLINP+4~, CLINP+9, CLAMT+4~, CLAMT+12
DR	CLINP+4~, CLINP+10, CLAMT+4~, CLAMT+13
DTOUT	CLINP+4~, CLAMT+4~
DUOUT	CLINP+4~, CLINP+9, CLAMT+4~, CLAMT+12
DUZ	CLINP+10, CLAMT+13
IBCLDA	CLSTR+8, CLSTR+10, CLINP~, CLINP+5, CLINP+10, CLAMT~, CLAMT+5, CLAMT+13
IBCLDT	CLAMT+4~, CLAMT+7*
IBCLST	CLSTR+8!, CLSTR+10*
IBMED	CLAMT+4~, CLAMT+10
NAM	CLDSP~, CLDSP+3, CLDSP+4
NEWAMT	CLAMT+4~, CLAMT+8*, CLAMT+9, CLAMT+10, CLAMT+11, CLAMT+13
PTR	CLAMT+4~, CLAMT+6*, CLAMT+8, CLAMT+11, CLAMT+13
STR	CLAMT~, CLAMT+5, CLAMT+6, CLAMT+7, CLAMT+8, CLAMT+11
X	CLSTR+7~, CLSTR+10*, CLDSP~, CLDSP+3, CLDSP+6, CLDSP+7, CLDSP+9, CLDSP+10
Y	CLSTR+7~, CLSTR+10*, CLINP+9, CLAMT+12