- FHASM2B ; HISC/REL - Target Weight - Geriatric ;6/1/89 16:17
- ;;5.5;DIETETICS;**8,21**;Jan 28, 2005;Build 6
- ; Target Weight for Geriatrics
- ; Journal of Amer. Medical Assn., Vol. 172, p. 658, by
- ; Master & Lasser. Used for people ages 65 to 94.
- ; Full source information:
- ; Tables of Average Weight and Height of Americans Aged 65 to 94 years
- ; Relationship Of Weight And Height To Survival
- ; By Arthur M. Master, M.D., Richard P. Lasser, M.D., and Gloria Beckman, B.A., New York
- ; J.A.M.A., Feb. 13, 1960 Vol. 172, No. 7 pages 658 to 662
- G1 S OFF=$S(SEX="M":H1-61,1:H1-45),A1=$P($T(GM1+OFF),";",$S(AGE<70:4,AGE<75:5,AGE<80:6,AGE<85:7,AGE<90:8,1:9))
- G:A1'["*" G2
- S A2=+A1,A1=$P($T(GM1+OFF),";",$S(A2=1:4,A2=2:5,A2=3:6,A2=4:7,1:8))
- W *7,!!,"No data for your Age Group, the ",$S(A2=1:"65-69",A2=2:"70-74",A2=3:"75-79",A2=4:"80-84",1:"85-89")," Group was used."
- G2 S W1=$P(A1,"-",1),W2=+$P(A1,"-",2),W3=+$J(W1+W2/2,0,0)
- S X1=$S(FHU'="M":W1,1:+$J(W1/2.2,0,1)),X2=$S(FHU'="M":W2,1:+$J(W2/2.2,0,1)),X3=$S(FHU'="M":W3,1:+$J(W3/2.2,0,1))
- G3 W !!,"Select Target Weight (",X1,"-",X2,") ",X3,$S(FHU'="M":" lb",1:" kg"),"// " R X:DTIME I '$T!(X["^") S IBW="^" Q
- I X="" S IBW=W3 Q
- D WGT^FHASM1 I Y<1 D WGP^FHASM1 G G3
- S IBW=+Y I IBW<W1!(IBW>W2) S METH="E"
- Q
- GM1 ;;61;128-156;125-153;123-151;3*;3*;3*
- ;;62;130-158;127-155;125-153;122-148;4*;4*
- ;;63;131-161;129-157;127-155;122-150;120-146;5*
- ;;64;134-164;131-161;129-157;124-152;122-148;5*
- ;;65;136-166;134-164;130-160;127-155;125-153;117-143
- ;;66;139-169;137-167;133-163;130-158;128-156;120-146
- ;;67;140-172;140-170;136-166;132-162;130-160;122-150
- ;;68;143-175;142-174;139-169;135-165;133-163;126-154
- ;;69;147-179;146-178;142-174;139-169;137-167;130-153
- ;;70;150-184;148-182;146-178;143-175;140-172;134-164
- ;;71;155-189;152-186;149-183;148-180;144-176;139-169
- ;;72;159-195;156-190;154-188;153-187;148-182;5*
- ;;73;164-200;160-196;158-192;3*;3*;3*
- GW1 ;;58;120-146;112-138;111-135;3*;3*;3*
- ;;59;121-147;114-140;112-136;100-122;99-121;5*
- ;;60;122-148;116-142;113-139;106-130;102-124;5*
- ;;61;123-151;118-144;115-141;109-133;104-128;5*
- ;;62;125-153;121-147;118-144;112-136;108-132;107-131
- ;;63;127-155;123-151;121-147;115-141;112-136;107-131
- ;;64;130-158;126-154;123-151;119-145;115-141;109-132
- ;;65;132-162;130-158;126-154;122-150;120-146;112-136
- ;;66;136-166;132-162;128-157;126-154;124-152;116-142
- ;;67;140-170;136-166;131-161;130-158;128-156;5*
- ;;68;143-175;140-170;2*;2*;2*;2*
- ;;69;148-180;144-176;2*;2*;2*;2*
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HFHASM2B 2532 printed Jan 18, 2025@02:48:04 Page 2
- FHASM2B ; HISC/REL - Target Weight - Geriatric ;6/1/89 16:17
- +1 ;;5.5;DIETETICS;**8,21**;Jan 28, 2005;Build 6
- +2 ; Target Weight for Geriatrics
- +3 ; Journal of Amer. Medical Assn., Vol. 172, p. 658, by
- +4 ; Master & Lasser. Used for people ages 65 to 94.
- +5 ; Full source information:
- +6 ; Tables of Average Weight and Height of Americans Aged 65 to 94 years
- +7 ; Relationship Of Weight And Height To Survival
- +8 ; By Arthur M. Master, M.D., Richard P. Lasser, M.D., and Gloria Beckman, B.A., New York
- +9 ; J.A.M.A., Feb. 13, 1960 Vol. 172, No. 7 pages 658 to 662
- G1 SET OFF=$SELECT(SEX="M":H1-61,1:H1-45)
- SET A1=$PIECE($TEXT(GM1+OFF),";",$SELECT(AGE<70:4,AGE<75:5,AGE<80:6,AGE<85:7,AGE<90:8,1:9))
- +1 if A1'["*"
- GOTO G2
- +2 SET A2=+A1
- SET A1=$PIECE($TEXT(GM1+OFF),";",$SELECT(A2=1:4,A2=2:5,A2=3:6,A2=4:7,1:8))
- +3 WRITE *7,!!,"No data for your Age Group, the ",$SELECT(A2=1:"65-69",A2=2:"70-74",A2=3:"75-79",A2=4:"80-84",1:"85-89")," Group was used."
- G2 SET W1=$PIECE(A1,"-",1)
- SET W2=+$PIECE(A1,"-",2)
- SET W3=+$JUSTIFY(W1+W2/2,0,0)
- +1 SET X1=$SELECT(FHU'="M":W1,1:+$JUSTIFY(W1/2.2,0,1))
- SET X2=$SELECT(FHU'="M":W2,1:+$JUSTIFY(W2/2.2,0,1))
- SET X3=$SELECT(FHU'="M":W3,1:+$JUSTIFY(W3/2.2,0,1))
- G3 WRITE !!,"Select Target Weight (",X1,"-",X2,") ",X3,$SELECT(FHU'="M":" lb",1:" kg"),"// "
- READ X:DTIME
- IF '$TEST!(X["^")
- SET IBW="^"
- QUIT
- +1 IF X=""
- SET IBW=W3
- QUIT
- +2 DO WGT^FHASM1
- IF Y<1
- DO WGP^FHASM1
- GOTO G3
- +3 SET IBW=+Y
- IF IBW<W1!(IBW>W2)
- SET METH="E"
- +4 QUIT
- GM1 ;;61;128-156;125-153;123-151;3*;3*;3*
- +1 ;;62;130-158;127-155;125-153;122-148;4*;4*
- +2 ;;63;131-161;129-157;127-155;122-150;120-146;5*
- +3 ;;64;134-164;131-161;129-157;124-152;122-148;5*
- +4 ;;65;136-166;134-164;130-160;127-155;125-153;117-143
- +5 ;;66;139-169;137-167;133-163;130-158;128-156;120-146
- +6 ;;67;140-172;140-170;136-166;132-162;130-160;122-150
- +7 ;;68;143-175;142-174;139-169;135-165;133-163;126-154
- +8 ;;69;147-179;146-178;142-174;139-169;137-167;130-153
- +9 ;;70;150-184;148-182;146-178;143-175;140-172;134-164
- +10 ;;71;155-189;152-186;149-183;148-180;144-176;139-169
- +11 ;;72;159-195;156-190;154-188;153-187;148-182;5*
- +12 ;;73;164-200;160-196;158-192;3*;3*;3*
- GW1 ;;58;120-146;112-138;111-135;3*;3*;3*
- +1 ;;59;121-147;114-140;112-136;100-122;99-121;5*
- +2 ;;60;122-148;116-142;113-139;106-130;102-124;5*
- +3 ;;61;123-151;118-144;115-141;109-133;104-128;5*
- +4 ;;62;125-153;121-147;118-144;112-136;108-132;107-131
- +5 ;;63;127-155;123-151;121-147;115-141;112-136;107-131
- +6 ;;64;130-158;126-154;123-151;119-145;115-141;109-132
- +7 ;;65;132-162;130-158;126-154;122-150;120-146;112-136
- +8 ;;66;136-166;132-162;128-157;126-154;124-152;116-142
- +9 ;;67;140-170;136-166;131-161;130-158;128-156;5*
- +10 ;;68;143-175;140-170;2*;2*;2*;2*
- +11 ;;69;148-180;144-176;2*;2*;2*;2*