FHINI06C ; ; 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,2170,1)
;;=23.92^22.56^0^306^52.27^^^11^2.45^20^171^300^84^5.07^.081^.017^^0^0^.03
;;^UTILITY(U,$J,112,2170,2)
;;=.2^5.83^.34^.24^9^2.71^.62^.09^89^8.86^9.88^.84^0^1.25^^^0
;;^UTILITY(U,$J,112,2170,3)
;;=.268^1.045^1.075^1.891^1.99^.612^.268^.934^.804^1.163^1.512^.819^1.443^2.185^3.594^1.305^1.056^.915
;;^UTILITY(U,$J,112,2170,4)
;;=.02^.02^.64^5.1^.84^2.66^8.63^.09
;;^UTILITY(U,$J,112,2170,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2171,0)
;;=BEEF, GROUND, REGULAR, PAN-FRIED, WELL DONE^13-315^oz.^28.35^61^N
;;^UTILITY(U,$J,112,2171,1)
;;=27^18.92^0^286^52.68^^^13^2.71^22^189^332^93^5.62^.09^.019^^0^0^.04
;;^UTILITY(U,$J,112,2171,2)
;;=.21^6.46^.38^.27^10^3^.52^.08^98^7.43^8.28^.71^0^1.4^^^0
;;^UTILITY(U,$J,112,2171,3)
;;=.302^1.179^1.214^2.134^2.246^.691^.302^1.054^.907^1.313^1.706^.924^1.629^2.467^4.056^1.473^1.192^1.032
;;^UTILITY(U,$J,112,2171,4)
;;=.02^.02^.54^4.28^.71^2.23^7.24^.08
;;^UTILITY(U,$J,112,2171,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2172,0)
;;=BEEF, GROUND, PATTIES, FROZEN, RAW^13-316^oz.^28.35^100^N
;;^UTILITY(U,$J,112,2172,1)
;;=17.11^23.19^0^282^58.72^^^8^1.78^17^134^248^68^3.8^.067^.016^^0^0^.05
;;^UTILITY(U,$J,112,2172,2)
;;=.187^4.5^.362^.25^7^2.4^.7^.12^79^9.36^10.14^.95^0^.79^^^0
;;^UTILITY(U,$J,112,2172,3)
;;=.211^.717^.734^1.371^1.429^.4^.164^.649^.534^.829^1.155^.545^1.117^1.563^2.69^1.27^.868^.662
;;^UTILITY(U,$J,112,2172,4)
;;=.03^.03^.66^5.37^.96^2.78^8.71^.09
;;^UTILITY(U,$J,112,2172,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2173,0)
;;=BEEF, GROUND, PATTIES, FROZEN, BROILED, MEDIUM^13-317^oz.^28.35^69^N
;;^UTILITY(U,$J,112,2173,1)
;;=24.5^19.65^0^282^54.92^^^11^2.1^20^158^294^77^5.4^.065^.016^^0^0^.05
;;^UTILITY(U,$J,112,2173,2)
;;=.2^5.27^.38^.26^9^2.47^.54^.08^94^7.72^8.6^.73^0^.93^^^0
;;^UTILITY(U,$J,112,2173,3)
;;=.274^1.07^1.102^1.936^2.038^.627^.274^.956^.823^1.192^1.548^.839^1.478^2.238^3.681^1.337^1.082^.937
;;^UTILITY(U,$J,112,2173,4)
;;=.02^.02^.56^4.45^.73^2.32^7.52^.08
;;^UTILITY(U,$J,112,2173,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2174,0)
;;=BEEF, BRAIN, PAN-FRIED^13-319^oz.^28.35^77^N
;;^UTILITY(U,$J,112,2174,1)
;;=12.57^15.83^0^196^70.75^^^9^2.22^15^386^354^158^1.35^.22^.032^^0^3.3^.13
;;^UTILITY(U,$J,112,2174,2)
;;=.26^3.78^.57^.39^6^15.2^.84^.05^1995^3.74^3.98^2.31^0^1.58^^^0
;;^UTILITY(U,$J,112,2174,3)
;;=.103^.597^.487^.943^.752^.261^.223^.635^.446^.617^.686^.32^.696^1.126^1.534^.593^.521^.728
;;^UTILITY(U,$J,112,2174,4)
;;=0^0^.07^1.98^.11^1.62^3.47^.29
;;^UTILITY(U,$J,112,2174,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2175,0)
;;=BEEF, CURED, BEERWURST, BEER SALAMI^13-342^oz.^28.35^100^N
;;^UTILITY(U,$J,112,2175,1)
;;=12.4^29.9^1.7^329^52.9^^^9^1.51^12^97^174^1028^2.44^.04^.028^^0^16^.07
;;^UTILITY(U,$J,112,2175,2)
;;=.12^3.39^.33^.17^3^1.97^.81^.29^61^13.04^14.03^1.09^0^3.1
;;^UTILITY(U,$J,112,2175,3)
;;=.113^.468^.536^.911^.95^.288^.159^.446^.405^.546^.766^.395^.893^1.214^2.02^1.036^.893^.5
;;^UTILITY(U,$J,112,2175,4)
;;=.04^.03^1.01^7.35^2.32^4.05^11.71^0
;;^UTILITY(U,$J,112,2175,20)
;;=USDA Std. Reference, Release 8
;;^UTILITY(U,$J,112,2176,0)
;;=BEEF, CURED, BOLOGNA^13-343^oz.^28.35^100^N
;;^UTILITY(U,$J,112,2176,1)
;;=12.24^28.49^.77^312^55.33^^^12^1.66^12^88^157^981^2.16^.03^.028^^0^21.3^.05
;;^UTILITY(U,$J,112,2176,2)
;;=.109^2.407^.28^.15^5^1.42^.85^.24^58^12.07^13.8^1.09^0^3.17
;;^UTILITY(U,$J,112,2176,3)
;;=.112^.462^.529^.899^.938^.284^.157^.441^.399^.538^.756^.39^.881^1.198^1.993^1.022^.881^.493
;;^UTILITY(U,$J,112,2176,4)
;;=.08^.04^.87^6.64^1.64^4.05^12.16^0
;;^UTILITY(U,$J,112,2176,20)
;;=USDA Std. Reference, Release 8
;;^UTILITY(U,$J,112,2177,0)
;;=BEEF, CURED, BREAKFAST STRIPS, COOKED^13-345^oz.^28.35^100^N
;;^UTILITY(U,$J,112,2177,1)
;;=31.3^34.4^1.4^449^26.2^^^9^3.14^27^236^412^2253^6.37^.116^.017^^0^36^.09
;;^UTILITY(U,$J,112,2177,2)
;;=.26^6.47^.343^.31^8^3.45^1.25^.33^119^14.35^16.85^1.58^0^6.7^^^0
;;^UTILITY(U,$J,112,2177,3)
;;=.285^1.182^1.352^2.299^2.399^.726^.401^1.127^1.022^1.377^1.933^.997^2.254^3.065^5.098^2.614^2.254^1.262
;;^UTILITY(U,$J,112,2177,4)
;;=.13^.1^1.22^7.66^2.27^4.48^14.58^0
;;^UTILITY(U,$J,112,2177,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2178,0)
;;=BEEF, CURED, DRIED BEEF^13-350^oz.^28.35^100^N
;;^UTILITY(U,$J,112,2178,1)
;;=29.1^3.9^1.56^165^56.5^^^6^4.51^32^174^444^3471^5.24^.16^.045^^0^14.8^.083
;;^UTILITY(U,$J,112,2178,2)
;;=.2^5.451^.611^.35^11^2.66^.17^.04^43^1.59^1.61^.2^0^8.94^^^0
FHINI06C ; ; 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,2170,1)
+2 ;;=23.92^22.56^0^306^52.27^^^11^2.45^20^171^300^84^5.07^.081^.017^^0^0^.03
+3 ;;^UTILITY(U,$J,112,2170,2)
+4 ;;=.2^5.83^.34^.24^9^2.71^.62^.09^89^8.86^9.88^.84^0^1.25^^^0
+5 ;;^UTILITY(U,$J,112,2170,3)
+6 ;;=.268^1.045^1.075^1.891^1.99^.612^.268^.934^.804^1.163^1.512^.819^1.443^2.185^3.594^1.305^1.056^.915
+7 ;;^UTILITY(U,$J,112,2170,4)
+8 ;;=.02^.02^.64^5.1^.84^2.66^8.63^.09
+9 ;;^UTILITY(U,$J,112,2170,20)
+10 ;;=USDA Std. Reference, Release 10
+11 ;;^UTILITY(U,$J,112,2171,0)
+12 ;;=BEEF, GROUND, REGULAR, PAN-FRIED, WELL DONE^13-315^oz.^28.35^61^N
+13 ;;^UTILITY(U,$J,112,2171,1)
+14 ;;=27^18.92^0^286^52.68^^^13^2.71^22^189^332^93^5.62^.09^.019^^0^0^.04
+15 ;;^UTILITY(U,$J,112,2171,2)
+16 ;;=.21^6.46^.38^.27^10^3^.52^.08^98^7.43^8.28^.71^0^1.4^^^0
+17 ;;^UTILITY(U,$J,112,2171,3)
+18 ;;=.302^1.179^1.214^2.134^2.246^.691^.302^1.054^.907^1.313^1.706^.924^1.629^2.467^4.056^1.473^1.192^1.032
+19 ;;^UTILITY(U,$J,112,2171,4)
+20 ;;=.02^.02^.54^4.28^.71^2.23^7.24^.08
+21 ;;^UTILITY(U,$J,112,2171,20)
+22 ;;=USDA Std. Reference, Release 10
+23 ;;^UTILITY(U,$J,112,2172,0)
+24 ;;=BEEF, GROUND, PATTIES, FROZEN, RAW^13-316^oz.^28.35^100^N
+25 ;;^UTILITY(U,$J,112,2172,1)
+26 ;;=17.11^23.19^0^282^58.72^^^8^1.78^17^134^248^68^3.8^.067^.016^^0^0^.05
+27 ;;^UTILITY(U,$J,112,2172,2)
+28 ;;=.187^4.5^.362^.25^7^2.4^.7^.12^79^9.36^10.14^.95^0^.79^^^0
+29 ;;^UTILITY(U,$J,112,2172,3)
+30 ;;=.211^.717^.734^1.371^1.429^.4^.164^.649^.534^.829^1.155^.545^1.117^1.563^2.69^1.27^.868^.662
+31 ;;^UTILITY(U,$J,112,2172,4)
+32 ;;=.03^.03^.66^5.37^.96^2.78^8.71^.09
+33 ;;^UTILITY(U,$J,112,2172,20)
+34 ;;=USDA Std. Reference, Release 10
+35 ;;^UTILITY(U,$J,112,2173,0)
+36 ;;=BEEF, GROUND, PATTIES, FROZEN, BROILED, MEDIUM^13-317^oz.^28.35^69^N
+37 ;;^UTILITY(U,$J,112,2173,1)
+38 ;;=24.5^19.65^0^282^54.92^^^11^2.1^20^158^294^77^5.4^.065^.016^^0^0^.05
+39 ;;^UTILITY(U,$J,112,2173,2)
+40 ;;=.2^5.27^.38^.26^9^2.47^.54^.08^94^7.72^8.6^.73^0^.93^^^0
+41 ;;^UTILITY(U,$J,112,2173,3)
+42 ;;=.274^1.07^1.102^1.936^2.038^.627^.274^.956^.823^1.192^1.548^.839^1.478^2.238^3.681^1.337^1.082^.937
+43 ;;^UTILITY(U,$J,112,2173,4)
+44 ;;=.02^.02^.56^4.45^.73^2.32^7.52^.08
+45 ;;^UTILITY(U,$J,112,2173,20)
+46 ;;=USDA Std. Reference, Release 10
+47 ;;^UTILITY(U,$J,112,2174,0)
+48 ;;=BEEF, BRAIN, PAN-FRIED^13-319^oz.^28.35^77^N
+49 ;;^UTILITY(U,$J,112,2174,1)
+50 ;;=12.57^15.83^0^196^70.75^^^9^2.22^15^386^354^158^1.35^.22^.032^^0^3.3^.13
+51 ;;^UTILITY(U,$J,112,2174,2)
+52 ;;=.26^3.78^.57^.39^6^15.2^.84^.05^1995^3.74^3.98^2.31^0^1.58^^^0
+53 ;;^UTILITY(U,$J,112,2174,3)
+54 ;;=.103^.597^.487^.943^.752^.261^.223^.635^.446^.617^.686^.32^.696^1.126^1.534^.593^.521^.728
+55 ;;^UTILITY(U,$J,112,2174,4)
+56 ;;=0^0^.07^1.98^.11^1.62^3.47^.29
+57 ;;^UTILITY(U,$J,112,2174,20)
+58 ;;=USDA Std. Reference, Release 10
+59 ;;^UTILITY(U,$J,112,2175,0)
+60 ;;=BEEF, CURED, BEERWURST, BEER SALAMI^13-342^oz.^28.35^100^N
+61 ;;^UTILITY(U,$J,112,2175,1)
+62 ;;=12.4^29.9^1.7^329^52.9^^^9^1.51^12^97^174^1028^2.44^.04^.028^^0^16^.07
+63 ;;^UTILITY(U,$J,112,2175,2)
+64 ;;=.12^3.39^.33^.17^3^1.97^.81^.29^61^13.04^14.03^1.09^0^3.1
+65 ;;^UTILITY(U,$J,112,2175,3)
+66 ;;=.113^.468^.536^.911^.95^.288^.159^.446^.405^.546^.766^.395^.893^1.214^2.02^1.036^.893^.5
+67 ;;^UTILITY(U,$J,112,2175,4)
+68 ;;=.04^.03^1.01^7.35^2.32^4.05^11.71^0
+69 ;;^UTILITY(U,$J,112,2175,20)
+70 ;;=USDA Std. Reference, Release 8
+71 ;;^UTILITY(U,$J,112,2176,0)
+72 ;;=BEEF, CURED, BOLOGNA^13-343^oz.^28.35^100^N
+73 ;;^UTILITY(U,$J,112,2176,1)
+74 ;;=12.24^28.49^.77^312^55.33^^^12^1.66^12^88^157^981^2.16^.03^.028^^0^21.3^.05
+75 ;;^UTILITY(U,$J,112,2176,2)
+76 ;;=.109^2.407^.28^.15^5^1.42^.85^.24^58^12.07^13.8^1.09^0^3.17
+77 ;;^UTILITY(U,$J,112,2176,3)
+78 ;;=.112^.462^.529^.899^.938^.284^.157^.441^.399^.538^.756^.39^.881^1.198^1.993^1.022^.881^.493
+79 ;;^UTILITY(U,$J,112,2176,4)
+80 ;;=.08^.04^.87^6.64^1.64^4.05^12.16^0
+81 ;;^UTILITY(U,$J,112,2176,20)
+82 ;;=USDA Std. Reference, Release 8
+83 ;;^UTILITY(U,$J,112,2177,0)
+84 ;;=BEEF, CURED, BREAKFAST STRIPS, COOKED^13-345^oz.^28.35^100^N
+85 ;;^UTILITY(U,$J,112,2177,1)
+86 ;;=31.3^34.4^1.4^449^26.2^^^9^3.14^27^236^412^2253^6.37^.116^.017^^0^36^.09
+87 ;;^UTILITY(U,$J,112,2177,2)
+88 ;;=.26^6.47^.343^.31^8^3.45^1.25^.33^119^14.35^16.85^1.58^0^6.7^^^0
+89 ;;^UTILITY(U,$J,112,2177,3)
+90 ;;=.285^1.182^1.352^2.299^2.399^.726^.401^1.127^1.022^1.377^1.933^.997^2.254^3.065^5.098^2.614^2.254^1.262
+91 ;;^UTILITY(U,$J,112,2177,4)
+92 ;;=.13^.1^1.22^7.66^2.27^4.48^14.58^0
+93 ;;^UTILITY(U,$J,112,2177,20)
+94 ;;=USDA Std. Reference, Release 10
+95 ;;^UTILITY(U,$J,112,2178,0)
+96 ;;=BEEF, CURED, DRIED BEEF^13-350^oz.^28.35^100^N
+97 ;;^UTILITY(U,$J,112,2178,1)
+98 ;;=29.1^3.9^1.56^165^56.5^^^6^4.51^32^174^444^3471^5.24^.16^.045^^0^14.8^.083
+99 ;;^UTILITY(U,$J,112,2178,2)
+100 ;;=.2^5.451^.611^.35^11^2.66^.17^.04^43^1.59^1.61^.2^0^8.94^^^0
