Using Silverlight in Enterprise: RAD of User Friendly Database Access

if exists (select * 
             from dbo.sysobjects 
            where id = object_id(N'[dbo].[p_Set_LanguageCd]') 
              and objectproperty(id, N'IsProcedure') = 1)
  drop procedure [dbo].[p_Set_LanguageCd]
go

/*
  Sets current language
*/
CREATE procedure dbo.p_Set_LanguageCd
(
  @LanguageCd UDT_LANG_CD
)
as
begin
  declare @BinVar         varbinary(128),
          @DocumentId     int,
          @UserId         int,
          @ApplicationCd  UDT_STRING,
          @CurrencyCd     UDT_STRING
          
  set @DocumentId    = dbo.f_Get_Id_From_CONTEXT_INFO('D')
  set @UserId        = dbo.f_Get_Id_From_CONTEXT_INFO('U')
  set @ApplicationCd = dbo.f_Get_Str_From_CONTEXT_INFO('A')
  set @CurrencyCd    = dbo.f_Get_Str_From_CONTEXT_INFO('C')
  
  set @BinVar = dbo.f_Build_CONTEXT_INFO(@DocumentId, @UserId, @ApplicationCd, @LanguageCd, @CurrencyCd)
  
  SET CONTEXT_INFO @BinVar
end

go