Back to OIM Explorer

dbo.QER_ZBaseTreeHasObject

Stored ProcedureSQL_STORED_PROCEDURESandbox DB

Stored Procedure.

Source: sandbox-db sys.sql_modules

Source size: 3.884 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

dbo.QER_ZBaseTreeHasObjectExtAtt

Complete Source

1CREATE PROCEDURE QER_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      bho.InheritInfo41    FROM BaseTreeHasObject bho42    JOIN @DBQueueCurrent x43      ON uid_Org = x.uid_parameter44    WHERE45      bho.ObjectKey LIKE '<Key><T>QERAssign</T>%' OR bho.ObjectKey LIKE '<Key><T>QERResource</T>%' OR bho.ObjectKey LIKE '<Key><T>QERReuse</T>%' OR46    bho.ObjectKey LIKE '<Key><T>QERReuseUS</T>%'47    INSERT INTO @SourceData(IsUpcommingContent,48    XOriginBefore,49    Element,50    AssignedElement,51    XOriginAfter)52    SELECT53      1,54      0,55      y.UID_Org,56      z.XObjectKey,57      dbo.QER_FCVXOriginToInheritInfo(y.XOrigin)58    FROM BaseTreeHasQERAssign y59    JOIN @DBQueueCurrent x60      ON y.UID_Org= x.uid_parameter AND y.XOrigin > 0 AND y.XIsInEffect = 161    JOIN QERAssign z62      ON z.uid_QERAssign = y.uid_QERAssign63    UNION all64    SELECT65      1,66      0,67      y.UID_Org,68      z.XObjectKey,69      dbo.QER_FCVXOriginToInheritInfo(y.XOrigin)70    FROM BaseTreeHasQERResource y71    JOIN @DBQueueCurrent x72      ON y.UID_Org= x.uid_parameter AND y.XOrigin > 0 AND y.XIsInEffect = 173    JOIN QERResource z74      ON z.uid_QERResource = y.uid_QERResource75    UNION all76    SELECT77      1,78      0,79      y.UID_Org,80      z.XObjectKey,81      dbo.QER_FCVXOriginToInheritInfo(y.XOrigin)82    FROM BaseTreeHasQERReuse y83    JOIN @DBQueueCurrent x84      ON y.UID_Org= x.uid_parameter AND y.XOrigin > 0 AND y.XIsInEffect = 185    JOIN QERReuse z86      ON z.uid_QERReuse = y.uid_QERReuse87    UNION all88    SELECT89      1,90      0,91      y.UID_Org,92      z.XObjectKey,93      dbo.QER_FCVXOriginToInheritInfo(y.XOrigin)94    FROM BaseTreeHasQERReuseUS y95    JOIN @DBQueueCurrent x96      ON y.UID_Org= x.uid_parameter AND y.XOrigin > 0 AND y.XIsInEffect = 197    JOIN QERReuseUS z98      ON z.uid_QERReuseUS = y.uid_QERReuseUS99    IF dbo.QBM_FGIModuleExists('RMS') = 1100    BEGIN101      INSERT INTO @SourceData(IsUpcommingContent,102      XOriginBefore,103      Element,104      AssignedElement,105      XOriginAfter)106      SELECT107        1,108        0,109        y.UID_Org,110        ehe.Entitlement,111        dbo.QER_FCVXOriginToInheritInfo(@QBM_BitPatternXOrigin_Inherit)112      FROM BaseTreeHasESet y113      JOIN @DBQueueCurrent x114        ON y.UID_Org = x.uid_parameter AND y.XOrigin > 0 AND y.XIsInEffect = 1115      JOIN ESetHasEntitlement ehe116        ON ehe.UID_ESet = y.UID_ESet AND ehe.XOrigin > 0 AND ehe.XIsInEffect = 1117      JOIN BaseTree b118        ON y.UID_Org = b.UID_Org AND NOT(b.UID_OrgRoot IN('QER-V-ITShopOrg', 'QER-V-ITShopSrc') AND b.ITShopInfo IN('BO',119      'PR', 'BG', 'BT'))120      JOIN OrgRootAssign oa121        ON oa.UID_OrgRoot = b.UID_OrgRoot AND oa.IsAssignmentAllowed = 1122      WHERE123        ((ehe.Entitlement LIKE '<Key><T>QERAssign</T>%' AND oa.UID_BaseTreeAssign = 'QER-AsgnBT-QERAssign') OR(ehe.Entitlement LIKE '<Key><T>QERResource</T>%' AND124      oa.UID_BaseTreeAssign = 'QER-AsgnBT-QERResource') OR(ehe.Entitlement LIKE '<Key><T>QERReuse</T>%' AND oa.UID_BaseTreeAssign = 'QER-AsgnBT-QERReuse'125      ) OR(ehe.Entitlement LIKE '<Key><T>QERReuseUS</T>%' AND oa.UID_BaseTreeAssign = 'QER-AsgnBT-QERReuseUS'))126    END127    berechnen:128    EXEC QBM_PDBQueueCalculateDelta @SourceData,129      @DeltaQuantity = 1,130      @DeltaDelete = 1,131      @DeltaInsert = 1,132      @DeltaOrigin = 1,133      @CountDeltaQantity = @CountDeltaQantity OUTPUT,134      @CountDeltaOrigin = @CountDeltaOrigin OUTPUT,135      @UseIsInEffect = 0,136      @SlotNumber = @SlotNumber,137      @DBQueueCurrentExtern = @DBQueueCurrent138    EXEC QER_PBasetreeHasObjectPostProc @CountDeltaOrigin,139      @CountDeltaQantity140  END TRY141  BEGIN CATCH142    EXEC QBM_PSessionErrorAdd DEFAULT143    RAISERROR('',144    18,145    1)146      WITH NOWAIT147  END CATCH148  endLabel:149  RETURN150END

Open raw exported source

1        create   procedure QER_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, bho.InheritInfo from BaseTreeHasObject bho join @DBQueueCurrent6 x on uid_Org = x.uid_parameter where bho.ObjectKey like '<Key><T>QERAssign</T>%' or bho.ObjectKey like '<Key><T>QERResource</T>%' or bho.ObjectKey like7 '<Key><T>QERReuse</T>%' or bho.ObjectKey like '<Key><T>QERReuseUS</T>%'  insert into @SourceData( IsUpcommingContent, XOriginBefore , Element, AssignedElement8, XOriginAfter ) select 1, 0 , y.UID_Org, z.XObjectKey, dbo.QER_FCVXOriginToInheritInfo(y.XOrigin) from BaseTreeHasQERAssign y join @DBQueueCurrent x on9 y.UID_Org= x.uid_parameter and y.XOrigin > 0 and y.XIsInEffect = 1 join QERAssign z on z.uid_QERAssign = y.uid_QERAssign union all select 1, 0 , y.UID_Org10, z.XObjectKey, dbo.QER_FCVXOriginToInheritInfo(y.XOrigin) from BaseTreeHasQERResource y join @DBQueueCurrent x on y.UID_Org= x.uid_parameter and y.XOrigin11 > 0 and y.XIsInEffect = 1 join QERResource z on z.uid_QERResource = y.uid_QERResource union all select 1, 0 , y.UID_Org, z.XObjectKey, dbo.QER_FCVXOriginToInheritInfo12(y.XOrigin) from BaseTreeHasQERReuse y join @DBQueueCurrent x on y.UID_Org= x.uid_parameter and y.XOrigin > 0 and y.XIsInEffect = 1 join QERReuse z on 13z.uid_QERReuse = y.uid_QERReuse union all select 1, 0 , y.UID_Org, z.XObjectKey, dbo.QER_FCVXOriginToInheritInfo(y.XOrigin) from BaseTreeHasQERReuseUS 14y join @DBQueueCurrent x on y.UID_Org= x.uid_parameter and y.XOrigin > 0 and y.XIsInEffect = 1 join QERReuseUS z on z.uid_QERReuseUS = y.uid_QERReuseUS15 if dbo.QBM_FGIModuleExists('RMS') = 1 begin insert into @SourceData( IsUpcommingContent, XOriginBefore , Element, AssignedElement, XOriginAfter ) select16 1, 0 , y.UID_Org, ehe.Entitlement, dbo.QER_FCVXOriginToInheritInfo(@QBM_BitPatternXOrigin_Inherit) from BaseTreeHasESet y join @DBQueueCurrent x on y.UID_Org17 = x.uid_parameter and y.XOrigin > 0 and y.XIsInEffect = 1 join ESetHasEntitlement ehe on ehe.UID_ESet = y.UID_ESet and ehe.XOrigin > 0 and ehe.XIsInEffect18 = 1 join BaseTree b on y.UID_Org = b.UID_Org  and not (b.UID_OrgRoot in ( 'QER-V-ITShopOrg', 'QER-V-ITShopSrc') and b.ITShopInfo in ( 'BO', 'PR', 'BG'19, 'BT') ) join OrgRootAssign oa on oa.UID_OrgRoot = b.UID_OrgRoot and oa.IsAssignmentAllowed = 1 where ((ehe.Entitlement like '<Key><T>QERAssign</T>%' 20and oa.UID_BaseTreeAssign = 'QER-AsgnBT-QERAssign') or (ehe.Entitlement like '<Key><T>QERResource</T>%' and oa.UID_BaseTreeAssign = 'QER-AsgnBT-QERResource'21) or (ehe.Entitlement like '<Key><T>QERReuse</T>%' and oa.UID_BaseTreeAssign = 'QER-AsgnBT-QERReuse') or (ehe.Entitlement like '<Key><T>QERReuseUS</T>%'22 and oa.UID_BaseTreeAssign = 'QER-AsgnBT-QERReuseUS') )        end   berechnen: exec QBM_PDBQueueCalculateDelta @SourceData, @DeltaQuantity = 1, @DeltaDelete23 = 1, @DeltaInsert = 1, @DeltaOrigin = 1, @CountDeltaQantity = @CountDeltaQantity output , @CountDeltaOrigin = @CountDeltaOrigin output , @UseIsInEffect24 = 0 , @SlotNumber = @SlotNumber , @DBQueueCurrentExtern = @DBQueueCurrent exec QER_PBasetreeHasObjectPostProc @CountDeltaOrigin, @CountDeltaQantity END25 TRY BEGIN CATCH exec QBM_PSessionErrorAdd default RAISERROR ('', 18, 1) WITH NOWAIT END CATCH  endLabel: return end 26