Back to OIM Explorer

dbo.ADS_ZBaseTreeHasObject

Stored ProcedureSQL_STORED_PROCEDURESandbox DB

Stored Procedure.

Source: sandbox-db sys.sql_modules

Source size: 3.108 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_FGIModuleExists source text reference
references source dbo.QER_FCVXOriginToInheritInfo source text reference
references source dbo.QER_FGIBitPatternInheritInfo 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 ADS_ZBaseTreeHasObject(2  @SlotNumber int3)4AS5BEGIN6  DECLARE @Sourcedata QBM_YDataForDelta,7  @CountDeltaQantity int,8  @CountDeltaOrigin int9  DECLARE @QBM_BitPatternXOrigin_Inherit int = dbo.QER_FGIBitPatternInheritInfo('|Inherit|',10  0)11  DECLARE @DBQueueCurrent QBM_YDBQueueCurrent12  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>ADSGroup</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 BaseTreeHasADSGroup y58    JOIN @DBQueueCurrent x59      ON y.UID_Org= x.uid_parameter AND y.XOrigin > 0 AND y.XIsInEffect = 160    JOIN ADSGroup z61      ON z.uid_ADSGroup = y.uid_ADSGroup62    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>ADSGroup</T>%' AND oa.UID_BaseTreeAssign = 'ADS-AsgnBT-ADSGroup')87    END88    INSERT INTO @SourceData(IsUpcommingContent,89    XOriginBefore,90    Element,91    AssignedElement,92    XOriginAfter)93    SELECT94      1,95      0,96      t.Element,97      t.XObjectKey,98      @QBM_BitPatternXOrigin_Inherit99    FROM(100    SELECT101      DISTINCT ho.Element,102      p.XObjectKey103    FROM @SourceData ho104    JOIN ADSGroup g105      ON ho.AssignedElement = g.XObjectKey106    JOIN ADSGroupCollection co107      ON co.UID_ADSGroupChild = g.uid_ADSGroup108    JOIN ADSGroup p109      ON co.UID_ADSGroupParent = p.UID_ADSGroup110    WHERE111      ho.IsUpcommingContent = 1 AND co.UID_ADSGroupChild <> co.UID_ADSGroupParent) AS t berechnen:112    EXEC QBM_PDBQueueCalculateDelta @SourceData,113      @DeltaQuantity = 0,114      @DeltaDelete = 1,115      @DeltaInsert = 1,116      @DeltaOrigin = 1,117      @CountDeltaQantity = @CountDeltaQantity OUTPUT,118      @CountDeltaOrigin = @CountDeltaOrigin OUTPUT,119      @UseIsInEffect = 0,120      @SlotNumber = @SlotNumber,121      @DBQueueCurrentExtern = @DBQueueCurrent122    EXEC QER_PBasetreeHasObjectPostProc @CountDeltaOrigin,123      @CountDeltaQantity124  END TRY125  BEGIN CATCH126    EXEC QBM_PSessionErrorAdd DEFAULT127    RAISERROR('',128    18,129    1)130      WITH NOWAIT131  END CATCH132  endLabel:133END

Open raw exported source

1      create   procedure ADS_ZBaseTreeHasObject (@SlotNumber int) AS begin declare @Sourcedata QBM_YDataForDelta , @CountDeltaQantity int , @CountDeltaOrigin2 int declare @QBM_BitPatternXOrigin_Inherit int = dbo.QER_FGIBitPatternInheritInfo('|Inherit|', 0) declare @DBQueueCurrent QBM_YDBQueueCurrent BEGIN TRY3 insert into @DBQueueCurrent(UID_DialogDBQueue, UID_Parameter, UID_SubParameter, GenProcID) select UID_DialogDBQueue, UID_Parameter, UID_SubParameter, 4GenProcID from QBMDBQueueCurrent cu with (readpast) where cu.SlotNumber = @SlotNumber if @@rowcount = 0 begin goto EndLabel end insert into @SourceData5( IsUpcommingContent, XOriginAfter , Element, AssignedElement, XOriginBefore ) select 0, 0 , uid_Org, ObjectKey, InheritInfo from BaseTreeHasObject bho6 join @DBQueueCurrent x on uid_Org = x.uid_parameter where bho.ObjectKey like '<Key><T>ADSGroup</T>%'  insert into @SourceData( IsUpcommingContent, XOriginBefore7 , Element, AssignedElement, XOriginAfter ) select 1, 0 , y.UID_Org, z.XObjectKey, dbo.QER_FCVXOriginToInheritInfo(y.XOrigin) from BaseTreeHasADSGroup 8y join @DBQueueCurrent x on y.UID_Org= x.uid_parameter and y.XOrigin > 0 and y.XIsInEffect = 1 join ADSGroup z on z.uid_ADSGroup = y.uid_ADSGroup 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>ADSGroup</T>%' and oa.UID_BaseTreeAssign = 'ADS-AsgnBT-ADSGroup'14)        end   insert into @SourceData( IsUpcommingContent, XOriginBefore , Element, AssignedElement, XOriginAfter ) select 1, 0 , t.Element, t.XObjectKey15, @QBM_BitPatternXOrigin_Inherit from ( select distinct ho.Element, p.XObjectKey from @SourceData ho join ADSGroup g on ho.AssignedElement = g.XObjectKey16  join ADSGroupCollection co on co.UID_ADSGroupChild = g.uid_ADSGroup join ADSGroup p on co.UID_ADSGroupParent = p.UID_ADSGroup where ho.IsUpcommingContent17 = 1 and co.UID_ADSGroupChild <> co.UID_ADSGroupParent  ) as t         berechnen: exec QBM_PDBQueueCalculateDelta @SourceData, @DeltaQuantity = 0, @DeltaDelete18 = 1, @DeltaInsert = 1, @DeltaOrigin = 1, @CountDeltaQantity = @CountDeltaQantity output , @CountDeltaOrigin = @CountDeltaOrigin output , @UseIsInEffect19 = 0 , @SlotNumber = @SlotNumber , @DBQueueCurrentExtern = @DBQueueCurrent exec QER_PBasetreeHasObjectPostProc @CountDeltaOrigin, @CountDeltaQantity END20 TRY BEGIN CATCH exec QBM_PSessionErrorAdd default RAISERROR ('', 18, 1) WITH NOWAIT END CATCH endLabel: end 21