[Home] [Help]
709: l_api_version NUMBER := 1.0;
710: l_return_status VARCHAR2 (1) := fnd_api.g_ret_sts_success;
711: l_api_name VARCHAR2 (60) := 'reconcile_budget_line';
712: l_act_budget_id NUMBER;
713: l_act_budgets_rec ozf_actbudgets_pvt.act_budgets_rec_type;
714: l_source_from_par_flag VARCHAR2 (1);
715: l_fund_source VARCHAR2 (1) := 'T';
716: --l_parent_source_rec_obj c_parent_source_obj%ROWTYPE;
717: l_dummy NUMBER;
857: fnd_message.get_string ('OZF', 'OZF_FUND_RECONCILE');
858:
859:
860: IF NVL (l_parent_source_rec.total_amount, 0) > 0 THEN
861: ozf_actbudgets_pvt.create_act_budgets (
862: p_api_version=> l_api_version
863: ,x_return_status=> l_return_status
864: ,x_msg_count=> x_msg_count
865: ,x_msg_data=> x_msg_data
935: fnd_message.get_string ('OZF', 'OZF_FUND_RECONCILE');
936:
937:
938: IF NVL (l_act_budgets_rec.request_amount, 0) > 0 THEN
939: ozf_actbudgets_pvt.create_act_budgets (
940: p_api_version=> l_api_version
941: ,x_return_status=> l_return_status
942: ,x_msg_count=> x_msg_count
943: ,x_msg_data=> x_msg_data
1045: l_object_id NUMBER;
1046: l_budget_id NUMBER;
1047: l_period_end_date DATE;
1048: l_period_start_date DATE;
1049: l_act_budgets_rec ozf_actbudgets_pvt.act_budgets_rec_type;
1050: l_util_rec ozf_actbudgets_pvt.act_util_rec_type;
1051: l_act_budget_id NUMBER;
1052: l_total_budget NUMBER;
1053: l_tot_recal_comm_amt NUMBER;
1046: l_budget_id NUMBER;
1047: l_period_end_date DATE;
1048: l_period_start_date DATE;
1049: l_act_budgets_rec ozf_actbudgets_pvt.act_budgets_rec_type;
1050: l_util_rec ozf_actbudgets_pvt.act_util_rec_type;
1051: l_act_budget_id NUMBER;
1052: l_total_budget NUMBER;
1053: l_tot_recal_comm_amt NUMBER;
1054: l_count NUMBER := 1;
1419: ozf_utility_pvt.debug_message ('Create act budget: ');
1420: END IF;
1421:
1422: IF l_act_budgets_rec.request_amount > 0 THEN
1423: ozf_actbudgets_pvt.create_act_budgets (
1424: p_api_version=> l_api_version
1425: ,x_return_status=> l_return_status
1426: ,x_msg_count=> l_msg_count
1427: ,x_msg_data=> l_msg_data
1714: l_full_name CONSTANT VARCHAR2 (80) := g_pkg_name
1715: || '.'
1716: || l_api_name;
1717: l_act_budget_id NUMBER;
1718: l_act_budgets_rec ozf_actbudgets_pvt.act_budgets_rec_type;
1719: l_act_util_rec ozf_actbudgets_pvt.act_util_rec_type ;
1720: l_converted_amt NUMBER;
1721:
1722: BEGIN
1715: || '.'
1716: || l_api_name;
1717: l_act_budget_id NUMBER;
1718: l_act_budgets_rec ozf_actbudgets_pvt.act_budgets_rec_type;
1719: l_act_util_rec ozf_actbudgets_pvt.act_util_rec_type ;
1720: l_converted_amt NUMBER;
1721:
1722: BEGIN
1723: SAVEPOINT reconcile_budget_utilized;
2116: l_api_version CONSTANT NUMBER := 1.0;
2117: l_api_name CONSTANT VARCHAR2 (50) := 'transferring_unutilized_amount';
2118: l_full_name CONSTANT VARCHAR2(60)
2119: := g_pkg_name || '.' || l_api_name;
2120: l_act_budgets_rec ozf_actbudgets_pvt.act_budgets_rec_type;
2121: l_util_rec ozf_actbudgets_pvt.act_util_rec_type;
2122: l_original_budget NUMBER := p_original_budget;
2123: l_committed_amt NUMBER;
2124: l_earned_amt NUMBER;
2117: l_api_name CONSTANT VARCHAR2 (50) := 'transferring_unutilized_amount';
2118: l_full_name CONSTANT VARCHAR2(60)
2119: := g_pkg_name || '.' || l_api_name;
2120: l_act_budgets_rec ozf_actbudgets_pvt.act_budgets_rec_type;
2121: l_util_rec ozf_actbudgets_pvt.act_util_rec_type;
2122: l_original_budget NUMBER := p_original_budget;
2123: l_committed_amt NUMBER;
2124: l_earned_amt NUMBER;
2125: l_msg_count NUMBER;
2260: ,l_act_budgets_rec.status_code
2261: );
2262:
2263: l_act_budgets_rec.approved_amount := l_old_fund_obj.amount; -- in arc_Act_used_by currency
2264: /* l_object_currency := ozf_actbudgets_pvt.get_object_currency(
2265: l_old_fund_obj.object_type
2266: ,l_old_fund_obj.object_id
2267: ,x_return_status);
2268: ozf_utility_pvt.convert_currency (
2290: IF G_DEBUG THEN
2291: ozf_utility_pvt.write_conc_log('Create transfer record for original budget: ' || l_old_fund_obj.amount);
2292: END IF;
2293:
2294: ozf_actbudgets_pvt.create_act_budgets (
2295: p_api_version=> l_api_version
2296: ,x_return_status=> l_return_status
2297: ,x_msg_count=> l_msg_count
2298: ,x_msg_data=> l_msg_data
2335: IF G_DEBUG THEN
2336: ozf_utility_pvt.write_conc_log( 'Create budget request for new budget: ' || l_old_fund_obj.plan_curr_amount);
2337: END IF;
2338:
2339: ozf_actbudgets_pvt.create_act_budgets(
2340: p_api_version=> l_api_version
2341: ,x_return_status=> l_return_status
2342: ,x_msg_count=> x_msg_count
2343: ,x_msg_data=> x_msg_data