[Home] [Help]
853: l_act_budgets_rec.approval_date := SYSDATE;
854: l_act_budgets_rec.approver_id := ozf_utility_pvt.get_resource_id (fnd_global.user_id);
855: l_act_budgets_rec.requester_id := ozf_utility_pvt.get_resource_id (fnd_global.user_id);
856: l_act_budgets_rec.justification :=
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 (
931: l_act_budgets_rec.approval_date := SYSDATE;
932: l_act_budgets_rec.approver_id := ozf_utility_pvt.get_resource_id (fnd_global.user_id);
933: l_act_budgets_rec.requester_id := ozf_utility_pvt.get_resource_id (fnd_global.user_id);
934: l_act_budgets_rec.justification :=
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 (
1403: l_act_budgets_rec.approval_date := SYSDATE;
1404: l_act_budgets_rec.approver_id := ozf_utility_pvt.get_resource_id (fnd_global.user_id);
1405: l_act_budgets_rec.requester_id := ozf_utility_pvt.get_resource_id (fnd_global.user_id);
1406: l_act_budgets_rec.justification :=
1407: fnd_message.get_string ('OZF', 'OZF_ACT_BUDGET_RECAL_COMM');
1408: IF G_DEBUG THEN
1409: ozf_utility_pvt.debug_message ('Allow exceed: '|| l_exceed_flag);
1410: END IF;
1411:
1784: RAISE fnd_api.g_exc_unexpected_error;
1785: END IF;
1786: l_act_budgets_rec.approval_date := SYSDATE;
1787: l_act_budgets_rec.approver_id := ozf_utility_pvt.get_resource_id (fnd_global.user_id);
1788: l_act_budgets_rec.justification := fnd_message.get_string ('OZF', 'OZF_ACT_BUDG_CST_UTIL');
1789: l_act_budgets_rec.parent_source_id := l_parent_source_rec.parent_source_id;
1790: l_act_budgets_rec.parent_src_curr := l_parent_source_rec.parent_curr;
1791: l_act_budgets_rec.parent_src_apprvd_amt := - l_converted_amt; -- in budget currency.
1792: l_act_budgets_rec.exchange_rate_date := l_parent_source_rec.exchange_rate_date; --Added for bug 7425189
2284: l_act_budgets_rec.approved_original_amount := l_old_fund_obj.plan_curr_amount;
2285: l_act_budgets_rec.approval_date := SYSDATE;
2286: l_act_budgets_rec.approver_id := ozf_utility_pvt.get_resource_id (fnd_global.user_id);
2287: l_act_budgets_rec.requester_id := ozf_utility_pvt.get_resource_id (fnd_global.user_id);
2288: l_act_budgets_rec.justification := fnd_message.get_string ('OZF', 'OZF_FUND_RECONCILE');
2289:
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;
2325: l_act_budgets_rec.approved_amount := l_old_fund_obj.plan_curr_amount;
2326: l_act_budgets_rec.approved_original_amount := l_old_fund_obj.amount;
2327: l_act_budgets_rec.approved_in_currency := l_old_fund_obj.fund_currency;
2328: l_act_budgets_rec.approval_date := SYSDATE;
2329: l_act_budgets_rec.justification := fnd_message.get_string ('OZF', 'OZF_FUND_MASS_TRANSFER');
2330: -- Here the trasnsfer type would be request ....
2331: l_act_budgets_rec.transfer_type := 'REQUEST';
2332: -- This would create the objects for new budgets also which
2333: -- were associated with the old budget ...
2370: END LOOP;
2371:
2372: CLOSE c_get_old_fund_obj;
2373: ELSE
2374: l_message := fnd_message.get_string ('OZF', 'OZF_FUND_NO_MASS_TRANS') || fnd_global.local_chr(10);
2375: ozf_utility_pvt.write_conc_log(l_message || l_fund_id);
2376: END IF; -- The main IF loop
2377:
2378: x_return_status := fnd_api.g_ret_sts_success;