[Home] [Help]
441: l_approved_amount_fc NUMBER;
442: l_old_amount_fc NUMBER;
443:
444: CURSOR c_act_budget_id IS
445: SELECT ozf_act_budgets_s.NEXTVAL
446: FROM DUAL;
447:
448: CURSOR c_act_util_rec (p_used_by_id IN NUMBER, p_used_by_type IN VARCHAR2) IS
449: SELECT activity_budget_id, object_version_number, approved_amount,approved_amount_fc
446: FROM DUAL;
447:
448: CURSOR c_act_util_rec (p_used_by_id IN NUMBER, p_used_by_type IN VARCHAR2) IS
449: SELECT activity_budget_id, object_version_number, approved_amount,approved_amount_fc
450: FROM ozf_act_budgets
451: WHERE act_budget_used_by_id = p_used_by_id
452: AND arc_act_budget_used_by = p_used_by_type
453: AND transfer_type = 'UTILIZED';
454:
481: CLOSE c_act_util_rec;
482:
483: --if act_budget record exist for this offer, update record.
484: IF l_activity_id IS NOT NULL THEN
485: UPDATE ozf_act_budgets
486: SET request_amount = l_old_approved_amount + NVL(l_act_budgets_rec.request_amount, 0),
487: approved_amount =l_old_approved_amount + NVL(l_act_budgets_rec.request_amount, 0),
488: src_curr_request_amt =l_old_approved_amount + NVL(l_act_budgets_rec.request_amount, 0),
489: object_version_number = l_obj_ver_num + 1
514: x_return_status := fnd_api.g_ret_sts_error;
515: END IF;
516:
517: /* Added for bug 7030415
518: This currency conversion is for approved_amount_fc column in ozf_act_budgets table.
519: Using the utilization org_id because to_currency is the functional currency of
520: order's org's ledger.*/
521:
522: OPEN c_get_conversion_type(p_org_id);
560: CLOSE c_act_budget_id;
561:
562: l_requester_id := ozf_utility_pvt.get_resource_id (fnd_global.user_id);
563:
564: INSERT INTO ozf_act_budgets
565: (activity_budget_id,last_update_date
566: ,last_updated_by, creation_date
567: ,created_by,last_update_login -- other columns
568: ,object_version_number,act_budget_used_by_id
835: connect by prior parent_fund_id =fund_id
836: start with fund_id = p_fund_id;
837:
838: /* 10/14/2003 yzhao Fix TEVA bug - customer fully accrual budget committed amount is always 0
839: update ozf_act_budgets REQUEST between fully accrual budget and its offer when accrual happens
840: */
841: CURSOR c_accrual_budget_reqeust(p_fund_id IN NUMBER, p_plan_id IN NUMBER) IS
842: SELECT activity_budget_id
843: , object_version_number
840: */
841: CURSOR c_accrual_budget_reqeust(p_fund_id IN NUMBER, p_plan_id IN NUMBER) IS
842: SELECT activity_budget_id
843: , object_version_number
844: FROM ozf_act_budgets
845: WHERE arc_act_budget_used_by = 'OFFR'
846: AND act_budget_used_by_id = p_plan_id
847: AND budget_source_type = 'FUND'
848: AND budget_source_id = p_fund_id
1532: l_rollup_committed_amt := NVL(l_rollup_committed_amt, 0) + NVL (l_utilization_rec.univ_curr_amount, 0);
1533: l_recal_committed := NVL(l_recal_committed, 0) + NVL (l_utilization_rec.amount, 0);
1534: l_rollup_recal_committed := NVL(l_rollup_recal_committed, 0) + NVL (l_utilization_rec.univ_curr_amount, 0);
1535:
1536: -- 10/14/2003 update ozf_act_budgets REQUEST between fully accrual budget and its offer when accrual happens
1537: OPEN c_accrual_budget_reqeust(l_utilization_rec.fund_id, l_plan_id);
1538: FETCH c_accrual_budget_reqeust INTO l_act_budget_id, l_act_budget_objver;
1539: IF (c_accrual_budget_reqeust%NOTFOUND) THEN
1540: ozf_utility_pvt.write_conc_log (' D: create_utilized_rec() ERROR customer fully accrual budget. can not find approved budget request record between fund '
1547: RAISE fnd_api.g_exc_error;
1548: END IF;
1549: CLOSE c_accrual_budget_reqeust;
1550:
1551: UPDATE ozf_act_budgets
1552: SET request_amount = NVL(request_amount, 0) + l_utilization_rec.plan_curr_amount
1553: , src_curr_request_amt = NVL(src_curr_request_amt, 0) + l_utilization_rec.amount
1554: , approved_amount = NVL(approved_amount, 0) + l_utilization_rec.plan_curr_amount
1555: , approved_original_amount = NVL(approved_original_amount, 0) + l_utilization_rec.amount