FHINI03U ; ; 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,1234,0)
;;=GINGER ROOT, FRESH^11-216^oz.^28.3^93^N
;;^UTILITY(U,$J,112,1234,1)
;;=1.74^.73^15.09^69^81.67^^^18^.5^43^27^415^13^.34^.226^.229^^0^5^.023
;;^UTILITY(U,$J,112,1234,2)
;;=.029^.7^.203^.16^11.2^0^.12^.034^0^.203^.154^.154^0^.77^^^2
;;^UTILITY(U,$J,112,1234,3)
;;=.012^.036^.051^.074^.057^.013^.008^.045^.02^.073^.043^.03^.031^.208^.162^.043^.041^.045
;;^UTILITY(U,$J,112,1234,4)
;;=^.039^.018^.12^.021^.017^.119
;;^UTILITY(U,$J,112,1234,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1237,0)
;;=GRAPE JUICE DRINK, CANNED^14-282^fl oz.^31.3^100^N
;;^UTILITY(U,$J,112,1237,1)
;;=.1^0^12.9^50^87^^^3^.1^4^4^35^1^.03^.014^.108^^2^16^.01
;;^UTILITY(U,$J,112,1237,2)
;;=.01^.1^.012^.02^.8^0^0^0^0^0^0^0^0^.1^^^.1
;;^UTILITY(U,$J,112,1237,4)
;;=0^0^0^0^0^0^0^0
;;^UTILITY(U,$J,112,1237,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1239,0)
;;=GROUPER, COOKED, DRY HEAT^15-032^oz.^28.3^100^N
;;^UTILITY(U,$J,112,1239,1)
;;=24.84^1.3^0^118^73.36^^^21^1.14^37^143^475^53^.51^.045^.012^^165^0^.081
;;^UTILITY(U,$J,112,1239,2)
;;=.006^.381^.87^.35^10.2^.692^.018^^47^.299^.268^.403^50^1.41^^^0
;;^UTILITY(U,$J,112,1239,3)
;;=.278^1.089^1.145^2.019^2.282^.735^.266^.97^.839^1.28^1.487^.731^1.503^2.544^3.709^1.193^.878^1.014
;;^UTILITY(U,$J,112,1239,4)
;;=^^.025^.14^.026^.059^.086^.057
;;^UTILITY(U,$J,112,1239,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1240,0)
;;=HADDOCK, FRIED^1100-0^oz.^28.3^^N
;;^UTILITY(U,$J,112,1240,1)
;;=19.6^6.4^5.8^165^66.3^^^40^1.2^^247^348^177^^^^^0^2^.04
;;^UTILITY(U,$J,112,1240,2)
;;=.07^3.2^^^^^0^^64^1
;;^UTILITY(U,$J,112,1240,20)
;;=USDA Std. Reference, Release 8
;;^UTILITY(U,$J,112,1241,0)
;;=HADDOCK, SMOKED^15-035^oz.^28.3^100^N
;;^UTILITY(U,$J,112,1241,1)
;;=25.23^.96^0^116^71.48^^^49^1.4^54^251^415^763^.5^.042^.03^^73^0^.047
;;^UTILITY(U,$J,112,1241,2)
;;=.049^5.073^.17^.4^15.3^1.603^.012^.003^77^.173^.157^.321^22^1.62^^^0
;;^UTILITY(U,$J,112,1241,3)
;;=.283^1.106^1.162^2.05^2.317^.747^.27^.985^.852^1.3^1.509^.743^1.526^2.583^3.766^1.211^.892^1.029
;;^UTILITY(U,$J,112,1241,4)
;;=^^.011^.117^.023^.044^.089^.031
;;^UTILITY(U,$J,112,1241,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1242,0)
;;=HAKE, (INC PACIFIC SQUIRREL SILVER OR WHITING), RAW^15-132^oz.^28.3^100^N
;;^UTILITY(U,$J,112,1242,1)
;;=18.31^1.31^0^90^80.27^^^48^.34^21^222^249^72^.88^.031^.104^^99^0^.056
;;^UTILITY(U,$J,112,1242,2)
;;=.046^1.3^.216^.156^13^2.3^.02^.034^67^.247^.279^.422^30^1.3^^^0
;;^UTILITY(U,$J,112,1242,3)
;;=.205^.803^.844^1.488^1.682^.542^.196^.715^.618^.943^1.096^.539^1.108^1.875^2.734^.879^.648^.747
;;^UTILITY(U,$J,112,1242,4)
;;=^^.045^.158^.082^.032^.162^.078^^32.1
;;^UTILITY(U,$J,112,1242,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1243,0)
;;=HALIBUT, BROILED^15-037^oz.^28.3^100^N
;;^UTILITY(U,$J,112,1243,1)
;;=26.69^2.94^0^140^71.69^^^60^1.07^107^285^576^69^.53^.035^.02^^179^0^.069
;;^UTILITY(U,$J,112,1243,2)
;;=.091^7.123^.38^.397^13.8^1.366^.038^.083^41^.417^.967^.94^54^1.74^^^0
;;^UTILITY(U,$J,112,1243,3)
;;=.299^1.17^1.23^2.169^2.451^.79^.286^1.042^.901^1.375^1.597^.786^1.614^2.733^3.984^1.281^.944^1.089
;;^UTILITY(U,$J,112,1243,4)
;;=^^.072^.272^.209^.063^.463^.178
;;^UTILITY(U,$J,112,1243,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1244,0)
;;=HALIBUT, SMOKED^1105-0^oz.^28.3^^N
;;^UTILITY(U,$J,112,1244,1)
;;=20.8^15^0^224^49.4^^^13^.7^^211^157^6231^^^^^440^0^.07
;;^UTILITY(U,$J,112,1244,2)
;;=.07^8.3^^^^^0^^50^5
;;^UTILITY(U,$J,112,1244,20)
;;=USDA Std. Reference, Release 8
;;^UTILITY(U,$J,112,1245,0)
;;=PORK, HAM CROQUETTE^1108-0^croquettes^65^100^N
;;^UTILITY(U,$J,112,1245,1)
;;=16.3^15.1^11.7^251^54^^^69^.91^^160^83^342^^^^^260^0^.28
;;^UTILITY(U,$J,112,1245,2)
;;=.22^2.5^^^^^1.54^^70^5.99^^^^2.9
;;^UTILITY(U,$J,112,1245,4)
;;=^^^^^^6.16
;;^UTILITY(U,$J,112,1245,20)
;;=USDA Std. Reference, Release 8
;;^UTILITY(U,$J,112,1246,0)
;;=BEEF, HEART, LEAN, SIMMERED^13-322^oz.^28.3^57^N
;;^UTILITY(U,$J,112,1246,1)
;;=28.79^5.62^.42^175^64.08^^^6^7.51^25^250^233^63^3.13^.74^.059^^0^1.5^.14
;;^UTILITY(U,$J,112,1246,2)
;;=1.54^4.07^.87^.21^2^14.3^.9^.02^193^1.68^1.25^1.37^0^1.09^^^0
;;^UTILITY(U,$J,112,1246,3)
;;=.322^1.359^1.262^2.547^2.372^.737^.378^1.303^1.046^1.502^1.925^.792^1.778^2.648^4.551^1.502^1.354^1.327
;;^UTILITY(U,$J,112,1246,4)
;;=0^0^.13^.7^.1^.77^1.05^.45
;;^UTILITY(U,$J,112,1246,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,1248,0)
;;=BEEF, (CALF), HEART, BRAISED^17-194^oz.^28.3^100^N
FHINI03U ; ; 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,1234,0)
+2 ;;=GINGER ROOT, FRESH^11-216^oz.^28.3^93^N
+3 ;;^UTILITY(U,$J,112,1234,1)
+4 ;;=1.74^.73^15.09^69^81.67^^^18^.5^43^27^415^13^.34^.226^.229^^0^5^.023
+5 ;;^UTILITY(U,$J,112,1234,2)
+6 ;;=.029^.7^.203^.16^11.2^0^.12^.034^0^.203^.154^.154^0^.77^^^2
+7 ;;^UTILITY(U,$J,112,1234,3)
+8 ;;=.012^.036^.051^.074^.057^.013^.008^.045^.02^.073^.043^.03^.031^.208^.162^.043^.041^.045
+9 ;;^UTILITY(U,$J,112,1234,4)
+10 ;;=^.039^.018^.12^.021^.017^.119
+11 ;;^UTILITY(U,$J,112,1234,20)
+12 ;;=USDA Std. Reference, Release 10
+13 ;;^UTILITY(U,$J,112,1237,0)
+14 ;;=GRAPE JUICE DRINK, CANNED^14-282^fl oz.^31.3^100^N
+15 ;;^UTILITY(U,$J,112,1237,1)
+16 ;;=.1^0^12.9^50^87^^^3^.1^4^4^35^1^.03^.014^.108^^2^16^.01
+17 ;;^UTILITY(U,$J,112,1237,2)
+18 ;;=.01^.1^.012^.02^.8^0^0^0^0^0^0^0^0^.1^^^.1
+19 ;;^UTILITY(U,$J,112,1237,4)
+20 ;;=0^0^0^0^0^0^0^0
+21 ;;^UTILITY(U,$J,112,1237,20)
+22 ;;=USDA Std. Reference, Release 10
+23 ;;^UTILITY(U,$J,112,1239,0)
+24 ;;=GROUPER, COOKED, DRY HEAT^15-032^oz.^28.3^100^N
+25 ;;^UTILITY(U,$J,112,1239,1)
+26 ;;=24.84^1.3^0^118^73.36^^^21^1.14^37^143^475^53^.51^.045^.012^^165^0^.081
+27 ;;^UTILITY(U,$J,112,1239,2)
+28 ;;=.006^.381^.87^.35^10.2^.692^.018^^47^.299^.268^.403^50^1.41^^^0
+29 ;;^UTILITY(U,$J,112,1239,3)
+30 ;;=.278^1.089^1.145^2.019^2.282^.735^.266^.97^.839^1.28^1.487^.731^1.503^2.544^3.709^1.193^.878^1.014
+31 ;;^UTILITY(U,$J,112,1239,4)
+32 ;;=^^.025^.14^.026^.059^.086^.057
+33 ;;^UTILITY(U,$J,112,1239,20)
+34 ;;=USDA Std. Reference, Release 10
+35 ;;^UTILITY(U,$J,112,1240,0)
+36 ;;=HADDOCK, FRIED^1100-0^oz.^28.3^^N
+37 ;;^UTILITY(U,$J,112,1240,1)
+38 ;;=19.6^6.4^5.8^165^66.3^^^40^1.2^^247^348^177^^^^^0^2^.04
+39 ;;^UTILITY(U,$J,112,1240,2)
+40 ;;=.07^3.2^^^^^0^^64^1
+41 ;;^UTILITY(U,$J,112,1240,20)
+42 ;;=USDA Std. Reference, Release 8
+43 ;;^UTILITY(U,$J,112,1241,0)
+44 ;;=HADDOCK, SMOKED^15-035^oz.^28.3^100^N
+45 ;;^UTILITY(U,$J,112,1241,1)
+46 ;;=25.23^.96^0^116^71.48^^^49^1.4^54^251^415^763^.5^.042^.03^^73^0^.047
+47 ;;^UTILITY(U,$J,112,1241,2)
+48 ;;=.049^5.073^.17^.4^15.3^1.603^.012^.003^77^.173^.157^.321^22^1.62^^^0
+49 ;;^UTILITY(U,$J,112,1241,3)
+50 ;;=.283^1.106^1.162^2.05^2.317^.747^.27^.985^.852^1.3^1.509^.743^1.526^2.583^3.766^1.211^.892^1.029
+51 ;;^UTILITY(U,$J,112,1241,4)
+52 ;;=^^.011^.117^.023^.044^.089^.031
+53 ;;^UTILITY(U,$J,112,1241,20)
+54 ;;=USDA Std. Reference, Release 10
+55 ;;^UTILITY(U,$J,112,1242,0)
+56 ;;=HAKE, (INC PACIFIC SQUIRREL SILVER OR WHITING), RAW^15-132^oz.^28.3^100^N
+57 ;;^UTILITY(U,$J,112,1242,1)
+58 ;;=18.31^1.31^0^90^80.27^^^48^.34^21^222^249^72^.88^.031^.104^^99^0^.056
+59 ;;^UTILITY(U,$J,112,1242,2)
+60 ;;=.046^1.3^.216^.156^13^2.3^.02^.034^67^.247^.279^.422^30^1.3^^^0
+61 ;;^UTILITY(U,$J,112,1242,3)
+62 ;;=.205^.803^.844^1.488^1.682^.542^.196^.715^.618^.943^1.096^.539^1.108^1.875^2.734^.879^.648^.747
+63 ;;^UTILITY(U,$J,112,1242,4)
+64 ;;=^^.045^.158^.082^.032^.162^.078^^32.1
+65 ;;^UTILITY(U,$J,112,1242,20)
+66 ;;=USDA Std. Reference, Release 10
+67 ;;^UTILITY(U,$J,112,1243,0)
+68 ;;=HALIBUT, BROILED^15-037^oz.^28.3^100^N
+69 ;;^UTILITY(U,$J,112,1243,1)
+70 ;;=26.69^2.94^0^140^71.69^^^60^1.07^107^285^576^69^.53^.035^.02^^179^0^.069
+71 ;;^UTILITY(U,$J,112,1243,2)
+72 ;;=.091^7.123^.38^.397^13.8^1.366^.038^.083^41^.417^.967^.94^54^1.74^^^0
+73 ;;^UTILITY(U,$J,112,1243,3)
+74 ;;=.299^1.17^1.23^2.169^2.451^.79^.286^1.042^.901^1.375^1.597^.786^1.614^2.733^3.984^1.281^.944^1.089
+75 ;;^UTILITY(U,$J,112,1243,4)
+76 ;;=^^.072^.272^.209^.063^.463^.178
+77 ;;^UTILITY(U,$J,112,1243,20)
+78 ;;=USDA Std. Reference, Release 10
+79 ;;^UTILITY(U,$J,112,1244,0)
+80 ;;=HALIBUT, SMOKED^1105-0^oz.^28.3^^N
+81 ;;^UTILITY(U,$J,112,1244,1)
+82 ;;=20.8^15^0^224^49.4^^^13^.7^^211^157^6231^^^^^440^0^.07
+83 ;;^UTILITY(U,$J,112,1244,2)
+84 ;;=.07^8.3^^^^^0^^50^5
+85 ;;^UTILITY(U,$J,112,1244,20)
+86 ;;=USDA Std. Reference, Release 8
+87 ;;^UTILITY(U,$J,112,1245,0)
+88 ;;=PORK, HAM CROQUETTE^1108-0^croquettes^65^100^N
+89 ;;^UTILITY(U,$J,112,1245,1)
+90 ;;=16.3^15.1^11.7^251^54^^^69^.91^^160^83^342^^^^^260^0^.28
+91 ;;^UTILITY(U,$J,112,1245,2)
+92 ;;=.22^2.5^^^^^1.54^^70^5.99^^^^2.9
+93 ;;^UTILITY(U,$J,112,1245,4)
+94 ;;=^^^^^^6.16
+95 ;;^UTILITY(U,$J,112,1245,20)
+96 ;;=USDA Std. Reference, Release 8
+97 ;;^UTILITY(U,$J,112,1246,0)
+98 ;;=BEEF, HEART, LEAN, SIMMERED^13-322^oz.^28.3^57^N
+99 ;;^UTILITY(U,$J,112,1246,1)
+100 ;;=28.79^5.62^.42^175^64.08^^^6^7.51^25^250^233^63^3.13^.74^.059^^0^1.5^.14
+101 ;;^UTILITY(U,$J,112,1246,2)
+102 ;;=1.54^4.07^.87^.21^2^14.3^.9^.02^193^1.68^1.25^1.37^0^1.09^^^0
+103 ;;^UTILITY(U,$J,112,1246,3)
+104 ;;=.322^1.359^1.262^2.547^2.372^.737^.378^1.303^1.046^1.502^1.925^.792^1.778^2.648^4.551^1.502^1.354^1.327
+105 ;;^UTILITY(U,$J,112,1246,4)
+106 ;;=0^0^.13^.7^.1^.77^1.05^.45
+107 ;;^UTILITY(U,$J,112,1246,20)
+108 ;;=USDA Std. Reference, Release 10
+109 ;;^UTILITY(U,$J,112,1248,0)
+110 ;;=BEEF, (CALF), HEART, BRAISED^17-194^oz.^28.3^100^N
