dbo.QBM_PSingleUserAlive
Stored ProcedureSQL_STORED_PROCEDURESandbox DB
Interpretation
- Database routine. Review parameters, called procedures, DBQueue inserts, and QBM_PJobCreate helper calls before assuming side effects.
Relations
- No extracted relations.
Typed Edges
- references source dbo.QBM_FGISessionErrorRethrow source text reference
- references source dbo.QBM_PSessionErrorAdd source text reference
References
Referenced By
- No direct source references extracted.
Complete Source
1CREATE PROCEDURE QBM_PSingleUserAlive(2 @RequestingProcessID int = 03)4AS5BEGIN6 DECLARE @Erg int = 07 DECLARE @SingleUserProcess int8 DECLARE @SingleUserStart datetime9 DECLARE @XUser nvarchar(64) = object_name(@@procid)10 DECLARE @Xdate datetime = getutcdate()11 SET XACT_ABORT OFF12 BEGIN TRY13 SELECT14 TOP 1 @SingleUserProcess = SingleUserProcess,15 @SingleUserStart = SingleUserStart16 FROM DialogDatabase17 WHERE18 IsMainDatabase = 119 IF @SingleUserProcess IS NULL20 BEGIN21 SELECT @SingleUserProcess = 022 END23 IF @RequestingProcessID = 024 BEGIN25 SELECT @RequestingProcessID = @@SPID26 END27 IF @SingleUserProcess = @RequestingProcessID28 BEGIN29 UPDATE DialogDatabase30 SET SingleUserStart = GETUTCDATE(),31 XDateUpdated = @Xdate,32 XUserUpdated = @XUser33 WHERE34 IsMainDatabase = 135 SELECT @Erg = 136 END37 END TRY38 BEGIN CATCH39 EXEC QBM_PSessionErrorAdd DEFAULT40 DECLARE @Rethrow varchar(1000) = dbo.QBM_FGISessionErrorRethrow()41 RAISERROR(@Rethrow,42 18,43 1)44 WITH NOWAIT45 END CATCH46 endLabel:47 RETURN(@erg)48END
Open raw exported source
1 create procedure QBM_PSingleUserAlive (@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 select3 top 1 @SingleUserProcess = SingleUserProcess , @SingleUserStart = SingleUserStart from DialogDatabase where IsMainDatabase = 1 if @SingleUserProcess is4 null begin select @SingleUserProcess = 0 end if @RequestingProcessID = 0 begin select @RequestingProcessID = @@SPID end if @SingleUserProcess = @RequestingProcessID5 begin update DialogDatabase set SingleUserStart = GETUTCDATE() , XDateUpdated = @Xdate , XUserUpdated = @XUser where IsMainDatabase = 1 select @Erg =6 1 end END TRY BEGIN CATCH exec QBM_PSessionErrorAdd default declare @Rethrow varchar(1000) = dbo.QBM_FGISessionErrorRethrow() RAISERROR (@Rethrow, 18,7 1) WITH NOWAIT END CATCH endLabel: return (@erg) end 8