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

Package: Mental Health

Routine: YSLXDG


Information

YSLXDG ; ALB/RBD - ICD-10 DIAGNOSIS CODE LOOK UP FOR MENTAL HEALTH ;10 May 2013 11:17 AM

Source Information

Source file <YSLXDG.m>

Call Graph

Call Graph

Call Graph Total: 10

Package Total Call Graph
VA FileMan 5 ^%DT  ^DIC  YN^DICN  ^DIR  ^DIWP  
Kernel 2 HOME^%ZIS  $$DT^XLFDT  
Lexicon Utility 2 $$DIAGSRCH^LEX10CS  ($$FREQ,$$IMPDATE,$$MAX)^LEXU  
Mental Health 1 ($$SEL,PR)^YSLXDG2  

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

Package Total Caller Graph
Mental Health 1 YSDX3A  

Entry Points

Name Comments DBIA/ICR reference
EN ;
DIAG10(YSDT,YSDFLT,YSPARAM) ;
DIAG9(YSDT,YSDFLT,YSOUT,YSPARAM) ;
LEXICD10(YSTXT,YSDATE,YSPAR) ; ICD-10 Search
ICD9(YSSRCH,YSICDT,YSOUT) ;
EXIT ;
INPHLP ; Help text controller for ICD-10
QM ; Diagnosis help text
QM1 ; simple help text for 1 question mark
QM2 ; enhanced help text for 2 question marks
QM3 ; further explanation of format when there are multiple returns, displayed for 3 question marks.
MIN2 ; Minimum length of 2 characters message
INPHLP2 ; Look-up help for ICD9s
ASKDATE(YSPRMT) ;
QUESTION(YSDFLT,YSPROM) ;
SRCHSTR(YSPRMT,YSHLP1,YSHLP2,YSDFLT) ;
SRCHST2
ICDSYSDG(YSICDD) ;
SETPARAM(YSPAR) ;
FORMWRIT(X,YSMODE) ;
INITVARS ;
PRESSKEY ;
CODEINFO(YSXX2) ; Write Output

External References

Name Field # of Occurrence
^%DT ASKDATE+3
HOME^%ZIS INITVARS+1
^DIC ICD9+9
YN^DICN QUESTION+3
^DIR SRCHST2+6
^DIWP FORMWRIT+5
$$DIAGSRCH^LEX10CS LEXICD10+24
$$FREQ^LEXU LEXICD10+9
$$IMPDATE^LEXU ICDSYSDG+3
$$MAX^LEXU LEXICD10+10
$$DT^XLFDT INITVARS+2
$$SEL^YSLXDG2 LEXICD10+29
PR^YSLXDG2 CODEINFO+4

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!
  • Line Location: EN+15
Function Call: WRITE
  • Prompt: !,"SELECTED: "
  • Line Location: EN+36
Function Call: WRITE
  • Prompt: !
  • Line Location: LEXICD10+11
Function Call: WRITE
  • Prompt: !
  • Line Location: LEXICD10+12
Function Call: WRITE
  • Prompt: !,"Enter code or ""text"" for more information.",!
  • Line Location: QM1+1
Function Call: WRITE
  • Prompt: !,"Enter a ""free text"" term or part of a term such as ""femur fracture"".",!
  • Line Location: QM2+1
Function Call: WRITE
  • Prompt: !," or",!
  • Line Location: QM2+2
Function Call: WRITE
  • Prompt: !,"Enter a ""classification code"" (ICD/CPT etc) to find the single term associated"
  • Line Location: QM2+3
Function Call: WRITE
  • Prompt: !,"with the code.",!
  • Line Location: QM2+4
Function Call: WRITE
  • Prompt: !," or",!
  • Line Location: QM2+5
Function Call: WRITE
  • Prompt: !,"Enter a ""partial code"". Include the decimal when a search criterion includes"
  • Line Location: QM2+6
Function Call: WRITE
  • Prompt: !,"3 characters or more for code searches.",!
  • Line Location: QM2+7
Function Call: WRITE
  • Prompt: !,"Number of Code Matches"
  • Line Location: QM3+1
Function Call: WRITE
  • Prompt: !,"----------------------",!
  • Line Location: QM3+2
Function Call: WRITE
  • Prompt: !,"The ICD-10 Diagnosis Code search will show the user the number of matches"
  • Line Location: QM3+3
Function Call: WRITE
  • Prompt: !,"found, indicate if additional characters in ICD code exist, and the number"
  • Line Location: QM3+4
Function Call: WRITE
  • Prompt: !,"of codes within the category or subcategory that are available for selection."
  • Line Location: QM3+5
Function Call: WRITE
  • Prompt: !,"For example:",!
  • Line Location: QM3+6
Function Call: WRITE
  • Prompt: !,"14 matches found",!
  • Line Location: QM3+7
Function Call: WRITE
  • Prompt: !,"M91. - Juvenile osteochondrosis of hip and pelvis (19)",!
  • Line Location: QM3+8
Function Call: WRITE
  • Prompt: !,"This indicates that 14 unique matches or matching groups have been found and"
  • Line Location: QM3+9
Function Call: WRITE
  • Prompt: !,"will be displayed.",!
  • Line Location: QM3+10
Function Call: WRITE
  • Prompt: !,"M91. - the ""-"" indicates that there are additional characters that specify"
  • Line Location: QM3+11
Function Call: WRITE
  • Prompt: !," unique ICD-10 codes available.",!
  • Line Location: QM3+12
Function Call: WRITE
  • Prompt: !,"(19) Indicates that there are 19 additional ICD-10 codes in the M91"
  • Line Location: QM3+13
Function Call: WRITE
  • Prompt: !," ""family"" that are possible selections.",!
  • Line Location: QM3+14
Function Call: WRITE
  • Prompt: $C(7)," ??",!
  • Line Location: MIN2+1
Function Call: WRITE
  • Prompt: !,"Please enter at least the first two characters of the ICD-10 code or "
  • Line Location: MIN2+2
Function Call: WRITE
  • Prompt: !,"code description to start the search.",!
  • Line Location: MIN2+3
Function Call: WRITE
  • Prompt: !," Enter a ""free text"" term. Best results occur using one to "
  • Line Location: INPHLP2+1
Function Call: WRITE
  • Prompt: !," three full or partial words without a suffix"
  • Line Location: INPHLP2+2
Function Call: WRITE
  • Prompt: !," or "
  • Line Location: INPHLP2+6
Function Call: WRITE
  • Prompt: !," Enter a classification code (ICD/CPT etc) to find the single "
  • Line Location: INPHLP2+7
Function Call: WRITE
  • Prompt: !," term associated with the code."
  • Line Location: INPHLP2+8
Function Call: WRITE
  • Prompt: !," or "
  • Line Location: INPHLP2+13
Function Call: WRITE
  • Prompt: !," Enter a classification code (ICD/CPT etc) followed by a plus"
  • Line Location: INPHLP2+14
Function Call: WRITE
  • Prompt: !," sign (+) to retrieve all terms associated with the code."
  • Line Location: INPHLP2+15
Function Call: WRITE
  • Prompt: !,$G(^UTILITY($J,"W",1,YSLI1,0))
  • Line Location: FORMWRIT+8
Function Call: WRITE
  • Prompt: !," ",YSICDSTR," Diagnosis code:",?31,$P($P(YSXX2,";",2),U,1)
  • Line Location: CODEINFO+5
Function Call: WRITE
  • Prompt: !," ",YSICDSTR," Diagnosis description:",?31,YSTXT(1)
  • Line Location: CODEINFO+6
Function Call: WRITE
  • Prompt: !,?31,$G(YSTXT(YSI))
  • Line Location: CODEINFO+7
Routine Call
  • DIC
  • Line Location:
    • ICD9+9
Routine Call
  • DIR
  • Line Location:
    • SRCHST2+6
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+33
$$DIAG9 EN+31
$$ICD9 DIAG9+8
$$ICDSYSDG EN+25
$$LEXICD10 DIAG10+5
$$QUESTION EN+21, EN+31, EN+38, EN+40, EN+42, EN+44, EN+46, LEXICD10+10
$$SRCHSTR DIAG10+2, DIAG9+2
CODEINFO EN+36
FORMWRIT LEXICD10+11, LEXICD10+12
INITVARS EN+1
MIN2 SRCHST2+10
QM1 INPHLP+3
QM2 INPHLP+2
QM3 INPHLP+1
SETPARAM EN+9
SRCHST2 SRCHST2+10

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% EXIT+1!, QUESTION+2*, QUESTION+5
%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 EXIT+1!, SRCHST2~
DIR("?" SRCHST2+2*
DIR("??" SRCHST2+3*
DIR("A" SRCHST2+1*
DIR("B" SRCHST2+4*
DIR(0 SRCHST2+5*
DIROUT LEXICD10+14~, EXIT+1!, ASKDATE+1~
DIRUT EXIT+1!
>> DIWL FORMWRIT+4*
>> DIWR FORMWRIT+4*
DT ICDSYSDG+2, INITVARS+2*
DTIME PRESSKEY+1
DTOUT LEXICD10+14~, EXIT+1!, ASKDATE+1~, ASKDATE+5, SRCHST2+7
DUOUT LEXICD10+14~, EXIT+1!, ASKDATE+1~, SRCHST2+8
KEY ICD9+1~
U EN+34, DIAG10+4, DIAG10+5, DIAG9+8, ICD9+11, SRCHST2+12, CODEINFO+3, CODEINFO+5
X ICD9+1~, ICD9+8*, ICD9+12, EXIT+1!, INPHLP+1, INPHLP+2, INPHLP+3, INPHLP2+3, INPHLP2+4, INPHLP2+5
INPHLP2+9, INPHLP2+10, INPHLP2+11, INPHLP2+12, INPHLP2+16, INPHLP2+17, INPHLP2+18, ASKDATE+6, FORMWRIT~, FORMWRIT+5
Y ICD9+1~, ICD9+8*, ICD9+10, ICD9+11, EXIT+1!, ASKDATE+4, ASKDATE+7, SRCHST2+9, SRCHST2+10, SRCHST2+11
SRCHST2+12
Y(0 ICD9+11
YSCDS ICD9+1~, ICD9+4*
YSCSYS EN+6~, EN+25*, EN+31, EN+33, CODEINFO+2
YSDATE LEXICD10~, LEXICD10+3*, LEXICD10+4*, LEXICD10+5, LEXICD10+24
YSDFLT EN+27*, EN+31, EN+33, DIAG10~, DIAG10+2, DIAG9~, DIAG9+2, QUESTION~, QUESTION+2, SRCHSTR~
SRCHST2+4
YSDT EN+11, EN+17, EN+21, EN+25, EN+31, EN+33, DIAG10~, DIAG10+5, DIAG9~, DIAG9+8
YSEXIT LEXICD10+14~, LEXICD10+17*, LEXICD10+20, LEXICD10+27*, LEXICD10+32*, LEXICD10+36*, LEXICD10+38*
YSHLP1 SRCHSTR~, SRCHST2+2
YSHLP2 SRCHSTR~, SRCHST2+3
YSI CODEINFO+3~, CODEINFO+7*
YSICDD ICDSYSDG~, ICDSYSDG+2*, ICDSYSDG+4
YSICDNT LEXICD10+14~
YSICDSTR CODEINFO+1~, CODEINFO+2*, CODEINFO+5, CODEINFO+6
YSICDT ICD9~
YSICDY LEXICD10+21!, LEXICD10+24*, LEXICD10+25*, LEXICD10+27, LEXICD10+29
YSICDY(" " LEXICD10+25
YSIMPDT ICDSYSDG+1~, ICDSYSDG+3*, ICDSYSDG+4
YSINP DIAG10+1~, DIAG10+2*, DIAG10+3, DIAG10+4, DIAG10+5, DIAG9+1~, DIAG9+2*, DIAG9+3, DIAG9+4, DIAG9+5
, DIAG9+6, DIAG9+7, DIAG9+8
YSKEY PRESSKEY+1*, CODEINFO+1~
YSLEVEL LEXICD10+15~, LEXICD10+18*, LEXICD10+24, LEXICD10+32, LEXICD10+34*, LEXICD10+42*, LEXICD10+45
YSLI1 FORMWRIT+1~, FORMWRIT+8*
YSLVTXT LEXICD10+1~
YSLVTXT( LEXICD10+18*, LEXICD10+24, LEXICD10+45*
YSMODE FORMWRIT~, FORMWRIT+3, FORMWRIT+7
YSNUMB LEXICD10+8~, LEXICD10+9*, LEXICD10+10, LEXICD10+11
YSOUT EN+7~, EN+14*, EN+31, DIAG9~, DIAG9+8, ICD9~, ICD9+10*
YSPAR LEXICD10~, SETPARAM~
YSPAR("ASKDATE" SETPARAM+1*
YSPAR("EXCEED S MESSAGE1" , LEXICD10+11, SETPARAM+11*, S MESSAGE2" , LEXICD10+11, SETPARAM+12*, S MESSAGE3" , LEXICD10+11, SETPARAM+13*
YSPAR("EXITING" SETPARAM+6*
YSPAR("HELP ? " , SETPARAM+3*, ?" , SETPARAM+4*
YSPAR("NO DAT A FOUND" , SETPARAM+5*, A SELECTED" , SETPARAM+8*
YSPAR("SEARCH_PROMPT" SETPARAM+2*
YSPAR("TRY AN OTHER" , SETPARAM+9*
YSPAR("TRY LA TER" , SETPARAM+7*
YSPAR("WISH C ONTINUE" , SETPARAM+10*
YSPARAM EN+5~, EN+9, EN+31, EN+33, DIAG10~, DIAG10+5, DIAG9~
YSPARAM("HELP ?" , DIAG10+2, DIAG9+2,  ??" , DIAG10+2, DIAG9+2
YSPARAM("NO D ATA FOUND" , EN+38
YSPARAM("SEARCH_PROMPT" DIAG10+2, DIAG9+2
YSPARAM("TRY ANOTHER" , EN+21, EN+31, EN+38, EN+40, EN+42, EN+44, EN+46
YSPARAM("WISH CONTINUE" , LEXICD10+10
YSPRMT ASKDATE~, ASKDATE+2, SRCHSTR~, SRCHST2+1
YSPROM QUESTION~, QUESTION+1
YSQUIT EN+3~, EN+13*, EN+17*, EN+21*, EN+25*, EN+31*, EN+34*, EN+36*, EN+38*, EN+40*
EN+42*, EN+44*, EN+46*
YSRETV EN+4!, EN+11*, EN+14*, EN+17*, EN+25*, EN+31*, EN+33*, EN+34*, EN+36, EN+38*
EN+40, EN+42, EN+44, EN+46, DIAG9+1~, DIAG9+8*, DIAG9+9, DIAG9+10, LEXICD10+15~, LEXICD10+16*
, LEXICD10+32*, LEXICD10+36*, LEXICD10+38*, LEXICD10+46
YSSRCH ICD9~, ICD9+8
YSTXT LEXICD10~, LEXICD10+6*, LEXICD10+7, LEXICD10+9, LEXICD10+11, LEXICD10+18, CODEINFO+3~, CODEINFO+4
YSTXT( CODEINFO+7
YSTXT(1 CODEINFO+3*, CODEINFO+6
YSXX LEXICD10+15~, LEXICD10+27*, LEXICD10+29*, LEXICD10+32, LEXICD10+34, LEXICD10+36, LEXICD10+38, LEXICD10+45
YSXX2 CODEINFO~, CODEINFO+3, CODEINFO+5
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