Routine: IBDF15

Customize PDF page

Select the objects that you wish to see in the downloaded PDF

Information

IBDF15 ;ALB/CJM - AICS FORM USE BY DIVISION/CLINIC ; JUL 20,1993

Source Information

Source file <IBDF15.m>

Call Graph

Call Graph Total: 6

Package	Total	Call Graph
Kernel	4	(,HOME)^%ZIS ^%ZISC ^%ZTLOAD $$HTE^XLFDT
Automated Information Collection System	1	PRINT^IBDF15A
Registration	1	DIVISION^VAUTOMA

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: 2

Package	Total	Caller Graph
Automated Information Collection System	1	IBDF LIST CLINICS USING FORMS
Kernel	1	^DIC(19

Entry Points

Name	Comments	DBIA/ICR reference
FORMUSE	; -- prints for each encounter form the clinics using it
EXIT	; -- exit routine
DQ	; -- entry point from task man
DEVICE	; -- select device
DIVIS	; -- SETUP DIVISION

External References

Name	Field # of Occurrence
^%ZIS	DEVICE+1
HOME^%ZIS	DEVICE+2
^%ZISC	EXIT+3
^%ZTLOAD	DEVICE+2
PRINT^IBDF15A	DQ+4
DIVISION^VAUTOMA	DIVIS+2
$$HTE^XLFDT	DQ+3

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"AICS List of Clinics Using Encounter Forms",!! Line Location: FORMUSE+4
Function Call: WRITE	Prompt: !,$S($D(ZTSK):"REQUEST QUEUED TASK="_ZTSK,1:"REQUEST CANCELLED") Line Location: DEVICE+2
Routine Call	%ZIS Line Location: DEVICE+1
Routine Call	%ZIS Line Location: DEVICE+2

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DG(40.8 - [#40.8]	DIVIS+3
^DG(43 - [#43]	DIVIS+2
^TMP($J	EXIT+1!, DQ+1!, DIVIS+3*

Label References

Name	Line Occurrences
DEVICE	%+4
DIVIS	%+3
DQ	%+5
EXIT	%+3, %+4, %+5

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %ZIS	DEVICE+1*
CLINIC	%~
CLNAME	%~
DIVIS	%~
DIVNAM	%~
FORM	%~
FORMNAM	%~
IBHDT	%~, DQ+3*
IBQUIT	%~, %+1, %+3, %+4, DQ+2, DEVICE+1, DEVICE+2, DIVIS+2*
IO	DEVICE+3
IO("Q"	DEVICE+2
MULTI	%~, DIVIS+1, DIVIS+2
NEWDIV	%~
NODE	%~
PAGE	%~, DQ+2*
>> POP	DEVICE+1
VAUTD	%~, DIVIS+1*, DIVIS+3
VAUTD(	DIVIS+3
X	%~, DIVIS+1~, DIVIS+3*
Y	%~, DIVIS+1~, DIVIS+2
>> ZTDESC	DEVICE+2*
>> ZTQUEUED	EXIT+2
>> ZTREQ	EXIT+2*
>> ZTRTN	DEVICE+2*
>> ZTSAVE("MULTI"	DEVICE+2*
>> ZTSAVE("VA*"	DEVICE+2*
>> ZTSK	DEVICE+2