dbo.RPS_TIBaseTreeHasRPSReport

1  create   trigger RPS_TIBaseTreeHasRPSReport on BaseTreeHasRPSReport  for Insert not for Replication as begin  declare @QBM_BitPatternXOrigin_Direct
2 int = dbo.QBM_FGIBitPatternXOrigin('|Direct|', 0) declare @QBM_BitPatternXOrigin_Inherit_inv int = dbo.QBM_FGIBitPatternXOrigin('|Inherit|', 1)  BEGIN
3 TRY if exists (select top 1 1 from inserted) goto start return start: declare @GenProcID varchar(38) select @GenProcID = dbo.QBM_FGISessionContext('')
4 declare @AssignCheckValues QBM_YparameterList insert into @AssignCheckValues(Parameter1, Parameter2) select i.UID_Org, i.XOrigin from inserted i exec 
5QER_PAssignmentCheckValid 'RPS-AsgnBT-RPSReport', @AssignCheckValues, @GenProcID  if exists (select top 1 1 from inserted i join RPSReport p on i.UID_RPSReport
6 = p.UID_RPSReport and p.isInactive = 1 join BaseTree b on i.uid_org = b.uid_org and (b.uid_orgroot < 'QER-V-ITShopOrg' or b.uid_orgroot > 'QER-V-ITShopOrg'
7 ) ) begin  raiserror( '#LDS#Assignment cannot take place, because the object to be assigned is disabled.|', 18, 3) with nowait end declare @ITShopInfo
8 nvarchar(2)  if exists (select top 1 1 from inserted i join BaseTree dest on i.uid_org = dest.uid_Org  join RPSReport elem on i.uid_RPSReport = elem.uid_RPSReport
9 where dbo.QER_FGIITShopFlagCombineValid(dest.XObjectKey, null, null, elem.XObjectKey, elem.IsForITShop, elem.IsITShopOnly) = 0 and i.XOrigin & @QBM_BitPatternXOrigin_Direct
10 > 0 ) begin  raiserror ('#LDS#Assignment is not permitted due to the combination of IT Shop flags.|', 18, 2) with nowait end  declare @DBQueueElements_01
11 QBM_YDBQueueRaw insert into @DBQueueElements_01 (object, subobject, genprocid) select x.uid, x.subobject, @GenProcID from ( select distinct i.uid_org 
12as uid , 'RPS-K-OrgHasRPSReport' as subobject from inserted i  where i.XOrigin & @QBM_BitPatternXOrigin_Inherit_inv > 0  ) as x exec QBM_PDBQueueInsert_Bulk
13 'QER-K-AllChildrenOfOrg', @DBQueueElements_01 declare @DBQueueElements_02 QBM_YDBQueueRaw insert into @DBQueueElements_02 (object, subobject, genprocid
14) select x.uid, null, @GenProcID from ( select distinct i.uid_org as uid from inserted i join BaseTree b on i.uid_Org = b.uid_org where b.ITShopInfo = 
15'BO' and i.XIsInEffect = 1 ) as x exec QBM_PDBQueueInsert_Bulk 'QER-K-OrgAutoChild', @DBQueueElements_02 declare @DBQueueElements_03 QBM_YDBQueueRaw insert
16 into @DBQueueElements_03 (object, subobject, genprocid) select x.uid, null, @GenProcID from ( select distinct i.uid_org as uid from inserted i where i.XIsInEffect
17 = 1 ) as x exec QBM_PDBQueueInsert_Bulk 'RPS-K-BaseTreeHasObject', @DBQueueElements_03 declare @DBQueueElements_04 QBM_YDBQueueRaw insert into @DBQueueElements_04
18 (object, subobject, genprocid) select x.uid, null, @GenProcID from ( select distinct hpo.uid_person as uid from inserted i join (select pio.uid_person
19, pio.uid_org from personinBaseTree pio where pio.XOrigin > 0 union all select uid_person, uid_org from helperPersonOrg ) hpo on hpo.uid_org = i.uid_org
20 where i.XIsInEffect = 1 ) as x exec QBM_PDBQueueInsert_Bulk 'RPS-K-PersonHasRPSReport', @DBQueueElements_04 END TRY BEGIN CATCH exec QBM_PSessionErrorAdd
21 default RAISERROR ('', 18, 1) WITH NOWAIT END CATCH ende: return end 
22