FHINI0G6 ; ; 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,9864,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9865,0)
;;=FORTIFIED PUDDING,MIX,DELMARK,VAN/LEMON^BC-03138^1/2-cup^164
;;^UTILITY(U,$J,112,9865,1)
;;=5.488^4.878^21.341^152.439^^^^164.634^1.951^43.902^164.634^411.585^85.366^1.646^.22^.006^^548.78^6.707^.165
;;^UTILITY(U,$J,112,9865,2)
;;=.226^2.195^1.098^.22^42.683^.671^^^12.195
;;^UTILITY(U,$J,112,9865,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9866,0)
;;=BREAD,BROWN RICE,(GLUTEN & WHEAT FREE),ENER-G FOODS^BC-03139^2-slices^66
;;^UTILITY(U,$J,112,9866,1)
;;=2.576^6.364^48.939^262.121^46.515^^^19.697^.697^^59.091^568.182^145.455^^^^^0^0^.303
;;^UTILITY(U,$J,112,9866,2)
;;=.076^1.97^^^^^^^0^^^^^^^^2.273
;;^UTILITY(U,$J,112,9866,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9867,0)
;;=BREAD,BROWN RICE & POTATO,(GLUTEN & WHEAT FREE),ENER-G FOODS^BC-03140^2-slices^60
;;^UTILITY(U,$J,112,9867,1)
;;=8^5.333^43.333^258.333^40.167^^^150^1.633^43.333^186.667^270^228.333^1.25^.47^^^25^1.667^.35
;;^UTILITY(U,$J,112,9867,2)
;;=.183^1.833
;;^UTILITY(U,$J,112,9867,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9868,0)
;;=BREAD,BROWN RICE,YEAST-FREE,(GLUTEN & WHEAT FREE),ENER-G^BC-03141^2-slices^100
;;^UTILITY(U,$J,112,9868,1)
;;=2.5^11.4^43.3^286^41.7^^^4^1^^^74^412^^^^^0^0^.12
;;^UTILITY(U,$J,112,9868,2)
;;=.01^1.6
;;^UTILITY(U,$J,112,9868,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9869,0)
;;=BREAD,EGG,(GLUTEN & WHEAT FREE),ENER-G FOODS^BC-03142^2-slices^60
;;^UTILITY(U,$J,112,9869,1)
;;=5.167^11.167^39.833^281.667^42.833^^^23.333^1^^^268.333^123.333^^^^^0^0^.25
;;^UTILITY(U,$J,112,9869,2)
;;=.117^4.167
;;^UTILITY(U,$J,112,9869,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9870,0)
;;=BREAD,RICE STARCH,(GLUTEN & WHEAT FREE),ENER-G FOODS^BC-03143^2-slices^71
;;^UTILITY(U,$J,112,9870,1)
;;=.704^9.437^61.831^336.62^27.465^^^98.592^.803^^^33.803^53.521^^^^^0^0^.056
;;^UTILITY(U,$J,112,9870,2)
;;=.028^.563^^^^^^^^^^^^^^^3.803
;;^UTILITY(U,$J,112,9870,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9871,0)
;;=BREAD,TAPIOCA,(GLUTEN & WHEAT FREE),ENER-G FOODS^BC-03144^2-slices^66
;;^UTILITY(U,$J,112,9871,1)
;;=2.727^15.606^43.636^325.758^37.273^^^10.606^2.894^^54.545^90.909^245.455^^^^^0^0^.833
;;^UTILITY(U,$J,112,9871,2)
;;=.333^1.97^^^^^^^0^^^^^^^^3.636
;;^UTILITY(U,$J,112,9871,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9872,0)
;;=BREAD,WHITE RICE,(GLUTEN & WHEAT FREE),ENER-G FOODS^BC-03145^2-slices^66
;;^UTILITY(U,$J,112,9872,1)
;;=3.03^6.364^49.545^266.667^40.152^^^19.697^7.197^^66.667^69.697^372.727^^^^^0^0^.803
;;^UTILITY(U,$J,112,9872,2)
;;=.227^3.939^^^^^^^0^^^^^^^^2.121
;;^UTILITY(U,$J,112,9872,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9873,0)
;;=BREAD,WHITE RICE,YEAST FREE,(GLUTEN & WHEAT FREE),ENER-G^BC-03146^2-slices^105
;;^UTILITY(U,$J,112,9873,1)
;;=3.714^3.429^80.19^365.714^11.905^^^4.762^1^^^^280^^^^^0^0^.771
;;^UTILITY(U,$J,112,9873,2)
;;=^1.143
;;^UTILITY(U,$J,112,9873,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9874,0)
;;=BREAD,XANTHAM GUM,(GLUTEN & WHEAT FREE),ENER-G FOODS^BC-03147^2-slices^85
;;^UTILITY(U,$J,112,9874,1)
;;=5.882^3.882^55.294^280^33.059^^^25.882^2^^^45.882^43.529^^^^^0^0^.235
;;^UTILITY(U,$J,112,9874,2)
;;=.071^1.294^^^^^^^27.059
;;^UTILITY(U,$J,112,9874,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9875,0)
;;=COOKIES,CAROB,(GLUTEN & WHEAT FREE),ENER-G FOODS^BC-03148^cookies^20
;;^UTILITY(U,$J,112,9875,1)
;;=5.5^6^71^360^15.5^^^785^4^^^^295^^^^^0^0^.05
;;^UTILITY(U,$J,112,9875,2)
;;=.05^2
;;^UTILITY(U,$J,112,9875,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9876,0)
;;=COOKIES,CHOC CHIP POTATO,(GLUTEN & WHEAT FREE),ENER-G FOODS^BC-03149^cookies^19
;;^UTILITY(U,$J,112,9876,1)
;;=5.263^17.895^60.526^436.842^14.737^^^47.368^2.579^47.368^142.105^205.263^142.105^4.053^.479^^^100^0^.105
;;^UTILITY(U,$J,112,9876,2)
;;=.105^.526
;;^UTILITY(U,$J,112,9876,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9877,0)
;;=CRACKERS,MELBA TOAST,(GLUTEN & WHEAT FREE),ENER-G FOODS^BC-03150^crackers^27
;;^UTILITY(U,$J,112,9877,1)
;;=9.259^4.815^77.037^388.889^7.778^^^133.333^4^^^^18.519^^^^^0^7.407^.111
FHINI0G6 ; ; 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,9864,20)
+2 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+3 ;;^UTILITY(U,$J,112,9865,0)
+4 ;;=FORTIFIED PUDDING,MIX,DELMARK,VAN/LEMON^BC-03138^1/2-cup^164
+5 ;;^UTILITY(U,$J,112,9865,1)
+6 ;;=5.488^4.878^21.341^152.439^^^^164.634^1.951^43.902^164.634^411.585^85.366^1.646^.22^.006^^548.78^6.707^.165
+7 ;;^UTILITY(U,$J,112,9865,2)
+8 ;;=.226^2.195^1.098^.22^42.683^.671^^^12.195
+9 ;;^UTILITY(U,$J,112,9865,20)
+10 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+11 ;;^UTILITY(U,$J,112,9866,0)
+12 ;;=BREAD,BROWN RICE,(GLUTEN & WHEAT FREE),ENER-G FOODS^BC-03139^2-slices^66
+13 ;;^UTILITY(U,$J,112,9866,1)
+14 ;;=2.576^6.364^48.939^262.121^46.515^^^19.697^.697^^59.091^568.182^145.455^^^^^0^0^.303
+15 ;;^UTILITY(U,$J,112,9866,2)
+16 ;;=.076^1.97^^^^^^^0^^^^^^^^2.273
+17 ;;^UTILITY(U,$J,112,9866,20)
+18 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+19 ;;^UTILITY(U,$J,112,9867,0)
+20 ;;=BREAD,BROWN RICE & POTATO,(GLUTEN & WHEAT FREE),ENER-G FOODS^BC-03140^2-slices^60
+21 ;;^UTILITY(U,$J,112,9867,1)
+22 ;;=8^5.333^43.333^258.333^40.167^^^150^1.633^43.333^186.667^270^228.333^1.25^.47^^^25^1.667^.35
+23 ;;^UTILITY(U,$J,112,9867,2)
+24 ;;=.183^1.833
+25 ;;^UTILITY(U,$J,112,9867,20)
+26 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+27 ;;^UTILITY(U,$J,112,9868,0)
+28 ;;=BREAD,BROWN RICE,YEAST-FREE,(GLUTEN & WHEAT FREE),ENER-G^BC-03141^2-slices^100
+29 ;;^UTILITY(U,$J,112,9868,1)
+30 ;;=2.5^11.4^43.3^286^41.7^^^4^1^^^74^412^^^^^0^0^.12
+31 ;;^UTILITY(U,$J,112,9868,2)
+32 ;;=.01^1.6
+33 ;;^UTILITY(U,$J,112,9868,20)
+34 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+35 ;;^UTILITY(U,$J,112,9869,0)
+36 ;;=BREAD,EGG,(GLUTEN & WHEAT FREE),ENER-G FOODS^BC-03142^2-slices^60
+37 ;;^UTILITY(U,$J,112,9869,1)
+38 ;;=5.167^11.167^39.833^281.667^42.833^^^23.333^1^^^268.333^123.333^^^^^0^0^.25
+39 ;;^UTILITY(U,$J,112,9869,2)
+40 ;;=.117^4.167
+41 ;;^UTILITY(U,$J,112,9869,20)
+42 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+43 ;;^UTILITY(U,$J,112,9870,0)
+44 ;;=BREAD,RICE STARCH,(GLUTEN & WHEAT FREE),ENER-G FOODS^BC-03143^2-slices^71
+45 ;;^UTILITY(U,$J,112,9870,1)
+46 ;;=.704^9.437^61.831^336.62^27.465^^^98.592^.803^^^33.803^53.521^^^^^0^0^.056
+47 ;;^UTILITY(U,$J,112,9870,2)
+48 ;;=.028^.563^^^^^^^^^^^^^^^3.803
+49 ;;^UTILITY(U,$J,112,9870,20)
+50 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+51 ;;^UTILITY(U,$J,112,9871,0)
+52 ;;=BREAD,TAPIOCA,(GLUTEN & WHEAT FREE),ENER-G FOODS^BC-03144^2-slices^66
+53 ;;^UTILITY(U,$J,112,9871,1)
+54 ;;=2.727^15.606^43.636^325.758^37.273^^^10.606^2.894^^54.545^90.909^245.455^^^^^0^0^.833
+55 ;;^UTILITY(U,$J,112,9871,2)
+56 ;;=.333^1.97^^^^^^^0^^^^^^^^3.636
+57 ;;^UTILITY(U,$J,112,9871,20)
+58 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+59 ;;^UTILITY(U,$J,112,9872,0)
+60 ;;=BREAD,WHITE RICE,(GLUTEN & WHEAT FREE),ENER-G FOODS^BC-03145^2-slices^66
+61 ;;^UTILITY(U,$J,112,9872,1)
+62 ;;=3.03^6.364^49.545^266.667^40.152^^^19.697^7.197^^66.667^69.697^372.727^^^^^0^0^.803
+63 ;;^UTILITY(U,$J,112,9872,2)
+64 ;;=.227^3.939^^^^^^^0^^^^^^^^2.121
+65 ;;^UTILITY(U,$J,112,9872,20)
+66 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+67 ;;^UTILITY(U,$J,112,9873,0)
+68 ;;=BREAD,WHITE RICE,YEAST FREE,(GLUTEN & WHEAT FREE),ENER-G^BC-03146^2-slices^105
+69 ;;^UTILITY(U,$J,112,9873,1)
+70 ;;=3.714^3.429^80.19^365.714^11.905^^^4.762^1^^^^280^^^^^0^0^.771
+71 ;;^UTILITY(U,$J,112,9873,2)
+72 ;;=^1.143
+73 ;;^UTILITY(U,$J,112,9873,20)
+74 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+75 ;;^UTILITY(U,$J,112,9874,0)
+76 ;;=BREAD,XANTHAM GUM,(GLUTEN & WHEAT FREE),ENER-G FOODS^BC-03147^2-slices^85
+77 ;;^UTILITY(U,$J,112,9874,1)
+78 ;;=5.882^3.882^55.294^280^33.059^^^25.882^2^^^45.882^43.529^^^^^0^0^.235
+79 ;;^UTILITY(U,$J,112,9874,2)
+80 ;;=.071^1.294^^^^^^^27.059
+81 ;;^UTILITY(U,$J,112,9874,20)
+82 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+83 ;;^UTILITY(U,$J,112,9875,0)
+84 ;;=COOKIES,CAROB,(GLUTEN & WHEAT FREE),ENER-G FOODS^BC-03148^cookies^20
+85 ;;^UTILITY(U,$J,112,9875,1)
+86 ;;=5.5^6^71^360^15.5^^^785^4^^^^295^^^^^0^0^.05
+87 ;;^UTILITY(U,$J,112,9875,2)
+88 ;;=.05^2
+89 ;;^UTILITY(U,$J,112,9875,20)
+90 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+91 ;;^UTILITY(U,$J,112,9876,0)
+92 ;;=COOKIES,CHOC CHIP POTATO,(GLUTEN & WHEAT FREE),ENER-G FOODS^BC-03149^cookies^19
+93 ;;^UTILITY(U,$J,112,9876,1)
+94 ;;=5.263^17.895^60.526^436.842^14.737^^^47.368^2.579^47.368^142.105^205.263^142.105^4.053^.479^^^100^0^.105
+95 ;;^UTILITY(U,$J,112,9876,2)
+96 ;;=.105^.526
+97 ;;^UTILITY(U,$J,112,9876,20)
+98 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+99 ;;^UTILITY(U,$J,112,9877,0)
+100 ;;=CRACKERS,MELBA TOAST,(GLUTEN & WHEAT FREE),ENER-G FOODS^BC-03150^crackers^27
+101 ;;^UTILITY(U,$J,112,9877,1)
+102 ;;=9.259^4.815^77.037^388.889^7.778^^^133.333^4^^^^18.519^^^^^0^7.407^.111
