| [623] | 1 | YTPCL ;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 | ;
|
|---|
| 6 | SCOR ;
|
|---|
| 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
|
|---|
| 14 | ZZ 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
|
|---|
| 22 | SPTSD ;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
|
|---|
| 32 | DONE QUIT
|
|---|
