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 ;04/21/2014

Source Information

Source file <LEXQL.m>

Call Graph

Call Graph Total: 8

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

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+18, 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+16
SAV^LEXQD SO+23
ADD^LEXQL2 SEL+1
PR^LEXQL2 ONE+4, MULW+3
$$DT^XLFDT SO+14, 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+18
    • 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+24!, SO+14!, SO+19!, SO+20*, SO+22, SO+23!, SEL+1!, SEL+2!*, ASK+1, ONE+2
, ONE+8!, MUL+2, MUL+4, MULW+1, MULS+2, MULS+3, MULS+6!, X+2
^UTILITY($J LEXQL+24!

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