dbo.QER_ZDynGroupSinglePerson

1     create   procedure QER_ZDynGroupSinglePerson (@SlotNumber int)  as begin declare @GenProcID varchar(38) declare @CountPerson_All float declare
2 @CountPerson_ForDyna float declare @LimitForFullGroup float = 0.001 declare @LimitAbsolute float = 100  declare @DBQueueCurrent QBM_YDBQueueCurrent BEGIN
3 TRY insert into @DBQueueCurrent(UID_DialogDBQueue, UID_Parameter, UID_SubParameter, GenProcID) select UID_DialogDBQueue, UID_Parameter, UID_SubParameter
4, GenProcID from QBMDBQueueCurrent cu with (readpast) where cu.SlotNumber = @SlotNumber if @@rowcount = 0 begin goto EndLabel end select @CountPerson_All
5 = convert(float, dbo.QBM_FGITableCountAll('Person')) if @CountPerson_All = 0.0 begin select @CountPerson_All = 1.0  end select @CountPerson_ForDyna = 
6COUNT(*) from QBMDBQueueCurrent o with (readpast) where o.UID_Task = 'QER-K-DynamicGroupSinglePerson' and o.SlotNumber > 0 select @CountPerson_ForDyna 
7+= COUNT(*) from @DBQueueCurrent o if @CountPerson_ForDyna / @CountPerson_All > @LimitForFullGroup and @CountPerson_ForDyna > @LimitAbsolute begin declare
8 @DBQueueElements_02 QBM_YDBQueueRaw select top 1 @GenProcID = cu.GenProcID from @DBQueueCurrent cu insert into @DBQueueElements_02(Object, SubObject, 
9GenProcID) select d.UID_DynamicGroup, null, @GenProcID from DynamicGroup d where d.UID_DialogTableObjectClass = 'QER-T-Person' exec QBM_PDBQueueInsert_Bulk
10 'QER-K-DynamicGroupTest', @DBQueueElements_02 end else begin  declare @DBQueueElements_01 QBM_YDBQueueRaw insert into @DBQueueElements_01(Object, SubObject
11, GenProcID) select cu.UID_Parameter, dg.uid_dynamicGroup , cu.GenProcID from @DBQueueCurrent cu cross join DynamicGroup dg join DialogTable t with (readpast
12) on dg.UID_DialogTableObjectClass = t.UID_DialogTable where t.TableName = 'Person'   and dbo.QBM_FGIJobCreatedExists(dg.XObjectKey) = 0   and not exists
13 (Select top 1 1 from DialogDBQueue q with (nolock) where q.UID_Task = 'QER-K-DynamicGroupTest' and q.Object = dg.UID_DynamicGroup  and q.Generation >=
14 0 ) exec QBM_PDBQueueInsert_Bulk 'QER-K-DynamicGroupSingleBasic', @DBQueueElements_01 end END TRY BEGIN CATCH exec QBM_PSessionErrorAdd default RAISERROR
15 ('', 18, 1) WITH NOWAIT END CATCH endLabel: return end 
16