Routine: DVBCHNCK

DVBCHNCK ;ALB/GTS-557/THM-HAND,THUMB, FINGER ; 12/10/90  1:39 PM

 ;;2.7;AMIE;;Apr 10, 1995

 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,"# 1420 Worksheet" S HD7="HAND, THUMB, AND FINGERS",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:"

 W ?13,"The hand should be evaluated as a unit intricately adapted",!?13,"for grasping, pushing, pulling, twisting, probing, writing,",!?13,"touching, and expression.  Do not designate fingers numerically;",!?13,"use thumb, index, "

 W "middle, ring and little.  Specify which hand is",!?13,"involved and state whether the individual is right or left-handed."

 W !?13,"Designate the joints as wrist, MP (metacarpophalangeal), PIP,",!?13,"(proximal interphalangeal) or DIP (distal interphalangeal).",!?13,"Designate phalanges as proximal, middle or distal.",!!!

 I '$D(CMBN) W "A. Medical history:",!!!!!!!!!!,"B. Subjective complaints:",!!!!!!!!!!,"C. Objective findings:",! D HD2 W !!

 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):",!!!?8,"1. Anatomical defects -",!!!!!!!

 W ?8,"2. Functional defects (motion of thumb and fingers should be described",!?11,"as to how near, in inches, the tip of thumb can approximate the",!?11,"fingers, or how near the tips of fingers can "

 W "approximate the median",!?11,"transverse fold of the palm.) -",!!!!!!!!!!?8,"3. Grasping objects (strength and dexterity) -",!!!!!!!!!!

 D:$D(CMBN) HD2 W $S($D(CMBN):"B. ",1:"E. "),"Diagnostic/clinical test results:",!!!!!!!!!! D:'$D(CMBN) HD2

 W $S($D(CMBN):"C. ",1:"F. "),"Diagnosis:",!!!!!!!!!?25,"Signature: ______________________________",!!?30,"Date: _________________________",!

 K LN,LN1,LN2

HD2 S PG=PG+1 W @IOF,!,"Page: ",PG,!!,"Compensation and Pension Exam for ",HD7,!,"for ",NAME,!!!

SETIOF ;  ** Set device control var's

 D HOME^%ZIS

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDVBCHNCK   2307     printed  Apr 09, 2024@20:48:01                                                                                                                                                                                                    Page 2

DVBCHNCK  ;ALB/GTS-557/THM-HAND,THUMB, FINGER ; 12/10/90  1:39 PM

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

 +2       ;

 +3        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,"# 1420 Worksheet"

           SET HD7="HAND, THUMB, AND FINGERS"

           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        WRITE ?13,"The hand should be evaluated as a unit intricately adapted",!?13,"for grasping, pushing, pulling, twisting, probing, writing,",!?13,"touching, and expression.  Do not designate fingers numerically;",!?13,"use thumb, index, "

 +5        WRITE "middle, ring and little.  Specify which hand is",!?13,"involved and state whether the individual is right or left-handed."

 +6        WRITE !?13,"Designate the joints as wrist, MP (metacarpophalangeal), PIP,",!?13,"(proximal interphalangeal) or DIP (distal interphalangeal).",!?13,"Designate phalanges as proximal, middle or distal.",!!!

 +7        IF '$DATA(CMBN)

               WRITE "A. Medical history:",!!!!!!!!!!,"B. Subjective complaints:",!!!!!!!!!!,"C. Objective findings:",!

               DO HD2

               WRITE !!

 +8        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):",!!!?8,"1. Anatomical defects -",!!!!!!!

 +9        WRITE ?8,"2. Functional defects (motion of thumb and fingers should be described",!?11,"as to how near, in inches, the tip of thumb can approximate the",!?11,"fingers, or how near the tips of fingers can "

 +10       WRITE "approximate the median",!?11,"transverse fold of the palm.) -",!!!!!!!!!!?8,"3. Grasping objects (strength and dexterity) -",!!!!!!!!!!

 +11       if $DATA(CMBN)

               DO HD2

           WRITE $SELECT($DATA(CMBN):"B. ",1:"E. "),"Diagnostic/clinical test results:",!!!!!!!!!!

           if '$DATA(CMBN)

               DO HD2

 +12       WRITE $SELECT($DATA(CMBN):"C. ",1:"F. "),"Diagnosis:",!!!!!!!!!?25,"Signature: ______________________________",!!?30,"Date: _________________________",!

 +13       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

DVBCHNCK.m