Routine: ASDCWMA

Package	Total	Call Graph
Kernel	3	(,HOME)^%ZIS ^%ZISC ^%ZTLOAD
VA Fileman	2	^%DT ^DIR
IHS Changes To Scheduling	1	($$ACTV,$$HRC)^ASDUT
IHS VA Utilities	1	$$VAL^XBDIQ1
Registration	1	CLINIC^VAUTOMA
Scheduling	1	ASK2^SDDIV

Package

Total

Call Graph

Kernel

(,HOME)^%ZIS ^%ZISC ^%ZTLOAD

VA Fileman

^%DT ^DIR

IHS Changes To Scheduling

($$ACTV,$$HRC)^ASDUT

IHS VA Utilities

$$VAL^XBDIQ1

Registration

CLINIC^VAUTOMA

Scheduling

ASK2^SDDIV

Package	Total	Caller Graph
Scheduling	1	SD IHS LIST MADE BY

Package

Total

Caller Graph

Scheduling

SD IHS LIST MADE BY

Entry Points

Name	Comments	DBIA/ICR reference
A	; -- driver
BD	; -- beginning date
ALL	; -- all clinics
ZIS	; -- select device
CL	; -- select clinic
HD(X)	; -- heading
ED	; -- ending date
AGE(X)	; -- age
Q
START	;EP
D(Y)	; -- date
1	; -- loop clinics
QUE	; -- queued
CLK(X)	; -- clerk who made appt

Name	Field # of Occurrence
^%DT	BD+1, ED+1
^%ZIS	ZIS+1
HOME^%ZIS	QUE+3
^%ZISC	Q+1
^%ZTLOAD	QUE+3
$$ACTV^ASDUT	ALL+3
$$HRC^ASDUT	1+6
^DIR	1+8, HD+1
ASK2^SDDIV	CL+1
CLINIC^VAUTOMA	CL+1
$$VAL^XBDIQ1	AGE+2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,$$D(D),?20,$$HRC^ASDUT(+N),?30,$$AGE(+N) Line Location: 1+6
Function Call: WRITE	Prompt: ?40,$$CLK($P(N,U,6)),?65,$$D($P(N,U,7)) Line Location: 1+7
Function Call: WRITE	Prompt: @IOF,!!,?35,$P(^SC(+SC,0),U),!!,"DATE/TIME",?20,"HRCN" Line Location: HD+2
Function Call: WRITE	Prompt: ?30,"AGE",?40,"CLERK WHO MADE APPT",?65,"DATE APPT MADE",!! Line Location: HD+3
Routine Call	%ZIS Line Location: QUE+3
Routine Call	DIR Line Location: 1+8 HD+1
Routine Call	%ZIS Line Location: ZIS+1

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	D+2
^SC - [#44]	ALL+1, ALL+2, 1+3, 1+4, 1+5, HD+2
^VA(200 - [#200]	CLK+2

Name	Line Occurrences
$$AGE	1+6
$$CLK	1+7
$$D	1+6, 1+7
1	START+4, ALL+3
ALL	START+2
BD	A+2
CL	A+1
ED	A+3
HD	1+1, 1+5
Q	A+1, A+2, A+3, A+4, A+5, START+5
QUE	A+5
START	A+6
ZIS	A+4

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %DT	BD+1, ED+1
>> %DT("A"	BD+1, ED+1
>> %ZIS	ZIS+1*
ASDQT	Q!, START+1, START+4, ALL+1, 1+3, 1+4, 1+5, 1+8, HD+1*
D	Q!, 1+2, 1+3, 1+4, 1+5, 1+6, D+1~, AGE+1~, CLK+1~
>> DIR(0	1+8, HD+1
IO	START+1
IO("Q"	A+5, QUE+1!
IOF	HD+2
IOSL	1+5
IOST	1+8, HD+1
N	Q!, 1+5*, 1+6, 1+7, D+1~, AGE+1~, CLK+1~
P	Q!, 1+4*, 1+5, D+1~, AGE+1~, CLK+1~
POP	A+4, Q!
SC	Q!, START+4, ALL+1, ALL+2, ALL+3, 1+3, 1+4, 1+5, HD+2
SD	Q!, START+3, START+4
SDBD	BD+1*, Q!, 1+2
SDED	ED+1*, Q!, 1+3
SDQUIT	Q!
U	ALL+2, 1+7, HD+2, CLK+2
VAUTC	Q!, START+2
VAUTC(	START+4
VAUTD	Q!
VAUTD(	ALL+2
VAUTD(0	ALL+2
>> VAUTNI	CL+1*
X	BD+1, ED+1, Q!, HD~, HD+1, AGE~, AGE+2, CLK~, CLK+2
Y	A+1, A+2, A+3, CL+1, BD+1, ED+1, Q!, 1+8, HD+1, D~ , D+2
>> ZTDESC	QUE+1*
>> ZTRTN	QUE+1*
>> ZTSAVE("DIV"	QUE+2*
>> ZTSAVE("SDBD"	QUE+2*
>> ZTSAVE("SDED"	QUE+2*
>> ZTSAVE("VAUT*"	QUE+2*
ZTSK	QUE+3!

Customize PDF page

Package: IHS Changes To Scheduling

Routine: ASDCWMA

Information

Source Information

Call Graph

Call Graph Total: 9

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: