- 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