dbo.QER_FTEntitlementSourceOrgWho

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