FHINI087 ; ; 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,2847,1)
;;=3.28^32.15^47.59^474^15.61^^^14^1.8^48^100^316^256^1.75^.301^2.388^^0^0^.03
;;^UTILITY(U,$J,112,2847,2)
;;=.02^.3^.696^.261^7.8^0^.352^^0^28.509^1.368^.352^0^1.37^^^4.3
;;^UTILITY(U,$J,112,2847,3)
;;=.038^.119^.129^.243^.145^.061^.065^.166^.101^.198^.538^.075^.167^.32^.749^.155^.135^.169
;;^UTILITY(U,$J,112,2847,4)
;;=1.79^14.263^5.631^2.725^^1.665^1.368^^^16.1
;;^UTILITY(U,$J,112,2847,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2848,0)
;;=COCONUT MEAT, DRIED (DESICCATED), SWEETENED, FLAKED^12-109^oz.^28.3^100^N
;;^UTILITY(U,$J,112,2848,1)
;;=3.28^32.15^47.59^474^15.61^^^14^1.8^48^100^316^256^1.75^.301^2.388^^0^0^.03
;;^UTILITY(U,$J,112,2848,2)
;;=.02^.3^.696^.261^7.8^0^.352^^0^28.509^1.368^.352^0^1.37^^^4.3
;;^UTILITY(U,$J,112,2848,3)
;;=.038^.119^.129^.243^.145^.061^.065^.166^.101^.198^.538^.075^.167^.32^.749^.155^.135^.169
;;^UTILITY(U,$J,112,2848,4)
;;=1.79^14.263^5.631^2.725^^1.665^1.368
;;^UTILITY(U,$J,112,2848,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2849,0)
;;=COCONUT MEAT, DRIED (DESICCATED), TOASTED^12-114^oz.^28.3^100^N
;;^UTILITY(U,$J,112,2849,1)
;;=5.3^47^44.4^592^1^^^27^3.39^92^211^554^37^2.05^.812^2.801^^0^1.5^.061
;;^UTILITY(U,$J,112,2849,2)
;;=.102^.616^.817^.306^9.2^0^.514^^0^41.678^1.999^.514^0^2.3
;;^UTILITY(U,$J,112,2849,3)
;;=.062^.193^.208^.393^.234^.099^.105^.269^.164^.321^.87^.122^.271^.518^1.212^.251^.219^.274
;;^UTILITY(U,$J,112,2849,4)
;;=2.616^20.851^8.233^3.984^^2.434^1.999
;;^UTILITY(U,$J,112,2849,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2850,0)
;;=COCONUT MEAT, RAW^12-104^oz.^28.3^52^N
;;^UTILITY(U,$J,112,2850,1)
;;=3.33^33.49^15.23^354^46.99^^^14^2.43^32^113^356^20^1.1^.435^1.5^^0^3.3^.066
;;^UTILITY(U,$J,112,2850,2)
;;=.02^.54^.3^.054^26.4^0^.366^^0^29.698^1.425^.366^0^.97^^^8.7
;;^UTILITY(U,$J,112,2850,3)
;;=.039^.121^.131^.247^.147^.062^.066^.169^.103^.202^.546^.077^.17^.325^.761^.158^.138^.172
;;^UTILITY(U,$J,112,2850,4)
;;=1.864^14.858^5.866^2.839^^1.734^1.425
;;^UTILITY(U,$J,112,2850,20)
;;=USDA Std. Reference, Release 10;HCF Nutrition Research Foundation, Inc, 1990
;;^UTILITY(U,$J,112,2851,0)
;;=COCONUT MILK, CANNED (LIQUID FROM GRATED MEAT AND WATER)^12-118^tbsp.^15^100^N
;;^UTILITY(U,$J,112,2851,1)
;;=2.02^21.33^2.81^197^72.88^^^18^3.3^46^96^220^13^.56^.223^.768^^0^1^.022
;;^UTILITY(U,$J,112,2851,2)
;;=0^.637^.153^.028^13.5^0^.233^^0^18.915^.907^.233^0^.97
;;^UTILITY(U,$J,112,2851,3)
;;=.024^.074^.079^.15^.089^.038^.04^.102^.062^.122^.331^.046^.103^.197^.462^.096^.083^.104
;;^UTILITY(U,$J,112,2851,4)
;;=1.187^9.463^3.736^1.808^^1.104^.907
;;^UTILITY(U,$J,112,2851,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2852,0)
;;=COCONUT MILK, FROZEN (LIQUID FROM GRATED MEAT AND WATER)^12-176^tbsp.^15^100^N
;;^UTILITY(U,$J,112,2852,1)
;;=1.61^20.8^5.58^202^71.42^^^4^.81^32^59^232^12^.59^.235^.809^^0^1.1^.023
;;^UTILITY(U,$J,112,2852,2)
;;=0^.671^.161^.03^14.2^0^.228^^0^18.445^.885^.228^0^.59
;;^UTILITY(U,$J,112,2852,3)
;;=.019^.059^.063^.119^.071^.03^.032^.082^.05^.098^.264^.037^.082^.157^.368^.076^.067^.083
;;^UTILITY(U,$J,112,2852,4)
;;=1.158^9.228^3.643^1.763^^1.077^.885
;;^UTILITY(U,$J,112,2852,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2853,0)
;;=COCONUT WATER (LIQUID FROM COCONUTS)^12-119^tbsp.^15^100^N
;;^UTILITY(U,$J,112,2853,1)
;;=.72^.2^3.71^19^94.99^^^24^.29^25^20^250^105^.1^.04^.142^^0^2.4^.03
;;^UTILITY(U,$J,112,2853,2)
;;=.057^.08^.043^.032^2.5^0^.002^^0^.176^.008^.002^0^.39^^^1.1
;;^UTILITY(U,$J,112,2853,3)
;;=.008^.026^.028^.053^.032^.013^.014^.037^.022^.044^.118^.017^.037^.07^.165^.034^.03^.037
;;^UTILITY(U,$J,112,2853,4)
;;=.011^.088^.035^.017^^.01^.008
;;^UTILITY(U,$J,112,2853,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2854,0)
;;=FILBERTS OR HAZELNUTS, DRIED, BLANCHED^12-121^oz.^28.3^100^N
;;^UTILITY(U,$J,112,2854,1)
;;=12.72^67.3^15.98^672^1.9^^^195^3.39^296^323^462^3^2.49^1.565^2.091^^69^1^.519
;;^UTILITY(U,$J,112,2854,2)
;;=.114^1.177^1.19^.635^74.5^0^6.267^.163^0^4.947^52.741^6.449^7^2.1
;;^UTILITY(U,$J,112,2854,3)
;;=.211^.437^.554^1.073^.389^.158^.223^.67^.442^.646^2.102^.319^.691^1.565^3.451^.686^.497^.653
;;^UTILITY(U,$J,112,2854,4)
;;=^^.125^3.349^.226^1.368^52.252
;;^UTILITY(U,$J,112,2854,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2855,0)
;;=FILBERTS OR HAZELNUTS, DRY ROASTED, UNBLANCHED, W/SALT ADDED^12-622^oz.^28.3^100^N
;;^UTILITY(U,$J,112,2855,1)
;;=10.01^66.3^17.89^662^1.9^^^195^3.39^296^323^462^780^2.49^1.565^2.091^^0^1^.213
FHINI087 ; ; 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,2847,1)
+2 ;;=3.28^32.15^47.59^474^15.61^^^14^1.8^48^100^316^256^1.75^.301^2.388^^0^0^.03
+3 ;;^UTILITY(U,$J,112,2847,2)
+4 ;;=.02^.3^.696^.261^7.8^0^.352^^0^28.509^1.368^.352^0^1.37^^^4.3
+5 ;;^UTILITY(U,$J,112,2847,3)
+6 ;;=.038^.119^.129^.243^.145^.061^.065^.166^.101^.198^.538^.075^.167^.32^.749^.155^.135^.169
+7 ;;^UTILITY(U,$J,112,2847,4)
+8 ;;=1.79^14.263^5.631^2.725^^1.665^1.368^^^16.1
+9 ;;^UTILITY(U,$J,112,2847,20)
+10 ;;=USDA Std. Reference, Release 10
+11 ;;^UTILITY(U,$J,112,2848,0)
+12 ;;=COCONUT MEAT, DRIED (DESICCATED), SWEETENED, FLAKED^12-109^oz.^28.3^100^N
+13 ;;^UTILITY(U,$J,112,2848,1)
+14 ;;=3.28^32.15^47.59^474^15.61^^^14^1.8^48^100^316^256^1.75^.301^2.388^^0^0^.03
+15 ;;^UTILITY(U,$J,112,2848,2)
+16 ;;=.02^.3^.696^.261^7.8^0^.352^^0^28.509^1.368^.352^0^1.37^^^4.3
+17 ;;^UTILITY(U,$J,112,2848,3)
+18 ;;=.038^.119^.129^.243^.145^.061^.065^.166^.101^.198^.538^.075^.167^.32^.749^.155^.135^.169
+19 ;;^UTILITY(U,$J,112,2848,4)
+20 ;;=1.79^14.263^5.631^2.725^^1.665^1.368
+21 ;;^UTILITY(U,$J,112,2848,20)
+22 ;;=USDA Std. Reference, Release 10
+23 ;;^UTILITY(U,$J,112,2849,0)
+24 ;;=COCONUT MEAT, DRIED (DESICCATED), TOASTED^12-114^oz.^28.3^100^N
+25 ;;^UTILITY(U,$J,112,2849,1)
+26 ;;=5.3^47^44.4^592^1^^^27^3.39^92^211^554^37^2.05^.812^2.801^^0^1.5^.061
+27 ;;^UTILITY(U,$J,112,2849,2)
+28 ;;=.102^.616^.817^.306^9.2^0^.514^^0^41.678^1.999^.514^0^2.3
+29 ;;^UTILITY(U,$J,112,2849,3)
+30 ;;=.062^.193^.208^.393^.234^.099^.105^.269^.164^.321^.87^.122^.271^.518^1.212^.251^.219^.274
+31 ;;^UTILITY(U,$J,112,2849,4)
+32 ;;=2.616^20.851^8.233^3.984^^2.434^1.999
+33 ;;^UTILITY(U,$J,112,2849,20)
+34 ;;=USDA Std. Reference, Release 10
+35 ;;^UTILITY(U,$J,112,2850,0)
+36 ;;=COCONUT MEAT, RAW^12-104^oz.^28.3^52^N
+37 ;;^UTILITY(U,$J,112,2850,1)
+38 ;;=3.33^33.49^15.23^354^46.99^^^14^2.43^32^113^356^20^1.1^.435^1.5^^0^3.3^.066
+39 ;;^UTILITY(U,$J,112,2850,2)
+40 ;;=.02^.54^.3^.054^26.4^0^.366^^0^29.698^1.425^.366^0^.97^^^8.7
+41 ;;^UTILITY(U,$J,112,2850,3)
+42 ;;=.039^.121^.131^.247^.147^.062^.066^.169^.103^.202^.546^.077^.17^.325^.761^.158^.138^.172
+43 ;;^UTILITY(U,$J,112,2850,4)
+44 ;;=1.864^14.858^5.866^2.839^^1.734^1.425
+45 ;;^UTILITY(U,$J,112,2850,20)
+46 ;;=USDA Std. Reference, Release 10;HCF Nutrition Research Foundation, Inc, 1990
+47 ;;^UTILITY(U,$J,112,2851,0)
+48 ;;=COCONUT MILK, CANNED (LIQUID FROM GRATED MEAT AND WATER)^12-118^tbsp.^15^100^N
+49 ;;^UTILITY(U,$J,112,2851,1)
+50 ;;=2.02^21.33^2.81^197^72.88^^^18^3.3^46^96^220^13^.56^.223^.768^^0^1^.022
+51 ;;^UTILITY(U,$J,112,2851,2)
+52 ;;=0^.637^.153^.028^13.5^0^.233^^0^18.915^.907^.233^0^.97
+53 ;;^UTILITY(U,$J,112,2851,3)
+54 ;;=.024^.074^.079^.15^.089^.038^.04^.102^.062^.122^.331^.046^.103^.197^.462^.096^.083^.104
+55 ;;^UTILITY(U,$J,112,2851,4)
+56 ;;=1.187^9.463^3.736^1.808^^1.104^.907
+57 ;;^UTILITY(U,$J,112,2851,20)
+58 ;;=USDA Std. Reference, Release 10
+59 ;;^UTILITY(U,$J,112,2852,0)
+60 ;;=COCONUT MILK, FROZEN (LIQUID FROM GRATED MEAT AND WATER)^12-176^tbsp.^15^100^N
+61 ;;^UTILITY(U,$J,112,2852,1)
+62 ;;=1.61^20.8^5.58^202^71.42^^^4^.81^32^59^232^12^.59^.235^.809^^0^1.1^.023
+63 ;;^UTILITY(U,$J,112,2852,2)
+64 ;;=0^.671^.161^.03^14.2^0^.228^^0^18.445^.885^.228^0^.59
+65 ;;^UTILITY(U,$J,112,2852,3)
+66 ;;=.019^.059^.063^.119^.071^.03^.032^.082^.05^.098^.264^.037^.082^.157^.368^.076^.067^.083
+67 ;;^UTILITY(U,$J,112,2852,4)
+68 ;;=1.158^9.228^3.643^1.763^^1.077^.885
+69 ;;^UTILITY(U,$J,112,2852,20)
+70 ;;=USDA Std. Reference, Release 10
+71 ;;^UTILITY(U,$J,112,2853,0)
+72 ;;=COCONUT WATER (LIQUID FROM COCONUTS)^12-119^tbsp.^15^100^N
+73 ;;^UTILITY(U,$J,112,2853,1)
+74 ;;=.72^.2^3.71^19^94.99^^^24^.29^25^20^250^105^.1^.04^.142^^0^2.4^.03
+75 ;;^UTILITY(U,$J,112,2853,2)
+76 ;;=.057^.08^.043^.032^2.5^0^.002^^0^.176^.008^.002^0^.39^^^1.1
+77 ;;^UTILITY(U,$J,112,2853,3)
+78 ;;=.008^.026^.028^.053^.032^.013^.014^.037^.022^.044^.118^.017^.037^.07^.165^.034^.03^.037
+79 ;;^UTILITY(U,$J,112,2853,4)
+80 ;;=.011^.088^.035^.017^^.01^.008
+81 ;;^UTILITY(U,$J,112,2853,20)
+82 ;;=USDA Std. Reference, Release 10
+83 ;;^UTILITY(U,$J,112,2854,0)
+84 ;;=FILBERTS OR HAZELNUTS, DRIED, BLANCHED^12-121^oz.^28.3^100^N
+85 ;;^UTILITY(U,$J,112,2854,1)
+86 ;;=12.72^67.3^15.98^672^1.9^^^195^3.39^296^323^462^3^2.49^1.565^2.091^^69^1^.519
+87 ;;^UTILITY(U,$J,112,2854,2)
+88 ;;=.114^1.177^1.19^.635^74.5^0^6.267^.163^0^4.947^52.741^6.449^7^2.1
+89 ;;^UTILITY(U,$J,112,2854,3)
+90 ;;=.211^.437^.554^1.073^.389^.158^.223^.67^.442^.646^2.102^.319^.691^1.565^3.451^.686^.497^.653
+91 ;;^UTILITY(U,$J,112,2854,4)
+92 ;;=^^.125^3.349^.226^1.368^52.252
+93 ;;^UTILITY(U,$J,112,2854,20)
+94 ;;=USDA Std. Reference, Release 10
+95 ;;^UTILITY(U,$J,112,2855,0)
+96 ;;=FILBERTS OR HAZELNUTS, DRY ROASTED, UNBLANCHED, W/SALT ADDED^12-622^oz.^28.3^100^N
+97 ;;^UTILITY(U,$J,112,2855,1)
+98 ;;=10.01^66.3^17.89^662^1.9^^^195^3.39^296^323^462^780^2.49^1.565^2.091^^0^1^.213
