Routine: IBOUNP4

Package	Total	Call Graph
Kernel	3	(,HOME)^%ZIS ^%ZISC ^%ZTLOAD
Integrated Billing	2	LOOP^IBOUNP5 REPORT^IBOUNP6
Registration	1	DIVISION^VAUTOMA
VA FileMan	1	^DIR

Caller Graph

Legends:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Caller Graph Total: 1

Package	Total	Caller Graph
Integrated Billing	1	IB OUTPUT INPTS WITHOUT INS

Entry Points

Name	Comments	DBIA/ICR reference
MAIN	;
QUEUED	; entry point if queued
EXIT	;
DRANGE	; select a date range for report
DEVICE	;
CATGRY	; allows user to select categories to include in report
DIVISION	; gets list of selected divisions,or sets VAUTC=1 if all select
PICK	; gets user's choice of all current inpatients or all admitted in range
SORTBY	;sets IBOBYWRD=1 if user wants the output sorted by ward
OUT()	;

External References

Name	Field # of Occurrence
^%ZIS	DEVICE+4
HOME^%ZIS	DEVICE+5
^%ZISC	EXIT+3
^%ZTLOAD	DEVICE+5
^DIR	DRANGE+1, DRANGE+2, CATGRY+2, CATGRY+5, CATGRY+8, PICK+8, SORTBY+2, OUT+6
LOOP^IBOUNP5	QUEUED+1
REPORT^IBOUNP6	QUEUED+1
DIVISION^VAUTOMA	DIVISION+2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,*7,"ENDING DATE must follow or be the same as the STARTING DATE" Line Location: DRANGE+2
Function Call: WRITE	Prompt: !!,7," Margin width of this output is 132 *" Line Location: DEVICE+2
Function Call: WRITE	Prompt: !,"* This output should be queued *" Line Location: DEVICE+3
Function Call: WRITE	Prompt: !,$S($D(ZTSK):"REQUEST QUEUED TASK="_ZTSK,1:"REQUEST CANCELLED") Line Location: DEVICE+5
Function Call: WRITE	Prompt: ! Line Location: OUT+2
Routine Call	%ZIS Line Location: DEVICE+4
Routine Call	%ZIS Line Location: DEVICE+5
Routine Call	DIR Line Location: DRANGE+1 DRANGE+2 CATGRY+2 CATGRY+5 CATGRY+8 PICK+8 SORTBY+2 OUT+6

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^TMP($J	MAIN+1!, EXIT+1!

Label References

Name	Line Occurrences
$$OUT	MAIN+4
CATGRY	MAIN+2
DEVICE	MAIN+6
DIVISION	MAIN+2
DRANGE	PICK+9
EXIT	MAIN+4, MAIN+7
PICK	MAIN+2
SORTBY	MAIN+2

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %ZIS	DEVICE+4*
DIR	DRANGE+1!, DRANGE+3!, CATGRY+2!, CATGRY+5!, CATGRY+8!, PICK+8!, SORTBY+1!, OUT+1~
DIR("?"	PICK+2, PICK+3, PICK+4, PICK+5, PICK+6*
DIR("A"	DRANGE+1, DRANGE+2, CATGRY+1, CATGRY+4, CATGRY+7, PICK+7, SORTBY+1, OUT+4
DIR("B"	CATGRY+2, CATGRY+5, CATGRY+8, OUT+5
DIR(0	DRANGE+1, CATGRY+1, CATGRY+4, CATGRY+7, PICK+1, SORTBY+1, OUT+3*
DIROUT	OUT+1~
DIRUT	DRANGE+1, DRANGE+2, CATGRY+2, CATGRY+5, CATGRY+8, PICK+8, SORTBY+2, OUT+1~, OUT+6
DTOUT	OUT+1~
DUOUT	OUT+1~
IBOBEG	EXIT+4!, DRANGE+2*
IBOBYWRD	MAIN+1, EXIT+4!, SORTBY+3
IBOEND	EXIT+4!, DRANGE+3*
IBOEXP	EXIT+4!, CATGRY+6*
IBOPICK	EXIT+4!, PICK+9*
IBOUI	EXIT+4!, CATGRY+9*
IBOUK	EXIT+4!, CATGRY+3*
IBOUT	MAIN+4*, EXIT+4!, DEVICE+2
IO	DEVICE+6
IO("Q"	DEVICE+5
ION	DEVICE+5
>> POP	DEVICE+4
QUIT	MAIN+1~, MAIN+2, MAIN+6, MAIN+7, DRANGE+1, DRANGE+2, DEVICE+4, DEVICE+5, CATGRY+2, CATGRY+5* , CATGRY+8, DIVISION+1, DIVISION+3, PICK+8, SORTBY+2*
VAUTD	EXIT+4!
VAUTNI	DIVISION+1~*
X	OUT+1~
Y	DRANGE+2, DRANGE+3, CATGRY+3, CATGRY+6, CATGRY+9, DIVISION+2, PICK+9, SORTBY+3, OUT+1~, OUT+7
>> ZTDESC	DEVICE+5*
>> ZTIO	DEVICE+5*
>> ZTQUEUED	EXIT+2, DEVICE+1
>> ZTREQ	EXIT+2*
>> ZTRTN	DEVICE+5*
>> ZTSAVE("IBO*"	DEVICE+5*
>> ZTSAVE("VA*"	DEVICE+5*
>> ZTSK	DEVICE+5

Customize PDF page

Package: Integrated Billing

Routine: IBOUNP4

Information

Source Information

Call Graph

Call Graph Total: 7

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: