FHINI08U ; ; 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,3055,0)
;;=TUNA, FRESH, BLUEFIN, COOKED, DRY HEAT^15-118^oz.^28.3^100^N
;;^UTILITY(U,$J,112,3055,1)
;;=29.91^6.28^0^184^59.09^^^10^1.31^64^326^323^50^.77^.11^.02^^2520^0^.278
;;^UTILITY(U,$J,112,3055,2)
;;=.306^10.54^1.37^.525^2.2^10.878^.068^^49^1.612^2.053^1.844^756^1.51^^^0
;;^UTILITY(U,$J,112,3055,3)
;;=.335^1.311^1.378^2.431^2.747^.885^.321^1.168^1.01^1.541^1.79^.88^1.809^3.062^4.464^1.436^1.057^1.22
;;^UTILITY(U,$J,112,3055,4)
;;=^^.178^1.038^.208^.394^1.185^.055
;;^UTILITY(U,$J,112,3055,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,3056,0)
;;=TUNA, LIGHT MEAT, CANNED IN OIL, WO/SALT^15-183^oz.^28.3^100^N
;;^UTILITY(U,$J,112,3056,1)
;;=29.13^8.21^0^198^59.83^^^13^1.39^31^311^207^50^.9^.071^.015^^78^0^.038
;;^UTILITY(U,$J,112,3056,2)
;;=.12^12.4^.37^.11^5.3^2.2^2.683^.074^18^1.534^2.949^2.885^23^2.76^^^0
;;^UTILITY(U,$J,112,3056,3)
;;=.326^1.277^1.342^2.368^2.675^.862^.312^1.137^.983^1.501^1.743^.858^1.762^2.983^4.349^1.398^1.03^1.189
;;^UTILITY(U,$J,112,3056,4)
;;=^^.027^1.415^.083^.092^2.839
;;^UTILITY(U,$J,112,3056,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,3057,0)
;;=TUNA, WHITE MEAT, CANNED IN OIL, WO/SALT^15-185^oz.^28.3^100^N
;;^UTILITY(U,$J,112,3057,1)
;;=26.53^8.08^0^186^64.02^^^4^.65^34^267^333^50^.47^.13^.016^^80^0^.017
;;^UTILITY(U,$J,112,3057,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,3057,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,3057,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,3058,0)
;;=TUNA, WHITE MEAT, CANNED IN WATER, WO/SALT^15-186^oz.^28.3^100^N
;;^UTILITY(U,$J,112,3058,1)
;;=26.66^2.46^0^136^69.48^^^4^.6^34^267^283^50^.47^.192^.016^^80^0^.003
;;^UTILITY(U,$J,112,3058,2)
;;=.046^5.799^.37^.43^4.1^2.2^.045^.058^42^.654^.648^.918^24^1.58^^^0
;;^UTILITY(U,$J,112,3058,3)
;;=.299^1.169^1.229^2.167^2.449^.789^.286^1.041^.9^1.374^1.595^.785^1.613^2.73^3.98^1.28^.943^1.088
;;^UTILITY(U,$J,112,3058,4)
;;=^^.067^.485^.118^.097^.424^.042
;;^UTILITY(U,$J,112,3058,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,3059,0)
;;=TURBOT, EUROPEAN, RAW^15-129^oz.^28.3^100^N
;;^UTILITY(U,$J,112,3059,1)
;;=16.05^2.95^0^95^76.95^^^18^.36^51^129^238^150^.22^.037^.017^^35^1.7^.066
;;^UTILITY(U,$J,112,3059,2)
;;=.08^2.2^.57^.21^8^2.2^^^48^.75^.61^.88^11^2.1^^^0
;;^UTILITY(U,$J,112,3059,3)
;;=.18^.704^.74^1.305^1.474^.475^.172^.627^.542^.827^.96^.473^.971^1.644^2.396^.77^.568^.655
;;^UTILITY(U,$J,112,3059,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,3060,0)
;;=VEAL, ARM, TOT ED, ROASTED^17-124^oz.^28.3^79^N
;;^UTILITY(U,$J,112,3060,1)
;;=25.46^8.25^0^183^64.68^^^26^1.15^26^221^348^90^4.18^.141^.03^.46^0^0^.06
;;^UTILITY(U,$J,112,3060,2)
;;=.32^8.02^1.16^.29^17^1.53^.42^.06^108^3.51^3.2^.54^0^1.44^^^0
;;^UTILITY(U,$J,112,3060,3)
;;=.258^1.112^1.254^2.027^2.098^.594^.287^1.028^.812^1.407^1.498^.924^1.515^2.197^4.028^1.309^1.063^.954
;;^UTILITY(U,$J,112,3060,4)
;;=.01^.02^.35^1.85^.37^1.16^2.74^.07
;;^UTILITY(U,$J,112,3060,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,3061,0)
;;=VEAL, GROUND, COOKED, BROILED^17-143^oz.^28.3^100^N
;;^UTILITY(U,$J,112,3061,1)
;;=24.38^7.56^0^172^66.76^^^17^.99^24^217^337^83^3.87^.103^.035^^^^.07
;;^UTILITY(U,$J,112,3061,2)
;;=.27^8.03^1.16^.39^11^1.27^.42^.05^103^3.04^2.84^.55^^1.31^^^0
;;^UTILITY(U,$J,112,3061,3)
;;=.247^1.065^1.201^1.94^2.009^.569^.275^.984^.777^1.347^1.434^.885^1.45^2.103^3.856^1.253^1.018^.914
;;^UTILITY(U,$J,112,3061,4)
;;=.01^.02^.28^1.62^.32^1.01^2.45^.09
;;^UTILITY(U,$J,112,3061,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,3062,0)
;;=VEAL, LEG, TOT ED, BRAISED^17-095^oz.^28.3^100^N
;;^UTILITY(U,$J,112,3062,1)
;;=36.16^6.33^0^211^55.49^^^8^1.32^29^249^383^67^3.96^.14^.039^.49^0^0^.06
;;^UTILITY(U,$J,112,3062,2)
;;=.35^10.56^1.02^.36^18^1.17^.35^.04^134^2.53^2.36^.47^0^1.95^^^0
;;^UTILITY(U,$J,112,3062,3)
;;=.366^1.58^1.781^2.878^2.98^.844^.408^1.459^1.153^1.999^2.127^1.313^2.151^3.12^5.72^1.858^1.51^1.355
;;^UTILITY(U,$J,112,3062,4)
;;=.01^.02^.23^1.35^.27^.84^2.04^.08
;;^UTILITY(U,$J,112,3062,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,3063,0)
;;=VEAL, LEG, TOT ED, PAN-FRIED, BREADED^17-096^oz.^28.3^100^N
;;^UTILITY(U,$J,112,3063,1)
;;=27.29^9.18^9.85^228^51.31^^^39^1.64^31^250^371^454^2.75^.073^.135^.53^34^0^.16
;;^UTILITY(U,$J,112,3063,2)
;;=.35^10.34^1.07^.4^19^1.24^1.28^.14^112^3.06^3.39^1.49^10^2.31
FHINI08U ; ; 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,3055,0)
+2 ;;=TUNA, FRESH, BLUEFIN, COOKED, DRY HEAT^15-118^oz.^28.3^100^N
+3 ;;^UTILITY(U,$J,112,3055,1)
+4 ;;=29.91^6.28^0^184^59.09^^^10^1.31^64^326^323^50^.77^.11^.02^^2520^0^.278
+5 ;;^UTILITY(U,$J,112,3055,2)
+6 ;;=.306^10.54^1.37^.525^2.2^10.878^.068^^49^1.612^2.053^1.844^756^1.51^^^0
+7 ;;^UTILITY(U,$J,112,3055,3)
+8 ;;=.335^1.311^1.378^2.431^2.747^.885^.321^1.168^1.01^1.541^1.79^.88^1.809^3.062^4.464^1.436^1.057^1.22
+9 ;;^UTILITY(U,$J,112,3055,4)
+10 ;;=^^.178^1.038^.208^.394^1.185^.055
+11 ;;^UTILITY(U,$J,112,3055,20)
+12 ;;=USDA Std. Reference, Release 10
+13 ;;^UTILITY(U,$J,112,3056,0)
+14 ;;=TUNA, LIGHT MEAT, CANNED IN OIL, WO/SALT^15-183^oz.^28.3^100^N
+15 ;;^UTILITY(U,$J,112,3056,1)
+16 ;;=29.13^8.21^0^198^59.83^^^13^1.39^31^311^207^50^.9^.071^.015^^78^0^.038
+17 ;;^UTILITY(U,$J,112,3056,2)
+18 ;;=.12^12.4^.37^.11^5.3^2.2^2.683^.074^18^1.534^2.949^2.885^23^2.76^^^0
+19 ;;^UTILITY(U,$J,112,3056,3)
+20 ;;=.326^1.277^1.342^2.368^2.675^.862^.312^1.137^.983^1.501^1.743^.858^1.762^2.983^4.349^1.398^1.03^1.189
+21 ;;^UTILITY(U,$J,112,3056,4)
+22 ;;=^^.027^1.415^.083^.092^2.839
+23 ;;^UTILITY(U,$J,112,3056,20)
+24 ;;=USDA Std. Reference, Release 10
+25 ;;^UTILITY(U,$J,112,3057,0)
+26 ;;=TUNA, WHITE MEAT, CANNED IN OIL, WO/SALT^15-185^oz.^28.3^100^N
+27 ;;^UTILITY(U,$J,112,3057,1)
+28 ;;=26.53^8.08^0^186^64.02^^^4^.65^34^267^333^50^.47^.13^.016^^80^0^.017
+29 ;;^UTILITY(U,$J,112,3057,2)
+30 ;;=.079^11.698^.37^.43^4.6^2.2^^^31^1.65^2.48^3.38^24^2.18^^^0
+31 ;;^UTILITY(U,$J,112,3057,3)
+32 ;;=.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
+33 ;;^UTILITY(U,$J,112,3057,20)
+34 ;;=USDA Std. Reference, Release 10
+35 ;;^UTILITY(U,$J,112,3058,0)
+36 ;;=TUNA, WHITE MEAT, CANNED IN WATER, WO/SALT^15-186^oz.^28.3^100^N
+37 ;;^UTILITY(U,$J,112,3058,1)
+38 ;;=26.66^2.46^0^136^69.48^^^4^.6^34^267^283^50^.47^.192^.016^^80^0^.003
+39 ;;^UTILITY(U,$J,112,3058,2)
+40 ;;=.046^5.799^.37^.43^4.1^2.2^.045^.058^42^.654^.648^.918^24^1.58^^^0
+41 ;;^UTILITY(U,$J,112,3058,3)
+42 ;;=.299^1.169^1.229^2.167^2.449^.789^.286^1.041^.9^1.374^1.595^.785^1.613^2.73^3.98^1.28^.943^1.088
+43 ;;^UTILITY(U,$J,112,3058,4)
+44 ;;=^^.067^.485^.118^.097^.424^.042
+45 ;;^UTILITY(U,$J,112,3058,20)
+46 ;;=USDA Std. Reference, Release 10
+47 ;;^UTILITY(U,$J,112,3059,0)
+48 ;;=TURBOT, EUROPEAN, RAW^15-129^oz.^28.3^100^N
+49 ;;^UTILITY(U,$J,112,3059,1)
+50 ;;=16.05^2.95^0^95^76.95^^^18^.36^51^129^238^150^.22^.037^.017^^35^1.7^.066
+51 ;;^UTILITY(U,$J,112,3059,2)
+52 ;;=.08^2.2^.57^.21^8^2.2^^^48^.75^.61^.88^11^2.1^^^0
+53 ;;^UTILITY(U,$J,112,3059,3)
+54 ;;=.18^.704^.74^1.305^1.474^.475^.172^.627^.542^.827^.96^.473^.971^1.644^2.396^.77^.568^.655
+55 ;;^UTILITY(U,$J,112,3059,20)
+56 ;;=USDA Std. Reference, Release 10
+57 ;;^UTILITY(U,$J,112,3060,0)
+58 ;;=VEAL, ARM, TOT ED, ROASTED^17-124^oz.^28.3^79^N
+59 ;;^UTILITY(U,$J,112,3060,1)
+60 ;;=25.46^8.25^0^183^64.68^^^26^1.15^26^221^348^90^4.18^.141^.03^.46^0^0^.06
+61 ;;^UTILITY(U,$J,112,3060,2)
+62 ;;=.32^8.02^1.16^.29^17^1.53^.42^.06^108^3.51^3.2^.54^0^1.44^^^0
+63 ;;^UTILITY(U,$J,112,3060,3)
+64 ;;=.258^1.112^1.254^2.027^2.098^.594^.287^1.028^.812^1.407^1.498^.924^1.515^2.197^4.028^1.309^1.063^.954
+65 ;;^UTILITY(U,$J,112,3060,4)
+66 ;;=.01^.02^.35^1.85^.37^1.16^2.74^.07
+67 ;;^UTILITY(U,$J,112,3060,20)
+68 ;;=USDA Std. Reference, Release 10
+69 ;;^UTILITY(U,$J,112,3061,0)
+70 ;;=VEAL, GROUND, COOKED, BROILED^17-143^oz.^28.3^100^N
+71 ;;^UTILITY(U,$J,112,3061,1)
+72 ;;=24.38^7.56^0^172^66.76^^^17^.99^24^217^337^83^3.87^.103^.035^^^^.07
+73 ;;^UTILITY(U,$J,112,3061,2)
+74 ;;=.27^8.03^1.16^.39^11^1.27^.42^.05^103^3.04^2.84^.55^^1.31^^^0
+75 ;;^UTILITY(U,$J,112,3061,3)
+76 ;;=.247^1.065^1.201^1.94^2.009^.569^.275^.984^.777^1.347^1.434^.885^1.45^2.103^3.856^1.253^1.018^.914
+77 ;;^UTILITY(U,$J,112,3061,4)
+78 ;;=.01^.02^.28^1.62^.32^1.01^2.45^.09
+79 ;;^UTILITY(U,$J,112,3061,20)
+80 ;;=USDA Std. Reference, Release 10
+81 ;;^UTILITY(U,$J,112,3062,0)
+82 ;;=VEAL, LEG, TOT ED, BRAISED^17-095^oz.^28.3^100^N
+83 ;;^UTILITY(U,$J,112,3062,1)
+84 ;;=36.16^6.33^0^211^55.49^^^8^1.32^29^249^383^67^3.96^.14^.039^.49^0^0^.06
+85 ;;^UTILITY(U,$J,112,3062,2)
+86 ;;=.35^10.56^1.02^.36^18^1.17^.35^.04^134^2.53^2.36^.47^0^1.95^^^0
+87 ;;^UTILITY(U,$J,112,3062,3)
+88 ;;=.366^1.58^1.781^2.878^2.98^.844^.408^1.459^1.153^1.999^2.127^1.313^2.151^3.12^5.72^1.858^1.51^1.355
+89 ;;^UTILITY(U,$J,112,3062,4)
+90 ;;=.01^.02^.23^1.35^.27^.84^2.04^.08
+91 ;;^UTILITY(U,$J,112,3062,20)
+92 ;;=USDA Std. Reference, Release 10
+93 ;;^UTILITY(U,$J,112,3063,0)
+94 ;;=VEAL, LEG, TOT ED, PAN-FRIED, BREADED^17-096^oz.^28.3^100^N
+95 ;;^UTILITY(U,$J,112,3063,1)
+96 ;;=27.29^9.18^9.85^228^51.31^^^39^1.64^31^250^371^454^2.75^.073^.135^.53^34^0^.16
+97 ;;^UTILITY(U,$J,112,3063,2)
+98 ;;=.35^10.34^1.07^.4^19^1.24^1.28^.14^112^3.06^3.39^1.49^10^2.31
