Back to OIM Explorer

dbo.QER_RITShopHelperFill_Cfg

Stored ProcedureSQL_STORED_PROCEDURESandbox DB

Stored Procedure.

Source: sandbox-db sys.sql_modules

Source size: 2.451 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_FGIConfigparmValue source text reference
  • references source dbo.QBM_PDBQCS_CurrentMoveSlot source text reference
  • references source dbo.QBM_PJournal source text reference
  • references source dbo.QBM_PSessionErrorAdd source text reference
  • references source dbo.QBM_PSlotResetWhileJobRun_L source text reference
  • references source dbo.QER_RITShopHelperFill source text reference

References

Referenced By

  • No direct source references extracted.

Complete Source

SQL110 lines
1CREATE PROCEDURE QER_RITShopHelperFill_Cfg(2  @SlotNumber int3)4AS5BEGIN6  DECLARE @ObjectKeysToCheck_Projection QBM_YParameterList7  DECLARE @ObjectKeysToCheck_Jobrunning QBM_YParameterList8  DECLARE @MyName nvarchar(64) = object_name(@@procid)9  DECLARE @reduce int10  DECLARE @DBQueueCurrent QBM_YDBQueueCurrent11  DECLARE @resetted int12  DECLARE @DebugSwitch int = 013  DECLARE @DebugLevel varchar(1) = 'W'14  DECLARE @SlotNumberSource int15  DECLARE @SlotNumberTarget int16  DECLARE @DBQueueToMove QBM_YDBQCSCurrentToMove17  DECLARE @RowsMoved int18  BEGIN TRY19    SELECT20      @reduce = CASE dbo.QBM_FGIConfigparmValue('QER\ITShop\ReducedApproverCalculation')21      WHEN 'NoRecalc' THEN22      223      WHEN 'CurrentLevel' THEN24      125    ELSE 026    END27    IF @reduce = 228    BEGIN29      GOTO endLabel30    END31    INSERT INTO @DBQueueCurrent(UID_DialogDBQueue,32    UID_Parameter,33    UID_SubParameter,34    GenProcID)35    SELECT36      UID_DialogDBQueue,37      UID_Parameter,38      UID_SubParameter,39      GenProcID40    FROM QBMDBQueueCurrent cu41      WITH(readpast)42    WHERE43      cu.SlotNumber = @SlotNumber44    IF @@rowcount = 045    BEGIN46      GOTO EndLabel47    END48    DELETE @DBQueueToMove49    INSERT INTO @DBQueueToMove(UID_DialogDBQueue)50    SELECT cul.UID_DialogDBQueue51    FROM @DBQueueCurrent cul52    WHERE53      EXISTS(54    SELECT TOP 1 155    FROM QBMDBQueueCurrent v56      WITH(nolock)57    WHERE58      v.UID_Task = 'QER-K-ShoppingRackPWOHelperPWO' AND v.UID_Parameter = cul.UID_Parameter AND v.SlotNumber > 0)59    IF @@ROWCOUNT > 060    BEGIN61      SELECT @SlotNumberSource = @SlotNumber62      SELECT @SlotnumberTarget = 063      EXEC @RowsMoved = QBM_PDBQCS_CurrentMoveSlot @DBQueueToMove,64        @SlotNumberSource,65        @SlotnumberTarget66      DELETE @DBQueueCurrent67      FROM @DBQueueCurrent cu68      JOIN @DBQueueToMove mo69        ON cu.UID_DialogDBQueue = mo.UID_DialogDBQueue70      IF @DebugSwitch > 071      BEGIN72        EXEC QBM_PJournal 'QER-K-ShoppingRackPWOHelperPWO in dbqueueCurrent gefunden',73          @@procid,74        'D',75          @DebugLevel76      END77    END78    INSERT INTO @ObjectKeysToCheck_Jobrunning(Parameter1,79    Parameter2)80    SELECT81      x.UID_PersonWantsOrg,82      x.XObjectKey83    FROM @DBQueueCurrent cu84    JOIN PersonwantsOrg x85      WITH(readpast)86      ON cu.UID_Parameter = x.UID_PersonWantsOrg87    UNION all88    SELECT89      cu.UID_parameter,90      p.XObjectKey91    FROM @DBQueueCurrent cu92    JOIN PersonwantsOrg x93      WITH(readpast)94      ON cu.UID_Parameter = x.UID_PersonWantsOrg95    JOIN Person p96      ON x.UID_PersonOrdered = p.UID_Person97    EXEC @resetted = QBM_PSlotResetWhileJobRun_L @DBQueueCurrent,98      @@PROCID,99      @ObjectKeysToCheck_Jobrunning,100      @SlotNumber = @SlotNumber101  END TRY102  BEGIN CATCH103    EXEC QBM_PSessionErrorAdd DEFAULT104    RAISERROR('',105    18,106    1)107      WITH NOWAIT108  END CATCH109  endLabel:110END
Open raw exported source
SQL ยท Raw17 lines
1create   procedure QER_RITShopHelperFill_Cfg (@SlotNumber int) AS begin declare @ObjectKeysToCheck_Projection QBM_YParameterList declare @ObjectKeysToCheck_Jobrunning2 QBM_YParameterList declare @MyName nvarchar(64) = object_name(@@procid) declare @reduce int declare @DBQueueCurrent QBM_YDBQueueCurrent declare @resetted3 int declare @DebugSwitch int = 0 declare @DebugLevel varchar(1) = 'W' declare @SlotNumberSource int declare @SlotNumberTarget int declare @DBQueueToMove4 QBM_YDBQCSCurrentToMove declare @RowsMoved int BEGIN TRY select @reduce = case dbo.QBM_FGIConfigparmValue('QER\ITShop\ReducedApproverCalculation') when5 'NoRecalc' then 2 when 'CurrentLevel' then 1 else 0 end if @reduce = 2 begin goto endLabel end insert into @DBQueueCurrent(UID_DialogDBQueue, UID_Parameter6, UID_SubParameter, GenProcID) select UID_DialogDBQueue, UID_Parameter, UID_SubParameter, GenProcID from QBMDBQueueCurrent cu with (readpast) where cu.SlotNumber7 = @SlotNumber if @@rowcount = 0 begin goto EndLabel end  delete @DBQueueToMove  insert into @DBQueueToMove(UID_DialogDBQueue) select cul.UID_DialogDBQueue8 from @DBQueueCurrent cul  where exists (select top 1 1 from QBMDBQueueCurrent v with (nolock) where v.UID_Task = 'QER-K-ShoppingRackPWOHelperPWO' and 9v.UID_Parameter = cul.UID_Parameter and v.SlotNumber > 0 ) if @@ROWCOUNT > 0 begin select @SlotNumberSource = @SlotNumber  select @SlotnumberTarget = 010 exec @RowsMoved = QBM_PDBQCS_CurrentMoveSlot @DBQueueToMove, @SlotNumberSource, @SlotnumberTarget  delete @DBQueueCurrent from @DBQueueCurrent cu join11 @DBQueueToMove mo on cu.UID_DialogDBQueue = mo.UID_DialogDBQueue  if @DebugSwitch > 0 begin exec QBM_PJournal 'QER-K-ShoppingRackPWOHelperPWO in dbqueueCurrent gefunden'12, @@procid, 'D', @DebugLevel end end  insert into @ObjectKeysToCheck_Jobrunning(Parameter1, Parameter2) select x.UID_PersonWantsOrg, x.XObjectKey from 13@DBQueueCurrent cu join PersonwantsOrg x with (readpast) on cu.UID_Parameter = x.UID_PersonWantsOrg union all select cu.UID_parameter, p.XObjectKey from14 @DBQueueCurrent cu join PersonwantsOrg x with (readpast) on cu.UID_Parameter = x.UID_PersonWantsOrg join Person p on x.UID_PersonOrdered = p.UID_Person15  exec @resetted = QBM_PSlotResetWhileJobRun_L @DBQueueCurrent, @@PROCID, @ObjectKeysToCheck_Jobrunning, @SlotNumber = @SlotNumber  END TRY BEGIN CATCH16 exec QBM_PSessionErrorAdd default RAISERROR ('', 18, 1) WITH NOWAIT END CATCH endLabel: end 17