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

Package: Lexicon Utility

Routine: LEX10TAX


Information

LEX10TAX ;ISL/KER - Post ICD-10 Taxonomy Look-up ;04/21/2014

Source Information

Source file <LEX10TAX.m>

Call Graph

Call Graph Total: 7

Package Total Call Graph
Lexicon Utility 4 LOOK^LEXA  CONFIG^LEXSET  $$STATCHK^LEXSRC2  ($$ONE,$$PERIOD)^LEXU  
Kernel 2 ($$DT,$$FMTE)^XLFDT  $$UP^XLFSTR  
VA Fileman 1 ^DIWP  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Lexicon Utility 1 LEX10CS  

Entry Points

Name Comments DBIA/ICR reference
SCT(LEX,LEXVDT) ; Filter by SNOMED CT (SCT) (Human only)
;
; Input
;
; LEX IEN of file 757.01
; LEXVDT Date to use for screening by codes
PR(LEX,X) ; Parse Array
VET(X) ; Veterinary Term - 1 = Yes
LBT ; Looup by Text
ES(X,Y) ; Expression to Code
CS(X) ; Coding System
LBC ; Lookup by Code
IS(X) ; Is a Code
REO ; Reorder Array
TAX(X,LEXSRC,LEXDT,LEXSUB,LEXVER) ; Get Taxonomy Information
SRC(X) ; Re-Create Source String
EXP ; Show ^TMP global (expanded display)
ED(X) ; Exernal Date
TM(X,Y) ; Trim Character Y - Default " "
SHO ; Show ^TMP global

External References

Name Field # of Occurrence
^DIWP PR+3
LOOK^LEXA LBT+6
CONFIG^LEXSET LBT+3
$$STATCHK^LEXSRC2 ES+9
$$ONE^LEXU SCT+13
$$PERIOD^LEXU ES+10
$$DT^XLFDT TAX+55, ES+1, EXP+2
$$FMTE^XLFDT ED+2
$$UP^XLFSTR TAX+54, SCT+16, VET+5

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,LEXNN,"=",LEXND
  • Line Location: SHO+4
Function Call: WRITE
  • Prompt: !,?3,LEXSNM," Code: ",LEXN2
  • Line Location: EXP+6
Function Call: WRITE
  • Prompt: !,?5,"Active: ",$$ED(LEXAC)
  • Line Location: EXP+14
Function Call: WRITE
  • Prompt: " (Pending)"
  • Condition for execution: LEXAC>LEXTD
  • Line Location: EXP+14
Function Call: WRITE
  • Prompt: ?36,"Inactive: ",$$ED(LEXIN)
  • Line Location: EXP+15
Function Call: WRITE
  • Prompt: " (Pending)"
  • Condition for execution: LEXIN>LEXTD
  • Line Location: EXP+15
Function Call: WRITE
  • Prompt: !,?5," IEN: ",LEXIE
  • Line Location: EXP+19
Function Call: WRITE
  • Prompt: ?36,$G(LEXA(1))
  • Condition for execution: $L($G(LEXA(1)))
  • Line Location: EXP+19

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)
^LEX(757.01 - [#757.01] LBC+8, SCT+14, VET+2
^LEX(757.02 - [#757.02] LBC+2, LBC+4, LBC+5, ES+2, ES+4, IS+2, IS+3
^LEX(757.03 - [#757.03] ES+7, CS+2, CS+3, CS+4, CS+5, EXP+3, EXP+4
^LEX(757.1 - [#757.1] SCT+14, SCT+15, SCT+16, VET+2, VET+3, VET+4
^LEX(757.12 - [#757.12] SCT+16, VET+5
^LEX(757.21 - [#757.21] SCT+17, SCT+18
^LEXT(757.2 - [#757.2] SCT+18
^TMP( TAX+60, LBC+10, ES+10, ES+14, ES+15*, ES+16*, ES+17*, REO+1, REO+2, REO+3
, REO+5*, REO+6!, EXP+2, EXP+5, EXP+7, EXP+9, EXP+10, EXP+16
^TMP("LEXFND" LBT+1!, LBT+8, LBT+9, LBT+11!
^TMP("LEXHIT" LBT+1!, LBT+11!
^TMP("LEXSCH" LBT+1!, LBT+4*, LBT+5*, LBT+11!
^UTILITY($J PR+1!, PR+4, PR+5, PR+6!

Label References

Name Line Occurrences
$$CS SRC+4
$$ED EXP+14, EXP+15
$$IS TAX+59
$$SCT ES+6
$$SRC TAX+57
$$TM SRC+5, PR+5
ES LBC+9, LBT+7, LBT+10
LBC TAX+59
LBT TAX+59, LBC+10
PR EXP+18
REO LBC+10, LBT+11

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DIC LBT+2~*
DIW PR+1~
DIWF PR+1~, PR+3*
DIWI PR+1~
DIWL PR+1~, PR+3*
DIWR PR+1~
DIWT PR+1~
DIWTC PR+1~
DIWX PR+1~
DN PR+1~
LEX TAX+54~, LBT+1!, LBT+11!, ES+3~, ES+10, SCT~, SCT+12, PR~, PR+1, PR+2
, PR+4!, PR+6*
LEX( ES+11, ES+12, PR+3, PR+5*
LEX(" " PR+2
LEX("LIST" LBT+7
LEX0 EXP+8~, EXP+10*, EXP+16*, EXP+17, EXP+18
LEX10SUB TAX+54~, TAX+58*, TAX+60, LBC+10, ES+10, ES+14, ES+15, ES+16, ES+17, REO+1
, REO+2, REO+3, REO+5, REO+6
LEXA EXP+8~, EXP+18
LEXA( EXP+20
LEXA(1 EXP+18*, EXP+19
LEXAC EXP+8~, EXP+11*, EXP+14
LEXC SCT+12~, SCT+13*, SCT+14, VET+1~, PR+1~, PR+2*, PR+4*, PR+5*, PR+6
LEXCD LBC+5~, LBC+6*, LBC+9, ES+3~, ES+4*, ES+7, ES+9, ES+10, ES+14, ES+16
, ES+17, REO+2~*, REO+3, EXP+8~, EXP+17*
LEXCO ES+3~
LEXCT ES+3~, ES+11*, ES+13*, ES+16, ES+17
LEXCTL LBC+1~*, LBC+2, LBC+9, LBT+10!
LEXD SCT+12~*, SCT+13, VET+1~
LEXDD ES+12~*, ES+13, ES+17
LEXDT TAX~, TAX+55*, TAX+56, ES+1~*, ES+6
LEXEF ES+3~, ES+11*, ES+12, ES+16
LEXEX SCT+12~*, SCT+13, SCT+14, SCT+17, VET+1~*, VET+2
LEXFIL ES+3~, ES+6*
LEXFQ LBT+2~, LBT+8*, LBT+9
LEXHI ES+3~
LEXI REO+3~, REO+5*, SRC+1~, SRC+2*, SRC+3, SCT+12~, SCT+15*, SCT+16, SCT+17*, SCT+18
, EXP+8~, EXP+20*, VET+1~, VET+3*, VET+4, PR+1~, PR+3*, PR+4*, PR+5
LEXIE EXP+8~, EXP+12*, EXP+19
LEXIEN LBC+5~*, LBC+8, LBC+9, LBT+2~, LBT+7*, LBT+9*, LBT+10, ES+1~*, ES+2, ES+6
LEXIN CS+1~*, CS+2, CS+3, CS+4, CS+5, EXP+8~, EXP+11*, EXP+15
LEXIS TAX+54~, TAX+59*
LEXKEY REO+1~*, REO+2, REO+3
LEXLEN PR+1~, PR+2*, PR+3
LEXMC SCT+12~, SCT+14*, SCT+15, VET+1~, VET+2*, VET+3
LEXN SRC+1~*, SRC+4*, SRC+5, SCT+16~*, SCT+18~*, EXP+8~, EXP+9*, EXP+11, EXP+12, EXP+13
, VET+4~, VET+5*, VET+6
LEXN1 EXP+1~, EXP+2*, EXP+3, EXP+4, EXP+5, EXP+7, EXP+9, EXP+10, EXP+16
LEXN2 EXP+1~, EXP+5*, EXP+6, EXP+7, EXP+9, EXP+10, EXP+16
LEXN3 EXP+1~, EXP+7*, EXP+9, EXP+10, EXP+16
LEXNC SHO+1~, SHO+2*, SHO+3, EXP+1~
LEXND LBC+5~*, LBC+6, ES+3~, ES+4*, ES+12~*, ES+13, ES+16, REO+3~*, REO+4, REO+5
, SHO+4~*
LEXNM ES+3~, EXP+8~, EXP+18*
LEXNN SHO+1~, SHO+2*, SHO+3*, SHO+4, EXP+1~
LEXO SCT+12~, SCT+19*, SCT+20, VET+1~, VET+3*, VET+6*, VET+7
LEXORD LBC+1~*, LBC+2*, LBC+4
LEXPF LBC+5~, LBC+6*, LBC+9
LEXPL SCT+12~, SCT+17*, SCT+18*, SCT+19
LEXS SHO+1~*, SHO+2, EXP+1~*, EXP+2, EXP+5, EXP+7, EXP+9, EXP+10, EXP+16
LEXSAB LBT+2~
LEXSB ES+3~, REO+3~, REO+4*, SRC+3~*, SRC+4
LEXSIEN LBC+3~*, LBC+4*, LBC+5, ES+1~, ES+2*, ES+4
LEXSN EXP+8~, EXP+13*
LEXSNM EXP+3~, EXP+4*, EXP+6
LEXSR LBC+5~, LBC+6*, LBC+7, ES+3~, ES+4*, ES+5, ES+6, ES+7, ES+9, ES+10
, ES+14, ES+16, ES+17, REO+4*, REO+5, SRC+3~, SRC+4*
LEXSRC TAX~, TAX+57*, LBC+7, ES+5
LEXST ES+3~, ES+9~*
LEXSUB TAX~, TAX+58, SHO+1, EXP+1
LEXT SCT+16~*, SCT+18~*, VET+4~*, VET+5
LEXTD EXP+1~, EXP+2*, EXP+14, EXP+15
LEXTMP LBT+2~*, LBT+6, LBT+7
LEXTY LBC+5~, LBC+8*, LBC+9
LEXV ES+3~, ES+4*, ES+8, ES+9*
LEXVDT TAX+54~, TAX+55*, TAX+56*, LBC+9, LBT+2, LBT+6!*, ES+8, ES+9, SCT~, SCT+12
LEXVER TAX~, TAX+59*, ES+8
LEXVP EXP+8~, EXP+12*
LEXVT SCT+12~, SCT+15*, SCT+16*, SCT+19
LEXX TAX+54~*, TAX+59, LBC+1, LBT+6, SRC+1~*, SRC+2, SRC+3
X TAX~, TAX+54, TAX+60*, TAX+61, ES~, ES+1, ES+3~, ES+10*, IS~, IS+1*
, IS+2, IS+3, SRC~, SRC+1, SRC+5*, SRC+6, CS~, CS+1, SCT+20*, SCT+21
, ED~, ED+1*, ED+2*, ED+3, VET~, VET+1, VET+7*, VET+8, PR~, PR+2
, PR+3*, TM~, TM+1*, TM+2*, TM+3*, TM+4
Y ES~, ES+1, 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