dbo.CPL_ZComplianceCheckForPerson

1     create   procedure CPL_ZComplianceCheckForPerson (@SlotNumber int) as begin declare @procname nvarchar(64) declare @uid_ComplianceRule varchar
2(38) declare @uid_org varchar(38) declare @uid_person varchar(38) declare @GenProcID varchar(38) declare @whereClause nvarchar(1024) declare @BasisObjectKey
3 varchar(138) declare @GenProcIDErsatz varchar(38) declare @esGabAenderungen int declare @ElementBuffer QBM_YCursorBuffer declare @ElementCount int declare
4 @ElementIndex int BEGIN TRY select @GenProcIDErsatz = max(GenProcID) from QBMDBQueueCurrent p with (readpast) where GenProcID > ' ' and p.SlotNumber =
5 @SlotNumber if isnull(@GenProcIDErsatz, '') = '' begin select @GenProcIDErsatz = newid() end insert into @ElementBuffer (UID1) select uid_ComplianceRule
6 from ComplianceRule  where isnull(isInActive,0) = 0  and UID_NonCompliance > ' ' and isnull(isWorkingCopy,0) = 0 select @ElementCount = @@ROWCOUNT select
7 @ElementIndex = 1 while @ElementIndex <= @ElementCount begin select top 1 @uid_ComplianceRule = bu.UID1 from @ElementBuffer bu where bu.ElementIndex =
8 @ElementIndex select @procname = dbo.CPL_FCVRuleGuidToProcName(@uid_complianceRule, 'Person') exec @procname @SlotNumber  select @ElementIndex += 1 end
9  END TRY BEGIN CATCH exec QBM_PSessionErrorAdd default RAISERROR ('', 18, 1) WITH NOWAIT END CATCH  endLabel: return end 
10