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

Package: Hospital Based Home Care

Routine: HBHCLKU1


Information

HBHCLKU1 ;ALB/KG - DIAGNOSIS VALIDATION AND LOOK UP ;5/15/12

Source Information

Source file <HBHCLKU1.m>

Call Graph

Call Graph

Call Graph Total: 11

Package Total Call Graph
VA FileMan 5 ^DIC  YN^DICN  DQ^DICQ  ^DIR  ^DIWP  
Kernel 2 HOME^%ZIS  $$DT^XLFDT  
Lexicon Utility 2 $$DIAGSRCH^LEX10CS  ($$FREQ,$$MAX)^LEXU  
DRG Grouper 1 ($$CODEC,$$CSI,$$SYS,$$VSTD)^ICDEX  
Hospital Based Home Care 1 $$SEL^HBHCLKU2  

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
Hospital Based Home Care 2 HBHC UPDATE DISCHARGE  HBHCXMD1  

Entry Points

Name Comments DBIA/ICR reference
ADMDXVLD ;
DCDXVLD(HBHCDFN1) ;
DXVLD(HBHCMODE,HBHCDFN1) ;
DFLTDCDX(HBHCDFN1) ;
CHECKDX(HBHCDX,HBHCDT) ;
ADMDX ;
DCDX(HBHCDFN1) ;
ICD(HBHCMODE,HBHCDFN1) ;
SAVEDX(HBHCMODE,HBHCDFN1,HBHCDXIEN,HBHCDT) ;
GETDX(HBHCMODE,HBHCDFN1) ;
DIAG10(HBHCDT,HBHCDFLT,HBHCPARAM) ;
DIAG9(HBHCDT,HBHCDFLT,HBHCPARAM) ;
LEXICD10(HBHCTXT,HBHCDATE,HBHCPAR) ; ICD-10 Search
FMICD9(HBHCSRCH,HBHCICDT) ;
CLEANUP ;
QUESTION(HBHCDFLT,HBHCPROM) ;
SRCHSTR(HBHCPRMT,HBHCHLP1,HBHCHLP2,HBHCDFLT) ;
SETPARAM(HBHCPAR,HBHCMODE,HBHCCS) ;
HLPICD10 ;
INPHLP2 ;
INPHLP3 ;
HLPICD9 ;
FORMWRIT(X,HBHCMODE) ;
INITVARS ;

External References

Name Field # of Occurrence
HOME^%ZIS INITVARS+1
^DIC FMICD9+9
YN^DICN QUESTION+3
DQ^DICQ HLPICD9+12
^DIR SRCHSTR+7
^DIWP FORMWRIT+5
$$SEL^HBHCLKU2 LEXICD10+27
$$CODEC^ICDEX ICD+12, SAVEDX+5
$$CSI^ICDEX CHECKDX+3
$$SYS^ICDEX CHECKDX+5, ICD+6
$$VSTD^ICDEX ICD+12, SAVEDX+5
$$DIAGSRCH^LEX10CS LEXICD10+22
$$FREQ^LEXU LEXICD10+8
$$MAX^LEXU LEXICD10+9
$$DT^XLFDT INITVARS+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: " No data found",!
  • Line Location: ICD+37
Function Call: WRITE
  • Prompt: !!,HBHCPARAM("ENTER MORE")
  • Line Location: DIAG10+4
Function Call: WRITE
  • Prompt: !,HBHCPARAM("ENTER MORE2")
  • Condition for execution: $L(HBHCPARAM("ENTER MORE2"))>0
  • Line Location: DIAG10+4
Function Call: WRITE
  • Prompt: !
  • Line Location: DIAG10+4
Function Call: WRITE
  • Prompt: !," Enter code or ""text"" for more information."
  • Line Location: HLPICD10+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: " This field represents patient's primary diagnosis at time of admission,"
  • Line Location: HLPICD9+3
Function Call: WRITE
  • Prompt: !," referencing ICD Diagnosis (80) file entries."
  • Line Location: HLPICD9+4
Function Call: WRITE
  • Prompt: " Answer with ICD diagnosis code, or diagnosis description, of patient's"
  • Line Location: HLPICD9+7
Function Call: WRITE
  • Prompt: !," primary diagnosis at time of admission."
  • Line Location: HLPICD9+8
Function Call: WRITE
  • Prompt: !,$G(^UTILITY($J,"W",1,HBHCLI1,0))
  • Line Location: FORMWRIT+8
Routine Call
  • %ZIS
  • Line Location:
    • INITVARS+1
Routine Call
  • DIC
  • Line Location:
    • FMICD9+9
Routine Call
  • DIR
  • Line Location:
    • SRCHSTR+7

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^HBHC(631 - [#631] DXVLD+3, DXVLD+4, DFLTDCDX+2, DFLTDCDX+4, DFLTDCDX+6, ICD+4, ICD+5, SAVEDX+4*, GETDX+4
^UTILITY($J FORMWRIT+3!, FORMWRIT+8, FORMWRIT+9!

Label References

Name Line Occurrences
$$CHECKDX DXVLD+8, DFLTDCDX+8
$$DIAG10 ICD+19
$$DIAG9 ICD+17
$$FMICD9 DIAG9+4
$$GETDX DXVLD+5, ICD+11
$$LEXICD10 DIAG10+6
$$QUESTION ICD+29, LEXICD10+9
$$SRCHSTR DIAG10+3, DIAG9+2
CLEANUP ICD+20
DXVLD ADMDXVLD+1, DCDXVLD+1
FORMWRIT LEXICD10+10, LEXICD10+11
ICD ADMDX+1, DCDX+1
INITVARS ICD+1
INPHLP2 HLPICD10+2
INPHLP3 HLPICD10+1
SAVEDX DXVLD+8, ICD+22, ICD+30
SETPARAM ICD+8

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% CLEANUP+1!, QUESTION+2*, QUESTION+5
%Y CLEANUP+1!, QUESTION+4
D HLPICD9+1~, HLPICD9+9*
DIC FMICD9+1~, FMICD9+3*, CLEANUP+1!, HLPICD9+1~, HLPICD9+10*
DIC("S" FMICD9+6*, HLPICD9+11*
DIC(0 FMICD9+3*, HLPICD9+10*
DIFORMAT HLPICD9+1~
DIR CLEANUP+1!, SRCHSTR+1~
DIR("?" SRCHSTR+3*
DIR("??" SRCHSTR+4*
DIR("A" SRCHSTR+2*
DIR("B" SRCHSTR+5*
DIR(0 SRCHSTR+6*
DIROUT LEXICD10+13~, CLEANUP+1!
DIRUT CLEANUP+1!
DIWL CLEANUP+1!, FORMWRIT+4*
DIWR CLEANUP+1!, FORMWRIT+4*
DT INITVARS+2*
DTOUT LEXICD10+13~, FMICD9+13, CLEANUP+1!, SRCHSTR+8
DUOUT LEXICD10+13~, FMICD9+12, CLEANUP+1!, SRCHSTR+9
DZ HLPICD9+1~, HLPICD9+5*
HBHCADMDX DFLTDCDX+1~, DFLTDCDX+4*, DFLTDCDX+5, DFLTDCDX+8
HBHCCDS FMICD9+1~, FMICD9+5*
HBHCCS SETPARAM~, SETPARAM+4, SETPARAM+7
HBHCCURDXIEN DXVLD+1~, DXVLD+5*, DXVLD+8, ICD+2~, ICD+11*, ICD+12, ICD+28
HBHCDATE LEXICD10~, LEXICD10+3*, LEXICD10+4, LEXICD10+22
HBHCDCDT DFLTDCDX+1~, DFLTDCDX+6*, DFLTDCDX+8
HBHCDCDX DFLTDCDX+1~, DFLTDCDX+2*, DFLTDCDX+3, DFLTDCDX+8*, DFLTDCDX+9
HBHCDFLT ICD+2~, ICD+10*, ICD+12*, ICD+17, ICD+19, DIAG10~, DIAG10+3, DIAG9~, DIAG9+2, QUESTION~
, QUESTION+2, SRCHSTR~, SRCHSTR+5, SRCHSTR+13
>> HBHCDFN ADMDXVLD+1, ADMDX+1
HBHCDFN1 DCDXVLD~, DCDXVLD+1, DXVLD~, DXVLD+3, DXVLD+4, DXVLD+5, DXVLD+8, DFLTDCDX~, DFLTDCDX+2, DFLTDCDX+4
, DFLTDCDX+6, DCDX~, DCDX+1, ICD~, ICD+4, ICD+5, ICD+11, ICD+22, ICD+30, SAVEDX~
, SAVEDX+4, GETDX~, GETDX+4
HBHCDT DXVLD+1~, DXVLD+3*, DXVLD+4*, DXVLD+8, CHECKDX~, CHECKDX+2, CHECKDX+5, ICD+2~, ICD+4*, ICD+5*
, ICD+6, ICD+12, ICD+17, ICD+19, ICD+22, ICD+30, SAVEDX~, SAVEDX+5, DIAG10~, DIAG10+6
, DIAG9~, DIAG9+4
HBHCDTCS CHECKDX+1~, CHECKDX+5*, CHECKDX+6, CHECKDX+7
HBHCDX CHECKDX~, CHECKDX+2, CHECKDX+3
HBHCDXCS CHECKDX+1~, CHECKDX+3*, CHECKDX+4, CHECKDX+7
HBHCDXIEN SAVEDX~, SAVEDX+4, SAVEDX+5
HBHCEXIT LEXICD10+13~, LEXICD10+16*, LEXICD10+19, LEXICD10+25*, LEXICD10+30*, LEXICD10+34*, LEXICD10+36*, LEXICD10+38*, LEXICD10+40*
HBHCHLP1 SRCHSTR~, SRCHSTR+3
HBHCHLP2 SRCHSTR~, SRCHSTR+4
HBHCICDNT LEXICD10+13~
HBHCICDT FMICD9~
HBHCICDY LEXICD10+20!, LEXICD10+22*, LEXICD10+23*, LEXICD10+25, LEXICD10+27
HBHCICDY(" " LEXICD10+23
HBHCINP DIAG10+1~, DIAG10+2, DIAG10+3*, DIAG10+4, DIAG10+5, DIAG10+6, DIAG9+1~, DIAG9+2*, DIAG9+3, DIAG9+4
HBHCLEVEL LEXICD10+14~, LEXICD10+17*, LEXICD10+22, LEXICD10+30, LEXICD10+32*, LEXICD10+44*, LEXICD10+47
HBHCLI1 FORMWRIT+1~, FORMWRIT+8*
HBHCLVTXT LEXICD10+1~
HBHCLVTXT( LEXICD10+17*, LEXICD10+22, LEXICD10+47*
HBHCMODE DXVLD~, DXVLD+3, DXVLD+4, DXVLD+5, DXVLD+8, ICD~, ICD+4, ICD+5, ICD+8, ICD+11
, ICD+22, ICD+30, SAVEDX~, SAVEDX+2, SAVEDX+3, GETDX~, GETDX+2, GETDX+3, SETPARAM~, SETPARAM+1
, SETPARAM+2, FORMWRIT~, FORMWRIT+3, FORMWRIT+7
HBHCNEWDXIEN ICD+2~, ICD+21*, ICD+22, ICD+23, ICD+24, ICD+25, ICD+26, ICD+27, ICD+33, ICD+34
, ICD+35, ICD+36, ICD+37
HBHCNUMB LEXICD10+7~, LEXICD10+8*, LEXICD10+9, LEXICD10+10
HBHCPAR LEXICD10~, SETPARAM~
HBHCPAR("DELETE?" SETPARAM+14*
HBHCPAR("ENTE R MORE" , SETPARAM+15*, R MORE2" , SETPARAM+16*
HBHCPAR("EXCE EDS MESSAGE1" , LEXICD10+10, SETPARAM+11*, EDS MESSAGE2" , LEXICD10+10, SETPARAM+12*, EDS MESSAGE3" , LEXICD10+10, SETPARAM+13*
HBHCPAR("HELP ?" , SETPARAM+5*, SETPARAM+8*,  ??" , SETPARAM+6*, SETPARAM+9*
HBHCPAR("SEARCH_PROMPT" SETPARAM+1*, SETPARAM+2*, SETPARAM+3*
HBHCPAR("WISH CONTINUE" , SETPARAM+10*
HBHCPARAM ICD+2~, ICD+8, ICD+17, ICD+19, DIAG10~, DIAG10+6, DIAG9~
HBHCPARAM("DELETE?" ICD+29
HBHCPARAM("EN TER MORE" , DIAG10+4, TER MORE2" , DIAG10+4
HBHCPARAM("HE LP ?" , DIAG10+3, DIAG9+2, LP ??" , DIAG10+3, DIAG9+2
HBHCPARAM("SEARCH_PROMPT" DIAG10+3, DIAG9+2
HBHCPARAM("WI SH CONTINUE" , LEXICD10+9
HBHCPC SAVEDX+1~, SAVEDX+2*, SAVEDX+3*, SAVEDX+4, GETDX+1~, GETDX+2*, GETDX+3*, GETDX+4
HBHCPRMT SRCHSTR~, SRCHSTR+2
HBHCPROM QUESTION~, QUESTION+1
HBHCQUIT ICD+2~, ICD+13*, ICD+22*, ICD+23*, ICD+24*, ICD+25*, ICD+26*, ICD+28*, ICD+31*, ICD+32*
, ICD+33*, ICD+34*, ICD+35*, ICD+36*, ICD+37*
HBHCRETV ICD+2~, ICD+14*, ICD+17*, ICD+19*, ICD+21, DIAG10+1~, DIAG10+6*, DIAG10+7, DIAG10+8, DIAG10+9
, DIAG10+10, DIAG10+11, DIAG9+1~, DIAG9+4*, DIAG9+5*, DIAG9+6, DIAG9+7, DIAG9+8, DIAG9+9, LEXICD10+14~
, LEXICD10+15*, LEXICD10+30*, LEXICD10+34*, LEXICD10+36*, LEXICD10+38*, LEXICD10+40*, LEXICD10+48
HBHCSRCH FMICD9~, FMICD9+8
HBHCSYS ICD+2~, ICD+6*, ICD+8, ICD+17, ICD+19
HBHCTXT LEXICD10~, LEXICD10+5*, LEXICD10+6, LEXICD10+8, LEXICD10+10, LEXICD10+17
HBHCXX LEXICD10+14~, LEXICD10+25*, LEXICD10+27*, LEXICD10+30, LEXICD10+32, LEXICD10+34, LEXICD10+36, LEXICD10+38, LEXICD10+40, LEXICD10+47
KEY FMICD9+1~
U DXVLD+3, DXVLD+4, DFLTDCDX+2, DFLTDCDX+4, DFLTDCDX+6, ICD+4, ICD+5, SAVEDX+4, GETDX+4, DIAG10+2
, DIAG10+4, DIAG10+6, DIAG9+4, DIAG9+5, FMICD9+11, SRCHSTR+14
X FMICD9+1~, FMICD9+8*, FMICD9+14, CLEANUP+1!, SRCHSTR+10, HLPICD10+1, HLPICD10+2, HLPICD9+2, FORMWRIT~, FORMWRIT+5
Y ICD+24*, ICD+25*, ICD+33*, FMICD9+1~, FMICD9+8*, FMICD9+10, FMICD9+11, FMICD9+12*, FMICD9+13*, CLEANUP+1!
, SRCHSTR+11, SRCHSTR+12, SRCHSTR+13, 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