DVBCPTCK ;ALB/GTS-557/THM-POST-TRAUMATIC STRESS DISORDER ; 4/29/91 12:09 PM
;;2.7;AMIE;;Apr 10, 1995
;
S PG=1,HD91="Department of Veterans Affairs",HD9="Full Exam Worksheet"
EN D:'$D(IOF) SETIOF W:(IOST?1"C-".E) @IOF
W !?25,HD91,!?22,"Compensation and Pension Examination",! W ?33,"# 0910 Worksheet" S HD7="POST-TRAUMATIC STRESS DISORDER",HD8="For "_HD7 W !?(40-($L(HD9)\2)),HD9,!?(40-($L(HD8)\2)),HD8,!!!
W !,"Name: ",NAME,?45,"SSN: ",SSN,!?45,"C-number: ",CNUM,!,"Date of exam: ____________________",!!,"Place of exam: ___________________",!!,"Type of Exam: ",HD7
W !!!!,"Narrative: "
S LX="TXT2" F I=1:1 S LY=$T(@LX+I) Q:LY["END" W $P(LY,";;",2),!
W !!,"A. Medical and occupational history:",!!
W ?8,"1. Immediate pre-military events and details of training -",!!!!!!!!!?8,"2. Events in the war zone -",!!!!!!!!!?8,"3. Post-active service events (to present) -",!!!!!!!!!
W ?8,"4. Employment history prior to and following",!?11,"active service -" D HD2
W "B. Subjective complaints (include the veteran's history of unusually ",!?27,"traumatic stressors)",!!!!!!!!!!!!!!!!!! W "C. Objective findings:",! D HD2
;W !!,"1) Describe the duration of the disturbance from the symptoms shown above.",!! D HD2
W "D. Specific evaluation information required by the rating board",!?4,"(if the information requested is included elsewhere, do not",!?4,"repeat here):",!!!
S LX="TXT1" F I=1:1 S LY=$T(@LX+I) Q:LY["END" W $P(LY,";;",2),!
W !!!!!!!!!!!!,"E. Diagnostic tests (including psychological testing if deemed necessary):",!!!!!!!!!!,"F. Diagnosis:",!!!!!!!!!!!!?25,"Signature: ______________________________",!!?30,"Date: _________________________",!
D EN^DVBCPTS1 K LN,LN1,LN2
Q
;
HD2 S PG=PG+1 W @IOF,!,"Page: ",PG,!!,"Compensation and Pension Exam for ",HD7,!,"for ",NAME,!!!
Q
;
SETIOF ; ** Set device control var's
D HOME^%ZIS
Q
;
TXT1 ;
;; 1. State if the veteran is capable of managing his/her benefit
;; payments in the individual's own best interests without restriction
;; (a physical disability which prevents the veteran from attending
;; to financial matters in person is not a proper basis for a finding
;; of incompetency unless the veteran is, by reason of that disability,
;; incapable of directing someone else in handling the individual's
;; his financial affairs) -
;;END
;
TXT2 ;
;;No diagnosis of PTSD can be adequately documented or ruled
;; out without obtaining a detailed military history. This
;; requirement means that interviewing of cases of PTSD will
;; often require more time than for other disorders. The
;; history should be obtained for the three categories under
;; the medical history. Subjective complaints and objective
;; findings should be related to the diagnosis criteria. PTSD
;; must be due to military service.
;;END
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDVBCPTCK 2974 printed Nov 22, 2024@16:55:33 Page 2
DVBCPTCK ;ALB/GTS-557/THM-POST-TRAUMATIC STRESS DISORDER ; 4/29/91 12:09 PM
+1 ;;2.7;AMIE;;Apr 10, 1995
+2 ;
+3 SET PG=1
SET HD91="Department of Veterans Affairs"
SET HD9="Full Exam Worksheet"
EN if '$DATA(IOF)
DO SETIOF
if (IOST?1"C-".E)
WRITE @IOF
+1 WRITE !?25,HD91,!?22,"Compensation and Pension Examination",!
WRITE ?33,"# 0910 Worksheet"
SET HD7="POST-TRAUMATIC STRESS DISORDER"
SET HD8="For "_HD7
WRITE !?(40-($LENGTH(HD9)\2)),HD9,!?(40-($LENGTH(HD8)\2)),HD8,!!!
+2 WRITE !,"Name: ",NAME,?45,"SSN: ",SSN,!?45,"C-number: ",CNUM,!,"Date of exam: ____________________",!!,"Place of exam: ___________________",!!,"Type of Exam: ",HD7
+3 WRITE !!!!,"Narrative: "
+4 SET LX="TXT2"
FOR I=1:1
SET LY=$TEXT(@LX+I)
if LY["END"
QUIT
WRITE $PIECE(LY,";;",2),!
+5 WRITE !!,"A. Medical and occupational history:",!!
+6 WRITE ?8,"1. Immediate pre-military events and details of training -",!!!!!!!!!?8,"2. Events in the war zone -",!!!!!!!!!?8,"3. Post-active service events (to present) -",!!!!!!!!!
+7 WRITE ?8,"4. Employment history prior to and following",!?11,"active service -"
DO HD2
+8 WRITE "B. Subjective complaints (include the veteran's history of unusually ",!?27,"traumatic stressors)",!!!!!!!!!!!!!!!!!!
WRITE "C. Objective findings:",!
DO HD2
+9 ;W !!,"1) Describe the duration of the disturbance from the symptoms shown above.",!! D HD2
+10 WRITE "D. Specific evaluation information required by the rating board",!?4,"(if the information requested is included elsewhere, do not",!?4,"repeat here):",!!!
+11 SET LX="TXT1"
FOR I=1:1
SET LY=$TEXT(@LX+I)
if LY["END"
QUIT
WRITE $PIECE(LY,";;",2),!
+12 WRITE !!!!!!!!!!!!,"E. Diagnostic tests (including psychological testing if deemed necessary):",!!!!!!!!!!,"F. Diagnosis:",!!!!!!!!!!!!?25,"Signature: ______________________________",!!?30,"Date: _________________________",!
+13 DO EN^DVBCPTS1
KILL LN,LN1,LN2
+14 QUIT
+15 ;
HD2 SET PG=PG+1
WRITE @IOF,!,"Page: ",PG,!!,"Compensation and Pension Exam for ",HD7,!,"for ",NAME,!!!
+1 QUIT
+2 ;
SETIOF ; ** Set device control var's
+1 DO HOME^%ZIS
+2 QUIT
+3 ;
TXT1 ;
+1 ;; 1. State if the veteran is capable of managing his/her benefit
+2 ;; payments in the individual's own best interests without restriction
+3 ;; (a physical disability which prevents the veteran from attending
+4 ;; to financial matters in person is not a proper basis for a finding
+5 ;; of incompetency unless the veteran is, by reason of that disability,
+6 ;; incapable of directing someone else in handling the individual's
+7 ;; his financial affairs) -
+8 ;;END
+9 ;
TXT2 ;
+1 ;;No diagnosis of PTSD can be adequately documented or ruled
+2 ;; out without obtaining a detailed military history. This
+3 ;; requirement means that interviewing of cases of PTSD will
+4 ;; often require more time than for other disorders. The
+5 ;; history should be obtained for the three categories under
+6 ;; the medical history. Subjective complaints and objective
+7 ;; findings should be related to the diagnosis criteria. PTSD
+8 ;; must be due to military service.
+9 ;;END
