[Home] [Help]
96: l_msg_count NUMBER;
97: l_msg_data VARCHAR2(4000);
98: l_object_version_number NUMBER;
99: -- Record variables for creating the fund request.
100: l_source_fund_rec ozf_funds_pvt.fund_rec_type; -- source fund record
101: l_target_fund_rec ozf_funds_pvt.fund_rec_type; -- target fund record
102: l_act_budget_rec ozf_actbudgets_pvt.act_budgets_rec_type; -- fund request record
103:
104: -- Cursor to find source fund details
97: l_msg_data VARCHAR2(4000);
98: l_object_version_number NUMBER;
99: -- Record variables for creating the fund request.
100: l_source_fund_rec ozf_funds_pvt.fund_rec_type; -- source fund record
101: l_target_fund_rec ozf_funds_pvt.fund_rec_type; -- target fund record
102: l_act_budget_rec ozf_actbudgets_pvt.act_budgets_rec_type; -- fund request record
103:
104: -- Cursor to find source fund details
105: CURSOR c_fund_detail(
232: l_to_curr_approved_amt := p_approved_amount;
233: END IF; --/// end if transfer currency
234:
235: -- Initialize the fund records
236: ozf_funds_pvt.init_fund_rec(x_fund_rec => l_source_fund_rec);
237: -- Source record
238: l_source_fund_rec.fund_id := p_source_fund_id;
239: l_source_fund_rec.object_version_number := l_source_rec.source_obj_num;
240: l_source_fund_rec.transfered_out_amt :=
244: l_full_name || 'updating source_fund' || l_source_rec.source_obj_num);
245: END IF;
246: -- Update source fund
247: -- Source record
248: ozf_funds_pvt.update_fund(
249: p_api_version => l_api_version
250: ,p_init_msg_list => fnd_api.g_false
251: ,p_commit => fnd_api.g_false
252: ,x_return_status => l_return_status
280: RAISE fnd_api.g_exc_error;
281: END IF;
282:
283: CLOSE c_target_fund_detail;
284: ozf_funds_pvt.init_fund_rec(x_fund_rec => l_target_fund_rec);
285: -- Target record
286:
287: l_target_fund_rec.fund_id := p_target_fund_id;
288: l_target_fund_rec.object_version_number := l_target_rec.target_obj_num;
318:
319: IF p_child_flag = 'Y' THEN
320: IF p_requestor_owner = 'N' THEN
321: -- Update target fund to active other wise the caller API ( OZF_FUNDRULES_PVT) will update the fund to active
322: ozf_funds_pvt.update_fund(
323: p_api_version => l_api_version
324: ,p_init_msg_list => fnd_api.g_false
325: ,p_commit => fnd_api.g_false
326: ,x_return_status => l_return_status
379: NULL;
380: END IF;
381: ELSIF p_child_flag = 'N' THEN
382: -- if not a child transfer always update the target fund
383: ozf_funds_pvt.update_fund(
384: p_api_version => l_api_version
385: ,p_init_msg_list => fnd_api.g_false
386: ,p_commit => fnd_api.g_false
387: ,x_return_status => l_return_status
546: l_msg_count NUMBER;
547: l_msg_data VARCHAR2(4000);
548: l_object_version_number NUMBER;
549: -- Record variables for creating the fund request.
550: l_target_fund_rec ozf_funds_pvt.fund_rec_type; -- target fund record
551: l_act_budget_rec ozf_actbudgets_pvt.act_budgets_rec_type; -- fund request record
552: l_act_budget_obj_num NUMBER;
553:
554: -- Cursor records
609: RAISE fnd_api.g_exc_error;
610: END IF;
611:
612: CLOSE c_target_fund_detail;
613: ozf_funds_pvt.init_fund_rec(x_fund_rec => l_target_fund_rec);
614: -- Target record
615:
616: l_target_fund_rec.fund_id := p_target_fund_id;
617: l_target_fund_rec.object_version_number := l_target_rec.target_obj_num;
654: , l_target_fund_rec.status_code);
655: -- yzhao: 06/28/2002 end
656:
657: -- Update target fund
658: ozf_funds_pvt.update_fund(
659: p_api_version => l_api_version
660: ,p_init_msg_list => fnd_api.g_false
661: ,p_commit => fnd_api.g_false
662: ,x_return_status => l_return_status
710: END IF;
711: END IF;
712:
713: ELSIF p_child_flag = 'N' THEN
714: ozf_funds_pvt.update_fund(
715: p_api_version => l_api_version
716: ,p_init_msg_list => fnd_api.g_false
717: ,p_commit => fnd_api.g_false
718: ,x_return_status => l_return_status
890: l_full_name CONSTANT VARCHAR2(60)
891: := g_pkg_name || '.' || l_api_name;
892: -- Record variables for creating the fund request.
893: l_act_budget_rec ozf_actbudgets_pvt.act_budgets_rec_type;
894: l_target_fund_rec ozf_funds_pvt.fund_rec_type;
895: l_object_version_number NUMBER;
896: l_to_currency VARCHAR2(30);
897: l_rate NUMBER;
898: --- local variable to hold the requested amount converted in transfer from fund currency
3020: l_return_status VARCHAR2(1)
3021: := fnd_api.g_ret_sts_success;
3022: l_object_version_number NUMBER;
3023: -- Record variables for creating the fund request.
3024: l_fund_rec ozf_funds_pvt.fund_rec_type; -- transaction fund record
3025: l_act_budget_rec ozf_actbudgets_pvt.act_budgets_rec_type; -- fund request record
3026:
3027: -- Cursor to find fund details
3028: -- sql repository 14894880
3081:
3082: CLOSE c_fund_detail;
3083: -- Check to see whether the fund has sufficient available amount to reserve/release
3084: -- Initialize the fund records
3085: ozf_funds_pvt.init_fund_rec(x_fund_rec => l_fund_rec);
3086:
3087: IF p_transfer_type = 'RESERVE' THEN
3088: IF NVL(l_available_amt, 0) < NVL(p_requested_amount, 0) THEN
3089: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
3114: -- Transaction Fund record
3115: l_fund_rec.fund_id := l_fund_id;
3116: l_fund_rec.object_version_number := l_obj_number;
3117: -- Update source fund
3118: ozf_funds_pvt.update_fund(
3119: p_api_version => l_api_version
3120: ,p_commit => fnd_api.g_false
3121: ,x_return_status => l_return_status
3122: ,x_msg_count => l_msg_count