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

Source Information

Source file <LEXA1.m>

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

Caller Graph Total: 7

Package Total Caller Graph
Lexicon Utility 3 LEXEDF1  LEXLK  LEXTRAN  
Referred Care Information System 3 BMCADD1  BMCFUNC  BMCMOD1  
Contract Health Management Information System 1 ACHSA6  

Entry Points

Name Comments DBIA/ICR reference
SSBR ; Store data for Space Bar Return
EN ; Fileman Special Lookup
CL ; Clear LEX and Multi-Term Lookup XTLK
RSBR ; Retrieve onSpace Bar Return
CHK ; Check Fileman look-up variables
LK ; Start Look-up
; X not provided
ASK ; Get user input
NOTFND ; If X was not found
EXIT ; Set/Kill variables Y, Y(0,0) from LEX("SEL")
Y1 ; ICD-9 DX in Y(1), ICD-10 DX in Y(30)
FOUND ; If X was found
CLR ; Clear ^TMP Global
INPHLP ; Look-up help

External References

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

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: " ??"
  • Line Location: NOTFND+13
Function Call: WRITE
  • Prompt: !
  • Line Location: NOTFND+13
Function Call: WRITE
  • Prompt: " ??"
  • Line Location: NOTFND+14
Function Call: WRITE
  • Prompt: !
  • Line Location: NOTFND+14
Function Call: WRITE
  • Prompt: !
  • Condition for execution: LEXCT=1
  • Line Location: Y1+8
Function Call: WRITE
  • Prompt: !,LEXT
  • Line Location: Y1+8
Function Call: WRITE
  • Prompt: !,$G(LEX("HLP",LEXI))
  • Line Location: INPHLP+5
Function Call: WRITE
  • Prompt: !," Enter a ""free text"" term. Best results occur using one to "
  • Line Location: INPHLP+7
Function Call: WRITE
  • Prompt: !," three full or partial words without a suffix"
  • Line Location: INPHLP+8
Function Call: WRITE
  • Prompt: !," or "
  • Line Location: INPHLP+12
Function Call: WRITE
  • Prompt: !," Enter a classification code (ICD/DSM/CPT etc) to find the single "
  • Line Location: INPHLP+13
Function Call: WRITE
  • Prompt: !," term associated with the code."
  • Line Location: INPHLP+14
Function Call: WRITE
  • Prompt: !," or "
  • Line Location: INPHLP+21
Function Call: WRITE
  • Prompt: !," Enter a classification code (ICD/DSM/CPT etc) followed by a plus"
  • Line Location: INPHLP+22
Function Call: WRITE
  • Prompt: !," sign (+) to retrieve all terms associated with the code."
  • Line Location: INPHLP+23
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+3
^TMP("LEXFND" CLR+1!
^TMP("LEXHIT" CLR+1!
^TMP("LEXSCH" EN+89, NOTFND+13, NOTFND+14, FOUND+12, CLR+1!, INPHLP+2

Label References

Name Line Occurrences
ASK LK+2
CHK EN+111
CL EXIT+2, EXIT+4
CLR CL+1
EXIT EN+124
LK EN+123
RSBR ASK+8
SSBR EXIT+3
Y1 EXIT+3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> CUR INPHLP+1*
CUT INPHLP+1~
>> DIC CHK+6*, SSBR+1, SSBR+2, RSBR+1, RSBR+2
>> DIC("A" EN+117, EXIT+1*, ASK+1*, ASK+2, CHK+7*, CHK+8
>> DIC("B" LK+6, LK+9!, NOTFND+12!, EXIT+1*, ASK+8!, CHK+2!
>> DIC("DR" CHK+1!
>> DIC("P" CHK+1!
>> DIC("V" CHK+1!
>> DIC(0 EN+75, EN+114, EXIT+3, 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 ASK+11, ASK+12
>> DUOUT ASK+13*
DUZ SSBR+1, SSBR+2, RSBR+1, RSBR+2
FLG INPHLP+1~*, INPHLP+11, INPHLP+15, INPHLP+17, INPHLP+18, INPHLP+19, INPHLP+20
IMP INPHLP+1~*
>> IOINHI Y1+1
>> IOINORM Y1+1
LEX EN+123, NOTFND+11!*, FOUND+9, FOUND+11!, FOUND+12, FOUND+13*, CL+1!
LEX("HLP" NOTFND+13, INPHLP+3!, INPHLP+5, INPHLP+6!
LEX("LIST" NOTFND+11, FOUND+9
LEX("SEL" EN+123, NOTFND+12!, FOUND+10, FOUND+12, FOUND+13, EXIT+2, EXIT+3, Y1+3, Y1+4
LEXAP EN+89*, EN+90*, LK+8, CL+1!
LEXB Y1+1~*, Y1+6
LEXC Y1+4~*, Y1+6, Y1+9
>> LEXCAT EN+108
LEXCT Y1+1~, Y1+3*, Y1+7*, Y1+8
LEXD Y1+4~*, Y1+5, INPHLP+1~, INPHLP+2*, INPHLP+3
LEXDICA EN+111~, EN+117*, EXIT+1, ASK+1, CHK+8*
LEXDICB EN+111~, EXIT+1, ASK+2, ASK+3, CHK+2*
LEXI Y1+3~*, Y1+4, INPHLP+4~*, INPHLP+5*
LEXLC Y1+1~, Y1+2*, Y1+7*
LEXLDR Y1+1~, Y1+2*, Y1+5, Y1+7*
LEXLL EN+96*, LK+8, CL+1!
LEXN Y1+1~*, Y1+6
LEXO EN+111~
LEXQ EN+77~*
>> LEXQUIET Y1+2
LEXS Y1+4~*, Y1+5
LEXSAVE EN+114*, LK+2, LK+4!, CHK+2*
>> LEXSRC EN+102
LEXSUB EN+83*, CL+1!
LEXSY Y1+1~, Y1+2*, Y1+3, Y1+9
LEXT Y1+4~, Y1+5*, Y1+6*, Y1+8
LEXTD EN+77~
LEXUR EN+111~
>> LEXVDT LK+8, INPHLP+1
LEXXCT EN+108~*, LK+8
LEXXSR EN+102~*, LK+8
U ASK+13
X EN+75!, EN+114!, LK+4*, LK+6*, LK+8, NOTFND+11, NOTFND+13, ASK+2, ASK+3, ASK+6!
, ASK+8, ASK+9, ASK+10*, ASK+12*, ASK+13, INPHLP+3, INPHLP+4, INPHLP+9, INPHLP+10, INPHLP+11
, INPHLP+15, INPHLP+16, INPHLP+17, INPHLP+18, INPHLP+19, INPHLP+24, INPHLP+25, INPHLP+26, CHK+2, SSBR+2
, RSBR+2*
XTLKGBL EN+111~
XTLKHLP EN+111~
XTLKKSCH EN+111~
XTLKSAY EN+111~
Y EXIT+1!, EXIT+2!*, EXIT+3*, ASK+6~, SSBR+2
Y( Y1+9*
Y(0 EXIT+3*
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