FHINI0A7 ; ; 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,6910,2)
;;=6.071^71.429^.643^7.143^1428.571^21.429^^^0^^^^^^^^3.571
;;^UTILITY(U,$J,112,6910,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,6911,0)
;;=CEREALS,R-T-E,QUISP,QUAKER^BC-00184^oz.^28
;;^UTILITY(U,$J,112,6911,1)
;;=4.643^9.286^82.5^432.143^2.143^^^32.143^9.643^35.714^85.714^132.143^675^0^.036^0^^0^^1.071
;;^UTILITY(U,$J,112,6911,2)
;;=1.214^10.714^0^2.143^28.571^3.571^^^^5^1.071^1.071^0^^^^1.429
;;^UTILITY(U,$J,112,6911,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,6912,0)
;;=CEREALS,R-T-E,RAISIN BRAN,KELLOGG'S^BC-00185^1.4-oz.^40
;;^UTILITY(U,$J,112,6912,1)
;;=7.5^2.5^77.5^300^^^^40^45^160^365^650^575^9.375^.525^^^1875^0^.95
;;^UTILITY(U,$J,112,6912,2)
;;=1.075^12.5^^1.25^250^5^^^0^^^^^^^^12.5
;;^UTILITY(U,$J,112,6912,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,6913,0)
;;=CEREALS,R-T-E,RAISIN BRAN,NUTRI-GRAIN^BC-00186^1.4-oz.^40
;;^UTILITY(U,$J,112,6913,1)
;;=10^2.5^77.5^325^^^^500^45^130^597.5^625^500^37.5^.625^^^12500^0^3.75
;;^UTILITY(U,$J,112,6913,2)
;;=4.25^50^^5^1000^15^^^0^^^^^^^^12.5
;;^UTILITY(U,$J,112,6913,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,6914,0)
;;=CEREALS,R-T-E,RAISIN BRAN,POST^BC-00187^1.4-oz.^40
;;^UTILITY(U,$J,112,6914,1)
;;=7.5^2.5^80^305^^^^50^15.5^145^402.5^655^495^5^.625^^^4375^^1.3
;;^UTILITY(U,$J,112,6914,2)
;;=1.475^17.25^.7^1.75^347.5^5.25^^^0^^^^^^^^14.75
;;^UTILITY(U,$J,112,6914,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,6915,0)
;;=CEREALS,R-T-E,RAISIN BRAN,RALSTON PURINA^BC-00188^1.3-oz.^38
;;^UTILITY(U,$J,112,6915,1)
;;=7.895^.526^82.632^315.789^7.368^^^47.368^11.842^150^439.474^510.526^863.158^2.974^.542^^^3289.474^2.632^1.053
;;^UTILITY(U,$J,112,6915,2)
;;=1.053^13.158^.737^1.316^263.158^3.947^^^^^^^986.842^^^^12.632
;;^UTILITY(U,$J,112,6915,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,6916,0)
;;=CEREALS,R-T-E,RICE CHEX,RALSTON PURINA^BC-00189^oz.^28
;;^UTILITY(U,$J,112,6916,1)
;;=6.071^1.071^89.286^392.857^2.5^^^14.286^6.429^25^100^114.286^900^1.143^.243^^^60.714^53.571^1.357
;;^UTILITY(U,$J,112,6916,2)
;;=.143^17.857^.357^1.786^357.143^5.357^^^^^^^^^^^1.786
;;^UTILITY(U,$J,112,6916,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,6917,0)
;;=CEREALS,R-T-E,RICE KRISPIES,KELLOGG'S^BC-00190^oz.^28
;;^UTILITY(U,$J,112,6917,1)
;;=6.786^.714^88.571^392.857^2.5^^^10.714^6.429^39.286^121.429^125^1035.714^1.357^.179^1.004^^2678.571^53.571^1.357
;;^UTILITY(U,$J,112,6917,2)
;;=1.536^17.857^.714^1.786^357.143^^^^0^^^^^^^^0
;;^UTILITY(U,$J,112,6917,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,6918,0)
;;=CEREEALS,R-T-E,SEVEN GRAIN CEREAL,CRUNCHY,LOMA LINDA^BC-00191^oz.^28
;;^UTILITY(U,$J,112,6918,1)
;;=7.143^7.143^75^392.857^3.571^^^46.429^1.5^^^303.571^321.429^1.286^^^^^^.036
;;^UTILITY(U,$J,112,6918,2)
;;=.143^2.5^.536^.107^^0^^^0
;;^UTILITY(U,$J,112,6918,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,6919,0)
;;=CEREALS,R-T-E,SHREDDED WHEAT,QUAKER^BC-00192^1.4-oz.^40
;;^UTILITY(U,$J,112,6919,1)
;;=9.75^1.5^79^330^5.5^^^40^2.575^167.5^327.5^367.5^2.5^2.5^.5^3.05^^0^0^.2
;;^UTILITY(U,$J,112,6919,2)
;;=.1^4.25^.725^.225^45^0^^^^^^^^^^^9.25
;;^UTILITY(U,$J,112,6919,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,6920,0)
;;=CEREALS,R-T-E,SHREDDED WHEAT'N BRAN,NABISCO^BC-00193^oz.^28
;;^UTILITY(U,$J,112,6920,1)
;;=10.714^3.571^82.143^392.857^^^^^^^^482.143^0^82.143
;;^UTILITY(U,$J,112,6920,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,6921,0)
;;=CEREALS,R-T-E,SHREDDED WHEAT SQUARES,KELLOGG'S RAISIN^BC-00194^oz.^28
;;^UTILITY(U,$J,112,6921,1)
;;=7.143^0^82.143^321.429^^^^35.714^28.929^89.286^292.857^392.857^0^5.357^.214^^^^0^1.357
;;^UTILITY(U,$J,112,6921,2)
;;=1.536^17.857^^1.786^357.143^7.143^^^0^^^^^^^^7.143
;;^UTILITY(U,$J,112,6921,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,6922,0)
;;=CEREALS,R-T-E,S'MORES GRAHAMS,GENERAL MILLS^BC-00195^oz.^28
;;^UTILITY(U,$J,112,6922,1)
;;=3.571^7.143^85.714^428.571^^^^^^^^821.429^892.857
;;^UTILITY(U,$J,112,6922,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,6923,0)
;;=CEREALS,R-T-E,SPECIAL K,KELLOGG'S^BC-00196^oz.^28
;;^UTILITY(U,$J,112,6923,1)
;;=20^.357^76.071^392.857^2.143^^^35.714^16.071^64.286^203.571^196.429^821.429^13.393^.429^^^2678.571^53.571^1.893
FHINI0A7 ; ; 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,6910,2)
+2 ;;=6.071^71.429^.643^7.143^1428.571^21.429^^^0^^^^^^^^3.571
+3 ;;^UTILITY(U,$J,112,6910,20)
+4 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+5 ;;^UTILITY(U,$J,112,6911,0)
+6 ;;=CEREALS,R-T-E,QUISP,QUAKER^BC-00184^oz.^28
+7 ;;^UTILITY(U,$J,112,6911,1)
+8 ;;=4.643^9.286^82.5^432.143^2.143^^^32.143^9.643^35.714^85.714^132.143^675^0^.036^0^^0^^1.071
+9 ;;^UTILITY(U,$J,112,6911,2)
+10 ;;=1.214^10.714^0^2.143^28.571^3.571^^^^5^1.071^1.071^0^^^^1.429
+11 ;;^UTILITY(U,$J,112,6911,20)
+12 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+13 ;;^UTILITY(U,$J,112,6912,0)
+14 ;;=CEREALS,R-T-E,RAISIN BRAN,KELLOGG'S^BC-00185^1.4-oz.^40
+15 ;;^UTILITY(U,$J,112,6912,1)
+16 ;;=7.5^2.5^77.5^300^^^^40^45^160^365^650^575^9.375^.525^^^1875^0^.95
+17 ;;^UTILITY(U,$J,112,6912,2)
+18 ;;=1.075^12.5^^1.25^250^5^^^0^^^^^^^^12.5
+19 ;;^UTILITY(U,$J,112,6912,20)
+20 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+21 ;;^UTILITY(U,$J,112,6913,0)
+22 ;;=CEREALS,R-T-E,RAISIN BRAN,NUTRI-GRAIN^BC-00186^1.4-oz.^40
+23 ;;^UTILITY(U,$J,112,6913,1)
+24 ;;=10^2.5^77.5^325^^^^500^45^130^597.5^625^500^37.5^.625^^^12500^0^3.75
+25 ;;^UTILITY(U,$J,112,6913,2)
+26 ;;=4.25^50^^5^1000^15^^^0^^^^^^^^12.5
+27 ;;^UTILITY(U,$J,112,6913,20)
+28 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+29 ;;^UTILITY(U,$J,112,6914,0)
+30 ;;=CEREALS,R-T-E,RAISIN BRAN,POST^BC-00187^1.4-oz.^40
+31 ;;^UTILITY(U,$J,112,6914,1)
+32 ;;=7.5^2.5^80^305^^^^50^15.5^145^402.5^655^495^5^.625^^^4375^^1.3
+33 ;;^UTILITY(U,$J,112,6914,2)
+34 ;;=1.475^17.25^.7^1.75^347.5^5.25^^^0^^^^^^^^14.75
+35 ;;^UTILITY(U,$J,112,6914,20)
+36 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+37 ;;^UTILITY(U,$J,112,6915,0)
+38 ;;=CEREALS,R-T-E,RAISIN BRAN,RALSTON PURINA^BC-00188^1.3-oz.^38
+39 ;;^UTILITY(U,$J,112,6915,1)
+40 ;;=7.895^.526^82.632^315.789^7.368^^^47.368^11.842^150^439.474^510.526^863.158^2.974^.542^^^3289.474^2.632^1.053
+41 ;;^UTILITY(U,$J,112,6915,2)
+42 ;;=1.053^13.158^.737^1.316^263.158^3.947^^^^^^^986.842^^^^12.632
+43 ;;^UTILITY(U,$J,112,6915,20)
+44 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+45 ;;^UTILITY(U,$J,112,6916,0)
+46 ;;=CEREALS,R-T-E,RICE CHEX,RALSTON PURINA^BC-00189^oz.^28
+47 ;;^UTILITY(U,$J,112,6916,1)
+48 ;;=6.071^1.071^89.286^392.857^2.5^^^14.286^6.429^25^100^114.286^900^1.143^.243^^^60.714^53.571^1.357
+49 ;;^UTILITY(U,$J,112,6916,2)
+50 ;;=.143^17.857^.357^1.786^357.143^5.357^^^^^^^^^^^1.786
+51 ;;^UTILITY(U,$J,112,6916,20)
+52 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+53 ;;^UTILITY(U,$J,112,6917,0)
+54 ;;=CEREALS,R-T-E,RICE KRISPIES,KELLOGG'S^BC-00190^oz.^28
+55 ;;^UTILITY(U,$J,112,6917,1)
+56 ;;=6.786^.714^88.571^392.857^2.5^^^10.714^6.429^39.286^121.429^125^1035.714^1.357^.179^1.004^^2678.571^53.571^1.357
+57 ;;^UTILITY(U,$J,112,6917,2)
+58 ;;=1.536^17.857^.714^1.786^357.143^^^^0^^^^^^^^0
+59 ;;^UTILITY(U,$J,112,6917,20)
+60 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+61 ;;^UTILITY(U,$J,112,6918,0)
+62 ;;=CEREEALS,R-T-E,SEVEN GRAIN CEREAL,CRUNCHY,LOMA LINDA^BC-00191^oz.^28
+63 ;;^UTILITY(U,$J,112,6918,1)
+64 ;;=7.143^7.143^75^392.857^3.571^^^46.429^1.5^^^303.571^321.429^1.286^^^^^^.036
+65 ;;^UTILITY(U,$J,112,6918,2)
+66 ;;=.143^2.5^.536^.107^^0^^^0
+67 ;;^UTILITY(U,$J,112,6918,20)
+68 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+69 ;;^UTILITY(U,$J,112,6919,0)
+70 ;;=CEREALS,R-T-E,SHREDDED WHEAT,QUAKER^BC-00192^1.4-oz.^40
+71 ;;^UTILITY(U,$J,112,6919,1)
+72 ;;=9.75^1.5^79^330^5.5^^^40^2.575^167.5^327.5^367.5^2.5^2.5^.5^3.05^^0^0^.2
+73 ;;^UTILITY(U,$J,112,6919,2)
+74 ;;=.1^4.25^.725^.225^45^0^^^^^^^^^^^9.25
+75 ;;^UTILITY(U,$J,112,6919,20)
+76 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+77 ;;^UTILITY(U,$J,112,6920,0)
+78 ;;=CEREALS,R-T-E,SHREDDED WHEAT'N BRAN,NABISCO^BC-00193^oz.^28
+79 ;;^UTILITY(U,$J,112,6920,1)
+80 ;;=10.714^3.571^82.143^392.857^^^^^^^^482.143^0^82.143
+81 ;;^UTILITY(U,$J,112,6920,20)
+82 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+83 ;;^UTILITY(U,$J,112,6921,0)
+84 ;;=CEREALS,R-T-E,SHREDDED WHEAT SQUARES,KELLOGG'S RAISIN^BC-00194^oz.^28
+85 ;;^UTILITY(U,$J,112,6921,1)
+86 ;;=7.143^0^82.143^321.429^^^^35.714^28.929^89.286^292.857^392.857^0^5.357^.214^^^^0^1.357
+87 ;;^UTILITY(U,$J,112,6921,2)
+88 ;;=1.536^17.857^^1.786^357.143^7.143^^^0^^^^^^^^7.143
+89 ;;^UTILITY(U,$J,112,6921,20)
+90 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+91 ;;^UTILITY(U,$J,112,6922,0)
+92 ;;=CEREALS,R-T-E,S'MORES GRAHAMS,GENERAL MILLS^BC-00195^oz.^28
+93 ;;^UTILITY(U,$J,112,6922,1)
+94 ;;=3.571^7.143^85.714^428.571^^^^^^^^821.429^892.857
+95 ;;^UTILITY(U,$J,112,6922,20)
+96 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+97 ;;^UTILITY(U,$J,112,6923,0)
+98 ;;=CEREALS,R-T-E,SPECIAL K,KELLOGG'S^BC-00196^oz.^28
+99 ;;^UTILITY(U,$J,112,6923,1)
+100 ;;=20^.357^76.071^392.857^2.143^^^35.714^16.071^64.286^203.571^196.429^821.429^13.393^.429^^^2678.571^53.571^1.893
