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

FHINI084.m

Go to the documentation of this file.
FHINI084	; ; 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,2822,2)
	;;=.083^1.487^.145^.036^7^.09^.386^.021^33^.31^.43^.408^6^.24
	;;^UTILITY(U,$J,112,2822,3)
	;;=.063^.144^.202^.339^.13^.087^.13^.236^.137^.225^.196^.099^.162^.241^1.516^.151^.463^.246
	;;^UTILITY(U,$J,112,2822,4)
	;;=^^.004^.252^.033^.054^.397^.001
	;;^UTILITY(U,$J,112,2822,20)
	;;=USDA Std. Reference, Release 10
	;;^UTILITY(U,$J,112,2823,0)
	;;=NOODLES, EGG, COOKED, UNENRICHED, WITH ADDED SALT^20-510^cups^160^319^N
	;;^UTILITY(U,$J,112,2823,1)
	;;=4.75^1.47^24.84^133^68.7^^^12^.6^19^69^28^165^.62^.086^.262^^20^0^.03
	;;^UTILITY(U,$J,112,2823,2)
	;;=.02^.4^.145^.036^7^.09^.386^.021^33^.31^.43^.408^6^.24
	;;^UTILITY(U,$J,112,2823,3)
	;;=.063^.144^.202^.339^.13^.087^.13^.236^.137^.225^.196^.099^.162^.241^1.516^.151^.463^.246
	;;^UTILITY(U,$J,112,2823,4)
	;;=^^.004^.252^.033^.054^.397^.001
	;;^UTILITY(U,$J,112,2823,20)
	;;=USDA Std. Reference, Release 10
	;;^UTILITY(U,$J,112,2824,0)
	;;=NOODLES, EGG, SPINACH, COOKED, ENRICHED^20-112^cups^160^318^N
	;;^UTILITY(U,$J,112,2824,1)
	;;=5.04^1.57^24.25^132^68.52^^^19^1.09^24^57^37^12^.63^.08^.317^^103^0^.245
	;;^UTILITY(U,$J,112,2824,2)
	;;=.123^1.474^.233^.114^21^.14^.301^.048^33^.361^.493^.349^14^.62^^^1.4
	;;^UTILITY(U,$J,112,2824,3)
	;;=.067^.157^.218^.364^.151^.093^.133^.251^.149^.244^.215^.106^.178^.269^1.543^.165^.472^.258
	;;^UTILITY(U,$J,112,2824,4)
	;;=^^.005^.29^.047^.065^.445
	;;^UTILITY(U,$J,112,2824,20)
	;;=USDA Std. Reference, Release 10;HCF Nutrition Research Foundation, Inc, 1990
	;;^UTILITY(U,$J,112,2825,0)
	;;=NOODLES, JAPANESE, SOBA, COOKED^20-115^cups^114^371^N
	;;^UTILITY(U,$J,112,2825,1)
	;;=5.06^.1^21.44^99^73.01^^^4^.48^9^25^35^60^.12^.008^.374^^0^0^.094
	;;^UTILITY(U,$J,112,2825,2)
	;;=.026^.51^.235^.04^7^0^.029^.002^0^.019^.026^.031^0^.39
	;;^UTILITY(U,$J,112,2825,3)
	;;=.072^.177^.195^.33^.214^.072^.094^.217^.105^.249^.317^.119^.248^.372^1.096^.332^.306^.26
	;;^UTILITY(U,$J,112,2825,4)
	;;=0^0^.001^.013^.001^.001^.025
	;;^UTILITY(U,$J,112,2825,20)
	;;=USDA Std. Reference, Release 10
	;;^UTILITY(U,$J,112,2826,0)
	;;=NOODLES, JAPANESE, SOMEN, COOKED^20-117^cups^176^312^N
	;;^UTILITY(U,$J,112,2826,1)
	;;=4^.18^27.54^131^67.91^^^8^.52^2^27^29^161^.22^.025^.251^^0^0^.02
	;;^UTILITY(U,$J,112,2826,2)
	;;=.033^.097^.172^.013^2^0^.066^.006^0^.025^.021^.073^0^.36
	;;^UTILITY(U,$J,112,2826,3)
	;;=.051^.106^.155^.274^.077^.062^.113^.194^.105^.171^.148^.081^.117^.164^1.443^.126^.44^.189
	;;^UTILITY(U,$J,112,2826,4)
	;;=^^0^.022^^.003^.021
	;;^UTILITY(U,$J,112,2826,20)
	;;=USDA Std. Reference, Release 10
	;;^UTILITY(U,$J,112,2827,0)
	;;=ALMOND BUTTER, W/SALT ADDED^12-695^tbsp.^16^100^N
	;;^UTILITY(U,$J,112,2827,1)
	;;=15.08^59.1^21.13^633^1^^^270^3.7^303^523^758^450^3.05^.9^2.354^^0^.7^.133
	;;^UTILITY(U,$J,112,2827,2)
	;;=.611^2.875^.259^.076^65.2^0^11.879^.423^0^5.602^38.374^12.402^0^3.6^^^3.7
	;;^UTILITY(U,$J,112,2827,3)
	;;=.271^.559^.655^1.174^.504^.172^.271^.842^.533^.778^1.887^.422^.713^1.776^4.487^.935^.949^.681
	;;^UTILITY(U,$J,112,2827,4)
	;;=^.005^.337^3.911^.344^1.156^37.665
	;;^UTILITY(U,$J,112,2827,20)
	;;=USDA Std. Reference, Release 10
	;;^UTILITY(U,$J,112,2828,0)
	;;=ALMOND BUTTER, WO/SALT ADDED^12-195^tbsp.^16^100^N
	;;^UTILITY(U,$J,112,2828,1)
	;;=15.08^59.1^21.22^633^1^^^270^3.7^303^523^758^11^3.05^.9^2.354^^0^.7^.133
	;;^UTILITY(U,$J,112,2828,2)
	;;=.611^2.875^.259^.076^65.2^0^11.879^.423^0^5.602^38.374^12.402^0^3.6^^^3.7
	;;^UTILITY(U,$J,112,2828,3)
	;;=.271^.559^.655^1.174^.504^.172^.271^.842^.533^.778^1.887^.422^.713^1.776^4.487^.935^.949^.681
	;;^UTILITY(U,$J,112,2828,4)
	;;=^.005^.337^3.911^.344^1.156^37.665
	;;^UTILITY(U,$J,112,2828,20)
	;;=USDA Std. Reference, Release 10
	;;^UTILITY(U,$J,112,2829,0)
	;;=ALMOND PASTE^12-071^oz.^28.3^100^N
	;;^UTILITY(U,$J,112,2829,.6)
	;;=Y
	;;^UTILITY(U,$J,112,2829,1)
	;;=11.85^27.2^43.55^446^15.5^^^230^3.16^259^446^647^9^2.58^.833^2.009^^0^.5^.209
	;;^UTILITY(U,$J,112,2829,2)
	;;=.735^2.89^.416^.098^55.6^0^5.467^.195^0^2.578^17.661^5.708^0^1.9^^^14.9
	;;^UTILITY(U,$J,112,2829,3)
	;;=.213^.439^.515^.922^.396^.135^.213^.661^.419^.611^1.483^.332^.561^1.396^3.526^.734^.746^.535
	;;^UTILITY(U,$J,112,2829,4)
	;;=^.002^.155^1.8^.158^.532^17.335
	;;^UTILITY(U,$J,112,2829,20)
	;;=USDA Std. Reference, Release 10
	;;^UTILITY(U,$J,112,2830,0)
	;;=ALMONDS, DRIED, BLANCHED^12-062^oz.^28.3^100^N
	;;^UTILITY(U,$J,112,2830,1)
	;;=20.42^52.53^18.53^586^5.42^^^247^3.63^286^532^750^10^3.16^1.071^1.452^^0^.6^.161
	;;^UTILITY(U,$J,112,2830,2)
	;;=.677^3.166^.467^.101^38.4^0^10.558^.376^0^4.979^34.106^11.023^0^3.11^^^6.7
	;;^UTILITY(U,$J,112,2830,3)
	;;=.367^.757^.887^1.588^.682^.233^.367^1.139^.721^1.052^2.554^.571^.966^2.404^6.073^1.265^1.285^.922