FHINI068 ; ; 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,2136,2)
;;=.22^4.45^.45^.26^9^2.61^.35^.03^81^5.87^6.15^.42^0^1.08^^^0
;;^UTILITY(U,$J,112,2136,3)
;;=.308^1.203^1.238^2.176^2.291^.705^.308^1.075^.925^1.339^1.74^.943^1.661^2.515^4.136^1.502^1.216^1.053
;;^UTILITY(U,$J,112,2136,4)
;;=.01^.01^.45^3.45^.52^1.95^5.62^.04
;;^UTILITY(U,$J,112,2136,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2137,0)
;;=BEEF, RIB, LARGE END, GOOD, TRIMMED, ROASTED^13-119^oz.^28.35^58^N
;;^UTILITY(U,$J,112,2137,1)
;;=27.53^11.4^0^220^59.4^^^8^2.82^25^209^357^73^7.46^.105^.016^^0^0^.09
;;^UTILITY(U,$J,112,2137,2)
;;=.22^4.45^.45^.26^9^2.61^.27^.02^81^4.55^4.77^.33^0^1.08^^^0
;;^UTILITY(U,$J,112,2137,3)
;;=.308^1.203^1.238^2.176^2.291^.705^.308^1.075^.925^1.339^1.74^.943^1.661^2.515^4.136^1.502^1.216^1.053
;;^UTILITY(U,$J,112,2137,4)
;;=.01^.01^.35^2.68^.4^1.51^4.36^.03
;;^UTILITY(U,$J,112,2137,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2138,0)
;;=BEEF, RIB, SMALL END, CHOICE, TRIMMED, RSTD^13-140^oz.^28.35^57^N
;;^UTILITY(U,$J,112,2138,1)
;;=26.84^13.06^0^232^58.41^^^12^2.91^25^222^398^71^6.21^.089^.016^^0^0^.07
;;^UTILITY(U,$J,112,2138,2)
;;=.19^3.74^.27^.28^8^3.33^.34^.08^79^5.21^5.63^.44^0^1.35^^^0
;;^UTILITY(U,$J,112,2138,3)
;;=.301^1.172^1.207^2.122^2.233^.687^.301^1.048^.902^1.306^1.696^.919^1.619^2.452^4.033^1.464^1.185^1.026
;;^UTILITY(U,$J,112,2138,4)
;;=.02^.01^.4^3.12^.55^1.65^5.07^.02
;;^UTILITY(U,$J,112,2138,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2139,0)
;;=BEEF, RIB, SMALL END, GOOD, TRIMMED, RSTD^13-143^oz.^28.35^58^N
;;^UTILITY(U,$J,112,2139,1)
;;=26.84^9.75^0^203^61.71^^^12^2.91^25^222^398^71^6.21^.089^.016^^0^0^.07
;;^UTILITY(U,$J,112,2139,2)
;;=.19^3.74^.27^.28^8^3.33^.27^.03^79^3.83^4.19^.32^0^1.35^^^0
;;^UTILITY(U,$J,112,2139,3)
;;=.301^1.172^1.207^2.122^2.233^.687^.301^1.048^.902^1.306^1.696^.919^1.619^2.452^4.033^1.464^1.185^1.026
;;^UTILITY(U,$J,112,2139,4)
;;=.01^0^.29^2.3^.37^1.24^3.81^.02
;;^UTILITY(U,$J,112,2139,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2140,0)
;;=BEEF, RIB, SHORTRIBS, CHOICE, TRIMMED, BRAISED^13-150^oz.^28.35^39^N
;;^UTILITY(U,$J,112,2140,1)
;;=30.76^18.13^0^295^50.15^^^11^3.36^22^235^313^58^7.8^.107^.018^^0^0^.065
;;^UTILITY(U,$J,112,2140,2)
;;=.202^3.208^.337^.28^7^3.46^.43^.05^93^7.74^7.98^.55^0^.98^^^0
;;^UTILITY(U,$J,112,2140,3)
;;=.344^1.343^1.383^2.431^2.559^.787^.344^1.201^1.033^1.496^1.944^1.053^1.855^2.81^4.621^1.678^1.358^1.176
;;^UTILITY(U,$J,112,2140,4)
;;=.01^.01^.57^4.35^.63^2.44^7.04^.05
;;^UTILITY(U,$J,112,2140,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2141,0)
;;=BEEF, ROUND, FULL CUT, CHOICE, TRIMMED, BROILED^13-156^oz.^28.35^75^N
;;^UTILITY(U,$J,112,2141,1)
;;=29.21^7.31^0^191^60.5^^^5^2.7^28^256^422^64^4.64^.106^.016^^0^0^.1
;;^UTILITY(U,$J,112,2141,2)
;;=.22^4.26^.41^.4^10^3.17^.24^.03^78^2.56^3.1^.31^0^1.41^^^0
;;^UTILITY(U,$J,112,2141,3)
;;=.327^1.276^1.313^2.309^2.43^.748^.327^1.14^.981^1.421^1.846^1^1.762^2.669^4.388^1.594^1.29^1.117
;;^UTILITY(U,$J,112,2141,4)
;;=0^0^.18^1.61^.32^.76^2.78^.04
;;^UTILITY(U,$J,112,2141,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2142,0)
;;=BEEF, ROUND, BOTTOM ROUND, CHOICE, TRIMMED, BRAISED^13-170^oz.^28.35^89^N
;;^UTILITY(U,$J,112,2142,1)
;;=31.59^9.4^0^220^56.8^^^5^3.46^25^272^308^51^5.48^.134^.018^^0^0^.07
;;^UTILITY(U,$J,112,2142,2)
;;=.26^4.08^.42^.36^11^2.47^.27^.03^96^3.17^4.12^.36^0^1.14^^^0
;;^UTILITY(U,$J,112,2142,3)
;;=.354^1.38^1.42^2.497^2.628^.809^.354^1.233^1.061^1.536^1.996^1.082^1.905^2.886^4.746^1.723^1.395^1.208
;;^UTILITY(U,$J,112,2142,4)
;;=0^0^.24^2.01^.42^.92^3.7^.06
;;^UTILITY(U,$J,112,2142,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2143,0)
;;=BEEF, ROUND, BOTTOM ROUND, GOOD, TRIMMED, BRAISED^13-172^oz.^28.35^89^N
;;^UTILITY(U,$J,112,2143,1)
;;=31.59^6.8^0^196^58.6^^^5^3.46^25^272^308^51^5.48^.134^.018^^0^0^.07
;;^UTILITY(U,$J,112,2143,2)
;;=.26^4.08^.42^.36^11^2.47^.2^.02^96^2.3^2.98^.26^0^1.14^^^0
;;^UTILITY(U,$J,112,2143,3)
;;=.354^1.38^1.42^2.497^2.628^.809^.354^1.233^1.061^1.536^1.996^1.082^1.905^2.886^4.746^1.723^1.395^1.208
;;^UTILITY(U,$J,112,2143,4)
;;=0^0^.18^1.45^.3^.67^2.68^.04
;;^UTILITY(U,$J,112,2143,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2144,0)
;;=BEEF, ROUND, EYE OF ROUND, CHOICE, TRIMMED, ROASTED^13-186^oz.^28.35^87^N
;;^UTILITY(U,$J,112,2144,1)
;;=28.99^5.7^0^175^64.9^^^5^1.95^27^226^395^62^4.74^.1^.016^^0^0^.09
;;^UTILITY(U,$J,112,2144,2)
;;=.17^3.75^.46^.38^7^2.17^.15^.01^69^2.07^2.42^.18^0^1.21^^^0
FHINI068 ; ; 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,2136,2)
+2 ;;=.22^4.45^.45^.26^9^2.61^.35^.03^81^5.87^6.15^.42^0^1.08^^^0
+3 ;;^UTILITY(U,$J,112,2136,3)
+4 ;;=.308^1.203^1.238^2.176^2.291^.705^.308^1.075^.925^1.339^1.74^.943^1.661^2.515^4.136^1.502^1.216^1.053
+5 ;;^UTILITY(U,$J,112,2136,4)
+6 ;;=.01^.01^.45^3.45^.52^1.95^5.62^.04
+7 ;;^UTILITY(U,$J,112,2136,20)
+8 ;;=USDA Std. Reference, Release 10
+9 ;;^UTILITY(U,$J,112,2137,0)
+10 ;;=BEEF, RIB, LARGE END, GOOD, TRIMMED, ROASTED^13-119^oz.^28.35^58^N
+11 ;;^UTILITY(U,$J,112,2137,1)
+12 ;;=27.53^11.4^0^220^59.4^^^8^2.82^25^209^357^73^7.46^.105^.016^^0^0^.09
+13 ;;^UTILITY(U,$J,112,2137,2)
+14 ;;=.22^4.45^.45^.26^9^2.61^.27^.02^81^4.55^4.77^.33^0^1.08^^^0
+15 ;;^UTILITY(U,$J,112,2137,3)
+16 ;;=.308^1.203^1.238^2.176^2.291^.705^.308^1.075^.925^1.339^1.74^.943^1.661^2.515^4.136^1.502^1.216^1.053
+17 ;;^UTILITY(U,$J,112,2137,4)
+18 ;;=.01^.01^.35^2.68^.4^1.51^4.36^.03
+19 ;;^UTILITY(U,$J,112,2137,20)
+20 ;;=USDA Std. Reference, Release 10
+21 ;;^UTILITY(U,$J,112,2138,0)
+22 ;;=BEEF, RIB, SMALL END, CHOICE, TRIMMED, RSTD^13-140^oz.^28.35^57^N
+23 ;;^UTILITY(U,$J,112,2138,1)
+24 ;;=26.84^13.06^0^232^58.41^^^12^2.91^25^222^398^71^6.21^.089^.016^^0^0^.07
+25 ;;^UTILITY(U,$J,112,2138,2)
+26 ;;=.19^3.74^.27^.28^8^3.33^.34^.08^79^5.21^5.63^.44^0^1.35^^^0
+27 ;;^UTILITY(U,$J,112,2138,3)
+28 ;;=.301^1.172^1.207^2.122^2.233^.687^.301^1.048^.902^1.306^1.696^.919^1.619^2.452^4.033^1.464^1.185^1.026
+29 ;;^UTILITY(U,$J,112,2138,4)
+30 ;;=.02^.01^.4^3.12^.55^1.65^5.07^.02
+31 ;;^UTILITY(U,$J,112,2138,20)
+32 ;;=USDA Std. Reference, Release 10
+33 ;;^UTILITY(U,$J,112,2139,0)
+34 ;;=BEEF, RIB, SMALL END, GOOD, TRIMMED, RSTD^13-143^oz.^28.35^58^N
+35 ;;^UTILITY(U,$J,112,2139,1)
+36 ;;=26.84^9.75^0^203^61.71^^^12^2.91^25^222^398^71^6.21^.089^.016^^0^0^.07
+37 ;;^UTILITY(U,$J,112,2139,2)
+38 ;;=.19^3.74^.27^.28^8^3.33^.27^.03^79^3.83^4.19^.32^0^1.35^^^0
+39 ;;^UTILITY(U,$J,112,2139,3)
+40 ;;=.301^1.172^1.207^2.122^2.233^.687^.301^1.048^.902^1.306^1.696^.919^1.619^2.452^4.033^1.464^1.185^1.026
+41 ;;^UTILITY(U,$J,112,2139,4)
+42 ;;=.01^0^.29^2.3^.37^1.24^3.81^.02
+43 ;;^UTILITY(U,$J,112,2139,20)
+44 ;;=USDA Std. Reference, Release 10
+45 ;;^UTILITY(U,$J,112,2140,0)
+46 ;;=BEEF, RIB, SHORTRIBS, CHOICE, TRIMMED, BRAISED^13-150^oz.^28.35^39^N
+47 ;;^UTILITY(U,$J,112,2140,1)
+48 ;;=30.76^18.13^0^295^50.15^^^11^3.36^22^235^313^58^7.8^.107^.018^^0^0^.065
+49 ;;^UTILITY(U,$J,112,2140,2)
+50 ;;=.202^3.208^.337^.28^7^3.46^.43^.05^93^7.74^7.98^.55^0^.98^^^0
+51 ;;^UTILITY(U,$J,112,2140,3)
+52 ;;=.344^1.343^1.383^2.431^2.559^.787^.344^1.201^1.033^1.496^1.944^1.053^1.855^2.81^4.621^1.678^1.358^1.176
+53 ;;^UTILITY(U,$J,112,2140,4)
+54 ;;=.01^.01^.57^4.35^.63^2.44^7.04^.05
+55 ;;^UTILITY(U,$J,112,2140,20)
+56 ;;=USDA Std. Reference, Release 10
+57 ;;^UTILITY(U,$J,112,2141,0)
+58 ;;=BEEF, ROUND, FULL CUT, CHOICE, TRIMMED, BROILED^13-156^oz.^28.35^75^N
+59 ;;^UTILITY(U,$J,112,2141,1)
+60 ;;=29.21^7.31^0^191^60.5^^^5^2.7^28^256^422^64^4.64^.106^.016^^0^0^.1
+61 ;;^UTILITY(U,$J,112,2141,2)
+62 ;;=.22^4.26^.41^.4^10^3.17^.24^.03^78^2.56^3.1^.31^0^1.41^^^0
+63 ;;^UTILITY(U,$J,112,2141,3)
+64 ;;=.327^1.276^1.313^2.309^2.43^.748^.327^1.14^.981^1.421^1.846^1^1.762^2.669^4.388^1.594^1.29^1.117
+65 ;;^UTILITY(U,$J,112,2141,4)
+66 ;;=0^0^.18^1.61^.32^.76^2.78^.04
+67 ;;^UTILITY(U,$J,112,2141,20)
+68 ;;=USDA Std. Reference, Release 10
+69 ;;^UTILITY(U,$J,112,2142,0)
+70 ;;=BEEF, ROUND, BOTTOM ROUND, CHOICE, TRIMMED, BRAISED^13-170^oz.^28.35^89^N
+71 ;;^UTILITY(U,$J,112,2142,1)
+72 ;;=31.59^9.4^0^220^56.8^^^5^3.46^25^272^308^51^5.48^.134^.018^^0^0^.07
+73 ;;^UTILITY(U,$J,112,2142,2)
+74 ;;=.26^4.08^.42^.36^11^2.47^.27^.03^96^3.17^4.12^.36^0^1.14^^^0
+75 ;;^UTILITY(U,$J,112,2142,3)
+76 ;;=.354^1.38^1.42^2.497^2.628^.809^.354^1.233^1.061^1.536^1.996^1.082^1.905^2.886^4.746^1.723^1.395^1.208
+77 ;;^UTILITY(U,$J,112,2142,4)
+78 ;;=0^0^.24^2.01^.42^.92^3.7^.06
+79 ;;^UTILITY(U,$J,112,2142,20)
+80 ;;=USDA Std. Reference, Release 10
+81 ;;^UTILITY(U,$J,112,2143,0)
+82 ;;=BEEF, ROUND, BOTTOM ROUND, GOOD, TRIMMED, BRAISED^13-172^oz.^28.35^89^N
+83 ;;^UTILITY(U,$J,112,2143,1)
+84 ;;=31.59^6.8^0^196^58.6^^^5^3.46^25^272^308^51^5.48^.134^.018^^0^0^.07
+85 ;;^UTILITY(U,$J,112,2143,2)
+86 ;;=.26^4.08^.42^.36^11^2.47^.2^.02^96^2.3^2.98^.26^0^1.14^^^0
+87 ;;^UTILITY(U,$J,112,2143,3)
+88 ;;=.354^1.38^1.42^2.497^2.628^.809^.354^1.233^1.061^1.536^1.996^1.082^1.905^2.886^4.746^1.723^1.395^1.208
+89 ;;^UTILITY(U,$J,112,2143,4)
+90 ;;=0^0^.18^1.45^.3^.67^2.68^.04
+91 ;;^UTILITY(U,$J,112,2143,20)
+92 ;;=USDA Std. Reference, Release 10
+93 ;;^UTILITY(U,$J,112,2144,0)
+94 ;;=BEEF, ROUND, EYE OF ROUND, CHOICE, TRIMMED, ROASTED^13-186^oz.^28.35^87^N
+95 ;;^UTILITY(U,$J,112,2144,1)
+96 ;;=28.99^5.7^0^175^64.9^^^5^1.95^27^226^395^62^4.74^.1^.016^^0^0^.09
+97 ;;^UTILITY(U,$J,112,2144,2)
+98 ;;=.17^3.75^.46^.38^7^2.17^.15^.01^69^2.07^2.42^.18^0^1.21^^^0
