Back to OIM Explorer

dbo.QER_RITShopHelperFill

Stored ProcedureSQL_STORED_PROCEDURESandbox DB

Stored Procedure.

Source: sandbox-db sys.sql_modules

Source size: 2.489 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_PDBQCS_CurrentMoveSlot source text reference
references source dbo.QBM_PSessionErrorAdd source text reference
references source dbo.QBM_PSlotResetWhileJobRun_L source text reference

References

Referenced By

dbo.QER_RITShopHelperFill_Cfg

Complete Source

1CREATE PROCEDURE QER_RITShopHelperFill(2  @SlotNumber int3)4AS5BEGIN6  DECLARE @ObjectKeysToCheck_Projection QBM_YParameterList,7  @ObjectKeysToCheck_Jobrunning QBM_YParameterList8  DECLARE @RowsToReset int9  DECLARE @MyName nvarchar(64) = object_name(@@procid)10  DECLARE @DBQueueCurrent QBM_YDBQueueCurrent11  DECLARE @resetted int12  DECLARE @DBQueueToMove QBM_YDBQCSCurrentToMove13  DECLARE @SlotNumberSource int14  DECLARE @SlotNumberTarget int15  DECLARE @RowsMoved int16  BEGIN TRY17    INSERT INTO @DBQueueCurrent(UID_DialogDBQueue,18    UID_Parameter,19    UID_SubParameter,20    GenProcID)21    SELECT22      UID_DialogDBQueue,23      UID_Parameter,24      UID_SubParameter,25      GenProcID26    FROM QBMDBQueueCurrent cu27      WITH(readpast)28    WHERE29      cu.SlotNumber = @SlotNumber30    IF @@rowcount = 031    BEGIN32      GOTO EndLabel33    END34    IF EXISTS(35      SELECT TOP 1 136      FROM @DBQueueCurrent cu37      JOIN PersonWantsOrg pwo38      WITH(readpast)39      ON pwo.UID_PersonWantsOrg = cu.UID_Parameter40    WHERE41      pwo.OrderState IN('Aborted', 'Assigned', 'Dismissed', 'Granted', 'New', 'Unsubscribed', 'Waiting'))42    BEGIN43      DELETE @DBQueueToMove44      SELECT @SlotNumberSource = @SlotNumber45      SELECT @SlotnumberTarget = 046      INSERT INTO @DBQueueToMove(UID_DialogDBQueue,47      AdditionalValue)48      SELECT49        cul.UID_DialogDBQueue,50        pwo.UID_PersonWantsOrg51      FROM @DBQueueCurrent cul52      JOIN PersonWantsOrg pwo53        ON pwo.UID_PersonWantsOrg = cul.UID_Parameter54      JOIN PWOHelperPWO h55        ON h.UID_PersonWantsOrg = pwo.UID_PersonWantsOrg56      WHERE57        pwo.OrderState IN('Aborted',58      'Assigned',59      'Dismissed',60      'Granted',61      'New',62      'Unsubscribed',63      'Waiting')64      IF @@ROWCOUNT > 065      BEGIN66        DELETE PWOHelperPWO67        FROM PWOHelperPWO h68        JOIN @DBQueueToMove mo69          ON h.UID_PersonWantsOrg = mo.AdditionalValue70        EXEC @RowsMoved = QBM_PDBQCS_CurrentMoveSlot @DBQueueToMove,71          @SlotNumberSource,72          @SlotnumberTarget73        DELETE @DBQueueCurrent74        FROM @DBQueueCurrent cu75        JOIN @DBQueueToMove mo76          ON cu.UID_DialogDBQueue = mo.UID_DialogDBQueue77      END78    END79    INSERT INTO @ObjectKeysToCheck_Jobrunning(Parameter1,80    Parameter2)81    SELECT82      x.UID_PersonWantsOrg,83      x.XObjectKey84    FROM @DBQueueCurrent cu85    JOIN PersonwantsOrg x86      ON cu.UID_Parameter = x.UID_PersonWantsOrg87    UNION all88    SELECT89      cu.UID_parameter,90      p.XObjectKey91    FROM @DBQueueCurrent cu92    JOIN PersonwantsOrg x93      ON cu.UID_Parameter = x.UID_PersonWantsOrg94    JOIN Person p95      ON x.UID_PersonOrdered = p.UID_Person96    EXEC @resetted = QBM_PSlotResetWhileJobRun_L @DBQueueCurrent,97      @@PROCID,98      @ObjectKeysToCheck_Jobrunning,99      @SlotNumber = @SlotNumber100  END TRY101  BEGIN CATCH102    EXEC QBM_PSessionErrorAdd DEFAULT103    RAISERROR('',104    18,105    1)106      WITH NOWAIT107  END CATCH108  endLabel:109END

Open raw exported source

1create   procedure QER_RITShopHelperFill (@SlotNumber int) AS begin declare @ObjectKeysToCheck_Projection QBM_YParameterList, @ObjectKeysToCheck_Jobrunning2 QBM_YParameterList declare @RowsToReset int  declare @MyName nvarchar(64) = object_name(@@procid) declare @DBQueueCurrent QBM_YDBQueueCurrent declare 3@resetted int declare @DBQueueToMove QBM_YDBQCSCurrentToMove declare @SlotNumberSource int declare @SlotNumberTarget int declare @RowsMoved int BEGIN TRY4 insert into @DBQueueCurrent(UID_DialogDBQueue, UID_Parameter, UID_SubParameter, GenProcID) select UID_DialogDBQueue, UID_Parameter, UID_SubParameter, 5GenProcID from QBMDBQueueCurrent cu with (readpast) where cu.SlotNumber = @SlotNumber if @@rowcount = 0 begin goto EndLabel end if exists (select top 16 1 from @DBQueueCurrent cu join PersonWantsOrg pwo with (readpast) on pwo.UID_PersonWantsOrg = cu.UID_Parameter   where pwo.OrderState in ('Aborted', 'Assigned'7, 'Dismissed', 'Granted', 'New', 'Unsubscribed', 'Waiting') ) begin delete @DBQueueToMove select @SlotNumberSource = @SlotNumber  select @SlotnumberTarget8 = 0  insert into @DBQueueToMove(UID_DialogDBQueue, AdditionalValue) select cul.UID_DialogDBQueue, pwo.UID_PersonWantsOrg from @DBQueueCurrent cul join9 PersonWantsOrg pwo on pwo.UID_PersonWantsOrg = cul.UID_Parameter join PWOHelperPWO h on h.UID_PersonWantsOrg = pwo.UID_PersonWantsOrg   where pwo.OrderState10 in ('Aborted', 'Assigned', 'Dismissed', 'Granted', 'New', 'Unsubscribed', 'Waiting') if @@ROWCOUNT > 0 begin delete PWOHelperPWO from PWOHelperPWO h join11 @DBQueueToMove mo on h.UID_PersonWantsOrg = mo.AdditionalValue exec @RowsMoved = QBM_PDBQCS_CurrentMoveSlot @DBQueueToMove, @SlotNumberSource, @SlotnumberTarget12  delete @DBQueueCurrent from @DBQueueCurrent cu join @DBQueueToMove mo on cu.UID_DialogDBQueue = mo.UID_DialogDBQueue end end    insert into @ObjectKeysToCheck_Jobrunning13(Parameter1, Parameter2) select x.UID_PersonWantsOrg, x.XObjectKey from @DBQueueCurrent cu join PersonwantsOrg x on cu.UID_Parameter = x.UID_PersonWantsOrg14 union all select cu.UID_parameter, p.XObjectKey from @DBQueueCurrent cu join PersonwantsOrg x on cu.UID_Parameter = x.UID_PersonWantsOrg join Person p15 on x.UID_PersonOrdered = p.UID_Person  exec @resetted = QBM_PSlotResetWhileJobRun_L @DBQueueCurrent, @@PROCID, @ObjectKeysToCheck_Jobrunning, @SlotNumber16 = @SlotNumber  END TRY BEGIN CATCH exec QBM_PSessionErrorAdd default RAISERROR ('', 18, 1) WITH NOWAIT END CATCH endLabel: end 17