FHINI05M ; ; 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,1926,3)
;;=.112^.052^.039^.039^.045^.006^.06^.037^.051^.047^.064^.017^.067^.337^.618^.092^.039^.086
;;^UTILITY(U,$J,112,1926,4)
;;=^^^.043^.002^.007^.013^^^5.3
;;^UTILITY(U,$J,112,1926,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1927,0)
;;=TEA, INSTANT, CARBOHYDRATE ADDED, BEVERAGE^14-367^fl. oz.^29.6^100^N
;;^UTILITY(U,$J,112,1927,1)
;;=0^0^.2^1^99.7^^^2^.02^2^1^20^3^.03^.008^.219^^0^0^0
;;^UTILITY(U,$J,112,1927,2)
;;=.002^.037^.011^.002^.3^0^0^0^0^0^0^0^0^.1^^13^0
;;^UTILITY(U,$J,112,1927,3)
;;=0^0^0^0^0^0^0^0^0^0^0^0^0^.001^.002^0^0^0
;;^UTILITY(U,$J,112,1927,4)
;;=^^^0^0^0^0
;;^UTILITY(U,$J,112,1927,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1928,0)
;;=TOMATOES, GREEN, RAW^11-527^tomatoes^123^91^N
;;^UTILITY(U,$J,112,1928,1)
;;=1.2^.2^5.1^24^93^^^13^.51^10^28^204^13^.07^.09^.1^^642^23.4^.06
;;^UTILITY(U,$J,112,1928,2)
;;=.04^.5^.5^.081^8.8^0^.078^.003^0^.028^.03^.081^64^.5^^^1.5
;;^UTILITY(U,$J,112,1928,3)
;;=.009^.03^.029^.044^.044^.01^.016^.031^.021^.031^.029^.018^.034^.166^.442^.03^.023^.032
;;^UTILITY(U,$J,112,1928,4)
;;=^^0^.02^.001^.007^.029^^47
;;^UTILITY(U,$J,112,1928,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1929,0)
;;=TOMATOES, RAW^11-529^tomatoes^91^91^N
;;^UTILITY(U,$J,112,1929,1)
;;=.85^.33^4.64^21^93.76^^^5^.45^11^24^222^9^.09^.074^.105^.34^623^19.1^.059
;;^UTILITY(U,$J,112,1929,2)
;;=.048^.628^.247^.08^15^0^.13^.005^0^.045^.05^.135^62^.42^^^.8
;;^UTILITY(U,$J,112,1929,3)
;;=.006^.021^.02^.031^.031^.007^.011^.022^.015^.022^.021^.013^.024^.118^.313^.021^.016^.023
;;^UTILITY(U,$J,112,1929,4)
;;=^^0^.033^.002^.013^.049^^6^.4
;;^UTILITY(U,$J,112,1929,20)
;;=USDA Std. Reference, Release 10;HCF Nutrition Research Foundation, Inc, 1990
;;^UTILITY(U,$J,112,1930,0)
;;=TOMATOES, CKD WO/SALT^11-530^cups^241^100^N
;;^UTILITY(U,$J,112,1930,1)
;;=1.07^.41^5.83^27^92.16^^^6^.56^14^31^279^11^.11^.093^.132^^743^22.8^.07
;;^UTILITY(U,$J,112,1930,2)
;;=.057^.749^.295^.095^13^0^.163^.006^0^.057^.063^.169^74^.53^^^1
;;^UTILITY(U,$J,112,1930,3)
;;=.008^.027^.026^.039^.039^.009^.014^.028^.018^.027^.026^.016^.03^.148^.393^.026^.02^.028
;;^UTILITY(U,$J,112,1930,4)
;;=^^0^.041^.002^.016^.061
;;^UTILITY(U,$J,112,1930,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1931,0)
;;=TOMATOES, CKD W/SALT^11-884^cups^241^100^N
;;^UTILITY(U,$J,112,1931,1)
;;=1.07^.41^5.83^27^92.16^^^6^.56^14^31^279^247^.11^.093^.132^^743^22.8^.07
;;^UTILITY(U,$J,112,1931,2)
;;=.057^.749^.295^.095^13^0^.163^.006^0^.057^.063^.169^74^.53
;;^UTILITY(U,$J,112,1931,3)
;;=.008^.027^.026^.039^.039^.009^.014^.028^.018^.027^.026^.016^.03^.148^.393^.026^.02^.028
;;^UTILITY(U,$J,112,1931,4)
;;=^^0^.041^.002^.016^.061
;;^UTILITY(U,$J,112,1931,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1932,0)
;;=TOMATOES, CND, REG PK, ALL STYLES^11-531^cups^241^100^N
;;^UTILITY(U,$J,112,1932,1)
;;=.93^.24^4.29^20^93.67^^^26^.61^12^19^221^163^.16^.11^.127^^604^15.1^.045
;;^UTILITY(U,$J,112,1932,2)
;;=.031^.735^.167^.09^7.8^0^.095^.004^0^.035^.037^.099^60^.87^^^1.1
;;^UTILITY(U,$J,112,1932,3)
;;=.007^.024^.022^.034^.034^.008^.012^.024^.016^.024^.023^.014^.027^.129^.343^.023^.018^.025
;;^UTILITY(U,$J,112,1932,4)
;;=^^0^.024^.001^.009^.036^^^.7
;;^UTILITY(U,$J,112,1932,20)
;;=USDA Std. Reference, Release 10;HCF Nutrition Research Foundation, Inc, 1990
;;^UTILITY(U,$J,112,1935,0)
;;=TOMATOES, CND, DIET PK, LO NA, ALL STYLES^11-885^cups^241^100^N
;;^UTILITY(U,$J,112,1935,1)
;;=.93^.24^4.29^20^93.67^^^26^.61^12^19^221^13^.16^.11^.127^^604^15.1^.045
;;^UTILITY(U,$J,112,1935,2)
;;=.031^.735^.167^.09^7.8^0^.095^.004^0^.035^.037^.099^60^.87^^^1.8
;;^UTILITY(U,$J,112,1935,3)
;;=.007^.024^.022^.034^.034^.008^.012^.024^.016^.024^.023^.014^.027^.129^.343^.023^.018^.025
;;^UTILITY(U,$J,112,1935,4)
;;=^^0^.024^.001^.009^.036
;;^UTILITY(U,$J,112,1935,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1938,0)
;;=CATSUP, TOMATO, W/SALT ADDED^11-949^tbsp.^15^100^N
;;^UTILITY(U,$J,112,1938,1)
;;=1.52^.36^27.29^104^66.58^^^19^.7^22^39^481^20^.23^.206^.136^^1016^15.1^.089
;;^UTILITY(U,$J,112,1938,2)
;;=.073^1.367^.143^.175^15^0^.142^.005^0^.049^.055^.147^102^4.26^^^1.6
;;^UTILITY(U,$J,112,1938,3)
;;=.01^.035^.029^.042^.043^.008^.009^.032^.02^.031^.03^.024^.048^.19^.607^.025^.033^.036
;;^UTILITY(U,$J,112,1938,4)
;;=^^0^.036^.002^.014^.053
;;^UTILITY(U,$J,112,1938,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1939,0)
;;=CATSUP, TOMATO, LO NA^2286-2^tbsp.^15^^N
FHINI05M ; ; 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,1926,3)
+2 ;;=.112^.052^.039^.039^.045^.006^.06^.037^.051^.047^.064^.017^.067^.337^.618^.092^.039^.086
+3 ;;^UTILITY(U,$J,112,1926,4)
+4 ;;=^^^.043^.002^.007^.013^^^5.3
+5 ;;^UTILITY(U,$J,112,1926,20)
+6 ;;=USDA Std. Reference, Release 10
+7 ;;^UTILITY(U,$J,112,1927,0)
+8 ;;=TEA, INSTANT, CARBOHYDRATE ADDED, BEVERAGE^14-367^fl. oz.^29.6^100^N
+9 ;;^UTILITY(U,$J,112,1927,1)
+10 ;;=0^0^.2^1^99.7^^^2^.02^2^1^20^3^.03^.008^.219^^0^0^0
+11 ;;^UTILITY(U,$J,112,1927,2)
+12 ;;=.002^.037^.011^.002^.3^0^0^0^0^0^0^0^0^.1^^13^0
+13 ;;^UTILITY(U,$J,112,1927,3)
+14 ;;=0^0^0^0^0^0^0^0^0^0^0^0^0^.001^.002^0^0^0
+15 ;;^UTILITY(U,$J,112,1927,4)
+16 ;;=^^^0^0^0^0
+17 ;;^UTILITY(U,$J,112,1927,20)
+18 ;;=USDA Std. Reference, Release 10
+19 ;;^UTILITY(U,$J,112,1928,0)
+20 ;;=TOMATOES, GREEN, RAW^11-527^tomatoes^123^91^N
+21 ;;^UTILITY(U,$J,112,1928,1)
+22 ;;=1.2^.2^5.1^24^93^^^13^.51^10^28^204^13^.07^.09^.1^^642^23.4^.06
+23 ;;^UTILITY(U,$J,112,1928,2)
+24 ;;=.04^.5^.5^.081^8.8^0^.078^.003^0^.028^.03^.081^64^.5^^^1.5
+25 ;;^UTILITY(U,$J,112,1928,3)
+26 ;;=.009^.03^.029^.044^.044^.01^.016^.031^.021^.031^.029^.018^.034^.166^.442^.03^.023^.032
+27 ;;^UTILITY(U,$J,112,1928,4)
+28 ;;=^^0^.02^.001^.007^.029^^47
+29 ;;^UTILITY(U,$J,112,1928,20)
+30 ;;=USDA Std. Reference, Release 10
+31 ;;^UTILITY(U,$J,112,1929,0)
+32 ;;=TOMATOES, RAW^11-529^tomatoes^91^91^N
+33 ;;^UTILITY(U,$J,112,1929,1)
+34 ;;=.85^.33^4.64^21^93.76^^^5^.45^11^24^222^9^.09^.074^.105^.34^623^19.1^.059
+35 ;;^UTILITY(U,$J,112,1929,2)
+36 ;;=.048^.628^.247^.08^15^0^.13^.005^0^.045^.05^.135^62^.42^^^.8
+37 ;;^UTILITY(U,$J,112,1929,3)
+38 ;;=.006^.021^.02^.031^.031^.007^.011^.022^.015^.022^.021^.013^.024^.118^.313^.021^.016^.023
+39 ;;^UTILITY(U,$J,112,1929,4)
+40 ;;=^^0^.033^.002^.013^.049^^6^.4
+41 ;;^UTILITY(U,$J,112,1929,20)
+42 ;;=USDA Std. Reference, Release 10;HCF Nutrition Research Foundation, Inc, 1990
+43 ;;^UTILITY(U,$J,112,1930,0)
+44 ;;=TOMATOES, CKD WO/SALT^11-530^cups^241^100^N
+45 ;;^UTILITY(U,$J,112,1930,1)
+46 ;;=1.07^.41^5.83^27^92.16^^^6^.56^14^31^279^11^.11^.093^.132^^743^22.8^.07
+47 ;;^UTILITY(U,$J,112,1930,2)
+48 ;;=.057^.749^.295^.095^13^0^.163^.006^0^.057^.063^.169^74^.53^^^1
+49 ;;^UTILITY(U,$J,112,1930,3)
+50 ;;=.008^.027^.026^.039^.039^.009^.014^.028^.018^.027^.026^.016^.03^.148^.393^.026^.02^.028
+51 ;;^UTILITY(U,$J,112,1930,4)
+52 ;;=^^0^.041^.002^.016^.061
+53 ;;^UTILITY(U,$J,112,1930,20)
+54 ;;=USDA Std. Reference, Release 10
+55 ;;^UTILITY(U,$J,112,1931,0)
+56 ;;=TOMATOES, CKD W/SALT^11-884^cups^241^100^N
+57 ;;^UTILITY(U,$J,112,1931,1)
+58 ;;=1.07^.41^5.83^27^92.16^^^6^.56^14^31^279^247^.11^.093^.132^^743^22.8^.07
+59 ;;^UTILITY(U,$J,112,1931,2)
+60 ;;=.057^.749^.295^.095^13^0^.163^.006^0^.057^.063^.169^74^.53
+61 ;;^UTILITY(U,$J,112,1931,3)
+62 ;;=.008^.027^.026^.039^.039^.009^.014^.028^.018^.027^.026^.016^.03^.148^.393^.026^.02^.028
+63 ;;^UTILITY(U,$J,112,1931,4)
+64 ;;=^^0^.041^.002^.016^.061
+65 ;;^UTILITY(U,$J,112,1931,20)
+66 ;;=USDA Std. Reference, Release 10
+67 ;;^UTILITY(U,$J,112,1932,0)
+68 ;;=TOMATOES, CND, REG PK, ALL STYLES^11-531^cups^241^100^N
+69 ;;^UTILITY(U,$J,112,1932,1)
+70 ;;=.93^.24^4.29^20^93.67^^^26^.61^12^19^221^163^.16^.11^.127^^604^15.1^.045
+71 ;;^UTILITY(U,$J,112,1932,2)
+72 ;;=.031^.735^.167^.09^7.8^0^.095^.004^0^.035^.037^.099^60^.87^^^1.1
+73 ;;^UTILITY(U,$J,112,1932,3)
+74 ;;=.007^.024^.022^.034^.034^.008^.012^.024^.016^.024^.023^.014^.027^.129^.343^.023^.018^.025
+75 ;;^UTILITY(U,$J,112,1932,4)
+76 ;;=^^0^.024^.001^.009^.036^^^.7
+77 ;;^UTILITY(U,$J,112,1932,20)
+78 ;;=USDA Std. Reference, Release 10;HCF Nutrition Research Foundation, Inc, 1990
+79 ;;^UTILITY(U,$J,112,1935,0)
+80 ;;=TOMATOES, CND, DIET PK, LO NA, ALL STYLES^11-885^cups^241^100^N
+81 ;;^UTILITY(U,$J,112,1935,1)
+82 ;;=.93^.24^4.29^20^93.67^^^26^.61^12^19^221^13^.16^.11^.127^^604^15.1^.045
+83 ;;^UTILITY(U,$J,112,1935,2)
+84 ;;=.031^.735^.167^.09^7.8^0^.095^.004^0^.035^.037^.099^60^.87^^^1.8
+85 ;;^UTILITY(U,$J,112,1935,3)
+86 ;;=.007^.024^.022^.034^.034^.008^.012^.024^.016^.024^.023^.014^.027^.129^.343^.023^.018^.025
+87 ;;^UTILITY(U,$J,112,1935,4)
+88 ;;=^^0^.024^.001^.009^.036
+89 ;;^UTILITY(U,$J,112,1935,20)
+90 ;;=USDA Std. Reference, Release 10
+91 ;;^UTILITY(U,$J,112,1938,0)
+92 ;;=CATSUP, TOMATO, W/SALT ADDED^11-949^tbsp.^15^100^N
+93 ;;^UTILITY(U,$J,112,1938,1)
+94 ;;=1.52^.36^27.29^104^66.58^^^19^.7^22^39^481^20^.23^.206^.136^^1016^15.1^.089
+95 ;;^UTILITY(U,$J,112,1938,2)
+96 ;;=.073^1.367^.143^.175^15^0^.142^.005^0^.049^.055^.147^102^4.26^^^1.6
+97 ;;^UTILITY(U,$J,112,1938,3)
+98 ;;=.01^.035^.029^.042^.043^.008^.009^.032^.02^.031^.03^.024^.048^.19^.607^.025^.033^.036
+99 ;;^UTILITY(U,$J,112,1938,4)
+100 ;;=^^0^.036^.002^.014^.053
+101 ;;^UTILITY(U,$J,112,1938,20)
+102 ;;=USDA Std. Reference, Release 10
+103 ;;^UTILITY(U,$J,112,1939,0)
+104 ;;=CATSUP, TOMATO, LO NA^2286-2^tbsp.^15^^N
