Back to OIM Explorer

dbo.QBM_ZDialogSemaphorIncGlobal

Stored ProcedureSQL_STORED_PROCEDURESandbox DB

Stored Procedure.

Source: sandbox-db sys.sql_modules

Source size: 999 characters

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

Complete Source

SQL45 lines
1CREATE PROCEDURE QBM_ZDialogSemaphorIncGlobal(2  @SlotNumberDummy int,3  @ChangeContext varchar(38),4  @dummy varchar(38),5  @GenProcID varchar(38)6)7AS8BEGIN9  DECLARE @UID_DialogSemaphor varchar(38)10  DECLARE @XDate datetime = getutcDate()11  DECLARE @XUser nvarchar(64) = object_name(@@procid)12  DECLARE @GenProcID_R varchar(38)13  BEGIN TRY14    SELECT @GenProcID_R = dbo.QBM_FGISessionContext('')15    DECLARE @ChangeContext_intern nvarchar(32)16    SELECT @ChangeContext_intern = upper(@ChangeContext)17    IF NOT EXISTS(18      SELECT TOP 1 119      FROM DialogSemaphor20      WHERE21        ChangeContext = @ChangeContext_intern)22    BEGIN23      GOTO ende24    END25    EXEC QBM_PSessionContextSet 'GenProcID',26      @GenProcID27    UPDATE dialogSemaphor28    SET ChangeCounter = ChangeCounter +1,29    XDateUpdated = @XDate,30    XUserUpdated = @XUser31    WHERE32      ChangeContext = @ChangeContext_intern33  END TRY34  BEGIN CATCH35    EXEC QBM_PSessionErrorAdd DEFAULT36    RAISERROR('',37    18,38    1)39      WITH NOWAIT40  END CATCH41  ende:42  EXEC QBM_PSessionContextSet 'GenProcID',43    @GenProcID_R44  RETURN45END
Open raw exported source
SQL ยท Raw8 lines
1  create   procedure QBM_ZDialogSemaphorIncGlobal ( @SlotNumberDummy int , @ChangeContext varchar(38)  , @dummy varchar(38)  , @GenProcID varchar2(38) )as begin  declare @UID_DialogSemaphor varchar(38) declare @XDate datetime = getutcDate() declare @XUser nvarchar(64) = object_name(@@procid) declare3 @GenProcID_R varchar(38) BEGIN TRY select @GenProcID_R = dbo.QBM_FGISessionContext('') declare @ChangeContext_intern nvarchar(32) select @ChangeContext_intern4 = upper(@ChangeContext)  if not exists (select top 1 1 from DialogSemaphor where ChangeContext = @ChangeContext_intern ) begin goto ende end exec QBM_PSessionContextSet5 'GenProcID', @GenProcID update dialogSemaphor set ChangeCounter = ChangeCounter +1 , XDateUpdated = @XDate , XUserUpdated = @XUser where ChangeContext6 = @ChangeContext_intern             END TRY BEGIN CATCH exec QBM_PSessionErrorAdd default RAISERROR ('', 18, 1) WITH NOWAIT END CATCH  ende: exec QBM_PSessionContextSet7 'GenProcID', @GenProcID_R return end 8