- 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 Jan 18, 2025@02:48:05 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