dbo.CPL_ZSubRuleFillPersonS

1create   procedure CPL_ZSubRuleFillPersonS (@SlotNumber int )  AS begin declare @DBQueueCurrent QBM_YDBQueueCurrent declare @ElementBuffer QBM_YCursorBuffer
2 declare @ElementCount int declare @ElementIndex int declare @UID_ComplianceRule varchar(38) declare @uid_person varchar(38) declare @GenProcID varchar
3(38) declare @Persons QBM_YSingleGUID SET XACT_ABORT OFF BEGIN TRY insert into @DBQueueCurrent(UID_DialogDBQueue, UID_Parameter, UID_SubParameter, GenProcID
4) select UID_DialogDBQueue, UID_Parameter, UID_SubParameter, GenProcID from QBMDBQueueCurrent cu with (readpast) where cu.SlotNumber = @SlotNumber  insert
5 into @ElementBuffer (UID1, UID3) select p.UID_Parameter, max(p.GenProcID) from @DBQueueCurrent p group by p.UID_Parameter select @ElementCount = @@ROWCOUNT
6 select @ElementIndex = 1 while @ElementIndex <= @ElementCount begin select top 1 @UID_ComplianceRule = bu.UID1 , @GenProcID = bu.UID3 from @ElementBuffer
7 bu where bu.ElementIndex = @ElementIndex delete  @Persons insert into @Persons(UID_SingleGuid) select distinct cu.UID_SubParameter from @DBQueueCurrent
8 cu where cu.UID_Parameter = @UID_ComplianceRule exec CPL_PSubRuleFillPerson_i @UID_ComplianceRule, @persons, @GenProcID select @ElementIndex += 1 end 
9 END TRY BEGIN CATCH exec QBM_PSessionErrorAdd default RAISERROR ('', 18, 1) WITH NOWAIT END CATCH  endLabel: return end 
10