source: WorldVistAEHR/trunk/r/MENTAL_HEALTH-YS-RUCL-YI-YT/YTPCL.m@ 789

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

revised back to 6/30/08 version

File size: 1.4 KB
Line 
1YTPCL ;ALB/ASF TEST-PTST CHECKLISTS ;7/19/00 11:11
2 ;;5.01;MENTAL HEALTH;**66**;Dec 30, 1994
3 ;
4 ;Reference to ^DIR supported by IA #10026
5 ;
6SCOR ;
7 S YSTY="W*",YSNOITEM="DONE^YTPCL"
8 D ^YTREPT
9 S X=^YTD(601.2,YSDFN,1,YSET,1,YSED,1)
10 S (B,C,D)=0
11 F I=1:1:5 S Y=$E(X,I) S:(Y=3)!(Y=4)!(Y=5) B=B+1
12 F I=6:1:12 S Y=$E(X,I) S:(Y=3)!(Y=4)!(Y=5) C=C+1
13 F I=13:1:17 S Y=$E(X,I) S:(Y=3)!(Y=4)!(Y=5) D=D+1
14ZZ W !!,"DSM-IV PTSD Criteria B ",$S(B>0:"IS met",1:"is NOT met")
15 W !,"DSM-IV PTSD Criteria C ",$S(C>2:"IS met",1:"is NOT met")
16 W !,"DSM-IV PTSD Criteria D ",$S(D>1:"IS met",1:"is NOT met")
17 I (B>0)&(C>2)&(D>1) W !!,"*** PTSD Diagnosis IS SUGGESTED ***"
18 W !!
19 I IOST?1"C".E W ! S DIR(0)="E" D ^DIR Q:Y'=1
20 D IR^YTREPT
21 Q
22SPTSD ;SCREENING REPORT
23 D DTA^YTREPT
24 W !!,?7,"Post Traumatic Stress Disorder Screen",!!
25 S X=^YTD(601.2,YSDFN,1,YSET,1,YSED,1)
26 W !,"Patient Reports "_$S($E(X,1)="Y":"HAVING",1:"NO")_" traumatic experiences.",!
27 W:$E(X,2)="Y" !,"In the past month, the patient has been bothered by repeated, disturbing",!,"memories, thoughts, or images of one or more of the stressful events."
28 W:$E(X,3)="Y" !,"In the past month, has felt distant or cut off from other people."
29 W:$E(X,4)="Y" !,"Has been 'super alert' or watchful or on guard in the past month."
30 W:$E(X,2,9)?.E1"Y".E !!,"Please refer to a mental health professional for further evaluation",!,"and treatment of probable PTSD"
31 I IOST?1"C".E W ! S DIR(0)="E" D ^DIR Q:Y'=1
32DONE QUIT
Note: See TracBrowser for help on using the repository browser.