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 |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
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>

Call Graph

Call Graph

Call Graph Total: 2

Package Total Call Graph
Kernel 1 $$FMTE^XLFDT  
Mental Health 1 ^YTDOMR1  

Entry Points

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

External References

Name Field # of Occurrence
$$FMTE^XLFDT ENG+2
^YTDOMR1 EN81+1, EN82+1, EN80+1

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^YTD(601.2 - [#601.2] EN81+3, EN82+3, EN80+2, ENG+11, ENGQ+1

Label References

Name Line Occurrences
ENGQ ENG+6, ENG+7, ENG+8, ENG+9, ENG+10

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DT ENG+2
>> I EN81+23*, EN82+5*, EN82+8*, ENG+12*
>> I1 OUT81+1*, OUT81+10, OUT82+1*, OUT82+8
IOF ENG+2
>> R EN81+3*, EN81+5, EN81+7, EN81+8, EN81+9, EN81+10, EN81+11, EN81+12, EN81+13, EN81+14
, EN81+15, EN81+18, EN81+22, EN81+23, EN82+3*, EN82+4, EN82+5, EN82+8, OUT82+3
>> X EN81+23*, OUT82+3*, OUT82+5, EN80+2*, EN80+4, EN80+5, ENG+11*, ENG+12, ENG+13
>> X1 EN80+3*, EN80+4*, EN80+5*, EN80+6, EN80+7
>> Y1 ENGQ+1*, ENGQ+2, ENGQ+3
>> YSAGE ENG+1
>> YSCR EN81+2*, EN81+7*, EN81+8*, EN81+9*, EN81+10*, EN81+11*, EN81+12*, EN81+13*, EN81+14*, EN81+15*
, EN81+16, EN81+19, EN82+2*, EN82+5*, EN82+6
>> YSDEP EN81+2*, EN81+20*, EN81+21*, OUT81+3, OUT81+4, EN82+2*, EN82+7*, OUT82+6, ENG+12*, ENG+13*
, ENG+14*, ENG+16, ENG+17, ENG+18
>> YSDFN EN81+3, EN82+3, EN80+2, ENG+11, ENGQ+1
>> YSED EN81+3, EN82+3, EN80+2, ENG+11, ENGQ+1
>> YSET EN80+2, ENG+11, ENGQ+1
>> YSHD ENG+2
>> YSHDR ENG+1*, ENG+2
>> YSI ENG+6*, ENG+7*, ENG+8*, ENG+9*, ENG+10*, ENGQ+1, ENGQ+2, ENGQ+3
>> YSMISS EN81+18*, EN81+19, EN81+24, EN81+25, ENG+12*, ENG+13*, ENG+14, ENG+15
>> YSNOT EN81+2*, EN81+22*, OUT81+5, EN82+2*, EN82+8*, OUT82+7
>> YSPA EN81+2*, EN81+5*, EN81+20, EN82+2*, EN82+4*, EN82+7
>> YSPB EN81+2*, EN81+16*, EN81+19*, EN81+20, EN81+21, EN82+2*, EN82+6*, EN82+7
>> YSSEV EN81+2*, EN81+23*, EN81+24*, EN81+25*, OUT81+7, EN82+2*
>> YSSEX ENG+1
>> YSTEST EN81+3, EN82+3
>> YTMISS OUT81+4
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All