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 |  FileMan Files Accessed Via FileMan Db Call
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>

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

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

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^ICD9 - [#80] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call