FHINI053 ; ; 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,1721,0)
;;=FRUIT, MIXED, CND, HVY SIRUP, SOL&LIQ^9-187^cups^256^100^N
;;^UTILITY(U,$J,112,1721,1)
;;=.37^.1^18.76^72^80.56^^^1^.36^5^10^84^4^.07^.058^.386^^194^69^.015
;;^UTILITY(U,$J,112,1721,2)
;;=.04^.6^.057^.036^3^0^.037^.005^0^.014^.019^.042^19^.21
;;^UTILITY(U,$J,112,1721,4)
;;=^^^.01^^.004^.019
;;^UTILITY(U,$J,112,1721,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1722,0)
;;=FRUIT, MIXED, DRIED^9-188^oz.^28.3^94^N
;;^UTILITY(U,$J,112,1722,1)
;;=2.46^.49^64.06^243^31.18^^^38^2.71^39^77^796^18^.5^.385^.227^^2442^3.8^.044
;;^UTILITY(U,$J,112,1722,2)
;;=.157^1.927^.441^.159^3.9^0^.108^.002^0^.04^.232^.11^244^1.82
;;^UTILITY(U,$J,112,1722,4)
;;=^^^.033^.003^.007^.229
;;^UTILITY(U,$J,112,1722,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1723,0)
;;=FRUIT, MIXED, FRZN, SWTND, THAWD^9-189^cups^250^100^N
;;^UTILITY(U,$J,112,1723,1)
;;=1.42^.18^24.23^98^73.73^^^7^.28^6^12^131^3^.05^.034^.064^^322^75^.017
;;^UTILITY(U,$J,112,1723,2)
;;=.035^.397^.093^.025^7.6^0^.069^.009^0^.025^.034^.078^32^.43^^^1.9
;;^UTILITY(U,$J,112,1723,4)
;;=^^^.018^^.007^.034
;;^UTILITY(U,$J,112,1723,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1724,0)
;;=MULBERRIES, RAW^9-190^cups^140^100^N
;;^UTILITY(U,$J,112,1724,1)
;;=1.44^.39^9.8^43^87.68^^^39^1.85^18^38^194^10^^.06^^^25^36.4^.029
;;^UTILITY(U,$J,112,1724,2)
;;=.101^.62^^^^0^^^0^^^^3^.69^^^1.7
;;^UTILITY(U,$J,112,1724,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1725,0)
;;=NECTARINES, RAW^9-191^fruits^136^91^N
;;^UTILITY(U,$J,112,1725,1)
;;=.94^.46^11.78^49^86.28^^^5^.15^8^16^212^0^.09^.073^.044^^736^5.4^.017
;;^UTILITY(U,$J,112,1725,2)
;;=.041^.99^.158^.025^3.7^0^^^0^^^^74^.54^^^1.3
;;^UTILITY(U,$J,112,1725,20)
;;=USDA Std. Reference, Release 10;HCF Nutrition Research Foundation, Inc, 1990
;;^UTILITY(U,$J,112,1726,0)
;;=ORANGES, RAW, ALL COMMER VARIETIES^9-200^fruits^131^73^N
;;^UTILITY(U,$J,112,1726,1)
;;=.94^.12^11.75^47^86.75^^^40^.1^10^14^181^0^.07^.045^.025^.24^205^53.2^.087
;;^UTILITY(U,$J,112,1726,2)
;;=.04^.282^.25^.06^30.3^0^.018^.007^0^.015^.023^.025^21^.44^^^2.2
;;^UTILITY(U,$J,112,1726,3)
;;=.009^.015^.025^.023^.047^.02^.01^.031^.016^.04^.065^.018^.05^.114^.094^.094^.046^.032
;;^UTILITY(U,$J,112,1726,4)
;;=^^^.013^.003^^.02^^.1^.5
;;^UTILITY(U,$J,112,1726,20)
;;=USDA Std. Reference, Release 10;HCF Nutrition Research Foundation, Inc, 1990
;;^UTILITY(U,$J,112,1727,0)
;;=ORANGES, RAW, CALIFORNIA, VALENCIAS^9-201^fruits^121^75^N
;;^UTILITY(U,$J,112,1727,1)
;;=1.04^.3^11.89^49^86.34^^^40^.09^10^17^179^0^.06^.037^.023^^230^48.5^.087
;;^UTILITY(U,$J,112,1727,2)
;;=.04^.274^.25^.063^38.6^0^.044^.016^0^.035^.055^.06^23^.42
;;^UTILITY(U,$J,112,1727,3)
;;=.01^.017^.028^.026^.053^.022^.011^.034^.018^.044^.073^.02^.056^.127^.105^.105^.052^.036
;;^UTILITY(U,$J,112,1727,4)
;;=^.001^.001^.032^.007^.001^.048
;;^UTILITY(U,$J,112,1727,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1728,0)
;;=ORANGES, RAW, CALIFORNIA, NAVELS^9-202^fruits^140^68^N
;;^UTILITY(U,$J,112,1728,1)
;;=1.03^.09^11.63^46^86.81^^^40^.12^10^19^178^1^.06^.056^.027^^183^57.3^.087
;;^UTILITY(U,$J,112,1728,2)
;;=.04^.29^.25^.069^33.7^0^.013^.005^0^.011^.017^.018^18^.44^^^1.4
;;^UTILITY(U,$J,112,1728,3)
;;=.01^.017^.028^.026^.052^.022^.011^.034^.017^.044^.072^.019^.055^.125^.104^.104^.051^.035
;;^UTILITY(U,$J,112,1728,4)
;;=^^^.01^.002^^.015
;;^UTILITY(U,$J,112,1728,20)
;;=USDA Std. Reference, Release 10;HCF Nutrition Research Foundation, Inc, 1990
;;^UTILITY(U,$J,112,1729,0)
;;=ORANGES, RAW, FLORIDA^9-203^fruits^141^74^N
;;^UTILITY(U,$J,112,1729,1)
;;=.7^.21^11.54^46^87.14^^^43^.09^10^12^169^0^.08^.039^.024^^200^45^.1
;;^UTILITY(U,$J,112,1729,2)
;;=.04^.4^.25^.051^17.3^0^.031^.011^0^.025^.039^.042^20^.41^^^2.4
;;^UTILITY(U,$J,112,1729,3)
;;=.007^.011^.019^.017^.035^.015^.007^.023^.012^.03^.049^.013^.038^.085^.071^.071^.035^.024
;;^UTILITY(U,$J,112,1729,4)
;;=^^.001^.023^.005^.001^.034
;;^UTILITY(U,$J,112,1729,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1730,0)
;;=ORANGE JUICE, RAW^9-206^fl oz.^31^100^N
;;^UTILITY(U,$J,112,1730,1)
;;=.7^.2^10.4^45^88.3^^^11^.2^11^17^200^1^.05^.044^.014^.04^200^50^.09
;;^UTILITY(U,$J,112,1730,2)
;;=.03^.4^.19^.04^30.3^0^.029^.011^0^.024^.036^.04^20^.4^^^.2
;;^UTILITY(U,$J,112,1730,3)
;;=.002^.008^.008^.013^.009^.003^.005^.009^.004^.011^.047^.003^.015^.075^.033^.009^.044^.013
;;^UTILITY(U,$J,112,1730,4)
;;=^^.001^.021^.005^.001^.032^^.1
;;^UTILITY(U,$J,112,1730,20)
;;=USDA Std. Reference, Release 10
FHINI053 ; ; 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,1721,0)
+2 ;;=FRUIT, MIXED, CND, HVY SIRUP, SOL&LIQ^9-187^cups^256^100^N
+3 ;;^UTILITY(U,$J,112,1721,1)
+4 ;;=.37^.1^18.76^72^80.56^^^1^.36^5^10^84^4^.07^.058^.386^^194^69^.015
+5 ;;^UTILITY(U,$J,112,1721,2)
+6 ;;=.04^.6^.057^.036^3^0^.037^.005^0^.014^.019^.042^19^.21
+7 ;;^UTILITY(U,$J,112,1721,4)
+8 ;;=^^^.01^^.004^.019
+9 ;;^UTILITY(U,$J,112,1721,20)
+10 ;;=USDA Std. Reference, Release 10
+11 ;;^UTILITY(U,$J,112,1722,0)
+12 ;;=FRUIT, MIXED, DRIED^9-188^oz.^28.3^94^N
+13 ;;^UTILITY(U,$J,112,1722,1)
+14 ;;=2.46^.49^64.06^243^31.18^^^38^2.71^39^77^796^18^.5^.385^.227^^2442^3.8^.044
+15 ;;^UTILITY(U,$J,112,1722,2)
+16 ;;=.157^1.927^.441^.159^3.9^0^.108^.002^0^.04^.232^.11^244^1.82
+17 ;;^UTILITY(U,$J,112,1722,4)
+18 ;;=^^^.033^.003^.007^.229
+19 ;;^UTILITY(U,$J,112,1722,20)
+20 ;;=USDA Std. Reference, Release 10
+21 ;;^UTILITY(U,$J,112,1723,0)
+22 ;;=FRUIT, MIXED, FRZN, SWTND, THAWD^9-189^cups^250^100^N
+23 ;;^UTILITY(U,$J,112,1723,1)
+24 ;;=1.42^.18^24.23^98^73.73^^^7^.28^6^12^131^3^.05^.034^.064^^322^75^.017
+25 ;;^UTILITY(U,$J,112,1723,2)
+26 ;;=.035^.397^.093^.025^7.6^0^.069^.009^0^.025^.034^.078^32^.43^^^1.9
+27 ;;^UTILITY(U,$J,112,1723,4)
+28 ;;=^^^.018^^.007^.034
+29 ;;^UTILITY(U,$J,112,1723,20)
+30 ;;=USDA Std. Reference, Release 10
+31 ;;^UTILITY(U,$J,112,1724,0)
+32 ;;=MULBERRIES, RAW^9-190^cups^140^100^N
+33 ;;^UTILITY(U,$J,112,1724,1)
+34 ;;=1.44^.39^9.8^43^87.68^^^39^1.85^18^38^194^10^^.06^^^25^36.4^.029
+35 ;;^UTILITY(U,$J,112,1724,2)
+36 ;;=.101^.62^^^^0^^^0^^^^3^.69^^^1.7
+37 ;;^UTILITY(U,$J,112,1724,20)
+38 ;;=USDA Std. Reference, Release 10
+39 ;;^UTILITY(U,$J,112,1725,0)
+40 ;;=NECTARINES, RAW^9-191^fruits^136^91^N
+41 ;;^UTILITY(U,$J,112,1725,1)
+42 ;;=.94^.46^11.78^49^86.28^^^5^.15^8^16^212^0^.09^.073^.044^^736^5.4^.017
+43 ;;^UTILITY(U,$J,112,1725,2)
+44 ;;=.041^.99^.158^.025^3.7^0^^^0^^^^74^.54^^^1.3
+45 ;;^UTILITY(U,$J,112,1725,20)
+46 ;;=USDA Std. Reference, Release 10;HCF Nutrition Research Foundation, Inc, 1990
+47 ;;^UTILITY(U,$J,112,1726,0)
+48 ;;=ORANGES, RAW, ALL COMMER VARIETIES^9-200^fruits^131^73^N
+49 ;;^UTILITY(U,$J,112,1726,1)
+50 ;;=.94^.12^11.75^47^86.75^^^40^.1^10^14^181^0^.07^.045^.025^.24^205^53.2^.087
+51 ;;^UTILITY(U,$J,112,1726,2)
+52 ;;=.04^.282^.25^.06^30.3^0^.018^.007^0^.015^.023^.025^21^.44^^^2.2
+53 ;;^UTILITY(U,$J,112,1726,3)
+54 ;;=.009^.015^.025^.023^.047^.02^.01^.031^.016^.04^.065^.018^.05^.114^.094^.094^.046^.032
+55 ;;^UTILITY(U,$J,112,1726,4)
+56 ;;=^^^.013^.003^^.02^^.1^.5
+57 ;;^UTILITY(U,$J,112,1726,20)
+58 ;;=USDA Std. Reference, Release 10;HCF Nutrition Research Foundation, Inc, 1990
+59 ;;^UTILITY(U,$J,112,1727,0)
+60 ;;=ORANGES, RAW, CALIFORNIA, VALENCIAS^9-201^fruits^121^75^N
+61 ;;^UTILITY(U,$J,112,1727,1)
+62 ;;=1.04^.3^11.89^49^86.34^^^40^.09^10^17^179^0^.06^.037^.023^^230^48.5^.087
+63 ;;^UTILITY(U,$J,112,1727,2)
+64 ;;=.04^.274^.25^.063^38.6^0^.044^.016^0^.035^.055^.06^23^.42
+65 ;;^UTILITY(U,$J,112,1727,3)
+66 ;;=.01^.017^.028^.026^.053^.022^.011^.034^.018^.044^.073^.02^.056^.127^.105^.105^.052^.036
+67 ;;^UTILITY(U,$J,112,1727,4)
+68 ;;=^.001^.001^.032^.007^.001^.048
+69 ;;^UTILITY(U,$J,112,1727,20)
+70 ;;=USDA Std. Reference, Release 10
+71 ;;^UTILITY(U,$J,112,1728,0)
+72 ;;=ORANGES, RAW, CALIFORNIA, NAVELS^9-202^fruits^140^68^N
+73 ;;^UTILITY(U,$J,112,1728,1)
+74 ;;=1.03^.09^11.63^46^86.81^^^40^.12^10^19^178^1^.06^.056^.027^^183^57.3^.087
+75 ;;^UTILITY(U,$J,112,1728,2)
+76 ;;=.04^.29^.25^.069^33.7^0^.013^.005^0^.011^.017^.018^18^.44^^^1.4
+77 ;;^UTILITY(U,$J,112,1728,3)
+78 ;;=.01^.017^.028^.026^.052^.022^.011^.034^.017^.044^.072^.019^.055^.125^.104^.104^.051^.035
+79 ;;^UTILITY(U,$J,112,1728,4)
+80 ;;=^^^.01^.002^^.015
+81 ;;^UTILITY(U,$J,112,1728,20)
+82 ;;=USDA Std. Reference, Release 10;HCF Nutrition Research Foundation, Inc, 1990
+83 ;;^UTILITY(U,$J,112,1729,0)
+84 ;;=ORANGES, RAW, FLORIDA^9-203^fruits^141^74^N
+85 ;;^UTILITY(U,$J,112,1729,1)
+86 ;;=.7^.21^11.54^46^87.14^^^43^.09^10^12^169^0^.08^.039^.024^^200^45^.1
+87 ;;^UTILITY(U,$J,112,1729,2)
+88 ;;=.04^.4^.25^.051^17.3^0^.031^.011^0^.025^.039^.042^20^.41^^^2.4
+89 ;;^UTILITY(U,$J,112,1729,3)
+90 ;;=.007^.011^.019^.017^.035^.015^.007^.023^.012^.03^.049^.013^.038^.085^.071^.071^.035^.024
+91 ;;^UTILITY(U,$J,112,1729,4)
+92 ;;=^^.001^.023^.005^.001^.034
+93 ;;^UTILITY(U,$J,112,1729,20)
+94 ;;=USDA Std. Reference, Release 10
+95 ;;^UTILITY(U,$J,112,1730,0)
+96 ;;=ORANGE JUICE, RAW^9-206^fl oz.^31^100^N
+97 ;;^UTILITY(U,$J,112,1730,1)
+98 ;;=.7^.2^10.4^45^88.3^^^11^.2^11^17^200^1^.05^.044^.014^.04^200^50^.09
+99 ;;^UTILITY(U,$J,112,1730,2)
+100 ;;=.03^.4^.19^.04^30.3^0^.029^.011^0^.024^.036^.04^20^.4^^^.2
+101 ;;^UTILITY(U,$J,112,1730,3)
+102 ;;=.002^.008^.008^.013^.009^.003^.005^.009^.004^.011^.047^.003^.015^.075^.033^.009^.044^.013
+103 ;;^UTILITY(U,$J,112,1730,4)
+104 ;;=^^.001^.021^.005^.001^.032^^.1
+105 ;;^UTILITY(U,$J,112,1730,20)
+106 ;;=USDA Std. Reference, Release 10
