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 |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: LEXA1

Package: Lexicon Utility

Routine: LEXA1


Information

LEXA1 ;ISL/KER - Lexicon Look-up (Loud) ;05/23/2017

Source Information

Source file <LEXA1.m>

Entry Points

Name Comments DBIA/ICR reference
EN ; Fileman Special Lookup
;
; ^LEXA1 is the Lexicon's special lookup routine
;
; ^DD(757.01,0,"DIC")=LEXA1
;
; Input All input variables are optional
;
; X User's input, if X does not exist the user
; will be prompted
;
; Fileman Variables used:
;
; DIC Global Root (default ^LEX(757.01,)
; DIC(0) DIC response string (default AEQM)
; DIC("A") Prompt (default "Enter Term/Concept:")
; DIC("B") Default lookup value
; DIC("S") Screen
; DIC("W") Output string
;
; Special Input Variables:
;
; LEXVDT Versioning Date - This is a date in
; Fileman format. If set it will force
; the lookup to be date sensitive,
; inactive and pending codes and terms
; will not display on the selection
; list.
;
; Developer Input Variables
;
; LEXIGN Ignore - This flag, if set will ignore
; deactivation flags.
;
; LEXDISP Display - Force overwrite of display default
; parameter.
;
; Output
;
; Fileman
;
; Y 2 piece string containing IEN and
; expression or -1 if not found
; or selection not made
;
; Y(0) If DIC(0) contains a Z this variable
; will be equal to the entire zero node
; of the entry that was selected
;
; Y(0,0) If DIC(0) contains a Z this variable
; will be equal to the external form of
; the .01 field of the entry that was
; selected
;
; Non-Fileman
;
; Y(1) This is the external form of the ICD-9
; diagnosis code when found
;
; Y(2) This is the external form of the ICD-9
; procedure code when found
;
; Y(30) This is the external form of the ICD-10
; diagnosis code when found
;
; Y(31) This is the external form of the ICD-10
; procedure code when found
;
; Y(81) This is the external form of the CPT-4
; or HCPCS code when found
;
LK ; Start Look-up
; X not provided
NOTFND ; If X was not found
FOUND ; If X was found
EXIT ; Set/Kill variables Y, Y(0,0)
CL ; Clear Variables
CLR ; Clear ^TMP Global
Y1 ; Y(n)
; ICD-9 Diagnosis in Y(1)
; ICD-9 Procedure in Y(2)
; CPT Procedure in Y(3)
; HCPCS Procedure in Y(4)
; ICD-10 Diagnosis in Y(30)
; ICD-10 Procedure in Y(31)
ECHO ; Echo codes
ASK ; Get user input
INPHLP ; Look-up help
CHK ; Check Fileman look-up variables
SSBR ; Store data for Space Bar Return
RSBR ; Retrieve onSpace Bar Return

Interaction Calls

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

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^LEX(757.01 - [#757.01] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call