[Home] [Help]
98: l_msg_count NUMBER;
99: l_msg_data VARCHAR2(4000);
100: l_object_version_number NUMBER;
101: -- Record variables for creating the fund request.
102: l_source_fund_rec ozf_funds_pvt.fund_rec_type; -- source fund record
103: l_target_fund_rec ozf_funds_pvt.fund_rec_type; -- target fund record
104: l_act_budget_rec ozf_actbudgets_pvt.act_budgets_rec_type; -- fund request record
105:
106: -- Cursor to find source fund details
99: l_msg_data VARCHAR2(4000);
100: l_object_version_number NUMBER;
101: -- Record variables for creating the fund request.
102: l_source_fund_rec ozf_funds_pvt.fund_rec_type; -- source fund record
103: l_target_fund_rec ozf_funds_pvt.fund_rec_type; -- target fund record
104: l_act_budget_rec ozf_actbudgets_pvt.act_budgets_rec_type; -- fund request record
105:
106: -- Cursor to find source fund details
107: CURSOR c_fund_detail(
234: l_to_curr_approved_amt := p_approved_amount;
235: END IF; --/// end if transfer currency
236:
237: -- Initialize the fund records
238: ozf_funds_pvt.init_fund_rec(x_fund_rec => l_source_fund_rec);
239: -- Source record
240: l_source_fund_rec.fund_id := p_source_fund_id;
241: l_source_fund_rec.object_version_number := l_source_rec.source_obj_num;
242: l_source_fund_rec.transfered_out_amt :=
246: l_full_name || 'updating source_fund' || l_source_rec.source_obj_num);
247: END IF;
248: -- Update source fund
249: -- Source record
250: ozf_funds_pvt.update_fund(
251: p_api_version => l_api_version
252: ,p_init_msg_list => fnd_api.g_false
253: ,p_commit => fnd_api.g_false
254: ,x_return_status => l_return_status
282: RAISE fnd_api.g_exc_error;
283: END IF;
284:
285: CLOSE c_target_fund_detail;
286: ozf_funds_pvt.init_fund_rec(x_fund_rec => l_target_fund_rec);
287: -- Target record
288:
289: l_target_fund_rec.fund_id := p_target_fund_id;
290: l_target_fund_rec.object_version_number := l_target_rec.target_obj_num;
320:
321: IF p_child_flag = 'Y' THEN
322: IF p_requestor_owner = 'N' THEN
323: -- Update target fund to active other wise the caller API ( OZF_FUNDRULES_PVT) will update the fund to active
324: ozf_funds_pvt.update_fund(
325: p_api_version => l_api_version
326: ,p_init_msg_list => fnd_api.g_false
327: ,p_commit => fnd_api.g_false
328: ,x_return_status => l_return_status
381: NULL;
382: END IF;
383: ELSIF p_child_flag = 'N' THEN
384: -- if not a child transfer always update the target fund
385: ozf_funds_pvt.update_fund(
386: p_api_version => l_api_version
387: ,p_init_msg_list => fnd_api.g_false
388: ,p_commit => fnd_api.g_false
389: ,x_return_status => l_return_status
548: l_msg_count NUMBER;
549: l_msg_data VARCHAR2(4000);
550: l_object_version_number NUMBER;
551: -- Record variables for creating the fund request.
552: l_target_fund_rec ozf_funds_pvt.fund_rec_type; -- target fund record
553: l_act_budget_rec ozf_actbudgets_pvt.act_budgets_rec_type; -- fund request record
554: l_act_budget_obj_num NUMBER;
555:
556: -- Cursor records
611: RAISE fnd_api.g_exc_error;
612: END IF;
613:
614: CLOSE c_target_fund_detail;
615: ozf_funds_pvt.init_fund_rec(x_fund_rec => l_target_fund_rec);
616: -- Target record
617:
618: l_target_fund_rec.fund_id := p_target_fund_id;
619: l_target_fund_rec.object_version_number := l_target_rec.target_obj_num;
656: , l_target_fund_rec.status_code);
657: -- yzhao: 06/28/2002 end
658:
659: -- Update target fund
660: ozf_funds_pvt.update_fund(
661: p_api_version => l_api_version
662: ,p_init_msg_list => fnd_api.g_false
663: ,p_commit => fnd_api.g_false
664: ,x_return_status => l_return_status
712: END IF;
713: END IF;
714:
715: ELSIF p_child_flag = 'N' THEN
716: ozf_funds_pvt.update_fund(
717: p_api_version => l_api_version
718: ,p_init_msg_list => fnd_api.g_false
719: ,p_commit => fnd_api.g_false
720: ,x_return_status => l_return_status
892: l_full_name CONSTANT VARCHAR2(60)
893: := g_pkg_name || '.' || l_api_name;
894: -- Record variables for creating the fund request.
895: l_act_budget_rec ozf_actbudgets_pvt.act_budgets_rec_type;
896: l_target_fund_rec ozf_funds_pvt.fund_rec_type;
897: l_object_version_number NUMBER;
898: l_to_currency VARCHAR2(30);
899: l_rate NUMBER;
900: --- local variable to hold the requested amount converted in transfer from fund currency
3048: l_return_status VARCHAR2(1)
3049: := fnd_api.g_ret_sts_success;
3050: l_object_version_number NUMBER;
3051: -- Record variables for creating the fund request.
3052: l_fund_rec ozf_funds_pvt.fund_rec_type; -- transaction fund record
3053: l_act_budget_rec ozf_actbudgets_pvt.act_budgets_rec_type; -- fund request record
3054:
3055: -- Cursor to find fund details
3056: -- sql repository 14894880
3109:
3110: CLOSE c_fund_detail;
3111: -- Check to see whether the fund has sufficient available amount to reserve/release
3112: -- Initialize the fund records
3113: ozf_funds_pvt.init_fund_rec(x_fund_rec => l_fund_rec);
3114:
3115: IF p_transfer_type = 'RESERVE' THEN
3116: IF NVL(l_available_amt, 0) < NVL(p_requested_amount, 0) THEN
3117: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
3142: -- Transaction Fund record
3143: l_fund_rec.fund_id := l_fund_id;
3144: l_fund_rec.object_version_number := l_obj_number;
3145: -- Update source fund
3146: ozf_funds_pvt.update_fund(
3147: p_api_version => l_api_version
3148: ,p_commit => fnd_api.g_false
3149: ,x_return_status => l_return_status
3150: ,x_msg_count => l_msg_count