FHINI08L ; ; 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,2972,2)
;;=.251^4.581^.051^.802^98.1^0^20.654^.363^0^6.722^18.127^21.039^1^6^^^14
;;^UTILITY(U,$J,112,2972,3)
;;=.371^.704^.73^1.299^.544^.56^.342^.899^.71^.947^2.515^.499^.886^1.574^3.782^1.162^.774^.925
;;^UTILITY(U,$J,112,2972,4)
;;=^^.12^4.292^.144^2.019^17.897
;;^UTILITY(U,$J,112,2972,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2973,0)
;;=SEMOLINA, ENRICHED^20-066^cups^168^100^N
;;^UTILITY(U,$J,112,2973,1)
;;=12.68^1.05^72.83^360^12.67^^^17^4.36^47^136^186^1^1.05^.189^.619^.26^0^0^.811
;;^UTILITY(U,$J,112,2973,2)
;;=.571^5.99^.58^.103^72^0^.393^.037^0^.15^.124^.43^0^.77^^^2.3
;;^UTILITY(U,$J,112,2973,3)
;;=.162^.335^.49^.867^.243^.198^.358^.616^.333^.54^.467^.257^.372^.518^4.571^.401^1.395^.598
;;^UTILITY(U,$J,112,2973,4)
;;=^^.002^.131^^.017^.124
;;^UTILITY(U,$J,112,2973,20)
;;=USDA Std. Reference, Release 10;HCF Nutrition Research Foundation, Inc, 1990
;;^UTILITY(U,$J,112,2974,0)
;;=SHARK, COOKED, BATTER-DIPPED AND FRIED^15-096^oz.^28.3^100^N
;;^UTILITY(U,$J,112,2974,1)
;;=18.62^13.82^6.39^228^60.09^^^50^1.11^43^194^155^122^.48^.042^.05^^180^0^.072
;;^UTILITY(U,$J,112,2974,2)
;;=.097^2.783^.62^.3^5.2^1.211^2.6^.19^59^3.205^5.935^3.701^54^1.25^^^0
;;^UTILITY(U,$J,112,2974,3)
;;=.212^.843^.867^1.515^1.634^.541^.212^.75^.633^.965^1.094^.538^1.097^1.85^2.97^.872^.744^.789
;;^UTILITY(U,$J,112,2974,4)
;;=^^.102^2.008^.223^1.092^5.216^.092
;;^UTILITY(U,$J,112,2974,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2975,0)
;;=SHEEPSHEAD, COOKED, DRY HEAT^15-098^oz.^28.3^100^N
;;^UTILITY(U,$J,112,2975,1)
;;=26.02^1.63^0^126^69.04^^^37^.67^35^350^512^73^.63^.122^.021^^115^0^.01
;;^UTILITY(U,$J,112,2975,2)
;;=.05^1.8^.87^.35^17.3^2.3^.042^^64^.36^.35^.382^35^1.44^^^0
;;^UTILITY(U,$J,112,2975,3)
;;=.291^1.141^1.199^2.115^2.39^.77^.279^1.016^.878^1.34^1.557^.766^1.574^2.664^3.884^1.249^.92^1.062
;;^UTILITY(U,$J,112,2975,4)
;;=^^.044^.227^.107^.089^.243^.11
;;^UTILITY(U,$J,112,2975,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2976,0)
;;=SHRIMP, IMITATION, MADE FROM SURIMI^15-153^oz.^28.3^100^N
;;^UTILITY(U,$J,112,2976,1)
;;=12.39^1.47^9.13^101^74.91^^^19^.6^43^282^89^705^.33^.032^.011^^66^0^.024
;;^UTILITY(U,$J,112,2976,2)
;;=.034^.17^.07^.03^1.6^1.6^^^36^.29^.22^.75^20^2.11^^^0
;;^UTILITY(U,$J,112,2976,3)
;;=.075^.599^.579^.981^1.132^.42^.133^.486^.499^.628^.823^.285^.727^1.239^1.956^.48^.462^.541
;;^UTILITY(U,$J,112,2976,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2978,0)
;;=SNAPPER, COOKED, DRY HEAT^15-102^oz.^28.3^100^N
;;^UTILITY(U,$J,112,2978,1)
;;=26.3^1.72^0^128^70.35^^^40^.24^37^201^522^57^.44^.046^.017^^115^1.6^.053
;;^UTILITY(U,$J,112,2978,2)
;;=.004^.346^.87^.46^5.8^3.5^.025^^47^.365^.322^.588^35^1.41^^^0
;;^UTILITY(U,$J,112,2978,3)
;;=.294^1.153^1.212^2.137^2.415^.778^.282^1.027^.888^1.355^1.573^.774^1.59^2.692^3.925^1.262^.93^1.073
;;^UTILITY(U,$J,112,2978,4)
;;=^^.053^.19^.048^.07^.123^.044
;;^UTILITY(U,$J,112,2978,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2979,0)
;;=SORGHUM^20-067^cups^192^100^N
;;^UTILITY(U,$J,112,2979,1)
;;=11.3^3.3^74.63^339^9.2^^^28^4.4^^287^350^6^^^^^0^0^.237
;;^UTILITY(U,$J,112,2979,2)
;;=.142^2.927^^^^0^1.305^.065^0^.457^.993^1.37^0^1.57
;;^UTILITY(U,$J,112,2979,3)
;;=.124^.346^.433^1.491^.229^.169^.127^.546^.321^.561^.355^.246^1.033^.743^2.439^.346^.852^.462
;;^UTILITY(U,$J,112,2979,4)
;;=^.007^.009^.407^.029^.035^.964
;;^UTILITY(U,$J,112,2979,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2980,0)
;;=SOUP, BEEF BROTH BOUILLON & CONSOMME, CND, CONDENSED^6-032^cups^246^100^N
;;^UTILITY(U,$J,112,2980,1)
;;=4.37^0^1.44^24^92.6^^^7^.43^0^26^125^520^.3^.2^.3^^0^.7^.017
;;^UTILITY(U,$J,112,2980,2)
;;=.023^.58^.04^.02^2.4^0^^^0^^^^0^1.59^^^0
;;^UTILITY(U,$J,112,2980,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2981,0)
;;=SOUP, BEEF MUSHROOM, CND, CONDENSED^6-147^cups^251^100^N
;;^UTILITY(U,$J,112,2981,1)
;;=4.6^2.4^5.2^61^85.5^^^4^.7^7^29^126^773^1.1^.2^.3^^0^0^.02
;;^UTILITY(U,$J,112,2981,2)
;;=.06^.9^.19^.04^7^.16^.07^.01^5^1.2^1^.1^0^2.3
;;^UTILITY(U,$J,112,2981,4)
;;=^.02^.09^.6^.1^.45^.86
;;^UTILITY(U,$J,112,2981,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2982,0)
;;=SOUP, BEEF NOODLE, CND, CONDENSED^6-009^cups^251^100^N
;;^UTILITY(U,$J,112,2982,1)
;;=3.85^2.46^7.16^67^84.42^^^12^.88^5^37^79^759^1.227^.11^.218^^502^.3^.055
;;^UTILITY(U,$J,112,2982,2)
;;=.047^.849^.16^.03^3.5^.16^.33^.05^4^.91^.99^.39^50^2.12^^^.6
FHINI08L ; ; 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,2972,2)
+2 ;;=.251^4.581^.051^.802^98.1^0^20.654^.363^0^6.722^18.127^21.039^1^6^^^14
+3 ;;^UTILITY(U,$J,112,2972,3)
+4 ;;=.371^.704^.73^1.299^.544^.56^.342^.899^.71^.947^2.515^.499^.886^1.574^3.782^1.162^.774^.925
+5 ;;^UTILITY(U,$J,112,2972,4)
+6 ;;=^^.12^4.292^.144^2.019^17.897
+7 ;;^UTILITY(U,$J,112,2972,20)
+8 ;;=USDA Std. Reference, Release 10
+9 ;;^UTILITY(U,$J,112,2973,0)
+10 ;;=SEMOLINA, ENRICHED^20-066^cups^168^100^N
+11 ;;^UTILITY(U,$J,112,2973,1)
+12 ;;=12.68^1.05^72.83^360^12.67^^^17^4.36^47^136^186^1^1.05^.189^.619^.26^0^0^.811
+13 ;;^UTILITY(U,$J,112,2973,2)
+14 ;;=.571^5.99^.58^.103^72^0^.393^.037^0^.15^.124^.43^0^.77^^^2.3
+15 ;;^UTILITY(U,$J,112,2973,3)
+16 ;;=.162^.335^.49^.867^.243^.198^.358^.616^.333^.54^.467^.257^.372^.518^4.571^.401^1.395^.598
+17 ;;^UTILITY(U,$J,112,2973,4)
+18 ;;=^^.002^.131^^.017^.124
+19 ;;^UTILITY(U,$J,112,2973,20)
+20 ;;=USDA Std. Reference, Release 10;HCF Nutrition Research Foundation, Inc, 1990
+21 ;;^UTILITY(U,$J,112,2974,0)
+22 ;;=SHARK, COOKED, BATTER-DIPPED AND FRIED^15-096^oz.^28.3^100^N
+23 ;;^UTILITY(U,$J,112,2974,1)
+24 ;;=18.62^13.82^6.39^228^60.09^^^50^1.11^43^194^155^122^.48^.042^.05^^180^0^.072
+25 ;;^UTILITY(U,$J,112,2974,2)
+26 ;;=.097^2.783^.62^.3^5.2^1.211^2.6^.19^59^3.205^5.935^3.701^54^1.25^^^0
+27 ;;^UTILITY(U,$J,112,2974,3)
+28 ;;=.212^.843^.867^1.515^1.634^.541^.212^.75^.633^.965^1.094^.538^1.097^1.85^2.97^.872^.744^.789
+29 ;;^UTILITY(U,$J,112,2974,4)
+30 ;;=^^.102^2.008^.223^1.092^5.216^.092
+31 ;;^UTILITY(U,$J,112,2974,20)
+32 ;;=USDA Std. Reference, Release 10
+33 ;;^UTILITY(U,$J,112,2975,0)
+34 ;;=SHEEPSHEAD, COOKED, DRY HEAT^15-098^oz.^28.3^100^N
+35 ;;^UTILITY(U,$J,112,2975,1)
+36 ;;=26.02^1.63^0^126^69.04^^^37^.67^35^350^512^73^.63^.122^.021^^115^0^.01
+37 ;;^UTILITY(U,$J,112,2975,2)
+38 ;;=.05^1.8^.87^.35^17.3^2.3^.042^^64^.36^.35^.382^35^1.44^^^0
+39 ;;^UTILITY(U,$J,112,2975,3)
+40 ;;=.291^1.141^1.199^2.115^2.39^.77^.279^1.016^.878^1.34^1.557^.766^1.574^2.664^3.884^1.249^.92^1.062
+41 ;;^UTILITY(U,$J,112,2975,4)
+42 ;;=^^.044^.227^.107^.089^.243^.11
+43 ;;^UTILITY(U,$J,112,2975,20)
+44 ;;=USDA Std. Reference, Release 10
+45 ;;^UTILITY(U,$J,112,2976,0)
+46 ;;=SHRIMP, IMITATION, MADE FROM SURIMI^15-153^oz.^28.3^100^N
+47 ;;^UTILITY(U,$J,112,2976,1)
+48 ;;=12.39^1.47^9.13^101^74.91^^^19^.6^43^282^89^705^.33^.032^.011^^66^0^.024
+49 ;;^UTILITY(U,$J,112,2976,2)
+50 ;;=.034^.17^.07^.03^1.6^1.6^^^36^.29^.22^.75^20^2.11^^^0
+51 ;;^UTILITY(U,$J,112,2976,3)
+52 ;;=.075^.599^.579^.981^1.132^.42^.133^.486^.499^.628^.823^.285^.727^1.239^1.956^.48^.462^.541
+53 ;;^UTILITY(U,$J,112,2976,20)
+54 ;;=USDA Std. Reference, Release 10
+55 ;;^UTILITY(U,$J,112,2978,0)
+56 ;;=SNAPPER, COOKED, DRY HEAT^15-102^oz.^28.3^100^N
+57 ;;^UTILITY(U,$J,112,2978,1)
+58 ;;=26.3^1.72^0^128^70.35^^^40^.24^37^201^522^57^.44^.046^.017^^115^1.6^.053
+59 ;;^UTILITY(U,$J,112,2978,2)
+60 ;;=.004^.346^.87^.46^5.8^3.5^.025^^47^.365^.322^.588^35^1.41^^^0
+61 ;;^UTILITY(U,$J,112,2978,3)
+62 ;;=.294^1.153^1.212^2.137^2.415^.778^.282^1.027^.888^1.355^1.573^.774^1.59^2.692^3.925^1.262^.93^1.073
+63 ;;^UTILITY(U,$J,112,2978,4)
+64 ;;=^^.053^.19^.048^.07^.123^.044
+65 ;;^UTILITY(U,$J,112,2978,20)
+66 ;;=USDA Std. Reference, Release 10
+67 ;;^UTILITY(U,$J,112,2979,0)
+68 ;;=SORGHUM^20-067^cups^192^100^N
+69 ;;^UTILITY(U,$J,112,2979,1)
+70 ;;=11.3^3.3^74.63^339^9.2^^^28^4.4^^287^350^6^^^^^0^0^.237
+71 ;;^UTILITY(U,$J,112,2979,2)
+72 ;;=.142^2.927^^^^0^1.305^.065^0^.457^.993^1.37^0^1.57
+73 ;;^UTILITY(U,$J,112,2979,3)
+74 ;;=.124^.346^.433^1.491^.229^.169^.127^.546^.321^.561^.355^.246^1.033^.743^2.439^.346^.852^.462
+75 ;;^UTILITY(U,$J,112,2979,4)
+76 ;;=^.007^.009^.407^.029^.035^.964
+77 ;;^UTILITY(U,$J,112,2979,20)
+78 ;;=USDA Std. Reference, Release 10
+79 ;;^UTILITY(U,$J,112,2980,0)
+80 ;;=SOUP, BEEF BROTH BOUILLON & CONSOMME, CND, CONDENSED^6-032^cups^246^100^N
+81 ;;^UTILITY(U,$J,112,2980,1)
+82 ;;=4.37^0^1.44^24^92.6^^^7^.43^0^26^125^520^.3^.2^.3^^0^.7^.017
+83 ;;^UTILITY(U,$J,112,2980,2)
+84 ;;=.023^.58^.04^.02^2.4^0^^^0^^^^0^1.59^^^0
+85 ;;^UTILITY(U,$J,112,2980,20)
+86 ;;=USDA Std. Reference, Release 10
+87 ;;^UTILITY(U,$J,112,2981,0)
+88 ;;=SOUP, BEEF MUSHROOM, CND, CONDENSED^6-147^cups^251^100^N
+89 ;;^UTILITY(U,$J,112,2981,1)
+90 ;;=4.6^2.4^5.2^61^85.5^^^4^.7^7^29^126^773^1.1^.2^.3^^0^0^.02
+91 ;;^UTILITY(U,$J,112,2981,2)
+92 ;;=.06^.9^.19^.04^7^.16^.07^.01^5^1.2^1^.1^0^2.3
+93 ;;^UTILITY(U,$J,112,2981,4)
+94 ;;=^.02^.09^.6^.1^.45^.86
+95 ;;^UTILITY(U,$J,112,2981,20)
+96 ;;=USDA Std. Reference, Release 10
+97 ;;^UTILITY(U,$J,112,2982,0)
+98 ;;=SOUP, BEEF NOODLE, CND, CONDENSED^6-009^cups^251^100^N
+99 ;;^UTILITY(U,$J,112,2982,1)
+100 ;;=3.85^2.46^7.16^67^84.42^^^12^.88^5^37^79^759^1.227^.11^.218^^502^.3^.055
+101 ;;^UTILITY(U,$J,112,2982,2)
+102 ;;=.047^.849^.16^.03^3.5^.16^.33^.05^4^.91^.99^.39^50^2.12^^^.6
