dbo.ATT_TUPerson

1    create   trigger ATT_TUPerson on Person  for Update not for Replication as begin  declare @Elements QBM_YParameterList declare @XUser nvarchar
2(64) = object_name(@@procid) declare @Xdate datetime = getutcdate() BEGIN TRY if exists (select top 1 1 from inserted) goto start if exists (select top
3 1 1 from deleted) goto start return start: declare @GenProcID varchar(38) = dbo.QBM_FGISessionContext('')    if UPDATE(UID_Department) begin declare @RecalcParameter_01
4 QBM_YCursorBuffer insert into @RecalcParameter_01 (ObjectKey1, UID1, Ident1) select dep.XObjectKey , 'ATT-PWODecisionRule-DM', 'A' from inserted i join
5 BaseTree dep on i.UID_Department = dep.UID_Org union all select dep.XObjectKey , 'ATT-PWODecisionRule-DM', 'A' from deleted d join BaseTree dep on d.UID_Department
6 = dep.UID_Org union all  select i.XObjectKey, 'ATT-PWODecisionRule-ED', 'A' from inserted i union all select i.XObjectKey, 'ATT-PWODecisionRule-AD', 'A'
7 from inserted i exec QER_PITShopHelperFill_Recalc @RecalcParameter_01, @GenprocID end if UPDATE(UID_Locality) begin declare @RecalcParameter_02 QBM_YCursorBuffer
8  insert into @RecalcParameter_02 (ObjectKey1, UID1, Ident1) select i.XObjectKey, 'ATT-PWODecisionRule-LM', 'A' from inserted i union all select i.XObjectKey
9, 'ATT-PWODecisionRule-AL', 'A' from inserted i exec QER_PITShopHelperFill_Recalc @RecalcParameter_02, @GenprocID end if UPDATE(UID_Profitcenter) begin
10 declare @RecalcParameter_03 QBM_YCursorBuffer  insert into @RecalcParameter_03 (ObjectKey1, UID1, Ident1) select i.XObjectKey, 'ATT-PWODecisionRule-PM'
11, 'A' from inserted i union all select i.XObjectKey, 'ATT-PWODecisionRule-AP', 'A' from inserted i exec QER_PITShopHelperFill_Recalc @RecalcParameter_03
12, @GenprocID end  if update(UID_PersonMasterIdentity) begin   exec QBM_PDBQueueInsert_Single 'QBM-K-CommonReCalculate', 'ATT-K-AttestationHelper-Cfg', 
13'', @GenProcID end if update(IsInActive) begin if dbo.QBM_FGIConfigparmValue('QER\Attestation\AutoCloseInactivePerson') > ' ' begin insert into @Elements
14(Parameter1, Parameter3) select distinct ac.XObjectKey, ac.UID_AttestationCase from Person p join deleted d on p.UID_Person = d.UID_Person and p.IsInActive
15 = 1 and d.IsInActive = 0 join AttestationCase ac on p.XObjectKey in (ac.ObjectKey1, ac.ObjectKeyBase , ac.ObjectKey2 , ac.ObjectKey3 ) where ac.IsClosed
16 = 0  exec QBM_PJobCreate_HOUpdate_L 'AttestationCase', @elements, @GenProcID , DEFAULT , @p1 = 'IsClosed' , @v1 = '1'  update AttestationCase set ReasonHead
17 = '#LDS#Automatic system approval: Case closed due to identity becoming inactive.|' , DateHead = @Xdate , XDateUpdated = @Xdate , XUserUpdated = @XUser
18 from AttestationCase ac join @Elements e on ac.XObjectKey = e.Parameter1 update @Elements set Parameter2 = NEWID()  insert into AttestationHistory (DecisionType
19, IsDecisionBySystem, UID_AttestationHistory, UID_PersonHead, UID_AttestationCase, DisplayPersonHead, ReasonHead, DateHead, XDateInserted, XDateUpdated
20, XUserInserted, XUserUpdated, DecisionLevel, XTouched, XObjectKey) select 'Abort', 1, e.Parameter2 as UID_AttestationHistory, null, e.Parameter3 as UID_AttestationCase
21, dbo.QBM_FCVStringTrimLDSPrefix('#LDS#Automatic system approval.|') , dbo.QBM_FCVStringTrimLDSPrefix('#LDS#Automatic system approval: Case closed due to identity becoming inactive.|'
22), GetUTCDate(), @Xdate, @Xdate, @XUser, @XUser, 0, '', dbo.QBM_FCVElementToObjectKey1('AttestationHistory', 'UID_AttestationHistory', e.Parameter2) from
23 @Elements e  end  declare @DBQueueElements_01 QBM_YDBQueueRaw insert into @DBQueueElements_01 (object, subobject, genprocid) select x.uid, null, @GenProcID
24 from ( select distinct ph.UID_AttestationCase as uid from deleted d join Person p on d.UID_Person = p.UID_Person join AttestationHelper ph on ph.UID_PersonHead
25 = p.UID_Person where d.IsInActive = 0 and p.IsInActive = 1 ) as x exec QBM_PDBQueueInsert_Bulk 'ATT-K-AttestationHelper', @DBQueueElements_01  end  if
26 UPDATE(UID_PersonHead) begin declare @RecalcParameter_04 QBM_YCursorBuffer insert into @RecalcParameter_04 (ObjectKey1, UID1, Ident1)  select i.XObjectKey
27, 'ATT-PWODecisionRule-XM', 'A' from inserted i exec QER_PITShopHelperFill_Recalc @RecalcParameter_04, @GenprocID end END TRY BEGIN CATCH exec QBM_PSessionErrorAdd
28 default RAISERROR ('', 18, 1) WITH NOWAIT END CATCH ende: return end 
29