Routine: LEXQL

Information

LEXQL ;ISL/KER - Query - Lookup Code ;05/23/2017

Package	Total	Call Graph
Lexicon Utility	3	($$RET,SAV)^LEXQD ADD^LEXQL2 PR^LEXU
CPT HCPCS Codes	2	$$CPT^ICPTCOD $$MOD^ICPTMOD
Kernel	2	$$DT^XLFDT $$UP^XLFSTR
DRG Grouper	1	($$CODEABA,$$ICDDX,$$ICDOP,$$ROOT)^ICDEX
VA FileMan	1	^DIR

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: 1

Package	Total	Caller Graph
Lexicon Utility	1	LEXQH

Entry Points

Name	Comments	DBIA/ICR reference
SO(X)	; Select a Code ; ; Input None ; ; Output X - "^" delimited string ; 1 - IEN ; 2 - Global Root ; 3 - File # ; 4 - Coding System (if available) ; 5 - Code ; 6 - Short Name ; ; or "^" if no code is found/selected ;
SOH	; Select a Code Help
SOGD(X)	; Select a Code Global/Data
SEL(X)	; Select from List
ASK	; Ask for Selection
ONE(X)	; One Entry Found
MUL(X)	; Multiple Entries Found
MULW	; Write Multiple
MULS(LEXS,LEXI)	; Select Multiple
MULSH	; Select Multiple Help
MULQ	; Quit Multiple
X(X)	; Set X
CT(X)	; Code and Text
FI(X)	; File
SHO	; Show TMP
CL	; Clear

External References

Name	Field # of Occurrence
^DIR	SO+19, ONE+8, MULS+6
$$CODEABA^ICDEX	SOGD+3, SOGD+4, SOGD+6, SOGD+7, SOGD+9, SOGD+10, SOGD+12, SOGD+13
$$ICDDX^ICDEX	SOGD+3, SOGD+4, SOGD+6, SOGD+7, CT+3, CT+7
$$ICDOP^ICDEX	SOGD+9, SOGD+10, SOGD+12, SOGD+13, CT+5, CT+9
$$ROOT^ICDEX	SOGD+3, SOGD+4, SOGD+6, SOGD+7, SOGD+9, SOGD+10, SOGD+12, SOGD+13, FI+2, FI+3 , FI+4, FI+5
$$CPT^ICPTCOD	SOGD+15, SOGD+16, CT+11
$$MOD^ICPTMOD	SOGD+18, SOGD+19, CT+13
$$RET^LEXQD	SO+17
SAV^LEXQD	SO+24
ADD^LEXQL2	SEL+1
PR^LEXU	ONE+4, MULW+3
$$DT^XLFDT	SO+15, SOGD+1
$$UP^XLFSTR	SOGD+4, SOGD+7, SOGD+10, SOGD+13, SOGD+16, SOGD+19, X+4

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !," Enter a code from either:",! Line Location: SOH+1
Function Call: WRITE	Prompt: !," ICD-9 Diagnosis file #80 4-7 Characters" Line Location: SOH+2
Function Call: WRITE	Prompt: !," ICD-9 Procedure file #80.1 3-5 Characters" Line Location: SOH+3
Function Call: WRITE	Prompt: !," ICD-10 Diagnosis file #80 4-8 Characters" Line Location: SOH+4
Function Call: WRITE	Prompt: !," ICD-10 Procedure file #80.1 7 Characters" Line Location: SOH+5
Function Call: WRITE	Prompt: !," CPT/HCPCS Procedure file #81 5 Characters" Line Location: SOH+6
Function Call: WRITE	Prompt: !," CPT Modifier file #81.3 2 Characters",! Line Location: SOH+7
Function Call: WRITE	Prompt: !," Or enter keywords, 2-30 characters, to search for in" Line Location: SOH+8
Function Call: WRITE	Prompt: !," the above files.",! Line Location: SOH+9
Function Call: WRITE	Prompt: ! Line Location: ONE+7
Function Call: WRITE	Prompt: ! Line Location: MUL+2
Function Call: WRITE	Prompt: !," ",LEXTTT," matches found" Condition for execution: +LEXTTT>1 Line Location: MUL+2
Function Call: WRITE	Prompt: ! Line Location: MUL+6
Function Call: WRITE	Prompt: !,$J(LEXI,5),". ",$G(LEX(1)) Line Location: MULW+4
Function Call: WRITE	Prompt: !," ",LEXT2 Condition for execution: $L(LEXT2) Line Location: MULW+4
Function Call: WRITE	Prompt: !,$G(LEXTQ) Line Location: MULSH+1
Function Call: WRITE	Prompt: ! Line Location: SHO+2
Function Call: WRITE	Prompt: !,LEXNN,"=",@LEXNN Line Location: SHO+2
Function Call: WRITE	Prompt: ! Line Location: SHO+3
Routine Call	DIR Line Location: SO+19 ONE+8 MULS+6

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DIC(81.3 - [#81.3]	SOGD+18, SOGD+19, CT+13
^ICPT - [#81]	CT+11
^ICPT("BA"	SOGD+15, SOGD+16
^TMP("LEXQL"	LEXQL+23!, SO+14!, SO+20!, SO+21, SO+23, SO+24!, SEL+1!, SEL+2!, ASK+1, ONE+2 , ONE+8!, MUL+2, MUL+4, MULW+1, MULS+2, MULS+3, MULS+6!, X+2

Label References

Name	Line Occurrences
$$CT	ONE+2, MULW+1, X+3
$$FI	ONE+4, X+3
$$MUL	ASK+2
$$MULS	MUL+5, MUL+6
$$ONE	ASK+2
$$SO	LEXQL+23
$$X	ONE+9, MULQ+1
ASK	SEL+1
MULQ	MUL+2, MUL+7
MULW	MUL+4

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
DIR	LEXQL+20~, SO+14~, ONE+1~, MULS+1~, MULS+7!
DIR("?"	SO+19, MULS+5
DIR("??"	SO+19, MULS+5
DIR("A"	SO+16, ONE+5, ONE+6, ONE+7, MULS+2, MULS+3
DIR("B"	SO+17, ONE+7
DIR("PRE"	SO+18, MULS+5
DIR(0	SO+16, ONE+7, MULS+6*
DIRB	LEXQL+20~, SO+14~, SO+17*, SO+21, MULS+1~
DIROUT	LEXQL+20~, SO+14~, SO+22, ONE+1~, ONE+8, MULS+1~
DIRUT	LEXQL+20~, SO+14~, SO+22, ONE+1~, MULS+1~
DIW	LEXQL+20~
DIWF	LEXQL+20~
DIWI	LEXQL+20~
DIWL	LEXQL+20~
DIWR	LEXQL+20~
DIWT	LEXQL+20~
DIWTC	LEXQL+20~
DIWX	LEXQL+20~
DN	LEXQL+20~
DTOUT	LEXQL+20~, SO+14~, SO+20, SO+22, ONE+1~, ONE+8, MULS+1~, MULS+6, MULS+7
DUOUT	LEXQL+20~, SO+14~, SO+22, ONE+1~, MULS+1~
DUZ	SO+17, SO+24
LEX	LEXQL+20~, SO+14~, SO+24, SOGD+1~, ONE+1~, ONE+4, MULW+1~, MULW+2!, MULW+3
LEX(	MULW+4
LEX(1	ONE+3, ONE+5, MULW+3, MULW+4
LEX(2	ONE+6
LEXC	LEXQL+20~, ONE+1~, ONE+5, ONE+6, ONE+7, CT+1~, CT+3, CT+5, CT+7, CT+9* , CT+11, CT+13, CT+14
LEXCOM	LEXQL+20~
LEXCT	LEXQL+20~, ONE+1~, ONE+2, ONE+4, MULW+1, X+1~, X+3*, X+4
LEXCTY	LEXQL+20~
LEXD	LEXQL+20~
LEXDS	LEXQL+20~
LEXDT	LEXQL+20~
LEXE	LEXQL+20~
LEXENT	LEXQL+20~, MUL+1~, MUL+4*, MULW+1
LEXEXIT	SO+14, SO+20, SEL+2, ONE+1, ONE+8, MUL+1, MULS+1, MULS+6, CL+1!
LEXFD	LEXQL+20~
LEXFI	LEXQL+21~, X+1~, X+3*, X+4
LEXI	LEXQL+21~, MUL+1~, MUL+3, MUL+4, MUL+5, MUL+6, MULW+1, MULW+4, MULS~, MULS+1
LEXIEN	LEXQL+21~, ONE+1~, ONE+2, ONE+4, MUL+1~, MULW+1~, X+1~, X+4, CT+1~, CT+3 , CT+5, CT+7, CT+9, CT+11, CT+13
LEXIN	LEXQL+21~
LEXIT	LEXQL+21~, SO+14~, SO+15, MUL+1~, MUL+3, MUL+5, MUL+6, MULQ+1
LEXIX	LEXQL+21~
LEXKEY	LEXQL+21~
LEXL	LEXQL+21~
LEXLAST	LEXQL+21~, MULS+1~*, MULS+2, MULS+3
LEXLEN	LEXQL+21~
LEXMAX	LEXQL+21~, MUL+1~, MUL+4, MUL+5, MUL+6, MULS+1~*, MULS+2, MULS+3, MULS+4, MULS+6
LEXN	LEXQL+21~, CT+1~, CT+3, CT+5, CT+7, CT+9, CT+11, CT+13, CT+14
LEXNC	SHO+1~*, SHO+2
LEXNM	LEXQL+21~
LEXNN	SHO+1~, SHO+2
LEXO	LEXQL+21~
LEXOC	LEXQL+21~
LEXRTN	LEXQL+21~
LEXS	LEXQL+21~, MULS~, MULS+1, MULS+7*, MULS+8
LEXSEL	LEXQL+21~, X+1~*, X+2
LEXSO	LEXQL+21~
LEXSS	LEXQL+21~, MUL+1~, MUL+2, MUL+3, MUL+5, MUL+6, MULQ+1
LEXSTR	LEXQL+21~, MUL+1~, MUL+4*
LEXT	LEXQL+21~, CT+1~*, CT+2, CT+4, CT+6, CT+8, CT+10, CT+12
LEXT1	LEXQL+22~, ONE+1~, ONE+2, ONE+3, MUL+1~, MULW+1~, MULW+2, MULW+3, MULW+4, X+1~ , X+2, X+3, X+4
LEXT2	LEXQL+22~, ONE+1~, ONE+2, ONE+3, MULW+1~, MULW+2, MULW+4, X+1~, X+2, X+3
LEXT3	LEXQL+22~, ONE+1~, ONE+3, ONE+4, MULW+1~, MULW+3, X+1~, X+3*
LEXTAG	LEXQL+22~
LEXTD	LEXQL+22~, SO+14~, SO+15, SOGD+1~, SOGD+3, SOGD+4, SOGD+6, SOGD+7, SOGD+9, SOGD+10 , SOGD+12, SOGD+13, SOGD+15, SOGD+16, SOGD+18, SOGD+19
LEXTMP	LEXQL+22~
LEXTN	LEXQL+22~
LEXTOT	LEXQL+22~, ASK+1~*, ASK+2
LEXTQ	LEXQL+22~, MULS+1~, MULS+4*, MULSH+1
LEXTS	LEXQL+22~
LEXTTT	LEXQL+22~, MUL+1~, MUL+2*, MUL+3
LEXTY	LEXQL+22~
LEXUSR	LEXQL+22~
LEXV	LEXQL+22~
LEXVAL	LEXQL+22~
LEXVDT	SO+15, CT+3, CT+5, CT+7, CT+9, CT+11, CT+13, CL+1!
LEXX	LEXQL+22~, ONE+1~, ONE+4*
U	SO+21, SO+24, ONE+2, ONE+4, MUL+1*, MUL+4, MULW+1, MULS+7, X+4, CT+1 , CT+11, CT+13, CT+14
X	LEXQL+23, SO~, SO+19, SO+20, SO+22, SO+23, SO+24, SO+25, SOGD~, SOGD+1 , SOGD+3, SOGD+4, SOGD+6, SOGD+7, SOGD+9, SOGD+10, SOGD+12, SOGD+13, SOGD+15, SOGD+16 , SOGD+18, SOGD+19, SEL~, SEL+1, SEL+2, SEL+3, ASK+1!, ASK+2, ONE~, ONE+8 , ONE+9, ONE+10, MUL~, MUL+8, MULS+1~, MULS+6, MULS+7, MULQ+1, MULQ+2, X~ , X+1, X+4, X+5, CT~, CT+1, CT+14, CT+15, FI~, FI+1*, FI+2 , FI+3, FI+4, FI+5, FI+6, FI+7
Y	LEXQL+22~, SO+14~, SO+19*, SO+21, ONE+1~, ONE+9, MUL+1~, MULS+1~, MULS+7

Customize PDF page

Package: Lexicon Utility

Routine: LEXQL

Information

Source Information

Call Graph

Call Graph Total: 9

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: