[Home] [Help]
856: l_act_budgets_rec.approval_date := SYSDATE;
857: l_act_budgets_rec.approver_id := ozf_utility_pvt.get_resource_id (fnd_global.user_id);
858: l_act_budgets_rec.requester_id := ozf_utility_pvt.get_resource_id (fnd_global.user_id);
859: l_act_budgets_rec.justification :=
860: fnd_message.get_string ('OZF', 'OZF_FUND_RECONCILE');
861: -- nepanda : fix for bug # 14062938 - Converting the amount to be transferred from offer currency to budget currency
862: ozf_utility_pvt.convert_currency (
863: x_return_status=> l_return_status
864: ,p_from_currency=> p_object_currency
944: l_act_budgets_rec.approval_date := SYSDATE;
945: l_act_budgets_rec.approver_id := ozf_utility_pvt.get_resource_id (fnd_global.user_id);
946: l_act_budgets_rec.requester_id := ozf_utility_pvt.get_resource_id (fnd_global.user_id);
947: l_act_budgets_rec.justification :=
948: fnd_message.get_string ('OZF', 'OZF_FUND_RECONCILE');
949:
950:
951: IF NVL (l_act_budgets_rec.request_amount, 0) > 0 THEN
952: ozf_actbudgets_pvt.create_act_budgets (
1416: l_act_budgets_rec.approval_date := SYSDATE;
1417: l_act_budgets_rec.approver_id := ozf_utility_pvt.get_resource_id (fnd_global.user_id);
1418: l_act_budgets_rec.requester_id := ozf_utility_pvt.get_resource_id (fnd_global.user_id);
1419: l_act_budgets_rec.justification :=
1420: fnd_message.get_string ('OZF', 'OZF_ACT_BUDGET_RECAL_COMM');
1421: IF G_DEBUG THEN
1422: ozf_utility_pvt.debug_message ('Allow exceed: '|| l_exceed_flag);
1423: END IF;
1424:
1825: RAISE fnd_api.g_exc_unexpected_error;
1826: END IF;
1827: l_act_budgets_rec.approval_date := SYSDATE;
1828: l_act_budgets_rec.approver_id := ozf_utility_pvt.get_resource_id (fnd_global.user_id);
1829: l_act_budgets_rec.justification := fnd_message.get_string ('OZF', 'OZF_ACT_BUDG_CST_UTIL');
1830: l_act_budgets_rec.parent_source_id := l_parent_source_rec.parent_source_id;
1831: l_act_budgets_rec.parent_src_curr := l_parent_source_rec.parent_curr;
1832: l_act_budgets_rec.parent_src_apprvd_amt := - l_converted_amt; -- in budget currency.
1833: l_act_budgets_rec.exchange_rate_date := l_parent_source_rec.exchange_rate_date; --Added for bug 7425189
2332: l_act_budgets_rec.approved_original_amount := l_old_fund_obj.plan_curr_amount;
2333: l_act_budgets_rec.approval_date := SYSDATE;
2334: l_act_budgets_rec.approver_id := ozf_utility_pvt.get_resource_id (fnd_global.user_id);
2335: l_act_budgets_rec.requester_id := ozf_utility_pvt.get_resource_id (fnd_global.user_id);
2336: l_act_budgets_rec.justification := fnd_message.get_string ('OZF', 'OZF_FUND_RECONCILE');
2337:
2338: IF G_DEBUG THEN
2339: ozf_utility_pvt.write_conc_log('Create transfer record for original budget: ' || l_old_fund_obj.amount);
2340: END IF;
2373: l_act_budgets_rec.approved_amount := l_old_fund_obj.plan_curr_amount;
2374: l_act_budgets_rec.approved_original_amount := l_old_fund_obj.amount;
2375: l_act_budgets_rec.approved_in_currency := l_old_fund_obj.fund_currency;
2376: l_act_budgets_rec.approval_date := SYSDATE;
2377: l_act_budgets_rec.justification := fnd_message.get_string ('OZF', 'OZF_FUND_MASS_TRANSFER');
2378: -- Here the trasnsfer type would be request ....
2379: l_act_budgets_rec.transfer_type := 'REQUEST';
2380: -- This would create the objects for new budgets also which
2381: -- were associated with the old budget ...
2418: END LOOP;
2419:
2420: CLOSE c_get_old_fund_obj;
2421: ELSE
2422: l_message := fnd_message.get_string ('OZF', 'OZF_FUND_NO_MASS_TRANS') || fnd_global.local_chr(10);
2423: ozf_utility_pvt.write_conc_log(l_message || l_fund_id);
2424: END IF; -- The main IF loop
2425:
2426: x_return_status := fnd_api.g_ret_sts_success;