DVBCNLCK ;ALB/GTS-557/THM-NOT ELSEWHERE CLASSIFIED EXAM ; 11/9/90 1:16 PM
;;2.7;AMIE;;Apr 10, 1995
;Note: This is a generic exam format for the
; 'Not Elsewhere Classified' exams.
;
XX S MX="EXM" F I=1:1 S MY=$T(@MX+I) Q:MY["$END"!(MY="") S TNAM=$P(TNAM,"(NEC)",1) S X=$L(TNAM) S:$E(TNAM,X,X)=" " TNAM=$E(TNAM,1,X-1) Q:MY[TNAM
Q:MY="" S MY=$P(MY,";;",2),NARR=$P(MY,U,2),PREF=$P(MY,U,3),WKSNUM=$P(MY,U,4),DXCMT=$P(MY,U,5)
S PG=1,HD91="Department of Veterans Affairs",HD9=$S($D(CMBN):"Abbreviated",1:"Full")_" Exam Worksheet"
EN D:'$D(IOF) SETIOF W:(IOST?1"C-".E) @IOF
W !?25,HD91,!?22,"Compensation and Pension Examination",! W ?33,"# "_WKSNUM_" Worksheet" S HD7=TNAM_", NOT ELSEWHERE CLASSIFIED",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="TXT" F I=1:1 S LY=$T(@LX+I) Q:LY["$END" D:LY["{}" FMT W ?13,$P(LY,";;",2),!
W !! I '$D(CMBN) W "A. Medical history:",!!!!!!!!!!,"B. Subjective complaints:",!!!!!!!!!!,"C. Objective findings:" D HD2
W $S($D(CMBN):"A. ",1:"D. "),"Specific evaluation information required by the rating board",!?4,"(if the information requested is included elsewhere, do not",!?4,"repeat here):",!!!
W ?5,"1) How does the residual disability affect the earning capacity",!?9,"of the veteran in job performance?",!!!!!!?5,"2) How does the residual disability affect normal everyday activities?",!!!!!!
W ?5,"3) If the disability has constant activity, are there",!?9,"any periods of remission during the year?",!!!!!!
W ?5,"4) If there are acute exacerbations, what effects are there on",!?9,"everyday life?",!!!!!!
D:$D(CMBN) HD2 W $S($D(CMBN):"B. ",1:"E. "),"Diagnostic/clinical test results:" W:DXCMT]"" !!?5,DXCMT W !!!!!!!!!!!!!!
D:'$D(CMBN) HD2 W $S($D(CMBN):"C. ",1:"F. "),"Diagnosis:",!!!!!!!!!!!!?25,"Signature: ______________________________",!!?30,"Date: _________________________",!
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
;
TXT ;
;;This exam is to handle the balance of currently recognized
;;{} disorders and to allow for new disorders not yet
;;classified for V. A. compensation evaluations. The severity
;;of a condition is based upon the residual disability. If
;;there is a disease process that affects multiple systems or
;;extremeties, please evaluate each separately.
;;$END
;
FMT S LZ=$P(LY,"{}",1),LY=$P(LY,"{}",2),LY=LZ_NARR_LY
Q
;
EXM ;;$EXAMS
;;MENTAL^mental^None^0905^(Including psychological testing if deemed necessary)
;;CARDIOVASCULAR^cardiovascular^None^0105
;;DIGESTIVE^digestive^None^0310
;;ENDOCRINE DISORDERS^endocrine^None^0415
;;GENITOURINARY^genitourinary^None^0610
;;GYNECOLOGICAL^gynecological^None^0710
;;NEPHROLOGICAL^nephrological^None^1115
;;NEUROLOGICAL^neurological^Chapter 13^1230
;;ORGANS OF SENSE^organs of sense^None^1320
;;MUSCULOSKELETAL^musculoskeletal^None^1455
;;PULMONARY^pulmonary^None^1515
;;SKIN^skin^None^1610
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDVBCNLCK 3249 printed Dec 13, 2024@01:45:01 Page 2
DVBCNLCK ;ALB/GTS-557/THM-NOT ELSEWHERE CLASSIFIED EXAM ; 11/9/90 1:16 PM
+1 ;;2.7;AMIE;;Apr 10, 1995
+2 ;Note: This is a generic exam format for the
+3 ; 'Not Elsewhere Classified' exams.
+4 ;
XX SET MX="EXM"
FOR I=1:1
SET MY=$TEXT(@MX+I)
if MY["$END"!(MY="")
QUIT
SET TNAM=$PIECE(TNAM,"(NEC)",1)
SET X=$LENGTH(TNAM)
if $EXTRACT(TNAM,X,X)=" "
SET TNAM=$EXTRACT(TNAM,1,X-1)
if MY[TNAM
QUIT
+1 if MY=""
QUIT
SET MY=$PIECE(MY,";;",2)
SET NARR=$PIECE(MY,U,2)
SET PREF=$PIECE(MY,U,3)
SET WKSNUM=$PIECE(MY,U,4)
SET DXCMT=$PIECE(MY,U,5)
+2 SET PG=1
SET HD91="Department of Veterans Affairs"
SET HD9=$SELECT($DATA(CMBN):"Abbreviated",1:"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,"# "_WKSNUM_" Worksheet"
SET HD7=TNAM_", NOT ELSEWHERE CLASSIFIED"
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="TXT"
FOR I=1:1
SET LY=$TEXT(@LX+I)
if LY["$END"
QUIT
if LY["{}"
DO FMT
WRITE ?13,$PIECE(LY,";;",2),!
+5 WRITE !!
IF '$DATA(CMBN)
WRITE "A. Medical history:",!!!!!!!!!!,"B. Subjective complaints:",!!!!!!!!!!,"C. Objective findings:"
DO HD2
+6 WRITE $SELECT($DATA(CMBN):"A. ",1:"D. "),"Specific evaluation information required by the rating board",!?4,"(if the information requested is included elsewhere, do not",!?4,"repeat here):",!!!
+7 WRITE ?5,"1) How does the residual disability affect the earning capacity",!?9,"of the veteran in job performance?",!!!!!!?5,"2) How does the residual disability affect normal everyday activities?",!!!!!!
+8 WRITE ?5,"3) If the disability has constant activity, are there",!?9,"any periods of remission during the year?",!!!!!!
+9 WRITE ?5,"4) If there are acute exacerbations, what effects are there on",!?9,"everyday life?",!!!!!!
+10 if $DATA(CMBN)
DO HD2
WRITE $SELECT($DATA(CMBN):"B. ",1:"E. "),"Diagnostic/clinical test results:"
if DXCMT]""
WRITE !!?5,DXCMT
WRITE !!!!!!!!!!!!!!
+11 if '$DATA(CMBN)
DO HD2
WRITE $SELECT($DATA(CMBN):"C. ",1:"F. "),"Diagnosis:",!!!!!!!!!!!!?25,"Signature: ______________________________",!!?30,"Date: _________________________",!
+12 KILL LN,LN1,LN2
+13 QUIT
+14 ;
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 ;
TXT ;
+1 ;;This exam is to handle the balance of currently recognized
+2 ;;{} disorders and to allow for new disorders not yet
+3 ;;classified for V. A. compensation evaluations. The severity
+4 ;;of a condition is based upon the residual disability. If
+5 ;;there is a disease process that affects multiple systems or
+6 ;;extremeties, please evaluate each separately.
+7 ;;$END
+8 ;
FMT SET LZ=$PIECE(LY,"{}",1)
SET LY=$PIECE(LY,"{}",2)
SET LY=LZ_NARR_LY
+1 QUIT
+2 ;
EXM ;;$EXAMS
+1 ;;MENTAL^mental^None^0905^(Including psychological testing if deemed necessary)
+2 ;;CARDIOVASCULAR^cardiovascular^None^0105
+3 ;;DIGESTIVE^digestive^None^0310
+4 ;;ENDOCRINE DISORDERS^endocrine^None^0415
+5 ;;GENITOURINARY^genitourinary^None^0610
+6 ;;GYNECOLOGICAL^gynecological^None^0710
+7 ;;NEPHROLOGICAL^nephrological^None^1115
+8 ;;NEUROLOGICAL^neurological^Chapter 13^1230
+9 ;;ORGANS OF SENSE^organs of sense^None^1320
+10 ;;MUSCULOSKELETAL^musculoskeletal^None^1455
+11 ;;PULMONARY^pulmonary^None^1515
+12 ;;SKIN^skin^None^1610
