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
Print Page as PDF
Routine: YTDOMR

Package: Mental Health

Routine: YTDOMR


Information

YTDOMR ;ALB/ASF-DEPRESSION OUTCOME MODULE REPORT ; 5/7/07 10:39am

Source Information

Source file <YTDOMR.m>

Entry Points

Name Comments DBIA/ICR reference
EN81 ;
OUT81 ;
EN82 ;
OUT82 ;
EN80 ;
ENG ;geriatric screen
ENGQ ;

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,I1
  • Line Location: OUT81+1
Function Call: WRITE
  • Prompt: !,"Scoring: By self report,"
  • Line Location: OUT81+2
Function Call: WRITE
  • Prompt: !,"However a recent death is reported."
  • Line Location: OUT81+5
Function Call: WRITE
  • Prompt: !?15,"DOM severity score= "
  • Line Location: OUT81+6
Function Call: WRITE
  • Prompt: $S(YSSEV="":" not scoreable due to missing items",1:$J(YSSEV,3,0))
  • Line Location: OUT81+7
Function Call: WRITE
  • Prompt: !,"There are no normative data for interpreting the severity score, but changes"
  • Line Location: OUT81+8
Function Call: WRITE
  • Prompt: !,"between this score and the score on the DOM Patient Follow-Up Assessment",!,"(Form 8.3) may reflect changes in the severity of the patient's symptoms."
  • Line Location: OUT81+9
Function Call: WRITE
  • Prompt: !,I1
  • Line Location: OUT81+10
Function Call: WRITE
  • Prompt: !!,I1
  • Line Location: OUT82+1
Function Call: WRITE
  • Prompt: !,"Scoring:"
  • Line Location: OUT82+2
Function Call: WRITE
  • Prompt: !,"Clinician reports: "
  • Line Location: OUT82+4
Function Call: WRITE
  • Prompt: $S(X=1:"MAJOR DEPRESSION (SINGLE EPISODE OR RECURRENT)",X=2:"Mood Disorder secondary to a general medical condition",X=3:"Posttraumatic Stress Disorder",X=4:"Substance use disorder(s)",X=5:"NO MAJOR DEPRESSION",1:"??")
  • Line Location: OUT82+5
Function Call: WRITE
  • Prompt: !,"The patient "_$S(YSDEP:"DOES",1:"DOES NOT")_" meet DSM IV criteria for major depression."
  • Line Location: OUT82+6
Function Call: WRITE
  • Prompt: !,"However exclusionary features are reported."
  • Line Location: OUT82+7
Function Call: WRITE
  • Prompt: !,I1
  • Line Location: OUT82+8
Function Call: WRITE
  • Prompt: @IOF,YSHDR,?53,$$FMTE^XLFDT(DT,"5ZD"),?64,$$FMTE^XLFDT(YSHD,"5ZD")
  • Line Location: ENG+2
Function Call: WRITE
  • Prompt: !,?53,"PRINTED",?64,"ENTERED",!
  • Line Location: ENG+3
Function Call: WRITE
  • Prompt: !!,?3,"*** Geriatric Depression Screen ***",!!
  • Line Location: ENG+4
Function Call: WRITE
  • Prompt: !,"The patient was questioned about mood in the past week.",!
  • Line Location: ENG+5
Function Call: WRITE
  • Prompt: !,"Felt could not shake off blues: "
  • Line Location: ENG+6
Function Call: WRITE
  • Prompt: !,"Felt depressed: "
  • Line Location: ENG+7
Function Call: WRITE
  • Prompt: !,"Felt fearful: "
  • Line Location: ENG+8
Function Call: WRITE
  • Prompt: !,"Sleep was restless: "
  • Line Location: ENG+9
Function Call: WRITE
  • Prompt: !,"Felt hopeless about the future: "
  • Line Location: ENG+10
Function Call: WRITE
  • Prompt: !!,"The validity of this test is compromised as "_YSMISS_" of the 5 questions",!,"were not answered."
  • Line Location: ENG+15
Function Call: WRITE
  • Prompt: !!,"Score: "_YSDEP
  • Line Location: ENG+16
Function Call: WRITE
  • Prompt: $S(Y1=0:"rarely",Y1=1:"some of the time",Y1=2:"much of the time",Y1=3:"most of the time",1:"question not answered")
  • Line Location: ENGQ+2
Function Call: WRITE
  • Prompt: $S(Y1=3:"rarely",Y1=2:"some of the time",Y1=1:"much of the time",Y1=0:"most of the time",1:"question not answered")
  • Line Location: ENGQ+3
Info |  Source |  Entry Points |  Interaction Calls