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

FHINI085.m

Go to the documentation of this file.
FHINI085	; ; 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,2830,4)
	;;=^.005^.299^3.476^.306^1.027^33.475
	;;^UTILITY(U,$J,112,2830,20)
	;;=USDA Std. Reference, Release 10
	;;^UTILITY(U,$J,112,2831,0)
	;;=ALMONDS, OIL ROASTED, BLANCHED, W/SALT ADDED^12-566^oz.^28.3^100^N
	;;^UTILITY(U,$J,112,2831,1)
	;;=19.04^56.53^18.02^613^3.51^^^194^5.3^290^577^693^776^1.42^.93^1.475^^0^1^.078
	;;^UTILITY(U,$J,112,2831,2)
	;;=.28^3.9^.253^.092^63.5^0^11.363^.405^0^5.359^36.707^11.863^0^2.9^^^11.2
	;;^UTILITY(U,$J,112,2831,3)
	;;=.342^.706^.827^1.481^.636^.217^.342^1.062^.673^.981^2.381^.533^.9^2.242^5.663^1.18^1.198^.86
	;;^UTILITY(U,$J,112,2831,4)
	;;=^.005^.322^3.741^.329^1.106^36.029
	;;^UTILITY(U,$J,112,2831,20)
	;;=USDA Std. Reference, Release 10
	;;^UTILITY(U,$J,112,2832,0)
	;;=ALMONDS, OIL ROASTED, BLANCHED, WO/SALT ADDED^12-066^oz.^28.3^100^N
	;;^UTILITY(U,$J,112,2832,1)
	;;=19.04^56.53^18.02^613^3.51^^^194^5.3^290^577^693^12^1.42^.93^1.475^^0^1^.078
	;;^UTILITY(U,$J,112,2832,2)
	;;=.28^3.9^.253^.092^63.5^0^11.363^.405^0^5.359^36.707^11.863^0^2.9^^^11.2
	;;^UTILITY(U,$J,112,2832,3)
	;;=.342^.706^.827^1.481^.636^.217^.342^1.062^.673^.981^2.381^.533^.9^2.242^5.663^1.18^1.198^.86
	;;^UTILITY(U,$J,112,2832,4)
	;;=^.005^.322^3.741^.329^1.106^36.029
	;;^UTILITY(U,$J,112,2832,20)
	;;=USDA Std. Reference, Release 10
	;;^UTILITY(U,$J,112,2833,0)
	;;=ALMONDS, OIL ROASTED, UNBLANCHED, WO/SALT ADDED^12-065^oz.^28.3^100^N
	;;^UTILITY(U,$J,112,2833,1)
	;;=20.39^57.67^15.88^618^3.08^^^234^3.83^304^547^683^10^4.9^1.224^1.975^^0^.7^.13
	;;^UTILITY(U,$J,112,2833,2)
	;;=.99^3.5^.254^.084^63.8^0^11.591^.413^0^5.466^37.444^12.101^0^2.98^^^11.2
	;;^UTILITY(U,$J,112,2833,3)
	;;=.366^.756^.886^1.586^.681^.232^.366^1.138^.72^1.051^2.551^.571^.964^2.401^6.065^1.263^1.283^.921
	;;^UTILITY(U,$J,112,2833,4)
	;;=^.005^.329^3.816^.336^1.128^36.752
	;;^UTILITY(U,$J,112,2833,20)
	;;=USDA Std. Reference, Release 10
	;;^UTILITY(U,$J,112,2834,0)
	;;=ALMONDS, TOASTED, UNBLANCHED^12-067^oz.^28.3^100^N
	;;^UTILITY(U,$J,112,2834,1)
	;;=20.38^50.77^22.91^589^2.6^^^283^4.92^305^550^773^11^4.92^1.23^2.005^^0^.7^.131
	;;^UTILITY(U,$J,112,2834,2)
	;;=.601^2.829^.256^.074^64.1^0^10.205^.364^0^4.812^32.965^10.654^0^3.34^^^11.2
	;;^UTILITY(U,$J,112,2834,3)
	;;=.366^.756^.885^1.586^.681^.232^.366^1.137^.72^1.051^2.55^.571^.964^2.4^6.064^1.263^1.283^.921
	;;^UTILITY(U,$J,112,2834,4)
	;;=^.005^.289^3.359^.295^.993^32.356
	;;^UTILITY(U,$J,112,2834,20)
	;;=USDA Std. Reference, Release 10
	;;^UTILITY(U,$J,112,2835,0)
	;;=CASHEW BUTTER, W/SALT ADDED^12-588^oz.^28.3^100^N
	;;^UTILITY(U,$J,112,2835,1)
	;;=17.56^49.41^27.57^587^2.96^^^43^5.03^258^457^546^614^5.16^2.19^.815^^0^0^.312
	;;^UTILITY(U,$J,112,2835,2)
	;;=.187^1.599^1.201^.252^68.3^0^8.166^.171^0^9.763^29.122^8.354^0^2.5^^^2
	;;^UTILITY(U,$J,112,2835,3)
	;;=.272^.679^.838^1.475^.938^.315^.325^.908^.563^1.193^1.998^.457^.805^1.727^4.159^.921^.792^.974
	;;^UTILITY(U,$J,112,2835,4)
	;;=.14^.836^.37^4.639^.339^3.168^28.579
	;;^UTILITY(U,$J,112,2835,20)
	;;=USDA Std. Reference, Release 10
	;;^UTILITY(U,$J,112,2836,0)
	;;=CASHEW BUTTER, WO/SALT ADDED^12-088^oz.^28.3^100^N
	;;^UTILITY(U,$J,112,2836,1)
	;;=17.56^49.41^27.57^587^2.96^^^43^5.03^258^457^546^15^5.16^2.19^.815^^0^0^.312
	;;^UTILITY(U,$J,112,2836,2)
	;;=.187^1.599^1.201^.252^68.3^0^8.166^.171^0^9.763^29.122^8.354^0^2.5^^^2
	;;^UTILITY(U,$J,112,2836,3)
	;;=.272^.679^.838^1.475^.938^.315^.325^.908^.563^1.193^1.998^.457^.805^1.727^4.159^.921^.792^.974
	;;^UTILITY(U,$J,112,2836,4)
	;;=.14^.836^.37^4.639^.339^3.168^28.579
	;;^UTILITY(U,$J,112,2836,20)
	;;=USDA Std. Reference, Release 10
	;;^UTILITY(U,$J,112,2837,0)
	;;=CHESTNUTS, CHINESE, BOILED AND STEAMED^12-095^oz.^28.3^100^N
	;;^UTILITY(U,$J,112,2837,1)
	;;=2.88^.76^33.64^153^61.57^^^12^.97^58^66^306^2^.6^.249^1.097^^138^24.7^.11
	;;^UTILITY(U,$J,112,2837,2)
	;;=.123^.548^.381^.281^46.4^0^.177^.019^0^.112^.399^.197^14^1.14
	;;^UTILITY(U,$J,112,2837,3)
	;;=.034^.115^.108^.178^.156^.07^.075^.13^.086^.151^.295^.083^.137^.584^.368^.126^.111^.126
	;;^UTILITY(U,$J,112,2837,4)
	;;=^^^.104^.005^.008^.383
	;;^UTILITY(U,$J,112,2837,20)
	;;=USDA Std. Reference, Release 10
	;;^UTILITY(U,$J,112,2838,0)
	;;=CHESTNUTS, CHINESE, ROASTED^12-096^oz.^28.3^75^N
	;;^UTILITY(U,$J,112,2838,1)
	;;=4.48^1.19^52.36^239^40.2^^^19^1.5^90^102^477^4^.93^.387^1.708^^5^38.4^.15
	;;^UTILITY(U,$J,112,2838,2)
	;;=.09^1.5^.592^.437^72.2^0^.275^.03^0^.175^.62^.307^1^1.78
	;;^UTILITY(U,$J,112,2838,3)
	;;=.052^.178^.167^.276^.243^.108^.117^.203^.134^.235^.459^.129^.213^.909^.573^.196^.172^.196
	;;^UTILITY(U,$J,112,2838,4)
	;;=^^^.161^.008^.012^.596