FHINI014 ; ; 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,217,4)
;;=.1^.08^.63^7.39^1.67^4.56^14.73^0
;;^UTILITY(U,$J,112,217,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,218,0)
;;=BACON, CANADIAN-STYLE, GRILLED^10-131^slices^23.2^100^N
;;^UTILITY(U,$J,112,218,1)
;;=24.24^8.44^1.35^185^61.7^^^10^.82^21^296^390^1546^1.7^.054^.027^^0^21.6^.824
;;^UTILITY(U,$J,112,218,2)
;;=.197^6.915^.52^.45^4^.78^.69^.12^58^2.84^4.04^.81^0^4.27^^^0
;;^UTILITY(U,$J,112,218,3)
;;=.24^.973^.915^1.706^1.908^.659^.302^.787^.733^.966^1.322^.88^1.233^2.02^3.354^1.043^.907^.919
;;^UTILITY(U,$J,112,218,4)
;;=.03^.02^.13^1.79^.38^.88^3.65^0
;;^UTILITY(U,$J,112,218,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,219,0)
;;=PORK, PIGS FEET, PICKLED^10-132^oz.^28.3^34^N
;;^UTILITY(U,$J,112,219,1)
;;=13.52^16.14^.02^203^68.62^^^32^.62^4^34^235^923^1.24^.05^.017^^0^^.007
;;^UTILITY(U,$J,112,219,2)
;;=.042^.366^.314^.38^4^.62^1.52^.14^92^5.57^7.57^1.75^0^1.7^^^0
;;^UTILITY(U,$J,112,219,3)
;;=.027^.365^.23^.595^.582^.149^.119^.392^.216^.338^1.014^.149^1.108^.973^1.487^2.366^1.419^.541
;;^UTILITY(U,$J,112,219,4)
;;=0^0^.25^3.64^.59^1.68^6.98^.09
;;^UTILITY(U,$J,112,219,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,220,0)
;;=HAM, BONELESS, EXTRA LEAN, ROASTED^10-134^oz.^28.3^100^N
;;^UTILITY(U,$J,112,220,1)
;;=20.93^5.53^1.5^145^67.67^^^8^1.48^14^196^287^1203^2.88^.079^.054^^0^21^.754
;;^UTILITY(U,$J,112,220,2)
;;=.202^4.023^.403^.4^3^.65^.48^.06^53^1.81^2.62^.54^0^4.37^^^0
;;^UTILITY(U,$J,112,220,3)
;;=.251^.931^.918^1.661^1.775^.553^.315^.904^.687^.908^1.36^.75^1.236^1.983^3.413^1.088^.894^.857
;;^UTILITY(U,$J,112,220,4)
;;=.02^.02^.09^1.12^.24^.57^2.38^0
;;^UTILITY(U,$J,112,220,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,221,0)
;;=HAM, BONELESS, REGULAR, ROASTED^10-136^oz.^28.3^100^N
;;^UTILITY(U,$J,112,221,1)
;;=22.62^9.02^0^178^64.54^^^8^1.34^22^281^409^1500^2.47^.145^.041^^0^22.7^.73
;;^UTILITY(U,$J,112,221,2)
;;=.33^6.15^.72^.31^3^.7^1.17^.24^59^3.12^4.44^1.41^0^3.96^^^0
;;^UTILITY(U,$J,112,221,3)
;;=.238^.882^.87^1.574^1.682^.524^.298^.857^.651^.86^1.289^.711^1.171^1.879^3.234^1.032^.847^.813
;;^UTILITY(U,$J,112,221,4)
;;=.03^.02^.15^1.86^.45^1.05^4^0
;;^UTILITY(U,$J,112,221,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,222,0)
;;=HAM, CND, EXTRA LEAN, ROASTED^10-138^oz.^28.3^100^N
;;^UTILITY(U,$J,112,222,1)
;;=21.16^4.88^.52^136^69.45^^^6^.92^21^209^348^1135^2.23^.05^.024^^0^27.5^1.035
;;^UTILITY(U,$J,112,222,2)
;;=.247^4.892^.57^.45^5^.71^.39^.05^30^1.6^2.49^.44^0^4^^^0
;;^UTILITY(U,$J,112,222,3)
;;=.24^.944^.911^1.645^1.818^.552^.25^.816^.694^.948^1.31^.836^1.208^1.953^3.124^1.036^.9^.823
;;^UTILITY(U,$J,112,222,4)
;;=0^0^.05^1.07^.19^.48^2.3^0
;;^UTILITY(U,$J,112,222,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,223,0)
;;=HAM, CND, REGULAR, ROASTED^10-140^oz.^28.3^100^N
;;^UTILITY(U,$J,112,223,1)
;;=20.53^15.2^.42^226^60.93^^^8^1.37^17^243^357^941^2.5^.13^.029^^0^14^.82
;;^UTILITY(U,$J,112,223,2)
;;=.26^5.3^.73^.3^5^1.06^1.62^.16^62^5.04^7.07^1.78^0^2.93^^^0
;;^UTILITY(U,$J,112,223,3)
;;=.233^.916^.883^1.596^1.764^.535^.243^.791^.673^.92^1.271^.811^1.172^1.895^3.031^1.005^.874^.798
;;^UTILITY(U,$J,112,223,4)
;;=.03^.02^.16^3.19^.47^1.65^6.61^0
;;^UTILITY(U,$J,112,223,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,224,0)
;;=HAM, CENTER SLICE, TOT ED, UNHEATED^10-142^oz.^28.3^97^N
;;^UTILITY(U,$J,112,224,1)
;;=20.17^12.9^.05^203^63.46^^^7^.75^16^215^337^1386^1.88^.074^.031^^0^0^.845
;;^UTILITY(U,$J,112,224,2)
;;=.205^4.809^.498^.47^4^.8^.78^.14^54^4.572^6.092^1.411^0^3.42^^^0
;;^UTILITY(U,$J,112,224,3)
;;=.242^.897^.884^1.601^1.71^.532^.303^.871^.662^.875^1.31^.723^1.191^1.91^3.289^1.049^.862^.826
;;^UTILITY(U,$J,112,224,4)
;;=.02^.03^.17^2.861^.42^1.471^5.612^.08
;;^UTILITY(U,$J,112,224,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,225,0)
;;=HAM, CHOPPED, CND^10-143^oz.^28.3^100^N
;;^UTILITY(U,$J,112,225,1)
;;=16.06^18.83^.28^239^60.77^^^7^.95^13^139^284^1365^1.83^.049^.025^^0^1.8^.535
;;^UTILITY(U,$J,112,225,2)
;;=.165^3.2^.28^.32^1^.7^1.86^.2^49^6.28^9.17^2.05^0^4.08^^^0
;;^UTILITY(U,$J,112,225,3)
;;=.182^.717^.691^1.249^1.38^.419^.19^.622^.527^.719^.997^.637^.917^1.485^2.371^.786^.683^.627
;;^UTILITY(U,$J,112,225,4)
;;=.03^.01^.24^4.02^.67^1.99^8.49^0
;;^UTILITY(U,$J,112,225,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,226,0)
;;=HAM, CHOPPED, NOT CND^10-144^oz.^28.3^100^N
;;^UTILITY(U,$J,112,226,1)
;;=17.12^17.25^0^229^63.64^^^7^.83^16^155^319^1371^1.94^.06^.041^^0^20^.632
FHINI014 ; ; 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,217,4)
+2 ;;=.1^.08^.63^7.39^1.67^4.56^14.73^0
+3 ;;^UTILITY(U,$J,112,217,20)
+4 ;;=USDA Std. Reference, Release 10
+5 ;;^UTILITY(U,$J,112,218,0)
+6 ;;=BACON, CANADIAN-STYLE, GRILLED^10-131^slices^23.2^100^N
+7 ;;^UTILITY(U,$J,112,218,1)
+8 ;;=24.24^8.44^1.35^185^61.7^^^10^.82^21^296^390^1546^1.7^.054^.027^^0^21.6^.824
+9 ;;^UTILITY(U,$J,112,218,2)
+10 ;;=.197^6.915^.52^.45^4^.78^.69^.12^58^2.84^4.04^.81^0^4.27^^^0
+11 ;;^UTILITY(U,$J,112,218,3)
+12 ;;=.24^.973^.915^1.706^1.908^.659^.302^.787^.733^.966^1.322^.88^1.233^2.02^3.354^1.043^.907^.919
+13 ;;^UTILITY(U,$J,112,218,4)
+14 ;;=.03^.02^.13^1.79^.38^.88^3.65^0
+15 ;;^UTILITY(U,$J,112,218,20)
+16 ;;=USDA Std. Reference, Release 10
+17 ;;^UTILITY(U,$J,112,219,0)
+18 ;;=PORK, PIGS FEET, PICKLED^10-132^oz.^28.3^34^N
+19 ;;^UTILITY(U,$J,112,219,1)
+20 ;;=13.52^16.14^.02^203^68.62^^^32^.62^4^34^235^923^1.24^.05^.017^^0^^.007
+21 ;;^UTILITY(U,$J,112,219,2)
+22 ;;=.042^.366^.314^.38^4^.62^1.52^.14^92^5.57^7.57^1.75^0^1.7^^^0
+23 ;;^UTILITY(U,$J,112,219,3)
+24 ;;=.027^.365^.23^.595^.582^.149^.119^.392^.216^.338^1.014^.149^1.108^.973^1.487^2.366^1.419^.541
+25 ;;^UTILITY(U,$J,112,219,4)
+26 ;;=0^0^.25^3.64^.59^1.68^6.98^.09
+27 ;;^UTILITY(U,$J,112,219,20)
+28 ;;=USDA Std. Reference, Release 10
+29 ;;^UTILITY(U,$J,112,220,0)
+30 ;;=HAM, BONELESS, EXTRA LEAN, ROASTED^10-134^oz.^28.3^100^N
+31 ;;^UTILITY(U,$J,112,220,1)
+32 ;;=20.93^5.53^1.5^145^67.67^^^8^1.48^14^196^287^1203^2.88^.079^.054^^0^21^.754
+33 ;;^UTILITY(U,$J,112,220,2)
+34 ;;=.202^4.023^.403^.4^3^.65^.48^.06^53^1.81^2.62^.54^0^4.37^^^0
+35 ;;^UTILITY(U,$J,112,220,3)
+36 ;;=.251^.931^.918^1.661^1.775^.553^.315^.904^.687^.908^1.36^.75^1.236^1.983^3.413^1.088^.894^.857
+37 ;;^UTILITY(U,$J,112,220,4)
+38 ;;=.02^.02^.09^1.12^.24^.57^2.38^0
+39 ;;^UTILITY(U,$J,112,220,20)
+40 ;;=USDA Std. Reference, Release 10
+41 ;;^UTILITY(U,$J,112,221,0)
+42 ;;=HAM, BONELESS, REGULAR, ROASTED^10-136^oz.^28.3^100^N
+43 ;;^UTILITY(U,$J,112,221,1)
+44 ;;=22.62^9.02^0^178^64.54^^^8^1.34^22^281^409^1500^2.47^.145^.041^^0^22.7^.73
+45 ;;^UTILITY(U,$J,112,221,2)
+46 ;;=.33^6.15^.72^.31^3^.7^1.17^.24^59^3.12^4.44^1.41^0^3.96^^^0
+47 ;;^UTILITY(U,$J,112,221,3)
+48 ;;=.238^.882^.87^1.574^1.682^.524^.298^.857^.651^.86^1.289^.711^1.171^1.879^3.234^1.032^.847^.813
+49 ;;^UTILITY(U,$J,112,221,4)
+50 ;;=.03^.02^.15^1.86^.45^1.05^4^0
+51 ;;^UTILITY(U,$J,112,221,20)
+52 ;;=USDA Std. Reference, Release 10
+53 ;;^UTILITY(U,$J,112,222,0)
+54 ;;=HAM, CND, EXTRA LEAN, ROASTED^10-138^oz.^28.3^100^N
+55 ;;^UTILITY(U,$J,112,222,1)
+56 ;;=21.16^4.88^.52^136^69.45^^^6^.92^21^209^348^1135^2.23^.05^.024^^0^27.5^1.035
+57 ;;^UTILITY(U,$J,112,222,2)
+58 ;;=.247^4.892^.57^.45^5^.71^.39^.05^30^1.6^2.49^.44^0^4^^^0
+59 ;;^UTILITY(U,$J,112,222,3)
+60 ;;=.24^.944^.911^1.645^1.818^.552^.25^.816^.694^.948^1.31^.836^1.208^1.953^3.124^1.036^.9^.823
+61 ;;^UTILITY(U,$J,112,222,4)
+62 ;;=0^0^.05^1.07^.19^.48^2.3^0
+63 ;;^UTILITY(U,$J,112,222,20)
+64 ;;=USDA Std. Reference, Release 10
+65 ;;^UTILITY(U,$J,112,223,0)
+66 ;;=HAM, CND, REGULAR, ROASTED^10-140^oz.^28.3^100^N
+67 ;;^UTILITY(U,$J,112,223,1)
+68 ;;=20.53^15.2^.42^226^60.93^^^8^1.37^17^243^357^941^2.5^.13^.029^^0^14^.82
+69 ;;^UTILITY(U,$J,112,223,2)
+70 ;;=.26^5.3^.73^.3^5^1.06^1.62^.16^62^5.04^7.07^1.78^0^2.93^^^0
+71 ;;^UTILITY(U,$J,112,223,3)
+72 ;;=.233^.916^.883^1.596^1.764^.535^.243^.791^.673^.92^1.271^.811^1.172^1.895^3.031^1.005^.874^.798
+73 ;;^UTILITY(U,$J,112,223,4)
+74 ;;=.03^.02^.16^3.19^.47^1.65^6.61^0
+75 ;;^UTILITY(U,$J,112,223,20)
+76 ;;=USDA Std. Reference, Release 10
+77 ;;^UTILITY(U,$J,112,224,0)
+78 ;;=HAM, CENTER SLICE, TOT ED, UNHEATED^10-142^oz.^28.3^97^N
+79 ;;^UTILITY(U,$J,112,224,1)
+80 ;;=20.17^12.9^.05^203^63.46^^^7^.75^16^215^337^1386^1.88^.074^.031^^0^0^.845
+81 ;;^UTILITY(U,$J,112,224,2)
+82 ;;=.205^4.809^.498^.47^4^.8^.78^.14^54^4.572^6.092^1.411^0^3.42^^^0
+83 ;;^UTILITY(U,$J,112,224,3)
+84 ;;=.242^.897^.884^1.601^1.71^.532^.303^.871^.662^.875^1.31^.723^1.191^1.91^3.289^1.049^.862^.826
+85 ;;^UTILITY(U,$J,112,224,4)
+86 ;;=.02^.03^.17^2.861^.42^1.471^5.612^.08
+87 ;;^UTILITY(U,$J,112,224,20)
+88 ;;=USDA Std. Reference, Release 10
+89 ;;^UTILITY(U,$J,112,225,0)
+90 ;;=HAM, CHOPPED, CND^10-143^oz.^28.3^100^N
+91 ;;^UTILITY(U,$J,112,225,1)
+92 ;;=16.06^18.83^.28^239^60.77^^^7^.95^13^139^284^1365^1.83^.049^.025^^0^1.8^.535
+93 ;;^UTILITY(U,$J,112,225,2)
+94 ;;=.165^3.2^.28^.32^1^.7^1.86^.2^49^6.28^9.17^2.05^0^4.08^^^0
+95 ;;^UTILITY(U,$J,112,225,3)
+96 ;;=.182^.717^.691^1.249^1.38^.419^.19^.622^.527^.719^.997^.637^.917^1.485^2.371^.786^.683^.627
+97 ;;^UTILITY(U,$J,112,225,4)
+98 ;;=.03^.01^.24^4.02^.67^1.99^8.49^0
+99 ;;^UTILITY(U,$J,112,225,20)
+100 ;;=USDA Std. Reference, Release 10
+101 ;;^UTILITY(U,$J,112,226,0)
+102 ;;=HAM, CHOPPED, NOT CND^10-144^oz.^28.3^100^N
+103 ;;^UTILITY(U,$J,112,226,1)
+104 ;;=17.12^17.25^0^229^63.64^^^7^.83^16^155^319^1371^1.94^.06^.041^^0^20^.632
