dbo.QER_ZOrgHasQERReuseUS

1       create   procedure QER_ZOrgHasQERReuseUS (@SlotNumber int) AS begin declare @GenProcID varchar(38) declare @UID_BasetreeAssignToUse varchar
2(38) = 'QER-AsgnBT-QERReuseUS' declare @Sourcedata QBM_YDataForDelta , @CountDeltaQantity int , @CountDeltaOrigin int declare @DBQueueCurrent QBM_YDBQueueCurrent
3 declare @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 ) select 0, 0 , UID_org, UID_QERReuseUS
7, XOrigin , XIsInEffect from BaseTreeHasQERReuseUS join @DBQueueCurrent x on UID_org =x.uid_parameter insert into @SourceData( IsUpcommingContent, XOriginBefore
8, XOriginAfter , Element, AssignedElement , XIsInEffectAfter ) select 1, 0, oha.XOrigin & @QBM_BitPatternXOrigin_Inherit_inv , oha.uid_org, oha.UID_QERReuseUS
9 , 1 from BaseTreeHasQERReuseUS oha join @DBQueueCurrent x on oha.UID_org = x.uid_parameter  where oha.XOrigin & @QBM_BitPatternXOrigin_Inherit_inv > 0
10 insert into @SourceData( IsUpcommingContent, XOriginBefore , Element, AssignedElement, XOriginAfter , XIsInEffectAfter ) select 1, 0 , x.UID_Parameter
11, oha.UID_QERReuseUS, @QBM_BitPatternXOrigin_Inherit , 1 from BaseTreeHasQERReuseUS oha join BaseTreeCollection oc on oha.UID_org = oc.UID_parentorg and
12 oha.XOrigin > 0 and oha.XIsInEffect = 1 join @DBQueueCurrent x on oc.UID_org = x.uid_parameter where oc.UID_org <> oc.UID_parentorg  and oha.XOrigin &
13 @QBM_BitPatternXOrigin_Inherit_inv > 0 if dbo.QBM_FGIModuleExists('RMS') = 1 begin if dbo.QBM_FGIConfigparmValue('QER\Structures\Inherite\NoESetSplitting'
14) = '' begin insert into @SourceData( IsUpcommingContent, XOriginBefore , Element, AssignedElement, XOriginAfter , XIsInEffectAfter ) select 1, 0 , x.UID_Parameter
15, y.UID_QERReuseUS, @QBM_BitPatternXOrigin_Inherit  , 1 from @DBQueueCurrent x join BaseTreeHasEset bhe on x.UID_Parameter = bhe.uid_org and bhe.XOrigin
16 > 0 and bhe.XIsInEffect = 1 join ESetHasEntitlement ehe on bhe.uid_ESet = ehe.uid_ESet and ehe.XOrigin > 0 and ehe.XIsInEffect = 1 join QERReuseUS y on
17 ehe.entitlement = y.XObjectKey join BaseTree b on bhe.UID_Org = b.UID_Org  and not (b.UID_OrgRoot in ( 'QER-V-ITShopOrg', 'QER-V-ITShopSrc') and b.ITShopInfo
18 in ( 'BO', 'PR', 'BG', 'BT') ) join OrgRootAssign oa on oa.UID_OrgRoot = b.UID_OrgRoot and oa.UID_BaseTreeAssign = @UID_BasetreeAssignToUse and oa.IsAssignmentAllowed
19 = 1 end else begin  declare @DBQueueElements_01 QBM_YDBQueueRaw insert into @DBQueueElements_01 (object, subobject, genprocid) select x.uid, null, x.GenProcID
20 from ( select cu.UID_Parameter as uid, cu.GenProcID from @DBQueueCurrent cu ) as x exec QBM_PDBQueueInsert_Bulk 'QER-K-BaseTreeHasObject', @DBQueueElements_01
21 end end  insert into @SourceData( IsUpcommingContent, XOriginBefore , Element, AssignedElement, XOriginAfter , XIsInEffectAfter ) select 1, 0 , s.Element
22, pd.UID_QERReuseUSPredecessor, @QBM_BitPatternXOrigin_Inherit , s.XIsInEffectAfter from @SourceData s join BaseTree b on s.element = b.UID_Org and not
23 (b.UID_OrgRoot in ( 'QER-V-ITShopOrg', 'QER-V-ITShopSrc') and b.ITShopInfo in ( 'BO', 'PR', 'BG', 'BT') ) cross apply dbo.QER_FTQERReuseUSPredecessor(s.AssignedElement
24) pd where s.IsUpcommingContent = 1 and pd.UID_QERReuseUS <> pd.UID_QERReuseUSPredecessor  exec QBM_PDBQueueCalculateDelta @SourceData, @DeltaQuantity 
25= 0, @DeltaDelete = 0, @DeltaInsert = 1, @DeltaOrigin = 1, @CountDeltaQantity = @CountDeltaQantity output , @CountDeltaOrigin = @CountDeltaOrigin output
26 , @UseIsInEffect = 1 , @SlotNumber = @SlotNumber , @DBQueueCurrentExtern = @DBQueueCurrent if @CountDeltaOrigin > 0 begin exec QBM_PMNTableOriginUpdate
27 'BaseTreeHasQERReuseUS', 'UID_Org', 'uid_QERReuseUS' end if @CountDeltaQantity > 0 begin exec QER_PMNTableAddViewProperties 'BaseTreeHasQERReuseUS' exec
28 QBM_PMNTableInsert 'BaseTreeHasQERReuseUS', 'UID_Org', 'uid_QERReuseUS', @TargetIsView = 1 , @FKTableNameElement = 'BaseTree' , @FKColumnNameElement =
29 'UID_Org' end END TRY BEGIN CATCH exec QBM_PSessionErrorAdd default RAISERROR ('', 18, 1) WITH NOWAIT END CATCH endLabel: end 
30