dbo.RPS_TIPersonHasRPSReport

1  create   trigger RPS_TIPersonHasRPSReport on PersonHasRPSReport  for Insert not for Replication as begin declare @XUser nvarchar(64) = object_name
2(@@procid) declare @Xdate datetime = getutcdate() declare @QBM_BitPatternXOrigin_Direct int = dbo.QBM_FGIBitPatternXOrigin('|Direct|', 0)  BEGIN TRY if
3 exists (select top 1 1 from inserted) goto start return start: declare @GenProcID varchar(38) select @GenProcID = dbo.QBM_FGISessionContext('')  if exists
4 (select top 1 1 from inserted i join RPSReport p on i.UID_RPSReport = p.UID_RPSReport and p.isInactive = 1 ) begin  raiserror( '#LDS#Assignment cannot take place, because the object to be assigned is disabled.|'
5, 18, 3) with nowait end  if exists (select top 1 1 from inserted i   join RPSReport elem on i.uid_RPSReport = elem.uid_RPSReport where dbo.QER_FGIITShopFlagCombineValid
6(i.XObjectKey, null, null, elem.XObjectKey, elem.IsForITShop, elem.IsITShopOnly) = 0 and i.XOrigin & @QBM_BitPatternXOrigin_Direct > 0 ) begin  raiserror
7 ('#LDS#Assignment is not permitted due to the combination of IT Shop flags.|', 18, 2) with nowait end declare @DBQueueElements_01 QBM_YDBQueueRaw insert
8 into @DBQueueElements_01 (object, subobject, genprocid) select x.uid, null, @GenProcID from ( select distinct i.UID_Person as uid from inserted i where
9 i.XIsInEffect = 0 ) as x exec QBM_PDBQueueInsert_Bulk 'RPS-K-PersonHasRPSReport', @DBQueueElements_01 declare @DBQueueElements_02 QBM_YDBQueueRaw insert
10 into @DBQueueElements_02 (object, subobject, genprocid) select x.uid, null, @GenProcID from ( select distinct uid_person as uid from inserted i where 
11i.XIsInEffect = 1 ) as x exec QBM_PDBQueueInsert_Bulk 'RPS-K-PersonHasObject', @DBQueueElements_02  update RPSSubscription set isRejected = 0  , XDateUpdated
12 = @Xdate , XUserUpdated = @XUser where exists (select top 1 1 from inserted d where d.uid_person = RPSSubscription.uid_person and d.uid_RPSReport = RPSSubscription.uid_RPSReport
13 and d.XIsInEffect = 1 ) and isRejected = 1 END TRY BEGIN CATCH exec QBM_PSessionErrorAdd default RAISERROR ('', 18, 1) WITH NOWAIT END CATCH ende: return
14 end 
15