Back to OIM Explorer

dbo.POL_ZQERPolicyMakeProc

Stored ProcedureSQL_STORED_PROCEDURESandbox DB

Stored Procedure.

Source: sandbox-db sys.sql_modules

Source size: 1.119 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.QBM_FGICodeName source text reference
  • references source dbo.POL_PQERPolicyMakeProc source text reference
  • references source dbo.QBM_PProcedureDrop source text reference
  • references source dbo.QBM_PSessionErrorAdd source text reference

References

Referenced By

  • No direct source references extracted.

Complete Source

SQL55 lines
1CREATE PROCEDURE POL_ZQERPolicyMakeProc(2  @SlotNumber int3)4AS5BEGIN6  DECLARE @uid_QERPolicy varchar(38)7  DECLARE @SQLcmd nvarchar(max)8  DECLARE @Procname varchar(30)9  DECLARE @ElementBuffer QBM_YCursorBuffer10  DECLARE @ElementCount int11  DECLARE @ElementIndex int12  SET XACT_ABORT OFF13  BEGIN TRY14    INSERT INTO @ElementBuffer(UID1)15    SELECT uid_parameter16    FROM QBMDBQueueCurrent p17      WITH(readpast)18    WHERE19      p.SlotNumber = @SlotNumber20    SELECT @ElementCount = @@ROWCOUNT21    SELECT @ElementIndex = 122    WHILE @ElementIndex <= @ElementCount23    BEGIN24      SELECT TOP 1 @uid_QERPolicy = bu.UID125      FROM @ElementBuffer bu26      WHERE27        bu.ElementIndex = @ElementIndex28      SELECT29        @procname = dbo.QBM_FGICodeName('PO',30        @uid_QERPolicy)31      IF EXISTS(32        SELECT TOP 1 133        FROM QERPolicy34        WHERE35          uid_QERPolicy = @uid_QERPolicy AND isnull(isInactive, 0) = 0 AND isnull(isWorkingCopy, 0) = 0 AND isnull(isNoWhereClause,36      0) = 0)37      BEGIN38        EXEC POL_PQERPolicyMakeProc @uid_QERPolicy,39          @procname40      END41      ELSE42      BEGIN43        EXEC QBM_PProcedureDrop @procname44      END45      SELECT @ElementIndex += 146    END47  END TRY48  BEGIN CATCH49    EXEC QBM_PSessionErrorAdd DEFAULT50    RAISERROR('',51    18,52    1)53      WITH NOWAIT54  END CATCH55END
Open raw exported source
SQL ยท Raw9 lines
1  create   procedure POL_ZQERPolicyMakeProc (@SlotNumber int) as begin  declare @uid_QERPolicy varchar(38) declare @SQLcmd nvarchar(max) declare2 @Procname varchar(30) declare @ElementBuffer QBM_YCursorBuffer declare @ElementCount int declare @ElementIndex int SET XACT_ABORT OFF BEGIN TRY insert3 into @ElementBuffer (UID1) select uid_parameter from QBMDBQueueCurrent p with (readpast) where p.SlotNumber = @SlotNumber select @ElementCount = @@ROWCOUNT4 select @ElementIndex = 1 while @ElementIndex <= @ElementCount begin select top 1 @uid_QERPolicy = bu.UID1 from @ElementBuffer bu where bu.ElementIndex5 = @ElementIndex select @procname = dbo.QBM_FGICodeName('PO', @uid_QERPolicy)  if exists (select top 1 1 from QERPolicy where uid_QERPolicy = @uid_QERPolicy6  and isnull(isInactive,0) = 0 and isnull(isWorkingCopy,0) = 0 and isnull(isNoWhereClause,0) = 0 ) begin exec POL_PQERPolicyMakeProc @uid_QERPolicy, @procname7 end else begin exec QBM_PProcedureDrop @procname end select @ElementIndex += 1 end  END TRY BEGIN CATCH exec QBM_PSessionErrorAdd default RAISERROR (''8, 18, 1) WITH NOWAIT END CATCH end 9