[Home] [Help]
195: BEGIN
196: SAVEPOINT create_budget_amt_utilized;
197: x_return_status := fnd_api.g_ret_sts_success;
198: IF G_DEBUG THEN
199: ozf_utility_pvt.debug_message (': begin ');
200: END IF;
201:
202: IF fnd_api.to_boolean (p_init_msg_list) THEN
203: fnd_msg_pub.initialize;
217: FETCH c_parent_source INTO l_parent_source_rec;
218:
219: -- change later if a error has to be raised or not.
220: IF c_parent_source%NOTFOUND THEN
221: ozf_utility_pvt.error_message ('OZF_ACT_BUDG_UTIL_OVER');
222: END IF;
223:
224: EXIT WHEN c_parent_source%NOTFOUND;
225: */
227: IF p_currency = p_cost_tbl (k).cost_curr THEN
228: l_amount := p_cost_tbl (k).cost_amount; -- inrequest currency
229: ELSE
230: -- call the currency conversion wrapper
231: ozf_utility_pvt.convert_currency (
232: x_return_status=> x_return_status
233: ,p_from_currency=> p_cost_tbl (k).cost_curr
234: ,p_to_currency=> p_currency
235: ,p_from_amount=> p_cost_tbl (k).cost_amount
247: IF l_parent_source_rec.parent_currency = p_currency THEN
248: l_converted_amt := l_amount;
249: ELSE
250: -- call the currency conversion wrapper
251: ozf_utility_pvt.convert_currency (
252: x_return_status=> x_return_status
253: ,p_from_currency=> p_currency
254: ,p_to_currency=> l_parent_source_rec.parent_currency
255: ,p_from_amount=> l_amount
268: l_amount_remaining := l_amount
269: - l_util_amount; -- in request currency
270: ELSIF NVL (l_parent_source_rec.total_amount, 0) < NVL (l_converted_amt, 0) THEN
271: -- call the currency conversion wrapper
272: ozf_utility_pvt.convert_currency (
273: x_return_status=> x_return_status
274: ,p_from_currency=> l_parent_source_rec.parent_currency
275: ,p_to_currency=> p_currency
276: ,p_from_amount=> l_parent_source_rec.total_amount
286: IF l_util_amount <> 0 THEN
287: -- don't need to convert if currencies are equal
288: l_act_budgets_rec.request_amount := l_util_amount;
289: IF G_DEBUG THEN
290: ozf_utility_pvt.debug_message ( l_full_name
291: || ': begin create act budgets ');
292: END IF;
293: l_act_budgets_rec.act_budget_used_by_id := p_budget_used_by_id;
294: l_act_budgets_rec.arc_act_budget_used_by := p_budget_used_by_type;
301: l_act_budgets_rec.transfer_type := 'UTILIZED';
302: --l_act_budgets_rec.approved_original_amount := l_parent_source_rec.total_amount;
303: --l_act_budgets_rec.approved_in_currency := l_parent_source_rec.total_amount;
304: l_act_budgets_rec.approval_date := SYSDATE;
305: l_act_budgets_rec.approver_id := ozf_utility_pvt.get_resource_id (fnd_global.user_id);
306: l_act_budgets_rec.justification :=
307: TO_CHAR (p_cost_tbl (k).cost_id)
308: || p_cost_tbl (k).cost_desc;
309: -- l_act_budgets_rec.parent_source_id := l_parent_source_rec.parent_src_id;
376:
377: /*
378: EXIT WHEN l_amount_remaining = 0;
379: IF G_DEBUG THEN
380: ozf_utility_pvt.debug_message ( l_full_name
381: || ': end create act budgets ');
382: END IF;
383: l_activity_id := NULL;
384: l_act_budgets_rec := NULL;
539: IF l_acctd_amount = 0 THEN -- no committed amount but g_recal_flag is 'Y', then only create utilization for first budget.
540: l_amount := l_total_amount;
541: ELSE -- propotional distribute amount based on remaining amount.
542: -- Fix for bug # 12868439, rounding of amount is not needed here.
543: --l_amount := ozf_utility_pvt.currround(l_parent_source_rec.total_acctd_amount / l_acctd_amount * l_total_amount, l_old_currency);
544: l_amount := l_parent_source_rec.total_acctd_amount / l_acctd_amount * l_total_amount;
545: END IF;
546:
547: l_amount_remaining :=l_amount_remaining - l_amount;
549: -- This conversion should essentially be based
550: --on utilization org, since the converted amount is used to populate the
551: --amount column of utilization table.
552: IF G_DEBUG THEN
553: ozf_utility_pvt.debug_message('parent_curr '|| l_parent_source_rec.parent_curr);
554: ozf_utility_pvt.debug_message('l_old_currency '|| l_old_currency);
555: ozf_utility_pvt.debug_message('l_amount '||l_amount);
556: END IF;
557:
550: --on utilization org, since the converted amount is used to populate the
551: --amount column of utilization table.
552: IF G_DEBUG THEN
553: ozf_utility_pvt.debug_message('parent_curr '|| l_parent_source_rec.parent_curr);
554: ozf_utility_pvt.debug_message('l_old_currency '|| l_old_currency);
555: ozf_utility_pvt.debug_message('l_amount '||l_amount);
556: END IF;
557:
558: IF l_parent_source_rec.parent_curr <> l_old_currency THEN
551: --amount column of utilization table.
552: IF G_DEBUG THEN
553: ozf_utility_pvt.debug_message('parent_curr '|| l_parent_source_rec.parent_curr);
554: ozf_utility_pvt.debug_message('l_old_currency '|| l_old_currency);
555: ozf_utility_pvt.debug_message('l_amount '||l_amount);
556: END IF;
557:
558: IF l_parent_source_rec.parent_curr <> l_old_currency THEN
559: ozf_utility_pvt.convert_currency (
555: ozf_utility_pvt.debug_message('l_amount '||l_amount);
556: END IF;
557:
558: IF l_parent_source_rec.parent_curr <> l_old_currency THEN
559: ozf_utility_pvt.convert_currency (
560: x_return_status=> x_return_status
561: ,p_from_currency=> l_old_currency
562: ,p_to_currency=> l_parent_source_rec.parent_curr
563: ,p_conv_type=> p_exchange_rate_type --Added for bug 7030415
649: := ozf_actbudgets_pvt.g_miss_act_util_rec
650: ,x_utilized_amount OUT NOCOPY NUMBER
651: ) IS
652: l_use_fund_staging_tables VARCHAR2(1):= 'F';
653: lx_ozf_act_budgets_tbl OZF_UTILITY_PVT.ozf_act_budgets_table;
654: lx_ozf_funds_old_rectype OZF_UTILITY_PVT.ozf_funds_all_b_rectype;
655: lx_ozf_funds_new_tbl OZF_UTILITY_PVT.ozf_funds_table;
656: l_batch_type VARCHAR2(30);
657: BEGIN
650: ,x_utilized_amount OUT NOCOPY NUMBER
651: ) IS
652: l_use_fund_staging_tables VARCHAR2(1):= 'F';
653: lx_ozf_act_budgets_tbl OZF_UTILITY_PVT.ozf_act_budgets_table;
654: lx_ozf_funds_old_rectype OZF_UTILITY_PVT.ozf_funds_all_b_rectype;
655: lx_ozf_funds_new_tbl OZF_UTILITY_PVT.ozf_funds_table;
656: l_batch_type VARCHAR2(30);
657: BEGIN
658: create_fund_utilization (
651: ) IS
652: l_use_fund_staging_tables VARCHAR2(1):= 'F';
653: lx_ozf_act_budgets_tbl OZF_UTILITY_PVT.ozf_act_budgets_table;
654: lx_ozf_funds_old_rectype OZF_UTILITY_PVT.ozf_funds_all_b_rectype;
655: lx_ozf_funds_new_tbl OZF_UTILITY_PVT.ozf_funds_table;
656: l_batch_type VARCHAR2(30);
657: BEGIN
658: create_fund_utilization (
659: p_act_budget_rec => p_act_budget_rec
680: ,x_utilized_amount OUT NOCOPY NUMBER
681: ,x_utilization_id OUT NOCOPY NUMBER
682: ) IS
683: l_use_fund_staging_tables VARCHAR2(1):= 'F';
684: lx_ozf_act_budgets_tbl OZF_UTILITY_PVT.ozf_act_budgets_table;
685: lx_ozf_funds_old_rectype OZF_UTILITY_PVT.ozf_funds_all_b_rectype;
686: lx_ozf_funds_new_tbl OZF_UTILITY_PVT.ozf_funds_table;
687: l_batch_type VARCHAR2(30);
688: BEGIN
681: ,x_utilization_id OUT NOCOPY NUMBER
682: ) IS
683: l_use_fund_staging_tables VARCHAR2(1):= 'F';
684: lx_ozf_act_budgets_tbl OZF_UTILITY_PVT.ozf_act_budgets_table;
685: lx_ozf_funds_old_rectype OZF_UTILITY_PVT.ozf_funds_all_b_rectype;
686: lx_ozf_funds_new_tbl OZF_UTILITY_PVT.ozf_funds_table;
687: l_batch_type VARCHAR2(30);
688: BEGIN
689: create_fund_utilization (
682: ) IS
683: l_use_fund_staging_tables VARCHAR2(1):= 'F';
684: lx_ozf_act_budgets_tbl OZF_UTILITY_PVT.ozf_act_budgets_table;
685: lx_ozf_funds_old_rectype OZF_UTILITY_PVT.ozf_funds_all_b_rectype;
686: lx_ozf_funds_new_tbl OZF_UTILITY_PVT.ozf_funds_table;
687: l_batch_type VARCHAR2(30);
688: BEGIN
689: create_fund_utilization (
690: p_act_budget_rec => p_act_budget_rec
711: := ozf_actbudgets_pvt.g_miss_act_util_rec
712: ,x_utilized_amount OUT NOCOPY NUMBER
713: ,p_batch_type IN VARCHAR2
714: ,p_use_fund_staging_tables IN VARCHAR2
715: ,px_ozf_act_budgets_tbl IN OUT NOCOPY OZF_UTILITY_PVT.ozf_act_budgets_table
716: ,px_ozf_funds_old_rectype IN OZF_UTILITY_PVT.ozf_funds_all_b_rectype
717: ,px_ozf_funds_new_tbl IN OUT NOCOPY OZF_UTILITY_PVT.ozf_funds_table
718: ) IS
719: l_utilization_id NUMBER;
712: ,x_utilized_amount OUT NOCOPY NUMBER
713: ,p_batch_type IN VARCHAR2
714: ,p_use_fund_staging_tables IN VARCHAR2
715: ,px_ozf_act_budgets_tbl IN OUT NOCOPY OZF_UTILITY_PVT.ozf_act_budgets_table
716: ,px_ozf_funds_old_rectype IN OZF_UTILITY_PVT.ozf_funds_all_b_rectype
717: ,px_ozf_funds_new_tbl IN OUT NOCOPY OZF_UTILITY_PVT.ozf_funds_table
718: ) IS
719: l_utilization_id NUMBER;
720: BEGIN
713: ,p_batch_type IN VARCHAR2
714: ,p_use_fund_staging_tables IN VARCHAR2
715: ,px_ozf_act_budgets_tbl IN OUT NOCOPY OZF_UTILITY_PVT.ozf_act_budgets_table
716: ,px_ozf_funds_old_rectype IN OZF_UTILITY_PVT.ozf_funds_all_b_rectype
717: ,px_ozf_funds_new_tbl IN OUT NOCOPY OZF_UTILITY_PVT.ozf_funds_table
718: ) IS
719: l_utilization_id NUMBER;
720: BEGIN
721:
764: := ozf_actbudgets_pvt.g_miss_act_util_rec
765: ,x_utilized_amount OUT NOCOPY NUMBER
766: ,p_batch_type IN VARCHAR2
767: ,p_use_fund_staging_tables IN VARCHAR2
768: ,px_ozf_act_budgets_tbl IN OUT NOCOPY OZF_UTILITY_PVT.ozf_act_budgets_table
769: ,px_ozf_funds_old_rectype IN OZF_UTILITY_PVT.ozf_funds_all_b_rectype
770: ,px_ozf_funds_new_tbl IN OUT NOCOPY OZF_UTILITY_PVT.ozf_funds_table
771: ,x_utilization_id OUT NOCOPY NUMBER
772: ) IS
765: ,x_utilized_amount OUT NOCOPY NUMBER
766: ,p_batch_type IN VARCHAR2
767: ,p_use_fund_staging_tables IN VARCHAR2
768: ,px_ozf_act_budgets_tbl IN OUT NOCOPY OZF_UTILITY_PVT.ozf_act_budgets_table
769: ,px_ozf_funds_old_rectype IN OZF_UTILITY_PVT.ozf_funds_all_b_rectype
770: ,px_ozf_funds_new_tbl IN OUT NOCOPY OZF_UTILITY_PVT.ozf_funds_table
771: ,x_utilization_id OUT NOCOPY NUMBER
772: ) IS
773: l_api_version CONSTANT NUMBER := 1.0;
766: ,p_batch_type IN VARCHAR2
767: ,p_use_fund_staging_tables IN VARCHAR2
768: ,px_ozf_act_budgets_tbl IN OUT NOCOPY OZF_UTILITY_PVT.ozf_act_budgets_table
769: ,px_ozf_funds_old_rectype IN OZF_UTILITY_PVT.ozf_funds_all_b_rectype
770: ,px_ozf_funds_new_tbl IN OUT NOCOPY OZF_UTILITY_PVT.ozf_funds_table
771: ,x_utilization_id OUT NOCOPY NUMBER
772: ) IS
773: l_api_version CONSTANT NUMBER := 1.0;
774: l_api_name CONSTANT VARCHAR2 (30) := 'create_fund_utilization';
948:
949: IF p_act_budget_rec.request_currency <>l_fund_currency THEN
950:
951: IF G_DEBUG THEN
952: ozf_utility_pvt.debug_message ( l_full_name
953: || ' p_act_budget_rec.exchange_rate_date1: ' || p_act_budget_rec.exchange_rate_date);
954: END IF;
955:
956: --Added for bug 7425189
955:
956: --Added for bug 7425189
957: IF p_act_budget_rec.justification IN (l_fund_reconc_msg,l_act_bud_cst_msg)
958: AND p_act_budget_rec.exchange_rate_date IS NOT NULL THEN
959: ozf_utility_pvt.convert_currency (
960: x_return_status=> l_return_status,
961: p_from_currency=> p_act_budget_rec.request_currency,
962: p_to_currency=> l_fund_currency,
963: p_conv_date=> p_act_budget_rec.exchange_rate_date,
965: x_to_amount=> l_util_amount,
966: x_rate=>l_rate
967: );
968: ELSE
969: ozf_utility_pvt.convert_currency (
970: x_return_status => l_return_status,
971: p_from_currency => p_act_budget_rec.request_currency,
972: p_to_currency => l_fund_currency,
973: p_conv_type => l_exchange_rate_type,
987: l_parent_src_tbl (1).fund_amount := l_util_amount;
988: l_parent_src_tbl (1).plan_amount :=p_act_budget_rec.request_amount;
989:
990: IF G_DEBUG THEN
991: ozf_utility_pvt.debug_message (':for accrual budget ' || l_util_amount );
992: END IF;
993: -- for SALES budget, should same as customer accrual.
994: --08/18/2005 feliu fix for third party accrual.
995: /* ELSE
1009: --nirprasa,12.2 adjustment_net_accrual flow comes to this else condition.
1010: --While updating ozf_act_budgets 'UTILIZED' recs, p_act_util_rec.plan_curr_amount
1011: --holds the amount in plan currency. SO send this amount for conversion to budget's curr.
1012: IF G_DEBUG THEN
1013: ozf_utility_pvt.debug_message('budget_source_type '|| p_act_budget_rec.budget_source_type);
1014: ozf_utility_pvt.debug_message('p_act_budget_rec.approved_amount '|| p_act_budget_rec.approved_amount);
1015: ozf_utility_pvt.debug_message('p_act_budget_rec.request_currency '|| p_act_budget_rec.request_currency);
1016: ozf_utility_pvt.debug_message('p_act_util_rec.plan_curr_amount '|| p_act_util_rec.plan_curr_amount);
1017: ozf_utility_pvt.debug_message('p_act_util_rec.plan_currency_code '|| p_act_util_rec.plan_currency_code);
1010: --While updating ozf_act_budgets 'UTILIZED' recs, p_act_util_rec.plan_curr_amount
1011: --holds the amount in plan currency. SO send this amount for conversion to budget's curr.
1012: IF G_DEBUG THEN
1013: ozf_utility_pvt.debug_message('budget_source_type '|| p_act_budget_rec.budget_source_type);
1014: ozf_utility_pvt.debug_message('p_act_budget_rec.approved_amount '|| p_act_budget_rec.approved_amount);
1015: ozf_utility_pvt.debug_message('p_act_budget_rec.request_currency '|| p_act_budget_rec.request_currency);
1016: ozf_utility_pvt.debug_message('p_act_util_rec.plan_curr_amount '|| p_act_util_rec.plan_curr_amount);
1017: ozf_utility_pvt.debug_message('p_act_util_rec.plan_currency_code '|| p_act_util_rec.plan_currency_code);
1018: END IF;
1011: --holds the amount in plan currency. SO send this amount for conversion to budget's curr.
1012: IF G_DEBUG THEN
1013: ozf_utility_pvt.debug_message('budget_source_type '|| p_act_budget_rec.budget_source_type);
1014: ozf_utility_pvt.debug_message('p_act_budget_rec.approved_amount '|| p_act_budget_rec.approved_amount);
1015: ozf_utility_pvt.debug_message('p_act_budget_rec.request_currency '|| p_act_budget_rec.request_currency);
1016: ozf_utility_pvt.debug_message('p_act_util_rec.plan_curr_amount '|| p_act_util_rec.plan_curr_amount);
1017: ozf_utility_pvt.debug_message('p_act_util_rec.plan_currency_code '|| p_act_util_rec.plan_currency_code);
1018: END IF;
1019: IF p_act_util_rec.plan_curr_amount IS NULL
1012: IF G_DEBUG THEN
1013: ozf_utility_pvt.debug_message('budget_source_type '|| p_act_budget_rec.budget_source_type);
1014: ozf_utility_pvt.debug_message('p_act_budget_rec.approved_amount '|| p_act_budget_rec.approved_amount);
1015: ozf_utility_pvt.debug_message('p_act_budget_rec.request_currency '|| p_act_budget_rec.request_currency);
1016: ozf_utility_pvt.debug_message('p_act_util_rec.plan_curr_amount '|| p_act_util_rec.plan_curr_amount);
1017: ozf_utility_pvt.debug_message('p_act_util_rec.plan_currency_code '|| p_act_util_rec.plan_currency_code);
1018: END IF;
1019: IF p_act_util_rec.plan_curr_amount IS NULL
1020: OR p_act_util_rec.plan_curr_amount = FND_API.G_MISS_NUM THEN
1013: ozf_utility_pvt.debug_message('budget_source_type '|| p_act_budget_rec.budget_source_type);
1014: ozf_utility_pvt.debug_message('p_act_budget_rec.approved_amount '|| p_act_budget_rec.approved_amount);
1015: ozf_utility_pvt.debug_message('p_act_budget_rec.request_currency '|| p_act_budget_rec.request_currency);
1016: ozf_utility_pvt.debug_message('p_act_util_rec.plan_curr_amount '|| p_act_util_rec.plan_curr_amount);
1017: ozf_utility_pvt.debug_message('p_act_util_rec.plan_currency_code '|| p_act_util_rec.plan_currency_code);
1018: END IF;
1019: IF p_act_util_rec.plan_curr_amount IS NULL
1020: OR p_act_util_rec.plan_curr_amount = FND_API.G_MISS_NUM THEN
1021: get_parent_src (
1071: END IF;
1072: END IF;
1073:
1074: IF G_DEBUG THEN
1075: ozf_utility_pvt.debug_message(l_full_name||' : '||'g_recal_flag: '||g_recal_flag);
1076: END IF;
1077:
1078: FOR i IN NVL (l_parent_src_tbl.FIRST, 1) .. NVL (l_parent_src_tbl.LAST, 0)
1079: LOOP
1142:
1143: --nirprasa, assign the amounts so as to skip conversion and rounding later.
1144: --for bugs 7505085, 7425189
1145: IF G_DEBUG THEN
1146: ozf_utility_pvt.debug_message ('ozfvadjb p_act_budget_rec.request_amount '||p_act_budget_rec.request_amount);
1147: END IF;
1148: IF p_act_util_rec.plan_curr_amount IS NULL
1149: OR p_act_util_rec.plan_curr_amount = FND_API.G_MISS_NUM THEN
1150: l_util_rec.plan_curr_amount := p_act_budget_rec.request_amount;
1303: IF l_util_rec.object_type = 'TP_ORDER' THEN
1304: l_util_rec.utilization_type := 'ACCRUAL';
1305: l_util_rec.amount_remaining := l_parent_src_tbl (i).fund_amount;
1306: IF G_DEBUG THEN
1307: ozf_utility_pvt.debug_message (':for charge back: ' || l_parent_src_tbl (i).fund_amount );
1308: END IF;
1309: END IF;
1310:
1311: END IF;
1315: -- 12/02/2003 yzhao: 11.5.10 chargeback
1316: IF l_util_rec.utilization_type IN ('ADJUSTMENT', 'CHARGEBACK') THEN
1317: l_util_rec.amount_remaining := l_util_rec.amount;
1318: IF G_DEBUG THEN
1319: ozf_utility_pvt.debug_message(l_full_name||' : '||'l_util_rec.amount_remaining: '|| l_util_rec.amount_remaining);
1320: END IF;
1321: END IF;
1322:
1323: -- check that cust_account_id is populated correctly
1360: -- rimehrot, bug fix 4030022
1361: OPEN c_check_budget_request(l_util_rec.plan_id, l_util_rec.fund_id);
1362: FETCH c_check_budget_request INTO l_check_request;
1363: IF c_check_budget_request%ROWCOUNT = 0 THEN
1364: ozf_utility_pvt.error_message('OZF_NO_FUND_REQUEST');
1365: RAISE fnd_api.g_exc_unexpected_error;
1366: END IF;
1367: CLOSE c_check_budget_request;
1368: END IF;
1422:
1423: x_utilized_amount := l_total_amount;
1424:
1425: IF G_DEBUG THEN
1426: ozf_utility_pvt.debug_message(l_full_name||' : '||'x_utilized_amount: '|| x_utilized_amount);
1427: END IF;
1428:
1429: fnd_msg_pub.count_and_get (
1430: p_encoded=> fnd_api.g_false
1431: ,p_count=> x_msg_count
1432: ,p_data=> x_msg_data
1433: );
1434: IF G_DEBUG THEN
1435: ozf_utility_pvt.debug_message ( l_full_name
1436: || ': end');
1437: END IF;
1438:
1439: EXCEPTION
1622:
1623: --nirprasa, comment out for bug 8625525
1624: /* IF l_lumpsum_offer.lumpsum_amount > l_approved_amount
1625: OR l_lumpsum_offer.lumpsum_amount < l_approved_amount THEN
1626: ozf_utility_pvt.error_message (p_message_name => 'OZF_OFFER_AMNT_GT_APPR_AMNT');
1627: RAISE fnd_api.g_exc_error;
1628: END IF;*/
1629:
1630: IF l_lumpsum_offer.distribution_type = 'AMT' THEN
1746: x_act_budget_id OUT NOCOPY NUMBER,
1747: x_utilized_amount OUT NOCOPY NUMBER, -- added yzhao Jun 21, 2004
1748: p_batch_type IN VARCHAR2,
1749: p_use_fund_staging_tables IN VARCHAR2,
1750: px_ozf_act_budgets_tbl IN OUT NOCOPY OZF_UTILITY_PVT.ozf_act_budgets_table,
1751: px_ozf_funds_old_rectype IN OZF_UTILITY_PVT.ozf_funds_all_b_rectype,
1752: px_ozf_funds_new_tbl IN OUT NOCOPY OZF_UTILITY_PVT.ozf_funds_table
1753: ) IS
1754: l_utilization_id NUMBER;
1747: x_utilized_amount OUT NOCOPY NUMBER, -- added yzhao Jun 21, 2004
1748: p_batch_type IN VARCHAR2,
1749: p_use_fund_staging_tables IN VARCHAR2,
1750: px_ozf_act_budgets_tbl IN OUT NOCOPY OZF_UTILITY_PVT.ozf_act_budgets_table,
1751: px_ozf_funds_old_rectype IN OZF_UTILITY_PVT.ozf_funds_all_b_rectype,
1752: px_ozf_funds_new_tbl IN OUT NOCOPY OZF_UTILITY_PVT.ozf_funds_table
1753: ) IS
1754: l_utilization_id NUMBER;
1755: BEGIN
1748: p_batch_type IN VARCHAR2,
1749: p_use_fund_staging_tables IN VARCHAR2,
1750: px_ozf_act_budgets_tbl IN OUT NOCOPY OZF_UTILITY_PVT.ozf_act_budgets_table,
1751: px_ozf_funds_old_rectype IN OZF_UTILITY_PVT.ozf_funds_all_b_rectype,
1752: px_ozf_funds_new_tbl IN OUT NOCOPY OZF_UTILITY_PVT.ozf_funds_table
1753: ) IS
1754: l_utilization_id NUMBER;
1755: BEGIN
1756:
1781: x_act_budget_id OUT NOCOPY NUMBER,
1782: x_utilized_amount OUT NOCOPY NUMBER, -- added yzhao Jun 21, 2004
1783: p_batch_type IN VARCHAR2,
1784: p_use_fund_staging_tables IN VARCHAR2,
1785: px_ozf_act_budgets_tbl IN OUT NOCOPY OZF_UTILITY_PVT.ozf_act_budgets_table,
1786: px_ozf_funds_old_rectype IN OZF_UTILITY_PVT.ozf_funds_all_b_rectype,
1787: px_ozf_funds_new_tbl IN OUT NOCOPY OZF_UTILITY_PVT.ozf_funds_table,
1788: x_utilization_id OUT NOCOPY NUMBER
1789: ) IS
1782: x_utilized_amount OUT NOCOPY NUMBER, -- added yzhao Jun 21, 2004
1783: p_batch_type IN VARCHAR2,
1784: p_use_fund_staging_tables IN VARCHAR2,
1785: px_ozf_act_budgets_tbl IN OUT NOCOPY OZF_UTILITY_PVT.ozf_act_budgets_table,
1786: px_ozf_funds_old_rectype IN OZF_UTILITY_PVT.ozf_funds_all_b_rectype,
1787: px_ozf_funds_new_tbl IN OUT NOCOPY OZF_UTILITY_PVT.ozf_funds_table,
1788: x_utilization_id OUT NOCOPY NUMBER
1789: ) IS
1790: CURSOR c_act_util_rec (p_used_by_id IN NUMBER, p_used_by_type IN VARCHAR2) IS
1783: p_batch_type IN VARCHAR2,
1784: p_use_fund_staging_tables IN VARCHAR2,
1785: px_ozf_act_budgets_tbl IN OUT NOCOPY OZF_UTILITY_PVT.ozf_act_budgets_table,
1786: px_ozf_funds_old_rectype IN OZF_UTILITY_PVT.ozf_funds_all_b_rectype,
1787: px_ozf_funds_new_tbl IN OUT NOCOPY OZF_UTILITY_PVT.ozf_funds_table,
1788: x_utilization_id OUT NOCOPY NUMBER
1789: ) IS
1790: CURSOR c_act_util_rec (p_used_by_id IN NUMBER, p_used_by_type IN VARCHAR2) IS
1791: SELECT activity_budget_id, object_version_number, approved_amount
1837:
1838: BEGIN
1839: x_return_status := fnd_api.g_ret_sts_success;
1840: IF G_DEBUG THEN
1841: ozf_utility_pvt.debug_message(l_full_name||' : '||'begin' || ' p_act_budgets_rec.transfer_type: ' || p_act_budgets_rec.transfer_type);
1842: END IF;
1843:
1844: ozf_utility_pvt.debug_message(' p_act_util_rec.plan_currency_code mg: ' || p_act_util_rec.plan_currency_code);
1845: --dbms_output.put_line(l_full_name||' : '||'begin');
1840: IF G_DEBUG THEN
1841: ozf_utility_pvt.debug_message(l_full_name||' : '||'begin' || ' p_act_budgets_rec.transfer_type: ' || p_act_budgets_rec.transfer_type);
1842: END IF;
1843:
1844: ozf_utility_pvt.debug_message(' p_act_util_rec.plan_currency_code mg: ' || p_act_util_rec.plan_currency_code);
1845: --dbms_output.put_line(l_full_name||' : '||'begin');
1846:
1847: -- yzhao: 10/21/2003 for third party accrual price list, create an approved budget request when accrual happens
1848: -- note: Price list does not allow negative accrual for now
1860: l_budget_request_rec.request_currency := p_act_budgets_rec.request_currency; -- price list currency
1861: l_budget_request_rec.request_amount := p_act_budgets_rec.request_amount; -- in price list currency
1862:
1863: l_budget_request_rec.status_code := 'APPROVED';
1864: l_budget_request_rec.user_status_id := ozf_Utility_Pvt.get_default_user_status (
1865: 'OZF_BUDGETSOURCE_STATUS', p_act_budgets_rec.status_code);
1866: l_budget_request_rec.object_version_number := 1;
1867: l_budget_request_rec.approval_date := sysdate;
1868: --l_budget_request_rec.approver_id := ozf_utility_pvt.get_resource_id (fnd_global.user_id);
1864: l_budget_request_rec.user_status_id := ozf_Utility_Pvt.get_default_user_status (
1865: 'OZF_BUDGETSOURCE_STATUS', p_act_budgets_rec.status_code);
1866: l_budget_request_rec.object_version_number := 1;
1867: l_budget_request_rec.approval_date := sysdate;
1868: --l_budget_request_rec.approver_id := ozf_utility_pvt.get_resource_id (fnd_global.user_id);
1869: --l_budget_request_rec.requester_id := ozf_utility_pvt.get_resource_id (fnd_global.user_id);
1870: l_budget_request_rec.approver_id := p_act_budgets_rec.approver_id;
1871: l_budget_request_rec.requester_id := p_act_budgets_rec.requester_id;
1872: IF l_budget_request_rec.approver_id IS NULL THEN
1865: 'OZF_BUDGETSOURCE_STATUS', p_act_budgets_rec.status_code);
1866: l_budget_request_rec.object_version_number := 1;
1867: l_budget_request_rec.approval_date := sysdate;
1868: --l_budget_request_rec.approver_id := ozf_utility_pvt.get_resource_id (fnd_global.user_id);
1869: --l_budget_request_rec.requester_id := ozf_utility_pvt.get_resource_id (fnd_global.user_id);
1870: l_budget_request_rec.approver_id := p_act_budgets_rec.approver_id;
1871: l_budget_request_rec.requester_id := p_act_budgets_rec.requester_id;
1872: IF l_budget_request_rec.approver_id IS NULL THEN
1873: l_budget_request_rec.approver_id := ozf_utility_pvt.get_resource_id (fnd_global.user_id);
1869: --l_budget_request_rec.requester_id := ozf_utility_pvt.get_resource_id (fnd_global.user_id);
1870: l_budget_request_rec.approver_id := p_act_budgets_rec.approver_id;
1871: l_budget_request_rec.requester_id := p_act_budgets_rec.requester_id;
1872: IF l_budget_request_rec.approver_id IS NULL THEN
1873: l_budget_request_rec.approver_id := ozf_utility_pvt.get_resource_id (fnd_global.user_id);
1874: END IF;
1875: IF l_budget_request_rec.requester_id IS NULL THEN
1876: l_budget_request_rec.requester_id := ozf_utility_pvt.get_resource_id (fnd_global.user_id);
1877: END IF;
1872: IF l_budget_request_rec.approver_id IS NULL THEN
1873: l_budget_request_rec.approver_id := ozf_utility_pvt.get_resource_id (fnd_global.user_id);
1874: END IF;
1875: IF l_budget_request_rec.requester_id IS NULL THEN
1876: l_budget_request_rec.requester_id := ozf_utility_pvt.get_resource_id (fnd_global.user_id);
1877: END IF;
1878:
1879: -- For Bug#8867381, introduced p_use_fund_staging_tables for staging table impln of chargeback flow
1880: -- and px_ozf_act_budgets_tbl for PLSQL table impln of storing budgets value.
1922:
1923: --nirprasa, added for bug 9097346. since post multi currency changes need to populate
1924: --these new columns for marketing objects
1925:
1926: ozf_utility_pvt.debug_message(' l_act_util_rec.plan_curr_amount mg: ' || l_act_util_rec.plan_curr_amount);
1927: ozf_utility_pvt.debug_message(' l_act_util_rec.plan_currency_code mg: ' || l_act_util_rec.plan_currency_code);
1928: ozf_utility_pvt.debug_message(' l_act_budgets_rec.arc_act_budget_used_by mg: ' || l_act_budgets_rec.arc_act_budget_used_by);
1929:
1930:
1923: --nirprasa, added for bug 9097346. since post multi currency changes need to populate
1924: --these new columns for marketing objects
1925:
1926: ozf_utility_pvt.debug_message(' l_act_util_rec.plan_curr_amount mg: ' || l_act_util_rec.plan_curr_amount);
1927: ozf_utility_pvt.debug_message(' l_act_util_rec.plan_currency_code mg: ' || l_act_util_rec.plan_currency_code);
1928: ozf_utility_pvt.debug_message(' l_act_budgets_rec.arc_act_budget_used_by mg: ' || l_act_budgets_rec.arc_act_budget_used_by);
1929:
1930:
1931: IF l_act_budgets_rec.arc_act_budget_used_by <> 'OFFR' THEN
1924: --these new columns for marketing objects
1925:
1926: ozf_utility_pvt.debug_message(' l_act_util_rec.plan_curr_amount mg: ' || l_act_util_rec.plan_curr_amount);
1927: ozf_utility_pvt.debug_message(' l_act_util_rec.plan_currency_code mg: ' || l_act_util_rec.plan_currency_code);
1928: ozf_utility_pvt.debug_message(' l_act_budgets_rec.arc_act_budget_used_by mg: ' || l_act_budgets_rec.arc_act_budget_used_by);
1929:
1930:
1931: IF l_act_budgets_rec.arc_act_budget_used_by <> 'OFFR' THEN
1932: l_act_util_rec.plan_curr_amount := l_act_budgets_rec.request_amount;
1976: x_utilization_id => x_utilization_id --nirprasa - added for Bug 9383565
1977: );
1978:
1979: IF G_DEBUG THEN
1980: ozf_utility_pvt.write_conc_log(l_full_name||' : '||'tim 4: '|| x_utilized_amount);
1981: END IF;
1982:
1983: IF G_DEBUG THEN
1984: ozf_utility_pvt.write_conc_log(l_full_name||' : '||'create act budget retrun status'||x_return_status);
1980: ozf_utility_pvt.write_conc_log(l_full_name||' : '||'tim 4: '|| x_utilized_amount);
1981: END IF;
1982:
1983: IF G_DEBUG THEN
1984: ozf_utility_pvt.write_conc_log(l_full_name||' : '||'create act budget retrun status'||x_return_status);
1985: END IF;
1986: --dbms_output.put_line(l_full_name||' : '||'create act budget retrun status'||l_return_status);
1987:
1988: IF x_return_status = fnd_api.g_ret_sts_error THEN
1995: --dbms_output.put_line(l_full_name||' : '||'l_old_approved_amount'||l_old_approved_amount);
1996: --dbms_output.put_line(l_full_name||' : '||'l_new approved_amount'||l_Act_budgets_rec.approved_amount);
1997: --dbms_output.put_line(l_full_name||' : '||'l_new parent approved_amount'||l_act_budgets_rec.parent_src_apprvd_amt);
1998: IF G_DEBUG THEN
1999: ozf_utility_pvt.debug_message('l_act_budgets_rec.request_amount '|| l_act_budgets_rec.request_amount);
2000: ozf_utility_pvt.debug_message('l_act_budgets_rec.request_currency '|| l_act_budgets_rec.request_currency);
2001: ozf_utility_pvt.debug_message('l_old_approved_amount '|| l_old_approved_amount);
2002: ozf_utility_pvt.debug_message('l_act_budgets_rec.parent_src_apprvd_amt '|| l_act_budgets_rec.parent_src_apprvd_amt);
2003: ozf_utility_pvt.debug_message('l_act_budgets_rec.arc_act_budget_used_by '|| l_act_budgets_rec.arc_act_budget_used_by);
1996: --dbms_output.put_line(l_full_name||' : '||'l_new approved_amount'||l_Act_budgets_rec.approved_amount);
1997: --dbms_output.put_line(l_full_name||' : '||'l_new parent approved_amount'||l_act_budgets_rec.parent_src_apprvd_amt);
1998: IF G_DEBUG THEN
1999: ozf_utility_pvt.debug_message('l_act_budgets_rec.request_amount '|| l_act_budgets_rec.request_amount);
2000: ozf_utility_pvt.debug_message('l_act_budgets_rec.request_currency '|| l_act_budgets_rec.request_currency);
2001: ozf_utility_pvt.debug_message('l_old_approved_amount '|| l_old_approved_amount);
2002: ozf_utility_pvt.debug_message('l_act_budgets_rec.parent_src_apprvd_amt '|| l_act_budgets_rec.parent_src_apprvd_amt);
2003: ozf_utility_pvt.debug_message('l_act_budgets_rec.arc_act_budget_used_by '|| l_act_budgets_rec.arc_act_budget_used_by);
2004: END IF;
1997: --dbms_output.put_line(l_full_name||' : '||'l_new parent approved_amount'||l_act_budgets_rec.parent_src_apprvd_amt);
1998: IF G_DEBUG THEN
1999: ozf_utility_pvt.debug_message('l_act_budgets_rec.request_amount '|| l_act_budgets_rec.request_amount);
2000: ozf_utility_pvt.debug_message('l_act_budgets_rec.request_currency '|| l_act_budgets_rec.request_currency);
2001: ozf_utility_pvt.debug_message('l_old_approved_amount '|| l_old_approved_amount);
2002: ozf_utility_pvt.debug_message('l_act_budgets_rec.parent_src_apprvd_amt '|| l_act_budgets_rec.parent_src_apprvd_amt);
2003: ozf_utility_pvt.debug_message('l_act_budgets_rec.arc_act_budget_used_by '|| l_act_budgets_rec.arc_act_budget_used_by);
2004: END IF;
2005: --nirprasa, 12.2 ER8399134 this change is needed to handle adjustments for marketing objects.
1998: IF G_DEBUG THEN
1999: ozf_utility_pvt.debug_message('l_act_budgets_rec.request_amount '|| l_act_budgets_rec.request_amount);
2000: ozf_utility_pvt.debug_message('l_act_budgets_rec.request_currency '|| l_act_budgets_rec.request_currency);
2001: ozf_utility_pvt.debug_message('l_old_approved_amount '|| l_old_approved_amount);
2002: ozf_utility_pvt.debug_message('l_act_budgets_rec.parent_src_apprvd_amt '|| l_act_budgets_rec.parent_src_apprvd_amt);
2003: ozf_utility_pvt.debug_message('l_act_budgets_rec.arc_act_budget_used_by '|| l_act_budgets_rec.arc_act_budget_used_by);
2004: END IF;
2005: --nirprasa, 12.2 ER8399134 this change is needed to handle adjustments for marketing objects.
2006: IF l_act_budgets_rec.arc_act_budget_used_by = 'OFFR' THEN
1999: ozf_utility_pvt.debug_message('l_act_budgets_rec.request_amount '|| l_act_budgets_rec.request_amount);
2000: ozf_utility_pvt.debug_message('l_act_budgets_rec.request_currency '|| l_act_budgets_rec.request_currency);
2001: ozf_utility_pvt.debug_message('l_old_approved_amount '|| l_old_approved_amount);
2002: ozf_utility_pvt.debug_message('l_act_budgets_rec.parent_src_apprvd_amt '|| l_act_budgets_rec.parent_src_apprvd_amt);
2003: ozf_utility_pvt.debug_message('l_act_budgets_rec.arc_act_budget_used_by '|| l_act_budgets_rec.arc_act_budget_used_by);
2004: END IF;
2005: --nirprasa, 12.2 ER8399134 this change is needed to handle adjustments for marketing objects.
2006: IF l_act_budgets_rec.arc_act_budget_used_by = 'OFFR' THEN
2007: OPEN c_offer_type(l_act_budgets_rec.act_budget_used_by_id);
2012: OPEN c_get_conversion_type(l_act_util_rec.org_id);
2013: FETCH c_get_conversion_type INTO l_exchange_rate_type;
2014: CLOSE c_get_conversion_type;
2015: IF G_DEBUG THEN
2016: ozf_utility_pvt.debug_message('l_plan_currency '|| l_plan_currency);
2017: ozf_utility_pvt.debug_message('l_exchange_rate_type '|| l_exchange_rate_type);
2018: END IF;
2019: l_act_util_rec.plan_curr_amount := l_act_budgets_rec.request_amount;
2020: l_act_util_rec.plan_curr_amount_remaining := l_act_budgets_rec.request_amount;
2013: FETCH c_get_conversion_type INTO l_exchange_rate_type;
2014: CLOSE c_get_conversion_type;
2015: IF G_DEBUG THEN
2016: ozf_utility_pvt.debug_message('l_plan_currency '|| l_plan_currency);
2017: ozf_utility_pvt.debug_message('l_exchange_rate_type '|| l_exchange_rate_type);
2018: END IF;
2019: l_act_util_rec.plan_curr_amount := l_act_budgets_rec.request_amount;
2020: l_act_util_rec.plan_curr_amount_remaining := l_act_budgets_rec.request_amount;
2021: l_act_util_rec.plan_currency_code := l_act_budgets_rec.request_currency;
2018: END IF;
2019: l_act_util_rec.plan_curr_amount := l_act_budgets_rec.request_amount;
2020: l_act_util_rec.plan_curr_amount_remaining := l_act_budgets_rec.request_amount;
2021: l_act_util_rec.plan_currency_code := l_act_budgets_rec.request_currency;
2022: ozf_utility_pvt.convert_currency (x_return_status => x_return_status
2023: ,p_from_currency => l_act_budgets_rec.request_currency
2024: ,p_to_currency => l_plan_currency
2025: ,p_conv_type => l_exchange_rate_type -- Added for bug 7030415
2026: ,p_from_amount => l_act_budgets_rec.request_amount
2030: l_act_budgets_rec.request_amount := l_act_budgets_rec.approved_amount;
2031: l_act_budgets_rec.approved_original_amount := l_act_budgets_rec.approved_amount;
2032: l_act_budgets_rec.request_currency := l_plan_currency;
2033: IF G_DEBUG THEN
2034: ozf_utility_pvt.debug_message('l_act_budgets_rec.request_amount '|| l_act_budgets_rec.request_amount);
2035: END IF;
2036: END IF;
2037:
2038: ELSE --for marketing objects
2113: );
2114:
2115:
2116: IF G_DEBUG THEN
2117: ozf_utility_pvt.debug_message(l_full_name||' : '||'update act budget retrun status'||x_return_status);
2118: END IF;
2119: --dbms_output.put_line(l_full_name||' : '||'update act budget retrun status'||l_return_status);
2120:
2121: END IF;
2229: p_act_util_rec IN ozf_actbudgets_pvt.act_util_rec_type,
2230: x_act_budget_id OUT NOCOPY NUMBER,
2231: x_utilized_amount OUT NOCOPY NUMBER
2232: ) IS
2233: lx_ozf_act_budgets_tbl OZF_UTILITY_PVT.ozf_act_budgets_table;
2234: lx_ozf_funds_old_rectype OZF_UTILITY_PVT.ozf_funds_all_b_rectype;
2235: lx_ozf_funds_new_tbl OZF_UTILITY_PVT.ozf_funds_table;
2236: l_batch_type VARCHAR2(30);
2237: BEGIN
2230: x_act_budget_id OUT NOCOPY NUMBER,
2231: x_utilized_amount OUT NOCOPY NUMBER
2232: ) IS
2233: lx_ozf_act_budgets_tbl OZF_UTILITY_PVT.ozf_act_budgets_table;
2234: lx_ozf_funds_old_rectype OZF_UTILITY_PVT.ozf_funds_all_b_rectype;
2235: lx_ozf_funds_new_tbl OZF_UTILITY_PVT.ozf_funds_table;
2236: l_batch_type VARCHAR2(30);
2237: BEGIN
2238: process_act_budgets (
2231: x_utilized_amount OUT NOCOPY NUMBER
2232: ) IS
2233: lx_ozf_act_budgets_tbl OZF_UTILITY_PVT.ozf_act_budgets_table;
2234: lx_ozf_funds_old_rectype OZF_UTILITY_PVT.ozf_funds_all_b_rectype;
2235: lx_ozf_funds_new_tbl OZF_UTILITY_PVT.ozf_funds_table;
2236: l_batch_type VARCHAR2(30);
2237: BEGIN
2238: process_act_budgets (
2239: x_return_status => x_return_status,
2260: x_act_budget_id OUT NOCOPY NUMBER,
2261: x_utilized_amount OUT NOCOPY NUMBER,
2262: x_utilization_id OUT NOCOPY NUMBER
2263: ) IS
2264: lx_ozf_act_budgets_tbl OZF_UTILITY_PVT.ozf_act_budgets_table;
2265: lx_ozf_funds_old_rectype OZF_UTILITY_PVT.ozf_funds_all_b_rectype;
2266: lx_ozf_funds_new_tbl OZF_UTILITY_PVT.ozf_funds_table;
2267: l_batch_type VARCHAR2(30);
2268: BEGIN
2261: x_utilized_amount OUT NOCOPY NUMBER,
2262: x_utilization_id OUT NOCOPY NUMBER
2263: ) IS
2264: lx_ozf_act_budgets_tbl OZF_UTILITY_PVT.ozf_act_budgets_table;
2265: lx_ozf_funds_old_rectype OZF_UTILITY_PVT.ozf_funds_all_b_rectype;
2266: lx_ozf_funds_new_tbl OZF_UTILITY_PVT.ozf_funds_table;
2267: l_batch_type VARCHAR2(30);
2268: BEGIN
2269: process_act_budgets (
2262: x_utilization_id OUT NOCOPY NUMBER
2263: ) IS
2264: lx_ozf_act_budgets_tbl OZF_UTILITY_PVT.ozf_act_budgets_table;
2265: lx_ozf_funds_old_rectype OZF_UTILITY_PVT.ozf_funds_all_b_rectype;
2266: lx_ozf_funds_new_tbl OZF_UTILITY_PVT.ozf_funds_table;
2267: l_batch_type VARCHAR2(30);
2268: BEGIN
2269: process_act_budgets (
2270: x_return_status => x_return_status,
2461:
2462: BEGIN
2463: SAVEPOINT post_scan_data_amount;
2464: IF G_DEBUG THEN
2465: ozf_utility_pvt.debug_message ( l_full_name || ': start');
2466: END IF;
2467: x_return_status := fnd_api.g_ret_sts_success;
2468:
2469: IF fnd_api.to_boolean (p_init_msg_list) THEN
2522: FOR l_prod_budget_rec IN c_prod_budgets (p_offer_id)
2523: LOOP
2524: -- change later if a error has to be raised or not.
2525: /* IF c_prod_budgets%NOTFOUND THEN
2526: ozf_utility_pvt.error_message ('OZF_ACT_BUDG_UTIL_OVER');
2527: END IF;
2528: */
2529: EXIT WHEN c_prod_budgets%NOTFOUND;
2530: --get request amount proportionaly for total committed amount.
2527: END IF;
2528: */
2529: EXIT WHEN c_prod_budgets%NOTFOUND;
2530: --get request amount proportionaly for total committed amount.
2531: l_unit := ozf_utility_pvt.currround(l_prod_budget_rec.approved_amount / l_total_committed_amt * l_forecast_unit
2532: ,l_currency_code) ;
2533:
2534: -- 08/13/2004 kdass fix for 11.5.9 bug 3830164, divided the amount by the quantity
2535: --l_amount := l_unit * l_scan_value; -- in object currency.
2535: --l_amount := l_unit * l_scan_value; -- in object currency.
2536: l_amount := l_unit * l_scan_value / l_quantity; -- in object currency.
2537:
2538: IF G_DEBUG THEN
2539: ozf_utility_pvt.debug_message ( 'scan unit: ' || l_unit);
2540:
2541: ozf_utility_pvt.debug_message ( 'scan amount : ' || l_amount);
2542: END IF;
2543:
2537:
2538: IF G_DEBUG THEN
2539: ozf_utility_pvt.debug_message ( 'scan unit: ' || l_unit);
2540:
2541: ozf_utility_pvt.debug_message ( 'scan amount : ' || l_amount);
2542: END IF;
2543:
2544: IF l_amount <> 0 THEN
2545: -- convert the object currency amount into fund currency
2552: OPEN c_get_conversion_type(l_offer_org_id);
2553: FETCH c_get_conversion_type INTO l_exchange_rate_type;
2554: CLOSE c_get_conversion_type;
2555:
2556: ozf_utility_pvt.convert_currency (
2557: x_return_status=> x_return_status
2558: ,p_from_currency=> l_currency_code
2559: ,p_conv_type=> l_exchange_rate_type
2560: ,p_to_currency=> l_prod_budget_rec.currency_code
2576: l_act_budgets_rec.budget_source_id := p_offer_id;
2577: l_act_budgets_rec.request_currency := l_currency_code;
2578: l_act_budgets_rec.request_date := SYSDATE;
2579: l_act_budgets_rec.status_code := 'APPROVED';
2580: l_act_budgets_rec.user_status_id := ozf_utility_pvt.get_default_user_status (
2581: 'OZF_BUDGETSOURCE_STATUS'
2582: ,l_act_budgets_rec.status_code
2583: );
2584: l_act_budgets_rec.transfer_type := 'UTILIZED';
2585: l_act_budgets_rec.approval_date := SYSDATE;
2586: l_act_budgets_rec.requester_id := l_offer_owner;
2587:
2588: l_act_budgets_rec.approver_id :=
2589: ozf_utility_pvt.get_resource_id (fnd_global.user_id);
2590: -- when workflow goes through without approval, fnd_global.user_id is not passed.
2591: IF l_act_budgets_rec.approver_id = -1 THEN
2592: l_act_budgets_rec.approver_id := l_offer_owner;
2593: END IF;
2643: END IF;
2644: END IF; -- for amount
2645:
2646: IF G_DEBUG THEN
2647: ozf_utility_pvt.debug_message ( l_full_name
2648: || ': end create act budgets ');
2649: END IF;
2650: l_act_budgets_rec := NULL;
2651: l_act_util_rec := NULL;
2668: ,p_count=> x_msg_count
2669: ,p_data=> x_msg_data
2670: );
2671: IF G_DEBUG THEN
2672: ozf_utility_pvt.debug_message ( l_full_name || ': end');
2673: END IF;
2674:
2675: EXCEPTION
2676: WHEN fnd_api.g_exc_error THEN
2928: BEGIN
2929: SAVEPOINT Posting_lumpsum_amount;
2930:
2931: IF G_DEBUG THEN
2932: ozf_utility_pvt.debug_message ( l_full_name || ': start');
2933: END IF;
2934: x_return_status := fnd_api.g_ret_sts_success;
2935:
2936: IF fnd_api.to_boolean (p_init_msg_list) THEN
2987: RAISE fnd_api.g_exc_error;
2988: END IF;
2989:
2990: IF G_DEBUG THEN
2991: ozf_utility_pvt.debug_message ( 'l_perform_util ' || l_perform_util);
2992: ozf_utility_pvt.debug_message ( 'l_acct_closed_flag ' || l_acct_closed_flag);
2993: ozf_utility_pvt.debug_message ( 'l_total_utilized_amt ' || l_total_utilized_amt);
2994: ozf_utility_pvt.debug_message ( 'l_offer_total_amount ' || l_offer_total_amount);
2995: ozf_utility_pvt.debug_message ( 'p_offer_id ' || p_offer_id);
2988: END IF;
2989:
2990: IF G_DEBUG THEN
2991: ozf_utility_pvt.debug_message ( 'l_perform_util ' || l_perform_util);
2992: ozf_utility_pvt.debug_message ( 'l_acct_closed_flag ' || l_acct_closed_flag);
2993: ozf_utility_pvt.debug_message ( 'l_total_utilized_amt ' || l_total_utilized_amt);
2994: ozf_utility_pvt.debug_message ( 'l_offer_total_amount ' || l_offer_total_amount);
2995: ozf_utility_pvt.debug_message ( 'p_offer_id ' || p_offer_id);
2996: ozf_utility_pvt.write_conc_log ( 'l_total_committed_amt ' || l_total_committed_amt);
2989:
2990: IF G_DEBUG THEN
2991: ozf_utility_pvt.debug_message ( 'l_perform_util ' || l_perform_util);
2992: ozf_utility_pvt.debug_message ( 'l_acct_closed_flag ' || l_acct_closed_flag);
2993: ozf_utility_pvt.debug_message ( 'l_total_utilized_amt ' || l_total_utilized_amt);
2994: ozf_utility_pvt.debug_message ( 'l_offer_total_amount ' || l_offer_total_amount);
2995: ozf_utility_pvt.debug_message ( 'p_offer_id ' || p_offer_id);
2996: ozf_utility_pvt.write_conc_log ( 'l_total_committed_amt ' || l_total_committed_amt);
2997: END IF;
2990: IF G_DEBUG THEN
2991: ozf_utility_pvt.debug_message ( 'l_perform_util ' || l_perform_util);
2992: ozf_utility_pvt.debug_message ( 'l_acct_closed_flag ' || l_acct_closed_flag);
2993: ozf_utility_pvt.debug_message ( 'l_total_utilized_amt ' || l_total_utilized_amt);
2994: ozf_utility_pvt.debug_message ( 'l_offer_total_amount ' || l_offer_total_amount);
2995: ozf_utility_pvt.debug_message ( 'p_offer_id ' || p_offer_id);
2996: ozf_utility_pvt.write_conc_log ( 'l_total_committed_amt ' || l_total_committed_amt);
2997: END IF;
2998:
2991: ozf_utility_pvt.debug_message ( 'l_perform_util ' || l_perform_util);
2992: ozf_utility_pvt.debug_message ( 'l_acct_closed_flag ' || l_acct_closed_flag);
2993: ozf_utility_pvt.debug_message ( 'l_total_utilized_amt ' || l_total_utilized_amt);
2994: ozf_utility_pvt.debug_message ( 'l_offer_total_amount ' || l_offer_total_amount);
2995: ozf_utility_pvt.debug_message ( 'p_offer_id ' || p_offer_id);
2996: ozf_utility_pvt.write_conc_log ( 'l_total_committed_amt ' || l_total_committed_amt);
2997: END IF;
2998:
2999: --check if start date reaches, if account closed, and if already posted.
2992: ozf_utility_pvt.debug_message ( 'l_acct_closed_flag ' || l_acct_closed_flag);
2993: ozf_utility_pvt.debug_message ( 'l_total_utilized_amt ' || l_total_utilized_amt);
2994: ozf_utility_pvt.debug_message ( 'l_offer_total_amount ' || l_offer_total_amount);
2995: ozf_utility_pvt.debug_message ( 'p_offer_id ' || p_offer_id);
2996: ozf_utility_pvt.write_conc_log ( 'l_total_committed_amt ' || l_total_committed_amt);
2997: END IF;
2998:
2999: --check if start date reaches, if account closed, and if already posted.
3000: --nirprasa,12.1.1 replace ROUND() by ozf_utility_pvt.currround() to use the currency precision instead
2996: ozf_utility_pvt.write_conc_log ( 'l_total_committed_amt ' || l_total_committed_amt);
2997: END IF;
2998:
2999: --check if start date reaches, if account closed, and if already posted.
3000: --nirprasa,12.1.1 replace ROUND() by ozf_utility_pvt.currround() to use the currency precision instead
3001: --of hardcoded value.
3002: --nirprasa, start fix for bug 8625525
3003:
3004: IF l_perform_util = 'T' AND l_acct_closed_flag = 'N' AND l_total_utilized_amt < l_total_committed_amt THEN
3023: l_date := TRUNC(sysdate);
3024: END IF;
3025:
3026: IF G_DEBUG THEN
3027: ozf_utility_pvt.write_conc_log ( 'l_date ' || l_date);
3028: ozf_utility_pvt.write_conc_log ( 'l_last_offer_accrual_date ' || l_last_offer_accrual_date);
3029: ozf_utility_pvt.write_conc_log ( 'l_total_committed_amt ' || l_total_committed_amt);
3030: ozf_utility_pvt.write_conc_log ( 'l_amount_remaining ' || l_amount_remaining);
3031: ozf_utility_pvt.write_conc_log ( 'l_total_utilized_amt ' || l_total_utilized_amt);
3024: END IF;
3025:
3026: IF G_DEBUG THEN
3027: ozf_utility_pvt.write_conc_log ( 'l_date ' || l_date);
3028: ozf_utility_pvt.write_conc_log ( 'l_last_offer_accrual_date ' || l_last_offer_accrual_date);
3029: ozf_utility_pvt.write_conc_log ( 'l_total_committed_amt ' || l_total_committed_amt);
3030: ozf_utility_pvt.write_conc_log ( 'l_amount_remaining ' || l_amount_remaining);
3031: ozf_utility_pvt.write_conc_log ( 'l_total_utilized_amt ' || l_total_utilized_amt);
3032: END IF;
3025:
3026: IF G_DEBUG THEN
3027: ozf_utility_pvt.write_conc_log ( 'l_date ' || l_date);
3028: ozf_utility_pvt.write_conc_log ( 'l_last_offer_accrual_date ' || l_last_offer_accrual_date);
3029: ozf_utility_pvt.write_conc_log ( 'l_total_committed_amt ' || l_total_committed_amt);
3030: ozf_utility_pvt.write_conc_log ( 'l_amount_remaining ' || l_amount_remaining);
3031: ozf_utility_pvt.write_conc_log ( 'l_total_utilized_amt ' || l_total_utilized_amt);
3032: END IF;
3033:
3026: IF G_DEBUG THEN
3027: ozf_utility_pvt.write_conc_log ( 'l_date ' || l_date);
3028: ozf_utility_pvt.write_conc_log ( 'l_last_offer_accrual_date ' || l_last_offer_accrual_date);
3029: ozf_utility_pvt.write_conc_log ( 'l_total_committed_amt ' || l_total_committed_amt);
3030: ozf_utility_pvt.write_conc_log ( 'l_amount_remaining ' || l_amount_remaining);
3031: ozf_utility_pvt.write_conc_log ( 'l_total_utilized_amt ' || l_total_utilized_amt);
3032: END IF;
3033:
3034: IF l_last_offer_accrual_date IS NULL THEN
3027: ozf_utility_pvt.write_conc_log ( 'l_date ' || l_date);
3028: ozf_utility_pvt.write_conc_log ( 'l_last_offer_accrual_date ' || l_last_offer_accrual_date);
3029: ozf_utility_pvt.write_conc_log ( 'l_total_committed_amt ' || l_total_committed_amt);
3030: ozf_utility_pvt.write_conc_log ( 'l_amount_remaining ' || l_amount_remaining);
3031: ozf_utility_pvt.write_conc_log ( 'l_total_utilized_amt ' || l_total_utilized_amt);
3032: END IF;
3033:
3034: IF l_last_offer_accrual_date IS NULL THEN
3035: l_spread_amount_remaining := ozf_utility_pvt.currround(l_offer_total_amount * (l_date - TRUNC(l_offer_start_date) + 1) /(TRUNC(l_offer_end_date) - TRUNC(l_offer_start_date) + 1),l_prod_budget_rec.currency_code);
3031: ozf_utility_pvt.write_conc_log ( 'l_total_utilized_amt ' || l_total_utilized_amt);
3032: END IF;
3033:
3034: IF l_last_offer_accrual_date IS NULL THEN
3035: l_spread_amount_remaining := ozf_utility_pvt.currround(l_offer_total_amount * (l_date - TRUNC(l_offer_start_date) + 1) /(TRUNC(l_offer_end_date) - TRUNC(l_offer_start_date) + 1),l_prod_budget_rec.currency_code);
3036: ELSE
3037: l_spread_amount_remaining := ozf_utility_pvt.currround(l_offer_total_amount * (l_date - TRUNC(l_last_offer_accrual_date) ) /(TRUNC(l_offer_end_date) - TRUNC(l_last_offer_accrual_date)),l_prod_budget_rec.currency_code);
3038: END IF;
3039: l_spread_amount_remaining := ozf_utility_pvt.currround((l_prod_budget_rec.approved_amount / l_total_committed_amt) * l_spread_amount_remaining,l_prod_budget_rec.currency_code);
3033:
3034: IF l_last_offer_accrual_date IS NULL THEN
3035: l_spread_amount_remaining := ozf_utility_pvt.currround(l_offer_total_amount * (l_date - TRUNC(l_offer_start_date) + 1) /(TRUNC(l_offer_end_date) - TRUNC(l_offer_start_date) + 1),l_prod_budget_rec.currency_code);
3036: ELSE
3037: l_spread_amount_remaining := ozf_utility_pvt.currround(l_offer_total_amount * (l_date - TRUNC(l_last_offer_accrual_date) ) /(TRUNC(l_offer_end_date) - TRUNC(l_last_offer_accrual_date)),l_prod_budget_rec.currency_code);
3038: END IF;
3039: l_spread_amount_remaining := ozf_utility_pvt.currround((l_prod_budget_rec.approved_amount / l_total_committed_amt) * l_spread_amount_remaining,l_prod_budget_rec.currency_code);
3040: END IF;
3041:
3035: l_spread_amount_remaining := ozf_utility_pvt.currround(l_offer_total_amount * (l_date - TRUNC(l_offer_start_date) + 1) /(TRUNC(l_offer_end_date) - TRUNC(l_offer_start_date) + 1),l_prod_budget_rec.currency_code);
3036: ELSE
3037: l_spread_amount_remaining := ozf_utility_pvt.currround(l_offer_total_amount * (l_date - TRUNC(l_last_offer_accrual_date) ) /(TRUNC(l_offer_end_date) - TRUNC(l_last_offer_accrual_date)),l_prod_budget_rec.currency_code);
3038: END IF;
3039: l_spread_amount_remaining := ozf_utility_pvt.currround((l_prod_budget_rec.approved_amount / l_total_committed_amt) * l_spread_amount_remaining,l_prod_budget_rec.currency_code);
3040: END IF;
3041:
3042: FOR i IN NVL(l_itemId_tbl.FIRST, 1) .. NVL(l_itemId_tbl.LAST, 0) LOOP
3043: l_count := l_count + 1;
3042: FOR i IN NVL(l_itemId_tbl.FIRST, 1) .. NVL(l_itemId_tbl.LAST, 0) LOOP
3043: l_count := l_count + 1;
3044:
3045: IF G_DEBUG THEN
3046: ozf_utility_pvt.write_conc_log ( '*****************l_count ' || l_count||'*****************');
3047: ozf_utility_pvt.write_conc_log ( 'l_amount ' || l_amount);
3048: ozf_utility_pvt.write_conc_log ( 'l_spread_flag ' || l_spread_flag);
3049: ozf_utility_pvt.write_conc_log ( 'l_spread_amount_remaining ' || l_spread_amount_remaining);
3050: END IF;
3043: l_count := l_count + 1;
3044:
3045: IF G_DEBUG THEN
3046: ozf_utility_pvt.write_conc_log ( '*****************l_count ' || l_count||'*****************');
3047: ozf_utility_pvt.write_conc_log ( 'l_amount ' || l_amount);
3048: ozf_utility_pvt.write_conc_log ( 'l_spread_flag ' || l_spread_flag);
3049: ozf_utility_pvt.write_conc_log ( 'l_spread_amount_remaining ' || l_spread_amount_remaining);
3050: END IF;
3051:
3044:
3045: IF G_DEBUG THEN
3046: ozf_utility_pvt.write_conc_log ( '*****************l_count ' || l_count||'*****************');
3047: ozf_utility_pvt.write_conc_log ( 'l_amount ' || l_amount);
3048: ozf_utility_pvt.write_conc_log ( 'l_spread_flag ' || l_spread_flag);
3049: ozf_utility_pvt.write_conc_log ( 'l_spread_amount_remaining ' || l_spread_amount_remaining);
3050: END IF;
3051:
3052: IF l_offer_distribution_type = '%' THEN
3045: IF G_DEBUG THEN
3046: ozf_utility_pvt.write_conc_log ( '*****************l_count ' || l_count||'*****************');
3047: ozf_utility_pvt.write_conc_log ( 'l_amount ' || l_amount);
3048: ozf_utility_pvt.write_conc_log ( 'l_spread_flag ' || l_spread_flag);
3049: ozf_utility_pvt.write_conc_log ( 'l_spread_amount_remaining ' || l_spread_amount_remaining);
3050: END IF;
3051:
3052: IF l_offer_distribution_type = '%' THEN
3053: l_amount := ozf_utility_pvt.currround(l_offer_total_amount * l_lumsumAmt_tbl(i) / 100,l_currency_code);
3049: ozf_utility_pvt.write_conc_log ( 'l_spread_amount_remaining ' || l_spread_amount_remaining);
3050: END IF;
3051:
3052: IF l_offer_distribution_type = '%' THEN
3053: l_amount := ozf_utility_pvt.currround(l_offer_total_amount * l_lumsumAmt_tbl(i) / 100,l_currency_code);
3054: ELSIF l_offer_distribution_type = 'QTY' THEN
3055: OPEN c_off_pdts_total_qty (p_offer_id);
3056: FETCH c_off_pdts_total_qty INTO l_total_qty;
3057: CLOSE c_off_pdts_total_qty;
3055: OPEN c_off_pdts_total_qty (p_offer_id);
3056: FETCH c_off_pdts_total_qty INTO l_total_qty;
3057: CLOSE c_off_pdts_total_qty;
3058: --14-OCT-2008 bug 7382309 - changed from 100 to offer committed amountl_total_committed_amt
3059: --l_amount := ROUND(l_lumsumAmt_tblozf_utility_pvt.currround(i) * 100 / l_total_qty,2);
3060: l_amount := ozf_utility_pvt.currround(l_lumsumAmt_tbl(i) * l_offer_total_amount / l_total_qty,l_currency_code);
3061: ELSIF l_offer_distribution_type = 'AMT' THEN
3062: OPEN c_off_pdts_total_qty (p_offer_id);
3063: FETCH c_off_pdts_total_qty INTO l_total_qty;
3056: FETCH c_off_pdts_total_qty INTO l_total_qty;
3057: CLOSE c_off_pdts_total_qty;
3058: --14-OCT-2008 bug 7382309 - changed from 100 to offer committed amountl_total_committed_amt
3059: --l_amount := ROUND(l_lumsumAmt_tblozf_utility_pvt.currround(i) * 100 / l_total_qty,2);
3060: l_amount := ozf_utility_pvt.currround(l_lumsumAmt_tbl(i) * l_offer_total_amount / l_total_qty,l_currency_code);
3061: ELSIF l_offer_distribution_type = 'AMT' THEN
3062: OPEN c_off_pdts_total_qty (p_offer_id);
3063: FETCH c_off_pdts_total_qty INTO l_total_qty;
3064: CLOSE c_off_pdts_total_qty;
3062: OPEN c_off_pdts_total_qty (p_offer_id);
3063: FETCH c_off_pdts_total_qty INTO l_total_qty;
3064: CLOSE c_off_pdts_total_qty;
3065: IF G_DEBUG THEN
3066: ozf_utility_pvt.write_conc_log ( 'l_lumsumAmt_tbl(i) ' || l_lumsumAmt_tbl(i));
3067: ozf_utility_pvt.write_conc_log ( 'l_offer_total_amount ' || l_offer_total_amount);
3068: ozf_utility_pvt.write_conc_log ( 'l_total_qty ' || l_total_qty);
3069: END IF;
3070: l_amount := ozf_utility_pvt.currround(l_lumsumAmt_tbl(i) * l_offer_total_amount / l_total_qty,l_currency_code) ;
3063: FETCH c_off_pdts_total_qty INTO l_total_qty;
3064: CLOSE c_off_pdts_total_qty;
3065: IF G_DEBUG THEN
3066: ozf_utility_pvt.write_conc_log ( 'l_lumsumAmt_tbl(i) ' || l_lumsumAmt_tbl(i));
3067: ozf_utility_pvt.write_conc_log ( 'l_offer_total_amount ' || l_offer_total_amount);
3068: ozf_utility_pvt.write_conc_log ( 'l_total_qty ' || l_total_qty);
3069: END IF;
3070: l_amount := ozf_utility_pvt.currround(l_lumsumAmt_tbl(i) * l_offer_total_amount / l_total_qty,l_currency_code) ;
3071: END IF;
3064: CLOSE c_off_pdts_total_qty;
3065: IF G_DEBUG THEN
3066: ozf_utility_pvt.write_conc_log ( 'l_lumsumAmt_tbl(i) ' || l_lumsumAmt_tbl(i));
3067: ozf_utility_pvt.write_conc_log ( 'l_offer_total_amount ' || l_offer_total_amount);
3068: ozf_utility_pvt.write_conc_log ( 'l_total_qty ' || l_total_qty);
3069: END IF;
3070: l_amount := ozf_utility_pvt.currround(l_lumsumAmt_tbl(i) * l_offer_total_amount / l_total_qty,l_currency_code) ;
3071: END IF;
3072:
3066: ozf_utility_pvt.write_conc_log ( 'l_lumsumAmt_tbl(i) ' || l_lumsumAmt_tbl(i));
3067: ozf_utility_pvt.write_conc_log ( 'l_offer_total_amount ' || l_offer_total_amount);
3068: ozf_utility_pvt.write_conc_log ( 'l_total_qty ' || l_total_qty);
3069: END IF;
3070: l_amount := ozf_utility_pvt.currround(l_lumsumAmt_tbl(i) * l_offer_total_amount / l_total_qty,l_currency_code) ;
3071: END IF;
3072:
3073:
3074:
3081: END IF;
3082:
3083: IF TRUNC(sysdate) < TRUNC(l_offer_end_date) THEN
3084: IF G_DEBUG THEN
3085: ozf_utility_pvt.write_conc_log ( 'l_offer_start_date ' || l_offer_start_date);
3086: ozf_utility_pvt.write_conc_log ( 'l_offer_end_date ' || l_offer_end_date);
3087: ozf_utility_pvt.write_conc_log ( 'l_last_offer_accrual_date ' || l_last_offer_accrual_date);
3088: ozf_utility_pvt.write_conc_log ( 'l_amount ' || l_amount);
3089: END IF;
3082:
3083: IF TRUNC(sysdate) < TRUNC(l_offer_end_date) THEN
3084: IF G_DEBUG THEN
3085: ozf_utility_pvt.write_conc_log ( 'l_offer_start_date ' || l_offer_start_date);
3086: ozf_utility_pvt.write_conc_log ( 'l_offer_end_date ' || l_offer_end_date);
3087: ozf_utility_pvt.write_conc_log ( 'l_last_offer_accrual_date ' || l_last_offer_accrual_date);
3088: ozf_utility_pvt.write_conc_log ( 'l_amount ' || l_amount);
3089: END IF;
3090: IF l_last_offer_accrual_date IS NULL THEN
3083: IF TRUNC(sysdate) < TRUNC(l_offer_end_date) THEN
3084: IF G_DEBUG THEN
3085: ozf_utility_pvt.write_conc_log ( 'l_offer_start_date ' || l_offer_start_date);
3086: ozf_utility_pvt.write_conc_log ( 'l_offer_end_date ' || l_offer_end_date);
3087: ozf_utility_pvt.write_conc_log ( 'l_last_offer_accrual_date ' || l_last_offer_accrual_date);
3088: ozf_utility_pvt.write_conc_log ( 'l_amount ' || l_amount);
3089: END IF;
3090: IF l_last_offer_accrual_date IS NULL THEN
3091: l_amount := ozf_utility_pvt.currround(l_amount * (TRUNC(sysdate) - TRUNC(l_offer_start_date) + 1)/(TRUNC(l_offer_end_date) - TRUNC(l_offer_start_date) + 1),l_currency_code);
3084: IF G_DEBUG THEN
3085: ozf_utility_pvt.write_conc_log ( 'l_offer_start_date ' || l_offer_start_date);
3086: ozf_utility_pvt.write_conc_log ( 'l_offer_end_date ' || l_offer_end_date);
3087: ozf_utility_pvt.write_conc_log ( 'l_last_offer_accrual_date ' || l_last_offer_accrual_date);
3088: ozf_utility_pvt.write_conc_log ( 'l_amount ' || l_amount);
3089: END IF;
3090: IF l_last_offer_accrual_date IS NULL THEN
3091: l_amount := ozf_utility_pvt.currround(l_amount * (TRUNC(sysdate) - TRUNC(l_offer_start_date) + 1)/(TRUNC(l_offer_end_date) - TRUNC(l_offer_start_date) + 1),l_currency_code);
3092: ELSE
3087: ozf_utility_pvt.write_conc_log ( 'l_last_offer_accrual_date ' || l_last_offer_accrual_date);
3088: ozf_utility_pvt.write_conc_log ( 'l_amount ' || l_amount);
3089: END IF;
3090: IF l_last_offer_accrual_date IS NULL THEN
3091: l_amount := ozf_utility_pvt.currround(l_amount * (TRUNC(sysdate) - TRUNC(l_offer_start_date) + 1)/(TRUNC(l_offer_end_date) - TRUNC(l_offer_start_date) + 1),l_currency_code);
3092: ELSE
3093: l_amount := ozf_utility_pvt.currround(l_amount * (TRUNC(sysdate) - TRUNC(l_last_offer_accrual_date))/(TRUNC(l_offer_end_date) - TRUNC(l_last_offer_accrual_date)),l_currency_code);
3094: END IF;
3095: END IF;
3089: END IF;
3090: IF l_last_offer_accrual_date IS NULL THEN
3091: l_amount := ozf_utility_pvt.currround(l_amount * (TRUNC(sysdate) - TRUNC(l_offer_start_date) + 1)/(TRUNC(l_offer_end_date) - TRUNC(l_offer_start_date) + 1),l_currency_code);
3092: ELSE
3093: l_amount := ozf_utility_pvt.currround(l_amount * (TRUNC(sysdate) - TRUNC(l_last_offer_accrual_date))/(TRUNC(l_offer_end_date) - TRUNC(l_last_offer_accrual_date)),l_currency_code);
3094: END IF;
3095: END IF;
3096: END IF;
3097:
3095: END IF;
3096: END IF;
3097:
3098: IF G_DEBUG THEN
3099: ozf_utility_pvt.write_conc_log ( 'posting amount ' || l_amount || ' for product: ' || l_itemId_tbl(i));
3100: ozf_utility_pvt.write_conc_log ( 'l_spread_amount_remaining ' || l_spread_amount_remaining);
3101: ozf_utility_pvt.write_conc_log ( 'l_prod_budget_rec.approved_amount ' || l_prod_budget_rec.approved_amount );
3102: ozf_utility_pvt.write_conc_log ( 'l_total_committed_amt ' || l_total_committed_amt );
3103: END IF;
3096: END IF;
3097:
3098: IF G_DEBUG THEN
3099: ozf_utility_pvt.write_conc_log ( 'posting amount ' || l_amount || ' for product: ' || l_itemId_tbl(i));
3100: ozf_utility_pvt.write_conc_log ( 'l_spread_amount_remaining ' || l_spread_amount_remaining);
3101: ozf_utility_pvt.write_conc_log ( 'l_prod_budget_rec.approved_amount ' || l_prod_budget_rec.approved_amount );
3102: ozf_utility_pvt.write_conc_log ( 'l_total_committed_amt ' || l_total_committed_amt );
3103: END IF;
3104:
3097:
3098: IF G_DEBUG THEN
3099: ozf_utility_pvt.write_conc_log ( 'posting amount ' || l_amount || ' for product: ' || l_itemId_tbl(i));
3100: ozf_utility_pvt.write_conc_log ( 'l_spread_amount_remaining ' || l_spread_amount_remaining);
3101: ozf_utility_pvt.write_conc_log ( 'l_prod_budget_rec.approved_amount ' || l_prod_budget_rec.approved_amount );
3102: ozf_utility_pvt.write_conc_log ( 'l_total_committed_amt ' || l_total_committed_amt );
3103: END IF;
3104:
3105: IF l_spread_flag = 'Y' THEN
3098: IF G_DEBUG THEN
3099: ozf_utility_pvt.write_conc_log ( 'posting amount ' || l_amount || ' for product: ' || l_itemId_tbl(i));
3100: ozf_utility_pvt.write_conc_log ( 'l_spread_amount_remaining ' || l_spread_amount_remaining);
3101: ozf_utility_pvt.write_conc_log ( 'l_prod_budget_rec.approved_amount ' || l_prod_budget_rec.approved_amount );
3102: ozf_utility_pvt.write_conc_log ( 'l_total_committed_amt ' || l_total_committed_amt );
3103: END IF;
3104:
3105: IF l_spread_flag = 'Y' THEN
3106: l_utilized_amt := ozf_utility_pvt.currround((l_prod_budget_rec.approved_amount / l_total_committed_amt) * l_amount,l_prod_budget_rec.currency_code);
3102: ozf_utility_pvt.write_conc_log ( 'l_total_committed_amt ' || l_total_committed_amt );
3103: END IF;
3104:
3105: IF l_spread_flag = 'Y' THEN
3106: l_utilized_amt := ozf_utility_pvt.currround((l_prod_budget_rec.approved_amount / l_total_committed_amt) * l_amount,l_prod_budget_rec.currency_code);
3107: ELSE
3108: l_utilized_amt := ozf_utility_pvt.currround((l_prod_budget_rec.approved_amount / l_total_committed_amt) * l_amount,l_prod_budget_rec.currency_code);
3109: END IF;
3110:
3104:
3105: IF l_spread_flag = 'Y' THEN
3106: l_utilized_amt := ozf_utility_pvt.currround((l_prod_budget_rec.approved_amount / l_total_committed_amt) * l_amount,l_prod_budget_rec.currency_code);
3107: ELSE
3108: l_utilized_amt := ozf_utility_pvt.currround((l_prod_budget_rec.approved_amount / l_total_committed_amt) * l_amount,l_prod_budget_rec.currency_code);
3109: END IF;
3110:
3111: --nirprasa, end fix for bug 8625525
3112:
3110:
3111: --nirprasa, end fix for bug 8625525
3112:
3113: IF G_DEBUG THEN
3114: ozf_utility_pvt.write_conc_log ( ' l_utilized_amt ' || l_utilized_amt);
3115: ozf_utility_pvt.write_conc_log ( ' l_count ' || l_count);
3116: ozf_utility_pvt.write_conc_log ( ' l_itemId_tbl.COUNT ' || l_itemId_tbl.COUNT);
3117: END IF;
3118:
3111: --nirprasa, end fix for bug 8625525
3112:
3113: IF G_DEBUG THEN
3114: ozf_utility_pvt.write_conc_log ( ' l_utilized_amt ' || l_utilized_amt);
3115: ozf_utility_pvt.write_conc_log ( ' l_count ' || l_count);
3116: ozf_utility_pvt.write_conc_log ( ' l_itemId_tbl.COUNT ' || l_itemId_tbl.COUNT);
3117: END IF;
3118:
3119: IF l_count = l_itemId_tbl.COUNT THEN
3112:
3113: IF G_DEBUG THEN
3114: ozf_utility_pvt.write_conc_log ( ' l_utilized_amt ' || l_utilized_amt);
3115: ozf_utility_pvt.write_conc_log ( ' l_count ' || l_count);
3116: ozf_utility_pvt.write_conc_log ( ' l_itemId_tbl.COUNT ' || l_itemId_tbl.COUNT);
3117: END IF;
3118:
3119: IF l_count = l_itemId_tbl.COUNT THEN
3120: -- use remaining amount if it is last record to solve the issue for rounding.
3121: IF l_spread_flag <> 'Y' THEN
3122: l_utilized_amt := l_amount_remaining;
3123: ELSE
3124: IF G_DEBUG THEN
3125: ozf_utility_pvt.debug_message ( ' l_spread_amount_remaining ' || l_spread_amount_remaining);
3126: END IF;
3127:
3128: l_utilized_amt := l_spread_amount_remaining;
3129:
3130: END IF;
3131: END IF;
3132:
3133: IF G_DEBUG THEN
3134: ozf_utility_pvt.debug_message ( ' l_spread_amount_remaining1 ' || l_spread_amount_remaining);
3135: ozf_utility_pvt.debug_message ( ' l_amount_remaining1 ' || l_amount_remaining);
3136: ozf_utility_pvt.debug_message ( ' l_utilized_amt1 ' || l_utilized_amt);
3137: END IF;
3138:
3131: END IF;
3132:
3133: IF G_DEBUG THEN
3134: ozf_utility_pvt.debug_message ( ' l_spread_amount_remaining1 ' || l_spread_amount_remaining);
3135: ozf_utility_pvt.debug_message ( ' l_amount_remaining1 ' || l_amount_remaining);
3136: ozf_utility_pvt.debug_message ( ' l_utilized_amt1 ' || l_utilized_amt);
3137: END IF;
3138:
3139: --7721879
3132:
3133: IF G_DEBUG THEN
3134: ozf_utility_pvt.debug_message ( ' l_spread_amount_remaining1 ' || l_spread_amount_remaining);
3135: ozf_utility_pvt.debug_message ( ' l_amount_remaining1 ' || l_amount_remaining);
3136: ozf_utility_pvt.debug_message ( ' l_utilized_amt1 ' || l_utilized_amt);
3137: END IF;
3138:
3139: --7721879
3140: l_amount_remaining := l_amount_remaining - l_utilized_amt;
3140: l_amount_remaining := l_amount_remaining - l_utilized_amt;
3141: l_spread_amount_remaining := l_spread_amount_remaining - l_utilized_amt;
3142:
3143: IF G_DEBUG THEN
3144: ozf_utility_pvt.debug_message ( ' l_spread_amount_remaining2 ' || l_spread_amount_remaining);
3145: ozf_utility_pvt.debug_message ( ' l_amount_remaining2 ' || l_amount_remaining);
3146: ozf_utility_pvt.debug_message ( ' l_utilized_amt2 ' || l_utilized_amt);
3147: END IF;
3148:
3141: l_spread_amount_remaining := l_spread_amount_remaining - l_utilized_amt;
3142:
3143: IF G_DEBUG THEN
3144: ozf_utility_pvt.debug_message ( ' l_spread_amount_remaining2 ' || l_spread_amount_remaining);
3145: ozf_utility_pvt.debug_message ( ' l_amount_remaining2 ' || l_amount_remaining);
3146: ozf_utility_pvt.debug_message ( ' l_utilized_amt2 ' || l_utilized_amt);
3147: END IF;
3148:
3149: IF G_DEBUG THEN
3142:
3143: IF G_DEBUG THEN
3144: ozf_utility_pvt.debug_message ( ' l_spread_amount_remaining2 ' || l_spread_amount_remaining);
3145: ozf_utility_pvt.debug_message ( ' l_amount_remaining2 ' || l_amount_remaining);
3146: ozf_utility_pvt.debug_message ( ' l_utilized_amt2 ' || l_utilized_amt);
3147: END IF;
3148:
3149: IF G_DEBUG THEN
3150: ozf_utility_pvt.debug_message ( ': lumpsum posting amount ' || l_utilized_amt);
3146: ozf_utility_pvt.debug_message ( ' l_utilized_amt2 ' || l_utilized_amt);
3147: END IF;
3148:
3149: IF G_DEBUG THEN
3150: ozf_utility_pvt.debug_message ( ': lumpsum posting amount ' || l_utilized_amt);
3151: END IF;
3152:
3153: -- convert the object currency amount in to fund currency
3154: IF l_prod_budget_rec.currency_code = l_currency_code THEN
3159: OPEN c_get_conversion_type(l_offer_org_id);
3160: FETCH c_get_conversion_type INTO l_exchange_rate_type;
3161: CLOSE c_get_conversion_type;
3162: -- call the currency conversion wrapper
3163: ozf_utility_pvt.convert_currency (
3164: x_return_status=> x_return_status
3165: ,p_from_currency=> l_currency_code
3166: ,p_to_currency=> l_prod_budget_rec.currency_code
3167: ,p_conv_type=> l_exchange_rate_type
3176: END IF;
3177: END IF;
3178:
3179: IF G_DEBUG THEN
3180: ozf_utility_pvt.debug_message ( 'LS CP l_converted_amt ' || l_converted_amt);
3181: END IF;
3182:
3183: IF l_converted_amt <> 0 THEN
3184: l_act_budgets_rec.request_amount := l_utilized_amt; --in object currency.
3188: l_act_budgets_rec.budget_source_id := p_offer_id;
3189: l_act_budgets_rec.request_currency := l_currency_code;
3190: l_act_budgets_rec.request_date := SYSDATE;
3191: l_act_budgets_rec.status_code := 'APPROVED';
3192: l_act_budgets_rec.user_status_id := ozf_utility_pvt.get_default_user_status (
3193: 'OZF_BUDGETSOURCE_STATUS'
3194: ,l_act_budgets_rec.status_code
3195: );
3196: l_act_budgets_rec.transfer_type := 'UTILIZED';
3196: l_act_budgets_rec.transfer_type := 'UTILIZED';
3197: l_act_budgets_rec.approval_date := SYSDATE;
3198: l_act_budgets_rec.requester_id := l_offer_owner;
3199: l_act_budgets_rec.approver_id :=
3200: ozf_utility_pvt.get_resource_id (fnd_global.user_id);
3201: -- when workflow goes through without approval, fnd_global.user_id is not passed.
3202: IF l_act_budgets_rec.approver_id = -1 THEN
3203: l_act_budgets_rec.approver_id := l_offer_owner;
3204: END IF;
3225: p_act_util_rec =>l_act_util_rec,
3226: x_act_budget_id => l_act_budget_id
3227: ) ;
3228: IF G_DEBUG THEN
3229: ozf_utility_pvt.debug_message ( l_full_name
3230: || ': end create act budgets ');
3231: END IF;
3232:
3233: IF l_return_status = fnd_api.g_ret_sts_error THEN
3291: ,p_count=> x_msg_count
3292: ,p_data=> x_msg_data
3293: );
3294: IF G_DEBUG THEN
3295: ozf_utility_pvt.debug_message ( l_full_name || ': end');
3296: END IF;
3297: EXCEPTION
3298: WHEN fnd_api.g_exc_error THEN
3299: ROLLBACK TO Posting_lumpsum_amount;
3376:
3377: BEGIN
3378: SAVEPOINT post_utilized_budget;
3379: IF G_DEBUG THEN
3380: ozf_utility_pvt.debug_message (': begin ' || l_full_name);
3381: END IF;
3382: x_return_status := fnd_api.g_ret_sts_success;
3383:
3384: IF fnd_api.to_boolean (p_init_msg_list) THEN
3445: ,p_data=> x_msg_data
3446: );
3447:
3448: IF G_DEBUG THEN
3449: ozf_utility_pvt.debug_message ( l_full_name || ': end');
3450: END IF;
3451: EXCEPTION
3452: WHEN fnd_api.g_exc_error THEN
3453: ROLLBACK TO post_utilized_budget;
3643: */
3644: BEGIN
3645: SAVEPOINT adjust_utilized_budget;
3646: IF G_DEBUG THEN
3647: ozf_utility_pvt.debug_message ( l_full_name || ': start');
3648: END IF;
3649: x_return_status := fnd_api.g_ret_sts_success;
3650:
3651: IF fnd_api.to_boolean (p_init_msg_list) THEN
3665: OPEN c_offer_data(p_offer_id);
3666: FETCH c_offer_data INTO l_offer_currency_code,l_source_from_parent,l_cust_acct_id;
3667: CLOSE c_offer_data;
3668:
3669: l_amount := ozf_utility_pvt.currround(p_amount * l_scan_value ,l_offer_currency_code); -- ninarasi fix for bug 14089950
3670:
3671: IF G_DEBUG THEN
3672: ozf_utility_pvt.debug_message ( l_full_name || 'l_amount: ' || l_amount);
3673: END IF;
3668:
3669: l_amount := ozf_utility_pvt.currround(p_amount * l_scan_value ,l_offer_currency_code); -- ninarasi fix for bug 14089950
3670:
3671: IF G_DEBUG THEN
3672: ozf_utility_pvt.debug_message ( l_full_name || 'l_amount: ' || l_amount);
3673: END IF;
3674: -- get committed remaining. Ribha: changed as performance fix.
3675: OPEN c_budget_committed(p_offer_id);
3676: FETCH c_budget_committed INTO l_committed_remaining;
3674: -- get committed remaining. Ribha: changed as performance fix.
3675: OPEN c_budget_committed(p_offer_id);
3676: FETCH c_budget_committed INTO l_committed_remaining;
3677: CLOSE c_budget_committed;
3678: -- l_committed_remaining := nvl(ozf_utility_pvt.get_commited_amount(p_offer_id),0) - nvl(ozf_utility_pvt.get_utilized_amount(p_offer_id),0);
3679:
3680: IF G_DEBUG THEN
3681: ozf_utility_pvt.debug_message (l_full_name ||'l_committed_remaining: ' || l_committed_remaining);
3682: END IF;
3677: CLOSE c_budget_committed;
3678: -- l_committed_remaining := nvl(ozf_utility_pvt.get_commited_amount(p_offer_id),0) - nvl(ozf_utility_pvt.get_utilized_amount(p_offer_id),0);
3679:
3680: IF G_DEBUG THEN
3681: ozf_utility_pvt.debug_message (l_full_name ||'l_committed_remaining: ' || l_committed_remaining);
3682: END IF;
3683:
3684: IF ROUND(l_committed_remaining/l_scan_value) < p_amount THEN -- committed remaining is not enough.
3685: IF l_source_from_parent ='Y' THEN -- offer is sourced from campaign.
3689: FETCH c_parent_camapign INTO l_campaign_id;
3690: CLOSE c_parent_camapign;
3691:
3692: IF G_DEBUG THEN
3693: ozf_utility_pvt.debug_message (l_full_name ||'create_act_budgets: ' || l_campaign_id);
3694: END IF;
3695:
3696: l_act_budgets_rec.budget_source_type := 'CAMP';
3697: l_act_budgets_rec.budget_source_id := l_campaign_id;
3699: --find first budget which has enough fund to source requirement.
3700: FOR l_budget_util_rec IN c_utilized_budget (p_product_activity_id) LOOP
3701: --change later if a error has to be raised or not.
3702: /* IF c_utilized_budget%NOTFOUND THEN
3703: ozf_utility_pvt.error_message ('OZF_ACT_BUDG_UTIL_OVER');
3704: END IF;
3705: */
3706: EXIT WHEN c_utilized_budget%NOTFOUND;
3707:
3714: l_converted_amt := l_amount - l_committed_remaining;
3715: ELSE
3716:
3717: -- call the currency conversion wrapper
3718: ozf_utility_pvt.convert_currency (
3719: x_return_status=> x_return_status
3720: ,p_from_currency=> l_offer_currency_code
3721: ,p_to_currency=> l_budget_util_rec.currency_code
3722: ,p_from_amount=> l_amount - l_committed_remaining
3737: l_act_budgets_rec.budget_source_id := l_fund_id;
3738:
3739: --handle case for all budgets has not enough money.
3740: IF l_converted_amt > l_available_amt THEN
3741: ozf_utility_pvt.error_message ('OZF_ACT_BUDG_NO_MONEY');
3742: END IF;
3743:
3744: END IF; -- end of source from parent.
3745:
3756: l_act_budgets_rec.approved_in_currency := l_budget_currency_code;
3757: l_act_budgets_rec.status_code := 'APPROVED';
3758: l_act_budgets_rec.request_date := SYSDATE;
3759: l_act_budgets_rec.user_status_id :=
3760: ozf_utility_pvt.get_default_user_status (
3761: 'OZF_BUDGETSOURCE_STATUS'
3762: ,l_act_budgets_rec.status_code
3763: );
3764: l_act_budgets_rec.approval_date := SYSDATE;
3761: 'OZF_BUDGETSOURCE_STATUS'
3762: ,l_act_budgets_rec.status_code
3763: );
3764: l_act_budgets_rec.approval_date := SYSDATE;
3765: l_act_budgets_rec.approver_id := ozf_utility_pvt.get_resource_id (fnd_global.user_id);
3766: l_act_budgets_rec.requester_id := ozf_utility_pvt.get_resource_id (fnd_global.user_id);
3767:
3768:
3769: ozf_actbudgets_pvt.create_act_budgets (
3762: ,l_act_budgets_rec.status_code
3763: );
3764: l_act_budgets_rec.approval_date := SYSDATE;
3765: l_act_budgets_rec.approver_id := ozf_utility_pvt.get_resource_id (fnd_global.user_id);
3766: l_act_budgets_rec.requester_id := ozf_utility_pvt.get_resource_id (fnd_global.user_id);
3767:
3768:
3769: ozf_actbudgets_pvt.create_act_budgets (
3770: p_api_version=> l_api_version
3800: IF l_fund_rec.fund_currency = l_offer_currency_code THEN
3801: l_converted_amt := l_amount; -- in fund currency
3802: ELSE
3803: -- call the currency conversion wrapper
3804: ozf_utility_pvt.convert_currency (
3805: x_return_status=> x_return_status
3806: ,p_from_currency=> l_offer_currency_code
3807: ,p_to_currency=> l_fund_rec.fund_currency
3808: ,p_from_amount=> l_amount
3822: - l_util_amount; -- in request currency
3823: l_act_budgets_rec.parent_src_apprvd_amt := l_converted_amt;
3824: ELSIF NVL (l_fund_rec.committed_amt, 0) < NVL (l_converted_amt, 0) THEN
3825: -- call the currency conversion wrapper
3826: ozf_utility_pvt.convert_currency (
3827: x_return_status=> x_return_status
3828: ,p_from_currency=> l_fund_rec.fund_currency
3829: ,p_to_currency=> l_offer_currency_code
3830: ,p_from_amount=> l_fund_rec.committed_amt
3844: l_act_budgets_rec.budget_source_id := p_offer_id;
3845: l_act_budgets_rec.request_currency := l_offer_currency_code;
3846: l_act_budgets_rec.request_date := SYSDATE;
3847: l_act_budgets_rec.status_code := 'APPROVED';
3848: l_act_budgets_rec.user_status_id := ozf_utility_pvt.get_default_user_status (
3849: 'OZF_BUDGETSOURCE_STATUS'
3850: ,l_act_budgets_rec.status_code
3851: );
3852: l_act_budgets_rec.transfer_type := 'UTILIZED';
3850: ,l_act_budgets_rec.status_code
3851: );
3852: l_act_budgets_rec.transfer_type := 'UTILIZED';
3853: l_act_budgets_rec.approval_date := SYSDATE;
3854: l_act_budgets_rec.approver_id := ozf_utility_pvt.get_resource_id (fnd_global.user_id);
3855: fnd_message.set_name ('OZF', 'OZF_ACT_BUDGET_INCR_UTIL');
3856: fnd_message.set_token ('CLAIM_ID', p_claim_id, FALSE);
3857: l_act_budgets_rec.justification := fnd_message.get;
3858: l_act_budgets_rec.parent_source_id := l_fund_rec.fund_id;
3902: ,p_count=> x_msg_count
3903: ,p_data=> x_msg_data
3904: );
3905: IF G_DEBUG THEN
3906: ozf_utility_pvt.debug_message ( l_full_name
3907: || ': end');
3908: END IF;
3909: EXCEPTION
3910: WHEN fnd_api.g_exc_error THEN
3974:
3975: BEGIN
3976: SAVEPOINT update_budget_source;
3977: IF G_DEBUG THEN
3978: ozf_utility_pvt.debug_message (': begin ' || l_full_name);
3979: END IF;
3980: x_return_status := fnd_api.g_ret_sts_success;
3981:
3982: IF fnd_api.to_boolean (p_init_msg_list) THEN
4031: ,p_data=> x_msg_data
4032: );
4033:
4034: IF G_DEBUG THEN
4035: ozf_utility_pvt.debug_message ( l_full_name || ': end');
4036: END IF;
4037: EXCEPTION
4038: WHEN fnd_api.g_exc_error THEN
4039: ROLLBACK TO update_budget_source;
4201:
4202: BEGIN
4203: SAVEPOINT Posting_lumpsum_amount;
4204: IF G_DEBUG THEN
4205: ozf_utility_pvt.debug_message ( l_full_name || ': start');
4206: END IF;
4207: x_return_status := fnd_api.g_ret_sts_success;
4208:
4209: IF fnd_api.to_boolean (p_init_msg_list) THEN
4234: FOR l_req_budgets IN c_req_budgets (l_offer_id)
4235: LOOP
4236: -- change later if a error has to be raised or not.
4237: /* IF c_req_budgets%NOTFOUND THEN
4238: ozf_utility_pvt.error_message ('OZF_ACT_BUDG_UTIL_OVER');
4239: END IF;
4240: */
4241: EXIT WHEN c_req_budgets%NOTFOUND;
4242: l_utilized_amt := ozf_utility_pvt.currround((l_req_budgets.approved_amount / l_total_committed_amt) * l_amount ,l_currency_code);
4238: ozf_utility_pvt.error_message ('OZF_ACT_BUDG_UTIL_OVER');
4239: END IF;
4240: */
4241: EXIT WHEN c_req_budgets%NOTFOUND;
4242: l_utilized_amt := ozf_utility_pvt.currround((l_req_budgets.approved_amount / l_total_committed_amt) * l_amount ,l_currency_code);
4243: --l_utilized_amt := ROUND((l_req_budgets.approved_amount / l_total_committed_amt) * l_amount,2);
4244:
4245: IF G_DEBUG THEN
4246: ozf_utility_pvt.debug_message ( ': lumpsum posting amount ' || l_utilized_amt);
4242: l_utilized_amt := ozf_utility_pvt.currround((l_req_budgets.approved_amount / l_total_committed_amt) * l_amount ,l_currency_code);
4243: --l_utilized_amt := ROUND((l_req_budgets.approved_amount / l_total_committed_amt) * l_amount,2);
4244:
4245: IF G_DEBUG THEN
4246: ozf_utility_pvt.debug_message ( ': lumpsum posting amount ' || l_utilized_amt);
4247: END IF;
4248:
4249: -- convert the object currency amount in to fund currency
4250: IF l_req_budgets.currency_code = l_currency_code THEN
4256: OPEN c_get_conversion_type(l_offer_org_id);
4257: FETCH c_get_conversion_type INTO l_exchange_rate_type;
4258: CLOSE c_get_conversion_type;
4259:
4260: ozf_utility_pvt.convert_currency (
4261: x_return_status=> x_return_status
4262: ,p_from_currency=> l_currency_code
4263: ,p_to_currency=> l_req_budgets.currency_code
4264: ,p_conv_type=> l_exchange_rate_type
4272: RAISE fnd_api.g_exc_error;
4273: END IF;
4274: END IF;
4275: IF G_DEBUG THEN
4276: ozf_utility_pvt.debug_message ( ': l_converted_amt ' || l_converted_amt);
4277: END IF;
4278:
4279: IF l_converted_amt <> 0 THEN
4280: l_act_budgets_rec.request_amount := l_utilized_amt; --in object currency.
4284: l_act_budgets_rec.budget_source_id := l_offer_id;
4285: l_act_budgets_rec.request_currency := l_currency_code;
4286: l_act_budgets_rec.request_date := SYSDATE;
4287: l_act_budgets_rec.status_code := 'APPROVED';
4288: l_act_budgets_rec.user_status_id := ozf_utility_pvt.get_default_user_status (
4289: 'OZF_BUDGETSOURCE_STATUS'
4290: ,l_act_budgets_rec.status_code
4291: );
4292: l_act_budgets_rec.transfer_type := 'UTILIZED';
4291: );
4292: l_act_budgets_rec.transfer_type := 'UTILIZED';
4293: l_act_budgets_rec.approval_date := SYSDATE;
4294: l_act_budgets_rec.requester_id := l_req_owner;
4295: l_act_budgets_rec.approver_id := ozf_utility_pvt.get_resource_id (fnd_global.user_id);
4296: -- when workflow goes through without approval, fnd_global.user_id is not passed.
4297: IF l_act_budgets_rec.approver_id = -1 THEN
4298: l_act_budgets_rec.approver_id := l_req_owner;
4299: END IF;
4316: l_org_id := find_org_id (l_act_budgets_rec.parent_source_id);
4317: -- set org_context since workflow mailer does not set the context
4318: set_org_ctx (l_org_id);
4319: IF G_DEBUG THEN
4320: ozf_utility_pvt.debug_message ( ': l_req_owner ' || l_act_budgets_rec.approver_id);
4321: END IF;
4322: process_act_budgets (x_return_status => l_return_status,
4323: x_msg_count => x_msg_count,
4324: x_msg_data => x_msg_data,
4334: END IF;
4335: END IF; -- for util amount
4336:
4337: IF G_DEBUG THEN
4338: ozf_utility_pvt.debug_message ( l_full_name
4339: || ': end create act budgets ');
4340: END IF;
4341: l_act_util_rec := NULL;
4342: l_act_budgets_rec := NULL;
4352: ,p_count=> x_msg_count
4353: ,p_data=> x_msg_data
4354: );
4355: IF G_DEBUG THEN
4356: ozf_utility_pvt.debug_message ( l_full_name || ': end');
4357: END IF;
4358: EXCEPTION
4359: WHEN fnd_api.g_exc_error THEN
4360: ROLLBACK TO Posting_lumpsum_amount;