FHINI0DE ; ; 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,8496,0)
;;=GRAINED PRODUCTS,OATMEAL,PEPPERIDGE FARMS^BC-01769^1.2-oz.^34
;;^UTILITY(U,$J,112,8496,1)
;;=8.529^4.118^51.471^276.471^^^^50^2.941^^^105.882^582.353^^^^^0^0^.324
;;^UTILITY(U,$J,112,8496,2)
;;=.206^3.529
;;^UTILITY(U,$J,112,8496,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8497,0)
;;=GRAINED PRODUCTS,OATMEAL W/RAISINS,PEPPERIDGE FARMS^BC-01770^slice^28
;;^UTILITY(U,$J,112,8497,1)
;;=9.643^4.643^51.071^285.714^^^^42.857^3.214^^^239.286^332.143^^^^^0^0^.321
;;^UTILITY(U,$J,112,8497,2)
;;=.25^3.571
;;^UTILITY(U,$J,112,8497,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8498,0)
;;=GRAINED PRODUCTS,OAT,ROMAN MEAL^BC-01771^slice^28
;;^UTILITY(U,$J,112,8498,1)
;;=9.286^3.571^48.571^253.571^38.571^^^57.143^3.571^^^^503.571^^^^^^^.714
;;^UTILITY(U,$J,112,8498,2)
;;=.357^2.857^^^^^^^0^^^^^^^^2.5
;;^UTILITY(U,$J,112,8498,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8499,0)
;;=GRAINED PRODUCTS,PITA BREAD/POCKETS^BC-01772^pocket^38
;;^UTILITY(U,$J,112,8499,1)
;;=10.526^1.579^54.211^278.947^31.316^^^81.579^2.421^26.316^100^118.421^565.789^.789^.179^.489^^0^0^.474
;;^UTILITY(U,$J,112,8499,2)
;;=.263^4.211^.421^.026^21.053^^^^^^^^^^^^.789
;;^UTILITY(U,$J,112,8499,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8500,0)
;;=GRAINED PRODUCTS,PITA BREAD/POCKET,OAT BRAN SAHARA^BC-01773^1/2-pocket^28
;;^UTILITY(U,$J,112,8500,1)
;;=8.571^1.071^54.643^235.714^^^^128.571^1.821^^^^582.143^^^^^^^.321
;;^UTILITY(U,$J,112,8500,2)
;;=.286^3.571^^^^^^^0^^^^^^^^6.429
;;^UTILITY(U,$J,112,8500,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8501,0)
;;=GRAINED PRODUCTS,PITA BREAD/POCKET,WHOLE WHEAT,FIVE STAR^BC-01774^2.3-oz.^64
;;^UTILITY(U,$J,112,8501,1)
;;=11.406^2.344^53.906^281.25^^^^178.125^2.969^^^307.813^517.188^^^^^0^0^.406
;;^UTILITY(U,$J,112,8501,2)
;;=.078^5.156
;;^UTILITY(U,$J,112,8501,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8502,0)
;;=GRAINED PRODUCTS,PUMPERNICKEL^BC-01775^slice^32
;;^UTILITY(U,$J,112,8502,1)
;;=9.063^2.5^48.125^256.25^37.188^^^71.875^2.75^68.75^218.75^434.375^540.625^1.125^^^^0^0^.344
;;^UTILITY(U,$J,112,8502,2)
;;=.531^3.438^.469^.156^^0
;;^UTILITY(U,$J,112,8502,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8503,0)
;;=GRAINED PRODUCTS,PUMPERNICKEL,PARTY SLICES,PEPPERIDGE FARMS^BC-01776^.8-oz.^24
;;^UTILITY(U,$J,112,8503,1)
;;=9.583^3.75^50^270.833^^^^75^3.333^^^154.167^683.333^^^^^0^0^.375
;;^UTILITY(U,$J,112,8503,2)
;;=.292^3.333
;;^UTILITY(U,$J,112,8503,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8504,0)
;;=GRAINED PRODUCTS,RAISIN^BC-01777^slice^25
;;^UTILITY(U,$J,112,8504,1)
;;=8.4^4^52.8^280^33.2^^^104^3.12^16^88^240^376^.64^.14^.504^^0^0^.32
;;^UTILITY(U,$J,112,8504,2)
;;=.64^4^.44^.04^36^0^^^^^^^^^^^2.4
;;^UTILITY(U,$J,112,8504,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8505,0)
;;=GRAINED PRODUCTS,RAISIN W/CINN,PEPPERIDGE FARMS^BC-01778^slice^28
;;^UTILITY(U,$J,112,8505,1)
;;=7.5^6.071^55.714^307.143^^^^42.857^2.857^^^192.857^353.571^^^^^0^0^.357
;;^UTILITY(U,$J,112,8505,2)
;;=.286^3.571
;;^UTILITY(U,$J,112,8505,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8506,0)
;;=GRAINED PRODUCTS,RICE BRAN,ROMAN MEAL^BC-01779^slice^28
;;^UTILITY(U,$J,112,8506,1)
;;=10^5.357^44.286^250^^^^21.429^3.929^^^^471.429^^^^^^^.607
;;^UTILITY(U,$J,112,8506,2)
;;=.286^5.714^^^^^^^0^^^^^^^^4.643
;;^UTILITY(U,$J,112,8506,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8507,0)
;;=GRAINED PRODUCTS,ROMAN MEAL ROUND TOP^BC-01780^slice^28
;;^UTILITY(U,$J,112,8507,1)
;;=10.357^2.857^47.143^239.286^38.571^^^89.286^3.929^^^^500^^^^^^^.357
;;^UTILITY(U,$J,112,8507,2)
;;=.357^4.643^^^^^^^0^^^^^^^^4.286
;;^UTILITY(U,$J,112,8507,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8508,0)
;;=GRAINED PRODUCTS,RYE,AMERICAN^BC-01781^slice^25
;;^UTILITY(U,$J,112,8508,1)
;;=8.4^3.6^48^264^37.6^^^80^2.72^24^144^204^696^1.28^.104^^^0^0^.4
;;^UTILITY(U,$J,112,8508,2)
;;=.32^3.2^.44^.08^40^0
;;^UTILITY(U,$J,112,8508,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8509,0)
;;=GRAINED PRODUCTS,RYE,DIJON,PEPPERIDGE FARMS^BC-01782^.8-oz.^22
;;^UTILITY(U,$J,112,8509,1)
;;=10.909^3.636^43.636^250^^^^77.273^2.727^^^145.455^818.182^^^^^0^0^2.727
FHINI0DE ; ; 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,8496,0)
+2 ;;=GRAINED PRODUCTS,OATMEAL,PEPPERIDGE FARMS^BC-01769^1.2-oz.^34
+3 ;;^UTILITY(U,$J,112,8496,1)
+4 ;;=8.529^4.118^51.471^276.471^^^^50^2.941^^^105.882^582.353^^^^^0^0^.324
+5 ;;^UTILITY(U,$J,112,8496,2)
+6 ;;=.206^3.529
+7 ;;^UTILITY(U,$J,112,8496,20)
+8 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+9 ;;^UTILITY(U,$J,112,8497,0)
+10 ;;=GRAINED PRODUCTS,OATMEAL W/RAISINS,PEPPERIDGE FARMS^BC-01770^slice^28
+11 ;;^UTILITY(U,$J,112,8497,1)
+12 ;;=9.643^4.643^51.071^285.714^^^^42.857^3.214^^^239.286^332.143^^^^^0^0^.321
+13 ;;^UTILITY(U,$J,112,8497,2)
+14 ;;=.25^3.571
+15 ;;^UTILITY(U,$J,112,8497,20)
+16 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+17 ;;^UTILITY(U,$J,112,8498,0)
+18 ;;=GRAINED PRODUCTS,OAT,ROMAN MEAL^BC-01771^slice^28
+19 ;;^UTILITY(U,$J,112,8498,1)
+20 ;;=9.286^3.571^48.571^253.571^38.571^^^57.143^3.571^^^^503.571^^^^^^^.714
+21 ;;^UTILITY(U,$J,112,8498,2)
+22 ;;=.357^2.857^^^^^^^0^^^^^^^^2.5
+23 ;;^UTILITY(U,$J,112,8498,20)
+24 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+25 ;;^UTILITY(U,$J,112,8499,0)
+26 ;;=GRAINED PRODUCTS,PITA BREAD/POCKETS^BC-01772^pocket^38
+27 ;;^UTILITY(U,$J,112,8499,1)
+28 ;;=10.526^1.579^54.211^278.947^31.316^^^81.579^2.421^26.316^100^118.421^565.789^.789^.179^.489^^0^0^.474
+29 ;;^UTILITY(U,$J,112,8499,2)
+30 ;;=.263^4.211^.421^.026^21.053^^^^^^^^^^^^.789
+31 ;;^UTILITY(U,$J,112,8499,20)
+32 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+33 ;;^UTILITY(U,$J,112,8500,0)
+34 ;;=GRAINED PRODUCTS,PITA BREAD/POCKET,OAT BRAN SAHARA^BC-01773^1/2-pocket^28
+35 ;;^UTILITY(U,$J,112,8500,1)
+36 ;;=8.571^1.071^54.643^235.714^^^^128.571^1.821^^^^582.143^^^^^^^.321
+37 ;;^UTILITY(U,$J,112,8500,2)
+38 ;;=.286^3.571^^^^^^^0^^^^^^^^6.429
+39 ;;^UTILITY(U,$J,112,8500,20)
+40 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+41 ;;^UTILITY(U,$J,112,8501,0)
+42 ;;=GRAINED PRODUCTS,PITA BREAD/POCKET,WHOLE WHEAT,FIVE STAR^BC-01774^2.3-oz.^64
+43 ;;^UTILITY(U,$J,112,8501,1)
+44 ;;=11.406^2.344^53.906^281.25^^^^178.125^2.969^^^307.813^517.188^^^^^0^0^.406
+45 ;;^UTILITY(U,$J,112,8501,2)
+46 ;;=.078^5.156
+47 ;;^UTILITY(U,$J,112,8501,20)
+48 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+49 ;;^UTILITY(U,$J,112,8502,0)
+50 ;;=GRAINED PRODUCTS,PUMPERNICKEL^BC-01775^slice^32
+51 ;;^UTILITY(U,$J,112,8502,1)
+52 ;;=9.063^2.5^48.125^256.25^37.188^^^71.875^2.75^68.75^218.75^434.375^540.625^1.125^^^^0^0^.344
+53 ;;^UTILITY(U,$J,112,8502,2)
+54 ;;=.531^3.438^.469^.156^^0
+55 ;;^UTILITY(U,$J,112,8502,20)
+56 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+57 ;;^UTILITY(U,$J,112,8503,0)
+58 ;;=GRAINED PRODUCTS,PUMPERNICKEL,PARTY SLICES,PEPPERIDGE FARMS^BC-01776^.8-oz.^24
+59 ;;^UTILITY(U,$J,112,8503,1)
+60 ;;=9.583^3.75^50^270.833^^^^75^3.333^^^154.167^683.333^^^^^0^0^.375
+61 ;;^UTILITY(U,$J,112,8503,2)
+62 ;;=.292^3.333
+63 ;;^UTILITY(U,$J,112,8503,20)
+64 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+65 ;;^UTILITY(U,$J,112,8504,0)
+66 ;;=GRAINED PRODUCTS,RAISIN^BC-01777^slice^25
+67 ;;^UTILITY(U,$J,112,8504,1)
+68 ;;=8.4^4^52.8^280^33.2^^^104^3.12^16^88^240^376^.64^.14^.504^^0^0^.32
+69 ;;^UTILITY(U,$J,112,8504,2)
+70 ;;=.64^4^.44^.04^36^0^^^^^^^^^^^2.4
+71 ;;^UTILITY(U,$J,112,8504,20)
+72 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+73 ;;^UTILITY(U,$J,112,8505,0)
+74 ;;=GRAINED PRODUCTS,RAISIN W/CINN,PEPPERIDGE FARMS^BC-01778^slice^28
+75 ;;^UTILITY(U,$J,112,8505,1)
+76 ;;=7.5^6.071^55.714^307.143^^^^42.857^2.857^^^192.857^353.571^^^^^0^0^.357
+77 ;;^UTILITY(U,$J,112,8505,2)
+78 ;;=.286^3.571
+79 ;;^UTILITY(U,$J,112,8505,20)
+80 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+81 ;;^UTILITY(U,$J,112,8506,0)
+82 ;;=GRAINED PRODUCTS,RICE BRAN,ROMAN MEAL^BC-01779^slice^28
+83 ;;^UTILITY(U,$J,112,8506,1)
+84 ;;=10^5.357^44.286^250^^^^21.429^3.929^^^^471.429^^^^^^^.607
+85 ;;^UTILITY(U,$J,112,8506,2)
+86 ;;=.286^5.714^^^^^^^0^^^^^^^^4.643
+87 ;;^UTILITY(U,$J,112,8506,20)
+88 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+89 ;;^UTILITY(U,$J,112,8507,0)
+90 ;;=GRAINED PRODUCTS,ROMAN MEAL ROUND TOP^BC-01780^slice^28
+91 ;;^UTILITY(U,$J,112,8507,1)
+92 ;;=10.357^2.857^47.143^239.286^38.571^^^89.286^3.929^^^^500^^^^^^^.357
+93 ;;^UTILITY(U,$J,112,8507,2)
+94 ;;=.357^4.643^^^^^^^0^^^^^^^^4.286
+95 ;;^UTILITY(U,$J,112,8507,20)
+96 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+97 ;;^UTILITY(U,$J,112,8508,0)
+98 ;;=GRAINED PRODUCTS,RYE,AMERICAN^BC-01781^slice^25
+99 ;;^UTILITY(U,$J,112,8508,1)
+100 ;;=8.4^3.6^48^264^37.6^^^80^2.72^24^144^204^696^1.28^.104^^^0^0^.4
+101 ;;^UTILITY(U,$J,112,8508,2)
+102 ;;=.32^3.2^.44^.08^40^0
+103 ;;^UTILITY(U,$J,112,8508,20)
+104 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+105 ;;^UTILITY(U,$J,112,8509,0)
+106 ;;=GRAINED PRODUCTS,RYE,DIJON,PEPPERIDGE FARMS^BC-01782^.8-oz.^22
+107 ;;^UTILITY(U,$J,112,8509,1)
+108 ;;=10.909^3.636^43.636^250^^^^77.273^2.727^^^145.455^818.182^^^^^0^0^2.727
