FHINI017 ; ; 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,246,1)
;;=24.94^7.04^0^170^63.86^^^11^1.08^16^243^292^1231^2.94^.128^.03^^0^0^.727
;;^UTILITY(U,$J,112,246,2)
;;=.226^4.798^.654^.37^4^1.11^.64^.08^48^2.36^3.23^.81^0^4.16^^^0
;;^UTILITY(U,$J,112,246,3)
;;=.299^1.109^1.094^1.98^2.115^.659^.375^1.078^.818^1.082^1.62^.894^1.473^2.363^4.067^1.297^1.066^1.022
;;^UTILITY(U,$J,112,246,4)
;;=.03^.02^.09^1.49^.27^.72^2.96^.09
;;^UTILITY(U,$J,112,246,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,247,0)
;;=PORK, PORK ROLL, BONELESS, TOT ED, ROASTED^10-171^oz.^28.3^100^N
;;^UTILITY(U,$J,112,247,1)
;;=17.28^23.48^.37^287^56.18^^^7^.89^13^156^194^973^2.45^.076^.023^^0^3.2^.46
;;^UTILITY(U,$J,112,247,2)
;;=.285^2.377^.77^.21^3^1.05^2.15^.36^67^8.38^11.03^2.51^0^2.7^^^0
;;^UTILITY(U,$J,112,247,3)
;;=.207^.768^.757^1.371^1.465^.456^.26^.746^.567^.749^1.122^.619^1.02^1.636^2.817^.898^.738^.708
;;^UTILITY(U,$J,112,247,4)
;;=.05^.04^.25^5.12^.88^2.93^10.15^0
;;^UTILITY(U,$J,112,247,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,248,0)
;;=SAUSAGE, SMOKED LINK, PORK^10-172^oz.^28.3^100^N
;;^UTILITY(U,$J,112,248,1)
;;=22.17^31.75^2.1^389^39.27^^^30^1.16^19^162^336^1500^2.82^.072^.016^^0^1.8^.7
;;^UTILITY(U,$J,112,248,2)
;;=.257^4.532^.78^.35^5^1.63^3.39^.37^68^11.32^14.64^3.76^0^4.72^^^0
;;^UTILITY(U,$J,112,248,3)
;;=.216^.929^.951^1.692^1.745^.596^.248^.848^.699^1.068^1.454^.699^1.419^2.032^3.327^1.561^1.121^.919
;;^UTILITY(U,$J,112,248,4)
;;=.04^.04^.4^7.07^1.01^3.76^13.63^0
;;^UTILITY(U,$J,112,248,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,249,0)
;;=PORK, FEET, SIMMERED^10-173^oz.^28.3^34^N
;;^UTILITY(U,$J,112,249,1)
;;=19.2^12.4^0^194^66^^^45^.47^5^48^146^30^1.08^.044^.005^^0^0^.01
;;^UTILITY(U,$J,112,249,2)
;;=.06^.52^.24^.09^1^.18^1.17^.11^100^4.28^5.81^1.35^0^.5^^^0
;;^UTILITY(U,$J,112,249,3)
;;=.038^.518^.326^.845^.826^.211^.169^.557^.307^.48^1.44^.211^1.574^1.382^2.112^3.36^2.016^.768
;;^UTILITY(U,$J,112,249,4)
;;=0^0^.19^2.8^.45^1.29^5.36^.07
;;^UTILITY(U,$J,112,249,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,250,0)
;;=PORK, CENTER LOIN, TRIMMED, PAN-FRIED^10-176^oz.^28.3^60^N
;;^UTILITY(U,$J,112,250,1)
;;=32.18^10.47^0^232^56.81^^^23^.98^32^271^449^86^2.44^.078^.012^^8^1.2^1.243
;;^UTILITY(U,$J,112,250,2)
;;=.327^5.997^.998^.513^6^.76^1.17^.09^92^3.64^4.45^1.34^2^1.61^^^0
;;^UTILITY(U,$J,112,250,3)
;;=.409^1.47^1.507^2.582^2.894^.852^.411^1.285^1.121^1.746^2.001^1.286^1.875^2.985^5.038^1.528^1.293^1.329
;;^UTILITY(U,$J,112,250,4)
;;=.01^.01^.13^2.26^.32^1.16^3.99^.04
;;^UTILITY(U,$J,112,250,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,251,0)
;;=PORK, CENTER RIB, TRIMMED, PAN-FRIED^10-177^oz.^28.3^52^N
;;^UTILITY(U,$J,112,251,1)
;;=28.11^10.87^0^218^59.69^^^20^.77^27^246^455^52^2.08^.07^.007^^6^.3^.866
;;^UTILITY(U,$J,112,251,2)
;;=.326^5.915^.654^.394^3^.75^1.2^.09^70^3.98^4.91^1.34^2^1.27^^^0
;;^UTILITY(U,$J,112,251,3)
;;=.357^1.284^1.316^2.256^2.528^.744^.359^1.122^.979^1.525^1.748^1.123^1.638^2.607^4.401^1.335^1.129^1.161
;;^UTILITY(U,$J,112,251,4)
;;=.01^.01^.14^2.48^.35^1.29^4.46^.04
;;^UTILITY(U,$J,112,251,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,252,0)
;;=PORK, BLADE, TOT ED, PAN-FRIED^10-178^oz.^28.3^74^N
;;^UTILITY(U,$J,112,252,1)
;;=21.49^27.74^0^342^49.95^^^30^.88^21^206^332^67^3.19^.08^.008^^8^.6^.622
;;^UTILITY(U,$J,112,252,2)
;;=.294^3.946^.659^.337^4^.84^2.77^.15^85^10.17^11.72^3.1^3^1.14^^^0
;;^UTILITY(U,$J,112,252,3)
;;=.243^.935^.94^1.672^1.894^.529^.259^.843^.693^1.134^1.421^.773^1.29^1.918^3.152^1.4^1.071^.887
;;^UTILITY(U,$J,112,252,4)
;;=.02^.02^.35^6.2^.72^3.39^10.69^.06
;;^UTILITY(U,$J,112,252,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,253,0)
;;=PORK, CENTER LOIN, TOT ED, PAN-FRIED^10-179^oz.^28.3^80^N
;;^UTILITY(U,$J,112,253,1)
;;=29.91^16.56^0^277^52.98^^^27^.91^29^259^425^80^2.31^.075^.011^^8^1^1.138
;;^UTILITY(U,$J,112,253,2)
;;=.302^5.601^.92^.469^6^.73^1.69^.11^92^6.01^7.06^1.91^2^1.51^^^0
;;^UTILITY(U,$J,112,253,3)
;;=.367^1.345^1.371^2.377^2.672^.774^.375^1.187^1.018^1.608^1.896^1.157^1.759^2.741^4.588^1.587^1.293^1.235
;;^UTILITY(U,$J,112,253,4)
;;=.01^.01^.21^3.7^.48^1.96^6.38^.05
;;^UTILITY(U,$J,112,253,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,254,0)
;;=PORK, CENTER RIB, TOT ED, PAN-FRIED^10-180^oz.^28.3^77^N
;;^UTILITY(U,$J,112,254,1)
;;=26.28^16.97^0^265^55.5^^^24^.72^25^236^430^50^1.99^.068^.007^^7^.3^.804
;;^UTILITY(U,$J,112,254,2)
;;=.301^5.525^.616^.364^3^.71^1.73^.11^73^6.34^7.49^1.92^2^1.21^^^0
FHINI017 ; ; 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,246,1)
+2 ;;=24.94^7.04^0^170^63.86^^^11^1.08^16^243^292^1231^2.94^.128^.03^^0^0^.727
+3 ;;^UTILITY(U,$J,112,246,2)
+4 ;;=.226^4.798^.654^.37^4^1.11^.64^.08^48^2.36^3.23^.81^0^4.16^^^0
+5 ;;^UTILITY(U,$J,112,246,3)
+6 ;;=.299^1.109^1.094^1.98^2.115^.659^.375^1.078^.818^1.082^1.62^.894^1.473^2.363^4.067^1.297^1.066^1.022
+7 ;;^UTILITY(U,$J,112,246,4)
+8 ;;=.03^.02^.09^1.49^.27^.72^2.96^.09
+9 ;;^UTILITY(U,$J,112,246,20)
+10 ;;=USDA Std. Reference, Release 10
+11 ;;^UTILITY(U,$J,112,247,0)
+12 ;;=PORK, PORK ROLL, BONELESS, TOT ED, ROASTED^10-171^oz.^28.3^100^N
+13 ;;^UTILITY(U,$J,112,247,1)
+14 ;;=17.28^23.48^.37^287^56.18^^^7^.89^13^156^194^973^2.45^.076^.023^^0^3.2^.46
+15 ;;^UTILITY(U,$J,112,247,2)
+16 ;;=.285^2.377^.77^.21^3^1.05^2.15^.36^67^8.38^11.03^2.51^0^2.7^^^0
+17 ;;^UTILITY(U,$J,112,247,3)
+18 ;;=.207^.768^.757^1.371^1.465^.456^.26^.746^.567^.749^1.122^.619^1.02^1.636^2.817^.898^.738^.708
+19 ;;^UTILITY(U,$J,112,247,4)
+20 ;;=.05^.04^.25^5.12^.88^2.93^10.15^0
+21 ;;^UTILITY(U,$J,112,247,20)
+22 ;;=USDA Std. Reference, Release 10
+23 ;;^UTILITY(U,$J,112,248,0)
+24 ;;=SAUSAGE, SMOKED LINK, PORK^10-172^oz.^28.3^100^N
+25 ;;^UTILITY(U,$J,112,248,1)
+26 ;;=22.17^31.75^2.1^389^39.27^^^30^1.16^19^162^336^1500^2.82^.072^.016^^0^1.8^.7
+27 ;;^UTILITY(U,$J,112,248,2)
+28 ;;=.257^4.532^.78^.35^5^1.63^3.39^.37^68^11.32^14.64^3.76^0^4.72^^^0
+29 ;;^UTILITY(U,$J,112,248,3)
+30 ;;=.216^.929^.951^1.692^1.745^.596^.248^.848^.699^1.068^1.454^.699^1.419^2.032^3.327^1.561^1.121^.919
+31 ;;^UTILITY(U,$J,112,248,4)
+32 ;;=.04^.04^.4^7.07^1.01^3.76^13.63^0
+33 ;;^UTILITY(U,$J,112,248,20)
+34 ;;=USDA Std. Reference, Release 10
+35 ;;^UTILITY(U,$J,112,249,0)
+36 ;;=PORK, FEET, SIMMERED^10-173^oz.^28.3^34^N
+37 ;;^UTILITY(U,$J,112,249,1)
+38 ;;=19.2^12.4^0^194^66^^^45^.47^5^48^146^30^1.08^.044^.005^^0^0^.01
+39 ;;^UTILITY(U,$J,112,249,2)
+40 ;;=.06^.52^.24^.09^1^.18^1.17^.11^100^4.28^5.81^1.35^0^.5^^^0
+41 ;;^UTILITY(U,$J,112,249,3)
+42 ;;=.038^.518^.326^.845^.826^.211^.169^.557^.307^.48^1.44^.211^1.574^1.382^2.112^3.36^2.016^.768
+43 ;;^UTILITY(U,$J,112,249,4)
+44 ;;=0^0^.19^2.8^.45^1.29^5.36^.07
+45 ;;^UTILITY(U,$J,112,249,20)
+46 ;;=USDA Std. Reference, Release 10
+47 ;;^UTILITY(U,$J,112,250,0)
+48 ;;=PORK, CENTER LOIN, TRIMMED, PAN-FRIED^10-176^oz.^28.3^60^N
+49 ;;^UTILITY(U,$J,112,250,1)
+50 ;;=32.18^10.47^0^232^56.81^^^23^.98^32^271^449^86^2.44^.078^.012^^8^1.2^1.243
+51 ;;^UTILITY(U,$J,112,250,2)
+52 ;;=.327^5.997^.998^.513^6^.76^1.17^.09^92^3.64^4.45^1.34^2^1.61^^^0
+53 ;;^UTILITY(U,$J,112,250,3)
+54 ;;=.409^1.47^1.507^2.582^2.894^.852^.411^1.285^1.121^1.746^2.001^1.286^1.875^2.985^5.038^1.528^1.293^1.329
+55 ;;^UTILITY(U,$J,112,250,4)
+56 ;;=.01^.01^.13^2.26^.32^1.16^3.99^.04
+57 ;;^UTILITY(U,$J,112,250,20)
+58 ;;=USDA Std. Reference, Release 10
+59 ;;^UTILITY(U,$J,112,251,0)
+60 ;;=PORK, CENTER RIB, TRIMMED, PAN-FRIED^10-177^oz.^28.3^52^N
+61 ;;^UTILITY(U,$J,112,251,1)
+62 ;;=28.11^10.87^0^218^59.69^^^20^.77^27^246^455^52^2.08^.07^.007^^6^.3^.866
+63 ;;^UTILITY(U,$J,112,251,2)
+64 ;;=.326^5.915^.654^.394^3^.75^1.2^.09^70^3.98^4.91^1.34^2^1.27^^^0
+65 ;;^UTILITY(U,$J,112,251,3)
+66 ;;=.357^1.284^1.316^2.256^2.528^.744^.359^1.122^.979^1.525^1.748^1.123^1.638^2.607^4.401^1.335^1.129^1.161
+67 ;;^UTILITY(U,$J,112,251,4)
+68 ;;=.01^.01^.14^2.48^.35^1.29^4.46^.04
+69 ;;^UTILITY(U,$J,112,251,20)
+70 ;;=USDA Std. Reference, Release 10
+71 ;;^UTILITY(U,$J,112,252,0)
+72 ;;=PORK, BLADE, TOT ED, PAN-FRIED^10-178^oz.^28.3^74^N
+73 ;;^UTILITY(U,$J,112,252,1)
+74 ;;=21.49^27.74^0^342^49.95^^^30^.88^21^206^332^67^3.19^.08^.008^^8^.6^.622
+75 ;;^UTILITY(U,$J,112,252,2)
+76 ;;=.294^3.946^.659^.337^4^.84^2.77^.15^85^10.17^11.72^3.1^3^1.14^^^0
+77 ;;^UTILITY(U,$J,112,252,3)
+78 ;;=.243^.935^.94^1.672^1.894^.529^.259^.843^.693^1.134^1.421^.773^1.29^1.918^3.152^1.4^1.071^.887
+79 ;;^UTILITY(U,$J,112,252,4)
+80 ;;=.02^.02^.35^6.2^.72^3.39^10.69^.06
+81 ;;^UTILITY(U,$J,112,252,20)
+82 ;;=USDA Std. Reference, Release 10
+83 ;;^UTILITY(U,$J,112,253,0)
+84 ;;=PORK, CENTER LOIN, TOT ED, PAN-FRIED^10-179^oz.^28.3^80^N
+85 ;;^UTILITY(U,$J,112,253,1)
+86 ;;=29.91^16.56^0^277^52.98^^^27^.91^29^259^425^80^2.31^.075^.011^^8^1^1.138
+87 ;;^UTILITY(U,$J,112,253,2)
+88 ;;=.302^5.601^.92^.469^6^.73^1.69^.11^92^6.01^7.06^1.91^2^1.51^^^0
+89 ;;^UTILITY(U,$J,112,253,3)
+90 ;;=.367^1.345^1.371^2.377^2.672^.774^.375^1.187^1.018^1.608^1.896^1.157^1.759^2.741^4.588^1.587^1.293^1.235
+91 ;;^UTILITY(U,$J,112,253,4)
+92 ;;=.01^.01^.21^3.7^.48^1.96^6.38^.05
+93 ;;^UTILITY(U,$J,112,253,20)
+94 ;;=USDA Std. Reference, Release 10
+95 ;;^UTILITY(U,$J,112,254,0)
+96 ;;=PORK, CENTER RIB, TOT ED, PAN-FRIED^10-180^oz.^28.3^77^N
+97 ;;^UTILITY(U,$J,112,254,1)
+98 ;;=26.28^16.97^0^265^55.5^^^24^.72^25^236^430^50^1.99^.068^.007^^7^.3^.804
+99 ;;^UTILITY(U,$J,112,254,2)
+100 ;;=.301^5.525^.616^.364^3^.71^1.73^.11^73^6.34^7.49^1.92^2^1.21^^^0
