[Home] [Help]
175: ,p_mode IN VARCHAR2 :='UPDATE'-- added by mpande 12/27/2001
176: ,p_resale_batch_id IN NUMBER DEFAULT NULL
177: ,p_batch_type IN VARCHAR2
178: ,p_use_fund_staging_tables IN VARCHAR2 DEFAULT 'F'
179: ,px_ozf_funds_old_rectype IN OZF_UTILITY_PVT.ozf_funds_all_b_rectype
180: ,px_ozf_funds_new_tbl IN OUT NOCOPY OZF_UTILITY_PVT.ozf_funds_table -- For TPA Parallel Execution ER - 9614703
181: );
182: /*****************************************************************************************/
183: -- Start of Comments
176: ,p_resale_batch_id IN NUMBER DEFAULT NULL
177: ,p_batch_type IN VARCHAR2
178: ,p_use_fund_staging_tables IN VARCHAR2 DEFAULT 'F'
179: ,px_ozf_funds_old_rectype IN OZF_UTILITY_PVT.ozf_funds_all_b_rectype
180: ,px_ozf_funds_new_tbl IN OUT NOCOPY OZF_UTILITY_PVT.ozf_funds_table -- For TPA Parallel Execution ER - 9614703
181: );
182: /*****************************************************************************************/
183: -- Start of Comments
184: --
216: l_parameter_list := WF_PARAMETER_LIST_T();
217:
218:
219: IF G_DEBUG THEN
220: ozf_utility_pvt.debug_message(' activity budget Id is :'||p_object_id );
221: END IF;
222:
223: wf_event.AddParameterToList(p_name => 'P_ACTBUDGET_ID',
224: p_value => p_object_id,
224: p_value => p_object_id,
225: p_parameterlist => l_parameter_list);
226:
227: IF G_DEBUG THEN
228: ozf_utility_pvt.debug_message('Item Key is :'||l_item_key);
229: END IF;
230:
231: wf_event.raise( p_event_name =>'oracle.apps.ozf.fund.request.approval',
232: p_event_key => l_item_key,
235:
236: EXCEPTION
237: WHEN OTHERS THEN
238: RAISE Fnd_Api.g_exc_error;
239: ozf_utility_pvt.debug_message('Exception in raising business event');
240: END;
241:
242: /*****************************************************************************************/
243: -- Start of Comments
343: ) IS
344: l_utilized_amount NUMBER;
345: l_resale_batch_id NUMBER;
346: l_use_fund_staging_tables VARCHAR2(1) := 'F';
347: lx_ozf_act_budgets_tbl OZF_UTILITY_PVT.ozf_act_budgets_table;
348: lx_ozf_funds_old_rectype OZF_UTILITY_PVT.ozf_funds_all_b_rectype;
349: lx_ozf_funds_new_tbl OZF_UTILITY_PVT.ozf_funds_table;
350: l_batch_type VARCHAR2(30);
351: BEGIN
344: l_utilized_amount NUMBER;
345: l_resale_batch_id NUMBER;
346: l_use_fund_staging_tables VARCHAR2(1) := 'F';
347: lx_ozf_act_budgets_tbl OZF_UTILITY_PVT.ozf_act_budgets_table;
348: lx_ozf_funds_old_rectype OZF_UTILITY_PVT.ozf_funds_all_b_rectype;
349: lx_ozf_funds_new_tbl OZF_UTILITY_PVT.ozf_funds_table;
350: l_batch_type VARCHAR2(30);
351: BEGIN
352:
345: l_resale_batch_id NUMBER;
346: l_use_fund_staging_tables VARCHAR2(1) := 'F';
347: lx_ozf_act_budgets_tbl OZF_UTILITY_PVT.ozf_act_budgets_table;
348: lx_ozf_funds_old_rectype OZF_UTILITY_PVT.ozf_funds_all_b_rectype;
349: lx_ozf_funds_new_tbl OZF_UTILITY_PVT.ozf_funds_table;
350: l_batch_type VARCHAR2(30);
351: BEGIN
352:
353: --kdass - added for Bug 8726683
391: ) IS
392: l_utilized_amount NUMBER;
393: l_resale_batch_id NUMBER;
394: l_use_fund_staging_tables VARCHAR2(1) := 'F';
395: lx_ozf_act_budgets_tbl OZF_UTILITY_PVT.ozf_act_budgets_table;
396: lx_ozf_funds_old_rectype OZF_UTILITY_PVT.ozf_funds_all_b_rectype;
397: lx_ozf_funds_new_tbl OZF_UTILITY_PVT.ozf_funds_table;
398: l_batch_type VARCHAR2(30);
399: BEGIN
392: l_utilized_amount NUMBER;
393: l_resale_batch_id NUMBER;
394: l_use_fund_staging_tables VARCHAR2(1) := 'F';
395: lx_ozf_act_budgets_tbl OZF_UTILITY_PVT.ozf_act_budgets_table;
396: lx_ozf_funds_old_rectype OZF_UTILITY_PVT.ozf_funds_all_b_rectype;
397: lx_ozf_funds_new_tbl OZF_UTILITY_PVT.ozf_funds_table;
398: l_batch_type VARCHAR2(30);
399: BEGIN
400: create_act_budgets (
393: l_resale_batch_id NUMBER;
394: l_use_fund_staging_tables VARCHAR2(1) := 'F';
395: lx_ozf_act_budgets_tbl OZF_UTILITY_PVT.ozf_act_budgets_table;
396: lx_ozf_funds_old_rectype OZF_UTILITY_PVT.ozf_funds_all_b_rectype;
397: lx_ozf_funds_new_tbl OZF_UTILITY_PVT.ozf_funds_table;
398: l_batch_type VARCHAR2(30);
399: BEGIN
400: create_act_budgets (
401: p_api_version => p_api_version
459: ,x_utilized_amount OUT NOCOPY NUMBER -- yzhao: 06/21/2004 added for chargeback
460: ,p_resale_batch_id IN NUMBER
461: ,p_batch_type IN VARCHAR2
462: ,p_use_fund_staging_tables IN VARCHAR2
463: ,px_ozf_act_budgets_tbl IN OUT NOCOPY OZF_UTILITY_PVT.ozf_act_budgets_table
464: ,px_ozf_funds_old_rectype IN OZF_UTILITY_PVT.ozf_funds_all_b_rectype
465: ,px_ozf_funds_new_tbl IN OUT NOCOPY OZF_UTILITY_PVT.ozf_funds_table -- For TPA Parallel Execution ER - 9614703
466: ) IS
467: l_utilization_id NUMBER;
460: ,p_resale_batch_id IN NUMBER
461: ,p_batch_type IN VARCHAR2
462: ,p_use_fund_staging_tables IN VARCHAR2
463: ,px_ozf_act_budgets_tbl IN OUT NOCOPY OZF_UTILITY_PVT.ozf_act_budgets_table
464: ,px_ozf_funds_old_rectype IN OZF_UTILITY_PVT.ozf_funds_all_b_rectype
465: ,px_ozf_funds_new_tbl IN OUT NOCOPY OZF_UTILITY_PVT.ozf_funds_table -- For TPA Parallel Execution ER - 9614703
466: ) IS
467: l_utilization_id NUMBER;
468: BEGIN
461: ,p_batch_type IN VARCHAR2
462: ,p_use_fund_staging_tables IN VARCHAR2
463: ,px_ozf_act_budgets_tbl IN OUT NOCOPY OZF_UTILITY_PVT.ozf_act_budgets_table
464: ,px_ozf_funds_old_rectype IN OZF_UTILITY_PVT.ozf_funds_all_b_rectype
465: ,px_ozf_funds_new_tbl IN OUT NOCOPY OZF_UTILITY_PVT.ozf_funds_table -- For TPA Parallel Execution ER - 9614703
466: ) IS
467: l_utilization_id NUMBER;
468: BEGIN
469: --nirprasa added for bug 9383565
505: ,x_utilized_amount OUT NOCOPY NUMBER -- yzhao: 06/21/2004 added for chargeback
506: ,p_resale_batch_id IN NUMBER
507: ,p_batch_type IN VARCHAR2
508: ,p_use_fund_staging_tables IN VARCHAR2
509: ,px_ozf_act_budgets_tbl IN OUT NOCOPY OZF_UTILITY_PVT.ozf_act_budgets_table
510: ,px_ozf_funds_old_rectype IN OZF_UTILITY_PVT.ozf_funds_all_b_rectype
511: ,px_ozf_funds_new_tbl IN OUT NOCOPY OZF_UTILITY_PVT.ozf_funds_table -- For TPA Parallel Execution ER - 9614703
512: ,x_utilization_id OUT NOCOPY NUMBER --nirprasa added for bug 9383565
513: ) IS
506: ,p_resale_batch_id IN NUMBER
507: ,p_batch_type IN VARCHAR2
508: ,p_use_fund_staging_tables IN VARCHAR2
509: ,px_ozf_act_budgets_tbl IN OUT NOCOPY OZF_UTILITY_PVT.ozf_act_budgets_table
510: ,px_ozf_funds_old_rectype IN OZF_UTILITY_PVT.ozf_funds_all_b_rectype
511: ,px_ozf_funds_new_tbl IN OUT NOCOPY OZF_UTILITY_PVT.ozf_funds_table -- For TPA Parallel Execution ER - 9614703
512: ,x_utilization_id OUT NOCOPY NUMBER --nirprasa added for bug 9383565
513: ) IS
514: l_api_name CONSTANT VARCHAR2 (30) := 'Create_Act_Budgets';
507: ,p_batch_type IN VARCHAR2
508: ,p_use_fund_staging_tables IN VARCHAR2
509: ,px_ozf_act_budgets_tbl IN OUT NOCOPY OZF_UTILITY_PVT.ozf_act_budgets_table
510: ,px_ozf_funds_old_rectype IN OZF_UTILITY_PVT.ozf_funds_all_b_rectype
511: ,px_ozf_funds_new_tbl IN OUT NOCOPY OZF_UTILITY_PVT.ozf_funds_table -- For TPA Parallel Execution ER - 9614703
512: ,x_utilization_id OUT NOCOPY NUMBER --nirprasa added for bug 9383565
513: ) IS
514: l_api_name CONSTANT VARCHAR2 (30) := 'Create_Act_Budgets';
515: l_api_version CONSTANT NUMBER := 1.0;
585: l_temp_approved_amount NUMBER;
586: l_temp_aprvd_orig_amount NUMBER;
587: BEGIN
588: IF G_DEBUG THEN
589: ozf_utility_pvt.debug_message ( l_full_name
590: || ': start');
591: END IF;
592: -- Standard Start of API savepoint
593: SAVEPOINT create_act_budgets_pvt;
596: IF NOT fnd_api.compatible_api_call (l_api_version, p_api_version, l_api_name, g_package_name) THEN
597: RAISE fnd_api.g_exc_unexpected_error;
598: END IF;
599:
600: ozf_utility_pvt.debug_message(' create_Act_budgets.plan_currency_code mg: ' || p_act_util_rec.plan_currency_code);
601:
602: -- Initialize message list IF p_init_msg_list is set to TRUE.
603: IF fnd_api.to_boolean (p_init_msg_list) THEN
604: fnd_msg_pub.initialize;
624: END LOOP;
625: END IF;
626:
627: IF G_DEBUG THEN
628: ozf_utility_pvt.debug_message ('request_currency '||l_act_budgets_rec.request_currency);
629: ozf_utility_pvt.debug_message ('arc_act_budget_used_by '||l_act_budgets_rec.arc_act_budget_used_by);
630: ozf_utility_pvt.debug_message ('act_budget_used_by_id '||l_act_budgets_rec.act_budget_used_by_id);
631: END IF;
632:
625: END IF;
626:
627: IF G_DEBUG THEN
628: ozf_utility_pvt.debug_message ('request_currency '||l_act_budgets_rec.request_currency);
629: ozf_utility_pvt.debug_message ('arc_act_budget_used_by '||l_act_budgets_rec.arc_act_budget_used_by);
630: ozf_utility_pvt.debug_message ('act_budget_used_by_id '||l_act_budgets_rec.act_budget_used_by_id);
631: END IF;
632:
633: IF l_act_budgets_rec.request_currency IS NULL
626:
627: IF G_DEBUG THEN
628: ozf_utility_pvt.debug_message ('request_currency '||l_act_budgets_rec.request_currency);
629: ozf_utility_pvt.debug_message ('arc_act_budget_used_by '||l_act_budgets_rec.arc_act_budget_used_by);
630: ozf_utility_pvt.debug_message ('act_budget_used_by_id '||l_act_budgets_rec.act_budget_used_by_id);
631: END IF;
632:
633: IF l_act_budgets_rec.request_currency IS NULL
634: OR l_act_budgets_rec.request_currency = FND_API.G_MISS_CHAR THEN
659: ,l_act_budgets_rec.budget_source_id
660: ,l_return_status
661: );
662: IF G_DEBUG THEN
663: ozf_utility_pvt.debug_message ('approved_in_currency '||l_act_budgets_rec.approved_in_currency);
664: ozf_utility_pvt.debug_message ('request_currency '||l_act_budgets_rec.request_currency);
665: ozf_utility_pvt.debug_message ('request_amount '||l_act_budgets_rec.request_amount);
666: ozf_utility_pvt.debug_message ('src_curr_req_amt '||l_act_budgets_rec.src_curr_req_amt);
667: ozf_utility_pvt.debug_message ('budget_source_type '||l_act_budgets_rec.budget_source_type);
660: ,l_return_status
661: );
662: IF G_DEBUG THEN
663: ozf_utility_pvt.debug_message ('approved_in_currency '||l_act_budgets_rec.approved_in_currency);
664: ozf_utility_pvt.debug_message ('request_currency '||l_act_budgets_rec.request_currency);
665: ozf_utility_pvt.debug_message ('request_amount '||l_act_budgets_rec.request_amount);
666: ozf_utility_pvt.debug_message ('src_curr_req_amt '||l_act_budgets_rec.src_curr_req_amt);
667: ozf_utility_pvt.debug_message ('budget_source_type '||l_act_budgets_rec.budget_source_type);
668: ozf_utility_pvt.debug_message ('l_transaction_currency '||l_transaction_currency);
661: );
662: IF G_DEBUG THEN
663: ozf_utility_pvt.debug_message ('approved_in_currency '||l_act_budgets_rec.approved_in_currency);
664: ozf_utility_pvt.debug_message ('request_currency '||l_act_budgets_rec.request_currency);
665: ozf_utility_pvt.debug_message ('request_amount '||l_act_budgets_rec.request_amount);
666: ozf_utility_pvt.debug_message ('src_curr_req_amt '||l_act_budgets_rec.src_curr_req_amt);
667: ozf_utility_pvt.debug_message ('budget_source_type '||l_act_budgets_rec.budget_source_type);
668: ozf_utility_pvt.debug_message ('l_transaction_currency '||l_transaction_currency);
669: END IF;
662: IF G_DEBUG THEN
663: ozf_utility_pvt.debug_message ('approved_in_currency '||l_act_budgets_rec.approved_in_currency);
664: ozf_utility_pvt.debug_message ('request_currency '||l_act_budgets_rec.request_currency);
665: ozf_utility_pvt.debug_message ('request_amount '||l_act_budgets_rec.request_amount);
666: ozf_utility_pvt.debug_message ('src_curr_req_amt '||l_act_budgets_rec.src_curr_req_amt);
667: ozf_utility_pvt.debug_message ('budget_source_type '||l_act_budgets_rec.budget_source_type);
668: ozf_utility_pvt.debug_message ('l_transaction_currency '||l_transaction_currency);
669: END IF;
670: --nirprasa,12.2 Condition l_act_budgets_rec.budget_source_type <> 'FUND' THEN
663: ozf_utility_pvt.debug_message ('approved_in_currency '||l_act_budgets_rec.approved_in_currency);
664: ozf_utility_pvt.debug_message ('request_currency '||l_act_budgets_rec.request_currency);
665: ozf_utility_pvt.debug_message ('request_amount '||l_act_budgets_rec.request_amount);
666: ozf_utility_pvt.debug_message ('src_curr_req_amt '||l_act_budgets_rec.src_curr_req_amt);
667: ozf_utility_pvt.debug_message ('budget_source_type '||l_act_budgets_rec.budget_source_type);
668: ozf_utility_pvt.debug_message ('l_transaction_currency '||l_transaction_currency);
669: END IF;
670: --nirprasa,12.2 Condition l_act_budgets_rec.budget_source_type <> 'FUND' THEN
671: --is used instead of l_act_budgets_rec.budget_source_type = 'OFFR' THEN
664: ozf_utility_pvt.debug_message ('request_currency '||l_act_budgets_rec.request_currency);
665: ozf_utility_pvt.debug_message ('request_amount '||l_act_budgets_rec.request_amount);
666: ozf_utility_pvt.debug_message ('src_curr_req_amt '||l_act_budgets_rec.src_curr_req_amt);
667: ozf_utility_pvt.debug_message ('budget_source_type '||l_act_budgets_rec.budget_source_type);
668: ozf_utility_pvt.debug_message ('l_transaction_currency '||l_transaction_currency);
669: END IF;
670: --nirprasa,12.2 Condition l_act_budgets_rec.budget_source_type <> 'FUND' THEN
671: --is used instead of l_act_budgets_rec.budget_source_type = 'OFFR' THEN
672: --because the same code gets executed for marketing objects also.
685: ELSE
686:
687:
688: IF G_DEBUG THEN
689: ozf_utility_pvt.debug_message ( l_full_name
690: || ' l_act_budgets_rec.exchange_rate_date1: ' || l_act_budgets_rec.exchange_rate_date);
691: END IF;
692:
693: ozf_utility_pvt.convert_currency (
689: ozf_utility_pvt.debug_message ( l_full_name
690: || ' l_act_budgets_rec.exchange_rate_date1: ' || l_act_budgets_rec.exchange_rate_date);
691: END IF;
692:
693: ozf_utility_pvt.convert_currency (
694: x_return_status => l_return_status
695: ,p_from_currency => l_act_budgets_rec.approved_in_currency
696: ,p_to_currency => l_act_budgets_rec.request_currency
697: ,p_conv_date => l_act_budgets_rec.exchange_rate_date --bug 7425189, 8532055
703: --Added for bug 7425189, pass exchange_rate_date = approval date of REQUEST
704: IF l_act_budgets_rec.justification IN (l_fund_reconc_msg,l_act_bud_cst_msg)
705: AND l_act_budgets_rec.exchange_rate_date IS NOT NULL
706: AND l_act_budgets_rec.transfer_type = 'TRANSFER' THEN
707: ozf_utility_pvt.convert_currency (
708: x_return_status=> l_return_status
709: ,p_from_currency=> l_act_budgets_rec.approved_in_currency
710: ,p_to_currency=> l_act_budgets_rec.request_currency
711: ,p_conv_date=> l_act_budgets_rec.exchange_rate_date
713: ,x_to_amount=> l_act_budgets_rec.request_amount
714: );
715: ELSE
716:
717: ozf_utility_pvt.convert_currency (
718: x_return_status=> l_return_status
719: ,p_from_currency=> l_act_budgets_rec.approved_in_currency
720: ,p_to_currency=> l_act_budgets_rec.request_currency
721: ,p_from_amount=> l_act_budgets_rec.src_curr_req_amt
734: END IF;
735: /* End OF Change mpande 12/19/2001 */
736:
737: IF l_act_budgets_rec.request_currency IS NULL THEN
738: ozf_utility_pvt.error_message ('OZF_ACT_BUDG_NO_CURRENCY');
739: x_return_status := fnd_api.g_ret_sts_error;
740: END IF;
741:
742: IF l_return_status = fnd_api.g_ret_sts_error THEN
781: l_act_budgets_rec.status_code := 'PENDING_VALIDATION';
782: END IF;
783:
784: IF G_DEBUG THEN
785: ozf_utility_pvt.debug_message ('approved_amount '|| l_act_budgets_rec.approved_amount);
786: ozf_utility_pvt.debug_message ('status_code '|| l_act_budgets_rec.status_code);
787: END IF;
788:
789: -- yzhao: 10/20/2003 automatically populate approved amount, currency information if it is not passed in
782: END IF;
783:
784: IF G_DEBUG THEN
785: ozf_utility_pvt.debug_message ('approved_amount '|| l_act_budgets_rec.approved_amount);
786: ozf_utility_pvt.debug_message ('status_code '|| l_act_budgets_rec.status_code);
787: END IF;
788:
789: -- yzhao: 10/20/2003 automatically populate approved amount, currency information if it is not passed in
790: IF l_act_budgets_rec.status_code = 'APPROVED' THEN
838: --In case of utilization flow If condition is true always.
839: --Else never gets executed for utilization.
840:
841: IF G_DEBUG THEN
842: ozf_utility_pvt.debug_message ( l_full_name
843: || ' l_act_budgets_rec.exchange_rate_date2: ' || l_act_budgets_rec.exchange_rate_date);
844: END IF;
845:
846: ozf_utility_pvt.convert_currency (
842: ozf_utility_pvt.debug_message ( l_full_name
843: || ' l_act_budgets_rec.exchange_rate_date2: ' || l_act_budgets_rec.exchange_rate_date);
844: END IF;
845:
846: ozf_utility_pvt.convert_currency (
847: x_return_status => l_return_status
848: ,p_from_currency => l_act_budgets_rec.request_currency
849: ,p_to_currency => l_act_budgets_rec.approved_in_currency
850: ,p_conv_date => l_act_budgets_rec.exchange_rate_date --bug 7425189, 8532055
857: --reconciling unutilized committed amount
858: IF l_act_budgets_rec.justification IN (l_fund_reconc_msg,l_act_bud_cst_msg)
859: AND l_act_budgets_rec.exchange_rate_date IS NOT NULL
860: AND l_act_budgets_rec.transfer_type = 'TRANSFER' THEN
861: ozf_utility_pvt.convert_currency (
862: x_return_status=> l_return_status
863: ,p_from_currency=> l_act_budgets_rec.request_currency
864: ,p_to_currency=> l_act_budgets_rec.approved_in_currency
865: ,p_conv_date=> l_act_budgets_rec.exchange_rate_date
868: );
869:
870: ELSE
871:
872: ozf_utility_pvt.convert_currency (
873: x_return_status=> l_return_status
874: ,p_from_currency=> l_act_budgets_rec.request_currency
875: ,p_to_currency=> l_act_budgets_rec.approved_in_currency
876: ,p_from_amount=> l_act_budgets_rec.request_amount
889: END IF;
890: END IF; -- IF l_act_budgets_rec.status_code = 'APPROVED' THEN
891:
892: l_act_budgets_rec.user_status_id :=
893: ozf_utility_pvt.get_default_user_status (l_status_type, l_act_budgets_rec.status_code);
894:
895: IF l_return_status = fnd_api.g_ret_sts_error THEN
896: RAISE fnd_api.g_exc_error;
897: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
900:
901:
902: ----------------------- validate -----------------------
903: IF G_DEBUG THEN
904: ozf_utility_pvt.debug_message ( l_full_name
905: || ': validate');
906: END IF;
907:
908: -- mpande added to populate request amount in request currency 12/17/2001 src_curr_request_amt
917: );
918: END IF;
919:
920: IF G_DEBUG THEN
921: ozf_utility_pvt.debug_message ( l_api_name||'l_src_currency '|| l_src_currency);
922: ozf_utility_pvt.debug_message ( l_api_name||'budget_source_type '|| l_act_budgets_rec.budget_source_type);
923: ozf_utility_pvt.debug_message ( l_api_name||'budget_source_id '|| l_act_budgets_rec.budget_source_id);
924: END IF;
925:
918: END IF;
919:
920: IF G_DEBUG THEN
921: ozf_utility_pvt.debug_message ( l_api_name||'l_src_currency '|| l_src_currency);
922: ozf_utility_pvt.debug_message ( l_api_name||'budget_source_type '|| l_act_budgets_rec.budget_source_type);
923: ozf_utility_pvt.debug_message ( l_api_name||'budget_source_id '|| l_act_budgets_rec.budget_source_id);
924: END IF;
925:
926: --This call is for transfer_type='UTILIZED'/'REQUEST' both cases.
919:
920: IF G_DEBUG THEN
921: ozf_utility_pvt.debug_message ( l_api_name||'l_src_currency '|| l_src_currency);
922: ozf_utility_pvt.debug_message ( l_api_name||'budget_source_type '|| l_act_budgets_rec.budget_source_type);
923: ozf_utility_pvt.debug_message ( l_api_name||'budget_source_id '|| l_act_budgets_rec.budget_source_id);
924: END IF;
925:
926: --This call is for transfer_type='UTILIZED'/'REQUEST' both cases.
927: --So, I need to do the conversion in case of utilized
938:
939: IF NVL(l_act_budgets_rec.request_amount,0) <> 0 THEN
940:
941: IF G_DEBUG THEN
942: ozf_utility_pvt.debug_message ( l_full_name
943: || ' l_act_budgets_rec.exchange_rate_date3: ' || l_act_budgets_rec.exchange_rate_date);
944: END IF;
945:
946: --For bug 7425189
947: IF l_act_budgets_rec.justification IN (l_fund_reconc_msg,l_act_bud_cst_msg)
948: AND l_act_budgets_rec.exchange_rate_date IS NOT NULL
949: AND l_act_budgets_rec.transfer_type = 'TRANSFER' THEN
950: IF l_act_budgets_rec.src_curr_req_amt IS NULL THEN
951: ozf_utility_pvt.convert_currency(
952: p_from_currency => l_act_budgets_rec.request_currency
953: ,p_to_currency => l_src_currency
954: ,p_conv_date => l_act_budgets_rec.exchange_rate_date
955: ,p_from_amount => l_act_budgets_rec.request_amount
958: ,x_rate => l_rate);
959: END IF;
960: ELSE
961:
962: ozf_utility_pvt.convert_currency(
963: p_from_currency => l_act_budgets_rec.request_currency
964: ,p_to_currency => l_src_currency
965: ,p_conv_type => l_exchange_rate_type
966: ,p_conv_date => l_act_budgets_rec.exchange_rate_date --bug 8532055
1001:
1002: IF NVL(l_act_budgets_rec.approved_amount,0) <> 0 THEN
1003: -- R12: yzhao Oct. 10, 2005 get ledger when calculating functional currency
1004: IF G_DEBUG THEN
1005: ozf_utility_pvt.debug_message ( l_api_name
1006: || ': create_act_budgets before getting ledger util.org_id='
1007: || l_act_util_rec.org_id);
1008: END IF;
1009:
1013: p_ledger_id => l_ledger_id,
1014: p_ledger_name => l_ledger_name
1015: );
1016: IF G_DEBUG THEN
1017: ozf_utility_pvt.debug_message ( l_api_name
1018: || ': create_act_budgets ledger for util.org_id('
1019: || l_act_util_rec.org_id || ')=' || l_ledger_id);
1020: END IF;
1021: ELSE
1018: || ': create_act_budgets ledger for util.org_id('
1019: || l_act_util_rec.org_id || ')=' || l_ledger_id);
1020: END IF;
1021: ELSE
1022: ozf_utility_pvt.get_object_org_ledger(p_object_type => l_act_budgets_rec.arc_act_budget_used_by
1023: , p_object_id => l_act_budgets_rec.act_budget_used_by_id
1024: , x_org_id => l_act_util_rec.org_id
1025: , x_ledger_id => l_ledger_id
1026: , x_return_status => l_return_status
1025: , x_ledger_id => l_ledger_id
1026: , x_return_status => l_return_status
1027: );
1028: IF G_DEBUG THEN
1029: ozf_utility_pvt.debug_message ( l_api_name
1030: || ': create_act_budgets ledger for '
1031: || l_act_budgets_rec.arc_act_budget_used_by
1032: || ' id('
1033: || l_act_budgets_rec.act_budget_used_by_id
1051: IF l_ledger_id IS NULL THEN
1052: IF l_act_budgets_rec.budget_source_type NOT IN ('CAMP', 'CSCH', 'EVEO', 'EVEH', 'EONE') AND
1053: l_act_budgets_rec.arc_act_budget_used_by NOT IN ('CAMP', 'CSCH', 'EVEO', 'EVEH', 'EONE') THEN
1054: IF G_DEBUG THEN
1055: ozf_utility_pvt.debug_message ( l_api_name
1056: || ': create_act_budgets ledger not found for '
1057: || l_act_budgets_rec.arc_act_budget_used_by
1058: || ' id('
1059: || l_act_budgets_rec.act_budget_used_by_id);
1079: FETCH c_get_conversion_type INTO l_exchange_rate_type;
1080: CLOSE c_get_conversion_type;
1081:
1082: IF G_DEBUG THEN
1083: ozf_utility_pvt.debug_message ( l_full_name
1084: || ' l_act_budgets_rec.exchange_rate_date4: ' || l_act_budgets_rec.exchange_rate_date);
1085: END IF;
1086:
1087: --For bug 7425189, get exchange date based on approval date
1088: IF l_act_budgets_rec.justification IN (l_fund_reconc_msg,l_act_bud_cst_msg)
1089: AND l_act_budgets_rec.exchange_rate_date IS NOT NULL
1090: AND l_act_budgets_rec.transfer_type = 'TRANSFER' THEN
1091: l_exchange_rate_type := NULL;
1092: ozf_utility_pvt.calculate_functional_currency(
1093: p_from_amount => l_act_budgets_rec.approved_amount
1094: ,p_conv_date => l_act_budgets_rec.exchange_rate_date
1095: ,p_tc_currency_code => l_act_budgets_rec.request_currency
1096: ,p_ledger_id => l_ledger_id
1102: ,x_return_status => l_return_status);
1103:
1104: ELSE
1105:
1106: ozf_utility_pvt.calculate_functional_currency(
1107: p_from_amount => l_act_budgets_rec.approved_amount
1108: ,p_conv_date => l_act_budgets_rec.exchange_rate_date --bug 8532055
1109: ,p_tc_currency_code => l_act_budgets_rec.request_currency
1110: ,p_ledger_id => l_ledger_id
1132: l_temp_approved_amount := l_act_budgets_rec.approved_amount;
1133: l_temp_aprvd_orig_amount := l_act_budgets_rec.approved_original_amount;
1134:
1135: IF G_DEBUG THEN
1136: ozf_utility_pvt.debug_message ( l_api_name||'l_temp_request_amount '|| l_temp_request_amount);
1137: ozf_utility_pvt.debug_message ( l_api_name||'l_temp_approved_amount '|| l_temp_approved_amount);
1138: ozf_utility_pvt.debug_message ( l_api_name||'l_temp_aprvd_orig_amount '|| l_temp_aprvd_orig_amount);
1139: ozf_utility_pvt.debug_message ( l_api_name||'src_curr_req_amt '|| l_act_budgets_rec.src_curr_req_amt);
1140: END IF;
1133: l_temp_aprvd_orig_amount := l_act_budgets_rec.approved_original_amount;
1134:
1135: IF G_DEBUG THEN
1136: ozf_utility_pvt.debug_message ( l_api_name||'l_temp_request_amount '|| l_temp_request_amount);
1137: ozf_utility_pvt.debug_message ( l_api_name||'l_temp_approved_amount '|| l_temp_approved_amount);
1138: ozf_utility_pvt.debug_message ( l_api_name||'l_temp_aprvd_orig_amount '|| l_temp_aprvd_orig_amount);
1139: ozf_utility_pvt.debug_message ( l_api_name||'src_curr_req_amt '|| l_act_budgets_rec.src_curr_req_amt);
1140: END IF;
1141:
1134:
1135: IF G_DEBUG THEN
1136: ozf_utility_pvt.debug_message ( l_api_name||'l_temp_request_amount '|| l_temp_request_amount);
1137: ozf_utility_pvt.debug_message ( l_api_name||'l_temp_approved_amount '|| l_temp_approved_amount);
1138: ozf_utility_pvt.debug_message ( l_api_name||'l_temp_aprvd_orig_amount '|| l_temp_aprvd_orig_amount);
1139: ozf_utility_pvt.debug_message ( l_api_name||'src_curr_req_amt '|| l_act_budgets_rec.src_curr_req_amt);
1140: END IF;
1141:
1142: l_act_budgets_rec.request_amount := l_act_budgets_rec.src_curr_req_amt;
1135: IF G_DEBUG THEN
1136: ozf_utility_pvt.debug_message ( l_api_name||'l_temp_request_amount '|| l_temp_request_amount);
1137: ozf_utility_pvt.debug_message ( l_api_name||'l_temp_approved_amount '|| l_temp_approved_amount);
1138: ozf_utility_pvt.debug_message ( l_api_name||'l_temp_aprvd_orig_amount '|| l_temp_aprvd_orig_amount);
1139: ozf_utility_pvt.debug_message ( l_api_name||'src_curr_req_amt '|| l_act_budgets_rec.src_curr_req_amt);
1140: END IF;
1141:
1142: l_act_budgets_rec.request_amount := l_act_budgets_rec.src_curr_req_amt;
1143: l_act_budgets_rec.approved_original_amount := l_act_budgets_rec.src_curr_req_amt;
1144: l_act_budgets_rec.approved_amount := l_act_budgets_rec.src_curr_req_amt;
1145: END IF;
1146: -- nepanda : Fix for 12911854
1147: if l_act_budgets_rec.approved_in_currency is not null then
1148: l_act_budgets_rec.src_curr_req_amt := ozf_utility_pvt.currround(l_act_budgets_rec.src_curr_req_amt, l_act_budgets_rec.approved_in_currency);
1149: end if;
1150:
1151: if l_act_budgets_rec.request_currency is not null then
1152: l_act_budgets_rec.approved_amount := ozf_utility_pvt.currround(l_act_budgets_rec.approved_amount, l_act_budgets_rec.request_currency);
1148: l_act_budgets_rec.src_curr_req_amt := ozf_utility_pvt.currround(l_act_budgets_rec.src_curr_req_amt, l_act_budgets_rec.approved_in_currency);
1149: end if;
1150:
1151: if l_act_budgets_rec.request_currency is not null then
1152: l_act_budgets_rec.approved_amount := ozf_utility_pvt.currround(l_act_budgets_rec.approved_amount, l_act_budgets_rec.request_currency);
1153: end if;
1154:
1155: if l_act_budgets_rec.approved_in_currency is not null then
1156: l_act_budgets_rec.approved_original_amount := ozf_utility_pvt.currround(l_act_budgets_rec.approved_original_amount, l_act_budgets_rec.approved_in_currency);
1152: l_act_budgets_rec.approved_amount := ozf_utility_pvt.currround(l_act_budgets_rec.approved_amount, l_act_budgets_rec.request_currency);
1153: end if;
1154:
1155: if l_act_budgets_rec.approved_in_currency is not null then
1156: l_act_budgets_rec.approved_original_amount := ozf_utility_pvt.currround(l_act_budgets_rec.approved_original_amount, l_act_budgets_rec.approved_in_currency);
1157: end if;
1158:
1159: if l_act_budgets_rec.parent_src_curr is not null then
1160: l_act_budgets_rec.parent_src_apprvd_amt := ozf_utility_pvt.currround(l_act_budgets_rec.parent_src_apprvd_amt, l_act_budgets_rec.parent_src_curr);
1156: l_act_budgets_rec.approved_original_amount := ozf_utility_pvt.currround(l_act_budgets_rec.approved_original_amount, l_act_budgets_rec.approved_in_currency);
1157: end if;
1158:
1159: if l_act_budgets_rec.parent_src_curr is not null then
1160: l_act_budgets_rec.parent_src_apprvd_amt := ozf_utility_pvt.currround(l_act_budgets_rec.parent_src_apprvd_amt, l_act_budgets_rec.parent_src_curr);
1161: end if;
1162:
1163: IF l_ledger_id IS NOT NULL THEN
1164: OPEN c_get_gl_info(l_ledger_id);
1164: OPEN c_get_gl_info(l_ledger_id);
1165: FETCH c_get_gl_info INTO l_fc_currency_code;
1166: CLOSE c_get_gl_info;
1167: if l_fc_currency_code is not null then
1168: l_fc_amount := ozf_utility_pvt.currround(l_fc_amount, l_fc_currency_code);
1169: end if;
1170: END IF;
1171:
1172: IF l_fc_amount = l_act_budgets_rec.request_amount THEN
1170: END IF;
1171:
1172: IF l_fc_amount = l_act_budgets_rec.request_amount THEN
1173: if l_act_budgets_rec.request_currency is not null then
1174: l_fc_amount := ozf_utility_pvt.currround(l_act_budgets_rec.request_amount, l_act_budgets_rec.request_currency);
1175: end if;
1176: END IF;
1177: if l_act_budgets_rec.request_currency is not null then
1178: l_act_budgets_rec.request_amount := ozf_utility_pvt.currround(l_act_budgets_rec.request_amount, l_act_budgets_rec.request_currency);
1174: l_fc_amount := ozf_utility_pvt.currround(l_act_budgets_rec.request_amount, l_act_budgets_rec.request_currency);
1175: end if;
1176: END IF;
1177: if l_act_budgets_rec.request_currency is not null then
1178: l_act_budgets_rec.request_amount := ozf_utility_pvt.currround(l_act_budgets_rec.request_amount, l_act_budgets_rec.request_currency);
1179: end if;
1180:
1181: INSERT INTO ozf_act_budgets
1182: (activity_budget_id, -- standard who columns
1239: ,l_act_budgets_rec.parent_act_budget_id, l_act_budgets_rec.contact_id
1240: ,l_act_budgets_rec.reason_code, l_act_budgets_rec.transfer_type
1241: ,NVL (
1242: l_act_budgets_rec.requester_id
1243: ,ozf_utility_pvt.get_resource_id (fnd_global.user_id)
1244: ) --l_act_budgets_rec.requester_id
1245: ,l_act_budgets_rec.date_required_by
1246: ,null --l_act_budgets_rec.parent_source_id
1247: ,l_act_budgets_rec.parent_src_curr
1269: IF l_act_budgets_rec.transfer_type = 'UTILIZED'
1270: AND l_src_currency <> l_act_budgets_rec.request_currency THEN
1271:
1272: IF G_DEBUG THEN
1273: ozf_utility_pvt.debug_message ( l_api_name|| l_temp_request_amount);
1274: ozf_utility_pvt.debug_message ( l_api_name|| l_temp_approved_amount);
1275: ozf_utility_pvt.debug_message ( l_api_name|| l_temp_aprvd_orig_amount);
1276: END IF;
1277:
1270: AND l_src_currency <> l_act_budgets_rec.request_currency THEN
1271:
1272: IF G_DEBUG THEN
1273: ozf_utility_pvt.debug_message ( l_api_name|| l_temp_request_amount);
1274: ozf_utility_pvt.debug_message ( l_api_name|| l_temp_approved_amount);
1275: ozf_utility_pvt.debug_message ( l_api_name|| l_temp_aprvd_orig_amount);
1276: END IF;
1277:
1278: l_act_budgets_rec.request_amount := l_temp_request_amount;
1271:
1272: IF G_DEBUG THEN
1273: ozf_utility_pvt.debug_message ( l_api_name|| l_temp_request_amount);
1274: ozf_utility_pvt.debug_message ( l_api_name|| l_temp_approved_amount);
1275: ozf_utility_pvt.debug_message ( l_api_name|| l_temp_aprvd_orig_amount);
1276: END IF;
1277:
1278: l_act_budgets_rec.request_amount := l_temp_request_amount;
1279: l_act_budgets_rec.approved_original_amount := l_temp_aprvd_orig_amount;
1286: ,p_note=> l_act_budgets_rec.justification
1287: ,p_note_type=> 'AMS_JUSTIFICATION'
1288: ,p_user=> NVL (
1289: l_act_budgets_rec.requester_id
1290: ,ozf_utility_pvt.get_resource_id (fnd_global.user_id)
1291: )
1292: ,x_msg_count=> x_msg_count
1293: ,x_msg_data=> x_msg_data
1294: ,x_return_status=> l_return_status
1325: -- 02/23/2001 mpande whenever user enters a amount as utlized
1326: -- For this amount a utilized record is entered in fund_utilized table
1327: --That means the budget is utilized . Budget Utlized for offers take place through orders
1328: IF G_DEBUG THEN
1329: ozf_utility_pvt.debug_message ( l_api_name
1330: || ': check items');
1331: END IF;
1332:
1333: -- 06/25/2001 mpande changed by mpande
1749: ,x_utilization_id OUT NOCOPY NUMBER ) IS
1750:
1751: l_old_act_budgets_rec act_budgets_rec_type;
1752: l_use_fund_staging_tables VARCHAR2(1) := 'F';
1753: l_ozf_act_budgets_tbl OZF_UTILITY_PVT.ozf_act_budgets_table;
1754: lx_ozf_funds_old_rectype OZF_UTILITY_PVT.ozf_funds_all_b_rectype;
1755: lx_ozf_funds_new_tbl OZF_UTILITY_PVT.ozf_funds_table;
1756: l_batch_type VARCHAR2(30);
1757:
1750:
1751: l_old_act_budgets_rec act_budgets_rec_type;
1752: l_use_fund_staging_tables VARCHAR2(1) := 'F';
1753: l_ozf_act_budgets_tbl OZF_UTILITY_PVT.ozf_act_budgets_table;
1754: lx_ozf_funds_old_rectype OZF_UTILITY_PVT.ozf_funds_all_b_rectype;
1755: lx_ozf_funds_new_tbl OZF_UTILITY_PVT.ozf_funds_table;
1756: l_batch_type VARCHAR2(30);
1757:
1758: BEGIN
1751: l_old_act_budgets_rec act_budgets_rec_type;
1752: l_use_fund_staging_tables VARCHAR2(1) := 'F';
1753: l_ozf_act_budgets_tbl OZF_UTILITY_PVT.ozf_act_budgets_table;
1754: lx_ozf_funds_old_rectype OZF_UTILITY_PVT.ozf_funds_all_b_rectype;
1755: lx_ozf_funds_new_tbl OZF_UTILITY_PVT.ozf_funds_table;
1756: l_batch_type VARCHAR2(30);
1757:
1758: BEGIN
1759:
1824: ,p_act_util_rec IN act_util_rec_type -- For Bug#8867381 removed ':= NULL'
1825: ,x_utilized_amount OUT NOCOPY NUMBER -- yzhao: 06/21/2004 added to return actual utilized amount
1826: ,p_batch_type IN VARCHAR2
1827: ,p_use_fund_staging_tables IN VARCHAR2
1828: ,px_ozf_act_budgets_tbl IN OUT NOCOPY OZF_UTILITY_PVT.ozf_act_budgets_table
1829: ,px_ozf_funds_old_rectype IN OZF_UTILITY_PVT.ozf_funds_all_b_rectype
1830: ,px_ozf_funds_new_tbl IN OUT NOCOPY OZF_UTILITY_PVT.ozf_funds_table -- For TPA Parallel Execution ER - 9614703
1831: ) IS
1832: l_utilization_id NUMBER; --nirprasa - added for Bug 9383565
1825: ,x_utilized_amount OUT NOCOPY NUMBER -- yzhao: 06/21/2004 added to return actual utilized amount
1826: ,p_batch_type IN VARCHAR2
1827: ,p_use_fund_staging_tables IN VARCHAR2
1828: ,px_ozf_act_budgets_tbl IN OUT NOCOPY OZF_UTILITY_PVT.ozf_act_budgets_table
1829: ,px_ozf_funds_old_rectype IN OZF_UTILITY_PVT.ozf_funds_all_b_rectype
1830: ,px_ozf_funds_new_tbl IN OUT NOCOPY OZF_UTILITY_PVT.ozf_funds_table -- For TPA Parallel Execution ER - 9614703
1831: ) IS
1832: l_utilization_id NUMBER; --nirprasa - added for Bug 9383565
1833: BEGIN
1826: ,p_batch_type IN VARCHAR2
1827: ,p_use_fund_staging_tables IN VARCHAR2
1828: ,px_ozf_act_budgets_tbl IN OUT NOCOPY OZF_UTILITY_PVT.ozf_act_budgets_table
1829: ,px_ozf_funds_old_rectype IN OZF_UTILITY_PVT.ozf_funds_all_b_rectype
1830: ,px_ozf_funds_new_tbl IN OUT NOCOPY OZF_UTILITY_PVT.ozf_funds_table -- For TPA Parallel Execution ER - 9614703
1831: ) IS
1832: l_utilization_id NUMBER; --nirprasa - added for Bug 9383565
1833: BEGIN
1834: update_act_budgets (
1879: ,p_act_util_rec IN act_util_rec_type -- For Bug#8867381 removed ':= NULL'
1880: ,x_utilized_amount OUT NOCOPY NUMBER -- yzhao: 06/21/2004 added to return actual utilized amount
1881: ,p_batch_type IN VARCHAR2
1882: ,p_use_fund_staging_tables IN VARCHAR2
1883: ,px_ozf_act_budgets_tbl IN OUT NOCOPY OZF_UTILITY_PVT.ozf_act_budgets_table
1884: ,px_ozf_funds_old_rectype IN OZF_UTILITY_PVT.ozf_funds_all_b_rectype
1885: ,px_ozf_funds_new_tbl IN OUT NOCOPY OZF_UTILITY_PVT.ozf_funds_table -- For TPA Parallel Execution ER - 9614703
1886: ,x_utilization_id OUT NOCOPY NUMBER --nirprasa - added for Bug 9383565
1887: ) IS
1880: ,x_utilized_amount OUT NOCOPY NUMBER -- yzhao: 06/21/2004 added to return actual utilized amount
1881: ,p_batch_type IN VARCHAR2
1882: ,p_use_fund_staging_tables IN VARCHAR2
1883: ,px_ozf_act_budgets_tbl IN OUT NOCOPY OZF_UTILITY_PVT.ozf_act_budgets_table
1884: ,px_ozf_funds_old_rectype IN OZF_UTILITY_PVT.ozf_funds_all_b_rectype
1885: ,px_ozf_funds_new_tbl IN OUT NOCOPY OZF_UTILITY_PVT.ozf_funds_table -- For TPA Parallel Execution ER - 9614703
1886: ,x_utilization_id OUT NOCOPY NUMBER --nirprasa - added for Bug 9383565
1887: ) IS
1888: l_api_name CONSTANT VARCHAR2 (30) := 'Update_Act_Budgets';
1881: ,p_batch_type IN VARCHAR2
1882: ,p_use_fund_staging_tables IN VARCHAR2
1883: ,px_ozf_act_budgets_tbl IN OUT NOCOPY OZF_UTILITY_PVT.ozf_act_budgets_table
1884: ,px_ozf_funds_old_rectype IN OZF_UTILITY_PVT.ozf_funds_all_b_rectype
1885: ,px_ozf_funds_new_tbl IN OUT NOCOPY OZF_UTILITY_PVT.ozf_funds_table -- For TPA Parallel Execution ER - 9614703
1886: ,x_utilization_id OUT NOCOPY NUMBER --nirprasa - added for Bug 9383565
1887: ) IS
1888: l_api_name CONSTANT VARCHAR2 (30) := 'Update_Act_Budgets';
1889: l_api_version CONSTANT NUMBER := 1.0;
2015: IF NOT fnd_api.compatible_api_call (l_api_version, p_api_version, l_api_name, g_package_name) THEN
2016: RAISE fnd_api.g_exc_unexpected_error;
2017: END IF;
2018:
2019: ozf_utility_pvt.debug_message(' update_Act_budgets.plan_currency_code mg: ' || p_act_util_rec.plan_currency_code);
2020:
2021: -- Initialize message list IF p_init_msg_list is set to TRUE.
2022: IF fnd_api.to_boolean (p_init_msg_list) THEN
2023: fnd_msg_pub.initialize;
2052: l_fund_reconc_msg := fnd_message.get_string ('OZF', 'OZF_FUND_RECONCILE');
2053: l_act_bud_cst_msg := fnd_message.get_string ('OZF', 'OZF_ACT_BUDG_CST_UTIL');
2054:
2055: IF G_DEBUG THEN
2056: ozf_utility_pvt.debug_message ('request_amount '||l_act_budgets_rec.request_amount);
2057: ozf_utility_pvt.debug_message('plan_curr_amount '|| p_act_util_rec.plan_curr_amount);
2058: END IF;
2059:
2060: /*12/19/2001 mpande Added code for UI requirement , when a object is transfering money he would request in
2053: l_act_bud_cst_msg := fnd_message.get_string ('OZF', 'OZF_ACT_BUDG_CST_UTIL');
2054:
2055: IF G_DEBUG THEN
2056: ozf_utility_pvt.debug_message ('request_amount '||l_act_budgets_rec.request_amount);
2057: ozf_utility_pvt.debug_message('plan_curr_amount '|| p_act_util_rec.plan_curr_amount);
2058: END IF;
2059:
2060: /*12/19/2001 mpande Added code for UI requirement , when a object is transfering money he would request in
2061: object's currency and not source currency since here the source is the object, in case of transfer */
2066: ,l_act_budgets_rec.budget_source_id
2067: ,l_return_status
2068: );
2069: IF G_DEBUG THEN
2070: ozf_utility_pvt.debug_message ('approved_in_currency '||l_act_budgets_rec.approved_in_currency);
2071: ozf_utility_pvt.debug_message ('request_currency '||l_act_budgets_rec.request_currency);
2072: ozf_utility_pvt.debug_message ('request_amount '||l_act_budgets_rec.request_amount);
2073: ozf_utility_pvt.debug_message ('src_curr_req_amt '||l_act_budgets_rec.src_curr_req_amt);
2074: ozf_utility_pvt.debug_message ('budget_source_type '||l_act_budgets_rec.budget_source_type);
2067: ,l_return_status
2068: );
2069: IF G_DEBUG THEN
2070: ozf_utility_pvt.debug_message ('approved_in_currency '||l_act_budgets_rec.approved_in_currency);
2071: ozf_utility_pvt.debug_message ('request_currency '||l_act_budgets_rec.request_currency);
2072: ozf_utility_pvt.debug_message ('request_amount '||l_act_budgets_rec.request_amount);
2073: ozf_utility_pvt.debug_message ('src_curr_req_amt '||l_act_budgets_rec.src_curr_req_amt);
2074: ozf_utility_pvt.debug_message ('budget_source_type '||l_act_budgets_rec.budget_source_type);
2075: ozf_utility_pvt.debug_message ('l_transaction_currency '||l_transaction_currency);
2068: );
2069: IF G_DEBUG THEN
2070: ozf_utility_pvt.debug_message ('approved_in_currency '||l_act_budgets_rec.approved_in_currency);
2071: ozf_utility_pvt.debug_message ('request_currency '||l_act_budgets_rec.request_currency);
2072: ozf_utility_pvt.debug_message ('request_amount '||l_act_budgets_rec.request_amount);
2073: ozf_utility_pvt.debug_message ('src_curr_req_amt '||l_act_budgets_rec.src_curr_req_amt);
2074: ozf_utility_pvt.debug_message ('budget_source_type '||l_act_budgets_rec.budget_source_type);
2075: ozf_utility_pvt.debug_message ('l_transaction_currency '||l_transaction_currency);
2076: END IF;
2069: IF G_DEBUG THEN
2070: ozf_utility_pvt.debug_message ('approved_in_currency '||l_act_budgets_rec.approved_in_currency);
2071: ozf_utility_pvt.debug_message ('request_currency '||l_act_budgets_rec.request_currency);
2072: ozf_utility_pvt.debug_message ('request_amount '||l_act_budgets_rec.request_amount);
2073: ozf_utility_pvt.debug_message ('src_curr_req_amt '||l_act_budgets_rec.src_curr_req_amt);
2074: ozf_utility_pvt.debug_message ('budget_source_type '||l_act_budgets_rec.budget_source_type);
2075: ozf_utility_pvt.debug_message ('l_transaction_currency '||l_transaction_currency);
2076: END IF;
2077: -- do this only if it is null because , in other case request amount should be passed correctly
2070: ozf_utility_pvt.debug_message ('approved_in_currency '||l_act_budgets_rec.approved_in_currency);
2071: ozf_utility_pvt.debug_message ('request_currency '||l_act_budgets_rec.request_currency);
2072: ozf_utility_pvt.debug_message ('request_amount '||l_act_budgets_rec.request_amount);
2073: ozf_utility_pvt.debug_message ('src_curr_req_amt '||l_act_budgets_rec.src_curr_req_amt);
2074: ozf_utility_pvt.debug_message ('budget_source_type '||l_act_budgets_rec.budget_source_type);
2075: ozf_utility_pvt.debug_message ('l_transaction_currency '||l_transaction_currency);
2076: END IF;
2077: -- do this only if it is null because , in other case request amount should be passed correctly
2078: IF p_act_budgets_rec.request_amount IS NULL AND p_act_budgets_rec.src_curr_req_amt IS NOT NULL
2071: ozf_utility_pvt.debug_message ('request_currency '||l_act_budgets_rec.request_currency);
2072: ozf_utility_pvt.debug_message ('request_amount '||l_act_budgets_rec.request_amount);
2073: ozf_utility_pvt.debug_message ('src_curr_req_amt '||l_act_budgets_rec.src_curr_req_amt);
2074: ozf_utility_pvt.debug_message ('budget_source_type '||l_act_budgets_rec.budget_source_type);
2075: ozf_utility_pvt.debug_message ('l_transaction_currency '||l_transaction_currency);
2076: END IF;
2077: -- do this only if it is null because , in other case request amount should be passed correctly
2078: IF p_act_budgets_rec.request_amount IS NULL AND p_act_budgets_rec.src_curr_req_amt IS NOT NULL
2079: AND p_act_budgets_rec.src_curr_req_amt <> FND_API.g_miss_num THEN
2086: --This code will not be executed for transfer_type='UTILIZED'
2087: --In case of util/earned amt creation.
2088:
2089: IF G_DEBUG THEN
2090: ozf_utility_pvt.debug_message ( l_api_name
2091: || ' l_act_budgets_rec.exchange_rate_date1: ' || l_act_budgets_rec.exchange_rate_date);
2092: END IF;
2093:
2094: ozf_utility_pvt.convert_currency (
2090: ozf_utility_pvt.debug_message ( l_api_name
2091: || ' l_act_budgets_rec.exchange_rate_date1: ' || l_act_budgets_rec.exchange_rate_date);
2092: END IF;
2093:
2094: ozf_utility_pvt.convert_currency (
2095: x_return_status => l_return_status
2096: ,p_from_currency => l_act_budgets_rec.approved_in_currency
2097: ,p_to_currency => l_act_budgets_rec.request_currency
2098: ,p_conv_date => l_act_budgets_rec.exchange_rate_date --bug 7425189, 8532055
2105: --Added for bug 7425189
2106: IF l_act_budgets_rec.justification IN (l_fund_reconc_msg,l_act_bud_cst_msg)
2107: AND l_act_budgets_rec.exchange_rate_date IS NOT NULL THEN
2108:
2109: ozf_utility_pvt.convert_currency (
2110: x_return_status=> l_return_status
2111: ,p_from_currency=> l_act_budgets_rec.approved_in_currency
2112: ,p_to_currency=> l_act_budgets_rec.request_currency
2113: ,p_conv_date=> l_act_budgets_rec.exchange_rate_date
2114: ,p_from_amount=> l_act_budgets_rec.src_curr_req_amt
2115: ,x_to_amount=> l_act_budgets_rec.request_amount
2116: );
2117: ELSE
2118: ozf_utility_pvt.convert_currency (
2119: x_return_status=> l_return_status
2120: ,p_from_currency=> l_act_budgets_rec.approved_in_currency
2121: ,p_to_currency=> l_act_budgets_rec.request_currency
2122: ,p_from_amount=> l_act_budgets_rec.src_curr_req_amt
2135: END IF;
2136: /* End OF CHange mpande 12/19/2001 */
2137:
2138: IF l_act_budgets_rec.request_currency IS NULL THEN
2139: ozf_utility_pvt.error_message ('OZF_ACT_BUDG_NO_CURRENCY');
2140: x_return_status := fnd_api.g_ret_sts_error;
2141: END IF;
2142:
2143: IF l_return_status = fnd_api.g_ret_sts_error THEN
2147: END IF;
2148:
2149: IF l_act_budgets_rec.user_status_id IS NULL THEN
2150: l_act_budgets_rec.user_status_id :=
2151: ozf_utility_pvt.get_default_user_status (l_status_type, l_act_budgets_rec.status_code);
2152: ELSE
2153: l_act_budgets_rec.status_code :=
2154: ozf_utility_pvt.get_system_status_code (l_act_budgets_rec.user_status_id);
2155: END IF;
2150: l_act_budgets_rec.user_status_id :=
2151: ozf_utility_pvt.get_default_user_status (l_status_type, l_act_budgets_rec.status_code);
2152: ELSE
2153: l_act_budgets_rec.status_code :=
2154: ozf_utility_pvt.get_system_status_code (l_act_budgets_rec.user_status_id);
2155: END IF;
2156:
2157: -- status rules for updating replace the record with one which
2158: -- only allows update of specific fields according to the status of the budget
2161: FETCH c_current_status INTO l_old_status_code, l_old_approved_amount,l_old_parent_src_amt;
2162:
2163: IF c_current_status%NOTFOUND THEN
2164: CLOSE c_current_status;
2165: ozf_utility_pvt.error_message ('OZF_API_RECORD_NOT_FOUND');
2166: RAISE fnd_api.g_exc_unexpected_error;
2167: END IF;
2168:
2169: CLOSE c_current_status;
2170:
2171:
2172:
2173: IF l_old_status_code = 'CLOSED' THEN
2174: ozf_utility_pvt.error_message ('OZF_ACT_BUDG_REJECTED');
2175: RAISE fnd_api.g_exc_error;
2176: ELSIF l_old_status_code = 'REJECTED' THEN
2177: ozf_utility_pvt.error_message ('OZF_ACT_BUDG_REJECTED');
2178: RAISE fnd_api.g_exc_error;
2173: IF l_old_status_code = 'CLOSED' THEN
2174: ozf_utility_pvt.error_message ('OZF_ACT_BUDG_REJECTED');
2175: RAISE fnd_api.g_exc_error;
2176: ELSIF l_old_status_code = 'REJECTED' THEN
2177: ozf_utility_pvt.error_message ('OZF_ACT_BUDG_REJECTED');
2178: RAISE fnd_api.g_exc_error;
2179: --
2180: -- Cases of valid approval:
2181: -- 1) WF approval process responds to request to APPROVE, in which case, old status
2245: ELSE
2246: -- convert the request amount to the fund's currency. the planned amount for a fund
2247: -- is stored in the table as a value based on the transactional currency, so the
2248: -- request amount must also be based on the same currency.
2249: ozf_utility_pvt.convert_currency (
2250: x_return_status=> l_return_status
2251: ,p_from_currency=> l_act_budgets_rec.request_currency
2252: ,p_to_currency=> l_fund_currency_tc
2253: ,p_from_amount=> l_act_budgets_rec.request_amount
2266: l_univ_amount := l_act_budgets_rec.request_amount;
2267: ELSIF g_universal_currency = l_fund_currency_tc THEN
2268: l_univ_amount := l_fund_rec.planned_amt;
2269: ELSE
2270: ozf_utility_pvt.convert_currency (
2271: x_return_status=> l_return_status
2272: ,p_from_currency=> l_act_budgets_rec.request_currency
2273: ,p_to_currency=> g_universal_currency
2274: ,p_from_amount=> l_act_budgets_rec.request_amount
2408: -- convert the request amount to the fund's currency. the planned amount for a fund
2409: -- is stored in the table as a value based on the transactional currency, so the
2410: -- request amount must also be based on the same currency.
2411:
2412: ozf_utility_pvt.convert_currency (
2413: x_return_status=> l_return_status
2414: ,p_from_currency=> l_act_budgets_rec.request_currency
2415: ,p_to_currency=> l_fund_currency_tc
2416: ,p_from_amount=> l_act_budgets_rec.request_amount
2429: l_univ_amount := l_act_budgets_rec.request_amount;
2430: ELSIF g_universal_currency = l_fund_currency_tc THEN
2431: l_univ_amount := l_fund_rec.planned_amt;
2432: ELSE
2433: ozf_utility_pvt.convert_currency (
2434: x_return_status=> l_return_status
2435: ,p_from_currency=> l_act_budgets_rec.request_currency
2436: ,p_to_currency=> g_universal_currency
2437: ,p_from_amount=> l_act_budgets_rec.request_amount
2508: IF OZF_ACTBUDGETRULES_PVT.budget_has_enough_money (
2509: p_source_id=> l_act_budgets_rec.budget_source_id
2510: ,p_approved_amount=> l_fund_rec.planned_amt
2511: ) = fnd_api.g_false THEN
2512: ozf_utility_pvt.error_message ('OZF_ACT_BUDG_NO_MONEY');
2513: RAISE fnd_api.g_exc_error;
2514: END IF;
2515: END IF;
2516:
2596: FETCH c_get_conversion_type INTO l_exchange_rate_type;
2597: CLOSE c_get_conversion_type;
2598:
2599: IF G_DEBUG THEN
2600: ozf_utility_pvt.debug_message ( l_api_name
2601: || ' l_act_budgets_rec.exchange_rate_date2: ' || l_act_budgets_rec.exchange_rate_date);
2602: END IF;
2603:
2604: ozf_utility_pvt.convert_currency (
2600: ozf_utility_pvt.debug_message ( l_api_name
2601: || ' l_act_budgets_rec.exchange_rate_date2: ' || l_act_budgets_rec.exchange_rate_date);
2602: END IF;
2603:
2604: ozf_utility_pvt.convert_currency (
2605: x_return_status=> l_return_status
2606: ,p_from_currency=> l_act_budgets_rec.request_currency
2607: ,p_to_currency=> l_act_budgets_rec.approved_in_currency
2608: ,p_conv_type=> l_exchange_rate_type
2615: /*
2616: --Added for bug 7425189
2617: IF l_act_budgets_rec.justification IN (l_fund_reconc_msg,l_act_bud_cst_msg)
2618: AND l_act_budgets_rec.exchange_rate_date IS NOT NULL THEN
2619: ozf_utility_pvt.convert_currency (
2620: x_return_status=> l_return_status
2621: ,p_from_currency=> l_act_budgets_rec.request_currency
2622: ,p_to_currency=> l_act_budgets_rec.approved_in_currency
2623: ,p_conv_type=> l_exchange_rate_type
2627: ,x_rate=> l_rate
2628: );
2629:
2630: ELSE
2631: ozf_utility_pvt.convert_currency (
2632: x_return_status=> l_return_status
2633: ,p_from_currency=> l_act_budgets_rec.request_currency
2634: ,p_to_currency=> l_act_budgets_rec.approved_in_currency
2635: ,p_conv_type=> l_exchange_rate_type
2654:
2655: -- get the corresponding user_status_id
2656: -- for the given status_code.
2657: l_act_budgets_rec.user_status_id :=
2658: ozf_utility_pvt.get_default_user_status (l_status_type, l_act_budgets_rec.status_code);
2659: IF G_DEBUG THEN
2660: ozf_utility_pvt.debug_message ( l_api_name
2661: || ': check items');
2662: END IF;
2656: -- for the given status_code.
2657: l_act_budgets_rec.user_status_id :=
2658: ozf_utility_pvt.get_default_user_status (l_status_type, l_act_budgets_rec.status_code);
2659: IF G_DEBUG THEN
2660: ozf_utility_pvt.debug_message ( l_api_name
2661: || ': check items');
2662: END IF;
2663: l_act_budgets_rec.comment := p_act_budgets_rec.comment;
2664:
2674: ,l_return_status
2675: );
2676: END IF;
2677: IF G_DEBUG THEN
2678: ozf_utility_pvt.debug_message ( l_api_name
2679: || ': l_src_currency '||l_src_currency);
2680: ozf_utility_pvt.debug_message ( l_api_name
2681: || ': l_act_budgets_rec.request_currency'
2682: || l_act_budgets_rec.request_currency);
2676: END IF;
2677: IF G_DEBUG THEN
2678: ozf_utility_pvt.debug_message ( l_api_name
2679: || ': l_src_currency '||l_src_currency);
2680: ozf_utility_pvt.debug_message ( l_api_name
2681: || ': l_act_budgets_rec.request_currency'
2682: || l_act_budgets_rec.request_currency);
2683: ozf_utility_pvt.debug_message ( l_api_name
2684: || ': l_act_budgets_rec.request_amount'
2679: || ': l_src_currency '||l_src_currency);
2680: ozf_utility_pvt.debug_message ( l_api_name
2681: || ': l_act_budgets_rec.request_currency'
2682: || l_act_budgets_rec.request_currency);
2683: ozf_utility_pvt.debug_message ( l_api_name
2684: || ': l_act_budgets_rec.request_amount'
2685: || l_act_budgets_rec.request_amount);
2686: END IF;
2687:
2697:
2698: IF NVL(l_act_budgets_rec.request_amount,0) <> 0 THEN
2699:
2700: IF G_DEBUG THEN
2701: ozf_utility_pvt.debug_message ( l_api_name
2702: || ' l_act_budgets_rec.exchange_rate_date3: ' || l_act_budgets_rec.exchange_rate_date);
2703: END IF;
2704:
2705: --Added for bug 7425189
2706: IF l_act_budgets_rec.justification IN (l_fund_reconc_msg,l_act_bud_cst_msg)
2707: AND l_act_budgets_rec.exchange_rate_date IS NOT NULL THEN
2708:
2709: IF l_act_budgets_rec.src_curr_req_amt IS NULL THEN
2710: ozf_utility_pvt.convert_currency(
2711: p_from_currency => l_act_budgets_rec.request_currency
2712: ,p_to_currency => l_src_currency
2713: ,p_conv_type => l_exchange_rate_type
2714: ,p_conv_date => l_act_budgets_rec.exchange_rate_date
2717: ,x_to_amount => l_src_curr_request_amt
2718: ,x_rate => l_rate);
2719: END IF;
2720: ELSE
2721: ozf_utility_pvt.convert_currency(
2722: p_from_currency => l_act_budgets_rec.request_currency
2723: ,p_to_currency => l_src_currency
2724: ,p_conv_type => l_exchange_rate_type
2725: ,p_conv_date => l_act_budgets_rec.exchange_rate_date --bug 8532055
2735: RAISE fnd_api.g_exc_unexpected_error;
2736: END IF;
2737: END IF;
2738: IF G_DEBUG THEN
2739: ozf_utility_pvt.debug_message ( l_api_name
2740: || ': l_act_budgets_rec.src_curr_req_amt'
2741: || l_act_budgets_rec.src_curr_req_amt);
2742: END IF;
2743: IF p_validation_level >= jtf_plsql_api.g_valid_level_item THEN
2755: END IF;
2756: END IF;
2757:
2758: IF G_DEBUG THEN
2759: ozf_utility_pvt.debug_message ( l_api_name
2760: || ': check records');
2761: END IF;
2762:
2763: IF p_validation_level >= jtf_plsql_api.g_valid_level_record THEN
2802: p_ledger_id => l_ledger_id,
2803: p_ledger_name => l_ledger_name
2804: );
2805: IF G_DEBUG THEN
2806: ozf_utility_pvt.debug_message ( l_api_name
2807: || ': create_act_budgets ledger for util.org_id('
2808: || l_act_util_rec.org_id || ')=' || l_ledger_id);
2809: END IF;
2810: ozf_utility_pvt.write_conc_log ( l_api_name
2806: ozf_utility_pvt.debug_message ( l_api_name
2807: || ': create_act_budgets ledger for util.org_id('
2808: || l_act_util_rec.org_id || ')=' || l_ledger_id);
2809: END IF;
2810: ozf_utility_pvt.write_conc_log ( l_api_name
2811: || ': create_act_budgets ledger for util.org_id('
2812: || l_act_util_rec.org_id || ')=' || l_ledger_id);
2813: ELSE
2814:
2811: || ': create_act_budgets ledger for util.org_id('
2812: || l_act_util_rec.org_id || ')=' || l_ledger_id);
2813: ELSE
2814:
2815: ozf_utility_pvt.get_object_org_ledger(p_object_type => l_act_budgets_rec.arc_act_budget_used_by
2816: , p_object_id => l_act_budgets_rec.act_budget_used_by_id
2817: , x_org_id => l_act_util_rec.org_id
2818: , x_ledger_id => l_ledger_id
2819: , x_return_status => l_return_status
2818: , x_ledger_id => l_ledger_id
2819: , x_return_status => l_return_status
2820: );
2821: IF G_DEBUG THEN
2822: ozf_utility_pvt.debug_message ( l_api_name
2823: || ': create_act_budgets ledger for '
2824: || l_act_budgets_rec.arc_act_budget_used_by
2825: || ' id('
2826: || l_act_budgets_rec.act_budget_used_by_id
2826: || l_act_budgets_rec.act_budget_used_by_id
2827: || ') returns ' || l_return_status
2828: || ' ledger_id=' || l_ledger_id);
2829: END IF;
2830: ozf_utility_pvt.write_conc_log ( l_api_name
2831: || ': create_act_budgets ledger for '
2832: || l_act_budgets_rec.arc_act_budget_used_by
2833: || ' id('
2834: || l_act_budgets_rec.act_budget_used_by_id
2853: IF l_ledger_id IS NULL AND l_is_quota IS NULL THEN
2854: IF l_act_budgets_rec.budget_source_type NOT IN ('CAMP', 'CSCH', 'EVEO', 'EVEH', 'EONE') AND
2855: l_act_budgets_rec.arc_act_budget_used_by NOT IN ('CAMP', 'CSCH', 'EVEO', 'EVEH', 'EONE') THEN
2856: IF G_DEBUG THEN
2857: ozf_utility_pvt.debug_message ( l_api_name
2858: || ': create_act_budgets ledger not found for '
2859: || l_act_budgets_rec.arc_act_budget_used_by
2860: || ' id('
2861: || l_act_budgets_rec.act_budget_used_by_id);
2877: CLOSE c_get_conversion_type;
2878:
2879:
2880: IF G_DEBUG THEN
2881: ozf_utility_pvt.debug_message ( l_api_name
2882: || ' l_act_budgets_rec.exchange_rate_date4: ' || l_act_budgets_rec.exchange_rate_date);
2883: END IF;
2884:
2885: --Added for bug 7425189
2885: --Added for bug 7425189
2886: IF l_act_budgets_rec.justification IN (l_fund_reconc_msg,l_act_bud_cst_msg)
2887: AND l_act_budgets_rec.exchange_rate_date IS NOT NULL THEN
2888: l_exchange_rate_type := NULL;
2889: ozf_utility_pvt.calculate_functional_currency(
2890: p_from_amount => l_act_budgets_rec.approved_amount
2891: ,p_conv_date => l_act_budgets_rec.exchange_rate_date
2892: ,p_tc_currency_code => l_act_budgets_rec.request_currency
2893: ,p_ledger_id => l_ledger_id
2897: ,x_exchange_rate_type => l_exchange_rate_type
2898: ,x_exchange_rate => l_exchange_rate
2899: ,x_return_status => l_return_status);
2900: ELSE
2901: ozf_utility_pvt.calculate_functional_currency(
2902: p_from_amount => l_act_budgets_rec.approved_amount
2903: ,p_conv_date => l_act_budgets_rec.exchange_rate_date --bug 8532055
2904: ,p_tc_currency_code => l_act_budgets_rec.request_currency
2905: ,p_ledger_id => l_ledger_id
2927:
2928: IF l_use_fund_staging_tables <> 'T' then
2929:
2930: IF G_DEBUG THEN
2931: ozf_utility_pvt.debug_message('Going to update mode as l_use_fund_staging_tables is :'||l_use_fund_staging_tables );
2932: ozf_utility_pvt.debug_message('request_amount :'|| l_act_budgets_rec.request_amount );
2933: END IF;
2934:
2935: -- Perform the database operation
2928: IF l_use_fund_staging_tables <> 'T' then
2929:
2930: IF G_DEBUG THEN
2931: ozf_utility_pvt.debug_message('Going to update mode as l_use_fund_staging_tables is :'||l_use_fund_staging_tables );
2932: ozf_utility_pvt.debug_message('request_amount :'|| l_act_budgets_rec.request_amount );
2933: END IF;
2934:
2935: -- Perform the database operation
2936: UPDATE ozf_act_budgets
2965: ,parent_act_budget_id = l_act_budgets_rec.parent_act_budget_id
2966: ,contact_id = l_act_budgets_rec.contact_id
2967: ,requester_id = NVL (
2968: l_act_budgets_rec.requester_id
2969: ,ozf_utility_pvt.get_resource_id (fnd_global.user_id)
2970: ) --l_act_budgets_rec.requester_id
2971: ,date_required_by = l_act_budgets_rec.date_required_by
2972: ,parent_source_id = l_act_budgets_rec.parent_source_id,
2973: parent_src_curr = l_act_budgets_rec.parent_src_curr,
3041: --//rectify Scan Data offer activation issue (-)
3042:
3043: -- nepanda : Fix for 12911854
3044: if l_act_budgets_rec.approved_in_currency is not null then
3045: l_act_budgets_rec.src_curr_req_amt := ozf_utility_pvt.currround(l_src_curr_request_amt, l_act_budgets_rec.approved_in_currency);
3046: end if;
3047:
3048: if l_act_budgets_rec.request_currency is not null then
3049: l_act_budgets_rec.approved_amount := ozf_utility_pvt.currround(l_act_budgets_rec.approved_amount, l_act_budgets_rec.request_currency);
3045: l_act_budgets_rec.src_curr_req_amt := ozf_utility_pvt.currround(l_src_curr_request_amt, l_act_budgets_rec.approved_in_currency);
3046: end if;
3047:
3048: if l_act_budgets_rec.request_currency is not null then
3049: l_act_budgets_rec.approved_amount := ozf_utility_pvt.currround(l_act_budgets_rec.approved_amount, l_act_budgets_rec.request_currency);
3050: end if;
3051:
3052: if l_act_budgets_rec.approved_in_currency is not null then
3053: l_act_budgets_rec.approved_original_amount := ozf_utility_pvt.currround(l_act_budgets_rec.approved_original_amount, l_act_budgets_rec.approved_in_currency);
3049: l_act_budgets_rec.approved_amount := ozf_utility_pvt.currround(l_act_budgets_rec.approved_amount, l_act_budgets_rec.request_currency);
3050: end if;
3051:
3052: if l_act_budgets_rec.approved_in_currency is not null then
3053: l_act_budgets_rec.approved_original_amount := ozf_utility_pvt.currround(l_act_budgets_rec.approved_original_amount, l_act_budgets_rec.approved_in_currency);
3054: end if;
3055:
3056: if l_act_budgets_rec.parent_src_curr is not null then
3057: l_act_budgets_rec.parent_src_apprvd_amt := ozf_utility_pvt.currround(l_act_budgets_rec.parent_src_apprvd_amt, l_act_budgets_rec.parent_src_curr);
3053: l_act_budgets_rec.approved_original_amount := ozf_utility_pvt.currround(l_act_budgets_rec.approved_original_amount, l_act_budgets_rec.approved_in_currency);
3054: end if;
3055:
3056: if l_act_budgets_rec.parent_src_curr is not null then
3057: l_act_budgets_rec.parent_src_apprvd_amt := ozf_utility_pvt.currround(l_act_budgets_rec.parent_src_apprvd_amt, l_act_budgets_rec.parent_src_curr);
3058: end if;
3059:
3060: IF l_ledger_id IS NOT NULL THEN
3061: OPEN c_get_gl_info(l_ledger_id);
3061: OPEN c_get_gl_info(l_ledger_id);
3062: FETCH c_get_gl_info INTO l_fc_currency_code;
3063: CLOSE c_get_gl_info;
3064: if l_fc_currency_code is not null then
3065: l_fc_amount := ozf_utility_pvt.currround(l_fc_amount, l_fc_currency_code);
3066: end if;
3067: END IF;
3068:
3069: IF l_fc_amount = l_act_budgets_rec.request_amount THEN
3067: END IF;
3068:
3069: IF l_fc_amount = l_act_budgets_rec.request_amount THEN
3070: if l_act_budgets_rec.request_currency is not null then
3071: l_fc_amount := ozf_utility_pvt.currround(l_act_budgets_rec.request_amount, l_act_budgets_rec.request_currency);
3072: end if;
3073: END IF;
3074:
3075: if l_act_budgets_rec.request_currency is not null then
3072: end if;
3073: END IF;
3074:
3075: if l_act_budgets_rec.request_currency is not null then
3076: l_act_budgets_rec.request_amount := ozf_utility_pvt.currround(l_act_budgets_rec.request_amount, l_act_budgets_rec.request_currency);
3077: end if;
3078:
3079: l_request_id := fnd_global.conc_request_id;
3080: l_budget_count := 0;
3140:
3141: IF l_start_flow_flag = 'Y' THEN
3142:
3143: l_new_status_id :=
3144: ozf_utility_pvt.get_default_user_status('OZF_BUDGETSOURCE_STATUS', 'APPROVED');
3145: l_reject_status_id :=
3146: ozf_utility_pvt.get_default_user_status('OZF_BUDGETSOURCE_STATUS', 'REJECTED');
3147:
3148: ams_gen_approval_pvt.startprocess(
3142:
3143: l_new_status_id :=
3144: ozf_utility_pvt.get_default_user_status('OZF_BUDGETSOURCE_STATUS', 'APPROVED');
3145: l_reject_status_id :=
3146: ozf_utility_pvt.get_default_user_status('OZF_BUDGETSOURCE_STATUS', 'REJECTED');
3147:
3148: ams_gen_approval_pvt.startprocess(
3149: p_activity_type => 'FREQ'
3150: ,p_activity_id => l_act_budgets_rec.activity_budget_id
3170: ,p_note=> l_act_budgets_rec.COMMENT
3171: ,p_note_type=> 'AMS_COMMENT'
3172: ,p_user=> NVL (
3173: l_act_budgets_rec.requester_id
3174: ,ozf_utility_pvt.get_resource_id (fnd_global.user_id)
3175: )
3176: ,x_msg_count=> x_msg_count
3177: ,x_msg_data=> x_msg_data
3178: ,x_return_status=> l_return_status
3191: ,p_note=> l_act_budgets_rec.justification
3192: ,p_note_type=> 'AMS_JUSTIFICATION'
3193: ,p_user=> NVL (
3194: l_act_budgets_rec.requester_id
3195: ,ozf_utility_pvt.get_resource_id (fnd_global.user_id)
3196: )
3197: ,x_msg_count=> x_msg_count
3198: ,x_msg_data=> x_msg_data
3199: ,x_return_status=> l_return_status
3604: p_count=> x_msg_count
3605: ,p_data=> x_msg_data
3606: ,p_encoded=> fnd_api.g_false
3607: );
3608: WHEN ozf_utility_pvt.resource_locked THEN
3609: x_return_status := fnd_api.g_ret_sts_error;
3610:
3611: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_error) THEN
3612: fnd_message.set_name ('OZF', 'OZF_API_RESOURCE_LOCKED');
3680: --
3681: -- API body
3682: --
3683: IF G_DEBUG THEN
3684: ozf_utility_pvt.debug_message ( l_full_name
3685: || ': check items');
3686: END IF;
3687:
3688: IF p_validation_level >= jtf_plsql_api.g_valid_level_item THEN
3702:
3703: -- Perform cross attribute validation and missing attribute checks. Record
3704: -- level validation.
3705: IF G_DEBUG THEN
3706: ozf_utility_pvt.debug_message ( l_full_name
3707: || ': check record level');
3708: END IF;
3709:
3710: IF p_validation_level >= jtf_plsql_api.g_valid_level_record THEN
3869:
3870: IF ( p_act_budgets_rec.request_currency IS NULL
3871: OR p_act_budgets_rec.request_currency = fnd_api.g_miss_char
3872: ) THEN
3873: ozf_utility_pvt.error_message ('OZF_ACT_BUDG_NO_CURRENCY');
3874: x_return_status := fnd_api.g_ret_sts_error;
3875: RETURN;
3876: END IF;
3877: -- Validate uniqueness
3876: END IF;
3877: -- Validate uniqueness
3878: IF p_validation_mode = jtf_plsql_api.g_create
3879: AND p_act_budgets_rec.activity_budget_id IS NOT NULL THEN
3880: IF ozf_utility_pvt.check_uniqueness (
3881: 'ozf_Act_budgets'
3882: , 'ACTIVITY_BUDGET_ID = '
3883: || p_act_budgets_rec.activity_budget_id
3884: ) = fnd_api.g_false THEN
3901: p_lookup_type=> 'AMS_SYS_ARC_QUALIFIER'
3902: ,p_lookup_code=> p_act_budgets_rec.arc_act_budget_used_by
3903: ) = fnd_api.g_false THEN
3904: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_error) THEN
3905: ozf_utility_pvt.debug_message ( 'Used By:'||p_act_budgets_rec.arc_act_budget_used_by);
3906: fnd_message.set_name ('OZF', 'OZF_ACT_BUDG_BAD_USEDBY');
3907: fnd_msg_pub.ADD;
3908: END IF;
3909:
3915: --
3916: -- check for lookups....BUDGET_SOURCE_TYPE
3917: --
3918: IF p_act_budgets_rec.budget_source_type <> fnd_api.g_miss_char THEN
3919: IF ozf_utility_pvt.check_lookup_exists (
3920: p_lookup_type=> 'OZF_FUND_SOURCE'
3921: ,p_lookup_code=> p_act_budgets_rec.budget_source_type
3922: ) = fnd_api.g_false THEN
3923: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_error) THEN
3975: END IF;
3976:
3977: l_pk_value := p_act_budgets_rec.act_budget_used_by_id;
3978:
3979: IF ozf_utility_pvt.check_fk_exists (
3980: p_table_name=> l_table_name
3981: ,p_pk_name=> l_pk_name
3982: ,p_pk_value=> l_pk_value
3983: ) = fnd_api.g_false THEN
4043: END IF;
4044:
4045: l_pk_value := p_act_budgets_rec.budget_source_id;
4046:
4047: IF ozf_utility_pvt.check_fk_exists (
4048: p_table_name=> l_table_name
4049: ,p_pk_name=> l_pk_name
4050: ,p_pk_value=> l_pk_value
4051: ) = fnd_api.g_false THEN
4072: l_table_name := 'ams_jtf_rs_emp_v';
4073: l_pk_name := 'RESOURCE_ID';
4074: l_pk_value := p_act_budgets_rec.approver_id;
4075:
4076: IF ozf_utility_pvt.check_fk_exists (
4077: p_table_name=> l_table_name
4078: ,p_pk_name=> l_pk_name
4079: ,p_pk_value=> l_pk_value
4080: ) = fnd_api.g_false THEN
4094: l_table_name := 'ams_jtf_rs_emp_v';
4095: l_pk_name := 'RESOURCE_ID';
4096: l_pk_value := p_act_budgets_rec.requester_id;
4097:
4098: IF ozf_utility_pvt.check_fk_exists (
4099: p_table_name=> l_table_name
4100: ,p_pk_name=> l_pk_name
4101: ,p_pk_value=> l_pk_value
4102: ) = fnd_api.g_false THEN
4201: /****************** commented by mpande 02/10/2001 only for INternal rollout*************
4202: /****************** changed by mpande**********************
4203: ---budget requested amount should always be positive be it credit or debit transaction --
4204: IF NVL(p_act_budgets_rec.request_amount,0) <= 0 THEN
4205: OZF_Utility_PVT.error_message ('OZF_ACT_BUDG_NEG_REQUEST');
4206: x_return_status := FND_API.g_ret_sts_error;
4207: END IF;
4208: ********************************************************************************************/
4209:
4224: -- allow to create budget request with zero amount, not negative amount.
4225: -- fixed by feliu on 02/02/2006.
4226: IF p_act_budgets_rec.transfer_type <> 'UTILIZED' THEN
4227: IF NVL (p_act_budgets_rec.request_amount, 0) <0 THEN
4228: ozf_utility_pvt.error_message ('OZF_ACT_BUDG_NEG_REQUEST');
4229: x_return_status := fnd_api.g_ret_sts_error;
4230: END IF;
4231: END IF;
4232: -- END IF;
4234: -- 22-Feb-2001 mpande
4235: --budget spent amount cannot be greateer than the approved amount
4236: /* 03/01/2002 mpande commented this is not there any more
4237: IF NVL (p_act_budgets_rec.spent_amount, 0) > NVL (p_act_budgets_rec.approved_amount, 0) THEN
4238: ozf_utility_pvt.error_message ('OZF_ACT_BUDG_EXCESS_SPENT');
4239: x_return_status := fnd_api.g_ret_sts_error;
4240: END IF;
4241: */
4242:
4253: FETCH c_current_amount INTO l_old_approved_amount;
4254:
4255: IF c_current_amount%NOTFOUND THEN
4256: CLOSE c_current_amount;
4257: ozf_utility_pvt.error_message ('OZF_API_RECORD_NOT_FOUND');
4258: RAISE fnd_api.g_exc_unexpected_error;
4259: END IF;
4260:
4261: CLOSE c_current_amount;
4289: FETCH c_get_budget_ledger_id INTO l_budgetLedger;
4290: CLOSE c_get_budget_ledger_id;
4291:
4292: IF NVL(l_budgetLedger, 0) <> 0 AND NVL(l_budgetLedger, 0) <> l_offerLedger THEN
4293: ozf_utility_pvt.error_message ('OZF_BUDGET_OFFR_LEDG_MISMATCH');
4294: x_return_status := fnd_api.g_ret_sts_error;
4295: RAISE fnd_api.g_exc_error;
4296: END IF;
4297:
4371: ,p_object_id=> p_act_budgets_rec.act_budget_used_by_id
4372: ,p_request_amount=> p_act_budgets_rec.request_amount
4373: ,p_act_budget_id=> p_act_budgets_rec.activity_budget_id
4374: ) = fnd_api.g_false THEN
4375: ozf_utility_pvt.error_message ( 'OZF_ACT_BUDG_EXC_OBJ_AMT');
4376: x_return_status := fnd_api.g_ret_sts_error;
4377: END IF;
4378: END IF ;
4379:
4426: -- Check that transfer cannot be from and to the same source if it s not utlized record for the object
4427: IF p_act_budgets_rec.transfer_type NOT IN ('UTILIZED', 'RELEASE', 'RESERVE') THEN
4428: IF p_act_budgets_rec.arc_act_budget_used_by = p_act_budgets_rec.budget_source_type THEN
4429: IF p_act_budgets_rec.act_budget_used_by_id = p_act_budgets_rec.budget_source_id THEN
4430: ozf_utility_pvt.error_message ('OZF_FROM_TO_TRANSFER_SAME');
4431: x_return_status := fnd_api.g_ret_sts_error;
4432: END IF;
4433: END IF;
4434: END IF;
5013: RAISE fnd_api.g_exc_unexpected_error;
5014: END IF;
5015:
5016: IF l_approved_in_currency <> p_act_budget_rec.request_currency THEN
5017: ozf_utility_pvt.convert_currency (
5018: x_return_status=> l_return_status
5019: ,p_from_currency=> p_act_budget_rec.request_currency
5020: ,p_to_currency=> l_approved_in_currency
5021: ,p_from_amount=> p_act_budget_rec.request_amount
5077: ,p_validation_level=> fnd_api.g_valid_level_full
5078: ,x_return_status=> l_return_status
5079: ,x_msg_data=> x_msg_data
5080: ,x_msg_count=> x_msg_count
5081: ,p_user_id=> ozf_utility_pvt.get_resource_id (fnd_global.user_id)
5082: ,p_act_budget_id=> p_act_budget_rec.activity_budget_id
5083: ,p_orig_status_id=> l_orig_status
5084: ,p_new_status_id=> l_new_status
5085: ,p_rejected_status_id=> l_reject_status
5109: RAISE fnd_api.g_exc_unexpected_error;
5110: END IF;
5111:
5112: IF l_approved_in_currency <> p_act_budget_rec.request_currency THEN
5113: ozf_utility_pvt.convert_currency (
5114: x_return_status=> l_return_status
5115: ,p_from_currency=> p_act_budget_rec.request_currency
5116: ,p_to_currency=> l_approved_in_currency
5117: ,p_from_amount=> p_act_budget_rec.request_amount
5257: FETCH c_campaign INTO l_currency_code;
5258:
5259: IF c_campaign%NOTFOUND THEN
5260: CLOSE c_campaign;
5261: ozf_utility_pvt.error_message ('OZF_ACT_BUDG_NO_CURRENCY');
5262: x_return_status := fnd_api.g_ret_sts_error;
5263: RAISE fnd_api.g_exc_error;
5264: END IF;
5265:
5270: FETCH c_campaign_schl INTO l_currency_code;
5271:
5272: IF c_campaign_schl%NOTFOUND THEN
5273: CLOSE c_campaign_schl;
5274: ozf_utility_pvt.error_message ('OZF_ACT_BUDG_NO_CURRENCY');
5275: x_return_status := fnd_api.g_ret_sts_error;
5276: RAISE fnd_api.g_exc_error;
5277: END IF;
5278:
5283: FETCH c_eheader INTO l_currency_code;
5284:
5285: IF c_eheader%NOTFOUND THEN
5286: CLOSE c_eheader;
5287: ozf_utility_pvt.error_message ('OZF_ACT_BUDG_NO_CURRENCY');
5288: x_return_status := fnd_api.g_ret_sts_error;
5289: RAISE fnd_api.g_exc_error;
5290: END IF;
5291:
5296: FETCH c_eoffer INTO l_currency_code;
5297:
5298: IF c_eoffer%NOTFOUND THEN
5299: CLOSE c_eoffer;
5300: ozf_utility_pvt.error_message ('OZF_ACT_BUDG_NO_CURRENCY');
5301: x_return_status := fnd_api.g_ret_sts_error;
5302: RAISE fnd_api.g_exc_error;
5303: END IF;
5304:
5309: FETCH c_deliverable INTO l_currency_code;
5310:
5311: IF c_deliverable%NOTFOUND THEN
5312: CLOSE c_deliverable;
5313: ozf_utility_pvt.error_message ('OZF_ACT_BUDG_NO_CURRENCY');
5314: x_return_status := fnd_api.g_ret_sts_error;
5315: RAISE fnd_api.g_exc_error;
5316: END IF;
5317:
5321: FETCH c_fund INTO l_currency_code;
5322:
5323: IF c_fund%NOTFOUND THEN
5324: CLOSE c_fund;
5325: ozf_utility_pvt.error_message ('OZF_ACT_BUDG_NO_CURRENCY');
5326: x_return_status := fnd_api.g_ret_sts_error;
5327: RAISE fnd_api.g_exc_error;
5328: END IF;
5329:
5334: FETCH c_offer INTO l_currency_code;
5335:
5336: IF c_offer%NOTFOUND THEN
5337: CLOSE c_offer;
5338: ozf_utility_pvt.error_message ('OZF_ACT_BUDG_NO_CURRENCY');
5339: x_return_status := fnd_api.g_ret_sts_error;
5340: RAISE fnd_api.g_exc_error;
5341: END IF;
5342:
5346: FETCH c_pricelist INTO l_currency_code;
5347:
5348: IF c_pricelist%NOTFOUND THEN
5349: CLOSE c_pricelist;
5350: ozf_utility_pvt.error_message ('OZF_ACT_BUDG_NO_CURRENCY');
5351: x_return_status := fnd_api.g_ret_sts_error;
5352: RAISE fnd_api.g_exc_error;
5353: END IF;
5354:
5358: FETCH c_worksheet INTO l_currency_code;
5359:
5360: IF c_worksheet%NOTFOUND THEN
5361: CLOSE c_worksheet;
5362: ozf_utility_pvt.error_message ('OZF_ACT_BUDG_NO_CURRENCY');
5363: x_return_status := fnd_api.g_ret_sts_error;
5364: RAISE fnd_api.g_exc_error;
5365: END IF;
5366:
5370: FETCH c_soft_fund INTO l_currency_code;
5371:
5372: IF c_soft_fund%NOTFOUND THEN
5373: CLOSE c_soft_fund;
5374: ozf_utility_pvt.error_message ('OZF_ACT_BUDG_NO_CURRENCY');
5375: x_return_status := fnd_api.g_ret_sts_error;
5376: RAISE fnd_api.g_exc_error;
5377: END IF;
5378:
5382: FETCH c_special_price INTO l_currency_code;
5383:
5384: IF c_special_price%NOTFOUND THEN
5385: CLOSE c_special_price;
5386: ozf_utility_pvt.error_message ('OZF_ACT_BUDG_NO_CURRENCY');
5387: x_return_status := fnd_api.g_ret_sts_error;
5388: RAISE fnd_api.g_exc_error;
5389: END IF;
5390:
5390:
5391: CLOSE c_special_price;
5392: ELSE
5393:
5394: ozf_utility_pvt.error_message ('OZF_ACT_BUDG_NO_CURRENCY');
5395: x_return_status := fnd_api.g_ret_sts_error;
5396: RAISE fnd_api.g_exc_error;
5397: END IF;
5398:
5466: ,p_mode IN VARCHAR2 :='UPDATE'-- added by mpande 12/27/2001
5467: ) IS
5468: l_resale_batch_id NUMBER;
5469: l_use_fund_staging_tables VARCHAR2(1) := 'F';
5470: lx_ozf_funds_old_rectype OZF_UTILITY_PVT.ozf_funds_all_b_rectype;
5471: lx_ozf_funds_new_tbl OZF_UTILITY_PVT.ozf_funds_table;
5472: l_batch_type VARCHAR2(30);
5473: BEGIN
5474: process_approval (
5467: ) IS
5468: l_resale_batch_id NUMBER;
5469: l_use_fund_staging_tables VARCHAR2(1) := 'F';
5470: lx_ozf_funds_old_rectype OZF_UTILITY_PVT.ozf_funds_all_b_rectype;
5471: lx_ozf_funds_new_tbl OZF_UTILITY_PVT.ozf_funds_table;
5472: l_batch_type VARCHAR2(30);
5473: BEGIN
5474: process_approval (
5475: p_act_budget_rec => p_act_budget_rec
5516: ,p_mode IN VARCHAR2 :='UPDATE'-- added by mpande 12/27/2001
5517: ,p_resale_batch_id IN NUMBER
5518: ,p_batch_type IN VARCHAR2
5519: ,p_use_fund_staging_tables IN VARCHAR2
5520: ,px_ozf_funds_old_rectype IN OZF_UTILITY_PVT.ozf_funds_all_b_rectype
5521: ,px_ozf_funds_new_tbl IN OUT NOCOPY OZF_UTILITY_PVT.ozf_funds_table -- For TPA Parallel Execution ER Bug#9614703
5522: ) IS
5523: l_api_name CONSTANT VARCHAR2 (30) := 'Process_Approval';
5524: l_return_status VARCHAR2 (1);
5517: ,p_resale_batch_id IN NUMBER
5518: ,p_batch_type IN VARCHAR2
5519: ,p_use_fund_staging_tables IN VARCHAR2
5520: ,px_ozf_funds_old_rectype IN OZF_UTILITY_PVT.ozf_funds_all_b_rectype
5521: ,px_ozf_funds_new_tbl IN OUT NOCOPY OZF_UTILITY_PVT.ozf_funds_table -- For TPA Parallel Execution ER Bug#9614703
5522: ) IS
5523: l_api_name CONSTANT VARCHAR2 (30) := 'Process_Approval';
5524: l_return_status VARCHAR2 (1);
5525: l_temp_rec act_budgets_rec_type;
5563: AND fund_id = p_fund_id;
5564:
5565: BEGIN
5566: IF G_DEBUG THEN
5567: ozf_utility_pvt.debug_message ( g_package_name
5568: || '.'
5569: || l_api_name
5570: || ': start');
5571: END IF;
5573: -- The from currency should be passed in before currency
5574: -- conversion can be performed.
5575: IF p_act_budget_rec.approved_in_currency IS NULL
5576: OR p_act_budget_rec.approved_in_currency = fnd_api.g_miss_char THEN
5577: ozf_utility_pvt.error_message ('OZF_ACT_BUDGET_NO_APPR_CURR');
5578: RAISE fnd_api.g_exc_error;
5579: END IF;
5580:
5581: --Added for bug 7425189
5591: p_source_type => p_act_budget_rec.budget_source_type,
5592: p_source_id => p_act_budget_rec.budget_source_id,
5593: p_approved_amount => p_act_budget_rec.approved_original_amount
5594: ) = FND_API.g_false THEN
5595: ozf_Utility_PVT.error_message ('OZF_ACT_BUDG_NO_MONEY');
5596: RAISE FND_API.g_exc_error;
5597: END IF;
5598: END IF;
5599:
5618: -- Fill in the rest of the columns, to be able to reference
5619: -- request_currency.
5620: -- 12/27/2001
5621: IF G_DEBUG THEN
5622: ozf_utility_pvt.debug_message (p_act_budget_rec.request_currency);
5623: ozf_utility_pvt.debug_message (p_act_budget_rec.request_amount);
5624: ozf_utility_pvt.debug_message (p_act_budget_rec.transfer_type);
5625: END IF;
5626: IF p_mode = 'UPDATE' THEN
5619: -- request_currency.
5620: -- 12/27/2001
5621: IF G_DEBUG THEN
5622: ozf_utility_pvt.debug_message (p_act_budget_rec.request_currency);
5623: ozf_utility_pvt.debug_message (p_act_budget_rec.request_amount);
5624: ozf_utility_pvt.debug_message (p_act_budget_rec.transfer_type);
5625: END IF;
5626: IF p_mode = 'UPDATE' THEN
5627: complete_act_budgets_rec (l_temp_in_rec, l_temp_rec);
5620: -- 12/27/2001
5621: IF G_DEBUG THEN
5622: ozf_utility_pvt.debug_message (p_act_budget_rec.request_currency);
5623: ozf_utility_pvt.debug_message (p_act_budget_rec.request_amount);
5624: ozf_utility_pvt.debug_message (p_act_budget_rec.transfer_type);
5625: END IF;
5626: IF p_mode = 'UPDATE' THEN
5627: complete_act_budgets_rec (l_temp_in_rec, l_temp_rec);
5628: ELSE
5656: --are same(offer curr). check OZF_Adjustment_EXT_PVT.adjustment_net_accrual.
5657: --use conversion type profile.
5658:
5659: IF G_DEBUG THEN
5660: ozf_utility_pvt.debug_message ( l_api_name
5661: || ' p_act_budget_rec.exchange_rate_date1: ' || p_act_budget_rec.exchange_rate_date);
5662: END IF;
5663:
5664: ozf_utility_pvt.convert_currency (
5660: ozf_utility_pvt.debug_message ( l_api_name
5661: || ' p_act_budget_rec.exchange_rate_date1: ' || p_act_budget_rec.exchange_rate_date);
5662: END IF;
5663:
5664: ozf_utility_pvt.convert_currency (
5665: x_return_status => l_return_status
5666: ,p_from_currency => l_temp_rec.request_currency
5667: ,p_to_currency => l_temp_rec.approved_in_currency
5668: ,p_conv_date => p_act_budget_rec.exchange_rate_date --bug 7425189, 8532055
5673: /*
5674: --Added for bug 7425189
5675: IF p_act_budget_rec.justification IN (l_fund_reconc_msg,l_act_bud_cst_msg)
5676: AND p_act_budget_rec.exchange_rate_date IS NOT NULL THEN
5677: ozf_utility_pvt.convert_currency (
5678: x_return_status=> l_return_status
5679: ,p_from_currency=> l_temp_rec.request_currency
5680: ,p_to_currency=> l_temp_rec.approved_in_currency
5681: ,p_conv_date=> p_act_budget_rec.exchange_rate_date
5683: ,x_to_amount=> l_temp_rec.approved_original_amount
5684: );
5685: ELSE
5686:
5687: ozf_utility_pvt.convert_currency (
5688: x_return_status=> l_return_status
5689: ,p_from_currency=> l_temp_rec.request_currency
5690: ,p_to_currency=> l_temp_rec.approved_in_currency
5691: ,p_from_amount=> l_temp_rec.request_amount
5712: l_temp_rec.approved_amount := l_temp_rec.request_amount;
5713: ELSE
5714:
5715: IF G_DEBUG THEN
5716: ozf_utility_pvt.debug_message ( l_api_name
5717: || ' p_act_budget_rec.exchange_rate_date2: ' || p_act_budget_rec.exchange_rate_date);
5718: END IF;
5719:
5720: ozf_utility_pvt.convert_currency (
5716: ozf_utility_pvt.debug_message ( l_api_name
5717: || ' p_act_budget_rec.exchange_rate_date2: ' || p_act_budget_rec.exchange_rate_date);
5718: END IF;
5719:
5720: ozf_utility_pvt.convert_currency (
5721: x_return_status => l_return_status
5722: ,p_from_currency => l_temp_rec.approved_in_currency
5723: ,p_to_currency => l_temp_rec.request_currency
5724: ,p_conv_date => p_act_budget_rec.exchange_rate_date --bug 7425189, 8532055
5729: /*
5730: --Added for bug 7425189
5731: IF p_act_budget_rec.justification IN (l_fund_reconc_msg,l_act_bud_cst_msg)
5732: AND p_act_budget_rec.exchange_rate_date IS NOT NULL THEN
5733: ozf_utility_pvt.convert_currency (
5734: x_return_status=> l_return_status
5735: ,p_from_currency=> l_temp_rec.approved_in_currency
5736: ,p_to_currency=> l_temp_rec.request_currency
5737: ,p_conv_date=> p_act_budget_rec.exchange_rate_date
5738: ,p_from_amount=> l_temp_rec.approved_original_amount
5739: ,x_to_amount=> l_temp_rec.approved_amount
5740: );
5741: ELSE
5742: ozf_utility_pvt.convert_currency (
5743: x_return_status=> l_return_status
5744: ,p_from_currency=> l_temp_rec.approved_in_currency
5745: ,p_to_currency=> l_temp_rec.request_currency
5746: ,p_from_amount=> l_temp_rec.approved_original_amount
5851: -- same currency.
5852: --7030415,
5853:
5854: IF G_DEBUG THEN
5855: ozf_utility_pvt.debug_message ( l_api_name
5856: || ' p_act_budget_rec.exchange_rate_date3: ' || p_act_budget_rec.exchange_rate_date);
5857: END IF;
5858:
5859: ozf_utility_pvt.convert_currency (
5855: ozf_utility_pvt.debug_message ( l_api_name
5856: || ' p_act_budget_rec.exchange_rate_date3: ' || p_act_budget_rec.exchange_rate_date);
5857: END IF;
5858:
5859: ozf_utility_pvt.convert_currency (
5860: x_return_status => l_return_status
5861: ,p_from_currency => l_temp_rec.request_currency
5862: ,p_to_currency => l_fund_currency_tc
5863: ,p_conv_date => p_act_budget_rec.exchange_rate_date --bug 7425189, 8532055
5870:
5871: IF p_act_budget_rec.justification IN (l_fund_reconc_msg,l_act_bud_cst_msg)
5872: AND p_act_budget_rec.exchange_rate_date IS NOT NULL THEN
5873:
5874: ozf_utility_pvt.convert_currency (
5875: x_return_status=> l_return_status
5876: ,p_from_currency=> l_temp_rec.request_currency
5877: ,p_to_currency=> l_fund_currency_tc
5878: ,p_conv_date=> p_act_budget_rec.exchange_rate_date
5879: ,p_from_amount=> l_temp_rec.request_amount
5880: ,x_to_amount=> l_fund_rec.planned_amt
5881: );
5882: ELSE
5883: ozf_utility_pvt.convert_currency (
5884: x_return_status=> l_return_status
5885: ,p_from_currency=> l_temp_rec.request_currency
5886: ,p_to_currency=> l_fund_currency_tc
5887: ,p_from_amount=> l_temp_rec.request_amount
5912: --Since this conversion is for updating planned/committed amounts.
5913: --In case of utilization the transfer_type is 'UTILIZED'.
5914: --So this part will not be executed.
5915:
5916: ozf_utility_pvt.convert_currency (
5917: x_return_status=> l_return_status
5918: ,p_from_currency=> l_temp_rec.approved_in_currency
5919: ,p_to_currency=> l_fund_currency_tc
5920: ,p_from_amount=> l_temp_rec.approved_original_amount
5945: l_univ_committed_amount := l_fund_rec.committed_amt;
5946: ELSE
5947:
5948: IF G_DEBUG THEN
5949: ozf_utility_pvt.debug_message ( l_api_name
5950: || ' p_act_budget_rec.exchange_rate_date4: ' || p_act_budget_rec.exchange_rate_date);
5951: END IF;
5952:
5953: ozf_utility_pvt.convert_currency (
5949: ozf_utility_pvt.debug_message ( l_api_name
5950: || ' p_act_budget_rec.exchange_rate_date4: ' || p_act_budget_rec.exchange_rate_date);
5951: END IF;
5952:
5953: ozf_utility_pvt.convert_currency (
5954: x_return_status => l_return_status
5955: ,p_from_currency => l_temp_rec.request_currency
5956: ,p_to_currency => g_universal_currency
5957: ,p_conv_date => p_act_budget_rec.exchange_rate_date --bug 7425189, 8532055
5962: /*
5963: --Added for bug 7425189
5964: IF p_act_budget_rec.justification IN (l_fund_reconc_msg,l_act_bud_cst_msg)
5965: AND p_act_budget_rec.exchange_rate_date IS NOT NULL THEN
5966: ozf_utility_pvt.convert_currency (
5967: x_return_status=> l_return_status
5968: ,p_from_currency=> l_temp_rec.request_currency
5969: ,p_to_currency=> g_universal_currency
5970: ,p_conv_date=> p_act_budget_rec.exchange_rate_date
5971: ,p_from_amount=> l_temp_rec.request_amount
5972: ,x_to_amount=> l_univ_planned_amount
5973: );
5974: ELSE
5975: ozf_utility_pvt.convert_currency (
5976: x_return_status=> l_return_status
5977: ,p_from_currency=> l_temp_rec.request_currency
5978: ,p_to_currency=> g_universal_currency
5979: ,p_from_amount=> l_temp_rec.request_amount
5991: l_univ_committed_amount := l_univ_planned_amount;
5992: ELSE
5993:
5994: IF G_DEBUG THEN
5995: ozf_utility_pvt.debug_message ( l_api_name
5996: || ' p_act_budget_rec.exchange_rate_date5: ' || p_act_budget_rec.exchange_rate_date);
5997: END IF;
5998:
5999: ozf_utility_pvt.convert_currency (
5995: ozf_utility_pvt.debug_message ( l_api_name
5996: || ' p_act_budget_rec.exchange_rate_date5: ' || p_act_budget_rec.exchange_rate_date);
5997: END IF;
5998:
5999: ozf_utility_pvt.convert_currency (
6000: x_return_status => l_return_status
6001: ,p_from_currency => l_temp_rec.request_currency
6002: ,p_to_currency => g_universal_currency
6003: ,p_conv_date => p_act_budget_rec.exchange_rate_date --bug 7425189, 8532055
6008: /*
6009: --Added for bug 7425189
6010: IF p_act_budget_rec.justification IN (l_fund_reconc_msg,l_act_bud_cst_msg)
6011: AND p_act_budget_rec.exchange_rate_date IS NOT NULL THEN
6012: ozf_utility_pvt.convert_currency (
6013: x_return_status=> l_return_status
6014: ,p_from_currency=> l_temp_rec.request_currency
6015: ,p_to_currency=> g_universal_currency
6016: ,p_conv_date=> p_act_budget_rec.exchange_rate_date
6018: ,x_to_amount=> l_univ_committed_amount
6019: );
6020:
6021: ELSE
6022: ozf_utility_pvt.convert_currency (
6023: x_return_status=> l_return_status
6024: ,p_from_currency=> l_temp_rec.request_currency
6025: ,p_to_currency=> g_universal_currency
6026: ,p_from_amount=> l_temp_rec.approved_amount
6037: END IF;
6038: END IF;
6039:
6040: IF G_DEBUG THEN
6041: ozf_utility_pvt.debug_message (
6042: ' process_approval(): fund_currency=' || l_fund_currency_tc
6043: || ' request_curr=' || l_temp_rec.request_currency
6044: || ' approved_in_curr=' || l_temp_rec.approved_in_currency
6045: || ' univ_curr=' || g_universal_currency
6043: || ' request_curr=' || l_temp_rec.request_currency
6044: || ' approved_in_curr=' || l_temp_rec.approved_in_currency
6045: || ' univ_curr=' || g_universal_currency
6046: );
6047: ozf_utility_pvt.debug_message (
6048: ' in fund currency: planned_amt=' || l_fund_rec.planned_amt
6049: || ' committed_amt=' || l_fund_rec.committed_amt
6050: || ' l_univ_planned_amount=' || l_univ_planned_amount
6051: || ' l_univ_committed_amount=' || l_univ_committed_amount
6111: NVL (l_fund_committed_amount, 0)
6112: - NVL (l_fund_rec.committed_amt, 0);
6113: -- R12: yzhao ozf_object_fund_summary decrease committed amount
6114: IF G_DEBUG THEN
6115: ozf_utility_pvt.debug_message('******************************************************************');
6116: ozf_utility_pvt.debug_message('committed_amt '||l_objfundsum_rec.committed_amt);
6117: ozf_utility_pvt.debug_message('approved_amount '||l_temp_rec.approved_amount);
6118: ozf_utility_pvt.debug_message('plan_curr_committed_amt '||l_objfundsum_rec.plan_curr_committed_amt);
6119: ozf_utility_pvt.debug_message('approved_original_amount '||l_temp_rec.approved_original_amount);
6112: - NVL (l_fund_rec.committed_amt, 0);
6113: -- R12: yzhao ozf_object_fund_summary decrease committed amount
6114: IF G_DEBUG THEN
6115: ozf_utility_pvt.debug_message('******************************************************************');
6116: ozf_utility_pvt.debug_message('committed_amt '||l_objfundsum_rec.committed_amt);
6117: ozf_utility_pvt.debug_message('approved_amount '||l_temp_rec.approved_amount);
6118: ozf_utility_pvt.debug_message('plan_curr_committed_amt '||l_objfundsum_rec.plan_curr_committed_amt);
6119: ozf_utility_pvt.debug_message('approved_original_amount '||l_temp_rec.approved_original_amount);
6120: ozf_utility_pvt.debug_message('univ_curr_committed_amt '||l_objfundsum_rec.univ_curr_committed_amt);
6113: -- R12: yzhao ozf_object_fund_summary decrease committed amount
6114: IF G_DEBUG THEN
6115: ozf_utility_pvt.debug_message('******************************************************************');
6116: ozf_utility_pvt.debug_message('committed_amt '||l_objfundsum_rec.committed_amt);
6117: ozf_utility_pvt.debug_message('approved_amount '||l_temp_rec.approved_amount);
6118: ozf_utility_pvt.debug_message('plan_curr_committed_amt '||l_objfundsum_rec.plan_curr_committed_amt);
6119: ozf_utility_pvt.debug_message('approved_original_amount '||l_temp_rec.approved_original_amount);
6120: ozf_utility_pvt.debug_message('univ_curr_committed_amt '||l_objfundsum_rec.univ_curr_committed_amt);
6121: ozf_utility_pvt.debug_message('l_univ_committed_amount '||l_univ_committed_amount);
6114: IF G_DEBUG THEN
6115: ozf_utility_pvt.debug_message('******************************************************************');
6116: ozf_utility_pvt.debug_message('committed_amt '||l_objfundsum_rec.committed_amt);
6117: ozf_utility_pvt.debug_message('approved_amount '||l_temp_rec.approved_amount);
6118: ozf_utility_pvt.debug_message('plan_curr_committed_amt '||l_objfundsum_rec.plan_curr_committed_amt);
6119: ozf_utility_pvt.debug_message('approved_original_amount '||l_temp_rec.approved_original_amount);
6120: ozf_utility_pvt.debug_message('univ_curr_committed_amt '||l_objfundsum_rec.univ_curr_committed_amt);
6121: ozf_utility_pvt.debug_message('l_univ_committed_amount '||l_univ_committed_amount);
6122: END IF;
6115: ozf_utility_pvt.debug_message('******************************************************************');
6116: ozf_utility_pvt.debug_message('committed_amt '||l_objfundsum_rec.committed_amt);
6117: ozf_utility_pvt.debug_message('approved_amount '||l_temp_rec.approved_amount);
6118: ozf_utility_pvt.debug_message('plan_curr_committed_amt '||l_objfundsum_rec.plan_curr_committed_amt);
6119: ozf_utility_pvt.debug_message('approved_original_amount '||l_temp_rec.approved_original_amount);
6120: ozf_utility_pvt.debug_message('univ_curr_committed_amt '||l_objfundsum_rec.univ_curr_committed_amt);
6121: ozf_utility_pvt.debug_message('l_univ_committed_amount '||l_univ_committed_amount);
6122: END IF;
6123: l_objfundsum_rec.committed_amt := NVL(l_objfundsum_rec.committed_amt, 0)
6116: ozf_utility_pvt.debug_message('committed_amt '||l_objfundsum_rec.committed_amt);
6117: ozf_utility_pvt.debug_message('approved_amount '||l_temp_rec.approved_amount);
6118: ozf_utility_pvt.debug_message('plan_curr_committed_amt '||l_objfundsum_rec.plan_curr_committed_amt);
6119: ozf_utility_pvt.debug_message('approved_original_amount '||l_temp_rec.approved_original_amount);
6120: ozf_utility_pvt.debug_message('univ_curr_committed_amt '||l_objfundsum_rec.univ_curr_committed_amt);
6121: ozf_utility_pvt.debug_message('l_univ_committed_amount '||l_univ_committed_amount);
6122: END IF;
6123: l_objfundsum_rec.committed_amt := NVL(l_objfundsum_rec.committed_amt, 0)
6124: - NVL (l_temp_rec.approved_amount, 0);
6117: ozf_utility_pvt.debug_message('approved_amount '||l_temp_rec.approved_amount);
6118: ozf_utility_pvt.debug_message('plan_curr_committed_amt '||l_objfundsum_rec.plan_curr_committed_amt);
6119: ozf_utility_pvt.debug_message('approved_original_amount '||l_temp_rec.approved_original_amount);
6120: ozf_utility_pvt.debug_message('univ_curr_committed_amt '||l_objfundsum_rec.univ_curr_committed_amt);
6121: ozf_utility_pvt.debug_message('l_univ_committed_amount '||l_univ_committed_amount);
6122: END IF;
6123: l_objfundsum_rec.committed_amt := NVL(l_objfundsum_rec.committed_amt, 0)
6124: - NVL (l_temp_rec.approved_amount, 0);
6125: l_objfundsum_rec.plan_curr_committed_amt := NVL(l_objfundsum_rec.plan_curr_committed_amt, 0)
6144: -- R12: yzhao END ozf_object_fund_summary decrease committed amount
6145: END IF;
6146:
6147: IF G_DEBUG THEN
6148: ozf_utility_pvt.debug_message ('bef update fund ');
6149: END IF;
6150:
6151: --Added for bug 7425189, use these 3 columns in fund API to disttinguish the
6152: --call from reconcile API.
6224: );
6225: ELSE
6226:
6227: IF G_DEBUG THEN
6228: ozf_utility_pvt.debug_message('committed_amt '||l_objfundsum_rec.committed_amt);
6229: ozf_utility_pvt.debug_message('plan_curr_committed_amt '||l_objfundsum_rec.plan_curr_committed_amt);
6230: ozf_utility_pvt.debug_message('univ_curr_committed_amt '||l_objfundsum_rec.univ_curr_committed_amt);
6231: ozf_utility_pvt.debug_message('******************************************************************');
6232: END IF;
6225: ELSE
6226:
6227: IF G_DEBUG THEN
6228: ozf_utility_pvt.debug_message('committed_amt '||l_objfundsum_rec.committed_amt);
6229: ozf_utility_pvt.debug_message('plan_curr_committed_amt '||l_objfundsum_rec.plan_curr_committed_amt);
6230: ozf_utility_pvt.debug_message('univ_curr_committed_amt '||l_objfundsum_rec.univ_curr_committed_amt);
6231: ozf_utility_pvt.debug_message('******************************************************************');
6232: END IF;
6233:
6226:
6227: IF G_DEBUG THEN
6228: ozf_utility_pvt.debug_message('committed_amt '||l_objfundsum_rec.committed_amt);
6229: ozf_utility_pvt.debug_message('plan_curr_committed_amt '||l_objfundsum_rec.plan_curr_committed_amt);
6230: ozf_utility_pvt.debug_message('univ_curr_committed_amt '||l_objfundsum_rec.univ_curr_committed_amt);
6231: ozf_utility_pvt.debug_message('******************************************************************');
6232: END IF;
6233:
6234: /* Obj_fundsum changes */
6227: IF G_DEBUG THEN
6228: ozf_utility_pvt.debug_message('committed_amt '||l_objfundsum_rec.committed_amt);
6229: ozf_utility_pvt.debug_message('plan_curr_committed_amt '||l_objfundsum_rec.plan_curr_committed_amt);
6230: ozf_utility_pvt.debug_message('univ_curr_committed_amt '||l_objfundsum_rec.univ_curr_committed_amt);
6231: ozf_utility_pvt.debug_message('******************************************************************');
6232: END IF;
6233:
6234: /* Obj_fundsum changes */
6235: IF p_use_fund_staging_tables <> 'T' THEN
6251: --Added for bug 7425189, call this private API, only meant for budget reconcile.
6252: IF p_act_budget_rec.justification IN (l_fund_reconc_msg,l_act_bud_cst_msg)
6253: AND p_act_budget_rec.exchange_rate_date IS NOT NULL THEN
6254: IF G_DEBUG THEN
6255: ozf_utility_pvt.debug_message('committed_amt '||l_objfundsum_rec.committed_amt);
6256: ozf_utility_pvt.debug_message('plan_curr_committed_amt '||l_objfundsum_rec.plan_curr_committed_amt);
6257: ozf_utility_pvt.debug_message('univ_curr_committed_amt '||l_objfundsum_rec.univ_curr_committed_amt);
6258: ozf_utility_pvt.debug_message('******************************************************************');
6259: END IF;
6252: IF p_act_budget_rec.justification IN (l_fund_reconc_msg,l_act_bud_cst_msg)
6253: AND p_act_budget_rec.exchange_rate_date IS NOT NULL THEN
6254: IF G_DEBUG THEN
6255: ozf_utility_pvt.debug_message('committed_amt '||l_objfundsum_rec.committed_amt);
6256: ozf_utility_pvt.debug_message('plan_curr_committed_amt '||l_objfundsum_rec.plan_curr_committed_amt);
6257: ozf_utility_pvt.debug_message('univ_curr_committed_amt '||l_objfundsum_rec.univ_curr_committed_amt);
6258: ozf_utility_pvt.debug_message('******************************************************************');
6259: END IF;
6260: update_reconcile_objfundsum(
6253: AND p_act_budget_rec.exchange_rate_date IS NOT NULL THEN
6254: IF G_DEBUG THEN
6255: ozf_utility_pvt.debug_message('committed_amt '||l_objfundsum_rec.committed_amt);
6256: ozf_utility_pvt.debug_message('plan_curr_committed_amt '||l_objfundsum_rec.plan_curr_committed_amt);
6257: ozf_utility_pvt.debug_message('univ_curr_committed_amt '||l_objfundsum_rec.univ_curr_committed_amt);
6258: ozf_utility_pvt.debug_message('******************************************************************');
6259: END IF;
6260: update_reconcile_objfundsum(
6261: p_api_version => 1.0,
6254: IF G_DEBUG THEN
6255: ozf_utility_pvt.debug_message('committed_amt '||l_objfundsum_rec.committed_amt);
6256: ozf_utility_pvt.debug_message('plan_curr_committed_amt '||l_objfundsum_rec.plan_curr_committed_amt);
6257: ozf_utility_pvt.debug_message('univ_curr_committed_amt '||l_objfundsum_rec.univ_curr_committed_amt);
6258: ozf_utility_pvt.debug_message('******************************************************************');
6259: END IF;
6260: update_reconcile_objfundsum(
6261: p_api_version => 1.0,
6262: p_init_msg_list => Fnd_Api.G_FALSE,
6295: END IF; -- for fund transfer flag check
6296:
6297: x_act_budget_rec := l_temp_rec;
6298: IF G_DEBUG THEN
6299: ozf_utility_pvt.debug_message ( g_package_name
6300: || '.'
6301: || l_api_name
6302: || ': end');
6303: END IF;
6375: -- is stored in the table as a value based
6376: -- on the transactional currency, so the
6377: -- request amount must also be based on the
6378: -- same currency.
6379: ozf_utility_pvt.convert_currency (
6380: x_return_status=> l_return_status
6381: ,p_from_currency=> l_temp_rec.request_currency
6382: ,p_to_currency=> l_fund_currency_tc
6383: ,p_from_amount=> l_temp_rec.request_amount
6413: l_univ_planned_amount := l_temp_rec.request_amount;
6414: ELSIF g_universal_currency = l_fund_currency_tc THEN
6415: l_univ_planned_amount := l_fund_rec.planned_amt;
6416: ELSE
6417: ozf_utility_pvt.convert_currency (
6418: x_return_status=> l_return_status
6419: ,p_from_currency=> l_temp_rec.request_currency
6420: ,p_to_currency=> g_universal_currency
6421: ,p_from_amount=> l_temp_rec.request_amount
6552:
6553: SAVEPOINT create_child_act_budget;
6554:
6555: IF G_DEBUG THEN
6556: ozf_utility_pvt.debug_message ( l_full_name || ': start');
6557: END IF;
6558:
6559: x_return_status := fnd_api.g_ret_sts_success;
6560:
6584: l_act_budgets_rec.parent_source_id := l_obj_id;
6585: l_act_budgets_rec.parent_act_budget_id := p_act_budgets_rec.activity_budget_id;
6586:
6587: IF G_DEBUG THEN
6588: ozf_utility_pvt.debug_message ( ': l_total_amount: ' || l_total_amount );
6589: END IF;
6590:
6591: OPEN c_total_acct_amt(l_obj_id,l_obj_type); --fix for bug 8938326
6592: FETCH c_total_acct_amt INTO l_acctd_amount;
6595: FOR l_budget_util_rec IN c_parent_source(l_obj_id, l_obj_type) LOOP --fix for bug 8938326
6596:
6597: EXIT WHEN c_parent_source%NOTFOUND;
6598:
6599: l_amount := ozf_utility_pvt.currround(l_budget_util_rec.total_acctd_amount / l_acctd_amount * l_total_amount, l_obj_currency);
6600:
6601: l_amount_remaining :=l_amount_remaining - l_amount;
6602:
6603: IF l_budget_util_rec.fund_currency <> l_obj_currency THEN
6603: IF l_budget_util_rec.fund_currency <> l_obj_currency THEN
6604:
6605:
6606: --Added for bug 7030415, This code gets executed when offer sources from Campaign.
6607: ozf_utility_pvt.convert_currency (
6608: x_return_status=> x_return_status
6609: ,p_from_currency=> l_obj_currency
6610: ,p_to_currency=> l_budget_util_rec.fund_currency
6611: ,p_conv_type=> p_exchange_rate_type
6617: l_converted_amt := l_amount;
6618: END IF;
6619:
6620: IF G_DEBUG THEN
6621: ozf_utility_pvt.debug_message ( l_full_name || ': l_amount: ' || l_amount);
6622: ozf_utility_pvt.debug_message ( l_full_name || ': l_converted_amt' || l_converted_amt);
6623: END IF;
6624:
6625: IF l_act_budgets_rec.transfer_type = 'REQUEST' THEN
6618: END IF;
6619:
6620: IF G_DEBUG THEN
6621: ozf_utility_pvt.debug_message ( l_full_name || ': l_amount: ' || l_amount);
6622: ozf_utility_pvt.debug_message ( l_full_name || ': l_converted_amt' || l_converted_amt);
6623: END IF;
6624:
6625: IF l_act_budgets_rec.transfer_type = 'REQUEST' THEN
6626: l_act_budgets_rec.budget_source_type := 'FUND';
6644:
6645: l_act_budgets_rec.status_code := 'APPROVED';
6646: l_act_budgets_rec.request_date := SYSDATE;
6647: l_act_budgets_rec.user_status_id :=
6648: ozf_utility_pvt.get_default_user_status (
6649: 'OZF_BUDGETSOURCE_STATUS'
6650: ,l_act_budgets_rec.status_code
6651: );
6652: l_act_budgets_rec.approval_date := SYSDATE;
6649: 'OZF_BUDGETSOURCE_STATUS'
6650: ,l_act_budgets_rec.status_code
6651: );
6652: l_act_budgets_rec.approval_date := SYSDATE;
6653: l_act_budgets_rec.approver_id := ozf_utility_pvt.get_resource_id (fnd_global.user_id);
6654: l_act_budgets_rec.requester_id := ozf_utility_pvt.get_resource_id (fnd_global.user_id);
6655:
6656: ozf_actbudgets_pvt.create_act_budgets (
6657: p_api_version=> l_api_version
6650: ,l_act_budgets_rec.status_code
6651: );
6652: l_act_budgets_rec.approval_date := SYSDATE;
6653: l_act_budgets_rec.approver_id := ozf_utility_pvt.get_resource_id (fnd_global.user_id);
6654: l_act_budgets_rec.requester_id := ozf_utility_pvt.get_resource_id (fnd_global.user_id);
6655:
6656: ozf_actbudgets_pvt.create_act_budgets (
6657: p_api_version=> l_api_version
6658: ,x_return_status=> l_return_status
6692: );
6693:
6694:
6695: IF G_DEBUG THEN
6696: ozf_utility_pvt.debug_message ( l_full_name
6697: || ': end');
6698: END IF;
6699:
6700: EXCEPTION
6774: -- fill in amount 2 from amount 1
6775: IF p_currency_1 = p_currency_2 THEN
6776: x_amount_2 := p_amount_1;
6777: ELSE
6778: ozf_utility_pvt.convert_currency (
6779: x_return_status=> l_return_status
6780: ,p_from_currency=> p_currency_1
6781: ,p_to_currency=> p_currency_2
6782: ,p_conv_date=> p_conv_date
6795: -- fill in amount in universal currency from amount 1
6796: IF g_universal_currency = p_currency_1 THEN
6797: x_amount_3 := p_amount_1;
6798: ELSE
6799: ozf_utility_pvt.convert_currency (
6800: x_return_status=> l_return_status
6801: ,p_from_currency=> p_currency_1
6802: ,p_to_currency=> g_universal_currency
6803: ,p_conv_date=> p_conv_date
6816: -- fill in amount 1 from amount 2
6817: IF p_currency_1 = p_currency_2 THEN
6818: x_amount_1 := p_amount_2;
6819: ELSE
6820: ozf_utility_pvt.convert_currency (
6821: x_return_status=> l_return_status
6822: ,p_from_currency=> p_currency_2
6823: ,p_to_currency=> p_currency_1
6824: ,p_conv_date=> p_conv_date
6836: -- fill in amount in universal currency from amount 2
6837: IF g_universal_currency = p_currency_2 THEN
6838: x_amount_3 := p_amount_2;
6839: ELSE
6840: ozf_utility_pvt.convert_currency (
6841: x_return_status=> l_return_status
6842: ,p_from_currency=> p_currency_2
6843: ,p_to_currency=> g_universal_currency
6844: ,p_conv_date=> p_conv_date
6893:
6894: BEGIN
6895:
6896: IF (G_DEBUG) THEN
6897: ozf_utility_pvt.debug_message('Now updating objfundsum_id: '||p_objfundsum_rec.objfundsum_id);
6898: END IF;
6899:
6900: SAVEPOINT sp_update_reconcile_objfundsum;
6901:
6899:
6900: SAVEPOINT sp_update_reconcile_objfundsum;
6901:
6902: IF (G_DEBUG) THEN
6903: ozf_utility_pvt.debug_message(l_full_name||': start');
6904: END IF;
6905:
6906: IF Fnd_Api.To_Boolean (p_init_msg_list) THEN
6907: Fnd_Msg_Pub.Initialize;
6917:
6918: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
6919:
6920: IF (G_DEBUG) THEN
6921: ozf_utility_pvt.debug_message(l_full_name ||': validate');
6922: END IF;
6923:
6924: -- replace g_miss_char/num/date with current column values
6925: OZF_OBJFUNDSUM_PVT.Complete_objfundsum_Rec(p_objfundsum_rec, l_objfundsum_rec);
7096: END IF;
7097:
7098:
7099: IF (G_DEBUG) THEN
7100: ozf_utility_pvt.debug_message(l_full_name ||': update object fund summary Table');
7101: END IF;
7102:
7103: UPDATE ozf_object_fund_summary
7104: SET object_version_number= object_version_number + 1,
7164: p_encoded => Fnd_Api.G_FALSE
7165: );
7166:
7167: IF (G_DEBUG) THEN
7168: ozf_utility_pvt.debug_message(l_full_name ||': end');
7169: END IF;
7170:
7171:
7172: EXCEPTION