dbo.QER_FTEntitlementSourceOrg

1create function dbo.QER_FTEntitlementSourceOrg ( @ObjectKeyToInspect varchar(138)  , @uid_Org varchar(38)   ) returns @result table (UID_Org varchar(38
2) collate database_default  , UID_ParentOrg varchar(38) collate database_default  , Ident_Org nvarchar(256) collate database_default  , AssignType int 
3 , ObjectKeyOrg varchar(138) collate database_default  ) as begin  declare @erg QBM_YSingleGUID  declare @Person QBM_YSingleGUID  declare @QER_VBaseTreeCollection_Root
4 QBM_YMNTable  insert into @person(UID_SingleGuid ) select w.UID_Person from dbo.QER_FTEntitlementSourceWho(@ObjectKeyToInspect ) w group by w.UID_Person
5 insert into @QER_VBaseTreeCollection_Root(UID_Element1 , UID_Element2 ) select v.UID_Org, v.UID_ParentOrg from QER_VBaseTreeCollection_Root v where v.UID_ParentOrg
6 = @uid_org  insert into @QER_VBaseTreeCollection_Root(UID_Element1 , UID_Element2 ) select distinct v.UID_Org, v.UID_ParentOrg from @QER_VBaseTreeCollection_Root
7 e join QER_VBaseTreeCollection_Root v on e.UID_Element1  = v.UID_Org join QER_VBaseTreeCollection_Root v2 on v.UID_ParentOrg = v2.UID_Org and e.UID_Element2
8  = v2.UID_ParentOrg where not exists (select top 1 1 from @QER_VBaseTreeCollection_Root x where x.UID_Element1  = v.UID_Org and x.UID_Element2  = v.UID_ParentOrg
9 )  insert into @erg (UID_SingleGuid , IntProperty ) select co.UID_Element1 , sign(max(sign(len(isnull(x.uid_org, '')))) ) from @QER_VBaseTreeCollection_Root
10 co left outer join ( select pio.uid_org from personinBaseTree pio join @Person p on pio.uid_person = p.UID_SingleGuid  and pio.XOrigin > 0  union select
11 pio.uid_org from helperPersonOrg pio join @Person p on pio.uid_person = p.UID_SingleGuid  ) as x on co.UID_Element1  = x.uid_org  group by co.UID_Element1
12   update @erg set IntProperty  += 2 from @erg e join @QER_VBaseTreeCollection_Root co on co.UID_Element2  = e.UID_SingleGuid  where exists (select top
13 1 1 from @erg e2 where e2.UID_SingleGuid  = co.UID_Element1  and e2.IntProperty  = 1 and e2.UID_SingleGuid  <> e.UID_SingleGuid  )  insert into @result
14 (uid_org, uid_parentorg, ident_org, assigntype, ObjectkeyOrg ) select e.UID_SingleGuid , b.uid_parentorg, b.ident_org, e.IntProperty , b.XObjectKey from
15 @erg e left outer join BaseTree b on e.UID_SingleGuid  = b.uid_org update @result set ident_org = r.ident_orgroot, ObjectKeyOrg = r.XObjectKey from @result
16 rx , Orgroot r where rx.uid_org = r.uid_orgroot if @@rowcount > 0 begin update @result set uid_parentorg = b.uid_orgroot from @result rx, BaseTree b where
17 rx.uid_parentorg is null and rx.uid_org = b.uid_org end ende: return end 
18