FHINI02E ; ; 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,658,1)
;;=19.63^6.78^11.05^189^60.1^^^37^3.8^56^217^284^591^.95^.228^.07^^5^1.8^.22
;;^UTILITY(U,$J,112,658,2)
;;=.13^1.9^2.87^.15^5.4^.69^1.474^.095^94^1.646^2.741^1.676^2^1.77^^^0
;;^UTILITY(U,$J,112,658,3)
;;=.224^.838^.854^1.386^1.433^.441^.261^.715^.627^.86^1.411^.378^1.169^1.862^2.819^1.213^.851^.885
;;^UTILITY(U,$J,112,658,4)
;;=^^.049^.953^.022^.648^2.721
;;^UTILITY(U,$J,112,658,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,659,0)
;;=ALMONDS, DRIED^12-061^oz.^28.3^40^N
;;^UTILITY(U,$J,112,659,1)
;;=19.95^52.21^20.4^589^4.42^^^266^3.66^296^520^732^11^2.92^.942^2.273^^0^.6^.211
;;^UTILITY(U,$J,112,659,2)
;;=.779^3.361^.471^.113^58.7^0^10.495^.374^0^4.949^33.902^10.957^0^3.03^^^8.8
;;^UTILITY(U,$J,112,659,3)
;;=.358^.739^.866^1.552^.666^.227^.358^1.113^.705^1.028^2.495^.558^.943^2.349^5.934^1.236^1.255^.901
;;^UTILITY(U,$J,112,659,4)
;;=^.005^.298^3.455^.304^1.021^33.276^^^4.7
;;^UTILITY(U,$J,112,659,20)
;;=USDA Std. Reference, Release 10;HCF Nutrition Research Foundation, Inc, 1990
;;^UTILITY(U,$J,112,660,0)
;;=ALMONDS, ROASTED, W/SALT^12-565^oz.^28.3^100^N
;;^UTILITY(U,$J,112,660,1)
;;=20.39^57.67^15.88^618^3.08^^^234^3.83^304^547^683^779^4.9^1.224^1.975^^0^.7^.13
;;^UTILITY(U,$J,112,660,2)
;;=.99^3.5^.254^.084^63.8^0^11.591^.413^0^5.466^37.444^12.101^0^2.98^^^11.2
;;^UTILITY(U,$J,112,660,3)
;;=.366^.756^.886^1.586^.681^.232^.366^1.138^.72^1.051^2.551^.571^.964^2.401^6.065^1.263^1.283^.921
;;^UTILITY(U,$J,112,660,4)
;;=^.005^.329^3.816^.336^1.128^36.752
;;^UTILITY(U,$J,112,660,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,661,0)
;;=ANCHOVY, PICKLED ^15-002^anchovies^4^100^N
;;^UTILITY(U,$J,112,661,1)
;;=28.89^9.71^0^210^50.3^^^232^4.63^69^252^544^3668^2.44^.339^.1^^70^0^.078
;;^UTILITY(U,$J,112,661,2)
;;=.363^19.903^.909^.203^12.5^.88^.362^.017^85^2.203^3.77^2.562^21^2.04^^^0
;;^UTILITY(U,$J,112,661,3)
;;=.324^1.266^1.331^2.348^2.653^.855^.31^1.128^.975^1.488^1.729^.85^1.747^2.958^4.312^1.387^1.021^1.179
;;^UTILITY(U,$J,112,661,4)
;;=^.02^.428^1.326^.59^.42^2.942^.01
;;^UTILITY(U,$J,112,661,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,662,0)
;;=APPLE BUTTER^19-294^tbsp.^17.6^100^N
;;^UTILITY(U,$J,112,662,1)
;;=.1^.3^47.7^184^51.7^^^5^.13^3^6^91^0^.06^.08^.389^^0^1.8^.012
;;^UTILITY(U,$J,112,662,2)
;;=.008^.073^.05^.037^0^0^^^0^^^^0^.2^^^1.3
;;^UTILITY(U,$J,112,662,4)
;;=^^^^^^0
;;^UTILITY(U,$J,112,662,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,663,0)
;;=APRICOTS, CANDIED^31-0^oz.^28.3^100^N
;;^UTILITY(U,$J,112,663,1)
;;=.6^.2^86.5^338^12^^^17^.5^^23^281^1^^^^^2700^10^.03
;;^UTILITY(U,$J,112,663,2)
;;=.04^.6^^^^^0^^0^0^^^^.7
;;^UTILITY(U,$J,112,663,4)
;;=^^^^^^0
;;^UTILITY(U,$J,112,663,20)
;;=USDA Std. Reference, Release 8
;;^UTILITY(U,$J,112,664,0)
;;=ARTICHOKES, BOILED, WO/SALT^11-008^buds^120^40^N
;;^UTILITY(U,$J,112,664,1)
;;=3.48^.16^11.18^50^83.97^^^45^1.29^60^86^354^95^.49^.233^.259^^177^10^.065
;;^UTILITY(U,$J,112,664,2)
;;=.066^1.001^.342^.111^51^0^.049^.018^0^.037^.005^.068^18^1.21^^^5.4
;;^UTILITY(U,$J,112,664,4)
;;=^.002^.002^.031^^.003^.005
;;^UTILITY(U,$J,112,664,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,665,0)
;;=ARTICHOKES, BOILED, W/SALT^11-702^buds^120^40^N
;;^UTILITY(U,$J,112,665,1)
;;=3.48^.16^11.18^50^83.97^^^45^1.29^60^86^354^331^.49^.233^.259^^177^10^.065
;;^UTILITY(U,$J,112,665,2)
;;=.066^1.001^.342^.111^51^0^.049^.018^0^.037^.005^.068^18^1.21
;;^UTILITY(U,$J,112,665,4)
;;=^.002^.002^.031^^.003^.005
;;^UTILITY(U,$J,112,665,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,666,0)
;;=ASPARAGUS, BOILED, WO/SALT^11-012^cups^180^100^N
;;^UTILITY(U,$J,112,666,1)
;;=2.59^.31^4.23^24^92.2^^^20^.73^10^54^160^11^.42^.112^.152^^539^10.8^.123
;;^UTILITY(U,$J,112,666,2)
;;=.126^1.082^.161^.122^146^0^.129^.007^0^.071^.01^.136^54^.66^^^2
;;^UTILITY(U,$J,112,666,3)
;;=.025^.072^.095^.113^.123^.025^.031^.061^.041^.1^.121^.04^.122^.301^.425^.084^.138^.099
;;^UTILITY(U,$J,112,666,4)
;;=^.001^.001^.064^.001^.004^.009^^^1.7
;;^UTILITY(U,$J,112,666,20)
;;=USDA Std. Reference, Release 10;HCF Nutrition Research Foundation, Inc, 1990
;;^UTILITY(U,$J,112,667,0)
;;=ASPARAGUS, BOILED, W/SALT^11-705^cups^180^100^N
;;^UTILITY(U,$J,112,667,1)
;;=2.59^.31^4.23^24^92.2^^^20^.73^10^54^160^240^.42^.112^.152^^539^10.8^.123
;;^UTILITY(U,$J,112,667,2)
;;=.126^1.082^.161^.122^146^0^.129^.007^0^.071^.01^.136^54^.66^^^2.1
;;^UTILITY(U,$J,112,667,3)
;;=.025^.072^.095^.113^.123^.025^.031^.061^.041^.1^.121^.04^.122^.301^.425^.084^.138^.099
FHINI02E ; ; 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,658,1)
+2 ;;=19.63^6.78^11.05^189^60.1^^^37^3.8^56^217^284^591^.95^.228^.07^^5^1.8^.22
+3 ;;^UTILITY(U,$J,112,658,2)
+4 ;;=.13^1.9^2.87^.15^5.4^.69^1.474^.095^94^1.646^2.741^1.676^2^1.77^^^0
+5 ;;^UTILITY(U,$J,112,658,3)
+6 ;;=.224^.838^.854^1.386^1.433^.441^.261^.715^.627^.86^1.411^.378^1.169^1.862^2.819^1.213^.851^.885
+7 ;;^UTILITY(U,$J,112,658,4)
+8 ;;=^^.049^.953^.022^.648^2.721
+9 ;;^UTILITY(U,$J,112,658,20)
+10 ;;=USDA Std. Reference, Release 10
+11 ;;^UTILITY(U,$J,112,659,0)
+12 ;;=ALMONDS, DRIED^12-061^oz.^28.3^40^N
+13 ;;^UTILITY(U,$J,112,659,1)
+14 ;;=19.95^52.21^20.4^589^4.42^^^266^3.66^296^520^732^11^2.92^.942^2.273^^0^.6^.211
+15 ;;^UTILITY(U,$J,112,659,2)
+16 ;;=.779^3.361^.471^.113^58.7^0^10.495^.374^0^4.949^33.902^10.957^0^3.03^^^8.8
+17 ;;^UTILITY(U,$J,112,659,3)
+18 ;;=.358^.739^.866^1.552^.666^.227^.358^1.113^.705^1.028^2.495^.558^.943^2.349^5.934^1.236^1.255^.901
+19 ;;^UTILITY(U,$J,112,659,4)
+20 ;;=^.005^.298^3.455^.304^1.021^33.276^^^4.7
+21 ;;^UTILITY(U,$J,112,659,20)
+22 ;;=USDA Std. Reference, Release 10;HCF Nutrition Research Foundation, Inc, 1990
+23 ;;^UTILITY(U,$J,112,660,0)
+24 ;;=ALMONDS, ROASTED, W/SALT^12-565^oz.^28.3^100^N
+25 ;;^UTILITY(U,$J,112,660,1)
+26 ;;=20.39^57.67^15.88^618^3.08^^^234^3.83^304^547^683^779^4.9^1.224^1.975^^0^.7^.13
+27 ;;^UTILITY(U,$J,112,660,2)
+28 ;;=.99^3.5^.254^.084^63.8^0^11.591^.413^0^5.466^37.444^12.101^0^2.98^^^11.2
+29 ;;^UTILITY(U,$J,112,660,3)
+30 ;;=.366^.756^.886^1.586^.681^.232^.366^1.138^.72^1.051^2.551^.571^.964^2.401^6.065^1.263^1.283^.921
+31 ;;^UTILITY(U,$J,112,660,4)
+32 ;;=^.005^.329^3.816^.336^1.128^36.752
+33 ;;^UTILITY(U,$J,112,660,20)
+34 ;;=USDA Std. Reference, Release 10
+35 ;;^UTILITY(U,$J,112,661,0)
+36 ;;=ANCHOVY, PICKLED ^15-002^anchovies^4^100^N
+37 ;;^UTILITY(U,$J,112,661,1)
+38 ;;=28.89^9.71^0^210^50.3^^^232^4.63^69^252^544^3668^2.44^.339^.1^^70^0^.078
+39 ;;^UTILITY(U,$J,112,661,2)
+40 ;;=.363^19.903^.909^.203^12.5^.88^.362^.017^85^2.203^3.77^2.562^21^2.04^^^0
+41 ;;^UTILITY(U,$J,112,661,3)
+42 ;;=.324^1.266^1.331^2.348^2.653^.855^.31^1.128^.975^1.488^1.729^.85^1.747^2.958^4.312^1.387^1.021^1.179
+43 ;;^UTILITY(U,$J,112,661,4)
+44 ;;=^.02^.428^1.326^.59^.42^2.942^.01
+45 ;;^UTILITY(U,$J,112,661,20)
+46 ;;=USDA Std. Reference, Release 10
+47 ;;^UTILITY(U,$J,112,662,0)
+48 ;;=APPLE BUTTER^19-294^tbsp.^17.6^100^N
+49 ;;^UTILITY(U,$J,112,662,1)
+50 ;;=.1^.3^47.7^184^51.7^^^5^.13^3^6^91^0^.06^.08^.389^^0^1.8^.012
+51 ;;^UTILITY(U,$J,112,662,2)
+52 ;;=.008^.073^.05^.037^0^0^^^0^^^^0^.2^^^1.3
+53 ;;^UTILITY(U,$J,112,662,4)
+54 ;;=^^^^^^0
+55 ;;^UTILITY(U,$J,112,662,20)
+56 ;;=USDA Std. Reference, Release 10
+57 ;;^UTILITY(U,$J,112,663,0)
+58 ;;=APRICOTS, CANDIED^31-0^oz.^28.3^100^N
+59 ;;^UTILITY(U,$J,112,663,1)
+60 ;;=.6^.2^86.5^338^12^^^17^.5^^23^281^1^^^^^2700^10^.03
+61 ;;^UTILITY(U,$J,112,663,2)
+62 ;;=.04^.6^^^^^0^^0^0^^^^.7
+63 ;;^UTILITY(U,$J,112,663,4)
+64 ;;=^^^^^^0
+65 ;;^UTILITY(U,$J,112,663,20)
+66 ;;=USDA Std. Reference, Release 8
+67 ;;^UTILITY(U,$J,112,664,0)
+68 ;;=ARTICHOKES, BOILED, WO/SALT^11-008^buds^120^40^N
+69 ;;^UTILITY(U,$J,112,664,1)
+70 ;;=3.48^.16^11.18^50^83.97^^^45^1.29^60^86^354^95^.49^.233^.259^^177^10^.065
+71 ;;^UTILITY(U,$J,112,664,2)
+72 ;;=.066^1.001^.342^.111^51^0^.049^.018^0^.037^.005^.068^18^1.21^^^5.4
+73 ;;^UTILITY(U,$J,112,664,4)
+74 ;;=^.002^.002^.031^^.003^.005
+75 ;;^UTILITY(U,$J,112,664,20)
+76 ;;=USDA Std. Reference, Release 10
+77 ;;^UTILITY(U,$J,112,665,0)
+78 ;;=ARTICHOKES, BOILED, W/SALT^11-702^buds^120^40^N
+79 ;;^UTILITY(U,$J,112,665,1)
+80 ;;=3.48^.16^11.18^50^83.97^^^45^1.29^60^86^354^331^.49^.233^.259^^177^10^.065
+81 ;;^UTILITY(U,$J,112,665,2)
+82 ;;=.066^1.001^.342^.111^51^0^.049^.018^0^.037^.005^.068^18^1.21
+83 ;;^UTILITY(U,$J,112,665,4)
+84 ;;=^.002^.002^.031^^.003^.005
+85 ;;^UTILITY(U,$J,112,665,20)
+86 ;;=USDA Std. Reference, Release 10
+87 ;;^UTILITY(U,$J,112,666,0)
+88 ;;=ASPARAGUS, BOILED, WO/SALT^11-012^cups^180^100^N
+89 ;;^UTILITY(U,$J,112,666,1)
+90 ;;=2.59^.31^4.23^24^92.2^^^20^.73^10^54^160^11^.42^.112^.152^^539^10.8^.123
+91 ;;^UTILITY(U,$J,112,666,2)
+92 ;;=.126^1.082^.161^.122^146^0^.129^.007^0^.071^.01^.136^54^.66^^^2
+93 ;;^UTILITY(U,$J,112,666,3)
+94 ;;=.025^.072^.095^.113^.123^.025^.031^.061^.041^.1^.121^.04^.122^.301^.425^.084^.138^.099
+95 ;;^UTILITY(U,$J,112,666,4)
+96 ;;=^.001^.001^.064^.001^.004^.009^^^1.7
+97 ;;^UTILITY(U,$J,112,666,20)
+98 ;;=USDA Std. Reference, Release 10;HCF Nutrition Research Foundation, Inc, 1990
+99 ;;^UTILITY(U,$J,112,667,0)
+100 ;;=ASPARAGUS, BOILED, W/SALT^11-705^cups^180^100^N
+101 ;;^UTILITY(U,$J,112,667,1)
+102 ;;=2.59^.31^4.23^24^92.2^^^20^.73^10^54^160^240^.42^.112^.152^^539^10.8^.123
+103 ;;^UTILITY(U,$J,112,667,2)
+104 ;;=.126^1.082^.161^.122^146^0^.129^.007^0^.071^.01^.136^54^.66^^^2.1
+105 ;;^UTILITY(U,$J,112,667,3)
+106 ;;=.025^.072^.095^.113^.123^.025^.031^.061^.041^.1^.121^.04^.122^.301^.425^.084^.138^.099
