Routine: IBTOUA

Package	Total	Call Graph
Integrated Billing	4	$$INSURED^IBCNS1 ($$DAT1,DATE)^IBOUTL FIX^IBTOSA $$EXPAND^IBTRE
Kernel	4	(,HOME)^%ZIS ^%ZISC (,$$S)^%ZTLOAD $$HTE^XLFDT
Registration	2	PID^VADPT PAUSE^VALM1
VA Fileman	1	DT^DICRW

Package

Total

Call Graph

$$INSURED^IBCNS1 ($$DAT1,DATE)^IBOUTL FIX^IBTOSA $$EXPAND^IBTRE

(,HOME)^%ZIS ^%ZISC (,$$S)^%ZTLOAD $$HTE^XLFDT

PID^VADPT PAUSE^VALM1

DT^DICRW

Package	Total	Caller Graph
Integrated Billing	1	IBT OUTPUT UNSCHE ADM W/INS

Package

Total

Caller Graph

Name	Comments	DBIA/ICR reference
PR
SET	; -- set tmp array
END	; -- Clean up
HDR	; -- Print header for billing report
DEV	; -- select device, run option
ONE	; -- Print one patients data
PRINT	; -- print one billing report from ct
DATE	; -- select date
DQ

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: END+1
Function Call: WRITE	Prompt: !!,"No Unscheduled Admission found in date range.",! Line Location: PR+1
Function Call: WRITE	Prompt: @IOF Line Location: HDR+3
Function Call: WRITE	Prompt: !!,"....task stoped at user request" Line Location: HDR+9
Function Call: WRITE	Prompt: !!,"....task stoped at user request" Line Location: SET+1
Routine Call	%ZIS Line Location: DEV+3
Routine Call	%ZIS Line Location: DEV+2

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("RM"	DEV+6
^DPT - [#2]	ONE+7, SET+2
^IBE(356.8 - [#356.8]	ONE+6
^IBT(356 - [#356]	PRINT+6
^TMP($J	END+1!, PRINT+2!, PR+1, PR+3, SET+2*

Name	Field # of Occurrence
^(	PR+3

Name	Field # of Occurrence
%ZIS	DEV+2*, END+4!
DFN	END+4!, ONE+4*, ONE+7
>> DIRUT	HDR+2
DT	%
I	END+4!
IBBDT	DATE+2, END+4!, PRINT+5, HDR+6
>> IBCNT	PR+2, PR+7, ONE+3
IBDT	END+4!, PRINT+5, PRINT+6, PRINT+8, PRINT+9, PR+3*, SET+2
IBEDT	DATE+2, END+4!, PRINT+6, PRINT+8, HDR+6
IBHDT	END+4!, PRINT+1*, HDR+5
>> IBNAM	PR+2, PR+3, ONE+5
IBPAG	END+4!, PRINT+1, HDR+2, HDR+3, HDR+4, HDR+5
IBQUIT	END+4!, PRINT+1, PRINT+6, PR+3, PR+5, ONE+1, ONE+2, HDR+1, HDR+2, HDR+9* , SET+1*
IBTRN	END+4!, PRINT+6, PR+3, SET+2
IBTRND	END+4!, PRINT+6, PRINT+7, PRINT+9, PR+3, ONE+4, ONE+5, ONE+6, ONE+7, SET+2
IO	DEV+5
IO("Q"	DEV+3!
IOF	HDR+3
IOM	HDR+5, HDR+8
IOSL	ONE+2
IOST	HDR+2, HDR+3
J	END+4!
>> POP	DEV+2
VA	END+4!
VA("PID"	ONE+5
X	DEV+6*, END+4!
Y	END+4!
>> ZTDESC	DEV+3*
>> ZTQUEUED	END+2, PR+8, HDR+9, SET+1
>> ZTREQ	END+2*
>> ZTRTN	DEV+3*
>> ZTSAVE("IB*"	DEV+3*
ZTSK	DEV+3!
>> ZTSTOP	HDR+9, SET+1

Information