FHINI0AO ; ; 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,7145,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7146,0)
;;=APPLE FRITTERS,FRZN,MRS. PAUL'S^BC-00419^2-fritters^113
;;^UTILITY(U,$J,112,7146,1)
;;=2.92^10.708^31.15^232.743^^^^29.204^1.504^^^38.938^500^^^^^20.354^4.425^.106
;;^UTILITY(U,$J,112,7146,2)
;;=.08^1.062
;;^UTILITY(U,$J,112,7146,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7147,0)
;;=BLUEBERRY CRISP DESSERT,CAMPBELL'S FRESH KITCHEN^BC-00420^5-oz.^142
;;^UTILITY(U,$J,112,7147,1)
;;=1.62^6.901^37.394^218.31^^^^14.085^.423^^^103.521^52.817^^^^^207.042^2.817^.014
;;^UTILITY(U,$J,112,7147,2)
;;=.028^.634
;;^UTILITY(U,$J,112,7147,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7148,0)
;;=SWEETS-N-APPLES,MRS. PAUL'S^BC-00421^4-oz.^113
;;^UTILITY(U,$J,112,7148,1)
;;=.885^.531^32.832^139.823^^^^24.779^.973^^^106.195^54.867^^^^^4808.85^7.08^.053
;;^UTILITY(U,$J,112,7148,2)
;;=.097^.442
;;^UTILITY(U,$J,112,7148,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7149,0)
;;=TURNOVER,APPLE,PILSBURY^BC-00422^turnovers^57
;;^UTILITY(U,$J,112,7149,1)
;;=3.509^13.86^40^298.246^40.351^^^10.526^1.316^^215.789^57.895^561.404^^^^^0^0^.158
;;^UTILITY(U,$J,112,7149,2)
;;=.105^1.579
;;^UTILITY(U,$J,112,7149,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7150,0)
;;=TURNOVER,BLUEBERRY,PILSBURY^BC-00423^turnovers^57
;;^UTILITY(U,$J,112,7150,1)
;;=3.509^13.86^37.544^291.228^42.281^^^10.526^1.351^^215.789^40.351^554.386^^^^^8.772^0^.158
;;^UTILITY(U,$J,112,7150,2)
;;=.105^1.579
;;^UTILITY(U,$J,112,7150,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7151,0)
;;=TURNOVER,CHERRY,PILSBURY^BC-00424^turnovers^57
;;^UTILITY(U,$J,112,7151,1)
;;=3.684^13.86^40.702^303.509^39.123^^^10.526^1.596^^217.544^56.14^550.877^^^^^91.228^8.772^.158
;;^UTILITY(U,$J,112,7151,2)
;;=.123^1.579
;;^UTILITY(U,$J,112,7151,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7152,0)
;;=GELATIN ALL FLAVORS,FROM MIX,JELL-O^BC-00425^1/2-cup^140
;;^UTILITY(U,$J,112,7152,1)
;;=1.143^0^13.429^58.571^84.929^^^0^.014^0^21.429^0^38.571^0^.003^^^0^0^0
;;^UTILITY(U,$J,112,7152,2)
;;=0^0^0^0^0^0^^^0^0^^0
;;^UTILITY(U,$J,112,7152,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7153,0)
;;=GELATIN ALL FLAVORS,FROM MIX,JELL-O 1*2*3^BC-00426^2/3-cup^150
;;^UTILITY(U,$J,112,7153,1)
;;=1.333^1.333^18^85.333^^^^.667^^^1.333^.667^35.333
;;^UTILITY(U,$J,112,7153,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7154,0)
;;=GELATIN ALL FLAVORS,FROM MIX,LOW CAL,D-ZERTA^BC-00427^1/2-cup^121
;;^UTILITY(U,$J,112,7154,1)
;;=1.322^0^.083^6.612^98.099^^^^^^0^40.496^3.306^0^^^^0^0^0
;;^UTILITY(U,$J,112,7154,2)
;;=0^0^0^0^0^0^^^0^0^0^0
;;^UTILITY(U,$J,112,7154,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7155,0)
;;=GELATIN ALL FLAVORS,FROM MIX,SUGAR-FREE,JELL-O^BC-00428^1/2-cup^121
;;^UTILITY(U,$J,112,7155,1)
;;=1.157^0^.165^6.612^98.017^^^^^^28.099^0^47.107^0^^^^0^0^0
;;^UTILITY(U,$J,112,7155,2)
;;=0^0^0^0^0^0^^^0^0^0^0
;;^UTILITY(U,$J,112,7155,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7156,0)
;;=GRANOLA,BLUEBERRY,KELLOGG,NUTRI-GRAIN^BC-00429^1.5-oz.^43
;;^UTILITY(U,$J,112,7156,1)
;;=4.651^18.605^60.465^418.605^^^^120.93^4.186^39.535^123.256^151.163^395.349^3.488^.07^^^1744.186^0^.884
;;^UTILITY(U,$J,112,7156,2)
;;=1^11.628^^1.163^232.558^^^^0^^^^^^^^2.326
;;^UTILITY(U,$J,112,7156,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7157,0)
;;=GRANOLA,CARAMEL NUT,QUAKER DIPPS^BC-00430^oz.^28
;;^UTILITY(U,$J,112,7157,1)
;;=6.786^22.857^74.643^528.571^5.357^^^110.714^1.786^57.143^182.143^300^289.286^1.321^.286^.714^^0^0^.071
;;^UTILITY(U,$J,112,7157,2)
;;=.214^1.429^.536^.036^35.714^.536^^^7.143^10^5.714^1.429^^^^^2.5
;;^UTILITY(U,$J,112,7157,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7158,0)
;;=GRANOLA,CHOC CHIP CHEWY,LITTLE DEBBIE^BC-00431^1.25-oz.^35
;;^UTILITY(U,$J,112,7158,1)
;;=7.143^18.571^64.857^454.286^8.286^^^0^1.914^^^^214.286^^^^^0^0^.2
;;^UTILITY(U,$J,112,7158,2)
;;=.086^1.143^^^^^^^2.857^8.857^8.286^1.429^^^^^5.714
;;^UTILITY(U,$J,112,7158,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7159,0)
;;=GRANOLA,CHOC CHIP CHOC COVERED,HERSHEY^BC-00432^1.2-oz.^34
;;^UTILITY(U,$J,112,7159,1)
;;=6.765^25^65.588^508.824^^^^117.647^1.088^^^250^147.059^^^^^50^^.118
FHINI0AO ; ; 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,7145,20)
+2 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+3 ;;^UTILITY(U,$J,112,7146,0)
+4 ;;=APPLE FRITTERS,FRZN,MRS. PAUL'S^BC-00419^2-fritters^113
+5 ;;^UTILITY(U,$J,112,7146,1)
+6 ;;=2.92^10.708^31.15^232.743^^^^29.204^1.504^^^38.938^500^^^^^20.354^4.425^.106
+7 ;;^UTILITY(U,$J,112,7146,2)
+8 ;;=.08^1.062
+9 ;;^UTILITY(U,$J,112,7146,20)
+10 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+11 ;;^UTILITY(U,$J,112,7147,0)
+12 ;;=BLUEBERRY CRISP DESSERT,CAMPBELL'S FRESH KITCHEN^BC-00420^5-oz.^142
+13 ;;^UTILITY(U,$J,112,7147,1)
+14 ;;=1.62^6.901^37.394^218.31^^^^14.085^.423^^^103.521^52.817^^^^^207.042^2.817^.014
+15 ;;^UTILITY(U,$J,112,7147,2)
+16 ;;=.028^.634
+17 ;;^UTILITY(U,$J,112,7147,20)
+18 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+19 ;;^UTILITY(U,$J,112,7148,0)
+20 ;;=SWEETS-N-APPLES,MRS. PAUL'S^BC-00421^4-oz.^113
+21 ;;^UTILITY(U,$J,112,7148,1)
+22 ;;=.885^.531^32.832^139.823^^^^24.779^.973^^^106.195^54.867^^^^^4808.85^7.08^.053
+23 ;;^UTILITY(U,$J,112,7148,2)
+24 ;;=.097^.442
+25 ;;^UTILITY(U,$J,112,7148,20)
+26 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+27 ;;^UTILITY(U,$J,112,7149,0)
+28 ;;=TURNOVER,APPLE,PILSBURY^BC-00422^turnovers^57
+29 ;;^UTILITY(U,$J,112,7149,1)
+30 ;;=3.509^13.86^40^298.246^40.351^^^10.526^1.316^^215.789^57.895^561.404^^^^^0^0^.158
+31 ;;^UTILITY(U,$J,112,7149,2)
+32 ;;=.105^1.579
+33 ;;^UTILITY(U,$J,112,7149,20)
+34 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+35 ;;^UTILITY(U,$J,112,7150,0)
+36 ;;=TURNOVER,BLUEBERRY,PILSBURY^BC-00423^turnovers^57
+37 ;;^UTILITY(U,$J,112,7150,1)
+38 ;;=3.509^13.86^37.544^291.228^42.281^^^10.526^1.351^^215.789^40.351^554.386^^^^^8.772^0^.158
+39 ;;^UTILITY(U,$J,112,7150,2)
+40 ;;=.105^1.579
+41 ;;^UTILITY(U,$J,112,7150,20)
+42 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+43 ;;^UTILITY(U,$J,112,7151,0)
+44 ;;=TURNOVER,CHERRY,PILSBURY^BC-00424^turnovers^57
+45 ;;^UTILITY(U,$J,112,7151,1)
+46 ;;=3.684^13.86^40.702^303.509^39.123^^^10.526^1.596^^217.544^56.14^550.877^^^^^91.228^8.772^.158
+47 ;;^UTILITY(U,$J,112,7151,2)
+48 ;;=.123^1.579
+49 ;;^UTILITY(U,$J,112,7151,20)
+50 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+51 ;;^UTILITY(U,$J,112,7152,0)
+52 ;;=GELATIN ALL FLAVORS,FROM MIX,JELL-O^BC-00425^1/2-cup^140
+53 ;;^UTILITY(U,$J,112,7152,1)
+54 ;;=1.143^0^13.429^58.571^84.929^^^0^.014^0^21.429^0^38.571^0^.003^^^0^0^0
+55 ;;^UTILITY(U,$J,112,7152,2)
+56 ;;=0^0^0^0^0^0^^^0^0^^0
+57 ;;^UTILITY(U,$J,112,7152,20)
+58 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+59 ;;^UTILITY(U,$J,112,7153,0)
+60 ;;=GELATIN ALL FLAVORS,FROM MIX,JELL-O 1*2*3^BC-00426^2/3-cup^150
+61 ;;^UTILITY(U,$J,112,7153,1)
+62 ;;=1.333^1.333^18^85.333^^^^.667^^^1.333^.667^35.333
+63 ;;^UTILITY(U,$J,112,7153,20)
+64 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+65 ;;^UTILITY(U,$J,112,7154,0)
+66 ;;=GELATIN ALL FLAVORS,FROM MIX,LOW CAL,D-ZERTA^BC-00427^1/2-cup^121
+67 ;;^UTILITY(U,$J,112,7154,1)
+68 ;;=1.322^0^.083^6.612^98.099^^^^^^0^40.496^3.306^0^^^^0^0^0
+69 ;;^UTILITY(U,$J,112,7154,2)
+70 ;;=0^0^0^0^0^0^^^0^0^0^0
+71 ;;^UTILITY(U,$J,112,7154,20)
+72 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+73 ;;^UTILITY(U,$J,112,7155,0)
+74 ;;=GELATIN ALL FLAVORS,FROM MIX,SUGAR-FREE,JELL-O^BC-00428^1/2-cup^121
+75 ;;^UTILITY(U,$J,112,7155,1)
+76 ;;=1.157^0^.165^6.612^98.017^^^^^^28.099^0^47.107^0^^^^0^0^0
+77 ;;^UTILITY(U,$J,112,7155,2)
+78 ;;=0^0^0^0^0^0^^^0^0^0^0
+79 ;;^UTILITY(U,$J,112,7155,20)
+80 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+81 ;;^UTILITY(U,$J,112,7156,0)
+82 ;;=GRANOLA,BLUEBERRY,KELLOGG,NUTRI-GRAIN^BC-00429^1.5-oz.^43
+83 ;;^UTILITY(U,$J,112,7156,1)
+84 ;;=4.651^18.605^60.465^418.605^^^^120.93^4.186^39.535^123.256^151.163^395.349^3.488^.07^^^1744.186^0^.884
+85 ;;^UTILITY(U,$J,112,7156,2)
+86 ;;=1^11.628^^1.163^232.558^^^^0^^^^^^^^2.326
+87 ;;^UTILITY(U,$J,112,7156,20)
+88 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+89 ;;^UTILITY(U,$J,112,7157,0)
+90 ;;=GRANOLA,CARAMEL NUT,QUAKER DIPPS^BC-00430^oz.^28
+91 ;;^UTILITY(U,$J,112,7157,1)
+92 ;;=6.786^22.857^74.643^528.571^5.357^^^110.714^1.786^57.143^182.143^300^289.286^1.321^.286^.714^^0^0^.071
+93 ;;^UTILITY(U,$J,112,7157,2)
+94 ;;=.214^1.429^.536^.036^35.714^.536^^^7.143^10^5.714^1.429^^^^^2.5
+95 ;;^UTILITY(U,$J,112,7157,20)
+96 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+97 ;;^UTILITY(U,$J,112,7158,0)
+98 ;;=GRANOLA,CHOC CHIP CHEWY,LITTLE DEBBIE^BC-00431^1.25-oz.^35
+99 ;;^UTILITY(U,$J,112,7158,1)
+100 ;;=7.143^18.571^64.857^454.286^8.286^^^0^1.914^^^^214.286^^^^^0^0^.2
+101 ;;^UTILITY(U,$J,112,7158,2)
+102 ;;=.086^1.143^^^^^^^2.857^8.857^8.286^1.429^^^^^5.714
+103 ;;^UTILITY(U,$J,112,7158,20)
+104 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+105 ;;^UTILITY(U,$J,112,7159,0)
+106 ;;=GRANOLA,CHOC CHIP CHOC COVERED,HERSHEY^BC-00432^1.2-oz.^34
+107 ;;^UTILITY(U,$J,112,7159,1)
+108 ;;=6.765^25^65.588^508.824^^^^117.647^1.088^^^250^147.059^^^^^50^^.118
