Back to OIM Explorer

dbo.TSB_ZUNSAccountBHasUNSItemB

Stored ProcedureSQL_STORED_PROCEDURESandbox DB

Stored Procedure.

Source: sandbox-db sys.sql_modules

Source size: 3.920 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_PDBQueueCalculateDelta 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

Referenced By

No direct source references extracted.

Complete Source

1CREATE PROCEDURE TSB_ZUNSAccountBHasUNSItemB(2  @SlotNumber int3)4AS5BEGIN6  DECLARE @Sourcedata QBM_YDataForDelta,7  @CountDeltaQantity int,8  @CountDeltaOrigin int9  DECLARE @GenProcID varchar(38)10  DECLARE @DBQueueCurrent QBM_YDBQueueCurrent11  DECLARE @QBM_BitPatternXOrigin_Inherit int = dbo.QBM_FGIBitPatternXOrigin('|Inherit|',12  0)13  DECLARE @QBM_BitPatternXOrigin_Inherit_inv int = dbo.QBM_FGIBitPatternXOrigin('|Inherit|',14  1)15  BEGIN TRY16    INSERT INTO @DBQueueCurrent(UID_DialogDBQueue,17    UID_Parameter,18    UID_SubParameter,19    GenProcID)20    SELECT21      UID_DialogDBQueue,22      UID_Parameter,23      UID_SubParameter,24      GenProcID25    FROM QBMDBQueueCurrent cu26      WITH(readpast)27    WHERE28      cu.SlotNumber = @SlotNumber29    IF @@rowcount = 030    BEGIN31      GOTO EndLabel32    END33    INSERT INTO @SourceData(IsUpcommingContent,34    XOriginAfter,35    Element,36    AssignedElement,37    XOriginBefore,38    XIsInEffectBefore,39    XIsInEffectAfter)40    SELECT41      0,42      0,43      aig.UID_UNSAccountB,44      aig.UID_UNSItemB,45      aig.XOrigin,46      aig.XIsInEffect,47      048    FROM UNSAccountBHasUNSItemB aig49    JOIN @DBQueueCurrent x50      ON UID_UNSAccountB = x.UID_parameter51    INSERT INTO @SourceData(IsUpcommingContent,52    XOriginBefore,53    XOriginAfter,54    Element,55    AssignedElement,56    XIsInEffectBefore,57    XIsInEffectAfter)58    SELECT59      1,60      0,61      aig.XOrigin & @QBM_BitPatternXOrigin_Inherit_inv,62      aig.UID_UNSAccountB,63      aig.UID_UNSItemB,64      aig.XIsInEffect,65    CASE66      WHEN n.UID_UNSRootB = g.UID_UNSRootB THEN67    168      WHEN ns.IsExtendedInheritance = 0 THEN69    070      WHEN ns.IsExtendedInheritance = 1 AND ns.UID_DPRNameSpace = rg.UID_DPRNameSpace THEN71    172    ELSE 073    END74    FROM UNSAccountBHasUNSItemB aig75    JOIN @DBQueueCurrent x76      ON aig.UID_UNSAccountB = x.UID_parameter77    JOIN UNSAccountB n78      ON aig.UID_UNSAccountB = n.UID_UNSAccountB79    JOIN UNSItemB g80      ON aig.UID_UNSItemB = g.UID_UNSItemB81    JOIN UNSRootB rn82      ON n.UID_UNSRootB = rn.UID_UNSRootB83    JOIN DPRNameSpace ns84      ON rn.UID_DPRNameSpace = ns.UID_DPRNameSpace85    JOIN UNSRootB rg86      ON g.UID_UNSRootB = rg.UID_UNSRootB87    INSERT INTO @SourceData(IsUpcommingContent,88    XOriginBefore,89    Element,90    AssignedElement,91    XOriginAfter,92    XIsInEffectBefore,93    XIsInEffectAfter)94    SELECT95      1,96      0,97      va.UID_UNSAccountB,98      t.uid_UnsItemB,99      @QBM_BitPatternXOrigin_Inherit,100      0,101      1102    FROM(103    SELECT104      uig.UID_UNSGroupB,105      uig.UID_UNSAccountB106    FROM UNSAccountBInUNSGroupB uig107    JOIN @DBQueueCurrent x108      ON uig.UID_UNSAccountB = x.UID_parameter AND uig.XOrigin > 0 AND uig.XIsInEffect = 1109    UNION110    SELECT111      uig.UID_UNSGroupB,112      uig.UID_UNSAccountB113    FROM UNSAccountBHasUNSGroupB uig114    JOIN @DBQueueCurrent x115      ON uig.UID_UNSAccountB = x.UID_parameter AND uig.XOrigin > 0 AND uig.XIsInEffect = 1) AS va116    JOIN UNSGroupBHasUNSItemB t117      ON t.uid_UNSGroupB = va.UID_UNSGroupB AND t.XIsInEffect = 1 AND t.XOrigin > 0 AND t.XIsInEffect = 1118    JOIN UNSAccountB n119      ON va.UID_UNSAccountB = n.UID_UNSAccountB120    JOIN UNSItemB g121      ON t.UID_UNSItemB = g.UID_UNSItemB122    JOIN UNSRootB rn123      ON n.UID_UNSRootB = rn.UID_UNSRootB124    JOIN DPRNameSpace ns125      ON rn.UID_DPRNameSpace = ns.UID_DPRNameSpace126    JOIN UNSRootB rg127      ON g.UID_UNSRootB = rg.UID_UNSRootB128    WHERE129      1 = CASE130    WHEN n.UID_UNSRootB = g.UID_UNSRootB THEN131    1132    WHEN ns.IsExtendedInheritance = 0 THEN133    0134    WHEN ns.IsExtendedInheritance = 1 AND ns.UID_DPRNameSpace = rg.UID_DPRNameSpace THEN135    1136    ELSE 0137    END138    EXEC QBM_PDBQueueCalculateDelta @SourceData,139      @DeltaQuantity = 0,140      @DeltaDelete = 0,141      @DeltaInsert = 1,142      @DeltaOrigin = 1,143      @CountDeltaQantity = @CountDeltaQantity OUTPUT,144      @CountDeltaOrigin = @CountDeltaOrigin OUTPUT,145      @UseIsInEffect = 1,146      @SlotNumber = @SlotNumber,147      @DBQueueCurrentExtern = @DBQueueCurrent148    IF @CountDeltaOrigin > 0149    BEGIN150      EXEC QBM_PMNTableOriginUpdate 'UNSAccountBHasUNSItemB',151      'UID_UNSAccountB',152      'UID_UNSItemB'153    END154    IF @CountDeltaQantity > 0155    BEGIN156      EXEC QBM_PMNTableInsert 'UNSAccountBHasUNSItemB',157      'UID_UNSAccountB',158      'UID_UNSItemB',159        @TargetIsView = 0,160        @FKTableNameElement = 'UNSAccountB',161        @FKColumnNameElement = 'UID_UNSAccountB'162    END163  END TRY164  BEGIN CATCH165    EXEC QBM_PSessionErrorAdd DEFAULT166    RAISERROR('',167    18,168    1)169      WITH NOWAIT170  END CATCH171  endLabel:172END

Open raw exported source

1       create   procedure TSB_ZUNSAccountBHasUNSItemB (@SlotNumber int) AS begin declare @Sourcedata QBM_YDataForDelta , @CountDeltaQantity int 2, @CountDeltaOrigin int declare @GenProcID varchar(38) declare @DBQueueCurrent QBM_YDBQueueCurrent declare @QBM_BitPatternXOrigin_Inherit int = dbo.QBM_FGIBitPatternXOrigin3('|Inherit|', 0) declare @QBM_BitPatternXOrigin_Inherit_inv int = dbo.QBM_FGIBitPatternXOrigin('|Inherit|', 1)  BEGIN TRY insert into @DBQueueCurrent(UID_DialogDBQueue4, UID_Parameter, UID_SubParameter, GenProcID) select UID_DialogDBQueue, UID_Parameter, UID_SubParameter, GenProcID from QBMDBQueueCurrent cu with (readpast5) where cu.SlotNumber = @SlotNumber if @@rowcount = 0 begin goto EndLabel end  insert into @SourceData( IsUpcommingContent, XOriginAfter , Element, AssignedElement6, XOriginBefore , XIsInEffectBefore, XIsInEffectAfter ) select 0, 0 , aig.UID_UNSAccountB, aig.UID_UNSItemB, aig.XOrigin , aig.XIsInEffect, 0 from UNSAccountBHasUNSItemB7 aig join @DBQueueCurrent x on UID_UNSAccountB = x.UID_parameter insert into @SourceData( IsUpcommingContent, XOriginBefore, XOriginAfter , Element, AssignedElement8 , XIsInEffectBefore, XIsInEffectAfter ) select 1, 0, aig.XOrigin & @QBM_BitPatternXOrigin_Inherit_inv , aig.UID_UNSAccountB, aig.UID_UNSItemB , aig.XIsInEffect9, case when n.UID_UNSRootB = g.UID_UNSRootB then 1  when ns.IsExtendedInheritance = 0 then 0 when ns.IsExtendedInheritance = 1 and ns.UID_DPRNameSpace 10= rg.UID_DPRNameSpace then 1 else 0 end from UNSAccountBHasUNSItemB aig join @DBQueueCurrent x on aig.UID_UNSAccountB = x.UID_parameter  join UNSAccountB11 n on aig.UID_UNSAccountB = n.UID_UNSAccountB join UNSItemB g on aig.UID_UNSItemB = g.UID_UNSItemB   join UNSRootB rn on n.UID_UNSRootB = rn.UID_UNSRootB12 join DPRNameSpace ns on rn.UID_DPRNameSpace = ns.UID_DPRNameSpace join UNSRootB rg on g.UID_UNSRootB = rg.UID_UNSRootB insert into @SourceData( IsUpcommingContent13, XOriginBefore , Element, AssignedElement, XOriginAfter , XIsInEffectBefore, XIsInEffectAfter ) select 1, 0 , va.UID_UNSAccountB, t.uid_UnsItemB, @QBM_BitPatternXOrigin_Inherit14 , 0, 1 from (  select uig.UID_UNSGroupB, uig.UID_UNSAccountB from UNSAccountBInUNSGroupB uig join @DBQueueCurrent x on uig.UID_UNSAccountB = x.UID_parameter15 and uig.XOrigin > 0 and uig.XIsInEffect = 1 union select uig.UID_UNSGroupB, uig.UID_UNSAccountB from UNSAccountBHasUNSGroupB uig join @DBQueueCurrent 16x on uig.UID_UNSAccountB = x.UID_parameter and uig.XOrigin > 0 and uig.XIsInEffect = 1 ) as va join UNSGroupBHasUNSItemB t on t.uid_UNSGroupB = va.UID_UNSGroupB17 and t.XIsInEffect = 1 and t.XOrigin > 0 and t.XIsInEffect = 1  join UNSAccountB n on va.UID_UNSAccountB = n.UID_UNSAccountB join UNSItemB g on t.UID_UNSItemB18 = g.UID_UNSItemB  join UNSRootB rn on n.UID_UNSRootB = rn.UID_UNSRootB join DPRNameSpace ns on rn.UID_DPRNameSpace = ns.UID_DPRNameSpace join UNSRootB19 rg on g.UID_UNSRootB = rg.UID_UNSRootB where 1 = case when n.UID_UNSRootB = g.UID_UNSRootB then 1  when ns.IsExtendedInheritance = 0 then 0 when ns.IsExtendedInheritance20 = 1 and ns.UID_DPRNameSpace = rg.UID_DPRNameSpace then 1 else 0 end   exec QBM_PDBQueueCalculateDelta @SourceData, @DeltaQuantity = 0, @DeltaDelete = 210, @DeltaInsert = 1, @DeltaOrigin = 1, @CountDeltaQantity = @CountDeltaQantity output , @CountDeltaOrigin = @CountDeltaOrigin output , @UseIsInEffect =22 1 , @SlotNumber = @SlotNumber , @DBQueueCurrentExtern = @DBQueueCurrent if @CountDeltaOrigin > 0 begin exec QBM_PMNTableOriginUpdate 'UNSAccountBHasUNSItemB'23, 'UID_UNSAccountB', 'UID_UNSItemB' end if @CountDeltaQantity > 0 begin exec QBM_PMNTableInsert 'UNSAccountBHasUNSItemB', 'UID_UNSAccountB', 'UID_UNSItemB'24, @TargetIsView = 0 , @FKTableNameElement = 'UNSAccountB' , @FKColumnNameElement = 'UID_UNSAccountB' end END TRY BEGIN CATCH exec QBM_PSessionErrorAdd 25default RAISERROR ('', 18, 1) WITH NOWAIT END CATCH endLabel: end 26