FHINI0G7 ; ; 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,9877,2)
;;=.889^4.815
;;^UTILITY(U,$J,112,9877,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9878,0)
;;=LACTO-FREE BEVERAGE MIX,(GLUTEN & WHEAT FREE),ENER-G FOODS^BC-03151^8-floz.^22
;;^UTILITY(U,$J,112,9878,1)
;;=16.818^21.818^55^463.636^^^^200^0^^^740.909^568.182^^^^^500^0^0
;;^UTILITY(U,$J,112,9878,2)
;;=0^0^^^^^^^0
;;^UTILITY(U,$J,112,9878,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9879,0)
;;=PASTA,SPAGHETTI,DRY,AGLUTELLA,(GLUTEN & WHEAT FREE),ENER-G^BC-03152^1/2-cup^43
;;^UTILITY(U,$J,112,9879,1)
;;=.465^.465^86.977^353.488^^^^^^^60.465^9.302^18.605^^^^^0^0^.07
;;^UTILITY(U,$J,112,9879,2)
;;=^.93
;;^UTILITY(U,$J,112,9879,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9880,0)
;;=RICE CAKE,(GLUTEN & WHEAT FREE),ENER-G FOODS^BC-03153^cakes^5
;;^UTILITY(U,$J,112,9880,1)
;;=10^0^92^420^^^^^^^^^320
;;^UTILITY(U,$J,112,9880,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9881,0)
;;=MILK,SOYQUIX,POWDER,(GLUTEN & WHEAT FREE),ENER-G FOODS^BC-03154^2-tbsp.^14
;;^UTILITY(U,$J,112,9881,1)
;;=44.286^15.714^24.286^371.429^7.857^^^207.143^6^200^600^2100^14.286^4.286^1.4^^^0^0^1
;;^UTILITY(U,$J,112,9881,2)
;;=.214^2.143^^.214^250^0
;;^UTILITY(U,$J,112,9881,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9882,0)
;;=COOKIE,BUTTERSCOTCH,LOW PROTEIN FOODS,APROTEN^BC-03155^cookie^14
;;^UTILITY(U,$J,112,9882,1)
;;=.714^25^69.286^500^^^^28.571^^^^42.857^142.857
;;^UTILITY(U,$J,112,9882,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9883,0)
;;=COOKIE,CHOC CHIP,LOW PROTEIN FOODS,APROTEN^BC-03156^cookie^14
;;^UTILITY(U,$J,112,9883,1)
;;=.714^25^71.429^500^^^^42.857^^^28.571^100^157.143
;;^UTILITY(U,$J,112,9883,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9884,0)
;;=PASTA,DRY,LOW PROTEIN FOODS,APROTEN^BC-03157^2-oz.^56
;;^UTILITY(U,$J,112,9884,1)
;;=.536^.536^85^344.643^^^^10.714^0^^14.286^10.714^19.643^^^^^0^0^0
;;^UTILITY(U,$J,112,9884,2)
;;=0^0
;;^UTILITY(U,$J,112,9884,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9885,0)
;;=LIQUID DIET MEAL,CND,PET,CHOC/DUTCH CHOC,SEGO,LIFE^BC-03158^10-floz.^310
;;^UTILITY(U,$J,112,9885,1)
;;=3.548^.968^6.452^48.387^^^^^^^^222.581^153.226
;;^UTILITY(U,$J,112,9885,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9886,0)
;;=LIQUID DIET MEAL,CND,PET,FRENCH VAN/STRAWBERRY,SEGO,LIFE^BC-03159^10-floz.^310
;;^UTILITY(U,$J,112,9886,1)
;;=3.548^1.29^5.484^48.387^^^^^^^^193.548^125.806
;;^UTILITY(U,$J,112,9886,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9887,0)
;;=LIQUID DIET MEAL,CND,PET,VANILLA^BC-03160^10-floz.^310
;;^UTILITY(U,$J,112,9887,1)
;;=3.548^1.29^5.484^48.387^^^^^^^^193.548^158.065
;;^UTILITY(U,$J,112,9887,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9888,0)
;;=LIQUID DIET MEAL,CND,PET,VERY CHOC/CHOC MALT/DUTCH CHOC,SEGO^BC-03161^10-floz.^310
;;^UTILITY(U,$J,112,9888,1)
;;=3.548^.323^13.871^72.581^^^^^^^^222.581^143.548
;;^UTILITY(U,$J,112,9888,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9889,0)
;;=LIQUID DIET MEAL,CND,PET,VERY VAN/STRAWBERRY,SEGO^BC-03162^10-floz.^310
;;^UTILITY(U,$J,112,9889,1)
;;=3.548^1.613^10.968^72.581^^^^^^^^193.548^116.129
;;^UTILITY(U,$J,112,9889,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9890,0)
;;=SLENDER BARS,CARNATION,CHOC^BC-03163^2-bars^57
;;^UTILITY(U,$J,112,9890,1)
;;=21.404^25.263^43.509^475.439^3.158^^^438.596^7.895^175.439^438.596^540.351^580.702^6.579^.877^.193^^2192.982^26.316^.667
;;^UTILITY(U,$J,112,9890,2)
;;=9.526^8.772^4.386^.737^175.439^2.632^^^0^8.947^14.912^1.579^^^^^.175
;;^UTILITY(U,$J,112,9890,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9891,0)
;;=SLENDER BARS,CARNATION,CHOC CHIP^BC-03164^2-bars^57
;;^UTILITY(U,$J,112,9891,1)
;;=20.877^23.86^45.789^473.684^2.632^^^438.596^7.895^175.439^438.596^594.737^584.211^6.579^.877^.012^^2192.982^26.316^.667
;;^UTILITY(U,$J,112,9891,2)
;;=9.526^8.772^4.386^.737^175.439^2.632^^^0^8.596^14.737^.526^^^^^0
;;^UTILITY(U,$J,112,9891,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9892,0)
;;=SLENDER BARS,CARNATION,CHOC PEANUT BUTTER^BC-03165^2-bars^56
;;^UTILITY(U,$J,112,9892,1)
;;=21.25^27.143^42.857^491.071^2.679^^^446.429^8.036^178.571^446.429^639.286^546.429^6.696^.893^.261^^2232.143^26.786^.679
FHINI0G7 ; ; 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,9877,2)
+2 ;;=.889^4.815
+3 ;;^UTILITY(U,$J,112,9877,20)
+4 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+5 ;;^UTILITY(U,$J,112,9878,0)
+6 ;;=LACTO-FREE BEVERAGE MIX,(GLUTEN & WHEAT FREE),ENER-G FOODS^BC-03151^8-floz.^22
+7 ;;^UTILITY(U,$J,112,9878,1)
+8 ;;=16.818^21.818^55^463.636^^^^200^0^^^740.909^568.182^^^^^500^0^0
+9 ;;^UTILITY(U,$J,112,9878,2)
+10 ;;=0^0^^^^^^^0
+11 ;;^UTILITY(U,$J,112,9878,20)
+12 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+13 ;;^UTILITY(U,$J,112,9879,0)
+14 ;;=PASTA,SPAGHETTI,DRY,AGLUTELLA,(GLUTEN & WHEAT FREE),ENER-G^BC-03152^1/2-cup^43
+15 ;;^UTILITY(U,$J,112,9879,1)
+16 ;;=.465^.465^86.977^353.488^^^^^^^60.465^9.302^18.605^^^^^0^0^.07
+17 ;;^UTILITY(U,$J,112,9879,2)
+18 ;;=^.93
+19 ;;^UTILITY(U,$J,112,9879,20)
+20 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+21 ;;^UTILITY(U,$J,112,9880,0)
+22 ;;=RICE CAKE,(GLUTEN & WHEAT FREE),ENER-G FOODS^BC-03153^cakes^5
+23 ;;^UTILITY(U,$J,112,9880,1)
+24 ;;=10^0^92^420^^^^^^^^^320
+25 ;;^UTILITY(U,$J,112,9880,20)
+26 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+27 ;;^UTILITY(U,$J,112,9881,0)
+28 ;;=MILK,SOYQUIX,POWDER,(GLUTEN & WHEAT FREE),ENER-G FOODS^BC-03154^2-tbsp.^14
+29 ;;^UTILITY(U,$J,112,9881,1)
+30 ;;=44.286^15.714^24.286^371.429^7.857^^^207.143^6^200^600^2100^14.286^4.286^1.4^^^0^0^1
+31 ;;^UTILITY(U,$J,112,9881,2)
+32 ;;=.214^2.143^^.214^250^0
+33 ;;^UTILITY(U,$J,112,9881,20)
+34 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+35 ;;^UTILITY(U,$J,112,9882,0)
+36 ;;=COOKIE,BUTTERSCOTCH,LOW PROTEIN FOODS,APROTEN^BC-03155^cookie^14
+37 ;;^UTILITY(U,$J,112,9882,1)
+38 ;;=.714^25^69.286^500^^^^28.571^^^^42.857^142.857
+39 ;;^UTILITY(U,$J,112,9882,20)
+40 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+41 ;;^UTILITY(U,$J,112,9883,0)
+42 ;;=COOKIE,CHOC CHIP,LOW PROTEIN FOODS,APROTEN^BC-03156^cookie^14
+43 ;;^UTILITY(U,$J,112,9883,1)
+44 ;;=.714^25^71.429^500^^^^42.857^^^28.571^100^157.143
+45 ;;^UTILITY(U,$J,112,9883,20)
+46 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+47 ;;^UTILITY(U,$J,112,9884,0)
+48 ;;=PASTA,DRY,LOW PROTEIN FOODS,APROTEN^BC-03157^2-oz.^56
+49 ;;^UTILITY(U,$J,112,9884,1)
+50 ;;=.536^.536^85^344.643^^^^10.714^0^^14.286^10.714^19.643^^^^^0^0^0
+51 ;;^UTILITY(U,$J,112,9884,2)
+52 ;;=0^0
+53 ;;^UTILITY(U,$J,112,9884,20)
+54 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+55 ;;^UTILITY(U,$J,112,9885,0)
+56 ;;=LIQUID DIET MEAL,CND,PET,CHOC/DUTCH CHOC,SEGO,LIFE^BC-03158^10-floz.^310
+57 ;;^UTILITY(U,$J,112,9885,1)
+58 ;;=3.548^.968^6.452^48.387^^^^^^^^222.581^153.226
+59 ;;^UTILITY(U,$J,112,9885,20)
+60 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+61 ;;^UTILITY(U,$J,112,9886,0)
+62 ;;=LIQUID DIET MEAL,CND,PET,FRENCH VAN/STRAWBERRY,SEGO,LIFE^BC-03159^10-floz.^310
+63 ;;^UTILITY(U,$J,112,9886,1)
+64 ;;=3.548^1.29^5.484^48.387^^^^^^^^193.548^125.806
+65 ;;^UTILITY(U,$J,112,9886,20)
+66 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+67 ;;^UTILITY(U,$J,112,9887,0)
+68 ;;=LIQUID DIET MEAL,CND,PET,VANILLA^BC-03160^10-floz.^310
+69 ;;^UTILITY(U,$J,112,9887,1)
+70 ;;=3.548^1.29^5.484^48.387^^^^^^^^193.548^158.065
+71 ;;^UTILITY(U,$J,112,9887,20)
+72 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+73 ;;^UTILITY(U,$J,112,9888,0)
+74 ;;=LIQUID DIET MEAL,CND,PET,VERY CHOC/CHOC MALT/DUTCH CHOC,SEGO^BC-03161^10-floz.^310
+75 ;;^UTILITY(U,$J,112,9888,1)
+76 ;;=3.548^.323^13.871^72.581^^^^^^^^222.581^143.548
+77 ;;^UTILITY(U,$J,112,9888,20)
+78 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+79 ;;^UTILITY(U,$J,112,9889,0)
+80 ;;=LIQUID DIET MEAL,CND,PET,VERY VAN/STRAWBERRY,SEGO^BC-03162^10-floz.^310
+81 ;;^UTILITY(U,$J,112,9889,1)
+82 ;;=3.548^1.613^10.968^72.581^^^^^^^^193.548^116.129
+83 ;;^UTILITY(U,$J,112,9889,20)
+84 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+85 ;;^UTILITY(U,$J,112,9890,0)
+86 ;;=SLENDER BARS,CARNATION,CHOC^BC-03163^2-bars^57
+87 ;;^UTILITY(U,$J,112,9890,1)
+88 ;;=21.404^25.263^43.509^475.439^3.158^^^438.596^7.895^175.439^438.596^540.351^580.702^6.579^.877^.193^^2192.982^26.316^.667
+89 ;;^UTILITY(U,$J,112,9890,2)
+90 ;;=9.526^8.772^4.386^.737^175.439^2.632^^^0^8.947^14.912^1.579^^^^^.175
+91 ;;^UTILITY(U,$J,112,9890,20)
+92 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+93 ;;^UTILITY(U,$J,112,9891,0)
+94 ;;=SLENDER BARS,CARNATION,CHOC CHIP^BC-03164^2-bars^57
+95 ;;^UTILITY(U,$J,112,9891,1)
+96 ;;=20.877^23.86^45.789^473.684^2.632^^^438.596^7.895^175.439^438.596^594.737^584.211^6.579^.877^.012^^2192.982^26.316^.667
+97 ;;^UTILITY(U,$J,112,9891,2)
+98 ;;=9.526^8.772^4.386^.737^175.439^2.632^^^0^8.596^14.737^.526^^^^^0
+99 ;;^UTILITY(U,$J,112,9891,20)
+100 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+101 ;;^UTILITY(U,$J,112,9892,0)
+102 ;;=SLENDER BARS,CARNATION,CHOC PEANUT BUTTER^BC-03165^2-bars^56
+103 ;;^UTILITY(U,$J,112,9892,1)
+104 ;;=21.25^27.143^42.857^491.071^2.679^^^446.429^8.036^178.571^446.429^639.286^546.429^6.696^.893^.261^^2232.143^26.786^.679
