Routine: IBTOUR

Call Graph

Call Graph Total: 14

Package	Total	Call Graph
Integrated Billing	5	($$DAT1,DATE)^IBOUTL SORT^IBTOLR BLD^IBTOUR1 (HOSP,INS)^IBTOUR3 (HOSP,INS)^IBTOUR4
Kernel	4	(,HOME)^%ZIS ^%ZISC ^%ZTLOAD $$HTE^XLFDT
VA Fileman	3	COMMA^%DTC DT^DICRW ^DIR
Registration	2	KVAR^VADPT PAUSE^VALM1

Package

Total

Call Graph

Integrated Billing

($$DAT1,DATE)^IBOUTL SORT^IBTOLR BLD^IBTOUR1 (HOSP,INS)^IBTOUR3 (HOSP,INS)^IBTOUR4

Kernel

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

VA Fileman

COMMA^%DTC DT^DICRW ^DIR

Registration

KVAR^VADPT PAUSE^VALM1

Package	Total	Caller Graph
Integrated Billing	2	IBT OUTPUT UR ACTIVITY REPORT IBTOUR3

Package

Total

Caller Graph

Integrated Billing

IBT OUTPUT UR ACTIVITY REPORT IBTOUR3

Entry Points

Name	Comments	DBIA/ICR reference
IHDR	; -- specialty report header
END	; -- Clean up
HOW	; -- if not summary only ask how list is to be sorted
SUM
HDR1	; -- specialty report header
DEV	; -- select device, run option
PRINT	; -- print report
DATE	; -- select date
HSPEC	; -- Hospital Review specialty report
ISPEC	; -- Insurance Review specialty report
DQ	; -- print one billing report from ct

External References

Name	Field # of Occurrence
COMMA^%DTC	ISPEC+8, ISPEC+9, ISPEC+14, ISPEC+15
^%ZIS	DEV+2
HOME^%ZIS	DEV+3
^%ZISC	END+3
^%ZTLOAD	DEV+3
DT^DICRW	%
^DIR	SUM+1, HOW+9
$$DAT1^IBOUTL	HDR1+5, IHDR+5
DATE^IBOUTL	DATE+1
SORT^IBTOLR	%+5
BLD^IBTOUR1	DQ+5
HOSP^IBTOUR3	PRINT+9
INS^IBTOUR3	PRINT+4
HOSP^IBTOUR4	PRINT+7
INS^IBTOUR4	PRINT+2
KVAR^VADPT	END+6
PAUSE^VALM1	HDR1+1, IHDR+1
$$HTE^XLFDT	DQ+2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: SUM+5
Function Call: WRITE	Prompt: !!,"You will need a 132 column printer for this report!",! Line Location: DEV+1
Function Call: WRITE	Prompt: ! Line Location: HDR1+1
Function Call: WRITE	Prompt: ! Line Location: IHDR+1
Function Call: WRITE	Prompt: ?50,X Line Location: ISPEC+8
Function Call: WRITE	Prompt: ?67,X Line Location: ISPEC+9
Function Call: WRITE	Prompt: ?50,X Line Location: ISPEC+14
Function Call: WRITE	Prompt: ?67,X Line Location: ISPEC+15
Routine Call	%ZIS Line Location: DEV+3
Routine Call	DIR Line Location: SUM+1 HOW+9
Routine Call	%ZIS Line Location: DEV+2

Name	Line Occurrences (* Changed, ! Killed)
^TMP($J	END+1!, DQ+1!, DQ+4!, HSPEC+3, ISPEC+3

Name	Line Occurrences
DQ	DEV+6
END	%+5, SUM+2, SUM+5, DATE+2, DEV+2, DEV+3, DEV+6, PRINT+10
HDR1	HSPEC+1
HOW	SUM+5
IHDR	ISPEC+1

Name	Field # of Occurrence
^(	HSPEC+3, ISPEC+3

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%ZIS	DEV+2*, END+4!
DFN	END+4!
DGPM	END+5!
DIR	%+3~, SUM+1!, HOW+1~, HOW+9!
DIR("?"	SUM, HOW+5, HOW+6, HOW+7, HOW+8*
DIR("A"	SUM+1, HOW+3
DIR("B"	SUM+1, HOW+4
DIR(0	SUM+1, HOW+2
DIRUT	SUM+2, END+4!, HOW+10, HDR1+1, IHDR+1
DT	%
DTOUT	END+4!
DUOUT	END+4!
I	END+4!
IBADM	END+5!
IBAPL	END+5!
IBBDT	DATE+2, END+4!, HDR1+5, IHDR+5
IBC	END+4!
IBCCODE	END+4!
IBCDT	END+5!
IBCLOSE	END+5!
IBCNT	END+4!, DQ+4!
IBDA	END+5!
IBDATA	END+5!, HSPEC+3, HSPEC+4, HSPEC+6, HSPEC+7, HSPEC+8, HSPEC+9, ISPEC+3, ISPEC+4, ISPEC+6 , ISPEC+7, ISPEC+8, ISPEC+9, ISPEC+10
IBDAYN	END+5!
IBDAYS	END+5!
IBDIF	END+5!
IBDISDT	END+4!
IBDT	END+4!
IBEDT	DATE+2, END+4!, HDR1+5, IHDR+5
IBETYP	END+4!
IBFAC	END+5!
IBFOL	END+4!
IBH	END+5!
IBHDRL	END+5!, PRINT+1, PRINT+5
IBHDT	END+4!, DQ+2*, HDR1+4, IHDR+4
IBHOW	END+5!, DQ+3, HOW+10
IBI	END+5!
IBINS	END+4!
IBJ	END+5!
IBP1	END+5!, HSPEC+2, HSPEC+9, HSPEC+12, ISPEC+2, ISPEC+10, ISPEC+13
IBP2	END+5!, HSPEC+2, HSPEC+9, HSPEC+12, ISPEC+2, ISPEC+10, ISPEC+13
IBP3	END+5!, HSPEC+2, HSPEC+9, HSPEC+13, ISPEC+2, ISPEC+10, ISPEC+14
IBP4	END+5!, HSPEC+2, HSPEC+9, HSPEC+14, ISPEC+2, ISPEC+10, ISPEC+15
IBPAG	END+4!, DQ+2, HDR1+3, HDR1+4, IHDR+3*, IHDR+4
IBPCODE	END+4!
IBPREV	END+5!
IBQUIT	%+4, %+5, SUM+5, END+4!, DQ+2, HOW+10, HDR1+1, HSPEC+1, IHDR+1*, ISPEC+1
IBSITE	END+5!
IBSNM	END+5!
IBSORT	END+5!, PRINT+1, PRINT+5
IBSPEC	END+5!, HSPEC+3, HSPEC+5, ISPEC+3, ISPEC+5
IBSUM	SUM+3*, SUM+5, DEV+1, END+4!, PRINT+2, PRINT+7
IBTAG	END+4!
IBTNOD	END+5!
IBTRC	END+4!
IBTRCD	END+4!
IBTRN	END+4!
IBTRND	END+4!
IBTRND1	END+4!
IBTRV	END+5!
IBTRVD	END+5!
IO	DEV+5
IO("Q"	DEV+3!
IOF	HDR1+2, IHDR+2
IOM	HDR1+4, HDR1+8, IHDR+4, IHDR+8
IOST	HDR1+1, IHDR+1
J	END+4!
MET	END+4!
>> POP	DEV+2
TYPE	END+4!
VA	END+4!
X	END+4!, ISPEC+8, ISPEC+9, ISPEC+14, ISPEC+15
>> X2	ISPEC+8, ISPEC+9, ISPEC+14, ISPEC+15
Y	SUM+3, END+4!, HOW+10
>> ZTDESC	DEV+3*
>> ZTQUEUED	END+2, PRINT+10
>> ZTREQ	END+2*
>> ZTRTN	DEV+3*
>> ZTSAVE("DFN"	DEV+3*
>> ZTSAVE("IB*"	DEV+3*
ZTSK	DEV+3!
>> ZTSTOP	DQ+6, PRINT+3, PRINT+6, PRINT+8

Customize PDF page

Package: Integrated Billing

Routine: IBTOUR

Information

Source Information

Call Graph

Call Graph Total: 14

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: