FHINI0F0 ; ; 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,9274,2)
;;=.714^3.214^^.107^35.714^^^^0^3.929^31.786^10.714^^^^^10.357
;;^UTILITY(U,$J,112,9274,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9275,0)
;;=ALMONDS,SMOKEHOUSE,BLUE DIAMOND^BC-02548^oz.^28
;;^UTILITY(U,$J,112,9275,1)
;;=21.429^56.071^16.071^614.286^1.786^^^360.714^3.964^267.857^492.857^553.571^603.571^2.714^1.429^^^^^.107
;;^UTILITY(U,$J,112,9275,2)
;;=1.214^3.571^^^^^^^0^4.286^35.714^9.643^^^^^10
;;^UTILITY(U,$J,112,9275,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9276,0)
;;=ALMONDS,WHOLE,BLANCHED,BLUE DIAMOND^BC-02549^oz.^28
;;^UTILITY(U,$J,112,9276,1)
;;=21.429^51.071^18.571^621.429^5^^^260.714^3.929^307.143^535.714^617.857^0^3.214^1.071^^^^^.143
;;^UTILITY(U,$J,112,9276,2)
;;=.714^3.214^^^^^^^0^3.571^33.214^11.071^^^^^9.286
;;^UTILITY(U,$J,112,9276,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9277,0)
;;=ALMONDS,WHOLE,NATURAL,BLUE DIAMOND^BC-02550^oz.^28
;;^UTILITY(U,$J,112,9277,1)
;;=21.071^50.714^20.357^607.143^4.643^^^282.143^4.643^307.143^532.143^639.286^0^3.286^1.071^2.536^^0^0^.179
;;^UTILITY(U,$J,112,9277,2)
;;=.893^3.214^0^.107^35.714^0^^^0^3.571^38.214^11.786^^^^^12.5
;;^UTILITY(U,$J,112,9277,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9278,0)
;;=CASHEWS & ALMONDS,FISHER^BC-02551^oz.^28
;;^UTILITY(U,$J,112,9278,1)
;;=17.857^53.571^21.429^607.143^^^^^^^^^339.286
;;^UTILITY(U,$J,112,9278,2)
;;=^^^^^^^^0^7.143^32.143^14.286
;;^UTILITY(U,$J,112,9278,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9279,0)
;;=CASHEWS,DRY ROASTED,FISHER^BC-02552^oz.^28
;;^UTILITY(U,$J,112,9279,1)
;;=17.857^46.429^28.571^571.429^^^^^^^^^357.143
;;^UTILITY(U,$J,112,9279,2)
;;=^^^^^^^^0^10.714^28.571^7.143
;;^UTILITY(U,$J,112,9279,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9280,0)
;;=CASHEWS,HONEY ROAST,EAGLE SNACKS^BC-02553^oz.^28
;;^UTILITY(U,$J,112,9280,1)
;;=18.929^45.357^31.071^607.143^.714^^^35.714^4.786^^^564.286^464.286^^^^^^0^.393
;;^UTILITY(U,$J,112,9280,2)
;;=17.857^1.071^^^^^^^0
;;^UTILITY(U,$J,112,9280,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9281,0)
;;=CASHEWS,HONEY ROASTED,FISHER^BC-02554^oz.^28
;;^UTILITY(U,$J,112,9281,1)
;;=14.286^46.429^25^535.714^^^^^^^^^321.429
;;^UTILITY(U,$J,112,9281,2)
;;=^^^^^^^^0^10.714^25^10.714
;;^UTILITY(U,$J,112,9281,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9282,0)
;;=CASHEWS,LIGHTLY SALTED,EAGLE SNACKS^BC-02555^oz.^28
;;^UTILITY(U,$J,112,9282,1)
;;=20.714^52.5^24.286^607.143^.714^^^35.714^^^^575^392.857^^^^^^0^.429
;;^UTILITY(U,$J,112,9282,2)
;;=.214^1.429^^^^^^^0^^^10.714^^^^^1.071
;;^UTILITY(U,$J,112,9282,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9283,0)
;;=CASHEWS,OIL ROASTED,FISHER^BC-02556^oz.^28
;;^UTILITY(U,$J,112,9283,1)
;;=17.857^50^28.571^607.143^^^^^^^^^392.857
;;^UTILITY(U,$J,112,9283,2)
;;=^^^^^^^^0^14.286^28.571^7.143
;;^UTILITY(U,$J,112,9283,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9284,0)
;;=COCONUT,DRIED,SWEETENED,FLAKED,PKG,ANGEL FLAKE^BC-02557^1/3-cup^25
;;^UTILITY(U,$J,112,9284,1)
;;=3.2^32.4^41.6^460^18^^^12^1.56^40^96^248^292^.96^.372^^^0^0^.04
;;^UTILITY(U,$J,112,9284,2)
;;=.04^.4^.4^.16^4^0^^^0^28.8^^.4^^^^^14.8
;;^UTILITY(U,$J,112,9284,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9285,0)
;;=COCONUT,DRIED,SWEETENED,FLAKED,TOASTED,ANGEL FLAKE^BC-02558^1/3-cup^36
;;^UTILITY(U,$J,112,9285,1)
;;=5.556^47.222^47.222^588.889^^^^16.667^2.222^58.333^136.111^358.333^230.556^^.528^^^^^.056
;;^UTILITY(U,$J,112,9285,2)
;;=.083^.556^.556^.222^5.556
;;^UTILITY(U,$J,112,9285,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9286,0)
;;=COCONUT,DRIED,SWEETENED,SHREDDED,BAKERS^BC-02559^1/3-cup^28
;;^UTILITY(U,$J,112,9286,1)
;;=3.214^33.214^43.214^482.143^16.071^^^10.714^1.607^42.857^100^260.714^300^.964^.382^^^0^0^.036
;;^UTILITY(U,$J,112,9286,2)
;;=.036^.357^.393^.143^3.571^0^^^0^29.643^^.357
;;^UTILITY(U,$J,112,9286,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9287,0)
;;=HAZELNUTS,CHOPPED/SLICED,BLUE DIAMOND^BC-02560^oz.^28
;;^UTILITY(U,$J,112,9287,1)
;;=19.643^51.429^18.214^575^5.714^^^135.714^4.179^^^753.571^0^^^^^0^3.571^.786
;;^UTILITY(U,$J,112,9287,2)
;;=.25^1.786
;;^UTILITY(U,$J,112,9287,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
FHINI0F0 ; ; 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,9274,2)
+2 ;;=.714^3.214^^.107^35.714^^^^0^3.929^31.786^10.714^^^^^10.357
+3 ;;^UTILITY(U,$J,112,9274,20)
+4 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+5 ;;^UTILITY(U,$J,112,9275,0)
+6 ;;=ALMONDS,SMOKEHOUSE,BLUE DIAMOND^BC-02548^oz.^28
+7 ;;^UTILITY(U,$J,112,9275,1)
+8 ;;=21.429^56.071^16.071^614.286^1.786^^^360.714^3.964^267.857^492.857^553.571^603.571^2.714^1.429^^^^^.107
+9 ;;^UTILITY(U,$J,112,9275,2)
+10 ;;=1.214^3.571^^^^^^^0^4.286^35.714^9.643^^^^^10
+11 ;;^UTILITY(U,$J,112,9275,20)
+12 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+13 ;;^UTILITY(U,$J,112,9276,0)
+14 ;;=ALMONDS,WHOLE,BLANCHED,BLUE DIAMOND^BC-02549^oz.^28
+15 ;;^UTILITY(U,$J,112,9276,1)
+16 ;;=21.429^51.071^18.571^621.429^5^^^260.714^3.929^307.143^535.714^617.857^0^3.214^1.071^^^^^.143
+17 ;;^UTILITY(U,$J,112,9276,2)
+18 ;;=.714^3.214^^^^^^^0^3.571^33.214^11.071^^^^^9.286
+19 ;;^UTILITY(U,$J,112,9276,20)
+20 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+21 ;;^UTILITY(U,$J,112,9277,0)
+22 ;;=ALMONDS,WHOLE,NATURAL,BLUE DIAMOND^BC-02550^oz.^28
+23 ;;^UTILITY(U,$J,112,9277,1)
+24 ;;=21.071^50.714^20.357^607.143^4.643^^^282.143^4.643^307.143^532.143^639.286^0^3.286^1.071^2.536^^0^0^.179
+25 ;;^UTILITY(U,$J,112,9277,2)
+26 ;;=.893^3.214^0^.107^35.714^0^^^0^3.571^38.214^11.786^^^^^12.5
+27 ;;^UTILITY(U,$J,112,9277,20)
+28 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+29 ;;^UTILITY(U,$J,112,9278,0)
+30 ;;=CASHEWS & ALMONDS,FISHER^BC-02551^oz.^28
+31 ;;^UTILITY(U,$J,112,9278,1)
+32 ;;=17.857^53.571^21.429^607.143^^^^^^^^^339.286
+33 ;;^UTILITY(U,$J,112,9278,2)
+34 ;;=^^^^^^^^0^7.143^32.143^14.286
+35 ;;^UTILITY(U,$J,112,9278,20)
+36 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+37 ;;^UTILITY(U,$J,112,9279,0)
+38 ;;=CASHEWS,DRY ROASTED,FISHER^BC-02552^oz.^28
+39 ;;^UTILITY(U,$J,112,9279,1)
+40 ;;=17.857^46.429^28.571^571.429^^^^^^^^^357.143
+41 ;;^UTILITY(U,$J,112,9279,2)
+42 ;;=^^^^^^^^0^10.714^28.571^7.143
+43 ;;^UTILITY(U,$J,112,9279,20)
+44 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+45 ;;^UTILITY(U,$J,112,9280,0)
+46 ;;=CASHEWS,HONEY ROAST,EAGLE SNACKS^BC-02553^oz.^28
+47 ;;^UTILITY(U,$J,112,9280,1)
+48 ;;=18.929^45.357^31.071^607.143^.714^^^35.714^4.786^^^564.286^464.286^^^^^^0^.393
+49 ;;^UTILITY(U,$J,112,9280,2)
+50 ;;=17.857^1.071^^^^^^^0
+51 ;;^UTILITY(U,$J,112,9280,20)
+52 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+53 ;;^UTILITY(U,$J,112,9281,0)
+54 ;;=CASHEWS,HONEY ROASTED,FISHER^BC-02554^oz.^28
+55 ;;^UTILITY(U,$J,112,9281,1)
+56 ;;=14.286^46.429^25^535.714^^^^^^^^^321.429
+57 ;;^UTILITY(U,$J,112,9281,2)
+58 ;;=^^^^^^^^0^10.714^25^10.714
+59 ;;^UTILITY(U,$J,112,9281,20)
+60 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+61 ;;^UTILITY(U,$J,112,9282,0)
+62 ;;=CASHEWS,LIGHTLY SALTED,EAGLE SNACKS^BC-02555^oz.^28
+63 ;;^UTILITY(U,$J,112,9282,1)
+64 ;;=20.714^52.5^24.286^607.143^.714^^^35.714^^^^575^392.857^^^^^^0^.429
+65 ;;^UTILITY(U,$J,112,9282,2)
+66 ;;=.214^1.429^^^^^^^0^^^10.714^^^^^1.071
+67 ;;^UTILITY(U,$J,112,9282,20)
+68 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+69 ;;^UTILITY(U,$J,112,9283,0)
+70 ;;=CASHEWS,OIL ROASTED,FISHER^BC-02556^oz.^28
+71 ;;^UTILITY(U,$J,112,9283,1)
+72 ;;=17.857^50^28.571^607.143^^^^^^^^^392.857
+73 ;;^UTILITY(U,$J,112,9283,2)
+74 ;;=^^^^^^^^0^14.286^28.571^7.143
+75 ;;^UTILITY(U,$J,112,9283,20)
+76 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+77 ;;^UTILITY(U,$J,112,9284,0)
+78 ;;=COCONUT,DRIED,SWEETENED,FLAKED,PKG,ANGEL FLAKE^BC-02557^1/3-cup^25
+79 ;;^UTILITY(U,$J,112,9284,1)
+80 ;;=3.2^32.4^41.6^460^18^^^12^1.56^40^96^248^292^.96^.372^^^0^0^.04
+81 ;;^UTILITY(U,$J,112,9284,2)
+82 ;;=.04^.4^.4^.16^4^0^^^0^28.8^^.4^^^^^14.8
+83 ;;^UTILITY(U,$J,112,9284,20)
+84 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+85 ;;^UTILITY(U,$J,112,9285,0)
+86 ;;=COCONUT,DRIED,SWEETENED,FLAKED,TOASTED,ANGEL FLAKE^BC-02558^1/3-cup^36
+87 ;;^UTILITY(U,$J,112,9285,1)
+88 ;;=5.556^47.222^47.222^588.889^^^^16.667^2.222^58.333^136.111^358.333^230.556^^.528^^^^^.056
+89 ;;^UTILITY(U,$J,112,9285,2)
+90 ;;=.083^.556^.556^.222^5.556
+91 ;;^UTILITY(U,$J,112,9285,20)
+92 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+93 ;;^UTILITY(U,$J,112,9286,0)
+94 ;;=COCONUT,DRIED,SWEETENED,SHREDDED,BAKERS^BC-02559^1/3-cup^28
+95 ;;^UTILITY(U,$J,112,9286,1)
+96 ;;=3.214^33.214^43.214^482.143^16.071^^^10.714^1.607^42.857^100^260.714^300^.964^.382^^^0^0^.036
+97 ;;^UTILITY(U,$J,112,9286,2)
+98 ;;=.036^.357^.393^.143^3.571^0^^^0^29.643^^.357
+99 ;;^UTILITY(U,$J,112,9286,20)
+100 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+101 ;;^UTILITY(U,$J,112,9287,0)
+102 ;;=HAZELNUTS,CHOPPED/SLICED,BLUE DIAMOND^BC-02560^oz.^28
+103 ;;^UTILITY(U,$J,112,9287,1)
+104 ;;=19.643^51.429^18.214^575^5.714^^^135.714^4.179^^^753.571^0^^^^^0^3.571^.786
+105 ;;^UTILITY(U,$J,112,9287,2)
+106 ;;=.25^1.786
+107 ;;^UTILITY(U,$J,112,9287,20)
+108 ;;=Bowes & Church's Food Values, Sixteenth Edition.
