FHINI08T ; ; 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,3045,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,3046,0)
;;=TEA, HERB, OTHER THAN CHAMOMILE, BREWED^14-381^floz.^29.6^100^N
;;^UTILITY(U,$J,112,3046,1)
;;=0^0^.2^1^99.7^^^2^.08^1^0^9^1^.04^.015^.044^^0^0^.01
;;^UTILITY(U,$J,112,3046,2)
;;=.004^0^.011^0^.6^0^.002^.003^0^.002^.001^.005^0^0^^0^0
;;^UTILITY(U,$J,112,3046,4)
;;=^^^.002^0^0^.001
;;^UTILITY(U,$J,112,3046,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,3047,0)
;;=THRIST QUENCHER DRINK, BOTTLED^14-382^floz.^30.1^100^N
;;^UTILITY(U,$J,112,3047,1)
;;=0^0^6.3^25^93.5^^^0^.05^1^9^11^40^.02^.02^0^^0^0^.005
;;^UTILITY(U,$J,112,3047,2)
;;=0^0^0^0^0^^0^0^0^0^0^0^0^.2^^^0
;;^UTILITY(U,$J,112,3047,3)
;;=0^0^0^0^0^0^0^0^0^0^0^0^0^0^0^0^0^0
;;^UTILITY(U,$J,112,3047,4)
;;=0^0^0^0^0^0^0^0^^.3
;;^UTILITY(U,$J,112,3047,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,3048,0)
;;=TILEFISH, COOKED, DRY HEAT^15-113^oz.^28.3^100^N
;;^UTILITY(U,$J,112,3048,1)
;;=24.49^4.69^0^147^70.24^^^26^.31^33^236^512^59^.53^.052^.015^^69^0^.14
;;^UTILITY(U,$J,112,3048,2)
;;=.19^3.5^.87^.3^17.3^2.5^.048^^64^.868^1.332^1.246^21^1.36^^^0
;;^UTILITY(U,$J,112,3048,3)
;;=.274^1.074^1.128^1.99^2.249^.725^.263^.956^.827^1.262^1.465^.721^1.481^2.508^3.655^1.175^.866^.999
;;^UTILITY(U,$J,112,3048,4)
;;=^^.135^.526^.333^.181^.944^.15
;;^UTILITY(U,$J,112,3048,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,3049,0)
;;=TOFU, DRIED-FROZEN (KOYADOFU)^16-128^pieces^17^100^N
;;^UTILITY(U,$J,112,3049,1)
;;=47.94^30.34^14.56^480^5.78^^^364^9.73^59^483^20^6^4.9^1.179^3.689^^518^.7^.494
;;^UTILITY(U,$J,112,3049,2)
;;=.317^1.189^.415^.286^91.5^0^15.104^2.024^0^4.388^6.701^17.128^52^1.38
;;^UTILITY(U,$J,112,3049,3)
;;=.747^1.956^2.376^3.644^3.157^.613^.663^2.334^1.604^2.418^3.19^1.394^1.965^5.298^8.287^1.872^2.586^2.259
;;^UTILITY(U,$J,112,3049,4)
;;=^^.084^3.22^.084^1.083^6.617
;;^UTILITY(U,$J,112,3049,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,3050,0)
;;=TOFU, FRIED^16-129^pieces^13^100^N
;;^UTILITY(U,$J,112,3050,1)
;;=17.19^20.18^10.5^271^50.52^^^372^4.87^60^287^146^16^1.99^.398^1.495^^0^0^.17
;;^UTILITY(U,$J,112,3050,2)
;;=.05^.1^.14^.099^26.8^0^10.044^1.346^0^2.918^4.456^11.39^0^1.62^^^3.9
;;^UTILITY(U,$J,112,3050,3)
;;=.268^.701^.852^1.306^1.131^.22^.238^.837^.575^.867^1.143^.499^.704^1.899^2.97^.671^.927^.809
;;^UTILITY(U,$J,112,3050,4)
;;=^^.056^2.141^.056^.72^4.4
;;^UTILITY(U,$J,112,3050,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,3051,0)
;;=TOFU, SALTED AND FERMENTED (FUYU)^16-132^blocks^11^100^N
;;^UTILITY(U,$J,112,3051,1)
;;=8.15^8^5.15^116^70.01^^^46^1.98^52^73^75^2873^1.56^.376^1.174^^165^.2^.157
;;^UTILITY(U,$J,112,3051,2)
;;=.101^.379^.132^.091^29.1^0^3.982^.534^0^1.157^1.767^4.516^17^8.69
;;^UTILITY(U,$J,112,3051,3)
;;=.127^.332^.404^.619^.537^.104^.113^.397^.273^.411^.542^.237^.334^.9^1.408^.318^.44^.384
;;^UTILITY(U,$J,112,3051,4)
;;=^^.022^.849^.022^.286^1.745
;;^UTILITY(U,$J,112,3051,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,3052,0)
;;=TOMATOES, RED, RIPE, CND, WEDGES IN TOMATO JUICE^11-535^cups^262^100^N
;;^UTILITY(U,$J,112,3052,1)
;;=.79^.16^6.31^26^91.78^^^26^.46^11^23^251^217^.16^.104^.165^^578^14.8^.056
;;^UTILITY(U,$J,112,3052,2)
;;=.028^.675^.217^.117^10.1^0^.063^.003^0^.023^.024^.066^58^.96
;;^UTILITY(U,$J,112,3052,3)
;;=.006^.02^.019^.029^.029^.007^.01^.021^.014^.02^.019^.012^.023^.11^.293^.02^.015^.021
;;^UTILITY(U,$J,112,3052,4)
;;=^^0^.016^.001^.006^.024
;;^UTILITY(U,$J,112,3052,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,3053,0)
;;=TOMATOES, RED, RIPE, CND, WITH GREEN CHILIES^11-537^cups^240^100^N
;;^UTILITY(U,$J,112,3053,1)
;;=.69^.08^3.62^15^94.23^^^20^.26^11^14^107^401^.13^.09^.132^^390^6.2^.034
;;^UTILITY(U,$J,112,3053,2)
;;=.019^.64^.148^.103^9.1^0^.029^.001^0^.011^.011^.03^39^1.39
;;^UTILITY(U,$J,112,3053,4)
;;=^^0^.008^0^.003^.011
;;^UTILITY(U,$J,112,3053,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,3054,0)
;;=TUNA, WHITE MEAT, CANNED IN OIL^15-124^oz.^28.3^100^N
;;^UTILITY(U,$J,112,3054,1)
;;=26.53^8.08^0^186^64.02^^^4^.65^34^267^333^396^.47^.13^.016^^80^0^.017
;;^UTILITY(U,$J,112,3054,2)
;;=.079^11.698^.37^.43^4.6^2.2^^^31^1.65^2.48^3.38^24^2.18^^^0
;;^UTILITY(U,$J,112,3054,3)
;;=.297^1.163^1.223^2.156^2.437^.785^.284^1.036^.896^1.367^1.588^.781^1.605^2.717^3.961^1.274^.938^1.082
;;^UTILITY(U,$J,112,3054,4)
;;=^^^^^^^^^60.1
;;^UTILITY(U,$J,112,3054,20)
;;=USDA Std. Reference, Release 10
FHINI08T ; ; 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,3045,20)
+2 ;;=USDA Std. Reference, Release 10
+3 ;;^UTILITY(U,$J,112,3046,0)
+4 ;;=TEA, HERB, OTHER THAN CHAMOMILE, BREWED^14-381^floz.^29.6^100^N
+5 ;;^UTILITY(U,$J,112,3046,1)
+6 ;;=0^0^.2^1^99.7^^^2^.08^1^0^9^1^.04^.015^.044^^0^0^.01
+7 ;;^UTILITY(U,$J,112,3046,2)
+8 ;;=.004^0^.011^0^.6^0^.002^.003^0^.002^.001^.005^0^0^^0^0
+9 ;;^UTILITY(U,$J,112,3046,4)
+10 ;;=^^^.002^0^0^.001
+11 ;;^UTILITY(U,$J,112,3046,20)
+12 ;;=USDA Std. Reference, Release 10
+13 ;;^UTILITY(U,$J,112,3047,0)
+14 ;;=THRIST QUENCHER DRINK, BOTTLED^14-382^floz.^30.1^100^N
+15 ;;^UTILITY(U,$J,112,3047,1)
+16 ;;=0^0^6.3^25^93.5^^^0^.05^1^9^11^40^.02^.02^0^^0^0^.005
+17 ;;^UTILITY(U,$J,112,3047,2)
+18 ;;=0^0^0^0^0^^0^0^0^0^0^0^0^.2^^^0
+19 ;;^UTILITY(U,$J,112,3047,3)
+20 ;;=0^0^0^0^0^0^0^0^0^0^0^0^0^0^0^0^0^0
+21 ;;^UTILITY(U,$J,112,3047,4)
+22 ;;=0^0^0^0^0^0^0^0^^.3
+23 ;;^UTILITY(U,$J,112,3047,20)
+24 ;;=USDA Std. Reference, Release 10
+25 ;;^UTILITY(U,$J,112,3048,0)
+26 ;;=TILEFISH, COOKED, DRY HEAT^15-113^oz.^28.3^100^N
+27 ;;^UTILITY(U,$J,112,3048,1)
+28 ;;=24.49^4.69^0^147^70.24^^^26^.31^33^236^512^59^.53^.052^.015^^69^0^.14
+29 ;;^UTILITY(U,$J,112,3048,2)
+30 ;;=.19^3.5^.87^.3^17.3^2.5^.048^^64^.868^1.332^1.246^21^1.36^^^0
+31 ;;^UTILITY(U,$J,112,3048,3)
+32 ;;=.274^1.074^1.128^1.99^2.249^.725^.263^.956^.827^1.262^1.465^.721^1.481^2.508^3.655^1.175^.866^.999
+33 ;;^UTILITY(U,$J,112,3048,4)
+34 ;;=^^.135^.526^.333^.181^.944^.15
+35 ;;^UTILITY(U,$J,112,3048,20)
+36 ;;=USDA Std. Reference, Release 10
+37 ;;^UTILITY(U,$J,112,3049,0)
+38 ;;=TOFU, DRIED-FROZEN (KOYADOFU)^16-128^pieces^17^100^N
+39 ;;^UTILITY(U,$J,112,3049,1)
+40 ;;=47.94^30.34^14.56^480^5.78^^^364^9.73^59^483^20^6^4.9^1.179^3.689^^518^.7^.494
+41 ;;^UTILITY(U,$J,112,3049,2)
+42 ;;=.317^1.189^.415^.286^91.5^0^15.104^2.024^0^4.388^6.701^17.128^52^1.38
+43 ;;^UTILITY(U,$J,112,3049,3)
+44 ;;=.747^1.956^2.376^3.644^3.157^.613^.663^2.334^1.604^2.418^3.19^1.394^1.965^5.298^8.287^1.872^2.586^2.259
+45 ;;^UTILITY(U,$J,112,3049,4)
+46 ;;=^^.084^3.22^.084^1.083^6.617
+47 ;;^UTILITY(U,$J,112,3049,20)
+48 ;;=USDA Std. Reference, Release 10
+49 ;;^UTILITY(U,$J,112,3050,0)
+50 ;;=TOFU, FRIED^16-129^pieces^13^100^N
+51 ;;^UTILITY(U,$J,112,3050,1)
+52 ;;=17.19^20.18^10.5^271^50.52^^^372^4.87^60^287^146^16^1.99^.398^1.495^^0^0^.17
+53 ;;^UTILITY(U,$J,112,3050,2)
+54 ;;=.05^.1^.14^.099^26.8^0^10.044^1.346^0^2.918^4.456^11.39^0^1.62^^^3.9
+55 ;;^UTILITY(U,$J,112,3050,3)
+56 ;;=.268^.701^.852^1.306^1.131^.22^.238^.837^.575^.867^1.143^.499^.704^1.899^2.97^.671^.927^.809
+57 ;;^UTILITY(U,$J,112,3050,4)
+58 ;;=^^.056^2.141^.056^.72^4.4
+59 ;;^UTILITY(U,$J,112,3050,20)
+60 ;;=USDA Std. Reference, Release 10
+61 ;;^UTILITY(U,$J,112,3051,0)
+62 ;;=TOFU, SALTED AND FERMENTED (FUYU)^16-132^blocks^11^100^N
+63 ;;^UTILITY(U,$J,112,3051,1)
+64 ;;=8.15^8^5.15^116^70.01^^^46^1.98^52^73^75^2873^1.56^.376^1.174^^165^.2^.157
+65 ;;^UTILITY(U,$J,112,3051,2)
+66 ;;=.101^.379^.132^.091^29.1^0^3.982^.534^0^1.157^1.767^4.516^17^8.69
+67 ;;^UTILITY(U,$J,112,3051,3)
+68 ;;=.127^.332^.404^.619^.537^.104^.113^.397^.273^.411^.542^.237^.334^.9^1.408^.318^.44^.384
+69 ;;^UTILITY(U,$J,112,3051,4)
+70 ;;=^^.022^.849^.022^.286^1.745
+71 ;;^UTILITY(U,$J,112,3051,20)
+72 ;;=USDA Std. Reference, Release 10
+73 ;;^UTILITY(U,$J,112,3052,0)
+74 ;;=TOMATOES, RED, RIPE, CND, WEDGES IN TOMATO JUICE^11-535^cups^262^100^N
+75 ;;^UTILITY(U,$J,112,3052,1)
+76 ;;=.79^.16^6.31^26^91.78^^^26^.46^11^23^251^217^.16^.104^.165^^578^14.8^.056
+77 ;;^UTILITY(U,$J,112,3052,2)
+78 ;;=.028^.675^.217^.117^10.1^0^.063^.003^0^.023^.024^.066^58^.96
+79 ;;^UTILITY(U,$J,112,3052,3)
+80 ;;=.006^.02^.019^.029^.029^.007^.01^.021^.014^.02^.019^.012^.023^.11^.293^.02^.015^.021
+81 ;;^UTILITY(U,$J,112,3052,4)
+82 ;;=^^0^.016^.001^.006^.024
+83 ;;^UTILITY(U,$J,112,3052,20)
+84 ;;=USDA Std. Reference, Release 10
+85 ;;^UTILITY(U,$J,112,3053,0)
+86 ;;=TOMATOES, RED, RIPE, CND, WITH GREEN CHILIES^11-537^cups^240^100^N
+87 ;;^UTILITY(U,$J,112,3053,1)
+88 ;;=.69^.08^3.62^15^94.23^^^20^.26^11^14^107^401^.13^.09^.132^^390^6.2^.034
+89 ;;^UTILITY(U,$J,112,3053,2)
+90 ;;=.019^.64^.148^.103^9.1^0^.029^.001^0^.011^.011^.03^39^1.39
+91 ;;^UTILITY(U,$J,112,3053,4)
+92 ;;=^^0^.008^0^.003^.011
+93 ;;^UTILITY(U,$J,112,3053,20)
+94 ;;=USDA Std. Reference, Release 10
+95 ;;^UTILITY(U,$J,112,3054,0)
+96 ;;=TUNA, WHITE MEAT, CANNED IN OIL^15-124^oz.^28.3^100^N
+97 ;;^UTILITY(U,$J,112,3054,1)
+98 ;;=26.53^8.08^0^186^64.02^^^4^.65^34^267^333^396^.47^.13^.016^^80^0^.017
+99 ;;^UTILITY(U,$J,112,3054,2)
+100 ;;=.079^11.698^.37^.43^4.6^2.2^^^31^1.65^2.48^3.38^24^2.18^^^0
+101 ;;^UTILITY(U,$J,112,3054,3)
+102 ;;=.297^1.163^1.223^2.156^2.437^.785^.284^1.036^.896^1.367^1.588^.781^1.605^2.717^3.961^1.274^.938^1.082
+103 ;;^UTILITY(U,$J,112,3054,4)
+104 ;;=^^^^^^^^^60.1
+105 ;;^UTILITY(U,$J,112,3054,20)
+106 ;;=USDA Std. Reference, Release 10