Back to OIM Explorer

dbo.RMS_ZPersonHasObject

Stored ProcedureSQL_STORED_PROCEDURESandbox DB

Stored Procedure.

Source: sandbox-db sys.sql_modules

Source size: 2.294 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_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_PPersonHasObjectPostProc source text reference

References

Referenced By

No direct source references extracted.

Complete Source

1CREATE PROCEDURE RMS_ZPersonHasObject(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>ESet</T>%'48    INSERT INTO @SourceData(IsUpcommingContent,49    XOriginBefore,50    Element,51    AssignedElement,52    XOriginAfter)53    SELECT54      1,55      0,56      y.uid_person,57      z.XObjectKey,58      dbo.QER_FCVXOriginToInheritInfo(y.XOrigin)59    FROM PersonHasESet y60    JOIN @DBQueueCurrent x61      ON y.uid_person= x.uid_parameter AND y.XOrigin > 0 AND y.XIsInEffect = 162    JOIN ESet z63      ON y.UID_ESet = z.UID_ESet64    INSERT INTO @SourceData(IsUpcommingContent,65    XOriginBefore,66    Element,67    AssignedElement,68    XOriginAfter)69    SELECT70      1,71      0,72      m.uid_person,73      pho.objectkey,74      @QER_BitPatternInherit_Master75    FROM @DBQueueCurrent x76    JOIN person m77      ON m.UID_Person = x.uid_parameter78    JOIN person s79      ON s.UID_PersonMasterIdentity = m.uid_Person80    JOIN PersonHasObject pho81      ON pho.uid_person = s.uid_person82    WHERE83      pho.ObjectKey LIKE '<Key><T>ESet</T>%' berechnen:84    EXEC QBM_PDBQueueCalculateDelta @SourceData,85      @DeltaQuantity = 1,86      @DeltaDelete = 1,87      @DeltaInsert = 1,88      @DeltaOrigin = 1,89      @CountDeltaQantity = @CountDeltaQantity OUTPUT,90      @CountDeltaOrigin = @CountDeltaOrigin OUTPUT,91      @UseIsInEffect = 0,92      @SlotNumber = @SlotNumber,93      @DBQueueCurrentExtern = @DBQueueCurrent94    EXEC QER_PPersonHasObjectPostProc @SlotNumber,95      @CountDeltaOrigin,96      @CountDeltaQantity,97    'RMS-K-PersonHasObject'98  END TRY99  BEGIN CATCH100    EXEC QBM_PSessionErrorAdd DEFAULT101    RAISERROR('',102    18,103    1)104      WITH NOWAIT105  END CATCH106  endLabel:107END

Open raw exported source

1      create   procedure RMS_ZPersonHasObject (@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>ESet</T>%'7  insert into @SourceData( IsUpcommingContent, XOriginBefore , Element, AssignedElement, XOriginAfter ) select 1, 0 , y.uid_person, z.XObjectKey, dbo.QER_FCVXOriginToInheritInfo8(y.XOrigin) from PersonHasESet y join @DBQueueCurrent x on y.uid_person= x.uid_parameter and y.XOrigin > 0 and y.XIsInEffect = 1 join ESet z on y.UID_ESet9 = z.UID_ESet    insert into @SourceData( IsUpcommingContent, XOriginBefore , Element, AssignedElement, XOriginAfter ) select 1, 0 , m.uid_person, pho.objectkey10, @QER_BitPatternInherit_Master from @DBQueueCurrent x join person m on m.UID_Person = x.uid_parameter  join person s on s.UID_PersonMasterIdentity = m.uid_Person11 join PersonHasObject pho on pho.uid_person = s.uid_person where pho.ObjectKey like '<Key><T>ESet</T>%'   berechnen: exec QBM_PDBQueueCalculateDelta @SourceData12, @DeltaQuantity = 1, @DeltaDelete = 1, @DeltaInsert = 1, @DeltaOrigin = 1, @CountDeltaQantity = @CountDeltaQantity output , @CountDeltaOrigin = @CountDeltaOrigin13 output , @UseIsInEffect = 0 , @SlotNumber = @SlotNumber , @DBQueueCurrentExtern = @DBQueueCurrent exec QER_PPersonHasObjectPostProc @SlotNumber , @CountDeltaOrigin14 , @CountDeltaQantity , 'RMS-K-PersonHasObject' END TRY BEGIN CATCH exec QBM_PSessionErrorAdd default RAISERROR ('', 18, 1) WITH NOWAIT END CATCH endLabel:15 end 16