FHINI0DT ; ; 11-OCT-1995
;;5.0;Dietetics;;Oct 11, 1995
Q:'DIFQR(112) F I=1:2 S X=$T(Q+I) Q:X="" S Y=$E($T(Q+I+1),4,999),X=$E(X,4,999) S:$A(Y)=126 I=I+1,Y=$E(Y,2,999)_$E($T(Q+I+1),5,99) S:$A(Y)=61 Y=$E(Y,2,999) X NO E S @X=Y
Q Q
;;^UTILITY(U,$J,112,8699,1)
;;=6.197^8.169^40.423^252.113^42.113^^^216.901^5.944^19.718^349.296^123.944^866.197^.437^.085^.394^^0^0^.451
;;^UTILITY(U,$J,112,8699,2)
;;=.479^4.789^.394^.535^8.451^2.028^^^9.859^1.972^2.676^.704^^^^^1.831
;;^UTILITY(U,$J,112,8699,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8700,0)
;;=WAFFLES,BUTTERMILK/HOMESTYLE,EGGO^BC-01973^1.38-oz.^39
;;^UTILITY(U,$J,112,8700,1)
;;=7.692^12.821^41.026^307.692^^^^51.282^4.615^^^^641.026^^^^^1282.051^0^.385
;;^UTILITY(U,$J,112,8700,2)
;;=.436^.513^^.513^102.564^1.538^^^38.462^2.564^7.692^2.564
;;^UTILITY(U,$J,112,8700,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8701,0)
;;=WAFFLES,MULTI-BRAN,NUTRI-GRAIN^BC-01974^1.45-oz.^41
;;^UTILITY(U,$J,112,8701,1)
;;=4.878^12.195^41.463^292.683^^^^48.78^4.39^^^^536.585^^^^^1219.512^0^.366
;;^UTILITY(U,$J,112,8701,2)
;;=.415^4.878^^.488^97.561^1.463^^^0^2.439^7.317^2.439^^^^^7.317
;;^UTILITY(U,$J,112,8701,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8702,0)
;;=WAFFLES,NUT & HONEY,EGGO^BC-01975^1.45-oz.^41
;;^UTILITY(U,$J,112,8702,1)
;;=7.317^14.634^41.463^317.073^^^^48.78^4.39^^^^609.756^4.878^^^^1219.512^0^.366
;;^UTILITY(U,$J,112,8702,2)
;;=.415^4.878^^.488^97.561^1.463^^^36.585^2.439^9.756^2.439
;;^UTILITY(U,$J,112,8702,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8703,0)
;;=WAFFLES,NUTRI-GRAIN^BC-01976^1.38-oz.^39
;;^UTILITY(U,$J,112,8703,1)
;;=7.692^12.821^46.154^333.333^^^^51.282^4.615^^^^641.026^^^^^1282.051^0^.385
;;^UTILITY(U,$J,112,8703,2)
;;=.436^.513^^.513^102.564^^^^0^2.564^7.692^2.564^^^^^5.128
;;^UTILITY(U,$J,112,8703,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8704,0)
;;=WAFFLES,OAT BRAN,COMMON SENSE^BC-01977^1.38-oz.^39
;;^UTILITY(U,$J,112,8704,1)
;;=7.692^10.256^41.026^282.051^^^^51.282^4.615^^^^564.103^^^^^1410.256^0^.385
;;^UTILITY(U,$J,112,8704,2)
;;=.436^.513^^.513^102.564^1.538^^^0^2.564^5.128^2.564^^^^^5.128
;;^UTILITY(U,$J,112,8704,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8705,0)
;;=BF,ANIMAL CRACKERS,GERBER^BC-01978^.39-oz.^11
;;^UTILITY(U,$J,112,8705,1)
;;=6.364^14.545^73.636^454.545^^^^18.182^2.727^18.182^90.909^100^418.182^.455^.091^.455^^^0^.455
;;^UTILITY(U,$J,112,8705,2)
;;=.273^3.636^^.091^^^^^^^^^0
;;^UTILITY(U,$J,112,8705,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8706,0)
;;=BF,ARROWROOT COOKIES,GERBER^BC-01979^.39-oz.^11
;;^UTILITY(U,$J,112,8706,1)
;;=8.182^15.455^70^454.545^^^^27.273^2.727^27.273^118.182^163.636^318.182^.636^.091^.364^^^9.091^.455
;;^UTILITY(U,$J,112,8706,2)
;;=.273^3.636^^.091^^^^^^^^^0
;;^UTILITY(U,$J,112,8706,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8707,0)
;;=BF,BABY BISCUIT,GERBER^BC-01980^.39-oz.^11
;;^UTILITY(U,$J,112,8707,1)
;;=9.091^5.455^77.273^390.909^^^^90.909^2.727^36.364^136.364^318.182^263.636^.636^.091^.364^^^^.182
;;^UTILITY(U,$J,112,8707,2)
;;=.455^.273^^.091^^^^^^^^^9.091
;;^UTILITY(U,$J,112,8707,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8708,0)
;;=BF,BABY COOKIE,GERBER^BC-01981^.46-oz.^13
;;^UTILITY(U,$J,112,8708,1)
;;=6.154^12.308^77.692^446.154^^^^38.462^3.077^53.846^184.615^553.846^146.154^1^.308^.769^^^^.538
;;^UTILITY(U,$J,112,8708,2)
;;=.462^3.077^^.231^^^^^^^^^7.692
;;^UTILITY(U,$J,112,8708,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8709,0)
;;=BF,BABY PRETZEL,GERBER^BC-01982^.43-oz.^12
;;^UTILITY(U,$J,112,8709,1)
;;=13.333^1.667^80.833^391.667^^^^25^5^33.333^125^158.333^441.667^1^.167^1^^^^.5
;;^UTILITY(U,$J,112,8709,2)
;;=.417^5^^.083^^^^^^^^^0
;;^UTILITY(U,$J,112,8709,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8710,0)
;;=BF,ZWIEBACK TOAST,GERBER^BC-01983^.49-oz.^14
;;^UTILITY(U,$J,112,8710,1)
;;=11.429^10.714^71.429^428.571^^^^21.429^2.857^28.571^121.429^157.143^207.143^1.143^.143^.571^^^^.857
;;^UTILITY(U,$J,112,8710,2)
;;=.429^4.286^^.143^^^^^^^^^7.143
;;^UTILITY(U,$J,112,8710,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8711,0)
;;=BF,CEREAL,BARLEY,DRY,BEECH-NUT STAGE 1^BC-01984^.5-oz.^14
;;^UTILITY(U,$J,112,8711,1)
;;=11.429^2.857^75^371.429^^^^850^48^^^^78.571^^^^^^^1.571
;;^UTILITY(U,$J,112,8711,2)
;;=2^25.714
;;^UTILITY(U,$J,112,8711,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
FHINI0DT ; ; 11-OCT-1995
+1 ;;5.0;Dietetics;;Oct 11, 1995
+2 IF 'DIFQR(112)
QUIT
FOR I=1:2
SET X=$TEXT(Q+I)
IF X=""
QUIT
SET Y=$EXTRACT($TEXT(Q+I+1),4,999)
SET X=$EXTRACT(X,4,999)
IF $ASCII(Y)=126
SET I=I+1
SET Y=$EXTRACT(Y,2,999)_$EXTRACT($TEXT(Q+I+1),5,99)
IF $ASCII(Y)=61
SET Y=$EXTRACT(Y,2,999)
XECUTE NO
IF '$TEST
SET @X=Y
Q QUIT
+1 ;;^UTILITY(U,$J,112,8699,1)
+2 ;;=6.197^8.169^40.423^252.113^42.113^^^216.901^5.944^19.718^349.296^123.944^866.197^.437^.085^.394^^0^0^.451
+3 ;;^UTILITY(U,$J,112,8699,2)
+4 ;;=.479^4.789^.394^.535^8.451^2.028^^^9.859^1.972^2.676^.704^^^^^1.831
+5 ;;^UTILITY(U,$J,112,8699,20)
+6 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+7 ;;^UTILITY(U,$J,112,8700,0)
+8 ;;=WAFFLES,BUTTERMILK/HOMESTYLE,EGGO^BC-01973^1.38-oz.^39
+9 ;;^UTILITY(U,$J,112,8700,1)
+10 ;;=7.692^12.821^41.026^307.692^^^^51.282^4.615^^^^641.026^^^^^1282.051^0^.385
+11 ;;^UTILITY(U,$J,112,8700,2)
+12 ;;=.436^.513^^.513^102.564^1.538^^^38.462^2.564^7.692^2.564
+13 ;;^UTILITY(U,$J,112,8700,20)
+14 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+15 ;;^UTILITY(U,$J,112,8701,0)
+16 ;;=WAFFLES,MULTI-BRAN,NUTRI-GRAIN^BC-01974^1.45-oz.^41
+17 ;;^UTILITY(U,$J,112,8701,1)
+18 ;;=4.878^12.195^41.463^292.683^^^^48.78^4.39^^^^536.585^^^^^1219.512^0^.366
+19 ;;^UTILITY(U,$J,112,8701,2)
+20 ;;=.415^4.878^^.488^97.561^1.463^^^0^2.439^7.317^2.439^^^^^7.317
+21 ;;^UTILITY(U,$J,112,8701,20)
+22 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+23 ;;^UTILITY(U,$J,112,8702,0)
+24 ;;=WAFFLES,NUT & HONEY,EGGO^BC-01975^1.45-oz.^41
+25 ;;^UTILITY(U,$J,112,8702,1)
+26 ;;=7.317^14.634^41.463^317.073^^^^48.78^4.39^^^^609.756^4.878^^^^1219.512^0^.366
+27 ;;^UTILITY(U,$J,112,8702,2)
+28 ;;=.415^4.878^^.488^97.561^1.463^^^36.585^2.439^9.756^2.439
+29 ;;^UTILITY(U,$J,112,8702,20)
+30 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+31 ;;^UTILITY(U,$J,112,8703,0)
+32 ;;=WAFFLES,NUTRI-GRAIN^BC-01976^1.38-oz.^39
+33 ;;^UTILITY(U,$J,112,8703,1)
+34 ;;=7.692^12.821^46.154^333.333^^^^51.282^4.615^^^^641.026^^^^^1282.051^0^.385
+35 ;;^UTILITY(U,$J,112,8703,2)
+36 ;;=.436^.513^^.513^102.564^^^^0^2.564^7.692^2.564^^^^^5.128
+37 ;;^UTILITY(U,$J,112,8703,20)
+38 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+39 ;;^UTILITY(U,$J,112,8704,0)
+40 ;;=WAFFLES,OAT BRAN,COMMON SENSE^BC-01977^1.38-oz.^39
+41 ;;^UTILITY(U,$J,112,8704,1)
+42 ;;=7.692^10.256^41.026^282.051^^^^51.282^4.615^^^^564.103^^^^^1410.256^0^.385
+43 ;;^UTILITY(U,$J,112,8704,2)
+44 ;;=.436^.513^^.513^102.564^1.538^^^0^2.564^5.128^2.564^^^^^5.128
+45 ;;^UTILITY(U,$J,112,8704,20)
+46 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+47 ;;^UTILITY(U,$J,112,8705,0)
+48 ;;=BF,ANIMAL CRACKERS,GERBER^BC-01978^.39-oz.^11
+49 ;;^UTILITY(U,$J,112,8705,1)
+50 ;;=6.364^14.545^73.636^454.545^^^^18.182^2.727^18.182^90.909^100^418.182^.455^.091^.455^^^0^.455
+51 ;;^UTILITY(U,$J,112,8705,2)
+52 ;;=.273^3.636^^.091^^^^^^^^^0
+53 ;;^UTILITY(U,$J,112,8705,20)
+54 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+55 ;;^UTILITY(U,$J,112,8706,0)
+56 ;;=BF,ARROWROOT COOKIES,GERBER^BC-01979^.39-oz.^11
+57 ;;^UTILITY(U,$J,112,8706,1)
+58 ;;=8.182^15.455^70^454.545^^^^27.273^2.727^27.273^118.182^163.636^318.182^.636^.091^.364^^^9.091^.455
+59 ;;^UTILITY(U,$J,112,8706,2)
+60 ;;=.273^3.636^^.091^^^^^^^^^0
+61 ;;^UTILITY(U,$J,112,8706,20)
+62 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+63 ;;^UTILITY(U,$J,112,8707,0)
+64 ;;=BF,BABY BISCUIT,GERBER^BC-01980^.39-oz.^11
+65 ;;^UTILITY(U,$J,112,8707,1)
+66 ;;=9.091^5.455^77.273^390.909^^^^90.909^2.727^36.364^136.364^318.182^263.636^.636^.091^.364^^^^.182
+67 ;;^UTILITY(U,$J,112,8707,2)
+68 ;;=.455^.273^^.091^^^^^^^^^9.091
+69 ;;^UTILITY(U,$J,112,8707,20)
+70 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+71 ;;^UTILITY(U,$J,112,8708,0)
+72 ;;=BF,BABY COOKIE,GERBER^BC-01981^.46-oz.^13
+73 ;;^UTILITY(U,$J,112,8708,1)
+74 ;;=6.154^12.308^77.692^446.154^^^^38.462^3.077^53.846^184.615^553.846^146.154^1^.308^.769^^^^.538
+75 ;;^UTILITY(U,$J,112,8708,2)
+76 ;;=.462^3.077^^.231^^^^^^^^^7.692
+77 ;;^UTILITY(U,$J,112,8708,20)
+78 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+79 ;;^UTILITY(U,$J,112,8709,0)
+80 ;;=BF,BABY PRETZEL,GERBER^BC-01982^.43-oz.^12
+81 ;;^UTILITY(U,$J,112,8709,1)
+82 ;;=13.333^1.667^80.833^391.667^^^^25^5^33.333^125^158.333^441.667^1^.167^1^^^^.5
+83 ;;^UTILITY(U,$J,112,8709,2)
+84 ;;=.417^5^^.083^^^^^^^^^0
+85 ;;^UTILITY(U,$J,112,8709,20)
+86 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+87 ;;^UTILITY(U,$J,112,8710,0)
+88 ;;=BF,ZWIEBACK TOAST,GERBER^BC-01983^.49-oz.^14
+89 ;;^UTILITY(U,$J,112,8710,1)
+90 ;;=11.429^10.714^71.429^428.571^^^^21.429^2.857^28.571^121.429^157.143^207.143^1.143^.143^.571^^^^.857
+91 ;;^UTILITY(U,$J,112,8710,2)
+92 ;;=.429^4.286^^.143^^^^^^^^^7.143
+93 ;;^UTILITY(U,$J,112,8710,20)
+94 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+95 ;;^UTILITY(U,$J,112,8711,0)
+96 ;;=BF,CEREAL,BARLEY,DRY,BEECH-NUT STAGE 1^BC-01984^.5-oz.^14
+97 ;;^UTILITY(U,$J,112,8711,1)
+98 ;;=11.429^2.857^75^371.429^^^^850^48^^^^78.571^^^^^^^1.571
+99 ;;^UTILITY(U,$J,112,8711,2)
+100 ;;=2^25.714
+101 ;;^UTILITY(U,$J,112,8711,20)
+102 ;;=Bowes & Church's Food Values, Sixteenth Edition.
