FHINI013 ; ; 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,209,2)
;;=2.196^8.435^4.774^.57^163^18.67^.42^.04^355^1.41^.63^1.05^5399^1.5^^^0
;;^UTILITY(U,$J,112,209,3)
;;=.366^1.107^1.32^2.319^2.007^.645^.491^1.274^.887^1.607^1.603^.708^1.553^2.356^3.385^1.507^1.395^1.407
;;^UTILITY(U,$J,112,209,4)
;;=0^0^.02^.53^.03^.84^.56^.53
;;^UTILITY(U,$J,112,209,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,210,0)
;;=PORK, BLADE, TRIMMED, PAN-FRIED^10-120^oz.^28.3^51^N
;;^UTILITY(U,$J,112,210,1)
;;=24.74^15.08^0^241^59.31^^^22^1.07^26^221^365^78^3.87^.09^.009^^7^.8^.726
;;^UTILITY(U,$J,112,210,2)
;;=.358^4.441^.778^.409^4^.97^1.72^.13^82^5.16^6.25^1.95^2^1.28^^^0
;;^UTILITY(U,$J,112,210,3)
;;=.314^1.13^1.158^1.985^2.225^.655^.316^.988^.862^1.342^1.538^.988^1.441^2.295^3.873^1.175^.994^1.022
;;^UTILITY(U,$J,112,210,4)
;;=.01^.01^.18^3.15^.39^1.71^5.67^.04
;;^UTILITY(U,$J,112,210,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,211,0)
;;=PORK, TONGUE, BRAISED^10-122^oz.^28.3^76^N
;;^UTILITY(U,$J,112,211,1)
;;=24.1^18.6^0^271^56.9^^^19^4.99^20^174^237^109^4.53^.11^.01^^0^1.7^.317
;;^UTILITY(U,$J,112,211,2)
;;=.51^5.34^.507^.23^4^2.39^1.84^.09^146^6.449^8.759^1.93^0^.8^^^0
;;^UTILITY(U,$J,112,211,3)
;;=.278^1.018^1.099^1.932^1.97^.54^^.999^^1.253^1.488^.605^^2.24^3.035^1.781
;;^UTILITY(U,$J,112,211,4)
;;=.02^.09^.34^4.129^.7^1.87^7.889
;;^UTILITY(U,$J,112,211,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,212,0)
;;=BACON, RAW^10-123^slices^23^100^N
;;^UTILITY(U,$J,112,212,1)
;;=8.66^57.54^.09^556^31.58^^^7^.6^9^142^153^730^1.15^.064^.007^^0^21.7^.368
;;^UTILITY(U,$J,112,212,2)
;;=.104^2.776^.352^.14^2^.93^6^.75^67^21.26^26.33^6.75^0^2.13^^^0
;;^UTILITY(U,$J,112,212,3)
;;=.083^.332^.352^.602^.643^.191^.089^.334^.252^.417^.529^.249^.485^.715^1.188^.619^.46^.325
;;^UTILITY(U,$J,112,212,4)
;;=.23^.22^.88^13.23^1.81^6.7^24.51^0^^25
;;^UTILITY(U,$J,112,212,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,213,0)
;;=BACON, BROILED, FRIED, OR ROASTED^10-124^slices^6.3^100^N
;;^UTILITY(U,$J,112,213,1)
;;=30.45^49.24^.59^576^12.94^^^12^1.61^24^336^486^1596^3.26^.17^.041^^0^33.5^.692
;;^UTILITY(U,$J,112,213,2)
;;=.285^7.322^1.055^.27^5^1.75^4.89^.79^85^17.42^23.69^5.81^0^6.78^^^0
;;^UTILITY(U,$J,112,213,3)
;;=.292^1.169^1.237^2.119^2.261^.672^.312^1.174^.887^1.466^1.861^.877^1.705^2.514^4.18^2.178^1.618^1.145
;;^UTILITY(U,$J,112,213,4)
;;=.08^.07^.62^10.98^1.73^5.67^21.96^.13^^24.7
;;^UTILITY(U,$J,112,213,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,214,0)
;;=BEERWURST PORK^10-125^oz.^28.3^100^N
;;^UTILITY(U,$J,112,214,1)
;;=14.24^18.8^2.06^238^61.46^^^8^.76^13^103^253^1240^1.72^.05^.032^^0^29^.554
;;^UTILITY(U,$J,112,214,2)
;;=.192^3.254^.49^.35^3^.87^1.94^.42^59^6.28^8.98^2.36^0^3.44^^^0
;;^UTILITY(U,$J,112,214,3)
;;=.112^.565^.485^.943^1.032^.355^.107^.451^.403^.51^.809^.419^.77^1.198^2.141^.781^.64^.569
;;^UTILITY(U,$J,112,214,4)
;;=.09^.09^.27^3.89^.77^1.94^8.21^0
;;^UTILITY(U,$J,112,214,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,215,0)
;;=BOLOGNA PORK^10-126^oz.^28.3^100^N
;;^UTILITY(U,$J,112,215,1)
;;=15.3^19.87^.73^247^60.6^^^11^.77^14^139^281^1184^2.03^.075^.036^^0^35.3^.523
;;^UTILITY(U,$J,112,215,2)
;;=.157^3.9^.72^.27^5^.93^1.84^.28^59^6.88^9.78^2.12^0^3.5^^^0
;;^UTILITY(U,$J,112,215,3)
;;=.149^.641^.663^1.168^1.204^.412^.171^.585^.482^.737^1.004^.482^.979^1.403^2.296^1.077^.773^.634
;;^UTILITY(U,$J,112,215,4)
;;=.02^.02^.24^4.33^.72^2.27^9.07^0
;;^UTILITY(U,$J,112,215,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,216,0)
;;=BRAUNSCHWEIGER PORK^10-127^oz.^28.3^100^N
;;^UTILITY(U,$J,112,216,1)
;;=13.5^32.09^3.13^359^48.01^^^9^9.36^11^168^199^1143^2.81^.241^.155^^14051^9.6^.249
;;^UTILITY(U,$J,112,216,2)
;;=1.525^8.368^3.378^.33^44^20.09^3.34^.4^156^10.9^14.91^3.74^4220^3.27^^^0
;;^UTILITY(U,$J,112,216,3)
;;=.145^.534^.484^1.032^.909^.311^.248^.553^.43^.616^.767^.32^.762^1.125^1.631^.886^.767^.588
;;^UTILITY(U,$J,112,216,4)
;;=.06^.13^.39^6.75^1.2^3.57^13.71^0
;;^UTILITY(U,$J,112,216,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,217,0)
;;=PORK BREAKFAST STRIPS, CKD^10-129^strips^11.3^100^N
;;^UTILITY(U,$J,112,217,1)
;;=28.95^36.7^1.05^459^26.93^^^14^1.97^26^265^466^2099^3.68^.153^.044^^0^43.4^.737
;;^UTILITY(U,$J,112,217,2)
;;=.368^7.592^.922^.34^4^1.77^4.86^.79^105^12.77^16.4^5.65^0^6.37^^^0
;;^UTILITY(U,$J,112,217,3)
;;=.278^1.112^1.177^2.015^2.149^.639^.296^1.116^.843^1.394^1.769^.834^1.621^2.39^3.974^2.071^1.538^1.089
FHINI013 ; ; 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,209,2)
+2 ;;=2.196^8.435^4.774^.57^163^18.67^.42^.04^355^1.41^.63^1.05^5399^1.5^^^0
+3 ;;^UTILITY(U,$J,112,209,3)
+4 ;;=.366^1.107^1.32^2.319^2.007^.645^.491^1.274^.887^1.607^1.603^.708^1.553^2.356^3.385^1.507^1.395^1.407
+5 ;;^UTILITY(U,$J,112,209,4)
+6 ;;=0^0^.02^.53^.03^.84^.56^.53
+7 ;;^UTILITY(U,$J,112,209,20)
+8 ;;=USDA Std. Reference, Release 10
+9 ;;^UTILITY(U,$J,112,210,0)
+10 ;;=PORK, BLADE, TRIMMED, PAN-FRIED^10-120^oz.^28.3^51^N
+11 ;;^UTILITY(U,$J,112,210,1)
+12 ;;=24.74^15.08^0^241^59.31^^^22^1.07^26^221^365^78^3.87^.09^.009^^7^.8^.726
+13 ;;^UTILITY(U,$J,112,210,2)
+14 ;;=.358^4.441^.778^.409^4^.97^1.72^.13^82^5.16^6.25^1.95^2^1.28^^^0
+15 ;;^UTILITY(U,$J,112,210,3)
+16 ;;=.314^1.13^1.158^1.985^2.225^.655^.316^.988^.862^1.342^1.538^.988^1.441^2.295^3.873^1.175^.994^1.022
+17 ;;^UTILITY(U,$J,112,210,4)
+18 ;;=.01^.01^.18^3.15^.39^1.71^5.67^.04
+19 ;;^UTILITY(U,$J,112,210,20)
+20 ;;=USDA Std. Reference, Release 10
+21 ;;^UTILITY(U,$J,112,211,0)
+22 ;;=PORK, TONGUE, BRAISED^10-122^oz.^28.3^76^N
+23 ;;^UTILITY(U,$J,112,211,1)
+24 ;;=24.1^18.6^0^271^56.9^^^19^4.99^20^174^237^109^4.53^.11^.01^^0^1.7^.317
+25 ;;^UTILITY(U,$J,112,211,2)
+26 ;;=.51^5.34^.507^.23^4^2.39^1.84^.09^146^6.449^8.759^1.93^0^.8^^^0
+27 ;;^UTILITY(U,$J,112,211,3)
+28 ;;=.278^1.018^1.099^1.932^1.97^.54^^.999^^1.253^1.488^.605^^2.24^3.035^1.781
+29 ;;^UTILITY(U,$J,112,211,4)
+30 ;;=.02^.09^.34^4.129^.7^1.87^7.889
+31 ;;^UTILITY(U,$J,112,211,20)
+32 ;;=USDA Std. Reference, Release 10
+33 ;;^UTILITY(U,$J,112,212,0)
+34 ;;=BACON, RAW^10-123^slices^23^100^N
+35 ;;^UTILITY(U,$J,112,212,1)
+36 ;;=8.66^57.54^.09^556^31.58^^^7^.6^9^142^153^730^1.15^.064^.007^^0^21.7^.368
+37 ;;^UTILITY(U,$J,112,212,2)
+38 ;;=.104^2.776^.352^.14^2^.93^6^.75^67^21.26^26.33^6.75^0^2.13^^^0
+39 ;;^UTILITY(U,$J,112,212,3)
+40 ;;=.083^.332^.352^.602^.643^.191^.089^.334^.252^.417^.529^.249^.485^.715^1.188^.619^.46^.325
+41 ;;^UTILITY(U,$J,112,212,4)
+42 ;;=.23^.22^.88^13.23^1.81^6.7^24.51^0^^25
+43 ;;^UTILITY(U,$J,112,212,20)
+44 ;;=USDA Std. Reference, Release 10
+45 ;;^UTILITY(U,$J,112,213,0)
+46 ;;=BACON, BROILED, FRIED, OR ROASTED^10-124^slices^6.3^100^N
+47 ;;^UTILITY(U,$J,112,213,1)
+48 ;;=30.45^49.24^.59^576^12.94^^^12^1.61^24^336^486^1596^3.26^.17^.041^^0^33.5^.692
+49 ;;^UTILITY(U,$J,112,213,2)
+50 ;;=.285^7.322^1.055^.27^5^1.75^4.89^.79^85^17.42^23.69^5.81^0^6.78^^^0
+51 ;;^UTILITY(U,$J,112,213,3)
+52 ;;=.292^1.169^1.237^2.119^2.261^.672^.312^1.174^.887^1.466^1.861^.877^1.705^2.514^4.18^2.178^1.618^1.145
+53 ;;^UTILITY(U,$J,112,213,4)
+54 ;;=.08^.07^.62^10.98^1.73^5.67^21.96^.13^^24.7
+55 ;;^UTILITY(U,$J,112,213,20)
+56 ;;=USDA Std. Reference, Release 10
+57 ;;^UTILITY(U,$J,112,214,0)
+58 ;;=BEERWURST PORK^10-125^oz.^28.3^100^N
+59 ;;^UTILITY(U,$J,112,214,1)
+60 ;;=14.24^18.8^2.06^238^61.46^^^8^.76^13^103^253^1240^1.72^.05^.032^^0^29^.554
+61 ;;^UTILITY(U,$J,112,214,2)
+62 ;;=.192^3.254^.49^.35^3^.87^1.94^.42^59^6.28^8.98^2.36^0^3.44^^^0
+63 ;;^UTILITY(U,$J,112,214,3)
+64 ;;=.112^.565^.485^.943^1.032^.355^.107^.451^.403^.51^.809^.419^.77^1.198^2.141^.781^.64^.569
+65 ;;^UTILITY(U,$J,112,214,4)
+66 ;;=.09^.09^.27^3.89^.77^1.94^8.21^0
+67 ;;^UTILITY(U,$J,112,214,20)
+68 ;;=USDA Std. Reference, Release 10
+69 ;;^UTILITY(U,$J,112,215,0)
+70 ;;=BOLOGNA PORK^10-126^oz.^28.3^100^N
+71 ;;^UTILITY(U,$J,112,215,1)
+72 ;;=15.3^19.87^.73^247^60.6^^^11^.77^14^139^281^1184^2.03^.075^.036^^0^35.3^.523
+73 ;;^UTILITY(U,$J,112,215,2)
+74 ;;=.157^3.9^.72^.27^5^.93^1.84^.28^59^6.88^9.78^2.12^0^3.5^^^0
+75 ;;^UTILITY(U,$J,112,215,3)
+76 ;;=.149^.641^.663^1.168^1.204^.412^.171^.585^.482^.737^1.004^.482^.979^1.403^2.296^1.077^.773^.634
+77 ;;^UTILITY(U,$J,112,215,4)
+78 ;;=.02^.02^.24^4.33^.72^2.27^9.07^0
+79 ;;^UTILITY(U,$J,112,215,20)
+80 ;;=USDA Std. Reference, Release 10
+81 ;;^UTILITY(U,$J,112,216,0)
+82 ;;=BRAUNSCHWEIGER PORK^10-127^oz.^28.3^100^N
+83 ;;^UTILITY(U,$J,112,216,1)
+84 ;;=13.5^32.09^3.13^359^48.01^^^9^9.36^11^168^199^1143^2.81^.241^.155^^14051^9.6^.249
+85 ;;^UTILITY(U,$J,112,216,2)
+86 ;;=1.525^8.368^3.378^.33^44^20.09^3.34^.4^156^10.9^14.91^3.74^4220^3.27^^^0
+87 ;;^UTILITY(U,$J,112,216,3)
+88 ;;=.145^.534^.484^1.032^.909^.311^.248^.553^.43^.616^.767^.32^.762^1.125^1.631^.886^.767^.588
+89 ;;^UTILITY(U,$J,112,216,4)
+90 ;;=.06^.13^.39^6.75^1.2^3.57^13.71^0
+91 ;;^UTILITY(U,$J,112,216,20)
+92 ;;=USDA Std. Reference, Release 10
+93 ;;^UTILITY(U,$J,112,217,0)
+94 ;;=PORK BREAKFAST STRIPS, CKD^10-129^strips^11.3^100^N
+95 ;;^UTILITY(U,$J,112,217,1)
+96 ;;=28.95^36.7^1.05^459^26.93^^^14^1.97^26^265^466^2099^3.68^.153^.044^^0^43.4^.737
+97 ;;^UTILITY(U,$J,112,217,2)
+98 ;;=.368^7.592^.922^.34^4^1.77^4.86^.79^105^12.77^16.4^5.65^0^6.37^^^0
+99 ;;^UTILITY(U,$J,112,217,3)
+100 ;;=.278^1.112^1.177^2.015^2.149^.639^.296^1.116^.843^1.394^1.769^.834^1.621^2.39^3.974^2.071^1.538^1.089
