Back to OIM Explorer

dbo.RPS_ZOrgHasRPSReport

Stored ProcedureSQL_STORED_PROCEDURESandbox DB

Stored Procedure. Bulk DBQueue insert -> RPS-K-BaseTreeHasObject / RPS_ZBaseTreeHasObject at line 22; References QBM_PDBQueueInsert_Bulk

Source: sandbox-db sys.sql_modules

Source size: 4.234 characters

Interpretation

  • Database routine. Review parameters, called procedures, DBQueue inserts, and QBM_PJobCreate helper calls before assuming side effects.
  • DBQueue relation detected. Follow the task procedure and referenced-by list for async processing.

Relations

  • Bulk DBQueue insert -> RPS-K-BaseTreeHasObject / RPS_ZBaseTreeHasObject at line 22
  • References QBM_PDBQueueInsert_Bulk

Typed Edges

  • queues DBQueue task RPS_ZBaseTreeHasObject at line 22 Bulk DBQueue insert -> RPS-K-BaseTreeHasObject / RPS_ZBaseTreeHasObject at line 22
  • references source dbo.QBM_FGIBitPatternXOrigin source text reference
  • references source dbo.QBM_FGIConfigparmValue source text reference
  • references source dbo.QBM_FGIModuleExists source text reference
  • references source dbo.QBM_PDBQueueCalculateDelta source text reference
  • references source dbo.QBM_PDBQueueInsert_Bulk source text reference
  • references source dbo.QBM_PMNTableInsert source text reference
  • references source dbo.QBM_PMNTableOriginUpdate source text reference
  • references source dbo.QBM_PSessionErrorAdd source text reference
  • references source dbo.QER_PMNTableAddViewProperties source text reference
  • queues DBQueue task RPS-K-BaseTreeHasObject -> RPS_ZBaseTreeHasObject QBM_PDBQueueInsert_Bulk 'RPS-K-BaseTreeHasObject', @DBQueueElements_01 end end exec QBM_PDBQueueCalculateDelta @SourceData, @DeltaQuantity = 0, @DeltaDelete = 0, @DeltaInsert = 1, @DeltaOrigin = 1, @CountDeltaQantity = @CountDeltaQantity o…

References

Referenced By

  • No direct source references extracted.

Complete Source

SQL177 lines
1CREATE PROCEDURE RPS_ZOrgHasRPSReport(2  @SlotNumber int3)4AS5BEGIN6  DECLARE @GenProcID varchar(38)7  DECLARE @UID_BasetreeAssignToUse varchar(38) = 'RPS-AsgnBT-RPSReport'8  DECLARE @Sourcedata QBM_YDataForDelta,9  @CountDeltaQantity int,10  @CountDeltaOrigin int11  DECLARE @DBQueueCurrent QBM_YDBQueueCurrent12  DECLARE @QBM_BitPatternXOrigin_Inherit int = dbo.QBM_FGIBitPatternXOrigin('|Inherit|',13  0)14  DECLARE @QBM_BitPatternXOrigin_Inherit_inv int = dbo.QBM_FGIBitPatternXOrigin('|Inherit|',15  1)16  BEGIN TRY17    INSERT INTO @DBQueueCurrent(UID_DialogDBQueue,18    UID_Parameter,19    UID_SubParameter,20    GenProcID)21    SELECT22      UID_DialogDBQueue,23      UID_Parameter,24      UID_SubParameter,25      GenProcID26    FROM QBMDBQueueCurrent cu27      WITH(readpast)28    WHERE29      cu.SlotNumber = @SlotNumber30    IF @@rowcount = 031    BEGIN32      GOTO EndLabel33    END34    INSERT INTO @SourceData(IsUpcommingContent,35    XOriginAfter,36    Element,37    AssignedElement,38    XOriginBefore,39    XIsInEffectBefore)40    SELECT41      0,42      0,43      oha.uid_org,44      oha.uid_RPSReport,45      oha.XOrigin,46      oha.XIsInEffect47    FROM BaseTreeHasRPSReport oha48    JOIN @DBQueueCurrent x49      ON oha.uid_org =x.uid_parameter50    INSERT INTO @SourceData(IsUpcommingContent,51    XOriginBefore,52    XOriginAfter,53    Element,54    AssignedElement,55    XIsInEffectAfter)56    SELECT57      1,58      0,59      oha.XOrigin & @QBM_BitPatternXOrigin_Inherit_inv,60      oha.uid_org,61      oha.uid_RPSReport,62      163    FROM BaseTreeHasRPSReport oha64    JOIN @DBQueueCurrent x65      ON oha.uid_org = x.uid_parameter66    JOIN RPSReport r67      ON oha.uid_RPSReport = r.UID_RPSReport68    WHERE69      oha.XOrigin & @QBM_BitPatternXOrigin_Inherit_inv > 070    INSERT INTO @SourceData(IsUpcommingContent,71    XOriginBefore,72    Element,73    AssignedElement,74    XOriginAfter,75    XIsInEffectAfter)76    SELECT77      1,78      0,79      x.uid_parameter,80      oha.uid_RPSReport,81      @QBM_BitPatternXOrigin_Inherit,82      183    FROM @DBQueueCurrent x84    JOIN BaseTreeCollection oc85      ON oc.uid_org = x.uid_parameter AND oc.uid_org <> oc.uid_parentorg86    JOIN BaseTreeHasRPSReport oha87      ON oha.uid_org = oc.uid_parentorg AND oha.XOrigin > 0 AND oha.XIsInEffect = 188    JOIN RPSReport r89      ON oha.uid_RPSReport = r.UID_RPSReport AND r.IsInactive = 0 AND r.IsDeactivatedByPreProcessor = 090    WHERE91      oha.XOrigin & @QBM_BitPatternXOrigin_Inherit_inv > 092    IF dbo.QBM_FGIModuleExists('RMS') = 193    BEGIN94      IF dbo.QBM_FGIConfigparmValue('QER\Structures\Inherite\NoESetSplitting') = ''95      BEGIN96        INSERT INTO @SourceData(IsUpcommingContent,97        XOriginBefore,98        Element,99        AssignedElement,100        XOriginAfter,101        XIsInEffectAfter)102        SELECT103          1,104          0,105          x.uid_parameter,106          y.uid_RPSReport,107          @QBM_BitPatternXOrigin_Inherit,108          1109        FROM @DBQueueCurrent x110        JOIN BaseTreeHasEset bhe111          ON x.uid_Parameter = bhe.uid_org AND bhe.XOrigin > 0 AND bhe.XIsInEffect = 1112        JOIN ESetHasEntitlement ehe113          ON bhe.uid_ESet = ehe.uid_ESet AND ehe.XOrigin > 0 AND ehe.XIsInEffect = 1114        JOIN RPSReport y115          ON ehe.entitlement = y.XObjectKey AND y.IsInactive = 0 AND y.IsDeactivatedByPreProcessor = 0116        JOIN BaseTree b117          ON bhe.UID_Org = b.UID_Org AND NOT(b.UID_OrgRoot IN('QER-V-ITShopOrg', 'QER-V-ITShopSrc') AND b.ITShopInfo IN('BO',118        'PR', 'BG', 'BT'))119        JOIN OrgRootAssign oa120          ON oa.UID_OrgRoot = b.UID_OrgRoot AND oa.UID_BaseTreeAssign = @UID_BasetreeAssignToUse AND oa.IsAssignmentAllowed = 1121      END122      ELSE123      BEGIN124        DECLARE @DBQueueElements_01 QBM_YDBQueueRaw125        INSERT INTO @DBQueueElements_01(object,126        subobject,127        genprocid)128        SELECT129          x.uid,130          NULL,131          x.GenProcID132        FROM(133        SELECT134          cu.UID_Parameter AS uid,135          cu.GenProcID136        FROM @DBQueueCurrent cu) AS x137        EXEC QBM_PDBQueueInsert_Bulk 'RPS-K-BaseTreeHasObject',138          @DBQueueElements_01139      END140    END141    EXEC QBM_PDBQueueCalculateDelta @SourceData,142      @DeltaQuantity = 0,143      @DeltaDelete = 0,144      @DeltaInsert = 1,145      @DeltaOrigin = 1,146      @CountDeltaQantity = @CountDeltaQantity OUTPUT,147      @CountDeltaOrigin = @CountDeltaOrigin OUTPUT,148      @UseIsInEffect = 1,149      @SlotNumber = @SlotNumber,150      @DBQueueCurrentExtern = @DBQueueCurrent151    IF @CountDeltaOrigin > 0152    BEGIN153      EXEC QBM_PMNTableOriginUpdate 'BaseTreeHasRPSReport',154      'UID_Org',155      'UID_RPSReport'156    END157    IF @CountDeltaQantity > 0158    BEGIN159      EXEC QER_PMNTableAddViewProperties 'BaseTreeHasRPSReport'160      EXEC QBM_PMNTableInsert 'BaseTreeHasRPSReport',161      'UID_Org',162      'UID_RPSReport',163        @TargetIsView = 1,164        @FKTableNameElement = 'BaseTree',165        @FKColumnNameElement = 'UID_Org'166    END167  END TRY168  BEGIN CATCH169    EXEC QBM_PSessionErrorAdd DEFAULT170    RAISERROR('',171    18,172    1)173      WITH NOWAIT174  END CATCH175  endLabel:176  RETURN177END
Open raw exported source
SQL · Raw28 lines
1    create   procedure RPS_ZOrgHasRPSReport(@SlotNumber int) AS begin declare @GenProcID varchar(38) declare @UID_BasetreeAssignToUse varchar(382) = 'RPS-AsgnBT-RPSReport' declare @Sourcedata QBM_YDataForDelta , @CountDeltaQantity int , @CountDeltaOrigin int declare @DBQueueCurrent QBM_YDBQueueCurrent3 declare @QBM_BitPatternXOrigin_Inherit int = dbo.QBM_FGIBitPatternXOrigin('|Inherit|', 0) declare @QBM_BitPatternXOrigin_Inherit_inv int = dbo.QBM_FGIBitPatternXOrigin4('|Inherit|', 1)  BEGIN TRY insert into @DBQueueCurrent(UID_DialogDBQueue, UID_Parameter, UID_SubParameter, GenProcID) select UID_DialogDBQueue, UID_Parameter5, UID_SubParameter, GenProcID from QBMDBQueueCurrent cu with (readpast) where cu.SlotNumber = @SlotNumber if @@rowcount = 0 begin goto EndLabel end insert6 into @SourceData( IsUpcommingContent, XOriginAfter , Element, AssignedElement, XOriginBefore , XIsInEffectBefore ) select 0, 0 , oha.uid_org, oha.uid_RPSReport7, oha.XOrigin , oha.XIsInEffect from BaseTreeHasRPSReport oha join @DBQueueCurrent x on oha.uid_org =x.uid_parameter insert into @SourceData( IsUpcommingContent8, XOriginBefore, XOriginAfter , Element, AssignedElement , XIsInEffectAfter ) select 1, 0, oha.XOrigin & @QBM_BitPatternXOrigin_Inherit_inv , oha.uid_org9, oha.uid_RPSReport , 1 from BaseTreeHasRPSReport oha join @DBQueueCurrent x on oha.uid_org = x.uid_parameter  join RPSReport r on oha.uid_RPSReport = 10r.UID_RPSReport     where oha.XOrigin & @QBM_BitPatternXOrigin_Inherit_inv > 0 insert into @SourceData( IsUpcommingContent, XOriginBefore , Element, AssignedElement11, XOriginAfter , XIsInEffectAfter ) select 1, 0 , x.uid_parameter, oha.uid_RPSReport, @QBM_BitPatternXOrigin_Inherit , 1 from @DBQueueCurrent x join BaseTreeCollection12 oc on oc.uid_org = x.uid_parameter and oc.uid_org <> oc.uid_parentorg join BaseTreeHasRPSReport oha on oha.uid_org = oc.uid_parentorg and oha.XOrigin 13> 0 and oha.XIsInEffect = 1 join RPSReport r on oha.uid_RPSReport = r.UID_RPSReport and r.IsInactive = 0 and r.IsDeactivatedByPreProcessor = 0  where oha.XOrigin14 & @QBM_BitPatternXOrigin_Inherit_inv > 0 if dbo.QBM_FGIModuleExists('RMS') = 1 begin if dbo.QBM_FGIConfigparmValue('QER\Structures\Inherite\NoESetSplitting'15) = '' begin insert into @SourceData( IsUpcommingContent, XOriginBefore , Element, AssignedElement, XOriginAfter , XIsInEffectAfter ) select 1, 0 , x.uid_parameter16, y.uid_RPSReport, @QBM_BitPatternXOrigin_Inherit  , 1 from @DBQueueCurrent x join BaseTreeHasEset bhe on x.uid_Parameter = bhe.uid_org and bhe.XOrigin17 > 0 and bhe.XIsInEffect = 1 join ESetHasEntitlement ehe on bhe.uid_ESet = ehe.uid_ESet and ehe.XOrigin > 0 and ehe.XIsInEffect = 1 join RPSReport y on18 ehe.entitlement = y.XObjectKey and y.IsInactive = 0 and y.IsDeactivatedByPreProcessor = 0 join BaseTree b on bhe.UID_Org = b.UID_Org  and not (b.UID_OrgRoot19 in ( 'QER-V-ITShopOrg', 'QER-V-ITShopSrc') and b.ITShopInfo in ( 'BO', 'PR', 'BG', 'BT') ) join OrgRootAssign oa on oa.UID_OrgRoot = b.UID_OrgRoot and20 oa.UID_BaseTreeAssign = @UID_BasetreeAssignToUse and oa.IsAssignmentAllowed = 1 end  else begin  declare @DBQueueElements_01 QBM_YDBQueueRaw insert into21 @DBQueueElements_01 (object, subobject, genprocid) select x.uid, null, x.GenProcID from ( select cu.UID_Parameter as uid, cu.GenProcID from @DBQueueCurrent22 cu ) as x exec QBM_PDBQueueInsert_Bulk 'RPS-K-BaseTreeHasObject', @DBQueueElements_01 end end  exec QBM_PDBQueueCalculateDelta @SourceData, @DeltaQuantity23 = 0, @DeltaDelete = 0, @DeltaInsert = 1, @DeltaOrigin = 1, @CountDeltaQantity = @CountDeltaQantity output , @CountDeltaOrigin = @CountDeltaOrigin output24 , @UseIsInEffect = 1 , @SlotNumber = @SlotNumber , @DBQueueCurrentExtern = @DBQueueCurrent if @CountDeltaOrigin > 0 begin exec QBM_PMNTableOriginUpdate25 'BaseTreeHasRPSReport', 'UID_Org', 'UID_RPSReport' end if @CountDeltaQantity > 0 begin exec QER_PMNTableAddViewProperties 'BaseTreeHasRPSReport' exec 26QBM_PMNTableInsert 'BaseTreeHasRPSReport', 'UID_Org', 'UID_RPSReport', @TargetIsView = 1 , @FKTableNameElement = 'BaseTree' , @FKColumnNameElement = 'UID_Org'27 end END TRY BEGIN CATCH exec QBM_PSessionErrorAdd default RAISERROR ('', 18, 1) WITH NOWAIT END CATCH endLabel: return end 28