dbo.QER_RITShopHelperFill

1create   procedure QER_RITShopHelperFill (@SlotNumber int) AS begin declare @ObjectKeysToCheck_Projection QBM_YParameterList, @ObjectKeysToCheck_Jobrunning
2 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 TRY
4 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 1
6 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 @SlotnumberTarget
8 = 0  insert into @DBQueueToMove(UID_DialogDBQueue, AdditionalValue) select cul.UID_DialogDBQueue, pwo.UID_PersonWantsOrg from @DBQueueCurrent cul join
9 PersonWantsOrg pwo on pwo.UID_PersonWantsOrg = cul.UID_Parameter join PWOHelperPWO h on h.UID_PersonWantsOrg = pwo.UID_PersonWantsOrg   where pwo.OrderState
10 in ('Aborted', 'Assigned', 'Dismissed', 'Granted', 'New', 'Unsubscribed', 'Waiting') if @@ROWCOUNT > 0 begin delete PWOHelperPWO from PWOHelperPWO h join
11 @DBQueueToMove mo on h.UID_PersonWantsOrg = mo.AdditionalValue exec @RowsMoved = QBM_PDBQCS_CurrentMoveSlot @DBQueueToMove, @SlotNumberSource, @SlotnumberTarget
12  delete @DBQueueCurrent from @DBQueueCurrent cu join @DBQueueToMove mo on cu.UID_DialogDBQueue = mo.UID_DialogDBQueue end end    insert into @ObjectKeysToCheck_Jobrunning
13(Parameter1, Parameter2) select x.UID_PersonWantsOrg, x.XObjectKey from @DBQueueCurrent cu join PersonwantsOrg x on cu.UID_Parameter = x.UID_PersonWantsOrg
14 union all select cu.UID_parameter, p.XObjectKey from @DBQueueCurrent cu join PersonwantsOrg x on cu.UID_Parameter = x.UID_PersonWantsOrg join Person p
15 on x.UID_PersonOrdered = p.UID_Person  exec @resetted = QBM_PSlotResetWhileJobRun_L @DBQueueCurrent, @@PROCID, @ObjectKeysToCheck_Jobrunning, @SlotNumber
16 = @SlotNumber  END TRY BEGIN CATCH exec QBM_PSessionErrorAdd default RAISERROR ('', 18, 1) WITH NOWAIT END CATCH endLabel: end 
17