dbo.CPL_RITShopMakeDecisionCR

1create   procedure CPL_RITShopMakeDecisionCR (@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 @SlotNumberSource
3 int declare @SlotNumberTarget int declare @DBQueueToMove QBM_YDBQCSCurrentToMove 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  delete @DBQueueToMove  insert into @DBQueueToMove(UID_DialogDBQueue) select
6 cul.UID_DialogDBQueue from @DBQueueCurrent cul  left outer join PersonWantsOrg pwo with (readpast) on cul.UID_Parameter = pwo.UID_PersonWantsOrg   and
7 pwo.OrderState in ('OrderProduct', 'OrderProlongate', 'OrderUnsubscribe') where pwo.UID_PersonWantsOrg is null if @@ROWCOUNT > 0 begin select @SlotNumberSource
8 = @SlotNumber  select @SlotnumberTarget = 0 exec @RowsMoved = QBM_PDBQCS_CurrentMoveSlot @DBQueueToMove, @SlotNumberSource, @SlotnumberTarget  delete 
9@DBQueueCurrent from @DBQueueCurrent cu join @DBQueueToMove mo on cu.UID_DialogDBQueue = mo.UID_DialogDBQueue end  insert into @ObjectKeysToCheck_Jobrunning
10(Parameter1, Parameter2) select x.UID_PersonWantsOrg, x.XObjectKey from @DBQueueCurrent cu join PersonwantsOrg x on cu.UID_Parameter = x.UID_PersonWantsOrg
11 exec @resetted = QBM_PSlotResetWhileJobRun_L @DBQueueCurrent, @@PROCID, @ObjectKeysToCheck_Jobrunning, @SlotNumber = @SlotNumber  END TRY BEGIN CATCH 
12exec QBM_PSessionErrorAdd default RAISERROR ('', 18, 1) WITH NOWAIT END CATCH endLabel: end 
13