FHINI04X ; ; 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,1659,0)
;;=CRANBERRIES, RAW^9-078^cups^95^95^N
;;^UTILITY(U,$J,112,1659,1)
;;=.39^.2^12.68^49^86.54^^^7^.2^5^9^71^1^.13^.058^.157^^46^13.5^.03
;;^UTILITY(U,$J,112,1659,2)
;;=.02^.1^.219^.065^1.7^0^^^0^^^^5^.19^^^3.3
;;^UTILITY(U,$J,112,1659,20)
;;=USDA Std. Reference, Release 10;HCF Nutrition Research Foundation, Inc, 1990
;;^UTILITY(U,$J,112,1660,0)
;;=CRANBERRY JUICE COCKTAIL, BOTTLED^14-242^fl oz.^31.6^100^N
;;^UTILITY(U,$J,112,1660,1)
;;=0^.1^14.4^57^85.5^^^3^.15^2^2^18^2^.07^.018^.193^^4^35.4^.009
;;^UTILITY(U,$J,112,1660,2)
;;=.009^.035^.056^.019^.2^0^.023^^0^.033^^^0^0^^^.1
;;^UTILITY(U,$J,112,1660,4)
;;=^^^^^^.004^^.005
;;^UTILITY(U,$J,112,1660,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1661,0)
;;=CRANBERRY SAUCE, CND, SWEETENED^9-081^cups^276^100^N
;;^UTILITY(U,$J,112,1661,1)
;;=.2^.15^38.9^151^60.65^^^4^.22^3^6^26^29^.05^.02^.06^^20^2^.015
;;^UTILITY(U,$J,112,1661,2)
;;=.021^.1^^.014^^0^^^0^^^^2^.1^^^1
;;^UTILITY(U,$J,112,1661,4)
;;=^^^^^^^^1
;;^UTILITY(U,$J,112,1661,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1662,0)
;;=CRANBERRY-ORANGE RELISH, CND^9-082^cups^276^100^N
;;^UTILITY(U,$J,112,1662,1)
;;=.3^.1^46.2^178^53.2^^^11^.2^4^8^38^32^^.04^^^70^18^.03
;;^UTILITY(U,$J,112,1662,2)
;;=.02^.1^^^^0^^^0^^^^7^.2
;;^UTILITY(U,$J,112,1662,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1663,0)
;;=CURRANTS, EUROPEAN BLACK, RAW^9-083^cups^112^98^N
;;^UTILITY(U,$J,112,1663,1)
;;=1.4^.41^15.38^63^81.96^^^55^1.54^24^59^322^2^.27^.086^.256^1^230^181^.05
;;^UTILITY(U,$J,112,1663,2)
;;=.05^.3^.398^.066^^0^.107^.072^0^.034^.058^.179^23^.86^^^3.9
;;^UTILITY(U,$J,112,1663,4)
;;=^^^.02^.001^.007^.056
;;^UTILITY(U,$J,112,1663,20)
;;=USDA Std. Reference, Release 10;HCF Nutrition Research Foundation, Inc, 1990
;;^UTILITY(U,$J,112,1664,0)
;;=CURRANTS, RED AND WHITE, RAW^9-084^cups^112^98^N
;;^UTILITY(U,$J,112,1664,1)
;;=1.4^.2^13.8^56^83.95^^^33^1^13^44^275^1^.23^.107^.186^.1^120^41^.04
;;^UTILITY(U,$J,112,1664,2)
;;=.05^.1^.064^.07^^0^.053^.035^0^.017^.028^.088^12^.66^^^3.7
;;^UTILITY(U,$J,112,1664,4)
;;=^^^.01^.001^.003^.028
;;^UTILITY(U,$J,112,1664,20)
;;=USDA Std. Reference, Release 10;HCF Nutrition Research Foundation, Inc, 1990
;;^UTILITY(U,$J,112,1665,0)
;;=CURRANTS, ZANTE, DRIED^9-085^cups^144^100^N
;;^UTILITY(U,$J,112,1665,1)
;;=4.08^.27^74.08^283^19.21^^^86^3.26^41^125^892^8^.66^.468^.469^^73^4.7^.16
;;^UTILITY(U,$J,112,1665,2)
;;=.142^1.615^.045^.296^10.2^0^.18^^0^.028^.047^.18^7^2.36^^^2.1
;;^UTILITY(U,$J,112,1665,4)
;;=^^^.019^.002^.009^.045
;;^UTILITY(U,$J,112,1665,20)
;;=USDA Std. Reference, Release 10;HCF Nutrition Research Foundation, Inc, 1990
;;^UTILITY(U,$J,112,1666,0)
;;=DATES, DOMESTIC, NATURAL AND DRY^9-087^dates^8.3^90^N
;;^UTILITY(U,$J,112,1666,1)
;;=1.97^.45^73.51^275^22.5^^^32^1.15^35^40^652^3^.29^.288^.298^^50^0^.09
;;^UTILITY(U,$J,112,1666,2)
;;=.1^2.2^.78^.192^12.6^0^^^0^^^^5^1.58^^^4.4
;;^UTILITY(U,$J,112,1666,3)
;;=.05^.052^.047^.088^.06^.022^.045^.056^.03^.066^.066^.03^.1^.126^.213^.095^.106^.066
;;^UTILITY(U,$J,112,1666,20)
;;=USDA Std. Reference, Release 10;HCF Nutrition Research Foundation, Inc, 1990
;;^UTILITY(U,$J,112,1667,0)
;;=ELDERBERRIES, RAW^9-088^cups^145^100^N
;;^UTILITY(U,$J,112,1667,1)
;;=.66^.5^18.4^73^79.8^^^38^1.6^^39^280^^^^^^600^36^.07
;;^UTILITY(U,$J,112,1667,2)
;;=.06^.5^.14^.23^^0^^^0^^^^60^.64^^^7
;;^UTILITY(U,$J,112,1667,3)
;;=.013^.027^.027^.06^.026^.014^.015^.04^.051^.033^.047^.015^.03^.058^.096^.036^.025^.032
;;^UTILITY(U,$J,112,1667,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1668,0)
;;=FIGS, RAW^9-089^fruits^50^99^N
;;^UTILITY(U,$J,112,1668,1)
;;=.75^.3^19.18^74^79.11^^^35^.37^17^14^232^1^.15^.07^.128^^142^2^.06
;;^UTILITY(U,$J,112,1668,2)
;;=.05^.4^.3^.113^^0^.144^^0^.06^.066^.144^14^.66^^^3
;;^UTILITY(U,$J,112,1668,3)
;;=.006^.024^.023^.033^.03^.006^.012^.018^.032^.028^.017^.011^.045^.176^.072^.025^.049^.037
;;^UTILITY(U,$J,112,1668,4)
;;=^^.002^.046^^.012^.066
;;^UTILITY(U,$J,112,1668,20)
;;=USDA Std. Reference, Release 10;HCF Nutrition Research Foundation, Inc, 1990
;;^UTILITY(U,$J,112,1669,0)
;;=FIGS, CND, WATER PACK^9-090^figs^27^100^N
;;^UTILITY(U,$J,112,1669,1)
;;=.4^.1^13.99^53^85.21^^^28^.29^10^10^103^1^.12^.11^.088^^38^1^.023
;;^UTILITY(U,$J,112,1669,2)
;;=.038^.445^.069^^^0^.048^^0^.02^.022^.048^4^.3^^^2.2
;;^UTILITY(U,$J,112,1669,3)
;;=.003^.013^.012^.017^.016^.003^.007^.01^.017^.015^.009^.006^.024^.094^.039^.014^.026^.02
FHINI04X ; ; 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,1659,0)
+2 ;;=CRANBERRIES, RAW^9-078^cups^95^95^N
+3 ;;^UTILITY(U,$J,112,1659,1)
+4 ;;=.39^.2^12.68^49^86.54^^^7^.2^5^9^71^1^.13^.058^.157^^46^13.5^.03
+5 ;;^UTILITY(U,$J,112,1659,2)
+6 ;;=.02^.1^.219^.065^1.7^0^^^0^^^^5^.19^^^3.3
+7 ;;^UTILITY(U,$J,112,1659,20)
+8 ;;=USDA Std. Reference, Release 10;HCF Nutrition Research Foundation, Inc, 1990
+9 ;;^UTILITY(U,$J,112,1660,0)
+10 ;;=CRANBERRY JUICE COCKTAIL, BOTTLED^14-242^fl oz.^31.6^100^N
+11 ;;^UTILITY(U,$J,112,1660,1)
+12 ;;=0^.1^14.4^57^85.5^^^3^.15^2^2^18^2^.07^.018^.193^^4^35.4^.009
+13 ;;^UTILITY(U,$J,112,1660,2)
+14 ;;=.009^.035^.056^.019^.2^0^.023^^0^.033^^^0^0^^^.1
+15 ;;^UTILITY(U,$J,112,1660,4)
+16 ;;=^^^^^^.004^^.005
+17 ;;^UTILITY(U,$J,112,1660,20)
+18 ;;=USDA Std. Reference, Release 10
+19 ;;^UTILITY(U,$J,112,1661,0)
+20 ;;=CRANBERRY SAUCE, CND, SWEETENED^9-081^cups^276^100^N
+21 ;;^UTILITY(U,$J,112,1661,1)
+22 ;;=.2^.15^38.9^151^60.65^^^4^.22^3^6^26^29^.05^.02^.06^^20^2^.015
+23 ;;^UTILITY(U,$J,112,1661,2)
+24 ;;=.021^.1^^.014^^0^^^0^^^^2^.1^^^1
+25 ;;^UTILITY(U,$J,112,1661,4)
+26 ;;=^^^^^^^^1
+27 ;;^UTILITY(U,$J,112,1661,20)
+28 ;;=USDA Std. Reference, Release 10
+29 ;;^UTILITY(U,$J,112,1662,0)
+30 ;;=CRANBERRY-ORANGE RELISH, CND^9-082^cups^276^100^N
+31 ;;^UTILITY(U,$J,112,1662,1)
+32 ;;=.3^.1^46.2^178^53.2^^^11^.2^4^8^38^32^^.04^^^70^18^.03
+33 ;;^UTILITY(U,$J,112,1662,2)
+34 ;;=.02^.1^^^^0^^^0^^^^7^.2
+35 ;;^UTILITY(U,$J,112,1662,20)
+36 ;;=USDA Std. Reference, Release 10
+37 ;;^UTILITY(U,$J,112,1663,0)
+38 ;;=CURRANTS, EUROPEAN BLACK, RAW^9-083^cups^112^98^N
+39 ;;^UTILITY(U,$J,112,1663,1)
+40 ;;=1.4^.41^15.38^63^81.96^^^55^1.54^24^59^322^2^.27^.086^.256^1^230^181^.05
+41 ;;^UTILITY(U,$J,112,1663,2)
+42 ;;=.05^.3^.398^.066^^0^.107^.072^0^.034^.058^.179^23^.86^^^3.9
+43 ;;^UTILITY(U,$J,112,1663,4)
+44 ;;=^^^.02^.001^.007^.056
+45 ;;^UTILITY(U,$J,112,1663,20)
+46 ;;=USDA Std. Reference, Release 10;HCF Nutrition Research Foundation, Inc, 1990
+47 ;;^UTILITY(U,$J,112,1664,0)
+48 ;;=CURRANTS, RED AND WHITE, RAW^9-084^cups^112^98^N
+49 ;;^UTILITY(U,$J,112,1664,1)
+50 ;;=1.4^.2^13.8^56^83.95^^^33^1^13^44^275^1^.23^.107^.186^.1^120^41^.04
+51 ;;^UTILITY(U,$J,112,1664,2)
+52 ;;=.05^.1^.064^.07^^0^.053^.035^0^.017^.028^.088^12^.66^^^3.7
+53 ;;^UTILITY(U,$J,112,1664,4)
+54 ;;=^^^.01^.001^.003^.028
+55 ;;^UTILITY(U,$J,112,1664,20)
+56 ;;=USDA Std. Reference, Release 10;HCF Nutrition Research Foundation, Inc, 1990
+57 ;;^UTILITY(U,$J,112,1665,0)
+58 ;;=CURRANTS, ZANTE, DRIED^9-085^cups^144^100^N
+59 ;;^UTILITY(U,$J,112,1665,1)
+60 ;;=4.08^.27^74.08^283^19.21^^^86^3.26^41^125^892^8^.66^.468^.469^^73^4.7^.16
+61 ;;^UTILITY(U,$J,112,1665,2)
+62 ;;=.142^1.615^.045^.296^10.2^0^.18^^0^.028^.047^.18^7^2.36^^^2.1
+63 ;;^UTILITY(U,$J,112,1665,4)
+64 ;;=^^^.019^.002^.009^.045
+65 ;;^UTILITY(U,$J,112,1665,20)
+66 ;;=USDA Std. Reference, Release 10;HCF Nutrition Research Foundation, Inc, 1990
+67 ;;^UTILITY(U,$J,112,1666,0)
+68 ;;=DATES, DOMESTIC, NATURAL AND DRY^9-087^dates^8.3^90^N
+69 ;;^UTILITY(U,$J,112,1666,1)
+70 ;;=1.97^.45^73.51^275^22.5^^^32^1.15^35^40^652^3^.29^.288^.298^^50^0^.09
+71 ;;^UTILITY(U,$J,112,1666,2)
+72 ;;=.1^2.2^.78^.192^12.6^0^^^0^^^^5^1.58^^^4.4
+73 ;;^UTILITY(U,$J,112,1666,3)
+74 ;;=.05^.052^.047^.088^.06^.022^.045^.056^.03^.066^.066^.03^.1^.126^.213^.095^.106^.066
+75 ;;^UTILITY(U,$J,112,1666,20)
+76 ;;=USDA Std. Reference, Release 10;HCF Nutrition Research Foundation, Inc, 1990
+77 ;;^UTILITY(U,$J,112,1667,0)
+78 ;;=ELDERBERRIES, RAW^9-088^cups^145^100^N
+79 ;;^UTILITY(U,$J,112,1667,1)
+80 ;;=.66^.5^18.4^73^79.8^^^38^1.6^^39^280^^^^^^600^36^.07
+81 ;;^UTILITY(U,$J,112,1667,2)
+82 ;;=.06^.5^.14^.23^^0^^^0^^^^60^.64^^^7
+83 ;;^UTILITY(U,$J,112,1667,3)
+84 ;;=.013^.027^.027^.06^.026^.014^.015^.04^.051^.033^.047^.015^.03^.058^.096^.036^.025^.032
+85 ;;^UTILITY(U,$J,112,1667,20)
+86 ;;=USDA Std. Reference, Release 10
+87 ;;^UTILITY(U,$J,112,1668,0)
+88 ;;=FIGS, RAW^9-089^fruits^50^99^N
+89 ;;^UTILITY(U,$J,112,1668,1)
+90 ;;=.75^.3^19.18^74^79.11^^^35^.37^17^14^232^1^.15^.07^.128^^142^2^.06
+91 ;;^UTILITY(U,$J,112,1668,2)
+92 ;;=.05^.4^.3^.113^^0^.144^^0^.06^.066^.144^14^.66^^^3
+93 ;;^UTILITY(U,$J,112,1668,3)
+94 ;;=.006^.024^.023^.033^.03^.006^.012^.018^.032^.028^.017^.011^.045^.176^.072^.025^.049^.037
+95 ;;^UTILITY(U,$J,112,1668,4)
+96 ;;=^^.002^.046^^.012^.066
+97 ;;^UTILITY(U,$J,112,1668,20)
+98 ;;=USDA Std. Reference, Release 10;HCF Nutrition Research Foundation, Inc, 1990
+99 ;;^UTILITY(U,$J,112,1669,0)
+100 ;;=FIGS, CND, WATER PACK^9-090^figs^27^100^N
+101 ;;^UTILITY(U,$J,112,1669,1)
+102 ;;=.4^.1^13.99^53^85.21^^^28^.29^10^10^103^1^.12^.11^.088^^38^1^.023
+103 ;;^UTILITY(U,$J,112,1669,2)
+104 ;;=.038^.445^.069^^^0^.048^^0^.02^.022^.048^4^.3^^^2.2
+105 ;;^UTILITY(U,$J,112,1669,3)
+106 ;;=.003^.013^.012^.017^.016^.003^.007^.01^.017^.015^.009^.006^.024^.094^.039^.014^.026^.02
