FHINI0A6 ; ; 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,6898,2)
;;=1.5^17.857^^1.786^^5.357^^^0^.714^.714^1.071^1339.286
;;^UTILITY(U,$J,112,6898,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,6899,0)
;;=CEREALS,R-T-E,LIFE,QUAKER^BC-00172^oz.^28
;;^UTILITY(U,$J,112,6899,1)
;;=18.214^6.071^66.786^360.714^4.643^^^332.143^28.929^164.286^578.571^610.714^664.286^3^.607^3.679^^0^0^1.643
;;^UTILITY(U,$J,112,6899,2)
;;=1.607^20^.75^.143^67.857^0^^^^^^^0^^^^8.929
;;^UTILITY(U,$J,112,6899,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,6900,0)
;;=CEREALS,R-T-E,LUCKY CHARMS,GENERAL MILLS^BC-00173^oz.^28
;;^UTILITY(U,$J,112,6900,1)
;;=9.286^3.929^82.857^392.857^2.857^^^114.286^16.071^85.714^278.571^250^642.857^1.786^.35^^^4464.286^53.571^1.429
;;^UTILITY(U,$J,112,6900,2)
;;=1.429^17.857^.643^1.786^^5.357^^^0^.714^1.429^1.429^1339.286
;;^UTILITY(U,$J,112,6900,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,6901,0)
;;=CEREALS,R-T-E,MUSELIX CRISPY BLEND,KELLOGG'S^BC-00174^1.5-oz.^43
;;^UTILITY(U,$J,112,6901,1)
;;=6.977^4.651^76.744^372.093^^^^83.721^10.465^67.442^218.605^372.093^348.837^8.721^.186^^^465.116^0^.884
;;^UTILITY(U,$J,112,6901,2)
;;=1^11.628^^1.163^232.558^4.651^^^0^^^^^^^^6.977
;;^UTILITY(U,$J,112,6901,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,6902,0)
;;=CEREALS,R-T-E,MUSELIX GOLDEN CRUNCH,KELLOGG'S^BC-00175^1.2-oz.^34
;;^UTILITY(U,$J,112,6902,1)
;;=8.824^5.882^73.529^352.941^^^^55.882^13.235^100^261.765^338.235^500^8.824^.265^^^2205.882^0^1.118
;;^UTILITY(U,$J,112,6902,2)
;;=1.265^14.706^^1.471^294.118^2.941^^^0^^^^^^^^8.824
;;^UTILITY(U,$J,112,6902,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,6903,0)
;;=CEREALS,R-T-E,NUT&HONEY CRUNCH,KELLOGG'S^BC-00176^oz.^28
;;^UTILITY(U,$J,112,6903,1)
;;=7.143^3.571^85.714^392.857^^^^14.286^6.429^21.429^57.143^142.857^714.286^.357^.143^^^2678.571^53.571^1.357
;;^UTILITY(U,$J,112,6903,2)
;;=1.536^17.857^^1.786^357.143^^^^0^^^^^^^^0
;;^UTILITY(U,$J,112,6903,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,6904,0)
;;=CEREALS,R-T-E,NUTRI-GRAIN,KELLOGG'S ALMOND RAISIN^BC-00177^1.4-oz.^40
;;^UTILITY(U,$J,112,6904,1)
;;=7.5^5^77.5^350^^^^40^2^27.5^192.5^325^550^9.375^.075^^^0^0^.95
;;^UTILITY(U,$J,112,6904,2)
;;=1.075^12.5^^1.25^250^5^^^0^^^^^^^^7.5
;;^UTILITY(U,$J,112,6904,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,6905,0)
;;=CEREALS,R-T-E,NUTRI-GRAIN,KELLOGG'S WHEAT^BC-00178^oz.^28
;;^UTILITY(U,$J,112,6905,1)
;;=8.929^1.071^85.714^357.143^3.214^^^32.143^2.5^107.143^328.571^321.429^607.143^13.393^.429^^^^53.571^1.357
;;^UTILITY(U,$J,112,6905,2)
;;=1.536^17.857^^1.786^357.143^7.143^^^0^^^^^^^^10.714
;;^UTILITY(U,$J,112,6905,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,6906,0)
;;=CEREALS,R-T-E,OAT BRAN CEREAL,COMMON SENSE^BC-00179^oz.^28
;;^UTILITY(U,$J,112,6906,1)
;;=14.286^3.571^78.571^357.143^^^^50^16.071^142.857^450^410.714^964.286^13.393^.536^^^2678.571^0^1.357
;;^UTILITY(U,$J,112,6906,2)
;;=1.536^17.857^^1.786^357.143^7.143^^^0^^^^^^^^10.714
;;^UTILITY(U,$J,112,6906,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,6907,0)
;;=CEREALS,R-T-E,OATMEAL CRISP,GENERAL MILLS^BC-00180^oz.^28
;;^UTILITY(U,$J,112,6907,1)
;;=7.143^7.143^78.571^392.857^^^^^^^^285.714^642.857
;;^UTILITY(U,$J,112,6907,2)
;;=^^^^^^^^0^^^^^^^^3.571
;;^UTILITY(U,$J,112,6907,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,6908,0)
;;=CEREALS,R-T-E,100% NATURAL,NATURE VALLEY CINN&RAISIN^BC-00181^oz.^28
;;^UTILITY(U,$J,112,6908,1)
;;=7.143^14.286^71.429^428.571^^^^^^^^285.714^321.429
;;^UTILITY(U,$J,112,6908,2)
;;=^^^^^^^^0^^^^^^^^3.571
;;^UTILITY(U,$J,112,6908,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,6909,0)
;;=CEREAL,R-T-E,100% NATURAL,QUAKER^BC-00182^oz.^28
;;^UTILITY(U,$J,112,6909,1)
;;=11.786^19.643^64.286^453.571^2.143^^^153.571^2.821^110.714^360.714^478.571^50^2.25^.429^2.429^^0^0^.286
;;^UTILITY(U,$J,112,6909,2)
;;=.25^1.429^.929^.179^42.857^.929^^^^11.071^3.214^2.143^0^^^^7.143
;;^UTILITY(U,$J,112,6909,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,6910,0)
;;=CEREALS,R-T-E,PRODUCT 19,KELLOGG'S^BC-00183^oz.^28
;;^UTILITY(U,$J,112,6910,1)
;;=10^.714^83.929^357.143^3.214^^^14.286^64.286^42.857^132.143^160.714^1142.857^53.571^.179^^^2678.571^214.286^5.357
FHINI0A6 ; ; 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,6898,2)
+2 ;;=1.5^17.857^^1.786^^5.357^^^0^.714^.714^1.071^1339.286
+3 ;;^UTILITY(U,$J,112,6898,20)
+4 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+5 ;;^UTILITY(U,$J,112,6899,0)
+6 ;;=CEREALS,R-T-E,LIFE,QUAKER^BC-00172^oz.^28
+7 ;;^UTILITY(U,$J,112,6899,1)
+8 ;;=18.214^6.071^66.786^360.714^4.643^^^332.143^28.929^164.286^578.571^610.714^664.286^3^.607^3.679^^0^0^1.643
+9 ;;^UTILITY(U,$J,112,6899,2)
+10 ;;=1.607^20^.75^.143^67.857^0^^^^^^^0^^^^8.929
+11 ;;^UTILITY(U,$J,112,6899,20)
+12 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+13 ;;^UTILITY(U,$J,112,6900,0)
+14 ;;=CEREALS,R-T-E,LUCKY CHARMS,GENERAL MILLS^BC-00173^oz.^28
+15 ;;^UTILITY(U,$J,112,6900,1)
+16 ;;=9.286^3.929^82.857^392.857^2.857^^^114.286^16.071^85.714^278.571^250^642.857^1.786^.35^^^4464.286^53.571^1.429
+17 ;;^UTILITY(U,$J,112,6900,2)
+18 ;;=1.429^17.857^.643^1.786^^5.357^^^0^.714^1.429^1.429^1339.286
+19 ;;^UTILITY(U,$J,112,6900,20)
+20 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+21 ;;^UTILITY(U,$J,112,6901,0)
+22 ;;=CEREALS,R-T-E,MUSELIX CRISPY BLEND,KELLOGG'S^BC-00174^1.5-oz.^43
+23 ;;^UTILITY(U,$J,112,6901,1)
+24 ;;=6.977^4.651^76.744^372.093^^^^83.721^10.465^67.442^218.605^372.093^348.837^8.721^.186^^^465.116^0^.884
+25 ;;^UTILITY(U,$J,112,6901,2)
+26 ;;=1^11.628^^1.163^232.558^4.651^^^0^^^^^^^^6.977
+27 ;;^UTILITY(U,$J,112,6901,20)
+28 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+29 ;;^UTILITY(U,$J,112,6902,0)
+30 ;;=CEREALS,R-T-E,MUSELIX GOLDEN CRUNCH,KELLOGG'S^BC-00175^1.2-oz.^34
+31 ;;^UTILITY(U,$J,112,6902,1)
+32 ;;=8.824^5.882^73.529^352.941^^^^55.882^13.235^100^261.765^338.235^500^8.824^.265^^^2205.882^0^1.118
+33 ;;^UTILITY(U,$J,112,6902,2)
+34 ;;=1.265^14.706^^1.471^294.118^2.941^^^0^^^^^^^^8.824
+35 ;;^UTILITY(U,$J,112,6902,20)
+36 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+37 ;;^UTILITY(U,$J,112,6903,0)
+38 ;;=CEREALS,R-T-E,NUT&HONEY CRUNCH,KELLOGG'S^BC-00176^oz.^28
+39 ;;^UTILITY(U,$J,112,6903,1)
+40 ;;=7.143^3.571^85.714^392.857^^^^14.286^6.429^21.429^57.143^142.857^714.286^.357^.143^^^2678.571^53.571^1.357
+41 ;;^UTILITY(U,$J,112,6903,2)
+42 ;;=1.536^17.857^^1.786^357.143^^^^0^^^^^^^^0
+43 ;;^UTILITY(U,$J,112,6903,20)
+44 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+45 ;;^UTILITY(U,$J,112,6904,0)
+46 ;;=CEREALS,R-T-E,NUTRI-GRAIN,KELLOGG'S ALMOND RAISIN^BC-00177^1.4-oz.^40
+47 ;;^UTILITY(U,$J,112,6904,1)
+48 ;;=7.5^5^77.5^350^^^^40^2^27.5^192.5^325^550^9.375^.075^^^0^0^.95
+49 ;;^UTILITY(U,$J,112,6904,2)
+50 ;;=1.075^12.5^^1.25^250^5^^^0^^^^^^^^7.5
+51 ;;^UTILITY(U,$J,112,6904,20)
+52 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+53 ;;^UTILITY(U,$J,112,6905,0)
+54 ;;=CEREALS,R-T-E,NUTRI-GRAIN,KELLOGG'S WHEAT^BC-00178^oz.^28
+55 ;;^UTILITY(U,$J,112,6905,1)
+56 ;;=8.929^1.071^85.714^357.143^3.214^^^32.143^2.5^107.143^328.571^321.429^607.143^13.393^.429^^^^53.571^1.357
+57 ;;^UTILITY(U,$J,112,6905,2)
+58 ;;=1.536^17.857^^1.786^357.143^7.143^^^0^^^^^^^^10.714
+59 ;;^UTILITY(U,$J,112,6905,20)
+60 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+61 ;;^UTILITY(U,$J,112,6906,0)
+62 ;;=CEREALS,R-T-E,OAT BRAN CEREAL,COMMON SENSE^BC-00179^oz.^28
+63 ;;^UTILITY(U,$J,112,6906,1)
+64 ;;=14.286^3.571^78.571^357.143^^^^50^16.071^142.857^450^410.714^964.286^13.393^.536^^^2678.571^0^1.357
+65 ;;^UTILITY(U,$J,112,6906,2)
+66 ;;=1.536^17.857^^1.786^357.143^7.143^^^0^^^^^^^^10.714
+67 ;;^UTILITY(U,$J,112,6906,20)
+68 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+69 ;;^UTILITY(U,$J,112,6907,0)
+70 ;;=CEREALS,R-T-E,OATMEAL CRISP,GENERAL MILLS^BC-00180^oz.^28
+71 ;;^UTILITY(U,$J,112,6907,1)
+72 ;;=7.143^7.143^78.571^392.857^^^^^^^^285.714^642.857
+73 ;;^UTILITY(U,$J,112,6907,2)
+74 ;;=^^^^^^^^0^^^^^^^^3.571
+75 ;;^UTILITY(U,$J,112,6907,20)
+76 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+77 ;;^UTILITY(U,$J,112,6908,0)
+78 ;;=CEREALS,R-T-E,100% NATURAL,NATURE VALLEY CINN&RAISIN^BC-00181^oz.^28
+79 ;;^UTILITY(U,$J,112,6908,1)
+80 ;;=7.143^14.286^71.429^428.571^^^^^^^^285.714^321.429
+81 ;;^UTILITY(U,$J,112,6908,2)
+82 ;;=^^^^^^^^0^^^^^^^^3.571
+83 ;;^UTILITY(U,$J,112,6908,20)
+84 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+85 ;;^UTILITY(U,$J,112,6909,0)
+86 ;;=CEREAL,R-T-E,100% NATURAL,QUAKER^BC-00182^oz.^28
+87 ;;^UTILITY(U,$J,112,6909,1)
+88 ;;=11.786^19.643^64.286^453.571^2.143^^^153.571^2.821^110.714^360.714^478.571^50^2.25^.429^2.429^^0^0^.286
+89 ;;^UTILITY(U,$J,112,6909,2)
+90 ;;=.25^1.429^.929^.179^42.857^.929^^^^11.071^3.214^2.143^0^^^^7.143
+91 ;;^UTILITY(U,$J,112,6909,20)
+92 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+93 ;;^UTILITY(U,$J,112,6910,0)
+94 ;;=CEREALS,R-T-E,PRODUCT 19,KELLOGG'S^BC-00183^oz.^28
+95 ;;^UTILITY(U,$J,112,6910,1)
+96 ;;=10^.714^83.929^357.143^3.214^^^14.286^64.286^42.857^132.143^160.714^1142.857^53.571^.179^^^2678.571^214.286^5.357
