FHINI02L ; ; 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,742,0)
;;=BEEF, T-BONE STEAK, CHOICE, TOT ED, BRLD^13-234^oz.^28.3^82^N
;;^UTILITY(U,$J,112,742,1)
;;=24.98^21.16^0^298^52.76^^^8^2.65^25^184^355^61^4.68^.125^.014^^0^0^.1
;;^UTILITY(U,$J,112,742,2)
;;=.22^4.08^.3^.34^7^2.15^.53^.21^83^8.54^8.89^.8^0^1.1^^^0
;;^UTILITY(U,$J,112,742,3)
;;=.28^1.091^1.123^1.975^2.079^.64^.28^.975^.839^1.215^1.579^.855^1.507^2.283^3.754^1.363^1.103^.955
;;^UTILITY(U,$J,112,742,4)
;;=.06^.05^.65^5.1^.81^2.47^7.93^.04
;;^UTILITY(U,$J,112,742,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,743,0)
;;=BEEF, T-BONE STEAK, CHOICE, TRIMMED, BROILED^13-236^oz.^28.3^62^N
;;^UTILITY(U,$J,112,743,1)
;;=28.13^10.37^0^214^60.26^^^7^3^29^208^407^66^5.4^.143^.015^^0^0^.11
;;^UTILITY(U,$J,112,743,2)
;;=.25^4.63^.33^.39^8^2.27^.29^.03^80^4.15^4.16^.39^0^1.24^^^0
;;^UTILITY(U,$J,112,743,3)
;;=.315^1.229^1.265^2.223^2.341^.72^.315^1.098^.945^1.368^1.778^.963^1.697^2.57^4.226^1.535^1.242^1.076
;;^UTILITY(U,$J,112,743,4)
;;=.01^.01^.28^2.32^.3^1.29^3.71^.05
;;^UTILITY(U,$J,112,743,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,744,0)
;;=BEEF, CLUB STEAK, CHOICE, TOT ED, BROILED^13-264^oz.^28.3^95^N
;;^UTILITY(U,$J,112,744,1)
;;=25.38^20.98^0^298^51.93^^^9^2.22^23^192^346^63^4.53^.096^.014^^0^0^.08
;;^UTILITY(U,$J,112,744,2)
;;=.18^4.66^.33^.37^7^1.93^.51^.21^79^8.31^8.82^.75^0^1.04^^^0
;;^UTILITY(U,$J,112,744,3)
;;=.284^1.109^1.141^2.006^2.112^.65^.284^.991^.853^1.235^1.604^.869^1.531^2.319^3.814^1.385^1.121^.971
;;^UTILITY(U,$J,112,744,4)
;;=.05^.05^.67^5.09^.84^2.45^7.96^.04
;;^UTILITY(U,$J,112,744,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,745,0)
;;=BEEF, CLUB STEAK, CHOICE, TRIMMED, BROILED^13-272^oz.^28.3^80^N
;;^UTILITY(U,$J,112,745,1)
;;=28.62^10.15^0^214^59.25^^^8^2.47^27^218^396^68^5.22^.107^.016^^0^0^.09
;;^UTILITY(U,$J,112,745,2)
;;=.2^5.34^.37^.42^8^2^.26^.02^76^3.87^4.08^.33^0^1.17^^^0
;;^UTILITY(U,$J,112,745,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,745,4)
;;=0^.01^.3^2.31^.33^1.26^3.75^.05
;;^UTILITY(U,$J,112,745,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,746,0)
;;=BEEF, SIRLOIN STEAK(RND BONE), CHOICE, TOT ED, BRLD^13-280^oz.^28.3^87^N
;;^UTILITY(U,$J,112,746,1)
;;=27.61^16.73^0^269^55.58^^^11^3.04^28^220^363^62^5.8^.132^.016^^0^0^.11
;;^UTILITY(U,$J,112,746,2)
;;=.27^3.9^.35^.41^9^2.68^.44^.16^90^6.67^7.19^.64^0^1.24^^^0
;;^UTILITY(U,$J,112,746,3)
;;=.309^1.206^1.241^2.182^2.297^.707^.309^1.078^.928^1.343^1.745^.945^1.665^2.522^4.148^1.506^1.219^1.056
;;^UTILITY(U,$J,112,746,4)
;;=.04^.04^.51^4.03^.65^2.05^6.51^.04
;;^UTILITY(U,$J,112,746,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,747,0)
;;=BEEF, SIRLOIN STEAK(RND BONE), CHOICE, TRIMMED, BROIL^13-289^oz.^28.3^74^N
;;^UTILITY(U,$J,112,747,1)
;;=30.37^8^0^202^61.6^^^11^3.36^32^244^403^66^6.52^.146^.017^^0^0^.13
;;^UTILITY(U,$J,112,747,2)
;;=.29^4.28^.39^.45^10^2.85^.25^.02^89^3.11^3.41^.31^0^1.37^^^0
;;^UTILITY(U,$J,112,747,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,747,4)
;;=0^.01^.21^1.8^.25^1.1^3.15^.05
;;^UTILITY(U,$J,112,747,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,754,0)
;;=BEEF, RIB, CHOICE, TOT ED, RSTD^13-076^oz.^28.3^80^N
;;^UTILITY(U,$J,112,754,1)
;;=22.17^31.23^0^376^45.87^^^11^2.31^19^172^296^63^5.24^.082^.013^^0^0^.07
;;^UTILITY(U,$J,112,754,2)
;;=.17^3.36^.31^.23^7^2.52^.73^.35^85^12.6^13.43^1.11^0^.97^^^0
;;^UTILITY(U,$J,112,754,3)
;;=.248^.968^.997^1.752^1.844^.567^.248^.865^.745^1.078^1.401^.759^1.337^2.025^3.33^1.209^.979^.848
;;^UTILITY(U,$J,112,754,4)
;;=.09^.08^1.02^7.73^1.33^3.67^12.04^.02
;;^UTILITY(U,$J,112,754,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,755,0)
;;=BEEF, RIB, CHOICE, TRIMMED, ROASTED^13-088^oz.^28.3^54^N
;;^UTILITY(U,$J,112,755,1)
;;=27.25^14.03^0^243^57.87^^^10^2.86^25^214^374^72^6.95^.099^.016^^0^0^.08
;;^UTILITY(U,$J,112,755,2)
;;=.21^4.16^.38^.27^8^2.91^.34^.05^80^5.6^5.94^.43^0^1.19^^^0
;;^UTILITY(U,$J,112,755,3)
;;=.305^1.19^1.225^2.154^2.267^.698^.305^1.064^.916^1.325^1.722^.933^1.644^2.489^4.094^1.487^1.203^1.042
;;^UTILITY(U,$J,112,755,4)
;;=.01^.01^.43^3.32^.53^1.83^5.39^.03
;;^UTILITY(U,$J,112,755,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,767,0)
;;=BEEF AND VEGETABLE STEW, HOME RECIPE, W/LEAN CHUCK, WO/SALT^371-1^cups^245^100^N
;;^UTILITY(U,$J,112,767,1)
;;=6.4^4.3^6.2^89^82.4^^^12^1.2^^75^250^37^^^^^980^7^.06
FHINI02L ; ; 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,742,0)
+2 ;;=BEEF, T-BONE STEAK, CHOICE, TOT ED, BRLD^13-234^oz.^28.3^82^N
+3 ;;^UTILITY(U,$J,112,742,1)
+4 ;;=24.98^21.16^0^298^52.76^^^8^2.65^25^184^355^61^4.68^.125^.014^^0^0^.1
+5 ;;^UTILITY(U,$J,112,742,2)
+6 ;;=.22^4.08^.3^.34^7^2.15^.53^.21^83^8.54^8.89^.8^0^1.1^^^0
+7 ;;^UTILITY(U,$J,112,742,3)
+8 ;;=.28^1.091^1.123^1.975^2.079^.64^.28^.975^.839^1.215^1.579^.855^1.507^2.283^3.754^1.363^1.103^.955
+9 ;;^UTILITY(U,$J,112,742,4)
+10 ;;=.06^.05^.65^5.1^.81^2.47^7.93^.04
+11 ;;^UTILITY(U,$J,112,742,20)
+12 ;;=USDA Std. Reference, Release 10
+13 ;;^UTILITY(U,$J,112,743,0)
+14 ;;=BEEF, T-BONE STEAK, CHOICE, TRIMMED, BROILED^13-236^oz.^28.3^62^N
+15 ;;^UTILITY(U,$J,112,743,1)
+16 ;;=28.13^10.37^0^214^60.26^^^7^3^29^208^407^66^5.4^.143^.015^^0^0^.11
+17 ;;^UTILITY(U,$J,112,743,2)
+18 ;;=.25^4.63^.33^.39^8^2.27^.29^.03^80^4.15^4.16^.39^0^1.24^^^0
+19 ;;^UTILITY(U,$J,112,743,3)
+20 ;;=.315^1.229^1.265^2.223^2.341^.72^.315^1.098^.945^1.368^1.778^.963^1.697^2.57^4.226^1.535^1.242^1.076
+21 ;;^UTILITY(U,$J,112,743,4)
+22 ;;=.01^.01^.28^2.32^.3^1.29^3.71^.05
+23 ;;^UTILITY(U,$J,112,743,20)
+24 ;;=USDA Std. Reference, Release 10
+25 ;;^UTILITY(U,$J,112,744,0)
+26 ;;=BEEF, CLUB STEAK, CHOICE, TOT ED, BROILED^13-264^oz.^28.3^95^N
+27 ;;^UTILITY(U,$J,112,744,1)
+28 ;;=25.38^20.98^0^298^51.93^^^9^2.22^23^192^346^63^4.53^.096^.014^^0^0^.08
+29 ;;^UTILITY(U,$J,112,744,2)
+30 ;;=.18^4.66^.33^.37^7^1.93^.51^.21^79^8.31^8.82^.75^0^1.04^^^0
+31 ;;^UTILITY(U,$J,112,744,3)
+32 ;;=.284^1.109^1.141^2.006^2.112^.65^.284^.991^.853^1.235^1.604^.869^1.531^2.319^3.814^1.385^1.121^.971
+33 ;;^UTILITY(U,$J,112,744,4)
+34 ;;=.05^.05^.67^5.09^.84^2.45^7.96^.04
+35 ;;^UTILITY(U,$J,112,744,20)
+36 ;;=USDA Std. Reference, Release 10
+37 ;;^UTILITY(U,$J,112,745,0)
+38 ;;=BEEF, CLUB STEAK, CHOICE, TRIMMED, BROILED^13-272^oz.^28.3^80^N
+39 ;;^UTILITY(U,$J,112,745,1)
+40 ;;=28.62^10.15^0^214^59.25^^^8^2.47^27^218^396^68^5.22^.107^.016^^0^0^.09
+41 ;;^UTILITY(U,$J,112,745,2)
+42 ;;=.2^5.34^.37^.42^8^2^.26^.02^76^3.87^4.08^.33^0^1.17^^^0
+43 ;;^UTILITY(U,$J,112,745,3)
+44 ;;=.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
+45 ;;^UTILITY(U,$J,112,745,4)
+46 ;;=0^.01^.3^2.31^.33^1.26^3.75^.05
+47 ;;^UTILITY(U,$J,112,745,20)
+48 ;;=USDA Std. Reference, Release 10
+49 ;;^UTILITY(U,$J,112,746,0)
+50 ;;=BEEF, SIRLOIN STEAK(RND BONE), CHOICE, TOT ED, BRLD^13-280^oz.^28.3^87^N
+51 ;;^UTILITY(U,$J,112,746,1)
+52 ;;=27.61^16.73^0^269^55.58^^^11^3.04^28^220^363^62^5.8^.132^.016^^0^0^.11
+53 ;;^UTILITY(U,$J,112,746,2)
+54 ;;=.27^3.9^.35^.41^9^2.68^.44^.16^90^6.67^7.19^.64^0^1.24^^^0
+55 ;;^UTILITY(U,$J,112,746,3)
+56 ;;=.309^1.206^1.241^2.182^2.297^.707^.309^1.078^.928^1.343^1.745^.945^1.665^2.522^4.148^1.506^1.219^1.056
+57 ;;^UTILITY(U,$J,112,746,4)
+58 ;;=.04^.04^.51^4.03^.65^2.05^6.51^.04
+59 ;;^UTILITY(U,$J,112,746,20)
+60 ;;=USDA Std. Reference, Release 10
+61 ;;^UTILITY(U,$J,112,747,0)
+62 ;;=BEEF, SIRLOIN STEAK(RND BONE), CHOICE, TRIMMED, BROIL^13-289^oz.^28.3^74^N
+63 ;;^UTILITY(U,$J,112,747,1)
+64 ;;=30.37^8^0^202^61.6^^^11^3.36^32^244^403^66^6.52^.146^.017^^0^0^.13
+65 ;;^UTILITY(U,$J,112,747,2)
+66 ;;=.29^4.28^.39^.45^10^2.85^.25^.02^89^3.11^3.41^.31^0^1.37^^^0
+67 ;;^UTILITY(U,$J,112,747,3)
+68 ;;=.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
+69 ;;^UTILITY(U,$J,112,747,4)
+70 ;;=0^.01^.21^1.8^.25^1.1^3.15^.05
+71 ;;^UTILITY(U,$J,112,747,20)
+72 ;;=USDA Std. Reference, Release 10
+73 ;;^UTILITY(U,$J,112,754,0)
+74 ;;=BEEF, RIB, CHOICE, TOT ED, RSTD^13-076^oz.^28.3^80^N
+75 ;;^UTILITY(U,$J,112,754,1)
+76 ;;=22.17^31.23^0^376^45.87^^^11^2.31^19^172^296^63^5.24^.082^.013^^0^0^.07
+77 ;;^UTILITY(U,$J,112,754,2)
+78 ;;=.17^3.36^.31^.23^7^2.52^.73^.35^85^12.6^13.43^1.11^0^.97^^^0
+79 ;;^UTILITY(U,$J,112,754,3)
+80 ;;=.248^.968^.997^1.752^1.844^.567^.248^.865^.745^1.078^1.401^.759^1.337^2.025^3.33^1.209^.979^.848
+81 ;;^UTILITY(U,$J,112,754,4)
+82 ;;=.09^.08^1.02^7.73^1.33^3.67^12.04^.02
+83 ;;^UTILITY(U,$J,112,754,20)
+84 ;;=USDA Std. Reference, Release 10
+85 ;;^UTILITY(U,$J,112,755,0)
+86 ;;=BEEF, RIB, CHOICE, TRIMMED, ROASTED^13-088^oz.^28.3^54^N
+87 ;;^UTILITY(U,$J,112,755,1)
+88 ;;=27.25^14.03^0^243^57.87^^^10^2.86^25^214^374^72^6.95^.099^.016^^0^0^.08
+89 ;;^UTILITY(U,$J,112,755,2)
+90 ;;=.21^4.16^.38^.27^8^2.91^.34^.05^80^5.6^5.94^.43^0^1.19^^^0
+91 ;;^UTILITY(U,$J,112,755,3)
+92 ;;=.305^1.19^1.225^2.154^2.267^.698^.305^1.064^.916^1.325^1.722^.933^1.644^2.489^4.094^1.487^1.203^1.042
+93 ;;^UTILITY(U,$J,112,755,4)
+94 ;;=.01^.01^.43^3.32^.53^1.83^5.39^.03
+95 ;;^UTILITY(U,$J,112,755,20)
+96 ;;=USDA Std. Reference, Release 10
+97 ;;^UTILITY(U,$J,112,767,0)
+98 ;;=BEEF AND VEGETABLE STEW, HOME RECIPE, W/LEAN CHUCK, WO/SALT^371-1^cups^245^100^N
+99 ;;^UTILITY(U,$J,112,767,1)
+100 ;;=6.4^4.3^6.2^89^82.4^^^12^1.2^^75^250^37^^^^^980^7^.06
