Routine: YSDX3A

Package	Total	Call Graph
Mental Health	4	(INQ,LIST)^YSDX3U (DUPL,FILE,ICDLK,ICDP)^YSDX3UA $$ACTDT^YSDXUTL EN^YSLXDG
VA FileMan	2	^%DT (FILE,YN)^DICN
DRG Grouper	1	$$ICDDATA^ICDXCODE
Kernel	1	$$UP^XLFSTR

Package	Total	Caller Graph
Mental Health	1	YSDX3

Entry Points

Name	Comments	DBIA/ICR reference
AXIS3	;
QUES2	;Subroutine presents questions for Axis 3
QUES2B
DUPLCK	;Checks for and displays possible duplicate entries
CORR	;
FILE	;

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF,!!?10,"ENTRY OF DIAGNOSIS - Continued - ",$E(YSNM,1,25) Line Location: AXIS3+2
Function Call: WRITE	Prompt: !!,"ACTIVE ICD DIAGNOSES (Axis 3): ",! Line Location: AXIS3+2
Function Call: WRITE	Prompt: !!?3,"No active ICD diagnosis on file for ",YSNM,".",! Line Location: AXIS3+3
Function Call: WRITE	Prompt: !!,"You must hold correct security key to enter ",YSACS," diagnosis." Line Location: QUES2+5
Function Call: READ	Variable: X2 Timeout: DTIME Line Location: QUES2+10
Function Call: WRITE	Prompt: !!,"Invalid Diagnosis for DATE/TIME OF DIAGNOSIS that was entered." Line Location: CORR+3
Function Call: WRITE	Prompt: !!?10,YSW_" "_YSWN,!!,"Is this the ICD diagnosis you wish to select" Line Location: CORR+6
Function Call: WRITE	Prompt: !!,"""YES"" indicates the diagnosis entered applies to ",YSNM,"." Line Location: CORR+8

FileNo	Call Tags
^YSD(627.8 - [#627.8]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^XUSEC("YSD"	QUES2+5
^YSD(627.8 - [#627.8]	DUPLCK+2

Name	Line Occurrences
DUPLCK	QUES2+6
QUES2	AXIS3+2, QUES2B+2, QUES2B+3, CORR+3, CORR+9, FILE+7
QUES2B	QUES2+6

Name	Field # of Occurrence
>> %	CORR+6*, CORR+8, CORR+9, CORR+10
>> %DT	FILE+4*
DA	FILE+3!
DD	FILE+3!
>> DIC	FILE+5*
>> DIC(0	FILE+5*
DINUM	FILE+3!
>> DLAYGO	FILE+5*
DO	FILE+3!
DT	QUES2+2
DTIME	QUES2+10
>> DTOUT	CORR+7
>> DUOUT	CORR+7
DUZ	QUES2+5
F1	FILE+7!
F2	FILE+7!
F3	FILE+7!
>> I	DUPLCK+2*
IOF	AXIS3+2
K1	FILE+7!
K2	FILE+7!
K3	FILE+7!
K4	FILE+7!
K5	FILE+7!
K6	FILE+7!
L2	FILE+7!
L3	FILE+7!
L4	FILE+7!
L5	FILE+7!
L7	FILE+7!
P1	AXIS3+2!*, QUES2B+2
P2	AXIS3+2!
P3	FILE+7!
P4	FILE+7!
P5	FILE+7!
>> S1	QUES2B+2
S2	DUPLCK+2*, CORR+9!, FILE+7!
U	QUES2+3, QUES2+6, QUES2+7, QUES2+8, CORR+3, CORR+5
W1	DUPLCK+2*, FILE+7!
W2	DUPLCK+2*, FILE+7!
W3	FILE+7!
W4	FILE+7!
W5	FILE+7!
W6	FILE+7!
X	FILE+4*, FILE+7!
X2	QUES2+6, QUES2+7!, QUES2+10, QUES2B, QUES2B+1, QUES2B+2, QUES2B+3, CORR+9!, FILE+7!
>> Y	QUES2+8*, QUES2B+3, DUPLCK+2, FILE+4, FILE+5
YSACS	QUES2+3~, QUES2+4, QUES2+5, QUES2+10
YSACSREC	QUES2+3~*, QUES2+6
YSALZ	FILE+7!
>> YSAX	AXIS3+2*
YSDA	AXIS3+2!, FILE+5*, FILE+7!
>> YSDFN	DUPLCK+2
>> YSDT	QUES2+7*
YSDTY	AXIS3+2!*, FILE+7!
>> YSDUPDA	DUPLCK+2*
YSDXDA	AXIS3+2!, QUES2+8, QUES2B+2, DUPLCK+2, CORR+2, CORR+9!, FILE+5, FILE+7!
YSDXDA1	FILE+7!
>> YSDXDAT	QUES2+2*, QUES2+3, QUES2+7, QUES2+8, CORR+2
YSDXDATA	CORR+2~*, CORR+3, CORR+5
YSDXDT	FILE+7!
YSDXN	AXIS3+3, FILE+7!
YSDXNN	FILE+7!
YSDXST	FILE+7!
YSMOD	FILE+7!
>> YSNM	AXIS3+2, AXIS3+3, CORR+8
YSNO	AXIS3+2!
>> YSPLIC	FILE+7
>> YSQT	AXIS3+4, QUES2+10*
YSRETV	QUES2+6, QUES2+7, QUES2+8, QUES2+9!
>> YSTOUT	QUES2+10, CORR+7
>> YSUOUT	QUES2+10, CORR+7
YSW	CORR+5*, CORR+6, FILE+7!
YSWN	CORR+5*, CORR+6, FILE+7!
YSY	QUES2B+2, QUES2B+3, CORR+3!, CORR+9!, FILE+7!