Back to OIM Explorer

dbo.POL_ZQERPolicyFill

Stored ProcedureSQL_STORED_PROCEDURESandbox DB

Stored Procedure. References QBM_PJobCreate*

Source: sandbox-db sys.sql_modules

Source size: 1.692 characters

Interpretation

  • Database routine. Review parameters, called procedures, DBQueue inserts, and QBM_PJobCreate helper calls before assuming side effects.
  • Object-layer bridge detected through QBM_PJobCreate helper usage.

Relations

  • References QBM_PJobCreate*

Typed Edges

  • references source dbo.QBM_FCVElementToObjectKey1 source text reference
  • references source dbo.QBM_FGICodeName source text reference
  • references source dbo.QBM_FGISessionContext source text reference
  • references source dbo.QBM_PJobCreate source text reference
  • references source dbo.QBM_PJobCreate_HODelete source text reference
  • references source dbo.QBM_PJobCreate_HODelete_L source text reference
  • references source dbo.QBM_PMNTableInsert source text reference
  • references source dbo.QBM_PMNTableInsertOwnPK source text reference
  • references source dbo.QBM_PSessionContextSet 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 POL_ZQERPolicyFill(2  @SlotNumber int,3  @UID_QERPolicy varchar(38),4  @UID_SubParameter varchar(38),5  @GenProcID varchar(38)6)7AS8BEGIN9  DECLARE @GenProcID_R varchar(38) = dbo.QBM_FGISessionContext('')10  DECLARE @procname nvarchar(64)11  DECLARE @BasisObjectKey varchar(138) = dbo.QBM_FCVElementToObjectKey1('QERPolicy',12  'UID_QERPolicy',13  @UID_QERPolicy)14  BEGIN TRY15    SELECT16      @procname = dbo.QBM_FGICodeName('PO',17      @uid_QERPolicy)18    IF EXISTS(19      SELECT TOP 1 120      FROM sys.procedures21      WHERE22        name = @procname)23    BEGIN24      EXEC @procname25    END26    DECLARE @ObjectkeysToDelete QBM_YParameterList27    INSERT INTO @ObjectkeysToDelete(Parameter1)28    SELECT pho.XObjectKey29    FROM QERPolicyHasObject pho30      WITH(readpast)31    JOIN #QBMDeltaDelete d32      ON pho.UID_QERPolicy = @UID_QERPolicy AND pho.ObjectKey = d.AssignedElement33    EXEC QBM_PJobCreate_HODelete_L 'QERPolicyHasObject',34      @ObjectkeysToDelete,35      @GenProcID,36      @AdditionalObjectKeysAffected = DEFAULT,37      @IsToFreezeOnError = 1,38      @BasisObjectKey = @BasisObjectKey39    UPDATE #QBMDeltaInsert40    SET genprocid = @GenProcID41    EXEC QBM_PMNTableInsertOwnPK 'QERPolicyHasObject',42    'UID_QERPolicy',43    'ObjectKey',44      @FKTableNameElement = 'QERPolicy',45      @FKColumnNameElement = 'UID_QERPolicy'46    UPDATE QERPolicyHasObject47    SET IsDecisionMade = 1,48    IsExceptionGranted = 0,49    DecisionDate = GetUTCDate(),50    DecisionReason = 'No exception allowed'51    FROM QERPolicyHasObject pho52    JOIN QERPolicy p53      ON pho.UID_QERPolicy = p.UID_QERPolicy54    WHERE55      p.UID_QERPolicy = @UID_QERPolicy AND p.IsExceptionAllowed = 056  END TRY57  BEGIN CATCH58    EXEC QBM_PSessionErrorAdd DEFAULT59    RAISERROR('',60    18,61    1)62      WITH NOWAIT63  END CATCH64  endLabel:65  EXEC QBM_PSessionContextSet 'GenProcID',66    @GenProcID_R67  RETURN68END
Open raw exported source
SQL ยท Raw12 lines
1    create   procedure POL_ZQERPolicyFill (@SlotNumber int , @UID_QERPolicy varchar(38) , @UID_SubParameter varchar(38) , @GenProcID varchar(38)2 ) as begin declare @GenProcID_R varchar(38) = dbo.QBM_FGISessionContext('') declare @procname nvarchar(64) declare @BasisObjectKey varchar(138) = dbo.QBM_FCVElementToObjectKey13('QERPolicy', 'UID_QERPolicy', @UID_QERPolicy) BEGIN TRY select @procname = dbo.QBM_FGICodeName('PO', @uid_QERPolicy)  if exists (select top 1 1 from sys.procedures4 where name = @procname ) begin exec @procname end        declare @ObjectkeysToDelete QBM_YParameterList insert into @ObjectkeysToDelete(Parameter1) select5 pho.XObjectKey from QERPolicyHasObject pho with (readpast) join #QBMDeltaDelete d on pho.UID_QERPolicy = @UID_QERPolicy and pho.ObjectKey = d.AssignedElement6 exec QBM_PJobCreate_HODelete_L 'QERPolicyHasObject', @ObjectkeysToDelete, @GenProcID , @AdditionalObjectKeysAffected = default , @IsToFreezeOnError = 71 , @BasisObjectKey = @BasisObjectKey   update #QBMDeltaInsert set genprocid = @GenProcID exec QBM_PMNTableInsertOwnPK 'QERPolicyHasObject', 'UID_QERPolicy'8, 'ObjectKey' , @FKTableNameElement = 'QERPolicy' , @FKColumnNameElement = 'UID_QERPolicy'  update QERPolicyHasObject set IsDecisionMade = 1 , IsExceptionGranted9 = 0 , DecisionDate = GetUTCDate() , DecisionReason = 'No exception allowed' from QERPolicyHasObject pho join QERPolicy p on pho.UID_QERPolicy = p.UID_QERPolicy10 where p.UID_QERPolicy = @UID_QERPolicy and p.IsExceptionAllowed = 0  END TRY BEGIN CATCH exec QBM_PSessionErrorAdd default RAISERROR ('', 18, 1) WITH 11NOWAIT END CATCH  endLabel: exec QBM_PSessionContextSet 'GenProcID', @GenProcID_R return end 12