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 |  Label References |  Local Variables  | All
Print Page as PDF
Routine: LEX10DLS

Package: Lexicon Utility

Routine: LEX10DLS


Information

LEX10DLS ;ISL/KER - ICD-10 Diagnosis Lookup Selection ;05/23/2017

Source Information

Source file <LEX10DLS.m>

Call Graph

Call Graph

Call Graph Total: 3

Package Total Call Graph
Kernel 1 $$UP^XLFSTR  
Lexicon Utility 1 PR^LEXU  
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: 1

Package Total Caller Graph
Lexicon Utility 1 LEX10DL  

Entry Points

Name Comments DBIA/ICR reference
SEL(LEX,X) ; Select from List
ASK(LEX,X) ; Ask for Selection
ONE(X,LEX) ; One Entry Found
MUL(LEX,Y) ; Multiple Entries Found
MULW ; Write Multiple
MULS(X,Y,LEX) ; Select from Multiple Entries
MULSH ; Select from Multiple Entries Help
MULQ ; Quit Multiple
X(X,LEX) ; Set X and Outpot Array
CONT(X,Y) ; Ask to Continue
COH ; Continue Help
CL ; Clear

External References

Name Field # of Occurrence
^DIR ONE+12, MULS+13, CONT+13
PR^LEXU ONE+7, MULW+5, CONT+8
$$UP^XLFSTR CONT+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: ONE+11
Function Call: WRITE
  • Prompt: !
  • Line Location: MUL+4
Function Call: WRITE
  • Prompt: !," ",LEXX," matches found"
  • Condition for execution: +LEXX>1
  • Line Location: MUL+4
Function Call: WRITE
  • Prompt: !
  • Line Location: MUL+10
Function Call: WRITE
  • Prompt: !,$J(LEXE,5),". ",$G(LEXTX(1))
  • Line Location: MULW+5
Function Call: WRITE
  • Prompt: !,$G(LEXHLP)
  • Line Location: MULSH+1
Function Call: WRITE
  • Prompt: !
  • Line Location: CONT+13
Function Call: WRITE
  • Prompt: !," Enter To"
  • Line Location: COH+2
Function Call: WRITE
  • Prompt: !," 'Yes' continue searching for """,LEXX,"""."
  • Line Location: COH+3
Function Call: WRITE
  • Prompt: !," 'No' refine the search (further specify)"
  • Line Location: COH+4
Function Call: WRITE
  • Prompt: !," '^' discontinue the search and exit"
  • Line Location: COH+5
Function Call: WRITE
  • Prompt: !," Enter To"
  • Line Location: COH+7
Function Call: WRITE
  • Prompt: !," 'Yes' continue the search"
  • Line Location: COH+8
Function Call: WRITE
  • Prompt: !," 'No' refine the search (further specify)"
  • Line Location: COH+9
Function Call: WRITE
  • Prompt: !," '^' discontinue the search and exit"
  • Line Location: COH+10
Routine Call
  • DIR
  • Line Location:
    • ONE+12
    • MULS+13
    • CONT+13

Label References

Name Line Occurrences
$$ASK SEL+42
$$MUL ASK+3
$$MULS MUL+8, MUL+10
$$ONE ASK+3
$$X ONE+15, MULQ+2
MULQ MUL+4, MUL+11
MULW MUL+6

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DIR ONE+1~, MULS+1~, MULS+16!, CONT+1~
DIR("?" MULS+12*, CONT+12*
DIR("??" MULS+12*, CONT+12*
DIR("A" ONE+7*, ONE+8*, ONE+9*, ONE+10*, ONE+11*, MULS+5*, MULS+6*, MULS+8*, CONT+9*, CONT+10*
, CONT+11*
DIR("B" ONE+11*, CONT+11*
DIR("PRE" MULS+11*, CONT+13*
DIR(0 ONE+11*, MULS+13*, CONT+12*
DIRB MULS+1~
DIROUT ASK+4, ONE+12, MULS+14, CONT+1!, CONT+14
DIRUT CONT+1!, CONT+14
DTOUT ASK+4, ONE+12, ONE+13, MULS+14, MULS+15, MULS+16, CONT+1!, CONT+14
DUOUT ASK+4, ONE+12, MULS+14, CONT+1!, CONT+14
LEX SEL~, SEL+42, ASK~, ASK+3, ONE~, ONE+14!, ONE+15, MUL~, MUL+8, MUL+10
, MULS~, MULQ+2, X~, X+9!
LEX( MULW+1, MULW+2, MULW+3, MULW+4, MULS+4, MULS+7, X+3, X+4
LEX(" " ASK+2, MUL+3
LEX(0 ONE+2, MULS+3, X+2
LEX(1 ONE+3, ONE+4, ONE+5
LEXC ONE+1~, ONE+2~, ONE+5*, ONE+6, ONE+8*, ONE+9*, ONE+10*, CONT+1~, CONT+8*, CONT+9*
, CONT+10*
LEXE MUL+1~, MUL+5*, MUL+6, MUL+7, MUL+8, MUL+9, MUL+10, MULW+1, MULW+2, MULW+3
, MULW+4, MULW+5
LEXEX ONE+1~, ONE+4*, ONE+6, MULW+1~, MULW+3*, MULW+4, X+1~, X+3*, X+5
LEXFI ONE+1~, ONE+2*, MULS+1~, MULS+3*, X+1~, X+2*
LEXFQ CONT+1~, CONT+2*, CONT+4
LEXHLP MULS+1~, MULS+9*, MULS+10*, MULSH+1
LEXI MULW+1~, MULW+6*, CONT+1~, CONT+8*, CONT+9
LEXIEN X+1~, X+4*, X+5
LEXIT ASK+1~, ASK+2*, ONE+1~, ONE+13*, ONE+14, MUL+1, MUL+2*, MUL+5, MUL+8*, MUL+10*
, MULS+2, MULS+15*, MULQ+2, CL+1!
LEXL ASK+1~*, ASK+3, MUL+1~, MUL+2*, MUL+6, MUL+7, MUL+8, MUL+9
LEXLAST MULS+1~, MULS+2*, MULS+4, MULS+7
LEXMAX MUL+1~, MUL+2*, MUL+7*, MUL+8, MUL+10, MULS+1~, MULS+2*, MULS+3, MULS+6, MULS+8
, MULS+10, MULS+13
LEXN X+1~
LEXNC ONE+1~, ONE+3*, ONE+4*, ONE+6, MULW+1~, MULW+2*, MULW+4, X+1~, X+6*, X+7
, X+9*, X+10
LEXNN X+1~, X+6*, X+7*, X+8, X+9*, X+10*, X+11
LEXRN X+1~, X+8*, X+11*
LEXS MULS+1~, X+1~, X+2*, X+3, X+4, X+6, X+9
LEXSO ONE+1~, ONE+3*, ONE+6, MULW+1~*, MULW+3, MULW+4, X+1~, X+3*, X+4
LEXSP ONE+2~*, ONE+9
LEXSS MUL+1~, MUL+2*, MUL+3*, MUL+5, MUL+8*, MUL+9, MUL+10*, MULQ+1, MULQ+2
LEXT MULW+1~, MULW+6*
LEXTOT ASK+1~, ASK+2*, ASK+3
LEXTX ONE+2~, ONE+7, MULW+1~, MULW+5
LEXTX( MULW+6
LEXTX(1 ONE+6*, ONE+8, MULW+3*, MULW+4*, MULW+5
LEXTX(2 ONE+8, ONE+9
LEXW CONT+1~, CONT+8
LEXW( CONT+8, CONT+9
LEXW(1 CONT+3*
LEXW(2 CONT+4*
LEXW(3 CONT+5*
LEXW(4 CONT+6*
LEXW(5 CONT+7*
LEXX MUL+1~, MUL+3*, MUL+4, MUL+5, CONT+1~, CONT+2*, CONT+3, CONT+7, COH+1, COH+3
, COH+6
U MUL+2*, MULS+16
X SEL~, SEL+42*, SEL+43, ASK~, ASK+1, ASK+3!*, ASK+4*, ASK+5, ONE~, ONE+13
, ONE+14, ONE+15*, ONE+16, MUL+1~, MUL+12, MULS~, MULS+2, MULS+15*, MULS+16, MULQ+2*
, MULQ+3, X~, X+2, X+5*, X+12, CONT~, CONT+2, CONT+14*, CONT+15
Y ONE+2~, ONE+12, ONE+15, MUL~, MUL+2, MULS~, MULS+2, MULS+14, MULS+17, CONT~
, CONT+2, CONT+14
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Label References |  Local Variables  | All