FHINI083.m

FHINI083	; ; 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,2809,0)

	;;=LONGANS, DRIED^9-173^oz.^28.3^36^N

	;;^UTILITY(U,$J,112,2809,1)

	;;=4.9^.4^74^286^17.6^^^45^5.4^46^196^658^48^.22^.807^.248^^0^28^.04

	;;^UTILITY(U,$J,112,2809,2)

	;;=.5^1^^^^0^^^0^^^^0^3.1

	;;^UTILITY(U,$J,112,2809,3)

	;;=^.128^.097^.202^.172^.049^^.112^.094^.217^.131^.045^.585^.469^.78^.158^.158^.18

	;;^UTILITY(U,$J,112,2809,20)

	;;=USDA Std. Reference, Release 10

	;;^UTILITY(U,$J,112,2810,0)

	;;=LONGANS, RAW^9-172^oz.^28.3^53^N

	;;^UTILITY(U,$J,112,2810,1)

	;;=1.31^.1^15.14^60^82.75^^^1^.13^10^21^266^0^.05^.169^.052^^^84^.031

	;;^UTILITY(U,$J,112,2810,2)

	;;=.14^.3^^^^0^^^0^^^^^.7^^^1.1

	;;^UTILITY(U,$J,112,2810,3)

	;;=^.034^.026^.054^.046^.013^^.03^.025^.058^.035^.012^.157^.126^.209^.042^.042^.048

	;;^UTILITY(U,$J,112,2810,20)

	;;=USDA Std. Reference, Release 10

	;;^UTILITY(U,$J,112,2813,0)

	;;=MACKEREL, SPANISH, COOKED, DRY HEAT^15-052^oz.^28.3^100^N

	;;^UTILITY(U,$J,112,2813,1)

	;;=23.59^6.32^0^158^68.46^^^13^.74^38^271^554^66^.62^.065^.012^^109^1.6^.13

	;;^UTILITY(U,$J,112,2813,2)

	;;=.21^5^.87^.46^1.2^7^.108^.116^73^1.801^2.139^1.805^33^1.53^^^0

	;;^UTILITY(U,$J,112,2813,3)

	;;=.264^1.034^1.087^1.917^2.166^.698^.253^.921^.796^1.215^1.411^.694^1.427^2.415^3.521^1.132^.834^.962

	;;^UTILITY(U,$J,112,2813,4)

	;;=^^.204^1.155^.309^.442^1.104^.159

	;;^UTILITY(U,$J,112,2813,20)

	;;=USDA Std. Reference, Release 10

	;;^UTILITY(U,$J,112,2814,0)

	;;=MALTED MILK FLAVOR MIX, CHOCOLATE, ADDED NUTRIENTS, POWDER^14-315^tsp.^4.7^100^N

	;;^UTILITY(U,$J,112,2814,1)

	;;=4.9^3.4^84.4^358^2.5^^^443^17.38^96^401^1193^594^1.07^.634^.627^^13098^150.1^3.052

	;;^UTILITY(U,$J,112,2814,2)

	;;=4.11^50.937^.683^4.366^93.1^.2^.26^.065^5^1.964^.951^.325^3925^4.6^^28^.9

	;;^UTILITY(U,$J,112,2814,4)

	;;=.068^.077^.275^.861^.063^.447^.846

	;;^UTILITY(U,$J,112,2814,20)

	;;=USDA Std. Reference, Release 10

	;;^UTILITY(U,$J,112,2815,0)

	;;=MILK, GOAT, FLUID^1-106^cups^244^100^N

	;;^UTILITY(U,$J,112,2815,1)

	;;=3.56^4.14^4.45^68.813^87.03^^^133.5^.05^13.97^110.7^204.4^49.8^.3^.046^.018^^185^1.29^.048

	;;^UTILITY(U,$J,112,2815,2)

	;;=.138^.277^.31^.046^.6^.065^.109^.04^11.4^2.667^1.109^.149^56^.82^^^0

	;;^UTILITY(U,$J,112,2815,3)

	;;=.044^.163^.207^.314^.29^.08^.046^.155^.179^.24^.119^.089^.118^.21^.626^.05^.368^.181

	;;^UTILITY(U,$J,112,2815,4)

	;;=.26^.124^.325^.911^.082^.441^.977^0

	;;^UTILITY(U,$J,112,2815,20)

	;;=USDA Std. Reference, Release 10

	;;^UTILITY(U,$J,112,2816,0)

	;;=MILLET, COOKED^20-032^cups^240^100^N

	;;^UTILITY(U,$J,112,2816,1)

	;;=3.51^1^23.67^119^71.41^^^3^.63^44^100^62^2^.91^.161^.272^^0^0^.106

	;;^UTILITY(U,$J,112,2816,2)

	;;=.082^1.33^.171^.108^19^0^.48^.028^0^.172^.184^.508^0^.41^^^1.3

	;;^UTILITY(U,$J,112,2816,3)

	;;=.038^.113^.148^.446^.067^.07^.067^.185^.108^.184^.122^.075^.314^.231^.763^.092^.279^.205

	;;^UTILITY(U,$J,112,2816,4)

	;;=^.001^^.126^.003^.037^.176

	;;^UTILITY(U,$J,112,2816,20)

	;;=USDA Std. Reference, Release 10

	;;^UTILITY(U,$J,112,2817,0)

	;;=MISO^16-112^cups^276^100^N

	;;^UTILITY(U,$J,112,2817,1)

	;;=11.81^6.07^27.96^206^41.45^^^66^2.74^42^153^164^3647^3.32^.437^.859^^87^0^.097

	;;^UTILITY(U,$J,112,2817,2)

	;;=.25^.86^.258^.215^33^0^3.023^.405^0^.878^1.341^3.428^9^12.71^^^5.4

	;;^UTILITY(U,$J,112,2817,3)

	;;=.143^.639^.811^1.129^.66^.149^.095^.596^.362^.742^.747^.329^.569^1.311^2.101^.546^.736^.74

	;;^UTILITY(U,$J,112,2817,4)

	;;=^^.017^.644^.017^.217^1.324^^11

	;;^UTILITY(U,$J,112,2817,20)

	;;=USDA Std. Reference, Release 10

	;;^UTILITY(U,$J,112,2818,0)

	;;=MOOSE, ROASTED^17-173^oz.^28.3^100^N

	;;^UTILITY(U,$J,112,2818,1)

	;;=29.27^.97^0^134^67.83^^^6^4.22^24^176^334^69^3.68^.079^.009^^0^5^.05

	;;^UTILITY(U,$J,112,2818,2)

	;;=.34^5.26^^^^^.19^.03^78^.29^.2^.31^0^1.49^^^0

	;;^UTILITY(U,$J,112,2818,3)

	;;=^1.344^1.405^2.576^2.655^.749^^1.264^1.077^1.592^1.892^.983^1.686^2.749^4.739^1.278^1.189^1.049

	;;^UTILITY(U,$J,112,2818,4)

	;;=^^0^.12^.01^.17^.18^.09

	;;^UTILITY(U,$J,112,2818,20)

	;;=USDA Std. Reference, Release 10

	;;^UTILITY(U,$J,112,2820,0)

	;;=MUSKRAT, ROASTED^17-175^oz.^28.3^100^N

	;;^UTILITY(U,$J,112,2820,1)

	;;=30.09^11.74^0^234^55.58^^^36^7.1^26^271^320^95^2.27^.189^.032^^0^7^.08

	;;^UTILITY(U,$J,112,2820,2)

	;;=.71^7.19^.93^.47^11^8.3^^^121^^^^0^1.71^^^0

	;;^UTILITY(U,$J,112,2820,3)

	;;=^1.237^1.146^2.373^2.359^.501^^1.242^.823^1.338^1.444^.895^1.589^2.6^3.832^1.468^1.203^1.078

	;;^UTILITY(U,$J,112,2820,20)

	;;=USDA Std. Reference, Release 10

	;;^UTILITY(U,$J,112,2822,0)

	;;=NOODLES, EGG, COOKED, ENRICHED, WITH ADDED SALT^20-310^cups^160^319^N

	;;^UTILITY(U,$J,112,2822,1)

	;;=4.75^1.47^24.84^133^68.7^^^12^1.59^19^69^28^165^.62^.086^.262^^20^0^.186

FHINI083  ; ; 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,2809,0)

 +2       ;;=LONGANS, DRIED^9-173^oz.^28.3^36^N

 +3       ;;^UTILITY(U,$J,112,2809,1)

 +4       ;;=4.9^.4^74^286^17.6^^^45^5.4^46^196^658^48^.22^.807^.248^^0^28^.04

 +5       ;;^UTILITY(U,$J,112,2809,2)

 +6       ;;=.5^1^^^^0^^^0^^^^0^3.1

 +7       ;;^UTILITY(U,$J,112,2809,3)

 +8       ;;=^.128^.097^.202^.172^.049^^.112^.094^.217^.131^.045^.585^.469^.78^.158^.158^.18

 +9       ;;^UTILITY(U,$J,112,2809,20)

 +10      ;;=USDA Std. Reference, Release 10

 +11      ;;^UTILITY(U,$J,112,2810,0)

 +12      ;;=LONGANS, RAW^9-172^oz.^28.3^53^N

 +13      ;;^UTILITY(U,$J,112,2810,1)

 +14      ;;=1.31^.1^15.14^60^82.75^^^1^.13^10^21^266^0^.05^.169^.052^^^84^.031

 +15      ;;^UTILITY(U,$J,112,2810,2)

 +16      ;;=.14^.3^^^^0^^^0^^^^^.7^^^1.1

 +17      ;;^UTILITY(U,$J,112,2810,3)

 +18      ;;=^.034^.026^.054^.046^.013^^.03^.025^.058^.035^.012^.157^.126^.209^.042^.042^.048

 +19      ;;^UTILITY(U,$J,112,2810,20)

 +20      ;;=USDA Std. Reference, Release 10

 +21      ;;^UTILITY(U,$J,112,2813,0)

 +22      ;;=MACKEREL, SPANISH, COOKED, DRY HEAT^15-052^oz.^28.3^100^N

 +23      ;;^UTILITY(U,$J,112,2813,1)

 +24      ;;=23.59^6.32^0^158^68.46^^^13^.74^38^271^554^66^.62^.065^.012^^109^1.6^.13

 +25      ;;^UTILITY(U,$J,112,2813,2)

 +26      ;;=.21^5^.87^.46^1.2^7^.108^.116^73^1.801^2.139^1.805^33^1.53^^^0

 +27      ;;^UTILITY(U,$J,112,2813,3)

 +28      ;;=.264^1.034^1.087^1.917^2.166^.698^.253^.921^.796^1.215^1.411^.694^1.427^2.415^3.521^1.132^.834^.962

 +29      ;;^UTILITY(U,$J,112,2813,4)

 +30      ;;=^^.204^1.155^.309^.442^1.104^.159

 +31      ;;^UTILITY(U,$J,112,2813,20)

 +32      ;;=USDA Std. Reference, Release 10

 +33      ;;^UTILITY(U,$J,112,2814,0)

 +34      ;;=MALTED MILK FLAVOR MIX, CHOCOLATE, ADDED NUTRIENTS, POWDER^14-315^tsp.^4.7^100^N

 +35      ;;^UTILITY(U,$J,112,2814,1)

 +36      ;;=4.9^3.4^84.4^358^2.5^^^443^17.38^96^401^1193^594^1.07^.634^.627^^13098^150.1^3.052

 +37      ;;^UTILITY(U,$J,112,2814,2)

 +38      ;;=4.11^50.937^.683^4.366^93.1^.2^.26^.065^5^1.964^.951^.325^3925^4.6^^28^.9

 +39      ;;^UTILITY(U,$J,112,2814,4)

 +40      ;;=.068^.077^.275^.861^.063^.447^.846

 +41      ;;^UTILITY(U,$J,112,2814,20)

 +42      ;;=USDA Std. Reference, Release 10

 +43      ;;^UTILITY(U,$J,112,2815,0)

 +44      ;;=MILK, GOAT, FLUID^1-106^cups^244^100^N

 +45      ;;^UTILITY(U,$J,112,2815,1)

 +46      ;;=3.56^4.14^4.45^68.813^87.03^^^133.5^.05^13.97^110.7^204.4^49.8^.3^.046^.018^^185^1.29^.048

 +47      ;;^UTILITY(U,$J,112,2815,2)

 +48      ;;=.138^.277^.31^.046^.6^.065^.109^.04^11.4^2.667^1.109^.149^56^.82^^^0

 +49      ;;^UTILITY(U,$J,112,2815,3)

 +50      ;;=.044^.163^.207^.314^.29^.08^.046^.155^.179^.24^.119^.089^.118^.21^.626^.05^.368^.181

 +51      ;;^UTILITY(U,$J,112,2815,4)

 +52      ;;=.26^.124^.325^.911^.082^.441^.977^0

 +53      ;;^UTILITY(U,$J,112,2815,20)

 +54      ;;=USDA Std. Reference, Release 10

 +55      ;;^UTILITY(U,$J,112,2816,0)

 +56      ;;=MILLET, COOKED^20-032^cups^240^100^N

 +57      ;;^UTILITY(U,$J,112,2816,1)

 +58      ;;=3.51^1^23.67^119^71.41^^^3^.63^44^100^62^2^.91^.161^.272^^0^0^.106

 +59      ;;^UTILITY(U,$J,112,2816,2)

 +60      ;;=.082^1.33^.171^.108^19^0^.48^.028^0^.172^.184^.508^0^.41^^^1.3

 +61      ;;^UTILITY(U,$J,112,2816,3)

 +62      ;;=.038^.113^.148^.446^.067^.07^.067^.185^.108^.184^.122^.075^.314^.231^.763^.092^.279^.205

 +63      ;;^UTILITY(U,$J,112,2816,4)

 +64      ;;=^.001^^.126^.003^.037^.176

 +65      ;;^UTILITY(U,$J,112,2816,20)

 +66      ;;=USDA Std. Reference, Release 10

 +67      ;;^UTILITY(U,$J,112,2817,0)

 +68      ;;=MISO^16-112^cups^276^100^N

 +69      ;;^UTILITY(U,$J,112,2817,1)

 +70      ;;=11.81^6.07^27.96^206^41.45^^^66^2.74^42^153^164^3647^3.32^.437^.859^^87^0^.097

 +71      ;;^UTILITY(U,$J,112,2817,2)

 +72      ;;=.25^.86^.258^.215^33^0^3.023^.405^0^.878^1.341^3.428^9^12.71^^^5.4

 +73      ;;^UTILITY(U,$J,112,2817,3)

 +74      ;;=.143^.639^.811^1.129^.66^.149^.095^.596^.362^.742^.747^.329^.569^1.311^2.101^.546^.736^.74

 +75      ;;^UTILITY(U,$J,112,2817,4)

 +76      ;;=^^.017^.644^.017^.217^1.324^^11

 +77      ;;^UTILITY(U,$J,112,2817,20)

 +78      ;;=USDA Std. Reference, Release 10

 +79      ;;^UTILITY(U,$J,112,2818,0)

 +80      ;;=MOOSE, ROASTED^17-173^oz.^28.3^100^N

 +81      ;;^UTILITY(U,$J,112,2818,1)

 +82      ;;=29.27^.97^0^134^67.83^^^6^4.22^24^176^334^69^3.68^.079^.009^^0^5^.05

 +83      ;;^UTILITY(U,$J,112,2818,2)

 +84      ;;=.34^5.26^^^^^.19^.03^78^.29^.2^.31^0^1.49^^^0

 +85      ;;^UTILITY(U,$J,112,2818,3)

 +86      ;;=^1.344^1.405^2.576^2.655^.749^^1.264^1.077^1.592^1.892^.983^1.686^2.749^4.739^1.278^1.189^1.049

 +87      ;;^UTILITY(U,$J,112,2818,4)

 +88      ;;=^^0^.12^.01^.17^.18^.09

 +89      ;;^UTILITY(U,$J,112,2818,20)

 +90      ;;=USDA Std. Reference, Release 10

 +91      ;;^UTILITY(U,$J,112,2820,0)

 +92      ;;=MUSKRAT, ROASTED^17-175^oz.^28.3^100^N

 +93      ;;^UTILITY(U,$J,112,2820,1)

 +94      ;;=30.09^11.74^0^234^55.58^^^36^7.1^26^271^320^95^2.27^.189^.032^^0^7^.08

 +95      ;;^UTILITY(U,$J,112,2820,2)

 +96      ;;=.71^7.19^.93^.47^11^8.3^^^121^^^^0^1.71^^^0

 +97      ;;^UTILITY(U,$J,112,2820,3)

 +98      ;;=^1.237^1.146^2.373^2.359^.501^^1.242^.823^1.338^1.444^.895^1.589^2.6^3.832^1.468^1.203^1.078

 +99      ;;^UTILITY(U,$J,112,2820,20)

 +100     ;;=USDA Std. Reference, Release 10

 +101     ;;^UTILITY(U,$J,112,2822,0)

 +102     ;;=NOODLES, EGG, COOKED, ENRICHED, WITH ADDED SALT^20-310^cups^160^319^N

 +103     ;;^UTILITY(U,$J,112,2822,1)

 +104     ;;=4.75^1.47^24.84^133^68.7^^^12^1.59^19^69^28^165^.62^.086^.262^^20^0^.186