Routine: YSDX3R

Information

YSDX3R ;SLC/DJP - Print of Diagnosis for the Mental Health Medical Record ;12/13/93 16:02

Call Graph

Call Graph Total: 9

Package	Total	Call Graph
Mental Health	4	(CHR,DX,FINISH)^YSDX3RU (AX4,AX5,DXLS)^YSDX3RUA ENHD^YSFORM ^YSLRP
Kernel	3	^%ZIS ^%ZISC ^%ZTLOAD
Registration	1	KVAR^VADPT
VA FileMan	1	YN^DICN

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
Mental Health	2	YSDIAGP-DX YSDX3RU

Entry Points

Name	Comments	DBIA/ICR reference
ENTRY	;
QUES1	;
QUES2	;
DEVICE	;
ENPR	;Entry to core of print program.
PR	; Called from YSDX3RU
END	;
EOR	;YSDX3R - Print Diagnosis for Medical Record ;12/6/90 11:19

Name	Field # of Occurrence
^%ZIS	DEVICE+2
^%ZISC	END+3
^%ZTLOAD	DEVICE+3
YN^DICN	QUES2+3
KVAR^VADPT	END+3
CHR^YSDX3RU	PR+3
DX^YSDX3RU	PR+3
FINISH^YSDX3RU	PR+5
AX4^YSDX3RUA	PR+4
AX5^YSDX3RUA	PR+4
DXLS^YSDX3RUA	PR+3
ENHD^YSFORM	PR+2
^YSLRP	ENTRY+3

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF Line Location: ENTRY+2
Function Call: WRITE	Prompt: !!?IOM-$L("PRINT OF DIAGNOSIS")\2,"PRINT OF DIAGNOSIS",!! Line Location: ENTRY+2
Function Call: WRITE	Prompt: !!?10,"No diagnosis on file for ",YSNM Line Location: ENTRY+4
Function Call: READ	Variable: A Timeout: DTIME Line Location: QUES1+1
Function Call: WRITE	Prompt: !!,"You may list diagnoses sequentially or by date.",!! Line Location: QUES1+2
Function Call: WRITE	Prompt: " ?",! Line Location: QUES1+3
Function Call: WRITE	Prompt: !,"LIST ONLY ACTIVE DIAGNOSIS" Line Location: QUES2+2
Function Call: WRITE	Prompt: !!,"You may list only active diagnoses or both active and inactive diagnoses.",! Line Location: QUES2+3
Routine Call	%ZIS Line Location: DEVICE+2

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^YSD(627.8 - [#627.8]	ENTRY+4

Label References

Name	Line Occurrences
END	ENTRY+3, ENTRY+4, QUES1+1, QUES2+4, DEVICE+2, DEVICE+3, PR+3, PR+4
QUES1	QUES1+2, QUES1+3

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	QUES2+2*, QUES2+3, QUES2+4
>> %ZIS	DEVICE+2*
A	QUES1+1, QUES1+2, QUES1+3, PR+3, END+4!
A1	END+4!
A2	END+4!
A3	END+4!
A4	END+4!
A5	END+4!
A6	END+4!
A7	END+4!
A8	END+4!
A9	END+4!
DIWF	END+10!
DIWL	END+10!
DIWR	END+10!
DTIME	QUES1+1
G	END+4!
G1	END+4!
G10	END+5!
G11	END+5!
G2	END+4!
G3	END+4!
G4	END+4!
G5	END+4!
G6	END+4!
G7	END+4!
G8	END+4!
G9	END+4!
IO	PR+2
IO("Q"	DEVICE+3
IOF	ENTRY+2
IOM	ENTRY+2
IOP	DEVICE+2!
IOST	PR+2
J	END+5!
K	END+5!
L	END+5!
L1	END+5!
L10	END+5!
L11	END+5!
L2	END+5!
L3	END+5!
L4	END+5!
L5	END+5!
L6	END+5!
L7	END+5!
L8	END+5!
L9	END+5!
M	END+5!
>> POP	DEVICE+2
SUBSET	END+7!
TOTSET	END+7!
W	END+5!
X	END+5!
Y	END+5!
Y1	PR+2*, END+5!
YSAGE	END+9!
YSAUTH	END+7!
YSAX4	END+6!
YSCD	END+7!
YSCON	PR+5*, END+10!
YSCOND	END+7!
YSD3FLG	END+6!
YSDFN	ENTRY+3, ENTRY+4, END+7!
YSDIFLG	END+6!
YSDOB	END+7!
YSDTM	END+7!
YSDUZ	END+9!
YSDXDT	END+6!
YSDXN	END+6!
YSDXNN	END+6!
YSDXS	END+7!
YSFFS	PR+5, END+10!
YSFHDR	ENPR+2*, END+8!
YSFHDR(1	ENPR+2*
YSFHDR(2	ENPR+2*
YSFHDR(3	ENPR+2*
YSFTR	END+8!
YSGAF	END+8!
YSLC	END+8!
YSLCN	END+10!
YSLFT	PR+2*, END+8!
YSML	END+6!
YSMOD	END+6!
YSNM	ENTRY+4, END+8!
>> YSNOFORM	PR+2
YSPP	ENPR+2*, END+8!
YSPS	END+8!
YSQT	END+9!
YSSEX	END+9!
YSSL	PR+2*, END+8!
YSSSN	END+8!
YSSTOP	END+9!
YST	PR+2*, END+9!
YSTM	END+9!
YSTOP1	END+9!
YSTOP2	END+9!
>> YSTOUT	ENTRY+3, QUES1+1*, PR+3, PR+4
YSTY	QUES2+4, QUES2+5, END+9!
>> YSUOUT	ENTRY+3, QUES1+1*, PR+3, PR+4
Z	END+10!
Z1	END+10!
>> ZTDESC	DEVICE+3*
>> ZTREQ	END+2*
>> ZTRTN	DEVICE+3*
>> ZTSAVE("A"	DEVICE+3*
>> ZTSAVE("YS*"	DEVICE+3*
>> ZTSK	END+2

Customize PDF page

Package: Mental Health