dbo.ATT_ZAllForPersonInBaseTree

1    create   procedure ATT_ZAllForPersonInBaseTree (@SlotNumber int) as begin  declare @GenprocID varchar(38) declare @DBQueueCurrent QBM_YDBQueueCurrent
2 BEGIN TRY insert into @DBQueueCurrent(UID_DialogDBQueue, UID_Parameter, UID_SubParameter, GenProcID) select UID_DialogDBQueue, UID_Parameter, UID_SubParameter
3, GenProcID from QBMDBQueueCurrent cu with (readpast) where cu.SlotNumber = @SlotNumber if @@rowcount = 0 begin goto EndLabel end select top 1 @GenprocID
4 = max(cu.GenProcID) from @DBQueueCurrent cu if exists (select top 1 1 from @DBQueueCurrent cu where cu.UID_SubParameter = 'ATT-AEROLE-ATTESTATION-INTERVENTION'
5 ) begin   exec QBM_PDBQueueInsert_Single 'QBM-K-Commonrecalculate', 'ATT-K-AttestationHelper', '', @GenprocID end declare @DBQueueElements_01 QBM_YDBQueueRaw
6 insert into @DBQueueElements_01(Object, SubObject, GenProcID) select distinct h.UID_AttestationCase, '', cu.GenProcID from @DBQueueCurrent cu join QERWorkingStep
7 s on s.UID_AERoleFallBack = cu.UID_SubParameter join AttestationHelper h on h.UID_QERWorkingStep = s.UID_QERWorkingStep if @@ROWCOUNT > 0 begin   exec
8 QBM_PDBQueueInsert_Bulk 'ATT-K-AttestationHelper-Cfg', @DBQueueElements_01 end   declare @RecalcParameter_01 QBM_YCursorBuffer insert into @RecalcParameter_01
9 (ObjectKey1, UID1, Ident1)  select dbo.QBM_FCVElementToObjectKey1('Person', 'UID_Person', i.UID_Person), v.UID_PWODecisionRule, 'A' from (select cu.UID_Parameter
10 as UID_Person , cu.UID_SubParameter as UID_Org from @DBQueueCurrent cu ) i join AccProduct ap on i.UID_Org = ap.UID_OrgAttestator cross join (values (
11'ATT-PWODecisionRule-AN') , ('ARS-AttestationRule-KA') ) as v (UID_PWODecisionRule) insert into @RecalcParameter_01 (ObjectKey1, UID1, Ident1) select dbo.QBM_FCVElementToObjectKey1
12('Person', 'UID_Person', i.UID_Person), 'ATT-PWODecisionRule-AT', 'A' from (select cu.UID_Parameter as UID_Person , cu.UID_SubParameter as UID_Org from
13 @DBQueueCurrent cu ) i insert into @RecalcParameter_01 (ObjectKey1, UID1, Ident1) select dbo.QBM_FCVElementToObjectKey1('Person', 'UID_Person', i.UID_Person
14), 'ATT-PWODecisionRule-XM', 'A' from (select cu.UID_Parameter as UID_Person , cu.UID_SubParameter as UID_Org from @DBQueueCurrent cu ) i insert into @RecalcParameter_01
15 (ObjectKey1, UID1, Ident1) select dbo.QBM_FCVElementToObjectKey1('Person', 'UID_Person', i.UID_Person), 'ATT-PWODecisionRule-CM', 'A' from (select cu.UID_Parameter
16 as UID_Person , cu.UID_SubParameter as UID_Org from @DBQueueCurrent cu ) i  insert into @RecalcParameter_01 (ObjectKey1, UID1, Ident1) select ap.XObjectKey
17, v.UID_PWODecisionRule, 'A' from (select cu.UID_Parameter as UID_Person , cu.UID_SubParameter as UID_Org from @DBQueueCurrent cu ) i join AccProduct ap
18 on i.UID_Org = ap.UID_OrgRuler cross join (values ('ATT-PWODecisionRule-EO') , ('ATT-PWODecisionRule-OA') , ('ARS-AttestationRule-KA') ) as v (UID_PWODecisionRule
19) insert into @RecalcParameter_01 (ObjectKey1, UID1, Ident1) select ap.XObjectKey, 'ATT-PWODecisionRule-OrgATT' , 'A' from (select cu.UID_Parameter as 
20UID_Person , cu.UID_SubParameter as UID_Org from @DBQueueCurrent cu ) i join AccProduct ap on i.UID_Org = ap.UID_OrgAttestator  insert into @RecalcParameter_01
21 (ObjectKey1, UID1, Ident1) select ag.XObjectKey, 'ATT-PWODecisionRule-OrgATT' , 'A' from (select cu.UID_Parameter as UID_Person , cu.UID_SubParameter 
22as UID_Org from @DBQueueCurrent cu ) i join AccProductGroup ag on i.UID_Org = ag.UID_OrgAttestator  insert into @RecalcParameter_01 (ObjectKey1, UID1, 
23Ident1) select bt.XObjectKey, v.UID_PWODecisionRule, 'A' from (select cu.UID_Parameter as UID_Person , cu.UID_SubParameter as UID_Org from @DBQueueCurrent
24 cu ) i join BaseTree bt on i.UID_Org = bt.UID_Org cross join (values ('ATT-PWODecisionRule-OR') , ('ATT-PWODecisionRule-PM')  , ('ATT-PWODecisionRule-AD'
25) , ('ATT-PWODecisionRule-AL') , ('ATT-PWODecisionRule-AO')  , ('ATT-PWODecisionRule-AP') , ('ATT-PWODecisionRule-AA')  , ('POL-PWODecisionRule-AY')  ,
26 ('CPL-PWODecisionRule-AR') , ('AOB-ATTDecisionRule-BA') , ('AOB-ATTDecisionRule-BE') , ('ATT-PWODecisionRule-PW') ) as v (UID_PWODecisionRule) insert 
27into @RecalcParameter_01 (ObjectKey1, UID1, Ident1) select bt.XObjectKey, 'TSB-PWODecisionRule-SO', 'A' from (select cu.UID_Parameter as UID_Person , cu.UID_SubParameter
28 as UID_Org from @DBQueueCurrent cu ) i join BaseTree bt on i.UID_Org = bt.UID_Org join BasetreeCollection co on i.uid_org = co.uid_org   if exists (select
29 top 1 1 from QBMModuleDef where ModuleName = 'TSB') begin  insert into @RecalcParameter_01 (ObjectKey1, UID1, Ident1) select distinct r.XObjectKey, 'TSB-PWODecisionRule-EN'
30, 'A' from (select cu.UID_Parameter as UID_Person , cu.UID_SubParameter as UID_Org from @DBQueueCurrent cu ) i join UNSRoot r on (i.UID_Org = r.UID_AERoleOwner
31 or r.UID_AERoleOwner is null)  if exists (select top 1 1 from QBMModuleDef where ModuleName = 'SP0') begin  insert into @RecalcParameter_01 (ObjectKey1
32, UID1, Ident1) select distinct s.XObjectKey, 'TSB-PWODecisionRule-EN', 'A' from (select cu.UID_Parameter as UID_Person , cu.UID_SubParameter as UID_Org
33 from @DBQueueCurrent cu ) i join SPSFarm r on i.UID_Org = r.UID_AERoleOwner join SPSWebApplication wa on r.UID_SPSFarm = wa.UID_SPSFarm join SPSSite s
34 on s.UID_SPSWebapplication = wa.UID_SPSWebapplication end if exists (select top 1 1 from QBMModuleDef where ModuleName = 'ADS') begin  insert into @RecalcParameter_01
35 (ObjectKey1, UID1, Ident1) select distinct r.XObjectKey, 'TSB-PWODecisionRule-EN', 'A' from (select cu.UID_Parameter as UID_Person , cu.UID_SubParameter
36 as UID_Org from @DBQueueCurrent cu ) i join ADSContainer c on (i.UID_Org = c.UID_AERoleOwner or c.UID_AERoleOwner is null) join ADSDomain r on c.UID_ADSDomain
37 = r.UID_ADSDomain end end  if exists (select top 1 1 from QBMModuleDef where ModuleName = 'AAD') begin  insert into @RecalcParameter_01 (ObjectKey1, UID1
38, Ident1) select bt.XObjectKey, v.UID_PWODecisionRule, 'A' from (select cu.UID_Parameter as UID_Person , cu.UID_SubParameter as UID_Org from @DBQueueCurrent
39 cu ) i join BaseTree bt on i.UID_Org = bt.UID_Org cross join (values ('AAD-PWODecisionRule-SP') , ('ATT-PWODecisionRule-EO')  ) as v (UID_PWODecisionRule
40) end exec QER_PITShopHelperFill_Recalc @RecalcParameter_01, @GenprocID  END TRY BEGIN CATCH exec QBM_PSessionErrorAdd default RAISERROR ('', 18, 1) WITH
41 NOWAIT END CATCH endLabel: end 
42