dbo.LDP_RLDPMachineInLDAPGroup

1create   procedure LDP_RLDPMachineInLDAPGroup (@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 @QBM_BitPatternXMarkedForDel_Delay
3 int = dbo.QBM_FGIBitPatternXMarkedForDel('|Delay|', 0) declare @SlotNumberSource int declare @SlotNumberTarget int declare @DBQueueToMove QBM_YDBQCSCurrentToMove
4 declare @RowsMoved int BEGIN TRY insert into @DBQueueCurrent(UID_DialogDBQueue, UID_Parameter, UID_SubParameter, GenProcID) select UID_DialogDBQueue, 
5UID_Parameter, UID_SubParameter, GenProcID from QBMDBQueueCurrent cu with (readpast) where cu.SlotNumber = @SlotNumber if @@rowcount = 0 begin goto EndLabel
6 end  delete @DBQueueToMove  insert into @DBQueueToMove(UID_DialogDBQueue) select cul.UID_DialogDBQueue from @DBQueueCurrent cul  left outer join LDPMachine
7 m with (readpast) on uid_parameter = uid_LDPMachine where (m.UID_LDPMachine is null or m.XMarkedForDeletion & @QBM_BitPatternXMarkedForDel_Delay > 0 )
8 if @@ROWCOUNT > 0 begin select @SlotNumberSource = @SlotNumber  select @SlotnumberTarget = 0 exec @RowsMoved = QBM_PDBQCS_CurrentMoveSlot @DBQueueToMove
9, @SlotNumberSource, @SlotnumberTarget  delete @DBQueueCurrent from @DBQueueCurrent cu join @DBQueueToMove mo on cu.UID_DialogDBQueue = mo.UID_DialogDBQueue
10 end if 1 = dbo.DPR_FGIProjectionRootRunning ('LDPDomain') begin insert into @ObjectKeysToCheck_Projection(Parameter1, Parameter2) select cu.UID_Parameter
11, ro.ObjectKeyRoot from @DBQueueCurrent cu join LDPMachine a on a.UID_LDPMachine = cu.UID_Parameter join LDP_VElementAndRoot ro on a.XObjectKey = ro.ObjectKeyElement
12  where ro.ElementTable = 'LDPMachine' exec @resetted = DPR_PSlotResetWhileProj_L @DBQueueCurrent, @ObjectKeysToCheck_Projection, @MyName, @SlotNumber 
13if @resetted > 0 begin delete  @DBQueueCurrent from @DBQueueCurrent v left outer join QBMDBQueueCurrent cu with (readpast) on v.UID_DialogDBQueue = cu.UID_DialogDBQueue
14 and cu.SlotNumber = @SlotNumber where cu.UID_DialogDBQueue is null end end  insert into @ObjectKeysToCheck_Jobrunning(Parameter1, Parameter2) select cu.UID_Parameter
15, x.XObjectKey from @DBQueueCurrent cu join LDPMachine x on cu.UID_Parameter = x.UID_LDPMachine exec @resetted = QBM_PSlotResetWhileJobRun_L @DBQueueCurrent
16, @@PROCID, @ObjectKeysToCheck_Jobrunning, @SlotNumber = @SlotNumber  END TRY BEGIN CATCH exec QBM_PSessionErrorAdd default RAISERROR ('', 18, 1) WITH 
17NOWAIT END CATCH endLabel: end 
18