| 1 | YTDOMR ;ALB/ASF-DEPRESSION OUTCOME MODULE REPORT ; 5/7/07 10:39am
|
|---|
| 2 | ;;5.01;MENTAL HEALTH;**31,85**;Dec 30, 1994;Build 48
|
|---|
| 3 | EN81 ;
|
|---|
| 4 | D ^YTDOMR1
|
|---|
| 5 | S (YSCR,YSDEP,YSPA,YSPB,YSSEV,YSNOT)=0
|
|---|
| 6 | S R=^YTD(601.2,YSDFN,1,YSTEST,1,YSED,1)
|
|---|
| 7 | ;PART A SAD-NOFUN
|
|---|
| 8 | I $E(R,49)>2!($E(R,50)>2) S YSPA=1
|
|---|
| 9 | ;PART B DEPRESSIVE SYMPTOMS 4 WEEKS
|
|---|
| 10 | I $E(R,49)>2 S YSCR=YSCR+1
|
|---|
| 11 | I $E(R,50)>2 S YSCR=YSCR+1
|
|---|
| 12 | I $E(R,51)>2!($E(R,52)>2) S YSCR=YSCR+1
|
|---|
| 13 | I $E(R,53)>2 S YSCR=YSCR+1
|
|---|
| 14 | I $E(R,54)>2 S YSCR=YSCR+1
|
|---|
| 15 | I $E(R,55)>2 S YSCR=YSCR+1
|
|---|
| 16 | I $E(R,56)>2 S YSCR=YSCR+1
|
|---|
| 17 | I $E(R,57)>2 S YSCR=YSCR+1
|
|---|
| 18 | I $E(R,58)>2!($E(R,59)="Y") S YSCR=YSCR+1
|
|---|
| 19 | I YSCR>4 S YSPB=1
|
|---|
| 20 | ;MISSING
|
|---|
| 21 | S YSMISS=$L($E(R,49,59),"X")-1
|
|---|
| 22 | I ((YSCR<5)&((YSMISS+YSCR)>4))!(YSMISS>4) S YSPB=""
|
|---|
| 23 | I YSPA,YSPB S YSDEP=1
|
|---|
| 24 | I YSPB="" S YSDEP=""
|
|---|
| 25 | I $E(R,25)="Y" S YSNOT=1
|
|---|
| 26 | F I=49:1:59 S X=$E(R,I) S X=$S(X="Y":3,X="N":0,X?1N:X-1,1:0) S YSSEV=YSSEV+X
|
|---|
| 27 | S YSSEV=YSSEV/(11-YSMISS)*33.33
|
|---|
| 28 | I YSMISS>1 S YSSEV=""
|
|---|
| 29 | OUT81 ;
|
|---|
| 30 | S I1="",$P(I1,"_",79)="" W !!,I1
|
|---|
| 31 | W !,"Scoring: By self report,"
|
|---|
| 32 | W:YSDEP'="" !,"The patient "_$S(YSDEP:"DOES",1:"DOES NOT")_" meet DSM IV Criterion A for Major Depressive Episode."
|
|---|
| 33 | W:YSDEP="" !,"Diagnosis not available due to "_YTMISS_" missing items"
|
|---|
| 34 | I YSNOT W !,"However a recent death is reported."
|
|---|
| 35 | W !?15,"DOM severity score= "
|
|---|
| 36 | W $S(YSSEV="":" not scoreable due to missing items",1:$J(YSSEV,3,0))
|
|---|
| 37 | W !,"There are no normative data for interpreting the severity score, but changes"
|
|---|
| 38 | W !,"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."
|
|---|
| 39 | W !,I1
|
|---|
| 40 | Q
|
|---|
| 41 | EN82 ;
|
|---|
| 42 | D ^YTDOMR1
|
|---|
| 43 | S (YSCR,YSDEP,YSPA,YSPB,YSSEV,YSNOT)=0
|
|---|
| 44 | S R=^YTD(601.2,YSDFN,1,YSTEST,1,YSED,1)
|
|---|
| 45 | I $E(R,4)="Y"!($E(R,5)="Y") S YSPA=1
|
|---|
| 46 | F I=4:1:12 S:$E(R,I)="Y" YSCR=YSCR+1
|
|---|
| 47 | S:YSCR>4 YSPB=1
|
|---|
| 48 | I YSPA&YSPB S YSDEP=1
|
|---|
| 49 | F I=13,14,15,18,20,21,22 S:$E(R,I)="Y" YSNOT=1
|
|---|
| 50 | ;
|
|---|
| 51 | OUT82 ;
|
|---|
| 52 | S I1="",$P(I1,"_",79)="" W !!,I1
|
|---|
| 53 | W !,"Scoring:"
|
|---|
| 54 | S X=$E(R,1)
|
|---|
| 55 | W !,"Clinician reports: "
|
|---|
| 56 | W $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:"??")
|
|---|
| 57 | W !,"The patient "_$S(YSDEP:"DOES",1:"DOES NOT")_" meet DSM IV criteria for major depression."
|
|---|
| 58 | I YSNOT W !,"However exclusionary features are reported."
|
|---|
| 59 | W !,I1
|
|---|
| 60 | Q
|
|---|
| 61 | EN80 ;
|
|---|
| 62 | D ^YTDOMR1
|
|---|
| 63 | S X=^YTD(601.2,YSDFN,1,YSET,1,YSED,1)
|
|---|
| 64 | S X1=0
|
|---|
| 65 | S:$E(X,1)="Y" X1=1
|
|---|
| 66 | S:($E(X,2)="Y")&($E(X,3)="Y")&($E(X,4)>1) X1=1
|
|---|
| 67 | W:(X1=1) !!,"This screen is positive, and the possibility of a mood disorder",!,"should be evaluated further."
|
|---|
| 68 | W:(X1=0) !!,"This screen for mood disorder is negative."
|
|---|
| 69 | Q
|
|---|
| 70 | ENG ;geriatric screen
|
|---|
| 71 | S YSHDR=$E(YSHDR,1,43)_" "_YSSEX_" AGE "_$J(YSAGE,2,0)
|
|---|
| 72 | W @IOF,YSHDR,?53,$$FMTE^XLFDT(DT,"5ZD"),?64,$$FMTE^XLFDT(YSHD,"5ZD")
|
|---|
| 73 | W !,?53,"PRINTED",?64,"ENTERED",!
|
|---|
| 74 | W !!,?3,"*** Geriatric Depression Screen ***",!!
|
|---|
| 75 | W !,"The patient was questioned about mood in the past week.",!
|
|---|
| 76 | W !,"Felt could not shake off blues: " S YSI=1 D ENGQ
|
|---|
| 77 | W !,"Felt depressed: " S YSI=2 D ENGQ
|
|---|
| 78 | W !,"Felt fearful: " S YSI=3 D ENGQ
|
|---|
| 79 | W !,"Sleep was restless: " S YSI=4 D ENGQ
|
|---|
| 80 | W !,"Felt hopeless about the future: " S YSI=5 D ENGQ
|
|---|
| 81 | S X=^YTD(601.2,YSDFN,1,YSET,1,YSED,1)
|
|---|
| 82 | S (YSMISS,YSDEP)=0 F I=1:1:4 S YSDEP=YSDEP+$E(X,I) S:$E(X,I)="X" YSMISS=YSMISS+1 ; ASF 10/20/06
|
|---|
| 83 | S:$E(X,5)?1N YSDEP=YSDEP+(3-$E(X,5)) S:$E(X,5)="X" YSMISS=YSMISS+1
|
|---|
| 84 | I YSMISS=1 S YSDEP=YSDEP+(YSDEP/4)
|
|---|
| 85 | I YSMISS>1 W !!,"The validity of this test is compromised as "_YSMISS_" of the 5 questions",!,"were not answered." Q
|
|---|
| 86 | W !!,"Score: "_YSDEP
|
|---|
| 87 | W:(YSDEP>3.9) !,"This screen is positive, and the possibility of a mood disorder",!,"should be evaluated further."
|
|---|
| 88 | W:(YSDEP<4) !,"This screen for mood disorder is negative."
|
|---|
| 89 | Q
|
|---|
| 90 | ENGQ ;
|
|---|
| 91 | S Y1=$E(^YTD(601.2,YSDFN,1,YSET,1,YSED,1),YSI)
|
|---|
| 92 | I YSI<5 W $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")
|
|---|
| 93 | I YSI=5 W $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")
|
|---|
