FHINI00Z ; ; 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,172,2)
;;=.345^4.516^.732^.544^5^.75^1.33^.04^86^5.93^6.99^1.5^2^1.39^^^0
;;^UTILITY(U,$J,112,172,3)
;;=.326^1.197^1.22^2.116^2.38^.689^.334^1.058^.905^1.432^1.693^1.028^1.569^2.44^4.082^1.428^1.16^1.101
;;^UTILITY(U,$J,112,172,4)
;;=.01^.01^.2^3.65^.46^1.94^6.33^.06
;;^UTILITY(U,$J,112,172,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,173,0)
;;=PORK, SIRLOIN, TOT ED, ROASTED^10-055^oz.^28.3^77^N
;;^UTILITY(U,$J,112,173,1)
;;=27.24^16.02^0^261^56.36^^^23^1.04^24^220^350^60^2.43^.083^.003^^8^.3^.748
;;^UTILITY(U,$J,112,173,2)
;;=.312^5.25^.579^.384^6^.76^1.22^.03^87^5.69^7.02^1.38^2^1.08^^^0
;;^UTILITY(U,$J,112,173,3)
;;=.346^1.244^1.276^2.186^2.45^.721^.347^1.087^.949^1.478^1.693^1.088^1.587^2.527^4.264^1.293^1.094^1.125
;;^UTILITY(U,$J,112,173,4)
;;=.01^.01^.2^3.53^.5^1.82^6.32^.07
;;^UTILITY(U,$J,112,173,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,174,0)
;;=PORK, SIRLOIN, TRIMMED, BRAISED^10-057^oz.^28.3^64^N
;;^UTILITY(U,$J,112,174,1)
;;=27^9.01^0^197^63.16^^^13^1.27^20^176^336^53^2.6^.059^.014^^7^.9^.696
;;^UTILITY(U,$J,112,174,2)
;;=.281^3.955^.69^.444^3^.57^.68^.02^81^3.2^3.97^.78^2^1.4^^^0
;;^UTILITY(U,$J,112,174,3)
;;=.343^1.233^1.264^2.166^2.428^.715^.344^1.078^.941^1.465^1.678^1.079^1.573^2.504^4.227^1.282^1.085^1.115
;;^UTILITY(U,$J,112,174,4)
;;=.01^.01^.11^1.98^.28^1.02^3.57^.05
;;^UTILITY(U,$J,112,174,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,175,0)
;;=PORK, SIRLOIN, TRIMMED, BROILED^10-058^oz.^28.3^64^N
;;^UTILITY(U,$J,112,175,1)
;;=28.46^10.12^0^213^60.54^^^13^1.07^31^257^401^72^2.74^.059^.01^^7^1^1.027
;;^UTILITY(U,$J,112,175,2)
;;=.375^4.764^.783^.596^5^.79^.77^.02^85^3.61^4.45^.89^2^1.47^^^0
;;^UTILITY(U,$J,112,175,3)
;;=.362^1.3^1.333^2.283^2.559^.754^.363^1.136^.992^1.544^1.769^1.137^1.658^2.64^4.455^1.351^1.143^1.176
;;^UTILITY(U,$J,112,175,4)
;;=.01^.01^.12^2.24^.31^1.16^4^.05^^51.6
;;^UTILITY(U,$J,112,175,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,176,0)
;;=PORK, SIRLOIN, TRIMMED, ROASTED^10-059^oz.^28.3^68^N
;;^UTILITY(U,$J,112,176,1)
;;=28.81^10.29^0^216^60.54^^^20^1.12^25^228^366^63^2.57^.086^.028^^7^.3^.795
;;^UTILITY(U,$J,112,176,2)
;;=.334^5.552^.629^.42^6^.78^.77^.02^86^3.62^4.52^.87^2^1.12^^^0
;;^UTILITY(U,$J,112,176,3)
;;=.366^1.316^1.349^2.312^2.591^.763^.367^1.15^1.004^1.563^1.791^1.151^1.678^2.672^4.51^1.368^1.157^1.19
;;^UTILITY(U,$J,112,176,4)
;;=.01^.01^.13^2.25^.32^1.15^4.07^.05^^43.1
;;^UTILITY(U,$J,112,176,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,177,0)
;;=PORK, TENDERLOIN, TRIMMED, ROASTED^10-061^oz.^28.3^100^N
;;^UTILITY(U,$J,112,177,1)
;;=28.14^4.81^0^164^66.35^^^6^1.47^28^259^437^56^2.63^.048^.039^^7^.4^.94
;;^UTILITY(U,$J,112,177,2)
;;=.39^4.709^.687^.42^6^.55^.35^.01^79^1.66^1.93^.41^2^1.29^^^0
;;^UTILITY(U,$J,112,177,3)
;;=.357^1.285^1.318^2.258^2.531^.745^.359^1.123^.98^1.527^1.749^1.124^1.639^2.61^4.405^1.336^1.13^1.162
;;^UTILITY(U,$J,112,177,4)
;;=0^0^.05^1.02^.14^.55^1.72^.03^^48.1
;;^UTILITY(U,$J,112,177,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,178,0)
;;=PORK, TOP LOIN, TOT ED, BRAISED^10-063^oz.^28.3^79^N
;;^UTILITY(U,$J,112,178,1)
;;=27.82^12.68^0^233^58.22^^^21^.96^19^185^407^42^2.11^.076^.01^^7^.3^.552
;;^UTILITY(U,$J,112,178,2)
;;=.256^4.54^.638^.329^4^.46^.92^.03^75^4.71^5.7^1.04^2^1.27^^^0
;;^UTILITY(U,$J,112,178,3)
;;=.345^1.257^1.284^2.217^2.491^.725^.351^1.106^.953^1.5^1.753^1.087^1.632^2.559^4.294^1.429^1.177^1.149
;;^UTILITY(U,$J,112,178,4)
;;=.01^.01^.16^2.92^.4^1.52^5.15^.04
;;^UTILITY(U,$J,112,178,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,179,0)
;;=PORK, TOP LOIN, TOT ED, BROILED^10-064^oz.^28.3^79^N
;;^UTILITY(U,$J,112,179,1)
;;=29.96^11.23^0^229^58.35^^^29^.79^27^238^405^63^2.29^.069^.003^^6^.3^.854
;;^UTILITY(U,$J,112,179,2)
;;=.308^5.042^.703^.376^8^.69^.64^.02^81^3.95^5.17^.73^2^1.14^^^0
;;^UTILITY(U,$J,112,179,3)
;;=.381^1.368^1.403^2.404^2.694^.793^.382^1.196^1.044^1.625^1.862^1.197^1.745^2.779^4.69^1.423^1.204^1.238
;;^UTILITY(U,$J,112,179,4)
;;=.01^.01^.14^2.5^.39^1.23^4.63^.05
;;^UTILITY(U,$J,112,179,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,180,0)
;;=PORK, TOP LOIN, TOT ED, ROASTED^10-065^oz.^28.3^77^N
;;^UTILITY(U,$J,112,180,1)
;;=28.81^11.43^0^226^59.23^^^5^.8^23^215^342^44^2.21^.019^.003^^8^.4^.614
;;^UTILITY(U,$J,112,180,2)
;;=.296^5.129^.545^.373^8^.55^.68^.02^78^4.17^5.29^.79^3^1.09^^^0
;;^UTILITY(U,$J,112,180,3)
;;=.366^1.316^1.349^2.312^2.591^.763^.367^1.15^1.004^1.563^1.791^1.151^1.678^2.672^4.51^1.368^1.157^1.19
FHINI00Z ; ; 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,172,2)
+2 ;;=.345^4.516^.732^.544^5^.75^1.33^.04^86^5.93^6.99^1.5^2^1.39^^^0
+3 ;;^UTILITY(U,$J,112,172,3)
+4 ;;=.326^1.197^1.22^2.116^2.38^.689^.334^1.058^.905^1.432^1.693^1.028^1.569^2.44^4.082^1.428^1.16^1.101
+5 ;;^UTILITY(U,$J,112,172,4)
+6 ;;=.01^.01^.2^3.65^.46^1.94^6.33^.06
+7 ;;^UTILITY(U,$J,112,172,20)
+8 ;;=USDA Std. Reference, Release 10
+9 ;;^UTILITY(U,$J,112,173,0)
+10 ;;=PORK, SIRLOIN, TOT ED, ROASTED^10-055^oz.^28.3^77^N
+11 ;;^UTILITY(U,$J,112,173,1)
+12 ;;=27.24^16.02^0^261^56.36^^^23^1.04^24^220^350^60^2.43^.083^.003^^8^.3^.748
+13 ;;^UTILITY(U,$J,112,173,2)
+14 ;;=.312^5.25^.579^.384^6^.76^1.22^.03^87^5.69^7.02^1.38^2^1.08^^^0
+15 ;;^UTILITY(U,$J,112,173,3)
+16 ;;=.346^1.244^1.276^2.186^2.45^.721^.347^1.087^.949^1.478^1.693^1.088^1.587^2.527^4.264^1.293^1.094^1.125
+17 ;;^UTILITY(U,$J,112,173,4)
+18 ;;=.01^.01^.2^3.53^.5^1.82^6.32^.07
+19 ;;^UTILITY(U,$J,112,173,20)
+20 ;;=USDA Std. Reference, Release 10
+21 ;;^UTILITY(U,$J,112,174,0)
+22 ;;=PORK, SIRLOIN, TRIMMED, BRAISED^10-057^oz.^28.3^64^N
+23 ;;^UTILITY(U,$J,112,174,1)
+24 ;;=27^9.01^0^197^63.16^^^13^1.27^20^176^336^53^2.6^.059^.014^^7^.9^.696
+25 ;;^UTILITY(U,$J,112,174,2)
+26 ;;=.281^3.955^.69^.444^3^.57^.68^.02^81^3.2^3.97^.78^2^1.4^^^0
+27 ;;^UTILITY(U,$J,112,174,3)
+28 ;;=.343^1.233^1.264^2.166^2.428^.715^.344^1.078^.941^1.465^1.678^1.079^1.573^2.504^4.227^1.282^1.085^1.115
+29 ;;^UTILITY(U,$J,112,174,4)
+30 ;;=.01^.01^.11^1.98^.28^1.02^3.57^.05
+31 ;;^UTILITY(U,$J,112,174,20)
+32 ;;=USDA Std. Reference, Release 10
+33 ;;^UTILITY(U,$J,112,175,0)
+34 ;;=PORK, SIRLOIN, TRIMMED, BROILED^10-058^oz.^28.3^64^N
+35 ;;^UTILITY(U,$J,112,175,1)
+36 ;;=28.46^10.12^0^213^60.54^^^13^1.07^31^257^401^72^2.74^.059^.01^^7^1^1.027
+37 ;;^UTILITY(U,$J,112,175,2)
+38 ;;=.375^4.764^.783^.596^5^.79^.77^.02^85^3.61^4.45^.89^2^1.47^^^0
+39 ;;^UTILITY(U,$J,112,175,3)
+40 ;;=.362^1.3^1.333^2.283^2.559^.754^.363^1.136^.992^1.544^1.769^1.137^1.658^2.64^4.455^1.351^1.143^1.176
+41 ;;^UTILITY(U,$J,112,175,4)
+42 ;;=.01^.01^.12^2.24^.31^1.16^4^.05^^51.6
+43 ;;^UTILITY(U,$J,112,175,20)
+44 ;;=USDA Std. Reference, Release 10
+45 ;;^UTILITY(U,$J,112,176,0)
+46 ;;=PORK, SIRLOIN, TRIMMED, ROASTED^10-059^oz.^28.3^68^N
+47 ;;^UTILITY(U,$J,112,176,1)
+48 ;;=28.81^10.29^0^216^60.54^^^20^1.12^25^228^366^63^2.57^.086^.028^^7^.3^.795
+49 ;;^UTILITY(U,$J,112,176,2)
+50 ;;=.334^5.552^.629^.42^6^.78^.77^.02^86^3.62^4.52^.87^2^1.12^^^0
+51 ;;^UTILITY(U,$J,112,176,3)
+52 ;;=.366^1.316^1.349^2.312^2.591^.763^.367^1.15^1.004^1.563^1.791^1.151^1.678^2.672^4.51^1.368^1.157^1.19
+53 ;;^UTILITY(U,$J,112,176,4)
+54 ;;=.01^.01^.13^2.25^.32^1.15^4.07^.05^^43.1
+55 ;;^UTILITY(U,$J,112,176,20)
+56 ;;=USDA Std. Reference, Release 10
+57 ;;^UTILITY(U,$J,112,177,0)
+58 ;;=PORK, TENDERLOIN, TRIMMED, ROASTED^10-061^oz.^28.3^100^N
+59 ;;^UTILITY(U,$J,112,177,1)
+60 ;;=28.14^4.81^0^164^66.35^^^6^1.47^28^259^437^56^2.63^.048^.039^^7^.4^.94
+61 ;;^UTILITY(U,$J,112,177,2)
+62 ;;=.39^4.709^.687^.42^6^.55^.35^.01^79^1.66^1.93^.41^2^1.29^^^0
+63 ;;^UTILITY(U,$J,112,177,3)
+64 ;;=.357^1.285^1.318^2.258^2.531^.745^.359^1.123^.98^1.527^1.749^1.124^1.639^2.61^4.405^1.336^1.13^1.162
+65 ;;^UTILITY(U,$J,112,177,4)
+66 ;;=0^0^.05^1.02^.14^.55^1.72^.03^^48.1
+67 ;;^UTILITY(U,$J,112,177,20)
+68 ;;=USDA Std. Reference, Release 10
+69 ;;^UTILITY(U,$J,112,178,0)
+70 ;;=PORK, TOP LOIN, TOT ED, BRAISED^10-063^oz.^28.3^79^N
+71 ;;^UTILITY(U,$J,112,178,1)
+72 ;;=27.82^12.68^0^233^58.22^^^21^.96^19^185^407^42^2.11^.076^.01^^7^.3^.552
+73 ;;^UTILITY(U,$J,112,178,2)
+74 ;;=.256^4.54^.638^.329^4^.46^.92^.03^75^4.71^5.7^1.04^2^1.27^^^0
+75 ;;^UTILITY(U,$J,112,178,3)
+76 ;;=.345^1.257^1.284^2.217^2.491^.725^.351^1.106^.953^1.5^1.753^1.087^1.632^2.559^4.294^1.429^1.177^1.149
+77 ;;^UTILITY(U,$J,112,178,4)
+78 ;;=.01^.01^.16^2.92^.4^1.52^5.15^.04
+79 ;;^UTILITY(U,$J,112,178,20)
+80 ;;=USDA Std. Reference, Release 10
+81 ;;^UTILITY(U,$J,112,179,0)
+82 ;;=PORK, TOP LOIN, TOT ED, BROILED^10-064^oz.^28.3^79^N
+83 ;;^UTILITY(U,$J,112,179,1)
+84 ;;=29.96^11.23^0^229^58.35^^^29^.79^27^238^405^63^2.29^.069^.003^^6^.3^.854
+85 ;;^UTILITY(U,$J,112,179,2)
+86 ;;=.308^5.042^.703^.376^8^.69^.64^.02^81^3.95^5.17^.73^2^1.14^^^0
+87 ;;^UTILITY(U,$J,112,179,3)
+88 ;;=.381^1.368^1.403^2.404^2.694^.793^.382^1.196^1.044^1.625^1.862^1.197^1.745^2.779^4.69^1.423^1.204^1.238
+89 ;;^UTILITY(U,$J,112,179,4)
+90 ;;=.01^.01^.14^2.5^.39^1.23^4.63^.05
+91 ;;^UTILITY(U,$J,112,179,20)
+92 ;;=USDA Std. Reference, Release 10
+93 ;;^UTILITY(U,$J,112,180,0)
+94 ;;=PORK, TOP LOIN, TOT ED, ROASTED^10-065^oz.^28.3^77^N
+95 ;;^UTILITY(U,$J,112,180,1)
+96 ;;=28.81^11.43^0^226^59.23^^^5^.8^23^215^342^44^2.21^.019^.003^^8^.4^.614
+97 ;;^UTILITY(U,$J,112,180,2)
+98 ;;=.296^5.129^.545^.373^8^.55^.68^.02^78^4.17^5.29^.79^3^1.09^^^0
+99 ;;^UTILITY(U,$J,112,180,3)
+100 ;;=.366^1.316^1.349^2.312^2.591^.763^.367^1.15^1.004^1.563^1.791^1.151^1.678^2.672^4.51^1.368^1.157^1.19
