source: FOIAVistA/trunk/r/DIETETICS-FH/FHASM2C.m@ 1334

FHASM2C ; HISC/REL - Target Weight - Pediatric ;6/2/89  15:15
 ;;5.5;DIETETICS;**8**;Jan 28, 2005;Build 28
 ;;Normalized NCHS/CDC Anthropometric Reference
 S X1=+$J(AGE*12,0,0) I X1'>0!(X1>119) S IBW="" Q
P1 S X=$P($T(WT+X1),";;",2) S:SEX="F" X=$P(X," ",4,6) S X3=$P(X," ",1),A1=$P(X," ",2),A2=$P(X," ",3)
 S X1=+$J(-.524*A1+X3,0,1),X2=+$J(.524*A2+X3,0,1)
 S W1=+$J(X1*2.2,0,0),W2=+$J(X2*2.2,0,0),W3=+$J(X3*2.2,0,0)
 I FHU'="M" S X1=W1,X2=W2,X3=W3
P3 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 P3
 S IBW=+Y I IBW<W1!(IBW>W2) S METH="E"
 Q
WT ;;3.3 .4 .5 3.2 .5 .4
 ;;4.3 .7 .7 4 .6 .5
 ;;5.2 .9 .8 4.7 .7 .7
 ;;6 1 .9 5.4 .7 .8
 ;;6.7 1 .9 6 .8 .8
 ;;7.3 1 .9 6.7 .8 .9
 ;;7.8 1 1 7.2 .9 .9
 ;;8.3 1 1 7.7 .9 .9
 ;;8.8 1 1 8.2 .9 1
 ;;9.2 1 1 8.6 1 1
 ;;9.5 1 1.1 8.9 1 1
 ;;9.9 1 1.1 9.2 1 1
 ;;10.2 1 1.1 9.5 1 1
 ;;10.4 1 1.1 9.8 1.1 1.1
 ;;10.7 1.1 1.2 10 1.1 1.1
 ;;10.9 1.1 1.2 10.2 1.1 1.1
 ;;11.1 1.1 1.2 10.4 1.1 1.1
 ;;11.3 1.1 1.2 10.6 1.2 1.1
 ;;11.5 1.2 1.2 10.8 1.2 1.1
 ;;11.7 1.2 1.2 11 1.2 1.2
 ;;11.8 1.2 1.3 11.2 1.2 1.2
 ;;12 1.3 1.3 11.4 1.2 1.2
 ;;12.2 1.3 1.3 11.5 1.2 1.2
 ;;12.4 1.3 1.3 11.7 1.2 1.3
 ;;12.3 1.1 1.7 11.8 1.2 1.4
 ;;12.5 1.2 1.7 12 1.2 1.5
 ;;12.7 1.2 1.7 12.2 1.2 1.5
 ;;12.9 1.3 1.7 12.4 1.3 1.6
 ;;13.1 1.3 1.7 12.6 1.3 1.6
 ;;13.3 1.3 1.7 12.8 1.3 1.7
 ;;13.5 1.4 1.7 13 1.3 1.7
 ;;13.7 1.4 1.7 13.2 1.4 1.7
 ;;13.9 1.5 1.8 13.4 1.4 1.8
 ;;14.1 1.5 1.8 13.6 1.4 1.8
 ;;14.3 1.5 1.8 13.8 1.4 1.9
 ;;14.4 1.6 1.8 13.9 1.5 1.9
 ;;14.6 1.6 1.8 14.1 1.5 2
 ;;14.8 1.6 1.8 14.3 1.5 2
 ;;15 1.7 1.8 14.4 1.5 2
 ;;15.2 1.7 1.9 14.6 1.5 2.1
 ;;15.3 1.7 1.9 14.8 1.6 2.1
 ;;15.5 1.7 1.9 14.9 1.6 2.1
 ;;15.7 1.8 1.9 15.1 1.6 2.2
 ;;15.8 1.8 1.9 15.2 1.6 2.2
 ;;16 1.8 2 15.4 1.6 2.2
 ;;16.2 1.8 2 15.5 1.6 2.3
 ;;16.4 1.9 2 15.7 1.7 2.3
 ;;16.5 1.9 2 15.8 1.7 2.3
 ;;16.7 1.9 2 16 1.7 2.4
 ;;16.9 1.9 2.1 16.1 1.7 2.4
 ;;17 1.9 2.1 16.2 1.7 2.4
 ;;17.2 2 2.1 16.4 1.8 2.5
 ;;17.4 2 2.2 16.5 1.8 2.5
 ;;17.5 2 2.2 16.7 1.8 2.5
 ;;17.7 2 2.2 16.8 1.8 2.6
 ;;17.9 2 2.2 17 1.8 2.6
 ;;18 2 2.3 17.1 1.8 2.6
 ;;18.2 2.1 2.3 17.2 1.9 2.7
 ;;18.3 2.1 2.3 17.4 1.9 2.7
 ;;18.5 2.1 2.4 17.5 1.9 2.7
 ;;18.7 2.1 2.4 17.7 1.9 2.8
 ;;18.8 2.1 2.4 17.8 2 2.8
 ;;19 2.1 2.5 18 2 2.9
 ;;19.2 2.2 2.5 18.1 2 2.9
 ;;19.3 2.2 2.6 18.3 2 2.9
 ;;19.5 2.2 2.6 18.4 2.1 3
 ;;19.7 2.2 2.6 18.6 2.1 3
 ;;19.8 2.2 2.7 18.7 2.1 3.1
 ;;20 2.3 2.7 18.9 2.1 3.1
 ;;20.2 2.3 2.8 19 2.2 3.2
 ;;20.3 2.3 2.8 19.2 2.2 3.2
 ;;20.5 2.3 2.9 19.4 2.2 3.3
 ;;20.7 2.3 2.9 19.5 2.3 3.3
 ;;20.9 2.4 3 19.7 2.3 3.4
 ;;21 2.4 3 19.9 2.3 3.5
 ;;21.2 2.4 3.1 20 2.4 3.5
 ;;21.4 2.4 3.2 20.2 2.4 3.6
 ;;21.6 2.4 3.2 20.4 2.4 3.6
 ;;21.7 2.5 3.3 20.6 2.5 3.7
 ;;21.9 2.5 3.3 20.8 2.5 3.8
 ;;22.1 2.5 3.4 21 2.6 3.9
 ;;22.3 2.5 3.5 21.2 2.6 3.9
 ;;22.5 2.6 3.5 21.4 2.7 4
 ;;22.7 2.6 3.6 21.6 2.7 4.1
 ;;22.9 2.6 3.7 21.8 2.8 4.2
 ;;23 2.7 3.7 22.1 2.8 4.3
 ;;23.2 2.7 3.8 22.3 2.9 4.4
 ;;23.4 2.7 3.9 22.5 2.9 4.4
 ;;23.6 2.8 4 22.8 3 4.5
 ;;23.8 2.8 4 23 3 4.6
 ;;24 2.8 4.1 23.3 3.1 4.7
 ;;24.2 2.9 4.2 23.5 3.2 4.8
 ;;24.4 2.9 4.3 23.8 3.2 4.9
 ;;24.7 3 4.4 24 3.3 5
 ;;24.9 3 4.5 24.3 3.3 5.2
 ;;25.1 3.1 4.6 24.6 3.4 5.3
 ;;25.3 3.1 4.7 24.8 3.5 5.4
 ;;25.5 3.1 4.7 25.1 3.5 5.5
 ;;25.7 3.2 4.8 25.4 3.6 5.6
 ;;26 3.3 4.9 25.7 3.7 5.7
 ;;26.2 3.3 5 26 3.8 5.8
 ;;26.4 3.4 5.1 26.3 3.8 6
 ;;26.7 3.4 5.2 26.6 3.9 6.1
 ;;26.9 3.5 5.4 26.9 4 6.2
 ;;27.1 3.5 5.5 27.2 4.1 6.3
 ;;27.4 3.6 5.6 27.5 4.1 6.4
 ;;27.6 3.7 5.7 27.8 4.2 6.6
 ;;27.9 3.7 5.8 28.1 4.3 6.7
 ;;28.1 3.8 5.9 28.5 4.4 6.8
 ;;28.4 3.9 6 28.8 4.4 6.9
 ;;28.6 3.9 6.1 29.1 4.5 7.1
 ;;28.9 4 6.2 29.4 4.6 7.2
 ;;29.2 4.1 6.3 29.8 4.7 7.3
 ;;29.5 4.1 6.5 30.1 4.8 7.4
 ;;29.7 4.2 6.6 30.5 4.8 7.6
 ;;30 4.3 6.7 30.8 4.9 7.7
 ;;30.3 4.4 6.8 31.1 5 7.8
 ;;30.6 4.4 6.9 31.5 5.1 7.9
 ;;30.9 4.5 7.1 31.8 5.2 8.1
 ;;31.1 4.6 7.2 32.2 5.2 8.2