Back to OIM Explorer

dbo.QER_ZPersonHasObjectExtAtt

Stored ProcedureSQL_STORED_PROCEDURESandbox DB

Stored Procedure.

Source: sandbox-db sys.sql_modules

Source size: 2.451 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.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_PPersonHasObjectPostProc source text reference
references source dbo.QER_ZPersonHasObject source text reference

References

Referenced By

No direct source references extracted.

Complete Source

1CREATE PROCEDURE QER_ZPersonHasObjectExtAtt(2  @SlotNumber int3)4AS5BEGIN6  DECLARE @Sourcedata QBM_YDataForDelta,7  @CountDeltaQantity int,8  @CountDeltaOrigin int9  DECLARE @QER_BitPattern_Inherit_0 int = dbo.QER_FGIBitPatternInheritInfo('|Inherit|',10  0)11  DECLARE @DBQueueCurrent QBM_YDBQueueCurrent12  DECLARE @QER_BitPatternInherit_Master int = dbo.QER_FGIBitPatternInheritInfo('|Master|',13  0)14  BEGIN TRY15    INSERT INTO @DBQueueCurrent(UID_DialogDBQueue,16    UID_Parameter,17    UID_SubParameter,18    GenProcID)19    SELECT20      UID_DialogDBQueue,21      UID_Parameter,22      UID_SubParameter,23      GenProcID24    FROM QBMDBQueueCurrent cu25      WITH(readpast)26    WHERE27      cu.SlotNumber = @SlotNumber28    IF @@rowcount = 029    BEGIN30      GOTO EndLabel31    END32    INSERT INTO @SourceData(IsUpcommingContent,33    XOriginAfter,34    Element,35    AssignedElement,36    XOriginBefore)37    SELECT38      0,39      0,40      pho.UID_Person,41      pho.ObjectKey,42      pho.InheritInfo43    FROM PersonHasObject pho44    JOIN @DBQueueCurrent x45      ON pho.UID_Person = x.uid_parameter46    WHERE47      pho.ObjectKey LIKE '<Key><T>ExtendedAttribute</T>%'48    INSERT INTO @SourceData(IsUpcommingContent,49    XOriginBefore,50    Element,51    AssignedElement,52    XOriginAfter)53    SELECT54      1,55      0,56      y.uid_person,57      ea.XObjectKey,58      @QER_BitPattern_Inherit_059    FROM PersonHasObject y60    JOIN @DBQueueCurrent x61      ON y.uid_person= x.uid_parameter62    JOIN ObjectHasExtendedAttribute oha63      ON oha.ObjectKeyOfObject = y.ObjectKey64    JOIN ExtendedAttribute ea65      ON oha.UID_ExtendedAttribute = ea.UID_ExtendedAttribute66    WHERE67      y.ObjectKey NOT LIKE '<Key><T>ExtendedAttribute</T>%'68    INSERT INTO @SourceData(IsUpcommingContent,69    XOriginBefore,70    Element,71    AssignedElement,72    XOriginAfter)73    SELECT74      1,75      0,76      m.uid_person,77      pho.objectkey,78      @QER_BitPatternInherit_Master79    FROM @DBQueueCurrent x80    JOIN person m81      ON m.UID_Person = x.uid_parameter82    JOIN person s83      ON s.UID_PersonMasterIdentity = m.uid_Person84    JOIN PersonHasObject pho85      ON pho.uid_person = s.uid_person86    WHERE87      pho.ObjectKey LIKE '<Key><T>ExtendedAttribute</T>%' berechnen:88    EXEC QBM_PDBQueueCalculateDelta @SourceData,89      @DeltaQuantity = 1,90      @DeltaDelete = 1,91      @DeltaInsert = 1,92      @DeltaOrigin = 1,93      @CountDeltaQantity = @CountDeltaQantity OUTPUT,94      @CountDeltaOrigin = @CountDeltaOrigin OUTPUT,95      @UseIsInEffect = 0,96      @SlotNumber = @SlotNumber,97      @DBQueueCurrentExtern = @DBQueueCurrent98    EXEC QER_PPersonHasObjectPostProc @SlotNumber,99      @CountDeltaOrigin,100      @CountDeltaQantity,101    'QER-K-PersonHasObjectExtAtt'102  END TRY103  BEGIN CATCH104    EXEC QBM_PSessionErrorAdd DEFAULT105    RAISERROR('',106    18,107    1)108      WITH NOWAIT109  END CATCH110  endLabel:111END

Open raw exported source

1   create   procedure QER_ZPersonHasObjectExtAtt (@SlotNumber int) AS begin declare @Sourcedata QBM_YDataForDelta , @CountDeltaQantity int , @CountDeltaOrigin2 int declare @QER_BitPattern_Inherit_0 int = dbo.QER_FGIBitPatternInheritInfo('|Inherit|', 0) declare @DBQueueCurrent QBM_YDBQueueCurrent declare @QER_BitPatternInherit_Master3 int = dbo.QER_FGIBitPatternInheritInfo('|Master|', 0)  BEGIN TRY insert into @DBQueueCurrent(UID_DialogDBQueue, UID_Parameter, UID_SubParameter, GenProcID4) select UID_DialogDBQueue, UID_Parameter, UID_SubParameter, GenProcID from QBMDBQueueCurrent cu with (readpast) where cu.SlotNumber = @SlotNumber if @@rowcount5 = 0 begin goto EndLabel end insert into @SourceData( IsUpcommingContent, XOriginAfter , Element, AssignedElement, XOriginBefore ) select 0, 0 , pho.UID_Person6, pho.ObjectKey, pho.InheritInfo from PersonHasObject pho join @DBQueueCurrent x on pho.UID_Person = x.uid_parameter where pho.ObjectKey like '<Key><T>ExtendedAttribute</T>%'7  insert into @SourceData( IsUpcommingContent, XOriginBefore , Element, AssignedElement, XOriginAfter ) select 1, 0 , y.uid_person, ea.XObjectKey, @QER_BitPattern_Inherit_08 from PersonHasObject y join @DBQueueCurrent x on y.uid_person= x.uid_parameter join ObjectHasExtendedAttribute oha on oha.ObjectKeyOfObject = y.ObjectKey9 join ExtendedAttribute ea on oha.UID_ExtendedAttribute = ea.UID_ExtendedAttribute where y.ObjectKey not like '<Key><T>ExtendedAttribute</T>%'  insert 10into @SourceData( IsUpcommingContent, XOriginBefore , Element, AssignedElement, XOriginAfter ) select 1, 0 , m.uid_person, pho.objectkey, @QER_BitPatternInherit_Master11 from @DBQueueCurrent x join person m on m.UID_Person = x.uid_parameter join person s on s.UID_PersonMasterIdentity = m.uid_Person join PersonHasObject12 pho on pho.uid_person = s.uid_person where pho.ObjectKey like '<Key><T>ExtendedAttribute</T>%'  berechnen: exec QBM_PDBQueueCalculateDelta @SourceData13, @DeltaQuantity = 1, @DeltaDelete = 1, @DeltaInsert = 1, @DeltaOrigin = 1, @CountDeltaQantity = @CountDeltaQantity output , @CountDeltaOrigin = @CountDeltaOrigin14 output , @UseIsInEffect = 0 , @SlotNumber = @SlotNumber , @DBQueueCurrentExtern = @DBQueueCurrent exec QER_PPersonHasObjectPostProc @SlotNumber , @CountDeltaOrigin15 , @CountDeltaQantity , 'QER-K-PersonHasObjectExtAtt' END TRY BEGIN CATCH exec QBM_PSessionErrorAdd default RAISERROR ('', 18, 1) WITH NOWAIT END CATCH16 endLabel: end 17