FHINI04W ; ; 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,1648,1)
;;=.77^.1^8.94^36^89.93^^^11^1.37^6^10^98^7^.07^.07^.076^^754^2.1^.017
;;^UTILITY(U,$J,112,1648,2)
;;=.041^.177^.105^.044^8^0^.015^.015^0^.023^.027^.03^75^.26^^^1.5
;;^UTILITY(U,$J,112,1648,4)
;;=^^.001^.016^^.005^.027
;;^UTILITY(U,$J,112,1648,20)
;;=USDA Std. Reference, Release 10;HCF Nutrition Research Foundation, Inc, 1990
;;^UTILITY(U,$J,112,1649,0)
;;=CHERRIES, SOUR, RED, CND, LIGHT SIRUP ^9-065^cups^252^100^N
;;^UTILITY(U,$J,112,1649,1)
;;=.74^.1^19.3^75^79.62^^^10^1.32^6^10^95^7^.07^.068^.073^^726^2^.016
;;^UTILITY(U,$J,112,1649,2)
;;=.039^.17^.105^.044^7.7^0^.015^.014^0^.022^.026^.029^73^.25
;;^UTILITY(U,$J,112,1649,4)
;;=^^.001^.015^^.005^.026
;;^UTILITY(U,$J,112,1649,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1650,0)
;;=CHERRIES, SOUR, RED, CND, HEAVY SIRUP ^9-066^cups^256^100^N
;;^UTILITY(U,$J,112,1650,1)
;;=.73^.1^23.27^91^75.66^^^10^1.3^6^10^93^7^.06^.066^.072^^714^2^.016
;;^UTILITY(U,$J,112,1650,2)
;;=.039^.168^.105^.044^7.6^0^.015^.014^0^.021^.026^.029^71^.25^^^.8
;;^UTILITY(U,$J,112,1650,4)
;;=^^.001^.015^^.005^.026
;;^UTILITY(U,$J,112,1650,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1651,0)
;;=CHERRIES, SOUR, RED, FRZ, UNSW^9-068^cups^155^100^N
;;^UTILITY(U,$J,112,1651,1)
;;=.92^.44^11.02^46^87.2^^^13^.53^9^16^124^1^.1^.09^.057^^870^1.7^.044
;;^UTILITY(U,$J,112,1651,2)
;;=.034^.137^.178^.067^4.5^0^.067^.065^0^.1^.12^.132^87^.42^^^1.2
;;^UTILITY(U,$J,112,1651,4)
;;=^^.003^.07^.001^.024^.119
;;^UTILITY(U,$J,112,1651,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1652,0)
;;=CHERRIES, SWEET, RAW^9-070^fruits^6.8^90^N
;;^UTILITY(U,$J,112,1652,1)
;;=1.2^.96^16.55^72^80.76^^^15^.39^11^19^224^0^.06^.095^.092^^214^7^.05
;;^UTILITY(U,$J,112,1652,2)
;;=.06^.4^.127^.036^4.2^0^.147^.142^0^.216^.262^.289^21^.53^^^1.6
;;^UTILITY(U,$J,112,1652,4)
;;=^^.005^.152^.003^.052^.259
;;^UTILITY(U,$J,112,1652,20)
;;=USDA Std. Reference, Release 10;HCF Nutrition Research Foundation, Inc, 1990
;;^UTILITY(U,$J,112,1653,0)
;;=CHERRIES, SWEET, CND, WATER PACK^9-071^cups^248^92^N
;;^UTILITY(U,$J,112,1653,1)
;;=.77^.13^11.76^46^87.05^^^11^.36^9^15^131^1^.08^.075^.062^^160^2.2^.022
;;^UTILITY(U,$J,112,1653,2)
;;=.041^.41^.127^.03^4.2^0^.019^.019^0^.028^.034^.038^16^.29^^^.7
;;^UTILITY(U,$J,112,1653,4)
;;=^^.001^.02^^.007^.034
;;^UTILITY(U,$J,112,1653,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1654,0)
;;=CHERRIES, SWEET, CND, JUICE PACK^9-072^cups^250^92^N
;;^UTILITY(U,$J,112,1654,1)
;;=.91^.02^13.81^54^84.95^^^14^.58^12^22^131^3^.1^.073^.061^^125^2.5^.018
;;^UTILITY(U,$J,112,1654,2)
;;=.024^.406^.127^.03^4.2^0^.003^.003^0^.004^.005^.006^13^.31^^^.7
;;^UTILITY(U,$J,112,1654,4)
;;=^^^.003^^.001^.005
;;^UTILITY(U,$J,112,1654,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1655,0)
;;=CHERRIES, SWEET, CND, LIGHT SIRUP ^9-073^cups^252^92^N
;;^UTILITY(U,$J,112,1655,1)
;;=.61^.15^17.29^67^81.56^^^9^.36^9^18^148^3^.1^.145^.06^^157^3.7^.021
;;^UTILITY(U,$J,112,1655,2)
;;=.041^.403^.127^.03^4.2^0^.023^.023^0^.034^.042^.046^16^.38^^^.7
;;^UTILITY(U,$J,112,1655,4)
;;=^^.001^.024^^.008^.041
;;^UTILITY(U,$J,112,1655,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1656,0)
;;=CHERRIES, SWEET, CND, HEAVY SIRUP ^9-074^cups^258^92^N
;;^UTILITY(U,$J,112,1656,1)
;;=.6^.15^21.27^83^77.61^^^9^.35^9^18^145^3^.1^.142^.059^^154^3.6^.021
;;^UTILITY(U,$J,112,1656,2)
;;=.04^.396^.127^.03^4.2^0^.023^.022^0^.034^.041^.045^15^.38^^^.7
;;^UTILITY(U,$J,112,1656,4)
;;=^^.001^.024^^.008^.041
;;^UTILITY(U,$J,112,1656,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1657,0)
;;=CHERRIES, SWEET, FRZ, SWEETENED^9-076^cups^259^100^N
;;^UTILITY(U,$J,112,1657,1)
;;=1.15^.13^22.36^89^75.53^^^12^.35^10^16^199^1^.04^.024^.109^^189^1^.027
;;^UTILITY(U,$J,112,1657,2)
;;=.047^.177^.127^.036^4.2^0^.02^.02^0^.03^.036^.04^19^.83^^^1
;;^UTILITY(U,$J,112,1657,4)
;;=^^.001^.021^^.007^.036
;;^UTILITY(U,$J,112,1657,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1658,0)
;;=CRABAPPLES, RAW^9-077^cups^130^92^N
;;^UTILITY(U,$J,112,1658,1)
;;=.4^.3^19.95^76^78.94^^^18^.36^7^15^194^1^^.067^.115^^40^8^.03
;;^UTILITY(U,$J,112,1658,2)
;;=.02^.1^^^^0^.073^.015^0^.048^.012^.088^4^.42
;;^UTILITY(U,$J,112,1658,3)
;;=.004^.014^.016^.025^.025^.004^.005^.011^.008^.019^.013^.006^.014^.07^.042^.016^.014^.016
;;^UTILITY(U,$J,112,1658,4)
;;=^.001^.001^.04^.001^.006^.011
;;^UTILITY(U,$J,112,1658,20)
;;=USDA Std. Reference, Release 10
FHINI04W ; ; 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,1648,1)
+2 ;;=.77^.1^8.94^36^89.93^^^11^1.37^6^10^98^7^.07^.07^.076^^754^2.1^.017
+3 ;;^UTILITY(U,$J,112,1648,2)
+4 ;;=.041^.177^.105^.044^8^0^.015^.015^0^.023^.027^.03^75^.26^^^1.5
+5 ;;^UTILITY(U,$J,112,1648,4)
+6 ;;=^^.001^.016^^.005^.027
+7 ;;^UTILITY(U,$J,112,1648,20)
+8 ;;=USDA Std. Reference, Release 10;HCF Nutrition Research Foundation, Inc, 1990
+9 ;;^UTILITY(U,$J,112,1649,0)
+10 ;;=CHERRIES, SOUR, RED, CND, LIGHT SIRUP ^9-065^cups^252^100^N
+11 ;;^UTILITY(U,$J,112,1649,1)
+12 ;;=.74^.1^19.3^75^79.62^^^10^1.32^6^10^95^7^.07^.068^.073^^726^2^.016
+13 ;;^UTILITY(U,$J,112,1649,2)
+14 ;;=.039^.17^.105^.044^7.7^0^.015^.014^0^.022^.026^.029^73^.25
+15 ;;^UTILITY(U,$J,112,1649,4)
+16 ;;=^^.001^.015^^.005^.026
+17 ;;^UTILITY(U,$J,112,1649,20)
+18 ;;=USDA Std. Reference, Release 10
+19 ;;^UTILITY(U,$J,112,1650,0)
+20 ;;=CHERRIES, SOUR, RED, CND, HEAVY SIRUP ^9-066^cups^256^100^N
+21 ;;^UTILITY(U,$J,112,1650,1)
+22 ;;=.73^.1^23.27^91^75.66^^^10^1.3^6^10^93^7^.06^.066^.072^^714^2^.016
+23 ;;^UTILITY(U,$J,112,1650,2)
+24 ;;=.039^.168^.105^.044^7.6^0^.015^.014^0^.021^.026^.029^71^.25^^^.8
+25 ;;^UTILITY(U,$J,112,1650,4)
+26 ;;=^^.001^.015^^.005^.026
+27 ;;^UTILITY(U,$J,112,1650,20)
+28 ;;=USDA Std. Reference, Release 10
+29 ;;^UTILITY(U,$J,112,1651,0)
+30 ;;=CHERRIES, SOUR, RED, FRZ, UNSW^9-068^cups^155^100^N
+31 ;;^UTILITY(U,$J,112,1651,1)
+32 ;;=.92^.44^11.02^46^87.2^^^13^.53^9^16^124^1^.1^.09^.057^^870^1.7^.044
+33 ;;^UTILITY(U,$J,112,1651,2)
+34 ;;=.034^.137^.178^.067^4.5^0^.067^.065^0^.1^.12^.132^87^.42^^^1.2
+35 ;;^UTILITY(U,$J,112,1651,4)
+36 ;;=^^.003^.07^.001^.024^.119
+37 ;;^UTILITY(U,$J,112,1651,20)
+38 ;;=USDA Std. Reference, Release 10
+39 ;;^UTILITY(U,$J,112,1652,0)
+40 ;;=CHERRIES, SWEET, RAW^9-070^fruits^6.8^90^N
+41 ;;^UTILITY(U,$J,112,1652,1)
+42 ;;=1.2^.96^16.55^72^80.76^^^15^.39^11^19^224^0^.06^.095^.092^^214^7^.05
+43 ;;^UTILITY(U,$J,112,1652,2)
+44 ;;=.06^.4^.127^.036^4.2^0^.147^.142^0^.216^.262^.289^21^.53^^^1.6
+45 ;;^UTILITY(U,$J,112,1652,4)
+46 ;;=^^.005^.152^.003^.052^.259
+47 ;;^UTILITY(U,$J,112,1652,20)
+48 ;;=USDA Std. Reference, Release 10;HCF Nutrition Research Foundation, Inc, 1990
+49 ;;^UTILITY(U,$J,112,1653,0)
+50 ;;=CHERRIES, SWEET, CND, WATER PACK^9-071^cups^248^92^N
+51 ;;^UTILITY(U,$J,112,1653,1)
+52 ;;=.77^.13^11.76^46^87.05^^^11^.36^9^15^131^1^.08^.075^.062^^160^2.2^.022
+53 ;;^UTILITY(U,$J,112,1653,2)
+54 ;;=.041^.41^.127^.03^4.2^0^.019^.019^0^.028^.034^.038^16^.29^^^.7
+55 ;;^UTILITY(U,$J,112,1653,4)
+56 ;;=^^.001^.02^^.007^.034
+57 ;;^UTILITY(U,$J,112,1653,20)
+58 ;;=USDA Std. Reference, Release 10
+59 ;;^UTILITY(U,$J,112,1654,0)
+60 ;;=CHERRIES, SWEET, CND, JUICE PACK^9-072^cups^250^92^N
+61 ;;^UTILITY(U,$J,112,1654,1)
+62 ;;=.91^.02^13.81^54^84.95^^^14^.58^12^22^131^3^.1^.073^.061^^125^2.5^.018
+63 ;;^UTILITY(U,$J,112,1654,2)
+64 ;;=.024^.406^.127^.03^4.2^0^.003^.003^0^.004^.005^.006^13^.31^^^.7
+65 ;;^UTILITY(U,$J,112,1654,4)
+66 ;;=^^^.003^^.001^.005
+67 ;;^UTILITY(U,$J,112,1654,20)
+68 ;;=USDA Std. Reference, Release 10
+69 ;;^UTILITY(U,$J,112,1655,0)
+70 ;;=CHERRIES, SWEET, CND, LIGHT SIRUP ^9-073^cups^252^92^N
+71 ;;^UTILITY(U,$J,112,1655,1)
+72 ;;=.61^.15^17.29^67^81.56^^^9^.36^9^18^148^3^.1^.145^.06^^157^3.7^.021
+73 ;;^UTILITY(U,$J,112,1655,2)
+74 ;;=.041^.403^.127^.03^4.2^0^.023^.023^0^.034^.042^.046^16^.38^^^.7
+75 ;;^UTILITY(U,$J,112,1655,4)
+76 ;;=^^.001^.024^^.008^.041
+77 ;;^UTILITY(U,$J,112,1655,20)
+78 ;;=USDA Std. Reference, Release 10
+79 ;;^UTILITY(U,$J,112,1656,0)
+80 ;;=CHERRIES, SWEET, CND, HEAVY SIRUP ^9-074^cups^258^92^N
+81 ;;^UTILITY(U,$J,112,1656,1)
+82 ;;=.6^.15^21.27^83^77.61^^^9^.35^9^18^145^3^.1^.142^.059^^154^3.6^.021
+83 ;;^UTILITY(U,$J,112,1656,2)
+84 ;;=.04^.396^.127^.03^4.2^0^.023^.022^0^.034^.041^.045^15^.38^^^.7
+85 ;;^UTILITY(U,$J,112,1656,4)
+86 ;;=^^.001^.024^^.008^.041
+87 ;;^UTILITY(U,$J,112,1656,20)
+88 ;;=USDA Std. Reference, Release 10
+89 ;;^UTILITY(U,$J,112,1657,0)
+90 ;;=CHERRIES, SWEET, FRZ, SWEETENED^9-076^cups^259^100^N
+91 ;;^UTILITY(U,$J,112,1657,1)
+92 ;;=1.15^.13^22.36^89^75.53^^^12^.35^10^16^199^1^.04^.024^.109^^189^1^.027
+93 ;;^UTILITY(U,$J,112,1657,2)
+94 ;;=.047^.177^.127^.036^4.2^0^.02^.02^0^.03^.036^.04^19^.83^^^1
+95 ;;^UTILITY(U,$J,112,1657,4)
+96 ;;=^^.001^.021^^.007^.036
+97 ;;^UTILITY(U,$J,112,1657,20)
+98 ;;=USDA Std. Reference, Release 10
+99 ;;^UTILITY(U,$J,112,1658,0)
+100 ;;=CRABAPPLES, RAW^9-077^cups^130^92^N
+101 ;;^UTILITY(U,$J,112,1658,1)
+102 ;;=.4^.3^19.95^76^78.94^^^18^.36^7^15^194^1^^.067^.115^^40^8^.03
+103 ;;^UTILITY(U,$J,112,1658,2)
+104 ;;=.02^.1^^^^0^.073^.015^0^.048^.012^.088^4^.42
+105 ;;^UTILITY(U,$J,112,1658,3)
+106 ;;=.004^.014^.016^.025^.025^.004^.005^.011^.008^.019^.013^.006^.014^.07^.042^.016^.014^.016
+107 ;;^UTILITY(U,$J,112,1658,4)
+108 ;;=^.001^.001^.04^.001^.006^.011
+109 ;;^UTILITY(U,$J,112,1658,20)
+110 ;;=USDA Std. Reference, Release 10
