Back to OIM Explorer

dbo.QBM_ZForeignKeyRepair

Stored ProcedureSQL_STORED_PROCEDURESandbox DB

Stored Procedure.

Source: sandbox-db sys.sql_modules

Source size: 1.247 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_PForeignKeyWrongRepair source text reference
  • references source dbo.QBM_PForeignKeyWrongReport source text reference
  • references source dbo.QBM_PJournal source text reference
  • references source dbo.QBM_PSessionErrorAdd source text reference

Complete Source

SQL53 lines
1CREATE PROCEDURE QBM_ZForeignKeyRepair(2  @SlotNumberDummy int,3  @uid_Module varchar(38),4  @TableName varchar(38),5  @GenProcIDDummy varchar(38)6)7AS8BEGIN9  DECLARE @ModuleName varchar(3)10  DECLARE @Message nvarchar(2000)11  DECLARE @DebugLevel varchar(1) = 'W'12  DECLARE @CountRows int13  BEGIN TRY14    SELECT @ModuleName =15    LEFT(@uid_module,16    3)17    IF @DebugLevel IN('D',18    'T')19    BEGIN20      SELECT @Message = 'ForeignKeyRepair for ' + @ModuleName + '.' + @TableName21      EXEC @CountRows = QBM_PForeignKeyWrongreport @ChildTablePattern = '%',22        @ChildColumnPattern = '%',23        @ParentTablePattern = @TableName,24        @ParentColumnPattern = '%',25        @OwnerOfParent = @ModuleName26      SELECT @Message = @Message + STR(@CountRows) + ' row(s) affected'27      EXEC QBM_PJournal @message,28        @@procid,29      'D',30        @DebugLevel31    END32    EXEC QBM_PForeignKeyWrongRepair @ChildTablePattern = '%',33      @ChildColumnPattern = '%',34      @ParentTablePattern = @TableName,35      @ParentColumnPattern = '%',36      @RepairOnlyNonExistingModule = 0,37      @OwnerOfParent = @ModuleName38    SELECT @Message = 'executed  ForeignKeyRepair for ' + @ModuleName + '.' + @TableName39    EXEC QBM_PJournal @message,40      @@procid,41    'T',42      @DebugLevel43  END TRY44  BEGIN CATCH45    EXEC QBM_PSessionErrorAdd DEFAULT46    RAISERROR('',47    18,48    1)49      WITH NOWAIT50  END CATCH51  ende:52  RETURN53END
Open raw exported source
SQL ยท Raw10 lines
1   create   procedure QBM_ZForeignKeyRepair (@SlotNumberDummy int , @uid_Module varchar(38) , @TableName varchar(38) , @GenProcIDDummy varchar(382) ) AS begin declare @ModuleName varchar(3) declare @Message nvarchar(2000) declare @DebugLevel varchar(1) = 'W' declare @CountRows int BEGIN TRY select3 @ModuleName = LEFT(@uid_module, 3) if @DebugLevel in ('D', 'T') begin select @Message = 'ForeignKeyRepair for ' + @ModuleName + '.' + @TableName exec 4@CountRows = QBM_PForeignKeyWrongreport @ChildTablePattern ='%' , @ChildColumnPattern = '%' , @ParentTablePattern = @TableName , @ParentColumnPattern =5 '%' , @OwnerOfParent = @ModuleName select @Message = @Message + STR(@CountRows) + ' row(s) affected' exec QBM_PJournal @message, @@procid, 'D', @DebugLevel6 end exec QBM_PForeignKeyWrongRepair @ChildTablePattern ='%' , @ChildColumnPattern = '%' , @ParentTablePattern = @TableName , @ParentColumnPattern = '%'7 , @RepairOnlyNonExistingModule = 0 , @OwnerOfParent = @ModuleName select @Message = 'executed  ForeignKeyRepair for ' + @ModuleName + '.' + @TableName8 exec QBM_PJournal @message, @@procid, 'T', @DebugLevel END TRY BEGIN CATCH exec QBM_PSessionErrorAdd default RAISERROR ('', 18, 1) WITH NOWAIT END CATCH9 ende: return end 10