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
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HFHASM2C 4054 printed Dec 13, 2024@01:46:51 Page 2
FHASM2C ; HISC/REL - Target Weight - Pediatric ;6/2/89 15:15
+1 ;;5.5;DIETETICS;**8**;Jan 28, 2005;Build 28
+2 ;;Normalized NCHS/CDC Anthropometric Reference
+3 SET X1=+$JUSTIFY(AGE*12,0,0)
IF X1'>0!(X1>119)
SET IBW=""
QUIT
P1 SET X=$PIECE($TEXT(WT+X1),";;",2)
if SEX="F"
SET X=$PIECE(X," ",4,6)
SET X3=$PIECE(X," ",1)
SET A1=$PIECE(X," ",2)
SET A2=$PIECE(X," ",3)
+1 SET X1=+$JUSTIFY(-.524*A1+X3,0,1)
SET X2=+$JUSTIFY(.524*A2+X3,0,1)
+2 SET W1=+$JUSTIFY(X1*2.2,0,0)
SET W2=+$JUSTIFY(X2*2.2,0,0)
SET W3=+$JUSTIFY(X3*2.2,0,0)
+3 IF FHU'="M"
SET X1=W1
SET X2=W2
SET X3=W3
P3 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 P3
+3 SET IBW=+Y
IF IBW<W1!(IBW>W2)
SET METH="E"
+4 QUIT
WT ;;3.3 .4 .5 3.2 .5 .4
+1 ;;4.3 .7 .7 4 .6 .5
+2 ;;5.2 .9 .8 4.7 .7 .7
+3 ;;6 1 .9 5.4 .7 .8
+4 ;;6.7 1 .9 6 .8 .8
+5 ;;7.3 1 .9 6.7 .8 .9
+6 ;;7.8 1 1 7.2 .9 .9
+7 ;;8.3 1 1 7.7 .9 .9
+8 ;;8.8 1 1 8.2 .9 1
+9 ;;9.2 1 1 8.6 1 1
+10 ;;9.5 1 1.1 8.9 1 1
+11 ;;9.9 1 1.1 9.2 1 1
+12 ;;10.2 1 1.1 9.5 1 1
+13 ;;10.4 1 1.1 9.8 1.1 1.1
+14 ;;10.7 1.1 1.2 10 1.1 1.1
+15 ;;10.9 1.1 1.2 10.2 1.1 1.1
+16 ;;11.1 1.1 1.2 10.4 1.1 1.1
+17 ;;11.3 1.1 1.2 10.6 1.2 1.1
+18 ;;11.5 1.2 1.2 10.8 1.2 1.1
+19 ;;11.7 1.2 1.2 11 1.2 1.2
+20 ;;11.8 1.2 1.3 11.2 1.2 1.2
+21 ;;12 1.3 1.3 11.4 1.2 1.2
+22 ;;12.2 1.3 1.3 11.5 1.2 1.2
+23 ;;12.4 1.3 1.3 11.7 1.2 1.3
+24 ;;12.3 1.1 1.7 11.8 1.2 1.4
+25 ;;12.5 1.2 1.7 12 1.2 1.5
+26 ;;12.7 1.2 1.7 12.2 1.2 1.5
+27 ;;12.9 1.3 1.7 12.4 1.3 1.6
+28 ;;13.1 1.3 1.7 12.6 1.3 1.6
+29 ;;13.3 1.3 1.7 12.8 1.3 1.7
+30 ;;13.5 1.4 1.7 13 1.3 1.7
+31 ;;13.7 1.4 1.7 13.2 1.4 1.7
+32 ;;13.9 1.5 1.8 13.4 1.4 1.8
+33 ;;14.1 1.5 1.8 13.6 1.4 1.8
+34 ;;14.3 1.5 1.8 13.8 1.4 1.9
+35 ;;14.4 1.6 1.8 13.9 1.5 1.9
+36 ;;14.6 1.6 1.8 14.1 1.5 2
+37 ;;14.8 1.6 1.8 14.3 1.5 2
+38 ;;15 1.7 1.8 14.4 1.5 2
+39 ;;15.2 1.7 1.9 14.6 1.5 2.1
+40 ;;15.3 1.7 1.9 14.8 1.6 2.1
+41 ;;15.5 1.7 1.9 14.9 1.6 2.1
+42 ;;15.7 1.8 1.9 15.1 1.6 2.2
+43 ;;15.8 1.8 1.9 15.2 1.6 2.2
+44 ;;16 1.8 2 15.4 1.6 2.2
+45 ;;16.2 1.8 2 15.5 1.6 2.3
+46 ;;16.4 1.9 2 15.7 1.7 2.3
+47 ;;16.5 1.9 2 15.8 1.7 2.3
+48 ;;16.7 1.9 2 16 1.7 2.4
+49 ;;16.9 1.9 2.1 16.1 1.7 2.4
+50 ;;17 1.9 2.1 16.2 1.7 2.4
+51 ;;17.2 2 2.1 16.4 1.8 2.5
+52 ;;17.4 2 2.2 16.5 1.8 2.5
+53 ;;17.5 2 2.2 16.7 1.8 2.5
+54 ;;17.7 2 2.2 16.8 1.8 2.6
+55 ;;17.9 2 2.2 17 1.8 2.6
+56 ;;18 2 2.3 17.1 1.8 2.6
+57 ;;18.2 2.1 2.3 17.2 1.9 2.7
+58 ;;18.3 2.1 2.3 17.4 1.9 2.7
+59 ;;18.5 2.1 2.4 17.5 1.9 2.7
+60 ;;18.7 2.1 2.4 17.7 1.9 2.8
+61 ;;18.8 2.1 2.4 17.8 2 2.8
+62 ;;19 2.1 2.5 18 2 2.9
+63 ;;19.2 2.2 2.5 18.1 2 2.9
+64 ;;19.3 2.2 2.6 18.3 2 2.9
+65 ;;19.5 2.2 2.6 18.4 2.1 3
+66 ;;19.7 2.2 2.6 18.6 2.1 3
+67 ;;19.8 2.2 2.7 18.7 2.1 3.1
+68 ;;20 2.3 2.7 18.9 2.1 3.1
+69 ;;20.2 2.3 2.8 19 2.2 3.2
+70 ;;20.3 2.3 2.8 19.2 2.2 3.2
+71 ;;20.5 2.3 2.9 19.4 2.2 3.3
+72 ;;20.7 2.3 2.9 19.5 2.3 3.3
+73 ;;20.9 2.4 3 19.7 2.3 3.4
+74 ;;21 2.4 3 19.9 2.3 3.5
+75 ;;21.2 2.4 3.1 20 2.4 3.5
+76 ;;21.4 2.4 3.2 20.2 2.4 3.6
+77 ;;21.6 2.4 3.2 20.4 2.4 3.6
+78 ;;21.7 2.5 3.3 20.6 2.5 3.7
+79 ;;21.9 2.5 3.3 20.8 2.5 3.8
+80 ;;22.1 2.5 3.4 21 2.6 3.9
+81 ;;22.3 2.5 3.5 21.2 2.6 3.9
+82 ;;22.5 2.6 3.5 21.4 2.7 4
+83 ;;22.7 2.6 3.6 21.6 2.7 4.1
+84 ;;22.9 2.6 3.7 21.8 2.8 4.2
+85 ;;23 2.7 3.7 22.1 2.8 4.3
+86 ;;23.2 2.7 3.8 22.3 2.9 4.4
+87 ;;23.4 2.7 3.9 22.5 2.9 4.4
+88 ;;23.6 2.8 4 22.8 3 4.5
+89 ;;23.8 2.8 4 23 3 4.6
+90 ;;24 2.8 4.1 23.3 3.1 4.7
+91 ;;24.2 2.9 4.2 23.5 3.2 4.8
+92 ;;24.4 2.9 4.3 23.8 3.2 4.9
+93 ;;24.7 3 4.4 24 3.3 5
+94 ;;24.9 3 4.5 24.3 3.3 5.2
+95 ;;25.1 3.1 4.6 24.6 3.4 5.3
+96 ;;25.3 3.1 4.7 24.8 3.5 5.4
+97 ;;25.5 3.1 4.7 25.1 3.5 5.5
+98 ;;25.7 3.2 4.8 25.4 3.6 5.6
+99 ;;26 3.3 4.9 25.7 3.7 5.7
+100 ;;26.2 3.3 5 26 3.8 5.8
+101 ;;26.4 3.4 5.1 26.3 3.8 6
+102 ;;26.7 3.4 5.2 26.6 3.9 6.1
+103 ;;26.9 3.5 5.4 26.9 4 6.2
+104 ;;27.1 3.5 5.5 27.2 4.1 6.3
+105 ;;27.4 3.6 5.6 27.5 4.1 6.4
+106 ;;27.6 3.7 5.7 27.8 4.2 6.6
+107 ;;27.9 3.7 5.8 28.1 4.3 6.7
+108 ;;28.1 3.8 5.9 28.5 4.4 6.8
+109 ;;28.4 3.9 6 28.8 4.4 6.9
+110 ;;28.6 3.9 6.1 29.1 4.5 7.1
+111 ;;28.9 4 6.2 29.4 4.6 7.2
+112 ;;29.2 4.1 6.3 29.8 4.7 7.3
+113 ;;29.5 4.1 6.5 30.1 4.8 7.4
+114 ;;29.7 4.2 6.6 30.5 4.8 7.6
+115 ;;30 4.3 6.7 30.8 4.9 7.7
+116 ;;30.3 4.4 6.8 31.1 5 7.8
+117 ;;30.6 4.4 6.9 31.5 5.1 7.9
+118 ;;30.9 4.5 7.1 31.8 5.2 8.1
+119 ;;31.1 4.6 7.2 32.2 5.2 8.2
