Routine: IBCA

Package	Total	Call Graph
Integrated Billing	5	(CEOC1,DISPAD)^IBCA0 ^IBCA1 EN3^IBCA3 DISP^IBCNS $$APPT^IBCU3
VA Fileman	4	^%DT C^%DTC ^DIC ^DIR
Registration	2	DEM^VADPT $$SITE^VASITE
Kernel	1	^%ZIS

Package

Total

Call Graph

(CEOC1,DISPAD)^IBCA0 ^IBCA1 EN3^IBCA3 DISP^IBCNS $$APPT^IBCU3

^%DT C^%DTC ^DIC ^DIR

DEM^VADPT $$SITE^VASITE

^%ZIS

Package	Total	Caller Graph
Integrated Billing	4	IBCA0 IBCA1 IBCA2 IBCB

Package

Total

Caller Graph

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: CHKID+4
Function Call: WRITE	Prompt: ! Line Location: CHKID+4
Function Call: WRITE	Prompt: ! Line Location: CEOC+0
Function Call: WRITE	Prompt: !!,"Discharge bedsection of this PTF record is NOT billable!",!!! Line Location: CEOC+1
Function Call: WRITE	Prompt: !?6,*7,"Sorry '^' not allowed!" Line Location: READ+0
Routine Call	DIC Line Location: CHKID+3
Routine Call	DIR Line Location: READ
Routine Call	%ZIS Line Location: IBCA+6

FileNo	Call Tags
^DGCR(399.3 - [#399.3]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	OP+3, IP+1, CEOC+2
^DGCR(399 - [#399]	CEOC+4, CEOC+5
^DGCR(399.3 - [#399.3]	CHKID+3
^DGPT - [#45]	CEOC+1
^DIC(399	IBCA+11
^DIC(42.4 - [#42.4]	CEOC+1
^DPT - [#2]	IBCA+6
^IBE(350.9 - [#350.9]	IBCA+7, IBCA+8

Name	Line Occurrences
CEOC	OP+3
CHKINQ	CEOC+6, CEOC+7
IP	OP
LASTDAY	CEOC+2
LDQ	LASTDAY+4, LASTDAY+11, LASTDAY+12
NREC	IBCA+6, IBCA+7, IBCA+9, IBCA+10, CHKID+2, CHKID+3, OP, IP, CEOC+2, CEOC+3
Q1	IBCA+6
READ	CHKID+2, CEOC+2, CEOC+3, READ
SET	NREC

Name	Field # of Occurrence
%	Q!
%DT	OP*, CEOC+4!, Q!
%DT("A"	OP*
%DT(0	OP*
D	Q!
>> DFN	IBCA+6, OP+2, CEOC+4, CEOC+5
DGDIR0	CHKID*, CHKID+2, READ+2, Q!
DGDIRA	CHKID*, CHKID+2, Q!
DGDIRB	CHKID+1*, CHKID+2, Q!
DGX	CEOC+2*, Q!, LASTDAY+5, LASTDAY+6, LASTDAY+9, LASTDAY+11, LASTDAY+12
DIC	CHKID+3*!, Q!
DIC("A"	CHKID+3*
DIC("S"	CHKID+3*
DIC(0	CHKID+3*
DIR	CHKID+2!, CEOC+4!, Q!
DIR("A"	CHKID+2, CEOC+2, CEOC+3*
DIR("B"	CHKID+2, OP+3, IP+1, CEOC+2
DIR(0	CHKID+2, CEOC+2, CEOC+3*
DIROUT	Q!
DIRUT	READ+1, Q!
DLAYGO	IBCA+11*, Q!
DT	LASTDAY+2, LASTDAY+9
DTOUT	Q!
DUOUT	Q!
DUZ(0	IBCA+10, IBCA+11
I	CEOC+5*, Q!
IB	Q1!
IBCABRT	IBCA+6, IBCA+7, IBCA+9, IBCA+10, NREC, Q!
IBCABRT(1	NREC, SET*
IBDFN	Q!
IBDSDT	IP!*, Q!, LASTDAY+4, LASTDAY+5, LASTDAY+6, LASTDAY+7
IBI	CHKID+2, CEOC+2, CEOC+3*, READ+2, Q!
IBID0	Q!
IBIDS	CEOC1, Q1!
IBIDS(	CHKID+3, CHKID+4, OP, OP+3, IP, IP+1, CEOC, CEOC+1, CEOC+4, CEOC+5* , CEOC+6, CEOC+7, READ+2*
IBIDS(151	CEOC+2
IBIFN	NREC!
IBJ	Q!
IBNWBL	IBCA+10*, Q!
IBQUIT	IBCA+10, CHKID+2, CEOC, CEOC+2, CEOC+3, READ+1*, Q!
IBSET	Q!
IBX	Q!
IBYN	NREC*, Q!
IOP	IBCA+6*!
PRCASV	Q!
PRCASV("SER"	IBCA+8*
PRCASV("SITE"	IBCA+9*
U	IBCA+7, IBCA+8, NREC
X	OP+2, CEOC, CEOC+4*, CEOC+5, READ, Q!, LASTDAY+2, LASTDAY+9, LASTDAY+11, LASTDAY+12 , LASTDAY+13
X1	Q!, LASTDAY+2*
X2	Q!, LASTDAY+2*
Y	CHKID+3, OP, OP+2, OP+3, IP+1, CEOC+2, READ+2, Q!, LASTDAY+2, LASTDAY+3! , LASTDAY+4, LASTDAY+5, LASTDAY+6, LASTDAY+7, LASTDAY+9, LASTDAY+11, LASTDAY+12, LASTDAY+13*

Information