Back to OIM Explorer

dbo.CPL_ZComplianceCheckForPerson

Stored ProcedureSQL_STORED_PROCEDURESandbox DB

Stored Procedure.

Source: sandbox-db sys.sql_modules

Source size: 1.359 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

SQL60 lines
1CREATE PROCEDURE CPL_ZComplianceCheckForPerson(2  @SlotNumber int3)4AS5BEGIN6  DECLARE @procname nvarchar(64)7  DECLARE @uid_ComplianceRule varchar(38)8  DECLARE @uid_org varchar(38)9  DECLARE @uid_person varchar(38)10  DECLARE @GenProcID varchar(38)11  DECLARE @whereClause nvarchar(1024)12  DECLARE @BasisObjectKey varchar(138)13  DECLARE @GenProcIDErsatz varchar(38)14  DECLARE @esGabAenderungen int15  DECLARE @ElementBuffer QBM_YCursorBuffer16  DECLARE @ElementCount int17  DECLARE @ElementIndex int18  BEGIN TRY19    SELECT @GenProcIDErsatz = max(GenProcID)20    FROM QBMDBQueueCurrent p21      WITH(readpast)22    WHERE23      GenProcID > ' ' AND p.SlotNumber = @SlotNumber24    IF isnull(@GenProcIDErsatz,25    '') = ''26    BEGIN27      SELECT @GenProcIDErsatz = newid()28    END29    INSERT INTO @ElementBuffer(UID1)30    SELECT uid_ComplianceRule31    FROM ComplianceRule32    WHERE33      isnull(isInActive,34    0) = 0 AND UID_NonCompliance > ' ' AND isnull(isWorkingCopy,35    0) = 036    SELECT @ElementCount = @@ROWCOUNT37    SELECT @ElementIndex = 138    WHILE @ElementIndex <= @ElementCount39    BEGIN40      SELECT TOP 1 @uid_ComplianceRule = bu.UID141      FROM @ElementBuffer bu42      WHERE43        bu.ElementIndex = @ElementIndex44      SELECT45        @procname = dbo.CPL_FCVRuleGuidToProcName(@uid_complianceRule,46        'Person')47      EXEC @procname @SlotNumber48      SELECT @ElementIndex += 149    END50  END TRY51  BEGIN CATCH52    EXEC QBM_PSessionErrorAdd DEFAULT53    RAISERROR('',54    18,55    1)56      WITH NOWAIT57  END CATCH58  endLabel:59  RETURN60END
Open raw exported source
SQL ยท Raw10 lines
1     create   procedure CPL_ZComplianceCheckForPerson (@SlotNumber int) as begin declare @procname nvarchar(64) declare @uid_ComplianceRule varchar2(38) declare @uid_org varchar(38) declare @uid_person varchar(38) declare @GenProcID varchar(38) declare @whereClause nvarchar(1024) declare @BasisObjectKey3 varchar(138) declare @GenProcIDErsatz varchar(38) declare @esGabAenderungen int declare @ElementBuffer QBM_YCursorBuffer declare @ElementCount int declare4 @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_ComplianceRule6 from ComplianceRule  where isnull(isInActive,0) = 0  and UID_NonCompliance > ' ' and isnull(isWorkingCopy,0) = 0 select @ElementCount = @@ROWCOUNT select7 @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 end9  END TRY BEGIN CATCH exec QBM_PSessionErrorAdd default RAISERROR ('', 18, 1) WITH NOWAIT END CATCH  endLabel: return end 10