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: LEXINF4

Package: Lexicon Utility

Routine: LEXINF4


Information

LEXINF4 ;ISL/KER - Information - Lookup ;05/23/2017

;;2.0;LEXICON UTILITY;**103**;Sep 23, 1996;Build 2

Source Information

Source file <LEXINF4.m>

Call Graph

Call Graph

Call Graph Total: 6

Package Total Call Graph
Kernel 2 $$DT^XLFDT  $$UP^XLFSTR  
Lexicon Utility 2 ^LEXA1  PR^LEXU  
VA FileMan 2 FIND^DIC  ^DIR  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

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

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Lexicon Utility 1 LEXINF  

Entry Points

Name Comments DBIA/ICR reference
CODELK(X) ; Lookup Code
CODEASK(X) ; Ask for Selection
CODE(X) ; Get Code
;
; Input
;
; None
;
; Output
;
; $$CODE 6 piece "^" delimited string
; 1 Code
; 2 Coding System
; 3 Expression
; 4 Pointer to CODES file 757.02
; 5 Pointer to CODING SYSTEM file 757.03
; 6 Pointer to EXPRESSIONS file 757.01
;
CODEP(X) ; Code Preprocessing
CODEM(X) ; Multiple Codes Found
OUT(X) ; Output Selection
TERM(X) ; Get Term
;
; Input
;
; X Date, optional, default is TODAY
;
; Output
;
; $$TERM 2 piece "^" delimited string
; 1 Pointer to Expression file #757.01
; 2 Expression
;
CODEO(X,LEX) ; One Code Found
DICW(X) ; DIC Write
PREOK(X) ; Preferred Term OK
DICS(X) ; DIC Screen
SABOK(X) ; Source OK
CODEMS(X) ; Select from Multiple Entries
CODEH ; Code Help
CODEMW ; Write Multiple
CONT(X,Y) ; Ask to Continue
COH ; Continue Help
TM(X,Y) ; Trim Character Y - Default " "
CODEMSH ; Select from Multiple Entries Help
CODEMQ ; Quit Multiple

External References

Name Field # of Occurrence
FIND^DIC CODELK+3
^DIR CODE+18, CODEO+8, CODEMS+12, CONT+13
^LEXA1 TERM+12
PR^LEXU CODELK+21, CODELK+26, CONT+8
$$DT^XLFDT TERM+12
$$UP^XLFSTR CONT+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,?5,"Enter a full or partial code from one of the following"
  • Line Location: CODEH+1
Function Call: WRITE
  • Prompt: !,?5,"coding systems:",!
  • Line Location: CODEH+2
Function Call: WRITE
  • Prompt: !,?10,"ICD ICD-9-CM 10D ICD-10-CM"
  • Line Location: CODEH+3
Function Call: WRITE
  • Prompt: !,?10,"ICP ICD-9 Proc 10P ICD-10-PCS"
  • Line Location: CODEH+4
Function Call: WRITE
  • Prompt: !,?10,"CPT CPT-4 CPC HCPCS"
  • Line Location: CODEH+5
Function Call: WRITE
  • Prompt: !,?10,"DS4 DSM-IV SCC TITLE 38"
  • Line Location: CODEH+6
Function Call: WRITE
  • Prompt: !,?10,"SCT SNOMED CT BIR BI-RADS"
  • Line Location: CODEH+7
Function Call: WRITE
  • Prompt: " ",$P(X,"^",2)," code ",$P(X,"^",1),!
  • Line Location: CODEASK(X)+5
Function Call: WRITE
  • Prompt: !
  • Line Location: CODEO(X,LEX)+7
Function Call: WRITE
  • Prompt: !
  • Line Location: CODEM(X)+3
Function Call: WRITE
  • Prompt: !," ",LEXX," matches found"
  • Condition for execution: +LEXX>1
  • Line Location: CODEM(X)+3
Function Call: WRITE
  • Prompt: !
  • Line Location: CODEM(X)+9
Function Call: WRITE
  • Prompt: !,LEXT
  • Line Location: CODEMW+3
Function Call: WRITE
  • Prompt: !,$G(LEXHLP)
  • Line Location: CODEMSH+1
Function Call: WRITE
  • Prompt: !
  • Line Location: CONT(X,Y)+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
  • DIC
  • Line Location:
    • CODELK+3
Routine Call
  • DIR
  • Line Location:
    • CODE+18
    • CODEO+8
    • CODEMS+12
    • CONT+13

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^LEX(757.02 - [#757.02] FIND^DIC

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^LEX(757.02 - [#757.02] CODEP+6, CODEP+7, CODEP+8, DICW+2, PREOK+1, SABOK+1
^LEX(757.03 - [#757.03] CODELK+13, CODELK+14, DICW+2, SABOK+1
^TMP("LEXINFLK" CODELK+1!, CODELK+4, CODELK+6, CODELK+7, CODELK+8, CODELK+9, CODELK+10, CODELK+11, CODELK+12, CODELK+15*
, CODELK+23*, CODELK+30, CODELK+31*, CODELK+33*, CODELK+35!
^TMP("LEXINFS" CODELK+4!, CODELK+16*, CODELK+17*, CODELK+18*, CODELK+19*, CODELK+20*, CODELK+24*, CODELK+32*, CODELK+34*, CODEASK+2
, CODEO+2, CODEO+3, CODEO+4, CODEM+2, CODEM+3, CODEM+4, CODEMW+1, CODEMW+2, CODEMS+4, CODEMS+5
, CODEMS+7, OUT+1, OUT+2, OUT+3, OUT+4

Label References

Name Line Occurrences
$$CODEASK CODELK+36
$$CODELK CODE+20
$$CODEM CODEASK+3
$$CODEMS CODEM+7, CODEM+9
$$CODEO CODEASK+3
$$OUT CODEO+11, CODEMS+19
$$PREOK DICS+1
$$SABOK DICS+1
CODEMQ CODEM+3, CODEM+10
CODEMW CODEM+5

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DIC TERM+12~, CODE+16~
DIC("S" TERM+12*
DIR CODE+16~, CODELK+1~, CODEO+1~, CODEMS+1~, CONT+1~
DIR("?" CODE+18*, CODEMS+11*, CONT+12*
DIR("??" CODE+18*, CODEMS+11*, CONT+12*
DIR("A" CODE+17*, CODEO+1*, CODEO+5*, CODEO+6*, CODEO+7*, CODEMS+6*, CODEMS+8*, CONT+9*, CONT+10*, CONT+11*
DIR("B" CODEO+7*, CONT+11*
DIR("PRE" CODE+17*, CODEMS+10*, CONT+13*
DIR(0 CODE+17*, CODEO+7*, CODEMS+12*, CONT+12*
DIRB CODEMS+1~
DIROUT CODE+16~, CODELK+1~, CODEASK+1~, CODEO+8, CODEO+9, CODEMS+15, CODEMS+17, CONT+1!, CONT+14
DIRUT CODE+16~, CODELK+1~, CODEASK+1~, CODEO+8, CODEO+9, CODEMS+15, CODEMS+17, CONT+1!, CONT+14
DTOUT CODE+16~, CODE+18, CODE+19, CODELK+1~, CODEASK+1~, CODEO+8, CODEO+9, CODEMS+13, CODEMS+14, CODEMS+15
, CODEMS+16, CONT+1!, CONT+14
DUOUT CODE+16~, CODELK+1~, CODEASK+1~, CODEO+8, CODEO+9, CODEMS+15, CODEMS+17, CONT+1!, CONT+14
LEX CODEO~
LEXA CODELK+5~, CODELK+21, CODELK+26
LEXA( CODELK+27, CODELK+28
LEXA(1 CODELK+7*, CODELK+22, CODELK+26!
LEXC CODEO+1~*, CODEO+4*, CODEO+5, CODEO+6*, OUT+1~, CONT+1~, CONT+8*, CONT+9*, CONT+10*
LEXCODE CODELK+5~, CODELK+9*, CODELK+17, CODELK+20, CODELK+21, CODELK+22, OUT+1~, OUT+3*, OUT+4
LEXCT CODELK+1~, CODELK+2*, CODELK+25*, CODELK+33, CODELK+34
LEXCTL CODEP+1~, CODEP+5*, CODEP+6
LEXEX CODELK+5~, CODELK+8*, CODELK+18, CODELK+20, OUT+2*, OUT+4
LEXEXP CODELK+5~, CODELK+7*, CODELK+18, CODELK+20, OUT+1~, OUT+2*, OUT+4
LEXFI CODEMS+1~
LEXFND OUT+1~*, OUT+2, OUT+3, OUT+5
LEXFQ CONT+1~, CONT+2*, CONT+4
LEXHLP CODEMS+1~, CODEMS+9*, CODEMSH+1
LEXI CODELK+1~, CODELK+4*, CODELK+6, CODELK+7, CODELK+8, CODELK+9, CODELK+10, CODELK+11, CODELK+12, CODELK+15
, CODELK+16, CODELK+17, CODELK+18, CODELK+19, CODELK+20, CODELK+23, CODELK+24, CODELK+30, CODELK+31, CODELK+32
, CODEO+1~, CODEO+2*, CODEO+3, CODEO+4, CODEM+1~, CODEM+3*, CODEM+4*, CODEM+5, CODEM+6, CODEM+7
, CODEM+8, CODEMW+1*, CODEMW+2, OUT+1~, OUT+4, CONT+1~, CONT+8*, CONT+9
LEXIDX CODELK+1~, CODELK+2*, CODELK+3
LEXINP CODEP+1~*, CODEP+2, CODEP+3, CODEP+5, CODEP+9
LEXIT CODEASK+1~, CODEASK+2*, CODEO+1, CODEO+8*, CODEO+9*, CODEO+10, CODEM+1, CODEM+2*, CODEM+4, CODEM+7
, CODEM+8, CODEMS+2, CODEMS+13*, CODEMS+15*, CODEMS+18
LEXL CODELK+27~*, CODELK+28, CODEASK+1~*, CODEASK+3, CODEM+1~, CODEM+2*, CODEM+5, CODEM+6, CODEM+7, CODEM+8
LEXLAST CODEM+1~, CODEM+2*, CODEM+8, CODEMS+1~, CODEMS+4*, CODEMS+13, CODEMS+14
>> LEXLEN CODELK+21*
LEXMAX CODEM+1~, CODEM+2*, CODEM+6*, CODEM+7, CODEM+8, CODEM+9, CODEMS+1~, CODEMS+3*, CODEMS+5, CODEMS+6
, CODEMS+7, CODEMS+8, CODEMS+9, CODEMS+12, CODEMS+13, CODEMS+14
LEXMSG CODELK+1~, CODELK+35!
LEXND CODEP+8~*
LEXNM CODEM+1~, CODEM+3*
LEXNOM CODELK+5~, CODELK+14*, CODELK+15, CODELK+19, CODELK+20, CODELK+21, CODELK+22, OUT+1~, OUT+3*, OUT+4
, DICW+1~, DICW+2*, DICW+3
LEXO CODEP+1~, CODEP+5*, CODEP+6*, CODEP+7
LEXOK CODEP+1~, CODEP+5*, CODEP+6, CODEP+8*, CODEP+9
LEXOUT OUT+1~, OUT+4*, OUT+5
LEXPRE PREOK+1~*
LEXS CODELK+28~, CODELK+30*, CODELK+31, CODELK+32, CODEO+1~, CODEO+2*, CODEO+3*, CODEO+4, CODEM+1~, CODEMW+1~*
, CODEMW+2, CODEMW+3, CODEMS+1~, OUT+1~
LEXSAB CODELK+5~, CODELK+11*, CODELK+13, SABOK+1*, SABOK+2
LEXSBS CODEP+1~, SABOK+1~, SABOK+2*
LEXSIEN CODEP+7~*, CODEP+8, CODELK+5~, CODELK+6*, CODELK+16, CODELK+20, DICW+1~, DICW+2*, DICS+1~*, PREOK+1~*
, SABOK+1~*
LEXSO CODELK+5~, CODELK+10*, OUT+2*, OUT+4
LEXSR CODELK+5~, CODELK+12*, CODELK+19, CODELK+20, OUT+3*, OUT+4
LEXSRC CODELK+5~, CODELK+13*, CODELK+14, DICW+1~, DICW+2*, SABOK+1~*
LEXSRS CODEP+1~, CODEP+4*, CODEP+8
LEXSS CODEM+1~, CODEM+3*, CODEM+4, CODEM+7*, CODEM+8, CODEM+9*, CODEMQ+1
LEXSTR CODELK+5~, CODELK+22*, CODELK+23, CODELK+24
LEXT CODELK+28~*, CODELK+29*, CODELK+31, CODELK+32, CODEO+4~*, CODEO+5, CODEMW+2~*, CODEMW+3*
LEXTAR CODELK+1~, CODELK+2*, CODELK+3, CODELK+35!
LEXTOT CODEASK+1~, CODEASK+2*, CODEASK+3
LEXVAL CODELK+1~, CODELK+2*, CODELK+3
LEXVDT TERM+12~*
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 CODEM+1~, CODEM+3*, CONT+1~, CONT+2*, CONT+3, CONT+7, COH+1, COH+3, COH+6
U CODEM+2*
X TERM~, TERM+12!, TERM+13*, TERM+14, CODE~, CODE+18, CODE+19, CODE+20*, CODE+21, CODEP~
, CODEP+1, CODEP+9*, CODEP+10, CODELK~, CODELK+2, CODELK+36*, CODELK+37, CODEASK~, CODEASK+1, CODEASK+3!*
, CODEASK+4, CODEASK+5*, CODEASK+6, CODEO~, CODEO+8, CODEO+10, CODEO+11*, CODEO+12, CODEM~, CODEM+2
, CODEM+11, CODEMS~, CODEMS+3, CODEMS+13, CODEMS+14, CODEMS+15, CODEMS+16, CODEMS+18, CODEMQ+1*, CODEMQ+2
, OUT~, OUT+1, OUT+5*, OUT+6, CONT~, CONT+2, CONT+14*, CONT+15, DICW~, DICW+3*
, DICW+4, DICS~, DICS+1, PREOK~, PREOK+1, SABOK~, SABOK+1, TM~, TM+1*, TM+2*
, TM+3*, TM+4
Y TERM+12~, TERM+13, CODE+20, CODEO+9, CODEO+10, CODEO+11, CODEM+1~, CODEMS+15, CODEMS+18, CODEMS+19
, CONT~, CONT+2, CONT+14, DICW+2, TM~, TM+1*, TM+2, TM+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