[Home] [Help]
204: BEGIN
205: x_return_status := fnd_api.g_ret_sts_success;
206:
207: IF g_debug_flag = 'Y' THEN
208: ozf_utility_pvt.write_conc_log(' D: ENTER calculate_accrual_amount offer_id=' || p_src_id || ' p_earned_amt=' || p_earned_amt);
209: END IF;
210:
211: /* kdass 31-JAN-05 - fix 11.5.9 bug 4067266 - RETROACTIVE VOLUME BUDGETS DO NOT CALCULATE CORRECTLY WHEN THE 1ST TIER IS AT 0%
212: IF p_earned_amt = 0 THEN
269: x_fund_amt_tbl (l_count).earned_amount := l_total_amount_tbl(i) - NVL(l_utilized_amount, 0);
270: x_fund_amt_tbl (l_count).budget_currency:= l_parent_curr_tbl(i);
271: END IF; -- IF g_recal_flag = 'Y'
272: IF g_debug_flag = 'Y' THEN
273: ozf_utility_pvt.write_conc_log(' D: calculate_accrual_amount: ' || l_count || ') fund_id=' || x_fund_amt_tbl (l_count).ofr_src_id
274: || ' utilized_amount=' || l_utilized_amount || x_fund_amt_tbl (l_count).budget_currency);
275: END IF;
276: -- if the currencies of the budgets are different then convert it into the first budget currency
277: -- to get the total amount
277: -- to get the total amount
278: IF l_count > 1 THEN
279: IF x_fund_amt_tbl (l_count).budget_currency <>
280: x_fund_amt_tbl (l_count - 1).budget_currency THEN
281: ozf_utility_pvt.convert_currency (
282: x_return_status=> x_return_status,
283: p_from_currency=> x_fund_amt_tbl (l_count).budget_currency,
284: p_to_currency=> x_fund_amt_tbl (l_count - 1).budget_currency,
285: p_from_amount=> x_fund_amt_tbl (l_count).earned_amount,
305: , x_msg_data => l_msg_data
306: );
307:
308: IF g_debug_flag = 'Y' THEN
309: ozf_utility_pvt.write_conc_log (' D: calculate_accrual_amount(): check_budget_qualification status: ' || l_return_status);
310: END IF;
311: IF l_return_status <> fnd_api.g_ret_sts_success THEN
312: l_eligible_flag := false;
313: END IF;
316: END IF;
317:
318: IF l_eligible_flag THEN
319: IF g_debug_flag = 'Y' THEN
320: ozf_utility_pvt.write_conc_log (' D: calculate_accrual_amount(): budget ' || x_fund_amt_tbl (l_count).ofr_src_id
321: || ' is qualified for product:' || p_product_item_id || ' customer: ' || p_cust_account_id);
322: END IF;
323: l_eligible_count := l_eligible_count + 1;
324: l_eligible_fund_amt_tbl (l_eligible_count).ofr_src_id := x_fund_amt_tbl (l_count).ofr_src_id;
326: l_eligible_fund_amt_tbl (l_eligible_count).budget_currency:= x_fund_amt_tbl (l_count).budget_currency;
327: l_eligible_total_amount := l_eligible_total_amount + l_eligible_fund_amt_tbl (l_eligible_count).earned_amount;
328: ELSE
329: IF g_debug_flag = 'Y' THEN
330: ozf_utility_pvt.write_conc_log (' D: calculate_accrual_amount(): budget ' || x_fund_amt_tbl (l_count).ofr_src_id
331: || ' is not qualified for product:' || p_product_item_id || ' customer: ' || p_cust_account_id);
332: END IF;
333: END IF;
334:
344: x_fund_amt_tbl := l_eligible_fund_amt_tbl;
345: l_total_amount := l_eligible_total_amount;
346: l_count := l_eligible_count;
347: IF g_debug_flag = 'Y' THEN
348: ozf_utility_pvt.write_conc_log(' D: calculate_accrual_amount(): ' || l_count
349: || ' eligible budgets found. Total amount available for posting:' || l_total_amount);
350: END IF;
351: END IF;
352:
358: END IF;
359: END IF;
360:
361: IF g_debug_flag = 'Y' THEN
362: ozf_utility_pvt.write_conc_log(' D: calculate_accrual_amount(): g_recal_flag=' || g_recal_flag || ' p_earned_amt=' || p_earned_amt
363: || ' final sourcing budget table count=' || x_fund_amt_tbl.COUNT || ' sourcing budgets total amount=' || l_total_amount);
364: END IF;
365:
366: -- calculate the fraction if recalculation flag is on, or to_post amount is less than available amount
380: LOOP
381: x_fund_amt_tbl (i).earned_amount :=
382: p_earned_amt * l_fraction_tbl (x_fund_amt_tbl (i).ofr_src_id);
383: IF g_debug_flag = 'Y' THEN
384: ozf_utility_pvt.write_conc_log (' D: calculate_accrual_amount(): --index--' || i || '--final posting amt--'
385: || x_fund_amt_tbl (i).earned_amount
386: || '--fund id--' || x_fund_amt_tbl (i).ofr_src_id
387: || '--fraction--' || l_fraction_tbl(x_fund_amt_tbl (i).ofr_src_id));
388: END IF;
459: WHERE org_id = p_org_id;
460:
461: BEGIN
462: IF g_debug_flag = 'Y' THEN
463: ozf_utility_pvt.write_conc_log( l_full_name
464: || ': start');
465: END IF;
466: -- Standard Start of API savepoint
467: SAVEPOINT create_actbudgets_rec;
509: RETURN; -- exit from program.
510: END IF;
511:
512: IF l_act_budgets_rec.request_currency IS NULL THEN
513: ozf_utility_pvt.write_conc_log ('OZF_ACT_BUDG_NO_CURRENCY');
514: x_return_status := fnd_api.g_ret_sts_error;
515: END IF;
516:
517: /* Added for bug 7030415
523: FETCH c_get_conversion_type INTO l_exchange_rate_type;
524: CLOSE c_get_conversion_type;
525:
526: IF g_debug_flag = 'Y' THEN
527: ozf_utility_pvt.write_conc_log('**************************START****************************');
528: ozf_utility_pvt.write_conc_log(l_api_name||' From Amount: '||l_act_budgets_rec.request_amount );
529: ozf_utility_pvt.write_conc_log(l_api_name||' From Curr: '||l_act_budgets_rec.request_currency );
530: ozf_utility_pvt.write_conc_log(l_api_name||' p_ledger_id: '||p_ledger_id);
531: ozf_utility_pvt.write_conc_log(l_api_name||' l_exchange_rate_type: '|| l_exchange_rate_type);
524: CLOSE c_get_conversion_type;
525:
526: IF g_debug_flag = 'Y' THEN
527: ozf_utility_pvt.write_conc_log('**************************START****************************');
528: ozf_utility_pvt.write_conc_log(l_api_name||' From Amount: '||l_act_budgets_rec.request_amount );
529: ozf_utility_pvt.write_conc_log(l_api_name||' From Curr: '||l_act_budgets_rec.request_currency );
530: ozf_utility_pvt.write_conc_log(l_api_name||' p_ledger_id: '||p_ledger_id);
531: ozf_utility_pvt.write_conc_log(l_api_name||' l_exchange_rate_type: '|| l_exchange_rate_type);
532: ozf_utility_pvt.write_conc_log('Request amount is converted from request curr to functional curr');
525:
526: IF g_debug_flag = 'Y' THEN
527: ozf_utility_pvt.write_conc_log('**************************START****************************');
528: ozf_utility_pvt.write_conc_log(l_api_name||' From Amount: '||l_act_budgets_rec.request_amount );
529: ozf_utility_pvt.write_conc_log(l_api_name||' From Curr: '||l_act_budgets_rec.request_currency );
530: ozf_utility_pvt.write_conc_log(l_api_name||' p_ledger_id: '||p_ledger_id);
531: ozf_utility_pvt.write_conc_log(l_api_name||' l_exchange_rate_type: '|| l_exchange_rate_type);
532: ozf_utility_pvt.write_conc_log('Request amount is converted from request curr to functional curr');
533: END IF;
526: IF g_debug_flag = 'Y' THEN
527: ozf_utility_pvt.write_conc_log('**************************START****************************');
528: ozf_utility_pvt.write_conc_log(l_api_name||' From Amount: '||l_act_budgets_rec.request_amount );
529: ozf_utility_pvt.write_conc_log(l_api_name||' From Curr: '||l_act_budgets_rec.request_currency );
530: ozf_utility_pvt.write_conc_log(l_api_name||' p_ledger_id: '||p_ledger_id);
531: ozf_utility_pvt.write_conc_log(l_api_name||' l_exchange_rate_type: '|| l_exchange_rate_type);
532: ozf_utility_pvt.write_conc_log('Request amount is converted from request curr to functional curr');
533: END IF;
534:
527: ozf_utility_pvt.write_conc_log('**************************START****************************');
528: ozf_utility_pvt.write_conc_log(l_api_name||' From Amount: '||l_act_budgets_rec.request_amount );
529: ozf_utility_pvt.write_conc_log(l_api_name||' From Curr: '||l_act_budgets_rec.request_currency );
530: ozf_utility_pvt.write_conc_log(l_api_name||' p_ledger_id: '||p_ledger_id);
531: ozf_utility_pvt.write_conc_log(l_api_name||' l_exchange_rate_type: '|| l_exchange_rate_type);
532: ozf_utility_pvt.write_conc_log('Request amount is converted from request curr to functional curr');
533: END IF;
534:
535: IF l_act_budgets_rec.request_amount <> 0 THEN
528: ozf_utility_pvt.write_conc_log(l_api_name||' From Amount: '||l_act_budgets_rec.request_amount );
529: ozf_utility_pvt.write_conc_log(l_api_name||' From Curr: '||l_act_budgets_rec.request_currency );
530: ozf_utility_pvt.write_conc_log(l_api_name||' p_ledger_id: '||p_ledger_id);
531: ozf_utility_pvt.write_conc_log(l_api_name||' l_exchange_rate_type: '|| l_exchange_rate_type);
532: ozf_utility_pvt.write_conc_log('Request amount is converted from request curr to functional curr');
533: END IF;
534:
535: IF l_act_budgets_rec.request_amount <> 0 THEN
536: ozf_utility_pvt.calculate_functional_currency (
532: ozf_utility_pvt.write_conc_log('Request amount is converted from request curr to functional curr');
533: END IF;
534:
535: IF l_act_budgets_rec.request_amount <> 0 THEN
536: ozf_utility_pvt.calculate_functional_currency (
537: p_from_amount=>l_act_budgets_rec.request_amount
538: ,p_tc_currency_code=> l_act_budgets_rec.request_currency
539: ,p_ledger_id => p_ledger_id
540: ,x_to_amount=> l_approved_amount_fc
544: ,x_exchange_rate=> l_exchange_rate
545: ,x_return_status=> l_return_status
546: );
547: IF g_debug_flag = 'Y' THEN
548: ozf_utility_pvt.write_conc_log(l_full_name || 'calculate_functional_curr: ' || l_return_status);
549: END IF;
550:
551: IF l_return_status = fnd_api.g_ret_sts_error THEN
552: RAISE fnd_api.g_exc_error;
558: OPEN c_act_budget_id;
559: FETCH c_act_budget_id INTO l_act_budgets_rec.activity_budget_id;
560: CLOSE c_act_budget_id;
561:
562: l_requester_id := ozf_utility_pvt.get_resource_id (fnd_global.user_id);
563:
564: INSERT INTO ozf_act_budgets
565: (activity_budget_id,last_update_date
566: ,last_updated_by, creation_date
628:
629: x_act_budget_id := l_act_budgets_rec.activity_budget_id;
630:
631: IF g_debug_flag = 'Y' THEN
632: ozf_utility_pvt.write_conc_log( l_api_name
633: || ': insert complete' || l_act_budgets_rec.activity_budget_id);
634: END IF;
635:
636: -- Standard call to get message count AND IF count is 1, get message info.
947: BEGIN
948: --------------------- initialize -----------------------
949: SAVEPOINT create_utilized_rec;
950: IF g_debug_flag = 'Y' THEN
951: ozf_utility_pvt.write_conc_log( l_full_name
952: || ': start' || p_utilization_rec.utilization_type);
953: END IF;
954:
955: x_return_status := fnd_api.g_ret_sts_success;
1010: ,p_ledger_id => l_order_ledger
1011: ,p_ledger_name => l_ord_ledger_name);
1012: IF l_utilization_rec.org_id IS NULL THEN
1013: IF g_debug_flag = 'Y' THEN
1014: ozf_utility_pvt.write_conc_log (' org_id from order is null ');
1015: END IF;
1016: ELSE
1017: IF g_debug_flag = 'Y' THEN
1018: ozf_utility_pvt.write_conc_log (' org_id from order: ' || l_utilization_rec.org_id);
1014: ozf_utility_pvt.write_conc_log (' org_id from order is null ');
1015: END IF;
1016: ELSE
1017: IF g_debug_flag = 'Y' THEN
1018: ozf_utility_pvt.write_conc_log (' org_id from order: ' || l_utilization_rec.org_id);
1019: END IF;
1020: END IF;
1021:
1022: IF l_fund_ledger IS NOT NULL AND l_order_ledger <> l_fund_ledger THEN
1020: END IF;
1021:
1022: IF l_fund_ledger IS NOT NULL AND l_order_ledger <> l_fund_ledger THEN
1023: -- l_utilization_rec.org_id := l_fund_org; R12: stick to order's org. Budget org is not essential information
1024: ozf_utility_pvt.write_conc_log (' Warning: There is a potential problem with this accrual record. The ledger ');
1025: ozf_utility_pvt.write_conc_log ('used by Trade Management to create the GL postings for this ');
1026: ozf_utility_pvt.write_conc_log ('accrual does not match the one the sales order rolls up to. Please ');
1027: ozf_utility_pvt.write_conc_log ('review carefully and make adjustments in Trade Management if necessary.');
1028: END IF;
1021:
1022: IF l_fund_ledger IS NOT NULL AND l_order_ledger <> l_fund_ledger THEN
1023: -- l_utilization_rec.org_id := l_fund_org; R12: stick to order's org. Budget org is not essential information
1024: ozf_utility_pvt.write_conc_log (' Warning: There is a potential problem with this accrual record. The ledger ');
1025: ozf_utility_pvt.write_conc_log ('used by Trade Management to create the GL postings for this ');
1026: ozf_utility_pvt.write_conc_log ('accrual does not match the one the sales order rolls up to. Please ');
1027: ozf_utility_pvt.write_conc_log ('review carefully and make adjustments in Trade Management if necessary.');
1028: END IF;
1029:
1022: IF l_fund_ledger IS NOT NULL AND l_order_ledger <> l_fund_ledger THEN
1023: -- l_utilization_rec.org_id := l_fund_org; R12: stick to order's org. Budget org is not essential information
1024: ozf_utility_pvt.write_conc_log (' Warning: There is a potential problem with this accrual record. The ledger ');
1025: ozf_utility_pvt.write_conc_log ('used by Trade Management to create the GL postings for this ');
1026: ozf_utility_pvt.write_conc_log ('accrual does not match the one the sales order rolls up to. Please ');
1027: ozf_utility_pvt.write_conc_log ('review carefully and make adjustments in Trade Management if necessary.');
1028: END IF;
1029:
1030: -- Added for bug 7030415, moved the the code here to get the correct utilization org_id.
1023: -- l_utilization_rec.org_id := l_fund_org; R12: stick to order's org. Budget org is not essential information
1024: ozf_utility_pvt.write_conc_log (' Warning: There is a potential problem with this accrual record. The ledger ');
1025: ozf_utility_pvt.write_conc_log ('used by Trade Management to create the GL postings for this ');
1026: ozf_utility_pvt.write_conc_log ('accrual does not match the one the sales order rolls up to. Please ');
1027: ozf_utility_pvt.write_conc_log ('review carefully and make adjustments in Trade Management if necessary.');
1028: END IF;
1029:
1030: -- Added for bug 7030415, moved the the code here to get the correct utilization org_id.
1031:
1071: l_utilization_rec.ship_to_site_use_id := NULL;
1072: END IF;
1073:
1074: IF g_debug_flag = 'Y' THEN
1075: ozf_utility_pvt.write_conc_log ('l_utilization_rec.bill_to_site_use_id: ' || l_utilization_rec.bill_to_site_use_id);
1076: ozf_utility_pvt.write_conc_log ('l_utilization_rec.ship_to_site_use_id: ' || l_utilization_rec.ship_to_site_use_id);
1077: END IF;
1078:
1079: ELSE
1072: END IF;
1073:
1074: IF g_debug_flag = 'Y' THEN
1075: ozf_utility_pvt.write_conc_log ('l_utilization_rec.bill_to_site_use_id: ' || l_utilization_rec.bill_to_site_use_id);
1076: ozf_utility_pvt.write_conc_log ('l_utilization_rec.ship_to_site_use_id: ' || l_utilization_rec.ship_to_site_use_id);
1077: END IF;
1078:
1079: ELSE
1080: l_utilization_rec.cust_account_id := l_utilization_rec.billto_cust_account_id;
1091: FETCH c_get_conversion_type INTO l_utilization_rec.exchange_rate_type;
1092: CLOSE c_get_conversion_type;
1093:
1094: IF l_utilization_rec.amount <> 0 THEN
1095: l_utilization_rec.amount := ozf_utility_pvt.currround(l_utilization_rec.amount , l_utilization_rec.currency_code); -- round amount to fix bug 3615680;
1096:
1097: IF g_debug_flag = 'Y' THEN
1098: ozf_utility_pvt.write_conc_log('**************************START****************************');
1099: ozf_utility_pvt.write_conc_log(l_api_name||' From Amount: '||l_utilization_rec.amount );
1094: IF l_utilization_rec.amount <> 0 THEN
1095: l_utilization_rec.amount := ozf_utility_pvt.currround(l_utilization_rec.amount , l_utilization_rec.currency_code); -- round amount to fix bug 3615680;
1096:
1097: IF g_debug_flag = 'Y' THEN
1098: ozf_utility_pvt.write_conc_log('**************************START****************************');
1099: ozf_utility_pvt.write_conc_log(l_api_name||' From Amount: '||l_utilization_rec.amount );
1100: ozf_utility_pvt.write_conc_log(l_api_name||' From Curr: '||l_utilization_rec.currency_code );
1101: ozf_utility_pvt.write_conc_log(l_api_name||' p_ledger_id: '|| l_order_ledger);
1102: ozf_utility_pvt.write_conc_log(l_api_name||' l_utilization_rec.exchange_rate_type: '|| l_utilization_rec.exchange_rate_type);
1095: l_utilization_rec.amount := ozf_utility_pvt.currround(l_utilization_rec.amount , l_utilization_rec.currency_code); -- round amount to fix bug 3615680;
1096:
1097: IF g_debug_flag = 'Y' THEN
1098: ozf_utility_pvt.write_conc_log('**************************START****************************');
1099: ozf_utility_pvt.write_conc_log(l_api_name||' From Amount: '||l_utilization_rec.amount );
1100: ozf_utility_pvt.write_conc_log(l_api_name||' From Curr: '||l_utilization_rec.currency_code );
1101: ozf_utility_pvt.write_conc_log(l_api_name||' p_ledger_id: '|| l_order_ledger);
1102: ozf_utility_pvt.write_conc_log(l_api_name||' l_utilization_rec.exchange_rate_type: '|| l_utilization_rec.exchange_rate_type);
1103: ozf_utility_pvt.write_conc_log('Utilization amount is converted from utilization curr to functional curr to populate acctd_amount column');
1096:
1097: IF g_debug_flag = 'Y' THEN
1098: ozf_utility_pvt.write_conc_log('**************************START****************************');
1099: ozf_utility_pvt.write_conc_log(l_api_name||' From Amount: '||l_utilization_rec.amount );
1100: ozf_utility_pvt.write_conc_log(l_api_name||' From Curr: '||l_utilization_rec.currency_code );
1101: ozf_utility_pvt.write_conc_log(l_api_name||' p_ledger_id: '|| l_order_ledger);
1102: ozf_utility_pvt.write_conc_log(l_api_name||' l_utilization_rec.exchange_rate_type: '|| l_utilization_rec.exchange_rate_type);
1103: ozf_utility_pvt.write_conc_log('Utilization amount is converted from utilization curr to functional curr to populate acctd_amount column');
1104: END IF;
1097: IF g_debug_flag = 'Y' THEN
1098: ozf_utility_pvt.write_conc_log('**************************START****************************');
1099: ozf_utility_pvt.write_conc_log(l_api_name||' From Amount: '||l_utilization_rec.amount );
1100: ozf_utility_pvt.write_conc_log(l_api_name||' From Curr: '||l_utilization_rec.currency_code );
1101: ozf_utility_pvt.write_conc_log(l_api_name||' p_ledger_id: '|| l_order_ledger);
1102: ozf_utility_pvt.write_conc_log(l_api_name||' l_utilization_rec.exchange_rate_type: '|| l_utilization_rec.exchange_rate_type);
1103: ozf_utility_pvt.write_conc_log('Utilization amount is converted from utilization curr to functional curr to populate acctd_amount column');
1104: END IF;
1105: ozf_utility_pvt.calculate_functional_currency (
1098: ozf_utility_pvt.write_conc_log('**************************START****************************');
1099: ozf_utility_pvt.write_conc_log(l_api_name||' From Amount: '||l_utilization_rec.amount );
1100: ozf_utility_pvt.write_conc_log(l_api_name||' From Curr: '||l_utilization_rec.currency_code );
1101: ozf_utility_pvt.write_conc_log(l_api_name||' p_ledger_id: '|| l_order_ledger);
1102: ozf_utility_pvt.write_conc_log(l_api_name||' l_utilization_rec.exchange_rate_type: '|| l_utilization_rec.exchange_rate_type);
1103: ozf_utility_pvt.write_conc_log('Utilization amount is converted from utilization curr to functional curr to populate acctd_amount column');
1104: END IF;
1105: ozf_utility_pvt.calculate_functional_currency (
1106: p_from_amount=> l_utilization_rec.amount
1099: ozf_utility_pvt.write_conc_log(l_api_name||' From Amount: '||l_utilization_rec.amount );
1100: ozf_utility_pvt.write_conc_log(l_api_name||' From Curr: '||l_utilization_rec.currency_code );
1101: ozf_utility_pvt.write_conc_log(l_api_name||' p_ledger_id: '|| l_order_ledger);
1102: ozf_utility_pvt.write_conc_log(l_api_name||' l_utilization_rec.exchange_rate_type: '|| l_utilization_rec.exchange_rate_type);
1103: ozf_utility_pvt.write_conc_log('Utilization amount is converted from utilization curr to functional curr to populate acctd_amount column');
1104: END IF;
1105: ozf_utility_pvt.calculate_functional_currency (
1106: p_from_amount=> l_utilization_rec.amount
1107: ,p_tc_currency_code=> l_utilization_rec.currency_code
1101: ozf_utility_pvt.write_conc_log(l_api_name||' p_ledger_id: '|| l_order_ledger);
1102: ozf_utility_pvt.write_conc_log(l_api_name||' l_utilization_rec.exchange_rate_type: '|| l_utilization_rec.exchange_rate_type);
1103: ozf_utility_pvt.write_conc_log('Utilization amount is converted from utilization curr to functional curr to populate acctd_amount column');
1104: END IF;
1105: ozf_utility_pvt.calculate_functional_currency (
1106: p_from_amount=> l_utilization_rec.amount
1107: ,p_tc_currency_code=> l_utilization_rec.currency_code
1108: ,p_ledger_id => l_order_ledger
1109: ,x_to_amount=> l_utilization_rec.acctd_amount
1263: Utilization amount is converted from request curr to universal curr to populate univ_curr_amount
1264: column in ozf_funds_utilized_all_b */
1265:
1266: IF g_debug_flag = 'Y' THEN
1267: ozf_utility_pvt.write_conc_log('**************************START****************************');
1268: ozf_utility_pvt.write_conc_log(l_api_name||' From Amount: '||l_utilization_rec.amount );
1269: ozf_utility_pvt.write_conc_log(l_api_name||' From Curr: '||l_utilization_rec.currency_code );
1270: ozf_utility_pvt.write_conc_log(l_api_name||' to curr univ_curr_amount: '|| g_universal_currency);
1271: ozf_utility_pvt.write_conc_log(l_api_name||' l_exchange_rate_type: '|| l_utilization_rec.exchange_rate_type);
1264: column in ozf_funds_utilized_all_b */
1265:
1266: IF g_debug_flag = 'Y' THEN
1267: ozf_utility_pvt.write_conc_log('**************************START****************************');
1268: ozf_utility_pvt.write_conc_log(l_api_name||' From Amount: '||l_utilization_rec.amount );
1269: ozf_utility_pvt.write_conc_log(l_api_name||' From Curr: '||l_utilization_rec.currency_code );
1270: ozf_utility_pvt.write_conc_log(l_api_name||' to curr univ_curr_amount: '|| g_universal_currency);
1271: ozf_utility_pvt.write_conc_log(l_api_name||' l_exchange_rate_type: '|| l_utilization_rec.exchange_rate_type);
1272: END IF;
1265:
1266: IF g_debug_flag = 'Y' THEN
1267: ozf_utility_pvt.write_conc_log('**************************START****************************');
1268: ozf_utility_pvt.write_conc_log(l_api_name||' From Amount: '||l_utilization_rec.amount );
1269: ozf_utility_pvt.write_conc_log(l_api_name||' From Curr: '||l_utilization_rec.currency_code );
1270: ozf_utility_pvt.write_conc_log(l_api_name||' to curr univ_curr_amount: '|| g_universal_currency);
1271: ozf_utility_pvt.write_conc_log(l_api_name||' l_exchange_rate_type: '|| l_utilization_rec.exchange_rate_type);
1272: END IF;
1273: ozf_utility_pvt.convert_currency (
1266: IF g_debug_flag = 'Y' THEN
1267: ozf_utility_pvt.write_conc_log('**************************START****************************');
1268: ozf_utility_pvt.write_conc_log(l_api_name||' From Amount: '||l_utilization_rec.amount );
1269: ozf_utility_pvt.write_conc_log(l_api_name||' From Curr: '||l_utilization_rec.currency_code );
1270: ozf_utility_pvt.write_conc_log(l_api_name||' to curr univ_curr_amount: '|| g_universal_currency);
1271: ozf_utility_pvt.write_conc_log(l_api_name||' l_exchange_rate_type: '|| l_utilization_rec.exchange_rate_type);
1272: END IF;
1273: ozf_utility_pvt.convert_currency (
1274: p_from_currency=> l_utilization_rec.currency_code
1267: ozf_utility_pvt.write_conc_log('**************************START****************************');
1268: ozf_utility_pvt.write_conc_log(l_api_name||' From Amount: '||l_utilization_rec.amount );
1269: ozf_utility_pvt.write_conc_log(l_api_name||' From Curr: '||l_utilization_rec.currency_code );
1270: ozf_utility_pvt.write_conc_log(l_api_name||' to curr univ_curr_amount: '|| g_universal_currency);
1271: ozf_utility_pvt.write_conc_log(l_api_name||' l_exchange_rate_type: '|| l_utilization_rec.exchange_rate_type);
1272: END IF;
1273: ozf_utility_pvt.convert_currency (
1274: p_from_currency=> l_utilization_rec.currency_code
1275: ,p_to_currency=> g_universal_currency
1269: ozf_utility_pvt.write_conc_log(l_api_name||' From Curr: '||l_utilization_rec.currency_code );
1270: ozf_utility_pvt.write_conc_log(l_api_name||' to curr univ_curr_amount: '|| g_universal_currency);
1271: ozf_utility_pvt.write_conc_log(l_api_name||' l_exchange_rate_type: '|| l_utilization_rec.exchange_rate_type);
1272: END IF;
1273: ozf_utility_pvt.convert_currency (
1274: p_from_currency=> l_utilization_rec.currency_code
1275: ,p_to_currency=> g_universal_currency
1276: ,p_conv_type=> l_utilization_rec.exchange_rate_type --Added for bug 7030415
1277: ,p_from_amount=> l_utilization_rec.amount
1279: ,x_to_amount=> l_utilization_rec.univ_curr_amount
1280: ,x_rate=> l_rate
1281: );
1282: IF g_debug_flag = 'Y' THEN
1283: ozf_utility_pvt.write_conc_log(l_api_name||' Converted Amount l_utilization_rec.univ_curr_amount: '|| l_utilization_rec.univ_curr_amount);
1284: ozf_utility_pvt.write_conc_log('Utilization amount is converted from request curr to universal curr to populate univ_curr_amount column in izf_funds_utilized_all_b');
1285: END IF;
1286: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
1287: RAISE fnd_api.g_exc_unexpected_error;
1280: ,x_rate=> l_rate
1281: );
1282: IF g_debug_flag = 'Y' THEN
1283: ozf_utility_pvt.write_conc_log(l_api_name||' Converted Amount l_utilization_rec.univ_curr_amount: '|| l_utilization_rec.univ_curr_amount);
1284: ozf_utility_pvt.write_conc_log('Utilization amount is converted from request curr to universal curr to populate univ_curr_amount column in izf_funds_utilized_all_b');
1285: END IF;
1286: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
1287: RAISE fnd_api.g_exc_unexpected_error;
1288: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
1288: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
1289: RAISE fnd_api.g_exc_error;
1290: END IF;
1291: /* Send the exchange rate for bug 7030415 */
1292: ozf_utility_pvt.convert_currency (
1293: p_from_currency=> l_utilization_rec.currency_code
1294: ,p_to_currency=> g_universal_currency
1295: ,p_conv_type=> l_utilization_rec.exchange_rate_type --Added for bug 7030415
1296: ,p_from_amount=> l_utilization_rec.amount_remaining
1298: ,x_to_amount=> l_utilization_rec.univ_curr_amount_remaining
1299: ,x_rate=> l_rate
1300: );
1301: IF g_debug_flag = 'Y' THEN
1302: ozf_utility_pvt.write_conc_log(l_api_name||' From Amount: '||l_utilization_rec.amount_remaining );
1303: ozf_utility_pvt.write_conc_log(l_api_name||' Converted Amount l_utilization_rec.univ_curr_amount_remaining: '|| l_utilization_rec.univ_curr_amount_remaining);
1304: ozf_utility_pvt.write_conc_log('Utilization amount is converted from request curr to universal curr to populate univ_curr_amount column in izf_funds_utilized_all_b');
1305: ozf_utility_pvt.write_conc_log('***************************END******************************');
1306: END IF;
1299: ,x_rate=> l_rate
1300: );
1301: IF g_debug_flag = 'Y' THEN
1302: ozf_utility_pvt.write_conc_log(l_api_name||' From Amount: '||l_utilization_rec.amount_remaining );
1303: ozf_utility_pvt.write_conc_log(l_api_name||' Converted Amount l_utilization_rec.univ_curr_amount_remaining: '|| l_utilization_rec.univ_curr_amount_remaining);
1304: ozf_utility_pvt.write_conc_log('Utilization amount is converted from request curr to universal curr to populate univ_curr_amount column in izf_funds_utilized_all_b');
1305: ozf_utility_pvt.write_conc_log('***************************END******************************');
1306: END IF;
1307: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
1300: );
1301: IF g_debug_flag = 'Y' THEN
1302: ozf_utility_pvt.write_conc_log(l_api_name||' From Amount: '||l_utilization_rec.amount_remaining );
1303: ozf_utility_pvt.write_conc_log(l_api_name||' Converted Amount l_utilization_rec.univ_curr_amount_remaining: '|| l_utilization_rec.univ_curr_amount_remaining);
1304: ozf_utility_pvt.write_conc_log('Utilization amount is converted from request curr to universal curr to populate univ_curr_amount column in izf_funds_utilized_all_b');
1305: ozf_utility_pvt.write_conc_log('***************************END******************************');
1306: END IF;
1307: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
1308: RAISE fnd_api.g_exc_unexpected_error;
1301: IF g_debug_flag = 'Y' THEN
1302: ozf_utility_pvt.write_conc_log(l_api_name||' From Amount: '||l_utilization_rec.amount_remaining );
1303: ozf_utility_pvt.write_conc_log(l_api_name||' Converted Amount l_utilization_rec.univ_curr_amount_remaining: '|| l_utilization_rec.univ_curr_amount_remaining);
1304: ozf_utility_pvt.write_conc_log('Utilization amount is converted from request curr to universal curr to populate univ_curr_amount column in izf_funds_utilized_all_b');
1305: ozf_utility_pvt.write_conc_log('***************************END******************************');
1306: END IF;
1307: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
1308: RAISE fnd_api.g_exc_unexpected_error;
1309: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
1536: -- 10/14/2003 update ozf_act_budgets REQUEST between fully accrual budget and its offer when accrual happens
1537: OPEN c_accrual_budget_reqeust(l_utilization_rec.fund_id, l_plan_id);
1538: FETCH c_accrual_budget_reqeust INTO l_act_budget_id, l_act_budget_objver;
1539: IF (c_accrual_budget_reqeust%NOTFOUND) THEN
1540: ozf_utility_pvt.write_conc_log (' D: create_utilized_rec() ERROR customer fully accrual budget. can not find approved budget request record between fund '
1541: || l_utilization_rec.fund_id || ' and offer ' || l_plan_id);
1542: CLOSE c_accrual_budget_reqeust;
1543: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_error) THEN
1544: fnd_message.set_name ('OZF', 'OZF_API_RECORD_NOT_FOUND');
1736:
1737: /* yzhao: 03/19/2003 post to GL when order is shipped. move to function post_accrual_to_gl */
1738:
1739: IF g_debug_flag = 'Y' THEN
1740: ozf_utility_pvt.write_conc_log( l_full_name
1741: || ': end' || l_event_id);
1742: END IF;
1743:
1744: fnd_msg_pub.count_and_get (
1835: BEGIN
1836: SAVEPOINT create_fund_utilization_acr;
1837: x_return_status := fnd_api.g_ret_sts_success;
1838: IF g_debug_flag = 'Y' THEN
1839: ozf_utility_pvt.write_conc_log (' D: Enter create_fund_utilization() ');
1840: END IF;
1841: l_act_util_rec.product_level_type := 'PRODUCT';
1842: IF l_act_util_rec.billto_cust_account_id IS NULL THEN
1843: -- customer id
1850: l_act_budgets_rec.transfer_type := 'UTILIZED';
1851: l_act_budgets_rec.request_date := SYSDATE;
1852: l_act_budgets_rec.status_code := 'APPROVED';
1853: l_act_budgets_rec.user_status_id :=
1854: ozf_utility_pvt.get_default_user_status (
1855: 'OZF_BUDGETSOURCE_STATUS',
1856: l_act_budgets_rec.status_code
1857: );
1858:
1855: 'OZF_BUDGETSOURCE_STATUS',
1856: l_act_budgets_rec.status_code
1857: );
1858:
1859: ozf_utility_pvt.write_conc_log (' l_act_budgets_rec.user_status_id '||l_act_budgets_rec.user_status_id);
1860: IF l_act_util_rec.org_id IS NULL THEN
1861: OPEN c_org_id( l_act_util_rec.object_id) ;
1862: FETCH c_org_id INTO l_act_util_rec.org_id;
1863: CLOSE c_org_id ;
1862: FETCH c_org_id INTO l_act_util_rec.org_id;
1863: CLOSE c_org_id ;
1864: END IF;
1865:
1866: ozf_utility_pvt.write_conc_log (' l_act_budgets_rec.org_id '||l_act_util_rec.org_id);
1867:
1868: --get the order's ledger id
1869: mo_utils.Get_Ledger_Info (p_operating_unit => l_act_util_rec.org_id
1870: ,p_ledger_id => l_ledger_id
1869: mo_utils.Get_Ledger_Info (p_operating_unit => l_act_util_rec.org_id
1870: ,p_ledger_id => l_ledger_id
1871: ,p_ledger_name => l_ledger_name);
1872:
1873: ozf_utility_pvt.write_conc_log (' l_ledger_id '||l_ledger_id);
1874: ozf_utility_pvt.write_conc_log (' l_ledger_name '|| l_ledger_name);
1875:
1876: create_actbudgets_rec (
1877: x_return_status =>x_return_status
1870: ,p_ledger_id => l_ledger_id
1871: ,p_ledger_name => l_ledger_name);
1872:
1873: ozf_utility_pvt.write_conc_log (' l_ledger_id '||l_ledger_id);
1874: ozf_utility_pvt.write_conc_log (' l_ledger_name '|| l_ledger_name);
1875:
1876: create_actbudgets_rec (
1877: x_return_status =>x_return_status
1878: ,x_msg_count =>x_msg_count
1883: ,p_org_id =>l_act_util_rec.org_id -- nirprasa added to get conversion type for bug 7030415
1884: );
1885:
1886: IF x_return_status <> fnd_api.g_ret_sts_success THEN
1887: ozf_utility_pvt.write_conc_log (': create Act Budgets Failed '||x_return_status);
1888: IF x_return_status = fnd_api.g_ret_sts_error THEN
1889: RAISE fnd_api.g_exc_error;
1890: ELSIF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
1891: RAISE fnd_api.g_exc_unexpected_error;
1903:
1904: x_utilization_id := l_utilization_id;
1905:
1906: IF x_return_status <>fnd_api.g_ret_sts_success THEN
1907: ozf_utility_pvt.write_conc_log (': create utilization Failed '||x_return_status);
1908: IF x_return_status = fnd_api.g_ret_sts_error THEN
1909: RAISE fnd_api.g_exc_error;
1910: ELSIF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
1911: RAISE fnd_api.g_exc_unexpected_error;
2034: BEGIN
2035: x_return_status := fnd_api.g_ret_sts_success;
2036:
2037: IF g_debug_flag = 'Y' THEN
2038: ozf_utility_pvt.write_conc_log(' D: Enter post_accrual_to_budget p_adj_amt_tbl count=' || p_adj_amt_tbl.count);
2039: END IF;
2040:
2041: FOR i IN p_adj_amt_tbl.FIRST .. p_adj_amt_tbl.LAST
2042: LOOP
2041: FOR i IN p_adj_amt_tbl.FIRST .. p_adj_amt_tbl.LAST
2042: LOOP
2043:
2044: IF g_debug_flag = 'Y' THEN
2045: ozf_utility_pvt.write_conc_log('D: Enter post_accrual_to_budget price_adj_id=' || p_adj_amt_tbl(i).price_adjustment_id ||
2046: ' amount=' || p_adj_amt_tbl(i).earned_amount);
2047: END IF;
2048:
2049: l_fund_amt_tbl.DELETE;
2062: x_fund_amt_tbl => l_fund_amt_tbl
2063: );
2064:
2065: IF g_debug_flag = 'Y' THEN
2066: ozf_utility_pvt.write_conc_log (' D: post_adjust_to_budget(): Calculate Accrual Amount returns' || l_return_status);
2067: END IF;
2068:
2069: IF l_return_status <> fnd_api.g_ret_sts_success THEN
2070: IF l_return_status = fnd_api.g_ret_sts_error THEN
2081: fnd_message.set_token ('OFFER_ID', p_adj_amt_tbl(i).qp_list_header_id);
2082: fnd_msg_pub.ADD;
2083: END IF;
2084: IF g_debug_flag = 'Y' THEN
2085: ozf_utility_pvt.write_conc_log(' D: post_adjust_to_budget() calculation for posting to budget failed. No posting to budget. RETURN');
2086: END IF;
2087: -- yzhao: 03/26/2003 should continue or error out?
2088: --RETURN;
2089: --kdass 24-MAR-2007 bug 5900966 - if no budget is attached to the offer, then move to process next record
2093: l_adj_amount := 0; -- in offer currency
2094: l_remaining_amount := p_adj_amt_tbl(i).earned_amount; -- in offer currency
2095:
2096: IF g_debug_flag = 'Y' THEN
2097: ozf_utility_pvt.write_conc_log (' D: post_adjust_to_budget() Begin loop l_remaining_amount '|| l_remaining_amount || ' l_adj amount ' || l_adj_amount);
2098: END IF;
2099:
2100: -- added by rimehrot for R12
2101: OPEN c_get_price_adj_dtl (p_adj_amt_tbl(i).price_adjustment_id);
2116: IF p_adj_amt_tbl(i).offer_currency = l_fund_amt_tbl (j).budget_currency THEN
2117: l_act_budgets_rec.parent_src_apprvd_amt :=l_adj_amount;
2118: ELSE
2119: IF g_debug_flag = 'Y' THEN
2120: ozf_utility_pvt.write_conc_log (' D: post_adjust_to_budget() In not equal currency');
2121: END IF;
2122:
2123: -- Added for bug 7030415, get the order's org_id to get the exchange rate.
2124:
2150: FETCH c_get_conversion_type INTO l_exchange_rate_type;
2151: CLOSE c_get_conversion_type;
2152:
2153: IF g_debug_flag = 'Y' THEN
2154: ozf_utility_pvt.write_conc_log('**************************START****************************');
2155: ozf_utility_pvt.write_conc_log('post_accrual_to_budget' ||' From Amount l_adj_amount: '||l_adj_amount );
2156: ozf_utility_pvt.write_conc_log('post_accrual_to_budget' ||' From Curr p_adj_amt_tbl(i).offer_currency: '||p_adj_amt_tbl(i).offer_currency );
2157: ozf_utility_pvt.write_conc_log('post_accrual_to_budget' ||' To Curr l_fund_amt_tbl (j).budget_currency: '|| l_fund_amt_tbl (j).budget_currency);
2158: ozf_utility_pvt.write_conc_log('post_accrual_to_budget' ||' l_exchange_rate_type: '|| l_exchange_rate_type);
2151: CLOSE c_get_conversion_type;
2152:
2153: IF g_debug_flag = 'Y' THEN
2154: ozf_utility_pvt.write_conc_log('**************************START****************************');
2155: ozf_utility_pvt.write_conc_log('post_accrual_to_budget' ||' From Amount l_adj_amount: '||l_adj_amount );
2156: ozf_utility_pvt.write_conc_log('post_accrual_to_budget' ||' From Curr p_adj_amt_tbl(i).offer_currency: '||p_adj_amt_tbl(i).offer_currency );
2157: ozf_utility_pvt.write_conc_log('post_accrual_to_budget' ||' To Curr l_fund_amt_tbl (j).budget_currency: '|| l_fund_amt_tbl (j).budget_currency);
2158: ozf_utility_pvt.write_conc_log('post_accrual_to_budget' ||' l_exchange_rate_type: '|| l_exchange_rate_type);
2159: END IF;
2152:
2153: IF g_debug_flag = 'Y' THEN
2154: ozf_utility_pvt.write_conc_log('**************************START****************************');
2155: ozf_utility_pvt.write_conc_log('post_accrual_to_budget' ||' From Amount l_adj_amount: '||l_adj_amount );
2156: ozf_utility_pvt.write_conc_log('post_accrual_to_budget' ||' From Curr p_adj_amt_tbl(i).offer_currency: '||p_adj_amt_tbl(i).offer_currency );
2157: ozf_utility_pvt.write_conc_log('post_accrual_to_budget' ||' To Curr l_fund_amt_tbl (j).budget_currency: '|| l_fund_amt_tbl (j).budget_currency);
2158: ozf_utility_pvt.write_conc_log('post_accrual_to_budget' ||' l_exchange_rate_type: '|| l_exchange_rate_type);
2159: END IF;
2160:
2153: IF g_debug_flag = 'Y' THEN
2154: ozf_utility_pvt.write_conc_log('**************************START****************************');
2155: ozf_utility_pvt.write_conc_log('post_accrual_to_budget' ||' From Amount l_adj_amount: '||l_adj_amount );
2156: ozf_utility_pvt.write_conc_log('post_accrual_to_budget' ||' From Curr p_adj_amt_tbl(i).offer_currency: '||p_adj_amt_tbl(i).offer_currency );
2157: ozf_utility_pvt.write_conc_log('post_accrual_to_budget' ||' To Curr l_fund_amt_tbl (j).budget_currency: '|| l_fund_amt_tbl (j).budget_currency);
2158: ozf_utility_pvt.write_conc_log('post_accrual_to_budget' ||' l_exchange_rate_type: '|| l_exchange_rate_type);
2159: END IF;
2160:
2161: ozf_utility_pvt.convert_currency (
2154: ozf_utility_pvt.write_conc_log('**************************START****************************');
2155: ozf_utility_pvt.write_conc_log('post_accrual_to_budget' ||' From Amount l_adj_amount: '||l_adj_amount );
2156: ozf_utility_pvt.write_conc_log('post_accrual_to_budget' ||' From Curr p_adj_amt_tbl(i).offer_currency: '||p_adj_amt_tbl(i).offer_currency );
2157: ozf_utility_pvt.write_conc_log('post_accrual_to_budget' ||' To Curr l_fund_amt_tbl (j).budget_currency: '|| l_fund_amt_tbl (j).budget_currency);
2158: ozf_utility_pvt.write_conc_log('post_accrual_to_budget' ||' l_exchange_rate_type: '|| l_exchange_rate_type);
2159: END IF;
2160:
2161: ozf_utility_pvt.convert_currency (
2162: x_return_status => l_return_status,
2157: ozf_utility_pvt.write_conc_log('post_accrual_to_budget' ||' To Curr l_fund_amt_tbl (j).budget_currency: '|| l_fund_amt_tbl (j).budget_currency);
2158: ozf_utility_pvt.write_conc_log('post_accrual_to_budget' ||' l_exchange_rate_type: '|| l_exchange_rate_type);
2159: END IF;
2160:
2161: ozf_utility_pvt.convert_currency (
2162: x_return_status => l_return_status,
2163: p_from_currency => p_adj_amt_tbl(i).offer_currency,
2164: p_to_currency => l_fund_amt_tbl (j).budget_currency,
2165: p_conv_type => l_exchange_rate_type, -- nirprasa added for bug 7030415
2168: x_rate => l_rate
2169: );
2170:
2171: IF g_debug_flag = 'Y' THEN
2172: ozf_utility_pvt.write_conc_log('post_accrual_to_budget' ||' Converted Amount l_converted_adj_amount: '|| l_converted_adj_amount);
2173: ozf_utility_pvt.write_conc_log('Adjustment amount is converted from offer curr to budgets curr to populate parent_src_apprvd_amt column in izf_act_budgets table and amount column of ozf_funds_utilized_all_b table');
2174: ozf_utility_pvt.write_conc_log('***************************END******************************');
2175: END IF;
2176:
2169: );
2170:
2171: IF g_debug_flag = 'Y' THEN
2172: ozf_utility_pvt.write_conc_log('post_accrual_to_budget' ||' Converted Amount l_converted_adj_amount: '|| l_converted_adj_amount);
2173: ozf_utility_pvt.write_conc_log('Adjustment amount is converted from offer curr to budgets curr to populate parent_src_apprvd_amt column in izf_act_budgets table and amount column of ozf_funds_utilized_all_b table');
2174: ozf_utility_pvt.write_conc_log('***************************END******************************');
2175: END IF;
2176:
2177: IF l_return_status <> fnd_api.g_ret_sts_success THEN
2170:
2171: IF g_debug_flag = 'Y' THEN
2172: ozf_utility_pvt.write_conc_log('post_accrual_to_budget' ||' Converted Amount l_converted_adj_amount: '|| l_converted_adj_amount);
2173: ozf_utility_pvt.write_conc_log('Adjustment amount is converted from offer curr to budgets curr to populate parent_src_apprvd_amt column in izf_act_budgets table and amount column of ozf_funds_utilized_all_b table');
2174: ozf_utility_pvt.write_conc_log('***************************END******************************');
2175: END IF;
2176:
2177: IF l_return_status <> fnd_api.g_ret_sts_success THEN
2178: IF g_debug_flag = 'Y' THEN
2175: END IF;
2176:
2177: IF l_return_status <> fnd_api.g_ret_sts_success THEN
2178: IF g_debug_flag = 'Y' THEN
2179: ozf_utility_pvt.write_conc_log (' D: post_adjust_to_budget() convert currency failed. No posting to budget. Return');
2180: END IF;
2181: RAISE fnd_api.g_exc_unexpected_error;
2182: END IF;
2183: l_act_budgets_rec.parent_src_apprvd_amt :=l_converted_adj_amount;
2183: l_act_budgets_rec.parent_src_apprvd_amt :=l_converted_adj_amount;
2184: END IF;
2185:
2186: IF g_debug_flag = 'Y' THEN
2187: ozf_utility_pvt.write_conc_log ( ' D: post_adjust_to_budget() Adj amount coverted ' || l_converted_adj_amount
2188: || ' l_adj amount ' || l_adj_amount );
2189: END IF;
2190:
2191: l_act_budgets_rec.budget_source_type := 'OFFR';
2227: x_msg_data => x_msg_data
2228: );
2229: IF l_return_status <> fnd_api.g_ret_sts_success THEN
2230: IF g_debug_flag = 'Y' THEN
2231: ozf_utility_pvt.write_conc_log ('D: post_adjust_to_budget() create_fund_utilization() returns error. Exception');
2232: END IF;
2233: RAISE fnd_api.g_exc_unexpected_error;
2234: END IF;
2235:
2235:
2236: <
2237:
2238: IF g_debug_flag = 'Y' THEN
2239: ozf_utility_pvt.write_conc_log ( ' D: post_adjust_to_budget() loop iteration end l_remaining_amount ' || l_remaining_amount
2240: || ' l_adj amount '|| l_adj_amount || ' fund_id '
2241: || l_fund_amt_tbl (j).ofr_src_id );
2242: END IF;
2243:
2246:
2247: <
2248:
2249: IF g_debug_flag = 'Y' THEN
2250: ozf_utility_pvt.write_conc_log('D: Ends successfully post_accrual_to_budget price_adj_id=' || p_adj_amt_tbl(i).price_adjustment_id
2251: || ' amount=' || p_adj_amt_tbl(i).earned_amount);
2252: END IF;
2253:
2254: END LOOP; -- p_adj_amt_tbl
2253:
2254: END LOOP; -- p_adj_amt_tbl
2255:
2256: IF g_debug_flag = 'Y' THEN
2257: ozf_utility_pvt.write_conc_log('D: Ends of post_accrual_to_budget');
2258: END IF;
2259:
2260: x_return_status := fnd_api.g_ret_sts_success;
2261:
2267:
2268: EXCEPTION
2269: WHEN OTHERS THEN
2270: x_return_status := fnd_api.g_ret_sts_unexp_error;
2271: ozf_utility_pvt.write_conc_log (' /**************UNEXPECTED EXCEPTION in ozf_accrual_engine.post_accrual_to_budget');
2272: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_unexp_error) THEN
2273: fnd_msg_pub.add_exc_msg ('ozf_accrual_engine', 'post_accrual_to_budget');
2274: END IF;
2275: fnd_msg_pub.count_and_get (
2441:
2442: <
2443:
2444: IF g_debug_flag = 'Y' THEN
2445: ozf_utility_pvt.write_conc_log (' D: Inside New Line Table Loop');
2446: END IF;
2447:
2448: l_adj_amt_tbl.DELETE;
2449:
2452: x_return_status := fnd_api.g_ret_sts_success;
2453: SAVEPOINT line_adjustment;
2454:
2455: IF g_debug_flag = 'Y' THEN
2456: ozf_utility_pvt.write_conc_log (' /++++++++ ADJUSTMENT DEBUG MESSAGE START +++++++++/' );
2457: ozf_utility_pvt.write_conc_log (' D: Begin Processing For Price Adjustment Id # '|| p_line_adj_tbl(i).price_adjustment_id );
2458: END IF;
2459:
2460: IF p_line_adj_tbl (i).list_line_type_code IN
2453: SAVEPOINT line_adjustment;
2454:
2455: IF g_debug_flag = 'Y' THEN
2456: ozf_utility_pvt.write_conc_log (' /++++++++ ADJUSTMENT DEBUG MESSAGE START +++++++++/' );
2457: ozf_utility_pvt.write_conc_log (' D: Begin Processing For Price Adjustment Id # '|| p_line_adj_tbl(i).price_adjustment_id );
2458: END IF;
2459:
2460: IF p_line_adj_tbl (i).list_line_type_code IN
2461: ('CIE', 'DIS', 'IUE', 'OID', 'PLL', 'PMR', 'TSN','PBH')
2468: -- check if it is a TM Offers
2469: IF c_tm_offer%NOTFOUND THEN
2470: CLOSE c_tm_offer;
2471: IF g_debug_flag = 'Y' THEN
2472: ozf_utility_pvt.write_conc_log('D not TM offer: offer id: ' || p_line_adj_tbl(i).list_header_id);
2473: END IF;
2474: GOTO l_endoflineadjloop;
2475: ELSE
2476: CLOSE c_tm_offer;
2481: l_cancelled_quantity := 0;
2482: l_earned_amount := 0;
2483:
2484: IF g_debug_flag = 'Y' THEN
2485: ozf_utility_pvt.write_conc_log (' D: Operation '|| p_line_adj_tbl (i).operation ||
2486: ' Order header id ' || p_line_adj_tbl (i).header_id || ' Line id ' || p_line_adj_tbl (i).line_id );
2487: END IF;
2488:
2489: OPEN c_line_info (p_line_adj_tbl (i).line_id);
2511: FETCH c_mod_level INTO l_modifier_level_code,l_range_break, l_new_adjustment_amount;
2512: CLOSE c_mod_level;
2513:
2514: IF g_debug_flag = 'Y' THEN
2515: ozf_utility_pvt.write_conc_log (' D: Modifier level code '|| l_modifier_level_code);
2516: END IF;
2517: END IF;
2518:
2519: IF g_debug_flag = 'Y' THEN
2516: END IF;
2517: END IF;
2518:
2519: IF g_debug_flag = 'Y' THEN
2520: ozf_utility_pvt.write_conc_log (
2521: ' D: Line quantity '|| l_line_quantity || ' Cancelled quantity ' || l_cancelled_quantity ||
2522: ' line_adj_tbl.adjusted_amount=' || l_new_adjustment_amount
2523: );
2524: END IF;
2539: CLOSE c_get_util;
2540:
2541: IF NVL(l_util_exists,0) = 1 THEN
2542: IF g_debug_flag = 'Y' THEN
2543: ozf_utility_pvt.write_conc_log('Manual re-pricing of order created before offer start date. No utilization.');
2544: END IF;
2545: GOTO l_endoflineadjloop;
2546: END IF;
2547:
2546: END IF;
2547:
2548: IF l_operation = 'CREATE' THEN
2549: IF g_debug_flag = 'Y' THEN
2550: ozf_utility_pvt.write_conc_log ('operation create');
2551: END IF;
2552:
2553: l_earned_amount := (-(NVL(l_new_adjustment_amount, 0))) * l_line_quantity;
2554:
2552:
2553: l_earned_amount := (-(NVL(l_new_adjustment_amount, 0))) * l_line_quantity;
2554:
2555: IF g_debug_flag = 'Y' THEN
2556: ozf_utility_pvt.write_conc_log(' D: adjust_accrual()_ create earned amount = ' || l_earned_amount);
2557: END IF;
2558:
2559: IF l_line_category_code = 'RETURN' THEN
2560: IF g_debug_flag = 'Y' THEN
2557: END IF;
2558:
2559: IF l_line_category_code = 'RETURN' THEN
2560: IF g_debug_flag = 'Y' THEN
2561: ozf_utility_pvt.write_conc_log ( ' LINE IS RETURN ');
2562: END IF;
2563: l_earned_amount := -l_earned_amount;
2564: END IF;
2565:
2575:
2576: --kdass 31-MAR-2006 bug 5101720 - convert from order currency to offer currency
2577: IF l_offer_curr <> l_order_curr THEN
2578:
2579: ozf_utility_pvt.write_conc_log('l_order_curr: ' || l_order_curr);
2580: ozf_utility_pvt.write_conc_log('l_offer_curr: ' || l_offer_curr);
2581: ozf_utility_pvt.write_conc_log('l_earned_amount: ' || l_earned_amount);
2582:
2583: IF g_debug_flag = 'Y' THEN
2576: --kdass 31-MAR-2006 bug 5101720 - convert from order currency to offer currency
2577: IF l_offer_curr <> l_order_curr THEN
2578:
2579: ozf_utility_pvt.write_conc_log('l_order_curr: ' || l_order_curr);
2580: ozf_utility_pvt.write_conc_log('l_offer_curr: ' || l_offer_curr);
2581: ozf_utility_pvt.write_conc_log('l_earned_amount: ' || l_earned_amount);
2582:
2583: IF g_debug_flag = 'Y' THEN
2584: ozf_utility_pvt.write_conc_log('l_order_org_id: ' || l_order_org_id);
2577: IF l_offer_curr <> l_order_curr THEN
2578:
2579: ozf_utility_pvt.write_conc_log('l_order_curr: ' || l_order_curr);
2580: ozf_utility_pvt.write_conc_log('l_offer_curr: ' || l_offer_curr);
2581: ozf_utility_pvt.write_conc_log('l_earned_amount: ' || l_earned_amount);
2582:
2583: IF g_debug_flag = 'Y' THEN
2584: ozf_utility_pvt.write_conc_log('l_order_org_id: ' || l_order_org_id);
2585: ozf_utility_pvt.write_conc_log('**************************START****************************');
2580: ozf_utility_pvt.write_conc_log('l_offer_curr: ' || l_offer_curr);
2581: ozf_utility_pvt.write_conc_log('l_earned_amount: ' || l_earned_amount);
2582:
2583: IF g_debug_flag = 'Y' THEN
2584: ozf_utility_pvt.write_conc_log('l_order_org_id: ' || l_order_org_id);
2585: ozf_utility_pvt.write_conc_log('**************************START****************************');
2586: ozf_utility_pvt.write_conc_log(l_api_name||' From Amount l_earned_amount: '||l_earned_amount );
2587: ozf_utility_pvt.write_conc_log(l_api_name||' From Curr l_order_curr: '||l_order_curr );
2588: ozf_utility_pvt.write_conc_log(l_api_name||' l_exchange_rate_type: '|| l_exchange_rate_type);
2581: ozf_utility_pvt.write_conc_log('l_earned_amount: ' || l_earned_amount);
2582:
2583: IF g_debug_flag = 'Y' THEN
2584: ozf_utility_pvt.write_conc_log('l_order_org_id: ' || l_order_org_id);
2585: ozf_utility_pvt.write_conc_log('**************************START****************************');
2586: ozf_utility_pvt.write_conc_log(l_api_name||' From Amount l_earned_amount: '||l_earned_amount );
2587: ozf_utility_pvt.write_conc_log(l_api_name||' From Curr l_order_curr: '||l_order_curr );
2588: ozf_utility_pvt.write_conc_log(l_api_name||' l_exchange_rate_type: '|| l_exchange_rate_type);
2589: END IF;
2582:
2583: IF g_debug_flag = 'Y' THEN
2584: ozf_utility_pvt.write_conc_log('l_order_org_id: ' || l_order_org_id);
2585: ozf_utility_pvt.write_conc_log('**************************START****************************');
2586: ozf_utility_pvt.write_conc_log(l_api_name||' From Amount l_earned_amount: '||l_earned_amount );
2587: ozf_utility_pvt.write_conc_log(l_api_name||' From Curr l_order_curr: '||l_order_curr );
2588: ozf_utility_pvt.write_conc_log(l_api_name||' l_exchange_rate_type: '|| l_exchange_rate_type);
2589: END IF;
2590:
2583: IF g_debug_flag = 'Y' THEN
2584: ozf_utility_pvt.write_conc_log('l_order_org_id: ' || l_order_org_id);
2585: ozf_utility_pvt.write_conc_log('**************************START****************************');
2586: ozf_utility_pvt.write_conc_log(l_api_name||' From Amount l_earned_amount: '||l_earned_amount );
2587: ozf_utility_pvt.write_conc_log(l_api_name||' From Curr l_order_curr: '||l_order_curr );
2588: ozf_utility_pvt.write_conc_log(l_api_name||' l_exchange_rate_type: '|| l_exchange_rate_type);
2589: END IF;
2590:
2591: ozf_utility_pvt.convert_currency (x_return_status => x_return_status
2584: ozf_utility_pvt.write_conc_log('l_order_org_id: ' || l_order_org_id);
2585: ozf_utility_pvt.write_conc_log('**************************START****************************');
2586: ozf_utility_pvt.write_conc_log(l_api_name||' From Amount l_earned_amount: '||l_earned_amount );
2587: ozf_utility_pvt.write_conc_log(l_api_name||' From Curr l_order_curr: '||l_order_curr );
2588: ozf_utility_pvt.write_conc_log(l_api_name||' l_exchange_rate_type: '|| l_exchange_rate_type);
2589: END IF;
2590:
2591: ozf_utility_pvt.convert_currency (x_return_status => x_return_status
2592: ,p_from_currency => l_order_curr
2587: ozf_utility_pvt.write_conc_log(l_api_name||' From Curr l_order_curr: '||l_order_curr );
2588: ozf_utility_pvt.write_conc_log(l_api_name||' l_exchange_rate_type: '|| l_exchange_rate_type);
2589: END IF;
2590:
2591: ozf_utility_pvt.convert_currency (x_return_status => x_return_status
2592: ,p_from_currency => l_order_curr
2593: ,p_to_currency => l_offer_curr
2594: ,p_conv_type => l_exchange_rate_type -- Added for bug 7030415
2595: ,p_from_amount => l_earned_amount
2597: ,x_rate => l_rate
2598: );
2599:
2600: IF g_debug_flag = 'Y' THEN
2601: ozf_utility_pvt.write_conc_log(l_api_name||' To Curr l_offer_curr: '|| l_offer_curr );
2602: ozf_utility_pvt.write_conc_log(l_api_name||' Converted Amount l_conv_earned_amount: '|| l_conv_earned_amount);
2603: ozf_utility_pvt.write_conc_log('Earned amount is converted from order curr to offer curr');
2604: ozf_utility_pvt.write_conc_log('***************************END******************************');
2605: ozf_utility_pvt.write_conc_log('x_return_status: ' || x_return_status);
2598: );
2599:
2600: IF g_debug_flag = 'Y' THEN
2601: ozf_utility_pvt.write_conc_log(l_api_name||' To Curr l_offer_curr: '|| l_offer_curr );
2602: ozf_utility_pvt.write_conc_log(l_api_name||' Converted Amount l_conv_earned_amount: '|| l_conv_earned_amount);
2603: ozf_utility_pvt.write_conc_log('Earned amount is converted from order curr to offer curr');
2604: ozf_utility_pvt.write_conc_log('***************************END******************************');
2605: ozf_utility_pvt.write_conc_log('x_return_status: ' || x_return_status);
2606: END IF;
2599:
2600: IF g_debug_flag = 'Y' THEN
2601: ozf_utility_pvt.write_conc_log(l_api_name||' To Curr l_offer_curr: '|| l_offer_curr );
2602: ozf_utility_pvt.write_conc_log(l_api_name||' Converted Amount l_conv_earned_amount: '|| l_conv_earned_amount);
2603: ozf_utility_pvt.write_conc_log('Earned amount is converted from order curr to offer curr');
2604: ozf_utility_pvt.write_conc_log('***************************END******************************');
2605: ozf_utility_pvt.write_conc_log('x_return_status: ' || x_return_status);
2606: END IF;
2607:
2600: IF g_debug_flag = 'Y' THEN
2601: ozf_utility_pvt.write_conc_log(l_api_name||' To Curr l_offer_curr: '|| l_offer_curr );
2602: ozf_utility_pvt.write_conc_log(l_api_name||' Converted Amount l_conv_earned_amount: '|| l_conv_earned_amount);
2603: ozf_utility_pvt.write_conc_log('Earned amount is converted from order curr to offer curr');
2604: ozf_utility_pvt.write_conc_log('***************************END******************************');
2605: ozf_utility_pvt.write_conc_log('x_return_status: ' || x_return_status);
2606: END IF;
2607:
2608: IF x_return_status <> fnd_api.g_ret_sts_success THEN
2601: ozf_utility_pvt.write_conc_log(l_api_name||' To Curr l_offer_curr: '|| l_offer_curr );
2602: ozf_utility_pvt.write_conc_log(l_api_name||' Converted Amount l_conv_earned_amount: '|| l_conv_earned_amount);
2603: ozf_utility_pvt.write_conc_log('Earned amount is converted from order curr to offer curr');
2604: ozf_utility_pvt.write_conc_log('***************************END******************************');
2605: ozf_utility_pvt.write_conc_log('x_return_status: ' || x_return_status);
2606: END IF;
2607:
2608: IF x_return_status <> fnd_api.g_ret_sts_success THEN
2609: GOTO l_endoflineadjloop;
2611:
2612: l_earned_amount := l_conv_earned_amount;
2613:
2614: IF g_debug_flag = 'Y' THEN
2615: ozf_utility_pvt.write_conc_log ('earned amt after currency conversion: ' || l_earned_amount);
2616: END IF;
2617: END IF;
2618:
2619: ELSIF l_operation = 'UPDATE' THEN
2617: END IF;
2618:
2619: ELSIF l_operation = 'UPDATE' THEN
2620: IF g_debug_flag = 'Y' THEN
2621: ozf_utility_pvt.write_conc_log ('operation UPDATE');
2622: END IF;
2623: -- if the old and the new is the same we donot need to update it \
2624: OPEN c_old_adjustment_amount (p_line_adj_tbl (i).price_adjustment_id);
2625: FETCH c_old_adjustment_amount INTO l_old_adjusted_amount; -- in order curr
2625: FETCH c_old_adjustment_amount INTO l_old_adjusted_amount; -- in order curr
2626: CLOSE c_old_adjustment_amount;
2627:
2628: IF g_debug_flag = 'Y' THEN
2629: ozf_utility_pvt.write_conc_log (
2630: ' D: Old adjsutment amount '
2631: || l_old_adjusted_amount
2632: || ' Old price adjustment id '
2633: || p_line_adj_tbl (i).price_adjustment_id
2636: -- if all the money coming in has been adjusted then set it to 0
2637: --5/2/2002 the ordered quantity is the actual ordered quantity and not the difference
2638: IF l_line_category_code = 'RETURN' THEN
2639: IF g_debug_flag = 'Y' THEN
2640: ozf_utility_pvt.write_conc_log ( ' LINE IS RETURN ');
2641: END IF;
2642: l_line_quantity := -l_line_quantity; -- fred should be cancelled qutity.
2643: END IF;
2644:
2645: l_new_adjustment_amount := (l_line_quantity )
2646: * (-(NVL (l_new_adjustment_amount, 0)));
2647:
2648: IF g_debug_flag = 'Y' THEN
2649: ozf_utility_pvt.write_conc_log(' D: adjust_accrual() l_new_adjustment_amount=' || l_new_adjustment_amount );
2650: END IF;
2651:
2652: --kdass 31-MAR-2006 bug 5101720 - convert from order currency to offer currency and the do rounding
2653: IF l_offer_curr <> l_order_curr THEN
2651:
2652: --kdass 31-MAR-2006 bug 5101720 - convert from order currency to offer currency and the do rounding
2653: IF l_offer_curr <> l_order_curr THEN
2654:
2655: ozf_utility_pvt.write_conc_log('l_order_curr: ' || l_order_curr);
2656: ozf_utility_pvt.write_conc_log('l_offer_curr: ' || l_offer_curr);
2657: ozf_utility_pvt.write_conc_log('l_new_adjustment_amount: ' || l_new_adjustment_amount);
2658:
2659: ozf_utility_pvt.convert_currency (x_return_status => x_return_status
2652: --kdass 31-MAR-2006 bug 5101720 - convert from order currency to offer currency and the do rounding
2653: IF l_offer_curr <> l_order_curr THEN
2654:
2655: ozf_utility_pvt.write_conc_log('l_order_curr: ' || l_order_curr);
2656: ozf_utility_pvt.write_conc_log('l_offer_curr: ' || l_offer_curr);
2657: ozf_utility_pvt.write_conc_log('l_new_adjustment_amount: ' || l_new_adjustment_amount);
2658:
2659: ozf_utility_pvt.convert_currency (x_return_status => x_return_status
2660: ,p_from_currency => l_order_curr
2653: IF l_offer_curr <> l_order_curr THEN
2654:
2655: ozf_utility_pvt.write_conc_log('l_order_curr: ' || l_order_curr);
2656: ozf_utility_pvt.write_conc_log('l_offer_curr: ' || l_offer_curr);
2657: ozf_utility_pvt.write_conc_log('l_new_adjustment_amount: ' || l_new_adjustment_amount);
2658:
2659: ozf_utility_pvt.convert_currency (x_return_status => x_return_status
2660: ,p_from_currency => l_order_curr
2661: ,p_to_currency => l_offer_curr
2655: ozf_utility_pvt.write_conc_log('l_order_curr: ' || l_order_curr);
2656: ozf_utility_pvt.write_conc_log('l_offer_curr: ' || l_offer_curr);
2657: ozf_utility_pvt.write_conc_log('l_new_adjustment_amount: ' || l_new_adjustment_amount);
2658:
2659: ozf_utility_pvt.convert_currency (x_return_status => x_return_status
2660: ,p_from_currency => l_order_curr
2661: ,p_to_currency => l_offer_curr
2662: ,p_conv_type => l_exchange_rate_type -- Added for bug 7030415
2663: ,p_from_amount => l_new_adjustment_amount
2664: ,x_to_amount => l_conv_adjustment_amount
2665: ,x_rate => l_rate
2666: );
2667:
2668: ozf_utility_pvt.write_conc_log('x_return_status: ' || x_return_status);
2669:
2670: IF x_return_status <> fnd_api.g_ret_sts_success THEN
2671: GOTO l_endoflineadjloop;
2672: END IF;
2673:
2674: l_new_adjustment_amount := l_conv_adjustment_amount;
2675:
2676: IF g_debug_flag = 'Y' THEN
2677: ozf_utility_pvt.write_conc_log ('new adjusted amt after currency conversion: ' || l_new_adjustment_amount);
2678: END IF;
2679: END IF;
2680:
2681: l_earned_amount := l_new_adjustment_amount - NVL(l_old_adjusted_amount,0);
2680:
2681: l_earned_amount := l_new_adjustment_amount - NVL(l_old_adjusted_amount,0);
2682:
2683: IF g_debug_flag = 'Y' THEN
2684: ozf_utility_pvt.write_conc_log (' D: Update earned amount '|| l_earned_amount);
2685: END IF;
2686:
2687: -- Changes by rimehrot (12/8/2004) for bug 3697213
2688: -- When order is re-priced and offer is removed from the order, a message with operation
2688: -- When order is re-priced and offer is removed from the order, a message with operation
2689: -- 'DELETE' is sent and the original accrual should be reverted in this case.
2690: ELSIF l_operation = 'DELETE' AND p_line_adj_tbl (i).price_adjustment_id IS NOT NULL THEN
2691: IF g_debug_flag = 'Y' THEN
2692: ozf_utility_pvt.write_conc_log ('operation DELETE');
2693: END IF;
2694:
2695: FOR old_adjustment_rec IN
2696: c_old_adjustment_amt (p_line_adj_tbl (i).price_adjustment_id)
2743: x_msg_data=> x_msg_data
2744: );
2745:
2746: IF g_debug_flag = 'Y' THEN
2747: ozf_utility_pvt.write_conc_log (
2748: 'create utlization from cancelled order returns '|| l_return_status
2749: );
2750: END IF;
2751:
2780: );
2781:
2782: -- do not raise exception for gl posting error. Just mark it as failed and deal with it later
2783: IF g_debug_flag = 'Y' THEN
2784: ozf_utility_pvt.write_conc_log(' D: adjust_changed_order() processing price adjustment id' || p_line_adj_tbl (i).line_id
2785: || ' post_accrual_to_gl(util_id=' || l_utilization_id ||
2786: ' gl_posted_flag' || l_gl_posted_flag || ') returns ' || l_return_status);
2787: END IF;
2788: END IF; -- end of gl_posted_flag in (Y, F)
2793: END IF; -- end if for mode
2794:
2795: --6373391
2796:
2797: ozf_utility_pvt.write_conc_log('NP line_id '||p_line_adj_tbl (i).line_id);
2798:
2799: OPEN c_split_line(p_line_adj_tbl (i).line_id);
2800: FETCH c_split_line INTO l_new_line_id;
2801: CLOSE c_split_line;
2799: OPEN c_split_line(p_line_adj_tbl (i).line_id);
2800: FETCH c_split_line INTO l_new_line_id;
2801: CLOSE c_split_line;
2802:
2803: ozf_utility_pvt.write_conc_log('NP l_new_line_id '||l_new_line_id);
2804:
2805:
2806: -- OM sometimes is not sending create message for new split line . So handle it in TM.
2807: -- and create accrual so that we get a rec in utilization table for split line
2808:
2809: IF NVL(l_earned_amount,0) = 0 AND p_line_adj_tbl (i).operation <> 'CREATE'
2810: AND NVL(l_new_line_id,0) = 0 THEN
2811: IF g_debug_flag = 'Y' THEN
2812: ozf_utility_pvt.write_conc_log(' D: adjust_accrual() earned amount = 0. No adjustment');
2813: END IF;
2814: GOTO l_endoflineadjloop;
2815: END IF;
2816:
2814: GOTO l_endoflineadjloop;
2815: END IF;
2816:
2817:
2818: ozf_utility_pvt.write_conc_log('NP LG P1 creating adjustment for '||l_new_line_id);
2819:
2820: IF g_debug_flag = 'Y' THEN
2821: ozf_utility_pvt.write_conc_log(' D: adjust_accrual() earned amount = ' || l_earned_amount);
2822: END IF;
2817:
2818: ozf_utility_pvt.write_conc_log('NP LG P1 creating adjustment for '||l_new_line_id);
2819:
2820: IF g_debug_flag = 'Y' THEN
2821: ozf_utility_pvt.write_conc_log(' D: adjust_accrual() earned amount = ' || l_earned_amount);
2822: END IF;
2823:
2824: l_count := l_count + 1;
2825: l_adj_amt_tbl (l_count).order_header_id := p_line_adj_tbl (i).header_id;
2826: l_adj_amt_tbl (l_count).order_line_id := p_line_adj_tbl (i).line_id;
2827: l_adj_amt_tbl (l_count).price_adjustment_id := p_line_adj_tbl (i).price_adjustment_id;
2828: l_adj_amt_tbl (l_count).qp_list_header_id:= p_line_adj_tbl (i).list_header_id;
2829: l_adj_amt_tbl (l_count).product_id := l_product_id;
2830: --l_adj_amt_tbl (l_count).earned_amount := ozf_utility_pvt.currround (l_earned_amount, l_order_curr);
2831: l_adj_amt_tbl (l_count).earned_amount := l_earned_amount;
2832: l_adj_amt_tbl (l_count).offer_currency:= l_offer_curr;
2833: END IF;
2834: <
2834: <
2835:
2836: IF x_return_status <> fnd_api.g_ret_sts_success THEN
2837: IF g_debug_flag = 'Y' THEN
2838: ozf_utility_pvt.write_conc_log (
2839: ' /****** Adjustment Failure *******/ Offer Id: "'|| p_line_adj_tbl(i).list_header_id ||'"' || 'Price Adjustment Id'||p_line_adj_tbl (i).price_adjustment_id);
2840: END IF;
2841: -- Initialize the Message list for Next Processing
2842: ROLLBACK TO line_adjustment;
2843: x_return_status := fnd_api.g_ret_sts_error ;
2844: EXIT;
2845: ELSE
2846: IF g_debug_flag = 'Y' THEN
2847: ozf_utility_pvt.write_conc_log(
2848: ' /****** Adjustment Success *******/ Offer Id: "'|| p_line_adj_tbl(i).list_header_id ||
2849: '"' || ' Price Adjustment Id "'||p_line_adj_tbl (i).price_Adjustment_id ||'"' );
2850: END IF;
2851: END IF;
2861: );
2862: END IF;
2863:
2864: IF g_debug_flag = 'Y' THEN
2865: ozf_utility_pvt.write_conc_log(' D: post_accrual_to_budget returns ' || l_return_status);
2866: END IF;
2867: x_return_status := l_return_status;
2868: fnd_msg_pub.count_and_get (
2869: p_count=> x_msg_count,
2874: EXCEPTION
2875: WHEN OTHERS THEN
2876: --ROLLBACK TO adjust_accrual;
2877: x_return_status := fnd_api.g_ret_sts_unexp_error;
2878: ozf_utility_pvt.write_conc_log(' /**************UNEXPECTED EXCEPTION in adjust_accrual *************/');
2879: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_unexp_error) THEN
2880: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
2881: END IF;
2882: fnd_msg_pub.count_and_get (
3232: x_return_status := fnd_api.g_ret_sts_success;
3233: <
3234:
3235: IF g_debug_flag = 'Y' THEN
3236: ozf_utility_pvt.write_conc_log (
3237: ' /*************************** DEBUG MESSAGE START for adjust_changed_line *************************/');
3238: END IF;
3239:
3240: FOR i IN NVL (p_line_tbl.FIRST, 1) .. NVL (p_line_tbl.LAST, 0)
3240: FOR i IN NVL (p_line_tbl.FIRST, 1) .. NVL (p_line_tbl.LAST, 0)
3241: LOOP
3242: savepoint line_adjustment;
3243: IF g_debug_flag = 'Y' THEN
3244: ozf_utility_pvt.write_conc_log (
3245: ' D: Begin Processing For Order Line '|| p_line_tbl(i).line_id || ' cancelled_flag=' || p_line_tbl (i).cancelled_flag
3246: );
3247: END IF;
3248:
3246: );
3247: END IF;
3248:
3249: IF g_debug_flag = 'Y' THEN
3250: ozf_utility_pvt.write_conc_log (' D: AQ info for order header_id=' || p_line_tbl(i).header_id
3251: -- || ' p_line_tbl(i).operation=' || p_line_tbl(i).operation
3252: || ' p_line_tbl(i).flow_status_code=' || p_line_tbl(i).flow_status_code
3253: || ' p_line_tbl(i).line_id=' || p_line_tbl(i).line_id
3254: || ' p_line_tbl(i).ordered_quantity=' || p_line_tbl(i).ordered_quantity
3255: || ' p_line_tbl(i).shipped_quantity=' || p_line_tbl(i).shipped_quantity
3256: || ' p_line_tbl(i).invoiced_quantity=' || p_line_tbl(i).invoiced_quantity
3257: || ' p_line_tbl(i).invoice_interface_status_code=' || p_line_tbl(i).invoice_interface_status_code
3258: || ' p_line_tbl(i).line_category_code=' || p_line_tbl(i).line_category_code );
3259: ozf_utility_pvt.write_conc_log (' D: AQ info for old order header_id=' || p_line_tbl(i).header_id
3260: -- || ' p_line_tbl(i).operation=' || p_line_tbl(i).operation
3261: || ' p_old_line_tbl(i).flow_status_code=' || p_old_line_tbl(i).flow_status_code
3262: || ' p_old_line_tbl(i).line_id=' || p_old_line_tbl(i).line_id
3263: || ' p_old_line_tbl(i).ordered_quantity=' || p_old_line_tbl(i).ordered_quantity
3321: x_msg_data=> x_msg_data
3322: );
3323:
3324: IF g_debug_flag = 'Y' THEN
3325: ozf_utility_pvt.write_conc_log (
3326: ' D: create utlization from cancelled order returns '|| l_return_status);
3327: END IF;
3328:
3329: IF l_return_status <> fnd_api.g_ret_sts_success THEN
3342: AND p_line_tbl (i).line_category_code ='RETURN'
3343: AND p_line_tbl(i).invoiced_quantity IS NOT NULL THEN
3344:
3345: IF g_debug_flag = 'Y' THEN
3346: ozf_utility_pvt.write_conc_log(' D: adjusted_changed_order: RMA with reference: ' || p_line_tbl(i).reference_line_id);
3347: END IF;
3348:
3349: OPEN c_orig_order_info (p_line_tbl (i).reference_line_id);
3350: FETCH c_orig_order_info INTO l_shipped_qty;
3358: l_adj_amount := old_adjustment_rec.amount * p_line_tbl(i).invoiced_quantity/ l_shipped_qty ;
3359: END IF;
3360:
3361: IF g_debug_flag = 'Y' THEN
3362: ozf_utility_pvt.write_conc_log(' D: adjusted_changed_order: RMA with reference: l_adj_amount ' || l_adj_amount);
3363: END IF;
3364:
3365: IF old_adjustment_rec.amount = 0 OR l_adj_amount = 0 THEN
3366: GOTO l_endofloop;
3403: x_msg_data=> x_msg_data
3404: );
3405:
3406: IF g_debug_flag = 'Y' THEN
3407: ozf_utility_pvt.write_conc_log (
3408: ' D: create utlization from RMA order: ' || l_return_status);
3409: END IF;
3410:
3411: IF l_return_status <> fnd_api.g_ret_sts_success THEN
3437: --AND p_line_tbl(i).flow_status_code = 'SHIPPED'
3438: THEN
3439:
3440: IF g_debug_flag = 'Y' THEN
3441: ozf_utility_pvt.write_conc_log(' D: adjusted_changed_order: partial shipment line(line_id=' || p_line_tbl(i).line_id || ')');
3442: END IF;
3443:
3444: OPEN c_order_info (p_line_tbl (i).header_id);
3445: FETCH c_order_info INTO l_order_status, l_order_booked_flag, l_order_curr,l_order_number,l_org_id;
3460: c_old_adjustment_amount(price_adjustment_rec.price_adjustment_id)
3461: LOOP
3462: -- adjust unshipped amount.
3463: IF g_debug_flag = 'Y' THEN
3464: ozf_utility_pvt.write_conc_log (' price_adjustment_rec.adjusted_amount: '|| price_adjustment_rec.adjusted_amount ||
3465: ' p_line_tbl(i).shipped_quantity: '|| p_line_tbl(i).shipped_quantity ||
3466: ' old_adjustment_rec.plan_curr_amount: '|| old_adjustment_rec.plan_curr_amount ||
3467: ' price_adjustment_rec.price_adjustment_id: '|| price_adjustment_rec.price_adjustment_id );
3468: END IF;
3484: END IF;
3485: END IF;
3486:
3487: IF g_debug_flag = 'Y' THEN
3488: ozf_utility_pvt.write_conc_log (' partial ship l_total: '|| l_total ||
3489: ' partial ship p_line_tbl(i).shipped_quantity : '|| p_line_tbl(i).shipped_quantity ||
3490: ' partial ship l_orig_adj_amount: '|| l_orig_adj_amount );
3491: END IF;
3492:
3489: ' partial ship p_line_tbl(i).shipped_quantity : '|| p_line_tbl(i).shipped_quantity ||
3490: ' partial ship l_orig_adj_amount: '|| l_orig_adj_amount );
3491: END IF;
3492:
3493: l_orig_adj_amount := ozf_utility_pvt.currround (
3494: l_orig_adj_amount ,
3495: l_order_curr
3496: ); -- in order currency(same as offer currency)
3497:
3495: l_order_curr
3496: ); -- in order currency(same as offer currency)
3497:
3498: IF l_order_curr <> old_adjustment_rec.currency_code THEN
3499: ozf_utility_pvt.convert_currency(x_return_status => l_return_status
3500: ,p_from_currency => l_order_curr
3501: ,p_to_currency => old_adjustment_rec.currency_code
3502: ,p_conv_type => old_adjustment_rec.exchange_rate_type --nirprasa Added for bug 7030415
3503: ,p_from_amount =>l_orig_adj_amount
3508: l_adj_amount := l_orig_adj_amount;
3509: END IF;
3510:
3511: IF g_debug_flag = 'Y' THEN
3512: ozf_utility_pvt.write_conc_log (' partial ship adj_amount: '|| l_adj_amount );
3513: END IF;
3514:
3515: IF NVL(l_adj_amount,0) = 0 THEN
3516: GOTO l_endoffloop;
3539: FETCH c_offer_currency INTO l_offer_curr;
3540: CLOSE c_offer_currency;
3541:
3542: IF l_order_curr <> l_offer_curr THEN
3543: ozf_utility_pvt.convert_currency(x_return_status => l_return_status
3544: ,p_from_currency => l_order_curr
3545: ,p_to_currency => l_offer_curr
3546: ,p_conv_type => old_adjustment_rec.exchange_rate_type --nirprasa Added for bug 7030415
3547: ,p_from_amount =>l_orig_adj_amount
3575: x_msg_count=> x_msg_count,
3576: x_msg_data=> x_msg_data
3577: );
3578: IF g_debug_flag = 'Y' THEN
3579: ozf_utility_pvt.write_conc_log (' retrun status for create _fund_utilization of '|| l_return_status ||
3580: ' when partial shipping. ' );
3581: END IF;
3582:
3583: IF l_return_status <> fnd_api.g_ret_sts_success THEN
3602: OPEN c_max_utilized_id(l_new_adj_id);
3603: FETCH c_max_utilized_id INTO l_util_rec.orig_utilization_id;
3604: CLOSE c_max_utilized_id;
3605: IF g_debug_flag = 'Y' THEN
3606: ozf_utility_pvt.write_conc_log ('create positive line for adjustment: '|| l_new_adj_id );
3607: END IF;
3608: l_act_budgets_rec.request_amount := -l_act_budgets_rec.request_amount;
3609: l_act_budgets_rec.parent_src_apprvd_amt := - l_act_budgets_rec.parent_src_apprvd_amt;
3610: l_util_rec.amount := -l_util_rec.amount;
3653: */
3654: l_gl_date := NULL;
3655:
3656: IF g_debug_flag = 'Y' THEN
3657: ozf_utility_pvt.write_conc_log (' D: profile to create gl entries is set to ' ||
3658: fnd_profile.VALUE ('OZF_ORDER_GLPOST_PHASE') || ' g_order_gl_phase=' || g_order_gl_phase);
3659: END IF;
3660:
3661: IF ( g_order_gl_phase = 'SHIPPED' AND p_line_tbl(i).line_category_code <> 'RETURN' AND
3669: l_sales_transaction_rec.quantity := p_line_tbl(i).shipped_quantity;
3670: l_sales_transaction_rec.transfer_type := 'IN';
3671:
3672: IF g_debug_flag = 'Y' THEN
3673: ozf_utility_pvt.write_conc_log(' D: adjust_changed_order() gl_date uses shipment date: ' || l_gl_date || ' for arrcual posting');
3674: END IF;
3675:
3676: END IF;
3677:
3690: IF l_gl_date IS NULL THEN
3691: -- yzhao: Jun 29, 2004 if accrual engine runs before auto-invoice completes, invoice record not created in ar table
3692: l_gl_date := sysdate;
3693: IF g_debug_flag = 'Y' THEN
3694: ozf_utility_pvt.write_conc_log(' D: adjust_changed_order() auto-invoice not complete. use sysdate for gl_date');
3695: END IF;
3696: END IF;
3697:
3698: l_sales_transaction_rec.quantity := p_line_tbl(i).invoiced_quantity;
3697:
3698: l_sales_transaction_rec.quantity := p_line_tbl(i).invoiced_quantity;
3699:
3700: IF g_debug_flag = 'Y' THEN
3701: ozf_utility_pvt.write_conc_log(' D: adjust_changed_order() gl_date uses invoice date: ' || l_gl_date || ' for arrcual posting');
3702: END IF;
3703: END IF;
3704: END IF;
3705:
3708: FETCH sales_transation_csr INTO l_sales_trans;
3709: CLOSE sales_transation_csr;
3710:
3711: IF g_debug_flag = 'Y' THEN
3712: ozf_utility_pvt.write_conc_log(' Create_Transaction: l_sales_trans: ' || l_sales_trans);
3713: END IF;
3714:
3715: IF NVL(l_sales_trans,0) <> 1 THEN
3716:
3741: l_sales_transaction_rec.transaction_date := l_gl_date;--l_volume_detail_rec.transaction_date
3742: l_sales_transaction_rec.org_id := l_org_id;
3743:
3744: IF g_debug_flag = 'Y' THEN
3745: ozf_utility_pvt.write_conc_log(' Create_Transaction' );
3746: END IF;
3747:
3748: OZF_SALES_TRANSACTIONS_PVT.Create_Transaction (
3749: p_api_version => 1.0
3757: ,x_msg_count => x_msg_count
3758: );
3759:
3760: IF g_debug_flag = 'Y' THEN
3761: ozf_utility_pvt.write_conc_log(' Create_Transaction' || l_return_status);
3762: END IF;
3763:
3764: IF l_return_status <> fnd_api.g_ret_sts_success THEN
3765: GOTO l_endoflineadjloop;
3797: );
3798:
3799: -- do not raise exception for gl posting error. Just mark it as failed and deal with it later
3800: IF g_debug_flag = 'Y' THEN
3801: ozf_utility_pvt.write_conc_log(' D: adjust_changed_order() processing invoiced/shipped line ' || p_line_tbl(i).line_id
3802: || ' post_accrual_to_gl(util_id=' || l_utilIdTbl(t_i) || ') returns ' || l_return_status
3803: || ' x_gl_posted_flag=' || l_gl_posted_flag);
3804: END IF;
3805: -- yzhao: 03/04/2004 post gl for related accruals from offer adjustment or object reconcile
3824: <
3825: IF l_return_status <> fnd_api.g_ret_sts_success THEN
3826: -- Write Relelvant Messages
3827: IF g_debug_flag = 'Y' THEN
3828: ozf_utility_pvt.write_conc_log (
3829: ' /*************************** DEBUG MESSAGE END *************************/' ||
3830: ' /****** Offer Adjustment For Line(id=' || p_line_tbl(i).line_id || ') failed with the following Errors *******/');
3831: END IF;
3832:
3830: ' /****** Offer Adjustment For Line(id=' || p_line_tbl(i).line_id || ') failed with the following Errors *******/');
3831: END IF;
3832:
3833: -- Dump All the MEssages from the Message list
3834: ozf_utility_pvt.write_conc_log;
3835: -- Initialize the Message list for NExt Processing
3836: fnd_msg_pub.initialize;
3837: ROLLBACK TO line_adjustment;
3838: -- return a status error
3841: -- go out of the loop because we put this message in the exception queue
3842: EXIT;
3843: ELSIF l_return_status = fnd_api.g_ret_sts_success THEN
3844: IF g_debug_flag = 'Y' THEN
3845: ozf_utility_pvt.write_conc_log (' /*************************** DEBUG MESSAGE END *********************/'||
3846: ' /****** Line Adjustment Success *******/ p_line_tbl(i).line_id ' || p_line_tbl(i).line_id );
3847: END IF;
3848: ELSE
3849: IF g_debug_flag = 'Y' THEN
3846: ' /****** Line Adjustment Success *******/ p_line_tbl(i).line_id ' || p_line_tbl(i).line_id );
3847: END IF;
3848: ELSE
3849: IF g_debug_flag = 'Y' THEN
3850: ozf_utility_pvt.write_conc_log ( ' D: Line Return Status ' ||l_return_status);
3851: END IF;
3852:
3853: END IF;
3854:
3863: EXCEPTION
3864: WHEN OTHERS THEN
3865: --ROLLBACK TO adjust_accrual;
3866: x_return_status := fnd_api.g_ret_sts_unexp_error;
3867: ozf_utility_pvt.write_conc_log (' /**************UNEXPECTED EXCEPTION*************/');
3868: ozf_utility_pvt.write_conc_log(' D: adjust_changed_order: exception. errcode=' || sqlcode || ' msg: ' || substr(sqlerrm, 1, 3000));
3869:
3870: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_unexp_error) THEN
3871: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
3864: WHEN OTHERS THEN
3865: --ROLLBACK TO adjust_accrual;
3866: x_return_status := fnd_api.g_ret_sts_unexp_error;
3867: ozf_utility_pvt.write_conc_log (' /**************UNEXPECTED EXCEPTION*************/');
3868: ozf_utility_pvt.write_conc_log(' D: adjust_changed_order: exception. errcode=' || sqlcode || ' msg: ' || substr(sqlerrm, 1, 3000));
3869:
3870: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_unexp_error) THEN
3871: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
3872: END IF;
3958: -- Queue savepoint for standard advanced queue error handling
3959: BEGIN
3960: SAVEPOINT get_message_loop_savepoint;
3961:
3962: ozf_utility_pvt.write_conc_log ('STARTING MESSAGE QUEUE');
3963:
3964: --
3965: -- Invoke Get_Mesage to dequeue queue payload and return Order data
3966: --
4003: --
4004: --///added by mpande to write a error message to the list
4005: --if not sucess add a error message to th emessage listx
4006: IF NOT (l_return_status = fnd_api.g_ret_sts_success) THEN
4007: ozf_utility_pvt.write_conc_log ('Queue Return Error ');
4008:
4009: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_error) THEN
4010: fnd_message.set_name ('OZF', 'OZF_FUND_ASO_ORD_FEEDBACK_FAIL');
4011: fnd_msg_pub.ADD;
4009: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_error) THEN
4010: fnd_message.set_name ('OZF', 'OZF_FUND_ASO_ORD_FEEDBACK_FAIL');
4011: fnd_msg_pub.ADD;
4012: END IF;
4013: ozf_utility_pvt.write_conc_log;
4014: RETURN;
4015: END IF;
4016: -- Check return status
4017: -- if success call adjust_accrual
4018: --
4019: IF l_return_status = fnd_api.g_ret_sts_success THEN
4020: IF (l_line_adj_tbl.COUNT <> 0) THEN
4021: IF g_debug_flag = 'Y' THEN
4022: ozf_utility_pvt.write_conc_log ('ADJUSTMENT ');
4023: END IF;
4024:
4025: adjust_accrual (
4026: p_api_version=> 1.0
4032: ,p_old_line_adj_tbl=> l_old_line_adj_tbl
4033: ,p_header_rec=> l_header_rec
4034: );
4035: IF g_debug_flag = 'Y' THEN
4036: ozf_utility_pvt.write_conc_log ( 'ADJUSTMENT STATUS ' || l_return_status);
4037: END IF;
4038: END IF;
4039: END IF;
4040: --l_return_status := fnd_api.g_ret_sts_success;
4040: --l_return_status := fnd_api.g_ret_sts_success;
4041: IF l_return_status = fnd_api.g_ret_sts_success THEN
4042: IF (l_line_tbl.COUNT <> 0) THEN
4043: IF g_debug_flag = 'Y' THEN
4044: ozf_utility_pvt.write_conc_log ('LINE');
4045: END IF;
4046: adjust_changed_order (
4047: p_api_version=> 1.0
4048: ,p_init_msg_list=> fnd_api.g_true
4054: ,p_line_tbl=> l_line_tbl
4055: ,p_old_line_tbl=> l_old_line_tbl
4056: );
4057: IF g_debug_flag = 'Y' THEN
4058: ozf_utility_pvt.write_conc_log ( 'LINE STATUS ' || l_return_status );
4059: END IF;
4060: END IF;
4061: END IF;
4062: -- Call to Volume Offer adjustment.
4062: -- Call to Volume Offer adjustment.
4063: --
4064:
4065: IF l_no_more_messages = 'T' THEN
4066: ozf_utility_pvt.write_conc_log ( 'NO MORE MESSAGES IN THE QUEUE ' || l_no_more_messages);
4067: END IF;
4068: --
4069: -- Check return status of functional process,
4070: -- rollback to undo processing
4071: -- if not success write the error message to the log file
4072:
4073: IF NOT (l_return_status = fnd_api.g_ret_sts_success) THEN
4074: --fnd_file.put_line(--fnd_file.log, 'before writinf concurrenct log '||l_return_status);
4075: ozf_utility_pvt.write_conc_log ('D: Error in one of the process');
4076:
4077: ROLLBACK TO get_message_loop_savepoint;
4078: x_retcode := 1;
4079: x_errbuf := l_msg_data;
4082: IF NOT (l_return_status = fnd_api.g_ret_sts_success) THEN
4083: /*Enqueue the failed message into the Order Feedback Exception Queue. This data
4084: can be dequeued subsequently by using the GET_EXCEPTION API */
4085: IF g_debug_flag = 'Y' THEN
4086: ozf_utility_pvt.write_conc_log ('In handle queue exception ');
4087: END IF;
4088: aso_order_feedback_pub.handle_exception (
4089: p_api_version=> 1.0,
4090: p_init_msg_list=> fnd_api.g_false,
4122: p_action_request_tbl=> l_action_request_tbl
4123: );
4124: END IF;
4125: -- Quit the procedure IF the queue is empty
4126: ozf_utility_pvt.write_conc_log (' /*************************** END OF QUEUE MESSAGE *************************/');
4127:
4128: EXIT WHEN l_return_status = fnd_api.g_ret_sts_unexp_error;
4129: EXIT WHEN l_no_more_messages = fnd_api.g_true;
4130: l_que_msg_count := l_que_msg_count + 1 ;
4134: END IF;
4135: EXCEPTION
4136: WHEN FND_API.G_EXC_ERROR THEN
4137: ROLLBACK TO get_message_loop_savepoint;
4138: ozf_utility_pvt.write_conc_log('FALIED');
4139: ozf_utility_pvt.write_conc_log;
4140:
4141: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4142: ROLLBACK TO get_message_loop_savepoint;
4135: EXCEPTION
4136: WHEN FND_API.G_EXC_ERROR THEN
4137: ROLLBACK TO get_message_loop_savepoint;
4138: ozf_utility_pvt.write_conc_log('FALIED');
4139: ozf_utility_pvt.write_conc_log;
4140:
4141: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4142: ROLLBACK TO get_message_loop_savepoint;
4143: ozf_utility_pvt.write_conc_log('FALIED');
4139: ozf_utility_pvt.write_conc_log;
4140:
4141: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4142: ROLLBACK TO get_message_loop_savepoint;
4143: ozf_utility_pvt.write_conc_log('FALIED');
4144: ozf_utility_pvt.write_conc_log;
4145:
4146: WHEN OTHERS THEN
4147: ROLLBACK TO get_message_loop_savepoint;
4140:
4141: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4142: ROLLBACK TO get_message_loop_savepoint;
4143: ozf_utility_pvt.write_conc_log('FALIED');
4144: ozf_utility_pvt.write_conc_log;
4145:
4146: WHEN OTHERS THEN
4147: ROLLBACK TO get_message_loop_savepoint;
4148: ozf_utility_pvt.write_conc_log('FAILED');
4144: ozf_utility_pvt.write_conc_log;
4145:
4146: WHEN OTHERS THEN
4147: ROLLBACK TO get_message_loop_savepoint;
4148: ozf_utility_pvt.write_conc_log('FAILED');
4149: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW) THEN
4150: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
4151: FND_MESSAGE.Set_Token('TEXT',sqlerrm);
4152: FND_MSG_PUB.Add;
4150: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
4151: FND_MESSAGE.Set_Token('TEXT',sqlerrm);
4152: FND_MSG_PUB.Add;
4153: END IF;
4154: ozf_utility_pvt.write_conc_log;
4155:
4156: END;
4157: END LOOP message_loop;
4158:
4155:
4156: END;
4157: END LOOP message_loop;
4158:
4159: ozf_utility_pvt.write_conc_log ('QUEUE PROCESSED '|| to_char(l_que_msg_count) || ' MESSAGES ');
4160: -- move except message from begining to last to fix issue for double creating accrual when same messsages
4161: -- in both exception queue and normal queue. by feliu on 12/30/2005
4162: IF p_run_exception = 'Y' THEN
4163:
4160: -- move except message from begining to last to fix issue for double creating accrual when same messsages
4161: -- in both exception queue and normal queue. by feliu on 12/30/2005
4162: IF p_run_exception = 'Y' THEN
4163:
4164: ozf_utility_pvt.write_conc_log ('START Exception Message ....... '|| x_retcode);
4165:
4166: ozf_utility_pvt.write_conc_log ('<====EXCEPTION QUEUE START TIME '||to_char( SYSDATE ,'DD/MM/RR HH:MI:SS A.M. ')||' ====>');
4167:
4168: get_exception_message(x_errbuf , x_retcode);
4162: IF p_run_exception = 'Y' THEN
4163:
4164: ozf_utility_pvt.write_conc_log ('START Exception Message ....... '|| x_retcode);
4165:
4166: ozf_utility_pvt.write_conc_log ('<====EXCEPTION QUEUE START TIME '||to_char( SYSDATE ,'DD/MM/RR HH:MI:SS A.M. ')||' ====>');
4167:
4168: get_exception_message(x_errbuf , x_retcode);
4169:
4170: ozf_utility_pvt.write_conc_log ('END Exception Message Return Code'|| x_retcode);
4166: ozf_utility_pvt.write_conc_log ('<====EXCEPTION QUEUE START TIME '||to_char( SYSDATE ,'DD/MM/RR HH:MI:SS A.M. ')||' ====>');
4167:
4168: get_exception_message(x_errbuf , x_retcode);
4169:
4170: ozf_utility_pvt.write_conc_log ('END Exception Message Return Code'|| x_retcode);
4171:
4172: ozf_utility_pvt.write_conc_log ('<====EXCEPTION QUEUE END TIME '||to_char( SYSDATE ,'DD/MM/RR HH:MI:SS A.M. ')||' ====>');
4173:
4174: END IF;
4168: get_exception_message(x_errbuf , x_retcode);
4169:
4170: ozf_utility_pvt.write_conc_log ('END Exception Message Return Code'|| x_retcode);
4171:
4172: ozf_utility_pvt.write_conc_log ('<====EXCEPTION QUEUE END TIME '||to_char( SYSDATE ,'DD/MM/RR HH:MI:SS A.M. ')||' ====>');
4173:
4174: END IF;
4175:
4176:
4175:
4176:
4177: EXCEPTION
4178: WHEN fnd_api.g_exc_error THEN
4179: ozf_utility_pvt.write_conc_log ('QUEUE PROCESSED ' ||to_char(l_que_msg_count) ||'MESSAGES' );
4180: x_retcode := 1;
4181: WHEN fnd_api.g_exc_unexpected_error THEN
4182: ozf_utility_pvt.write_conc_log ('QUEUE PROCESSED ' ||to_char(l_que_msg_count) || 'MESSAGES' );
4183: x_retcode := 1;
4178: WHEN fnd_api.g_exc_error THEN
4179: ozf_utility_pvt.write_conc_log ('QUEUE PROCESSED ' ||to_char(l_que_msg_count) ||'MESSAGES' );
4180: x_retcode := 1;
4181: WHEN fnd_api.g_exc_unexpected_error THEN
4182: ozf_utility_pvt.write_conc_log ('QUEUE PROCESSED ' ||to_char(l_que_msg_count) || 'MESSAGES' );
4183: x_retcode := 1;
4184: WHEN OTHERS THEN
4185: ozf_utility_pvt.write_conc_log ('QUEUE PROCESSED '|| to_char(l_que_msg_count) ||'MESSAGES' );
4186: x_retcode := 1;
4181: WHEN fnd_api.g_exc_unexpected_error THEN
4182: ozf_utility_pvt.write_conc_log ('QUEUE PROCESSED ' ||to_char(l_que_msg_count) || 'MESSAGES' );
4183: x_retcode := 1;
4184: WHEN OTHERS THEN
4185: ozf_utility_pvt.write_conc_log ('QUEUE PROCESSED '|| to_char(l_que_msg_count) ||'MESSAGES' );
4186: x_retcode := 1;
4187:
4188: END get_message;
4189: ------------------------------------------------------------------------------
4245: SAVEPOINT get_message_savepoint;
4246: -- dequeue the exception queue
4247: <
4248: LOOP
4249: ozf_utility_pvt.write_conc_log ('In Queue Exception ');
4250:
4251: -- Queue savepoint for standard advanced queue error handling
4252: BEGIN
4253: SAVEPOINT get_excep_loop_savepoint;
4291: x_old_lot_serial_tbl=> l_old_lot_serial_tbl,
4292: x_action_request_tbl=> l_action_request_tbl
4293: );
4294: --
4295: --ozf_utility_pvt.debug_message('l_return_status ='||l_return_status );
4296: --///added by mpande to write a error message to the list
4297: --if not sucess add a error message to th emessage list
4298: IF NOT (l_return_status = fnd_api.g_ret_sts_success) THEN
4299: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_error) THEN
4299: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_error) THEN
4300: fnd_message.set_name ('OZF', 'OZF_FUND_ASO_ORD_FEEDBACK_FAIL');
4301: fnd_msg_pub.ADD;
4302: END IF;
4303: ozf_utility_pvt.write_conc_log;
4304: RETURN;
4305: END IF;
4306: -- Check return status
4307: -- if success call adjust_accrual
4307: -- if success call adjust_accrual
4308: --
4309: IF l_return_status = fnd_api.g_ret_sts_success THEN
4310: IF (l_line_adj_tbl.COUNT <> 0) THEN
4311: ozf_utility_pvt.write_conc_log ('In get exception adjustment');
4312:
4313: adjust_accrual (
4314: p_api_version=> 1.0,
4315: p_init_msg_list=> fnd_api.g_true,
4320: p_old_line_adj_tbl=> l_old_line_adj_tbl,
4321: p_header_rec=> l_header_rec,
4322: p_exception_queue => fnd_api.g_true
4323: );
4324: ozf_utility_pvt.write_conc_log ('ADJUSTMENT EXCEPTION STATUS'||l_return_status);
4325:
4326: END IF;
4327: END IF;
4328: IF l_return_status = fnd_api.g_ret_sts_success THEN
4326: END IF;
4327: END IF;
4328: IF l_return_status = fnd_api.g_ret_sts_success THEN
4329: IF (l_line_tbl.COUNT <> 0) THEN
4330: ozf_utility_pvt.write_conc_log (' D: EXCEPTON QUEUE Start processing line');
4331:
4332: adjust_changed_order (
4333: p_api_version=> 1.0,
4334: p_init_msg_list=> fnd_api.g_true,
4339: p_old_header_rec=> l_old_header_rec,
4340: p_line_tbl=> l_line_tbl,
4341: p_old_line_tbl=> l_old_line_tbl
4342: );
4343: ozf_utility_pvt.write_conc_log (' D: EXCEPTION QUEUE PROCESSING LINE RETURNS STATUS'||l_return_status);
4344:
4345: END IF;
4346: END IF;
4347:
4345: END IF;
4346: END IF;
4347:
4348: IF l_no_more_messages = 'T' THEN
4349: ozf_utility_pvt.write_conc_log ( 'NO MORE MESSAGES IN THE QUEUE '
4350: || l_no_more_messages);
4351: END IF;
4352: -- write_conc_log;
4353: --
4407: l_navigation := DBMS_AQ.FIRST_MESSAGE ;
4408: COMMIT;
4409: x_retcode := 0;
4410: ELSE
4411: ozf_utility_pvt.write_conc_log;
4412: FND_MSG_PUB.INITIALIZE;
4413: END IF;
4414: EXCEPTION
4415: WHEN FND_API.G_EXC_ERROR THEN
4413: END IF;
4414: EXCEPTION
4415: WHEN FND_API.G_EXC_ERROR THEN
4416: ROLLBACK TO get_excep_loop_savepoint;
4417: ozf_utility_pvt.write_conc_log('FALIED');
4418: ozf_utility_pvt.write_conc_log;
4419:
4420: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4421: ROLLBACK TO get_excep_loop_savepoint;
4414: EXCEPTION
4415: WHEN FND_API.G_EXC_ERROR THEN
4416: ROLLBACK TO get_excep_loop_savepoint;
4417: ozf_utility_pvt.write_conc_log('FALIED');
4418: ozf_utility_pvt.write_conc_log;
4419:
4420: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4421: ROLLBACK TO get_excep_loop_savepoint;
4422: ozf_utility_pvt.write_conc_log('FALIED');
4418: ozf_utility_pvt.write_conc_log;
4419:
4420: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4421: ROLLBACK TO get_excep_loop_savepoint;
4422: ozf_utility_pvt.write_conc_log('FALIED');
4423: ozf_utility_pvt.write_conc_log;
4424:
4425: WHEN OTHERS THEN
4426: ROLLBACK TO get_excep_loop_savepoint;
4419:
4420: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4421: ROLLBACK TO get_excep_loop_savepoint;
4422: ozf_utility_pvt.write_conc_log('FALIED');
4423: ozf_utility_pvt.write_conc_log;
4424:
4425: WHEN OTHERS THEN
4426: ROLLBACK TO get_excep_loop_savepoint;
4427: ozf_utility_pvt.write_conc_log('FAILED');
4423: ozf_utility_pvt.write_conc_log;
4424:
4425: WHEN OTHERS THEN
4426: ROLLBACK TO get_excep_loop_savepoint;
4427: ozf_utility_pvt.write_conc_log('FAILED');
4428: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW) THEN
4429: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
4430: FND_MESSAGE.Set_Token('TEXT',sqlerrm);
4431: FND_MSG_PUB.Add;
4429: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
4430: FND_MESSAGE.Set_Token('TEXT',sqlerrm);
4431: FND_MSG_PUB.Add;
4432: END IF;
4433: ozf_utility_pvt.write_conc_log;
4434: END;
4435: END LOOP exception_loop;
4436: EXCEPTION
4437: WHEN fnd_api.g_exc_error THEN
4472: p_debug IN VARCHAR2 := 'N' ) IS
4473: BEGIN
4474: g_debug_flag := p_debug;
4475:
4476: ozf_utility_pvt.write_conc_log (' <===> ORDER MANAGEMENT ACCRUALS BEGIN <===>');
4477:
4478: ozf_utility_pvt.write_conc_log ('<====ORDER MANAGEMENT ACCRUALS BEGIN TIME '||to_char( SYSDATE ,'DD/MM/RR HH:MI:SS A.M. ')||' ====>');
4479:
4480: get_message( x_errbuf,
4474: g_debug_flag := p_debug;
4475:
4476: ozf_utility_pvt.write_conc_log (' <===> ORDER MANAGEMENT ACCRUALS BEGIN <===>');
4477:
4478: ozf_utility_pvt.write_conc_log ('<====ORDER MANAGEMENT ACCRUALS BEGIN TIME '||to_char( SYSDATE ,'DD/MM/RR HH:MI:SS A.M. ')||' ====>');
4479:
4480: get_message( x_errbuf,
4481: x_retcode,
4482: p_run_exception,
4481: x_retcode,
4482: p_run_exception,
4483: p_debug );
4484:
4485: ozf_utility_pvt.write_conc_log ('<====ORDER MANAGEMENT ACCRUALS END TIME '||to_char( SYSDATE ,'DD/MM/RR HH:MI:SS A.M. ')||' ====>');
4486:
4487: ozf_utility_pvt.write_conc_log (' x_retcode '||x_retcode||'x_errbuf'||x_errbuf);
4488:
4489: ozf_utility_pvt.write_conc_log ('<===> ORDER MANAGEMENT ACCRUALS END <===>');
4483: p_debug );
4484:
4485: ozf_utility_pvt.write_conc_log ('<====ORDER MANAGEMENT ACCRUALS END TIME '||to_char( SYSDATE ,'DD/MM/RR HH:MI:SS A.M. ')||' ====>');
4486:
4487: ozf_utility_pvt.write_conc_log (' x_retcode '||x_retcode||'x_errbuf'||x_errbuf);
4488:
4489: ozf_utility_pvt.write_conc_log ('<===> ORDER MANAGEMENT ACCRUALS END <===>');
4490:
4491: IF p_run_backdated_adjustment = 'Y' OR p_run_volume_off_adjustment = 'Y' THEN
4485: ozf_utility_pvt.write_conc_log ('<====ORDER MANAGEMENT ACCRUALS END TIME '||to_char( SYSDATE ,'DD/MM/RR HH:MI:SS A.M. ')||' ====>');
4486:
4487: ozf_utility_pvt.write_conc_log (' x_retcode '||x_retcode||'x_errbuf'||x_errbuf);
4488:
4489: ozf_utility_pvt.write_conc_log ('<===> ORDER MANAGEMENT ACCRUALS END <===>');
4490:
4491: IF p_run_backdated_adjustment = 'Y' OR p_run_volume_off_adjustment = 'Y' THEN
4492: ozf_utility_pvt.write_conc_log ('<===> BACKDATED ADJUSTMENT BEGIN <===>');
4493: ozf_utility_pvt.write_conc_log ('<====BACKDATED ADJUSTMENT BEGIN TIME '||to_char( SYSDATE ,'DD/MM/RR HH:MI:SS A.M. ')||' ====>');
4488:
4489: ozf_utility_pvt.write_conc_log ('<===> ORDER MANAGEMENT ACCRUALS END <===>');
4490:
4491: IF p_run_backdated_adjustment = 'Y' OR p_run_volume_off_adjustment = 'Y' THEN
4492: ozf_utility_pvt.write_conc_log ('<===> BACKDATED ADJUSTMENT BEGIN <===>');
4493: ozf_utility_pvt.write_conc_log ('<====BACKDATED ADJUSTMENT BEGIN TIME '||to_char( SYSDATE ,'DD/MM/RR HH:MI:SS A.M. ')||' ====>');
4494:
4495: -- start backdated Adjustment only
4496: ozf_adjustment_ext_pvt.adjust_backdated_offer(
4489: ozf_utility_pvt.write_conc_log ('<===> ORDER MANAGEMENT ACCRUALS END <===>');
4490:
4491: IF p_run_backdated_adjustment = 'Y' OR p_run_volume_off_adjustment = 'Y' THEN
4492: ozf_utility_pvt.write_conc_log ('<===> BACKDATED ADJUSTMENT BEGIN <===>');
4493: ozf_utility_pvt.write_conc_log ('<====BACKDATED ADJUSTMENT BEGIN TIME '||to_char( SYSDATE ,'DD/MM/RR HH:MI:SS A.M. ')||' ====>');
4494:
4495: -- start backdated Adjustment only
4496: ozf_adjustment_ext_pvt.adjust_backdated_offer(
4497: x_errbuf,
4496: ozf_adjustment_ext_pvt.adjust_backdated_offer(
4497: x_errbuf,
4498: x_retcode,
4499: p_debug );
4500: ozf_utility_pvt.write_conc_log ('<====BACKDATED ADJUSTMENT END TIME '||to_char( SYSDATE ,'DD/MM/RR HH:MI:SS A.M. ')||' ====>');
4501:
4502: ozf_utility_pvt.write_conc_log (' BACKDATE ADJUSTMENT x_retcode '||x_retcode||'x_errbuf'||x_errbuf);
4503:
4504: ozf_utility_pvt.write_conc_log ('<===> BACKDATED ADJUSTMENT END <===> ');
4498: x_retcode,
4499: p_debug );
4500: ozf_utility_pvt.write_conc_log ('<====BACKDATED ADJUSTMENT END TIME '||to_char( SYSDATE ,'DD/MM/RR HH:MI:SS A.M. ')||' ====>');
4501:
4502: ozf_utility_pvt.write_conc_log (' BACKDATE ADJUSTMENT x_retcode '||x_retcode||'x_errbuf'||x_errbuf);
4503:
4504: ozf_utility_pvt.write_conc_log ('<===> BACKDATED ADJUSTMENT END <===> ');
4505:
4506: END IF;
4500: ozf_utility_pvt.write_conc_log ('<====BACKDATED ADJUSTMENT END TIME '||to_char( SYSDATE ,'DD/MM/RR HH:MI:SS A.M. ')||' ====>');
4501:
4502: ozf_utility_pvt.write_conc_log (' BACKDATE ADJUSTMENT x_retcode '||x_retcode||'x_errbuf'||x_errbuf);
4503:
4504: ozf_utility_pvt.write_conc_log ('<===> BACKDATED ADJUSTMENT END <===> ');
4505:
4506: END IF;
4507:
4508: ozf_utility_pvt.write_conc_log ('<===> POST OFFINVOICE UTILIZATION TO GL BEGIN <===>');
4504: ozf_utility_pvt.write_conc_log ('<===> BACKDATED ADJUSTMENT END <===> ');
4505:
4506: END IF;
4507:
4508: ozf_utility_pvt.write_conc_log ('<===> POST OFFINVOICE UTILIZATION TO GL BEGIN <===>');
4509: ozf_utility_pvt.write_conc_log ('<====POST OFFINVOICE UTILIZATION TO GL BEGIN TIME '||to_char( SYSDATE ,'DD/MM/RR HH:MI:SS A.M. ')||' ====>');
4510:
4511: post_offinvoice_to_gl(x_errbuf, x_retcode);
4512:
4505:
4506: END IF;
4507:
4508: ozf_utility_pvt.write_conc_log ('<===> POST OFFINVOICE UTILIZATION TO GL BEGIN <===>');
4509: ozf_utility_pvt.write_conc_log ('<====POST OFFINVOICE UTILIZATION TO GL BEGIN TIME '||to_char( SYSDATE ,'DD/MM/RR HH:MI:SS A.M. ')||' ====>');
4510:
4511: post_offinvoice_to_gl(x_errbuf, x_retcode);
4512:
4513: ozf_utility_pvt.write_conc_log ('<====POST OFFINVOICE UTILIZATION TO GL END TIME '||to_char( SYSDATE ,'DD/MM/RR HH:MI:SS A.M. ')||' ====>');
4509: ozf_utility_pvt.write_conc_log ('<====POST OFFINVOICE UTILIZATION TO GL BEGIN TIME '||to_char( SYSDATE ,'DD/MM/RR HH:MI:SS A.M. ')||' ====>');
4510:
4511: post_offinvoice_to_gl(x_errbuf, x_retcode);
4512:
4513: ozf_utility_pvt.write_conc_log ('<====POST OFFINVOICE UTILIZATION TO GL END TIME '||to_char( SYSDATE ,'DD/MM/RR HH:MI:SS A.M. ')||' ====>');
4514: ozf_utility_pvt.write_conc_log ('<===> POST OFFINVOICE UTILIZATION TO GL END <===>');
4515:
4516: IF p_run_volume_off_adjustment = 'Y' THEN
4517: ozf_utility_pvt.write_conc_log ('<===> VOLUME OFFER ADJUSTMENT BEGIN <=== >');
4510:
4511: post_offinvoice_to_gl(x_errbuf, x_retcode);
4512:
4513: ozf_utility_pvt.write_conc_log ('<====POST OFFINVOICE UTILIZATION TO GL END TIME '||to_char( SYSDATE ,'DD/MM/RR HH:MI:SS A.M. ')||' ====>');
4514: ozf_utility_pvt.write_conc_log ('<===> POST OFFINVOICE UTILIZATION TO GL END <===>');
4515:
4516: IF p_run_volume_off_adjustment = 'Y' THEN
4517: ozf_utility_pvt.write_conc_log ('<===> VOLUME OFFER ADJUSTMENT BEGIN <=== >');
4518: ozf_utility_pvt.write_conc_log ('<====VOLUME OFFER ADJUSTMENT BEGIN TIME '||to_char( SYSDATE ,'DD/MM/RR HH:MI:SS A.M. ')||' ====>');
4513: ozf_utility_pvt.write_conc_log ('<====POST OFFINVOICE UTILIZATION TO GL END TIME '||to_char( SYSDATE ,'DD/MM/RR HH:MI:SS A.M. ')||' ====>');
4514: ozf_utility_pvt.write_conc_log ('<===> POST OFFINVOICE UTILIZATION TO GL END <===>');
4515:
4516: IF p_run_volume_off_adjustment = 'Y' THEN
4517: ozf_utility_pvt.write_conc_log ('<===> VOLUME OFFER ADJUSTMENT BEGIN <=== >');
4518: ozf_utility_pvt.write_conc_log ('<====VOLUME OFFER ADJUSTMENT BEGIN TIME '||to_char( SYSDATE ,'DD/MM/RR HH:MI:SS A.M. ')||' ====>');
4519:
4520: ozf_adjustment_ext_pvt.adjust_volume_offer(
4521: x_errbuf,
4514: ozf_utility_pvt.write_conc_log ('<===> POST OFFINVOICE UTILIZATION TO GL END <===>');
4515:
4516: IF p_run_volume_off_adjustment = 'Y' THEN
4517: ozf_utility_pvt.write_conc_log ('<===> VOLUME OFFER ADJUSTMENT BEGIN <=== >');
4518: ozf_utility_pvt.write_conc_log ('<====VOLUME OFFER ADJUSTMENT BEGIN TIME '||to_char( SYSDATE ,'DD/MM/RR HH:MI:SS A.M. ')||' ====>');
4519:
4520: ozf_adjustment_ext_pvt.adjust_volume_offer(
4521: x_errbuf,
4522: x_retcode,
4520: ozf_adjustment_ext_pvt.adjust_volume_offer(
4521: x_errbuf,
4522: x_retcode,
4523: p_debug);
4524: ozf_utility_pvt.write_conc_log ('<====VOLUME OFFER ADJUSTMENT END TIME '||to_char( SYSDATE ,'DD/MM/RR HH:MI:SS A.M. ')||' ====>');
4525: ozf_utility_pvt.write_conc_log (' x_retcode '||x_retcode||'x_errbuf'||x_errbuf);
4526:
4527: ozf_utility_pvt.write_conc_log ('<===> VOLUME OFFER ADJUSTMENT END <===>');
4528: END IF;
4521: x_errbuf,
4522: x_retcode,
4523: p_debug);
4524: ozf_utility_pvt.write_conc_log ('<====VOLUME OFFER ADJUSTMENT END TIME '||to_char( SYSDATE ,'DD/MM/RR HH:MI:SS A.M. ')||' ====>');
4525: ozf_utility_pvt.write_conc_log (' x_retcode '||x_retcode||'x_errbuf'||x_errbuf);
4526:
4527: ozf_utility_pvt.write_conc_log ('<===> VOLUME OFFER ADJUSTMENT END <===>');
4528: END IF;
4529:
4523: p_debug);
4524: ozf_utility_pvt.write_conc_log ('<====VOLUME OFFER ADJUSTMENT END TIME '||to_char( SYSDATE ,'DD/MM/RR HH:MI:SS A.M. ')||' ====>');
4525: ozf_utility_pvt.write_conc_log (' x_retcode '||x_retcode||'x_errbuf'||x_errbuf);
4526:
4527: ozf_utility_pvt.write_conc_log ('<===> VOLUME OFFER ADJUSTMENT END <===>');
4528: END IF;
4529:
4530: IF p_run_unposted_gl = 'Y' THEN
4531: ozf_utility_pvt.write_conc_log ('<===> REPROCESS ALL FAILED GL POSTING BEGIN <=== >');
4527: ozf_utility_pvt.write_conc_log ('<===> VOLUME OFFER ADJUSTMENT END <===>');
4528: END IF;
4529:
4530: IF p_run_unposted_gl = 'Y' THEN
4531: ozf_utility_pvt.write_conc_log ('<===> REPROCESS ALL FAILED GL POSTING BEGIN <=== >');
4532: ozf_utility_pvt.write_conc_log ('<====REPROCESS ALL FAILED GL POSTING BEGIN TIME '||to_char( SYSDATE ,'DD/MM/RR HH:MI:SS A.M. ')||' ====>');
4533:
4534: reprocess_failed_gl_posting(
4535: x_errbuf,
4528: END IF;
4529:
4530: IF p_run_unposted_gl = 'Y' THEN
4531: ozf_utility_pvt.write_conc_log ('<===> REPROCESS ALL FAILED GL POSTING BEGIN <=== >');
4532: ozf_utility_pvt.write_conc_log ('<====REPROCESS ALL FAILED GL POSTING BEGIN TIME '||to_char( SYSDATE ,'DD/MM/RR HH:MI:SS A.M. ')||' ====>');
4533:
4534: reprocess_failed_gl_posting(
4535: x_errbuf,
4536: x_retcode);
4533:
4534: reprocess_failed_gl_posting(
4535: x_errbuf,
4536: x_retcode);
4537: ozf_utility_pvt.write_conc_log ('<====REPROCESS ALL FAILED GL POSTING END TIME '||to_char( SYSDATE ,'DD/MM/RR HH:MI:SS A.M. ')||' ====>');
4538:
4539: ozf_utility_pvt.write_conc_log (' REPROCESS_FAILED_GL_POSTING x_retcode='||x_retcode||' x_errbuf='||x_errbuf);
4540: ozf_utility_pvt.write_conc_log ('<===> REPROCESS ALL FAILED GL POSTING END <===>');
4541:
4535: x_errbuf,
4536: x_retcode);
4537: ozf_utility_pvt.write_conc_log ('<====REPROCESS ALL FAILED GL POSTING END TIME '||to_char( SYSDATE ,'DD/MM/RR HH:MI:SS A.M. ')||' ====>');
4538:
4539: ozf_utility_pvt.write_conc_log (' REPROCESS_FAILED_GL_POSTING x_retcode='||x_retcode||' x_errbuf='||x_errbuf);
4540: ozf_utility_pvt.write_conc_log ('<===> REPROCESS ALL FAILED GL POSTING END <===>');
4541:
4542: END IF;
4543:
4536: x_retcode);
4537: ozf_utility_pvt.write_conc_log ('<====REPROCESS ALL FAILED GL POSTING END TIME '||to_char( SYSDATE ,'DD/MM/RR HH:MI:SS A.M. ')||' ====>');
4538:
4539: ozf_utility_pvt.write_conc_log (' REPROCESS_FAILED_GL_POSTING x_retcode='||x_retcode||' x_errbuf='||x_errbuf);
4540: ozf_utility_pvt.write_conc_log ('<===> REPROCESS ALL FAILED GL POSTING END <===>');
4541:
4542: END IF;
4543:
4544:
4647: BEGIN
4648: SAVEPOINT post_accrual_to_gl_sp;
4649:
4650: IF g_debug_flag = 'Y' THEN
4651: ozf_utility_pvt.write_conc_log (' D: post_accrual_to_gl() BEGIN posting to GL for utilization id ' ||
4652: p_util_utilization_id ||
4653: ' object_version_number=' || p_util_object_version_number ||
4654: ' amount=' || p_util_amount ||
4655: ' plan_type=' || p_util_plan_type ||
4713: , x_event_id => l_event_id
4714: );
4715:
4716: IF g_debug_flag = 'Y' THEN
4717: ozf_utility_pvt.write_conc_log (' D: post_accrual_to_gl() create_gl_entry for utilization id '
4718: || p_util_utilization_id || ' returns ' || l_return_status);
4719: END IF;
4720:
4721: IF l_return_status = fnd_api.g_ret_sts_success THEN
4728: p_count => x_msg_count,
4729: p_data => x_msg_data,
4730: p_encoded => fnd_api.g_false
4731: );
4732: ozf_utility_pvt.write_conc_log(' /****** Failed to post to GL ******/ for utilization id ' || p_util_utilization_id);
4733:
4734: ozf_utility_pvt.write_conc_log;
4735: fnd_msg_pub.initialize;
4736: END IF;
4730: p_encoded => fnd_api.g_false
4731: );
4732: ozf_utility_pvt.write_conc_log(' /****** Failed to post to GL ******/ for utilization id ' || p_util_utilization_id);
4733:
4734: ozf_utility_pvt.write_conc_log;
4735: fnd_msg_pub.initialize;
4736: END IF;
4737:
4738: END IF; --l_gl_posted_flag = G_GL_FLAG_NO
4763: FETCH c_get_conversion_type INTO l_exchange_rate_type;
4764: CLOSE c_get_conversion_type;
4765:
4766: IF g_debug_flag = 'Y' THEN
4767: ozf_utility_pvt.write_conc_log('**************************START****************************');
4768: ozf_utility_pvt.write_conc_log('post_accrual_to_gl' ||' From Amount p_util_amount: '||p_util_amount );
4769: ozf_utility_pvt.write_conc_log('post_accrual_to_gl' ||' From Curr l_currency_code: '||l_currency_code );
4770: ozf_utility_pvt.write_conc_log('post_accrual_to_gl' ||' To Curr g_universal_currency: '|| g_universal_currency);
4771: --ozf_utility_pvt.write_conc_log('post_accrual_to_gl' ||' l_exchange_rate_type: '|| l_exchange_rate_type);
4764: CLOSE c_get_conversion_type;
4765:
4766: IF g_debug_flag = 'Y' THEN
4767: ozf_utility_pvt.write_conc_log('**************************START****************************');
4768: ozf_utility_pvt.write_conc_log('post_accrual_to_gl' ||' From Amount p_util_amount: '||p_util_amount );
4769: ozf_utility_pvt.write_conc_log('post_accrual_to_gl' ||' From Curr l_currency_code: '||l_currency_code );
4770: ozf_utility_pvt.write_conc_log('post_accrual_to_gl' ||' To Curr g_universal_currency: '|| g_universal_currency);
4771: --ozf_utility_pvt.write_conc_log('post_accrual_to_gl' ||' l_exchange_rate_type: '|| l_exchange_rate_type);
4772: END IF;
4765:
4766: IF g_debug_flag = 'Y' THEN
4767: ozf_utility_pvt.write_conc_log('**************************START****************************');
4768: ozf_utility_pvt.write_conc_log('post_accrual_to_gl' ||' From Amount p_util_amount: '||p_util_amount );
4769: ozf_utility_pvt.write_conc_log('post_accrual_to_gl' ||' From Curr l_currency_code: '||l_currency_code );
4770: ozf_utility_pvt.write_conc_log('post_accrual_to_gl' ||' To Curr g_universal_currency: '|| g_universal_currency);
4771: --ozf_utility_pvt.write_conc_log('post_accrual_to_gl' ||' l_exchange_rate_type: '|| l_exchange_rate_type);
4772: END IF;
4773:
4766: IF g_debug_flag = 'Y' THEN
4767: ozf_utility_pvt.write_conc_log('**************************START****************************');
4768: ozf_utility_pvt.write_conc_log('post_accrual_to_gl' ||' From Amount p_util_amount: '||p_util_amount );
4769: ozf_utility_pvt.write_conc_log('post_accrual_to_gl' ||' From Curr l_currency_code: '||l_currency_code );
4770: ozf_utility_pvt.write_conc_log('post_accrual_to_gl' ||' To Curr g_universal_currency: '|| g_universal_currency);
4771: --ozf_utility_pvt.write_conc_log('post_accrual_to_gl' ||' l_exchange_rate_type: '|| l_exchange_rate_type);
4772: END IF;
4773:
4774: ozf_utility_pvt.convert_currency(
4767: ozf_utility_pvt.write_conc_log('**************************START****************************');
4768: ozf_utility_pvt.write_conc_log('post_accrual_to_gl' ||' From Amount p_util_amount: '||p_util_amount );
4769: ozf_utility_pvt.write_conc_log('post_accrual_to_gl' ||' From Curr l_currency_code: '||l_currency_code );
4770: ozf_utility_pvt.write_conc_log('post_accrual_to_gl' ||' To Curr g_universal_currency: '|| g_universal_currency);
4771: --ozf_utility_pvt.write_conc_log('post_accrual_to_gl' ||' l_exchange_rate_type: '|| l_exchange_rate_type);
4772: END IF;
4773:
4774: ozf_utility_pvt.convert_currency(
4775: x_return_status => l_return_status
4770: ozf_utility_pvt.write_conc_log('post_accrual_to_gl' ||' To Curr g_universal_currency: '|| g_universal_currency);
4771: --ozf_utility_pvt.write_conc_log('post_accrual_to_gl' ||' l_exchange_rate_type: '|| l_exchange_rate_type);
4772: END IF;
4773:
4774: ozf_utility_pvt.convert_currency(
4775: x_return_status => l_return_status
4776: ,p_from_currency => l_currency_code
4777: ,p_to_currency => g_universal_currency
4778: ,p_conv_type => l_exchange_rate_type
4780: ,x_to_amount => l_new_univ_amt
4781: ,x_rate => l_rate);
4782:
4783: IF g_debug_flag = 'Y' THEN
4784: ozf_utility_pvt.write_conc_log('post_accrual_to_gl' ||' Converted Amount l_new_univ_amt: '|| l_new_univ_amt);
4785: ozf_utility_pvt.write_conc_log('Utilization amount is converted from fund curr to universal curr');
4786: ozf_utility_pvt.write_conc_log('***************************END******************************');
4787: END IF;
4788:
4781: ,x_rate => l_rate);
4782:
4783: IF g_debug_flag = 'Y' THEN
4784: ozf_utility_pvt.write_conc_log('post_accrual_to_gl' ||' Converted Amount l_new_univ_amt: '|| l_new_univ_amt);
4785: ozf_utility_pvt.write_conc_log('Utilization amount is converted from fund curr to universal curr');
4786: ozf_utility_pvt.write_conc_log('***************************END******************************');
4787: END IF;
4788:
4789: IF l_return_status = fnd_api.g_ret_sts_error THEN
4782:
4783: IF g_debug_flag = 'Y' THEN
4784: ozf_utility_pvt.write_conc_log('post_accrual_to_gl' ||' Converted Amount l_new_univ_amt: '|| l_new_univ_amt);
4785: ozf_utility_pvt.write_conc_log('Utilization amount is converted from fund curr to universal curr');
4786: ozf_utility_pvt.write_conc_log('***************************END******************************');
4787: END IF;
4788:
4789: IF l_return_status = fnd_api.g_ret_sts_error THEN
4790: RAISE fnd_api.g_exc_error;
4898: x_gl_posted_flag := l_gl_posted_flag;
4899: x_return_status := fnd_api.g_ret_sts_success;
4900:
4901: IF g_debug_flag = 'Y' THEN
4902: ozf_utility_pvt.write_conc_log (' D: post_accrual_to_gl() ENDs for utilization id ' || p_util_utilization_id
4903: || ' final gl_posted_flag=' || x_gl_posted_flag);
4904: END IF;
4905:
4906: EXCEPTION
4905:
4906: EXCEPTION
4907: WHEN OTHERS THEN
4908: ROLLBACK TO post_accrual_to_gl_sp;
4909: ozf_utility_pvt.write_conc_log(' D: post_accrual_to_gl(): exception ');
4910: x_return_status := fnd_api.g_ret_sts_unexp_error;
4911: fnd_msg_pub.count_and_get (
4912: p_count => x_msg_count,
4913: p_data => x_msg_data,
4954: AND gl_posted_flag = G_GL_FLAG_FAIL; -- 'F';
4955:
4956: BEGIN
4957: IF g_debug_flag = 'Y' THEN
4958: ozf_utility_pvt.write_conc_log (' D: Begin posting to GL for all failed postings');
4959: END IF;
4960:
4961: OPEN c_get_failed_gl_posting;
4962: LOOP
4982: );
4983:
4984: IF l_return_status <> fnd_api.g_ret_sts_success THEN
4985: -- failed again. Leave as it is.
4986: ozf_utility_pvt.write_conc_log(' /****** Failed to post to GL ******/ for utilization id ' || l_utilIdTbl(i));
4987: ELSE
4988: IF g_debug_flag = 'Y' THEN
4989: ozf_utility_pvt.write_conc_log (' D: successfully posted to GL for utilization id ' || l_utilIdTbl(i)
4990: || ' x_gl_posted_flag=' || l_gl_posted_flag);
4985: -- failed again. Leave as it is.
4986: ozf_utility_pvt.write_conc_log(' /****** Failed to post to GL ******/ for utilization id ' || l_utilIdTbl(i));
4987: ELSE
4988: IF g_debug_flag = 'Y' THEN
4989: ozf_utility_pvt.write_conc_log (' D: successfully posted to GL for utilization id ' || l_utilIdTbl(i)
4990: || ' x_gl_posted_flag=' || l_gl_posted_flag);
4991: END IF;
4992:
4993: -- yzhao: 03/04/2004 post gl for related accruals from offer adjustment or object reconcile
5009: CLOSE c_get_failed_gl_posting;
5010:
5011: x_retcode := 0;
5012: IF g_debug_flag = 'Y' THEN
5013: ozf_utility_pvt.write_conc_log (' D: End successfully posting to GL for all failed postings');
5014: END IF;
5015:
5016: EXCEPTION
5017: WHEN OTHERS THEN
5015:
5016: EXCEPTION
5017: WHEN OTHERS THEN
5018: x_retcode := 1;
5019: ozf_utility_pvt.write_conc_log(' /****** Failed to post to GL - exception ' || sqlcode || ' ******/' );
5020: END reprocess_failed_gl_posting;
5021:
5022:
5023: ------------------------------------------------------------------------------
5089: x_retcode := 0;
5090: SAVEPOINT post_offinvoice_to_gl_sp;
5091:
5092: IF g_debug_flag = 'Y' THEN
5093: ozf_utility_pvt.write_conc_log (' D: post_offinvoice_to_gl() BEGIN ');
5094: END IF;
5095:
5096: OPEN c_get_all_util_rec;
5097: LOOP
5102: LIMIT g_bulk_limit;
5103:
5104:
5105: IF g_debug_flag = 'Y' THEN
5106: ozf_utility_pvt.write_conc_log (' D: l_utilIdTbl count: ' || l_utilIdTbl.COUNT);
5107: END IF;
5108:
5109: FOR i IN NVL(l_utilIdTbl.FIRST, 1) .. NVL(l_utilIdTbl.LAST, 0) LOOP
5110:
5149: );
5150:
5151: -- do not raise exception for gl posting error. Just mark it as failed and deal with it later
5152: IF g_debug_flag = 'Y' THEN
5153: ozf_utility_pvt.write_conc_log (' D: post_offinvoice_to_gl() post_accrual_to_gl(util_id='
5154: || l_utilIdTbl(i)
5155: || ') returns ' || l_return_status || ' x_gl_posted_flag' || l_gl_posted_flag);
5156: END IF;
5157:
5174: END LOOP; -- bulk fetch
5175: CLOSE c_get_all_util_rec;
5176:
5177: IF g_debug_flag = 'Y' THEN
5178: ozf_utility_pvt.write_conc_log (' D: post_offinvoice_to_gl() END');
5179: END IF;
5180:
5181:
5182: EXCEPTION
5182: EXCEPTION
5183: WHEN OTHERS THEN
5184: ROLLBACK TO post_offinvoice_to_gl_sp;
5185: x_retcode := 1;
5186: ozf_utility_pvt.write_conc_log(' D: post_offinvoice_to_gl(): exception ');
5187: fnd_msg_pub.count_and_get (
5188: p_count => l_msg_count,
5189: p_data => l_msg_data,
5190: p_encoded => fnd_api.g_false
5235:
5236: BEGIN
5237: SAVEPOINT post_related_accrual_to_gl_sp;
5238: IF g_debug_flag = 'Y' THEN
5239: ozf_utility_pvt.write_conc_log (' D: post_related_accrual_to_gl() BEGIN posting related accruals to GL for utilization id ' || p_utilization_id);
5240: END IF;
5241:
5242: IF p_utilization_type = 'UTILIZED' THEN
5243: l_adjust_paid_flag := true;
5276: );
5277:
5278: -- do not raise exception for gl posting error. Just mark it as failed and deal with it later
5279: IF g_debug_flag = 'Y' THEN
5280: ozf_utility_pvt.write_conc_log(' D: post_related_accrual_to_gl() post_accrual_to_gl(util_id=' || l_utilIdTbl(i)
5281: || ') returns ' || l_return_status || ' x_gl_posted_flag' || l_gl_posted_flag);
5282: END IF;
5283: END LOOP; -- FOR i IN NVL(l_utilIdTbl.FIRST, 1) .. NVL(l_utilIdTbl.LAST, 0) LOOP
5284:
5287: CLOSE c_get_related_accrual;
5288:
5289: x_return_status := fnd_api.g_ret_sts_success;
5290: IF g_debug_flag = 'Y' THEN
5291: ozf_utility_pvt.write_conc_log (' D: post_related_accrual_to_gl() ENDs for utilization id ' || p_utilization_id);
5292: END IF;
5293:
5294: EXCEPTION
5295: WHEN OTHERS THEN
5293:
5294: EXCEPTION
5295: WHEN OTHERS THEN
5296: ROLLBACK TO post_related_accrual_to_gl_sp;
5297: ozf_utility_pvt.write_conc_log(' D: post_related_accrual_to_gl(): exception ');
5298: x_return_status := fnd_api.g_ret_sts_unexp_error;
5299: fnd_msg_pub.count_and_get (
5300: p_count => x_msg_count,
5301: p_data => x_msg_data,