Back to OIM Explorer

dbo.QBM_PQBMServerHasJobService

Stored ProcedureSQL_STORED_PROCEDURESandbox DB

Stored Procedure. HOFireEvent -> QBMServer.GetDeployTargets at line 8; References QBM_PJobCreate*; References QBM_PJobCreate_HOFireEvent*

Source: sandbox-db sys.sql_modules

Source size: 1.633 characters

Interpretation

  • Database routine. Review parameters, called procedures, DBQueue inserts, and QBM_PJobCreate helper calls before assuming side effects.
  • Object-layer bridge detected through QBM_PJobCreate helper usage.

Relations

  • HOFireEvent -> QBMServer.GetDeployTargets at line 8
  • References QBM_PJobCreate*
  • References QBM_PJobCreate_HOFireEvent*

Typed Edges

  • fires event QBMServer.GetDeployTargets HOFireEvent -> QBMServer.GetDeployTargets at line 8
  • references source dbo.QBM_FCVElementToObjectKey1 source text reference
  • references source dbo.QBM_FGISessionContext source text reference
  • references source dbo.QBM_FGISessionErrorRethrow source text reference
  • references source dbo.QBM_PJobCreate source text reference
  • references source dbo.QBM_PJobCreate_HOFireEvent source text reference
  • references source dbo.QBM_PSessionContextSet source text reference
  • references source dbo.QBM_PSessionErrorAdd source text reference

References

Referenced By

Complete Source

SQL68 lines
1CREATE PROCEDURE QBM_PQBMServerHasJobService(2  @uid_QBMServer varchar(38)3)4AS5BEGIN6  DECLARE @GenProcID varchar(38) = dbo.QBM_FGISessionContext('')7  DECLARE @XUser nvarchar(64) = dbo.QBM_FGISessionContext('XUser')8  DECLARE @GenProcID_R varchar(38) = dbo.QBM_FGISessionContext('')9  DECLARE @XUser_R nvarchar(64) = dbo.QBM_FGISessionContext('XUser')10  DECLARE @WhereClause nvarchar(1000)11  DECLARE @BasisObjectKey varchar(138)12  DECLARE @Xdate datetime = getutcdate()13  SET XACT_ABORT OFF14  BEGIN TRY15    IF isnull(@XUser,16    '') = ''17    BEGIN18      SELECT @XUser =19      LEFT(Object_name(@@procid),20      64)21      EXEC QBM_PSessionContextSet 'GenProcID',22        @GenProcID23      EXEC QBM_PSessionContextSet 'XUser',24        @XUser25    END26    IF @uid_QBMServer > ' '27    BEGIN28      EXEC QBM_PSessionContextSet 'GenProcID',29        @GenProcID30      EXEC QBM_PSessionContextSet 'XUser',31        @XUser32      UPDATE QBMServer33      SET IsQBMServiceInstalled = 1,34      XDateUpdated = @Xdate,35      XUserUpdated = @XUser36      WHERE37        UID_QBMServer = @uid_QBMServer AND IsQBMServiceInstalled = 038      IF @@ROWCOUNT > 039      BEGIN40        SELECT @WhereClause = 'UID_QBMServer = ''' + @uid_QBMServer + ''''41        SELECT42          @BasisObjectKey = dbo.QBM_FCVElementToObjectKey1('QBMServer',43          'UID_QBMServer',44          @uid_QBMServer)45        EXEC QBM_PJobCreate_HOFireEvent 'QBMServer',46          @WhereClause,47        'GetDeployTargets',48          @GenProcID,49          @ObjectKeysAffected = DEFAULT,50          @BasisObjectKey = @BasisObjectKey51      END52    END53  END TRY54  BEGIN CATCH55    EXEC QBM_PSessionErrorAdd DEFAULT56    DECLARE @Rethrow varchar(1000) = dbo.QBM_FGISessionErrorRethrow()57    RAISERROR(@Rethrow,58    18,59    1)60      WITH NOWAIT61  END CATCH62  ende:63  EXEC QBM_PSessionContextSet 'GenProcID',64    @GenProcID_R65  EXEC QBM_PSessionContextSet 'XUser',66    @XUser_R67  RETURN68END
Open raw exported source
SQL ยท Raw12 lines
1  create   procedure QBM_PQBMServerHasJobService (@uid_QBMServer varchar(38) ) as begin  declare @GenProcID varchar(38) = dbo.QBM_FGISessionContext2('') declare @XUser nvarchar(64) = dbo.QBM_FGISessionContext('XUser') declare @GenProcID_R varchar(38) = dbo.QBM_FGISessionContext('') declare @XUser_R3 nvarchar(64) = dbo.QBM_FGISessionContext('XUser') declare @WhereClause nvarchar(1000) declare @BasisObjectKey varchar(138) declare @Xdate datetime = getutcdate4() SET XACT_ABORT OFF BEGIN TRY  if isnull(@XUser, '') = '' begin select @XUser = left(Object_name(@@procid), 64) exec QBM_PSessionContextSet 'GenProcID'5, @GenProcID exec QBM_PSessionContextSet 'XUser', @XUser end  if @uid_QBMServer > ' ' begin  exec QBM_PSessionContextSet 'GenProcID', @GenProcID exec QBM_PSessionContextSet6 'XUser', @XUser update QBMServer set IsQBMServiceInstalled = 1  , XDateUpdated = @Xdate , XUserUpdated = @XUser where UID_QBMServer = @uid_QBMServer and7 IsQBMServiceInstalled = 0 if @@ROWCOUNT > 0  begin select @WhereClause = 'UID_QBMServer = ''' + @uid_QBMServer + '''' select @BasisObjectKey = dbo.QBM_FCVElementToObjectKey18('QBMServer', 'UID_QBMServer', @uid_QBMServer) exec QBM_PJobCreate_HOFireEvent 'QBMServer', @WhereClause, 'GetDeployTargets', @GenProcID , @ObjectKeysAffected9 = DEFAULT , @BasisObjectKey = @BasisObjectKey end end END TRY BEGIN CATCH exec QBM_PSessionErrorAdd default declare @Rethrow varchar(1000) = dbo.QBM_FGISessionErrorRethrow10() RAISERROR (@Rethrow, 18, 1) WITH NOWAIT END CATCH  ende: exec QBM_PSessionContextSet 'GenProcID', @GenProcID_R exec QBM_PSessionContextSet 'XUser', 11@XUser_R return end 12