Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls
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>

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

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
Info |  Source |  Entry Points |  Interaction Calls