FHINI0A4 ; ; 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,6875,1)
;;=7.143^3.571^89.286^392.857^2.5^^^10.714^16.071^32.143^100^107.143^446.429^13.393^.179^^^2678.571^214.286^1.357
;;^UTILITY(U,$J,112,6875,2)
;;=1.536^17.857^.357^1.786^357.143^^^^0^^^^^^^^3.571
;;^UTILITY(U,$J,112,6875,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,6876,0)
;;=CEREALS,R-T-E,FROSTED FLAKES,KELLOGG'S^BC-00149^oz.^28
;;^UTILITY(U,$J,112,6876,1)
;;=5^.357^91.786^392.857^2.5^^^3.571^6.429^7.143^32.143^89.286^714.286^0^.071^^^2678.571^53.571^1.357
;;^UTILITY(U,$J,112,6876,2)
;;=1.536^17.857^^1.786^357.143^^^^0
;;^UTILITY(U,$J,112,6876,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,6877,0)
;;=CEREALS,R-T-E,FROSTED KRISPIES,KELLOGG'S^BC-00150^oz.^28
;;^UTILITY(U,$J,112,6877,1)
;;=3.571^0^92.857^392.857^^^^7.143^6.429^25^82.143^89.286^785.714^1^.107^^^2678.571^53.571^1.357
;;^UTILITY(U,$J,112,6877,2)
;;=1.536^17.857^^1.786^357.143^^^^0^^^^^^^^0
;;^UTILITY(U,$J,112,6877,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,6878,0)
;;=CEREALS,R-T-E,FROSTED MINI-WHEATS,BITE SIZE,KELLOGG'S^BC-00151^oz.^28
;;^UTILITY(U,$J,112,6878,1)
;;=10.714^0^85.714^357.143^^^^32.143^6.429^96.429^271.429^357.143^0^5.357^.429^^^^0^1.357
;;^UTILITY(U,$J,112,6878,2)
;;=1.536^17.857^^1.786^357.143^7.143^^^0^^^^^^^^10.714
;;^UTILITY(U,$J,112,6878,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,6879,0)
;;=CEREALS,R-T-E,FROSTED MINI-WHEATS,KELLOGG'S^BC-00152^oz.^28
;;^UTILITY(U,$J,112,6879,1)
;;=10.357^1.071^83.571^357.143^5^^^35.714^6.429^103.571^292.857^285.714^0^5.357^.357^^^^0^1.357
;;^UTILITY(U,$J,112,6879,2)
;;=1.536^17.857^^1.786^357.143^7.143^^^0^^^^^^^^10.714
;;^UTILITY(U,$J,112,6879,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,6880,0)
;;=CEREALS,R-T-E,FRUIT&FIBRE,POST HARVEST MEDLEY^BC-00153^oz.^28
;;^UTILITY(U,$J,112,6880,1)
;;=10^3.571^77.5^325^4.643^^^64.286^15.857^217.857^525^717.857^685.714^5.286^.793^^^4410.714^0^1.321
;;^UTILITY(U,$J,112,6880,2)
;;=1.5^17.5^.214^1.75^353.571^5.286^^^0^.357^^1.071^^^^^15
;;^UTILITY(U,$J,112,6880,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,6881,0)
;;=CEREALS,R-T-E,FRUIT&FIBRE,POST W/DATES,RAISINS,WALNUT&OAT^BC-00154^1.25-oz.^35
;;^UTILITY(U,$J,112,6881,1)
;;=5.714^8.571^77.143^342.857^^^^45.714^18^142.857^391.429^577.143^477.143^5.714^.611^^^4285.714^^1.286
;;^UTILITY(U,$J,112,6881,2)
;;=1.457^17.143^.886^1.714^342.857^5.143^^^0^^^^^^^^13.429
;;^UTILITY(U,$J,112,6881,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,6882,0)
;;=CEREALS,R-T-E,FRUITFUL BRAN,KELLOGG'S^BC-00155^1.3-oz.^37
;;^UTILITY(U,$J,112,6882,1)
;;=8.108^0^78.378^297.297^^^^32.432^12.162^108.108^337.838^486.486^621.622^2.351^.324^^^2027.027^0^1.027
;;^UTILITY(U,$J,112,6882,2)
;;=1.162^13.514^^1.351^270.27^5.405^^^0^^^^^^^^13.514
;;^UTILITY(U,$J,112,6882,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,6883,0)
;;=CEREALS,R-T-E,FRUITY PEBBLES,POST^BC-00156^oz.^28
;;^UTILITY(U,$J,112,6883,1)
;;=3.929^3.571^87.857^403.571^2.857^^^14.286^6.357^21.429^57.143^78.571^557.143^7.143^.179^^^4464.286^^1.357
;;^UTILITY(U,$J,112,6883,2)
;;=1.536^17.857^^1.75^357.143^5.286^^^0^3.571^^0^^^^^1.786
;;^UTILITY(U,$J,112,6883,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,6884,0)
;;=CEREALS,R-T-E,GOLDEN GRAHAMS,GENERAL MILLS^BC-00157^oz.^28
;;^UTILITY(U,$J,112,6884,1)
;;=5.714^3.929^86.071^392.857^2.143^^^60.714^15.893^42.857^146.429^196.429^1000^.893^.807^^^4464.286^53.571^1.321
;;^UTILITY(U,$J,112,6884,2)
;;=1.5^17.857^.429^1.786^^5.357^^^0^2.857^^.714^1339.286
;;^UTILITY(U,$J,112,6884,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,6885,0)
;;=CEREALS,R-T-E,GRANOLA,FRUIT&NUT,SUNBELT^BC-00158^oz.^28
;;^UTILITY(U,$J,112,6885,1)
;;=9.286^15.714^66.786^421.429^6.071^^^92.857^3.964^^^^85.714^^^^^0^0^.321
;;^UTILITY(U,$J,112,6885,2)
;;=.214^1.786^^^^^^^0^6.429^6.429^3.214
;;^UTILITY(U,$J,112,6885,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,6886,0)
;;=CEREALS,R-T-E,GRANOLA,HEARTY,POST^BC-00159^oz.^28
;;^UTILITY(U,$J,112,6886,1)
;;=8.571^14.643^73.929^457.143^1.786^^^21.429^23.214^85.714^239.286^192.857^278.571^2.536^.414^^^11482.143^^1.179
;;^UTILITY(U,$J,112,6886,2)
;;=2.25^23.571^.786^4^707.143^16.429^^^0^10.714^^1.429^^^^^5
;;^UTILITY(U,$J,112,6886,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
FHINI0A4 ; ; 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,6875,1)
+2 ;;=7.143^3.571^89.286^392.857^2.5^^^10.714^16.071^32.143^100^107.143^446.429^13.393^.179^^^2678.571^214.286^1.357
+3 ;;^UTILITY(U,$J,112,6875,2)
+4 ;;=1.536^17.857^.357^1.786^357.143^^^^0^^^^^^^^3.571
+5 ;;^UTILITY(U,$J,112,6875,20)
+6 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+7 ;;^UTILITY(U,$J,112,6876,0)
+8 ;;=CEREALS,R-T-E,FROSTED FLAKES,KELLOGG'S^BC-00149^oz.^28
+9 ;;^UTILITY(U,$J,112,6876,1)
+10 ;;=5^.357^91.786^392.857^2.5^^^3.571^6.429^7.143^32.143^89.286^714.286^0^.071^^^2678.571^53.571^1.357
+11 ;;^UTILITY(U,$J,112,6876,2)
+12 ;;=1.536^17.857^^1.786^357.143^^^^0
+13 ;;^UTILITY(U,$J,112,6876,20)
+14 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+15 ;;^UTILITY(U,$J,112,6877,0)
+16 ;;=CEREALS,R-T-E,FROSTED KRISPIES,KELLOGG'S^BC-00150^oz.^28
+17 ;;^UTILITY(U,$J,112,6877,1)
+18 ;;=3.571^0^92.857^392.857^^^^7.143^6.429^25^82.143^89.286^785.714^1^.107^^^2678.571^53.571^1.357
+19 ;;^UTILITY(U,$J,112,6877,2)
+20 ;;=1.536^17.857^^1.786^357.143^^^^0^^^^^^^^0
+21 ;;^UTILITY(U,$J,112,6877,20)
+22 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+23 ;;^UTILITY(U,$J,112,6878,0)
+24 ;;=CEREALS,R-T-E,FROSTED MINI-WHEATS,BITE SIZE,KELLOGG'S^BC-00151^oz.^28
+25 ;;^UTILITY(U,$J,112,6878,1)
+26 ;;=10.714^0^85.714^357.143^^^^32.143^6.429^96.429^271.429^357.143^0^5.357^.429^^^^0^1.357
+27 ;;^UTILITY(U,$J,112,6878,2)
+28 ;;=1.536^17.857^^1.786^357.143^7.143^^^0^^^^^^^^10.714
+29 ;;^UTILITY(U,$J,112,6878,20)
+30 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+31 ;;^UTILITY(U,$J,112,6879,0)
+32 ;;=CEREALS,R-T-E,FROSTED MINI-WHEATS,KELLOGG'S^BC-00152^oz.^28
+33 ;;^UTILITY(U,$J,112,6879,1)
+34 ;;=10.357^1.071^83.571^357.143^5^^^35.714^6.429^103.571^292.857^285.714^0^5.357^.357^^^^0^1.357
+35 ;;^UTILITY(U,$J,112,6879,2)
+36 ;;=1.536^17.857^^1.786^357.143^7.143^^^0^^^^^^^^10.714
+37 ;;^UTILITY(U,$J,112,6879,20)
+38 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+39 ;;^UTILITY(U,$J,112,6880,0)
+40 ;;=CEREALS,R-T-E,FRUIT&FIBRE,POST HARVEST MEDLEY^BC-00153^oz.^28
+41 ;;^UTILITY(U,$J,112,6880,1)
+42 ;;=10^3.571^77.5^325^4.643^^^64.286^15.857^217.857^525^717.857^685.714^5.286^.793^^^4410.714^0^1.321
+43 ;;^UTILITY(U,$J,112,6880,2)
+44 ;;=1.5^17.5^.214^1.75^353.571^5.286^^^0^.357^^1.071^^^^^15
+45 ;;^UTILITY(U,$J,112,6880,20)
+46 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+47 ;;^UTILITY(U,$J,112,6881,0)
+48 ;;=CEREALS,R-T-E,FRUIT&FIBRE,POST W/DATES,RAISINS,WALNUT&OAT^BC-00154^1.25-oz.^35
+49 ;;^UTILITY(U,$J,112,6881,1)
+50 ;;=5.714^8.571^77.143^342.857^^^^45.714^18^142.857^391.429^577.143^477.143^5.714^.611^^^4285.714^^1.286
+51 ;;^UTILITY(U,$J,112,6881,2)
+52 ;;=1.457^17.143^.886^1.714^342.857^5.143^^^0^^^^^^^^13.429
+53 ;;^UTILITY(U,$J,112,6881,20)
+54 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+55 ;;^UTILITY(U,$J,112,6882,0)
+56 ;;=CEREALS,R-T-E,FRUITFUL BRAN,KELLOGG'S^BC-00155^1.3-oz.^37
+57 ;;^UTILITY(U,$J,112,6882,1)
+58 ;;=8.108^0^78.378^297.297^^^^32.432^12.162^108.108^337.838^486.486^621.622^2.351^.324^^^2027.027^0^1.027
+59 ;;^UTILITY(U,$J,112,6882,2)
+60 ;;=1.162^13.514^^1.351^270.27^5.405^^^0^^^^^^^^13.514
+61 ;;^UTILITY(U,$J,112,6882,20)
+62 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+63 ;;^UTILITY(U,$J,112,6883,0)
+64 ;;=CEREALS,R-T-E,FRUITY PEBBLES,POST^BC-00156^oz.^28
+65 ;;^UTILITY(U,$J,112,6883,1)
+66 ;;=3.929^3.571^87.857^403.571^2.857^^^14.286^6.357^21.429^57.143^78.571^557.143^7.143^.179^^^4464.286^^1.357
+67 ;;^UTILITY(U,$J,112,6883,2)
+68 ;;=1.536^17.857^^1.75^357.143^5.286^^^0^3.571^^0^^^^^1.786
+69 ;;^UTILITY(U,$J,112,6883,20)
+70 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+71 ;;^UTILITY(U,$J,112,6884,0)
+72 ;;=CEREALS,R-T-E,GOLDEN GRAHAMS,GENERAL MILLS^BC-00157^oz.^28
+73 ;;^UTILITY(U,$J,112,6884,1)
+74 ;;=5.714^3.929^86.071^392.857^2.143^^^60.714^15.893^42.857^146.429^196.429^1000^.893^.807^^^4464.286^53.571^1.321
+75 ;;^UTILITY(U,$J,112,6884,2)
+76 ;;=1.5^17.857^.429^1.786^^5.357^^^0^2.857^^.714^1339.286
+77 ;;^UTILITY(U,$J,112,6884,20)
+78 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+79 ;;^UTILITY(U,$J,112,6885,0)
+80 ;;=CEREALS,R-T-E,GRANOLA,FRUIT&NUT,SUNBELT^BC-00158^oz.^28
+81 ;;^UTILITY(U,$J,112,6885,1)
+82 ;;=9.286^15.714^66.786^421.429^6.071^^^92.857^3.964^^^^85.714^^^^^0^0^.321
+83 ;;^UTILITY(U,$J,112,6885,2)
+84 ;;=.214^1.786^^^^^^^0^6.429^6.429^3.214
+85 ;;^UTILITY(U,$J,112,6885,20)
+86 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+87 ;;^UTILITY(U,$J,112,6886,0)
+88 ;;=CEREALS,R-T-E,GRANOLA,HEARTY,POST^BC-00159^oz.^28
+89 ;;^UTILITY(U,$J,112,6886,1)
+90 ;;=8.571^14.643^73.929^457.143^1.786^^^21.429^23.214^85.714^239.286^192.857^278.571^2.536^.414^^^11482.143^^1.179
+91 ;;^UTILITY(U,$J,112,6886,2)
+92 ;;=2.25^23.571^.786^4^707.143^16.429^^^0^10.714^^1.429^^^^^5
+93 ;;^UTILITY(U,$J,112,6886,20)
+94 ;;=Bowes & Church's Food Values, Sixteenth Edition.
