dbo.CPL_ZAllForPersonInBaseTree

1     create   procedure CPL_ZAllForPersonInBaseTree (@SlotNumber int) as begin  declare @GenprocID varchar(38) = newid() declare @Parameter nvarchar
2(1000) declare @Ident_OrgRoot nvarchar(64) declare @ElementBuffer QBM_YCursorBuffer declare @ElementCount int declare @ElementIndex int declare @DBQueueCurrent
3 QBM_YDBQueueCurrent BEGIN TRY insert into @DBQueueCurrent(UID_DialogDBQueue, UID_Parameter, UID_SubParameter, GenProcID) select UID_DialogDBQueue, UID_Parameter
4, UID_SubParameter, GenProcID from QBMDBQueueCurrent cu with (readpast) where cu.SlotNumber = @SlotNumber if @@rowcount = 0 begin goto EndLabel end   insert
5 into @ElementBuffer (LongIdent1, UID1) select distinct dbo.QER_FGIOrgRootName(b.UID_OrgRoot), p.GenProcID from @DBQueueCurrent p join BaseTree b on p.UID_SubParameter
6 = b.UID_Org select @ElementCount = @@ROWCOUNT select @ElementIndex = 1 while @ElementIndex <= @ElementCount begin select top 1 @Ident_OrgRoot = bu.LongIdent1
7 , @GenprocID = bu.UID1 from @ElementBuffer bu where bu.ElementIndex = @ElementIndex if @Ident_OrgRoot = 'AERole' begin select @Parameter = '|' +'CPL-PWODecisionRule-OC|'
8  +'CPL-PWODecisionRule-OH|'  exec QER_PITShopHelperFillAll @Parameter, @GenprocID end select @ElementIndex += 1 end   if exists (select top 1 1 from QBMModuleDef
9 where ModuleName = 'ATT') begin declare @RecalcParameter_01 QBM_YCursorBuffer insert into @RecalcParameter_01 (ObjectKey1, UID1, Ident1) select bt.XObjectKey
10, 'CPL-PWODecisionRule-AR', 'A' from (select cu.UID_Parameter as UID_Person , cu.UID_SubParameter as UID_Org from @DBQueueCurrent cu ) i join BaseTree 
11bt on i.UID_Org = bt.UID_Org exec QER_PITShopHelperFill_Recalc @RecalcParameter_01, @GenprocID end  if exists (select top 1 1 from @DBQueueCurrent p join
12 compliancerule cr on p.UID_SubParameter = cr.uid_orgruler  and cr.IsInActive = 0 and cr.IsWorkingCopy = 0  ) begin exec QBM_PDBQueueInsert_Single 'QER-K-ShoppingRackPWODecisionMaker'
13, '', '', @GenprocID end     END TRY BEGIN CATCH exec QBM_PSessionErrorAdd default RAISERROR ('', 18, 1) WITH NOWAIT END CATCH endLabel: end 
14