Using Silverlight in Enterprise: RAD of User Friendly Database Access

if exists (select	*
             from dbo.sysobjects
            where id = object_id(N'[dbo].[f_GetMLErr]')
              and	xtype IN (N'FN', N'IF', N'TF'))
  drop function [dbo].[f_GetMLErr]
go

/*
  Translates multilanguage error message into the current language.
*/
create function dbo.f_GetMLErr
(
  @Text nvarchar(4000),
  @Code varchar(500) = null
)
returns nvarchar(4000)
as
begin
  if @Code is null
  begin
    set @Code = cast(left(@Text, 500) as varchar(500))
  end
  declare @Result nvarchar(4000)
  set @Result = dbo.f_GetMLValue('Error', 'Text', @Code, @Text)
  return @Result
end
go