[Home] [Help]
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(
106: cv_fund_id IN NUMBER)
346: END IF;
347:
348: CLOSE c_act_budget_detail;
349: --- update th erequest stauts to approved
350: ozf_actbudgets_pvt.init_act_budgets_rec(l_act_budget_rec);
351: l_act_budget_rec.activity_budget_id := p_act_budget_id;
352: l_act_budget_rec.object_version_number := l_act_budget_obj_num;
353: -- this will set the status to approved
354: l_act_budget_rec.status_code := 'APPROVED'; -- Approved amount
357: ozf_utility_pvt.get_default_user_status(
358: g_budget_source_status
359: ,l_act_budget_rec.status_code);
360: -- Fund request record
361: ozf_actbudgets_pvt.update_act_budgets(
362: p_api_version => l_api_version
363: ,p_init_msg_list => fnd_api.g_false
364: ,p_commit => fnd_api.g_false
365: ,x_return_status => l_return_status
415: RAISE fnd_api.g_exc_error;
416: END IF;
417:
418: CLOSE c_act_budget_detail;
419: ozf_actbudgets_pvt.init_act_budgets_rec(l_act_budget_rec);
420: l_act_budget_rec.activity_budget_id := p_act_budget_id;
421: l_act_budget_rec.object_version_number := l_act_budget_obj_num;
422: l_act_budget_rec.approver_id := p_approver_id;
423: l_act_budget_rec.approved_in_currency := l_source_rec.source_currency_code;
428: ozf_utility_pvt.get_default_user_status(
429: g_budget_source_status
430: ,l_act_budget_rec.status_code);
431: -- Fund request record
432: ozf_actbudgets_pvt.update_act_budgets(
433: p_api_version => l_api_version
434: ,p_init_msg_list => fnd_api.g_false
435: ,p_commit => fnd_api.g_false
436: ,x_return_status => l_return_status
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
555: CURSOR c_target_fund_detail(
681: END IF;
682:
683: CLOSE c_act_budget_detail;
684: --- update th erequest stauts to pending before submitting
685: ozf_actbudgets_pvt.init_act_budgets_rec(l_act_budget_rec);
686: l_act_budget_rec.activity_budget_id := p_act_budget_id;
687: l_act_budget_rec.object_version_number := l_act_budget_obj_num;
688: -- this will set the status to pending
689: l_act_budget_rec.status_code := 'APPROVED'; -- Approved amount
691: ozf_utility_pvt.get_default_user_status(
692: g_budget_source_status
693: ,l_act_budget_rec.status_code);
694: -- Fund request record
695: ozf_actbudgets_pvt.update_act_budgets(
696: p_api_version => l_api_version
697: ,p_init_msg_list => fnd_api.g_false
698: ,p_commit => fnd_api.g_false
699: ,x_return_status => l_return_status
745: RAISE fnd_api.g_exc_error;
746: END IF;
747:
748: CLOSE c_act_budget_detail;
749: ozf_actbudgets_pvt.init_act_budgets_rec(l_act_budget_rec);
750: l_act_budget_rec.activity_budget_id := p_act_budget_id;
751: l_act_budget_rec.object_version_number := l_act_budget_obj_num;
752: -- l_act_budget_rec.approved_amount := p_approved_amount; -- Approved amount
753: -- l_act_budget_rec.approver_id := p_approver_id; -- Approved amount
758: g_budget_source_status
759: ,l_act_budget_rec.status_code);
760: l_act_budget_rec.comment := p_note;
761: -- Fund request record
762: ozf_actbudgets_pvt.update_act_budgets(
763: p_api_version => l_api_version
764: ,p_init_msg_list => fnd_api.g_false
765: ,p_commit => fnd_api.g_false
766: ,x_return_status => l_return_status
889: := 'Create_Fund_Request';
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;
970: l_act_budget_rec.transfer_type := p_transfer_type;
971: l_act_budget_rec.transaction_type := 'CREDIT';
972: --l_act_budget_rec.date_required_by := p_needbydate;
973: -- Create_transfer record
974: ozf_actbudgets_pvt.create_act_budgets(
975: p_api_version => l_api_version
976: ,x_return_status => l_return_status
977: ,x_msg_count => l_msg_count
978: ,x_msg_data => l_msg_data
1094: -- transfer would become approved directly
1095: IF G_DEBUG THEN
1096: ozf_utility_pvt.debug_message(l_full_name || ': beforing updating child approval to pending');
1097: END IF;
1098: ozf_actbudgets_pvt.init_act_budgets_rec(l_act_budget_rec);
1099: l_act_budget_rec.activity_budget_id := l_act_budget_id;
1100: l_act_budget_rec.object_version_number := l_act_budget_appr_rec.object_version_number;
1101: l_act_budget_rec.status_code := 'APPROVED'; -- Approved amount
1102: l_act_budget_rec.user_status_id :=
1103: ozf_utility_pvt.get_default_user_status(
1104: g_budget_source_status
1105: ,l_act_budget_rec.status_code);
1106: -- Fund request record
1107: ozf_actbudgets_pvt.update_act_budgets(
1108: p_api_version => l_api_version
1109: ,p_init_msg_list => fnd_api.g_false
1110: ,p_commit => fnd_api.g_false
1111: ,x_return_status => l_return_status
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
3029: CURSOR c_fund_detail(