dbo.QBM_PSingleUserBreak

1   create   procedure QBM_PSingleUserBreak (@RequestingProcessID int = 0 ) as begin declare @Erg int = 1 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 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 <> @RequestingProcessID begin  update DialogDatabase 
6set SingleUserProcess = @RequestingProcessID , SingleUserStart = GETUTCDATE() , XDateUpdated = @Xdate , XUserUpdated = @XUser where IsMainDatabase = 1 
7end else begin select @erg = 0 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