- Timestamp:
- Dec 4, 2009, 12:11:15 AM (14 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
WorldVistAEHR/trunk/r/MENTAL_HEALTH-YS-RUCL-YI-YT/YTDOMR.m
r613 r623 1 YTDOMR ;ALB/ASF-DEPRESSION OUTCOME MODULE REPORT ; 5/7/07 10:39am 2 ;;5.01;MENTAL HEALTH;**31,85**;Dec 30, 1994;Build 49 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") 1 YTDOMR ;ALB/ASF-DEPRESSION OUTCOME MODULE REPORT ;2/23/99 15:09 2 ;;5.01;MENTAL HEALTH;**31**;Dec 30, 1994 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 hopeful 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:5 S YSDEP=YSDEP+$E(X,I) S:$E(X,I)="X" YSMISS=YSMISS+1 83 I YSMISS=1 S YSDEP=YSDEP+(YSDEP/4) 84 I YSMISS>1 W !!,"The validity of this test is compromised as "_YSMISS_" of the 5 questions",!,"were not answered." Q 85 W !!,"Score: "_YSDEP 86 W:(YSDEP>3.9) !,"This screen is positive, and the possibility of a mood disorder",!,"should be evaluated further." 87 W:(YSDEP<4) !,"This screen for mood disorder is negative." 88 Q 89 ENGQ ; 90 S Y1=$E(^YTD(601.2,YSDFN,1,YSET,1,YSED,1),YSI) 91 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") 92 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")
Note:
See TracChangeset
for help on using the changeset viewer.
