Back to OIM Explorer

dbo.ADS_RADSMachineInADSGroup

Stored ProcedureSQL_STORED_PROCEDURESandbox DB

Stored Procedure.

Source: sandbox-db sys.sql_modules

Source size: 2.105 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.DPR_FGIProjectionRootRunning source text reference
  • references source dbo.DPR_PSlotResetWhileProj_L source text reference
  • references source dbo.QBM_PSessionErrorAdd source text reference
  • references source dbo.QBM_PSlotResetOnMissingItem_L source text reference
  • references source dbo.QBM_PSlotResetWhileJobRun_L source text reference

References

Referenced By

  • No direct source references extracted.

Complete Source

SQL97 lines
1CREATE PROCEDURE ADS_RADSMachineInADSGroup(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  BEGIN TRY12    INSERT INTO @DBQueueCurrent(UID_DialogDBQueue,13    UID_Parameter,14    UID_SubParameter,15    GenProcID)16    SELECT17      UID_DialogDBQueue,18      UID_Parameter,19      UID_SubParameter,20      GenProcID21    FROM QBMDBQueueCurrent cu22      WITH(readpast)23    WHERE24      cu.SlotNumber = @SlotNumber25    IF @@rowcount = 026    BEGIN27      GOTO EndLabel28    END29    EXEC @resetted = QBM_PSlotResetOnMissingItem_L @DBQueueCurrent,30    'ADSMachine',31    'uid_ADSMachine',32      @SlotNumber33    IF @resetted > 034    BEGIN35      DELETE @DBQueueCurrent36      FROM @DBQueueCurrent v37      LEFT38      OUTER39      JOIN QBMDBQueueCurrent cu40        WITH(readpast)41        ON v.UID_DialogDBQueue = cu.UID_DialogDBQueue AND cu.SlotNumber = @SlotNumber42      WHERE43        cu.UID_DialogDBQueue IS NULL44    END45    IF 1 = dbo.DPR_FGIProjectionRootRunning('ADSDomain')46    BEGIN47      INSERT INTO @ObjectKeysToCheck_Projection(Parameter1,48      Parameter2)49      SELECT50        cu.UID_Parameter,51        ro.ObjectKeyRoot52      FROM @DBQueueCurrent cu53      JOIN ADSMachine a54        ON a.UID_ADSMachine = cu.UID_Parameter55      JOIN ADS_VElementAndRoot ro56        ON a.XObjectKey = ro.ObjectKeyElement57      WHERE58        ro.ElementTable = 'ADSMachine'59      EXEC @resetted = DPR_PSlotResetWhileProj_L @DBQueueCurrent,60        @ObjectKeysToCheck_Projection,61        @MyName,62        @SlotNumber63      IF @resetted > 064      BEGIN65        DELETE @DBQueueCurrent66        FROM @DBQueueCurrent v67        LEFT68        OUTER69        JOIN QBMDBQueueCurrent cu70          WITH(readpast)71          ON v.UID_DialogDBQueue = cu.UID_DialogDBQueue AND cu.SlotNumber = @SlotNumber72        WHERE73          cu.UID_DialogDBQueue IS NULL74      END75    END76    INSERT INTO @ObjectKeysToCheck_Jobrunning(Parameter1,77    Parameter2)78    SELECT79      cu.UID_Parameter,80      x.XObjectKey81    FROM @DBQueueCurrent cu82    JOIN ADSMachine x83      ON cu.UID_Parameter = x.UID_ADSMachine84    EXEC @resetted = QBM_PSlotResetWhileJobRun_L @DBQueueCurrent,85      @@PROCID,86      @ObjectKeysToCheck_Jobrunning,87      @SlotNumber = @SlotNumber88  END TRY89  BEGIN CATCH90    EXEC QBM_PSessionErrorAdd DEFAULT91    RAISERROR('',92    18,93    1)94      WITH NOWAIT95  END CATCH96  endLabel:97END
Open raw exported source
SQL ยท Raw14 lines
1create   procedure ADS_RADSMachineInADSGroup (@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 BEGIN TRY insert3 into @DBQueueCurrent(UID_DialogDBQueue, UID_Parameter, UID_SubParameter, GenProcID) select UID_DialogDBQueue, UID_Parameter, UID_SubParameter, GenProcID4 from QBMDBQueueCurrent cu with (readpast) where cu.SlotNumber = @SlotNumber if @@rowcount = 0 begin goto EndLabel end  exec @resetted = QBM_PSlotResetOnMissingItem_L5 @DBQueueCurrent, 'ADSMachine', 'uid_ADSMachine', @SlotNumber if @resetted > 0 begin delete  @DBQueueCurrent from @DBQueueCurrent v left outer join QBMDBQueueCurrent6 cu with (readpast) on v.UID_DialogDBQueue = cu.UID_DialogDBQueue and cu.SlotNumber = @SlotNumber where cu.UID_DialogDBQueue is null end if 1 = dbo.DPR_FGIProjectionRootRunning7 ('ADSDomain') begin insert into @ObjectKeysToCheck_Projection(Parameter1, Parameter2) select cu.UID_Parameter, ro.ObjectKeyRoot from @DBQueueCurrent cu8 join ADSMachine a on a.UID_ADSMachine = cu.UID_Parameter join ADS_VElementAndRoot ro on a.XObjectKey = ro.ObjectKeyElement  where ro.ElementTable = 'ADSMachine'9 exec @resetted = DPR_PSlotResetWhileProj_L @DBQueueCurrent, @ObjectKeysToCheck_Projection, @MyName, @SlotNumber if @resetted > 0 begin delete  @DBQueueCurrent10 from @DBQueueCurrent v left outer join QBMDBQueueCurrent cu with (readpast) on v.UID_DialogDBQueue = cu.UID_DialogDBQueue and cu.SlotNumber = @SlotNumber11 where cu.UID_DialogDBQueue is null end end  insert into @ObjectKeysToCheck_Jobrunning(Parameter1, Parameter2) select cu.UID_Parameter, x.XObjectKey from12 @DBQueueCurrent cu join ADSMachine x on cu.UID_Parameter = x.UID_ADSMachine exec @resetted = QBM_PSlotResetWhileJobRun_L @DBQueueCurrent, @@PROCID, @ObjectKeysToCheck_Jobrunning13, @SlotNumber = @SlotNumber  END TRY BEGIN CATCH exec QBM_PSessionErrorAdd default RAISERROR ('', 18, 1) WITH NOWAIT END CATCH endLabel: end 14