Back to OIM Explorer

dbo.QBM_ZQBMPendingChangeShrink

Stored ProcedureSQL_STORED_PROCEDURESandbox DB

Stored Procedure.

Source: sandbox-db sys.sql_modules

Source size: 1.148 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_FCVStringToInt source text reference
  • references source dbo.QBM_FGIConfigparmValue source text reference
  • references source dbo.QBM_PSessionErrorAdd source text reference

References

Referenced By

  • No direct source references extracted.

Complete Source

SQL48 lines
1CREATE PROCEDURE QBM_ZQBMPendingChangeShrink(2  @Slotnumber int,3  @Dummy1 varchar(38),4  @Dummy2 varchar(38),5  @GenProcIDDummy varchar(38)6)7AS8BEGIN9  DECLARE @LifetimeSuccess int10  DECLARE @LifetimeError int11  DECLARE @LifetimeRunning int12  BEGIN TRY13    SELECT14      TOP 1 @LifetimeSuccess = dbo.QBM_FCVStringToInt(dbo.QBM_FGIConfigparmValue('QBM\PendingChange\LifeTimeSuccess'),15      2)16    SELECT17      TOP 1 @LifetimeError = dbo.QBM_FCVStringToInt(dbo.QBM_FGIConfigparmValue('QBM\PendingChange\LifeTimeError'),18      36500)19    SELECT20      TOP 1 @LifetimeRunning = dbo.QBM_FCVStringToInt(dbo.QBM_FGIConfigparmValue('QBM\PendingChange\LifeTimeRunning'),21      60)22    DELETE QBMPendingChange23    FROM QBMPendingChange u24    WHERE25      datediff(dd,26    u.XDateUpdated,27    getutcdate()) > @LifetimeSuccess AND u.IsProcessed = 128    DELETE QBMPendingChange29    FROM QBMPendingChange u30    WHERE31      datediff(dd,32    u.XDateUpdated,33    getutcdate()) > @LifetimeError AND u.IsProcessed = 234    DELETE QBMPendingChange35    FROM QBMPendingChange u36    WHERE37      datediff(dd,38    u.XDateUpdated,39    getutcdate()) > @LifetimeRunning AND u.IsProcessed = 040  END TRY41  BEGIN CATCH42    EXEC QBM_PSessionErrorAdd DEFAULT43    RAISERROR('',44    18,45    1)46      WITH NOWAIT47  END CATCH48END
Open raw exported source
SQL ยท Raw9 lines
1  create   procedure QBM_ZQBMPendingChangeShrink ( @Slotnumber int , @Dummy1 varchar(38) , @Dummy2 varchar(38) , @GenProcIDDummy varchar(38) ) AS2 begin declare @LifetimeSuccess int declare @LifetimeError int declare @LifetimeRunning int BEGIN TRY select top 1 @LifetimeSuccess = dbo.QBM_FCVStringToInt3(dbo.QBM_FGIConfigparmValue('QBM\PendingChange\LifeTimeSuccess'), 2)  select top 1 @LifetimeError = dbo.QBM_FCVStringToInt(dbo.QBM_FGIConfigparmValue('QBM\PendingChange\LifeTimeError'4), 36500) select top 1 @LifetimeRunning = dbo.QBM_FCVStringToInt(dbo.QBM_FGIConfigparmValue('QBM\PendingChange\LifeTimeRunning'), 60) delete QBMPendingChange5 from QBMPendingChange u where datediff(dd, u.XDateUpdated, getutcdate()) > @LifetimeSuccess and u.IsProcessed = 1 delete QBMPendingChange from QBMPendingChange6 u where datediff(dd, u.XDateUpdated, getutcdate()) > @LifetimeError and u.IsProcessed = 2 delete QBMPendingChange from QBMPendingChange u where datediff7(dd, u.XDateUpdated, getutcdate()) > @LifetimeRunning and u.IsProcessed = 0 END TRY BEGIN CATCH exec QBM_PSessionErrorAdd default RAISERROR ('', 18, 1)8 WITH NOWAIT END CATCH end 9