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

FHINI065.m

Go to the documentation of this file.
FHINI065	; ; 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,2112,1)
	;;=17.3^51.45^25.35^594^1.75^^^70^3.7^225^435^597^12^3.8^1.279^1.937^^15^.4^.2
	;;^UTILITY(U,$J,112,2112,2)
	;;=.2^4.7^1.205^.296^50.4^0^10.535^.19^0^6.899^31.395^10.768^1^4.15^^^9
	;;^UTILITY(U,$J,112,2112,3)
	;;=.264^.597^.744^1.371^.712^.228^.287^.953^.676^.934^2.242^.48^.806^2.056^4.423^1.064^.875^.917
	;;^UTILITY(U,$J,112,2112,4)
	;;=.045^.271^.216^4.213^.223^1.749^30.802
	;;^UTILITY(U,$J,112,2112,20)
	;;=USDA Std. Reference, Release 10
	;;^UTILITY(U,$J,112,2113,0)
	;;=MIXED NUTS, WITH PEANUTS, OIL ROASTED, WO/SALT^12-137^oz.^28.3^100^N
	;;^UTILITY(U,$J,112,2113,1)
	;;=16.76^56.33^21.41^617^2.03^^^108^3.21^235^464^581^11^5.08^1.661^1.892^^19^.5^.498
	;;^UTILITY(U,$J,112,2113,2)
	;;=.222^5.061^1.248^.24^83^0^13.067^.176^0^8.725^31.695^13.299^2^3.47^^^9.9
	;;^UTILITY(U,$J,112,2113,3)
	;;=.247^.569^.724^1.344^.658^.338^.294^.92^.655^.936^2.024^.471^.772^1.958^4.128^1.006^.822^.911
	;;^UTILITY(U,$J,112,2113,4)
	;;=.05^.296^.255^5.238^.238^2.423^31.048
	;;^UTILITY(U,$J,112,2113,20)
	;;=USDA Std. Reference, Release 10
	;;^UTILITY(U,$J,112,2114,0)
	;;=MIXED NUTS, WITHOUT PEANUTS, OIL ROASTED, WO/SALT^12-138^oz.^28.3^100^N
	;;^UTILITY(U,$J,112,2114,1)
	;;=15.52^56.17^22.27^615^3.15^^^106^2.57^251^449^544^11^4.66^1.795^1.547^^20^.5^.504
	;;^UTILITY(U,$J,112,2114,2)
	;;=.486^1.964^.962^.18^56.4^0^11.137^.249^0^9.087^33.137^11.449^2^2.89
	;;^UTILITY(U,$J,112,2114,3)
	;;=.252^.568^.703^1.265^.682^.346^.302^.82^.51^.952^1.989^.416^.715^1.617^3.872^.844^.773^1.62
	;;^UTILITY(U,$J,112,2114,4)
	;;=.078^.467^.342^4.932^.329^2.783^32.517
	;;^UTILITY(U,$J,112,2114,20)
	;;=USDA Std. Reference, Release 10
	;;^UTILITY(U,$J,112,2115,0)
	;;=PISTACHIO NUTS, DRY ROASTED, WO/SALT^12-152^oz.^28.3^52^N
	;;^UTILITY(U,$J,112,2115,1)
	;;=14.93^52.82^27.53^606^2.09^^^70^3.17^130^476^970^6^1.36^1.211^.333^^238^7.3^.423
	;;^UTILITY(U,$J,112,2115,2)
	;;=.246^1.408^1.212^.255^59.1^0^7.665^.275^0^6.688^35.659^7.986^24^2.63^^^10.8
	;;^UTILITY(U,$J,112,2115,3)
	;;=.206^.524^.707^1.217^.927^.276^.372^.859^.518^1.023^1.586^.389^.721^1.535^3.566^.794^.687^.98
	;;^UTILITY(U,$J,112,2115,4)
	;;=^^.05^5.838^.313^.685^34.904
	;;^UTILITY(U,$J,112,2115,20)
	;;=USDA Std. Reference, Release 10
	;;^UTILITY(U,$J,112,2116,0)
	;;=SUNFLOWER SEEDS, DRY ROASTED, W/SALT^12-537^oz.^28.3^100^N
	;;^UTILITY(U,$J,112,2116,1)
	;;=19.33^49.8^24.07^582^1.2^^^70^3.8^129^1155^850^780^5.29^1.83^2.11^^0^1.4^.106
	;;^UTILITY(U,$J,112,2116,2)
	;;=.246^7.042^7.042^.804^237.4^0^32.782^.069^0^5.219^9.505^32.884^0^5.6^^^6.8
	;;^UTILITY(U,$J,112,2116,3)
	;;=.295^.788^.967^1.408^.795^.42^.383^.992^.565^1.116^2.039^.536^.948^2.076^4.735^1.24^1.003^.912
	;;^UTILITY(U,$J,112,2116,4)
	;;=^^.051^2.808^.049^2.212^9.399
	;;^UTILITY(U,$J,112,2116,20)
	;;=USDA Std. Reference, Release 10
	;;^UTILITY(U,$J,112,2117,0)
	;;=SUNFLOWER SEEDS, OIL ROASTED, W/SALT^12-538^oz.^28.3^100^N
	;;^UTILITY(U,$J,112,2117,1)
	;;=21.36^57.45^14.73^615^2.6^^^56^6.7^127^1139^483^603^5.21^1.804^2.08^^51^1.4^.32
	;;^UTILITY(U,$J,112,2117,2)
	;;=.28^4.13^6.942^.792^234^0^37.818^.08^0^6.021^10.965^37.936^5^3.87^^^6.8
	;;^UTILITY(U,$J,112,2117,3)
	;;=.326^.87^1.068^1.556^.879^.463^.423^1.096^.625^1.233^2.253^.592^1.048^2.293^5.231^1.37^1.108^1.008
	;;^UTILITY(U,$J,112,2117,4)
	;;=^^.059^3.239^.057^2.551^10.843
	;;^UTILITY(U,$J,112,2117,20)
	;;=USDA Std. Reference, Release 10
	;;^UTILITY(U,$J,112,2118,0)
	;;=ALMONDS, DRY ROASTED, UNBLANCHED, W/SALT^12-563^oz.^28.3^100^N
	;;^UTILITY(U,$J,112,2118,1)
	;;=16.33^51.6^24.17^587^3^^^282^3.8^304^548^770^780^4.9^1.225^1.977^^0^.7^.13
	;;^UTILITY(U,$J,112,2118,2)
	;;=.599^2.817^.254^.074^63.8^0^10.372^.369^0^4.891^33.504^10.828^0^4.9^^^13.7
	;;^UTILITY(U,$J,112,2118,3)
	;;=.293^.605^.709^1.27^.545^.186^.293^.911^.577^.842^2.042^.457^.772^1.923^4.857^1.012^1.028^.738
	;;^UTILITY(U,$J,112,2118,4)
	;;=^.005^.294^3.414^.3^1.009^32.885
	;;^UTILITY(U,$J,112,2118,20)
	;;=USDA Std. Reference, Release 10
	;;^UTILITY(U,$J,112,2119,0)
	;;=CASHEW NUTS, DRY ROASTED, W/SALT^12-585^oz.^28.3^100^N
	;;^UTILITY(U,$J,112,2119,1)
	;;=15.31^46.35^32.69^574^1.7^^^45^6^260^490^565^640^5.6^2.22^.826^^0^0^.2
	;;^UTILITY(U,$J,112,2119,2)
	;;=.2^1.4^1.217^.256^69.2^0^7.66^.161^0^9.157^27.317^7.836^0^3.95^^^3
	;;^UTILITY(U,$J,112,2119,3)
	;;=.237^.592^.731^1.285^.817^.274^.283^.791^.491^1.04^1.741^.399^.702^1.505^3.624^.803^.69^.849
	;;^UTILITY(U,$J,112,2119,4)
	;;=.132^.784^.347^4.351^.318^2.972^26.808
	;;^UTILITY(U,$J,112,2119,20)
	;;=USDA Std. Reference, Release 10
	;;^UTILITY(U,$J,112,2120,0)
	;;=MACADAMIA NUTS, OIL ROASTED, W/SALT^12-633^oz.^28.3^100^N