dbo.QBM_PDBQueueInsert_Bulk

1create   procedure QBM_PDBQueueInsert_Bulk (@UID_Task varchar(38) , @DBQueueElements QBM_YDBQueueRaw readonly  , @Dummy_Sort_Order int = -1111 ,
2 @Dummy_no_Check_For_Existing int = -1111      ) as begin declare @PondGroup varchar(38) declare @DebugLevel char(1) = 'W' declare @ErrorBuffer QBM_YSessionError
3 SET XACT_ABORT OFF BEGIN TRY if not exists (select top 1 1 from @DBQueueElements ) begin goto EndLabel end if isnull(@Dummy_no_Check_For_Existing, 0) 
4<> -1111 or isnull(@Dummy_Sort_Order, 0) <> -1111 begin set XACT_ABORT ON  RAISERROR ('#LDS#Obsolete parameters used.|', 18, 1) WITH NOWAIT end if dbo.QBM_FGISessionContext
5('TempQueue') > ' ' begin if OBJECT_ID('tempdb..#QBMDBQueueTemp') is not null begin  if exists (select top 1 1 from QBMDBQueueTaskMetric f with (readpast
6) where f.UID_Task = @UID_Task ) begin    insert into #QBMDBQueueTemp(UID_Task, Object, SubObject, GenProcID) select @UID_Task, e.Object, e.SubObject, 
7e.GenProcID from @DBQueueElements e goto endLabel end else begin delete @ErrorBuffer insert into @ErrorBuffer (ErrorMessage, ErrorSeverity, ErrorState,
8 ErrorNumber , ProcedureName, ProcedureLine, MessageDate , GenProcID, RepeatCounter, IsReThrow, SourceCode) select concat('#LDS#Internal error: no valid Task given ({0}).|'
9 , isnull(@UID_Task, '<empty>') , '|.' ),18, 1, 50000 , object_name(@@PROCID), ERROR_LINE(), GETUTCDATE() , null, 0, 0, null exec QBM_PSessionErrorAdd 
10@ErrorBuffer set XACT_ABORT ON  RAISERROR('', 18, 1) with nowait end end  else begin  exec QBM_PJournal '#LDS#Internal error: SessionContext set, #QBMDBQueueTemp not existent.|'
11, @@procid, 'D', @DebugLevel end end   select @PondGroup = dbo.QBM_FGISessionContext('QBMDBQueuePond') if @PondGroup > ' ' begin  if exists (select top
12 1 1 from QBMDBQueueTaskMetric f with (readpast) where f.UID_Task = @UID_Task ) begin    insert into QBMDBQueuePond(UID_Task, Object, SubObject, GenProcID
13, PondGroup, InsertDate) select @UID_Task, e.Object, e.SubObject, e.GenProcID, @PondGroup, GETUTCDATE() from @DBQueueElements e  exec QBM_PSessionContextSet
14 'INSERTEDINTODBQUEUE', '1' goto endLabel end else begin delete @ErrorBuffer insert into @ErrorBuffer (ErrorMessage, ErrorSeverity, ErrorState, ErrorNumber
15 , ProcedureName, ProcedureLine, MessageDate , GenProcID, RepeatCounter, IsReThrow, SourceCode) select concat('#LDS#Internal error: no valid Task given ({0}).|'
16 , isnull(@UID_Task, '<empty>') , '|.' ),18, 1, 50000 , object_name(@@PROCID), ERROR_LINE(), GETUTCDATE() , null, 0, 0, null exec QBM_PSessionErrorAdd 
17@ErrorBuffer set XACT_ABORT ON RAISERROR('', 18, 1) with nowait end end  Standard:  exec QBM_PDBQueueInsert_Int @UID_Task = @UID_Task , @DBQueueElements
18 = @DBQueueElements   END TRY BEGIN CATCH exec QBM_PSessionErrorAdd default RAISERROR ('', 18, 1) WITH NOWAIT END CATCH endLabel: return end 
19