Back to OIM Explorer

dbo.RPS_ZBaseTreeHasObject

Stored ProcedureSQL_STORED_PROCEDURESandbox DB

Stored Procedure.

Source: sandbox-db sys.sql_modules

Source size: 2.587 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_FGIBitPatternXOrigin source text reference
references source dbo.QBM_FGIModuleExists source text reference
references source dbo.QER_FCVXOriginToInheritInfo source text reference
references source dbo.QBM_PDBQueueCalculateDelta source text reference
references source dbo.QBM_PSessionErrorAdd source text reference
references source dbo.QER_PBasetreeHasObjectPostProc source text reference

References

Referenced By

No direct source references extracted.

Complete Source

1CREATE PROCEDURE RPS_ZBaseTreeHasObject(2  @SlotNumber int3)4AS5BEGIN6  DECLARE @Sourcedata QBM_YDataForDelta,7  @CountDeltaQantity int,8  @CountDeltaOrigin int9  DECLARE @DBQueueCurrent QBM_YDBQueueCurrent10  DECLARE @QBM_BitPatternXOrigin_Inherit int = dbo.QBM_FGIBitPatternXOrigin('|Inherit|',11  0)12  BEGIN TRY13    INSERT INTO @DBQueueCurrent(UID_DialogDBQueue,14    UID_Parameter,15    UID_SubParameter,16    GenProcID)17    SELECT18      UID_DialogDBQueue,19      UID_Parameter,20      UID_SubParameter,21      GenProcID22    FROM QBMDBQueueCurrent cu23      WITH(readpast)24    WHERE25      cu.SlotNumber = @SlotNumber26    IF @@rowcount = 027    BEGIN28      GOTO EndLabel29    END30    INSERT INTO @SourceData(IsUpcommingContent,31    XOriginAfter,32    Element,33    AssignedElement,34    XOriginBefore)35    SELECT36      0,37      0,38      uid_Org,39      ObjectKey,40      InheritInfo41    FROM BaseTreeHasObject bho42    JOIN @DBQueueCurrent x43      ON uid_Org = x.uid_parameter44    WHERE45      bho.ObjectKey LIKE '<Key><T>RPSReport</T>%'46    INSERT INTO @SourceData(IsUpcommingContent,47    XOriginBefore,48    Element,49    AssignedElement,50    XOriginAfter)51    SELECT52      1,53      0,54      y.UID_Org,55      z.XObjectKey,56      dbo.QER_FCVXOriginToInheritInfo(y.XOrigin)57    FROM BaseTreeHasRPSReport y58    JOIN @DBQueueCurrent x59      ON y.UID_Org= x.uid_parameter AND y.XOrigin > 0 AND y.XIsInEffect = 160    JOIN RPSReport z61      ON z.uid_RPSReport = y.uid_RPSReport62    IF dbo.QBM_FGIModuleExists('RMS') = 163    BEGIN64      INSERT INTO @SourceData(IsUpcommingContent,65      XOriginBefore,66      Element,67      AssignedElement,68      XOriginAfter)69      SELECT70        1,71        0,72        y.UID_Org,73        ehe.Entitlement,74        dbo.QER_FCVXOriginToInheritInfo(@QBM_BitPatternXOrigin_Inherit)75      FROM BaseTreeHasESet y76      JOIN @DBQueueCurrent x77        ON y.UID_Org = x.uid_parameter AND y.XOrigin > 0 AND y.XIsInEffect = 178      JOIN ESetHasEntitlement ehe79        ON ehe.UID_ESet = y.UID_ESet AND ehe.XOrigin > 0 AND ehe.XIsInEffect = 180      JOIN BaseTree b81        ON y.UID_Org = b.UID_Org AND NOT(b.UID_OrgRoot IN('QER-V-ITShopOrg', 'QER-V-ITShopSrc') AND b.ITShopInfo IN('BO',82      'PR', 'BG', 'BT'))83      JOIN OrgRootAssign oa84        ON oa.UID_OrgRoot = b.UID_OrgRoot AND oa.IsAssignmentAllowed = 185      WHERE86        (ehe.Entitlement LIKE '<Key><T>RPSReport</T>%' AND oa.UID_BaseTreeAssign = 'RPS-AsgnBT-RPSReport')87    END88    berechnen:89    EXEC QBM_PDBQueueCalculateDelta @SourceData,90      @DeltaQuantity = 0,91      @DeltaDelete = 1,92      @DeltaInsert = 1,93      @DeltaOrigin = 1,94      @CountDeltaQantity = @CountDeltaQantity OUTPUT,95      @CountDeltaOrigin = @CountDeltaOrigin OUTPUT,96      @UseIsInEffect = 0,97      @SlotNumber = @SlotNumber,98      @DBQueueCurrentExtern = @DBQueueCurrent99    EXEC QER_PBasetreeHasObjectPostProc @CountDeltaOrigin,100      @CountDeltaQantity101  END TRY102  BEGIN CATCH103    EXEC QBM_PSessionErrorAdd DEFAULT104    RAISERROR('',105    18,106    1)107      WITH NOWAIT108  END CATCH109  endLabel:110END

Open raw exported source

1      create   procedure RPS_ZBaseTreeHasObject (@SlotNumber int) AS begin declare @Sourcedata QBM_YDataForDelta , @CountDeltaQantity int , @CountDeltaOrigin2 int declare @DBQueueCurrent QBM_YDBQueueCurrent declare @QBM_BitPatternXOrigin_Inherit int = dbo.QBM_FGIBitPatternXOrigin('|Inherit|', 0)  BEGIN TRY insert3 into @DBQueueCurrent(UID_DialogDBQueue, UID_Parameter, UID_SubParameter, GenProcID) select UID_DialogDBQueue, UID_Parameter, UID_SubParameter, GenProcID4 from QBMDBQueueCurrent cu with (readpast) where cu.SlotNumber = @SlotNumber if @@rowcount = 0 begin goto EndLabel end insert into @SourceData( IsUpcommingContent5, XOriginAfter , Element, AssignedElement, XOriginBefore ) select 0, 0 , uid_Org, ObjectKey, InheritInfo from BaseTreeHasObject bho join @DBQueueCurrent6 x on uid_Org = x.uid_parameter where bho.ObjectKey like '<Key><T>RPSReport</T>%'  insert into @SourceData( IsUpcommingContent, XOriginBefore , Element7, AssignedElement, XOriginAfter ) select 1, 0 , y.UID_Org, z.XObjectKey, dbo.QER_FCVXOriginToInheritInfo(y.XOrigin) from BaseTreeHasRPSReport y join @DBQueueCurrent8 x on y.UID_Org= x.uid_parameter and y.XOrigin > 0 and y.XIsInEffect = 1 join RPSReport z on z.uid_RPSReport = y.uid_RPSReport if dbo.QBM_FGIModuleExists9('RMS') = 1 begin insert into @SourceData( IsUpcommingContent, XOriginBefore , Element, AssignedElement, XOriginAfter ) select 1, 0 , y.UID_Org, ehe.Entitlement10, dbo.QER_FCVXOriginToInheritInfo(@QBM_BitPatternXOrigin_Inherit) from BaseTreeHasESet y join @DBQueueCurrent x on y.UID_Org = x.uid_parameter and y.XOrigin11 > 0 and y.XIsInEffect = 1 join ESetHasEntitlement ehe on ehe.UID_ESet = y.UID_ESet and ehe.XOrigin > 0 and ehe.XIsInEffect = 1 join BaseTree b on y.UID_Org12 = b.UID_Org  and not (b.UID_OrgRoot in ( 'QER-V-ITShopOrg', 'QER-V-ITShopSrc') and b.ITShopInfo in ( 'BO', 'PR', 'BG', 'BT') ) join OrgRootAssign oa on13 oa.UID_OrgRoot = b.UID_OrgRoot and oa.IsAssignmentAllowed = 1 where (ehe.Entitlement like '<Key><T>RPSReport</T>%' and oa.UID_BaseTreeAssign = 'RPS-AsgnBT-RPSReport'14)        end  berechnen: exec QBM_PDBQueueCalculateDelta @SourceData, @DeltaQuantity = 0, @DeltaDelete = 1, @DeltaInsert = 1, @DeltaOrigin = 1, @CountDeltaQantity15 = @CountDeltaQantity output , @CountDeltaOrigin = @CountDeltaOrigin output , @UseIsInEffect = 0 , @SlotNumber = @SlotNumber , @DBQueueCurrentExtern = 16@DBQueueCurrent exec QER_PBasetreeHasObjectPostProc @CountDeltaOrigin, @CountDeltaQantity END TRY BEGIN CATCH exec QBM_PSessionErrorAdd default RAISERROR17 ('', 18, 1) WITH NOWAIT END CATCH endLabel: end 18