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

Package: Automated Information Collection System

Routine: IBDLXDG


Information

IBDLXDG ;ALB/CFS - ICD-10 DIAGNOSIS CODE LOOK UP ;03/27/2012

Source Information

Source file <IBDLXDG.m>

Call Graph

Call Graph

Call Graph Total: 11

Package Total Call Graph
VA FileMan 4 ^%DT  RECALL^DILFD  ^DIR  ^DIWP  
Automated Information Collection System 2 $$SEL^IBDLXDG2  $$REMINARR^IBDUTICD  
Kernel 2 HOME^%ZIS  $$DT^XLFDT  
Lexicon Utility 2 $$DIAGSRCH^LEX10CS  ($$FREQ,$$IMPDATE,$$MAX)^LEXU  
DRG Grouper 1 $$ICDDX^ICDEX  

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
Automated Information Collection System 2 IBDFN12  IBDFN4  

Entry Points

Name Comments DBIA/ICR reference
DIAG10(IBDDT,IBDDFLT,IBDPARAM) ;
SPACEBAR(IBDDT,IBDROOT,IBDCODSY) ;
SAVSPACE(IBDROOT,IBDRETV) ;
LEXICD10(IBDTXT,IBDDATE,IBDPAR) ; ICD-10 Search
EXIT ;
INPHLP ;
INPHLP2 ;
INPHLP3 ;
ASKDATE(IBDPRMT) ;
QUESTION(IBDDFLT,IBDPROM,IBDHELP) ;
SRCHSTR(IBDPRMT,IBDHLP1,IBDHLP2,IBDDFLT) ;
ICDSYSDG(IBDICDD) ;
SETPARAM(IBDPAR) ;
FORMWRIT(X,IBDMODE) ;
INITVARS ;

External References

Name Field # of Occurrence
^%DT ASKDATE+3
HOME^%ZIS INITVARS+1
RECALL^DILFD SAVSPACE+2
^DIR QUESTION+5, SRCHSTR+7
^DIWP FORMWRIT+5
$$SEL^IBDLXDG2 LEXICD10+35
$$REMINARR^IBDUTICD LEXICD10+30
$$ICDDX^ICDEX SPACEBAR+7
$$DIAGSRCH^LEX10CS LEXICD10+25
$$FREQ^LEXU LEXICD10+8
$$IMPDATE^LEXU ICDSYSDG+3
$$MAX^LEXU LEXICD10+9
$$DT^XLFDT INITVARS+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: "??"
  • Line Location: DIAG10+11
Function Call: WRITE
  • Prompt: $P(IBDRETV,";",2)
  • Line Location: DIAG10+12
Function Call: WRITE
  • Prompt: !!,IBDPARAM("ENTER MORE")
  • Line Location: DIAG10+13
Function Call: WRITE
  • Prompt: !,IBDPARAM("ENTER MORE2")
  • Condition for execution: $L(IBDPARAM("ENTER MORE2"))>0
  • Line Location: DIAG10+13
Function Call: WRITE
  • Prompt: !
  • Line Location: DIAG10+13
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: !!," 19 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 19 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,IBDLI1,0))
  • Line Location: FORMWRIT+8
Routine Call
  • DIR
  • Line Location:
    • QUESTION+5
    • SRCHSTR+7
Routine Call
  • %ZIS
  • Line Location:
    • INITVARS+1

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^ICD9 - [#80] RECALL^DILFD

Global Variables Directly Accessed

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

Label References

Name Line Occurrences
$$LEXICD10 DIAG10+19
$$QUESTION LEXICD10+9
$$SPACEBAR DIAG10+10
$$SRCHSTR DIAG10+6
FORMWRIT LEXICD10+11, LEXICD10+12
INPHLP2 INPHLP+2
INPHLP3 INPHLP+1
SAVSPACE DIAG10+23

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% EXIT+1!, QUESTION+2*, QUESTION+3
%DT ASKDATE+1~, ASKDATE+2*
%DT("A" ASKDATE+2*
DIC EXIT+1!
DIR EXIT+1!, QUESTION+1~, SRCHSTR+1~
DIR("?" QUESTION+4*, SRCHSTR+3*
DIR("??" SRCHSTR+4*
DIR("A" QUESTION+3*, SRCHSTR+2*
DIR("B" QUESTION+3*, SRCHSTR+5*
DIR(0 QUESTION+3*, SRCHSTR+6*
DIROUT LEXICD10+15~, EXIT+1!, ASKDATE+1~
DIRUT EXIT+1!
DIWL FORMWRIT+1~, FORMWRIT+4*
DIWR FORMWRIT+1~, FORMWRIT+4*
DT ICDSYSDG+2, INITVARS+2*
DTOUT LEXICD10+15~, EXIT+1!, ASKDATE+1~, ASKDATE+5, SRCHSTR+8
DUOUT LEXICD10+15~, EXIT+1!, ASKDATE+1~, SRCHSTR+9
DUZ SPACEBAR+3, SAVSPACE+1, SAVSPACE+2
IBDCODE SPACEBAR+1~, SPACEBAR+3*, SPACEBAR+4, SPACEBAR+7
IBDCODSY SPACEBAR~, SPACEBAR+7
IBDDATE LEXICD10~, LEXICD10+3*, LEXICD10+4, LEXICD10+30
IBDDFLT DIAG10~, DIAG10+6, QUESTION~, QUESTION+2, SRCHSTR~, SRCHSTR+5
IBDDT DIAG10~, DIAG10+10, DIAG10+19, SPACEBAR~, SPACEBAR+7
IBDEXIT LEXICD10+15~, LEXICD10+18*, LEXICD10+21, LEXICD10+33*, LEXICD10+38*, LEXICD10+42*, LEXICD10+44*
IBDHELP QUESTION~, QUESTION+4
IBDHLP1 SRCHSTR~, SRCHSTR+3
IBDHLP2 SRCHSTR~, SRCHSTR+4
IBDICDD ICDSYSDG~, ICDSYSDG+2*, ICDSYSDG+4
IBDICDNT LEXICD10+15~
IBDICDY LEXICD10+22!, LEXICD10+25*, LEXICD10+30*, LEXICD10+31*, LEXICD10+33, LEXICD10+35
IBDICDY(" " LEXICD10+31
IBDIMPDT ICDSYSDG+1~, ICDSYSDG+3*, ICDSYSDG+4
IBDINP DIAG10+2~, DIAG10+3, DIAG10+6*, DIAG10+8, DIAG10+13, DIAG10+16, DIAG10+19
IBDLEVEL LEXICD10+16~, LEXICD10+19*, LEXICD10+25, LEXICD10+38, LEXICD10+40*, LEXICD10+48*, LEXICD10+51
IBDLI1 FORMWRIT+1~, FORMWRIT+8*
IBDLVTXT LEXICD10+1~
IBDLVTXT( LEXICD10+19*, LEXICD10+25, LEXICD10+51*
IBDMODE FORMWRIT~, FORMWRIT+3, FORMWRIT+7
IBDNUMB LEXICD10+7~, LEXICD10+8*, LEXICD10+9, LEXICD10+11
IBDPAR LEXICD10~, SETPARAM~
IBDPAR("ASKDATE" SETPARAM+1*
IBDPAR("ENTER MORE" , SETPARAM+15*,  MORE2" , SETPARAM+16*
IBDPAR("EXCEE DS MESSAGE1" , LEXICD10+11, SETPARAM+12*, DS MESSAGE2" , LEXICD10+11, SETPARAM+13*, DS MESSAGE3" , LEXICD10+11, SETPARAM+14*
IBDPAR("EXITING" SETPARAM+7*
IBDPAR("HELP ?" , SETPARAM+3*, ??" , SETPARAM+4*
IBDPAR("NO DA TA FOUND 2" , SETPARAM+6*, TA FOUND" , SETPARAM+5*, TA SELECTED" , SETPARAM+9*
IBDPAR("SEARCH_PROMPT" SETPARAM+2*
IBDPAR("TRY A NOTHER" , SETPARAM+10*
IBDPAR("TRY L ATER" , SETPARAM+8*
IBDPAR("WISH CONTINUE" , SETPARAM+11*
IBDPAR("YES O R NO" , SETPARAM+17*
IBDPARAM DIAG10~, DIAG10+19
IBDPARAM("ENT ER MORE" , DIAG10+13, ER MORE2" , DIAG10+13
IBDPARAM("HEL P ?" , DIAG10+6, P ??" , DIAG10+6
IBDPARAM("SEARCH_PROMPT" DIAG10+6
IBDPARAM("WIS H CONTINUE" , LEXICD10+9
IBDPARAM("YES OR NO" , LEXICD10+9
IBDPRMT ASKDATE~, ASKDATE+2, SRCHSTR~, SRCHSTR+2
IBDPROM QUESTION~, QUESTION+3
IBDRETV DIAG10+1~, DIAG10+8, DIAG10+10*, DIAG10+11, DIAG10+12, DIAG10+15, DIAG10+19*, DIAG10+23, DIAG10+25, SAVSPACE~
, SAVSPACE+2, LEXICD10+16~, LEXICD10+17*, LEXICD10+38*, LEXICD10+42*, LEXICD10+44*, LEXICD10+52
IBDROOT DIAG10+1~*, DIAG10+8, DIAG10+10, DIAG10+23, SPACEBAR~, SPACEBAR+2, SPACEBAR+3, SAVSPACE~, SAVSPACE+2
IBDRTV SPACEBAR+1~, SPACEBAR+4*, SPACEBAR+8*, SPACEBAR+10
IBDSPACE DIAG10+1~, DIAG10+3, DIAG10+5*, DIAG10+8*, DIAG10+15
IBDTXT LEXICD10~, LEXICD10+5*, LEXICD10+6, LEXICD10+8, LEXICD10+11, LEXICD10+19
IBDX SPACEBAR+1~, SPACEBAR+7*, SPACEBAR+8
IBDXX LEXICD10+16~, LEXICD10+33*, LEXICD10+35*, LEXICD10+38, LEXICD10+40, LEXICD10+42, LEXICD10+44, LEXICD10+51
U DIAG10+3, DIAG10+8, DIAG10+13, DIAG10+19, SPACEBAR+8, SRCHSTR+14
X EXIT+1!, INPHLP+1, INPHLP+2, ASKDATE+6, FORMWRIT~, FORMWRIT+5
Y EXIT+1!, ASKDATE+4, ASKDATE+7, QUESTION+6, QUESTION+7, QUESTION+8, SRCHSTR+11, SRCHSTR+12, SRCHSTR+14
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