dbo.QER_RITShopCheckDecision

1create   procedure QER_RITShopCheckDecision (@SlotNumber int) AS begin declare @ObjectKeysToCheck_Projection QBM_YParameterList declare @ObjectKeysToCheck_Jobrunning
2 QBM_YParameterList declare @MyName nvarchar(64) = object_name(@@procid) declare @DBQueueCurrent QBM_YDBQueueCurrent declare @resetted int declare @DBQueueToMove
3 QBM_YDBQCSCurrentToMove declare @SlotNumberSource int declare @SlotNumberTarget int declare @RowsMoved int BEGIN TRY insert into @DBQueueCurrent(UID_DialogDBQueue
4, UID_Parameter, UID_SubParameter, GenProcID) select UID_DialogDBQueue, UID_Parameter, UID_SubParameter, GenProcID from QBMDBQueueCurrent cu with (readpast
5) where cu.SlotNumber = @SlotNumber if @@rowcount = 0 begin goto EndLabel end if exists (select top 1 1 from @DBQueueCurrent cu join PersonWantsOrg pwo
6 with (readpast) on pwo.UID_PersonWantsOrg = cu.UID_Parameter   where pwo.OrderState in ('Aborted', 'Assigned', 'Dismissed', 'Granted', 'New', 'Unsubscribed'
7, 'Waiting') ) begin delete @DBQueueToMove select @SlotNumberSource = @SlotNumber  select @SlotnumberTarget = 0  insert into @DBQueueToMove(UID_DialogDBQueue
8, AdditionalValue) select cul.UID_DialogDBQueue, pwo.UID_PersonWantsOrg from @DBQueueCurrent cul join PersonWantsOrg pwo on pwo.UID_PersonWantsOrg = cul.UID_Parameter
9 join PWOHelperPWO h on h.UID_PersonWantsOrg = pwo.UID_PersonWantsOrg   where pwo.OrderState in ('Aborted', 'Assigned', 'Dismissed', 'Granted', 'New', 
10'Unsubscribed', 'Waiting') if @@ROWCOUNT > 0 begin delete PWOHelperPWO from PWOHelperPWO h join @DBQueueToMove mo on h.UID_PersonWantsOrg = mo.AdditionalValue
11 exec @RowsMoved = QBM_PDBQCS_CurrentMoveSlot @DBQueueToMove, @SlotNumberSource, @SlotnumberTarget  delete @DBQueueCurrent from @DBQueueCurrent cu join
12 @DBQueueToMove mo on cu.UID_DialogDBQueue = mo.UID_DialogDBQueue end end   insert into @ObjectKeysToCheck_Jobrunning(Parameter1, Parameter2) select x.UID_PersonWantsOrg
13, x.XObjectKey from @DBQueueCurrent cu join PersonwantsOrg x on cu.UID_Parameter = x.UID_PersonWantsOrg union all select cu.UID_Parameter, p.XObjectKey
14 from @DBQueueCurrent cu join PersonwantsOrg x on cu.UID_Parameter = x.UID_PersonWantsOrg join Person p on x.UID_PersonOrdered = p.UID_Person  exec @resetted
15 = QBM_PSlotResetWhileJobRun_L @DBQueueCurrent, @@PROCID, @ObjectKeysToCheck_Jobrunning, @SlotNumber = @SlotNumber if @resetted > 0 begin delete @DBQueueCurrent
16 insert into @DBQueueCurrent(UID_DialogDBQueue, UID_Parameter, UID_SubParameter, GenProcID) select UID_DialogDBQueue, UID_Parameter, UID_SubParameter, 
17GenProcID from QBMDBQueueCurrent cu with (readpast) where cu.SlotNumber = @SlotNumber if @@rowcount = 0 begin goto EndLabel end end  select @SlotNumberSource
18 = @SlotNumber  select @SlotnumberTarget = dbo.QBM_FGIDBQueueSlotResetType('DBQueue') delete @DBQueueToMove  insert into @DBQueueToMove(UID_DialogDBQueue
19) select cul.UID_DialogDBQueue from @DBQueueCurrent cul where exists (select top 1 1 from DialogDBQueue q with (readpast) where q.Object = cul.UID_Parameter
20  and q.Generation >= 0 and q.UID_Task in ('QER-K-ShoppingRackPWOHelperPWO' , 'QER-K-ShoppingRackPWOHelperPWO-Cfg' ) ) exec @RowsMoved = QBM_PDBQCS_CurrentMoveSlot
21 @DBQueueToMove, @SlotNumberSource, @SlotnumberTarget  delete @DBQueueCurrent from @DBQueueCurrent cu join @DBQueueToMove mo on cu.UID_DialogDBQueue = 
22mo.UID_DialogDBQueue select @resetted = @RowsMoved delete @DBQueueToMove  insert into @DBQueueToMove(UID_DialogDBQueue) select cul.UID_DialogDBQueue from
23 @DBQueueCurrent cul where exists (select top 1 1 from QBMDBQueueCurrent q with (readpast) where q.UID_Parameter = cul.UID_Parameter  and q.SlotNumber 
24<> 0 and q.UID_Task in ('QER-K-ShoppingRackPWOHelperPWO' , 'QER-K-ShoppingRackPWOHelperPWO-Cfg' ) ) exec @RowsMoved = QBM_PDBQCS_CurrentMoveSlot @DBQueueToMove
25, @SlotNumberSource, @SlotnumberTarget  delete @DBQueueCurrent from @DBQueueCurrent cu join @DBQueueToMove mo on cu.UID_DialogDBQueue = mo.UID_DialogDBQueue
26 select @resetted += @RowsMoved  END TRY BEGIN CATCH exec QBM_PSessionErrorAdd default RAISERROR ('', 18, 1) WITH NOWAIT END CATCH endLabel: end 
27