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 |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
Print Page as PDF
Routine: LEX10PR

Package: Lexicon Utility

Routine: LEX10PR


Information

LEX10PR ;ISL/KER - ICD-10 Procedure Code ;04/21/2014

Source Information

Source file <LEX10PR.m>

Call Graph

Call Graph Total: 4

Package Total Call Graph
DRG Grouper 1 $$IMP^ICDEX  
Kernel 1 ($$DT,$$FMTE)^XLFDT  
Lexicon Utility 1 $$IMPDATE^LEXU  
VA Fileman 1 ^DIWP  

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Lexicon Utility 2 LEX10CS  LEXU4  

Entry Points

Name Comments DBIA/ICR reference
FIN(X,LEXVDT,ARY) ; Fragment Info
PR(LEX,X) ; Parse Array
IS(X) ; Is a Root Code
NEXT(LEXC,LEXA,LEXD) ; Next Allowable Character
TM(X,Y) ; Trim Character Y - Default " "
NAM(X) ; Name
INF(X) ;
SN(X,EFF) ; Short Name

External References

Name Field # of Occurrence
^DIWP PR+5
$$IMP^ICDEX SN+2, INF+2
$$IMPDATE^LEXU FIN+36
$$DT^XLFDT NEXT+15, SN+2, FIN+36, INF+2
$$FMTE^XLFDT FIN+42

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !," Status:",?C1,STA,?C2,"Effective: ",EFF
  • Line Location: INF+9
Function Call: WRITE
  • Prompt: !!," Title:",?C1,$G(TXT(1))
  • Line Location: INF+13
Function Call: WRITE
  • Prompt: !,?C1,$G(TXT(I))
  • Line Location: INF+14
Function Call: WRITE
  • Prompt: !!," Definition:",?C1,$G(TXT(1))
  • Line Location: INF+18
Function Call: WRITE
  • Prompt: !,?C1,$G(TXT(I))
  • Line Location: INF+19
Function Call: WRITE
  • Prompt: !!," Explanation:",?C1,$G(TXT(1))
  • Line Location: INF+23
Function Call: WRITE
  • Prompt: !,?C1,$G(TXT(I))
  • Line Location: INF+24
Function Call: WRITE
  • Prompt: !!," Include(s):"
  • Condition for execution: INC=1
  • Line Location: INF+28
Function Call: WRITE
  • Prompt: !
  • Condition for execution: INC>1
  • Line Location: INF+28
Function Call: WRITE
  • Prompt: ?C1,$G(INT(1))
  • Line Location: INF+28
Function Call: WRITE
  • Prompt: !,?C1,$G(INT(I))
  • Line Location: INF+29

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^LEX(757.02 - [#757.02] IS+3
^LEX(757.033 - [#757.033] NAM+2, NAM+3, SN+3, SN+4, SN+5, FIN+34, FIN+38, FIN+39, FIN+40, FIN+44
, FIN+45, FIN+46, FIN+49, FIN+50, FIN+51, FIN+54, FIN+55, FIN+56, FIN+59, FIN+60
, FIN+61, FIN+62, INF+3
^UTILITY($J PR+2!, PR+7, PR+8, PR+9!

Label References

Name Line Occurrences
$$FIN INF+4
$$IS NEXT+32
$$NAM NEXT+34, NEXT+38, NEXT+41
$$SN NAM+4
$$TM NEXT+14, NEXT+28, FIN+62, PR+8
PR INF+12, INF+17, INF+22, INF+26

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ARY FIN~, FIN+32!, INF+1~!, INF+4!
ARY(0 FIN+40*, FIN+41*
ARY(1 FIN+42*, FIN+43*, INF+7
ARY(2 FIN+47*, FIN+48*, INF+10
ARY(3 FIN+52*, FIN+53*, INF+15
ARY(4 FIN+57*, FIN+58*, INF+20
ARY(5 FIN+63*, INF+25, INF+26
C1 INF+1~*, INF+5, INF+9, INF+12, INF+13, INF+14, INF+17, INF+18, INF+19, INF+22
, INF+23, INF+24, INF+26, INF+28, INF+29
C2 INF+1~*, INF+6, INF+9
CDT SN+1~*, SN+2*, SN+3, FIN+32~, FIN+36*, FIN+37*, FIN+38, FIN+44, FIN+49, FIN+54
, FIN+59, INF+1~, INF+2*, INF+4*
DIW PR+1~
DIWF PR+1~, PR+4*
DIWI PR+1~
DIWL PR+1~, PR+4*
DIWR PR+1~
DIWT PR+1~
DIWTC PR+1~
DIWX PR+1~
DN PR+1~
EFF SN~, SN+1~, SN+3*, SN+4, FIN+32~, FIN+38*, FIN+39, FIN+44*, FIN+45, FIN+49*
, FIN+50, FIN+54*, FIN+55, FIN+59*, FIN+60, INF+7*, INF+8, INF+9
ENT FIN+32~, FIN+35*
FRAG INF+1~, INF+2*, INF+3, INF+5, INF+6
FRG FIN+32~, FIN+35*
HIS SN+1~, SN+4*, SN+5
I INF+12~, INF+14*, INF+17~, INF+19*, INF+22~, INF+24*, INF+29*
IEN SN+1~*, SN+3, SN+4, SN+5, FIN+32~, FIN+33*, FIN+34, FIN+38, FIN+39, FIN+40
, FIN+44, FIN+45, FIN+46, FIN+49, FIN+50, FIN+51, FIN+54, FIN+55, FIN+56, FIN+59
, FIN+60, FIN+61, FIN+62, INF+1~, INF+3*, INF+4
IMP SN+1~, SN+2*, FIN+32~, FIN+36*, FIN+37, INF+1~, INF+2*, INF+4
INC INF+25~*, INF+27*, INF+28
INI INF+25~*, INF+26
INT INF+26~
INT( INF+29
INT(1 INF+26*, INF+27, INF+28
LEX PR~, PR+2, PR+3, PR+6!, PR+9*
LEX( PR+5, PR+8*
LEX(" " PR+3
LEX1 NEXT+13~, NEXT+27~, NEXT+40*, NEXT+41
LEX2 NEXT+13~, NEXT+27~
LEXA NEXT~
LEXA( NEXT+33, NEXT+35*, NEXT+38*, NEXT+42*
LEXC NEXT~, NEXT+14*, NEXT+15, NEXT+27~, NEXT+28*, NEXT+30, NEXT+31, NEXT+36, NAM+1~*, NAM+2
, NAM+3, IS+1~*, IS+2, IS+3, IS+4, PR+1~, PR+3*, PR+6*, PR+8*, PR+9
LEXCDT NEXT+13~, NEXT+15*, NEXT+29, NAM+2
LEXCHK NEXT+13~, NEXT+21*, NEXT+22, NEXT+30, NEXT+31, NEXT+36
LEXCHR NEXT+13~, NEXT+31~*, NEXT+32, NEXT+33, NEXT+34, NEXT+35
LEXCIEN NAM+1~, NAM+3*, NAM+4
LEXCT NEXT+13~, NEXT+25*, NEXT+35*, NEXT+43
LEXD NEXT~, NEXT+15, NEXT+27~, NEXT+29*
LEXE NEXT+13~, NEXT+27~
LEXEFF NAM+1~, NAM+2*, NAM+3
LEXFUL NEXT+31~, NEXT+32*
LEXI PR+1~, PR+4*, PR+5*, PR+6*, PR+7*, PR+8
LEXID NEXT+13~, NEXT+14*, NEXT+23*, NEXT+32, NEXT+33, NEXT+34, NEXT+35, NEXT+38, NEXT+39, NEXT+40
, NEXT+41
LEXL IS+1~*, IS+2, IS+3, IS+4, PR+1~, PR+2*, PR+4
LEXLEN NEXT+13~, NEXT+15*, NEXT+16, NEXT+18, NEXT+20, NEXT+21, NEXT+23
LEXN IS+1~, IS+3*, IS+4
LEXNAM NEXT+14~, NEXT+34~*, NEXT+35, NEXT+38*, NEXT+41*, NEXT+42, NAM+1~, NAM+4*
LEXNC NEXT+13~, NEXT+25*, NEXT+26
LEXNN NEXT+13~, NEXT+24*, NEXT+26*, NEXT+28, NEXT+29, NEXT+37*, NEXT+41~*, NEXT+42
LEXO IS+1~, IS+2*, IS+3*
LEXOR NEXT+14~, NEXT+19*, NEXT+20*, NEXT+24, NEXT+36*, NEXT+37, IS+3
LEXPRE NEXT+14~
LEXS NEXT+14~, NEXT+27~
LEXSO NEXT+14~*, NEXT+19, NEXT+20, NEXT+25, NEXT+30
LEXVDT SN+1, FIN~, FIN+36, INF+2
N0 FIN+32~, FIN+34*, FIN+35, FIN+40
NOD FIN+32~, FIN+40*, FIN+42, FIN+46*, FIN+47, FIN+48, FIN+51*, FIN+52, FIN+53, FIN+56*
, FIN+57, FIN+58, FIN+62*, FIN+63
NODC FIN+32~, FIN+61*, FIN+63*
NODI FIN+32~, FIN+61*, FIN+62
REC FIN+32~, FIN+39*, FIN+40, FIN+45*, FIN+46, FIN+50*, FIN+51, FIN+55*, FIN+56, FIN+60*
, FIN+61, FIN+62
SAB FIN+32~, FIN+35*
SRC FIN+32~, FIN+35*, FIN+36
>> STA INF+7*, INF+8, INF+9
>> TMP INF+7*, INF+10*, INF+11, INF+12, INF+15*, INF+16, INF+17, INF+20*, INF+21, INF+22
TXT INF+12~, INF+17~, INF+22~
TXT( INF+14, INF+19, INF+24
TXT(1 INF+12*, INF+13, INF+17*, INF+18, INF+22*, INF+23
U FIN+33*, FIN+35
X NEXT+16, NEXT+17*, NAM~, NAM+1, NAM+4*, NAM+5, SN~, SN+1, SN+5*, SN+6
, IS~, IS+1, FIN~, FIN+33, INF~, INF+2, INF+4*, PR~, PR+2, PR+5*
, TM~, TM+1*, TM+2*, TM+3*, TM+4
Y TM~, TM+1*, TM+2, TM+3
Z PR+1~
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All