FHINI0DB ; ; 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,8456,1)
;;=.563^.352^17.324^69.718^81.479^^^14.085^.38^11.972^7.746^99.296^0^.303^.05^^^84.507^16.197^.021
;;^UTILITY(U,$J,112,8456,2)
;;=.056^.563^.155^.035^16.901^0^^^0^0^^.211^^^^^3.028
;;^UTILITY(U,$J,112,8456,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8457,0)
;;=FRUITS,STRAWBERRIES,FRZN,IN LITE SYRUP,BIRDS EYE^BC-01730^1/2-cup^142
;;^UTILITY(U,$J,112,8457,1)
;;=.493^.282^15.211^61.268^83.662^^^11.268^.31^7.746^15.493^133.099^.704^.106^.041^^^21.831^45.07^.014
;;^UTILITY(U,$J,112,8457,2)
;;=.049^.211^.275^.049^14.085^0^^^0^.141^^.141^^^^^1.549
;;^UTILITY(U,$J,112,8457,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8458,0)
;;=GRAIN FRACTIONS,BARLEY,PEARLED,MED/QUICK,SCOTCH BRAND^BC-01731^1/4-cup^48
;;^UTILITY(U,$J,112,8458,1)
;;=11.458^1.042^75.625^358.333^10.417^^^22.917^2.583^70.833^235.417^270.833^10.417^0^.438^0^^22.917^^.229
;;^UTILITY(U,$J,112,8458,2)
;;=.125^4.583^0^.271^66.667^0
;;^UTILITY(U,$J,112,8458,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8459,0)
;;=GRAIN FRACTIONS,BISQUICK MIX,GENERAL MILLS^BC-01732^1/2-cup^57
;;^UTILITY(U,$J,112,8459,1)
;;=7.018^14.035^64.912^421.053^^^^^^^^140.351^1228.07
;;^UTILITY(U,$J,112,8459,2)
;;=^^^^^^^^0^3.509^8.772^1.754
;;^UTILITY(U,$J,112,8459,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8460,0)
;;=GRAIN FRACTIONS,GRAHAM CRACKER CRUMBS,KEEBLER^BC-01733^1/2-cup^59
;;^UTILITY(U,$J,112,8460,1)
;;=6.949^12.034^71.017^440.678^^^^^3.508^^^145.763^494.915^^^^^^^.102
;;^UTILITY(U,$J,112,8460,2)
;;=.305^4.068^^^^^^^0^3.051^^1.017
;;^UTILITY(U,$J,112,8460,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8461,0)
;;=GRAIN FRACTIONS,WHEAT BRAN,TOASTED,KRETCHMER^BC-01734^oz.^28
;;^UTILITY(U,$J,112,8461,1)
;;=17.857^3.571^64.286^214.286^^^^^^^^1464.286^0
;;^UTILITY(U,$J,112,8461,2)
;;=^^^^^^^^0^^^^^^^^42.857
;;^UTILITY(U,$J,112,8461,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8462,0)
;;=GRAIN FRACTIONS,WHEAT FLOUR,WHITE,MESA TRIGO,QUAKER^BC-01735^2-tortilla^37
;;^UTILITY(U,$J,112,8462,1)
;;=9.459^10.811^66.757^402.703^10^^^178.378^4.865^21.622^208.108^97.297^2145.946^0^.108^0^^0^0^1.054
;;^UTILITY(U,$J,112,8462,2)
;;=.649^8.378^0^.027^78.378^0^^^0^2.703^2.703^2.703^^^^^2.703
;;^UTILITY(U,$J,112,8462,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8463,0)
;;=GRAIN FRACTIONS,WHEAT FLOUR,WHITE,SAUCE'N GRAVY,PILLSBURY^BC-01736^2-tbsp.^14
;;^UTILITY(U,$J,112,8463,1)
;;=10.714^.714^77.143^357.143^10.714^^^214.286^2.929^^100^85.714^7.143^^^^^0^0^.571
;;^UTILITY(U,$J,112,8463,2)
;;=.357^5
;;^UTILITY(U,$J,112,8463,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8464,0)
;;=GRAIN FRACTIONS,WHEAT GERM,TOASTED,KRETSCHMER^BC-01737^1/4-cup^28
;;^UTILITY(U,$J,112,8464,1)
;;=33.214^12.143^43.929^367.857^4.643^^^50^8.214^300^1160.714^1167.857^7.143^16.5^.321^19.321^^117.857^0^1.714
;;^UTILITY(U,$J,112,8464,2)
;;=.75^5^1.286^.571^378.571^^^^0^1.786^1.429^6.786^^^^^11.786
;;^UTILITY(U,$J,112,8464,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8465,0)
;;=GRAIN PRODUCTS,BISCUITS,FROM MIX^BC-01738^biscuits^28
;;^UTILITY(U,$J,112,8465,1)
;;=7.5^11.786^48.571^332.143^28.571^^^207.143^2.036^25^457.143^200^935.714^.643^.111^^^57.143^0^.429
;;^UTILITY(U,$J,112,8465,2)
;;=.393^2.857^.357^.036^7.143^.179
;;^UTILITY(U,$J,112,8465,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8466,0)
;;=GRAIN PRODUCTS,BISCUITS,FROM REFRIG DOUGH^BC-01739^biscuits^28
;;^UTILITY(U,$J,112,8466,1)
;;=7.143^11.071^48.571^325^30^^^21.429^2.357^14.286^392.857^89.286^1246.429^.429^.071^^^0^0^.393
;;^UTILITY(U,$J,112,8466,2)
;;=.25^3.214^.25^.036^^0
;;^UTILITY(U,$J,112,8466,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8467,0)
;;=GRAIN PRODUCTS,BAKING PWDR,1869 BRAND^BC-01740^1.1-oz.^31
;;^UTILITY(U,$J,112,8467,1)
;;=6.129^16.452^39.677^329.032^34.839^^^38.71^2.419^^422.581^93.548^977.419^^^^^3.226^0^.323
;;^UTILITY(U,$J,112,8467,2)
;;=.29^2.903
;;^UTILITY(U,$J,112,8467,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8468,0)
;;=GRAIN PRODUCTS,BAKING PWDR,PILSBURY TENDERFLAKE^BC-01741^.63-oz.^18
;;^UTILITY(U,$J,112,8468,1)
;;=5.556^15^40^311.111^36.111^^^66.667^2.222^^400^55.556^950^^^^^0^0^.278
;;^UTILITY(U,$J,112,8468,2)
;;=.222^2.778
FHINI0DB ; ; 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,8456,1)
+2 ;;=.563^.352^17.324^69.718^81.479^^^14.085^.38^11.972^7.746^99.296^0^.303^.05^^^84.507^16.197^.021
+3 ;;^UTILITY(U,$J,112,8456,2)
+4 ;;=.056^.563^.155^.035^16.901^0^^^0^0^^.211^^^^^3.028
+5 ;;^UTILITY(U,$J,112,8456,20)
+6 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+7 ;;^UTILITY(U,$J,112,8457,0)
+8 ;;=FRUITS,STRAWBERRIES,FRZN,IN LITE SYRUP,BIRDS EYE^BC-01730^1/2-cup^142
+9 ;;^UTILITY(U,$J,112,8457,1)
+10 ;;=.493^.282^15.211^61.268^83.662^^^11.268^.31^7.746^15.493^133.099^.704^.106^.041^^^21.831^45.07^.014
+11 ;;^UTILITY(U,$J,112,8457,2)
+12 ;;=.049^.211^.275^.049^14.085^0^^^0^.141^^.141^^^^^1.549
+13 ;;^UTILITY(U,$J,112,8457,20)
+14 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+15 ;;^UTILITY(U,$J,112,8458,0)
+16 ;;=GRAIN FRACTIONS,BARLEY,PEARLED,MED/QUICK,SCOTCH BRAND^BC-01731^1/4-cup^48
+17 ;;^UTILITY(U,$J,112,8458,1)
+18 ;;=11.458^1.042^75.625^358.333^10.417^^^22.917^2.583^70.833^235.417^270.833^10.417^0^.438^0^^22.917^^.229
+19 ;;^UTILITY(U,$J,112,8458,2)
+20 ;;=.125^4.583^0^.271^66.667^0
+21 ;;^UTILITY(U,$J,112,8458,20)
+22 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+23 ;;^UTILITY(U,$J,112,8459,0)
+24 ;;=GRAIN FRACTIONS,BISQUICK MIX,GENERAL MILLS^BC-01732^1/2-cup^57
+25 ;;^UTILITY(U,$J,112,8459,1)
+26 ;;=7.018^14.035^64.912^421.053^^^^^^^^140.351^1228.07
+27 ;;^UTILITY(U,$J,112,8459,2)
+28 ;;=^^^^^^^^0^3.509^8.772^1.754
+29 ;;^UTILITY(U,$J,112,8459,20)
+30 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+31 ;;^UTILITY(U,$J,112,8460,0)
+32 ;;=GRAIN FRACTIONS,GRAHAM CRACKER CRUMBS,KEEBLER^BC-01733^1/2-cup^59
+33 ;;^UTILITY(U,$J,112,8460,1)
+34 ;;=6.949^12.034^71.017^440.678^^^^^3.508^^^145.763^494.915^^^^^^^.102
+35 ;;^UTILITY(U,$J,112,8460,2)
+36 ;;=.305^4.068^^^^^^^0^3.051^^1.017
+37 ;;^UTILITY(U,$J,112,8460,20)
+38 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+39 ;;^UTILITY(U,$J,112,8461,0)
+40 ;;=GRAIN FRACTIONS,WHEAT BRAN,TOASTED,KRETCHMER^BC-01734^oz.^28
+41 ;;^UTILITY(U,$J,112,8461,1)
+42 ;;=17.857^3.571^64.286^214.286^^^^^^^^1464.286^0
+43 ;;^UTILITY(U,$J,112,8461,2)
+44 ;;=^^^^^^^^0^^^^^^^^42.857
+45 ;;^UTILITY(U,$J,112,8461,20)
+46 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+47 ;;^UTILITY(U,$J,112,8462,0)
+48 ;;=GRAIN FRACTIONS,WHEAT FLOUR,WHITE,MESA TRIGO,QUAKER^BC-01735^2-tortilla^37
+49 ;;^UTILITY(U,$J,112,8462,1)
+50 ;;=9.459^10.811^66.757^402.703^10^^^178.378^4.865^21.622^208.108^97.297^2145.946^0^.108^0^^0^0^1.054
+51 ;;^UTILITY(U,$J,112,8462,2)
+52 ;;=.649^8.378^0^.027^78.378^0^^^0^2.703^2.703^2.703^^^^^2.703
+53 ;;^UTILITY(U,$J,112,8462,20)
+54 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+55 ;;^UTILITY(U,$J,112,8463,0)
+56 ;;=GRAIN FRACTIONS,WHEAT FLOUR,WHITE,SAUCE'N GRAVY,PILLSBURY^BC-01736^2-tbsp.^14
+57 ;;^UTILITY(U,$J,112,8463,1)
+58 ;;=10.714^.714^77.143^357.143^10.714^^^214.286^2.929^^100^85.714^7.143^^^^^0^0^.571
+59 ;;^UTILITY(U,$J,112,8463,2)
+60 ;;=.357^5
+61 ;;^UTILITY(U,$J,112,8463,20)
+62 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+63 ;;^UTILITY(U,$J,112,8464,0)
+64 ;;=GRAIN FRACTIONS,WHEAT GERM,TOASTED,KRETSCHMER^BC-01737^1/4-cup^28
+65 ;;^UTILITY(U,$J,112,8464,1)
+66 ;;=33.214^12.143^43.929^367.857^4.643^^^50^8.214^300^1160.714^1167.857^7.143^16.5^.321^19.321^^117.857^0^1.714
+67 ;;^UTILITY(U,$J,112,8464,2)
+68 ;;=.75^5^1.286^.571^378.571^^^^0^1.786^1.429^6.786^^^^^11.786
+69 ;;^UTILITY(U,$J,112,8464,20)
+70 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+71 ;;^UTILITY(U,$J,112,8465,0)
+72 ;;=GRAIN PRODUCTS,BISCUITS,FROM MIX^BC-01738^biscuits^28
+73 ;;^UTILITY(U,$J,112,8465,1)
+74 ;;=7.5^11.786^48.571^332.143^28.571^^^207.143^2.036^25^457.143^200^935.714^.643^.111^^^57.143^0^.429
+75 ;;^UTILITY(U,$J,112,8465,2)
+76 ;;=.393^2.857^.357^.036^7.143^.179
+77 ;;^UTILITY(U,$J,112,8465,20)
+78 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+79 ;;^UTILITY(U,$J,112,8466,0)
+80 ;;=GRAIN PRODUCTS,BISCUITS,FROM REFRIG DOUGH^BC-01739^biscuits^28
+81 ;;^UTILITY(U,$J,112,8466,1)
+82 ;;=7.143^11.071^48.571^325^30^^^21.429^2.357^14.286^392.857^89.286^1246.429^.429^.071^^^0^0^.393
+83 ;;^UTILITY(U,$J,112,8466,2)
+84 ;;=.25^3.214^.25^.036^^0
+85 ;;^UTILITY(U,$J,112,8466,20)
+86 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+87 ;;^UTILITY(U,$J,112,8467,0)
+88 ;;=GRAIN PRODUCTS,BAKING PWDR,1869 BRAND^BC-01740^1.1-oz.^31
+89 ;;^UTILITY(U,$J,112,8467,1)
+90 ;;=6.129^16.452^39.677^329.032^34.839^^^38.71^2.419^^422.581^93.548^977.419^^^^^3.226^0^.323
+91 ;;^UTILITY(U,$J,112,8467,2)
+92 ;;=.29^2.903
+93 ;;^UTILITY(U,$J,112,8467,20)
+94 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+95 ;;^UTILITY(U,$J,112,8468,0)
+96 ;;=GRAIN PRODUCTS,BAKING PWDR,PILSBURY TENDERFLAKE^BC-01741^.63-oz.^18
+97 ;;^UTILITY(U,$J,112,8468,1)
+98 ;;=5.556^15^40^311.111^36.111^^^66.667^2.222^^400^55.556^950^^^^^0^0^.278
+99 ;;^UTILITY(U,$J,112,8468,2)
+100 ;;=.222^2.778
