Back to OIM Explorer

dbo.QER_ZDynamicGroupTest

Stored ProcedureSQL_STORED_PROCEDURESandbox DB

Stored Procedure.

Source: sandbox-db sys.sql_modules

Source size: 1.591 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_FGIDBQueueSlotResetType source text reference
  • references source dbo.QBM_FGISessionContext source text reference
  • references source dbo.QER_FCVDynGuidToProcName source text reference
  • references source dbo.QBM_PDBQCS_CurrentMoveSlot source text reference
  • references source dbo.QBM_PJournal 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

SQL65 lines
1CREATE PROCEDURE QER_ZDynamicGroupTest(2  @SlotNumber int,3  @UID_DynamicGroup varchar(38),4  @SubObject varchar(38),5  @GenProcID varchar(38)6)7AS8BEGIN9  DECLARE @procnameRechneAlle nvarchar(64)10  DECLARE @Erg int = 011  DECLARE @DebugLevel char(1) = 'W'12  DECLARE @GenProcID_R varchar(38) = dbo.QBM_FGISessionContext('')13  DECLARE @SlotNumberSource int14  DECLARE @SlotNumberTarget int15  DECLARE @DBQueueToMove QBM_YDBQCSCurrentToMove16  DECLARE @RowsMoved int17  BEGIN TRY18    SELECT19      @ProcNameRechneAlle = dbo.QER_FCVDynGuidToProcName(@uid_DynamicGroup,20      'All')21    IF NOT EXISTS(22      SELECT TOP 1 123      FROM sys.procedures24      WHERE25        name = @ProcNameRechneAlle AND type = 'P')26    BEGIN27      GOTO endLabel28    END29    EXEC QBM_PSessionContextSet 'GenProcID',30      @GenProcID31    EXEC @erg = @ProcNameRechneAlle @SlotNumber Nachbehandlung:32    IF @erg > 033    BEGIN34      DELETE @DBQueueToMove35      INSERT INTO @DBQueueToMove(UID_DialogDBQueue)36      SELECT cul.UID_DialogDBQueue37      FROM QBMDBQueueCurrent cul38      WHERE39        cul.SlotNumber = @SlotNumber AND cul.UID_Parameter = @UID_DynamicGroup40      IF @@ROWCOUNT > 041      BEGIN42        SELECT @SlotNumberSource = @SlotNumber43        SELECT @SlotnumberTarget = dbo.QBM_FGIDBQueueSlotResetType('DBQueue')44        EXEC @RowsMoved = QBM_PDBQCS_CurrentMoveSlot @DBQueueToMove,45          @SlotNumberSource,46          @SlotnumberTarget47        EXEC QBM_PJournal '#LDS#Deferring operations {0} because Jobs are still running for this dynamic role.|DynamicGroupTest|',48          @@procid,49        'D',50          @DebugLevel51      END52    END53  END TRY54  BEGIN CATCH55    EXEC QBM_PSessionErrorAdd DEFAULT56    RAISERROR('',57    18,58    1)59      WITH NOWAIT60  END CATCH61  endLabel:62  EXEC QBM_PSessionContextSet 'GenProcID',63    @GenProcID_R64  RETURN65END
Open raw exported source
SQL ยท Raw12 lines
1      create   procedure QER_ZDynamicGroupTest (@SlotNumber int , @UID_DynamicGroup varchar(38) , @SubObject varchar(38) , @GenProcID varchar(382) ) as begin declare @procnameRechneAlle nvarchar(64) declare @Erg int = 0   declare @DebugLevel char(1) = 'W' declare @GenProcID_R varchar(38) = dbo.QBM_FGISessionContext3('') declare @SlotNumberSource int declare @SlotNumberTarget int declare @DBQueueToMove QBM_YDBQCSCurrentToMove declare @RowsMoved int BEGIN TRY  select4 @ProcNameRechneAlle = dbo.QER_FCVDynGuidToProcName(@uid_DynamicGroup, 'All')  if not exists (select top 1 1 from sys.procedures where name = @ProcNameRechneAlle5 and type = 'P' ) begin goto endLabel end  exec QBM_PSessionContextSet 'GenProcID', @GenProcID exec @erg = @ProcNameRechneAlle @SlotNumber Nachbehandlung:6 if @erg > 0  begin delete @DBQueueToMove  insert into @DBQueueToMove(UID_DialogDBQueue) select cul.UID_DialogDBQueue from QBMDBQueueCurrent cul  where7 cul.SlotNumber = @SlotNumber and cul.UID_Parameter = @UID_DynamicGroup if @@ROWCOUNT > 0 begin select @SlotNumberSource = @SlotNumber  select @SlotnumberTarget8 = dbo.QBM_FGIDBQueueSlotResetType('DBQueue') exec @RowsMoved = QBM_PDBQCS_CurrentMoveSlot @DBQueueToMove, @SlotNumberSource, @SlotnumberTarget exec QBM_PJournal9 '#LDS#Deferring operations {0} because Jobs are still running for this dynamic role.|DynamicGroupTest|', @@procid, 'D', @DebugLevel end end END TRY BEGIN10 CATCH exec QBM_PSessionErrorAdd default RAISERROR ('', 18, 1) WITH NOWAIT END CATCH  endLabel: exec QBM_PSessionContextSet 'GenProcID', @GenProcID_R return11 end 12