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

Package: Lexicon Utility

Routine: LEX10PL


Information

LEX10PL ;ISL/KER - ICD-10 Procedure Lookup ;05/23/2017

Source Information

Source file <LEX10PL.m>

Call Graph

Call Graph

Call Graph Total: 12

Package Total Call Graph
Kernel 4 HOME^%ZIS  (ENDR,KILL)^%ZISS  ($$DT,$$FMADD)^XLFDT  $$UP^XLFSTR  
Lexicon Utility 4 $$PCSDIG^LEX10CS  $$SEL^LEX10PLS  $$STATCHK^LEXSRC2  PR^LEXU  
VA FileMan 3 ^DIM  $$GET1^DIQ  ^DIR  
DRG Grouper 1 ($$ICDOP,$$IMP)^ICDEX  

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 LEX10PLS  

Entry Points

Name Comments DBIA/ICR reference
SOP(X) ; Code Pre-Processing
CUR(X) ; Current Array
END(X,Y) ; End Search, display results
BEG ; Begin Recursive Loop
RET(X,Y,LEXN,LEXC) ; Retrieve Defaults
FND(X) ; Found
TOT(X,Y) ; Total Possible
ATTR ; Screen Attributes
SOH ; Select a Code Help
ROK(X) ; Routine OK
SAV(X,Y,LEXN,LEXC,LEXV) ; Save Defaults
SO(X) ; Enter a Code/Code Fragment
GETO(X) ; Get One
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 ICD OPERATION/PROCEDURE File #80.1
; 2 ICD Code
;
KATTR ; Kill Screen Attributes
X ; Get user input
NAM(X) ; Descriptive Dane
SN(X,EFF) ; Short Name
LOOK ; Lookup
GCUR(X,LEXA) ; Get Current Array
ENV(X) ; Check environment
TAG(X) ; Sub-Routine OK

External References

Name Field # of Occurrence
HOME^%ZIS ENV+1
ENDR^%ZISS ATTR+1
KILL^%ZISS KATTR+1
^DIM TAG+4
$$GET1^DIQ SAV+3, RET+4, ENV+2
^DIR SO+7
$$ICDOP^ICDEX LOOK+31
$$IMP^ICDEX X+3, NAM+2, SN+2
$$PCSDIG^LEX10CS LOOK+2, TOT+2
$$SEL^LEX10PLS LOOK+4
$$STATCHK^LEXSRC2 LOOK+24
PR^LEXU END+2
$$DT^XLFDT X+2, SO+2, SAV+3, RET+4, SN+2, ENV+1
$$FMADD^XLFDT SAV+3, RET+4
$$UP^XLFSTR SOP+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: X+4
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 Procedure code 04LE0CT"
  • Line Location: SOH+4
Function Call: WRITE
  • Prompt: !," Partial ICD-10 Procedure code 00C6",!
  • Line Location: SOH+5
Function Call: WRITE
  • Prompt: !," May not exceed 7 characters. Enter return or ""^"""
  • Line Location: SOH+6
Function Call: WRITE
  • Prompt: !," to exit."
  • Line Location: SOH+7
Function Call: WRITE
  • Prompt: !,?2,$G(LEXTERM(LEXI))
  • Line Location: END+5
Function Call: WRITE
  • Prompt: !
  • Line Location: END+6
Function Call: WRITE
  • Prompt: !,$G(BOLD),$G(LEXC),$G(NORM),!," ",$G(LEXS)
  • Line Location: END+6
Function Call: WRITE
  • Prompt: !," ",$G(LEXC(LEXI))
  • Line Location: END+7
Function Call: WRITE
  • Prompt: !!
  • Line Location: END+8
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: $L($G(IOF))
  • Line Location: CUR+3
Function Call: WRITE
  • Prompt: !,$G(BOLD),$G(LEXC),$G(NORM),!,$G(LEXS)
  • Line Location: CUR+3
Function Call: WRITE
  • Prompt: !,$G(LEXC(LEXI))
  • Line Location: CUR+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.01 - [#757.01] LOOK+30
^LEX(757.02 - [#757.02] LOOK+28, SOP+7, SOP+12, SOP+17, SOP+23, SOP+28, SOP+33, SOP+38
^LEX(757.033 - [#757.033] GCUR+2, NAM+1, NAM+3, NAM+4, SN+3, SN+4, SN+5
^XTMP( SAV+4*, RET+5

Label References

Name Line Occurrences
$$ENV EN+16
$$FND LOOK+2, TOT+2
$$NAM GCUR+4
$$RET SO+5
$$ROK SAV+1, RET+1
$$SN NAM+5
$$SO X+3
$$TAG SAV+1, RET+2
$$TOT LOOK+38
ATTR END+6, CUR+3, GCUR+1
BEG X+4
END LOOK+33
GCUR END+2, CUR+1
KATTR END+6, CUR+3, GCUR+9
LOOK LOOK+13, LOOK+35, NXT+4
NXT LOOK+36
SAV SO+9
X X+4

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
BOLD EN+17~, END+6, CUR+3, GCUR+6, ATTR+1*, KATTR+1!
CDT SN+1~*, SN+2*, SN+3
DIR EN+17~, SO+1~
DIR("?" SO+7*
DIR("??" SO+7*
DIR("A" SO+4*
DIR("PRE" SO+6*
DIR(0 SO+4*
DIRB EN+17~, SO+1~, SO+5*
DIROUT EN+17~, X+1!, X+4, BEG+1!, LOOK+8, LOOK+11, LOOK+13, LOOK+16, LOOK+17, SO+1~
, SO+8, SOP+3*
DIRUT EN+17~, X+1!, BEG+1!, LOOK+11, LOOK+13, LOOK+16, SO+1~
DT ENV+1*
DTOUT EN+17~, X+1!, BEG+1!, LOOK+8, SO+1~, SO+8
DUOUT EN+17~, X+1!, X+4, BEG+1!, LOOK+11, LOOK+13, LOOK+16, LOOK+17, LOOK+19, SO+1~
, SO+8, SOP+3*, SOP+4*
DUZ SO+5, SO+9, ENV+1, ENV+2
EFF SN~, SN+1~, SN+3*, SN+4
HIS SN+1~, SN+4*, SN+5
IEN SN+1~*, SN+3, SN+4, SN+5
IMP SN+1~, SN+2*
IOF END+4, CUR+3
IOINHI EN+17~, ATTR+1~
IOINORM EN+17~, ATTR+1~
LEX EN+17~, SO+1~, SO+9*, SOP+1~, SOP+2*, SOP+3*, SOP+4*, SOP+5, SOP+6, SOP+7
, SOP+9, SOP+10, SOP+11, SOP+14, SOP+15, SOP+16, SOP+21, SOP+22, SOP+26, SOP+27
, SOP+31, SOP+32, SOP+36, SOP+37, SOP+41, ENV+1~, ENV+2*
LEXA EN+18~, GCUR~, GCUR+1!, GCUR+3*, GCUR+10!
LEXA( GCUR+8*
LEXB EN+18~, SOP+1~
LEXBEG BEG+2~
LEXC EN+18~, SOP+7*, SOP+9, SOP+11*, SOP+14, SOP+16*, SOP+20, SOP+22*, SOP+25, SOP+27*
, SOP+30, SOP+32*, SOP+35, SOP+37*, SOP+40, SAV~, SAV+2, RET~, RET+3, END+1~
, END+2, END+3*, END+6, CUR+1~!*, CUR+2*, CUR+3
LEXC( END+7, CUR+4
LEXC(0 CUR+1
LEXCHR EN+18~, LOOK+4*, LOOK+5*, LOOK+12*, LOOK+19, LOOK+21, LOOK+22, LOOK+35, GCUR+4~*, GCUR+5
, GCUR+6
LEXCODE EN+18~, LOOK+23~, LOOK+29*, LOOK+31, LOOK+32, LOOK+33, END+1~*, END+2
LEXCOM EN+18~, SO+1~, SO+3*, SO+4, SO+5, SO+9, SAV+1~, SAV+2*, SAV+4, RET+1~
, RET+3*
LEXDT EN+16~, EN+18~, X+2*, X+3*, BEG+4, LOOK+2, LOOK+24, LOOK+38, NXT+2, NXT+3~*
, TOT+1~*, TOT+2, NAM+1~, NAM+2*, NAM+3
LEXE EN+18~, TAG+1~, TAG+4*
LEXEFF EN+18~, LOOK+23~, LOOK+26*, NAM+1~, NAM+3*, NAM+4
LEXELP BEG+2~
LEXEND BEG+2~
LEXENV EN+16~*, EN+19~
LEXERR EN+19~, SO+1~, SOH+1, SOH+8!, SOP+1!, SOP+5*, SOP+6*, SOP+8*, SOP+9*, SOP+13*
, SOP+14*, SOP+18*, SOP+19*, SOP+20*, SOP+24*, SOP+25*, SOP+29*, SOP+30*, SOP+34*, SOP+35*
, SOP+39*, SOP+40*
LEXFD EN+19~, SAV+1~, SAV+3*, SAV+4, RET+1~, RET+4*
LEXI EN+19~, END+1~, END+4*, END+5, END+7*, CUR+1~, CUR+2~, CUR+4*, FND+1~*
LEXICD EN+19~, LOOK+23~, LOOK+31*, LOOK+32
LEXID EN+19~, SAV+1~, SAV+3*, SAV+4, RET+1~, RET+4*, RET+5
LEXIEN EN+19~, LOOK+23~, LOOK+29*, LOOK+30, LOOK+32, NAM+1~, NAM+4*, NAM+5
LEXIM EN+16~, EN+19~, X+3*
LEXIN EN+19~, GCUR+1~, GCUR+2*, GCUR+3, GCUR+4, NAM+1~*, NAM+3, NAM+4
LEXIT EN+20~, BEG+1~, BEG+4*, LOOK+1, LOOK+8*, LOOK+12*, LOOK+13, LOOK+14*, LOOK+16*, LOOK+19*
, LOOK+31*, LOOK+35, NXT+1
LEXKEY EN+20~, SAV+1~, SAV+2*, SAV+3, RET+1~, RET+3*, RET+4
LEXL EN+20~, TAG+1~, TAG+4*, TAG+5
LEXN EN+20~, SOP+7*, SOP+9, SOP+12*, SOP+14, SOP+17*, SOP+20, SOP+23*, SOP+25, SOP+28*
, SOP+30, SOP+33*, SOP+35, SOP+38*, SOP+40, SAV~, SAV+2, RET~, RET+2
LEXNAM EN+20~, GCUR+4~*, GCUR+5, GCUR+7
LEXND EN+20~, LOOK+23~, LOOK+28*, LOOK+29, NXT+1~, NXT+2*, NXT+3
LEXNM EN+20~, SAV+1~, SAV+3*, RET+1~, RET+4*
LEXNT EN+20~, LOOK+12!, LOOK+15*, LOOK+17, NXT+1~, NXT+2*, NXT+3
LEXO EN+20~, SOP+1~, SOP+7*, SOP+11*, SOP+12, SOP+16*, SOP+17, SOP+22*, SOP+23, SOP+27*
, SOP+28, SOP+32*, SOP+33, SOP+37*, SOP+38
LEXOFF EN+21~, GCUR+1~, GCUR+2*, GCUR+7
LEXOK EN+21~, SOP+1~, GCUR+1~, GCUR+3*, GCUR+5*, GCUR+10
LEXPCDAT EN+21~, TOT+1~
LEXPCDAT("NEXLEV" LOOK+4, FND+1, GETO+1
LEXPSN EN+21~, GCUR+1~, GCUR+3*, GCUR+4, GCUR+6, GCUR+7, GCUR+8
LEXR EN+21~, SOP+1~, SOP+7*, SOP+8, SOP+11*, SOP+13, SOP+14, SOP+16*, SOP+18, SOP+19
, SOP+20, SOP+22*, SOP+24, SOP+25, SOP+27*, SOP+29, SOP+30, SOP+32*, SOP+34, SOP+35
, SOP+37*, SOP+39, SOP+40
LEXRTN EN+21~, SAV+1~*, SAV+3, RET+1~*, RET+2, RET+4
LEXS EN+21~, END+1~, END+3*, END+6, CUR+1~, CUR+2~*, CUR+3
LEXSBR EN+21~, SO+1~, SO+5*
LEXSEC EN+22~, BEG+2~, GCUR+4~*, GCUR+5
LEXSIEN EN+22~, LOOK+23~, LOOK+25*, LOOK+28
LEXSTA EN+22~, LOOK+23~, LOOK+24*, LOOK+25, LOOK+26, LOOK+27*
LEXT EN+22~, TAG+1~, TAG+4*
LEXTAG EN+22~, SAV+1~*, SAV+4, RET+1~, RET+2*, RET+5
LEXTD EN+22~, SO+1~, SO+2*, SAV+1~, SAV+3*, SAV+4, RET+1~, RET+4*
LEXTERM EN+22~, LOOK+23~, LOOK+30*, LOOK+32, LOOK+33, END+1~, END+2
LEXTERM( END+4, END+5
LEXTERM(1 END+1*
LEXTEST X+5~
LEXTOT EN+22~, LOOK+2*
LEXTXT EN+23~, BEG+1~, BEG+3*, LOOK+2, LOOK+3, LOOK+4, LOOK+11, LOOK+12*, LOOK+14*, LOOK+16*
, LOOK+22*, LOOK+24, LOOK+37*, LOOK+38*, NXT+2, NXT+3~*, GCUR+4~, GCUR+6*, GCUR+7*, GCUR+8
LEXUP EN+23~, BEG+1~, LOOK+3*, LOOK+12!, LOOK+13, LOOK+14, LOOK+16
LEXUSR EN+23~, SAV+1~, SAV+2*, SAV+3, RET+1~, RET+2*, RET+4
LEXV EN+23~, SAV~, SAV+2
LEXVAL EN+23~, SAV+1~, SAV+2*, SAV+4
LEXVDT EN+23~, X+2, BEG+1~, BEG+4*, SO+2, NAM+2, SN+1
LEXX EN+23~, BEG+1~
LEXY EN+23~, X+4!, BEG+1~, LOOK+1!, LOOK+2*, TOT+1~, TOT+2*
NORM EN+23~, END+6, CUR+3, GCUR+6, ATTR+1*, KATTR+1!
U BEG+3*, ENV+1*
X EN+16~, EN+23~, X+3*, X+4, BEG+3, LOOK+8!, LOOK+12!*, LOOK+14!*, LOOK+16!, LOOK+17!
, TOT~, TOT+1*, TOT+2*, TOT+3, SO~, SO+8, SO+9*, SO+10, SOP~, SOP+1
, SOP+2*, SOP+3*, SOP+4*, SOP+10*, SOP+15*, SOP+20, SOP+21*, SOP+25, SOP+26*, SOP+30
, SOP+31*, SOP+35, SOP+36*, SOP+40, SOP+41*, SOP+42, 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, END~, END+1, CUR~, CUR+1, GCUR~, GCUR+2, NAM~, NAM+1, NAM+5*
, NAM+6, SN~, SN+1, SN+5*, SN+6, FND~, FND+1*, FND+2, GETO~, GETO+1*
, GETO+2, ATTR+1~*, ENV~
Y X+4!, BEG+3!*, LOOK+21, LOOK+22!, LOOK+32*, LOOK+36, TOT~, TOT+1, SO+1~, SO+8
, SO+9, SAV~, SAV+1, RET~, RET+2, END~, END+1
Y("ICD" LOOK+32*
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