dbo.CPL_ZComplianceCheckForRule

1    create   procedure CPL_ZComplianceCheckForRule (@SlotNumber int) as begin declare @DebugLevel char(1) = 'W' declare @procname nvarchar(64) declare
2 @uid_ComplianceRule varchar(38) declare @uid_NonCompliance varchar(38) declare @uid_person varchar(38) declare @GenProcID varchar(38) declare @whereClause
3 nvarchar(1024) declare @BasisObjectKey varchar(138) declare @ElementBuffer QBM_YCursorBuffer declare @ElementCount int declare @ElementIndex int declare
4 @DBQueueCurrent QBM_YDBQueueCurrent BEGIN TRY insert into @DBQueueCurrent(UID_DialogDBQueue, UID_Parameter, UID_SubParameter, GenProcID) select UID_DialogDBQueue
5, UID_Parameter, UID_SubParameter, GenProcID from QBMDBQueueCurrent cu with (readpast) where cu.SlotNumber = @SlotNumber if @@rowcount = 0 begin goto EndLabel
6 end insert into @ElementBuffer (UID1, UID2) select uid_parameter as uid_ComplianceRule, GenProcID from @DBQueueCurrent p select @ElementCount = @@ROWCOUNT
7 select @ElementIndex = 1 while @ElementIndex <= @ElementCount begin select top 1 @uid_ComplianceRule = bu.UID1 , @GenProcID = UID2 from @ElementBuffer
8 bu where bu.ElementIndex = @ElementIndex select @procname = dbo.CPL_FCVRuleGuidToProcName(@uid_complianceRule, 'Rule') exec @procname @SlotNumber  select
9 @ElementIndex += 1 end  END TRY BEGIN CATCH exec QBM_PSessionErrorAdd default RAISERROR ('', 18, 1) WITH NOWAIT END CATCH  endLabel: return end 
10