FHINI06S ; ; 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,2320,2)
;;=.06^.4^.205^.004^^0^^^0^^^^51^.2^^^.3
;;^UTILITY(U,$J,112,2320,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2321,0)
;;=ACEROLA, RAW^9-001^fruits^4.8^80^N
;;^UTILITY(U,$J,112,2321,1)
;;=.4^.3^7.69^32^91.41^^^12^.2^18^11^146^7^^^^^767^1677.6^.02
;;^UTILITY(U,$J,112,2321,2)
;;=.06^.4^.309^.009^^0^^^0^^^^77^.2^^^1.1
;;^UTILITY(U,$J,112,2321,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2322,0)
;;=AMARANTH^20-001^cups^196^100^N
;;^UTILITY(U,$J,112,2322,1)
;;=14.45^6.51^66.17^374^9.84^^^153^7.59^266^455^366^21^3.18^.777^2.26^^0^4.2^.08
;;^UTILITY(U,$J,112,2322,2)
;;=.208^1.286^1.047^.223^49^0^2.834^.057^0^1.662^1.433^2.891^0^3.04^^^15.2
;;^UTILITY(U,$J,112,2322,3)
;;=.181^.558^.582^.879^.747^.226^.191^.542^.329^.679^1.06^.389^.799^1.261^2.259^1.636^.698^1.148
;;^UTILITY(U,$J,112,2322,4)
;;=^^.011^1.284^^.22^1.433
;;^UTILITY(U,$J,112,2322,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2323,0)
;;=ANTELOUPE, ROASTED^17-145^oz.^28.3^100^N
;;^UTILITY(U,$J,112,2323,1)
;;=29.45^2.67^0^150^65.9^^^4^4.2^28^210^372^54^1.68^.213^.022^^0^0^.26
;;^UTILITY(U,$J,112,2323,2)
;;=.73^^^^^^.33^.1^126^.97^.63^.58^0^1.45^^^0
;;^UTILITY(U,$J,112,2323,3)
;;=^1.362^1.126^2.489^2.462^.838^.262^1.166^1.022^1.31^1.938^1.401^1.716^2.79^4.427^1.323^1.349^1.244
;;^UTILITY(U,$J,112,2323,4)
;;=0^0^.03^.45^.01^.49^.63^.16
;;^UTILITY(U,$J,112,2323,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2324,0)
;;=ARROWROOT FLOUR^20-003^cups^129^100^N
;;^UTILITY(U,$J,112,2324,1)
;;=.3^.1^88.15^357^11.37^^^40^.33^3^5^11^2^.07^.04^.47^^0^0^.001
;;^UTILITY(U,$J,112,2324,2)
;;=0^0^.13^.005^7^0^.036^.009^0^.019^.002^.045^0^.08^^^.1
;;^UTILITY(U,$J,112,2324,3)
;;=.004^.012^.01^.019^.013^.006^.006^.012^.009^.014^.012^.004^.014^.047^.05^.014^.009^.013
;;^UTILITY(U,$J,112,2324,4)
;;=^^.001^.017^0^.001^.002
;;^UTILITY(U,$J,112,2324,20)
;;=USDA Std. Reference, Release 10;HCF Nutrition Research Foundation, Inc, 1990
;;^UTILITY(U,$J,112,2325,0)
;;=BEANS, HYACINTH, BOILED, W/SALT^16-368^cups^194^100^N
;;^UTILITY(U,$J,112,2325,1)
;;=8.14^.58^20.7^117^69.13^^^40^4.58^82^120^337^243^2.85^.341^.482^^0^0^.27
;;^UTILITY(U,$J,112,2325,2)
;;=.037^.411^.316^.037^3.8^0^.245^^0^.099^^^0^1.46
;;^UTILITY(U,$J,112,2325,3)
;;=.068^.315^.39^.691^.556^.065^.095^.41^.291^.422^.598^.233^.364^.962^1.323^.351^.396^.448
;;^UTILITY(U,$J,112,2325,4)
;;=^^^^^^.026
;;^UTILITY(U,$J,112,2325,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2326,0)
;;=BEANS, HYACINTH, BOILED, WO/SALT^16-068^cups^194^100^N
;;^UTILITY(U,$J,112,2326,1)
;;=8.14^.58^20.7^117^69.13^^^40^4.58^82^120^337^7^2.85^.341^.482^^0^0^.27
;;^UTILITY(U,$J,112,2326,2)
;;=.037^.411^.316^.037^3.8^0^.245^^0^.099^^^0^1.46
;;^UTILITY(U,$J,112,2326,3)
;;=.068^.315^.39^.691^.556^.065^.095^.41^.291^.422^.598^.233^.364^.962^1.323^.351^.396^.448
;;^UTILITY(U,$J,112,2326,4)
;;=^^^^^^.026
;;^UTILITY(U,$J,112,2326,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2327,0)
;;=CLAMS, CANNED, LIQUID^15-162^oz.^28.3^100^N
;;^UTILITY(U,$J,112,2327,1)
;;=.4^.02^.1^2^97.7^^^13^.3^11^114^149^215^.1^.389^.074^^30^1^.01
;;^UTILITY(U,$J,112,2327,2)
;;=.02^.18^.04^.01^2^5^^^3^.002^.002^.005^9^1.8^^^0
;;^UTILITY(U,$J,112,2327,3)
;;=^0^0^0^0^^^0^0^0^.001^0^.005^.001^.019^.001^^.001
;;^UTILITY(U,$J,112,2327,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2328,0)
;;=CLAMS, RAW^15-157^oz.^28.3^100^N
;;^UTILITY(U,$J,112,2328,1)
;;=12.77^.97^2.57^74^81.82^^^46^13.98^9^169^314^56^1.37^.344^.5^^300^13^.08
;;^UTILITY(U,$J,112,2328,2)
;;=.213^1.765^.362^.06^16^49.444^.016^.004^34^.094^.08^.282^90^1.87^^^0
;;^UTILITY(U,$J,112,2328,3)
;;=.143^.55^.556^.899^.954^.288^.168^.458^.409^.558^.932^.245^.772^1.232^1.737^.799^.521^.572
;;^UTILITY(U,$J,112,2328,4)
;;=^^.013^.06^.022^.018^.034^.041^.2
;;^UTILITY(U,$J,112,2328,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2329,0)
;;=CRAB, BLUE, CRAB CAKES^15-142^cakes^60^100^N
;;^UTILITY(U,$J,112,2329,1)
;;=20.21^7.52^.48^155^71^^^105^1.08^33^213^324^330^4.09^.61^.19^^252^2.8^.09
;;^UTILITY(U,$J,112,2329,2)
;;=.08^2.9^.5^.17^41.5^5.935^1.578^.087^150^1.483^2.815^2.273^81^2.1^^^0
;;^UTILITY(U,$J,112,2329,3)
;;=.281^.828^.996^1.617^1.733^.569^.239^.87^.682^.98^1.73^.414^1.145^2.083^3.396^1.18^.676^.841
;;^UTILITY(U,$J,112,2329,4)
;;=^^.032^.956^.121^.491^2.655^.088
;;^UTILITY(U,$J,112,2329,20)
;;=USDA Std. Reference, Release 10
;;^UTILITY(U,$J,112,2330,0)
;;=ORANGE PEEL, RAW^9-216^tsp.^2^100^N
FHINI06S ; ; 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,2320,2)
+2 ;;=.06^.4^.205^.004^^0^^^0^^^^51^.2^^^.3
+3 ;;^UTILITY(U,$J,112,2320,20)
+4 ;;=USDA Std. Reference, Release 10
+5 ;;^UTILITY(U,$J,112,2321,0)
+6 ;;=ACEROLA, RAW^9-001^fruits^4.8^80^N
+7 ;;^UTILITY(U,$J,112,2321,1)
+8 ;;=.4^.3^7.69^32^91.41^^^12^.2^18^11^146^7^^^^^767^1677.6^.02
+9 ;;^UTILITY(U,$J,112,2321,2)
+10 ;;=.06^.4^.309^.009^^0^^^0^^^^77^.2^^^1.1
+11 ;;^UTILITY(U,$J,112,2321,20)
+12 ;;=USDA Std. Reference, Release 10
+13 ;;^UTILITY(U,$J,112,2322,0)
+14 ;;=AMARANTH^20-001^cups^196^100^N
+15 ;;^UTILITY(U,$J,112,2322,1)
+16 ;;=14.45^6.51^66.17^374^9.84^^^153^7.59^266^455^366^21^3.18^.777^2.26^^0^4.2^.08
+17 ;;^UTILITY(U,$J,112,2322,2)
+18 ;;=.208^1.286^1.047^.223^49^0^2.834^.057^0^1.662^1.433^2.891^0^3.04^^^15.2
+19 ;;^UTILITY(U,$J,112,2322,3)
+20 ;;=.181^.558^.582^.879^.747^.226^.191^.542^.329^.679^1.06^.389^.799^1.261^2.259^1.636^.698^1.148
+21 ;;^UTILITY(U,$J,112,2322,4)
+22 ;;=^^.011^1.284^^.22^1.433
+23 ;;^UTILITY(U,$J,112,2322,20)
+24 ;;=USDA Std. Reference, Release 10
+25 ;;^UTILITY(U,$J,112,2323,0)
+26 ;;=ANTELOUPE, ROASTED^17-145^oz.^28.3^100^N
+27 ;;^UTILITY(U,$J,112,2323,1)
+28 ;;=29.45^2.67^0^150^65.9^^^4^4.2^28^210^372^54^1.68^.213^.022^^0^0^.26
+29 ;;^UTILITY(U,$J,112,2323,2)
+30 ;;=.73^^^^^^.33^.1^126^.97^.63^.58^0^1.45^^^0
+31 ;;^UTILITY(U,$J,112,2323,3)
+32 ;;=^1.362^1.126^2.489^2.462^.838^.262^1.166^1.022^1.31^1.938^1.401^1.716^2.79^4.427^1.323^1.349^1.244
+33 ;;^UTILITY(U,$J,112,2323,4)
+34 ;;=0^0^.03^.45^.01^.49^.63^.16
+35 ;;^UTILITY(U,$J,112,2323,20)
+36 ;;=USDA Std. Reference, Release 10
+37 ;;^UTILITY(U,$J,112,2324,0)
+38 ;;=ARROWROOT FLOUR^20-003^cups^129^100^N
+39 ;;^UTILITY(U,$J,112,2324,1)
+40 ;;=.3^.1^88.15^357^11.37^^^40^.33^3^5^11^2^.07^.04^.47^^0^0^.001
+41 ;;^UTILITY(U,$J,112,2324,2)
+42 ;;=0^0^.13^.005^7^0^.036^.009^0^.019^.002^.045^0^.08^^^.1
+43 ;;^UTILITY(U,$J,112,2324,3)
+44 ;;=.004^.012^.01^.019^.013^.006^.006^.012^.009^.014^.012^.004^.014^.047^.05^.014^.009^.013
+45 ;;^UTILITY(U,$J,112,2324,4)
+46 ;;=^^.001^.017^0^.001^.002
+47 ;;^UTILITY(U,$J,112,2324,20)
+48 ;;=USDA Std. Reference, Release 10;HCF Nutrition Research Foundation, Inc, 1990
+49 ;;^UTILITY(U,$J,112,2325,0)
+50 ;;=BEANS, HYACINTH, BOILED, W/SALT^16-368^cups^194^100^N
+51 ;;^UTILITY(U,$J,112,2325,1)
+52 ;;=8.14^.58^20.7^117^69.13^^^40^4.58^82^120^337^243^2.85^.341^.482^^0^0^.27
+53 ;;^UTILITY(U,$J,112,2325,2)
+54 ;;=.037^.411^.316^.037^3.8^0^.245^^0^.099^^^0^1.46
+55 ;;^UTILITY(U,$J,112,2325,3)
+56 ;;=.068^.315^.39^.691^.556^.065^.095^.41^.291^.422^.598^.233^.364^.962^1.323^.351^.396^.448
+57 ;;^UTILITY(U,$J,112,2325,4)
+58 ;;=^^^^^^.026
+59 ;;^UTILITY(U,$J,112,2325,20)
+60 ;;=USDA Std. Reference, Release 10
+61 ;;^UTILITY(U,$J,112,2326,0)
+62 ;;=BEANS, HYACINTH, BOILED, WO/SALT^16-068^cups^194^100^N
+63 ;;^UTILITY(U,$J,112,2326,1)
+64 ;;=8.14^.58^20.7^117^69.13^^^40^4.58^82^120^337^7^2.85^.341^.482^^0^0^.27
+65 ;;^UTILITY(U,$J,112,2326,2)
+66 ;;=.037^.411^.316^.037^3.8^0^.245^^0^.099^^^0^1.46
+67 ;;^UTILITY(U,$J,112,2326,3)
+68 ;;=.068^.315^.39^.691^.556^.065^.095^.41^.291^.422^.598^.233^.364^.962^1.323^.351^.396^.448
+69 ;;^UTILITY(U,$J,112,2326,4)
+70 ;;=^^^^^^.026
+71 ;;^UTILITY(U,$J,112,2326,20)
+72 ;;=USDA Std. Reference, Release 10
+73 ;;^UTILITY(U,$J,112,2327,0)
+74 ;;=CLAMS, CANNED, LIQUID^15-162^oz.^28.3^100^N
+75 ;;^UTILITY(U,$J,112,2327,1)
+76 ;;=.4^.02^.1^2^97.7^^^13^.3^11^114^149^215^.1^.389^.074^^30^1^.01
+77 ;;^UTILITY(U,$J,112,2327,2)
+78 ;;=.02^.18^.04^.01^2^5^^^3^.002^.002^.005^9^1.8^^^0
+79 ;;^UTILITY(U,$J,112,2327,3)
+80 ;;=^0^0^0^0^^^0^0^0^.001^0^.005^.001^.019^.001^^.001
+81 ;;^UTILITY(U,$J,112,2327,20)
+82 ;;=USDA Std. Reference, Release 10
+83 ;;^UTILITY(U,$J,112,2328,0)
+84 ;;=CLAMS, RAW^15-157^oz.^28.3^100^N
+85 ;;^UTILITY(U,$J,112,2328,1)
+86 ;;=12.77^.97^2.57^74^81.82^^^46^13.98^9^169^314^56^1.37^.344^.5^^300^13^.08
+87 ;;^UTILITY(U,$J,112,2328,2)
+88 ;;=.213^1.765^.362^.06^16^49.444^.016^.004^34^.094^.08^.282^90^1.87^^^0
+89 ;;^UTILITY(U,$J,112,2328,3)
+90 ;;=.143^.55^.556^.899^.954^.288^.168^.458^.409^.558^.932^.245^.772^1.232^1.737^.799^.521^.572
+91 ;;^UTILITY(U,$J,112,2328,4)
+92 ;;=^^.013^.06^.022^.018^.034^.041^.2
+93 ;;^UTILITY(U,$J,112,2328,20)
+94 ;;=USDA Std. Reference, Release 10
+95 ;;^UTILITY(U,$J,112,2329,0)
+96 ;;=CRAB, BLUE, CRAB CAKES^15-142^cakes^60^100^N
+97 ;;^UTILITY(U,$J,112,2329,1)
+98 ;;=20.21^7.52^.48^155^71^^^105^1.08^33^213^324^330^4.09^.61^.19^^252^2.8^.09
+99 ;;^UTILITY(U,$J,112,2329,2)
+100 ;;=.08^2.9^.5^.17^41.5^5.935^1.578^.087^150^1.483^2.815^2.273^81^2.1^^^0
+101 ;;^UTILITY(U,$J,112,2329,3)
+102 ;;=.281^.828^.996^1.617^1.733^.569^.239^.87^.682^.98^1.73^.414^1.145^2.083^3.396^1.18^.676^.841
+103 ;;^UTILITY(U,$J,112,2329,4)
+104 ;;=^^.032^.956^.121^.491^2.655^.088
+105 ;;^UTILITY(U,$J,112,2329,20)
+106 ;;=USDA Std. Reference, Release 10
+107 ;;^UTILITY(U,$J,112,2330,0)
+108 ;;=ORANGE PEEL, RAW^9-216^tsp.^2^100^N
