FHINI06B ; ; 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,2162,0)
;;=BEEF, GROUND, LEAN, BROILED, MEDIUM^13-305^oz.^28.35^71^N
;;^UTILITY(U,$J,112,2162,1)
;;=24.72^18.46^0^272^55.74^^^11^2.11^21^158^301^77^5.36^.066^.014^^0^0^.05
;;^UTILITY(U,$J,112,2162,2)
;;=.21^5.16^.38^.26^9^2.35^.51^.08^87^7.25^8.08^.69^0^1.08^^^0
;;^UTILITY(U,$J,112,2162,3)
;;=.277^1.08^1.111^1.954^2.057^.633^.277^.965^.831^1.202^1.562^.846^1.491^2.258^3.714^1.349^1.092^.945
;;^UTILITY(U,$J,112,2162,4)
;;=.02^.02^.52^4.18^.69^2.18^7.06^.07^^29
;;^UTILITY(U,$J,112,2162,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2163,0)
;;=BEEF, GROUND, LEAN, BROILED, WELL DONE^13-306^oz.^28.35^62^N
;;^UTILITY(U,$J,112,2163,1)
;;=28.2^17.64^0^280^52.86^^^12^2.45^24^182^349^89^6.2^.077^.017^^0^0^.06
;;^UTILITY(U,$J,112,2163,2)
;;=.24^5.97^.44^.3^11^2.72^.49^.07^101^6.93^7.72^.66^0^1.3^^^0
;;^UTILITY(U,$J,112,2163,3)
;;=.316^1.232^1.268^2.229^2.346^.722^.316^1.101^.948^1.372^1.782^.966^1.701^2.576^4.237^1.539^1.245^1.078
;;^UTILITY(U,$J,112,2163,4)
;;=.02^.02^.5^3.99^.66^2.08^6.75^.07
;;^UTILITY(U,$J,112,2163,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2164,0)
;;=BEEF, GROUND, LEAN, PAN-FRIED, MEDIUM^13-307^oz.^28.35^72^N
;;^UTILITY(U,$J,112,2164,1)
;;=24.23^19.06^0^275^55.62^^^10^2.18^20^159^299^77^5.2^.077^.014^^0^0^.05
;;^UTILITY(U,$J,112,2164,2)
;;=.22^4.79^.32^.28^9^2.27^.52^.08^84^7.49^8.34^.71^0^1.09^^^0
;;^UTILITY(U,$J,112,2164,3)
;;=.271^1.058^1.089^1.915^2.016^.62^.271^.946^.814^1.179^1.531^.83^1.462^2.214^3.641^1.322^1.07^.927
;;^UTILITY(U,$J,112,2164,4)
;;=.02^.02^.54^4.31^.71^2.25^7.29^.08
;;^UTILITY(U,$J,112,2164,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2165,0)
;;=BEEF, GROUND, LEAN, PAN-FRIED, WELL DONE^13-308^oz.^28.35^63^N
;;^UTILITY(U,$J,112,2165,1)
;;=27.56^17.67^0^277^53.7^^^11^2.48^23^181^340^87^5.91^.088^.016^^0^0^.06
;;^UTILITY(U,$J,112,2165,2)
;;=.24^5.45^.36^.32^10^2.58^.49^.07^95^6.94^7.74^.66^0^1.2^^^0
;;^UTILITY(U,$J,112,2165,3)
;;=.309^1.206^1.241^2.182^2.296^.707^.309^1.078^.927^1.342^1.744^.945^1.665^2.522^4.147^1.506^1.219^1.055
;;^UTILITY(U,$J,112,2165,4)
;;=.02^.02^.5^4^.66^2.08^6.76^.07
;;^UTILITY(U,$J,112,2165,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2166,0)
;;=BEEF, GROUND, REGULAR, BAKED, MEDIUM^13-310^oz.^28.35^70^N
;;^UTILITY(U,$J,112,2166,1)
;;=23.02^20.93^0^287^55.1^^^10^2.41^15^137^221^60^4.89^.07^.017^^0^0^.03
;;^UTILITY(U,$J,112,2166,2)
;;=.16^4.75^.22^.23^9^2.34^.58^.09^87^8.22^9.16^.78^0^.95^^^0
;;^UTILITY(U,$J,112,2166,3)
;;=.255^.993^1.022^1.797^1.892^.582^.255^.888^.764^1.106^1.437^.779^1.372^2.077^3.416^1.241^1.004^.869
;;^UTILITY(U,$J,112,2166,4)
;;=.02^.02^.59^4.74^.78^2.47^8.01^.08^^19.4
;;^UTILITY(U,$J,112,2166,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2167,0)
;;=BEEF, GROUND, REGULAR, BAKED, WELL DONE^13-311^oz.^28.35^56^N
;;^UTILITY(U,$J,112,2167,1)
;;=28.8^21.47^0^317^48.9^^^12^2.99^19^170^274^75^6.07^.086^.021^^0^0^.04
;;^UTILITY(U,$J,112,2167,2)
;;=.2^5.89^.27^.29^11^2.9^.59^.09^108^8.43^9.4^.8^0^1.2^^^0
;;^UTILITY(U,$J,112,2167,3)
;;=.323^1.258^1.295^2.276^2.396^.737^.323^1.124^.968^1.401^1.82^.986^1.737^2.631^4.327^1.571^1.272^1.101
;;^UTILITY(U,$J,112,2167,4)
;;=.02^.02^.61^4.86^.8^2.53^8.22^.09^^19.4
;;^UTILITY(U,$J,112,2167,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2168,0)
;;=BEEF, GROUND, REGULAR, BROILED, MEDIUM^13-312^oz.^28.35^67^N
;;^UTILITY(U,$J,112,2168,1)
;;=24.07^20.69^0^289^54.24^^^11^2.44^20^170^292^83^5.18^.082^.017^^0^0^.03
;;^UTILITY(U,$J,112,2168,2)
;;=.19^5.77^.33^.27^9^2.93^.57^.09^90^8.13^9.06^.77^0^1^^^0
;;^UTILITY(U,$J,112,2168,3)
;;=.27^1.051^1.082^1.902^2.003^.616^.27^.94^.809^1.171^1.521^.824^1.452^2.199^3.616^1.313^1.063^.92
;;^UTILITY(U,$J,112,2168,4)
;;=.02^.02^.59^4.68^.77^2.44^7.92^.08
;;^UTILITY(U,$J,112,2168,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2169,0)
;;=BEEF, GROUND, REGULAR, BROILED, WELL DONE^13-313^oz.^28.35^60^N
;;^UTILITY(U,$J,112,2169,1)
;;=27.2^19.46^0^292^52^^^12^2.74^22^191^327^93^5.81^.092^.02^^0^0^.04
;;^UTILITY(U,$J,112,2169,2)
;;=.21^6.47^.37^.3^10^3.28^.54^.08^101^7.65^8.52^.73^0^1.37^^^0
;;^UTILITY(U,$J,112,2169,3)
;;=.305^1.188^1.223^2.15^2.263^.696^.305^1.062^.914^1.323^1.719^.931^1.641^2.485^4.087^1.484^1.201^1.04
;;^UTILITY(U,$J,112,2169,4)
;;=.02^.02^.55^4.4^.73^2.3^7.45^.08
;;^UTILITY(U,$J,112,2169,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2170,0)
;;=BEEF, GROUND, REGULAR, PAN-FRIED, MEDIUM^13-314^oz.^28.35^68^N
FHINI06B ; ; 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,2162,0)
+2 ;;=BEEF, GROUND, LEAN, BROILED, MEDIUM^13-305^oz.^28.35^71^N
+3 ;;^UTILITY(U,$J,112,2162,1)
+4 ;;=24.72^18.46^0^272^55.74^^^11^2.11^21^158^301^77^5.36^.066^.014^^0^0^.05
+5 ;;^UTILITY(U,$J,112,2162,2)
+6 ;;=.21^5.16^.38^.26^9^2.35^.51^.08^87^7.25^8.08^.69^0^1.08^^^0
+7 ;;^UTILITY(U,$J,112,2162,3)
+8 ;;=.277^1.08^1.111^1.954^2.057^.633^.277^.965^.831^1.202^1.562^.846^1.491^2.258^3.714^1.349^1.092^.945
+9 ;;^UTILITY(U,$J,112,2162,4)
+10 ;;=.02^.02^.52^4.18^.69^2.18^7.06^.07^^29
+11 ;;^UTILITY(U,$J,112,2162,20)
+12 ;;=USDA Std. Reference, Release 10
+13 ;;^UTILITY(U,$J,112,2163,0)
+14 ;;=BEEF, GROUND, LEAN, BROILED, WELL DONE^13-306^oz.^28.35^62^N
+15 ;;^UTILITY(U,$J,112,2163,1)
+16 ;;=28.2^17.64^0^280^52.86^^^12^2.45^24^182^349^89^6.2^.077^.017^^0^0^.06
+17 ;;^UTILITY(U,$J,112,2163,2)
+18 ;;=.24^5.97^.44^.3^11^2.72^.49^.07^101^6.93^7.72^.66^0^1.3^^^0
+19 ;;^UTILITY(U,$J,112,2163,3)
+20 ;;=.316^1.232^1.268^2.229^2.346^.722^.316^1.101^.948^1.372^1.782^.966^1.701^2.576^4.237^1.539^1.245^1.078
+21 ;;^UTILITY(U,$J,112,2163,4)
+22 ;;=.02^.02^.5^3.99^.66^2.08^6.75^.07
+23 ;;^UTILITY(U,$J,112,2163,20)
+24 ;;=USDA Std. Reference, Release 10
+25 ;;^UTILITY(U,$J,112,2164,0)
+26 ;;=BEEF, GROUND, LEAN, PAN-FRIED, MEDIUM^13-307^oz.^28.35^72^N
+27 ;;^UTILITY(U,$J,112,2164,1)
+28 ;;=24.23^19.06^0^275^55.62^^^10^2.18^20^159^299^77^5.2^.077^.014^^0^0^.05
+29 ;;^UTILITY(U,$J,112,2164,2)
+30 ;;=.22^4.79^.32^.28^9^2.27^.52^.08^84^7.49^8.34^.71^0^1.09^^^0
+31 ;;^UTILITY(U,$J,112,2164,3)
+32 ;;=.271^1.058^1.089^1.915^2.016^.62^.271^.946^.814^1.179^1.531^.83^1.462^2.214^3.641^1.322^1.07^.927
+33 ;;^UTILITY(U,$J,112,2164,4)
+34 ;;=.02^.02^.54^4.31^.71^2.25^7.29^.08
+35 ;;^UTILITY(U,$J,112,2164,20)
+36 ;;=USDA Std. Reference, Release 10
+37 ;;^UTILITY(U,$J,112,2165,0)
+38 ;;=BEEF, GROUND, LEAN, PAN-FRIED, WELL DONE^13-308^oz.^28.35^63^N
+39 ;;^UTILITY(U,$J,112,2165,1)
+40 ;;=27.56^17.67^0^277^53.7^^^11^2.48^23^181^340^87^5.91^.088^.016^^0^0^.06
+41 ;;^UTILITY(U,$J,112,2165,2)
+42 ;;=.24^5.45^.36^.32^10^2.58^.49^.07^95^6.94^7.74^.66^0^1.2^^^0
+43 ;;^UTILITY(U,$J,112,2165,3)
+44 ;;=.309^1.206^1.241^2.182^2.296^.707^.309^1.078^.927^1.342^1.744^.945^1.665^2.522^4.147^1.506^1.219^1.055
+45 ;;^UTILITY(U,$J,112,2165,4)
+46 ;;=.02^.02^.5^4^.66^2.08^6.76^.07
+47 ;;^UTILITY(U,$J,112,2165,20)
+48 ;;=USDA Std. Reference, Release 10
+49 ;;^UTILITY(U,$J,112,2166,0)
+50 ;;=BEEF, GROUND, REGULAR, BAKED, MEDIUM^13-310^oz.^28.35^70^N
+51 ;;^UTILITY(U,$J,112,2166,1)
+52 ;;=23.02^20.93^0^287^55.1^^^10^2.41^15^137^221^60^4.89^.07^.017^^0^0^.03
+53 ;;^UTILITY(U,$J,112,2166,2)
+54 ;;=.16^4.75^.22^.23^9^2.34^.58^.09^87^8.22^9.16^.78^0^.95^^^0
+55 ;;^UTILITY(U,$J,112,2166,3)
+56 ;;=.255^.993^1.022^1.797^1.892^.582^.255^.888^.764^1.106^1.437^.779^1.372^2.077^3.416^1.241^1.004^.869
+57 ;;^UTILITY(U,$J,112,2166,4)
+58 ;;=.02^.02^.59^4.74^.78^2.47^8.01^.08^^19.4
+59 ;;^UTILITY(U,$J,112,2166,20)
+60 ;;=USDA Std. Reference, Release 10
+61 ;;^UTILITY(U,$J,112,2167,0)
+62 ;;=BEEF, GROUND, REGULAR, BAKED, WELL DONE^13-311^oz.^28.35^56^N
+63 ;;^UTILITY(U,$J,112,2167,1)
+64 ;;=28.8^21.47^0^317^48.9^^^12^2.99^19^170^274^75^6.07^.086^.021^^0^0^.04
+65 ;;^UTILITY(U,$J,112,2167,2)
+66 ;;=.2^5.89^.27^.29^11^2.9^.59^.09^108^8.43^9.4^.8^0^1.2^^^0
+67 ;;^UTILITY(U,$J,112,2167,3)
+68 ;;=.323^1.258^1.295^2.276^2.396^.737^.323^1.124^.968^1.401^1.82^.986^1.737^2.631^4.327^1.571^1.272^1.101
+69 ;;^UTILITY(U,$J,112,2167,4)
+70 ;;=.02^.02^.61^4.86^.8^2.53^8.22^.09^^19.4
+71 ;;^UTILITY(U,$J,112,2167,20)
+72 ;;=USDA Std. Reference, Release 10
+73 ;;^UTILITY(U,$J,112,2168,0)
+74 ;;=BEEF, GROUND, REGULAR, BROILED, MEDIUM^13-312^oz.^28.35^67^N
+75 ;;^UTILITY(U,$J,112,2168,1)
+76 ;;=24.07^20.69^0^289^54.24^^^11^2.44^20^170^292^83^5.18^.082^.017^^0^0^.03
+77 ;;^UTILITY(U,$J,112,2168,2)
+78 ;;=.19^5.77^.33^.27^9^2.93^.57^.09^90^8.13^9.06^.77^0^1^^^0
+79 ;;^UTILITY(U,$J,112,2168,3)
+80 ;;=.27^1.051^1.082^1.902^2.003^.616^.27^.94^.809^1.171^1.521^.824^1.452^2.199^3.616^1.313^1.063^.92
+81 ;;^UTILITY(U,$J,112,2168,4)
+82 ;;=.02^.02^.59^4.68^.77^2.44^7.92^.08
+83 ;;^UTILITY(U,$J,112,2168,20)
+84 ;;=USDA Std. Reference, Release 10
+85 ;;^UTILITY(U,$J,112,2169,0)
+86 ;;=BEEF, GROUND, REGULAR, BROILED, WELL DONE^13-313^oz.^28.35^60^N
+87 ;;^UTILITY(U,$J,112,2169,1)
+88 ;;=27.2^19.46^0^292^52^^^12^2.74^22^191^327^93^5.81^.092^.02^^0^0^.04
+89 ;;^UTILITY(U,$J,112,2169,2)
+90 ;;=.21^6.47^.37^.3^10^3.28^.54^.08^101^7.65^8.52^.73^0^1.37^^^0
+91 ;;^UTILITY(U,$J,112,2169,3)
+92 ;;=.305^1.188^1.223^2.15^2.263^.696^.305^1.062^.914^1.323^1.719^.931^1.641^2.485^4.087^1.484^1.201^1.04
+93 ;;^UTILITY(U,$J,112,2169,4)
+94 ;;=.02^.02^.55^4.4^.73^2.3^7.45^.08
+95 ;;^UTILITY(U,$J,112,2169,20)
+96 ;;=USDA Std. Reference, Release 10
+97 ;;^UTILITY(U,$J,112,2170,0)
+98 ;;=BEEF, GROUND, REGULAR, PAN-FRIED, MEDIUM^13-314^oz.^28.35^68^N
