Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: LEX10DL

Package: Lexicon Utility

Routine: LEX10DL


Information

LEX10DL ;ISL/KER - ICD-10 Diagnosis Lookup ;12/19/2014

Source Information

Source file <LEX10DL.m>

Entry Points

Name Comments DBIA/ICR reference
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
;
X ; Get user input
BEG ; Begin Recursive Loop
LOOK ; Lookup
NXT ; Next
SO(X) ; Enter a Code/Code Fragment
SOH ; Select a Code Help
SOP(X) ; Code Pre-Processing
SAV(X,Y,LEXN,LEXC,LEXV) ; Save Defaults
RET(X,Y,LEXN,LEXC) ; Retrieve Defaults
ROK(X) ; Routine OK
TAG(X) ; Sub-Routine OK
ENV(X) ; Check environment

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: X+4
Function Call: WRITE
  • Prompt: !
  • Line Location: X+5
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: !," 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

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^VA(200 - [#200] GET1^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call