dbo.QBM_ZDeferredOperationExecute

1     create   procedure QBM_ZDeferredOperationExecute (@SlotNumberDummy int , @Dummy1 varchar(38) , @Dummy2 varchar(38) , @GenProcidTask varchar
2(38) ) as begin declare @whereclause nvarchar(max) declare @GenProcID varchar(38) declare @DebugSwitch int = 0 declare @InClauses QBM_YCursorBuffer declare
3 @ElementCount int declare @ElementIndex int declare @ElementsProcessed int declare @Portion int = 10000 declare @PartitionSize int = 101 declare @Elemente
4 QBM_YParameterList declare @ElementPartition QBM_YParameterList declare @XUser nvarchar(64) = object_name(@@procid) declare @Xdate datetime = getutcdate
5() declare @ObjectKeysPerRun QBM_YParameterList declare @BasisObjectKey varchar(138) = null BEGIN TRY  insert into @Elemente (Parameter1, Parameter2, Parameter3
6) select top (@Portion) o.UID_DialogDeferredOperation, isnull(o.GenProcID, @GenProcidTask)      , o.XObjectKey from DialogDeferredOperation o where TargetDate
7 < GetUTCDate() and isnull(XTouched, '') <> 'X' select @ElementsProcessed = @@ROWCOUNT select @ElementIndex = 1 if @DebugSwitch > 0 begin select e.Parameter1
8, e.Parameter2 from @Elemente e end if @ElementsProcessed = 1 begin  select top 1 @GenProcID = e.Parameter2 , @BasisObjectKey = e.Parameter3 from @Elemente
9 e end else begin  select @GenProcID = @GenProcidTask           ; merge into DialogProcessSubstitute as t using ( select distinct e.Parameter2 as GenProcIDOrigin
10 , @GenProcid as GenProcIDNew from @Elemente e where e.Parameter2 <> @GenProcID ) as s on t.GenProcIDOrigin = s.GenProcIDOrigin and t.GenProcIDNew = s.GenProcIDNew
11 when matched and t.ReadyForDeleteOrExport <> 0 then update set t.ReadyForDeleteOrExport = 0 when not matched by target then insert ( GenProcIDOrigin ,
12 GenProcIDNew , ReadyForDeleteOrExport ) values ( s.GenProcIDOrigin , s.GenProcIDNew , 0 ) ; end select @ElementCount = ceiling(@ElementsProcessed / (1.0
13 * @PartitionSize)) select @ElementIndex = 1 while @ElementIndex <= @ElementCount begin delete @ElementPartition insert into @ElementPartition (Parameter1
14, Parameter2, Parameter3) select top (@partitionSize) Parameter1, Parameter2, Parameter3 from @Elemente where HasContentFull = 0 Update @Elemente set HasContentFull
15 = 1 where Parameter1 in (select Parameter1 from @ElementPartition) select top 1 @whereclause ='UID_DialogDeferredOperation in ' + i.CollectedLine from
16 dbo.QBM_FTParameter1AsInClause(@ElementPartition) i if @DebugSwitch > 0 begin print @whereclause end delete @ObjectKeysPerRun insert into @ObjectKeysPerRun
17(Parameter1) select e.Parameter3 from @ElementPartition e exec QBM_PJobCreate_HOFireEvent 'DialogDeferredOperation', @whereclause, 'EXECUTE', @GenProcid
18 , @ObjectKeysAffected = @ObjectKeysPerRun , @BasisObjectKey = @BasisObjectKey select @ElementIndex += 1 end   update DialogDeferredOperation set xtouched
19 = 'X' , XDateUpdated = @Xdate , XUserUpdated = @XUser where UID_DialogDeferredOperation in ( select e.Parameter1 from @Elemente e ) if @ElementsProcessed
20 = @Portion begin if @GenProcidTask is null begin select @GenProcidTask = newid() end exec QBM_PDBQueueInsert_Single 'QBM-K-DeferredOperationExecute', 
21'', '', @GenProcidTask end END TRY BEGIN CATCH exec QBM_PSessionErrorAdd default RAISERROR ('', 18, 1) WITH NOWAIT END CATCH end 
22