FHINI00X ; ; 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,155,4)
;;=.02^.02^.32^5.55^.68^3.06^9.65^.06
;;^UTILITY(U,$J,112,155,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,156,0)
;;=PORK, BLADE, TRIMMED, BRAISED^10-033^oz.^28.3^56^N
;;^UTILITY(U,$J,112,156,1)
;;=25.03^13.07^0^225^61.02^^^24^1.35^18^161^326^62^3.91^.096^.014^^7^.8^.525
;;^UTILITY(U,$J,112,156,2)
;;=.272^3.931^.639^.35^3^.71^.91^.03^83^4.74^5.68^1.03^2^1.3^^^0
;;^UTILITY(U,$J,112,156,3)
;;=.318^1.143^1.172^2.008^2.25^.663^.319^.999^.872^1.358^1.556^1^1.458^2.321^3.918^1.188^1.005^1.034
;;^UTILITY(U,$J,112,156,4)
;;=.01^.01^.17^2.87^.38^1.59^5.13^.04
;;^UTILITY(U,$J,112,156,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,157,0)
;;=PORK, BLADE, TRIMMED, BROILED^10-034^oz.^28.3^57^N
;;^UTILITY(U,$J,112,157,1)
;;=25.36^13.89^0^234^59.86^^^23^1.09^26^226^374^80^3.97^.092^.009^^7^.8^.744
;;^UTILITY(U,$J,112,157,2)
;;=.349^4.552^.697^.451^4^.94^.98^.03^84^5.06^6.04^1.11^2^1.32^^^0
;;^UTILITY(U,$J,112,157,3)
;;=.322^1.158^1.187^2.034^2.28^.671^.323^1.012^.883^1.376^1.576^1.013^1.477^2.352^3.969^1.204^1.019^1.047
;;^UTILITY(U,$J,112,157,4)
;;=.01^.01^.18^3.06^.4^1.69^5.45^.04
;;^UTILITY(U,$J,112,157,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,158,0)
;;=PORK, BLADE, TRIMMED, ROASTED^10-035^oz.^28.3^60^N
;;^UTILITY(U,$J,112,158,1)
;;=26.6^14.81^0^247^58.2^^^29^1.29^24^221^349^29^3.81^.086^.013^^8^.3^.574
;;^UTILITY(U,$J,112,158,2)
;;=.342^4.664^.528^.44^5^.8^.96^.03^93^5.31^6.46^1.1^2^1.18^^^0
;;^UTILITY(U,$J,112,158,3)
;;=.338^1.215^1.246^2.135^2.392^.704^.339^1.062^.927^1.443^1.654^1.063^1.55^2.468^4.165^1.263^1.069^1.099
;;^UTILITY(U,$J,112,158,4)
;;=.01^.01^.19^3.21^.44^1.78^5.81^.05^^42.3
;;^UTILITY(U,$J,112,158,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,159,0)
;;=PORK, CENTER LOIN, TOT ED, BRAISED^10-037^oz.^28.3^83^N
;;^UTILITY(U,$J,112,159,1)
;;=27.94^14.15^0^247^57.4^^^26^1.05^19^179^353^59^2.16^.073^.015^^8^.9^.769
;;^UTILITY(U,$J,112,159,2)
;;=.215^4.611^.705^.373^3^.5^1.1^.04^86^5.32^6.2^1.24^2^1.41^^^0
;;^UTILITY(U,$J,112,159,3)
;;=.343^1.257^1.282^2.22^2.497^.724^.35^1.109^.951^1.503^1.771^1.081^1.643^2.561^4.288^1.48^1.206^1.154
;;^UTILITY(U,$J,112,159,4)
;;=.01^.01^.19^3.26^.43^1.74^5.58^.04
;;^UTILITY(U,$J,112,159,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,160,0)
;;=PORK, CENTER LOIN, TOT ED, BROILED^10-038^oz.^28.3^82^N
;;^UTILITY(U,$J,112,160,1)
;;=28.71^13.06^0^240^57.59^^^33^.8^25^232^358^58^2.26^.046^.003^^9^.4^1.067
;;^UTILITY(U,$J,112,160,2)
;;=.288^5.241^.635^.429^6^.73^.84^.03^82^4.8^5.86^.98^3^1.15^^^0
;;^UTILITY(U,$J,112,160,3)
;;=.365^1.311^1.344^2.304^2.582^.76^.366^1.146^1^1.558^1.785^1.147^1.673^2.663^4.494^1.363^1.153^1.186
;;^UTILITY(U,$J,112,160,4)
;;=.01^.01^.18^2.97^.46^1.54^5.2^.05
;;^UTILITY(U,$J,112,160,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,161,0)
;;=PORK, CENTER LOIN, TOT ED, ROASTED^10-039^oz.^28.3^81^N
;;^UTILITY(U,$J,112,161,1)
;;=26.31^13.46^0^234^59.76^^^27^.99^20^215^352^63^2.02^.068^.015^^7^.9^.864
;;^UTILITY(U,$J,112,161,2)
;;=.253^5.217^.664^.352^4^.57^1.05^.04^80^5.06^5.89^1.18^2^1.32^^^0
;;^UTILITY(U,$J,112,161,3)
;;=.325^1.187^1.211^2.094^2.354^.684^.331^1.045^.899^1.417^1.662^1.024^1.545^2.416^4.052^1.368^1.122^1.086
;;^UTILITY(U,$J,112,161,4)
;;=.01^.01^.18^3.1^.41^1.66^5.31^.04
;;^UTILITY(U,$J,112,161,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,162,0)
;;=PORK, CENTER LOIN, TRIMMED, BRAISED^10-041^oz.^28.3^67^N
;;^UTILITY(U,$J,112,162,1)
;;=29.78^8.31^0^202^61.41^^^23^1.13^20^181^367^62^2.26^.076^.016^^7^1^.822
;;^UTILITY(U,$J,112,162,2)
;;=.227^4.856^.75^.401^3^.51^.55^.02^85^3.07^3.71^.64^2^1.49^^^0
;;^UTILITY(U,$J,112,162,3)
;;=.378^1.36^1.395^2.39^2.678^.789^.38^1.189^1.038^1.616^1.851^1.19^1.735^2.762^4.662^1.414^1.196^1.23
;;^UTILITY(U,$J,112,162,4)
;;=.01^.01^.11^1.89^.29^.99^3.3^.03
;;^UTILITY(U,$J,112,162,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,163,0)
;;=PORK, CENTER LOIN, TRIMMED, BROILED^10-042^oz.^28.3^68^N
;;^UTILITY(U,$J,112,163,1)
;;=30.19^8.07^0^202^61.15^^^31^.85^27^241^375^60^2.38^.045^.011^^8^.4^1.149
;;^UTILITY(U,$J,112,163,2)
;;=.308^5.542^.691^.47^6^.74^.5^.02^82^2.95^3.64^.58^2^1.2^^^0
;;^UTILITY(U,$J,112,163,3)
;;=.383^1.379^1.414^2.422^2.715^.799^.385^1.205^1.052^1.638^1.877^1.206^1.759^2.8^4.726^1.434^1.213^1.247
;;^UTILITY(U,$J,112,163,4)
;;=.01^.01^.11^1.83^.29^.94^3.22^.04^^47.3
;;^UTILITY(U,$J,112,163,20)
;;=USDA Std. Reference, Release 10
FHINI00X ; ; 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,155,4)
+2 ;;=.02^.02^.32^5.55^.68^3.06^9.65^.06
+3 ;;^UTILITY(U,$J,112,155,20)
+4 ;;=USDA Std. Reference, Release 10
+5 ;;^UTILITY(U,$J,112,156,0)
+6 ;;=PORK, BLADE, TRIMMED, BRAISED^10-033^oz.^28.3^56^N
+7 ;;^UTILITY(U,$J,112,156,1)
+8 ;;=25.03^13.07^0^225^61.02^^^24^1.35^18^161^326^62^3.91^.096^.014^^7^.8^.525
+9 ;;^UTILITY(U,$J,112,156,2)
+10 ;;=.272^3.931^.639^.35^3^.71^.91^.03^83^4.74^5.68^1.03^2^1.3^^^0
+11 ;;^UTILITY(U,$J,112,156,3)
+12 ;;=.318^1.143^1.172^2.008^2.25^.663^.319^.999^.872^1.358^1.556^1^1.458^2.321^3.918^1.188^1.005^1.034
+13 ;;^UTILITY(U,$J,112,156,4)
+14 ;;=.01^.01^.17^2.87^.38^1.59^5.13^.04
+15 ;;^UTILITY(U,$J,112,156,20)
+16 ;;=USDA Std. Reference, Release 10
+17 ;;^UTILITY(U,$J,112,157,0)
+18 ;;=PORK, BLADE, TRIMMED, BROILED^10-034^oz.^28.3^57^N
+19 ;;^UTILITY(U,$J,112,157,1)
+20 ;;=25.36^13.89^0^234^59.86^^^23^1.09^26^226^374^80^3.97^.092^.009^^7^.8^.744
+21 ;;^UTILITY(U,$J,112,157,2)
+22 ;;=.349^4.552^.697^.451^4^.94^.98^.03^84^5.06^6.04^1.11^2^1.32^^^0
+23 ;;^UTILITY(U,$J,112,157,3)
+24 ;;=.322^1.158^1.187^2.034^2.28^.671^.323^1.012^.883^1.376^1.576^1.013^1.477^2.352^3.969^1.204^1.019^1.047
+25 ;;^UTILITY(U,$J,112,157,4)
+26 ;;=.01^.01^.18^3.06^.4^1.69^5.45^.04
+27 ;;^UTILITY(U,$J,112,157,20)
+28 ;;=USDA Std. Reference, Release 10
+29 ;;^UTILITY(U,$J,112,158,0)
+30 ;;=PORK, BLADE, TRIMMED, ROASTED^10-035^oz.^28.3^60^N
+31 ;;^UTILITY(U,$J,112,158,1)
+32 ;;=26.6^14.81^0^247^58.2^^^29^1.29^24^221^349^29^3.81^.086^.013^^8^.3^.574
+33 ;;^UTILITY(U,$J,112,158,2)
+34 ;;=.342^4.664^.528^.44^5^.8^.96^.03^93^5.31^6.46^1.1^2^1.18^^^0
+35 ;;^UTILITY(U,$J,112,158,3)
+36 ;;=.338^1.215^1.246^2.135^2.392^.704^.339^1.062^.927^1.443^1.654^1.063^1.55^2.468^4.165^1.263^1.069^1.099
+37 ;;^UTILITY(U,$J,112,158,4)
+38 ;;=.01^.01^.19^3.21^.44^1.78^5.81^.05^^42.3
+39 ;;^UTILITY(U,$J,112,158,20)
+40 ;;=USDA Std. Reference, Release 10
+41 ;;^UTILITY(U,$J,112,159,0)
+42 ;;=PORK, CENTER LOIN, TOT ED, BRAISED^10-037^oz.^28.3^83^N
+43 ;;^UTILITY(U,$J,112,159,1)
+44 ;;=27.94^14.15^0^247^57.4^^^26^1.05^19^179^353^59^2.16^.073^.015^^8^.9^.769
+45 ;;^UTILITY(U,$J,112,159,2)
+46 ;;=.215^4.611^.705^.373^3^.5^1.1^.04^86^5.32^6.2^1.24^2^1.41^^^0
+47 ;;^UTILITY(U,$J,112,159,3)
+48 ;;=.343^1.257^1.282^2.22^2.497^.724^.35^1.109^.951^1.503^1.771^1.081^1.643^2.561^4.288^1.48^1.206^1.154
+49 ;;^UTILITY(U,$J,112,159,4)
+50 ;;=.01^.01^.19^3.26^.43^1.74^5.58^.04
+51 ;;^UTILITY(U,$J,112,159,20)
+52 ;;=USDA Std. Reference, Release 10
+53 ;;^UTILITY(U,$J,112,160,0)
+54 ;;=PORK, CENTER LOIN, TOT ED, BROILED^10-038^oz.^28.3^82^N
+55 ;;^UTILITY(U,$J,112,160,1)
+56 ;;=28.71^13.06^0^240^57.59^^^33^.8^25^232^358^58^2.26^.046^.003^^9^.4^1.067
+57 ;;^UTILITY(U,$J,112,160,2)
+58 ;;=.288^5.241^.635^.429^6^.73^.84^.03^82^4.8^5.86^.98^3^1.15^^^0
+59 ;;^UTILITY(U,$J,112,160,3)
+60 ;;=.365^1.311^1.344^2.304^2.582^.76^.366^1.146^1^1.558^1.785^1.147^1.673^2.663^4.494^1.363^1.153^1.186
+61 ;;^UTILITY(U,$J,112,160,4)
+62 ;;=.01^.01^.18^2.97^.46^1.54^5.2^.05
+63 ;;^UTILITY(U,$J,112,160,20)
+64 ;;=USDA Std. Reference, Release 10
+65 ;;^UTILITY(U,$J,112,161,0)
+66 ;;=PORK, CENTER LOIN, TOT ED, ROASTED^10-039^oz.^28.3^81^N
+67 ;;^UTILITY(U,$J,112,161,1)
+68 ;;=26.31^13.46^0^234^59.76^^^27^.99^20^215^352^63^2.02^.068^.015^^7^.9^.864
+69 ;;^UTILITY(U,$J,112,161,2)
+70 ;;=.253^5.217^.664^.352^4^.57^1.05^.04^80^5.06^5.89^1.18^2^1.32^^^0
+71 ;;^UTILITY(U,$J,112,161,3)
+72 ;;=.325^1.187^1.211^2.094^2.354^.684^.331^1.045^.899^1.417^1.662^1.024^1.545^2.416^4.052^1.368^1.122^1.086
+73 ;;^UTILITY(U,$J,112,161,4)
+74 ;;=.01^.01^.18^3.1^.41^1.66^5.31^.04
+75 ;;^UTILITY(U,$J,112,161,20)
+76 ;;=USDA Std. Reference, Release 10
+77 ;;^UTILITY(U,$J,112,162,0)
+78 ;;=PORK, CENTER LOIN, TRIMMED, BRAISED^10-041^oz.^28.3^67^N
+79 ;;^UTILITY(U,$J,112,162,1)
+80 ;;=29.78^8.31^0^202^61.41^^^23^1.13^20^181^367^62^2.26^.076^.016^^7^1^.822
+81 ;;^UTILITY(U,$J,112,162,2)
+82 ;;=.227^4.856^.75^.401^3^.51^.55^.02^85^3.07^3.71^.64^2^1.49^^^0
+83 ;;^UTILITY(U,$J,112,162,3)
+84 ;;=.378^1.36^1.395^2.39^2.678^.789^.38^1.189^1.038^1.616^1.851^1.19^1.735^2.762^4.662^1.414^1.196^1.23
+85 ;;^UTILITY(U,$J,112,162,4)
+86 ;;=.01^.01^.11^1.89^.29^.99^3.3^.03
+87 ;;^UTILITY(U,$J,112,162,20)
+88 ;;=USDA Std. Reference, Release 10
+89 ;;^UTILITY(U,$J,112,163,0)
+90 ;;=PORK, CENTER LOIN, TRIMMED, BROILED^10-042^oz.^28.3^68^N
+91 ;;^UTILITY(U,$J,112,163,1)
+92 ;;=30.19^8.07^0^202^61.15^^^31^.85^27^241^375^60^2.38^.045^.011^^8^.4^1.149
+93 ;;^UTILITY(U,$J,112,163,2)
+94 ;;=.308^5.542^.691^.47^6^.74^.5^.02^82^2.95^3.64^.58^2^1.2^^^0
+95 ;;^UTILITY(U,$J,112,163,3)
+96 ;;=.383^1.379^1.414^2.422^2.715^.799^.385^1.205^1.052^1.638^1.877^1.206^1.759^2.8^4.726^1.434^1.213^1.247
+97 ;;^UTILITY(U,$J,112,163,4)
+98 ;;=.01^.01^.11^1.83^.29^.94^3.22^.04^^47.3
+99 ;;^UTILITY(U,$J,112,163,20)
+100 ;;=USDA Std. Reference, Release 10
