Back to OIM Explorer

dbo.QER_ZOrgSubTree

Stored ProcedureSQL_STORED_PROCEDURESandbox DB

Stored Procedure.

Source: sandbox-db sys.sql_modules

Source size: 888 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_PSessionErrorAdd source text reference
  • references source dbo.QER_POrgSubTree source text reference

References

Referenced By

  • No direct source references extracted.

Complete Source

SQL49 lines
1CREATE PROCEDURE QER_ZOrgSubTree(2  @SlotNumber int3)4AS5BEGIN6  DECLARE @uid_org varchar(38)7  DECLARE @SubObject varchar(38)8  DECLARE @GenProcID varchar(38)9  DECLARE @ElementBuffer QBM_YCursorBuffer10  DECLARE @ElementCount int11  DECLARE @ElementIndex int12  SET XACT_ABORT OFF13  BEGIN TRY14    INSERT INTO @ElementBuffer(UID1,15    UID2,16    UID3)17    SELECT18      UID_Parameter,19      UID_SubParameter,20      GenProcID21    FROM QBMDBQueueCurrent p22      WITH(readpast)23    WHERE24      p.SlotNumber = @SlotNumber25    SELECT @ElementCount = @@ROWCOUNT26    SELECT @ElementIndex = 127    WHILE @ElementIndex <= @ElementCount28    BEGIN29      SELECT30        TOP 1 @uid_org = bu.UID1,31        @SubObject = bu.UID2,32        @GenProcID = bu.UID333      FROM @ElementBuffer bu34      WHERE35        bu.ElementIndex = @ElementIndex36      EXEC QER_POrgSubTree @uid_org,37        @SubObject,38        @GenProcID39      SELECT @ElementIndex += 140    END41  END TRY42  BEGIN CATCH43    EXEC QBM_PSessionErrorAdd DEFAULT44    RAISERROR('',45    18,46    1)47      WITH NOWAIT48  END CATCH49END
Open raw exported source
SQL ยท Raw7 lines
1  create   procedure QER_ZOrgSubTree (@SlotNumber int) AS begin declare @uid_org varchar(38) declare @SubObject varchar(38) declare @GenProcID varchar2(38) declare @ElementBuffer QBM_YCursorBuffer declare @ElementCount int declare @ElementIndex int SET XACT_ABORT OFF BEGIN TRY insert into @ElementBuffer3 (UID1, UID2, UID3) select UID_Parameter , UID_SubParameter, GenProcID from QBMDBQueueCurrent p with (readpast) where p.SlotNumber = @SlotNumber select4 @ElementCount = @@ROWCOUNT select @ElementIndex = 1 while @ElementIndex <= @ElementCount begin select top 1 @uid_org = bu.UID1 , @SubObject = bu.UID2 5, @GenProcID = bu.UID3 from @ElementBuffer bu where bu.ElementIndex = @ElementIndex exec QER_POrgSubTree @uid_org, @SubObject, @GenProcID select @ElementIndex6 += 1 end  END TRY BEGIN CATCH exec QBM_PSessionErrorAdd default RAISERROR ('', 18, 1) WITH NOWAIT END CATCH end 7