FHINI0F2 ; ; 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,9301,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9302,0)
;;=PEANUTS & CASHEWS,HONEY ROASTED,FISHER^BC-02575^oz.^28
;;^UTILITY(U,$J,112,9302,1)
;;=17.857^46.429^21.429^535.714^^^^^^^^^375
;;^UTILITY(U,$J,112,9302,2)
;;=^^^^^^^^0^7.143^25^14.286
;;^UTILITY(U,$J,112,9302,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9303,0)
;;=PEANUTS,CINN ROASTED,EAGLE SNACKS^BC-02576^oz.^28
;;^UTILITY(U,$J,112,9303,1)
;;=25^46.786^24.286^607.143^1.786^^^32.143^^^^614.286^321.429^^^^^^0^.107
;;^UTILITY(U,$J,112,9303,2)
;;=.143^10.714^^^^^^^0^^^^^^^^57.143
;;^UTILITY(U,$J,112,9303,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9304,0)
;;=PEANUTS,DRY/HONEY ROASTED,FISHER^BC-02577^oz.^28
;;^UTILITY(U,$J,112,9304,1)
;;=25^46.429^14.286^535.714^^^^^^^^^392.857
;;^UTILITY(U,$J,112,9304,2)
;;=^^^^^^^^0^7.143^25^14.286
;;^UTILITY(U,$J,112,9304,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9305,0)
;;=PEANUTS,DRY ROASTED,FISHER^BC-02578^oz.^28
;;^UTILITY(U,$J,112,9305,1)
;;=25^50^21.429^571.429^^^^^^^^^750
;;^UTILITY(U,$J,112,9305,2)
;;=^^^^^^^^0^7.143^28.571^14.286
;;^UTILITY(U,$J,112,9305,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9306,0)
;;=PEANUTS,HONEY ROAST,EAGLE SNACKS^BC-02579^oz.^28
;;^UTILITY(U,$J,112,9306,1)
;;=23.571^47.143^22.5^607.143^1.429^^^35.714^1.429^^^657.143^464.286^^^^^21.429^0^.107
;;^UTILITY(U,$J,112,9306,2)
;;=.071^11.071^^^^^^^0^^^14.643^^^^^8.571
;;^UTILITY(U,$J,112,9306,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9307,0)
;;=PEANUTS,HONEY ROASTED,FISHER^BC-02580^oz.^28
;;^UTILITY(U,$J,112,9307,1)
;;=21.429^46.429^17.857^535.714^^^^^^^^^410.714
;;^UTILITY(U,$J,112,9307,2)
;;=^^^^^^^^0^7.143^25^14.286
;;^UTILITY(U,$J,112,9307,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9308,0)
;;=PEANUTS,HONEY ROASTED,LITTLE DEBBIE^BC-02581^1.1-oz.^32
;;^UTILITY(U,$J,112,9308,1)
;;=25.625^45.625^25.625^615.625^1.25^^^28.125^1.313^^^^71.875^^^^^0^0^.125
;;^UTILITY(U,$J,112,9308,2)
;;=.125^10^^^^^^^3.125^8.125^23.438^14.063
;;^UTILITY(U,$J,112,9308,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9309,0)
;;=PEANUTS,LIGHTLY SALTED,EAGLE SNACKS^BC-02582^oz.^28
;;^UTILITY(U,$J,112,9309,1)
;;=29.643^52.5^14.643^607.143^1.429^^^57.143^1.536^^^689.286^321.429^^^^^^0^.107
;;^UTILITY(U,$J,112,9309,2)
;;=.143^16.429^^^^^^^0^^^^^^^^7.857
;;^UTILITY(U,$J,112,9309,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9310,0)
;;=PEANUTS,OIL ROASTED,FISHER^BC-02583^oz.^28
;;^UTILITY(U,$J,112,9310,1)
;;=25^50^21.429^571.429^^^^^^^^^464.286
;;^UTILITY(U,$J,112,9310,2)
;;=^^^^^^^^0^7.143^25^17.857
;;^UTILITY(U,$J,112,9310,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9311,0)
;;=PEANUTS,ROASTED IN SHELL,FISHER^BC-02584^oz.^28
;;^UTILITY(U,$J,112,9311,1)
;;=25^50^17.857^571.429^^^^^^^^^589.286
;;^UTILITY(U,$J,112,9311,2)
;;=^^^^^^^^0^7.143^28.571^14.286
;;^UTILITY(U,$J,112,9311,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9312,0)
;;=PEANUTS,SALTED,LANCE^BC-02585^1.1-oz.^32
;;^UTILITY(U,$J,112,9312,1)
;;=27.5^47.188^20.313^603.125^1.25^^^84.375^1.969^^^109.375^290.625^^^^^^^.063
;;^UTILITY(U,$J,112,9312,2)
;;=.156^3.438^^^^^^^0^8.75^24.688^13.75
;;^UTILITY(U,$J,112,9312,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9313,0)
;;=PEANUTS,UNSALTED,LANCE^BC-02586^1.1-oz.^32
;;^UTILITY(U,$J,112,9313,1)
;;=27.5^47.188^20.313^603.125^1.875^^^84.375^1.969^^^103.125^^^^^^^^.063
;;^UTILITY(U,$J,112,9313,2)
;;=.156^3.438^^^^^^^0^9.375^21.875^15.938
;;^UTILITY(U,$J,112,9313,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9314,0)
;;=PEANUTS,SPANISH,RAW,FISHER^BC-02587^oz.^28
;;^UTILITY(U,$J,112,9314,1)
;;=25^50^17.857^571.429
;;^UTILITY(U,$J,112,9314,2)
;;=^^^^^^^^0^7.143^28.571^14.286
;;^UTILITY(U,$J,112,9314,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9315,0)
;;=PECANS,RAW,FISHER^BC-02588^oz.^28
;;^UTILITY(U,$J,112,9315,1)
;;=7.143^67.857^17.857^678.571^^^^^^^^^0
;;^UTILITY(U,$J,112,9315,2)
;;=^^^^^^^^0^7.143^42.857^17.857
;;^UTILITY(U,$J,112,9315,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9316,0)
;;=PISTACHIOS,DRY ROASTED,BLUE DIAMOND^BC-02589^oz.^28
FHINI0F2 ; ; 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,9301,20)
+2 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+3 ;;^UTILITY(U,$J,112,9302,0)
+4 ;;=PEANUTS & CASHEWS,HONEY ROASTED,FISHER^BC-02575^oz.^28
+5 ;;^UTILITY(U,$J,112,9302,1)
+6 ;;=17.857^46.429^21.429^535.714^^^^^^^^^375
+7 ;;^UTILITY(U,$J,112,9302,2)
+8 ;;=^^^^^^^^0^7.143^25^14.286
+9 ;;^UTILITY(U,$J,112,9302,20)
+10 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+11 ;;^UTILITY(U,$J,112,9303,0)
+12 ;;=PEANUTS,CINN ROASTED,EAGLE SNACKS^BC-02576^oz.^28
+13 ;;^UTILITY(U,$J,112,9303,1)
+14 ;;=25^46.786^24.286^607.143^1.786^^^32.143^^^^614.286^321.429^^^^^^0^.107
+15 ;;^UTILITY(U,$J,112,9303,2)
+16 ;;=.143^10.714^^^^^^^0^^^^^^^^57.143
+17 ;;^UTILITY(U,$J,112,9303,20)
+18 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+19 ;;^UTILITY(U,$J,112,9304,0)
+20 ;;=PEANUTS,DRY/HONEY ROASTED,FISHER^BC-02577^oz.^28
+21 ;;^UTILITY(U,$J,112,9304,1)
+22 ;;=25^46.429^14.286^535.714^^^^^^^^^392.857
+23 ;;^UTILITY(U,$J,112,9304,2)
+24 ;;=^^^^^^^^0^7.143^25^14.286
+25 ;;^UTILITY(U,$J,112,9304,20)
+26 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+27 ;;^UTILITY(U,$J,112,9305,0)
+28 ;;=PEANUTS,DRY ROASTED,FISHER^BC-02578^oz.^28
+29 ;;^UTILITY(U,$J,112,9305,1)
+30 ;;=25^50^21.429^571.429^^^^^^^^^750
+31 ;;^UTILITY(U,$J,112,9305,2)
+32 ;;=^^^^^^^^0^7.143^28.571^14.286
+33 ;;^UTILITY(U,$J,112,9305,20)
+34 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+35 ;;^UTILITY(U,$J,112,9306,0)
+36 ;;=PEANUTS,HONEY ROAST,EAGLE SNACKS^BC-02579^oz.^28
+37 ;;^UTILITY(U,$J,112,9306,1)
+38 ;;=23.571^47.143^22.5^607.143^1.429^^^35.714^1.429^^^657.143^464.286^^^^^21.429^0^.107
+39 ;;^UTILITY(U,$J,112,9306,2)
+40 ;;=.071^11.071^^^^^^^0^^^14.643^^^^^8.571
+41 ;;^UTILITY(U,$J,112,9306,20)
+42 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+43 ;;^UTILITY(U,$J,112,9307,0)
+44 ;;=PEANUTS,HONEY ROASTED,FISHER^BC-02580^oz.^28
+45 ;;^UTILITY(U,$J,112,9307,1)
+46 ;;=21.429^46.429^17.857^535.714^^^^^^^^^410.714
+47 ;;^UTILITY(U,$J,112,9307,2)
+48 ;;=^^^^^^^^0^7.143^25^14.286
+49 ;;^UTILITY(U,$J,112,9307,20)
+50 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+51 ;;^UTILITY(U,$J,112,9308,0)
+52 ;;=PEANUTS,HONEY ROASTED,LITTLE DEBBIE^BC-02581^1.1-oz.^32
+53 ;;^UTILITY(U,$J,112,9308,1)
+54 ;;=25.625^45.625^25.625^615.625^1.25^^^28.125^1.313^^^^71.875^^^^^0^0^.125
+55 ;;^UTILITY(U,$J,112,9308,2)
+56 ;;=.125^10^^^^^^^3.125^8.125^23.438^14.063
+57 ;;^UTILITY(U,$J,112,9308,20)
+58 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+59 ;;^UTILITY(U,$J,112,9309,0)
+60 ;;=PEANUTS,LIGHTLY SALTED,EAGLE SNACKS^BC-02582^oz.^28
+61 ;;^UTILITY(U,$J,112,9309,1)
+62 ;;=29.643^52.5^14.643^607.143^1.429^^^57.143^1.536^^^689.286^321.429^^^^^^0^.107
+63 ;;^UTILITY(U,$J,112,9309,2)
+64 ;;=.143^16.429^^^^^^^0^^^^^^^^7.857
+65 ;;^UTILITY(U,$J,112,9309,20)
+66 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+67 ;;^UTILITY(U,$J,112,9310,0)
+68 ;;=PEANUTS,OIL ROASTED,FISHER^BC-02583^oz.^28
+69 ;;^UTILITY(U,$J,112,9310,1)
+70 ;;=25^50^21.429^571.429^^^^^^^^^464.286
+71 ;;^UTILITY(U,$J,112,9310,2)
+72 ;;=^^^^^^^^0^7.143^25^17.857
+73 ;;^UTILITY(U,$J,112,9310,20)
+74 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+75 ;;^UTILITY(U,$J,112,9311,0)
+76 ;;=PEANUTS,ROASTED IN SHELL,FISHER^BC-02584^oz.^28
+77 ;;^UTILITY(U,$J,112,9311,1)
+78 ;;=25^50^17.857^571.429^^^^^^^^^589.286
+79 ;;^UTILITY(U,$J,112,9311,2)
+80 ;;=^^^^^^^^0^7.143^28.571^14.286
+81 ;;^UTILITY(U,$J,112,9311,20)
+82 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+83 ;;^UTILITY(U,$J,112,9312,0)
+84 ;;=PEANUTS,SALTED,LANCE^BC-02585^1.1-oz.^32
+85 ;;^UTILITY(U,$J,112,9312,1)
+86 ;;=27.5^47.188^20.313^603.125^1.25^^^84.375^1.969^^^109.375^290.625^^^^^^^.063
+87 ;;^UTILITY(U,$J,112,9312,2)
+88 ;;=.156^3.438^^^^^^^0^8.75^24.688^13.75
+89 ;;^UTILITY(U,$J,112,9312,20)
+90 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+91 ;;^UTILITY(U,$J,112,9313,0)
+92 ;;=PEANUTS,UNSALTED,LANCE^BC-02586^1.1-oz.^32
+93 ;;^UTILITY(U,$J,112,9313,1)
+94 ;;=27.5^47.188^20.313^603.125^1.875^^^84.375^1.969^^^103.125^^^^^^^^.063
+95 ;;^UTILITY(U,$J,112,9313,2)
+96 ;;=.156^3.438^^^^^^^0^9.375^21.875^15.938
+97 ;;^UTILITY(U,$J,112,9313,20)
+98 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+99 ;;^UTILITY(U,$J,112,9314,0)
+100 ;;=PEANUTS,SPANISH,RAW,FISHER^BC-02587^oz.^28
+101 ;;^UTILITY(U,$J,112,9314,1)
+102 ;;=25^50^17.857^571.429
+103 ;;^UTILITY(U,$J,112,9314,2)
+104 ;;=^^^^^^^^0^7.143^28.571^14.286
+105 ;;^UTILITY(U,$J,112,9314,20)
+106 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+107 ;;^UTILITY(U,$J,112,9315,0)
+108 ;;=PECANS,RAW,FISHER^BC-02588^oz.^28
+109 ;;^UTILITY(U,$J,112,9315,1)
+110 ;;=7.143^67.857^17.857^678.571^^^^^^^^^0
+111 ;;^UTILITY(U,$J,112,9315,2)
+112 ;;=^^^^^^^^0^7.143^42.857^17.857
+113 ;;^UTILITY(U,$J,112,9315,20)
+114 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+115 ;;^UTILITY(U,$J,112,9316,0)
+116 ;;=PISTACHIOS,DRY ROASTED,BLUE DIAMOND^BC-02589^oz.^28
