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

Package: Lexicon Utility

Routine: LEX10DL


Information

LEX10DL ;ISL/KER - ICD-10 Diagnosis Lookup ;04/21/2014

Source Information

Source file <LEX10DL.m>

Call Graph

Call Graph Total: 10

Package Total Call Graph
Kernel 3 HOME^%ZIS  ($$DT,$$FMADD,$$FMDIFF,$$FMTE,$$NOW)^XLFDT  $$UP^XLFSTR  
Lexicon Utility 3 $$DIAGSRCH^LEX10CS  ($$CONT,$$SEL)^LEX10DLS  ($$FREQ,$$MAX)^LEXU  
VA Fileman 3 ^DIM  $$GET1^DIQ  ^DIR  
DRG Grouper 1 ($$ICDDX,$$IMP)^ICDEX  

Entry Points

Name Comments DBIA/ICR reference
NXT ; Next
EN ; Main Entry Point
;
; Input
;
; None
;
; Output
;
; Y 2 Piece "^" delimited string
; 1 IEN to the Expression File 757.01
; 2 Expression Display Text
;
; Y("ICD") 2 Piece "^" delimited string
; 1 IEN to the ICD DIAGNOSIS File #80
; 2 ICD Code
;
LOOK ; Lookup
SOH ; Select a Code Help
BEG ; Begin Recursive Loop
ROK(X) ; Routine OK
RET(X,Y,LEXN,LEXC) ; Retrieve Defaults
SOP(X) ; Code Pre-Processing
ENV(X) ; Check environment
X ; Get user input
TAG(X) ; Sub-Routine OK
SO(X) ; Enter a Code/Code Fragment
SAV(X,Y,LEXN,LEXC,LEXV) ; Save Defaults

External References

Name Field # of Occurrence
HOME^%ZIS ENV+1
^DIM TAG+4
$$GET1^DIQ SAV+3, RET+4, ENV+2
^DIR SO+7
$$ICDDX^ICDEX LOOK+31
$$IMP^ICDEX EN+19
$$DIAGSRCH^LEX10CS LOOK+2
$$CONT^LEX10DLS X+3
$$SEL^LEX10DLS LOOK+14
$$FREQ^LEXU X+1
$$MAX^LEXU EN+18
$$DT^XLFDT EN+18, SO+2, SAV+3, RET+4, ENV+1
$$FMADD^XLFDT SAV+3, RET+4
$$FMDIFF^XLFDT LOOK+3, LOOK+4
$$FMTE^XLFDT LOOK+9, LOOK+10
$$NOW^XLFDT LOOK+1, LOOK+3
$$UP^XLFSTR SOP+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: X+3
Function Call: WRITE
  • Prompt: !
  • Line Location: LOOK+8
Function Call: WRITE
  • Prompt: !," Search for: ",LEXTXT
  • Line Location: LOOK+8
Function Call: WRITE
  • Prompt: !," Begin Search: ",$$FMTE^XLFDT(LEXBEG,"5Z")
  • Line Location: LOOK+9
Function Call: WRITE
  • Prompt: !," Finish Search: ",$$FMTE^XLFDT(LEXBEG,"5Z")
  • Line Location: LOOK+10
Function Call: WRITE
  • Prompt: !," Elapsed Time: ",LEXELP
  • Line Location: LOOK+11
Function Call: WRITE
  • Prompt: !
  • Line Location: LOOK+11
Function Call: WRITE
  • Prompt: !," No data found",!
  • Line Location: LOOK+13
Function Call: WRITE
  • Prompt: !!,?3,"Try later",!
  • Line Location: SO+8
Function Call: WRITE
  • Prompt: !!,?3,"No selection made",!
  • Line Location: SO+9
Function Call: WRITE
  • Prompt: !!,?3,"Selection aborted",!
  • Line Location: SO+11
Function Call: WRITE
  • Prompt: !," Enter either: "
  • Line Location: SOH+2
Function Call: WRITE
  • Prompt: !," Example"
  • Line Location: SOH+3
Function Call: WRITE
  • Prompt: !," ICD-10 Diagnosis code S62.131K"
  • Line Location: SOH+4
Function Call: WRITE
  • Prompt: !," Partial ICD-10 Diagnosis code S62.131"
  • Line Location: SOH+5
Function Call: WRITE
  • Prompt: !," ICD-10 Diagnosis sub-category S62.131"
  • Line Location: SOH+6
Function Call: WRITE
  • Prompt: !," ICD-10 Diagnosis category S62."
  • Line Location: SOH+7
Function Call: WRITE
  • Prompt: !," Partial ICD-10 Diagnosis category S6"
  • Line Location: SOH+8
Function Call: WRITE
  • Prompt: !," Diagnostic Text Diabetes Mellitus",!
  • Line Location: SOH+9
Function Call: WRITE
  • Prompt: !," Must have at least 2 characters. If a code is entered"
  • Line Location: SOH+10
Function Call: WRITE
  • Prompt: !," it may not exceed 7 characters. Enter return or ""^"" "
  • Line Location: SOH+11
Function Call: WRITE
  • Prompt: !," to exit, ""Space-Bar-Return"" to select previous"
  • Line Location: SOH+12
Function Call: WRITE
  • Prompt: !," search parameter.",!
  • Line Location: SOH+13
Function Call: WRITE
  • Prompt: " ",X
  • Line Location: SOP+4
Function Call: WRITE
  • Prompt: !!,?5,"DUZ not defined"
  • Line Location: ENV+1
Function Call: WRITE
  • Prompt: !!,?5,"DUZ not valid"
  • Line Location: ENV+2
Routine Call
  • %ZIS
  • Line Location:
    • ENV+1
Routine Call
  • DIR
  • Line Location:
    • SO+7

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^VA(200 - [#200] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^%ZOSF("TEST" ROK+1
^LEX(757.02 - [#757.02] SOP+10, SOP+19, SOP+20
^LEX(757.033 - [#757.033] SOP+21, SOP+22
^XTMP( SAV+4*, RET+5

Label References

Name Line Occurrences
$$ENV EN+16
$$RET SO+5
$$ROK SAV+1, RET+1
$$SO X+1
$$TAG SAV+1, RET+2
BEG X+4
LOOK LOOK+34, NXT+4
NXT LOOK+34
SAV SO+12
X X+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DIR SO+1~
DIR("?" SO+7*
DIR("??" SO+7*
DIR("A" SO+4*
DIR("B" SOP+2
DIR("PRE" SO+6*
DIR(0 SO+4*
DIRB SO+1~, SO+5*
DIROUT EN+17~, BEG+1~, LOOK+15, LOOK+16, LOOK+17, LOOK+20, LOOK+23, SO+1~, SO+10, SOP+5*
DIRUT EN+17~, X+2, SO+1~
DT ENV+1*
DTOUT EN+17~, BEG+1~, LOOK+16, LOOK+20, SO+1~, SO+8
DUOUT EN+17~, BEG+1~, LOOK+15, LOOK+23, LOOK+25, SO+1~, SO+10, SOP+5*, SOP+6*
DUZ SO+5, SO+12, ENV+1, ENV+2
LEX SO+1~, SO+12*, SOP+1~, SOP+2*, SOP+3, SOP+4*, SOP+5*, SOP+6*, SOP+7*, SOP+8
, SOP+12, SOP+13, SOP+14, SOP+15, SOP+16, SOP+17, SOP+18*, SOP+19, SOP+20, SOP+21
, SOP+22, SOP+24*, ENV+1~, ENV+2*
LEXB SOP+1~, SOP+2*, SOP+7
LEXBEG BEG+2~, LOOK+1*, LOOK+3, LOOK+4, LOOK+9, LOOK+10
LEXC SAV~, SAV+2, RET~, RET+3
LEXCODE LOOK+28~, LOOK+29*, LOOK+30, LOOK+31, LOOK+32
LEXCOM SO+1~, SO+3*, SO+4, SO+5, SO+12, SAV+1~, SAV+2*, SAV+4, RET+1~, RET+3*
LEXCONT EN+17~, EN+19*, X+2, X+3*
LEXDT EN+17~, EN+18*, EN+19*, BEG+4
LEXE TAG+1~, TAG+4*
LEXELP BEG+2~, LOOK+3*, LOOK+5*, LOOK+6*, LOOK+11
LEXEND BEG+2~, LOOK+3*, LOOK+4
LEXENV EN+16~*
LEXERR SO+1~, SOH+1, SOH+14!, SOP+12*, SOP+13*, SOP+15*, SOP+23*
LEXFD SAV+1~, SAV+3*, SAV+4, RET+1~, RET+4*
LEXFRQ EN+17~, X+1*, X+2, X+3
LEXICD LOOK+28~, LOOK+31*, LOOK+32
LEXID SAV+1~, SAV+3*, SAV+4, RET+1~, RET+4*, RET+5
LEXIEN LOOK+28~, LOOK+29*, LOOK+32
LEXIM EN+17~, EN+19*
LEXIT BEG+1~, BEG+4*, LOOK+1, LOOK+16*, LOOK+17*, LOOK+20*, LOOK+25*, LOOK+31*, LOOK+34, NXT+1
LEXKEY SAV+1~, SAV+2*, SAV+3, RET+1~, RET+3*, RET+4
LEXL TAG+1~, TAG+4*, TAG+5
LEXMAX EN+17~, EN+18*, X+2
LEXN SAV~, SAV+2, RET~, RET+2
LEXND NXT+1~, NXT+2*, NXT+3
LEXNM SAV+1~, SAV+3*, RET+1~, RET+4*
LEXNT LOOK+15, NXT+1~, NXT+2*
LEXO SOP+1~, SOP+17*, SOP+20, SOP+22
LEXOK SOP+1~, SOP+16*, SOP+19*, SOP+20*, SOP+21*, SOP+22*, SOP+23, SOP+24
LEXR SOP+1~, SOP+8*, SOP+12, SOP+13, SOP+15, SOP+23
LEXRTN SAV+1~*, SAV+3, RET+1~*, RET+2, RET+4
LEXSBR SO+1~, SO+5*, SOP+3, SOP+4
LEXSEC BEG+2~, LOOK+4*, LOOK+6
LEXSO SOP+1~*, SOP+9*, SOP+10*, SOP+11
LEXSTB SOP+1~, SOP+2*, SOP+9, SOP+10
LEXT TAG+1~, TAG+4*
LEXTAG SAV+1~*, SAV+4, RET+1~, RET+2*, RET+5
LEXTD SO+1~, SO+2*, SAV+1~, SAV+3*, SAV+4, RET+1~, RET+4*
LEXTERM LOOK+28~, LOOK+30*, LOOK+32
LEXTEST X+4~, LOOK+7
LEXTXT BEG+1~, BEG+3*, LOOK+2, LOOK+8, NXT+2, NXT+3~*
LEXUP BEG+1~, LOOK+23
LEXUSR SAV+1~, SAV+2*, SAV+3, RET+1~, RET+2*, RET+4
LEXV SAV~, SAV+2
LEXVAL SAV+1~, SAV+2*, SAV+4
LEXVDT EN+18, BEG+1~, BEG+4*, LOOK+2, NXT+2, NXT+3~*, SO+2
LEXX X+3~*, BEG+1~, LOOK+14*, LOOK+25, LOOK+27, LOOK+29, LOOK+30, NXT+2
LEXXX NXT+1~, NXT+2*, NXT+3
LEXY X+4!, BEG+1~, LOOK+1!, LOOK+2*, LOOK+12*, LOOK+13, LOOK+14
LEXY(" " LOOK+12
U BEG+3*, ENV+1*
X EN+17~, X+1*, X+3, X+4, BEG+3, LOOK+13!, LOOK+15!, LOOK+16!, LOOK+17!, LOOK+20!
, LOOK+23!, SO~, SO+9, SO+10*, SO+11, SO+12*, SO+13, SOP~, SOP+2*, SOP+3
, SOP+4*, SOP+5*, SOP+6*, SOP+7*, SOP+11, SOP+18*, SOP+24*, SOP+25, SAV~, SAV+1
, RET~, RET+1, RET+5*, RET+6, ROK~, ROK+1*, TAG~, TAG+1*, TAG+2, TAG+3
, TAG+4*, TAG+5*, TAG+6, ENV~
Y X+4!, BEG+3!*, LOOK+32*, SO+1~, SO+9, SO+12, SAV~, SAV+1, RET~, RET+2
Y("ICD" LOOK+32*
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All