DVBCAMCK ;ALB/GTS-557/THM-AMPUTATION STUMP EXAM ; 5/21/91 10:07 AM
;;2.7;AMIE;;Apr 10, 1995
;
S PG=1,HD91="Department of Veterans Affairs"
S 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,"# 1405 Worksheet" S HD7="AMPUTATION STUMPS",HD8="For "_HD7 W !?(40-($L(HD9)\2)),HD9,!?(40-($L(HD8)\2)),HD8,!!
W !,"Name: ",NAME,?45,"SSN: ",SSN,!?45,"C-number: ",CNUM,! I '$D(CMBN) W "Date of exam: ____________________",!!,"Place of exam: ___________________",!!,"Type of Exam: ",HD7
W !!!!,"Narrative:"
W ?13,"Amputations must be described in accordance with the following",!?13,"levels:",!!!!!!!?5,"1. ARM:",!!?8,"a. Disarticulation",!?8,"b. Amputation above insertion of deltoid muscle",!?8,"c. Amputation below insertion of deltoid muscle",!!
W ?5,"2. FOREARM:",!!?8,"a. Above radial insertion of pronator teres (function is best indicator",!?11,"of disability)",!?8,"b. Below insertion of pronator teres",!!
W ?5,"3. THIGH:",!!?8,"a. Disarticulation, with loss of extrinsic pelvic girdle muscles",!?8,"b. Amputation of upper, middle or lower third, always measured",!?11,"from perineum to the boney end of the stump with the claimant",!
W ?11,"recumbent and stump lying parallel with the other lower limb",!?8,"c. State whether this level permits satisfactory prosthesis",!!
W ?5,"4. LEG:",!!?8,"a. Give level of amputation and condition of stump",!?8,"b. State whether this level permits satisfactory prosthesis",!?8,"c. Describe any stump defects (e.g. painful neuroma or circulatory",!?11,"disturbance)",!!
I '$D(CMBN) D HD2 W "A. Objective findings:",!!!!!!!!!!
D:$D(CMBN) HD2 W $S($D(CMBN):"A. ",1:"B. "),"Specific evaluation information required by the rating board",!?4,"(if the information requested is included elsewhere, do not",!?4,"repeat here):",!!!!
W ?8,"1. Scar -",!!!!!?8,"2. Circulation -",!!!!!?8,"3. Skin -",!!!!!?8,"4. Muscles -",!!!!!?8,"5. Joint -",!!!!!
W ?8,"6. Bone -",!!!!!?8,"7. Length of stump (see Attachment A) -",!!!!! D:'$D(CMBN) HD2 W ?8,"8. Describe any limited motion or instability in",!?11,"the joint above the amputation site -",!!!!!!!!!!
D:$D(CMBN) HD2 W $S($D(CMBN):"B. ",1:"E. "),"Diagnostic/clinical test results:",!!!!!!!!!!,$S($D(CMBN):"C. ",1:"F. "),"Diagnosis:",!!!!!!!!!!?25,"Signature: ______________________________",!!?30,"Date: _________________________",!
K LN,LN1,LN2
ATTACH ;attachment A
S DVBAX="Attachment A" W @IOF,!?(IOM-$L(DVBAX)\2),DVBAX,!?(IOM-$L(HD7)\2),HD8,!!!
W "Length of stump",!!
W " 1. The thigh. The stump of an amputated thigh will be measured from the",!,"perineum, at the origin of the adductor tendons, to the bony end of the stump,",!,"with the claimant recumbent and the stump lying parallel with the other",!
W "lower limb. It is to be kept in mind that if the limb is abducted,",!,"flexed, rotated or adducted, its length will be altered. The effective length",!,"of a thigh stump is governed by its inside dimension. Measure length of",!
W "normal thigh if present and indicate whether amputation is in upper,",!,"middle, or lower third. When amputation is bilateral, estimate the same",!,"for a person of similar height.",!! D ^DVBCAMC1
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
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDVBCAMCK 3456 printed Dec 13, 2024@01:43:24 Page 2
DVBCAMCK ;ALB/GTS-557/THM-AMPUTATION STUMP EXAM ; 5/21/91 10:07 AM
+1 ;;2.7;AMIE;;Apr 10, 1995
+2 ;
+3 SET PG=1
SET HD91="Department of Veterans Affairs"
+4 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,"# 1405 Worksheet"
SET HD7="AMPUTATION STUMPS"
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,!
IF '$DATA(CMBN)
WRITE "Date of exam: ____________________",!!,"Place of exam: ___________________",!!,"Type of Exam: ",HD7
+3 WRITE !!!!,"Narrative:"
+4 WRITE ?13,"Amputations must be described in accordance with the following",!?13,"levels:",!!!!!!!?5,"1. ARM:",!!?8,"a. Disarticulation",!?8,"b. Amputation above insertion of deltoid muscle",!?8,"c. Amputation below insertion of deltoid muscle",
!!
+5 WRITE ?5,"2. FOREARM:",!!?8,"a. Above radial insertion of pronator teres (function is best indicator",!?11,"of disability)",!?8,"b. Below insertion of pronator teres",!!
+6 WRITE ?5,"3. THIGH:",!!?8,"a. Disarticulation, with loss of extrinsic pelvic girdle muscles",!?8,"b. Amputation of upper, middle or lower third, always measured",!?11,"from perineum to the boney end of the stump with the claimant",!
+7 WRITE ?11,"recumbent and stump lying parallel with the other lower limb",!?8,"c. State whether this level permits satisfactory prosthesis",!!
+8 WRITE ?5,"4. LEG:",!!?8,"a. Give level of amputation and condition of stump",!?8,"b. State whether this level permits satisfactory prosthesis",!?8,"c. Describe any stump defects (e.g. painful neuroma or circulatory",!?11,"disturbance)",!!
+9 IF '$DATA(CMBN)
DO HD2
WRITE "A. Objective findings:",!!!!!!!!!!
+10 if $DATA(CMBN)
DO HD2
WRITE $SELECT($DATA(CMBN):"A. ",1:"B. "),"Specific evaluation information required by the rating board",!?4,"(if the information requested is included elsewhere, do not",!?4,"repeat here):",!!!!
+11 WRITE ?8,"1. Scar -",!!!!!?8,"2. Circulation -",!!!!!?8,"3. Skin -",!!!!!?8,"4. Muscles -",!!!!!?8,"5. Joint -",!!!!!
+12 WRITE ?8,"6. Bone -",!!!!!?8,"7. Length of stump (see Attachment A) -",!!!!!
if '$DATA(CMBN)
DO HD2
WRITE ?8,"8. Describe any limited motion or instability in",!?11,"the joint above the amputation site -",!!!!!!!!!!
+13 if $DATA(CMBN)
DO HD2
WRITE $SELECT($DATA(CMBN):"B. ",1:"E. "),"Diagnostic/clinical test results:",!!!!!!!!!!,$SELECT($DATA(CMBN):"C. ",1:"F. "),"Diagnosis:",!!!!!!!!!!?25,"Signature: ______________________________",!!?30,"Date: _________________________",!
+14 KILL LN,LN1,LN2
ATTACH ;attachment A
+1 SET DVBAX="Attachment A"
WRITE @IOF,!?(IOM-$LENGTH(DVBAX)\2),DVBAX,!?(IOM-$LENGTH(HD7)\2),HD8,!!!
+2 WRITE "Length of stump",!!
+3 WRITE " 1. The thigh. The stump of an amputated thigh will be measured from the",!,"perineum, at the origin of the adductor tendons, to the bony end of the stump,",!,"with the claimant recumbent and the stump lying parallel with the other",!
+4 WRITE "lower limb. It is to be kept in mind that if the limb is abducted,",!,"flexed, rotated or adducted, its length will be altered. The effective length",!,"of a thigh stump is governed by its inside dimension. Measure length of",!
+5 WRITE "normal thigh if present and indicate whether amputation is in upper,",!,"middle, or lower third. When amputation is bilateral, estimate the same",!,"for a person of similar height.",!!
DO ^DVBCAMC1
+6 QUIT
+7 ;
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
