Back to OIM Explorer

dbo.QBM_ZMakeConstraint

Stored ProcedureSQL_STORED_PROCEDURESandbox DB

Stored Procedure.

Source: sandbox-db sys.sql_modules

Source size: 904 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_PDBQueueCurrentResetNGen source text reference
  • references source dbo.QBM_PMakeConstraint source text reference
  • references source dbo.QBM_PSessionErrorAdd source text reference

References

Referenced By

  • No direct source references extracted.

Complete Source

SQL49 lines
1CREATE PROCEDURE QBM_ZMakeConstraint(2  @SlotNumber int,3  @TableName varchar(38),4  @Dummy2 varchar(38),5  @GenProcID varchar(38)6)7AS8BEGIN9  DECLARE @msg nvarchar(1000)10  DECLARE @ResetMessage nvarchar(4000)11  DECLARE @DebugLevel char(1) = 'W'12  SET XACT_ABORT OFF13  BEGIN TRY14    BEGIN TRY15      IF EXISTS(16        SELECT TOP 1 117        FROM QBM_VQBMRelation18        WHERE19          GenerateChild = 'INV' AND(ChildTable = @TableName OR ParentTable = @TableName))20      BEGIN21        SELECT @msg = '#LDS#Invalid refential integrity for table {0}.|' + @TableName + N '|'22        RAISERROR(@msg,23        18,24        2)25          WITH nowait26      END27      EXEC QBM_PMakeConstraint @TableName28    END TRY29    BEGIN CATCH30      SELECT @ResetMessage = ERROR_MESSAGE()31      IF @@TRANCOUNT > 032      BEGIN33        ROLLBACK34      END35      EXEC QBM_PDBQueueCurrentResetNGen @SlotNumber,36        @ResetMessage,37        @@PROCID38    END CATCH39  END TRY40  BEGIN CATCH41    EXEC QBM_PSessionErrorAdd DEFAULT42    RAISERROR('',43    18,44    1)45      WITH NOWAIT46  END CATCH47  endLabel:48  RETURN49END
Open raw exported source
SQL ยท Raw7 lines
1  create   procedure QBM_ZMakeConstraint (@SlotNumber int , @TableName varchar(38) , @Dummy2 varchar(38) , @GenProcID varchar(38) ) as begin  declare2 @msg nvarchar(1000) declare @ResetMessage nvarchar(4000)  declare @DebugLevel char(1) = 'W'  SET XACT_ABORT OFF BEGIN TRY     BEGIN TRY if exists (select3 top 1 1 from QBM_VQBMRelation where GenerateChild = 'INV'  and ( ChildTable = @TableName or ParentTable = @TableName ) ) begin select @msg = '#LDS#Invalid refential integrity for table {0}.|'4 + @TableName + N'|'  raiserror(@msg, 18, 2) with nowait end exec QBM_PMakeConstraint @TableName END TRY  BEGIN CATCH select @ResetMessage = ERROR_MESSAGE5() if @@TRANCOUNT > 0 begin rollback end exec QBM_PDBQueueCurrentResetNGen @SlotNumber , @ResetMessage , @@PROCID END CATCH END TRY BEGIN CATCH exec QBM_PSessionErrorAdd6 default RAISERROR ('', 18, 1) WITH NOWAIT END CATCH endLabel: return end 7