FHINI069 ; ; 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,2144,3)
;;=.325^1.266^1.303^2.291^2.412^.742^.325^1.132^.974^1.41^1.832^.993^1.749^2.648^4.355^1.582^1.28^1.108
;;^UTILITY(U,$J,112,2144,4)
;;=0^0^.14^1.3^.21^.63^2.21^.03
;;^UTILITY(U,$J,112,2144,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2145,0)
;;=BEEF, ROUND, EYE OF ROUND, GOOD, TRIMMED, ROASTED^13-188^oz.^28.35^87^N
;;^UTILITY(U,$J,112,2145,1)
;;=28.99^4^0^160^65.1^^^5^1.95^27^226^395^62^4.74^.1^.016^^0^0^.09
;;^UTILITY(U,$J,112,2145,2)
;;=.17^3.75^.46^.38^7^2.17^.1^.01^69^1.45^1.7^.13^0^1.21^^^0
;;^UTILITY(U,$J,112,2145,3)
;;=.325^1.266^1.303^2.291^2.412^.742^.325^1.132^.974^1.41^1.832^.993^1.749^2.648^4.355^1.582^1.28^1.108
;;^UTILITY(U,$J,112,2145,4)
;;=0^0^.1^.91^.15^.44^1.55^.02
;;^UTILITY(U,$J,112,2145,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2146,0)
;;=BEEF, ROUND, TIP ROUND, CHOICE, TRIMMED, ROASTED^13-202^oz.^28.35^84^N
;;^UTILITY(U,$J,112,2146,1)
;;=28.71^7.3^0^188^64.6^^^5^2.94^27^242^386^65^7.07^.125^.017^^0^0^.1
;;^UTILITY(U,$J,112,2146,2)
;;=.27^3.74^.47^.4^8^2.89^.23^.02^81^2.55^2.9^.29^0^1.18^^^0
;;^UTILITY(U,$J,112,2146,3)
;;=.322^1.254^1.291^2.269^2.389^.735^.322^1.121^.965^1.397^1.815^.983^1.732^2.623^4.314^1.567^1.268^1.098
;;^UTILITY(U,$J,112,2146,4)
;;=0^0^.19^1.53^.24^.84^2.66^.04
;;^UTILITY(U,$J,112,2146,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2147,0)
;;=BEEF, ROUND, TIP ROUND, GOOD, TRIMMED, ROASTED^13-204^oz.^28.35^84^N
;;^UTILITY(U,$J,112,2147,1)
;;=28.71^6.4^0^180^65.1^^^5^2.94^27^242^386^65^7.07^.125^.017^^0^0^.1
;;^UTILITY(U,$J,112,2147,2)
;;=.27^3.74^.47^.4^8^2.89^.2^.02^81^2.24^2.54^.26^0^1.18^^^0
;;^UTILITY(U,$J,112,2147,3)
;;=.322^1.254^1.291^2.269^2.389^.735^.322^1.121^.965^1.397^1.815^.983^1.732^2.623^4.314^1.567^1.268^1.098
;;^UTILITY(U,$J,112,2147,4)
;;=0^0^.16^1.34^.21^.73^2.33^.03
;;^UTILITY(U,$J,112,2147,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2148,0)
;;=BEEF, ROUND, TOP ROUND, CHOICE, TRIMMED, PAN-FRIED^13-220^oz.^28.35^86^N
;;^UTILITY(U,$J,112,2148,1)
;;=35.07^8.58^0^227^55.5^^^5^3.15^35^292^513^71^4.62^.131^.02^^0^0^.11
;;^UTILITY(U,$J,112,2148,2)
;;=.28^5.48^.46^.61^13^3.43^1.23^.16^97^2.42^2.83^1.64^0^1.54^^^0
;;^UTILITY(U,$J,112,2148,3)
;;=.393^1.532^1.577^2.772^2.918^.898^.393^1.369^1.178^1.706^2.216^1.201^2.115^3.204^5.269^1.913^1.549^1.341
;;^UTILITY(U,$J,112,2148,4)
;;=0^0^.14^1.45^.19^.74^2.58^.23
;;^UTILITY(U,$J,112,2148,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2149,0)
;;=BEEF, ROUND, TOP ROUND, GOOD, TRIMMED, BROILED^13-222^oz.^28.35^94^N
;;^UTILITY(U,$J,112,2149,1)
;;=31.69^3.7^0^169^63.2^^^6^2.88^31^246^442^61^5.57^.123^.017^^0^0^.12
;;^UTILITY(U,$J,112,2149,2)
;;=.27^6.04^.49^.56^12^2.48^.13^.01^84^1.27^1.44^.17^0^1.38^^^0
;;^UTILITY(U,$J,112,2149,3)
;;=.355^1.384^1.425^2.505^2.636^.811^.355^1.237^1.065^1.541^2.003^1.085^1.911^2.895^4.761^1.729^1.399^1.212
;;^UTILITY(U,$J,112,2149,4)
;;=0^0^.09^.77^.12^.41^1.32^.02
;;^UTILITY(U,$J,112,2149,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2150,0)
;;=BEEF, SHORT LOIN, PORTERHOUSE STEAK, CHOICE, TRIMMED, BRLD^13-232^oz.^28.35^67^N
;;^UTILITY(U,$J,112,2150,1)
;;=28.16^10.8^0^218^59.52^^^7^3^29^213^407^66^5.4^.143^.015^^0^0^.11
;;^UTILITY(U,$J,112,2150,2)
;;=.25^4.63^.34^.4^8^2.27^.3^.03^80^4.32^4.33^.4^0^1.24^^^0
;;^UTILITY(U,$J,112,2150,3)
;;=.315^1.23^1.266^2.226^2.343^.721^.315^1.099^.946^1.37^1.78^.964^1.699^2.573^4.231^1.537^1.244^1.077
;;^UTILITY(U,$J,112,2150,4)
;;=.01^.01^.29^2.42^.32^1.35^3.86^.05
;;^UTILITY(U,$J,112,2150,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2152,0)
;;=BEEF, SHORT LOIN, TENDERLOIN, GOOD, TRIMMED, ROASTED^13-257^oz.^28.35^79^N
;;^UTILITY(U,$J,112,2152,1)
;;=27.71^10.32^0^211^57.55^^^7^3.69^27^239^391^61^4.79^.145^.016^^0^0^.1
;;^UTILITY(U,$J,112,2152,2)
;;=.31^3.41^.28^.29^9^2.71^.37^.04^83^3.89^4.03^.47^0^1.39^^^0
;;^UTILITY(U,$J,112,2152,3)
;;=.31^1.21^1.246^2.19^2.305^.709^.31^1.082^.931^1.348^1.751^.949^1.671^2.531^4.163^1.512^1.224^1.06
;;^UTILITY(U,$J,112,2152,4)
;;=0^0^.26^2.27^.31^1.35^3.72^.06
;;^UTILITY(U,$J,112,2152,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2153,0)
;;=BEEF, SHORT LOIN, TOP LOIN, ALL GRADES, TRIMMED, BRLD^13-270^oz.^28.35^80^N
;;^UTILITY(U,$J,112,2153,1)
;;=28.62^9.4^0^207^59.8^^^8^2.47^27^218^396^68^5.22^.107^.016^^0^0^.09
;;^UTILITY(U,$J,112,2153,2)
;;=.2^5.34^.37^.42^8^2^.24^.02^76^3.59^3.78^.31^0^1.17^^^0
;;^UTILITY(U,$J,112,2153,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
FHINI069 ; ; 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,2144,3)
+2 ;;=.325^1.266^1.303^2.291^2.412^.742^.325^1.132^.974^1.41^1.832^.993^1.749^2.648^4.355^1.582^1.28^1.108
+3 ;;^UTILITY(U,$J,112,2144,4)
+4 ;;=0^0^.14^1.3^.21^.63^2.21^.03
+5 ;;^UTILITY(U,$J,112,2144,20)
+6 ;;=USDA Std. Reference, Release 10
+7 ;;^UTILITY(U,$J,112,2145,0)
+8 ;;=BEEF, ROUND, EYE OF ROUND, GOOD, TRIMMED, ROASTED^13-188^oz.^28.35^87^N
+9 ;;^UTILITY(U,$J,112,2145,1)
+10 ;;=28.99^4^0^160^65.1^^^5^1.95^27^226^395^62^4.74^.1^.016^^0^0^.09
+11 ;;^UTILITY(U,$J,112,2145,2)
+12 ;;=.17^3.75^.46^.38^7^2.17^.1^.01^69^1.45^1.7^.13^0^1.21^^^0
+13 ;;^UTILITY(U,$J,112,2145,3)
+14 ;;=.325^1.266^1.303^2.291^2.412^.742^.325^1.132^.974^1.41^1.832^.993^1.749^2.648^4.355^1.582^1.28^1.108
+15 ;;^UTILITY(U,$J,112,2145,4)
+16 ;;=0^0^.1^.91^.15^.44^1.55^.02
+17 ;;^UTILITY(U,$J,112,2145,20)
+18 ;;=USDA Std. Reference, Release 10
+19 ;;^UTILITY(U,$J,112,2146,0)
+20 ;;=BEEF, ROUND, TIP ROUND, CHOICE, TRIMMED, ROASTED^13-202^oz.^28.35^84^N
+21 ;;^UTILITY(U,$J,112,2146,1)
+22 ;;=28.71^7.3^0^188^64.6^^^5^2.94^27^242^386^65^7.07^.125^.017^^0^0^.1
+23 ;;^UTILITY(U,$J,112,2146,2)
+24 ;;=.27^3.74^.47^.4^8^2.89^.23^.02^81^2.55^2.9^.29^0^1.18^^^0
+25 ;;^UTILITY(U,$J,112,2146,3)
+26 ;;=.322^1.254^1.291^2.269^2.389^.735^.322^1.121^.965^1.397^1.815^.983^1.732^2.623^4.314^1.567^1.268^1.098
+27 ;;^UTILITY(U,$J,112,2146,4)
+28 ;;=0^0^.19^1.53^.24^.84^2.66^.04
+29 ;;^UTILITY(U,$J,112,2146,20)
+30 ;;=USDA Std. Reference, Release 10
+31 ;;^UTILITY(U,$J,112,2147,0)
+32 ;;=BEEF, ROUND, TIP ROUND, GOOD, TRIMMED, ROASTED^13-204^oz.^28.35^84^N
+33 ;;^UTILITY(U,$J,112,2147,1)
+34 ;;=28.71^6.4^0^180^65.1^^^5^2.94^27^242^386^65^7.07^.125^.017^^0^0^.1
+35 ;;^UTILITY(U,$J,112,2147,2)
+36 ;;=.27^3.74^.47^.4^8^2.89^.2^.02^81^2.24^2.54^.26^0^1.18^^^0
+37 ;;^UTILITY(U,$J,112,2147,3)
+38 ;;=.322^1.254^1.291^2.269^2.389^.735^.322^1.121^.965^1.397^1.815^.983^1.732^2.623^4.314^1.567^1.268^1.098
+39 ;;^UTILITY(U,$J,112,2147,4)
+40 ;;=0^0^.16^1.34^.21^.73^2.33^.03
+41 ;;^UTILITY(U,$J,112,2147,20)
+42 ;;=USDA Std. Reference, Release 10
+43 ;;^UTILITY(U,$J,112,2148,0)
+44 ;;=BEEF, ROUND, TOP ROUND, CHOICE, TRIMMED, PAN-FRIED^13-220^oz.^28.35^86^N
+45 ;;^UTILITY(U,$J,112,2148,1)
+46 ;;=35.07^8.58^0^227^55.5^^^5^3.15^35^292^513^71^4.62^.131^.02^^0^0^.11
+47 ;;^UTILITY(U,$J,112,2148,2)
+48 ;;=.28^5.48^.46^.61^13^3.43^1.23^.16^97^2.42^2.83^1.64^0^1.54^^^0
+49 ;;^UTILITY(U,$J,112,2148,3)
+50 ;;=.393^1.532^1.577^2.772^2.918^.898^.393^1.369^1.178^1.706^2.216^1.201^2.115^3.204^5.269^1.913^1.549^1.341
+51 ;;^UTILITY(U,$J,112,2148,4)
+52 ;;=0^0^.14^1.45^.19^.74^2.58^.23
+53 ;;^UTILITY(U,$J,112,2148,20)
+54 ;;=USDA Std. Reference, Release 10
+55 ;;^UTILITY(U,$J,112,2149,0)
+56 ;;=BEEF, ROUND, TOP ROUND, GOOD, TRIMMED, BROILED^13-222^oz.^28.35^94^N
+57 ;;^UTILITY(U,$J,112,2149,1)
+58 ;;=31.69^3.7^0^169^63.2^^^6^2.88^31^246^442^61^5.57^.123^.017^^0^0^.12
+59 ;;^UTILITY(U,$J,112,2149,2)
+60 ;;=.27^6.04^.49^.56^12^2.48^.13^.01^84^1.27^1.44^.17^0^1.38^^^0
+61 ;;^UTILITY(U,$J,112,2149,3)
+62 ;;=.355^1.384^1.425^2.505^2.636^.811^.355^1.237^1.065^1.541^2.003^1.085^1.911^2.895^4.761^1.729^1.399^1.212
+63 ;;^UTILITY(U,$J,112,2149,4)
+64 ;;=0^0^.09^.77^.12^.41^1.32^.02
+65 ;;^UTILITY(U,$J,112,2149,20)
+66 ;;=USDA Std. Reference, Release 10
+67 ;;^UTILITY(U,$J,112,2150,0)
+68 ;;=BEEF, SHORT LOIN, PORTERHOUSE STEAK, CHOICE, TRIMMED, BRLD^13-232^oz.^28.35^67^N
+69 ;;^UTILITY(U,$J,112,2150,1)
+70 ;;=28.16^10.8^0^218^59.52^^^7^3^29^213^407^66^5.4^.143^.015^^0^0^.11
+71 ;;^UTILITY(U,$J,112,2150,2)
+72 ;;=.25^4.63^.34^.4^8^2.27^.3^.03^80^4.32^4.33^.4^0^1.24^^^0
+73 ;;^UTILITY(U,$J,112,2150,3)
+74 ;;=.315^1.23^1.266^2.226^2.343^.721^.315^1.099^.946^1.37^1.78^.964^1.699^2.573^4.231^1.537^1.244^1.077
+75 ;;^UTILITY(U,$J,112,2150,4)
+76 ;;=.01^.01^.29^2.42^.32^1.35^3.86^.05
+77 ;;^UTILITY(U,$J,112,2150,20)
+78 ;;=USDA Std. Reference, Release 10
+79 ;;^UTILITY(U,$J,112,2152,0)
+80 ;;=BEEF, SHORT LOIN, TENDERLOIN, GOOD, TRIMMED, ROASTED^13-257^oz.^28.35^79^N
+81 ;;^UTILITY(U,$J,112,2152,1)
+82 ;;=27.71^10.32^0^211^57.55^^^7^3.69^27^239^391^61^4.79^.145^.016^^0^0^.1
+83 ;;^UTILITY(U,$J,112,2152,2)
+84 ;;=.31^3.41^.28^.29^9^2.71^.37^.04^83^3.89^4.03^.47^0^1.39^^^0
+85 ;;^UTILITY(U,$J,112,2152,3)
+86 ;;=.31^1.21^1.246^2.19^2.305^.709^.31^1.082^.931^1.348^1.751^.949^1.671^2.531^4.163^1.512^1.224^1.06
+87 ;;^UTILITY(U,$J,112,2152,4)
+88 ;;=0^0^.26^2.27^.31^1.35^3.72^.06
+89 ;;^UTILITY(U,$J,112,2152,20)
+90 ;;=USDA Std. Reference, Release 10
+91 ;;^UTILITY(U,$J,112,2153,0)
+92 ;;=BEEF, SHORT LOIN, TOP LOIN, ALL GRADES, TRIMMED, BRLD^13-270^oz.^28.35^80^N
+93 ;;^UTILITY(U,$J,112,2153,1)
+94 ;;=28.62^9.4^0^207^59.8^^^8^2.47^27^218^396^68^5.22^.107^.016^^0^0^.09
+95 ;;^UTILITY(U,$J,112,2153,2)
+96 ;;=.2^5.34^.37^.42^8^2^.24^.02^76^3.59^3.78^.31^0^1.17^^^0
+97 ;;^UTILITY(U,$J,112,2153,3)
+98 ;;=.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
