Routine: LEX10PL

Information

LEX10PL ;ISL/KER - ICD-10 Procedure Lookup ;05/23/2017

Source file <LEX10PL.m>

Name	Comments	DBIA/ICR reference
EN	; Main Entry Point ; ; Input ; ; None ; ; Output ; ; Y 2 Piece "^" delimited string ; 1 IEN to the Expression File 757.01 ; 2 Expression Display Text ; ; Y("ICD") 2 Piece "^" delimited string ; 1 IEN ICD OPERATION/PROCEDURE File #80.1 ; 2 ICD Code ;
X	; Get user input
BEG	; Begin Recursive Loop
LOOK	; Lookup
NXT	; Next
TOT(X,Y)	; Total Possible
SO(X)	; Enter a Code/Code Fragment
SOH	; Select a Code Help
SOP(X)	; Code Pre-Processing
SAV(X,Y,LEXN,LEXC,LEXV)	; Save Defaults
RET(X,Y,LEXN,LEXC)	; Retrieve Defaults
ROK(X)	; Routine OK
TAG(X)	; Sub-Routine OK
END(X,Y)	; End Search, display results
CUR(X)	; Current Array
GCUR(X,LEXA)	; Get Current Array
NAM(X)	; Descriptive Dane
SN(X,EFF)	; Short Name
FND(X)	; Found
GETO(X)	; Get One
ATTR	; Screen Attributes
KATTR	; Kill Screen Attributes
ENV(X)	; Check environment

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: X+4
Function Call: WRITE	Prompt: !," Enter either: " Line Location: SOH+2
Function Call: WRITE	Prompt: !," Example" Line Location: SOH+3
Function Call: WRITE	Prompt: !," ICD-10 Procedure code 04LE0CT" Line Location: SOH+4
Function Call: WRITE	Prompt: !," Partial ICD-10 Procedure code 00C6",! Line Location: SOH+5
Function Call: WRITE	Prompt: !," May not exceed 7 characters. Enter return or ""^""" Line Location: SOH+6
Function Call: WRITE	Prompt: !," to exit." Line Location: SOH+7
Function Call: WRITE	Prompt: !,?2,$G(LEXTERM(LEXI)) Line Location: END+5
Function Call: WRITE	Prompt: ! Line Location: END+6
Function Call: WRITE	Prompt: !,$G(BOLD),$G(LEXC),$G(NORM),!," ",$G(LEXS) Line Location: END+6
Function Call: WRITE	Prompt: !," ",$G(LEXC(LEXI)) Line Location: END+7
Function Call: WRITE	Prompt: !! Line Location: END+8
Function Call: WRITE	Prompt: @IOF Condition for execution: $L($G(IOF)) Line Location: CUR+3
Function Call: WRITE	Prompt: !,$G(BOLD),$G(LEXC),$G(NORM),!,$G(LEXS) Line Location: CUR+3
Function Call: WRITE	Prompt: !,$G(LEXC(LEXI)) Line Location: CUR+4
Function Call: WRITE	Prompt: !!,?5,"DUZ not defined" Line Location: ENV+1
Function Call: WRITE	Prompt: !!,?5,"DUZ not valid" Line Location: ENV+2

FileNo	Call Tags
^VA(200 - [#200]	GET1^DIQ