dbo.QER_POrgRootAssignFill

1   create   procedure QER_POrgRootAssignFill (@AutoFill bit = 0 ) as begin declare @XUser nvarchar(64) = object_name(@@procid) declare @XDate datetime
2 = getutcdate() SET XACT_ABORT OFF BEGIN TRY if @AutoFill = 1  begin insert into OrgRootAssign (UID_OrgRoot, UID_BaseTreeAssign, IsAssignmentAllowed, IsDirectAssignmentAllowed
3 , Xdateinserted, XDateupdated, XUserInserted, XUserUpdated , XObjectKey) select r.UID_OrgRoot, ba.UID_BaseTreeAssign, 0, 0 , @XDate, @XDate, @XUser, @XUser
4 , dbo.QBM_FCVElementToObjectKey2('OrgRootAssign', 'UID_OrgRoot', r.UID_OrgRoot, 'UID_BaseTreeAssign', ba.UID_BaseTreeAssign) from OrgRoot r cross join
5 BaseTreeAssign ba where not exists (select top 1 1 from OrgRootAssign a where a.UID_BaseTreeAssign = ba.UID_BaseTreeAssign and a.UID_OrgRoot = r.UID_OrgRoot
6 ) and ba.UID_DialogTableElement > ' ' end delete OrgRootAssign  from OrgRootAssign oa join BaseTreeAssign ba on oa.UID_BaseTreeAssign = ba.UID_BaseTreeAssign
7 where ba.UID_DialogTableElement is null END TRY BEGIN CATCH exec QBM_PSessionErrorAdd default declare @Rethrow varchar(1000) = dbo.QBM_FGISessionErrorRethrow
8() RAISERROR (@Rethrow, 18, 1) WITH NOWAIT END CATCH end 
9