dbo.ADS_RADSMachineInADSGroup

1create   procedure ADS_RADSMachineInADSGroup (@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 BEGIN TRY insert
3 into @DBQueueCurrent(UID_DialogDBQueue, UID_Parameter, UID_SubParameter, GenProcID) select UID_DialogDBQueue, UID_Parameter, UID_SubParameter, GenProcID
4 from QBMDBQueueCurrent cu with (readpast) where cu.SlotNumber = @SlotNumber if @@rowcount = 0 begin goto EndLabel end  exec @resetted = QBM_PSlotResetOnMissingItem_L
5 @DBQueueCurrent, 'ADSMachine', 'uid_ADSMachine', @SlotNumber if @resetted > 0 begin delete  @DBQueueCurrent from @DBQueueCurrent v left outer join QBMDBQueueCurrent
6 cu with (readpast) on v.UID_DialogDBQueue = cu.UID_DialogDBQueue and cu.SlotNumber = @SlotNumber where cu.UID_DialogDBQueue is null end if 1 = dbo.DPR_FGIProjectionRootRunning
7 ('ADSDomain') begin insert into @ObjectKeysToCheck_Projection(Parameter1, Parameter2) select cu.UID_Parameter, ro.ObjectKeyRoot from @DBQueueCurrent cu
8 join ADSMachine a on a.UID_ADSMachine = cu.UID_Parameter join ADS_VElementAndRoot ro on a.XObjectKey = ro.ObjectKeyElement  where ro.ElementTable = 'ADSMachine'
9 exec @resetted = DPR_PSlotResetWhileProj_L @DBQueueCurrent, @ObjectKeysToCheck_Projection, @MyName, @SlotNumber if @resetted > 0 begin delete  @DBQueueCurrent
10 from @DBQueueCurrent v left outer join QBMDBQueueCurrent cu with (readpast) on v.UID_DialogDBQueue = cu.UID_DialogDBQueue and cu.SlotNumber = @SlotNumber
11 where cu.UID_DialogDBQueue is null end end  insert into @ObjectKeysToCheck_Jobrunning(Parameter1, Parameter2) select cu.UID_Parameter, x.XObjectKey from
12 @DBQueueCurrent cu join ADSMachine x on cu.UID_Parameter = x.UID_ADSMachine exec @resetted = QBM_PSlotResetWhileJobRun_L @DBQueueCurrent, @@PROCID, @ObjectKeysToCheck_Jobrunning
13, @SlotNumber = @SlotNumber  END TRY BEGIN CATCH exec QBM_PSessionErrorAdd default RAISERROR ('', 18, 1) WITH NOWAIT END CATCH endLabel: end 
14