FHINI0AA ; ; 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,6949,0)
;;=CHEESE PRODUCTS,GOLDEN VELVET,LAND O'LAKES^BC-00222^oz.^28
;;^UTILITY(U,$J,112,6949,1)
;;=17.857^20.357^8.571^289.286^^^^557.143^.464^^807.143^300^1353.571^8.571^^^^664.286^0^.071
;;^UTILITY(U,$J,112,6949,2)
;;=.464^.357^^^^^^^64.286^12.857^5.357^.714
;;^UTILITY(U,$J,112,6949,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,6950,0)
;;=CHEESE PRODUCTS,VELVEETA SHARP^BC-00223^oz.^28
;;^UTILITY(U,$J,112,6950,1)
;;=18.571^21.786^7.857^300^46.429^^^550^.214^28.571^1042.857^314.286^1621.429^2.179^.054^.036^^1225^0^.071
;;^UTILITY(U,$J,112,6950,2)
;;=.464^0^.679^.071^21.429^1.179^^^75^12.857^^.714
;;^UTILITY(U,$J,112,6950,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,6951,0)
;;=SNACK FOODS,BUGLES,BETTY CROCKER^BC-00224^oz.^28
;;^UTILITY(U,$J,112,6951,1)
;;=7.143^28.571^64.286^535.714^^^^^^^^71.429^1035.714
;;^UTILITY(U,$J,112,6951,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,6952,0)
;;=SNACK FOODS,BUGLES,NACHO CHEESE,BETTY CROCKER^BC-00225^oz.^28
;;^UTILITY(U,$J,112,6952,1)
;;=7.143^32.143^60.714^571.429^^^^^^^^125^964.286
;;^UTILITY(U,$J,112,6952,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,6953,0)
;;=SNACK FOODS,CHIPSTERS,NABISCO^BC-00226^oz.^28
;;^UTILITY(U,$J,112,6953,1)
;;=3.571^17.857^67.857^428.571^^^^^^^^642.857^2071.429
;;^UTILITY(U,$J,112,6953,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,6954,0)
;;=SNACK FOODS,CORN CRISPS,PRINGLES (FRESH ROASTED)^BC-00227^oz.^28
;;^UTILITY(U,$J,112,6954,1)
;;=7.143^25^60.714^500^1.071^^^7.143^2.143^85.714^214.286^253.571^750^1.071^.107^^^928.571^3.571^.036
;;^UTILITY(U,$J,112,6954,2)
;;=.071^2.5^^^^^^^0^3.571^7.143^14.286
;;^UTILITY(U,$J,112,6954,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,6955,0)
;;=POPCORN,PILLSBURY (MICRO)^BC-00228^3-cups^40
;;^UTILITY(U,$J,112,6955,1)
;;=7.5^33^51^525^^^^20^1.7^^182.5^240^1037.5^^^^^135^7.5^.125
;;^UTILITY(U,$J,112,6955,2)
;;=.075^1.75^^^^^^^^^^^^^^^2.5
;;^UTILITY(U,$J,112,6955,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,6956,0)
;;=POPCORN,CHEESE EAGLE^BC-00229^1/2-oz.^14
;;^UTILITY(U,$J,112,6956,1)
;;=12.857^38.571^44.286^571.429^2.143^^^214.286^2^^^357.143^1100^^^^^35.714^0^.071
;;^UTILITY(U,$J,112,6956,2)
;;=1.071^^^^^^^^21.429^7.857^^18.571^^^^^5.714
;;^UTILITY(U,$J,112,6956,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,6957,0)
;;=POPCORN,PLAIN AIR-POPPED^BC-00230^oz.^28
;;^UTILITY(U,$J,112,6957,1)
;;=12.143^4.286^78.929^385.714^4.286^^^10.714^2.714^132.143^303.571^303.571^3.571^3.5^.425^.954^^200^0^.214
;;^UTILITY(U,$J,112,6957,2)
;;=.286^2.143^.429^.25^25^0^^^0^.714^1.071^1.786^21.429^^^^15.357
;;^UTILITY(U,$J,112,6957,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,6958,0)
;;=POTATO CHIPS,BARBECUE,EAGLE THINS^BC-00231^oz.^28
;;^UTILITY(U,$J,112,6958,1)
;;=7.143^33.929^54.286^535.714^1.429^^^17.857^1.321^^^1285.714^785.714^^^^^275^53.571^.25
;;^UTILITY(U,$J,112,6958,2)
;;=.179^5^^^^^^^0^8.214^^16.071^^^^^4.286
;;^UTILITY(U,$J,112,6958,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,6959,0)
;;=POTATO CHIPS,BARBECUE,PRINGLES,LIGHT^BC-00232^oz.^28
;;^UTILITY(U,$J,112,6959,1)
;;=7.143^28.571^60.714^535.714^2.143^^^32.143^1.786^67.857^203.571^1071.429^446.429^.714^.107^^^^14.286^.286
;;^UTILITY(U,$J,112,6959,2)
;;=.071^3.929^^^^^^^0^7.143^3.571^17.857
;;^UTILITY(U,$J,112,6959,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,6960,0)
;;=POTATO CHIPS,CHEDDAR N' SOUR CREAM,PRINGLES^BC-00233^oz.^28
;;^UTILITY(U,$J,112,6960,1)
;;=7.143^39.286^46.429^607.143^2.143^^^57.143^1.429^^^^714.286^^^^^^10.714^.214
;;^UTILITY(U,$J,112,6960,2)
;;=.143^3.214^^^^^^^^10.714^7.143^21.429
;;^UTILITY(U,$J,112,6960,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,6961,0)
;;=POTATO CHIPS,DILL & SOUR CREAM,CAPE COD^BC-00234^oz.^28
;;^UTILITY(U,$J,112,6961,1)
;;=9.286^31.071^54.643^535.714^1.786^^^71.429^1.393^^^1535.714^571.429^^^^^^21.429
;;^UTILITY(U,$J,112,6961,2)
;;=^^^^^^^^3.571^8.214^^12.143^^^^^5
;;^UTILITY(U,$J,112,6961,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,6962,0)
;;=POTATO CHIPS,DILLS & SOUR CREAM,CAPE COD (NS)^BC-00235^oz.^28
;;^UTILITY(U,$J,112,6962,1)
;;=8.571^32.857^53.929^535.714^2.143^^^100^1.464^^^1550^53.571^^^^^^35.714^.214
FHINI0AA ; ; 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,6949,0)
+2 ;;=CHEESE PRODUCTS,GOLDEN VELVET,LAND O'LAKES^BC-00222^oz.^28
+3 ;;^UTILITY(U,$J,112,6949,1)
+4 ;;=17.857^20.357^8.571^289.286^^^^557.143^.464^^807.143^300^1353.571^8.571^^^^664.286^0^.071
+5 ;;^UTILITY(U,$J,112,6949,2)
+6 ;;=.464^.357^^^^^^^64.286^12.857^5.357^.714
+7 ;;^UTILITY(U,$J,112,6949,20)
+8 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+9 ;;^UTILITY(U,$J,112,6950,0)
+10 ;;=CHEESE PRODUCTS,VELVEETA SHARP^BC-00223^oz.^28
+11 ;;^UTILITY(U,$J,112,6950,1)
+12 ;;=18.571^21.786^7.857^300^46.429^^^550^.214^28.571^1042.857^314.286^1621.429^2.179^.054^.036^^1225^0^.071
+13 ;;^UTILITY(U,$J,112,6950,2)
+14 ;;=.464^0^.679^.071^21.429^1.179^^^75^12.857^^.714
+15 ;;^UTILITY(U,$J,112,6950,20)
+16 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+17 ;;^UTILITY(U,$J,112,6951,0)
+18 ;;=SNACK FOODS,BUGLES,BETTY CROCKER^BC-00224^oz.^28
+19 ;;^UTILITY(U,$J,112,6951,1)
+20 ;;=7.143^28.571^64.286^535.714^^^^^^^^71.429^1035.714
+21 ;;^UTILITY(U,$J,112,6951,20)
+22 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+23 ;;^UTILITY(U,$J,112,6952,0)
+24 ;;=SNACK FOODS,BUGLES,NACHO CHEESE,BETTY CROCKER^BC-00225^oz.^28
+25 ;;^UTILITY(U,$J,112,6952,1)
+26 ;;=7.143^32.143^60.714^571.429^^^^^^^^125^964.286
+27 ;;^UTILITY(U,$J,112,6952,20)
+28 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+29 ;;^UTILITY(U,$J,112,6953,0)
+30 ;;=SNACK FOODS,CHIPSTERS,NABISCO^BC-00226^oz.^28
+31 ;;^UTILITY(U,$J,112,6953,1)
+32 ;;=3.571^17.857^67.857^428.571^^^^^^^^642.857^2071.429
+33 ;;^UTILITY(U,$J,112,6953,20)
+34 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+35 ;;^UTILITY(U,$J,112,6954,0)
+36 ;;=SNACK FOODS,CORN CRISPS,PRINGLES (FRESH ROASTED)^BC-00227^oz.^28
+37 ;;^UTILITY(U,$J,112,6954,1)
+38 ;;=7.143^25^60.714^500^1.071^^^7.143^2.143^85.714^214.286^253.571^750^1.071^.107^^^928.571^3.571^.036
+39 ;;^UTILITY(U,$J,112,6954,2)
+40 ;;=.071^2.5^^^^^^^0^3.571^7.143^14.286
+41 ;;^UTILITY(U,$J,112,6954,20)
+42 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+43 ;;^UTILITY(U,$J,112,6955,0)
+44 ;;=POPCORN,PILLSBURY (MICRO)^BC-00228^3-cups^40
+45 ;;^UTILITY(U,$J,112,6955,1)
+46 ;;=7.5^33^51^525^^^^20^1.7^^182.5^240^1037.5^^^^^135^7.5^.125
+47 ;;^UTILITY(U,$J,112,6955,2)
+48 ;;=.075^1.75^^^^^^^^^^^^^^^2.5
+49 ;;^UTILITY(U,$J,112,6955,20)
+50 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+51 ;;^UTILITY(U,$J,112,6956,0)
+52 ;;=POPCORN,CHEESE EAGLE^BC-00229^1/2-oz.^14
+53 ;;^UTILITY(U,$J,112,6956,1)
+54 ;;=12.857^38.571^44.286^571.429^2.143^^^214.286^2^^^357.143^1100^^^^^35.714^0^.071
+55 ;;^UTILITY(U,$J,112,6956,2)
+56 ;;=1.071^^^^^^^^21.429^7.857^^18.571^^^^^5.714
+57 ;;^UTILITY(U,$J,112,6956,20)
+58 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+59 ;;^UTILITY(U,$J,112,6957,0)
+60 ;;=POPCORN,PLAIN AIR-POPPED^BC-00230^oz.^28
+61 ;;^UTILITY(U,$J,112,6957,1)
+62 ;;=12.143^4.286^78.929^385.714^4.286^^^10.714^2.714^132.143^303.571^303.571^3.571^3.5^.425^.954^^200^0^.214
+63 ;;^UTILITY(U,$J,112,6957,2)
+64 ;;=.286^2.143^.429^.25^25^0^^^0^.714^1.071^1.786^21.429^^^^15.357
+65 ;;^UTILITY(U,$J,112,6957,20)
+66 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+67 ;;^UTILITY(U,$J,112,6958,0)
+68 ;;=POTATO CHIPS,BARBECUE,EAGLE THINS^BC-00231^oz.^28
+69 ;;^UTILITY(U,$J,112,6958,1)
+70 ;;=7.143^33.929^54.286^535.714^1.429^^^17.857^1.321^^^1285.714^785.714^^^^^275^53.571^.25
+71 ;;^UTILITY(U,$J,112,6958,2)
+72 ;;=.179^5^^^^^^^0^8.214^^16.071^^^^^4.286
+73 ;;^UTILITY(U,$J,112,6958,20)
+74 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+75 ;;^UTILITY(U,$J,112,6959,0)
+76 ;;=POTATO CHIPS,BARBECUE,PRINGLES,LIGHT^BC-00232^oz.^28
+77 ;;^UTILITY(U,$J,112,6959,1)
+78 ;;=7.143^28.571^60.714^535.714^2.143^^^32.143^1.786^67.857^203.571^1071.429^446.429^.714^.107^^^^14.286^.286
+79 ;;^UTILITY(U,$J,112,6959,2)
+80 ;;=.071^3.929^^^^^^^0^7.143^3.571^17.857
+81 ;;^UTILITY(U,$J,112,6959,20)
+82 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+83 ;;^UTILITY(U,$J,112,6960,0)
+84 ;;=POTATO CHIPS,CHEDDAR N' SOUR CREAM,PRINGLES^BC-00233^oz.^28
+85 ;;^UTILITY(U,$J,112,6960,1)
+86 ;;=7.143^39.286^46.429^607.143^2.143^^^57.143^1.429^^^^714.286^^^^^^10.714^.214
+87 ;;^UTILITY(U,$J,112,6960,2)
+88 ;;=.143^3.214^^^^^^^^10.714^7.143^21.429
+89 ;;^UTILITY(U,$J,112,6960,20)
+90 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+91 ;;^UTILITY(U,$J,112,6961,0)
+92 ;;=POTATO CHIPS,DILL & SOUR CREAM,CAPE COD^BC-00234^oz.^28
+93 ;;^UTILITY(U,$J,112,6961,1)
+94 ;;=9.286^31.071^54.643^535.714^1.786^^^71.429^1.393^^^1535.714^571.429^^^^^^21.429
+95 ;;^UTILITY(U,$J,112,6961,2)
+96 ;;=^^^^^^^^3.571^8.214^^12.143^^^^^5
+97 ;;^UTILITY(U,$J,112,6961,20)
+98 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+99 ;;^UTILITY(U,$J,112,6962,0)
+100 ;;=POTATO CHIPS,DILLS & SOUR CREAM,CAPE COD (NS)^BC-00235^oz.^28
+101 ;;^UTILITY(U,$J,112,6962,1)
+102 ;;=8.571^32.857^53.929^535.714^2.143^^^100^1.464^^^1550^53.571^^^^^^35.714^.214
