FHINI0A5 ; ; 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,6887,0)
;;=CEREALS,R-T-E,GRANOLA,HEARTY W/RAISINS,POST^BC-00160^oz.^28
;;^UTILITY(U,$J,112,6887,1)
;;=7.857^13.571^74.286^439.286^2.857^^^39.286^15.857^78.571^203.571^264.286^282.143^2.357^.404^^^4410.714^0^1.321
;;^UTILITY(U,$J,112,6887,2)
;;=1.5^17.5^^1.75^353.571^5.286^^^0^9.643^^1.429^^^^^3.214
;;^UTILITY(U,$J,112,6887,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,6888,0)
;;=CEREALS,R-T-E,GRAPE-NUT FLAKES,POST^BC-00161^oz.^28
;;^UTILITY(U,$J,112,6888,1)
;;=9.643^3.214^82.5^375^3.571^^^35.714^28.929^107.143^296.429^307.143^392.857^4.286^.464^^^4464.286^0^1.357
;;^UTILITY(U,$J,112,6888,2)
;;=1.536^17.857^1.036^1.786^357.143^5.357^^^0^1.429^.357^.714^^^^^10
;;^UTILITY(U,$J,112,6888,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,6889,0)
;;=CEREALS,R-T-E,GRAPE-NUTS,POST^BC-00162^oz.^28
;;^UTILITY(U,$J,112,6889,1)
;;=11.071^.357^82.5^375^3.571^^^35.714^28.929^92.857^271.429^325^607.143^3.571^.464^^^4464.286^^1.357
;;^UTILITY(U,$J,112,6889,2)
;;=1.536^17.857^.964^1.786^357.143^5.357^^^0^0^^.357^^^^^9.286
;;^UTILITY(U,$J,112,6889,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,6890,0)
;;=CEREALS,R-T-E,GRAPE-NUTS W/RAISINS,POST^BC-00163^oz.^28
;;^UTILITY(U,$J,112,6890,1)
;;=9.643^1.071^78.929^364.286^8.214^^^39.286^6.429^85.714^228.571^382.143^503.571^3.571^.429^^^4464.286^^1.357
;;^UTILITY(U,$J,112,6890,2)
;;=1.536^17.857^^1.786^357.143^5.357^^^0^.357^^.357^^^^^5.714
;;^UTILITY(U,$J,112,6890,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,6891,0)
;;=CEREALS,R-T-E,HEARTWISE,KELLOGG'S^BC-00164^oz.^28
;;^UTILITY(U,$J,112,6891,1)
;;=10.714^3.571^82.143^285.714^^^^78.571^16.071^142.857^400^678.571^446.429^5.357^.286^^^2678.571^53.571^1.357
;;^UTILITY(U,$J,112,6891,2)
;;=1.536^17.857^^1.786^357.143^^^^0^^^^^^^^21.429
;;^UTILITY(U,$J,112,6891,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,6892,0)
;;=CEREALS,R-T-E,HONEY BUNCHES OF OATS,POST^BC-00165^oz.^28
;;^UTILITY(U,$J,112,6892,1)
;;=7.143^7.143^82.143^396.429^^^^32.143^9.643^57.143^142.857^207.143^628.571^3.571^.25^^^4464.286^^1.357
;;^UTILITY(U,$J,112,6892,2)
;;=1.536^17.857^.25^1.786^357.143^5.357^^^^^^^^^^^5.714
;;^UTILITY(U,$J,112,6892,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,6893,0)
;;=CEREALS,R-T-E,HONEY NUT CHERRIOS,GENERAL MILLS^BC-00166^oz.^28
;;^UTILITY(U,$J,112,6893,1)
;;=11.071^2.5^81.429^392.857^3.214^^^71.429^15.893^117.857^375^321.429^892.857^2.643^.707^^^4464.286^53.571^1.321
;;^UTILITY(U,$J,112,6893,2)
;;=1.5^17.857^^1.786^^5.357^^^0^.357^1.071^1.071^1339.286^^^^5.357
;;^UTILITY(U,$J,112,6893,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,6894,0)
;;=CEREALS,R-T-E,JUST RIGHT W/FIBER NUGGETS,KELLOGG'S^BC-00167^oz.^28
;;^UTILITY(U,$J,112,6894,1)
;;=7.143^3.571^85.714^357.143^^^^32.143^64.286^64.286^232.143^250^714.286^53.571^0^^^2678.571^0^5.357
;;^UTILITY(U,$J,112,6894,2)
;;=6.071^71.429^^7.143^1428.571^21.429^^^0^^^^^^^^7.143
;;^UTILITY(U,$J,112,6894,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,6895,0)
;;=CEREALS,R-T-E,KENMEI RICE BRAN,ALMOND W/RAISIN,KELLOGG'S^BC-00168^1.4-oz.^40
;;^UTILITY(U,$J,112,6895,1)
;;=7.5^5^80^375^^^^170^2.25^27.5^235^300^575^3.75^.125^^^1875^0^.95
;;^UTILITY(U,$J,112,6895,2)
;;=1.075^12.5^^1.25^250^5^^^0^^^^^^^^5
;;^UTILITY(U,$J,112,6895,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,6896,0)
;;=CEREALS,R-T-E,KENMEI RICE BRAN,KELLOGG'S^BC-00169^oz.^28
;;^UTILITY(U,$J,112,6896,1)
;;=7.143^3.571^85.714^392.857^^^^210.714^1.429^7.143^303.571^214.286^892.857^5.357^0^^^2678.571^0^1.357
;;^UTILITY(U,$J,112,6896,2)
;;=1.536^17.857^^1.786^357.143^7.143^^^0^^^^^^^^3.571
;;^UTILITY(U,$J,112,6896,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,6897,0)
;;=CEREALS,R-T-E,KING VITAMAN,QUAKER^BC-00170^oz.^28
;;^UTILITY(U,$J,112,6897,1)
;;=7.143^3.571^82.143^392.857^2.5^^^21.429^28.929^50^142.857^178.571^1000^1.071^.143^.786^^5357.143^85.714^2.143
;;^UTILITY(U,$J,112,6897,2)
;;=2.429^28.571^.214^2.143^571.429^8.571^^^^0^0^0^^^^^4.286
;;^UTILITY(U,$J,112,6897,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,6898,0)
;;=CEREALS,R-T-E,KIX,GENERAL MILLS^BC-00171^oz.^28
;;^UTILITY(U,$J,112,6898,1)
;;=8.929^2.5^83.571^392.857^3.214^^^125^.168^42.857^139.286^142.857^928.571^.893^.168^^^4464.286^53.571^1.321
FHINI0A5 ; ; 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,6887,0)
+2 ;;=CEREALS,R-T-E,GRANOLA,HEARTY W/RAISINS,POST^BC-00160^oz.^28
+3 ;;^UTILITY(U,$J,112,6887,1)
+4 ;;=7.857^13.571^74.286^439.286^2.857^^^39.286^15.857^78.571^203.571^264.286^282.143^2.357^.404^^^4410.714^0^1.321
+5 ;;^UTILITY(U,$J,112,6887,2)
+6 ;;=1.5^17.5^^1.75^353.571^5.286^^^0^9.643^^1.429^^^^^3.214
+7 ;;^UTILITY(U,$J,112,6887,20)
+8 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+9 ;;^UTILITY(U,$J,112,6888,0)
+10 ;;=CEREALS,R-T-E,GRAPE-NUT FLAKES,POST^BC-00161^oz.^28
+11 ;;^UTILITY(U,$J,112,6888,1)
+12 ;;=9.643^3.214^82.5^375^3.571^^^35.714^28.929^107.143^296.429^307.143^392.857^4.286^.464^^^4464.286^0^1.357
+13 ;;^UTILITY(U,$J,112,6888,2)
+14 ;;=1.536^17.857^1.036^1.786^357.143^5.357^^^0^1.429^.357^.714^^^^^10
+15 ;;^UTILITY(U,$J,112,6888,20)
+16 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+17 ;;^UTILITY(U,$J,112,6889,0)
+18 ;;=CEREALS,R-T-E,GRAPE-NUTS,POST^BC-00162^oz.^28
+19 ;;^UTILITY(U,$J,112,6889,1)
+20 ;;=11.071^.357^82.5^375^3.571^^^35.714^28.929^92.857^271.429^325^607.143^3.571^.464^^^4464.286^^1.357
+21 ;;^UTILITY(U,$J,112,6889,2)
+22 ;;=1.536^17.857^.964^1.786^357.143^5.357^^^0^0^^.357^^^^^9.286
+23 ;;^UTILITY(U,$J,112,6889,20)
+24 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+25 ;;^UTILITY(U,$J,112,6890,0)
+26 ;;=CEREALS,R-T-E,GRAPE-NUTS W/RAISINS,POST^BC-00163^oz.^28
+27 ;;^UTILITY(U,$J,112,6890,1)
+28 ;;=9.643^1.071^78.929^364.286^8.214^^^39.286^6.429^85.714^228.571^382.143^503.571^3.571^.429^^^4464.286^^1.357
+29 ;;^UTILITY(U,$J,112,6890,2)
+30 ;;=1.536^17.857^^1.786^357.143^5.357^^^0^.357^^.357^^^^^5.714
+31 ;;^UTILITY(U,$J,112,6890,20)
+32 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+33 ;;^UTILITY(U,$J,112,6891,0)
+34 ;;=CEREALS,R-T-E,HEARTWISE,KELLOGG'S^BC-00164^oz.^28
+35 ;;^UTILITY(U,$J,112,6891,1)
+36 ;;=10.714^3.571^82.143^285.714^^^^78.571^16.071^142.857^400^678.571^446.429^5.357^.286^^^2678.571^53.571^1.357
+37 ;;^UTILITY(U,$J,112,6891,2)
+38 ;;=1.536^17.857^^1.786^357.143^^^^0^^^^^^^^21.429
+39 ;;^UTILITY(U,$J,112,6891,20)
+40 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+41 ;;^UTILITY(U,$J,112,6892,0)
+42 ;;=CEREALS,R-T-E,HONEY BUNCHES OF OATS,POST^BC-00165^oz.^28
+43 ;;^UTILITY(U,$J,112,6892,1)
+44 ;;=7.143^7.143^82.143^396.429^^^^32.143^9.643^57.143^142.857^207.143^628.571^3.571^.25^^^4464.286^^1.357
+45 ;;^UTILITY(U,$J,112,6892,2)
+46 ;;=1.536^17.857^.25^1.786^357.143^5.357^^^^^^^^^^^5.714
+47 ;;^UTILITY(U,$J,112,6892,20)
+48 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+49 ;;^UTILITY(U,$J,112,6893,0)
+50 ;;=CEREALS,R-T-E,HONEY NUT CHERRIOS,GENERAL MILLS^BC-00166^oz.^28
+51 ;;^UTILITY(U,$J,112,6893,1)
+52 ;;=11.071^2.5^81.429^392.857^3.214^^^71.429^15.893^117.857^375^321.429^892.857^2.643^.707^^^4464.286^53.571^1.321
+53 ;;^UTILITY(U,$J,112,6893,2)
+54 ;;=1.5^17.857^^1.786^^5.357^^^0^.357^1.071^1.071^1339.286^^^^5.357
+55 ;;^UTILITY(U,$J,112,6893,20)
+56 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+57 ;;^UTILITY(U,$J,112,6894,0)
+58 ;;=CEREALS,R-T-E,JUST RIGHT W/FIBER NUGGETS,KELLOGG'S^BC-00167^oz.^28
+59 ;;^UTILITY(U,$J,112,6894,1)
+60 ;;=7.143^3.571^85.714^357.143^^^^32.143^64.286^64.286^232.143^250^714.286^53.571^0^^^2678.571^0^5.357
+61 ;;^UTILITY(U,$J,112,6894,2)
+62 ;;=6.071^71.429^^7.143^1428.571^21.429^^^0^^^^^^^^7.143
+63 ;;^UTILITY(U,$J,112,6894,20)
+64 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+65 ;;^UTILITY(U,$J,112,6895,0)
+66 ;;=CEREALS,R-T-E,KENMEI RICE BRAN,ALMOND W/RAISIN,KELLOGG'S^BC-00168^1.4-oz.^40
+67 ;;^UTILITY(U,$J,112,6895,1)
+68 ;;=7.5^5^80^375^^^^170^2.25^27.5^235^300^575^3.75^.125^^^1875^0^.95
+69 ;;^UTILITY(U,$J,112,6895,2)
+70 ;;=1.075^12.5^^1.25^250^5^^^0^^^^^^^^5
+71 ;;^UTILITY(U,$J,112,6895,20)
+72 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+73 ;;^UTILITY(U,$J,112,6896,0)
+74 ;;=CEREALS,R-T-E,KENMEI RICE BRAN,KELLOGG'S^BC-00169^oz.^28
+75 ;;^UTILITY(U,$J,112,6896,1)
+76 ;;=7.143^3.571^85.714^392.857^^^^210.714^1.429^7.143^303.571^214.286^892.857^5.357^0^^^2678.571^0^1.357
+77 ;;^UTILITY(U,$J,112,6896,2)
+78 ;;=1.536^17.857^^1.786^357.143^7.143^^^0^^^^^^^^3.571
+79 ;;^UTILITY(U,$J,112,6896,20)
+80 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+81 ;;^UTILITY(U,$J,112,6897,0)
+82 ;;=CEREALS,R-T-E,KING VITAMAN,QUAKER^BC-00170^oz.^28
+83 ;;^UTILITY(U,$J,112,6897,1)
+84 ;;=7.143^3.571^82.143^392.857^2.5^^^21.429^28.929^50^142.857^178.571^1000^1.071^.143^.786^^5357.143^85.714^2.143
+85 ;;^UTILITY(U,$J,112,6897,2)
+86 ;;=2.429^28.571^.214^2.143^571.429^8.571^^^^0^0^0^^^^^4.286
+87 ;;^UTILITY(U,$J,112,6897,20)
+88 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+89 ;;^UTILITY(U,$J,112,6898,0)
+90 ;;=CEREALS,R-T-E,KIX,GENERAL MILLS^BC-00171^oz.^28
+91 ;;^UTILITY(U,$J,112,6898,1)
+92 ;;=8.929^2.5^83.571^392.857^3.214^^^125^.168^42.857^139.286^142.857^928.571^.893^.168^^^4464.286^53.571^1.321
