FHINI0A2 ; ; 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,6850,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,6851,0)
;;=CEREALS,R-T-E,ALL-BRAN,KELLOGG'S^BC-00124^oz.^28
;;^UTILITY(U,$J,112,6851,1)
;;=14.286^3.571^78.571^250^3.214^^^89.286^16.071^435.714^992.857^1142.857^928.571^13.393^1.214^^^2678.571^53.571^1.357
;;^UTILITY(U,$J,112,6851,2)
;;=1.536^17.857^1.75^1.786^357.143^^^^0^^^^^^^^35.714
;;^UTILITY(U,$J,112,6851,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,6852,0)
;;=CEREALS,R-T-E,ALL-BRAN W/EXTRA FIBER,KELLOGG'S^BC-00125^oz.^28
;;^UTILITY(U,$J,112,6852,1)
;;=14.286^0^78.571^178.571^^^^100^16.071^403.571^971.429^1178.571^500^13.393^1^^^2678.571^53.571^1.357
;;^UTILITY(U,$J,112,6852,2)
;;=1.536^17.857^^1.786^357.143^7.143^^^0^^^^^^^^50
;;^UTILITY(U,$J,112,6852,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,6853,0)
;;=CEREALS,R-T-E,BRAN CHEX,RALSTON PURINA^BC-00126^oz.^28
;;^UTILITY(U,$J,112,6853,1)
;;=10.357^2.5^82.143^321.429^2.5^^^60.714^16.071^260.714^1035.714^725^1067.857^13.393^.746^^^221.429^53.571^1.357
;;^UTILITY(U,$J,112,6853,2)
;;=.571^17.857^1.036^1.786^357.143^5.357^^^^^^^21.429^^^^21.786
;;^UTILITY(U,$J,112,6853,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,6854,0)
;;=CEREALS,R-T-E,BRAN FLAKES,KELLOGG'S^BC-00127^oz.^28
;;^UTILITY(U,$J,112,6854,1)
;;=10.714^0^82.143^321.429^3.214^^^46.429^64.286^192.857^500^607.143^785.714^13.393^.607^^^2678.571^0^1.357
;;^UTILITY(U,$J,112,6854,2)
;;=1.536^17.857^^1.786^357.143^7.143^^^0^^^^^^^^17.857
;;^UTILITY(U,$J,112,6854,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,6855,0)
;;=CEREALS,R-T-E,BRAN FLAKES,POST^BC-00128^oz.^28
;;^UTILITY(U,$J,112,6855,1)
;;=10.714^1.429^79.286^314.286^3.214^^^57.143^28.929^242.857^600^692.857^732.143^7.143^.857^^^4464.286^0^1.357
;;^UTILITY(U,$J,112,6855,2)
;;=1.536^17.857^^1.786^357.143^5.357^^^0^.357^^.714^^^^^20.357
;;^UTILITY(U,$J,112,6855,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,6856,0)
;;=CEREALS,R-T-E,CAP'N CRUNCH,QUAKER^BC-00129^oz.^28
;;^UTILITY(U,$J,112,6856,1)
;;=5.357^6.071^85^403.571^2.5^^^21.429^17.179^35.714^107.143^128.571^860.714^8.464^.143^.679^^0^0^1.286
;;^UTILITY(U,$J,112,6856,2)
;;=1^18.571^8.821^1.821^560.714^4.893^^^^2.857^.714^.714^0^^^^2.857
;;^UTILITY(U,$J,112,6856,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,6857,0)
;;=CEREALS,R-T-E,CAP'N CRUNCH'S CRUNCHBERRIES,QUAKER^BC-00130^oz.^28
;;^UTILITY(U,$J,112,6857,1)
;;=5.357^6.071^84.286^403.571^2.857^^^25^16.929^39.286^117.857^153.571^882.143^10.107^.036^.679^^0^0^1.571
;;^UTILITY(U,$J,112,6857,2)
;;=1^18.214^9.179^1.929^525^4.75^^^^3.214^.714^.714^^^^^2.5
;;^UTILITY(U,$J,112,6857,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,6858,0)
;;=CEREALS,R-T-E,CAP'N CRUNCH'S PEANUT BUTTER CRUNCH,QUAKER^BC-00131^oz.^28
;;^UTILITY(U,$J,112,6858,1)
;;=7.5^10.714^77.143^425^2.5^^^17.857^17.857^50^135.714^185.714^896.429^9.143^.179^.643^^0^0^1.357
;;^UTILITY(U,$J,112,6858,2)
;;=1.036^22.143^8.964^2.286^521.429^4^^^^3.214^2.5^2.143^0^^^^2.857
;;^UTILITY(U,$J,112,6858,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,6859,0)
;;=CEREALS,R-T-E,CHERRIOS,GENERAL MILLS^BC-00132^oz.^28
;;^UTILITY(U,$J,112,6859,1)
;;=15.357^6.429^70^392.857^5^^^171.429^15.893^139.286^478.571^375^1035.714^2.821^.511^2.725^^4464.286^53.571^1.321
;;^UTILITY(U,$J,112,6859,2)
;;=1.5^17.857^1.036^1.786^21.429^5.357^^^0^1.071^2.143^2.857^1339.286^^^^7.143
;;^UTILITY(U,$J,112,6859,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,6860,0)
;;=CEREALS,R-T-E,CINNAMON MINI-BUNS,KELLOGG'S^BC-00133^oz.^28
;;^UTILITY(U,$J,112,6860,1)
;;=7.143^3.571^89.286^392.857^^^^^^^^^785.714
;;^UTILITY(U,$J,112,6860,2)
;;=^^^^^^^^^^^^^^^^3.571
;;^UTILITY(U,$J,112,6860,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,6861,0)
;;=CEREALS,R-T-E,CINNAMON TOAST CRUNCH,GENERAL MILLS^BC-00134^oz.^28
;;^UTILITY(U,$J,112,6861,1)
;;=3.571^10.714^78.571^428.571^^^^^^^^160.714^785.714
;;^UTILITY(U,$J,112,6861,2)
;;=^^^^^^^^0
;;^UTILITY(U,$J,112,6861,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,6862,0)
;;=CEREALS,R-T-E,CLUSTERS,GENERAL MILLS^BC-00135^oz.^28
;;^UTILITY(U,$J,112,6862,1)
;;=10.714^10.714^71.429^392.857^^^^^^^^500^500
;;^UTILITY(U,$J,112,6862,2)
;;=^^^^^^^^0^^^^^^^^10.714
FHINI0A2 ; ; 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,6850,20)
+2 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+3 ;;^UTILITY(U,$J,112,6851,0)
+4 ;;=CEREALS,R-T-E,ALL-BRAN,KELLOGG'S^BC-00124^oz.^28
+5 ;;^UTILITY(U,$J,112,6851,1)
+6 ;;=14.286^3.571^78.571^250^3.214^^^89.286^16.071^435.714^992.857^1142.857^928.571^13.393^1.214^^^2678.571^53.571^1.357
+7 ;;^UTILITY(U,$J,112,6851,2)
+8 ;;=1.536^17.857^1.75^1.786^357.143^^^^0^^^^^^^^35.714
+9 ;;^UTILITY(U,$J,112,6851,20)
+10 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+11 ;;^UTILITY(U,$J,112,6852,0)
+12 ;;=CEREALS,R-T-E,ALL-BRAN W/EXTRA FIBER,KELLOGG'S^BC-00125^oz.^28
+13 ;;^UTILITY(U,$J,112,6852,1)
+14 ;;=14.286^0^78.571^178.571^^^^100^16.071^403.571^971.429^1178.571^500^13.393^1^^^2678.571^53.571^1.357
+15 ;;^UTILITY(U,$J,112,6852,2)
+16 ;;=1.536^17.857^^1.786^357.143^7.143^^^0^^^^^^^^50
+17 ;;^UTILITY(U,$J,112,6852,20)
+18 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+19 ;;^UTILITY(U,$J,112,6853,0)
+20 ;;=CEREALS,R-T-E,BRAN CHEX,RALSTON PURINA^BC-00126^oz.^28
+21 ;;^UTILITY(U,$J,112,6853,1)
+22 ;;=10.357^2.5^82.143^321.429^2.5^^^60.714^16.071^260.714^1035.714^725^1067.857^13.393^.746^^^221.429^53.571^1.357
+23 ;;^UTILITY(U,$J,112,6853,2)
+24 ;;=.571^17.857^1.036^1.786^357.143^5.357^^^^^^^21.429^^^^21.786
+25 ;;^UTILITY(U,$J,112,6853,20)
+26 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+27 ;;^UTILITY(U,$J,112,6854,0)
+28 ;;=CEREALS,R-T-E,BRAN FLAKES,KELLOGG'S^BC-00127^oz.^28
+29 ;;^UTILITY(U,$J,112,6854,1)
+30 ;;=10.714^0^82.143^321.429^3.214^^^46.429^64.286^192.857^500^607.143^785.714^13.393^.607^^^2678.571^0^1.357
+31 ;;^UTILITY(U,$J,112,6854,2)
+32 ;;=1.536^17.857^^1.786^357.143^7.143^^^0^^^^^^^^17.857
+33 ;;^UTILITY(U,$J,112,6854,20)
+34 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+35 ;;^UTILITY(U,$J,112,6855,0)
+36 ;;=CEREALS,R-T-E,BRAN FLAKES,POST^BC-00128^oz.^28
+37 ;;^UTILITY(U,$J,112,6855,1)
+38 ;;=10.714^1.429^79.286^314.286^3.214^^^57.143^28.929^242.857^600^692.857^732.143^7.143^.857^^^4464.286^0^1.357
+39 ;;^UTILITY(U,$J,112,6855,2)
+40 ;;=1.536^17.857^^1.786^357.143^5.357^^^0^.357^^.714^^^^^20.357
+41 ;;^UTILITY(U,$J,112,6855,20)
+42 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+43 ;;^UTILITY(U,$J,112,6856,0)
+44 ;;=CEREALS,R-T-E,CAP'N CRUNCH,QUAKER^BC-00129^oz.^28
+45 ;;^UTILITY(U,$J,112,6856,1)
+46 ;;=5.357^6.071^85^403.571^2.5^^^21.429^17.179^35.714^107.143^128.571^860.714^8.464^.143^.679^^0^0^1.286
+47 ;;^UTILITY(U,$J,112,6856,2)
+48 ;;=1^18.571^8.821^1.821^560.714^4.893^^^^2.857^.714^.714^0^^^^2.857
+49 ;;^UTILITY(U,$J,112,6856,20)
+50 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+51 ;;^UTILITY(U,$J,112,6857,0)
+52 ;;=CEREALS,R-T-E,CAP'N CRUNCH'S CRUNCHBERRIES,QUAKER^BC-00130^oz.^28
+53 ;;^UTILITY(U,$J,112,6857,1)
+54 ;;=5.357^6.071^84.286^403.571^2.857^^^25^16.929^39.286^117.857^153.571^882.143^10.107^.036^.679^^0^0^1.571
+55 ;;^UTILITY(U,$J,112,6857,2)
+56 ;;=1^18.214^9.179^1.929^525^4.75^^^^3.214^.714^.714^^^^^2.5
+57 ;;^UTILITY(U,$J,112,6857,20)
+58 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+59 ;;^UTILITY(U,$J,112,6858,0)
+60 ;;=CEREALS,R-T-E,CAP'N CRUNCH'S PEANUT BUTTER CRUNCH,QUAKER^BC-00131^oz.^28
+61 ;;^UTILITY(U,$J,112,6858,1)
+62 ;;=7.5^10.714^77.143^425^2.5^^^17.857^17.857^50^135.714^185.714^896.429^9.143^.179^.643^^0^0^1.357
+63 ;;^UTILITY(U,$J,112,6858,2)
+64 ;;=1.036^22.143^8.964^2.286^521.429^4^^^^3.214^2.5^2.143^0^^^^2.857
+65 ;;^UTILITY(U,$J,112,6858,20)
+66 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+67 ;;^UTILITY(U,$J,112,6859,0)
+68 ;;=CEREALS,R-T-E,CHERRIOS,GENERAL MILLS^BC-00132^oz.^28
+69 ;;^UTILITY(U,$J,112,6859,1)
+70 ;;=15.357^6.429^70^392.857^5^^^171.429^15.893^139.286^478.571^375^1035.714^2.821^.511^2.725^^4464.286^53.571^1.321
+71 ;;^UTILITY(U,$J,112,6859,2)
+72 ;;=1.5^17.857^1.036^1.786^21.429^5.357^^^0^1.071^2.143^2.857^1339.286^^^^7.143
+73 ;;^UTILITY(U,$J,112,6859,20)
+74 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+75 ;;^UTILITY(U,$J,112,6860,0)
+76 ;;=CEREALS,R-T-E,CINNAMON MINI-BUNS,KELLOGG'S^BC-00133^oz.^28
+77 ;;^UTILITY(U,$J,112,6860,1)
+78 ;;=7.143^3.571^89.286^392.857^^^^^^^^^785.714
+79 ;;^UTILITY(U,$J,112,6860,2)
+80 ;;=^^^^^^^^^^^^^^^^3.571
+81 ;;^UTILITY(U,$J,112,6860,20)
+82 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+83 ;;^UTILITY(U,$J,112,6861,0)
+84 ;;=CEREALS,R-T-E,CINNAMON TOAST CRUNCH,GENERAL MILLS^BC-00134^oz.^28
+85 ;;^UTILITY(U,$J,112,6861,1)
+86 ;;=3.571^10.714^78.571^428.571^^^^^^^^160.714^785.714
+87 ;;^UTILITY(U,$J,112,6861,2)
+88 ;;=^^^^^^^^0
+89 ;;^UTILITY(U,$J,112,6861,20)
+90 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+91 ;;^UTILITY(U,$J,112,6862,0)
+92 ;;=CEREALS,R-T-E,CLUSTERS,GENERAL MILLS^BC-00135^oz.^28
+93 ;;^UTILITY(U,$J,112,6862,1)
+94 ;;=10.714^10.714^71.429^392.857^^^^^^^^500^500
+95 ;;^UTILITY(U,$J,112,6862,2)
+96 ;;=^^^^^^^^0^^^^^^^^10.714
