FHINI0AB ; ; 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,6962,2)
;;=.179^4.286^^^^^^^2.857^8.571^^14.643^^^^^4.286
;;^UTILITY(U,$J,112,6962,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,6963,0)
;;=POTATO CHIPS,FRENCH ONION,RIPPLED,PRINGLES^BC-00236^oz.^28
;;^UTILITY(U,$J,112,6963,1)
;;=7.143^39.286^46.429^607.143^1.429^^^57.143^1.786^60.714^182.143^1089.286^625^.714^.107^^^^7.143^.25
;;^UTILITY(U,$J,112,6963,2)
;;=.071^3.214^^^^^^^0^10.714^7.143^21.429
;;^UTILITY(U,$J,112,6963,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,6964,0)
;;=POTATO CHIPS,LIGHT PRINGLES^BC-00237^oz.^28
;;^UTILITY(U,$J,112,6964,1)
;;=7.143^28.571^60.714^535.714^2.143^^^28.571^1.786^57.143^171.429^1071.429^428.571^.714^.107^^^^14.286^.179
;;^UTILITY(U,$J,112,6964,2)
;;=.071^3.571^^^^^^^0^7.143^3.571^17.857
;;^UTILITY(U,$J,112,6964,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,6965,0)
;;=POTATO CHIPS,PLAIN,CAPE COD^BC-00238^oz.^28
;;^UTILITY(U,$J,112,6965,1)
;;=7.5^30.357^57.5^535.714^2.5^^^17.857^1.286^^^1446.429^428.571^^^^^50^25^.214
;;^UTILITY(U,$J,112,6965,2)
;;=.179^5^^^^^^^0^7.5^^13.929^^^^^5.357
;;^UTILITY(U,$J,112,6965,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,6966,0)
;;=POTATO CHIPS,PLAIN,CAPE COD,NO SALT^BC-00239^oz.^28
;;^UTILITY(U,$J,112,6966,1)
;;=7.5^30.357^57.5^535.714^2.5^^^17.857^1.286^^^1446.429^0^^^^^50^25^.214
;;^UTILITY(U,$J,112,6966,2)
;;=.179^5^^^^^^^0^7.5^^13.929^^^^^5.357
;;^UTILITY(U,$J,112,6966,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,6967,0)
;;=POTATO CHIPS,PLAIN,EAGLE^BC-00240^oz.^28
;;^UTILITY(U,$J,112,6967,1)
;;=7.857^28.571^58.571^500^2.5^^^25^^^^1285.714^642.857^^^^^21.429^28.571^.179
;;^UTILITY(U,$J,112,6967,2)
;;=.107^3.929^^^^^^^0^6.429^^12.5^^^^^6.429
;;^UTILITY(U,$J,112,6967,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,6968,0)
;;=POTATO CHIPS,PLAIN,EAGLE,RIDGED^BC-00241^oz.^28
;;^UTILITY(U,$J,112,6968,1)
;;=7.143^33.929^53.929^535.714^.714^^^14.286^1.071^^^1321.429^785.714^^^^^^25^.143
;;^UTILITY(U,$J,112,6968,2)
;;=.107^5^^^^^^^0
;;^UTILITY(U,$J,112,6968,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,6969,0)
;;=POTATOE CHIPS,PLAIN,PRINGLES^BC-00242^oz.^28
;;^UTILITY(U,$J,112,6969,1)
;;=7.143^42.857^42.857^607.143^1.786^^^7.143^1.429^57.143^142.857^1107.143^607.143^.714^.107^^^^7.143^.143
;;^UTILITY(U,$J,112,6969,2)
;;=.071^3.214^^^^^^^0^10.714^7.143^25
;;^UTILITY(U,$J,112,6969,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,6970,0)
;;=PRETZELS,A & EAGLE,BARVARIAN^BC-00243^oz.^28
;;^UTILITY(U,$J,112,6970,1)
;;=9.643^5.357^76.786^392.857^3.214^^^32.143^.964^^^64.286^2178.571^^^^^0^0^.107
;;^UTILITY(U,$J,112,6970,2)
;;=.071^1.429^^^^^^^0^1.071^^1.071^^^^^2.5
;;^UTILITY(U,$J,112,6970,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,6971,0)
;;=PRETZELS,KEEBLER^BC-00244^.5-oz.^14
;;^UTILITY(U,$J,112,6971,1)
;;=10^2.857^75^371.429^^^^21.429^5.214^^^157.143^2400^^^^^^^.5
;;^UTILITY(U,$J,112,6971,2)
;;=.429^6.429^^^^^^^0^.714^^0
;;^UTILITY(U,$J,112,6971,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,6972,0)
;;=PRETZELS,MISTER SALTY^BC-00245^oz.^28
;;^UTILITY(U,$J,112,6972,1)
;;=10.714^4.286^76.786^392.857^^^^^^^^132.143^1939.286
;;^UTILITY(U,$J,112,6972,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,6973,0)
;;=CREAMERS,LIQUID,COFFEE-MATE,NON-DAIRY^BC-00246^1/2-floz.^15
;;^UTILITY(U,$J,112,6973,1)
;;=0^6.667^13.333^106.667^^^^0^.067^0^46.667^133.333^33.333^.067^0^^^120^0^0
;;^UTILITY(U,$J,112,6973,2)
;;=0^0^0^0^0^0^^^0^2^4.667^.667
;;^UTILITY(U,$J,112,6973,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,6974,0)
;;=CREAMERS,LIQUID,COFFEE RICH,NON-DAIRY^BC-00247^1/2-floz.^14
;;^UTILITY(U,$J,112,6974,1)
;;=0^11.429^15.714^157.143^74.286^^^0^.143^0^35.714^42.857^78.571^0^0
;;^UTILITY(U,$J,112,6974,2)
;;=^^^^^^^^0^2.143^5^3.571^^^^^0
;;^UTILITY(U,$J,112,6974,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,6975,0)
;;=CREAMERS,LIQUID,FARM RICH^BC-00248^1/2-floz.^14
;;^UTILITY(U,$J,112,6975,1)
;;=0^10.714^7.857^128.571^82.143^^^0^.071^0^64.286^100^50^0^.021^^^0^0^0
;;^UTILITY(U,$J,112,6975,2)
;;=0^0^^^^^^^0^2.143^2.143^2.857^^^^^0
;;^UTILITY(U,$J,112,6975,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,6976,0)
;;=CREAMERS,LIQUID,MOCHA MIX,NON-DAIRY^BC-00249^1/2-floz.^14
FHINI0AB ; ; 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,6962,2)
+2 ;;=.179^4.286^^^^^^^2.857^8.571^^14.643^^^^^4.286
+3 ;;^UTILITY(U,$J,112,6962,20)
+4 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+5 ;;^UTILITY(U,$J,112,6963,0)
+6 ;;=POTATO CHIPS,FRENCH ONION,RIPPLED,PRINGLES^BC-00236^oz.^28
+7 ;;^UTILITY(U,$J,112,6963,1)
+8 ;;=7.143^39.286^46.429^607.143^1.429^^^57.143^1.786^60.714^182.143^1089.286^625^.714^.107^^^^7.143^.25
+9 ;;^UTILITY(U,$J,112,6963,2)
+10 ;;=.071^3.214^^^^^^^0^10.714^7.143^21.429
+11 ;;^UTILITY(U,$J,112,6963,20)
+12 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+13 ;;^UTILITY(U,$J,112,6964,0)
+14 ;;=POTATO CHIPS,LIGHT PRINGLES^BC-00237^oz.^28
+15 ;;^UTILITY(U,$J,112,6964,1)
+16 ;;=7.143^28.571^60.714^535.714^2.143^^^28.571^1.786^57.143^171.429^1071.429^428.571^.714^.107^^^^14.286^.179
+17 ;;^UTILITY(U,$J,112,6964,2)
+18 ;;=.071^3.571^^^^^^^0^7.143^3.571^17.857
+19 ;;^UTILITY(U,$J,112,6964,20)
+20 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+21 ;;^UTILITY(U,$J,112,6965,0)
+22 ;;=POTATO CHIPS,PLAIN,CAPE COD^BC-00238^oz.^28
+23 ;;^UTILITY(U,$J,112,6965,1)
+24 ;;=7.5^30.357^57.5^535.714^2.5^^^17.857^1.286^^^1446.429^428.571^^^^^50^25^.214
+25 ;;^UTILITY(U,$J,112,6965,2)
+26 ;;=.179^5^^^^^^^0^7.5^^13.929^^^^^5.357
+27 ;;^UTILITY(U,$J,112,6965,20)
+28 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+29 ;;^UTILITY(U,$J,112,6966,0)
+30 ;;=POTATO CHIPS,PLAIN,CAPE COD,NO SALT^BC-00239^oz.^28
+31 ;;^UTILITY(U,$J,112,6966,1)
+32 ;;=7.5^30.357^57.5^535.714^2.5^^^17.857^1.286^^^1446.429^0^^^^^50^25^.214
+33 ;;^UTILITY(U,$J,112,6966,2)
+34 ;;=.179^5^^^^^^^0^7.5^^13.929^^^^^5.357
+35 ;;^UTILITY(U,$J,112,6966,20)
+36 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+37 ;;^UTILITY(U,$J,112,6967,0)
+38 ;;=POTATO CHIPS,PLAIN,EAGLE^BC-00240^oz.^28
+39 ;;^UTILITY(U,$J,112,6967,1)
+40 ;;=7.857^28.571^58.571^500^2.5^^^25^^^^1285.714^642.857^^^^^21.429^28.571^.179
+41 ;;^UTILITY(U,$J,112,6967,2)
+42 ;;=.107^3.929^^^^^^^0^6.429^^12.5^^^^^6.429
+43 ;;^UTILITY(U,$J,112,6967,20)
+44 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+45 ;;^UTILITY(U,$J,112,6968,0)
+46 ;;=POTATO CHIPS,PLAIN,EAGLE,RIDGED^BC-00241^oz.^28
+47 ;;^UTILITY(U,$J,112,6968,1)
+48 ;;=7.143^33.929^53.929^535.714^.714^^^14.286^1.071^^^1321.429^785.714^^^^^^25^.143
+49 ;;^UTILITY(U,$J,112,6968,2)
+50 ;;=.107^5^^^^^^^0
+51 ;;^UTILITY(U,$J,112,6968,20)
+52 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+53 ;;^UTILITY(U,$J,112,6969,0)
+54 ;;=POTATOE CHIPS,PLAIN,PRINGLES^BC-00242^oz.^28
+55 ;;^UTILITY(U,$J,112,6969,1)
+56 ;;=7.143^42.857^42.857^607.143^1.786^^^7.143^1.429^57.143^142.857^1107.143^607.143^.714^.107^^^^7.143^.143
+57 ;;^UTILITY(U,$J,112,6969,2)
+58 ;;=.071^3.214^^^^^^^0^10.714^7.143^25
+59 ;;^UTILITY(U,$J,112,6969,20)
+60 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+61 ;;^UTILITY(U,$J,112,6970,0)
+62 ;;=PRETZELS,A & EAGLE,BARVARIAN^BC-00243^oz.^28
+63 ;;^UTILITY(U,$J,112,6970,1)
+64 ;;=9.643^5.357^76.786^392.857^3.214^^^32.143^.964^^^64.286^2178.571^^^^^0^0^.107
+65 ;;^UTILITY(U,$J,112,6970,2)
+66 ;;=.071^1.429^^^^^^^0^1.071^^1.071^^^^^2.5
+67 ;;^UTILITY(U,$J,112,6970,20)
+68 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+69 ;;^UTILITY(U,$J,112,6971,0)
+70 ;;=PRETZELS,KEEBLER^BC-00244^.5-oz.^14
+71 ;;^UTILITY(U,$J,112,6971,1)
+72 ;;=10^2.857^75^371.429^^^^21.429^5.214^^^157.143^2400^^^^^^^.5
+73 ;;^UTILITY(U,$J,112,6971,2)
+74 ;;=.429^6.429^^^^^^^0^.714^^0
+75 ;;^UTILITY(U,$J,112,6971,20)
+76 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+77 ;;^UTILITY(U,$J,112,6972,0)
+78 ;;=PRETZELS,MISTER SALTY^BC-00245^oz.^28
+79 ;;^UTILITY(U,$J,112,6972,1)
+80 ;;=10.714^4.286^76.786^392.857^^^^^^^^132.143^1939.286
+81 ;;^UTILITY(U,$J,112,6972,20)
+82 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+83 ;;^UTILITY(U,$J,112,6973,0)
+84 ;;=CREAMERS,LIQUID,COFFEE-MATE,NON-DAIRY^BC-00246^1/2-floz.^15
+85 ;;^UTILITY(U,$J,112,6973,1)
+86 ;;=0^6.667^13.333^106.667^^^^0^.067^0^46.667^133.333^33.333^.067^0^^^120^0^0
+87 ;;^UTILITY(U,$J,112,6973,2)
+88 ;;=0^0^0^0^0^0^^^0^2^4.667^.667
+89 ;;^UTILITY(U,$J,112,6973,20)
+90 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+91 ;;^UTILITY(U,$J,112,6974,0)
+92 ;;=CREAMERS,LIQUID,COFFEE RICH,NON-DAIRY^BC-00247^1/2-floz.^14
+93 ;;^UTILITY(U,$J,112,6974,1)
+94 ;;=0^11.429^15.714^157.143^74.286^^^0^.143^0^35.714^42.857^78.571^0^0
+95 ;;^UTILITY(U,$J,112,6974,2)
+96 ;;=^^^^^^^^0^2.143^5^3.571^^^^^0
+97 ;;^UTILITY(U,$J,112,6974,20)
+98 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+99 ;;^UTILITY(U,$J,112,6975,0)
+100 ;;=CREAMERS,LIQUID,FARM RICH^BC-00248^1/2-floz.^14
+101 ;;^UTILITY(U,$J,112,6975,1)
+102 ;;=0^10.714^7.857^128.571^82.143^^^0^.071^0^64.286^100^50^0^.021^^^0^0^0
+103 ;;^UTILITY(U,$J,112,6975,2)
+104 ;;=0^0^^^^^^^0^2.143^2.143^2.857^^^^^0
+105 ;;^UTILITY(U,$J,112,6975,20)
+106 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+107 ;;^UTILITY(U,$J,112,6976,0)
+108 ;;=CREAMERS,LIQUID,MOCHA MIX,NON-DAIRY^BC-00249^1/2-floz.^14