dbo.QBM_PSingleUserRequest

1   create   procedure QBM_PSingleUserRequest (@RequestingProcessID int = 0 ) as begin declare @Erg int = 0 declare @SingleUserProcess int declare
2 @SingleUserStart datetime declare @XUser nvarchar(64) = object_name(@@procid) declare @Xdate datetime = getutcdate() SET XACT_ABORT OFF BEGIN TRY if not
3 exists (select top 1 1 from sys.tables t where t.name = 'DialogDatabase' ) begin select @erg = 1 goto endLabel end select top 1 @SingleUserProcess = SingleUserProcess
4 , @SingleUserStart = SingleUserStart from DialogDatabase where IsMainDatabase = 1 if @SingleUserProcess is null begin select @SingleUserProcess = 0 end
5 if @RequestingProcessID = 0 begin select @RequestingProcessID = @@SPID end if @SingleUserProcess = 0 or @SingleUserProcess = @RequestingProcessID begin
6  update DialogDatabase set SingleUserProcess = @RequestingProcessID , SingleUserStart = GETUTCDATE() , XDateUpdated = @Xdate , XUserUpdated = @XUser where
7 IsMainDatabase = 1 select @Erg = 1 end END TRY BEGIN CATCH exec QBM_PSessionErrorAdd default declare @Rethrow varchar(1000) = dbo.QBM_FGISessionErrorRethrow
8() RAISERROR (@Rethrow, 18, 1) WITH NOWAIT END CATCH  endLabel: return (@erg) end 
9