Back to OIM Explorer

dbo.CPL_RComplianceCheckForRule

Stored ProcedureSQL_STORED_PROCEDURESandbox DB

Stored Procedure.

Source: sandbox-db sys.sql_modules

Source size: 1.857 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 CPL_RComplianceCheckForRule(2  @SlotNumber int3)4AS5BEGIN6  DECLARE @ObjectKeysToCheck_Projection QBM_YParameterList7  DECLARE @ObjectKeysToCheck_Jobrunning QBM_YParameterList8  DECLARE @MyName nvarchar(64) = object_name(@@procid)9  DECLARE @DBQueueCurrent QBM_YDBQueueCurrent10  DECLARE @resetted int11  DECLARE @SlotNumberSource int12  DECLARE @SlotNumberTarget int13  DECLARE @DBQueueToMove QBM_YDBQCSCurrentToMove14  DECLARE @RowsMoved int15  BEGIN TRY16    INSERT INTO @DBQueueCurrent(UID_DialogDBQueue,17    UID_Parameter,18    UID_SubParameter,19    GenProcID)20    SELECT21      UID_DialogDBQueue,22      UID_Parameter,23      UID_SubParameter,24      GenProcID25    FROM QBMDBQueueCurrent cu26      WITH(readpast)27    WHERE28      cu.SlotNumber = @SlotNumber29    IF @@rowcount = 030    BEGIN31      GOTO EndLabel32    END33    DELETE @DBQueueToMove34    INSERT INTO @DBQueueToMove(UID_DialogDBQueue)35    SELECT cul.UID_DialogDBQueue36    FROM @DBQueueCurrent cul37    LEFT38    OUTER39    JOIN ComplianceRule cr40      WITH(readpast)41      ON cul.UID_Parameter = cr.UID_ComplianceRule AND isnull(cr.IsInActive,42    0) = 0 AND isnull(cr.IsWorkingCopy,43    0) = 0 AND cr.UID_NonCompliance > ' '44    WHERE45      cr.UID_ComplianceRule IS NULL46    IF @@ROWCOUNT > 047    BEGIN48      SELECT @SlotNumberSource = @SlotNumber49      SELECT @SlotnumberTarget = 050      EXEC @RowsMoved = QBM_PDBQCS_CurrentMoveSlot @DBQueueToMove,51        @SlotNumberSource,52        @SlotnumberTarget53      DELETE @DBQueueCurrent54      FROM @DBQueueCurrent cu55      JOIN @DBQueueToMove mo56        ON cu.UID_DialogDBQueue = mo.UID_DialogDBQueue57    END58    INSERT INTO @ObjectKeysToCheck_Jobrunning(Parameter1,59    Parameter2)60    SELECT61      x.UID_ComplianceRule,62      x.XObjectKey63    FROM @DBQueueCurrent cu64    JOIN ComplianceRule x65      ON cu.UID_Parameter = x.UID_ComplianceRule66    EXEC @resetted = QBM_PSlotResetWhileJobRun_L @DBQueueCurrent,67      @@PROCID,68      @ObjectKeysToCheck_Jobrunning,69      @SlotNumber = @SlotNumber70  END TRY71  BEGIN CATCH72    EXEC QBM_PSessionErrorAdd DEFAULT73    RAISERROR('',74    18,75    1)76      WITH NOWAIT77  END CATCH78  endLabel:79END

Open raw exported source

1create   procedure CPL_RComplianceCheckForRule (@SlotNumber int) AS begin declare @ObjectKeysToCheck_Projection QBM_YParameterList declare @ObjectKeysToCheck_Jobrunning2 QBM_YParameterList declare @MyName nvarchar(64) = object_name(@@procid) declare @DBQueueCurrent QBM_YDBQueueCurrent declare @resetted int declare @SlotNumberSource3 int declare @SlotNumberTarget int declare @DBQueueToMove QBM_YDBQCSCurrentToMove declare @RowsMoved int BEGIN TRY insert into @DBQueueCurrent(UID_DialogDBQueue4, UID_Parameter, UID_SubParameter, GenProcID) select UID_DialogDBQueue, UID_Parameter, UID_SubParameter, GenProcID from QBMDBQueueCurrent cu with (readpast5) where cu.SlotNumber = @SlotNumber if @@rowcount = 0 begin goto EndLabel end  delete @DBQueueToMove  insert into @DBQueueToMove(UID_DialogDBQueue) select6 cul.UID_DialogDBQueue from @DBQueueCurrent cul  left outer join ComplianceRule cr with (readpast) on cul.UID_Parameter = cr.UID_ComplianceRule and isnull7(cr.IsInActive,0) = 0  and isnull(cr.IsWorkingCopy,0) = 0 and cr.UID_NonCompliance > ' ' where cr.UID_ComplianceRule is null if @@ROWCOUNT > 0 begin select8 @SlotNumberSource = @SlotNumber  select @SlotnumberTarget = 0 exec @RowsMoved = QBM_PDBQCS_CurrentMoveSlot @DBQueueToMove, @SlotNumberSource, @SlotnumberTarget9  delete @DBQueueCurrent from @DBQueueCurrent cu join @DBQueueToMove mo on cu.UID_DialogDBQueue = mo.UID_DialogDBQueue end  insert into @ObjectKeysToCheck_Jobrunning10(Parameter1, Parameter2) select x.UID_ComplianceRule, x.XObjectKey from @DBQueueCurrent cu join ComplianceRule x on cu.UID_Parameter = x.UID_ComplianceRule11 exec @resetted = QBM_PSlotResetWhileJobRun_L @DBQueueCurrent, @@PROCID, @ObjectKeysToCheck_Jobrunning, @SlotNumber = @SlotNumber  END TRY BEGIN CATCH 12exec QBM_PSessionErrorAdd default RAISERROR ('', 18, 1) WITH NOWAIT END CATCH endLabel: end 13