Back to OIM Explorer

dbo.RPS_ZPersonHasRPSReport

Stored ProcedureSQL_STORED_PROCEDURESandbox DB

Stored Procedure.

Source: sandbox-db sys.sql_modules

Source size: 3.385 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_FTPersonInheritFromOrg_L source text reference
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 RPS_ZPersonHasRPSReport(2  @SlotNumber int3)4AS5BEGIN6  DECLARE @Sourcedata QBM_YDataForDelta,7  @CountDeltaQantity int,8  @CountDeltaOrigin int9  DECLARE @GenProcID varchar(38)10  DECLARE @UID_BaseTreeAssignToUse varchar(38) = 'RPS-AsgnBT-RPSReport'11  DECLARE @DBQueueCurrent QBM_YDBQueueCurrent12  DECLARE @QBM_BitPatternXOrigin_Inherit int = dbo.QBM_FGIBitPatternXOrigin('|Inherit|',13  0)14  DECLARE @QBM_BitPatternXOrigin_Inherit_inv int = dbo.QBM_FGIBitPatternXOrigin('|Inherit|',15  1)16  BEGIN TRY17    INSERT INTO @DBQueueCurrent(UID_DialogDBQueue,18    UID_Parameter,19    UID_SubParameter,20    GenProcID)21    SELECT22      UID_DialogDBQueue,23      UID_Parameter,24      UID_SubParameter,25      GenProcID26    FROM QBMDBQueueCurrent cu27      WITH(readpast)28    WHERE29      cu.SlotNumber = @SlotNumber30    IF @@rowcount = 031    BEGIN32      GOTO EndLabel33    END34    INSERT INTO @SourceData(IsUpcommingContent,35    XOriginAfter,36    Element,37    AssignedElement,38    XOriginBefore,39    XIsInEffectBefore,40    XIsInEffectAfter)41    SELECT42      0,43      0,44      uid_person,45      uid_RPSReport,46      phr.XOrigin,47      phr.XIsInEffect,48      049    FROM PersonHasRPSReport phr50    JOIN @DBQueueCurrent x51      ON uid_person = x.uid_parameter52    INSERT INTO @SourceData(IsUpcommingContent,53    XOriginBefore,54    XOriginAfter,55    Element,56    AssignedElement,57    XIsInEffectBefore,58    XIsInEffectAfter)59    SELECT60      1,61      0,62      r.XOrigin & @QBM_BitPatternXOrigin_Inherit_inv,63      r.uid_person,64      r.uid_RPSReport,65      0,66      (rr.IsInActive ^1)67    FROM PersonHasRPSReport r68    JOIN @DBQueueCurrent x69      ON uid_person= x.uid_parameter70    JOIN RPSReport rr71      ON r.UID_RPSReport = rr.UID_RPSReport AND rr.IsDeactivatedByPreProcessor = 072    JOIN person px73      ON r.uid_person = px.uid_person74    INSERT INTO @SourceData(IsUpcommingContent,75    XOriginBefore,76    Element,77    AssignedElement,78    XOriginAfter,79    XIsInEffectBefore,80    XIsInEffectAfter)81    SELECT82      1,83      0,84      x.uid_person,85      x.uid_RPSReport,86      @QBM_BitPatternXOrigin_Inherit,87      0,88      189    FROM(90    SELECT91      pha.uid_person,92      a.uid_RPSReport93    FROM PersonHasESet pha94    JOIN @DBQueueCurrent x95      ON pha.uid_person = x.uid_parameter AND pha.XOrigin > 0 AND pha.XIsInEffect = 196    JOIN person px97      ON pha.uid_person = px.uid_person AND px.isNoInherite = 098    JOIN ESetHasEntitlement aha99      ON aha.uid_Eset = pha.uid_Eset AND aha.XOrigin > 0 AND aha.XIsInEffect = 1100    JOIN RPSReport a101      ON aha.Entitlement = a.XObjectKey AND a.IsInactive = 0 AND a.IsDeactivatedByPreProcessor = 0102    UNION all103    SELECT104      pfo.uid_person,105      oha.uid_RPSReport106    FROM dbo.QER_FTPersonInheritFromOrg_L(@DBQueueCurrent, @UID_BaseTreeAssignToUse) pfo107    JOIN BaseTreeHasRPSReport oha108      ON pfo.uid_org = oha.uid_org AND oha.XOrigin > 0 AND oha.XIsInEffect = 1109    JOIN RPSReport r110      ON oha.uid_RPSReport = r.UID_RPSReport AND r.IsInactive = 0 AND r.IsDeactivatedByPreProcessor = 0) AS x111    EXEC QBM_PDBQueueCalculateDelta @SourceData,112      @DeltaQuantity = 0,113      @DeltaDelete = 0,114      @DeltaInsert = 1,115      @DeltaOrigin = 1,116      @CountDeltaQantity = @CountDeltaQantity OUTPUT,117      @CountDeltaOrigin = @CountDeltaOrigin OUTPUT,118      @UseIsInEffect = 1,119      @SlotNumber = @SlotNumber,120      @DBQueueCurrentExtern = @DBQueueCurrent121    IF @CountDeltaOrigin > 0122    BEGIN123      EXEC QBM_PMNTableOriginUpdate 'PersonHasRPSReport',124      'uid_Person',125      'uid_RPSReport'126    END127    IF @CountDeltaQantity > 0128    BEGIN129      EXEC QBM_PMNTableInsert 'PersonHasRPSReport',130      'uid_Person',131      'uid_RPSReport',132        @TargetIsView = 0,133        @FKTableNameElement = 'Person',134        @FKColumnNameElement = 'UID_Person'135    END136  END TRY137  BEGIN CATCH138    EXEC QBM_PSessionErrorAdd DEFAULT139    RAISERROR('',140    18,141    1)142      WITH NOWAIT143  END CATCH144  endLabel:145END

Open raw exported source

1    create   procedure RPS_ZPersonHasRPSReport (@SlotNumber int) AS begin declare @Sourcedata QBM_YDataForDelta , @CountDeltaQantity int , @CountDeltaOrigin2 int declare @GenProcID varchar(38) declare @UID_BaseTreeAssignToUse varchar(38) = 'RPS-AsgnBT-RPSReport' declare @DBQueueCurrent QBM_YDBQueueCurrent declare3 @QBM_BitPatternXOrigin_Inherit int = dbo.QBM_FGIBitPatternXOrigin('|Inherit|', 0) declare @QBM_BitPatternXOrigin_Inherit_inv int = dbo.QBM_FGIBitPatternXOrigin4('|Inherit|', 1)  BEGIN TRY insert into @DBQueueCurrent(UID_DialogDBQueue, UID_Parameter, UID_SubParameter, GenProcID) select UID_DialogDBQueue, UID_Parameter5, UID_SubParameter, GenProcID from QBMDBQueueCurrent cu with (readpast) where cu.SlotNumber = @SlotNumber if @@rowcount = 0 begin goto EndLabel end  insert6 into @SourceData( IsUpcommingContent, XOriginAfter , Element, AssignedElement, XOriginBefore , XIsInEffectBefore, XIsInEffectAfter ) select 0, 0 , uid_person7, uid_RPSReport, phr.XOrigin , phr.XIsInEffect, 0 from PersonHasRPSReport phr join @DBQueueCurrent x on uid_person = x.uid_parameter insert into @SourceData8( IsUpcommingContent, XOriginBefore, XOriginAfter , Element, AssignedElement , XIsInEffectBefore, XIsInEffectAfter ) select 1, 0, r.XOrigin & @QBM_BitPatternXOrigin_Inherit_inv9 , r.uid_person, r.uid_RPSReport , 0, (rr.IsInActive ^1 )  from PersonHasRPSReport r join @DBQueueCurrent x on uid_person= x.uid_parameter join RPSReport10 rr on r.UID_RPSReport = rr.UID_RPSReport  and rr.IsDeactivatedByPreProcessor = 0 join person px on r.uid_person = px.uid_person  insert into @SourceData11( IsUpcommingContent, XOriginBefore , Element, AssignedElement, XOriginAfter , XIsInEffectBefore, XIsInEffectAfter ) select 1, 0 , x.uid_person, x.uid_RPSReport12, @QBM_BitPatternXOrigin_Inherit , 0, 1 from ( select pha.uid_person, a.uid_RPSReport from PersonHasESet pha join @DBQueueCurrent x on pha.uid_person =13 x.uid_parameter and pha.XOrigin > 0 and pha.XIsInEffect = 1  join person px on pha.uid_person = px.uid_person and px.isNoInherite = 0  join ESetHasEntitlement14 aha on aha.uid_Eset = pha.uid_Eset and aha.XOrigin > 0 and aha.XIsInEffect = 1 join RPSReport a on aha.Entitlement = a.XObjectKey and a.IsInactive = 015 and a.IsDeactivatedByPreProcessor = 0 union all select pfo.uid_person, oha.uid_RPSReport  from dbo.QER_FTPersonInheritFromOrg_L(@DBQueueCurrent, @UID_BaseTreeAssignToUse16) pfo join BaseTreeHasRPSReport oha on pfo.uid_org = oha.uid_org and oha.XOrigin > 0 and oha.XIsInEffect = 1 join RPSReport r on oha.uid_RPSReport = r.UID_RPSReport17 and r.IsInactive = 0 and r.IsDeactivatedByPreProcessor = 0 ) as x   exec QBM_PDBQueueCalculateDelta @SourceData, @DeltaQuantity = 0, @DeltaDelete = 0,18 @DeltaInsert = 1, @DeltaOrigin = 1, @CountDeltaQantity = @CountDeltaQantity output , @CountDeltaOrigin = @CountDeltaOrigin output , @UseIsInEffect = 119 , @SlotNumber = @SlotNumber , @DBQueueCurrentExtern = @DBQueueCurrent if @CountDeltaOrigin > 0 begin exec QBM_PMNTableOriginUpdate 'PersonHasRPSReport'20, 'uid_Person', 'uid_RPSReport' end if @CountDeltaQantity > 0 begin exec QBM_PMNTableInsert 'PersonHasRPSReport', 'uid_Person', 'uid_RPSReport', @TargetIsView21 = 0 , @FKTableNameElement = 'Person' , @FKColumnNameElement = 'UID_Person' end END TRY BEGIN CATCH exec QBM_PSessionErrorAdd default RAISERROR ('', 1822, 1) WITH NOWAIT END CATCH endLabel: end 23