Routine: IBCA0

Package	Total	Call Graph
Integrated Billing	3	NREC^IBCA EN4^IBCA3 SC1^IBCSC6
VA Fileman	2	^%DT YN^DICN

Package	Total	Caller Graph
Integrated Billing	1	IBCA

Entry Points

Name	Line Occurrences
Function Call: WRITE	Prompt: !!?4,"YES - If this bill is for continuing care which has already been partially",!?9,"billed for on another bill.",!?4,"NO - If this is the initial bill for an episode of care." Line Location: CEOC1+1
Function Call: WRITE	Prompt: !!?4,"YES - If this bill is for an episode of care at a Non-VA facility",!?4," for which no PTF record exists.",!?4,"NO - If for VA care or you just made a mistake." Line Location: IP+1
Function Call: WRITE	Prompt: !!,"Enter a DISCHARGE DATE after the admission date and not greater than today!",! Line Location: IP1+0
Function Call: WRITE	Prompt: !!,"Patient has no admissions on file." Line Location: DISPAD+4
Function Call: WRITE	Prompt: !?8,I_" ",Y Line Location: DISPAD+7
Function Call: WRITE	Prompt: ?40,I+1," ",Y Line Location: DISPAD+7
Function Call: WRITE	Prompt: !?8,J_" ",Y Line Location: DISPAD+8
Function Call: WRITE	Prompt: ?40,J+1," ",Y Line Location: DISPAD+8
Function Call: READ	Timeout: DTIME Variable: IBX Line Location: DISPAD+9
Function Call: WRITE	Prompt: !?4,7,"Warning, PTF record indicates all movements are for Service Connected Care.",7 Line Location: ENDDIS+4
Function Call: WRITE	Prompt: !!?4,*7,"PTF Record for this Admission is Missing",! Line Location: NOPTF+0

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	DISPAD+7, DISPAD+8
^DGCR(399.1 - [#399.1]	IP+2, IP1+1
^DGPM - [#405]	DISPAD+13
^DGPM("ATID1"	DISPAD+2, DISPAD+12
^DGPT - [#45]	DISPAD+14, ENDDIS+1, NOPTF
^DGPT("AFEE"	DISPAD+3, DISPAD+14

Name	Field # of Occurrence
^(0	DISPAD+13
^(70	DISPAD+14

Name	Field # of Occurrence
%	CEOC1, CEOC1+1, IP, IP+1, IP+2, ENDDIS+6!
%DT	IP1!, DISPAD+10, ENDDIS+6!
%DT("A"	IP1*
%DT(0	IP1, DISPAD+10
>> DFN	DISPAD+2, DISPAD+3, DISPAD+12, DISPAD+14
DGPERCNT	IP+2*, IP1, DISPAD+11, ENDDIS+6!
DT	IP1
DTIME	DISPAD+9
>> I	DISPAD+2, DISPAD+7
IBCNT	DISPAD+1, DISPAD+2, DISPAD+3*, DISPAD+4, DISPAD+9, DISPAD+10, ENDDIS+6!, HELPAD
IBDSDT	DISPAD+1!, DISPAD+11, DISPAD+13, DISPAD+14*
IBI	DISPAD+1!, DISPAD+2, ENDDIS+6!
IBI(	DISPAD+2*, DISPAD+7, DISPAD+12
IBI(0	DISPAD+6
>> IBI1	DISPAD+2*
>> IBIDS(	CEOC1+2, IP1+1, DISPAD+1!, DISPAD+11, DISPAD+12, DISPAD+13, DISPAD+14*, ENDDIS, ENDDIS+1, ENDDIS+2 , NOPTF!
>> IBIDS(158	DISPAD+11*
>> IBIDS(159	DISPAD+11*
>> IBIDS(160	DISPAD+11*
>> IBIDS(162	IP+2, IP1+1
IBJ	DISPAD+1!, DISPAD+3, ENDDIS+6!
IBJ(	DISPAD+3*, DISPAD+8, DISPAD+14
IBJ(0	DISPAD+8
>> IBM	ENDDIS+3, ENDDIS+4
>> IBSCM	ENDDIS+3, ENDDIS+4
IBX	IP1, DISPAD+9, DISPAD+10, DISPAD+11, DISPAD+12, DISPAD+14, ENDDIS+6!
>> J	DISPAD+3, DISPAD+8
PTF	ENDDIS+1~, ENDDIS+2*
>> X	IP1, DISPAD+10*
>> Y	IP1, IP1+1, DISPAD+7, DISPAD+8, DISPAD+10