Back to OIM Explorer

dbo.LDP_ZOrgHasLDAPGroup

Stored ProcedureSQL_STORED_PROCEDURESandbox DB

Stored Procedure. Bulk DBQueue insert -> LDP-K-BaseTreeHasObject / LDP_ZBaseTreeHasObject at line 21; References QBM_PDBQueueInsert_Bulk

Source: sandbox-db sys.sql_modules

Source size: 5.963 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 -> LDP-K-BaseTreeHasObject / LDP_ZBaseTreeHasObject at line 21
  • References QBM_PDBQueueInsert_Bulk

Typed Edges

  • queues DBQueue task LDP_ZBaseTreeHasObject at line 21 Bulk DBQueue insert -> LDP-K-BaseTreeHasObject / LDP_ZBaseTreeHasObject at line 21
  • 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 LDP-K-BaseTreeHasObject -> LDP_ZBaseTreeHasObject QBM_PDBQueueInsert_Bulk 'LDP-K-BaseTreeHasObject', @DBQueueElements_01 end end if dbo.QBM_FGIConfigparmValue('QER\Structures\Inherite\GroupExclusion' ) > ' ' begin if exists (select top 1 1 from LDAPGroupExclusion ex with (nolock) join @So…

References

Referenced By

  • No direct source references extracted.

Complete Source

SQL247 lines
1CREATE PROCEDURE LDP_ZOrgHasLDAPGroup(2  @SlotNumber int3)4AS5BEGIN6  DECLARE @Sourcedata QBM_YDataForDelta,7  @CountDeltaQantity int,8  @CountDeltaOrigin int9  DECLARE @GenProcID varchar(38)10  DECLARE @DebugLevel char(1) = 'W'11  DECLARE @UID_BasetreeAssignToUse varchar(38) = 'LDP-AsgnBT-LDAPGroup'12  DECLARE @DBQueueCurrent QBM_YDBQueueCurrent13  DECLARE @QBM_BitPatternXOrigin_Inherit int = dbo.QBM_FGIBitPatternXOrigin('|Inherit|',14  0)15  DECLARE @QBM_BitPatternXOrigin_Inherit_inv int = dbo.QBM_FGIBitPatternXOrigin('|Inherit|',16  1)17  BEGIN TRY18    INSERT INTO @DBQueueCurrent(UID_DialogDBQueue,19    UID_Parameter,20    UID_SubParameter,21    GenProcID)22    SELECT23      UID_DialogDBQueue,24      UID_Parameter,25      UID_SubParameter,26      GenProcID27    FROM QBMDBQueueCurrent cu28      WITH(readpast)29    WHERE30      cu.SlotNumber = @SlotNumber31    IF @@rowcount = 032    BEGIN33      GOTO EndLabel34    END35    INSERT INTO @SourceData(IsUpcommingContent,36    XOriginAfter,37    Element,38    AssignedElement,39    XOriginBefore,40    XIsInEffectBefore)41    SELECT42      0,43      0,44      uid_org,45      uid_LDAPGroup,46      XOrigin,47      XIsInEffect48    FROM BaseTreeHasLDAPGroup49    JOIN @DBQueueCurrent x50      ON uid_org =x.uid_parameter51    INSERT INTO @SourceData(IsUpcommingContent,52    XOriginBefore,53    XOriginAfter,54    Element,55    AssignedElement,56    XIsInEffectAfter)57    SELECT58      1,59      0,60      ohg.XOrigin & @QBM_BitPatternXOrigin_Inherit_inv,61      x.uid_parameter,62      ohg.uid_LDAPGroup,63      164    FROM BaseTreeHasLDAPGroup ohg65    JOIN @DBQueueCurrent x66      ON ohg.uid_org = x.uid_parameter67    WHERE68      ohg.XOrigin & @QBM_BitPatternXOrigin_Inherit_inv > 069    INSERT INTO @SourceData(IsUpcommingContent,70    XOriginBefore,71    Element,72    AssignedElement,73    XOriginAfter,74    XIsInEffectAfter)75    SELECT76      1,77      0,78      x.uid_parameter,79      ohg.uid_LDAPGroup,80      @QBM_BitPatternXOrigin_Inherit,81      182    FROM BaseTreeHasLDAPGroup ohg83    JOIN BaseTreeCollection oc84      ON ohg.uid_org = oc.uid_parentorg AND ohg.XOrigin > 0 AND ohg.XIsInEffect = 185    JOIN LDAPGroup gg86      ON ohg.uid_LDAPGroup = gg.UID_LDAPGroup87    JOIN @DBQueueCurrent x88      ON oc.uid_org = x.uid_parameter89    WHERE90      oc.uid_org <> oc.uid_parentorg AND ohg.XOrigin & @QBM_BitPatternXOrigin_Inherit_inv > 091    IF dbo.QBM_FGIModuleExists('RMS') = 192    BEGIN93      IF dbo.QBM_FGIConfigparmValue('QER\Structures\Inherite\NoESetSplitting') = ''94      BEGIN95        INSERT INTO @SourceData(IsUpcommingContent,96        XOriginBefore,97        Element,98        AssignedElement,99        XOriginAfter,100        XIsInEffectAfter)101        SELECT102          1,103          0,104          x.uid_parameter,105          y.uid_LDAPGroup,106          @QBM_BitPatternXOrigin_Inherit,107          1108        FROM @DBQueueCurrent x109        JOIN BaseTreeHasEset bhe110          ON x.uid_Parameter = bhe.uid_org AND bhe.XOrigin > 0 AND bhe.XIsInEffect = 1111        JOIN ESetHasEntitlement ehe112          ON bhe.uid_ESet = ehe.uid_ESet AND ehe.XOrigin > 0 AND ehe.XIsInEffect = 1113        JOIN LDAPGroup y114          ON ehe.entitlement = y.XObjectKey115        JOIN BaseTree b116          ON bhe.UID_Org = b.UID_Org AND NOT(b.UID_OrgRoot IN('QER-V-ITShopOrg', 'QER-V-ITShopSrc') AND b.ITShopInfo IN('BO',117        'PR', 'BG', 'BT'))118        JOIN OrgRootAssign oa119          ON oa.UID_OrgRoot = b.UID_OrgRoot AND oa.UID_BaseTreeAssign = @UID_BasetreeAssignToUse AND oa.IsAssignmentAllowed = 1120      END121      ELSE122      BEGIN123        DECLARE @DBQueueElements_01 QBM_YDBQueueRaw124        INSERT INTO @DBQueueElements_01(object,125        subobject,126        genprocid)127        SELECT128          x.uid,129          NULL,130          x.GenProcID131        FROM(132        SELECT133          cu.UID_Parameter AS uid,134          cu.GenProcID135        FROM @DBQueueCurrent cu) AS x136        EXEC QBM_PDBQueueInsert_Bulk 'LDP-K-BaseTreeHasObject',137          @DBQueueElements_01138      END139    END140    IF dbo.QBM_FGIConfigparmValue('QER\Structures\Inherite\GroupExclusion') > ' '141    BEGIN142      IF EXISTS(143        SELECT TOP 1 1144        FROM LDAPGroupExclusion ex145        WITH(nolock)146      JOIN @Sourcedata s147        ON ex.UID_LDAPGroupLower = s.AssignedElement148      WHERE149        s.IsUpcommingContent = 1 AND s.XOriginAfter > 0 AND s.XIsInEffectAfter = 1)150      BEGIN151        DECLARE @ExcludeCandidate QER_YExcludeCandidate152        INSERT INTO @ExcludeCandidate(Element,153        AssignedElement,154        XIsInEffectAfter)155        SELECT156          s.Element,157          s.AssignedElement,158          1159        FROM @Sourcedata s160        JOIN(161        SELECT exe.UID_LDAPGroupLower AS UID_Excluded162        FROM LDAPGroupExclusion exe) AS ex163          ON s.AssignedElement = ex.UID_Excluded164        WHERE165          s.IsUpcommingContent = 1 AND s.XOriginAfter > 0 AND s.XIsInEffectAfter = 1166        UNION all167        SELECT168          s.Element,169          s.AssignedElement,170          1171        FROM @Sourcedata s172        JOIN(173        SELECT exe.UID_LDAPGroupHigher AS UID_Excluding174        FROM LDAPGroupExclusion exe) AS ex175          ON s.AssignedElement = ex.UID_Excluding176        WHERE177          s.IsUpcommingContent = 1 AND s.XOriginAfter > 0 AND s.XIsInEffectAfter = 1178        DELETE @ExcludeCandidate179        FROM @ExcludeCandidate ex180        WHERE181          EXISTS(182        SELECT TOP 1 1183        FROM BaseTree b184        WHERE185          ex.Element = b.UID_Org AND b.UID_OrgRoot IN('QER-V-ITShopOrg', 'QER-V-ITShopSrc') AND b.ITShopInfo IN('BO',186        'BG', 'BT'))187        UPDATE @ExcludeCandidate188        SET XIsInEffectAfter = 0189        FROM @ExcludeCandidate l190        JOIN(191        SELECT192          exe.UID_LDAPGroupLower AS UID_Excluded,193          exe.UID_LDAPGroupHigher AS UID_Excluding194        FROM LDAPGroupExclusion exe) AS ex195          ON l.AssignedElement = ex.UID_Excluded196        JOIN(197        SELECT sh.*198        FROM @ExcludeCandidate sh) AS h199          ON l.Element = h.Element AND h.AssignedElement = ex.UID_Excluding200        IF @@ROWCOUNT > 0201        BEGIN202          UPDATE @Sourcedata203          SET XIsInEffectAfter = 0204          FROM @Sourcedata l205          JOIN @ExcludeCandidate k206            ON l.Element = k.Element AND l.AssignedElement = k.AssignedElement AND k.XIsInEffectAfter = 0207          WHERE208            l.IsUpcommingContent = 1 AND l.XOriginAfter > 0 AND l.XIsInEffectAfter = 1209        END210      END211    END212    EXEC QBM_PDBQueueCalculateDelta @SourceData,213      @DeltaQuantity = 0,214      @DeltaDelete = 0,215      @DeltaInsert = 1,216      @DeltaOrigin = 1,217      @CountDeltaQantity = @CountDeltaQantity OUTPUT,218      @CountDeltaOrigin = @CountDeltaOrigin OUTPUT,219      @UseIsInEffect = 1,220      @SlotNumber = @SlotNumber,221      @DBQueueCurrentExtern = @DBQueueCurrent222    IF @CountDeltaOrigin > 0223    BEGIN224      EXEC QBM_PMNTableOriginUpdate 'BaseTreeHasLDAPGroup',225      'UID_Org',226      'uid_LDAPGroup'227    END228    IF @CountDeltaQantity > 0229    BEGIN230      EXEC QER_PMNTableAddViewProperties 'BaseTreeHasLDAPGroup'231      EXEC QBM_PMNTableInsert 'BaseTreeHasLDAPGroup',232      'UID_Org',233      'uid_LDAPGroup',234        @TargetIsView = 1,235        @FKTableNameElement = 'BaseTree',236        @FKColumnNameElement = 'UID_Org'237    END238  END TRY239  BEGIN CATCH240    EXEC QBM_PSessionErrorAdd DEFAULT241    RAISERROR('',242    18,243    1)244      WITH NOWAIT245  END CATCH246  endLabel:247END
Open raw exported source
SQL · Raw39 lines
1       create   procedure LDP_ZOrgHasLDAPGroup (@SlotNumber int) AS begin declare @Sourcedata QBM_YDataForDelta , @CountDeltaQantity int , @CountDeltaOrigin2 int declare @GenProcID varchar(38) declare @DebugLevel char(1) = 'W' declare @UID_BasetreeAssignToUse varchar(38) = 'LDP-AsgnBT-LDAPGroup' declare @DBQueueCurrent3 QBM_YDBQueueCurrent declare @QBM_BitPatternXOrigin_Inherit int = dbo.QBM_FGIBitPatternXOrigin('|Inherit|', 0) declare @QBM_BitPatternXOrigin_Inherit_inv4 int = dbo.QBM_FGIBitPatternXOrigin('|Inherit|', 1)  BEGIN TRY insert into @DBQueueCurrent(UID_DialogDBQueue, UID_Parameter, UID_SubParameter, GenProcID5) select UID_DialogDBQueue, UID_Parameter, UID_SubParameter, GenProcID from QBMDBQueueCurrent cu with (readpast) where cu.SlotNumber = @SlotNumber if @@rowcount6 = 0 begin goto EndLabel end insert into @SourceData( IsUpcommingContent, XOriginAfter , Element, AssignedElement, XOriginBefore , XIsInEffectBefore ) 7select 0, 0 , uid_org, uid_LDAPGroup, XOrigin , XIsInEffect from BaseTreeHasLDAPGroup join @DBQueueCurrent x on uid_org =x.uid_parameter insert into @SourceData8( IsUpcommingContent, XOriginBefore, XOriginAfter , Element, AssignedElement , XIsInEffectAfter ) select 1, 0, ohg.XOrigin & @QBM_BitPatternXOrigin_Inherit_inv9 , x.uid_parameter, ohg.uid_LDAPGroup , 1 from BaseTreeHasLDAPGroup ohg join @DBQueueCurrent x on ohg.uid_org = x.uid_parameter  where ohg.XOrigin & @QBM_BitPatternXOrigin_Inherit_inv10 > 0 insert into @SourceData( IsUpcommingContent, XOriginBefore , Element, AssignedElement, XOriginAfter , XIsInEffectAfter ) select 1, 0 , x.uid_parameter11, ohg.uid_LDAPGroup, @QBM_BitPatternXOrigin_Inherit , 1 from BaseTreeHasLDAPGroup ohg join BaseTreeCollection oc on ohg.uid_org = oc.uid_parentorg and 12ohg.XOrigin > 0 and ohg.XIsInEffect = 1 join LDAPGroup gg on ohg.uid_LDAPGroup = gg.UID_LDAPGroup  join @DBQueueCurrent x on oc.uid_org = x.uid_parameter13 where oc.uid_org <> oc.uid_parentorg  and ohg.XOrigin & @QBM_BitPatternXOrigin_Inherit_inv > 0 if dbo.QBM_FGIModuleExists('RMS') = 1 begin if dbo.QBM_FGIConfigparmValue14('QER\Structures\Inherite\NoESetSplitting') = '' begin insert into @SourceData( IsUpcommingContent, XOriginBefore , Element, AssignedElement, XOriginAfter15 , XIsInEffectAfter ) select 1, 0 , x.uid_parameter, y.uid_LDAPGroup, @QBM_BitPatternXOrigin_Inherit  , 1 from @DBQueueCurrent x join BaseTreeHasEset bhe16 on x.uid_Parameter = bhe.uid_org and bhe.XOrigin > 0 and bhe.XIsInEffect = 1 join ESetHasEntitlement ehe on bhe.uid_ESet = ehe.uid_ESet and ehe.XOrigin17 > 0 and ehe.XIsInEffect = 1 join LDAPGroup y on ehe.entitlement = y.XObjectKey join BaseTree b on bhe.UID_Org = b.UID_Org  and not (b.UID_OrgRoot in (18 'QER-V-ITShopOrg', 'QER-V-ITShopSrc') and b.ITShopInfo in ( 'BO', 'PR', 'BG', 'BT') ) join OrgRootAssign oa on oa.UID_OrgRoot = b.UID_OrgRoot and oa.UID_BaseTreeAssign19 = @UID_BasetreeAssignToUse and oa.IsAssignmentAllowed = 1  end else begin  declare @DBQueueElements_01 QBM_YDBQueueRaw insert into @DBQueueElements_0120 (object, subobject, genprocid) select x.uid, null, x.GenProcID from ( select cu.UID_Parameter as uid, cu.GenProcID from @DBQueueCurrent cu ) as x exec21 QBM_PDBQueueInsert_Bulk 'LDP-K-BaseTreeHasObject', @DBQueueElements_01 end end  if dbo.QBM_FGIConfigparmValue('QER\Structures\Inherite\GroupExclusion'22) > ' ' begin if exists (select top 1 1 from LDAPGroupExclusion ex with (nolock) join @Sourcedata s on ex.UID_LDAPGroupLower  = s.AssignedElement where23 s.IsUpcommingContent = 1 and s.XOriginAfter > 0 and s.XIsInEffectAfter = 1 ) begin declare @ExcludeCandidate QER_YExcludeCandidate insert into @ExcludeCandidate24(Element, AssignedElement, XIsInEffectAfter) select s.Element, s.AssignedElement, 1 from @Sourcedata s join ( select exe.UID_LDAPGroupLower as UID_Excluded25 from LDAPGroupExclusion exe ) as ex on s.AssignedElement = ex.UID_Excluded where s.IsUpcommingContent = 1 and s.XOriginAfter > 0 and s.XIsInEffectAfter26 = 1 union all select s.Element, s.AssignedElement, 1 from @Sourcedata s join ( select exe.UID_LDAPGroupHigher as UID_Excluding from LDAPGroupExclusion27 exe ) as ex on s.AssignedElement = ex.UID_Excluding where s.IsUpcommingContent = 1 and s.XOriginAfter > 0 and s.XIsInEffectAfter = 1  delete  @ExcludeCandidate28 from @ExcludeCandidate ex where exists (select top 1 1 from BaseTree b where ex.Element = b.UID_Org and b.UID_OrgRoot in ( 'QER-V-ITShopOrg', 'QER-V-ITShopSrc'29) and b.ITShopInfo in ( 'BO',  'BG', 'BT') )  update @ExcludeCandidate set XIsInEffectAfter = 0 from @ExcludeCandidate l  join ( select exe.UID_LDAPGroupLower30 as UID_Excluded, exe.UID_LDAPGroupHigher as UID_Excluding from LDAPGroupExclusion exe ) as ex on l.AssignedElement = ex.UID_Excluded join (select sh.*31 from @ExcludeCandidate sh  ) as h on l.Element = h.Element and h.AssignedElement = ex.UID_Excluding if @@ROWCOUNT > 0 begin update @Sourcedata set XIsInEffectAfter32 = 0 from @Sourcedata l join @ExcludeCandidate k on l.Element = k.Element and l.AssignedElement = k.AssignedElement and k.XIsInEffectAfter = 0 where l.IsUpcommingContent33 = 1 and l.XOriginAfter > 0 and l.XIsInEffectAfter = 1 end end  end  exec QBM_PDBQueueCalculateDelta @SourceData, @DeltaQuantity = 0, @DeltaDelete = 0,34 @DeltaInsert = 1, @DeltaOrigin = 1, @CountDeltaQantity = @CountDeltaQantity output , @CountDeltaOrigin = @CountDeltaOrigin output , @UseIsInEffect = 135 , @SlotNumber = @SlotNumber , @DBQueueCurrentExtern = @DBQueueCurrent if @CountDeltaOrigin > 0 begin exec QBM_PMNTableOriginUpdate 'BaseTreeHasLDAPGroup'36, 'UID_Org', 'uid_LDAPGroup' end if @CountDeltaQantity > 0 begin exec QER_PMNTableAddViewProperties 'BaseTreeHasLDAPGroup' exec QBM_PMNTableInsert 'BaseTreeHasLDAPGroup'37, 'UID_Org', 'uid_LDAPGroup', @TargetIsView = 1 , @FKTableNameElement = 'BaseTree' , @FKColumnNameElement = 'UID_Org' end END TRY BEGIN CATCH exec QBM_PSessionErrorAdd38 default RAISERROR ('', 18, 1) WITH NOWAIT END CATCH endLabel: end 39