Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: FHINI083

FHINI083.m

Go to the documentation of this file.
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