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
Print Page as PDF
Routine: LEX10PR

Package: Lexicon Utility

Routine: LEX10PR


Information

LEX10PR ;ISL/KER - ICD-10 Procedure Code ;05/23/2017

Source Information

Source file <LEX10PR.m>

Entry Points

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

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
Info |  Source |  Entry Points |  Interaction Calls