FHINI05B ; ; 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,1798,2)
;;=.029^.203^.065^.025^8.2^0^^^0^^^^11^.72^^^1.8
;;^UTILITY(U,$J,112,1798,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1799,0)
;;=RHUBARB, FRZ, CKD, W/SUGAR^9-310^cups^240^100^N
;;^UTILITY(U,$J,112,1799,1)
;;=.39^.05^31.2^116^67.79^^^145^.21^12^8^96^1^.08^.027^.073^^69^3.3^.018
;;^UTILITY(U,$J,112,1799,2)
;;=.023^.2^.05^.02^5.3^0^^^0^^^^7^.56^^^2
;;^UTILITY(U,$J,112,1799,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1800,0)
;;=SAPODILLA, RAW^9-313^fruits^170^80^N
;;^UTILITY(U,$J,112,1800,1)
;;=.44^1.1^19.96^83^78^^^21^.8^^12^193^12^^^^^60^14.7^0
;;^UTILITY(U,$J,112,1800,2)
;;=.02^.2^.252^.037^^0^^^0^^^^6^.5^^^5.3
;;^UTILITY(U,$J,112,1800,3)
;;=.005^.012^.015^.024^.039^.003^^.013^.014^.016^.017^.016^.014^.032^.038^.017^.036^.018
;;^UTILITY(U,$J,112,1800,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1801,0)
;;=SAPOTES, (MARMALADE PLUM), RAW^9-314^fruits^225^71^N
;;^UTILITY(U,$J,112,1801,1)
;;=2.12^.6^33.76^134^62.43^^^39^1^30^28^344^10^^^^^410^20^.01
;;^UTILITY(U,$J,112,1801,2)
;;=.02^1.8^^^^0^^^0^^^^41^1.1^^^2.6
;;^UTILITY(U,$J,112,1801,3)
;;=.023^.058^.046^.084^.096^.016^^.053^.055^.077^.055^.042^.115^.532^.216^.057^.057^.227
;;^UTILITY(U,$J,112,1801,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1802,0)
;;=STRAWBERRIES, RAW^9-316^cups^149^94^N
;;^UTILITY(U,$J,112,1802,1)
;;=.61^.37^7.02^30^91.57^^^14^.38^10^19^166^1^.13^.049^.29^.12^27^56.7^.02
;;^UTILITY(U,$J,112,1802,2)
;;=.066^.23^.34^.059^17.7^0^.108^.078^0^.02^.052^.186^3^.43^^^1.5
;;^UTILITY(U,$J,112,1802,3)
;;=.007^.019^.014^.031^.025^.001^.005^.018^.021^.018^.026^.012^.031^.138^.09^.024^.019^.023
;;^UTILITY(U,$J,112,1802,4)
;;=^^^.014^.001^.004^.051^^14
;;^UTILITY(U,$J,112,1802,20)
;;=USDA Std. Reference, Release 10;HCF Nutrition Research Foundation, Inc, 1990
;;^UTILITY(U,$J,112,1803,0)
;;=STRAWBERRIES, CND, HEAVY SIRUP ^9-317^cups^254^100^N
;;^UTILITY(U,$J,112,1803,1)
;;=.56^.26^23.53^92^75.35^^^13^.49^8^12^86^4^.09^.063^.2^^26^31.7^.021
;;^UTILITY(U,$J,112,1803,2)
;;=.034^.057^.179^.049^28^0^.075^.054^0^.014^.036^.129^3^.3^^^1.4
;;^UTILITY(U,$J,112,1803,3)
;;=.006^.017^.013^.029^.023^.001^.005^.016^.019^.016^.024^.011^.028^.127^.083^.022^.018^.021
;;^UTILITY(U,$J,112,1803,4)
;;=^^^.01^.001^.002^.035
;;^UTILITY(U,$J,112,1803,20)
;;=USDA Std. Reference, Release 10;HCF Nutrition Research Foundation, Inc, 1990
;;^UTILITY(U,$J,112,1804,0)
;;=STRAWBERRIES, FRZ, UNSW^9-318^cups^149^100^N
;;^UTILITY(U,$J,112,1804,1)
;;=.43^.11^9.13^35^89.97^^^16^.75^11^13^148^2^.13^.049^.29^.21^45^41.2^.022
;;^UTILITY(U,$J,112,1804,2)
;;=.037^.462^.108^.028^16.8^0^.031^.023^0^.006^.015^.054^4^.37^^^2.1
;;^UTILITY(U,$J,112,1804,3)
;;=.005^.013^.01^.022^.017^.001^.004^.012^.014^.012^.018^.008^.021^.096^.063^.017^.013^.016
;;^UTILITY(U,$J,112,1804,4)
;;=^^^.004^^.001^.015
;;^UTILITY(U,$J,112,1804,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1805,0)
;;=STRAWBERRIES, FRZ, SWEETENED, WHOLE^9-319^cups^255^100^N
;;^UTILITY(U,$J,112,1805,1)
;;=.52^.14^21^78^78.05^^^11^.47^6^12^98^1^.05^.019^.249^^27^39.5^.015
;;^UTILITY(U,$J,112,1805,2)
;;=.077^.293^.108^.028^3.8^0^.04^.029^0^.007^.019^.068^3^.3^^^1.9
;;^UTILITY(U,$J,112,1805,3)
;;=.006^.016^.012^.026^.021^.001^.004^.015^.017^.015^.022^.01^.026^.116^.076^.02^.016^.019
;;^UTILITY(U,$J,112,1805,4)
;;=^^^.005^^.001^.019^^^.7
;;^UTILITY(U,$J,112,1805,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1806,0)
;;=STRAWBERRIES, FRZ, SWEETENED, SLICED^9-320^cups^255^100^N
;;^UTILITY(U,$J,112,1806,1)
;;=.53^.13^25.92^96^73.18^^^11^.59^7^13^98^3^.06^.02^.25^^24^41.4^.016
;;^UTILITY(U,$J,112,1806,2)
;;=.051^.401^.108^.03^14.9^0^.037^.027^0^.007^.018^.064^2^.24^^^1.9
;;^UTILITY(U,$J,112,1806,3)
;;=.006^.016^.012^.027^.022^.001^.005^.015^.018^.015^.023^.01^.027^.12^.078^.021^.017^.02
;;^UTILITY(U,$J,112,1806,4)
;;=^^^.005^^.001^.018
;;^UTILITY(U,$J,112,1806,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1807,0)
;;=FRUIT SALAD, TROPICAL, CND, HVY SIRUP, SOL&LIQ^9-325^cups^256^100^N
;;^UTILITY(U,$J,112,1807,1)
;;=.41^.1^22.36^86^76.78^^^13^.52^13^7^131^2^.11^.08^^^127^17.5^.054
;;^UTILITY(U,$J,112,1807,2)
;;=.045^.562^^^^0^^^0^^^^13^.35^^^1.3
;;^UTILITY(U,$J,112,1807,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1808,0)
;;=WATERMELON, RAW^9-326^cups^160^52^N
;;^UTILITY(U,$J,112,1808,1)
;;=.62^.43^7.18^32^91.51^^^8^.17^11^9^116^2^.07^.032^.037^^366^9.6^.08
;;^UTILITY(U,$J,112,1808,2)
;;=.02^.2^.212^.144^2.2^0^^^0^^^^37^.26^^^.3
FHINI05B ; ; 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,1798,2)
+2 ;;=.029^.203^.065^.025^8.2^0^^^0^^^^11^.72^^^1.8
+3 ;;^UTILITY(U,$J,112,1798,20)
+4 ;;=USDA Std. Reference, Release 10
+5 ;;^UTILITY(U,$J,112,1799,0)
+6 ;;=RHUBARB, FRZ, CKD, W/SUGAR^9-310^cups^240^100^N
+7 ;;^UTILITY(U,$J,112,1799,1)
+8 ;;=.39^.05^31.2^116^67.79^^^145^.21^12^8^96^1^.08^.027^.073^^69^3.3^.018
+9 ;;^UTILITY(U,$J,112,1799,2)
+10 ;;=.023^.2^.05^.02^5.3^0^^^0^^^^7^.56^^^2
+11 ;;^UTILITY(U,$J,112,1799,20)
+12 ;;=USDA Std. Reference, Release 10
+13 ;;^UTILITY(U,$J,112,1800,0)
+14 ;;=SAPODILLA, RAW^9-313^fruits^170^80^N
+15 ;;^UTILITY(U,$J,112,1800,1)
+16 ;;=.44^1.1^19.96^83^78^^^21^.8^^12^193^12^^^^^60^14.7^0
+17 ;;^UTILITY(U,$J,112,1800,2)
+18 ;;=.02^.2^.252^.037^^0^^^0^^^^6^.5^^^5.3
+19 ;;^UTILITY(U,$J,112,1800,3)
+20 ;;=.005^.012^.015^.024^.039^.003^^.013^.014^.016^.017^.016^.014^.032^.038^.017^.036^.018
+21 ;;^UTILITY(U,$J,112,1800,20)
+22 ;;=USDA Std. Reference, Release 10
+23 ;;^UTILITY(U,$J,112,1801,0)
+24 ;;=SAPOTES, (MARMALADE PLUM), RAW^9-314^fruits^225^71^N
+25 ;;^UTILITY(U,$J,112,1801,1)
+26 ;;=2.12^.6^33.76^134^62.43^^^39^1^30^28^344^10^^^^^410^20^.01
+27 ;;^UTILITY(U,$J,112,1801,2)
+28 ;;=.02^1.8^^^^0^^^0^^^^41^1.1^^^2.6
+29 ;;^UTILITY(U,$J,112,1801,3)
+30 ;;=.023^.058^.046^.084^.096^.016^^.053^.055^.077^.055^.042^.115^.532^.216^.057^.057^.227
+31 ;;^UTILITY(U,$J,112,1801,20)
+32 ;;=USDA Std. Reference, Release 10
+33 ;;^UTILITY(U,$J,112,1802,0)
+34 ;;=STRAWBERRIES, RAW^9-316^cups^149^94^N
+35 ;;^UTILITY(U,$J,112,1802,1)
+36 ;;=.61^.37^7.02^30^91.57^^^14^.38^10^19^166^1^.13^.049^.29^.12^27^56.7^.02
+37 ;;^UTILITY(U,$J,112,1802,2)
+38 ;;=.066^.23^.34^.059^17.7^0^.108^.078^0^.02^.052^.186^3^.43^^^1.5
+39 ;;^UTILITY(U,$J,112,1802,3)
+40 ;;=.007^.019^.014^.031^.025^.001^.005^.018^.021^.018^.026^.012^.031^.138^.09^.024^.019^.023
+41 ;;^UTILITY(U,$J,112,1802,4)
+42 ;;=^^^.014^.001^.004^.051^^14
+43 ;;^UTILITY(U,$J,112,1802,20)
+44 ;;=USDA Std. Reference, Release 10;HCF Nutrition Research Foundation, Inc, 1990
+45 ;;^UTILITY(U,$J,112,1803,0)
+46 ;;=STRAWBERRIES, CND, HEAVY SIRUP ^9-317^cups^254^100^N
+47 ;;^UTILITY(U,$J,112,1803,1)
+48 ;;=.56^.26^23.53^92^75.35^^^13^.49^8^12^86^4^.09^.063^.2^^26^31.7^.021
+49 ;;^UTILITY(U,$J,112,1803,2)
+50 ;;=.034^.057^.179^.049^28^0^.075^.054^0^.014^.036^.129^3^.3^^^1.4
+51 ;;^UTILITY(U,$J,112,1803,3)
+52 ;;=.006^.017^.013^.029^.023^.001^.005^.016^.019^.016^.024^.011^.028^.127^.083^.022^.018^.021
+53 ;;^UTILITY(U,$J,112,1803,4)
+54 ;;=^^^.01^.001^.002^.035
+55 ;;^UTILITY(U,$J,112,1803,20)
+56 ;;=USDA Std. Reference, Release 10;HCF Nutrition Research Foundation, Inc, 1990
+57 ;;^UTILITY(U,$J,112,1804,0)
+58 ;;=STRAWBERRIES, FRZ, UNSW^9-318^cups^149^100^N
+59 ;;^UTILITY(U,$J,112,1804,1)
+60 ;;=.43^.11^9.13^35^89.97^^^16^.75^11^13^148^2^.13^.049^.29^.21^45^41.2^.022
+61 ;;^UTILITY(U,$J,112,1804,2)
+62 ;;=.037^.462^.108^.028^16.8^0^.031^.023^0^.006^.015^.054^4^.37^^^2.1
+63 ;;^UTILITY(U,$J,112,1804,3)
+64 ;;=.005^.013^.01^.022^.017^.001^.004^.012^.014^.012^.018^.008^.021^.096^.063^.017^.013^.016
+65 ;;^UTILITY(U,$J,112,1804,4)
+66 ;;=^^^.004^^.001^.015
+67 ;;^UTILITY(U,$J,112,1804,20)
+68 ;;=USDA Std. Reference, Release 10
+69 ;;^UTILITY(U,$J,112,1805,0)
+70 ;;=STRAWBERRIES, FRZ, SWEETENED, WHOLE^9-319^cups^255^100^N
+71 ;;^UTILITY(U,$J,112,1805,1)
+72 ;;=.52^.14^21^78^78.05^^^11^.47^6^12^98^1^.05^.019^.249^^27^39.5^.015
+73 ;;^UTILITY(U,$J,112,1805,2)
+74 ;;=.077^.293^.108^.028^3.8^0^.04^.029^0^.007^.019^.068^3^.3^^^1.9
+75 ;;^UTILITY(U,$J,112,1805,3)
+76 ;;=.006^.016^.012^.026^.021^.001^.004^.015^.017^.015^.022^.01^.026^.116^.076^.02^.016^.019
+77 ;;^UTILITY(U,$J,112,1805,4)
+78 ;;=^^^.005^^.001^.019^^^.7
+79 ;;^UTILITY(U,$J,112,1805,20)
+80 ;;=USDA Std. Reference, Release 10
+81 ;;^UTILITY(U,$J,112,1806,0)
+82 ;;=STRAWBERRIES, FRZ, SWEETENED, SLICED^9-320^cups^255^100^N
+83 ;;^UTILITY(U,$J,112,1806,1)
+84 ;;=.53^.13^25.92^96^73.18^^^11^.59^7^13^98^3^.06^.02^.25^^24^41.4^.016
+85 ;;^UTILITY(U,$J,112,1806,2)
+86 ;;=.051^.401^.108^.03^14.9^0^.037^.027^0^.007^.018^.064^2^.24^^^1.9
+87 ;;^UTILITY(U,$J,112,1806,3)
+88 ;;=.006^.016^.012^.027^.022^.001^.005^.015^.018^.015^.023^.01^.027^.12^.078^.021^.017^.02
+89 ;;^UTILITY(U,$J,112,1806,4)
+90 ;;=^^^.005^^.001^.018
+91 ;;^UTILITY(U,$J,112,1806,20)
+92 ;;=USDA Std. Reference, Release 10
+93 ;;^UTILITY(U,$J,112,1807,0)
+94 ;;=FRUIT SALAD, TROPICAL, CND, HVY SIRUP, SOL&LIQ^9-325^cups^256^100^N
+95 ;;^UTILITY(U,$J,112,1807,1)
+96 ;;=.41^.1^22.36^86^76.78^^^13^.52^13^7^131^2^.11^.08^^^127^17.5^.054
+97 ;;^UTILITY(U,$J,112,1807,2)
+98 ;;=.045^.562^^^^0^^^0^^^^13^.35^^^1.3
+99 ;;^UTILITY(U,$J,112,1807,20)
+100 ;;=USDA Std. Reference, Release 10
+101 ;;^UTILITY(U,$J,112,1808,0)
+102 ;;=WATERMELON, RAW^9-326^cups^160^52^N
+103 ;;^UTILITY(U,$J,112,1808,1)
+104 ;;=.62^.43^7.18^32^91.51^^^8^.17^11^9^116^2^.07^.032^.037^^366^9.6^.08
+105 ;;^UTILITY(U,$J,112,1808,2)
+106 ;;=.02^.2^.212^.144^2.2^0^^^0^^^^37^.26^^^.3
