Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
Print Page as PDF
Routine: LEXQL

Package: Lexicon Utility

Routine: LEXQL


Information

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

Source Information

Source file <LEXQL.m>

Call Graph

Call Graph

Call Graph Total: 9

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:

Legend of Colors

Package Component Superscript legend

protocol O screenman SM broker B event driver Ed print P extended action Ea limited protocol LP edit E server Se subscriber Su inquire I run routine RR action A

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Lexicon Utility 1 LEXQH  

Entry Points

Name Comments DBIA/ICR reference
CL ; Clear
MULQ ; Quit Multiple
X(X) ; Set X
SEL(X) ; Select from List
SOH ; Select a Code Help
SOGD(X) ; Select a Code Global/Data
MULS(LEXS,LEXI) ; Select Multiple
MUL(X) ; Multiple Entries Found
CT(X) ; Code and Text
FI(X) ; File
ASK ; Ask for Selection
MULSH ; Select Multiple Help
ONE(X) ; One Entry Found
MULW ; Write Multiple
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
;
SHO ; Show TMP

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
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All