source: WorldVistAEHR/trunk/r/MENTAL_HEALTH-YS-RUCL-YI-YT/YTCESD.m@ 623

Last change on this file since 623 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 1.5 KB
Line 
1YTCESD ;ALB/ASF- CESD DEPRESSION SCALE ;7/17/03 10:20
2 ;;5.01;MENTAL HEALTH;**70**;Dec 30, 1994
3 ;
4 N I,X,N,YSLFT,YSOUT,YTOUT,YSNX
5 S YSNOITEM="DONE^YTREPT"
6 S X=^YTD(601.2,YSDFN,1,YSET,1,YSED,1)
7 S R=0,S=""
8 F I=1,2,3,5,6,7,9,10,11,13,14,15,17,18,19,20 S R=R+$E(X,I)
9 F I=4,8,12,16 S:($E(X,I)'="X") R=R+(3-$E(X,I))
10 S YSNX=$L(X,"X")-1
11 Q:YSTY'["*"
12 D DTA^YTREPT
13 W !!?10,$P(^YTT(601,YSET,"P"),U)
14 W !!,"CES-D score= ",R," A score of 16 or more is considered depressed."
15 W:YSNX>3 !!,"Screen invalid: ",YSNX," missing items"
16 W !
17 F I=1:1:20 D
18 . D:$Y+4>IOSL WAIT
19 . W !?3,$E(^YTD(601.2,YSDFN,1,YSET,1,YSED,1),I)
20 . I (I=4)!(I=8)!(I=12)!(I=16) W "-"
21 . W ?6,^YTT(601,YSET,"Q",I,"T",1,0)
22 . W:I=3 "..."
23 W !!,"0= less than a day 1= 1-2 days 2= 3-4 days 3= 5-7 days"
24 D:$Y+4>IOSL WAIT
25DONE Q
26CESD5 ;5 item screen
27 N I,X,N,YSLFT,YSOUT,YTOUT,YSNX
28 S YSNOITEM="DONE^YTREPT"
29 S X=^YTD(601.2,YSDFN,1,YSET,1,YSED,1)
30 S R=0,S=""
31 F I=1,2,3,4 S R=R+$E(X,I)
32 S:($E(X,5)'="X") R=R+(3-$E(X,5))
33 Q:YSTY'["*"
34 D DTA^YTREPT
35 W !!?10,$P(^YTT(601,YSET,"P"),U)
36 W !!,"CES-D5 score= ",R," A score of 4 or more is a positive depression screen."
37 W !
38 F I=1:1:5 D
39 . D:$Y+4>IOSL WAIT
40 . W !?3,$E(^YTD(601.2,YSDFN,1,YSET,1,YSED,1),I)
41 . I (I=5) W "-"
42 . W ?6,$E(^YTT(601,YSET,"Q",I,"T",1,0),1,45)
43 . W:I=1 " ..."
44 W !!,"0= less than a day 1= 1-2 days 2= 3-4 days 3= 5-7 days"
45 D:$Y+4>IOSL WAIT
46 Q
47WAIT ;
48 ; Added 5/6/94 LJA
49 ;
50 F I0=1:1:(IOSL-$Y-2) W !
51 N DTOUT,DUOUT,DIRUT
52 S DIR(0)="E" D ^DIR K DIR S YSTOUT=$D(DTOUT),YSUOUT=$D(DUOUT),YSLFT=$D(DIRUT)
53 W @IOF Q
Note: See TracBrowser for help on using the repository browser.