dbo.RPS_ZPersonHasRPSReport

1    create   procedure RPS_ZPersonHasRPSReport (@SlotNumber int) AS begin declare @Sourcedata QBM_YDataForDelta , @CountDeltaQantity int , @CountDeltaOrigin
2 int declare @GenProcID varchar(38) declare @UID_BaseTreeAssignToUse varchar(38) = 'RPS-AsgnBT-RPSReport' declare @DBQueueCurrent QBM_YDBQueueCurrent declare
3 @QBM_BitPatternXOrigin_Inherit int = dbo.QBM_FGIBitPatternXOrigin('|Inherit|', 0) declare @QBM_BitPatternXOrigin_Inherit_inv int = dbo.QBM_FGIBitPatternXOrigin
4('|Inherit|', 1)  BEGIN TRY insert into @DBQueueCurrent(UID_DialogDBQueue, UID_Parameter, UID_SubParameter, GenProcID) select UID_DialogDBQueue, UID_Parameter
5, UID_SubParameter, GenProcID from QBMDBQueueCurrent cu with (readpast) where cu.SlotNumber = @SlotNumber if @@rowcount = 0 begin goto EndLabel end  insert
6 into @SourceData( IsUpcommingContent, XOriginAfter , Element, AssignedElement, XOriginBefore , XIsInEffectBefore, XIsInEffectAfter ) select 0, 0 , uid_person
7, uid_RPSReport, phr.XOrigin , phr.XIsInEffect, 0 from PersonHasRPSReport phr join @DBQueueCurrent x on uid_person = x.uid_parameter insert into @SourceData
8( IsUpcommingContent, XOriginBefore, XOriginAfter , Element, AssignedElement , XIsInEffectBefore, XIsInEffectAfter ) select 1, 0, r.XOrigin & @QBM_BitPatternXOrigin_Inherit_inv
9 , r.uid_person, r.uid_RPSReport , 0, (rr.IsInActive ^1 )  from PersonHasRPSReport r join @DBQueueCurrent x on uid_person= x.uid_parameter join RPSReport
10 rr on r.UID_RPSReport = rr.UID_RPSReport  and rr.IsDeactivatedByPreProcessor = 0 join person px on r.uid_person = px.uid_person  insert into @SourceData
11( IsUpcommingContent, XOriginBefore , Element, AssignedElement, XOriginAfter , XIsInEffectBefore, XIsInEffectAfter ) select 1, 0 , x.uid_person, x.uid_RPSReport
12, @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 ESetHasEntitlement
14 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 = 0
15 and a.IsDeactivatedByPreProcessor = 0 union all select pfo.uid_person, oha.uid_RPSReport  from dbo.QER_FTPersonInheritFromOrg_L(@DBQueueCurrent, @UID_BaseTreeAssignToUse
16) 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_RPSReport
17 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 = 1
19 , @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', @TargetIsView
21 = 0 , @FKTableNameElement = 'Person' , @FKColumnNameElement = 'UID_Person' end END TRY BEGIN CATCH exec QBM_PSessionErrorAdd default RAISERROR ('', 18
22, 1) WITH NOWAIT END CATCH endLabel: end 
23