[Home] [Help]
1030: END IF;
1031: END IF;
1032:
1033: --added by mpande
1034: -- if parent id is not null during creation , a row is created in the ams_act_access to give access
1035: -- to the owner of the parent fund to this child
1036: IF G_DEBUG THEN
1037: ozf_utility_pvt.debug_message(l_full_name || ': insert access parent');
1038: END IF;
1505: p_fund_id IN NUMBER)
1506: IS
1507: SELECT activity_access_id
1508: ,object_version_number
1509: FROM ams_act_access
1510: WHERE act_access_to_object_id = p_fund_id
1511: AND arc_act_access_to_object = 'FUND'
1512: AND owner_flag = 'Y';
1513:
1516: ,p_par_owner_id IN NUMBER)
1517: IS
1518: SELECT activity_access_id
1519: ,object_version_number
1520: FROM ams_act_access
1521: WHERE act_access_to_object_id = p_fund_id
1522: AND arc_act_access_to_object = 'FUND'
1523: AND arc_user_or_role_type = 'USER'
1524: AND user_or_role_id = p_par_owner_id
2321:
2322: -- delete access before update budget because we delete access by loop through tree.
2323: --if the parent fundowner and the child fund owner is not same.
2324: IF l_fund_rec.parent_fund_id IS NOT NULL AND l_fund_rec.owner <> l_par_fund_owner THEN
2325: --if there is no parent fund OR (09/05/2001 mpande) when no records exists in ams_act_access for the fund
2326: --then create a access for the new parent ownner
2327: --if the old parent fund and the new parent fund is diffrent then delete the access
2328: IF l_old_parent_fund_id <> l_fund_rec.parent_fund_id THEN
2329: -- remove old access.
2759: END IF; -- end of owner is changing
2760:
2761: -- added by feliu to fix bug 2654263
2762: -- if parent id is not null during updation and old parent id is null ,
2763: -- a row is created in the ams_act_access to give access
2764: -- to the owner of the parent fund to this child
2765: --if the parent fund owner and the child fund owner is not same then only create this
2766: IF l_fund_rec.parent_fund_id IS NOT NULL AND l_fund_rec.owner <> l_par_fund_owner THEN
2767: --if there is no parent fund OR (09/05/2001 mpande) when no records exists in ams_act_access for the fund
2763: -- a row is created in the ams_act_access to give access
2764: -- to the owner of the parent fund to this child
2765: --if the parent fund owner and the child fund owner is not same then only create this
2766: IF l_fund_rec.parent_fund_id IS NOT NULL AND l_fund_rec.owner <> l_par_fund_owner THEN
2767: --if there is no parent fund OR (09/05/2001 mpande) when no records exists in ams_act_access for the fund
2768: --then create a access for the new parent ownner
2769: IF l_old_parent_fund_id IS NULL THEN
2770: update_funds_access(
2771: p_api_version => l_api_version
5496: ,p_owner_id IN NUMBER)
5497: IS
5498: SELECT activity_access_id
5499: ,object_version_number
5500: FROM ams_act_access
5501: WHERE act_access_to_object_id = p_fund_id
5502: AND arc_act_access_to_object = 'FUND'
5503: AND arc_user_or_role_type = 'USER'
5504: AND user_or_role_id = p_owner_id;