Back to OIM Explorer

dbo.POL_RQERPolicyFill

Stored ProcedureSQL_STORED_PROCEDURESandbox DB

Stored Procedure.

Source: sandbox-db sys.sql_modules

Source size: 1.906 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_PDBQCS_CurrentMoveSlot source text reference
references source dbo.QBM_PSessionErrorAdd source text reference
references source dbo.QBM_PSlotResetWhileJobRun_L source text reference

References

Referenced By

No direct source references extracted.

Complete Source

1CREATE PROCEDURE POL_RQERPolicyFill(2  @SlotNumber int,3  @UID_QERPolicy varchar(38),4  @UID_SubParameter varchar(38),5  @GenProcID varchar(38)6)7AS8BEGIN9  DECLARE @ObjectKeysToCheck_Projection QBM_YParameterList10  DECLARE @ObjectKeysToCheck_Jobrunning QBM_YParameterList11  DECLARE @MyName nvarchar(64) = object_name(@@procid)12  DECLARE @DBQueueCurrent QBM_YDBQueueCurrent13  DECLARE @resetted int14  DECLARE @SlotNumberSource int15  DECLARE @SlotNumberTarget int16  DECLARE @DBQueueToMove QBM_YDBQCSCurrentToMove17  DECLARE @RowsMoved int18  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    DELETE @DBQueueToMove37    INSERT INTO @DBQueueToMove(UID_DialogDBQueue)38    SELECT cul.UID_DialogDBQueue39    FROM @DBQueueCurrent cul40    LEFT41    OUTER42    JOIN QERPolicy p43      WITH(readpast)44      ON cul.UID_Parameter = p.UID_QERPolicy AND isnull(p.IsInActive,45    0) = 0 AND isnull(p.IsWorkingCopy,46    0) = 0 AND isnull(p.IsNoWhereClause,47    0) = 048    WHERE49      p.UID_QERPolicy IS NULL50    IF @@ROWCOUNT > 051    BEGIN52      SELECT @SlotNumberSource = @SlotNumber53      SELECT @SlotnumberTarget = 054      EXEC @RowsMoved = QBM_PDBQCS_CurrentMoveSlot @DBQueueToMove,55        @SlotNumberSource,56        @SlotnumberTarget57      DELETE @DBQueueCurrent58      FROM @DBQueueCurrent cu59      JOIN @DBQueueToMove mo60        ON cu.UID_DialogDBQueue = mo.UID_DialogDBQueue61    END62    INSERT INTO @ObjectKeysToCheck_Jobrunning(Parameter1,63    Parameter2)64    SELECT65      x.UID_QERPolicy,66      x.XObjectKey67    FROM @DBQueueCurrent cu68    JOIN QERPolicy x69      ON cu.UID_Parameter = x.UID_QERPolicy70    EXEC @resetted = QBM_PSlotResetWhileJobRun_L @DBQueueCurrent,71      @@PROCID,72      @ObjectKeysToCheck_Jobrunning,73      @SlotNumber = @SlotNumber74  END TRY75  BEGIN CATCH76    EXEC QBM_PSessionErrorAdd DEFAULT77    RAISERROR('',78    18,79    1)80      WITH NOWAIT81  END CATCH82  endLabel:83END

Open raw exported source

1create   procedure POL_RQERPolicyFill (@SlotNumber int , @UID_QERPolicy varchar(38) , @UID_SubParameter varchar(38) , @GenProcID varchar(38) ) AS2 begin declare @ObjectKeysToCheck_Projection QBM_YParameterList declare @ObjectKeysToCheck_Jobrunning QBM_YParameterList declare @MyName nvarchar(64) =3 object_name(@@procid) declare @DBQueueCurrent QBM_YDBQueueCurrent declare @resetted int declare @SlotNumberSource int declare @SlotNumberTarget int declare4 @DBQueueToMove QBM_YDBQCSCurrentToMove declare @RowsMoved int BEGIN TRY insert into @DBQueueCurrent(UID_DialogDBQueue, UID_Parameter, UID_SubParameter5, GenProcID) select UID_DialogDBQueue, UID_Parameter, UID_SubParameter, GenProcID from QBMDBQueueCurrent cu with (readpast) where cu.SlotNumber = @SlotNumber6 if @@rowcount = 0 begin goto EndLabel end  delete @DBQueueToMove  insert into @DBQueueToMove(UID_DialogDBQueue) select cul.UID_DialogDBQueue from @DBQueueCurrent7 cul  left outer join QERPolicy p with (readpast) on cul.UID_Parameter = p.UID_QERPolicy and isnull(p.IsInActive,0) = 0 and isnull(p.IsWorkingCopy,0) =8 0 and isnull(p.IsNoWhereClause,0) = 0 where p.UID_QERPolicy is null if @@ROWCOUNT > 0 begin select @SlotNumberSource = @SlotNumber  select @SlotnumberTarget9 = 0 exec @RowsMoved = QBM_PDBQCS_CurrentMoveSlot @DBQueueToMove, @SlotNumberSource, @SlotnumberTarget  delete @DBQueueCurrent from @DBQueueCurrent cu 10join @DBQueueToMove mo on cu.UID_DialogDBQueue = mo.UID_DialogDBQueue end  insert into @ObjectKeysToCheck_Jobrunning(Parameter1, Parameter2) select x.UID_QERPolicy11, x.XObjectKey from @DBQueueCurrent cu join QERPolicy x on cu.UID_Parameter = x.UID_QERPolicy exec @resetted = QBM_PSlotResetWhileJobRun_L @DBQueueCurrent12, @@PROCID, @ObjectKeysToCheck_Jobrunning, @SlotNumber = @SlotNumber  END TRY BEGIN CATCH exec QBM_PSessionErrorAdd default RAISERROR ('', 18, 1) WITH 13NOWAIT END CATCH endLabel: end 14