Routine: IBECEA32

Package	Total	Call Graph
Integrated Billing	9	($$PREV,BILL)^IBACVA1 $$ON^IBACVA2 DSPL^IBAMTI1 CLADD^IBAUTL3 $$ADSEL^IBECEA31 CLOCK^IBECEAU FEE^IBECEAU2 CTBB^IBECEAU3 $$DAT1^IBOUTL
VA Fileman	2	^DIE ^DIR
Kernel	1	$$FMTH^XLFDT

Package

Total

Call Graph

($$PREV,BILL)^IBACVA1 $$ON^IBACVA2 DSPL^IBAMTI1 CLADD^IBAUTL3 $$ADSEL^IBECEA31 CLOCK^IBECEAU FEE^IBECEAU2 CTBB^IBECEAU3
$$DAT1^IBOUTL

^DIE ^DIR

$$FMTH^XLFDT

Package	Total	Caller Graph
Integrated Billing	2	IBECEA3 IBECEA31

Package

Total

Caller Graph

Name	Comments	DBIA/ICR reference
HFEV	; Help for Fee Event Date
CHMPEN
SPEC(X,Y)	; Display messages for special inpatient billing cases.
CHMPVAQ
CHMPVA	; Process the CHAMPVA inpatient subsistence charge.
CLOCKQ
ADD	; Prompt user to add a new billing clock.
FEPR	; Issue prompts for Inpatient Fee Services
CLUPD	; Handle the updating of the billing clock when adding a charge.

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Sorry! The CHAMPVA billing module is not yet fully installed. You will need",!,"to generate a claim to bill this patient the inpatient subsistence charge." Line Location: CHMPVA+1
Function Call: WRITE	Prompt: !!,"This patient has no admissions on file!",!,"You cannot bill the CHAMPVA inpatient subsistence charge at this time." Line Location: CHMPEN+1
Function Call: WRITE	Prompt: !!,"You can only bill admissions which have been discharged!" Line Location: CHMPEN+3
Function Call: WRITE	Prompt: !!,"This admission has already been billed the CHAMPVA inpatient subsistence charge." Line Location: CHMPEN+4
Function Call: WRITE	Prompt: !,"A new clock will not be established. Be sure this patient's clock is correct." Line Location: ADD+5
Function Call: WRITE	Prompt: !!,"Fee Event Date not entered - transaction cannot be completed." Line Location: FEPR+7
Routine Call	DIE Line Location: ADD+8
Routine Call	DIR Line Location: ADD+5 FEPR+7

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

Name	Line Occurrences (* Changed, ! Killed)
^DGPM - [#405]	CHMPEN+7
^IBE(351 - [#351]	CLUPD+7
^IBE(351.2 - [#351.2]	SPEC+8

Name	Field # of Occurrence
DA	ADD+1~, ADD+8*
>> DFN	CHMPEN, CHMPEN+4
DIE	ADD+1~, ADD+8*
DIR	ADD+1~, FEPR+1~, FEPR+7!
DIR("?"	ADD+4, FEPR+6
DIR("A"	ADD+4, FEPR+6
DIR(0	ADD+4, FEPR+6
DIRUT	ADD+1~, ADD+5, FEPR+1~
DR	ADD+1~, ADD+8*
DTOUT	ADD+1~, FEPR+1~
DUOUT	ADD+1~, ADD+5, FEPR+1~
DUZ	ADD+8
>> IBBDT	CHMPEN+7*
>> IBCHG	CLUPD+8, ADD+3, ADD+8
>> IBCLDA	CLUPD+1, CLUPD+4, CLUPD+7, ADD+8
IBCLDT	ADD+7*, FEPR+1~
IBCLST	CLUPD+7*, CLUPD+8, CLOCKQ!
IBCVA	CHMPEN+2*, CHMPEN+4, CHMPEN+7, CHMPVAQ!
>> IBDESC	FEPR+2*
>> IBDG	SPEC+9
>> IBEDT	CHMPEN+7*
>> IBEVDA	FEPR+2*
>> IBEVDT	FEPR+7*
>> IBFR	ADD+3, ADD+7, FEPR+6, HFEV+2
IBPM	CHMPEN*, CHMPEN+1, CHMPEN+2, CHMPVAQ!
>> IBPMD	CHMPEN+2*, CHMPEN+3, CHMPEN+7
>> IBSIBC	SPEC+9*
>> IBSIBC1	SPEC+12*
IBSL	CHMPEN+2*, CHMPEN+4, CHMPVAQ!
>> IBUNIT	CLUPD+8, ADD+3, ADD+8
>> IBXA	CLUPD+1, ADD+3, ADD+4, ADD+8
>> IBY	ADD+7, FEPR+3, FEPR+7*
X	ADD+1~, FEPR+1~, SPEC~, SPEC+8
Y	ADD+1~, ADD+5, FEPR+1~, FEPR+7, SPEC~, SPEC+7, SPEC+8, SPEC+12

Information