dbo.QBM_ZDialogSemaphorIncAll
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_FGISessionContext source text reference
- references source dbo.QBM_PSessionContextSet source text reference
- references source dbo.QBM_PSessionErrorAdd source text reference
References
Referenced By
- No direct source references extracted.
Complete Source
1CREATE PROCEDURE QBM_ZDialogSemaphorIncAll(2 @SlotNumberDummy int,3 @dummy1 varchar(38),4 @dummy2 varchar(38),5 @GenProcIDDummy varchar(38)6)7AS8BEGIN9 DECLARE @XDate datetime = getutcDate()10 DECLARE @XUser nvarchar(64) = object_name(@@procid)11 DECLARE @GenProcID varchar(38) = newid()12 DECLARE @GenProcID_R varchar(38) = dbo.QBM_FGISessionContext('')13 BEGIN TRY14 EXEC QBM_PSessionContextSet 'GenProcID',15 @GenProcID16 UPDATE dialogSemaphor17 SET ChangeCounter = ChangeCounter +1,18 XDateUpdated = @XDate,19 XUserUpdated = @XUser20 WHERE21 ChangeContext NOT IN('SOFTWAREREVISION')22 EXEC QBM_PSessionContextSet 'GenProcID',23 @GenProcID24 END TRY25 BEGIN CATCH26 EXEC QBM_PSessionErrorAdd DEFAULT27 RAISERROR('',28 18,29 1)30 WITH NOWAIT31 END CATCH32 ende:33 EXEC QBM_PSessionContextSet 'GenProcID',34 @GenProcID_R35 RETURN36END
Open raw exported source
1 create procedure QBM_ZDialogSemaphorIncAll ( @SlotNumberDummy int , @dummy1 varchar(38) , @dummy2 varchar(38) , @GenProcIDDummy varchar2(38) )as begin declare @XDate datetime = getutcDate() declare @XUser nvarchar(64) = object_name(@@procid) declare @GenProcID varchar(38) = newid() declare3 @GenProcID_R varchar(38) = dbo.QBM_FGISessionContext('') BEGIN TRY exec QBM_PSessionContextSet 'GenProcID', @GenProcID update dialogSemaphor set ChangeCounter4 = ChangeCounter +1 , XDateUpdated = @XDate , XUserUpdated = @XUser where ChangeContext not in ('SOFTWAREREVISION') exec QBM_PSessionContextSet 'GenProcID'5, @GenProcID END TRY BEGIN CATCH exec QBM_PSessionErrorAdd default RAISERROR ('', 18, 1) WITH NOWAIT END CATCH ende: exec QBM_PSessionContextSet6 'GenProcID', @GenProcID_R return end 7