dbo.QER_ZPersonHasQERReuseUS

1       create   procedure QER_ZPersonHasQERReuseUS (@SlotNumber int) AS begin declare @Sourcedata QBM_YDataForDelta , @CountDeltaQantity int , @CountDeltaOrigin
2 int declare @GenProcID varchar(38) declare @Xdate datetime = getutcdate() declare @XUser nvarchar(64) = object_name(@@procid) declare @UID_BaseTreeAssignToUse
3 varchar(38) = 'QER-AsgnBT-QERReuseUS' declare @DBQueueCurrent QBM_YDBQueueCurrent declare @QBM_BitPatternXOrigin_Inherit int = dbo.QBM_FGIBitPatternXOrigin
4('|Inherit|', 0) declare @QBM_BitPatternXOrigin_Inherit_inv int = dbo.QBM_FGIBitPatternXOrigin('|Inherit|', 1)  BEGIN TRY insert into @DBQueueCurrent(UID_DialogDBQueue
5, UID_Parameter, UID_SubParameter, GenProcID) select UID_DialogDBQueue, UID_Parameter, UID_SubParameter, GenProcID from QBMDBQueueCurrent cu with (readpast
6) where cu.SlotNumber = @SlotNumber if @@rowcount = 0 begin goto EndLabel end  insert into @SourceData( IsUpcommingContent, XOriginAfter , Element, AssignedElement
7, XOriginBefore , XIsInEffectBefore, XIsInEffectAfter ) select 0, 0 , phr.UID_Person, phr.UID_QERReuseUS, phr.XOrigin , phr.XIsInEffect, 0 from PersonHasQERReuseUS
8 phr join @DBQueueCurrent x on phr.UID_Person = x.uid_parameter if exists (select top 1 1 from DialogTable t where t.TableName = 'PersonHasQERReuseUS' 
9and t.IsDeactivatedByPreProcessor = 1 ) begin goto berechnen end insert into @SourceData( IsUpcommingContent, XOriginBefore, XOriginAfter , Element, AssignedElement
10 , XIsInEffectBefore, XIsInEffectAfter ) select 1, 0, case when pd.UID_QERReuseUS = pd.UID_QERReuseUSPredecessor then phr.XOrigin & @QBM_BitPatternXOrigin_Inherit_inv
11 else @QBM_BitPatternXOrigin_Inherit end , phr.UID_person, pd.UID_QERReuseUSPredecessor as UID_QERReuseUS , 0, 1  from PersonHasQERReuseUS phr join @DBQueueCurrent
12 x on UID_person = x.uid_parameter  join person p on phr.uid_person = p.uid_person  join QERReuseUS r on phr.uid_QERReuseUS = r.uid_QERReuseUS cross apply
13 dbo.QER_FTQERReuseUSPredecessor(r.UID_QERReuseUS) pd  where phr.XOrigin & @QBM_BitPatternXOrigin_Inherit_inv > 0 insert into @SourceData( IsUpcommingContent
14, XOriginBefore , Element, AssignedElement, XOriginAfter , XIsInEffectBefore, XIsInEffectAfter ) select 1, 0 , x.UID_person, pd.UID_QERReuseUSPredecessor
15 as UID_QERReuseUS , @QBM_BitPatternXOrigin_Inherit as XOrigin , 0, (r.IsNoInheriteToSecurityIncident & p.IsSecurityIncident) ^1 from ( select pha.UID_person
16, r.UID_QERReuseUS from @DBQueueCurrent x join PersonHasESet pha on pha.UID_person = x.uid_parameter and pha.XOrigin > 0 and pha.XIsInEffect = 1  join 
17person px on pha.uid_person = px.uid_person and px.isNoInherite = 0  join ESetHasEntitlement aha on pha.UID_ESet = aha.UID_ESet and aha.XOrigin > 0 and
18 aha.XIsInEffect = 1 and dbo.QBM_FGIModuleExists('RMS') = 1 Join QERReuseUS r on aha.Entitlement = r.XObjectKey union all select pfo.UID_person, oha.UID_QERReuseUS
19 from dbo.QER_FTPersonInheritFromOrg_L(@DBQueueCurrent, @UID_BaseTreeAssignToUse) pfo join BaseTreeHasQERReuseUS oha on oha.uid_org = pfo.uid_org and oha.XOrigin
20 > 0 and oha.XIsInEffect = 1 ) as x join person p on x.uid_person = p.uid_person join QERReuseUS r on x.uid_QERReuseUS = r.uid_QERReuseUS cross apply dbo.QER_FTQERReuseUSPredecessor
21(r.UID_QERReuseUS) pd berechnen: exec QBM_PDBQueueCalculateDelta @SourceData, @DeltaQuantity = 0, @DeltaDelete = 0, @DeltaInsert = 1, @DeltaOrigin = 1,
22 @CountDeltaQantity = @CountDeltaQantity output , @CountDeltaOrigin = @CountDeltaOrigin output , @UseIsInEffect = 1 , @SlotNumber = @SlotNumber , @DBQueueCurrentExtern
23 = @DBQueueCurrent if @CountDeltaOrigin > 0 begin exec QBM_PMNTableOriginUpdate 'PersonHasQERReuseUS', 'uid_Person', 'uid_QERReuseUS' end if @CountDeltaQantity
24 > 0 begin exec QBM_PMNTableInsert 'PersonHasQERReuseUS', 'uid_Person', 'uid_QERReuseUS', @TargetIsView = 0 , @FKTableNameElement = 'Person' , @FKColumnNameElement
25 = 'UID_Person' end END TRY BEGIN CATCH exec QBM_PSessionErrorAdd default RAISERROR ('', 18, 1) WITH NOWAIT END CATCH  endLabel: return end 
26