Back to OIM Explorer

dbo.CPL_ZComplianceCheckForRule

Stored ProcedureSQL_STORED_PROCEDURESandbox DB

Stored Procedure.

Source: sandbox-db sys.sql_modules

Source size: 1.401 characters

Interpretation

  • Database routine. Review parameters, called procedures, DBQueue inserts, and QBM_PJobCreate helper calls before assuming side effects.

Relations

  • No extracted relations.

Typed Edges

  • references source dbo.CPL_FCVRuleGuidToProcName source text reference
  • references source dbo.QBM_PSessionErrorAdd source text reference

References

Referenced By

  • No direct source references extracted.

Complete Source

SQL68 lines
1CREATE PROCEDURE CPL_ZComplianceCheckForRule(2  @SlotNumber int3)4AS5BEGIN6  DECLARE @DebugLevel char(1) = 'W'7  DECLARE @procname nvarchar(64)8  DECLARE @uid_ComplianceRule varchar(38)9  DECLARE @uid_NonCompliance varchar(38)10  DECLARE @uid_person varchar(38)11  DECLARE @GenProcID varchar(38)12  DECLARE @whereClause nvarchar(1024)13  DECLARE @BasisObjectKey varchar(138)14  DECLARE @ElementBuffer QBM_YCursorBuffer15  DECLARE @ElementCount int16  DECLARE @ElementIndex int17  DECLARE @DBQueueCurrent QBM_YDBQueueCurrent18  BEGIN TRY19    INSERT INTO @DBQueueCurrent(UID_DialogDBQueue,20    UID_Parameter,21    UID_SubParameter,22    GenProcID)23    SELECT24      UID_DialogDBQueue,25      UID_Parameter,26      UID_SubParameter,27      GenProcID28    FROM QBMDBQueueCurrent cu29      WITH(readpast)30    WHERE31      cu.SlotNumber = @SlotNumber32    IF @@rowcount = 033    BEGIN34      GOTO EndLabel35    END36    INSERT INTO @ElementBuffer(UID1,37    UID2)38    SELECT39      uid_parameter AS uid_ComplianceRule,40      GenProcID41    FROM @DBQueueCurrent p42    SELECT @ElementCount = @@ROWCOUNT43    SELECT @ElementIndex = 144    WHILE @ElementIndex <= @ElementCount45    BEGIN46      SELECT47        TOP 1 @uid_ComplianceRule = bu.UID1,48        @GenProcID = UID249      FROM @ElementBuffer bu50      WHERE51        bu.ElementIndex = @ElementIndex52      SELECT53        @procname = dbo.CPL_FCVRuleGuidToProcName(@uid_complianceRule,54        'Rule')55      EXEC @procname @SlotNumber56      SELECT @ElementIndex += 157    END58  END TRY59  BEGIN CATCH60    EXEC QBM_PSessionErrorAdd DEFAULT61    RAISERROR('',62    18,63    1)64      WITH NOWAIT65  END CATCH66  endLabel:67  RETURN68END
Open raw exported source
SQL ยท Raw10 lines
1    create   procedure CPL_ZComplianceCheckForRule (@SlotNumber int) as begin declare @DebugLevel char(1) = 'W' declare @procname nvarchar(64) declare2 @uid_ComplianceRule varchar(38) declare @uid_NonCompliance varchar(38) declare @uid_person varchar(38) declare @GenProcID varchar(38) declare @whereClause3 nvarchar(1024) declare @BasisObjectKey varchar(138) declare @ElementBuffer QBM_YCursorBuffer declare @ElementCount int declare @ElementIndex int declare4 @DBQueueCurrent QBM_YDBQueueCurrent BEGIN TRY insert into @DBQueueCurrent(UID_DialogDBQueue, UID_Parameter, UID_SubParameter, GenProcID) select UID_DialogDBQueue5, UID_Parameter, UID_SubParameter, GenProcID from QBMDBQueueCurrent cu with (readpast) where cu.SlotNumber = @SlotNumber if @@rowcount = 0 begin goto EndLabel6 end insert into @ElementBuffer (UID1, UID2) select uid_parameter as uid_ComplianceRule, GenProcID from @DBQueueCurrent p select @ElementCount = @@ROWCOUNT7 select @ElementIndex = 1 while @ElementIndex <= @ElementCount begin select top 1 @uid_ComplianceRule = bu.UID1 , @GenProcID = UID2 from @ElementBuffer8 bu where bu.ElementIndex = @ElementIndex select @procname = dbo.CPL_FCVRuleGuidToProcName(@uid_complianceRule, 'Rule') exec @procname @SlotNumber  select9 @ElementIndex += 1 end  END TRY BEGIN CATCH exec QBM_PSessionErrorAdd default RAISERROR ('', 18, 1) WITH NOWAIT END CATCH  endLabel: return end 10