FHINI0AP ; ; 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,7159,2)
;;=.176^.588
;;^UTILITY(U,$J,112,7159,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7160,0)
;;=GRANOLA,CHOC CHIP,QUAKER CHEWY^BC-00433^bars^28
;;^UTILITY(U,$J,112,7160,1)
;;=7.143^16.786^68.929^457.143^5.357^^^96.429^2.5^78.571^232.143^335.714^321.429^1.536^.393^1.321^^0^0^.179
;;^UTILITY(U,$J,112,7160,2)
;;=.179^.714^.464^.107^21.429^.143^^^0^5.357^4.286^1.429^^^^^5
;;^UTILITY(U,$J,112,7160,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7161,0)
;;=GRANOLA,CHOC CHIP,QUAKER DIPPS^BC-00434^bars^28
;;^UTILITY(U,$J,112,7161,1)
;;=6.429^22.5^66.786^496.429^3.214^^^103.571^2.679^67.857^200^317.857^278.571^1.321^.357^.929^^0^0^.071
;;^UTILITY(U,$J,112,7161,2)
;;=.179^.714^.464^.107^25^.536^^^3.571^10^6.429^1.429^^^^^3.571
;;^UTILITY(U,$J,112,7161,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7162,0)
;;=GRANOLA,CHOC FUDGE,QUAKER DIPPS^BC-00435^bars^28
;;^UTILITY(U,$J,112,7162,1)
;;=7.5^28.214^71.429^571.429^3.214^^^185.714^1.429^7.143^53.571^360.714^264.286^.321^0^^^171.429^0^.107
;;^UTILITY(U,$J,112,7162,2)
;;=.25^.357^.107^.036^7.143^.036
;;^UTILITY(U,$J,112,7162,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7163,0)
;;=GRANOLA,HONEY & OATS,QUAKER CHEWY^BC-00436^bars^28
;;^UTILITY(U,$J,112,7163,1)
;;=8.214^15.714^68.214^446.429^6.429^^^107.143^2.429^75^232.143^328.571^339.286^1.536^.286^1.536^^0^0^.25
;;^UTILITY(U,$J,112,7163,2)
;;=.179^1.071^.464^.107^21.429^.357^^^0^3.929^4.286^1.786^^^^^4.643
;;^UTILITY(U,$J,112,7163,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7164,0)
;;=GRANOLA,NUT & RAISIN QUAKER CHEWY^BC-00437^bars^28
;;^UTILITY(U,$J,112,7164,1)
;;=8.929^20.714^61.429^467.857^6.071^^^85.714^2.214^92.857^242.857^396.429^307.143^1.607^.393^1.214^^0^0^.179
;;^UTILITY(U,$J,112,7164,2)
;;=.179^2.5^.393^.107^28.571^.214^^^0^4.643^4.643^5^^^^^5.714
;;^UTILITY(U,$J,112,7164,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7165,0)
;;=GRANOLA,OAT BRAN W/RASPBERRY FILLING,KELLOGG NUTRI-GRAIN^BC-00438^1.5-oz.^43
;;^UTILITY(U,$J,112,7165,1)
;;=4.651^13.953^65.116^395.349^^^^67.442^4.186^44.186^160.465^151.163^372.093^3.488^.07^^^1744.186^0^.884
;;^UTILITY(U,$J,112,7165,2)
;;=1^11.628^^1.163^232.558^^^^0^^^^^^^^2.326
;;^UTILITY(U,$J,112,7165,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7166,0)
;;=GRANOLA,OATS'N HONEY,NATURE VALLEY^BC-00439^.83-oz.^24
;;^UTILITY(U,$J,112,7166,1)
;;=8.333^20.833^70.833^500^^^^^^^^250^270.833
;;^UTILITY(U,$J,112,7166,2)
;;=^^^^^^^^0^4.167^12.5^4.167^^^^^4.167
;;^UTILITY(U,$J,112,7166,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7167,0)
;;=GRANOLA,PEANUT BUTTER & CHOC CHIP,QUAKER CHEWY^BC-00440^bars^28
;;^UTILITY(U,$J,112,7167,1)
;;=11.071^20.357^60.714^467.857^6.071^^^82.143^1.964^89.286^264.286^382.143^400^1.714^.393^1.357^^0^0^.107
;;^UTILITY(U,$J,112,7167,2)
;;=.107^2.857^.5^.107^28.571^.393^^^0^5.357^5.357^3.214
;;^UTILITY(U,$J,112,7167,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7168,0)
;;=GRANOLA,PEANUT BUTTER & CHOC CHIP,QUAKER DIPPS^BC-00441^bars^28
;;^UTILITY(U,$J,112,7168,1)
;;=12.857^35.714^62.143^621.429^3.571^^^132.143^1.643^35.714^157.143^428.571^364.286^.286^^^^107.143^0^.107
;;^UTILITY(U,$J,112,7168,2)
;;=.214^2.857^.107^.036^7.143^.036
;;^UTILITY(U,$J,112,7168,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7169,0)
;;=GRANOLA,PEANUT BUTTER,QUAKER CHEWY^BC-00442^bars^28
;;^UTILITY(U,$J,112,7169,1)
;;=11.071^17.5^63.571^457.143^5.714^^^92.857^2.107^85.714^253.571^357.143^414.286^1.893^.679^1.429^^0^0^.179
;;^UTILITY(U,$J,112,7169,2)
;;=.179^2.857^.5^.107^28.571^.179^^^0^4.643^4.643^2.857^^^^^4.286
;;^UTILITY(U,$J,112,7169,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7170,0)
;;=GRANOLA,PEANUT BUTTER,QUAKER DIPPS^BC-00443^bars^28
;;^UTILITY(U,$J,112,7170,1)
;;=12.857^32.5^66.071^607.143^2.143^^^96.429^2.429^35.714^160.714^392.857^264.286^.321^.321^0^^103.571^0^.107
;;^UTILITY(U,$J,112,7170,2)
;;=.214^5.357^.143^.036^7.143^.036^^^7.143^11.071^8.929^3.214^^^^^3.571
;;^UTILITY(U,$J,112,7170,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7171,0)
;;=GRANOLA,RAISIN & CINN,QUAKER CHEWY^BC-00444^bars^28
;;^UTILITY(U,$J,112,7171,1)
;;=7.857^17.857^66.429^457.143^6.429^^^103.571^2.393^71.429^221.429^360.714^328.571^1.321^.286^1.286^^0^0^.179
FHINI0AP ; ; 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,7159,2)
+2 ;;=.176^.588
+3 ;;^UTILITY(U,$J,112,7159,20)
+4 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+5 ;;^UTILITY(U,$J,112,7160,0)
+6 ;;=GRANOLA,CHOC CHIP,QUAKER CHEWY^BC-00433^bars^28
+7 ;;^UTILITY(U,$J,112,7160,1)
+8 ;;=7.143^16.786^68.929^457.143^5.357^^^96.429^2.5^78.571^232.143^335.714^321.429^1.536^.393^1.321^^0^0^.179
+9 ;;^UTILITY(U,$J,112,7160,2)
+10 ;;=.179^.714^.464^.107^21.429^.143^^^0^5.357^4.286^1.429^^^^^5
+11 ;;^UTILITY(U,$J,112,7160,20)
+12 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+13 ;;^UTILITY(U,$J,112,7161,0)
+14 ;;=GRANOLA,CHOC CHIP,QUAKER DIPPS^BC-00434^bars^28
+15 ;;^UTILITY(U,$J,112,7161,1)
+16 ;;=6.429^22.5^66.786^496.429^3.214^^^103.571^2.679^67.857^200^317.857^278.571^1.321^.357^.929^^0^0^.071
+17 ;;^UTILITY(U,$J,112,7161,2)
+18 ;;=.179^.714^.464^.107^25^.536^^^3.571^10^6.429^1.429^^^^^3.571
+19 ;;^UTILITY(U,$J,112,7161,20)
+20 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+21 ;;^UTILITY(U,$J,112,7162,0)
+22 ;;=GRANOLA,CHOC FUDGE,QUAKER DIPPS^BC-00435^bars^28
+23 ;;^UTILITY(U,$J,112,7162,1)
+24 ;;=7.5^28.214^71.429^571.429^3.214^^^185.714^1.429^7.143^53.571^360.714^264.286^.321^0^^^171.429^0^.107
+25 ;;^UTILITY(U,$J,112,7162,2)
+26 ;;=.25^.357^.107^.036^7.143^.036
+27 ;;^UTILITY(U,$J,112,7162,20)
+28 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+29 ;;^UTILITY(U,$J,112,7163,0)
+30 ;;=GRANOLA,HONEY & OATS,QUAKER CHEWY^BC-00436^bars^28
+31 ;;^UTILITY(U,$J,112,7163,1)
+32 ;;=8.214^15.714^68.214^446.429^6.429^^^107.143^2.429^75^232.143^328.571^339.286^1.536^.286^1.536^^0^0^.25
+33 ;;^UTILITY(U,$J,112,7163,2)
+34 ;;=.179^1.071^.464^.107^21.429^.357^^^0^3.929^4.286^1.786^^^^^4.643
+35 ;;^UTILITY(U,$J,112,7163,20)
+36 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+37 ;;^UTILITY(U,$J,112,7164,0)
+38 ;;=GRANOLA,NUT & RAISIN QUAKER CHEWY^BC-00437^bars^28
+39 ;;^UTILITY(U,$J,112,7164,1)
+40 ;;=8.929^20.714^61.429^467.857^6.071^^^85.714^2.214^92.857^242.857^396.429^307.143^1.607^.393^1.214^^0^0^.179
+41 ;;^UTILITY(U,$J,112,7164,2)
+42 ;;=.179^2.5^.393^.107^28.571^.214^^^0^4.643^4.643^5^^^^^5.714
+43 ;;^UTILITY(U,$J,112,7164,20)
+44 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+45 ;;^UTILITY(U,$J,112,7165,0)
+46 ;;=GRANOLA,OAT BRAN W/RASPBERRY FILLING,KELLOGG NUTRI-GRAIN^BC-00438^1.5-oz.^43
+47 ;;^UTILITY(U,$J,112,7165,1)
+48 ;;=4.651^13.953^65.116^395.349^^^^67.442^4.186^44.186^160.465^151.163^372.093^3.488^.07^^^1744.186^0^.884
+49 ;;^UTILITY(U,$J,112,7165,2)
+50 ;;=1^11.628^^1.163^232.558^^^^0^^^^^^^^2.326
+51 ;;^UTILITY(U,$J,112,7165,20)
+52 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+53 ;;^UTILITY(U,$J,112,7166,0)
+54 ;;=GRANOLA,OATS'N HONEY,NATURE VALLEY^BC-00439^.83-oz.^24
+55 ;;^UTILITY(U,$J,112,7166,1)
+56 ;;=8.333^20.833^70.833^500^^^^^^^^250^270.833
+57 ;;^UTILITY(U,$J,112,7166,2)
+58 ;;=^^^^^^^^0^4.167^12.5^4.167^^^^^4.167
+59 ;;^UTILITY(U,$J,112,7166,20)
+60 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+61 ;;^UTILITY(U,$J,112,7167,0)
+62 ;;=GRANOLA,PEANUT BUTTER & CHOC CHIP,QUAKER CHEWY^BC-00440^bars^28
+63 ;;^UTILITY(U,$J,112,7167,1)
+64 ;;=11.071^20.357^60.714^467.857^6.071^^^82.143^1.964^89.286^264.286^382.143^400^1.714^.393^1.357^^0^0^.107
+65 ;;^UTILITY(U,$J,112,7167,2)
+66 ;;=.107^2.857^.5^.107^28.571^.393^^^0^5.357^5.357^3.214
+67 ;;^UTILITY(U,$J,112,7167,20)
+68 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+69 ;;^UTILITY(U,$J,112,7168,0)
+70 ;;=GRANOLA,PEANUT BUTTER & CHOC CHIP,QUAKER DIPPS^BC-00441^bars^28
+71 ;;^UTILITY(U,$J,112,7168,1)
+72 ;;=12.857^35.714^62.143^621.429^3.571^^^132.143^1.643^35.714^157.143^428.571^364.286^.286^^^^107.143^0^.107
+73 ;;^UTILITY(U,$J,112,7168,2)
+74 ;;=.214^2.857^.107^.036^7.143^.036
+75 ;;^UTILITY(U,$J,112,7168,20)
+76 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+77 ;;^UTILITY(U,$J,112,7169,0)
+78 ;;=GRANOLA,PEANUT BUTTER,QUAKER CHEWY^BC-00442^bars^28
+79 ;;^UTILITY(U,$J,112,7169,1)
+80 ;;=11.071^17.5^63.571^457.143^5.714^^^92.857^2.107^85.714^253.571^357.143^414.286^1.893^.679^1.429^^0^0^.179
+81 ;;^UTILITY(U,$J,112,7169,2)
+82 ;;=.179^2.857^.5^.107^28.571^.179^^^0^4.643^4.643^2.857^^^^^4.286
+83 ;;^UTILITY(U,$J,112,7169,20)
+84 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+85 ;;^UTILITY(U,$J,112,7170,0)
+86 ;;=GRANOLA,PEANUT BUTTER,QUAKER DIPPS^BC-00443^bars^28
+87 ;;^UTILITY(U,$J,112,7170,1)
+88 ;;=12.857^32.5^66.071^607.143^2.143^^^96.429^2.429^35.714^160.714^392.857^264.286^.321^.321^0^^103.571^0^.107
+89 ;;^UTILITY(U,$J,112,7170,2)
+90 ;;=.214^5.357^.143^.036^7.143^.036^^^7.143^11.071^8.929^3.214^^^^^3.571
+91 ;;^UTILITY(U,$J,112,7170,20)
+92 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+93 ;;^UTILITY(U,$J,112,7171,0)
+94 ;;=GRANOLA,RAISIN & CINN,QUAKER CHEWY^BC-00444^bars^28
+95 ;;^UTILITY(U,$J,112,7171,1)
+96 ;;=7.857^17.857^66.429^457.143^6.429^^^103.571^2.393^71.429^221.429^360.714^328.571^1.321^.286^1.286^^0^0^.179
