Routine: IBTODD

Call Graph

Call Graph Total: 12

Package	Total	Call Graph
Integrated Billing	5	DATE^IBOUTL ($$CDT,PRINT)^IBTODD1 ($$BBS,$$RATE)^IBTOSUM1 $$EXPAND^IBTRE $$DAY^IBTUTL3
Kernel	4	(,HOME)^%ZIS ^%ZISC ^%ZTLOAD $$HTE^XLFDT
VA Fileman	2	DT^DICRW ^DIR
Registration	1	(INP,KVAR)^VADPT

Package

Total

Call Graph

Integrated Billing

DATE^IBOUTL ($$CDT,PRINT)^IBTODD1 ($$BBS,$$RATE)^IBTOSUM1 $$EXPAND^IBTRE $$DAY^IBTUTL3

Kernel

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

VA Fileman

DT^DICRW ^DIR

Registration

(INP,KVAR)^VADPT

Package	Total	Caller Graph
Integrated Billing	2	IBT OUTPUT DENIED DAYS REPORT IBTODD1

Package

Total

Caller Graph

Integrated Billing

IBT OUTPUT DENIED DAYS REPORT IBTODD1

Entry Points

Name	Comments	DBIA/ICR reference
SORT	; -- ask how they want it sorted
SUBT	; -- write out sub totals, initialize variable
SET	; -- set array to print from
END	; -- Clean up
SUBTQ
DEV	; -- select device, run option
PROVQ
PROV(IBTRC)	; -- find attending for an inpt. stay
SUBH(Z)	; -- write sub header for report
DATE	; -- select date range
BLD	; -- sort through data and build array to print from
DQ	; -- entry print from taskman

External References

Name	Field # of Occurrence
^%ZIS	DEV+3
HOME^%ZIS	DEV+4
^%ZISC	END+3
^%ZTLOAD	DEV+4
DT^DICRW	%
^DIR	%+6, SORT+14
DATE^IBOUTL	DATE+1
$$CDT^IBTODD1	BLD+15
PRINT^IBTODD1	DQ+5
$$BBS^IBTOSUM1	BLD+12
$$RATE^IBTOSUM1	BLD+13
$$EXPAND^IBTRE	SUBH+5
$$DAY^IBTUTL3	BLD+14, BLD+16, BLD+17
INP^VADPT	PROV+3, PROV+4
KVAR^VADPT	END+6
$$HTE^XLFDT	DQ+3

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"You will need a 132 column printer for this report!",! Line Location: DEV+2
Function Call: WRITE	Prompt: !!?15,X Line Location: SUBH+7
Routine Call	%ZIS Line Location: DEV+4
Routine Call	DIR Line Location: %+6 SORT+14
Routine Call	%ZIS Line Location: DEV+3

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("RM"	DQ+2
^DGPM - [#405]	PROV+4
^DIC(42.4 - [#42.4]	PROVQ
^DIC(45.7 - [#45.7]	PROVQ
^DPT - [#2]	BLD+10
^IBE(356.6 - [#356.6]	BLD+9
^IBE(356.7 - [#356.7]	DQ+4
^IBT(356 - [#356]	BLD+8, PROV+4, PROV+7
^IBT(356.2 - [#356.2]	BLD+3, BLD+5, BLD+6, PROV+3, PROV+4, PROV+7
^IBT(356.94 - [#356.94]	PROV+8
^TMP($J	END+1!, DQ+1!, SET+5*

Name	Line Occurrences
$$PROV	BLD+11
BLD	DQ+5
DATE	%+9
DQ	DEV+7
END	%+7, SORT+15, DATE+2, DEV+3, DEV+4, DEV+7, DQ+6
SET	BLD+19
SUBTQ	SUBT+1

Name	Field # of Occurrence
^(0	PROV+3

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%ZIS	DEV+3*, END+4!
DFN	END+4!, BLD+4~, BLD+10, SET+5, PROV+1~, PROV+3
DGPM	END+4!, PROV+1~, PROV+7*, PROV+8
DIR	%+4~, %+6!, SORT+14!
DIR("?"	%+5, SORT+5, SORT+6, SORT+7, SORT+8, SORT+9, SORT+10, SORT+11, SORT+12, SORT+13
DIR("A"	%+6, SORT+3
DIR("B"	%+6, SORT+4
DIR(0	%+6, SORT+2
>> DIRUT	%+7, SORT+15
DT	%, BLD+17
I	END+4!, PROV+1~
IBADM	END+4!
IBAPL	END+5!
IBBBS	END+5!, BLD+12*, BLD+13, SET+5
IBBDT	DATE+2, END+5!, BLD+7, BLD+14
IBC	END+5!
IBCDT	END+5!, BLD+15*, BLD+17
IBCNT	END+5!
IBD	END+5!, BLD+11*, BLD+12
IBDATA	END+5!
IBDAY	END+4!, BLD+16, BLD+17, BLD+18*, SET+5
IBDEN	END+4!, DQ+4*, BLD+3
IBDISCH	END+4!
IBDISDT	END+4!
IBDT	END+5!
IBEDT	DATE+2, END+5!, BLD+7, BLD+14
IBETYP	END+4!
IBHDT	END+4!, DQ+3*
IBI	END+4!, SUBH+5, SUBH+6
IBJ	END+4!
IBMAX	END+4!, BLD+14*, BLD+18
IBNAM	END+5!, BLD+10*, SET+2, SET+3
IBPAG	END+4!, DQ+3*
IBPRIM	END+5!, SET+2, SET+4, SET+5
IBPROV	END+5!, BLD+11*, SET+2, SET+3, SET+5
IBQUIT	END+4!, DQ+3*
IBRATE	END+5!, BLD+13*, SET+5
IBSECN	END+5!, SET+3, SET+4, SET+5
IBSERV	END+5!, BLD+11*, SET+2, SET+5
IBSORT	%+3, SORT+15, END+5!, SET+2, SET+3, SUBH+4, SUBH+5, SUBH+6
IBSPEC	END+5!, BLD+11*, SET+5
IBSUBT	END+5!, SUBT+1, SUBT+2, SUBTQ*
IBSUM	%+8*, %+9, DEV+2, END+5!
IBTAG	END+4!
IBTALL	END+4!, BLD+6*, BLD+16, BLD+17
IBTOTL	END+5!
IBTRC	END+4!, BLD+2, BLD+3, BLD+5, BLD+6, BLD+11, SET+5, PROV~, PROV+3, PROV+4 , PROV+7
IBTRCD	END+4!, BLD+4~, BLD+5*, BLD+7, BLD+8, BLD+10, BLD+13, BLD+16
IBTRN	END+4!, BLD+4~, BLD+8*, BLD+15, BLD+16, BLD+17
IBTRND	END+4!, BLD+4~, BLD+8*, BLD+9
IBTRND1	END+4!
IO	DEV+6
IO("Q"	DEV+4!
J	END+4!, PROV+1~
>> POP	DEV+3
VA	END+4!
VA200	PROV+1~, PROV+3*
VAERR	PROV+1~
VAIN	PROV+1~
VAIN(1	PROV+4
VAIN(11	PROV+6
VAIN(3	PROVQ
>> VAINDT	PROV+3, PROV+4
X	END+4!, DQ+2, PROV+1~, PROV+6, PROV+9, PROVQ, SUBH+3~, SUBH+5, SUBH+6, SUBH+7
X2	END+4!
Y	%+8, SORT+15, END+4!, PROV+1~, PROV+8*, PROV+9
Z	SUBH~
>> ZTDESC	DEV+4*
>> ZTQUEUED	END+2, DQ+6
>> ZTREQ	END+2*
>> ZTRTN	DEV+4*
>> ZTSAVE("IB*"	DEV+4*
ZTSK	DEV+4!

Customize PDF page

Package: Integrated Billing

Routine: IBTODD

Information

Source Information

Call Graph

Call Graph Total: 12

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: