FHINI0F1 ; ; 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,9288,0)
;;=HAZELNUTS,ROASTED,SALTED,BLUE DIAMOND^BC-02561^oz.^28
;;^UTILITY(U,$J,112,9288,1)
;;=16.429^63.214^13.929^642.857^2.143^^^182.143^3.893^164.286^282.143^560.714^139.286^2.321^1.25^^^0^3.571^.286
;;^UTILITY(U,$J,112,9288,2)
;;=.214^1.071^.679^.286^250^0
;;^UTILITY(U,$J,112,9288,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9289,0)
;;=HAZELNUTS,WHOLE,BLUE DIAMOND^BC-02562^oz.^28
;;^UTILITY(U,$J,112,9289,1)
;;=17.5^55^17.857^592.857^6.071^^^142.857^4.214^^^596.429^3.571^^^^^0^0^.607
;;^UTILITY(U,$J,112,9289,2)
;;=.214^1.071^^^^^^^0^3.929^^10
;;^UTILITY(U,$J,112,9289,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9290,0)
;;=MACADAMIA NUTS,DRY,ROASTED,BLUE DIAMOND^BC-02563^oz.^28
;;^UTILITY(U,$J,112,9290,1)
;;=8.929^75.357^11.429^714.286^1.429^^^67.857^2.5^110.714^264.286^285.714^428.571^1.429^.714^^^282.143^0^.321
;;^UTILITY(U,$J,112,9290,2)
;;=.107^2.143^.286^.321^0^0^^^0^8.929^58.214^2.143^^^^^6.786
;;^UTILITY(U,$J,112,9290,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9291,0)
;;=MIXED NUTS,DRY ROASTED,FISHER^BC-02564^oz.^28
;;^UTILITY(U,$J,112,9291,1)
;;=21.429^53.571^25^607.143^^^^^^^^^446.429
;;^UTILITY(U,$J,112,9291,2)
;;=^^^^^^^^0^7.143^32.143^14.286
;;^UTILITY(U,$J,112,9291,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9292,0)
;;=MIXED NUTS,OIL ROASTED,FISHER^BC-02565^oz.^28
;;^UTILITY(U,$J,112,9292,1)
;;=21.429^57.143^21.429^607.143^^^^^^^^^392.857
;;^UTILITY(U,$J,112,9292,2)
;;=^^^^^^^^0^7.143^32.143^17.857
;;^UTILITY(U,$J,112,9292,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9293,0)
;;=NUT TOPPINGS,FISHER^BC-02566^oz.^28
;;^UTILITY(U,$J,112,9293,1)
;;=21.429^50^25^571.429^^^^^^^^^410.714
;;^UTILITY(U,$J,112,9293,2)
;;=^^^^^^^^0^7.143^25^17.857
;;^UTILITY(U,$J,112,9293,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9294,0)
;;=PEANUT BUTTER,JIF CREAMY^BC-02567^2-tbsp.^32
;;^UTILITY(U,$J,112,9294,1)
;;=28.125^49.063^18.75^593.75^1.25^^^40.625^1.813^150^309.375^734.375^484.375^2.313^.6^^^^^.063
;;^UTILITY(U,$J,112,9294,2)
;;=.094^11.875^^^^^^^0^9.375^25^15^^^^^5.938
;;^UTILITY(U,$J,112,9294,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9295,0)
;;=PEANUT BUTTER,JIF EXTRA CRUNCHY^BC-02568^2-tbsp.^32
;;^UTILITY(U,$J,112,9295,1)
;;=28.125^50^18.75^593.75^1.25^^^37.5^1.813^^^^406.25^^^^^^^.063
;;^UTILITY(U,$J,112,9295,2)
;;=.094^11.875^^^^^^^0^9.375^25^15.625^^^^^5.938
;;^UTILITY(U,$J,112,9295,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9296,0)
;;=PEANUT BUTTER,PETER PAN CREAMY^BC-02569^2-tbsp.^32
;;^UTILITY(U,$J,112,9296,1)
;;=25^50^12.5^562.5^^^^^3.438^^^718.75^468.75
;;^UTILITY(U,$J,112,9296,2)
;;=^12.5^^^^^^^0^6.25^^15.625^^^^^6.25
;;^UTILITY(U,$J,112,9296,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9297,0)
;;=PEANUT BUTTER,PETER PAN CREAMY,SODIUM FREE^BC-02570^2-tbsp.^32
;;^UTILITY(U,$J,112,9297,1)
;;=28.125^53.125^12.5^562.5^^^^^2.188^^^718.75^0
;;^UTILITY(U,$J,112,9297,2)
;;=^12.5^^^^^^^0^6.25^^15.625^^^^^6.25
;;^UTILITY(U,$J,112,9297,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9298,0)
;;=PEANUT BUTTER,PETER PAN CRUNCHY^BC-02571^2-tbsp.^32
;;^UTILITY(U,$J,112,9298,1)
;;=25^50^12.5^562.5^^^^^2.188^^^718.75^375
;;^UTILITY(U,$J,112,9298,2)
;;=^12.5^^^^^^^0^6.25^^15.625^^^^^6.25
;;^UTILITY(U,$J,112,9298,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9299,0)
;;=PEANUT BUTTER,PETER PAN CRUNCHY,SODIUM FREE^BC-02572^2-tbsp.^32
;;^UTILITY(U,$J,112,9299,1)
;;=28.125^53.125^12.5^562.5^^^^^2.188^^^718.75^0
;;^UTILITY(U,$J,112,9299,2)
;;=^12.5^^^^^^^0^6.25^^15.625^^^^^6.25
;;^UTILITY(U,$J,112,9299,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9300,0)
;;=PEANUT BUTTER,SKIPPY CREAMY^BC-02573^2-tbsp.^32
;;^UTILITY(U,$J,112,9300,1)
;;=29.375^51.563^14.375^593.75^1.563^^^31.25^1.875^187.5^375^656.25^468.75^3.125^^^^^^.063
;;^UTILITY(U,$J,112,9300,2)
;;=.063^11.875^1.25^^^^^^0^10.313^25.625^15.313^^^^^1.875
;;^UTILITY(U,$J,112,9300,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9301,0)
;;=PEANUT BUTTER,SKIPPY SUPER CHUNK^BC-02574^2-tbsp.^32
;;^UTILITY(U,$J,112,9301,1)
;;=29.063^52.813^13.75^593.75^1.25^^^31.25^1.875^156.25^375^625^406.25^3.125^^^^^^.063
;;^UTILITY(U,$J,112,9301,2)
;;=.063^11.875^1.25^^^^^^0^10.313^26.563^15.625^^^^^1.875
FHINI0F1 ; ; 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,9288,0)
+2 ;;=HAZELNUTS,ROASTED,SALTED,BLUE DIAMOND^BC-02561^oz.^28
+3 ;;^UTILITY(U,$J,112,9288,1)
+4 ;;=16.429^63.214^13.929^642.857^2.143^^^182.143^3.893^164.286^282.143^560.714^139.286^2.321^1.25^^^0^3.571^.286
+5 ;;^UTILITY(U,$J,112,9288,2)
+6 ;;=.214^1.071^.679^.286^250^0
+7 ;;^UTILITY(U,$J,112,9288,20)
+8 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+9 ;;^UTILITY(U,$J,112,9289,0)
+10 ;;=HAZELNUTS,WHOLE,BLUE DIAMOND^BC-02562^oz.^28
+11 ;;^UTILITY(U,$J,112,9289,1)
+12 ;;=17.5^55^17.857^592.857^6.071^^^142.857^4.214^^^596.429^3.571^^^^^0^0^.607
+13 ;;^UTILITY(U,$J,112,9289,2)
+14 ;;=.214^1.071^^^^^^^0^3.929^^10
+15 ;;^UTILITY(U,$J,112,9289,20)
+16 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+17 ;;^UTILITY(U,$J,112,9290,0)
+18 ;;=MACADAMIA NUTS,DRY,ROASTED,BLUE DIAMOND^BC-02563^oz.^28
+19 ;;^UTILITY(U,$J,112,9290,1)
+20 ;;=8.929^75.357^11.429^714.286^1.429^^^67.857^2.5^110.714^264.286^285.714^428.571^1.429^.714^^^282.143^0^.321
+21 ;;^UTILITY(U,$J,112,9290,2)
+22 ;;=.107^2.143^.286^.321^0^0^^^0^8.929^58.214^2.143^^^^^6.786
+23 ;;^UTILITY(U,$J,112,9290,20)
+24 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+25 ;;^UTILITY(U,$J,112,9291,0)
+26 ;;=MIXED NUTS,DRY ROASTED,FISHER^BC-02564^oz.^28
+27 ;;^UTILITY(U,$J,112,9291,1)
+28 ;;=21.429^53.571^25^607.143^^^^^^^^^446.429
+29 ;;^UTILITY(U,$J,112,9291,2)
+30 ;;=^^^^^^^^0^7.143^32.143^14.286
+31 ;;^UTILITY(U,$J,112,9291,20)
+32 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+33 ;;^UTILITY(U,$J,112,9292,0)
+34 ;;=MIXED NUTS,OIL ROASTED,FISHER^BC-02565^oz.^28
+35 ;;^UTILITY(U,$J,112,9292,1)
+36 ;;=21.429^57.143^21.429^607.143^^^^^^^^^392.857
+37 ;;^UTILITY(U,$J,112,9292,2)
+38 ;;=^^^^^^^^0^7.143^32.143^17.857
+39 ;;^UTILITY(U,$J,112,9292,20)
+40 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+41 ;;^UTILITY(U,$J,112,9293,0)
+42 ;;=NUT TOPPINGS,FISHER^BC-02566^oz.^28
+43 ;;^UTILITY(U,$J,112,9293,1)
+44 ;;=21.429^50^25^571.429^^^^^^^^^410.714
+45 ;;^UTILITY(U,$J,112,9293,2)
+46 ;;=^^^^^^^^0^7.143^25^17.857
+47 ;;^UTILITY(U,$J,112,9293,20)
+48 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+49 ;;^UTILITY(U,$J,112,9294,0)
+50 ;;=PEANUT BUTTER,JIF CREAMY^BC-02567^2-tbsp.^32
+51 ;;^UTILITY(U,$J,112,9294,1)
+52 ;;=28.125^49.063^18.75^593.75^1.25^^^40.625^1.813^150^309.375^734.375^484.375^2.313^.6^^^^^.063
+53 ;;^UTILITY(U,$J,112,9294,2)
+54 ;;=.094^11.875^^^^^^^0^9.375^25^15^^^^^5.938
+55 ;;^UTILITY(U,$J,112,9294,20)
+56 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+57 ;;^UTILITY(U,$J,112,9295,0)
+58 ;;=PEANUT BUTTER,JIF EXTRA CRUNCHY^BC-02568^2-tbsp.^32
+59 ;;^UTILITY(U,$J,112,9295,1)
+60 ;;=28.125^50^18.75^593.75^1.25^^^37.5^1.813^^^^406.25^^^^^^^.063
+61 ;;^UTILITY(U,$J,112,9295,2)
+62 ;;=.094^11.875^^^^^^^0^9.375^25^15.625^^^^^5.938
+63 ;;^UTILITY(U,$J,112,9295,20)
+64 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+65 ;;^UTILITY(U,$J,112,9296,0)
+66 ;;=PEANUT BUTTER,PETER PAN CREAMY^BC-02569^2-tbsp.^32
+67 ;;^UTILITY(U,$J,112,9296,1)
+68 ;;=25^50^12.5^562.5^^^^^3.438^^^718.75^468.75
+69 ;;^UTILITY(U,$J,112,9296,2)
+70 ;;=^12.5^^^^^^^0^6.25^^15.625^^^^^6.25
+71 ;;^UTILITY(U,$J,112,9296,20)
+72 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+73 ;;^UTILITY(U,$J,112,9297,0)
+74 ;;=PEANUT BUTTER,PETER PAN CREAMY,SODIUM FREE^BC-02570^2-tbsp.^32
+75 ;;^UTILITY(U,$J,112,9297,1)
+76 ;;=28.125^53.125^12.5^562.5^^^^^2.188^^^718.75^0
+77 ;;^UTILITY(U,$J,112,9297,2)
+78 ;;=^12.5^^^^^^^0^6.25^^15.625^^^^^6.25
+79 ;;^UTILITY(U,$J,112,9297,20)
+80 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+81 ;;^UTILITY(U,$J,112,9298,0)
+82 ;;=PEANUT BUTTER,PETER PAN CRUNCHY^BC-02571^2-tbsp.^32
+83 ;;^UTILITY(U,$J,112,9298,1)
+84 ;;=25^50^12.5^562.5^^^^^2.188^^^718.75^375
+85 ;;^UTILITY(U,$J,112,9298,2)
+86 ;;=^12.5^^^^^^^0^6.25^^15.625^^^^^6.25
+87 ;;^UTILITY(U,$J,112,9298,20)
+88 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+89 ;;^UTILITY(U,$J,112,9299,0)
+90 ;;=PEANUT BUTTER,PETER PAN CRUNCHY,SODIUM FREE^BC-02572^2-tbsp.^32
+91 ;;^UTILITY(U,$J,112,9299,1)
+92 ;;=28.125^53.125^12.5^562.5^^^^^2.188^^^718.75^0
+93 ;;^UTILITY(U,$J,112,9299,2)
+94 ;;=^12.5^^^^^^^0^6.25^^15.625^^^^^6.25
+95 ;;^UTILITY(U,$J,112,9299,20)
+96 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+97 ;;^UTILITY(U,$J,112,9300,0)
+98 ;;=PEANUT BUTTER,SKIPPY CREAMY^BC-02573^2-tbsp.^32
+99 ;;^UTILITY(U,$J,112,9300,1)
+100 ;;=29.375^51.563^14.375^593.75^1.563^^^31.25^1.875^187.5^375^656.25^468.75^3.125^^^^^^.063
+101 ;;^UTILITY(U,$J,112,9300,2)
+102 ;;=.063^11.875^1.25^^^^^^0^10.313^25.625^15.313^^^^^1.875
+103 ;;^UTILITY(U,$J,112,9300,20)
+104 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+105 ;;^UTILITY(U,$J,112,9301,0)
+106 ;;=PEANUT BUTTER,SKIPPY SUPER CHUNK^BC-02574^2-tbsp.^32
+107 ;;^UTILITY(U,$J,112,9301,1)
+108 ;;=29.063^52.813^13.75^593.75^1.25^^^31.25^1.875^156.25^375^625^406.25^3.125^^^^^^.063
+109 ;;^UTILITY(U,$J,112,9301,2)
+110 ;;=.063^11.875^1.25^^^^^^0^10.313^26.563^15.625^^^^^1.875
