FHINI04V ; ; 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,1636,20)
;;=USDA Std. Reference, Release 10;HCF Nutrition Research Foundation, Inc, 1990
;;^UTILITY(U,$J,112,1637,0)
;;=BLACKBERRIES, CND, HEAVY SIRUP^9-046^cups^256^100^N
;;^UTILITY(U,$J,112,1637,1)
;;=1.31^.14^23.1^92^75.06^^^21^.65^17^14^99^3^.18^.133^.697^^219^2.8^.027
;;^UTILITY(U,$J,112,1637,2)
;;=.039^.287^.151^.036^26.5^0^^^0^^^^22^.39^^^3.4
;;^UTILITY(U,$J,112,1637,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1638,0)
;;=BLACKBERRIES, FRZ, UNSW^9-048^cups^151^100^N
;;^UTILITY(U,$J,112,1638,1)
;;=1.18^.43^15.67^64^82.21^^^29^.8^22^30^140^1^.25^.12^1.223^^114^3.1^.029
;;^UTILITY(U,$J,112,1638,2)
;;=.046^1.207^.151^.061^34^0^^^0^^^^11^.51^^^5
;;^UTILITY(U,$J,112,1638,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1639,0)
;;=BLUEBERRIES, RAW^9-050^cups^145^98^N
;;^UTILITY(U,$J,112,1639,1)
;;=.67^.38^14.13^56^84.61^^^6^.17^5^10^89^6^.11^.061^.282^^100^13^.048
;;^UTILITY(U,$J,112,1639,2)
;;=.05^.359^.093^.036^6.4^0^^^0^^^^10^.21^^^1.3
;;^UTILITY(U,$J,112,1639,3)
;;=.003^.018^.021^.04^.012^.011^.007^.024^.008^.028^.034^.01^.028^.052^.083^.028^.025^.02
;;^UTILITY(U,$J,112,1639,20)
;;=USDA Std. Reference, Release 10;HCF Nutrition Research Foundation, Inc, 1990
;;^UTILITY(U,$J,112,1640,0)
;;=BLUEBERRIES, CND, HEAVY SIRUP^9-052^cups^256^100^N
;;^UTILITY(U,$J,112,1640,1)
;;=.65^.33^22.06^88^76.78^^^5^.33^4^10^40^3^.07^.053^.203^^64^1.1^.034
;;^UTILITY(U,$J,112,1640,2)
;;=.053^.113^.089^.036^1.6^0^^^0^^^^6^.17^^^1.5
;;^UTILITY(U,$J,112,1640,3)
;;=.003^.018^.02^.039^.012^.01^.007^.023^.008^.027^.033^.01^.028^.051^.081^.027^.024^.02
;;^UTILITY(U,$J,112,1640,4)
;;=^^^^^^^^6
;;^UTILITY(U,$J,112,1640,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1641,0)
;;=BLUEBERRIES, FRZ, UNSW^9-054^cups^155^100^N
;;^UTILITY(U,$J,112,1641,1)
;;=.42^.64^12.17^51^86.59^^^8^.18^5^11^54^1^.07^.033^.147^^81^2.5^.032
;;^UTILITY(U,$J,112,1641,2)
;;=.037^.52^.125^.059^6.7^0^^^0^^^^8^.18^^^2.7
;;^UTILITY(U,$J,112,1641,3)
;;=.002^.012^.013^.025^.008^.007^.004^.015^.005^.018^.022^.006^.018^.033^.052^.017^.015^.013
;;^UTILITY(U,$J,112,1641,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1642,0)
;;=BLUEBERRIES, FRZ, SWEETENED^9-055^cups^230^100^N
;;^UTILITY(U,$J,112,1642,1)
;;=.4^.13^21.95^81^77.4^^^6^.39^2^7^60^1^.06^.039^.262^^44^1^.02
;;^UTILITY(U,$J,112,1642,2)
;;=.052^.253^.125^.059^6.7^0^^^0^^^^4^.12^^^2.1
;;^UTILITY(U,$J,112,1642,3)
;;=.002^.011^.012^.023^.007^.006^.004^.014^.005^.017^.02^.006^.017^.031^.049^.016^.015^.012
;;^UTILITY(U,$J,112,1642,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1643,0)
;;=BOYSENBERRIES, CND, UNSW^9-056^cups^156^100^N
;;^UTILITY(U,$J,112,1643,1)
;;=.99^.12^22.31^88^76.26^^^18^.43^11^10^90^3^.19^.07^.25^^40^6.2^.026
;;^UTILITY(U,$J,112,1643,2)
;;=.029^.23^.131^.038^34.4^0^^^0^^^^4^.32^^^2.6
;;^UTILITY(U,$J,112,1643,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1644,0)
;;=BOYSENBERRIES, FRZ, UNSW^9-057^cups^132^100^N
;;^UTILITY(U,$J,112,1644,1)
;;=1.1^.26^12.19^50^85.9^^^27^.85^16^27^139^1^.22^.08^.547^^67^3.1^.053
;;^UTILITY(U,$J,112,1644,2)
;;=.037^.767^.25^.056^63.3^0^^^0^^^^7^.54^^^3.9
;;^UTILITY(U,$J,112,1644,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1645,0)
;;=BREADFRUIT, RAW^9-059^oz.^28.3^78^N
;;^UTILITY(U,$J,112,1645,1)
;;=1.07^.23^27.12^103^70.65^^^17^.54^25^30^490^2^.12^.084^.06^^40^29^.11
;;^UTILITY(U,$J,112,1645,2)
;;=.03^.9^.457^^^0^^^0^^^^4^.93^^^4.9
;;^UTILITY(U,$J,112,1645,3)
;;=^.052^.064^.065^.037^.01^.009^.026^.019^.047
;;^UTILITY(U,$J,112,1645,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1646,0)
;;=CARAMBOLA, (STARFRUIT), RAW^9-060^fruits^127^95^N
;;^UTILITY(U,$J,112,1646,1)
;;=.54^.35^7.83^33^90.92^^^4^.26^9^16^163^2^.11^.12^.082^^493^21.2^.028
;;^UTILITY(U,$J,112,1646,2)
;;=.027^.411^^^^0^^^0^^^^49^.37^^^2.7
;;^UTILITY(U,$J,112,1646,3)
;;=.004^.023^.023^.04^.04^.011^^.019^.023^.026^.011^.004^.037^.051^.077^.026^.026^.043
;;^UTILITY(U,$J,112,1646,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1647,0)
;;=CHERRIES, SOUR, RED, RAW^9-063^cups^103^90^N
;;^UTILITY(U,$J,112,1647,1)
;;=1^.3^12.18^50^86.13^^^16^.32^9^15^173^3^.1^.104^.112^.13^1283^10^.03
;;^UTILITY(U,$J,112,1647,2)
;;=.04^.4^.143^.044^7.5^0^.046^.044^0^.068^.082^.09^128^.4^^^1.2
;;^UTILITY(U,$J,112,1647,4)
;;=^^.002^.048^.001^.016^.081
;;^UTILITY(U,$J,112,1647,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1648,0)
;;=CHERRIES, SOUR, RED, CND, WATER ^9-064^cups^244^100^N
FHINI04V ; ; 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,1636,20)
+2 ;;=USDA Std. Reference, Release 10;HCF Nutrition Research Foundation, Inc, 1990
+3 ;;^UTILITY(U,$J,112,1637,0)
+4 ;;=BLACKBERRIES, CND, HEAVY SIRUP^9-046^cups^256^100^N
+5 ;;^UTILITY(U,$J,112,1637,1)
+6 ;;=1.31^.14^23.1^92^75.06^^^21^.65^17^14^99^3^.18^.133^.697^^219^2.8^.027
+7 ;;^UTILITY(U,$J,112,1637,2)
+8 ;;=.039^.287^.151^.036^26.5^0^^^0^^^^22^.39^^^3.4
+9 ;;^UTILITY(U,$J,112,1637,20)
+10 ;;=USDA Std. Reference, Release 10
+11 ;;^UTILITY(U,$J,112,1638,0)
+12 ;;=BLACKBERRIES, FRZ, UNSW^9-048^cups^151^100^N
+13 ;;^UTILITY(U,$J,112,1638,1)
+14 ;;=1.18^.43^15.67^64^82.21^^^29^.8^22^30^140^1^.25^.12^1.223^^114^3.1^.029
+15 ;;^UTILITY(U,$J,112,1638,2)
+16 ;;=.046^1.207^.151^.061^34^0^^^0^^^^11^.51^^^5
+17 ;;^UTILITY(U,$J,112,1638,20)
+18 ;;=USDA Std. Reference, Release 10
+19 ;;^UTILITY(U,$J,112,1639,0)
+20 ;;=BLUEBERRIES, RAW^9-050^cups^145^98^N
+21 ;;^UTILITY(U,$J,112,1639,1)
+22 ;;=.67^.38^14.13^56^84.61^^^6^.17^5^10^89^6^.11^.061^.282^^100^13^.048
+23 ;;^UTILITY(U,$J,112,1639,2)
+24 ;;=.05^.359^.093^.036^6.4^0^^^0^^^^10^.21^^^1.3
+25 ;;^UTILITY(U,$J,112,1639,3)
+26 ;;=.003^.018^.021^.04^.012^.011^.007^.024^.008^.028^.034^.01^.028^.052^.083^.028^.025^.02
+27 ;;^UTILITY(U,$J,112,1639,20)
+28 ;;=USDA Std. Reference, Release 10;HCF Nutrition Research Foundation, Inc, 1990
+29 ;;^UTILITY(U,$J,112,1640,0)
+30 ;;=BLUEBERRIES, CND, HEAVY SIRUP^9-052^cups^256^100^N
+31 ;;^UTILITY(U,$J,112,1640,1)
+32 ;;=.65^.33^22.06^88^76.78^^^5^.33^4^10^40^3^.07^.053^.203^^64^1.1^.034
+33 ;;^UTILITY(U,$J,112,1640,2)
+34 ;;=.053^.113^.089^.036^1.6^0^^^0^^^^6^.17^^^1.5
+35 ;;^UTILITY(U,$J,112,1640,3)
+36 ;;=.003^.018^.02^.039^.012^.01^.007^.023^.008^.027^.033^.01^.028^.051^.081^.027^.024^.02
+37 ;;^UTILITY(U,$J,112,1640,4)
+38 ;;=^^^^^^^^6
+39 ;;^UTILITY(U,$J,112,1640,20)
+40 ;;=USDA Std. Reference, Release 10
+41 ;;^UTILITY(U,$J,112,1641,0)
+42 ;;=BLUEBERRIES, FRZ, UNSW^9-054^cups^155^100^N
+43 ;;^UTILITY(U,$J,112,1641,1)
+44 ;;=.42^.64^12.17^51^86.59^^^8^.18^5^11^54^1^.07^.033^.147^^81^2.5^.032
+45 ;;^UTILITY(U,$J,112,1641,2)
+46 ;;=.037^.52^.125^.059^6.7^0^^^0^^^^8^.18^^^2.7
+47 ;;^UTILITY(U,$J,112,1641,3)
+48 ;;=.002^.012^.013^.025^.008^.007^.004^.015^.005^.018^.022^.006^.018^.033^.052^.017^.015^.013
+49 ;;^UTILITY(U,$J,112,1641,20)
+50 ;;=USDA Std. Reference, Release 10
+51 ;;^UTILITY(U,$J,112,1642,0)
+52 ;;=BLUEBERRIES, FRZ, SWEETENED^9-055^cups^230^100^N
+53 ;;^UTILITY(U,$J,112,1642,1)
+54 ;;=.4^.13^21.95^81^77.4^^^6^.39^2^7^60^1^.06^.039^.262^^44^1^.02
+55 ;;^UTILITY(U,$J,112,1642,2)
+56 ;;=.052^.253^.125^.059^6.7^0^^^0^^^^4^.12^^^2.1
+57 ;;^UTILITY(U,$J,112,1642,3)
+58 ;;=.002^.011^.012^.023^.007^.006^.004^.014^.005^.017^.02^.006^.017^.031^.049^.016^.015^.012
+59 ;;^UTILITY(U,$J,112,1642,20)
+60 ;;=USDA Std. Reference, Release 10
+61 ;;^UTILITY(U,$J,112,1643,0)
+62 ;;=BOYSENBERRIES, CND, UNSW^9-056^cups^156^100^N
+63 ;;^UTILITY(U,$J,112,1643,1)
+64 ;;=.99^.12^22.31^88^76.26^^^18^.43^11^10^90^3^.19^.07^.25^^40^6.2^.026
+65 ;;^UTILITY(U,$J,112,1643,2)
+66 ;;=.029^.23^.131^.038^34.4^0^^^0^^^^4^.32^^^2.6
+67 ;;^UTILITY(U,$J,112,1643,20)
+68 ;;=USDA Std. Reference, Release 10
+69 ;;^UTILITY(U,$J,112,1644,0)
+70 ;;=BOYSENBERRIES, FRZ, UNSW^9-057^cups^132^100^N
+71 ;;^UTILITY(U,$J,112,1644,1)
+72 ;;=1.1^.26^12.19^50^85.9^^^27^.85^16^27^139^1^.22^.08^.547^^67^3.1^.053
+73 ;;^UTILITY(U,$J,112,1644,2)
+74 ;;=.037^.767^.25^.056^63.3^0^^^0^^^^7^.54^^^3.9
+75 ;;^UTILITY(U,$J,112,1644,20)
+76 ;;=USDA Std. Reference, Release 10
+77 ;;^UTILITY(U,$J,112,1645,0)
+78 ;;=BREADFRUIT, RAW^9-059^oz.^28.3^78^N
+79 ;;^UTILITY(U,$J,112,1645,1)
+80 ;;=1.07^.23^27.12^103^70.65^^^17^.54^25^30^490^2^.12^.084^.06^^40^29^.11
+81 ;;^UTILITY(U,$J,112,1645,2)
+82 ;;=.03^.9^.457^^^0^^^0^^^^4^.93^^^4.9
+83 ;;^UTILITY(U,$J,112,1645,3)
+84 ;;=^.052^.064^.065^.037^.01^.009^.026^.019^.047
+85 ;;^UTILITY(U,$J,112,1645,20)
+86 ;;=USDA Std. Reference, Release 10
+87 ;;^UTILITY(U,$J,112,1646,0)
+88 ;;=CARAMBOLA, (STARFRUIT), RAW^9-060^fruits^127^95^N
+89 ;;^UTILITY(U,$J,112,1646,1)
+90 ;;=.54^.35^7.83^33^90.92^^^4^.26^9^16^163^2^.11^.12^.082^^493^21.2^.028
+91 ;;^UTILITY(U,$J,112,1646,2)
+92 ;;=.027^.411^^^^0^^^0^^^^49^.37^^^2.7
+93 ;;^UTILITY(U,$J,112,1646,3)
+94 ;;=.004^.023^.023^.04^.04^.011^^.019^.023^.026^.011^.004^.037^.051^.077^.026^.026^.043
+95 ;;^UTILITY(U,$J,112,1646,20)
+96 ;;=USDA Std. Reference, Release 10
+97 ;;^UTILITY(U,$J,112,1647,0)
+98 ;;=CHERRIES, SOUR, RED, RAW^9-063^cups^103^90^N
+99 ;;^UTILITY(U,$J,112,1647,1)
+100 ;;=1^.3^12.18^50^86.13^^^16^.32^9^15^173^3^.1^.104^.112^.13^1283^10^.03
+101 ;;^UTILITY(U,$J,112,1647,2)
+102 ;;=.04^.4^.143^.044^7.5^0^.046^.044^0^.068^.082^.09^128^.4^^^1.2
+103 ;;^UTILITY(U,$J,112,1647,4)
+104 ;;=^^.002^.048^.001^.016^.081
+105 ;;^UTILITY(U,$J,112,1647,20)
+106 ;;=USDA Std. Reference, Release 10
+107 ;;^UTILITY(U,$J,112,1648,0)
+108 ;;=CHERRIES, SOUR, RED, CND, WATER ^9-064^cups^244^100^N
