FHINI067 ; ; 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,2128,1)
;;=29.75^12.76^0^242^57.52^^^6^2.81^23^241^285^70^6.89^.119^.017^^0^0^.07
;;^UTILITY(U,$J,112,2128,2)
;;=.22^3.71^.36^.29^8^2.6^.31^.03^93^4.56^5.87^.39^0^1.04^^^0
;;^UTILITY(U,$J,112,2128,3)
;;=.333^1.299^1.338^2.351^2.475^.762^.333^1.161^1^1.447^1.88^1.019^1.794^2.718^4.47^1.623^1.314^1.138
;;^UTILITY(U,$J,112,2128,4)
;;=.01^.01^.38^2.82^.58^1.35^5.28^.05
;;^UTILITY(U,$J,112,2128,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2129,0)
;;=BEEF, BRISKET, FLAT HALF, ALL GRADES, TRIMMED, BRAISED^13-028^oz.^28.35^67^N
;;^UTILITY(U,$J,112,2129,1)
;;=31.52^9.7^0^222^58.9^^^5^2.84^25^257^298^63^6.36^.124^.017^^0^0^.07
;;^UTILITY(U,$J,112,2129,2)
;;=.22^3.86^.37^.31^8^2.63^.28^.02^95^3.17^4.33^.37^0^1.1^^^0
;;^UTILITY(U,$J,112,2129,3)
;;=.353^1.377^1.417^2.491^2.622^.807^.353^1.23^1.059^1.533^1.992^1.079^1.901^2.88^4.735^1.72^1.392^1.205
;;^UTILITY(U,$J,112,2129,4)
;;=0^0^.24^1.97^.43^.96^3.9^.06
;;^UTILITY(U,$J,112,2129,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2130,0)
;;=BEEF, BRISKET, POINT HALF, ALL GRADES, TRIMMED, BRAISED^13-032^oz.^28.35^65^N
;;^UTILITY(U,$J,112,2130,1)
;;=28.05^15.7^0^261^56.2^^^6^2.79^22^226^273^77^7.39^.115^.017^^0^0^.07
;;^UTILITY(U,$J,112,2130,2)
;;=.23^3.57^.34^.28^8^2.58^.34^.03^91^5.89^7.35^.41^0^.98^^^0
;;^UTILITY(U,$J,112,2130,3)
;;=.314^1.225^1.261^2.217^2.334^.718^.314^1.095^.942^1.364^1.773^.96^1.692^2.563^4.214^1.53^1.239^1.073
;;^UTILITY(U,$J,112,2130,4)
;;=.01^.01^.51^3.63^.73^1.72^6.6^.04
;;^UTILITY(U,$J,112,2130,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2131,0)
;;=BEEF, CHUCK, ARM POT ROAST, GOOD, TRIMMED, BRAISED^13-046^oz.^28.35^63^N
;;^UTILITY(U,$J,112,2131,1)
;;=33.02^7.2^0^206^58.4^^^9^3.79^24^268^289^66^8.66^.164^.019^^0^0^.08
;;^UTILITY(U,$J,112,2131,2)
;;=.29^3.72^.38^.33^11^3.4^.22^.02^101^2.61^3.01^.28^0^1.11^^^0
;;^UTILITY(U,$J,112,2131,3)
;;=.37^1.442^1.485^2.61^2.747^.845^.37^1.289^1.109^1.606^2.087^1.131^1.992^3.017^4.961^1.802^1.458^1.263
;;^UTILITY(U,$J,112,2131,4)
;;=0^.01^.19^1.57^.27^.85^2.74^.04
;;^UTILITY(U,$J,112,2131,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2132,0)
;;=BEEF, CHUCK, BLADE ROAST, GOOD, TRIMMED, BRAISED^13-062^oz.^28.35^54^N
;;^UTILITY(U,$J,112,2132,1)
;;=31.06^11.6^0^237^56.3^^^13^3.68^23^235^263^71^10.27^.148^.018^^0^0^.08
;;^UTILITY(U,$J,112,2132,2)
;;=.28^2.67^.35^.29^6^2.47^.31^.03^106^4.5^5^.38^0^.99^^^0
;;^UTILITY(U,$J,112,2132,3)
;;=.348^1.357^1.397^2.455^2.584^.795^.348^1.213^1.044^1.511^1.963^1.064^1.874^2.838^4.667^1.695^1.372^1.188
;;^UTILITY(U,$J,112,2132,4)
;;=.01^.01^.34^2.63^.4^1.51^4.59^.04
;;^UTILITY(U,$J,112,2132,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2133,0)
;;=BEEF, FLANK, CHOICE, TRIMMED, BRAISED^13-069^oz.^28.35^97^N
;;^UTILITY(U,$J,112,2133,1)
;;=28.02^13^0^237^57.27^^^6^3.47^24^267^351^72^6.05^.124^.019^^0^0^.14
;;^UTILITY(U,$J,112,2133,2)
;;=.19^4.6^.38^.36^9^3.41^.28^.09^71^5.54^5.44^.39^0^2.14^^^0
;;^UTILITY(U,$J,112,2133,3)
;;=.314^1.224^1.26^2.215^2.331^.717^.314^1.094^.941^1.363^1.771^.959^1.69^2.56^4.21^1.529^1.237^1.071
;;^UTILITY(U,$J,112,2133,4)
;;=.01^.01^.42^3.2^.48^1.71^4.85^.02
;;^UTILITY(U,$J,112,2133,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2134,0)
;;=BEEF, RIB, WHOLE, GOOD, TRIMMED, BROILED^13-090^oz.^28.35^58^N
;;^UTILITY(U,$J,112,2134,1)
;;=26.33^10.42^0^206^59.92^^^11^2.57^25^213^381^71^6.57^.094^.016^^0^0^.09
;;^UTILITY(U,$J,112,2134,2)
;;=.2^3.84^.38^.32^7^3.32^.3^.02^77^4.23^4.25^.36^0^1.23^^^0
;;^UTILITY(U,$J,112,2134,3)
;;=.295^1.15^1.184^2.081^2.191^.674^.295^1.028^.885^1.281^1.664^.902^1.588^2.406^3.956^1.437^1.163^1.007
;;^UTILITY(U,$J,112,2134,4)
;;=.01^.01^.32^2.51^.38^1.38^3.86^.04
;;^UTILITY(U,$J,112,2134,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2135,0)
;;=BEEF, RIB, EYE, SMALL END, CHOICE, TRIMMED, BRL^13-098^oz.^28.35^81^N
;;^UTILITY(U,$J,112,2135,1)
;;=28.04^11.7^0^225^58.7^^^13^2.57^27^208^394^69^6.99^.1^.016^^0^0^.1
;;^UTILITY(U,$J,112,2135,2)
;;=.22^4.8^.34^.4^8^3.32^.28^.02^80^4.73^4.94^.33^0^1.23^^^0
;;^UTILITY(U,$J,112,2135,3)
;;=.314^1.225^1.261^2.216^2.333^.718^.314^1.095^.942^1.364^1.772^.96^1.691^2.561^4.212^1.53^1.238^1.072
;;^UTILITY(U,$J,112,2135,4)
;;=.01^.01^.37^2.8^.4^1.54^4.54^.03
;;^UTILITY(U,$J,112,2135,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2136,0)
;;=BEEF, RIB, LARGE END, CHOICE, TRIMMED, ROASTED^13-116^oz.^28.35^58^N
;;^UTILITY(U,$J,112,2136,1)
;;=27.53^14.7^0^250^57.5^^^8^2.82^25^209^357^73^7.46^.105^.016^^0^0^.09
FHINI067 ; ; 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,2128,1)
+2 ;;=29.75^12.76^0^242^57.52^^^6^2.81^23^241^285^70^6.89^.119^.017^^0^0^.07
+3 ;;^UTILITY(U,$J,112,2128,2)
+4 ;;=.22^3.71^.36^.29^8^2.6^.31^.03^93^4.56^5.87^.39^0^1.04^^^0
+5 ;;^UTILITY(U,$J,112,2128,3)
+6 ;;=.333^1.299^1.338^2.351^2.475^.762^.333^1.161^1^1.447^1.88^1.019^1.794^2.718^4.47^1.623^1.314^1.138
+7 ;;^UTILITY(U,$J,112,2128,4)
+8 ;;=.01^.01^.38^2.82^.58^1.35^5.28^.05
+9 ;;^UTILITY(U,$J,112,2128,20)
+10 ;;=USDA Std. Reference, Release 10
+11 ;;^UTILITY(U,$J,112,2129,0)
+12 ;;=BEEF, BRISKET, FLAT HALF, ALL GRADES, TRIMMED, BRAISED^13-028^oz.^28.35^67^N
+13 ;;^UTILITY(U,$J,112,2129,1)
+14 ;;=31.52^9.7^0^222^58.9^^^5^2.84^25^257^298^63^6.36^.124^.017^^0^0^.07
+15 ;;^UTILITY(U,$J,112,2129,2)
+16 ;;=.22^3.86^.37^.31^8^2.63^.28^.02^95^3.17^4.33^.37^0^1.1^^^0
+17 ;;^UTILITY(U,$J,112,2129,3)
+18 ;;=.353^1.377^1.417^2.491^2.622^.807^.353^1.23^1.059^1.533^1.992^1.079^1.901^2.88^4.735^1.72^1.392^1.205
+19 ;;^UTILITY(U,$J,112,2129,4)
+20 ;;=0^0^.24^1.97^.43^.96^3.9^.06
+21 ;;^UTILITY(U,$J,112,2129,20)
+22 ;;=USDA Std. Reference, Release 10
+23 ;;^UTILITY(U,$J,112,2130,0)
+24 ;;=BEEF, BRISKET, POINT HALF, ALL GRADES, TRIMMED, BRAISED^13-032^oz.^28.35^65^N
+25 ;;^UTILITY(U,$J,112,2130,1)
+26 ;;=28.05^15.7^0^261^56.2^^^6^2.79^22^226^273^77^7.39^.115^.017^^0^0^.07
+27 ;;^UTILITY(U,$J,112,2130,2)
+28 ;;=.23^3.57^.34^.28^8^2.58^.34^.03^91^5.89^7.35^.41^0^.98^^^0
+29 ;;^UTILITY(U,$J,112,2130,3)
+30 ;;=.314^1.225^1.261^2.217^2.334^.718^.314^1.095^.942^1.364^1.773^.96^1.692^2.563^4.214^1.53^1.239^1.073
+31 ;;^UTILITY(U,$J,112,2130,4)
+32 ;;=.01^.01^.51^3.63^.73^1.72^6.6^.04
+33 ;;^UTILITY(U,$J,112,2130,20)
+34 ;;=USDA Std. Reference, Release 10
+35 ;;^UTILITY(U,$J,112,2131,0)
+36 ;;=BEEF, CHUCK, ARM POT ROAST, GOOD, TRIMMED, BRAISED^13-046^oz.^28.35^63^N
+37 ;;^UTILITY(U,$J,112,2131,1)
+38 ;;=33.02^7.2^0^206^58.4^^^9^3.79^24^268^289^66^8.66^.164^.019^^0^0^.08
+39 ;;^UTILITY(U,$J,112,2131,2)
+40 ;;=.29^3.72^.38^.33^11^3.4^.22^.02^101^2.61^3.01^.28^0^1.11^^^0
+41 ;;^UTILITY(U,$J,112,2131,3)
+42 ;;=.37^1.442^1.485^2.61^2.747^.845^.37^1.289^1.109^1.606^2.087^1.131^1.992^3.017^4.961^1.802^1.458^1.263
+43 ;;^UTILITY(U,$J,112,2131,4)
+44 ;;=0^.01^.19^1.57^.27^.85^2.74^.04
+45 ;;^UTILITY(U,$J,112,2131,20)
+46 ;;=USDA Std. Reference, Release 10
+47 ;;^UTILITY(U,$J,112,2132,0)
+48 ;;=BEEF, CHUCK, BLADE ROAST, GOOD, TRIMMED, BRAISED^13-062^oz.^28.35^54^N
+49 ;;^UTILITY(U,$J,112,2132,1)
+50 ;;=31.06^11.6^0^237^56.3^^^13^3.68^23^235^263^71^10.27^.148^.018^^0^0^.08
+51 ;;^UTILITY(U,$J,112,2132,2)
+52 ;;=.28^2.67^.35^.29^6^2.47^.31^.03^106^4.5^5^.38^0^.99^^^0
+53 ;;^UTILITY(U,$J,112,2132,3)
+54 ;;=.348^1.357^1.397^2.455^2.584^.795^.348^1.213^1.044^1.511^1.963^1.064^1.874^2.838^4.667^1.695^1.372^1.188
+55 ;;^UTILITY(U,$J,112,2132,4)
+56 ;;=.01^.01^.34^2.63^.4^1.51^4.59^.04
+57 ;;^UTILITY(U,$J,112,2132,20)
+58 ;;=USDA Std. Reference, Release 10
+59 ;;^UTILITY(U,$J,112,2133,0)
+60 ;;=BEEF, FLANK, CHOICE, TRIMMED, BRAISED^13-069^oz.^28.35^97^N
+61 ;;^UTILITY(U,$J,112,2133,1)
+62 ;;=28.02^13^0^237^57.27^^^6^3.47^24^267^351^72^6.05^.124^.019^^0^0^.14
+63 ;;^UTILITY(U,$J,112,2133,2)
+64 ;;=.19^4.6^.38^.36^9^3.41^.28^.09^71^5.54^5.44^.39^0^2.14^^^0
+65 ;;^UTILITY(U,$J,112,2133,3)
+66 ;;=.314^1.224^1.26^2.215^2.331^.717^.314^1.094^.941^1.363^1.771^.959^1.69^2.56^4.21^1.529^1.237^1.071
+67 ;;^UTILITY(U,$J,112,2133,4)
+68 ;;=.01^.01^.42^3.2^.48^1.71^4.85^.02
+69 ;;^UTILITY(U,$J,112,2133,20)
+70 ;;=USDA Std. Reference, Release 10
+71 ;;^UTILITY(U,$J,112,2134,0)
+72 ;;=BEEF, RIB, WHOLE, GOOD, TRIMMED, BROILED^13-090^oz.^28.35^58^N
+73 ;;^UTILITY(U,$J,112,2134,1)
+74 ;;=26.33^10.42^0^206^59.92^^^11^2.57^25^213^381^71^6.57^.094^.016^^0^0^.09
+75 ;;^UTILITY(U,$J,112,2134,2)
+76 ;;=.2^3.84^.38^.32^7^3.32^.3^.02^77^4.23^4.25^.36^0^1.23^^^0
+77 ;;^UTILITY(U,$J,112,2134,3)
+78 ;;=.295^1.15^1.184^2.081^2.191^.674^.295^1.028^.885^1.281^1.664^.902^1.588^2.406^3.956^1.437^1.163^1.007
+79 ;;^UTILITY(U,$J,112,2134,4)
+80 ;;=.01^.01^.32^2.51^.38^1.38^3.86^.04
+81 ;;^UTILITY(U,$J,112,2134,20)
+82 ;;=USDA Std. Reference, Release 10
+83 ;;^UTILITY(U,$J,112,2135,0)
+84 ;;=BEEF, RIB, EYE, SMALL END, CHOICE, TRIMMED, BRL^13-098^oz.^28.35^81^N
+85 ;;^UTILITY(U,$J,112,2135,1)
+86 ;;=28.04^11.7^0^225^58.7^^^13^2.57^27^208^394^69^6.99^.1^.016^^0^0^.1
+87 ;;^UTILITY(U,$J,112,2135,2)
+88 ;;=.22^4.8^.34^.4^8^3.32^.28^.02^80^4.73^4.94^.33^0^1.23^^^0
+89 ;;^UTILITY(U,$J,112,2135,3)
+90 ;;=.314^1.225^1.261^2.216^2.333^.718^.314^1.095^.942^1.364^1.772^.96^1.691^2.561^4.212^1.53^1.238^1.072
+91 ;;^UTILITY(U,$J,112,2135,4)
+92 ;;=.01^.01^.37^2.8^.4^1.54^4.54^.03
+93 ;;^UTILITY(U,$J,112,2135,20)
+94 ;;=USDA Std. Reference, Release 10
+95 ;;^UTILITY(U,$J,112,2136,0)
+96 ;;=BEEF, RIB, LARGE END, CHOICE, TRIMMED, ROASTED^13-116^oz.^28.35^58^N
+97 ;;^UTILITY(U,$J,112,2136,1)
+98 ;;=27.53^14.7^0^250^57.5^^^8^2.82^25^209^357^73^7.46^.105^.016^^0^0^.09
