[Home] [Help]
73: -- 10-May-2010 BKUNJAN Bug 9666046 - TST1213:UNABLE TO POST THE ENTRIES TOGL DUE TO ERROR IN CREATE ACCOUNTING CC JOB
74: -- 15-Sep-2010 BKUNJAN Reverting the changes made via bug 9666046
75: -- 05-01-2011 muthsubr For TPA Parallel Execution ER Bug#9614703
76: -- 19-01-2011 nirprasa Bug#9614703 - All funds and act_budget records will be inserted to staging tables.
77: -- These four tables ozf_funds_all_b, ozf_act_budgets, ozf_funds_all_tl and ozf_mc_transactions_all will be updated
78: -- via concurrent prgm 'OZF: Update Budgets from Interface Tables'.
79: -- 7/4/2012 nepanda Bug 13744476 - datafix: 700+ offers stuck in budget pending validation
80: -- 13-12-2012 BKUNJAN Bug 15952083 - ORACLE TRADE MANAGEMENT CREATE ACCOUNTING HAS ERROR - ERROR IN REVENUE ACCT CREA
81: ---------------------------------------------------------------------
2425:
2426: --Bugfix: 7555174, 7415805 (Start)
2427: CURSOR C_GET_OFFERS_BUDGET_ID(p_list_header_id IN NUMBER)IS
2428: SELECT budget_source_id, budget_source_type
2429: FROM ozf_act_budgets
2430: WHERE act_budget_used_by_id=p_list_header_id
2431: AND transfer_type = 'REQUEST'; --added for bug 13744476
2432:
2433: CURSOR c_camp_budget_id(p_campaign_id IN NUMBER) IS
2431: AND transfer_type = 'REQUEST'; --added for bug 13744476
2432:
2433: CURSOR c_camp_budget_id(p_campaign_id IN NUMBER) IS
2434: SELECT budget_source_id
2435: FROM ozf_act_budgets
2436: WHERE act_budget_used_by_id = p_campaign_id;
2437:
2438: l_budget_source_id NUMBER;
2439: l_budget_source_type VARCHAR2(30);
3334: /*
3335: SELECT SUM(AMOUNT)
3336: FROM(
3337: SELECT uti.plan_curr_amount amount
3338: FROM ozf_funds_utilized_all_b uti, ozf_act_budgets act
3339: WHERE uti.utilization_type ='REQUEST'
3340: AND component_type = 'OFFR'
3341: AND component_id = list_header_id
3342: AND act.activity_budget_id = uti.ams_activity_budget_id
3342: AND act.activity_budget_id = uti.ams_activity_budget_id
3343: AND act.recal_flag is NULL
3344: UNION ALL
3345: SELECT 0-uti.plan_curr_amount amount
3346: FROM ozf_funds_utilized_all_b uti, ozf_act_budgets act
3347: WHERE uti.utilization_type ='TRANSFER'
3348: AND plan_type = 'OFFR'
3349: AND plan_id = list_header_id
3350: AND act.activity_budget_id = uti.ams_activity_budget_id
3684:
3685: END get_revenue_account;
3686: ---------------------------------------------------------------------
3687: -- PROCEDURE
3688: -- UPDATE_OZF_ACT_BUDGETS
3689: --
3690: -- PURPOSE
3691: -- This procedure for updating main tables with values from interface table
3692: -- ozf_act_budgets_int for chargeback & TPA flow only
3688: -- UPDATE_OZF_ACT_BUDGETS
3689: --
3690: -- PURPOSE
3691: -- This procedure for updating main tables with values from interface table
3692: -- ozf_act_budgets_int for chargeback & TPA flow only
3693: --
3694: -- PARAMETERS
3695: --
3696: -- NOTES
3696: -- NOTES
3697: -- MUTHSUBR FOR BUG#8867381
3698: -- MUTHSUBR For TPA Parallel Execution ER Bug#9614703
3699: ---------------------------------------------------------------------
3700: PROCEDURE UPDATE_OZF_ACT_BUDGETS (
3701: p_batch_id IN NUMBER,
3702: x_return_status OUT NOCOPY VARCHAR2,
3703: x_budget_update_status OUT NOCOPY VARCHAR2,
3704: px_ozf_act_budgets_tbl IN OUT NOCOPY OZF_UTILITY_PVT.ozf_act_budgets_table,
3700: PROCEDURE UPDATE_OZF_ACT_BUDGETS (
3701: p_batch_id IN NUMBER,
3702: x_return_status OUT NOCOPY VARCHAR2,
3703: x_budget_update_status OUT NOCOPY VARCHAR2,
3704: px_ozf_act_budgets_tbl IN OUT NOCOPY OZF_UTILITY_PVT.ozf_act_budgets_table,
3705: p_batch_type IN VARCHAR2)
3706: IS
3707: l_api_name CONSTANT VARCHAR2(30) := 'UPDATE_OZF_ACT_BUDGETS';
3708: l_api_version_number CONSTANT NUMBER := 1.0;
3703: x_budget_update_status OUT NOCOPY VARCHAR2,
3704: px_ozf_act_budgets_tbl IN OUT NOCOPY OZF_UTILITY_PVT.ozf_act_budgets_table,
3705: p_batch_type IN VARCHAR2)
3706: IS
3707: l_api_name CONSTANT VARCHAR2(30) := 'UPDATE_OZF_ACT_BUDGETS';
3708: l_api_version_number CONSTANT NUMBER := 1.0;
3709: --l_object_version_number NUMBER;
3710: l_act_budget_id NUMBER;
3711: error_no_rollback EXCEPTION;
3719:
3720: /*CURSOR budget_objversion_csr(p_act_budget_id IN NUMBER) IS
3721: SELECT
3722: OBJECT_VERSION_NUMBER
3723: FROM OZF_ACT_BUDGETS
3724: WHERE ACTIVITY_BUDGET_ID = p_act_budget_id;*/
3725:
3726: BEGIN
3727:
3724: WHERE ACTIVITY_BUDGET_ID = p_act_budget_id;*/
3725:
3726: BEGIN
3727:
3728: SAVEPOINT UPDATE_OZF_ACT_BUDGETS;
3729:
3730: IF G_DEBUG THEN
3731: OZF_UTILITY_PVT.debug_message(l_api_name||': Start');
3732: OZF_UTILITY_PVT.debug_message('px_ozf_act_budgets_tbl.COUNT: ' || px_ozf_act_budgets_tbl.COUNT);
3728: SAVEPOINT UPDATE_OZF_ACT_BUDGETS;
3729:
3730: IF G_DEBUG THEN
3731: OZF_UTILITY_PVT.debug_message(l_api_name||': Start');
3732: OZF_UTILITY_PVT.debug_message('px_ozf_act_budgets_tbl.COUNT: ' || px_ozf_act_budgets_tbl.COUNT);
3733: END IF;
3734:
3735: IF px_ozf_act_budgets_tbl.COUNT > 0 THEN
3736:
3731: OZF_UTILITY_PVT.debug_message(l_api_name||': Start');
3732: OZF_UTILITY_PVT.debug_message('px_ozf_act_budgets_tbl.COUNT: ' || px_ozf_act_budgets_tbl.COUNT);
3733: END IF;
3734:
3735: IF px_ozf_act_budgets_tbl.COUNT > 0 THEN
3736:
3737: insrt_count := 0;
3738:
3739: FOR i IN 1 .. px_ozf_act_budgets_tbl.COUNT
3735: IF px_ozf_act_budgets_tbl.COUNT > 0 THEN
3736:
3737: insrt_count := 0;
3738:
3739: FOR i IN 1 .. px_ozf_act_budgets_tbl.COUNT
3740: LOOP
3741:
3742: l_act_budget_id := px_ozf_act_budgets_tbl(i).ACTIVITY_BUDGET_ID;
3743:
3738:
3739: FOR i IN 1 .. px_ozf_act_budgets_tbl.COUNT
3740: LOOP
3741:
3742: l_act_budget_id := px_ozf_act_budgets_tbl(i).ACTIVITY_BUDGET_ID;
3743:
3744: IF G_DEBUG THEN
3745: OZF_UTILITY_PVT.debug_message('l_act_budget_id: ' || l_act_budget_id);
3746: OZF_UTILITY_PVT.debug_message('approved_amount: ' || px_ozf_act_budgets_tbl(i).APPROVED_AMOUNT);
3742: l_act_budget_id := px_ozf_act_budgets_tbl(i).ACTIVITY_BUDGET_ID;
3743:
3744: IF G_DEBUG THEN
3745: OZF_UTILITY_PVT.debug_message('l_act_budget_id: ' || l_act_budget_id);
3746: OZF_UTILITY_PVT.debug_message('approved_amount: ' || px_ozf_act_budgets_tbl(i).APPROVED_AMOUNT);
3747: END IF;
3748:
3749: /*Bug 9614703, insert all records in staging table and remove update of ozf_act_budgets table to avoid locking.
3750: The update is moved to the concurrent program 'OZF: Update Budgets from Interface Tables'.*/
3745: OZF_UTILITY_PVT.debug_message('l_act_budget_id: ' || l_act_budget_id);
3746: OZF_UTILITY_PVT.debug_message('approved_amount: ' || px_ozf_act_budgets_tbl(i).APPROVED_AMOUNT);
3747: END IF;
3748:
3749: /*Bug 9614703, insert all records in staging table and remove update of ozf_act_budgets table to avoid locking.
3750: The update is moved to the concurrent program 'OZF: Update Budgets from Interface Tables'.*/
3751:
3752: /*OPEN budget_objversion_csr(l_act_budget_id);
3753: FETCH budget_objversion_csr INTO l_object_version_number;
3752: /*OPEN budget_objversion_csr(l_act_budget_id);
3753: FETCH budget_objversion_csr INTO l_object_version_number;
3754: CLOSE budget_objversion_csr;
3755:
3756: -- Updating the main table ozf_act_budgets with all the values of plsql table in chargeback flow
3757: UPDATE ozf_act_budgets
3758: SET request_amount = NVL(request_amount, 0) + NVL(px_ozf_act_budgets_tbl(i).REQUEST_AMOUNT,0)
3759: ,src_curr_request_amt = NVL(src_curr_request_amt, 0) + NVL(px_ozf_act_budgets_tbl(i).SRC_CURR_REQUEST_AMT,0)
3760: ,approved_amount = NVL(approved_amount, 0) + NVL(px_ozf_act_budgets_tbl(i).APPROVED_AMOUNT,0)
3753: FETCH budget_objversion_csr INTO l_object_version_number;
3754: CLOSE budget_objversion_csr;
3755:
3756: -- Updating the main table ozf_act_budgets with all the values of plsql table in chargeback flow
3757: UPDATE ozf_act_budgets
3758: SET request_amount = NVL(request_amount, 0) + NVL(px_ozf_act_budgets_tbl(i).REQUEST_AMOUNT,0)
3759: ,src_curr_request_amt = NVL(src_curr_request_amt, 0) + NVL(px_ozf_act_budgets_tbl(i).SRC_CURR_REQUEST_AMT,0)
3760: ,approved_amount = NVL(approved_amount, 0) + NVL(px_ozf_act_budgets_tbl(i).APPROVED_AMOUNT,0)
3761: ,approved_original_amount = NVL(approved_original_amount, 0) + NVL(px_ozf_act_budgets_tbl(i).APPROVED_ORIGINAL_AMOUNT,0)
3754: CLOSE budget_objversion_csr;
3755:
3756: -- Updating the main table ozf_act_budgets with all the values of plsql table in chargeback flow
3757: UPDATE ozf_act_budgets
3758: SET request_amount = NVL(request_amount, 0) + NVL(px_ozf_act_budgets_tbl(i).REQUEST_AMOUNT,0)
3759: ,src_curr_request_amt = NVL(src_curr_request_amt, 0) + NVL(px_ozf_act_budgets_tbl(i).SRC_CURR_REQUEST_AMT,0)
3760: ,approved_amount = NVL(approved_amount, 0) + NVL(px_ozf_act_budgets_tbl(i).APPROVED_AMOUNT,0)
3761: ,approved_original_amount = NVL(approved_original_amount, 0) + NVL(px_ozf_act_budgets_tbl(i).APPROVED_ORIGINAL_AMOUNT,0)
3762: ,approved_amount_fc = NVL(approved_amount_fc, 0) + NVL(px_ozf_act_budgets_tbl(i).APPROVED_AMOUNT_FC,0)
3755:
3756: -- Updating the main table ozf_act_budgets with all the values of plsql table in chargeback flow
3757: UPDATE ozf_act_budgets
3758: SET request_amount = NVL(request_amount, 0) + NVL(px_ozf_act_budgets_tbl(i).REQUEST_AMOUNT,0)
3759: ,src_curr_request_amt = NVL(src_curr_request_amt, 0) + NVL(px_ozf_act_budgets_tbl(i).SRC_CURR_REQUEST_AMT,0)
3760: ,approved_amount = NVL(approved_amount, 0) + NVL(px_ozf_act_budgets_tbl(i).APPROVED_AMOUNT,0)
3761: ,approved_original_amount = NVL(approved_original_amount, 0) + NVL(px_ozf_act_budgets_tbl(i).APPROVED_ORIGINAL_AMOUNT,0)
3762: ,approved_amount_fc = NVL(approved_amount_fc, 0) + NVL(px_ozf_act_budgets_tbl(i).APPROVED_AMOUNT_FC,0)
3763: ,parent_src_apprvd_amt = NVL(parent_src_apprvd_amt, 0) + NVL(px_ozf_act_budgets_tbl(i).PARENT_SRC_APPRVD_AMT ,0)
3756: -- Updating the main table ozf_act_budgets with all the values of plsql table in chargeback flow
3757: UPDATE ozf_act_budgets
3758: SET request_amount = NVL(request_amount, 0) + NVL(px_ozf_act_budgets_tbl(i).REQUEST_AMOUNT,0)
3759: ,src_curr_request_amt = NVL(src_curr_request_amt, 0) + NVL(px_ozf_act_budgets_tbl(i).SRC_CURR_REQUEST_AMT,0)
3760: ,approved_amount = NVL(approved_amount, 0) + NVL(px_ozf_act_budgets_tbl(i).APPROVED_AMOUNT,0)
3761: ,approved_original_amount = NVL(approved_original_amount, 0) + NVL(px_ozf_act_budgets_tbl(i).APPROVED_ORIGINAL_AMOUNT,0)
3762: ,approved_amount_fc = NVL(approved_amount_fc, 0) + NVL(px_ozf_act_budgets_tbl(i).APPROVED_AMOUNT_FC,0)
3763: ,parent_src_apprvd_amt = NVL(parent_src_apprvd_amt, 0) + NVL(px_ozf_act_budgets_tbl(i).PARENT_SRC_APPRVD_AMT ,0)
3764: ,last_update_date = sysdate
3757: UPDATE ozf_act_budgets
3758: SET request_amount = NVL(request_amount, 0) + NVL(px_ozf_act_budgets_tbl(i).REQUEST_AMOUNT,0)
3759: ,src_curr_request_amt = NVL(src_curr_request_amt, 0) + NVL(px_ozf_act_budgets_tbl(i).SRC_CURR_REQUEST_AMT,0)
3760: ,approved_amount = NVL(approved_amount, 0) + NVL(px_ozf_act_budgets_tbl(i).APPROVED_AMOUNT,0)
3761: ,approved_original_amount = NVL(approved_original_amount, 0) + NVL(px_ozf_act_budgets_tbl(i).APPROVED_ORIGINAL_AMOUNT,0)
3762: ,approved_amount_fc = NVL(approved_amount_fc, 0) + NVL(px_ozf_act_budgets_tbl(i).APPROVED_AMOUNT_FC,0)
3763: ,parent_src_apprvd_amt = NVL(parent_src_apprvd_amt, 0) + NVL(px_ozf_act_budgets_tbl(i).PARENT_SRC_APPRVD_AMT ,0)
3764: ,last_update_date = sysdate
3765: ,last_updated_by = NVL (fnd_global.user_id, -1)
3758: SET request_amount = NVL(request_amount, 0) + NVL(px_ozf_act_budgets_tbl(i).REQUEST_AMOUNT,0)
3759: ,src_curr_request_amt = NVL(src_curr_request_amt, 0) + NVL(px_ozf_act_budgets_tbl(i).SRC_CURR_REQUEST_AMT,0)
3760: ,approved_amount = NVL(approved_amount, 0) + NVL(px_ozf_act_budgets_tbl(i).APPROVED_AMOUNT,0)
3761: ,approved_original_amount = NVL(approved_original_amount, 0) + NVL(px_ozf_act_budgets_tbl(i).APPROVED_ORIGINAL_AMOUNT,0)
3762: ,approved_amount_fc = NVL(approved_amount_fc, 0) + NVL(px_ozf_act_budgets_tbl(i).APPROVED_AMOUNT_FC,0)
3763: ,parent_src_apprvd_amt = NVL(parent_src_apprvd_amt, 0) + NVL(px_ozf_act_budgets_tbl(i).PARENT_SRC_APPRVD_AMT ,0)
3764: ,last_update_date = sysdate
3765: ,last_updated_by = NVL (fnd_global.user_id, -1)
3766: ,last_update_login = NVL (fnd_global.conc_login_id, -1)
3759: ,src_curr_request_amt = NVL(src_curr_request_amt, 0) + NVL(px_ozf_act_budgets_tbl(i).SRC_CURR_REQUEST_AMT,0)
3760: ,approved_amount = NVL(approved_amount, 0) + NVL(px_ozf_act_budgets_tbl(i).APPROVED_AMOUNT,0)
3761: ,approved_original_amount = NVL(approved_original_amount, 0) + NVL(px_ozf_act_budgets_tbl(i).APPROVED_ORIGINAL_AMOUNT,0)
3762: ,approved_amount_fc = NVL(approved_amount_fc, 0) + NVL(px_ozf_act_budgets_tbl(i).APPROVED_AMOUNT_FC,0)
3763: ,parent_src_apprvd_amt = NVL(parent_src_apprvd_amt, 0) + NVL(px_ozf_act_budgets_tbl(i).PARENT_SRC_APPRVD_AMT ,0)
3764: ,last_update_date = sysdate
3765: ,last_updated_by = NVL (fnd_global.user_id, -1)
3766: ,last_update_login = NVL (fnd_global.conc_login_id, -1)
3767: ,object_version_number = NVL (object_version_number,0) + 1
3764: ,last_update_date = sysdate
3765: ,last_updated_by = NVL (fnd_global.user_id, -1)
3766: ,last_update_login = NVL (fnd_global.conc_login_id, -1)
3767: ,object_version_number = NVL (object_version_number,0) + 1
3768: WHERE activity_budget_id = px_ozf_act_budgets_tbl(i).ACTIVITY_BUDGET_ID
3769: AND OBJECT_VERSION_NUMBER = l_object_version_number;
3770:
3771: IF (SQL%FOUND) THEN
3772: x_budget_update_status := OZF_RESALE_COMMON_PVT.G_BATCH_CLOSED;
3774: ELSE */
3775:
3776: insrt_count := insrt_count + 1;
3777:
3778: INSERT INTO OZF_ACT_BUDGETS_INT
3779: (
3780: RESALE_BATCH_ID,
3781: ACTIVITY_BUDGET_ID,
3782: LAST_UPDATE_DATE,
3796: -- For JMS ER (-)
3797: )
3798: VALUES(
3799: p_batch_id,
3800: px_ozf_act_budgets_tbl(i).ACTIVITY_BUDGET_ID,
3801: SYSDATE,
3802: NVL(fnd_global.user_id, -1),
3803: SYSDATE,
3804: NVL(fnd_global.user_id, -1),
3802: NVL(fnd_global.user_id, -1),
3803: SYSDATE,
3804: NVL(fnd_global.user_id, -1),
3805: NVL(fnd_global.user_id, -1),
3806: (NVL(px_ozf_act_budgets_tbl(i).REQUEST_AMOUNT,0)),
3807: (NVL(px_ozf_act_budgets_tbl(i).APPROVED_AMOUNT,0)),
3808: (NVL(px_ozf_act_budgets_tbl(i).APPROVED_ORIGINAL_AMOUNT,0)),
3809: (NVL(px_ozf_act_budgets_tbl(i).APPROVED_AMOUNT_FC,0)),
3810: (NVL(px_ozf_act_budgets_tbl(i).PARENT_SRC_APPRVD_AMT ,0)),
3803: SYSDATE,
3804: NVL(fnd_global.user_id, -1),
3805: NVL(fnd_global.user_id, -1),
3806: (NVL(px_ozf_act_budgets_tbl(i).REQUEST_AMOUNT,0)),
3807: (NVL(px_ozf_act_budgets_tbl(i).APPROVED_AMOUNT,0)),
3808: (NVL(px_ozf_act_budgets_tbl(i).APPROVED_ORIGINAL_AMOUNT,0)),
3809: (NVL(px_ozf_act_budgets_tbl(i).APPROVED_AMOUNT_FC,0)),
3810: (NVL(px_ozf_act_budgets_tbl(i).PARENT_SRC_APPRVD_AMT ,0)),
3811: (NVL(px_ozf_act_budgets_tbl(i).SRC_CURR_REQUEST_AMT,0)),
3804: NVL(fnd_global.user_id, -1),
3805: NVL(fnd_global.user_id, -1),
3806: (NVL(px_ozf_act_budgets_tbl(i).REQUEST_AMOUNT,0)),
3807: (NVL(px_ozf_act_budgets_tbl(i).APPROVED_AMOUNT,0)),
3808: (NVL(px_ozf_act_budgets_tbl(i).APPROVED_ORIGINAL_AMOUNT,0)),
3809: (NVL(px_ozf_act_budgets_tbl(i).APPROVED_AMOUNT_FC,0)),
3810: (NVL(px_ozf_act_budgets_tbl(i).PARENT_SRC_APPRVD_AMT ,0)),
3811: (NVL(px_ozf_act_budgets_tbl(i).SRC_CURR_REQUEST_AMT,0)),
3812: -- For JMS ER (+)
3805: NVL(fnd_global.user_id, -1),
3806: (NVL(px_ozf_act_budgets_tbl(i).REQUEST_AMOUNT,0)),
3807: (NVL(px_ozf_act_budgets_tbl(i).APPROVED_AMOUNT,0)),
3808: (NVL(px_ozf_act_budgets_tbl(i).APPROVED_ORIGINAL_AMOUNT,0)),
3809: (NVL(px_ozf_act_budgets_tbl(i).APPROVED_AMOUNT_FC,0)),
3810: (NVL(px_ozf_act_budgets_tbl(i).PARENT_SRC_APPRVD_AMT ,0)),
3811: (NVL(px_ozf_act_budgets_tbl(i).SRC_CURR_REQUEST_AMT,0)),
3812: -- For JMS ER (+)
3813: p_batch_type,
3806: (NVL(px_ozf_act_budgets_tbl(i).REQUEST_AMOUNT,0)),
3807: (NVL(px_ozf_act_budgets_tbl(i).APPROVED_AMOUNT,0)),
3808: (NVL(px_ozf_act_budgets_tbl(i).APPROVED_ORIGINAL_AMOUNT,0)),
3809: (NVL(px_ozf_act_budgets_tbl(i).APPROVED_AMOUNT_FC,0)),
3810: (NVL(px_ozf_act_budgets_tbl(i).PARENT_SRC_APPRVD_AMT ,0)),
3811: (NVL(px_ozf_act_budgets_tbl(i).SRC_CURR_REQUEST_AMT,0)),
3812: -- For JMS ER (+)
3813: p_batch_type,
3814: fnd_global.conc_request_id
3807: (NVL(px_ozf_act_budgets_tbl(i).APPROVED_AMOUNT,0)),
3808: (NVL(px_ozf_act_budgets_tbl(i).APPROVED_ORIGINAL_AMOUNT,0)),
3809: (NVL(px_ozf_act_budgets_tbl(i).APPROVED_AMOUNT_FC,0)),
3810: (NVL(px_ozf_act_budgets_tbl(i).PARENT_SRC_APPRVD_AMT ,0)),
3811: (NVL(px_ozf_act_budgets_tbl(i).SRC_CURR_REQUEST_AMT,0)),
3812: -- For JMS ER (+)
3813: p_batch_type,
3814: fnd_global.conc_request_id
3815: -- For JMS ER (-)
3817: -- END IF;
3818: END LOOP;
3819:
3820: IF G_DEBUG THEN
3821: ozf_utility_pvt.write_conc_log('insrt_count of OZF_ACT_BUDGETS_INT: ' || insrt_count);
3822: END IF;
3823:
3824: -- IF insrt_count > 0 THEN
3825: IF p_batch_type = 'CHARGEBACK' THEN
3830: --ELSE
3831: -- x_budget_update_status := OZF_RESALE_COMMON_PVT.G_BATCH_CLOSED;
3832: -- END IF;
3833:
3834: px_ozf_act_budgets_tbl.delete;
3835:
3836: END IF; --IF px_ozf_act_budgets_tbl.COUNT > 0 THEN
3837:
3838: IF G_DEBUG THEN
3832: -- END IF;
3833:
3834: px_ozf_act_budgets_tbl.delete;
3835:
3836: END IF; --IF px_ozf_act_budgets_tbl.COUNT > 0 THEN
3837:
3838: IF G_DEBUG THEN
3839: OZF_UTILITY_PVT.debug_message(l_api_name||': End');
3840: END IF;
3847: p_count => x_msg_count,
3848: p_data => x_msg_data
3849: );
3850: WHEN FND_API.g_exc_error THEN
3851: ROLLBACK TO UPDATE_OZF_ACT_BUDGETS;
3852: x_return_status := FND_API.G_RET_STS_ERROR;
3853: FND_MSG_PUB.Count_And_Get (
3854: p_encoded => FND_API.G_FALSE,
3855: p_count => x_msg_count,
3855: p_count => x_msg_count,
3856: p_data => x_msg_data
3857: );
3858: WHEN FND_API.g_exc_unexpected_error THEN
3859: ROLLBACK TO UPDATE_OZF_ACT_BUDGETS;
3860: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3861: FND_MSG_PUB.Count_And_Get (
3862: p_encoded => FND_API.G_FALSE,
3863: p_count => x_msg_count,
3863: p_count => x_msg_count,
3864: p_data => x_msg_data
3865: );
3866: WHEN OTHERS THEN
3867: ROLLBACK TO UPDATE_OZF_ACT_BUDGETS;
3868: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3869: IF OZF_UNEXP_ERROR THEN
3870: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
3871: END IF;
3874: p_count => x_msg_count,
3875: p_data => x_msg_data
3876: );
3877:
3878: END UPDATE_OZF_ACT_BUDGETS;
3879:
3880:
3881: ---------------------------------------------------------------------
3882: -- PROCEDURE