FHINI0A3 ; ; 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,6862,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,6863,0)
;;=CEREALS,R-T-E,COCOA KRISPIES,KELLOGG'S^BC-00136^oz.^28
;;^UTILITY(U,$J,112,6863,1)
;;=5.357^1.429^90^392.857^2.5^^^21.429^6.429^39.286^107.143^160.714^678.571^5.357^.214^^^2678.571^53.571^1.357
;;^UTILITY(U,$J,112,6863,2)
;;=1.536^17.857^^1.786^357.143^^^^0^^^^^^^^0
;;^UTILITY(U,$J,112,6863,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,6864,0)
;;=CEREALS,R-T-E,COCOA PUFFS,GENERAL MILLS^BC-00137^oz.^28
;;^UTILITY(U,$J,112,6864,1)
;;=3.571^3.571^89.286^392.857^^^^^^^^178.571^607.143
;;^UTILITY(U,$J,112,6864,2)
;;=^^^^^^^^0
;;^UTILITY(U,$J,112,6864,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,6865,0)
;;=CEREALS,R-T-E,COOKIE CRISP,CHOC CHIP,RALSTON PURINA^BC-00138^oz.^28
;;^UTILITY(U,$J,112,6865,1)
;;=5.357^3.571^89.286^392.857^1.786^^^32.143^16.071^28.571^107.143^150^678.571^8.036^.018^^^4464.286^53.571^1.357
;;^UTILITY(U,$J,112,6865,2)
;;=.929^17.857^7.143^1.786^357.143^5.357^^^^^^^1339.286^^^^3.571
;;^UTILITY(U,$J,112,6865,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,6866,0)
;;=CEREALS,R-T-E,CORN BRAN,QUAKER^BC-00139^oz.^28
;;^UTILITY(U,$J,112,6866,1)
;;=7.857^3.214^83.214^389.286^1.429^^^82.143^28.929^28.571^71.429^221.429^871.429^10.714^.214^0^^0^^1.321
;;^UTILITY(U,$J,112,6866,2)
;;=.929^17.857^7.143^1.786^357.143^3.571^^^^^^^0^^^^19.286
;;^UTILITY(U,$J,112,6866,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,6867,0)
;;=CEREALS,R-T-E,CORN FLAKES,KELLOGG'S^BC-00140^oz.^28
;;^UTILITY(U,$J,112,6867,1)
;;=8.214^.357^87.143^357.143^2.5^^^3.571^6.429^10.714^39.286^125^1035.714^.679^.071^.082^^2678.571^53.571^1.357
;;^UTILITY(U,$J,112,6867,2)
;;=1.536^17.857^.179^1.786^357.143^^^^0^^^^^^^^3.571
;;^UTILITY(U,$J,112,6867,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,6868,0)
;;=CEREALS,R-T-E,CORN POPS,KELLOGG'S^BC-00141^oz.^28
;;^UTILITY(U,$J,112,6868,1)
;;=3.571^0^92.857^392.857^^^^7.143^6.429^7.143^28.571^71.429^321.429^5.357^.071^^^2678.571^53.571^1.357
;;^UTILITY(U,$J,112,6868,2)
;;=1.536^17.857^^1.786^357.143^^^^0^^^^^^^^0
;;^UTILITY(U,$J,112,6868,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,6869,0)
;;=CEREALS,R-T-E,COUNT CHOCULA,GENERAL MILLS^BC-00142^oz.^28
;;^UTILITY(U,$J,112,6869,1)
;;=7.143^3.571^85.714^392.857^^^^^^^^214.286^750
;;^UTILITY(U,$J,112,6869,2)
;;=^^^^^^^^0
;;^UTILITY(U,$J,112,6869,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,6870,0)
;;=CEREALS,R-T-E,CRACKLIN OAT BRAN,KELLOGG'S^BC-00143^oz.^28
;;^UTILITY(U,$J,112,6870,1)
;;=9.286^14.643^69.286^392.857^3.571^^^53.571^6.429^160.714^439.286^571.429^535.714^5.357^.679^^^2678.571^53.571^1.357
;;^UTILITY(U,$J,112,6870,2)
;;=1.536^17.857^1.143^1.786^357.143^^^^0^^^^^^^^14.286
;;^UTILITY(U,$J,112,6870,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,6871,0)
;;=CEREALS,R-T-E,CRISPIX,KELLOGG'S^BC-00144^oz.^28
;;^UTILITY(U,$J,112,6871,1)
;;=7.143^0^89.286^392.857^^^^10.714^6.429^25^92.857^107.143^785.714^5.357^.179^^^2678.571^53.571^1.357
;;^UTILITY(U,$J,112,6871,2)
;;=1.536^17.857^^1.786^357.143^^^^0^^^^^^^^0
;;^UTILITY(U,$J,112,6871,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,6872,0)
;;=CEREALS,R-T-E,CRISPY WHEATS&RAISINS,GENERAL MILLS^BC-00145^oz.^28
;;^UTILITY(U,$J,112,6872,1)
;;=7.143^1.786^82.5^357.143^7.143^^^167.857^16.071^82.143^275^428.571^500^1.214^.304^^^4464.286^^1.429
;;^UTILITY(U,$J,112,6872,2)
;;=1.429^17.857^^1.786^^5.357^^^0^^^^1339.286^^^^7.143
;;^UTILITY(U,$J,112,6872,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,6873,0)
;;=CEREALS,R-T-E,CRUNCHY BRAN,QUAKER^BC-00146^oz.^28
;;^UTILITY(U,$J,112,6873,1)
;;=7.143^4.643^80.714^317.857^2.5^^^82.143^30.929^46.429^135.714^192.857^1128.571^11.714^.25^1.393^^0^0^.821
;;^UTILITY(U,$J,112,6873,2)
;;=1.107^22.5^9^1.786^632.143^3.429^^^^1.429^.714^.714^^^^^18.571
;;^UTILITY(U,$J,112,6873,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,6874,0)
;;=CEREALS,R-T-E,FIBER ONE,GENERAL MILLS^BC-00147^oz.^28
;;^UTILITY(U,$J,112,6874,1)
;;=7.143^3.571^82.143^214.286^^^^^^^^892.857^500
;;^UTILITY(U,$J,112,6874,2)
;;=^^^^^^^^0^^^^^^^^46.429
;;^UTILITY(U,$J,112,6874,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,6875,0)
;;=CEREALS,R-T-E,FROOT LOOPS,KELLOGG'S^BC-00148^oz.^28
FHINI0A3 ; ; 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,6862,20)
+2 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+3 ;;^UTILITY(U,$J,112,6863,0)
+4 ;;=CEREALS,R-T-E,COCOA KRISPIES,KELLOGG'S^BC-00136^oz.^28
+5 ;;^UTILITY(U,$J,112,6863,1)
+6 ;;=5.357^1.429^90^392.857^2.5^^^21.429^6.429^39.286^107.143^160.714^678.571^5.357^.214^^^2678.571^53.571^1.357
+7 ;;^UTILITY(U,$J,112,6863,2)
+8 ;;=1.536^17.857^^1.786^357.143^^^^0^^^^^^^^0
+9 ;;^UTILITY(U,$J,112,6863,20)
+10 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+11 ;;^UTILITY(U,$J,112,6864,0)
+12 ;;=CEREALS,R-T-E,COCOA PUFFS,GENERAL MILLS^BC-00137^oz.^28
+13 ;;^UTILITY(U,$J,112,6864,1)
+14 ;;=3.571^3.571^89.286^392.857^^^^^^^^178.571^607.143
+15 ;;^UTILITY(U,$J,112,6864,2)
+16 ;;=^^^^^^^^0
+17 ;;^UTILITY(U,$J,112,6864,20)
+18 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+19 ;;^UTILITY(U,$J,112,6865,0)
+20 ;;=CEREALS,R-T-E,COOKIE CRISP,CHOC CHIP,RALSTON PURINA^BC-00138^oz.^28
+21 ;;^UTILITY(U,$J,112,6865,1)
+22 ;;=5.357^3.571^89.286^392.857^1.786^^^32.143^16.071^28.571^107.143^150^678.571^8.036^.018^^^4464.286^53.571^1.357
+23 ;;^UTILITY(U,$J,112,6865,2)
+24 ;;=.929^17.857^7.143^1.786^357.143^5.357^^^^^^^1339.286^^^^3.571
+25 ;;^UTILITY(U,$J,112,6865,20)
+26 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+27 ;;^UTILITY(U,$J,112,6866,0)
+28 ;;=CEREALS,R-T-E,CORN BRAN,QUAKER^BC-00139^oz.^28
+29 ;;^UTILITY(U,$J,112,6866,1)
+30 ;;=7.857^3.214^83.214^389.286^1.429^^^82.143^28.929^28.571^71.429^221.429^871.429^10.714^.214^0^^0^^1.321
+31 ;;^UTILITY(U,$J,112,6866,2)
+32 ;;=.929^17.857^7.143^1.786^357.143^3.571^^^^^^^0^^^^19.286
+33 ;;^UTILITY(U,$J,112,6866,20)
+34 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+35 ;;^UTILITY(U,$J,112,6867,0)
+36 ;;=CEREALS,R-T-E,CORN FLAKES,KELLOGG'S^BC-00140^oz.^28
+37 ;;^UTILITY(U,$J,112,6867,1)
+38 ;;=8.214^.357^87.143^357.143^2.5^^^3.571^6.429^10.714^39.286^125^1035.714^.679^.071^.082^^2678.571^53.571^1.357
+39 ;;^UTILITY(U,$J,112,6867,2)
+40 ;;=1.536^17.857^.179^1.786^357.143^^^^0^^^^^^^^3.571
+41 ;;^UTILITY(U,$J,112,6867,20)
+42 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+43 ;;^UTILITY(U,$J,112,6868,0)
+44 ;;=CEREALS,R-T-E,CORN POPS,KELLOGG'S^BC-00141^oz.^28
+45 ;;^UTILITY(U,$J,112,6868,1)
+46 ;;=3.571^0^92.857^392.857^^^^7.143^6.429^7.143^28.571^71.429^321.429^5.357^.071^^^2678.571^53.571^1.357
+47 ;;^UTILITY(U,$J,112,6868,2)
+48 ;;=1.536^17.857^^1.786^357.143^^^^0^^^^^^^^0
+49 ;;^UTILITY(U,$J,112,6868,20)
+50 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+51 ;;^UTILITY(U,$J,112,6869,0)
+52 ;;=CEREALS,R-T-E,COUNT CHOCULA,GENERAL MILLS^BC-00142^oz.^28
+53 ;;^UTILITY(U,$J,112,6869,1)
+54 ;;=7.143^3.571^85.714^392.857^^^^^^^^214.286^750
+55 ;;^UTILITY(U,$J,112,6869,2)
+56 ;;=^^^^^^^^0
+57 ;;^UTILITY(U,$J,112,6869,20)
+58 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+59 ;;^UTILITY(U,$J,112,6870,0)
+60 ;;=CEREALS,R-T-E,CRACKLIN OAT BRAN,KELLOGG'S^BC-00143^oz.^28
+61 ;;^UTILITY(U,$J,112,6870,1)
+62 ;;=9.286^14.643^69.286^392.857^3.571^^^53.571^6.429^160.714^439.286^571.429^535.714^5.357^.679^^^2678.571^53.571^1.357
+63 ;;^UTILITY(U,$J,112,6870,2)
+64 ;;=1.536^17.857^1.143^1.786^357.143^^^^0^^^^^^^^14.286
+65 ;;^UTILITY(U,$J,112,6870,20)
+66 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+67 ;;^UTILITY(U,$J,112,6871,0)
+68 ;;=CEREALS,R-T-E,CRISPIX,KELLOGG'S^BC-00144^oz.^28
+69 ;;^UTILITY(U,$J,112,6871,1)
+70 ;;=7.143^0^89.286^392.857^^^^10.714^6.429^25^92.857^107.143^785.714^5.357^.179^^^2678.571^53.571^1.357
+71 ;;^UTILITY(U,$J,112,6871,2)
+72 ;;=1.536^17.857^^1.786^357.143^^^^0^^^^^^^^0
+73 ;;^UTILITY(U,$J,112,6871,20)
+74 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+75 ;;^UTILITY(U,$J,112,6872,0)
+76 ;;=CEREALS,R-T-E,CRISPY WHEATS&RAISINS,GENERAL MILLS^BC-00145^oz.^28
+77 ;;^UTILITY(U,$J,112,6872,1)
+78 ;;=7.143^1.786^82.5^357.143^7.143^^^167.857^16.071^82.143^275^428.571^500^1.214^.304^^^4464.286^^1.429
+79 ;;^UTILITY(U,$J,112,6872,2)
+80 ;;=1.429^17.857^^1.786^^5.357^^^0^^^^1339.286^^^^7.143
+81 ;;^UTILITY(U,$J,112,6872,20)
+82 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+83 ;;^UTILITY(U,$J,112,6873,0)
+84 ;;=CEREALS,R-T-E,CRUNCHY BRAN,QUAKER^BC-00146^oz.^28
+85 ;;^UTILITY(U,$J,112,6873,1)
+86 ;;=7.143^4.643^80.714^317.857^2.5^^^82.143^30.929^46.429^135.714^192.857^1128.571^11.714^.25^1.393^^0^0^.821
+87 ;;^UTILITY(U,$J,112,6873,2)
+88 ;;=1.107^22.5^9^1.786^632.143^3.429^^^^1.429^.714^.714^^^^^18.571
+89 ;;^UTILITY(U,$J,112,6873,20)
+90 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+91 ;;^UTILITY(U,$J,112,6874,0)
+92 ;;=CEREALS,R-T-E,FIBER ONE,GENERAL MILLS^BC-00147^oz.^28
+93 ;;^UTILITY(U,$J,112,6874,1)
+94 ;;=7.143^3.571^82.143^214.286^^^^^^^^892.857^500
+95 ;;^UTILITY(U,$J,112,6874,2)
+96 ;;=^^^^^^^^0^^^^^^^^46.429
+97 ;;^UTILITY(U,$J,112,6874,20)
+98 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+99 ;;^UTILITY(U,$J,112,6875,0)
+100 ;;=CEREALS,R-T-E,FROOT LOOPS,KELLOGG'S^BC-00148^oz.^28
