FHINI086 ; ; 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,2838,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2839,0)
;;=CHESTNUTS, EUROPEAN, BOILED AND STEAMED^12-101^oz.^28.3^100^N
;;^UTILITY(U,$J,112,2839,1)
;;=2^1.38^27.76^131^68.15^^^46^1.73^54^99^715^27^.25^.472^.854^^17^26.7^.148
;;^UTILITY(U,$J,112,2839,2)
;;=.104^.731^.316^.233^38.4^0^.487^.058^0^.26^.476^.545^2^.71
;;^UTILITY(U,$J,112,2839,3)
;;=.022^.071^.079^.118^.118^.047^.063^.084^.055^.112^.143^.055^.133^.345^.258^.103^.105^.1
;;^UTILITY(U,$J,112,2839,4)
;;=^^.006^.234^.013^.013^.457
;;^UTILITY(U,$J,112,2839,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2840,0)
;;=CHESTNUTS, EUROPEAN, ROASTED^12-167^oz.^28.3^63^N
;;^UTILITY(U,$J,112,2840,1)
;;=3.17^2.2^52.96^245^40.48^^^29^.91^33^107^592^2^.57^.507^1.18^^24^26^.243
;;^UTILITY(U,$J,112,2840,2)
;;=.175^1.342^.554^.497^70^0^.776^.093^0^.414^.759^.869^2^1.2^^^5.1
;;^UTILITY(U,$J,112,2840,3)
;;=.035^.113^.125^.188^.188^.075^.101^.134^.088^.178^.227^.088^.212^.549^.41^.164^.167^.159
;;^UTILITY(U,$J,112,2840,4)
;;=^^.01^.373^.021^.021^.728
;;^UTILITY(U,$J,112,2840,20)
;;=USDA Std. Reference, Release 10;HCF Nutrition Research Foundation, Inc, 1990
;;^UTILITY(U,$J,112,2841,0)
;;=CHESTNUTS, JAPANESE, BOILED AND STEAMED^12-203^oz.^28.3^100^N
;;^UTILITY(U,$J,112,2841,1)
;;=.82^.19^12.64^56^86.03^^^11^.53^18^26^119^5^.4^.204^.576^^13^9.5^.125
;;^UTILITY(U,$J,112,2841,2)
;;=.059^.543^.075^.102^16.9^0^.045^.005^0^.028^.101^.05^1^.33
;;^UTILITY(U,$J,112,2841,3)
;;=.012^.033^.04^.051^.053^.02^.024^.032^.023^.049^.054^.02^.073^.172^.156^.041^.051^.04
;;^UTILITY(U,$J,112,2841,4)
;;=^^^.026^.001^.002^.097
;;^UTILITY(U,$J,112,2841,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2842,0)
;;=CHESTNUTS, JAPANESE, ROASTED^12-204^oz.^28.3^100^N
;;^UTILITY(U,$J,112,2842,1)
;;=2.97^.8^45.13^201^49.9^^^35^2.1^64^93^427^19^1.43^.73^2.065^^74^28^.45
;;^UTILITY(U,$J,112,2842,2)
;;=^.7^.466^.418^58.9^0^.186^.02^0^.118^.419^.207^7^1.2
;;^UTILITY(U,$J,112,2842,3)
;;=.043^.119^.146^.184^.193^.071^.086^.116^.085^.176^.195^.074^.267^.625^.566^.151^.185^.145
;;^UTILITY(U,$J,112,2842,4)
;;=^^^.109^.005^.008^.402
;;^UTILITY(U,$J,112,2842,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2843,0)
;;=COCONUT CREAM, CANNED (LIQUID FROM GRATED MEAT)^12-116^tbsp.^19^100^N
;;^UTILITY(U,$J,112,2843,1)
;;=2.69^17.72^8.35^192^71.2^^^1^.51^17^22^101^50^.6^.236^.815^^0^1.8^.022
;;^UTILITY(U,$J,112,2843,2)
;;=.04^.038^.163^.029^14.3^0^.194^^0^15.713^.754^.194^0^.04^^^2.2
;;^UTILITY(U,$J,112,2843,3)
;;=.031^.098^.106^.2^.119^.05^.053^.137^.083^.163^.442^.062^.138^.263^.616^.128^.111^.139
;;^UTILITY(U,$J,112,2843,4)
;;=.986^7.861^3.104^1.502^^.918^.754
;;^UTILITY(U,$J,112,2843,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2844,0)
;;=COCONUT CREAM, RAW (LIQUID FROM GRATED MEAT)^12-115^tbsp.^15^100^N
;;^UTILITY(U,$J,112,2844,1)
;;=3.63^34.68^6.65^330^53.9^^^11^2.28^28^122^325^4^.96^.378^1.304^^0^2.8^.03
;;^UTILITY(U,$J,112,2844,2)
;;=0^.89^.261^.047^23^0^.379^^0^30.753^1.475^.379^0^1.15
;;^UTILITY(U,$J,112,2844,3)
;;=.042^.132^.142^.269^.16^.068^.072^.184^.112^.22^.595^.083^.185^.354^.829^.172^.15^.187
;;^UTILITY(U,$J,112,2844,4)
;;=1.931^15.385^6.075^2.94^^1.796^1.475
;;^UTILITY(U,$J,112,2844,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2845,0)
;;=COCONUT MEAT, DRIED (DESICCATED), CREAMED^12-177^oz.^28.3^100^N
;;^UTILITY(U,$J,112,2845,1)
;;=5.3^69.08^21.52^684^1.67^^^26^3.36^92^209^551^37^2.04^.807^2.783^^0^1.5^.061
;;^UTILITY(U,$J,112,2845,2)
;;=.101^.611^.811^.304^9.1^0^.756^^0^61.257^2.939^.756^0^2.44
;;^UTILITY(U,$J,112,2845,3)
;;=.062^.193^.208^.393^.234^.099^.105^.269^.164^.321^.87^.122^.271^.518^1.212^.251^.219^.274
;;^UTILITY(U,$J,112,2845,4)
;;=3.846^30.646^12.1^5.856^^3.577^2.939
;;^UTILITY(U,$J,112,2845,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2846,0)
;;=COCONUT MEAT, DRIED (DESICCATED), NOT SWEETENED^12-108^oz.^28.3^100^N
;;^UTILITY(U,$J,112,2846,1)
;;=6.88^64.53^24.41^660^3^^^26^3.32^90^206^543^37^2.01^.796^2.745^^0^1.5^.06
;;^UTILITY(U,$J,112,2846,2)
;;=.1^.603^.8^.3^9^0^.706^^0^57.218^2.745^.706^0^1.94^^^16.3
;;^UTILITY(U,$J,112,2846,3)
;;=.081^.251^.27^.511^.304^.129^.136^.349^.213^.417^1.13^.158^.352^.673^1.574^.326^.284^.356
;;^UTILITY(U,$J,112,2846,4)
;;=3.592^28.625^11.302^5.469^^3.341^2.745
;;^UTILITY(U,$J,112,2846,20)
;;=USDA Std. Reference, Release 10;HCF Nutrition Research Foundation, Inc, 1990
;;^UTILITY(U,$J,112,2847,0)
;;=COCONUT MEAT, DRIED (DESICCATED), SWEETENED, FLAKED^12-109^oz.^28.3^100^N
FHINI086 ; ; 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,2838,20)
+2 ;;=USDA Std. Reference, Release 10
+3 ;;^UTILITY(U,$J,112,2839,0)
+4 ;;=CHESTNUTS, EUROPEAN, BOILED AND STEAMED^12-101^oz.^28.3^100^N
+5 ;;^UTILITY(U,$J,112,2839,1)
+6 ;;=2^1.38^27.76^131^68.15^^^46^1.73^54^99^715^27^.25^.472^.854^^17^26.7^.148
+7 ;;^UTILITY(U,$J,112,2839,2)
+8 ;;=.104^.731^.316^.233^38.4^0^.487^.058^0^.26^.476^.545^2^.71
+9 ;;^UTILITY(U,$J,112,2839,3)
+10 ;;=.022^.071^.079^.118^.118^.047^.063^.084^.055^.112^.143^.055^.133^.345^.258^.103^.105^.1
+11 ;;^UTILITY(U,$J,112,2839,4)
+12 ;;=^^.006^.234^.013^.013^.457
+13 ;;^UTILITY(U,$J,112,2839,20)
+14 ;;=USDA Std. Reference, Release 10
+15 ;;^UTILITY(U,$J,112,2840,0)
+16 ;;=CHESTNUTS, EUROPEAN, ROASTED^12-167^oz.^28.3^63^N
+17 ;;^UTILITY(U,$J,112,2840,1)
+18 ;;=3.17^2.2^52.96^245^40.48^^^29^.91^33^107^592^2^.57^.507^1.18^^24^26^.243
+19 ;;^UTILITY(U,$J,112,2840,2)
+20 ;;=.175^1.342^.554^.497^70^0^.776^.093^0^.414^.759^.869^2^1.2^^^5.1
+21 ;;^UTILITY(U,$J,112,2840,3)
+22 ;;=.035^.113^.125^.188^.188^.075^.101^.134^.088^.178^.227^.088^.212^.549^.41^.164^.167^.159
+23 ;;^UTILITY(U,$J,112,2840,4)
+24 ;;=^^.01^.373^.021^.021^.728
+25 ;;^UTILITY(U,$J,112,2840,20)
+26 ;;=USDA Std. Reference, Release 10;HCF Nutrition Research Foundation, Inc, 1990
+27 ;;^UTILITY(U,$J,112,2841,0)
+28 ;;=CHESTNUTS, JAPANESE, BOILED AND STEAMED^12-203^oz.^28.3^100^N
+29 ;;^UTILITY(U,$J,112,2841,1)
+30 ;;=.82^.19^12.64^56^86.03^^^11^.53^18^26^119^5^.4^.204^.576^^13^9.5^.125
+31 ;;^UTILITY(U,$J,112,2841,2)
+32 ;;=.059^.543^.075^.102^16.9^0^.045^.005^0^.028^.101^.05^1^.33
+33 ;;^UTILITY(U,$J,112,2841,3)
+34 ;;=.012^.033^.04^.051^.053^.02^.024^.032^.023^.049^.054^.02^.073^.172^.156^.041^.051^.04
+35 ;;^UTILITY(U,$J,112,2841,4)
+36 ;;=^^^.026^.001^.002^.097
+37 ;;^UTILITY(U,$J,112,2841,20)
+38 ;;=USDA Std. Reference, Release 10
+39 ;;^UTILITY(U,$J,112,2842,0)
+40 ;;=CHESTNUTS, JAPANESE, ROASTED^12-204^oz.^28.3^100^N
+41 ;;^UTILITY(U,$J,112,2842,1)
+42 ;;=2.97^.8^45.13^201^49.9^^^35^2.1^64^93^427^19^1.43^.73^2.065^^74^28^.45
+43 ;;^UTILITY(U,$J,112,2842,2)
+44 ;;=^.7^.466^.418^58.9^0^.186^.02^0^.118^.419^.207^7^1.2
+45 ;;^UTILITY(U,$J,112,2842,3)
+46 ;;=.043^.119^.146^.184^.193^.071^.086^.116^.085^.176^.195^.074^.267^.625^.566^.151^.185^.145
+47 ;;^UTILITY(U,$J,112,2842,4)
+48 ;;=^^^.109^.005^.008^.402
+49 ;;^UTILITY(U,$J,112,2842,20)
+50 ;;=USDA Std. Reference, Release 10
+51 ;;^UTILITY(U,$J,112,2843,0)
+52 ;;=COCONUT CREAM, CANNED (LIQUID FROM GRATED MEAT)^12-116^tbsp.^19^100^N
+53 ;;^UTILITY(U,$J,112,2843,1)
+54 ;;=2.69^17.72^8.35^192^71.2^^^1^.51^17^22^101^50^.6^.236^.815^^0^1.8^.022
+55 ;;^UTILITY(U,$J,112,2843,2)
+56 ;;=.04^.038^.163^.029^14.3^0^.194^^0^15.713^.754^.194^0^.04^^^2.2
+57 ;;^UTILITY(U,$J,112,2843,3)
+58 ;;=.031^.098^.106^.2^.119^.05^.053^.137^.083^.163^.442^.062^.138^.263^.616^.128^.111^.139
+59 ;;^UTILITY(U,$J,112,2843,4)
+60 ;;=.986^7.861^3.104^1.502^^.918^.754
+61 ;;^UTILITY(U,$J,112,2843,20)
+62 ;;=USDA Std. Reference, Release 10
+63 ;;^UTILITY(U,$J,112,2844,0)
+64 ;;=COCONUT CREAM, RAW (LIQUID FROM GRATED MEAT)^12-115^tbsp.^15^100^N
+65 ;;^UTILITY(U,$J,112,2844,1)
+66 ;;=3.63^34.68^6.65^330^53.9^^^11^2.28^28^122^325^4^.96^.378^1.304^^0^2.8^.03
+67 ;;^UTILITY(U,$J,112,2844,2)
+68 ;;=0^.89^.261^.047^23^0^.379^^0^30.753^1.475^.379^0^1.15
+69 ;;^UTILITY(U,$J,112,2844,3)
+70 ;;=.042^.132^.142^.269^.16^.068^.072^.184^.112^.22^.595^.083^.185^.354^.829^.172^.15^.187
+71 ;;^UTILITY(U,$J,112,2844,4)
+72 ;;=1.931^15.385^6.075^2.94^^1.796^1.475
+73 ;;^UTILITY(U,$J,112,2844,20)
+74 ;;=USDA Std. Reference, Release 10
+75 ;;^UTILITY(U,$J,112,2845,0)
+76 ;;=COCONUT MEAT, DRIED (DESICCATED), CREAMED^12-177^oz.^28.3^100^N
+77 ;;^UTILITY(U,$J,112,2845,1)
+78 ;;=5.3^69.08^21.52^684^1.67^^^26^3.36^92^209^551^37^2.04^.807^2.783^^0^1.5^.061
+79 ;;^UTILITY(U,$J,112,2845,2)
+80 ;;=.101^.611^.811^.304^9.1^0^.756^^0^61.257^2.939^.756^0^2.44
+81 ;;^UTILITY(U,$J,112,2845,3)
+82 ;;=.062^.193^.208^.393^.234^.099^.105^.269^.164^.321^.87^.122^.271^.518^1.212^.251^.219^.274
+83 ;;^UTILITY(U,$J,112,2845,4)
+84 ;;=3.846^30.646^12.1^5.856^^3.577^2.939
+85 ;;^UTILITY(U,$J,112,2845,20)
+86 ;;=USDA Std. Reference, Release 10
+87 ;;^UTILITY(U,$J,112,2846,0)
+88 ;;=COCONUT MEAT, DRIED (DESICCATED), NOT SWEETENED^12-108^oz.^28.3^100^N
+89 ;;^UTILITY(U,$J,112,2846,1)
+90 ;;=6.88^64.53^24.41^660^3^^^26^3.32^90^206^543^37^2.01^.796^2.745^^0^1.5^.06
+91 ;;^UTILITY(U,$J,112,2846,2)
+92 ;;=.1^.603^.8^.3^9^0^.706^^0^57.218^2.745^.706^0^1.94^^^16.3
+93 ;;^UTILITY(U,$J,112,2846,3)
+94 ;;=.081^.251^.27^.511^.304^.129^.136^.349^.213^.417^1.13^.158^.352^.673^1.574^.326^.284^.356
+95 ;;^UTILITY(U,$J,112,2846,4)
+96 ;;=3.592^28.625^11.302^5.469^^3.341^2.745
+97 ;;^UTILITY(U,$J,112,2846,20)
+98 ;;=USDA Std. Reference, Release 10;HCF Nutrition Research Foundation, Inc, 1990
+99 ;;^UTILITY(U,$J,112,2847,0)
+100 ;;=COCONUT MEAT, DRIED (DESICCATED), SWEETENED, FLAKED^12-109^oz.^28.3^100^N
