[Home] [Help]
1038: END IF;
1039: END IF;
1040:
1041: --added by mpande
1042: -- if parent id is not null during creation , a row is created in the ams_act_access to give access
1043: -- to the owner of the parent fund to this child
1044: IF G_DEBUG THEN
1045: ozf_utility_pvt.debug_message(l_full_name || ': insert access parent');
1046: END IF;
1570: p_fund_id IN NUMBER)
1571: IS
1572: SELECT activity_access_id
1573: ,object_version_number
1574: FROM ams_act_access
1575: WHERE act_access_to_object_id = p_fund_id
1576: AND arc_act_access_to_object = 'FUND'
1577: AND owner_flag = 'Y';
1578:
1581: ,p_par_owner_id IN NUMBER)
1582: IS
1583: SELECT activity_access_id
1584: ,object_version_number
1585: FROM ams_act_access
1586: WHERE act_access_to_object_id = p_fund_id
1587: AND arc_act_access_to_object = 'FUND'
1588: AND arc_user_or_role_type = 'USER'
1589: AND user_or_role_id = p_par_owner_id
2535:
2536: -- delete access before update budget because we delete access by loop through tree.
2537: --if the parent fundowner and the child fund owner is not same.
2538: IF l_fund_rec.parent_fund_id IS NOT NULL AND l_fund_rec.owner <> l_par_fund_owner THEN
2539: --if there is no parent fund OR (09/05/2001 mpande) when no records exists in ams_act_access for the fund
2540: --then create a access for the new parent ownner
2541: --if the old parent fund and the new parent fund is diffrent then delete the access
2542: IF l_old_parent_fund_id <> l_fund_rec.parent_fund_id THEN
2543: -- remove old access.
3156: END IF; -- end of owner is changing
3157:
3158: -- added by feliu to fix bug 2654263
3159: -- if parent id is not null during updation and old parent id is null ,
3160: -- a row is created in the ams_act_access to give access
3161: -- to the owner of the parent fund to this child
3162: --if the parent fund owner and the child fund owner is not same then only create this
3163: IF l_fund_rec.parent_fund_id IS NOT NULL AND l_fund_rec.owner <> l_par_fund_owner THEN
3164: --if there is no parent fund OR (09/05/2001 mpande) when no records exists in ams_act_access for the fund
3160: -- a row is created in the ams_act_access to give access
3161: -- to the owner of the parent fund to this child
3162: --if the parent fund owner and the child fund owner is not same then only create this
3163: IF l_fund_rec.parent_fund_id IS NOT NULL AND l_fund_rec.owner <> l_par_fund_owner THEN
3164: --if there is no parent fund OR (09/05/2001 mpande) when no records exists in ams_act_access for the fund
3165: --then create a access for the new parent ownner
3166: IF l_old_parent_fund_id IS NULL THEN
3167: update_funds_access(
3168: p_api_version => l_api_version
5924: ,p_owner_id IN NUMBER)
5925: IS
5926: SELECT activity_access_id
5927: ,object_version_number
5928: FROM ams_act_access
5929: WHERE act_access_to_object_id = p_fund_id
5930: AND arc_act_access_to_object = 'FUND'
5931: AND arc_user_or_role_type = 'USER'
5932: AND user_or_role_id = p_owner_id;