Routine: LEX10DLS

Information

LEX10DLS ;ISL/KER - ICD-10 Diagnosis Lookup Selection ;05/23/2017

Name	Comments	DBIA/ICR reference
SEL(LEX,X)	; Select from List
ASK(LEX,X)	; Ask for Selection
ONE(X,LEX)	; One Entry Found
MUL(LEX,Y)	; Multiple Entries Found
MULW	; Write Multiple
MULS(X,Y,LEX)	; Select from Multiple Entries
MULSH	; Select from Multiple Entries Help
MULQ	; Quit Multiple
X(X,LEX)	; Set X and Outpot Array
CONT(X,Y)	; Ask to Continue
COH	; Continue Help
CL	; Clear

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: ONE+11
Function Call: WRITE	Prompt: ! Line Location: MUL+4
Function Call: WRITE	Prompt: !," ",LEXX," matches found" Condition for execution: +LEXX>1 Line Location: MUL+4
Function Call: WRITE	Prompt: ! Line Location: MUL+10
Function Call: WRITE	Prompt: !,$J(LEXE,5),". ",$G(LEXTX(1)) Line Location: MULW+5
Function Call: WRITE	Prompt: !,$G(LEXHLP) Line Location: MULSH+1
Function Call: WRITE	Prompt: ! Line Location: CONT+13
Function Call: WRITE	Prompt: !," Enter To" Line Location: COH+2
Function Call: WRITE	Prompt: !," 'Yes' continue searching for """,LEXX,"""." Line Location: COH+3
Function Call: WRITE	Prompt: !," 'No' refine the search (further specify)" Line Location: COH+4
Function Call: WRITE	Prompt: !," '^' discontinue the search and exit" Line Location: COH+5
Function Call: WRITE	Prompt: !," Enter To" Line Location: COH+7
Function Call: WRITE	Prompt: !," 'Yes' continue the search" Line Location: COH+8
Function Call: WRITE	Prompt: !," 'No' refine the search (further specify)" Line Location: COH+9
Function Call: WRITE	Prompt: !," '^' discontinue the search and exit" Line Location: COH+10