dbo.QER_ZOrgRoot

1      create   procedure QER_ZOrgRoot ( @SlotNumber int , @UID_OrgRoot varchar(38), @dummy varchar(38) , @GenProcID varchar(38) ) AS begin  declare
2 @IsSimulationMode bit = dbo.QBM_FGIIsSimulationMode() declare @QBMDeltaHelper QBM_YDBQueueDeltaHelper BEGIN TRY declare @topdown bit declare @AnzahlRow
3 int declare @Debugswitch int = 0 declare @Sourcedata QBM_YDataForDelta , @CountDeltaQantity int , @CountDeltaOrigin int    select @topdown = isTopDown
4 from orgroot where uid_orgroot = @UID_OrgRoot if @Debugswitch > 0 begin print 'QER_ZOrgRoot : ' + @uid_Orgroot end  insert into @SourceData( IsUpcommingContent
5, XOriginBefore , Element, AssignedElement, XOriginAfter ) select 0, 2 , co.UID_Org , co.UID_ParentOrg, 0 from BaseTreeCollection co where co.uid_org in
6 (select uid_org from BaseTree where uid_orgroot = @UID_OrgRoot )   insert into @QBMDeltaHelper (Element, AssignedElement, XOrigin) select uid_org, uid_org
7 , 2 from BaseTree where uid_orgroot = @UID_OrgRoot   select @AnzahlRow = 1 while @AnzahlRow > 0 begin if @topdown = 1 begin  insert into @QBMDeltaHelper
8 (Element, AssignedElement, XOrigin) select distinct y.Element, x.UId_parentorg , 2  from BaseTree x, @QBMDeltaHelper y where x.uid_orgroot = @UID_OrgRoot
9 and x.uid_org = y.AssignedElement and x.uid_parentorg > ' ' and not exists (select top 1 1 from @QBMDeltaHelper h where h.Element = y.Element and h.AssignedElement
10 = x.uid_parentorg ) and x.isCutNode = 0 select @AnzahlRow = @@rowcount end else  begin  insert into @QBMDeltaHelper (Element,AssignedElement, XOrigin)
11 select distinct y.Element, x.uid_org , 2  from BaseTree x, @QBMDeltaHelper y where x.uid_orgroot = @UID_OrgRoot and x.uid_parentorg = y.AssignedElement
12  and not exists (select top 1 1 from @QBMDeltaHelper h where h.Element = y.Element and h.AssignedElement = x.uid_org ) and x.isCutNode = 0 select @AnzahlRow
13 = @@rowcount end end   insert into @SourceData( IsUpcommingContent, XOriginBefore, XOriginAfter , Element, AssignedElement ) select 1, 0, 2 , Element,
14 AssignedElement from @QBMDeltaHelper if @Debugswitch > 0 begin select * from @SourceData end exec QBM_PDBQueueCalculateDelta @SourceData, @DeltaQuantity
15 = 1, @DeltaDelete = 0, @DeltaInsert = 0, @DeltaOrigin = 0, @CountDeltaQantity = @CountDeltaQantity output , @CountDeltaOrigin = @CountDeltaOrigin output
16 , @UseIsInEffect = 0 , @SlotNumber = @SlotNumber  if @Debugswitch > 0 begin print '@CountDeltaQantity ' + str(@CountDeltaQantity) end if @CountDeltaQantity
17 > 0 begin   delete from BaseTreeCollection where uid_org in (select uid_org from BaseTree where uid_orgroot = @UID_OrgRoot )  if @IsSimulationMode = 1
18 begin declare @SimulationModeBuffer QBM_YTriggerOperation insert into @SimulationModeBuffer (operation, BaseObjectType, ColumnName, Objectkey, OldValue
19) select 'I', dbo.QER_FGIOrgRootName(b.uid_orgroot)+ 'Collection', '', dbo.QBM_FCVElementToObjectKey2(dbo.QER_FGIOrgRootName(b.uid_orgroot)+ 'Collection'
20, 'uid_' + dbo.QER_FGIOrgRootName(b.uid_orgroot), c.Element, 'uid_Parent' + dbo.QER_FGIOrgRootName(b.uid_orgroot), c.AssignedElement) , ''  from @QBMDeltaHelper
21 c join BaseTree b on c.Element = b.uid_org exec QBM_PFESimulationFill @SimulationModeBuffer end  insert into BaseTreeCollection (uid_org, uid_parentorg
22) select Element, AssignedElement from @QBMDeltaHelper declare @DBQueueElements_01 QBM_YDBQueueRaw insert into @DBQueueElements_01 (object, subobject, 
23genprocid) select x.uid, null, x.GenProcID from ( select d.Element as uid, @GenProcID as GenProcID  from #QBMDeltaQuantity d ) as x exec QBM_PDBQueueInsert_Bulk
24 'QER-K-AllForOneOrg', @DBQueueElements_01 exec QBM_PDBQueueInsert_Bulk 'QER-K-BaseTreeCollectionF', @DBQueueElements_01 end END TRY BEGIN CATCH exec QBM_PSessionErrorAdd
25 default RAISERROR ('', 18, 1) WITH NOWAIT END CATCH ende:    truncate table #QBMDeltaDelete return end 
26