FHINI06A ; ; 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,2153,4)
;;=0^.01^.27^2.14^.31^1.17^3.47^.04
;;^UTILITY(U,$J,112,2153,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2154,0)
;;=BEEF, SHORT LOIN, TOP LOIN, GOOD, TRIMMED, BROILED^13-274^oz.^28.35^80^N
;;^UTILITY(U,$J,112,2154,1)
;;=28.62^7.8^0^193^60.7^^^8^2.47^27^218^396^68^5.22^.107^.016^^0^0^.09
;;^UTILITY(U,$J,112,2154,2)
;;=.2^5.34^.37^.42^8^2^.2^.02^76^2.98^3.13^.25^0^1.17^^^0
;;^UTILITY(U,$J,112,2154,3)
;;=.321^1.25^1.287^2.262^2.381^.733^.321^1.117^.962^1.392^1.809^.98^1.726^2.615^4.3^1.561^1.264^1.094
;;^UTILITY(U,$J,112,2154,4)
;;=0^.01^.23^1.77^.25^.97^2.88^.03
;;^UTILITY(U,$J,112,2154,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2155,0)
;;=BEEF, WEDGE-BONE SIRLOIN, GOOD, TRIMMED, BROILED^13-292^oz.^28.35^74^N
;;^UTILITY(U,$J,112,2155,1)
;;=30.37^6.2^0^186^62.9^^^11^3.36^32^244^403^66^6.52^.146^.017^^0^0^.13
;;^UTILITY(U,$J,112,2155,2)
;;=.29^4.28^.39^.45^10^2.85^.19^.01^89^2.41^2.64^.24^0^1.37^^^0
;;^UTILITY(U,$J,112,2155,3)
;;=.34^1.327^1.365^2.4^2.527^.777^.34^1.186^1.02^1.477^1.919^1.04^1.832^2.774^4.563^1.657^1.341^1.161
;;^UTILITY(U,$J,112,2155,4)
;;=0^.01^.16^1.39^.19^.85^2.44^.04
;;^UTILITY(U,$J,112,2155,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2156,0)
;;=BEEF, GROUND, EXTRA LEAN, BAKED, MEDIUM^13-296^oz.^28.35^76^N
;;^UTILITY(U,$J,112,2156,1)
;;=24.47^16.14^0^250^58.64^^^7^2.28^17^124^224^49^5.34^.075^.015^^0^0^.04
;;^UTILITY(U,$J,112,2156,2)
;;=.24^4.16^.27^.22^9^1.73^.44^.07^82^6.34^7.07^.6^0^.75^^^0
;;^UTILITY(U,$J,112,2156,3)
;;=.274^1.069^1.1^1.934^2.036^.626^.274^.955^.822^1.19^1.546^.838^1.476^2.235^3.676^1.335^1.081^.936
;;^UTILITY(U,$J,112,2156,4)
;;=.02^.02^.46^3.65^.6^1.9^6.18^.06
;;^UTILITY(U,$J,112,2156,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2157,0)
;;=BEEF, GROUND, EXTRA LEAN, BAKED, WELL DONE^13-297^oz.^28.35^59^N
;;^UTILITY(U,$J,112,2157,1)
;;=30.3^15.98^0^274^52.66^^^9^2.96^22^162^291^64^6.94^.097^.02^^0^0^.05
;;^UTILITY(U,$J,112,2157,2)
;;=.31^5.41^.35^.29^11^1.86^.44^.07^107^6.28^7^.6^0^.98^^^0
;;^UTILITY(U,$J,112,2157,3)
;;=.339^1.324^1.362^2.395^2.521^.776^.339^1.183^1.018^1.474^1.915^1.037^1.828^2.768^4.552^1.653^1.338^1.159
;;^UTILITY(U,$J,112,2157,4)
;;=.02^.02^.45^3.62^.6^1.89^6.12^.06
;;^UTILITY(U,$J,112,2157,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2158,0)
;;=BEEF, GROUND, EXTRA LEAN, BROILED, MEDIUM^13-298^oz.^28.35^74^N
;;^UTILITY(U,$J,112,2158,1)
;;=25.4^16.33^0^256^57.26^^^7^2.35^21^161^313^70^5.45^.07^.016^^0^0^.06
;;^UTILITY(U,$J,112,2158,2)
;;=.27^4.96^.35^.27^9^2.17^.45^.07^84^6.42^7.15^.61^0^1.01^^^0
;;^UTILITY(U,$J,112,2158,3)
;;=.284^1.109^1.142^2.008^2.113^.65^.284^.992^.853^1.235^1.605^.87^1.532^2.321^3.816^1.386^1.122^.971
;;^UTILITY(U,$J,112,2158,4)
;;=.02^.02^.46^3.69^.61^1.93^6.25^.07
;;^UTILITY(U,$J,112,2158,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2159,0)
;;=BEEF, GROUND, EXTRA LEAN, BROILED, WELL DONE^13-299^oz.^28.35^62^N
;;^UTILITY(U,$J,112,2159,1)
;;=28.58^15.8^0^265^53.87^^^9^2.77^25^190^369^82^6.43^.083^.019^^0^0^.07
;;^UTILITY(U,$J,112,2159,2)
;;=.32^5.85^.42^.32^11^2.56^.44^.07^99^6.21^6.92^.59^0^1.19^^^0
;;^UTILITY(U,$J,112,2159,3)
;;=.32^1.248^1.285^2.259^2.378^.732^.32^1.116^.96^1.39^1.806^.979^1.724^2.611^4.294^1.559^1.262^1.093
;;^UTILITY(U,$J,112,2159,4)
;;=.02^.02^.45^3.57^.59^1.86^6.05^.06
;;^UTILITY(U,$J,112,2159,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2160,0)
;;=BEEF, GROUND, LEAN, BAKED, MEDIUM^13-303^oz.^28.35^74^N
;;^UTILITY(U,$J,112,2160,1)
;;=23.93^18.34^0^268^56.89^^^9^2.09^17^128^224^56^5.1^.072^.014^^0^0^.05
;;^UTILITY(U,$J,112,2160,2)
;;=.19^4.28^.27^.2^9^1.77^.5^.08^78^7.21^8.03^.68^0^.84^^^0
;;^UTILITY(U,$J,112,2160,3)
;;=.268^1.045^1.076^1.892^1.991^.613^.268^.934^.804^1.164^1.512^.819^1.444^2.186^3.595^1.306^1.057^.915
;;^UTILITY(U,$J,112,2160,4)
;;=.02^.02^.52^4.15^.69^2.16^7.02^.07
;;^UTILITY(U,$J,112,2160,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2161,0)
;;=BEEF, GROUND, LEAN, BAKED, WELL DONE^13-304^oz.^28.35^58^N
;;^UTILITY(U,$J,112,2161,1)
;;=29.6^18.35^0^292^51.3^^^12^2.66^21^164^286^71^6.51^.092^.018^^0^0^.07
;;^UTILITY(U,$J,112,2161,2)
;;=.24^5.46^.34^.26^12^2.26^.51^.08^99^7.21^8.03^.68^0^1.1^^^0
;;^UTILITY(U,$J,112,2161,3)
;;=.332^1.293^1.331^2.34^2.463^.758^.332^1.156^.995^1.44^1.871^1.014^1.785^2.704^4.447^1.615^1.307^1.132
;;^UTILITY(U,$J,112,2161,4)
;;=.02^.02^.52^4.15^.69^2.16^7.02^.07
;;^UTILITY(U,$J,112,2161,20)
;;=USDA Std. Reference, Release 10
FHINI06A ; ; 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,2153,4)
+2 ;;=0^.01^.27^2.14^.31^1.17^3.47^.04
+3 ;;^UTILITY(U,$J,112,2153,20)
+4 ;;=USDA Std. Reference, Release 10
+5 ;;^UTILITY(U,$J,112,2154,0)
+6 ;;=BEEF, SHORT LOIN, TOP LOIN, GOOD, TRIMMED, BROILED^13-274^oz.^28.35^80^N
+7 ;;^UTILITY(U,$J,112,2154,1)
+8 ;;=28.62^7.8^0^193^60.7^^^8^2.47^27^218^396^68^5.22^.107^.016^^0^0^.09
+9 ;;^UTILITY(U,$J,112,2154,2)
+10 ;;=.2^5.34^.37^.42^8^2^.2^.02^76^2.98^3.13^.25^0^1.17^^^0
+11 ;;^UTILITY(U,$J,112,2154,3)
+12 ;;=.321^1.25^1.287^2.262^2.381^.733^.321^1.117^.962^1.392^1.809^.98^1.726^2.615^4.3^1.561^1.264^1.094
+13 ;;^UTILITY(U,$J,112,2154,4)
+14 ;;=0^.01^.23^1.77^.25^.97^2.88^.03
+15 ;;^UTILITY(U,$J,112,2154,20)
+16 ;;=USDA Std. Reference, Release 10
+17 ;;^UTILITY(U,$J,112,2155,0)
+18 ;;=BEEF, WEDGE-BONE SIRLOIN, GOOD, TRIMMED, BROILED^13-292^oz.^28.35^74^N
+19 ;;^UTILITY(U,$J,112,2155,1)
+20 ;;=30.37^6.2^0^186^62.9^^^11^3.36^32^244^403^66^6.52^.146^.017^^0^0^.13
+21 ;;^UTILITY(U,$J,112,2155,2)
+22 ;;=.29^4.28^.39^.45^10^2.85^.19^.01^89^2.41^2.64^.24^0^1.37^^^0
+23 ;;^UTILITY(U,$J,112,2155,3)
+24 ;;=.34^1.327^1.365^2.4^2.527^.777^.34^1.186^1.02^1.477^1.919^1.04^1.832^2.774^4.563^1.657^1.341^1.161
+25 ;;^UTILITY(U,$J,112,2155,4)
+26 ;;=0^.01^.16^1.39^.19^.85^2.44^.04
+27 ;;^UTILITY(U,$J,112,2155,20)
+28 ;;=USDA Std. Reference, Release 10
+29 ;;^UTILITY(U,$J,112,2156,0)
+30 ;;=BEEF, GROUND, EXTRA LEAN, BAKED, MEDIUM^13-296^oz.^28.35^76^N
+31 ;;^UTILITY(U,$J,112,2156,1)
+32 ;;=24.47^16.14^0^250^58.64^^^7^2.28^17^124^224^49^5.34^.075^.015^^0^0^.04
+33 ;;^UTILITY(U,$J,112,2156,2)
+34 ;;=.24^4.16^.27^.22^9^1.73^.44^.07^82^6.34^7.07^.6^0^.75^^^0
+35 ;;^UTILITY(U,$J,112,2156,3)
+36 ;;=.274^1.069^1.1^1.934^2.036^.626^.274^.955^.822^1.19^1.546^.838^1.476^2.235^3.676^1.335^1.081^.936
+37 ;;^UTILITY(U,$J,112,2156,4)
+38 ;;=.02^.02^.46^3.65^.6^1.9^6.18^.06
+39 ;;^UTILITY(U,$J,112,2156,20)
+40 ;;=USDA Std. Reference, Release 10
+41 ;;^UTILITY(U,$J,112,2157,0)
+42 ;;=BEEF, GROUND, EXTRA LEAN, BAKED, WELL DONE^13-297^oz.^28.35^59^N
+43 ;;^UTILITY(U,$J,112,2157,1)
+44 ;;=30.3^15.98^0^274^52.66^^^9^2.96^22^162^291^64^6.94^.097^.02^^0^0^.05
+45 ;;^UTILITY(U,$J,112,2157,2)
+46 ;;=.31^5.41^.35^.29^11^1.86^.44^.07^107^6.28^7^.6^0^.98^^^0
+47 ;;^UTILITY(U,$J,112,2157,3)
+48 ;;=.339^1.324^1.362^2.395^2.521^.776^.339^1.183^1.018^1.474^1.915^1.037^1.828^2.768^4.552^1.653^1.338^1.159
+49 ;;^UTILITY(U,$J,112,2157,4)
+50 ;;=.02^.02^.45^3.62^.6^1.89^6.12^.06
+51 ;;^UTILITY(U,$J,112,2157,20)
+52 ;;=USDA Std. Reference, Release 10
+53 ;;^UTILITY(U,$J,112,2158,0)
+54 ;;=BEEF, GROUND, EXTRA LEAN, BROILED, MEDIUM^13-298^oz.^28.35^74^N
+55 ;;^UTILITY(U,$J,112,2158,1)
+56 ;;=25.4^16.33^0^256^57.26^^^7^2.35^21^161^313^70^5.45^.07^.016^^0^0^.06
+57 ;;^UTILITY(U,$J,112,2158,2)
+58 ;;=.27^4.96^.35^.27^9^2.17^.45^.07^84^6.42^7.15^.61^0^1.01^^^0
+59 ;;^UTILITY(U,$J,112,2158,3)
+60 ;;=.284^1.109^1.142^2.008^2.113^.65^.284^.992^.853^1.235^1.605^.87^1.532^2.321^3.816^1.386^1.122^.971
+61 ;;^UTILITY(U,$J,112,2158,4)
+62 ;;=.02^.02^.46^3.69^.61^1.93^6.25^.07
+63 ;;^UTILITY(U,$J,112,2158,20)
+64 ;;=USDA Std. Reference, Release 10
+65 ;;^UTILITY(U,$J,112,2159,0)
+66 ;;=BEEF, GROUND, EXTRA LEAN, BROILED, WELL DONE^13-299^oz.^28.35^62^N
+67 ;;^UTILITY(U,$J,112,2159,1)
+68 ;;=28.58^15.8^0^265^53.87^^^9^2.77^25^190^369^82^6.43^.083^.019^^0^0^.07
+69 ;;^UTILITY(U,$J,112,2159,2)
+70 ;;=.32^5.85^.42^.32^11^2.56^.44^.07^99^6.21^6.92^.59^0^1.19^^^0
+71 ;;^UTILITY(U,$J,112,2159,3)
+72 ;;=.32^1.248^1.285^2.259^2.378^.732^.32^1.116^.96^1.39^1.806^.979^1.724^2.611^4.294^1.559^1.262^1.093
+73 ;;^UTILITY(U,$J,112,2159,4)
+74 ;;=.02^.02^.45^3.57^.59^1.86^6.05^.06
+75 ;;^UTILITY(U,$J,112,2159,20)
+76 ;;=USDA Std. Reference, Release 10
+77 ;;^UTILITY(U,$J,112,2160,0)
+78 ;;=BEEF, GROUND, LEAN, BAKED, MEDIUM^13-303^oz.^28.35^74^N
+79 ;;^UTILITY(U,$J,112,2160,1)
+80 ;;=23.93^18.34^0^268^56.89^^^9^2.09^17^128^224^56^5.1^.072^.014^^0^0^.05
+81 ;;^UTILITY(U,$J,112,2160,2)
+82 ;;=.19^4.28^.27^.2^9^1.77^.5^.08^78^7.21^8.03^.68^0^.84^^^0
+83 ;;^UTILITY(U,$J,112,2160,3)
+84 ;;=.268^1.045^1.076^1.892^1.991^.613^.268^.934^.804^1.164^1.512^.819^1.444^2.186^3.595^1.306^1.057^.915
+85 ;;^UTILITY(U,$J,112,2160,4)
+86 ;;=.02^.02^.52^4.15^.69^2.16^7.02^.07
+87 ;;^UTILITY(U,$J,112,2160,20)
+88 ;;=USDA Std. Reference, Release 10
+89 ;;^UTILITY(U,$J,112,2161,0)
+90 ;;=BEEF, GROUND, LEAN, BAKED, WELL DONE^13-304^oz.^28.35^58^N
+91 ;;^UTILITY(U,$J,112,2161,1)
+92 ;;=29.6^18.35^0^292^51.3^^^12^2.66^21^164^286^71^6.51^.092^.018^^0^0^.07
+93 ;;^UTILITY(U,$J,112,2161,2)
+94 ;;=.24^5.46^.34^.26^12^2.26^.51^.08^99^7.21^8.03^.68^0^1.1^^^0
+95 ;;^UTILITY(U,$J,112,2161,3)
+96 ;;=.332^1.293^1.331^2.34^2.463^.758^.332^1.156^.995^1.44^1.871^1.014^1.785^2.704^4.447^1.615^1.307^1.132
+97 ;;^UTILITY(U,$J,112,2161,4)
+98 ;;=.02^.02^.52^4.15^.69^2.16^7.02^.07
+99 ;;^UTILITY(U,$J,112,2161,20)
+100 ;;=USDA Std. Reference, Release 10
