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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
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>

Call Graph

Call Graph

Call Graph Total: 9

Package Total Call Graph
Lexicon Utility 7 LOOK^LEXA  SELECT^LEXA2  DH^LEXA3  EN^LEXA4  QMH^LEXAR3  $$SQ^LEXHLP  ($$IMPDATE,VDT)^LEXU  
Kernel 1 $$DT^XLFDT  
VA FileMan 1 ^DIR  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

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

Caller Graph

Caller Graph Total: 5

Package Total Caller Graph
Lexicon Utility 5 LEXEDF1  LEXINF4  LEXLK  LEXTRAN  ^LEX(757.01  

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

External References

Name Field # of Occurrence
^DIR ASK+7
LOOK^LEXA LK+10
SELECT^LEXA2 FOUND+9
DH^LEXA3 NOTFND+12
EN^LEXA4 NOTFND+13, FOUND+13
QMH^LEXAR3 INPHLP+5
$$SQ^LEXHLP ASK+4
$$IMPDATE^LEXU INPHLP+1
VDT^LEXU EN+73
$$DT^XLFDT INPHLP+2

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
Routine Call
  • DIR
  • Line Location:
    • ASK+7

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^LEX(757.01 - [#757.01] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DISV( SSBR+2*, RSBR+2
^LEX(757.01 - [#757.01] EXIT+7, EXIT+8
^LEX(757.03 - [#757.03] Y1+9
^TMP("LEXFND" CLR+1!
^TMP("LEXHIT" CLR+1!
^TMP("LEXSCH" EN+82, NOTFND+12, NOTFND+13, FOUND+12, CLR+1!, INPHLP+3

Label References

Name Line Occurrences
ASK LK+3
CHK EN+98
CL EXIT+3, EXIT+9
CLR CL+1
ECHO EXIT+6
EXIT EN+111
LK EN+110
RSBR ASK+8
SSBR EXIT+6
Y1 EXIT+4

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
CUR INPHLP+1~, INPHLP+2*
CUT INPHLP+1~
>> DIC CHK+6*, SSBR+1, SSBR+2, RSBR+1, RSBR+2
>> DIC("A" EN+104, EXIT+2*, ASK+1*, ASK+2, CHK+7*, CHK+8
>> DIC("B" LK+7, LK+11!, NOTFND+11!, EXIT+2*, ASK+8!, CHK+2!
>> DIC("DR" CHK+1!
>> DIC("P" CHK+1!
>> DIC("V" CHK+1!
>> DIC(0 EN+71, EN+101, EXIT+6, CHK+3, CHK+4*, CHK+5*, CHK+6*, CHK+7*, SSBR+2, RSBR+1
DINUM CHK+1!
DIR ASK+1~
DIR("?" ASK+4*, ASK+5*
DIR("??" ASK+5*
DIR("A" ASK+2*
DIR("B" ASK+3*
DIR(0 ASK+6*
DIROUT ASK+1~, ASK+13!
DIRUT ASK+1~, ASK+13!
DLAYGO CHK+1!
DTOUT LK+2!, LK+3, ASK+11, ASK+12
DUOUT LK+2!, LK+3, ASK+13*
DUZ SSBR+1, SSBR+2, RSBR+1, RSBR+2
FLG INPHLP+1~, INPHLP+2*, INPHLP+12, INPHLP+16, INPHLP+18, INPHLP+19, INPHLP+20, INPHLP+21
IMP INPHLP+1~*, INPHLP+2
IOINHI Y1+12~, ECHO+1
IOINORM Y1+12~, ECHO+1
LEX EN+110, LK+3!, LK+9!, NOTFND+10!*, FOUND+9, FOUND+11!, FOUND+12, FOUND+13*, CL+1!
LEX("HLP" NOTFND+12, INPHLP+4!, INPHLP+6, INPHLP+7!
LEX("LIST" NOTFND+10, FOUND+9
LEX("NAR" EXIT+1
LEX("SEL" EN+110, NOTFND+11!, FOUND+10, FOUND+12, FOUND+13, EXIT+3, EXIT+4, EXIT+5, EXIT+7, EXIT+8
, Y1+7, Y1+8, Y1+10, ECHO+3, ECHO+4
LEXAP EN+82*, EN+83*, LK+10, CL+1!
LEXASKC EN+73~, EN+110*, LK+2*
LEXB ECHO+1~*, ECHO+6
LEXC Y1+8~, Y1+10*, Y1+11, ECHO+4~*, ECHO+6
LEXCAT EN+95, INPHLP+1~
LEXCT ECHO+1~, ECHO+3*, ECHO+7*, ECHO+8
LEXCTL Y1+7~*, Y1+9
LEXD ECHO+4~*, ECHO+5, INPHLP+1~, INPHLP+3*, INPHLP+4
LEXDICA EN+98~, EN+104*, EXIT+2, ASK+1, CHK+8*
LEXDICB EN+98~, EXIT+2, ASK+2, ASK+3, CHK+2*
LEXI ECHO+3~*, ECHO+4, INPHLP+5~*, INPHLP+6*
LEXLC ECHO+1~, ECHO+2*, ECHO+7*
LEXLDR ECHO+1~, ECHO+2*, ECHO+5, ECHO+7*
LEXLL EN+87*, LK+10, CL+1!
LEXN ECHO+1~*, ECHO+6
LEXNOM Y1+8~*, Y1+9
LEXO EN+98~
LEXQ EN+73~*
LEXQUIET ECHO+2, INPHLP+1~
LEXS ECHO+4~*, ECHO+5
LEXSAVE EN+101*, LK+3, LK+5!, CHK+2*
LEXSR Y1+7~*, Y1+8, Y1+10
LEXSRC EN+91, INPHLP+1~
LEXSUB EN+78*, CL+1!
LEXSY ECHO+1~, ECHO+2*, ECHO+3
LEXSYS Y1+8~, Y1+9*, Y1+11
LEXT ECHO+4~, ECHO+5*, ECHO+6*, ECHO+8
LEXTD EN+73~
LEXUR EN+98~
LEXVDT EN+73, LK+10, EXIT+2!, INPHLP+2
LEXXCT EN+95~*, LK+10
LEXXSR EN+91~*, LK+10
LEXXVDT EN+73~*, EXIT+2
U ASK+13
X EN+71!, EN+101!, LK+5*, LK+7*, LK+9, LK+10, NOTFND+10, NOTFND+12, EXIT+1*, ASK+2
, ASK+3, ASK+6!, ASK+8, ASK+9, ASK+10*, ASK+12*, ASK+13, INPHLP+4, INPHLP+5, INPHLP+10
, INPHLP+11, INPHLP+12, INPHLP+16, INPHLP+17, INPHLP+18, INPHLP+19, INPHLP+20, INPHLP+25, INPHLP+26, INPHLP+27
, CHK+2, SSBR+2, RSBR+2*
XTLKGBL EN+98~
XTLKHLP EN+98~
XTLKKSCH EN+98~
XTLKSAY EN+98~
Y EXIT+2!, EXIT+3!*, EXIT+5*, ASK+6~, SSBR+2
Y( Y1+11*
Y(0 EXIT+7*, EXIT+8*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All