Routine: IBDF1C

Package	Total	Call Graph
Kernel	2	(,HOME)^%ZIS ^%ZTLOAD
VA Fileman	2	^DIC ^DIR
Automated Information Collection System	1	FORM^IBDF2A
Registration	1	FULL^VALM1

Package

Total

Call Graph

(,HOME)^%ZIS ^%ZTLOAD

^DIC ^DIR

FORM^IBDF2A

FULL^VALM1

Package	Total	Caller Graph
Automated Information Collection System	1	IBDF5B

Package

Total

Caller Graph

Name	Line Occurrences
Function Call: WRITE	Prompt: !," You must queue the form to print. " Line Location: DEVICE+1
Function Call: WRITE	Prompt: !,$C(7)," This Encounter Form requires "_WD_" columns and a page length of "_HT_" lines. ",! Line Location: DEVICE+2
Function Call: WRITE	Prompt: !,$S($D(ZTSK):"REQUEST QUEUED TASK="_ZTSK,1:"REQUEST CANCELLED") Line Location: DEVICE+7
Routine Call	%ZIS Line Location: PRINT+7
Routine Call	DIC Line Location: FORM+13
Routine Call	DIR Line Location: FORM+11
Routine Call	%ZIS Line Location: DEVICE+5

Name	Line Occurrences (* Changed, ! Killed)
^IBE(357 - [#357]	PRINT+6, FORM+8

Name	Field # of Occurrence
%	EXIT+1!
%I	EXIT+1!
%IS	DEVICE+5!
%ZIS	DEVICE+5!*
%ZIS("A"	DEVICE+5*
%ZIS("B"	DEVICE+5*
%ZIS("S"	DEVICE+5*
D	EXIT+1!
D0	EXIT+1!
DIC	EXIT+1!, FORM+12!*, FORM+13!
DIC("A"	FORM+12*
DIC("S"	FORM+12*
DIC(0	FORM+12*
DIR	FORM+10!, FORM+11!
DIR("A"	FORM+10*
DIR(0	FORM+10*
>> DIRUT	FORM+11, FORM+13
DX	EXIT+1!
DY	EXIT+1!
HT	PRINT+1~, PRINT+6, DEVICE+2, FORM+16
I	EXIT+1!
>> IBAPI("SELECT"	FORM+7
IBFORM	PRINT~, PRINT+5~, PRINT+6, QUEUED+1, FORM+2, FORM+8, FORM+14, FORM+15
IBQUIT	PRINT+1~, PRINT+5, FORM+15
>> IBTKBLK	PRINT+5
IOP	DEVICE+5!
J	EXIT+1!
NODE	PRINT+1~, PRINT+6*!
P4	FORM+1~, FORM+4, FORM+5, FORM+6
>> POP	DEVICE+6
>> VALM("TITLE"	FORM+6
>> VALMBCK	PRINT+3*
WD	PRINT+1~, PRINT+6, DEVICE+2, FORM+16
X	EXIT+1!
>> XQORNOD(0	FORM+4, FORM+5*
Y	EXIT+1!, FORM+11, FORM+12, FORM+13, FORM+14
Y(0	FORM+8*, FORM+16
>> ZTDESC	DEVICE+7*
>> ZTDTH	DEVICE+7*
>> ZTQUEUED	QUEUED+2
>> ZTREQ	QUEUED+2*
>> ZTRTN	DEVICE+7*
>> ZTSAVE("IBFORM"	DEVICE+7*
ZTSK	EXIT+1!, DEVICE+7

Information