FHINI052 ; ; 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,1709,2)
;;=.013^.137^.121^.06^9.5^0^.068^.029^0^.043^.012^.097^1^.33^^^.4
;;^UTILITY(U,$J,112,1709,4)
;;=^^.001^.038^.001^.003^.011
;;^UTILITY(U,$J,112,1709,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1710,0)
;;=LIME JUICE, RAW^9-160^tbsp.^15.4^100^N
;;^UTILITY(U,$J,112,1710,1)
;;=.44^.1^9.01^27^90.21^^^9^.03^6^7^109^1^.06^.03^.008^^10^29.3^.02
;;^UTILITY(U,$J,112,1710,2)
;;=.01^.1^.138^.043^8.2^0^.018^.009^0^.011^.01^.027^1^.24^^^.4
;;^UTILITY(U,$J,112,1710,4)
;;=^^^.01^.002^^.008
;;^UTILITY(U,$J,112,1710,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1711,0)
;;=LIME JUICE, CND OR BOTTLED, UNSW^9-161^tbsp.^15.4^100^N
;;^UTILITY(U,$J,112,1711,1)
;;=.25^.23^6.69^21^92.52^^^12^.23^7^10^75^16^.06^.03^.008^^16^6.4^.033
;;^UTILITY(U,$J,112,1711,2)
;;=.003^.163^.066^.027^7.9^0^.042^.022^0^.026^.022^.064^2^.31^^^.4
;;^UTILITY(U,$J,112,1711,4)
;;=^^.001^.023^.004^.001^.018
;;^UTILITY(U,$J,112,1711,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1712,0)
;;=LITCHIS, RAW^9-164^fruits^9.6^60^N
;;^UTILITY(U,$J,112,1712,1)
;;=.83^.44^16.53^66^81.76^^^5^.31^10^31^171^1^.07^.148^.055^^0^71.5^.011
;;^UTILITY(U,$J,112,1712,2)
;;=.065^.603^^^^0^^^0^^^^0^.44^^^1.1
;;^UTILITY(U,$J,112,1712,3)
;;=.007^^^^.041^.009
;;^UTILITY(U,$J,112,1712,20)
;;=USDA Std. Reference, Release 10;HCF Nutrition Research Foundation, Inc, 1990
;;^UTILITY(U,$J,112,1713,0)
;;=LITCHIS, DRIED^9-165^oz.^28.3^54^N
;;^UTILITY(U,$J,112,1713,1)
;;=3.8^1.2^70.7^277^22.3^^^33^1.7^42^181^1110^3^.28^.631^.234^^0^183^.01
;;^UTILITY(U,$J,112,1713,2)
;;=.57^3.1^^^^0^^^0^^^^0^2^^^4.6
;;^UTILITY(U,$J,112,1713,3)
;;=.033^^^^.187^.042
;;^UTILITY(U,$J,112,1713,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1714,0)
;;=LOGANBERRIES, FRZ^9-167^cups^167^100^N
;;^UTILITY(U,$J,112,1714,1)
;;=1.52^.31^13.02^55^84.61^^^26^.64^21^26^145^1^.34^.117^1.247^^35^15.3^.05
;;^UTILITY(U,$J,112,1714,2)
;;=.034^.84^.244^.065^25.7^0^^^0^^^^4^.54^^^3.2
;;^UTILITY(U,$J,112,1714,20)
;;=USDA Std. Reference, Release 10;HCF Nutrition Research Foundation, Inc, 1990
;;^UTILITY(U,$J,112,1715,0)
;;=LOQUATS, RAW^9-174^fruits^9.9^62^N
;;^UTILITY(U,$J,112,1715,1)
;;=.43^.2^12.14^47^86.73^^^16^.28^13^27^266^1^.05^.04^.148^^1528^1^.019
;;^UTILITY(U,$J,112,1715,2)
;;=.024^.18^^^^0^.077^.013^0^.04^.008^.091^153^.5^^^1.7
;;^UTILITY(U,$J,112,1715,3)
;;=.005^.015^.015^.026^.023^.004^.006^.014^.013^.021^.014^.007^.024^.058^.061^.02^.027^.02
;;^UTILITY(U,$J,112,1715,4)
;;=^.001^.001^.032^^.004^.008
;;^UTILITY(U,$J,112,1715,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1716,0)
;;=MANGOS, RAW^9-176^fruits^207^69^N
;;^UTILITY(U,$J,112,1716,1)
;;=.51^.27^17^65^81.71^^^10^.13^9^11^156^2^.04^.11^.027^1.12^3894^27.7^.058
;;^UTILITY(U,$J,112,1716,2)
;;=.057^.584^.16^.134^^0^.014^.037^0^.066^.101^.051^389^.5^^^2.8
;;^UTILITY(U,$J,112,1716,3)
;;=.008^.019^.018^.031^.041^.005^^.017^.01^.026^.019^.012^.051^.042^.06^.021^.018^.022
;;^UTILITY(U,$J,112,1716,4)
;;=^.001^.009^.052^.048^.003^.054
;;^UTILITY(U,$J,112,1716,20)
;;=USDA Std. Reference, Release 10;HCF Nutrition Research Foundation, Inc, 1990
;;^UTILITY(U,$J,112,1717,0)
;;=MELONS, CANTALOUP, RAW^9-181^halves^267^51^N
;;^UTILITY(U,$J,112,1717,1)
;;=.88^.28^8.36^35^89.78^^^11^.21^11^17^309^9^.16^.042^.047^.14^3224^42.2^.036
;;^UTILITY(U,$J,112,1717,2)
;;=.021^.574^.128^.115^17^0^^^0^^^^322^.71^^^.7
;;^UTILITY(U,$J,112,1717,4)
;;=^^^^^^^^1^.4
;;^UTILITY(U,$J,112,1717,20)
;;=USDA Std. Reference, Release 10;HCF Nutrition Research Foundation, Inc, 1990
;;^UTILITY(U,$J,112,1718,0)
;;=MELONS, CASABA, RAW^9-183^oz.^28.3^60^N
;;^UTILITY(U,$J,112,1718,1)
;;=.9^.1^6.2^26^92^^^5^.4^8^7^210^12^^^^^30^16^.06
;;^UTILITY(U,$J,112,1718,2)
;;=.02^.4^^^^0^^^0^^^^3^.8^^^.8
;;^UTILITY(U,$J,112,1718,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1719,0)
;;=MELONS, HONEYDEW, RAW^9-184^oz.^28.3^46^N
;;^UTILITY(U,$J,112,1719,1)
;;=.46^.1^9.18^35^89.66^^^6^.07^7^10^271^10^^.041^.018^^40^24.8^.077
;;^UTILITY(U,$J,112,1719,2)
;;=.018^.6^.207^.059^^0^^^0^^^^4^.6^^^.5
;;^UTILITY(U,$J,112,1719,20)
;;=USDA Std. Reference, Release 10;HCF Nutrition Research Foundation, Inc, 1990
;;^UTILITY(U,$J,112,1720,0)
;;=MELON BALLS, FRZ^9-185^cups^173^100^N
;;^UTILITY(U,$J,112,1720,1)
;;=.84^.25^7.94^33^90.26^^^10^.29^14^12^280^31^.17^.06^.04^^1774^6.2^.166
;;^UTILITY(U,$J,112,1720,2)
;;=.022^.64^.163^.106^25.7^0^^^0^^^^177^.71^^^.7
;;^UTILITY(U,$J,112,1720,20)
;;=USDA Std. Reference, Release 10
FHINI052 ; ; 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,1709,2)
+2 ;;=.013^.137^.121^.06^9.5^0^.068^.029^0^.043^.012^.097^1^.33^^^.4
+3 ;;^UTILITY(U,$J,112,1709,4)
+4 ;;=^^.001^.038^.001^.003^.011
+5 ;;^UTILITY(U,$J,112,1709,20)
+6 ;;=USDA Std. Reference, Release 10
+7 ;;^UTILITY(U,$J,112,1710,0)
+8 ;;=LIME JUICE, RAW^9-160^tbsp.^15.4^100^N
+9 ;;^UTILITY(U,$J,112,1710,1)
+10 ;;=.44^.1^9.01^27^90.21^^^9^.03^6^7^109^1^.06^.03^.008^^10^29.3^.02
+11 ;;^UTILITY(U,$J,112,1710,2)
+12 ;;=.01^.1^.138^.043^8.2^0^.018^.009^0^.011^.01^.027^1^.24^^^.4
+13 ;;^UTILITY(U,$J,112,1710,4)
+14 ;;=^^^.01^.002^^.008
+15 ;;^UTILITY(U,$J,112,1710,20)
+16 ;;=USDA Std. Reference, Release 10
+17 ;;^UTILITY(U,$J,112,1711,0)
+18 ;;=LIME JUICE, CND OR BOTTLED, UNSW^9-161^tbsp.^15.4^100^N
+19 ;;^UTILITY(U,$J,112,1711,1)
+20 ;;=.25^.23^6.69^21^92.52^^^12^.23^7^10^75^16^.06^.03^.008^^16^6.4^.033
+21 ;;^UTILITY(U,$J,112,1711,2)
+22 ;;=.003^.163^.066^.027^7.9^0^.042^.022^0^.026^.022^.064^2^.31^^^.4
+23 ;;^UTILITY(U,$J,112,1711,4)
+24 ;;=^^.001^.023^.004^.001^.018
+25 ;;^UTILITY(U,$J,112,1711,20)
+26 ;;=USDA Std. Reference, Release 10
+27 ;;^UTILITY(U,$J,112,1712,0)
+28 ;;=LITCHIS, RAW^9-164^fruits^9.6^60^N
+29 ;;^UTILITY(U,$J,112,1712,1)
+30 ;;=.83^.44^16.53^66^81.76^^^5^.31^10^31^171^1^.07^.148^.055^^0^71.5^.011
+31 ;;^UTILITY(U,$J,112,1712,2)
+32 ;;=.065^.603^^^^0^^^0^^^^0^.44^^^1.1
+33 ;;^UTILITY(U,$J,112,1712,3)
+34 ;;=.007^^^^.041^.009
+35 ;;^UTILITY(U,$J,112,1712,20)
+36 ;;=USDA Std. Reference, Release 10;HCF Nutrition Research Foundation, Inc, 1990
+37 ;;^UTILITY(U,$J,112,1713,0)
+38 ;;=LITCHIS, DRIED^9-165^oz.^28.3^54^N
+39 ;;^UTILITY(U,$J,112,1713,1)
+40 ;;=3.8^1.2^70.7^277^22.3^^^33^1.7^42^181^1110^3^.28^.631^.234^^0^183^.01
+41 ;;^UTILITY(U,$J,112,1713,2)
+42 ;;=.57^3.1^^^^0^^^0^^^^0^2^^^4.6
+43 ;;^UTILITY(U,$J,112,1713,3)
+44 ;;=.033^^^^.187^.042
+45 ;;^UTILITY(U,$J,112,1713,20)
+46 ;;=USDA Std. Reference, Release 10
+47 ;;^UTILITY(U,$J,112,1714,0)
+48 ;;=LOGANBERRIES, FRZ^9-167^cups^167^100^N
+49 ;;^UTILITY(U,$J,112,1714,1)
+50 ;;=1.52^.31^13.02^55^84.61^^^26^.64^21^26^145^1^.34^.117^1.247^^35^15.3^.05
+51 ;;^UTILITY(U,$J,112,1714,2)
+52 ;;=.034^.84^.244^.065^25.7^0^^^0^^^^4^.54^^^3.2
+53 ;;^UTILITY(U,$J,112,1714,20)
+54 ;;=USDA Std. Reference, Release 10;HCF Nutrition Research Foundation, Inc, 1990
+55 ;;^UTILITY(U,$J,112,1715,0)
+56 ;;=LOQUATS, RAW^9-174^fruits^9.9^62^N
+57 ;;^UTILITY(U,$J,112,1715,1)
+58 ;;=.43^.2^12.14^47^86.73^^^16^.28^13^27^266^1^.05^.04^.148^^1528^1^.019
+59 ;;^UTILITY(U,$J,112,1715,2)
+60 ;;=.024^.18^^^^0^.077^.013^0^.04^.008^.091^153^.5^^^1.7
+61 ;;^UTILITY(U,$J,112,1715,3)
+62 ;;=.005^.015^.015^.026^.023^.004^.006^.014^.013^.021^.014^.007^.024^.058^.061^.02^.027^.02
+63 ;;^UTILITY(U,$J,112,1715,4)
+64 ;;=^.001^.001^.032^^.004^.008
+65 ;;^UTILITY(U,$J,112,1715,20)
+66 ;;=USDA Std. Reference, Release 10
+67 ;;^UTILITY(U,$J,112,1716,0)
+68 ;;=MANGOS, RAW^9-176^fruits^207^69^N
+69 ;;^UTILITY(U,$J,112,1716,1)
+70 ;;=.51^.27^17^65^81.71^^^10^.13^9^11^156^2^.04^.11^.027^1.12^3894^27.7^.058
+71 ;;^UTILITY(U,$J,112,1716,2)
+72 ;;=.057^.584^.16^.134^^0^.014^.037^0^.066^.101^.051^389^.5^^^2.8
+73 ;;^UTILITY(U,$J,112,1716,3)
+74 ;;=.008^.019^.018^.031^.041^.005^^.017^.01^.026^.019^.012^.051^.042^.06^.021^.018^.022
+75 ;;^UTILITY(U,$J,112,1716,4)
+76 ;;=^.001^.009^.052^.048^.003^.054
+77 ;;^UTILITY(U,$J,112,1716,20)
+78 ;;=USDA Std. Reference, Release 10;HCF Nutrition Research Foundation, Inc, 1990
+79 ;;^UTILITY(U,$J,112,1717,0)
+80 ;;=MELONS, CANTALOUP, RAW^9-181^halves^267^51^N
+81 ;;^UTILITY(U,$J,112,1717,1)
+82 ;;=.88^.28^8.36^35^89.78^^^11^.21^11^17^309^9^.16^.042^.047^.14^3224^42.2^.036
+83 ;;^UTILITY(U,$J,112,1717,2)
+84 ;;=.021^.574^.128^.115^17^0^^^0^^^^322^.71^^^.7
+85 ;;^UTILITY(U,$J,112,1717,4)
+86 ;;=^^^^^^^^1^.4
+87 ;;^UTILITY(U,$J,112,1717,20)
+88 ;;=USDA Std. Reference, Release 10;HCF Nutrition Research Foundation, Inc, 1990
+89 ;;^UTILITY(U,$J,112,1718,0)
+90 ;;=MELONS, CASABA, RAW^9-183^oz.^28.3^60^N
+91 ;;^UTILITY(U,$J,112,1718,1)
+92 ;;=.9^.1^6.2^26^92^^^5^.4^8^7^210^12^^^^^30^16^.06
+93 ;;^UTILITY(U,$J,112,1718,2)
+94 ;;=.02^.4^^^^0^^^0^^^^3^.8^^^.8
+95 ;;^UTILITY(U,$J,112,1718,20)
+96 ;;=USDA Std. Reference, Release 10
+97 ;;^UTILITY(U,$J,112,1719,0)
+98 ;;=MELONS, HONEYDEW, RAW^9-184^oz.^28.3^46^N
+99 ;;^UTILITY(U,$J,112,1719,1)
+100 ;;=.46^.1^9.18^35^89.66^^^6^.07^7^10^271^10^^.041^.018^^40^24.8^.077
+101 ;;^UTILITY(U,$J,112,1719,2)
+102 ;;=.018^.6^.207^.059^^0^^^0^^^^4^.6^^^.5
+103 ;;^UTILITY(U,$J,112,1719,20)
+104 ;;=USDA Std. Reference, Release 10;HCF Nutrition Research Foundation, Inc, 1990
+105 ;;^UTILITY(U,$J,112,1720,0)
+106 ;;=MELON BALLS, FRZ^9-185^cups^173^100^N
+107 ;;^UTILITY(U,$J,112,1720,1)
+108 ;;=.84^.25^7.94^33^90.26^^^10^.29^14^12^280^31^.17^.06^.04^^1774^6.2^.166
+109 ;;^UTILITY(U,$J,112,1720,2)
+110 ;;=.022^.64^.163^.106^25.7^0^^^0^^^^177^.71^^^.7
+111 ;;^UTILITY(U,$J,112,1720,20)
+112 ;;=USDA Std. Reference, Release 10
