dbo.QBM_PBufferT_ProcessAll

1     create   procedure QBM_PBufferT_ProcessAll (@ModuleName varchar(3) , @PurgeMode bit = 0 ) as begin declare @TableName varchar(30)   declare
2 @tablesToProcess QBM_YCursorBuffer    declare @DebugLevel char(1) = 'W' declare @DebugSwitch int = 0 declare @msg nvarchar(2000) declare @ElementBuffer
3 QBM_YCursorBuffer declare @ElementCount int declare @ElementIndex int SET XACT_ABORT OFF BEGIN TRY   insert into @tablesToProcess (Ident1) select y.TableName
4 from (select distinct bu.TableName from QBMBufferTransfer bu where modulename = @ModuleName) as y join (select TableName, SortOrder from QBM_VStartupTables
5 union all select '%', 1000 ) as x on (y.TableName = x.TableName or ( y.TableName not in (select TableName from QBM_VStartupTables) and x.TableName = '%'
6 ) )  join sys.tables te with (readpast) on te.name = y.TableName collate database_default  order by x.SortOrder if @PurgeMode = 1 begin if exists (select
7 top 1 1 from @tablesToProcess t join QBM_VStartupTables s on t.Ident1 = s.TableName ) and exists (select top 1 1 from QBM_VStartupTables s left outer 
8join @tablesToProcess t on t.Ident1 = s.TableName where t.Ident1 is null ) insert into @tablesToProcess (Ident1) select s.TableName from QBM_VStartupTables
9 s left outer join @tablesToProcess t on t.Ident1 = s.TableName where t.Ident1 is null end insert into @ElementBuffer(Ident1) select p.Ident1 from @tablesToProcess
10 p order by p.ElementIndex select @ElementCount = @@ROWCOUNT select @ElementIndex = 1 while @ElementIndex <= @ElementCount begin select top 1 @TableName
11 = bu.Ident1 from @ElementBuffer bu where bu.ElementIndex = @ElementIndex if @DebugSwitch > 0 begin print '----------------------------------------------------------'
12 print '-- processing table ' + @TableName + dbo.QBM_FCVDatetimeToString(GETUTCDATE()) print '----------------------------------------------------------'
13 select @msg = 'Table: ' + @TableName + ' QBM_PBufferT_ProcessAll ' + @ModuleName + STR(@PurgeMode) exec QBM_PJournal @msg, @@procid, 'D', @DebugLevel 
14end  exec QBM_PBufferT_ProcessTable @ModuleName, @TableName , @PurgeMode select @ElementIndex += 1 end  END TRY BEGIN CATCH exec QBM_PSessionErrorAdd default
15 exec QBM_PJournal 'SessionError', @@procid, 'E', @DebugLevel declare @Rethrow varchar(1000) = dbo.QBM_FGISessionErrorRethrow() RAISERROR (@Rethrow, 18
16, 1) WITH NOWAIT END CATCH end 
17