Routine: YTDP

Package	Total	Call Graph
Kernel	3	^%ZIS (,KILL)^%ZTLOAD $$FMTE^XLFDT
Mental Health	3	^YTDP1 (DTA,IR)^YTREPT KAR^YTS
VA FileMan	2	DD^%DT ^DIR

Package	Total	Caller Graph
Mental Health	3	YTEXT YTONLY YTS

Entry Points

Name	Comments	DBIA/ICR reference
DU	;
D1	;
RP	;
RP1	;
RP10	;
CONB
RP11	;
RP21	;
DAT	;
DIS	;
CR	;
NL	;
IP	;
PS	;
SCR1	; ; Added 5/6/94 LJA
CK	;

External References

Name	Field # of Occurrence
DD^%DT	CONB+3
^%ZIS	RP+1
^%ZTLOAD	RP+3
KILL^%ZTLOAD	RP10+1
^DIR	SCR1+8
$$FMTE^XLFDT	DAT+1
^YTDP1	RP11+1
DTA^YTREPT	CONB+4, CK+1
IR^YTREPT	RP11+2
KAR^YTS	YTDP+3, DU+1, D1+1, RP+1, RP+3, RP10+1, RP10+3, CONB+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ?50,$J(B+K,3,0)," ",$P(A1(B+K),U) Line Location: YTDP+5
Function Call: WRITE	Prompt: ?62,YSDT Line Location: YTDP+5
Function Call: READ	Variable: M Timeout: DTIME Line Location: DU+1
Function Call: WRITE	Prompt: !?10,"Select ",$S('T1:"Instrument",1:T1(0))," # : " R M:DTIME S YSTOUT='$T,YSUOUT=M["^" Line Location: DU+1
Function Call: WRITE	Prompt: !!?10,"Type ONLY the NUMBER of the instrument you wish to print",! Line Location: DU+2
Function Call: WRITE	Prompt: !!,"Type 'Q' to queue to a printer.",! Line Location: RP+1
Function Call: WRITE	Prompt: !,$C(7),"You must QUEUE to a PRINTER!" Line Location: RP+2
Function Call: WRITE	Prompt: !!! Line Location: CONB+4
Function Call: WRITE	Prompt: ! Line Location: CONB+5
Function Call: WRITE	Prompt: "Not valid unless signed: Reviewed by ................................",!,"Printed by: ",$P(^VA(200,DUZ,0),U)," " Line Location: CONB+6
Function Call: WRITE	Prompt: ! Line Location: CONB+8
Function Call: WRITE	Prompt: "Ordered by: ",$P(^(0),U) Line Location: CONB+8
Function Call: WRITE	Prompt: !!?10,"Discontinued Instruments Exist",! Line Location: DIS+1
Function Call: WRITE	Prompt: !!!?3,^YTT(601.3,YSCHN,1,1,0)," ",YSCD," ",^YTT(601.3,YSCHN,1,2,0) Line Location: CR+3
Function Call: WRITE	Prompt: !?3,^(YSTX,0) Line Location: NL+1
Function Call: WRITE	Prompt: !!!?3,^YTT(601.3,YSCHN,1,1,0) Line Location: IP+1
Function Call: WRITE	Prompt: !?3,^YTT(601.3,YSCHN,1,2,0),YSTNM,",",!?3,^YTT(601.3,YSCHN,1,3,0)," ",YSCD," ",^YTT(601.3,YSCHN,1,4,0),!?3,^YTT(601.3,YSCHN,1,5,0) Line Location: IP+1
Function Call: WRITE	Prompt: !!!?3,^YTT(601.3,YSCHN,1,1,0),YSTNM Line Location: PS+1
Function Call: WRITE	Prompt: !?3,^YTT(601.3,YSCHN,1,2,0)," ",YSCD,!?3,^YTT(601.3,YSCHN,1,3,0)," ",^YTT(601.3,YSCHN,1,4,0) Line Location: PS+1
Function Call: WRITE	Prompt: ! Line Location: SCR1+6
Function Call: WRITE	Prompt: @IOF Line Location: SCR1+9
Routine Call	DIR Line Location: SCR1+8
Routine Call	%ZIS Line Location: RP+1

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^VA(200 - [#200]	CONB+6, CONB+8
^YTD(601.2 - [#601.2]	CONB+7, RP11+1
^YTD(601.4 - [#601.4]	DIS+1
^YTT(601 - [#601]	RP10+2, RP10+3, CONB+1, CONB+2, CONB+3, RP11+2, CR+2
^YTT(601.3 - [#601.3]	CONB+3, CR+3, NL+1, IP+1, PS+1

Label References

Name	Line Occurrences
@(	RP11+2
CK	CR+2
CONB	RP10+2
CR	CONB+3
D1	DU+1
DAT	YTDP+5, CONB
DIS	YTDP+3, YTDP+6
DU	DU+2, DU+3
IP	CR+2
NL	NL+1
PS	CR+2
RP	RP+2
RP10	RP21+2
RP11	CONB+4
RP21	CONB+3, RP11+1, RP11+2
SCR1	RP11+1, RP11+2, CK+1

Naked Globals

Name	Field # of Occurrence
^(	NL+1
^("R"	CONB+2
^(0	CONB+3, CONB+8, RP11+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %ZIS	RP+1*
A	SCR1+2~
>> A1(	YTDP+5, DU+3
B	YTDP+4*, YTDP+5, SCR1+2~
B1	SCR1+2~
C	SCR1+2~
D	SCR1+2~
DIR	SCR1+8!
DIR(0	SCR1+8*
DIRUT	SCR1+7~
DTIME	DU+1
DTOUT	SCR1+7~, SCR1+8
DUOUT	SCR1+7~, SCR1+8
DUZ	CONB+6
E	SCR1+2~
E1	SCR1+2~
F	SCR1+2~
F1	SCR1+2~
G	SCR1+2~
G1	SCR1+2~
H	SCR1+2~
I	CONB+5*, SCR1+2~
>> I0	SCR1+6*
IO	RP+2, RP1+2
IO("Q"	RP+2, RP+3!
IO(0	RP+2
IOF	SCR1+9
IOSL	CONB+4, CONB+5, SCR1+6
IOST	RP+2, RP1+2
J	RP21+1!, SCR1+2~
J1	SCR1+2~
J2	SCR1+2~
J3	SCR1+2~
J4	SCR1+2~
K	YTDP+5*, SCR1+2~
L	SCR1+2~
L1	SCR1+2~
L2	SCR1+2~
M	DU+1*, DU+2, DU+3, SCR1+2~
N	SCR1+2~
N1	SCR1+3~
N2	SCR1+3~
N3	SCR1+3~
N4	SCR1+3~
P	SCR1+3~
P0	RP1+2*, CONB+4, RP11+1, RP11+2, CR+1, SCR1+3~, CK+1
P1	CR+1*, CR+2, SCR1+3~
P3	SCR1+3~
>> POP	RP+1
R	RP21+1!, SCR1+3~
R1	SCR1+3~
S	RP21+1!, SCR1+3~
S1	SCR1+3~
T	SCR1+3~
T1	YTDP+3*, YTDP+6, DU+1, SCR1+3~
T1(0	YTDP+3, YTDP+6, DU+1
T2	SCR1+3~
TT	SCR1+3~
U	YTDP+5, DU+3, RP10+1, RP10+2, CONB+3, CONB+6, CONB+7, CONB+8, RP11+1, RP11+2 , CR+2
V	SCR1+3~
V1	SCR1+3~
V2	SCR1+3~
V3	SCR1+3~
V4	SCR1+4~
V5	SCR1+4~
V6	SCR1+4~
W	SCR1+4~
X	RP21+1!, SCR1+4~
X0	SCR1+4~
X1	SCR1+4~
X2	SCR1+4~
X3	SCR1+4~
X4	SCR1+4~
X7	SCR1+4~
X8	SCR1+4~
X9	SCR1+4~
Y	CONB+3*, SCR1+4~
Y1	SCR1+4~
Y2	SCR1+4~
YSCD	CONB+3*, CR+3, IP+1!, PS+1!
YSCH	CONB+3*, CR+2, IP+1!, PS+1!
YSCHN	CONB+3*, CR+3, NL+1, IP+1!, PS+1!
>> YSDFN	CONB+7, RP11+1, DIS+1
>> YSDT	YTDP+5, CONB, DAT+1*
>> YSED	CONB*, CONB+7, RP11+1
>> YSET	CONB*, CONB+7, RP11+1
YSFORM	CONB+3, RP21+1!
>> YSHD	CONB*
>> YSHDR	CONB*
>> YSLFT	RP1+2, CONB+3, RP11+1, RP11+2, CR+2, SCR1+6, SCR1+8
YSMX	RP21+1!
YSNOITEM	RP11+2, RP21+1!
>> YSNT	YTDP+3, YTDP+4, YTDP+5, DU+2
>> YSORD	CONB+7*, CONB+8
>> YSTEST	RP10+1, RP10+2, RP10+3, CONB, CONB+1, CONB+2, CONB+3, RP11+2, CR+2
YSTESTS	RP10+2*, RP10+3!, CONB+1
YSTNM	CR+2*, IP+1!, PS+1!
>> YSTOUT	DU+1, RP21+2, SCR1+8, CK+1
YSTX	CR+3, NL+1, IP+1!, PS+1!
>> YSUOUT	DU+1, RP11+1, RP21+2, SCR1+8, CK+1
>> YSXT	YTDP+3, DU+3, D1+1, RP10+1, RP10+2, RP21+2*
>> YSXTP	RP1+2, RP10+1, RP10+2, RP21+2*
Z	SCR1+4~
Z1	SCR1+4~
Z3	SCR1+4~
>> ZTDESC	RP+3*
>> ZTQUEUED	RP1+1
>> ZTREQ	RP1+1*
>> ZTRTN	RP+3*
>> ZTSAVE("YS*"	RP+3*
>> ZTSK	RP+3

Customize PDF page

Package: Mental Health

Routine: YTDP

Information

Source Information

Call Graph

Call Graph Total: 8

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 3

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: