Routine: LEXA1

Name	Comments	DBIA/ICR reference
SSBR	; Store data for Space Bar Return
EN	; Fileman Special Lookup
CL	; Clear LEX and Multi-Term Lookup XTLK
RSBR	; Retrieve onSpace Bar Return
CHK	; Check Fileman look-up variables
LK	; Start Look-up ; X not provided
ASK	; Get user input
NOTFND	; If X was not found
EXIT	; Set/Kill variables Y, Y(0,0) from LEX("SEL")
Y1	; ICD-9 DX in Y(1), ICD-10 DX in Y(30)
FOUND	; If X was found
CLR	; Clear ^TMP Global
INPHLP	; Look-up help

Name	Field # of Occurrence
^DIR	ASK+7
LOOK^LEXA	LK+8
SELECT^LEXA2	FOUND+9
DH^LEXA3	NOTFND+13
EN^LEXA4	NOTFND+14, FOUND+13
QMH^LEXAR3	INPHLP+4
$$SQ^LEXHLP	ASK+4
$$IMPDATE^LEXU	INPHLP+1
VDT^LEXU	EN+77
$$DT^XLFDT	INPHLP+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: " ??" Line Location: NOTFND+13
Function Call: WRITE	Prompt: ! Line Location: NOTFND+13
Function Call: WRITE	Prompt: " ??" Line Location: NOTFND+14
Function Call: WRITE	Prompt: ! Line Location: NOTFND+14
Function Call: WRITE	Prompt: ! Condition for execution: LEXCT=1 Line Location: Y1+8
Function Call: WRITE	Prompt: !,LEXT Line Location: Y1+8
Function Call: WRITE	Prompt: !,$G(LEX("HLP",LEXI)) Line Location: INPHLP+5
Function Call: WRITE	Prompt: !," Enter a ""free text"" term. Best results occur using one to " Line Location: INPHLP+7
Function Call: WRITE	Prompt: !," three full or partial words without a suffix" Line Location: INPHLP+8
Function Call: WRITE	Prompt: !," or " Line Location: INPHLP+12
Function Call: WRITE	Prompt: !," Enter a classification code (ICD/DSM/CPT etc) to find the single " Line Location: INPHLP+13
Function Call: WRITE	Prompt: !," term associated with the code." Line Location: INPHLP+14
Function Call: WRITE	Prompt: !," or " Line Location: INPHLP+21
Function Call: WRITE	Prompt: !," Enter a classification code (ICD/DSM/CPT etc) followed by a plus" Line Location: INPHLP+22
Function Call: WRITE	Prompt: !," sign (+) to retrieve all terms associated with the code." Line Location: INPHLP+23
Routine Call	DIR Line Location: ASK+7

FileNo	Call Tags
^LEX(757.01 - [#757.01]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^DISV(	SSBR+2*, RSBR+2
^LEX(757.01 - [#757.01]	EXIT+3
^TMP("LEXFND"	CLR+1!
^TMP("LEXHIT"	CLR+1!
^TMP("LEXSCH"	EN+89, NOTFND+13, NOTFND+14, FOUND+12, CLR+1!, INPHLP+2

Name	Line Occurrences
ASK	LK+2
CHK	EN+111
CL	EXIT+2, EXIT+4
CLR	CL+1
EXIT	EN+124
LK	EN+123
RSBR	ASK+8
SSBR	EXIT+3
Y1	EXIT+3

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> CUR	INPHLP+1*
CUT	INPHLP+1~
>> DIC	CHK+6*, SSBR+1, SSBR+2, RSBR+1, RSBR+2
>> DIC("A"	EN+117, EXIT+1, ASK+1, ASK+2, CHK+7*, CHK+8
>> DIC("B"	LK+6, LK+9!, NOTFND+12!, EXIT+1*, ASK+8!, CHK+2!
>> DIC("DR"	CHK+1!
>> DIC("P"	CHK+1!
>> DIC("V"	CHK+1!
>> DIC(0	EN+75, EN+114, EXIT+3, CHK+3, CHK+4, CHK+5, CHK+6, CHK+7, SSBR+2, RSBR+1
DINUM	CHK+1!
DIR	ASK+1~
DIR("?"	ASK+4, ASK+5
DIR("??"	ASK+5*
DIR("A"	ASK+2*
DIR("B"	ASK+3*
DIR(0	ASK+6*
DIROUT	ASK+1~, ASK+13!
DIRUT	ASK+1~, ASK+13!
DLAYGO	CHK+1!
>> DTOUT	ASK+11, ASK+12
>> DUOUT	ASK+13*
DUZ	SSBR+1, SSBR+2, RSBR+1, RSBR+2
FLG	INPHLP+1~*, INPHLP+11, INPHLP+15, INPHLP+17, INPHLP+18, INPHLP+19, INPHLP+20
IMP	INPHLP+1~*
>> IOINHI	Y1+1
>> IOINORM	Y1+1
LEX	EN+123, NOTFND+11!, FOUND+9, FOUND+11!, FOUND+12, FOUND+13, CL+1!
LEX("HLP"	NOTFND+13, INPHLP+3!, INPHLP+5, INPHLP+6!
LEX("LIST"	NOTFND+11, FOUND+9
LEX("SEL"	EN+123, NOTFND+12!, FOUND+10, FOUND+12, FOUND+13, EXIT+2, EXIT+3, Y1+3, Y1+4
LEXAP	EN+89, EN+90, LK+8, CL+1!
LEXB	Y1+1~*, Y1+6
LEXC	Y1+4~*, Y1+6, Y1+9
>> LEXCAT	EN+108
LEXCT	Y1+1~, Y1+3, Y1+7, Y1+8
LEXD	Y1+4~, Y1+5, INPHLP+1~, INPHLP+2, INPHLP+3
LEXDICA	EN+111~, EN+117, EXIT+1, ASK+1, CHK+8
LEXDICB	EN+111~, EXIT+1, ASK+2, ASK+3, CHK+2*
LEXI	Y1+3~, Y1+4, INPHLP+4~, INPHLP+5*
LEXLC	Y1+1~, Y1+2, Y1+7
LEXLDR	Y1+1~, Y1+2, Y1+5, Y1+7
LEXLL	EN+96*, LK+8, CL+1!
LEXN	Y1+1~*, Y1+6
LEXO	EN+111~
LEXQ	EN+77~*
>> LEXQUIET	Y1+2
LEXS	Y1+4~*, Y1+5
LEXSAVE	EN+114, LK+2, LK+4!, CHK+2
>> LEXSRC	EN+102
LEXSUB	EN+83*, CL+1!
LEXSY	Y1+1~, Y1+2*, Y1+3, Y1+9
LEXT	Y1+4~, Y1+5, Y1+6, Y1+8
LEXTD	EN+77~
LEXUR	EN+111~
>> LEXVDT	LK+8, INPHLP+1
LEXXCT	EN+108~*, LK+8
LEXXSR	EN+102~*, LK+8
U	ASK+13
X	EN+75!, EN+114!, LK+4, LK+6, LK+8, NOTFND+11, NOTFND+13, ASK+2, ASK+3, ASK+6! , ASK+8, ASK+9, ASK+10, ASK+12, ASK+13, INPHLP+3, INPHLP+4, INPHLP+9, INPHLP+10, INPHLP+11 , INPHLP+15, INPHLP+16, INPHLP+17, INPHLP+18, INPHLP+19, INPHLP+24, INPHLP+25, INPHLP+26, CHK+2, SSBR+2 , RSBR+2*
XTLKGBL	EN+111~
XTLKHLP	EN+111~
XTLKKSCH	EN+111~
XTLKSAY	EN+111~
Y	EXIT+1!, EXIT+2!, EXIT+3, ASK+6~, SSBR+2
Y(	Y1+9*
Y(0	EXIT+3*

Customize PDF page

Package: Lexicon Utility

Routine: LEXA1

Information

Source Information

Call Graph

Call Graph Total: 9

Caller Graph

Caller Graph Total: 7

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: