DVBCPTS1.m

DVBCPTS1 ;ALB ISC/THM-ATTACHMENT A FOR POST TRAUMATIC STRESS DISORDER ; 12/27/90  1:06 PM

 ;;2.7;AMIE;;Apr 10, 1995

EN S PG=0,DVBAX="Attachment A for Post-Traumatic Stress Disorder" W @IOF,!?(IOM-$L(DVBAX)\2),DVBAX,! S DVBAX="DSM-III-R Diagnostic Criteria for PTSD" W ?(IOM-$L(DVBAX)\2),DVBAX,!!!

 F I=0:1 S LY=$T(TXT+I) Q:LY["END"  W $P(LY,";;",2),!

 D EN1 G Q

 ;

EN1 F I=0:1 S LY=$T(SECTB+I) Q:LY["END"!(LY="")  W $P(LY,";;",2),! I $Y>55 D HD2^DVBCPTCK

Q K I,LY,DVBAX Q

 ;

TXT ;;A. The veteran has experienced an event that is outside the range of usual

 ;;human experience and that would be markedly distressing to almost anyone,

 ;;e.g., serious threat to one's life or physical integrity; serious threat

 ;;to one's children, spouse, or other close relatives and friends; sudden

 ;;destruction of one's home or community; seeing another person who has

 ;;recently been or being, seriously injured or killed as the result of an

 ;;accident or physical violence.

 ;;END

 ;;

SECTB ;;

 ;;B. The traumatic event is persistently re-experienced in at least one of the

 ;;   following ways:

 ;;

 ;;

 ;;    1. recurrent and intrusive distressing recollections of the event

 ;;

 ;;    2. recurrent distressing dreams of the event

 ;;

 ;;    3. sudden acting or feeling as if the traumatic event were recurring

 ;;       (includes a sense of reliving the experience, illusions, hallucinations

 ;;       and dissociative [flashback] episodes, even those that occur upon waking

 ;;       or when intoxicated)

 ;;

 ;;    4. intense psychological distress at exposure to events that symbolize or

 ;;       resemble an aspect of the traumatic event, including anniversaries of

 ;;       the trauma.

 ;;

 ;;C.  Persistent avoidance of stimuli associated with the trauma or numbing of

 ;;    general responsiveness (not present before the trauma), as indicated by

 ;;    at least three of the following:

 ;;

 ;;

 ;;    1. efforts to avoid thoughts or feelings associated with the trauma

 ;;

 ;;    2. efforts to avoid activities or situations that arouse recollections

 ;;       of the trauma

 ;;

 ;;    3. inability to recall an important aspect of the trauma (psychogenic

 ;;       amnesia)

 ;;

 ;;    4. markedly diminished interest in significant activities

 ;;

 ;;    5. feeling of detachment or estrangement from others

 ;;

 ;;    6. restricted range of affect, e.g., unable to have love feelings

 ;;

 ;;    7. sense of a foreshortened future, e.g., does not expect to hava a

 ;;       career, marriage, or children or a long life.

 ;;

 ;;

 ;;

 ;;

 ;;D.  Persistent symptoms of increased arousal (not present before the trauma),

 ;;    as indicated by at least two of the following:

 ;;

 ;;

 ;;    1. difficulty falling or staying asleep

 ;;

 ;;    2. irritability or outbursts of anger

 ;;

 ;;    3. difficulty concentrating

 ;;

 ;;    4. hypervigilance

 ;;

 ;;    5. exaggerated startle response

 ;;

 ;;    6. physiologic reactivity upon exposure to events that symbolize or

 ;;       resemble an aspect of the traumatic event (e.g., a woman who was

 ;;       raped in an elevator breaks out in a sweat when entering any elevator)

 ;;END

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---DVBCPTS1   3212     printed  Mar 13, 2025@20:50:04                                                                                                                                                                                                    Page 2

DVBCPTS1  ;ALB ISC/THM-ATTACHMENT A FOR POST TRAUMATIC STRESS DISORDER ; 12/27/90  1:06 PM

 +1       ;;2.7;AMIE;;Apr 10, 1995

EN         SET PG=0

           SET DVBAX="Attachment A for Post-Traumatic Stress Disorder"

           WRITE @IOF,!?(IOM-$LENGTH(DVBAX)\2),DVBAX,!

           SET DVBAX="DSM-III-R Diagnostic Criteria for PTSD"

           WRITE ?(IOM-$LENGTH(DVBAX)\2),DVBAX,!!!

 +1        FOR I=0:1

               SET LY=$TEXT(TXT+I)

               if LY["END"

                   QUIT 

               WRITE $PIECE(LY,";;",2),!

 +2        DO EN1

           GOTO Q

 +3       ;

EN1        FOR I=0:1

               SET LY=$TEXT(SECTB+I)

               if LY["END"!(LY="")

                   QUIT 

               WRITE $PIECE(LY,";;",2),!

               IF $Y>55

                   DO HD2^DVBCPTCK

Q          KILL I,LY,DVBAX

           QUIT 

 +1       ;

TXT       ;;A. The veteran has experienced an event that is outside the range of usual

 +1       ;;human experience and that would be markedly distressing to almost anyone,

 +2       ;;e.g., serious threat to one's life or physical integrity; serious threat

 +3       ;;to one's children, spouse, or other close relatives and friends; sudden

 +4       ;;destruction of one's home or community; seeing another person who has

 +5       ;;recently been or being, seriously injured or killed as the result of an

 +6       ;;accident or physical violence.

 +7       ;;END

 +8       ;;

SECTB     ;;

 +1       ;;B. The traumatic event is persistently re-experienced in at least one of the

 +2       ;;   following ways:

 +3       ;;

 +4       ;;

 +5       ;;    1. recurrent and intrusive distressing recollections of the event

 +6       ;;

 +7       ;;    2. recurrent distressing dreams of the event

 +8       ;;

 +9       ;;    3. sudden acting or feeling as if the traumatic event were recurring

 +10      ;;       (includes a sense of reliving the experience, illusions, hallucinations

 +11      ;;       and dissociative [flashback] episodes, even those that occur upon waking

 +12      ;;       or when intoxicated)

 +13      ;;

 +14      ;;    4. intense psychological distress at exposure to events that symbolize or

 +15      ;;       resemble an aspect of the traumatic event, including anniversaries of

 +16      ;;       the trauma.

 +17      ;;

 +18      ;;C.  Persistent avoidance of stimuli associated with the trauma or numbing of

 +19      ;;    general responsiveness (not present before the trauma), as indicated by

 +20      ;;    at least three of the following:

 +21      ;;

 +22      ;;

 +23      ;;    1. efforts to avoid thoughts or feelings associated with the trauma

 +24      ;;

 +25      ;;    2. efforts to avoid activities or situations that arouse recollections

 +26      ;;       of the trauma

 +27      ;;

 +28      ;;    3. inability to recall an important aspect of the trauma (psychogenic

 +29      ;;       amnesia)

 +30      ;;

 +31      ;;    4. markedly diminished interest in significant activities

 +32      ;;

 +33      ;;    5. feeling of detachment or estrangement from others

 +34      ;;

 +35      ;;    6. restricted range of affect, e.g., unable to have love feelings

 +36      ;;

 +37      ;;    7. sense of a foreshortened future, e.g., does not expect to hava a

 +38      ;;       career, marriage, or children or a long life.

 +39      ;;

 +40      ;;

 +41      ;;

 +42      ;;

 +43      ;;D.  Persistent symptoms of increased arousal (not present before the trauma),

 +44      ;;    as indicated by at least two of the following:

 +45      ;;

 +46      ;;

 +47      ;;    1. difficulty falling or staying asleep

 +48      ;;

 +49      ;;    2. irritability or outbursts of anger

 +50      ;;

 +51      ;;    3. difficulty concentrating

 +52      ;;

 +53      ;;    4. hypervigilance

 +54      ;;

 +55      ;;    5. exaggerated startle response

 +56      ;;

 +57      ;;    6. physiologic reactivity upon exposure to events that symbolize or

 +58      ;;       resemble an aspect of the traumatic event (e.g., a woman who was

 +59      ;;       raped in an elevator breaks out in a sweat when entering any elevator)

 +60      ;;END