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

Package: DRG Grouper

Routine: ICDDSLK


Information

ICDDSLK ;KUM/SJA/SS - ICD-10 DIAGNOSIS CODE LOOK UP;12-06-11

Source Information

Source file <ICDDSLK.m>

Call Graph

Call Graph

Call Graph Total: 12

Package Total Call Graph
VA FileMan 5 (,DD)^%DT  ^DIC  YN^DICN  ^DIR  ^DIWP  
DRG Grouper 3 EFFDATE^ICDDRGM  $$ICDDX^ICDEX  $$SEL^ICDSELDS  
Kernel 2 HOME^%ZIS  $$DT^XLFDT  
Lexicon Utility 2 $$DIAGSRCH^LEX10CS  ($$FREQ,$$IMPDATE,$$MAX)^LEXU  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
DRG Grouper 2 ICDCOD  ICDDRGM  

Entry Points

Name Comments DBIA/ICR reference
EN ; ENTRY
DIAG10(ICDDT,ICDDFLT,ICDPARAM) ;
DIAG9(ICDDT,ICDDFLT,ICDOUT,ICDPARAM) ;
LEXICD10(ICDTXT,ICDDATE,ICDPAR) ; ICD-10 Search
ICD9(ICDSRCH,ICDICDT,ICDOUT) ;
INPHLP ;
INPHLP2 ;
INPHLP3 ;
ASKDATE(ICDPRMT) ;
QUESTION(ICDDFLT,ICDPROM) ;
SRCHSTR(ICDPRMT,ICDHLP1,ICDHLP2,ICDDFLT) ;
ICDSYSDG(ICDICDD) ;
SETPARAM(ICDPAR) ;
FORMWRIT(X,ICDMODE) ;
INITVARS ;
PRESSKEY ;
CODEINFO(ICDXX2) ; Write Output
EXIT ;

External References

Name Field # of Occurrence
^%DT ASKDATE+3
DD^%DT CODEINFO+5
HOME^%ZIS INITVARS+1
^DIC ICD9+9
YN^DICN QUESTION+3
^DIR SRCHSTR+7
^DIWP FORMWRIT+5
EFFDATE^ICDDRGM EN+14
$$ICDDX^ICDEX CODEINFO+2
$$SEL^ICDSELDS LEXICD10+30
$$DIAGSRCH^LEX10CS LEXICD10+25
$$FREQ^LEXU LEXICD10+8
$$IMPDATE^LEXU EN+23, ICDSYSDG+3
$$MAX^LEXU LEXICD10+9
$$DT^XLFDT INITVARS+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: EN+12
Function Call: WRITE
  • Prompt: !,ICDPARAM("ENTER MORE")
  • Line Location: DIAG10+4
Function Call: WRITE
  • Prompt: !,ICDPARAM("ENTER MORE2")
  • Condition for execution: $L(ICDPARAM("ENTER MORE2"))>0
  • Line Location: DIAG10+4
Function Call: WRITE
  • Prompt: !
  • Line Location: LEXICD10+10
Function Call: WRITE
  • Prompt: !
  • Line Location: LEXICD10+13
Function Call: WRITE
  • Prompt: !," Enter code or ""text"" for more information."
  • Line Location: INPHLP+3
Function Call: WRITE
  • Prompt: !," Enter a ""free text"" term or part of a term such as ""femur fracture"""
  • Line Location: INPHLP2+1
Function Call: WRITE
  • Prompt: !!," or "
  • Line Location: INPHLP2+2
Function Call: WRITE
  • Prompt: !!," Enter a ""classification code"" (ICD/CPT, etc.) to find the single term"
  • Line Location: INPHLP2+3
Function Call: WRITE
  • Prompt: !," associated with the code"
  • Line Location: INPHLP2+4
Function Call: WRITE
  • Prompt: !!," or "
  • Line Location: INPHLP2+5
Function Call: WRITE
  • Prompt: !!," Enter a ""partial code"". Include the decimal when a search criterion"
  • Line Location: INPHLP2+6
Function Call: WRITE
  • Prompt: !," includes 3 characters or more for code searches."
  • Line Location: INPHLP2+7
Function Call: WRITE
  • Prompt: !," Number of Code Matches"
  • Line Location: INPHLP3+1
Function Call: WRITE
  • Prompt: !," ----------------------"
  • Line Location: INPHLP3+2
Function Call: WRITE
  • Prompt: !!," The ICD-10 Diagnosis Code search will show the user the number of matches"
  • Line Location: INPHLP3+3
Function Call: WRITE
  • Prompt: !," found, indicate if additional characters in ICD code exist, and the number"
  • Line Location: INPHLP3+4
Function Call: WRITE
  • Prompt: !," of codes within the category or subcategory that are available for selection."
  • Line Location: INPHLP3+5
Function Call: WRITE
  • Prompt: !," For example:"
  • Line Location: INPHLP3+6
Function Call: WRITE
  • Prompt: !!," 14 matches found"
  • Line Location: INPHLP3+7
Function Call: WRITE
  • Prompt: !!," M91. - Juvenile osteochondrosis of hip and pelvis (19)"
  • Line Location: INPHLP3+8
Function Call: WRITE
  • Prompt: !!," This indicates that 14 unique matches or matching groups have been found"
  • Line Location: INPHLP3+9
Function Call: WRITE
  • Prompt: !," and will be displayed."
  • Line Location: INPHLP3+10
Function Call: WRITE
  • Prompt: !!," M91. - the ""-"" indicates that there are additional characters that specify"
  • Line Location: INPHLP3+11
Function Call: WRITE
  • Prompt: !," unique ICD-10 codes available."
  • Line Location: INPHLP3+12
Function Call: WRITE
  • Prompt: !!," (19) Indicates that there are 19 additional ICD-10 codes in the M91 ""family"""
  • Line Location: INPHLP3+13
Function Call: WRITE
  • Prompt: !," that are possible selections."
  • Line Location: INPHLP3+14
Function Call: WRITE
  • Prompt: !,$G(^UTILITY($J,"W",1,ICDLI1,0))
  • Line Location: FORMWRIT+8
Function Call: WRITE
  • Prompt: !!,$P($P(ICDXX2,";",2),U,1),?15,$P($P(ICDXX2,";",2),U,2),!
  • Line Location: CODEINFO+4
Function Call: WRITE
  • Prompt: " AS OF ",Y," **",!
  • Line Location: CODEINFO+5
Routine Call
  • DIC
  • Line Location:
    • ICD9+9
Routine Call
  • DIR
  • Line Location:
    • SRCHSTR+7
Routine Call
  • %ZIS
  • Line Location:
    • INITVARS+1

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^ICD9 - [#80] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^UTILITY($J FORMWRIT+3!, FORMWRIT+8, FORMWRIT+9!

Label References

Name Line Occurrences
$$DIAG10 EN+28
$$DIAG9 EN+26
$$ICD9 DIAG9+8
$$ICDSYSDG EN+19
$$LEXICD10 DIAG10+6
$$QUESTION EN+17, EN+26, EN+30, EN+32, EN+34, EN+36, EN+38, EN+40, EN+42, EN+44
, LEXICD10+9
$$SRCHSTR DIAG10+3, DIAG9+2
CODEINFO EN+30
EXIT EN+14
FORMWRIT LEXICD10+11, LEXICD10+12
INITVARS EN+1
INPHLP2 INPHLP+2
INPHLP3 INPHLP+1
SETPARAM EN+8

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% QUESTION+2*, QUESTION+5, EXIT+1!
%DT ASKDATE+1~, ASKDATE+2*
%DT("A" ASKDATE+2*
>> %Y QUESTION+4
DIC ICD9+1~, ICD9+3*, EXIT+1!
DIC("S" ICD9+6*
DIC(0 ICD9+3*
DIR SRCHSTR+1~, EXIT+1!
DIR("?" SRCHSTR+3*
DIR("??" SRCHSTR+4*
DIR("A" SRCHSTR+2*
DIR("B" SRCHSTR+5*
DIR(0 SRCHSTR+6*
DIROUT LEXICD10+15~, ASKDATE+1~, EXIT+1!
DIRUT EXIT+1!
>> DIWL FORMWRIT+4*
>> DIWR FORMWRIT+4*
DT ICDSYSDG+2, INITVARS+2*
DTIME PRESSKEY+1
DTOUT EN+14, LEXICD10+15~, ASKDATE+1~, ASKDATE+5, SRCHSTR+8, EXIT+1!
DUOUT EN+14, LEXICD10+15~, ASKDATE+1~, SRCHSTR+9, EXIT+1!
ICDCDS ICD9+1~, ICD9+4*
ICDCSYS EN+5~, EN+19*, EN+23*, EN+26, EN+28
ICDDATE EN+14, EN+15, LEXICD10~, LEXICD10+3*, LEXICD10+4, LEXICD10+25
ICDDFLT EN+21*, EN+26, EN+28, DIAG10~, DIAG10+3, DIAG9~, DIAG9+2, QUESTION~, QUESTION+2, SRCHSTR~
, SRCHSTR+5
ICDDT EN+15*, EN+17, EN+19, EN+23*, EN+26, EN+28, DIAG10~, DIAG10+6, DIAG9~, DIAG9+8
, CODEINFO+2
ICDEXIT LEXICD10+15~, LEXICD10+18*, LEXICD10+21, LEXICD10+28*, LEXICD10+33*, LEXICD10+37*, LEXICD10+39*
ICDHLP1 SRCHSTR~, SRCHSTR+3, SRCHSTR+4
ICDHLP2 SRCHSTR~, SRCHSTR+4
ICDICDD ICDSYSDG~, ICDSYSDG+2*, ICDSYSDG+4
ICDICDNT LEXICD10+15~
ICDICDT ICD9~
ICDICDY LEXICD10+22!, LEXICD10+25*, LEXICD10+26*, LEXICD10+28, LEXICD10+30
ICDICDY(" " LEXICD10+26
ICDIMPDT ICDSYSDG+1~, ICDSYSDG+3*, ICDSYSDG+4
ICDINP DIAG10+1~, DIAG10+2, DIAG10+3*, DIAG10+4, DIAG10+5, DIAG10+6, DIAG9+1~, DIAG9+2*, DIAG9+3, DIAG9+4
, DIAG9+5, DIAG9+6, DIAG9+7, DIAG9+8
ICDKEY ICD9+1~, PRESSKEY+1*, CODEINFO+1~
ICDLEVEL LEXICD10+16~, LEXICD10+19*, LEXICD10+25, LEXICD10+33, LEXICD10+35*, LEXICD10+43*, LEXICD10+46
ICDLI1 FORMWRIT+1~, FORMWRIT+8*
ICDLVTXT LEXICD10+1~
ICDLVTXT( LEXICD10+19*, LEXICD10+25, LEXICD10+46*
ICDMODE FORMWRIT~, FORMWRIT+3, FORMWRIT+7
ICDNUMB LEXICD10+7~, LEXICD10+8*, LEXICD10+9, LEXICD10+11
ICDOUT EN+6~, EN+11*, EN+26, DIAG9~, DIAG9+8, ICD9~, ICD9+10*
ICDPAR LEXICD10~, SETPARAM~
ICDPAR("ASKDATE" SETPARAM+1*
ICDPAR("DELET E IT" , SETPARAM+15*
ICDPAR("ENTER MORE" , SETPARAM+16*,  MORE2" , SETPARAM+17*
ICDPAR("EXCEE DS MESSAGE1" , LEXICD10+11, SETPARAM+11*, DS MESSAGE2" , LEXICD10+11, SETPARAM+12*, DS MESSAGE3" , LEXICD10+11, SETPARAM+13*
ICDPAR("EXITING" SETPARAM+6*
ICDPAR("HELP ?" , SETPARAM+3*, ??" , SETPARAM+4*
ICDPAR("NO CH ANGES" , SETPARAM+14*
ICDPAR("NO DA TA FOUND" , SETPARAM+5*, TA SELECTED" , SETPARAM+8*
ICDPAR("SEARCH_PROMPT" SETPARAM+2*
ICDPAR("TRY A NOTHER" , SETPARAM+9*
ICDPAR("TRY L ATER" , SETPARAM+7*
ICDPAR("WISH CONTINUE" , SETPARAM+10*
ICDPARAM EN+4~, EN+8, EN+26, EN+28, DIAG10~, DIAG10+6, DIAG9~
ICDPARAM("DEL ETE IT" , EN+44
ICDPARAM("ENT ER MORE" , DIAG10+4, ER MORE2" , DIAG10+4
ICDPARAM("HEL P ?" , DIAG10+3, P ??" , DIAG10+3
ICDPARAM("NO CHANGES" , EN+32, DATA FOUND" , EN+34
ICDPARAM("SEARCH_PROMPT" DIAG10+3, DIAG9+2
ICDPARAM("TRY ANOTHER" , EN+17, EN+26, EN+30, EN+34, EN+36, EN+38, EN+40, EN+42, EN+44
ICDPARAM("WIS H CONTINUE" , LEXICD10+9
ICDPRMT ASKDATE~, ASKDATE+2, SRCHSTR~, SRCHSTR+2
ICDPROM QUESTION~, QUESTION+1
ICDQUIT EN+2~, EN+10*, EN+17*, EN+26*, EN+30*, EN+32*, EN+34*, EN+36*, EN+38*, EN+40*
, EN+42*, EN+44*
ICDRETV EN+3~, EN+11*, EN+26*, EN+28*, EN+30, EN+32, EN+34, EN+36, EN+38, EN+40
, EN+42, EN+44, DIAG9+1~, DIAG9+8*, DIAG9+9, DIAG9+10, LEXICD10+16~, LEXICD10+17*, LEXICD10+33*, LEXICD10+37*
, LEXICD10+39*, LEXICD10+47
ICDSRCH ICD9~, ICD9+8
ICDTMP CODEINFO+1~, CODEINFO+2*, CODEINFO+3*, CODEINFO+5
ICDTXT LEXICD10~, LEXICD10+5*, LEXICD10+6, LEXICD10+8, LEXICD10+11, LEXICD10+19
ICDXX LEXICD10+16~, LEXICD10+28*, LEXICD10+30*, LEXICD10+33, LEXICD10+35, LEXICD10+37, LEXICD10+39, LEXICD10+46
ICDXX2 CODEINFO~, CODEINFO+2, CODEINFO+4
IOF EN+12
U DIAG10+2, DIAG10+4, DIAG10+6, DIAG9+8, ICD9+11, SRCHSTR+13, CODEINFO+2, CODEINFO+4, CODEINFO+5
X ICD9+1~, ICD9+8*, ICD9+12, INPHLP+1, INPHLP+2, ASKDATE+6, SRCHSTR+10, FORMWRIT~, FORMWRIT+5, EXIT+1!
Y ICD9+1~, ICD9+8*, ICD9+10, ICD9+11, ASKDATE+4, ASKDATE+7, SRCHSTR+11, SRCHSTR+12, SRCHSTR+13, CODEINFO+5*
, EXIT+1!
Y(0 ICD9+11
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