[Home] [Help]
252: BEGIN
253: x_return_status := fnd_api.g_ret_sts_success;
254:
255: IF g_debug_flag = 'Y' THEN
256: ozf_utility_pvt.write_conc_log(' D: ENTER calculate_accrual_amount offer_id=' || p_src_id || ' p_earned_amt=' || p_earned_amt);
257: END IF;
258:
259: /* kdass 31-JAN-05 - fix 11.5.9 bug 4067266 - RETROACTIVE VOLUME BUDGETS DO NOT CALCULATE CORRECTLY WHEN THE 1ST TIER IS AT 0%
260: IF p_earned_amt = 0 THEN
307: FETCH c_get_utilized_amount INTO l_utilized_amount;
308: CLOSE c_get_utilized_amount;
309:
310: IF g_debug_flag = 'Y' THEN
311: ozf_utility_pvt.write_conc_log('l_total_amount_tbl(i) = ' || l_total_amount_tbl(i) );
312: ozf_utility_pvt.write_conc_log('l_utilized_amount = ' || l_utilized_amount );
313: ozf_utility_pvt.write_conc_log('p_earned_amt = ' || p_earned_amt );
314: END IF;
315:
308: CLOSE c_get_utilized_amount;
309:
310: IF g_debug_flag = 'Y' THEN
311: ozf_utility_pvt.write_conc_log('l_total_amount_tbl(i) = ' || l_total_amount_tbl(i) );
312: ozf_utility_pvt.write_conc_log('l_utilized_amount = ' || l_utilized_amount );
313: ozf_utility_pvt.write_conc_log('p_earned_amt = ' || p_earned_amt );
314: END IF;
315:
316: -- nepanda : fixed bug 10130256 : The below jump will only be for positive accruals. Negative accruals will be allowed even if budget is fully utilized
309:
310: IF g_debug_flag = 'Y' THEN
311: ozf_utility_pvt.write_conc_log('l_total_amount_tbl(i) = ' || l_total_amount_tbl(i) );
312: ozf_utility_pvt.write_conc_log('l_utilized_amount = ' || l_utilized_amount );
313: ozf_utility_pvt.write_conc_log('p_earned_amt = ' || p_earned_amt );
314: END IF;
315:
316: -- nepanda : fixed bug 10130256 : The below jump will only be for positive accruals. Negative accruals will be allowed even if budget is fully utilized
317: IF l_total_amount_tbl(i) <= l_utilized_amount AND NVL(p_earned_amt, 0) > 0 THEN -- !!! think about negative utilized amount!
331: x_fund_amt_tbl (l_count).budget_currency:= l_parent_curr_tbl(i);
332: END IF; -- IF g_recal_flag = 'Y'
333:
334: IF g_debug_flag = 'Y' THEN
335: ozf_utility_pvt.write_conc_log(' D: calculate_accrual_amount: ' || l_count || ') fund_id=' || x_fund_amt_tbl (l_count).ofr_src_id
336: || ' utilized_amount=' || l_utilized_amount || x_fund_amt_tbl (l_count).budget_currency);
337: END IF;
338: -- if the currencies of the budgets are different then convert it into the first budget currency
339: -- to get the total amount
339: -- to get the total amount
340: IF l_count > 1 THEN
341: IF x_fund_amt_tbl (l_count).budget_currency <>
342: x_fund_amt_tbl (l_count - 1).budget_currency THEN
343: ozf_utility_pvt.convert_currency (
344: x_return_status=> x_return_status,
345: p_from_currency=> x_fund_amt_tbl (l_count).budget_currency,
346: p_to_currency=> x_fund_amt_tbl (l_count - 1).budget_currency,
347: p_from_amount=> x_fund_amt_tbl (l_count).earned_amount,
367: , x_msg_data => l_msg_data
368: );
369:
370: IF g_debug_flag = 'Y' THEN
371: ozf_utility_pvt.write_conc_log (' D: calculate_accrual_amount(): check_budget_qualification status: ' || l_return_status);
372: END IF;
373: IF l_return_status <> fnd_api.g_ret_sts_success THEN
374: l_eligible_flag := false;
375: END IF;
378: END IF;
379:
380: IF l_eligible_flag THEN
381: IF g_debug_flag = 'Y' THEN
382: ozf_utility_pvt.write_conc_log (' D: calculate_accrual_amount(): budget ' || x_fund_amt_tbl (l_count).ofr_src_id
383: || ' is qualified for product:' || p_product_item_id || ' customer: ' || p_cust_account_id);
384: END IF;
385: l_eligible_count := l_eligible_count + 1;
386: l_eligible_fund_amt_tbl (l_eligible_count).ofr_src_id := x_fund_amt_tbl (l_count).ofr_src_id;
388: l_eligible_fund_amt_tbl (l_eligible_count).budget_currency:= x_fund_amt_tbl (l_count).budget_currency;
389: l_eligible_total_amount := l_eligible_total_amount + l_eligible_fund_amt_tbl (l_eligible_count).earned_amount;
390: ELSE
391: IF g_debug_flag = 'Y' THEN
392: ozf_utility_pvt.write_conc_log (' D: calculate_accrual_amount(): budget ' || x_fund_amt_tbl (l_count).ofr_src_id
393: || ' is not qualified for product:' || p_product_item_id || ' customer: ' || p_cust_account_id);
394: END IF;
395: END IF;
396:
401: END LOOP; -- c_budget
402: CLOSE c_budget;
403:
404: IF g_debug_flag = 'Y' THEN
405: ozf_utility_pvt.write_conc_log('After the loop l_eligible_total_amount = ' || l_eligible_total_amount );
406: END IF;
407:
408: IF l_eligible_total_amount > 0 THEN
409: x_fund_amt_tbl.DELETE;
410: x_fund_amt_tbl := l_eligible_fund_amt_tbl;
411: l_total_amount := l_eligible_total_amount;
412: l_count := l_eligible_count;
413: IF g_debug_flag = 'Y' THEN
414: ozf_utility_pvt.write_conc_log(' D: calculate_accrual_amount(): ' || l_count
415: || ' eligible budgets found. Total amount available for posting:' || l_total_amount);
416: END IF;
417: END IF;
418:
428: END IF;
429: END IF;
430:
431: IF g_debug_flag = 'Y' THEN
432: ozf_utility_pvt.write_conc_log(' D: calculate_accrual_amount(): g_recal_flag=' || g_recal_flag || ' p_earned_amt=' || p_earned_amt
433: || ' final sourcing budget table count=' || x_fund_amt_tbl.COUNT || ' sourcing budgets total amount=' || l_total_amount);
434: END IF;
435:
436: -- calculate the fraction if recalculation flag is on, or to_post amount is less than available amount
450: l_total_amount1 := p_earned_amt;
451: l_count1 := x_fund_amt_tbl.COUNT;
452:
453: IF g_debug_flag = 'Y' THEN
454: ozf_utility_pvt.write_conc_log ('x_fund_amt_tbl.COUNT '||x_fund_amt_tbl.COUNT);
455: ozf_utility_pvt.write_conc_log ('l_total_amount '||l_total_amount1);
456: ozf_utility_pvt.write_conc_log ('x_fund_amt_tbl.FIRST '|| x_fund_amt_tbl.FIRST);
457: END IF;
458: FOR i IN NVL (x_fund_amt_tbl.FIRST, 1) .. NVL (x_fund_amt_tbl.LAST, 0)
451: l_count1 := x_fund_amt_tbl.COUNT;
452:
453: IF g_debug_flag = 'Y' THEN
454: ozf_utility_pvt.write_conc_log ('x_fund_amt_tbl.COUNT '||x_fund_amt_tbl.COUNT);
455: ozf_utility_pvt.write_conc_log ('l_total_amount '||l_total_amount1);
456: ozf_utility_pvt.write_conc_log ('x_fund_amt_tbl.FIRST '|| x_fund_amt_tbl.FIRST);
457: END IF;
458: FOR i IN NVL (x_fund_amt_tbl.FIRST, 1) .. NVL (x_fund_amt_tbl.LAST, 0)
459: LOOP
452:
453: IF g_debug_flag = 'Y' THEN
454: ozf_utility_pvt.write_conc_log ('x_fund_amt_tbl.COUNT '||x_fund_amt_tbl.COUNT);
455: ozf_utility_pvt.write_conc_log ('l_total_amount '||l_total_amount1);
456: ozf_utility_pvt.write_conc_log ('x_fund_amt_tbl.FIRST '|| x_fund_amt_tbl.FIRST);
457: END IF;
458: FOR i IN NVL (x_fund_amt_tbl.FIRST, 1) .. NVL (x_fund_amt_tbl.LAST, 0)
459: LOOP
460: --nirprasa, ER 8399134 to prorate the last record to resolve rounding issue
465: p_earned_amt * l_fraction_tbl (x_fund_amt_tbl (i).ofr_src_id);
466: l_total_amount1 := l_total_amount1 - x_fund_amt_tbl (i).earned_amount;
467: END IF;
468: IF g_debug_flag = 'Y' THEN
469: ozf_utility_pvt.write_conc_log (' D: calculate_accrual_amount(): --index--' || i || '--final posting amt--'
470: || x_fund_amt_tbl (i).earned_amount
471: || '--fund id--' || x_fund_amt_tbl (i).ofr_src_id
472: || '--fraction--' || l_fraction_tbl(x_fund_amt_tbl (i).ofr_src_id));
473: END IF;
558: WHERE ledger_id = p_ledger_id;
559:
560: BEGIN
561: IF g_debug_flag = 'Y' THEN
562: ozf_utility_pvt.write_conc_log( l_full_name
563: || ': start');
564: END IF;
565: -- Standard Start of API savepoint
566: SAVEPOINT create_actbudgets_rec;
576: FETCH c_get_conversion_type INTO l_exchange_rate_type;
577: CLOSE c_get_conversion_type;
578:
579: IF g_debug_flag = 'Y' THEN
580: ozf_utility_pvt.write_conc_log('**************************START****************************');
581: ozf_utility_pvt.write_conc_log(l_api_name||' From Amount: '||l_act_budgets_rec.request_amount );
582: ozf_utility_pvt.write_conc_log(l_api_name||' From Curr: '||l_act_budgets_rec.request_currency );
583: ozf_utility_pvt.write_conc_log(l_api_name||' p_ledger_id: '||p_ledger_id);
584: ozf_utility_pvt.write_conc_log(l_api_name||' l_exchange_rate_type: '|| l_exchange_rate_type);
577: CLOSE c_get_conversion_type;
578:
579: IF g_debug_flag = 'Y' THEN
580: ozf_utility_pvt.write_conc_log('**************************START****************************');
581: ozf_utility_pvt.write_conc_log(l_api_name||' From Amount: '||l_act_budgets_rec.request_amount );
582: ozf_utility_pvt.write_conc_log(l_api_name||' From Curr: '||l_act_budgets_rec.request_currency );
583: ozf_utility_pvt.write_conc_log(l_api_name||' p_ledger_id: '||p_ledger_id);
584: ozf_utility_pvt.write_conc_log(l_api_name||' l_exchange_rate_type: '|| l_exchange_rate_type);
585: ozf_utility_pvt.write_conc_log('Request amount is converted from request curr to functional curr');
578:
579: IF g_debug_flag = 'Y' THEN
580: ozf_utility_pvt.write_conc_log('**************************START****************************');
581: ozf_utility_pvt.write_conc_log(l_api_name||' From Amount: '||l_act_budgets_rec.request_amount );
582: ozf_utility_pvt.write_conc_log(l_api_name||' From Curr: '||l_act_budgets_rec.request_currency );
583: ozf_utility_pvt.write_conc_log(l_api_name||' p_ledger_id: '||p_ledger_id);
584: ozf_utility_pvt.write_conc_log(l_api_name||' l_exchange_rate_type: '|| l_exchange_rate_type);
585: ozf_utility_pvt.write_conc_log('Request amount is converted from request curr to functional curr');
586: END IF;
579: IF g_debug_flag = 'Y' THEN
580: ozf_utility_pvt.write_conc_log('**************************START****************************');
581: ozf_utility_pvt.write_conc_log(l_api_name||' From Amount: '||l_act_budgets_rec.request_amount );
582: ozf_utility_pvt.write_conc_log(l_api_name||' From Curr: '||l_act_budgets_rec.request_currency );
583: ozf_utility_pvt.write_conc_log(l_api_name||' p_ledger_id: '||p_ledger_id);
584: ozf_utility_pvt.write_conc_log(l_api_name||' l_exchange_rate_type: '|| l_exchange_rate_type);
585: ozf_utility_pvt.write_conc_log('Request amount is converted from request curr to functional curr');
586: END IF;
587:
580: ozf_utility_pvt.write_conc_log('**************************START****************************');
581: ozf_utility_pvt.write_conc_log(l_api_name||' From Amount: '||l_act_budgets_rec.request_amount );
582: ozf_utility_pvt.write_conc_log(l_api_name||' From Curr: '||l_act_budgets_rec.request_currency );
583: ozf_utility_pvt.write_conc_log(l_api_name||' p_ledger_id: '||p_ledger_id);
584: ozf_utility_pvt.write_conc_log(l_api_name||' l_exchange_rate_type: '|| l_exchange_rate_type);
585: ozf_utility_pvt.write_conc_log('Request amount is converted from request curr to functional curr');
586: END IF;
587:
588: IF l_act_budgets_rec.request_amount <> 0 THEN
581: ozf_utility_pvt.write_conc_log(l_api_name||' From Amount: '||l_act_budgets_rec.request_amount );
582: ozf_utility_pvt.write_conc_log(l_api_name||' From Curr: '||l_act_budgets_rec.request_currency );
583: ozf_utility_pvt.write_conc_log(l_api_name||' p_ledger_id: '||p_ledger_id);
584: ozf_utility_pvt.write_conc_log(l_api_name||' l_exchange_rate_type: '|| l_exchange_rate_type);
585: ozf_utility_pvt.write_conc_log('Request amount is converted from request curr to functional curr');
586: END IF;
587:
588: IF l_act_budgets_rec.request_amount <> 0 THEN
589: ozf_utility_pvt.calculate_functional_currency (
585: ozf_utility_pvt.write_conc_log('Request amount is converted from request curr to functional curr');
586: END IF;
587:
588: IF l_act_budgets_rec.request_amount <> 0 THEN
589: ozf_utility_pvt.calculate_functional_currency (
590: p_from_amount=>l_act_budgets_rec.request_amount
591: ,p_tc_currency_code=> l_act_budgets_rec.request_currency
592: ,p_ledger_id => p_ledger_id
593: ,x_to_amount=> l_approved_amount_fc
597: ,x_exchange_rate=> l_exchange_rate
598: ,x_return_status=> l_return_status
599: );
600: IF g_debug_flag = 'Y' THEN
601: ozf_utility_pvt.write_conc_log(l_full_name || 'calculate_functional_curr: ' || l_return_status);
602: END IF;
603:
604: IF l_return_status = fnd_api.g_ret_sts_error THEN
605: RAISE fnd_api.g_exc_error;
615: FETCH c_offer_type INTO l_plan_currency;
616: CLOSE c_offer_type;
617:
618: IF g_debug_flag = 'Y' THEN
619: ozf_utility_pvt.write_conc_log(l_full_name || ' l_plan_currency: ' || l_plan_currency);
620: ozf_utility_pvt.write_conc_log(l_full_name || ' request_currency ' || l_act_budgets_rec.request_currency);
621: END IF;
622:
623: IF l_plan_currency <> l_act_budgets_rec.request_currency THEN
616: CLOSE c_offer_type;
617:
618: IF g_debug_flag = 'Y' THEN
619: ozf_utility_pvt.write_conc_log(l_full_name || ' l_plan_currency: ' || l_plan_currency);
620: ozf_utility_pvt.write_conc_log(l_full_name || ' request_currency ' || l_act_budgets_rec.request_currency);
621: END IF;
622:
623: IF l_plan_currency <> l_act_budgets_rec.request_currency THEN
624: ozf_utility_pvt.convert_currency (x_return_status => x_return_status
620: ozf_utility_pvt.write_conc_log(l_full_name || ' request_currency ' || l_act_budgets_rec.request_currency);
621: END IF;
622:
623: IF l_plan_currency <> l_act_budgets_rec.request_currency THEN
624: ozf_utility_pvt.convert_currency (x_return_status => x_return_status
625: ,p_from_currency => l_act_budgets_rec.request_currency
626: ,p_to_currency => l_plan_currency
627: ,p_conv_type => l_exchange_rate_type -- Added for bug 7030415
628: ,p_from_amount => l_act_budgets_rec.request_amount
650: OPEN c_get_gl_info(p_ledger_id);
651: FETCH c_get_gl_info INTO l_fc_currency_code;
652: CLOSE c_get_gl_info;
653: if l_fc_currency_code is not null then
654: l_approved_amount_fc := ozf_utility_pvt.currround(l_approved_amount_fc, l_fc_currency_code);
655: end if;
656: END IF;
657:
658: if l_act_budgets_rec.parent_src_curr is not null then
655: end if;
656: END IF;
657:
658: if l_act_budgets_rec.parent_src_curr is not null then
659: l_act_budgets_rec.parent_src_apprvd_amt := ozf_utility_pvt.currround(l_act_budgets_rec.parent_src_apprvd_amt, l_act_budgets_rec.parent_src_curr);
660: end if;
661:
662: IF l_approved_amount_fc = l_act_budgets_rec.request_amount THEN
663: if l_act_budgets_rec.request_currency is not null then
660: end if;
661:
662: IF l_approved_amount_fc = l_act_budgets_rec.request_amount THEN
663: if l_act_budgets_rec.request_currency is not null then
664: l_approved_amount_fc := ozf_utility_pvt.currround(l_act_budgets_rec.request_amount, l_act_budgets_rec.request_currency);
665: end if;
666: END IF ;
667:
668: if l_act_budgets_rec.request_currency is not null then
665: end if;
666: END IF ;
667:
668: if l_act_budgets_rec.request_currency is not null then
669: l_act_budgets_rec.request_amount := ozf_utility_pvt.currround(l_act_budgets_rec.request_amount, l_act_budgets_rec.request_currency);
670: l_act_budgets_rec.approved_amount := ozf_utility_pvt.currround(l_act_budgets_rec.approved_amount, l_act_budgets_rec.request_currency);
671: end if;
672:
673: --if act_budget record exist for this offer, update record.
666: END IF ;
667:
668: if l_act_budgets_rec.request_currency is not null then
669: l_act_budgets_rec.request_amount := ozf_utility_pvt.currround(l_act_budgets_rec.request_amount, l_act_budgets_rec.request_currency);
670: l_act_budgets_rec.approved_amount := ozf_utility_pvt.currround(l_act_budgets_rec.approved_amount, l_act_budgets_rec.request_currency);
671: end if;
672:
673: --if act_budget record exist for this offer, update record.
674: IF l_activity_id IS NOT NULL THEN
699: RETURN; -- exit from program.
700: END IF;
701:
702: IF l_act_budgets_rec.request_currency IS NULL THEN
703: ozf_utility_pvt.write_conc_log ('OZF_ACT_BUDG_NO_CURRENCY');
704: x_return_status := fnd_api.g_ret_sts_error;
705: END IF;
706:
707:
709: OPEN c_act_budget_id;
710: FETCH c_act_budget_id INTO l_act_budgets_rec.activity_budget_id;
711: CLOSE c_act_budget_id;
712:
713: l_requester_id := ozf_utility_pvt.get_resource_id (fnd_global.user_id);
714:
715: INSERT INTO ozf_act_budgets
716: (activity_budget_id,last_update_date
717: ,last_updated_by, creation_date
779:
780: x_act_budget_id := l_act_budgets_rec.activity_budget_id;
781:
782: IF g_debug_flag = 'Y' THEN
783: ozf_utility_pvt.write_conc_log( l_api_name
784: || ': insert complete' || l_act_budgets_rec.activity_budget_id);
785: END IF;
786:
787: -- Standard call to get message count AND IF count is 1, get message info.
1148: BEGIN
1149: --------------------- initialize -----------------------
1150: SAVEPOINT create_utilized_rec;
1151: IF g_debug_flag = 'Y' THEN
1152: ozf_utility_pvt.write_conc_log( l_full_name
1153: || ': start' || p_utilization_rec.utilization_type);
1154: END IF;
1155:
1156: x_return_status := fnd_api.g_ret_sts_success;
1160: -- Update ozf_funds_utilized_allb_
1161: -- Let the same insert flow take care of other tables.
1162:
1163: IF g_debug_flag = 'Y' THEN
1164: ozf_utility_pvt.write_conc_log ('order_line_id ' || l_utilization_rec.order_line_id);
1165: END IF;
1166:
1167: l_is_parent_line := NULL;
1168:
1174: l_utilization_id := NULL;
1175: l_obj_ver_num := NULL;
1176:
1177: IF g_debug_flag = 'Y' THEN
1178: ozf_utility_pvt.write_conc_log ('l_is_parent_line ' || l_is_parent_line);
1179: ozf_utility_pvt.write_conc_log ('order_line_id ' || l_utilization_rec.order_line_id);
1180: ozf_utility_pvt.write_conc_log ('object_id ' || l_utilization_rec.object_id);
1181: ozf_utility_pvt.write_conc_log ('object_type ' || l_utilization_rec.object_type);
1182: ozf_utility_pvt.write_conc_log ('plan_id ' || l_utilization_rec.component_id);
1175: l_obj_ver_num := NULL;
1176:
1177: IF g_debug_flag = 'Y' THEN
1178: ozf_utility_pvt.write_conc_log ('l_is_parent_line ' || l_is_parent_line);
1179: ozf_utility_pvt.write_conc_log ('order_line_id ' || l_utilization_rec.order_line_id);
1180: ozf_utility_pvt.write_conc_log ('object_id ' || l_utilization_rec.object_id);
1181: ozf_utility_pvt.write_conc_log ('object_type ' || l_utilization_rec.object_type);
1182: ozf_utility_pvt.write_conc_log ('plan_id ' || l_utilization_rec.component_id);
1183: ozf_utility_pvt.write_conc_log ('inventory_item_id ' || l_utilization_rec.product_id);
1176:
1177: IF g_debug_flag = 'Y' THEN
1178: ozf_utility_pvt.write_conc_log ('l_is_parent_line ' || l_is_parent_line);
1179: ozf_utility_pvt.write_conc_log ('order_line_id ' || l_utilization_rec.order_line_id);
1180: ozf_utility_pvt.write_conc_log ('object_id ' || l_utilization_rec.object_id);
1181: ozf_utility_pvt.write_conc_log ('object_type ' || l_utilization_rec.object_type);
1182: ozf_utility_pvt.write_conc_log ('plan_id ' || l_utilization_rec.component_id);
1183: ozf_utility_pvt.write_conc_log ('inventory_item_id ' || l_utilization_rec.product_id);
1184: ozf_utility_pvt.write_conc_log ('price_adjustment_id ' || l_utilization_rec.price_adjustment_id);
1177: IF g_debug_flag = 'Y' THEN
1178: ozf_utility_pvt.write_conc_log ('l_is_parent_line ' || l_is_parent_line);
1179: ozf_utility_pvt.write_conc_log ('order_line_id ' || l_utilization_rec.order_line_id);
1180: ozf_utility_pvt.write_conc_log ('object_id ' || l_utilization_rec.object_id);
1181: ozf_utility_pvt.write_conc_log ('object_type ' || l_utilization_rec.object_type);
1182: ozf_utility_pvt.write_conc_log ('plan_id ' || l_utilization_rec.component_id);
1183: ozf_utility_pvt.write_conc_log ('inventory_item_id ' || l_utilization_rec.product_id);
1184: ozf_utility_pvt.write_conc_log ('price_adjustment_id ' || l_utilization_rec.price_adjustment_id);
1185: END IF;
1178: ozf_utility_pvt.write_conc_log ('l_is_parent_line ' || l_is_parent_line);
1179: ozf_utility_pvt.write_conc_log ('order_line_id ' || l_utilization_rec.order_line_id);
1180: ozf_utility_pvt.write_conc_log ('object_id ' || l_utilization_rec.object_id);
1181: ozf_utility_pvt.write_conc_log ('object_type ' || l_utilization_rec.object_type);
1182: ozf_utility_pvt.write_conc_log ('plan_id ' || l_utilization_rec.component_id);
1183: ozf_utility_pvt.write_conc_log ('inventory_item_id ' || l_utilization_rec.product_id);
1184: ozf_utility_pvt.write_conc_log ('price_adjustment_id ' || l_utilization_rec.price_adjustment_id);
1185: END IF;
1186:
1179: ozf_utility_pvt.write_conc_log ('order_line_id ' || l_utilization_rec.order_line_id);
1180: ozf_utility_pvt.write_conc_log ('object_id ' || l_utilization_rec.object_id);
1181: ozf_utility_pvt.write_conc_log ('object_type ' || l_utilization_rec.object_type);
1182: ozf_utility_pvt.write_conc_log ('plan_id ' || l_utilization_rec.component_id);
1183: ozf_utility_pvt.write_conc_log ('inventory_item_id ' || l_utilization_rec.product_id);
1184: ozf_utility_pvt.write_conc_log ('price_adjustment_id ' || l_utilization_rec.price_adjustment_id);
1185: END IF;
1186:
1187: IF NVL(l_is_parent_line,0) = 1 THEN
1180: ozf_utility_pvt.write_conc_log ('object_id ' || l_utilization_rec.object_id);
1181: ozf_utility_pvt.write_conc_log ('object_type ' || l_utilization_rec.object_type);
1182: ozf_utility_pvt.write_conc_log ('plan_id ' || l_utilization_rec.component_id);
1183: ozf_utility_pvt.write_conc_log ('inventory_item_id ' || l_utilization_rec.product_id);
1184: ozf_utility_pvt.write_conc_log ('price_adjustment_id ' || l_utilization_rec.price_adjustment_id);
1185: END IF;
1186:
1187: IF NVL(l_is_parent_line,0) = 1 THEN
1188: OPEN c_utilization_id(l_utilization_rec.order_line_id,
1195: CLOSE c_utilization_id;
1196: END IF;
1197:
1198: IF g_debug_flag = 'Y' THEN
1199: ozf_utility_pvt.write_conc_log ('l_utilization_id ' || l_utilization_id);
1200: ozf_utility_pvt.write_conc_log ('l_obj_ver_num ' || l_obj_ver_num);
1201: END IF;
1202:
1203: -- Get the identifier
1196: END IF;
1197:
1198: IF g_debug_flag = 'Y' THEN
1199: ozf_utility_pvt.write_conc_log ('l_utilization_id ' || l_utilization_id);
1200: ozf_utility_pvt.write_conc_log ('l_obj_ver_num ' || l_obj_ver_num);
1201: END IF;
1202:
1203: -- Get the identifier
1204: IF l_utilization_id IS NOT NULL THEN
1261: ,p_ledger_id => l_order_ledger
1262: ,p_ledger_name => l_ord_ledger_name);
1263: IF l_utilization_rec.org_id IS NULL THEN
1264: IF g_debug_flag = 'Y' THEN
1265: ozf_utility_pvt.write_conc_log (' org_id from order is null ');
1266: END IF;
1267: ELSE
1268: IF g_debug_flag = 'Y' THEN
1269: ozf_utility_pvt.write_conc_log (' org_id from order: ' || l_utilization_rec.org_id);
1265: ozf_utility_pvt.write_conc_log (' org_id from order is null ');
1266: END IF;
1267: ELSE
1268: IF g_debug_flag = 'Y' THEN
1269: ozf_utility_pvt.write_conc_log (' org_id from order: ' || l_utilization_rec.org_id);
1270: END IF;
1271: END IF;
1272:
1273: IF l_fund_ledger IS NOT NULL AND l_order_ledger <> l_fund_ledger THEN
1271: END IF;
1272:
1273: IF l_fund_ledger IS NOT NULL AND l_order_ledger <> l_fund_ledger THEN
1274: -- l_utilization_rec.org_id := l_fund_org; R12: stick to order's org. Budget org is not essential information
1275: ozf_utility_pvt.write_conc_log (' Warning: There is a potential problem with this accrual record. The ledger ');
1276: ozf_utility_pvt.write_conc_log ('used by Trade Management to create the GL postings for this ');
1277: ozf_utility_pvt.write_conc_log ('accrual does not match the one the sales order rolls up to. Please ');
1278: ozf_utility_pvt.write_conc_log ('review carefully and make adjustments in Trade Management if necessary.');
1279: END IF;
1272:
1273: IF l_fund_ledger IS NOT NULL AND l_order_ledger <> l_fund_ledger THEN
1274: -- l_utilization_rec.org_id := l_fund_org; R12: stick to order's org. Budget org is not essential information
1275: ozf_utility_pvt.write_conc_log (' Warning: There is a potential problem with this accrual record. The ledger ');
1276: ozf_utility_pvt.write_conc_log ('used by Trade Management to create the GL postings for this ');
1277: ozf_utility_pvt.write_conc_log ('accrual does not match the one the sales order rolls up to. Please ');
1278: ozf_utility_pvt.write_conc_log ('review carefully and make adjustments in Trade Management if necessary.');
1279: END IF;
1280:
1273: IF l_fund_ledger IS NOT NULL AND l_order_ledger <> l_fund_ledger THEN
1274: -- l_utilization_rec.org_id := l_fund_org; R12: stick to order's org. Budget org is not essential information
1275: ozf_utility_pvt.write_conc_log (' Warning: There is a potential problem with this accrual record. The ledger ');
1276: ozf_utility_pvt.write_conc_log ('used by Trade Management to create the GL postings for this ');
1277: ozf_utility_pvt.write_conc_log ('accrual does not match the one the sales order rolls up to. Please ');
1278: ozf_utility_pvt.write_conc_log ('review carefully and make adjustments in Trade Management if necessary.');
1279: END IF;
1280:
1281: -- Added for bug 7030415, moved the the code here to get the correct utilization org_id.
1274: -- l_utilization_rec.org_id := l_fund_org; R12: stick to order's org. Budget org is not essential information
1275: ozf_utility_pvt.write_conc_log (' Warning: There is a potential problem with this accrual record. The ledger ');
1276: ozf_utility_pvt.write_conc_log ('used by Trade Management to create the GL postings for this ');
1277: ozf_utility_pvt.write_conc_log ('accrual does not match the one the sales order rolls up to. Please ');
1278: ozf_utility_pvt.write_conc_log ('review carefully and make adjustments in Trade Management if necessary.');
1279: END IF;
1280:
1281: -- Added for bug 7030415, moved the the code here to get the correct utilization org_id.
1282:
1285: l_transaction_currency,l_offer_id,l_autopay_party_attr,l_autopay_party_id;
1286: CLOSE c_offer_type;
1287:
1288: IF g_debug_flag = 'Y' THEN
1289: ozf_utility_pvt.write_conc_log ('l_offer_type: ' || l_offer_type);
1290: ozf_utility_pvt.write_conc_log ('l_offer_id: ' || l_offer_id);
1291: ozf_utility_pvt.write_conc_log ('l_utilization_rec.billto_cust_account_id: ' || l_utilization_rec.billto_cust_account_id);
1292: ozf_utility_pvt.write_conc_log ('l_utilization_rec.order_line_id: ' || l_utilization_rec.order_line_id);
1293: END IF;
1286: CLOSE c_offer_type;
1287:
1288: IF g_debug_flag = 'Y' THEN
1289: ozf_utility_pvt.write_conc_log ('l_offer_type: ' || l_offer_type);
1290: ozf_utility_pvt.write_conc_log ('l_offer_id: ' || l_offer_id);
1291: ozf_utility_pvt.write_conc_log ('l_utilization_rec.billto_cust_account_id: ' || l_utilization_rec.billto_cust_account_id);
1292: ozf_utility_pvt.write_conc_log ('l_utilization_rec.order_line_id: ' || l_utilization_rec.order_line_id);
1293: END IF;
1294:
1287:
1288: IF g_debug_flag = 'Y' THEN
1289: ozf_utility_pvt.write_conc_log ('l_offer_type: ' || l_offer_type);
1290: ozf_utility_pvt.write_conc_log ('l_offer_id: ' || l_offer_id);
1291: ozf_utility_pvt.write_conc_log ('l_utilization_rec.billto_cust_account_id: ' || l_utilization_rec.billto_cust_account_id);
1292: ozf_utility_pvt.write_conc_log ('l_utilization_rec.order_line_id: ' || l_utilization_rec.order_line_id);
1293: END IF;
1294:
1295: -- added by feliu on 08/30/2005 for R12.
1288: IF g_debug_flag = 'Y' THEN
1289: ozf_utility_pvt.write_conc_log ('l_offer_type: ' || l_offer_type);
1290: ozf_utility_pvt.write_conc_log ('l_offer_id: ' || l_offer_id);
1291: ozf_utility_pvt.write_conc_log ('l_utilization_rec.billto_cust_account_id: ' || l_utilization_rec.billto_cust_account_id);
1292: ozf_utility_pvt.write_conc_log ('l_utilization_rec.order_line_id: ' || l_utilization_rec.order_line_id);
1293: END IF;
1294:
1295: -- added by feliu on 08/30/2005 for R12.
1296: IF l_offer_type = 'VOLUME_OFFER' THEN
1307: l_utilization_rec.bill_to_site_use_id := NULL;
1308: END IF;
1309:
1310: IF g_debug_flag = 'Y' THEN
1311: ozf_utility_pvt.write_conc_log ('l_utilization_rec.cust_account_id ' || l_utilization_rec.cust_account_id);
1312: ozf_utility_pvt.write_conc_log ('l_utilization_rec.billto_cust_account_id: ' || l_utilization_rec.billto_cust_account_id);
1313: END IF;
1314:
1315: ELSE
1308: END IF;
1309:
1310: IF g_debug_flag = 'Y' THEN
1311: ozf_utility_pvt.write_conc_log ('l_utilization_rec.cust_account_id ' || l_utilization_rec.cust_account_id);
1312: ozf_utility_pvt.write_conc_log ('l_utilization_rec.billto_cust_account_id: ' || l_utilization_rec.billto_cust_account_id);
1313: END IF;
1314:
1315: ELSE
1316:
1342: l_utilization_rec.ship_to_site_use_id := NULL;
1343: END IF;
1344:
1345: IF g_debug_flag = 'Y' THEN
1346: ozf_utility_pvt.write_conc_log ('l_utilization_rec.bill_to_site_use_id: ' || l_utilization_rec.bill_to_site_use_id);
1347: ozf_utility_pvt.write_conc_log ('l_utilization_rec.ship_to_site_use_id: ' || l_utilization_rec.ship_to_site_use_id);
1348: END IF;
1349:
1350: ELSE
1343: END IF;
1344:
1345: IF g_debug_flag = 'Y' THEN
1346: ozf_utility_pvt.write_conc_log ('l_utilization_rec.bill_to_site_use_id: ' || l_utilization_rec.bill_to_site_use_id);
1347: ozf_utility_pvt.write_conc_log ('l_utilization_rec.ship_to_site_use_id: ' || l_utilization_rec.ship_to_site_use_id);
1348: END IF;
1349:
1350: ELSE
1351: l_utilization_rec.cust_account_id := l_utilization_rec.billto_cust_account_id;
1364: CLOSE c_get_conversion_type;
1365:
1366: --nepanda Fix for bug 8994266 : commented IF to call calculate_functional_currency in case of amount = 0 also
1367: --IF l_utilization_rec.amount <> 0 THEN
1368: l_utilization_rec.amount := ozf_utility_pvt.currround(l_utilization_rec.amount , l_utilization_rec.currency_code); -- round amount to fix bug 3615680;
1369:
1370: --nirprasa, ER 8399134
1371: l_utilization_rec.plan_curr_amount := ozf_utility_pvt.currround(l_utilization_rec.plan_curr_amount , l_utilization_rec.plan_currency_code); -- round amount to fix bug 3615680;
1372: IF g_debug_flag = 'Y' THEN
1367: --IF l_utilization_rec.amount <> 0 THEN
1368: l_utilization_rec.amount := ozf_utility_pvt.currround(l_utilization_rec.amount , l_utilization_rec.currency_code); -- round amount to fix bug 3615680;
1369:
1370: --nirprasa, ER 8399134
1371: l_utilization_rec.plan_curr_amount := ozf_utility_pvt.currround(l_utilization_rec.plan_curr_amount , l_utilization_rec.plan_currency_code); -- round amount to fix bug 3615680;
1372: IF g_debug_flag = 'Y' THEN
1373: ozf_utility_pvt.write_conc_log('**************************START****************************');
1374: ozf_utility_pvt.write_conc_log(l_api_name||' From Amount: '||l_utilization_rec.plan_curr_amount );
1375: ozf_utility_pvt.write_conc_log(l_api_name||' From Curr: '||l_utilization_rec.plan_currency_code );
1369:
1370: --nirprasa, ER 8399134
1371: l_utilization_rec.plan_curr_amount := ozf_utility_pvt.currround(l_utilization_rec.plan_curr_amount , l_utilization_rec.plan_currency_code); -- round amount to fix bug 3615680;
1372: IF g_debug_flag = 'Y' THEN
1373: ozf_utility_pvt.write_conc_log('**************************START****************************');
1374: ozf_utility_pvt.write_conc_log(l_api_name||' From Amount: '||l_utilization_rec.plan_curr_amount );
1375: ozf_utility_pvt.write_conc_log(l_api_name||' From Curr: '||l_utilization_rec.plan_currency_code );
1376: ozf_utility_pvt.write_conc_log(l_api_name||' p_ledger_id: '|| l_order_ledger);
1377: ozf_utility_pvt.write_conc_log(l_api_name||' l_utilization_rec.exchange_rate_type: '|| l_utilization_rec.exchange_rate_type);
1370: --nirprasa, ER 8399134
1371: l_utilization_rec.plan_curr_amount := ozf_utility_pvt.currround(l_utilization_rec.plan_curr_amount , l_utilization_rec.plan_currency_code); -- round amount to fix bug 3615680;
1372: IF g_debug_flag = 'Y' THEN
1373: ozf_utility_pvt.write_conc_log('**************************START****************************');
1374: ozf_utility_pvt.write_conc_log(l_api_name||' From Amount: '||l_utilization_rec.plan_curr_amount );
1375: ozf_utility_pvt.write_conc_log(l_api_name||' From Curr: '||l_utilization_rec.plan_currency_code );
1376: ozf_utility_pvt.write_conc_log(l_api_name||' p_ledger_id: '|| l_order_ledger);
1377: ozf_utility_pvt.write_conc_log(l_api_name||' l_utilization_rec.exchange_rate_type: '|| l_utilization_rec.exchange_rate_type);
1378: ozf_utility_pvt.write_conc_log('Utilization amount is converted from transactional curr to functional curr to populate acctd_amount column');
1371: l_utilization_rec.plan_curr_amount := ozf_utility_pvt.currround(l_utilization_rec.plan_curr_amount , l_utilization_rec.plan_currency_code); -- round amount to fix bug 3615680;
1372: IF g_debug_flag = 'Y' THEN
1373: ozf_utility_pvt.write_conc_log('**************************START****************************');
1374: ozf_utility_pvt.write_conc_log(l_api_name||' From Amount: '||l_utilization_rec.plan_curr_amount );
1375: ozf_utility_pvt.write_conc_log(l_api_name||' From Curr: '||l_utilization_rec.plan_currency_code );
1376: ozf_utility_pvt.write_conc_log(l_api_name||' p_ledger_id: '|| l_order_ledger);
1377: ozf_utility_pvt.write_conc_log(l_api_name||' l_utilization_rec.exchange_rate_type: '|| l_utilization_rec.exchange_rate_type);
1378: ozf_utility_pvt.write_conc_log('Utilization amount is converted from transactional curr to functional curr to populate acctd_amount column');
1379: END IF;
1372: IF g_debug_flag = 'Y' THEN
1373: ozf_utility_pvt.write_conc_log('**************************START****************************');
1374: ozf_utility_pvt.write_conc_log(l_api_name||' From Amount: '||l_utilization_rec.plan_curr_amount );
1375: ozf_utility_pvt.write_conc_log(l_api_name||' From Curr: '||l_utilization_rec.plan_currency_code );
1376: ozf_utility_pvt.write_conc_log(l_api_name||' p_ledger_id: '|| l_order_ledger);
1377: ozf_utility_pvt.write_conc_log(l_api_name||' l_utilization_rec.exchange_rate_type: '|| l_utilization_rec.exchange_rate_type);
1378: ozf_utility_pvt.write_conc_log('Utilization amount is converted from transactional curr to functional curr to populate acctd_amount column');
1379: END IF;
1380: --plan_currency_code = offers currency, if its Arrows case of diff offer and budget currency
1373: ozf_utility_pvt.write_conc_log('**************************START****************************');
1374: ozf_utility_pvt.write_conc_log(l_api_name||' From Amount: '||l_utilization_rec.plan_curr_amount );
1375: ozf_utility_pvt.write_conc_log(l_api_name||' From Curr: '||l_utilization_rec.plan_currency_code );
1376: ozf_utility_pvt.write_conc_log(l_api_name||' p_ledger_id: '|| l_order_ledger);
1377: ozf_utility_pvt.write_conc_log(l_api_name||' l_utilization_rec.exchange_rate_type: '|| l_utilization_rec.exchange_rate_type);
1378: ozf_utility_pvt.write_conc_log('Utilization amount is converted from transactional curr to functional curr to populate acctd_amount column');
1379: END IF;
1380: --plan_currency_code = offers currency, if its Arrows case of diff offer and budget currency
1381: --else plan_currency_code = order currency, if its Null currency offer case
1374: ozf_utility_pvt.write_conc_log(l_api_name||' From Amount: '||l_utilization_rec.plan_curr_amount );
1375: ozf_utility_pvt.write_conc_log(l_api_name||' From Curr: '||l_utilization_rec.plan_currency_code );
1376: ozf_utility_pvt.write_conc_log(l_api_name||' p_ledger_id: '|| l_order_ledger);
1377: ozf_utility_pvt.write_conc_log(l_api_name||' l_utilization_rec.exchange_rate_type: '|| l_utilization_rec.exchange_rate_type);
1378: ozf_utility_pvt.write_conc_log('Utilization amount is converted from transactional curr to functional curr to populate acctd_amount column');
1379: END IF;
1380: --plan_currency_code = offers currency, if its Arrows case of diff offer and budget currency
1381: --else plan_currency_code = order currency, if its Null currency offer case
1382: ozf_utility_pvt.calculate_functional_currency (
1378: ozf_utility_pvt.write_conc_log('Utilization amount is converted from transactional curr to functional curr to populate acctd_amount column');
1379: END IF;
1380: --plan_currency_code = offers currency, if its Arrows case of diff offer and budget currency
1381: --else plan_currency_code = order currency, if its Null currency offer case
1382: ozf_utility_pvt.calculate_functional_currency (
1383: p_from_amount=> l_utilization_rec.plan_curr_amount --12.2, multi-currency enhancement
1384: ,p_tc_currency_code=> l_utilization_rec.plan_currency_code --12.2, multi-currency enhancement
1385: ,p_ledger_id => l_order_ledger
1386: ,x_to_amount=> l_utilization_rec.acctd_amount
1405: l_fund_type := 'FIXED' ;
1406: END IF;
1407:
1408: IF g_debug_flag = 'Y' THEN
1409: ozf_utility_pvt.write_conc_log(l_api_name||' l_fc_code '|| l_fc_code );
1410: ozf_utility_pvt.write_conc_log(l_api_name||' l_plan_currency '|| l_plan_currency );
1411: END IF;
1412:
1413: --nirprasa, ER 8399134 multi-currency enhancement, l_plan_currency = offer currency
1406: END IF;
1407:
1408: IF g_debug_flag = 'Y' THEN
1409: ozf_utility_pvt.write_conc_log(l_api_name||' l_fc_code '|| l_fc_code );
1410: ozf_utility_pvt.write_conc_log(l_api_name||' l_plan_currency '|| l_plan_currency );
1411: END IF;
1412:
1413: --nirprasa, ER 8399134 multi-currency enhancement, l_plan_currency = offer currency
1414: --l_utilization_rec.plan_currency_code = transactional currency
1423: ELSIF l_utilization_rec.fund_request_amount IS NULL OR
1424: l_utilization_rec.fund_request_amount = FND_API.G_MISS_NUM THEN
1425: --need to chk this for cancel/partialship and returned orders
1426: --where this amount will already be populated.
1427: ozf_utility_pvt.convert_currency (x_return_status => x_return_status
1428: ,p_from_currency => l_utilization_rec.plan_currency_code
1429: ,p_to_currency => l_plan_currency
1430: ,p_conv_type => l_utilization_rec.exchange_rate_type -- Added for bug 7030415
1431: ,p_from_amount => l_utilization_rec.plan_curr_amount
1599: Utilization amount is converted from request curr to universal curr to populate univ_curr_amount
1600: column in ozf_funds_utilized_all_b */
1601:
1602: IF g_debug_flag = 'Y' THEN
1603: ozf_utility_pvt.write_conc_log('**************************START****************************');
1604: ozf_utility_pvt.write_conc_log(l_api_name||' From Amount: '||l_utilization_rec.amount );
1605: ozf_utility_pvt.write_conc_log(l_api_name||' From Curr: '||l_utilization_rec.currency_code );
1606: ozf_utility_pvt.write_conc_log(l_api_name||' to curr univ_curr_amount: '|| g_universal_currency);
1607: ozf_utility_pvt.write_conc_log(l_api_name||' l_exchange_rate_type: '|| l_utilization_rec.exchange_rate_type);
1600: column in ozf_funds_utilized_all_b */
1601:
1602: IF g_debug_flag = 'Y' THEN
1603: ozf_utility_pvt.write_conc_log('**************************START****************************');
1604: ozf_utility_pvt.write_conc_log(l_api_name||' From Amount: '||l_utilization_rec.amount );
1605: ozf_utility_pvt.write_conc_log(l_api_name||' From Curr: '||l_utilization_rec.currency_code );
1606: ozf_utility_pvt.write_conc_log(l_api_name||' to curr univ_curr_amount: '|| g_universal_currency);
1607: ozf_utility_pvt.write_conc_log(l_api_name||' l_exchange_rate_type: '|| l_utilization_rec.exchange_rate_type);
1608: END IF;
1601:
1602: IF g_debug_flag = 'Y' THEN
1603: ozf_utility_pvt.write_conc_log('**************************START****************************');
1604: ozf_utility_pvt.write_conc_log(l_api_name||' From Amount: '||l_utilization_rec.amount );
1605: ozf_utility_pvt.write_conc_log(l_api_name||' From Curr: '||l_utilization_rec.currency_code );
1606: ozf_utility_pvt.write_conc_log(l_api_name||' to curr univ_curr_amount: '|| g_universal_currency);
1607: ozf_utility_pvt.write_conc_log(l_api_name||' l_exchange_rate_type: '|| l_utilization_rec.exchange_rate_type);
1608: END IF;
1609: ozf_utility_pvt.convert_currency (
1602: IF g_debug_flag = 'Y' THEN
1603: ozf_utility_pvt.write_conc_log('**************************START****************************');
1604: ozf_utility_pvt.write_conc_log(l_api_name||' From Amount: '||l_utilization_rec.amount );
1605: ozf_utility_pvt.write_conc_log(l_api_name||' From Curr: '||l_utilization_rec.currency_code );
1606: ozf_utility_pvt.write_conc_log(l_api_name||' to curr univ_curr_amount: '|| g_universal_currency);
1607: ozf_utility_pvt.write_conc_log(l_api_name||' l_exchange_rate_type: '|| l_utilization_rec.exchange_rate_type);
1608: END IF;
1609: ozf_utility_pvt.convert_currency (
1610: p_from_currency=> l_utilization_rec.plan_currency_code
1603: ozf_utility_pvt.write_conc_log('**************************START****************************');
1604: ozf_utility_pvt.write_conc_log(l_api_name||' From Amount: '||l_utilization_rec.amount );
1605: ozf_utility_pvt.write_conc_log(l_api_name||' From Curr: '||l_utilization_rec.currency_code );
1606: ozf_utility_pvt.write_conc_log(l_api_name||' to curr univ_curr_amount: '|| g_universal_currency);
1607: ozf_utility_pvt.write_conc_log(l_api_name||' l_exchange_rate_type: '|| l_utilization_rec.exchange_rate_type);
1608: END IF;
1609: ozf_utility_pvt.convert_currency (
1610: p_from_currency=> l_utilization_rec.plan_currency_code
1611: ,p_to_currency=> g_universal_currency
1605: ozf_utility_pvt.write_conc_log(l_api_name||' From Curr: '||l_utilization_rec.currency_code );
1606: ozf_utility_pvt.write_conc_log(l_api_name||' to curr univ_curr_amount: '|| g_universal_currency);
1607: ozf_utility_pvt.write_conc_log(l_api_name||' l_exchange_rate_type: '|| l_utilization_rec.exchange_rate_type);
1608: END IF;
1609: ozf_utility_pvt.convert_currency (
1610: p_from_currency=> l_utilization_rec.plan_currency_code
1611: ,p_to_currency=> g_universal_currency
1612: ,p_conv_type=> l_utilization_rec.exchange_rate_type --Added for bug 7030415
1613: ,p_from_amount=> l_utilization_rec.plan_curr_amount
1615: ,x_to_amount=> l_utilization_rec.univ_curr_amount
1616: ,x_rate=> l_rate
1617: );
1618: IF g_debug_flag = 'Y' THEN
1619: ozf_utility_pvt.write_conc_log(l_api_name||' Converted Amount l_utilization_rec.univ_curr_amount: '|| l_utilization_rec.univ_curr_amount);
1620: 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');
1621: END IF;
1622: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
1623: RAISE fnd_api.g_exc_unexpected_error;
1616: ,x_rate=> l_rate
1617: );
1618: IF g_debug_flag = 'Y' THEN
1619: ozf_utility_pvt.write_conc_log(l_api_name||' Converted Amount l_utilization_rec.univ_curr_amount: '|| l_utilization_rec.univ_curr_amount);
1620: 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');
1621: END IF;
1622: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
1623: RAISE fnd_api.g_exc_unexpected_error;
1624: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
1624: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
1625: RAISE fnd_api.g_exc_error;
1626: END IF;
1627: /* Send the exchange rate for bug 7030415 */
1628: ozf_utility_pvt.convert_currency (
1629: p_from_currency=> l_utilization_rec.plan_currency_code
1630: ,p_to_currency=> g_universal_currency
1631: ,p_conv_type=> l_utilization_rec.exchange_rate_type --Added for bug 7030415
1632: ,p_from_amount=> l_utilization_rec.plan_curr_amount_remaining
1634: ,x_to_amount=> l_utilization_rec.univ_curr_amount_remaining
1635: ,x_rate=> l_rate
1636: );
1637: IF g_debug_flag = 'Y' THEN
1638: ozf_utility_pvt.write_conc_log(l_api_name||' From Amount: '||l_utilization_rec.amount_remaining );
1639: 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);
1640: 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');
1641: ozf_utility_pvt.write_conc_log('***************************END******************************');
1642: END IF;
1635: ,x_rate=> l_rate
1636: );
1637: IF g_debug_flag = 'Y' THEN
1638: ozf_utility_pvt.write_conc_log(l_api_name||' From Amount: '||l_utilization_rec.amount_remaining );
1639: 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);
1640: 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');
1641: ozf_utility_pvt.write_conc_log('***************************END******************************');
1642: END IF;
1643: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
1636: );
1637: IF g_debug_flag = 'Y' THEN
1638: ozf_utility_pvt.write_conc_log(l_api_name||' From Amount: '||l_utilization_rec.amount_remaining );
1639: 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);
1640: 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');
1641: ozf_utility_pvt.write_conc_log('***************************END******************************');
1642: END IF;
1643: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
1644: RAISE fnd_api.g_exc_unexpected_error;
1637: IF g_debug_flag = 'Y' THEN
1638: ozf_utility_pvt.write_conc_log(l_api_name||' From Amount: '||l_utilization_rec.amount_remaining );
1639: 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);
1640: 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');
1641: ozf_utility_pvt.write_conc_log('***************************END******************************');
1642: END IF;
1643: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
1644: RAISE fnd_api.g_exc_unexpected_error;
1645: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
1653: CLOSE c_get_year_id;
1654:
1655:
1656: IF g_debug_flag = 'Y' THEN
1657: ozf_utility_pvt.write_conc_log ('l_utilization_id ' || l_utilization_id);
1658: ozf_utility_pvt.write_conc_log ('l_obj_ver_num ' || l_obj_ver_num);
1659: END IF;
1660:
1661: IF l_utilization_id IS NULL THEN
1654:
1655:
1656: IF g_debug_flag = 'Y' THEN
1657: ozf_utility_pvt.write_conc_log ('l_utilization_id ' || l_utilization_id);
1658: ozf_utility_pvt.write_conc_log ('l_obj_ver_num ' || l_obj_ver_num);
1659: END IF;
1660:
1661: IF l_utilization_id IS NULL THEN
1662: INSERT INTO ozf_funds_utilized_all_b
1944: -- 10/14/2003 update ozf_act_budgets REQUEST between fully accrual budget and its offer when accrual happens
1945: OPEN c_accrual_budget_reqeust(l_utilization_rec.fund_id, l_plan_id);
1946: FETCH c_accrual_budget_reqeust INTO l_act_budget_id, l_act_budget_objver;
1947: IF (c_accrual_budget_reqeust%NOTFOUND) THEN
1948: ozf_utility_pvt.write_conc_log (' D: create_utilized_rec() ERROR customer fully accrual budget. can not find approved budget request record between fund '
1949: || l_utilization_rec.fund_id || ' and offer ' || l_plan_id);
1950: CLOSE c_accrual_budget_reqeust;
1951: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_error) THEN
1952: fnd_message.set_name ('OZF', 'OZF_API_RECORD_NOT_FOUND');
2145:
2146: /* yzhao: 03/19/2003 post to GL when order is shipped. move to function post_accrual_to_gl */
2147:
2148: IF g_debug_flag = 'Y' THEN
2149: ozf_utility_pvt.write_conc_log( l_full_name
2150: || ': end' || l_event_id);
2151: END IF;
2152:
2153: fnd_msg_pub.count_and_get (
2252: BEGIN
2253: SAVEPOINT create_fund_utilization_acr;
2254: x_return_status := fnd_api.g_ret_sts_success;
2255: IF g_debug_flag = 'Y' THEN
2256: ozf_utility_pvt.write_conc_log (' D: Enter create_fund_utilization() ');
2257: END IF;
2258: l_act_util_rec.product_level_type := 'PRODUCT';
2259: IF l_act_util_rec.billto_cust_account_id IS NULL THEN
2260: -- customer id
2267: l_act_budgets_rec.transfer_type := 'UTILIZED';
2268: l_act_budgets_rec.request_date := SYSDATE;
2269: l_act_budgets_rec.status_code := 'APPROVED';
2270: l_act_budgets_rec.user_status_id :=
2271: ozf_utility_pvt.get_default_user_status (
2272: 'OZF_BUDGETSOURCE_STATUS',
2273: l_act_budgets_rec.status_code
2274: );
2275: --nirprasa, ER 8399134 Arrow's case: If offer is not a global offer and applied to an order
2288: CLOSE c_org_id ;
2289: END IF;
2290:
2291: IF g_debug_flag = 'Y' THEN
2292: ozf_utility_pvt.write_conc_log (' l_act_budgets_rec.user_status_id '||l_act_budgets_rec.user_status_id);
2293: ozf_utility_pvt.write_conc_log (' l_act_budgets_rec.org_id '||l_act_util_rec.org_id);
2294: END IF;
2295:
2296: --get the order's ledger id
2289: END IF;
2290:
2291: IF g_debug_flag = 'Y' THEN
2292: ozf_utility_pvt.write_conc_log (' l_act_budgets_rec.user_status_id '||l_act_budgets_rec.user_status_id);
2293: ozf_utility_pvt.write_conc_log (' l_act_budgets_rec.org_id '||l_act_util_rec.org_id);
2294: END IF;
2295:
2296: --get the order's ledger id
2297: mo_utils.Get_Ledger_Info (p_operating_unit => l_act_util_rec.org_id
2297: mo_utils.Get_Ledger_Info (p_operating_unit => l_act_util_rec.org_id
2298: ,p_ledger_id => l_ledger_id
2299: ,p_ledger_name => l_ledger_name);
2300: IF g_debug_flag = 'Y' THEN
2301: ozf_utility_pvt.write_conc_log (' l_ledger_id '||l_ledger_id);
2302: ozf_utility_pvt.write_conc_log (' l_ledger_name '|| l_ledger_name);
2303: END IF;
2304:
2305: create_actbudgets_rec (
2298: ,p_ledger_id => l_ledger_id
2299: ,p_ledger_name => l_ledger_name);
2300: IF g_debug_flag = 'Y' THEN
2301: ozf_utility_pvt.write_conc_log (' l_ledger_id '||l_ledger_id);
2302: ozf_utility_pvt.write_conc_log (' l_ledger_name '|| l_ledger_name);
2303: END IF;
2304:
2305: create_actbudgets_rec (
2306: x_return_status =>x_return_status
2312: ,p_org_id =>l_act_util_rec.org_id -- nirprasa added to get conversion type for bug 7030415
2313: );
2314:
2315: IF x_return_status <> fnd_api.g_ret_sts_success THEN
2316: ozf_utility_pvt.write_conc_log (': create Act Budgets Failed '||x_return_status);
2317: IF x_return_status = fnd_api.g_ret_sts_error THEN
2318: RAISE fnd_api.g_exc_error;
2319: ELSIF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
2320: RAISE fnd_api.g_exc_unexpected_error;
2332:
2333: x_utilization_id := l_utilization_id;
2334:
2335: IF x_return_status <>fnd_api.g_ret_sts_success THEN
2336: ozf_utility_pvt.write_conc_log (': create utilization Failed '||x_return_status);
2337: IF x_return_status = fnd_api.g_ret_sts_error THEN
2338: RAISE fnd_api.g_exc_error;
2339: ELSIF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
2340: RAISE fnd_api.g_exc_unexpected_error;
2463: BEGIN
2464: x_return_status := fnd_api.g_ret_sts_success;
2465:
2466: IF g_debug_flag = 'Y' THEN
2467: ozf_utility_pvt.write_conc_log(' D: Enter post_accrual_to_budget p_adj_amt_tbl count=' || p_adj_amt_tbl.count);
2468: END IF;
2469:
2470: FOR i IN p_adj_amt_tbl.FIRST .. p_adj_amt_tbl.LAST
2471: LOOP
2470: FOR i IN p_adj_amt_tbl.FIRST .. p_adj_amt_tbl.LAST
2471: LOOP
2472:
2473: IF g_debug_flag = 'Y' THEN
2474: ozf_utility_pvt.write_conc_log('D: Enter post_accrual_to_budget price_adj_id=' || p_adj_amt_tbl(i).price_adjustment_id ||
2475: ' amount=' || p_adj_amt_tbl(i).earned_amount);
2476: END IF;
2477:
2478: l_fund_amt_tbl.DELETE;
2491: x_fund_amt_tbl => l_fund_amt_tbl
2492: );
2493:
2494: IF g_debug_flag = 'Y' THEN
2495: ozf_utility_pvt.write_conc_log (' D: post_adjust_to_budget(): Calculate Accrual Amount returns' || l_return_status);
2496: END IF;
2497:
2498: IF l_return_status <> fnd_api.g_ret_sts_success THEN
2499: IF l_return_status = fnd_api.g_ret_sts_error THEN
2510: fnd_message.set_token ('OFFER_ID', p_adj_amt_tbl(i).qp_list_header_id);
2511: fnd_msg_pub.ADD;
2512: END IF;
2513: IF g_debug_flag = 'Y' THEN
2514: ozf_utility_pvt.write_conc_log(' D: post_adjust_to_budget() calculation for posting to budget failed. No posting to budget. RETURN');
2515: END IF;
2516: -- yzhao: 03/26/2003 should continue or error out?
2517: --RETURN;
2518: --kdass 24-MAR-2007 bug 5900966 - if no budget is attached to the offer, then move to process next record
2522: l_adj_amount := 0; -- in offer currency
2523: l_remaining_amount := p_adj_amt_tbl(i).earned_amount; -- in offer currency
2524:
2525: IF g_debug_flag = 'Y' THEN
2526: 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);
2527: END IF;
2528:
2529: -- added by rimehrot for R12
2530: OPEN c_get_price_adj_dtl (p_adj_amt_tbl(i).price_adjustment_id);
2550: IF p_adj_amt_tbl(i).order_currency = l_fund_amt_tbl (j).budget_currency THEN
2551: l_act_budgets_rec.parent_src_apprvd_amt :=l_adj_amount;
2552: ELSE
2553: IF g_debug_flag = 'Y' THEN
2554: ozf_utility_pvt.write_conc_log (' D: post_adjust_to_budget() In not equal currency');
2555: END IF;
2556:
2557: -- Added for bug 7030415, get the order's org_id to get the exchange rate.
2558:
2584: FETCH c_get_conversion_type INTO l_exchange_rate_type;
2585: CLOSE c_get_conversion_type;
2586:
2587: IF g_debug_flag = 'Y' THEN
2588: ozf_utility_pvt.write_conc_log('**************************START****************************');
2589: ozf_utility_pvt.write_conc_log('post_accrual_to_budget' ||' From Amount l_adj_amount: '||l_adj_amount );
2590: 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 );
2591: ozf_utility_pvt.write_conc_log('post_accrual_to_budget' ||' From Curr p_adj_amt_tbl(i).order_currency '||p_adj_amt_tbl(i).order_currency );
2592: 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);
2585: CLOSE c_get_conversion_type;
2586:
2587: IF g_debug_flag = 'Y' THEN
2588: ozf_utility_pvt.write_conc_log('**************************START****************************');
2589: ozf_utility_pvt.write_conc_log('post_accrual_to_budget' ||' From Amount l_adj_amount: '||l_adj_amount );
2590: 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 );
2591: ozf_utility_pvt.write_conc_log('post_accrual_to_budget' ||' From Curr p_adj_amt_tbl(i).order_currency '||p_adj_amt_tbl(i).order_currency );
2592: 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);
2593: ozf_utility_pvt.write_conc_log('post_accrual_to_budget' ||' l_exchange_rate_type: '|| l_exchange_rate_type);
2586:
2587: IF g_debug_flag = 'Y' THEN
2588: ozf_utility_pvt.write_conc_log('**************************START****************************');
2589: ozf_utility_pvt.write_conc_log('post_accrual_to_budget' ||' From Amount l_adj_amount: '||l_adj_amount );
2590: 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 );
2591: ozf_utility_pvt.write_conc_log('post_accrual_to_budget' ||' From Curr p_adj_amt_tbl(i).order_currency '||p_adj_amt_tbl(i).order_currency );
2592: 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);
2593: ozf_utility_pvt.write_conc_log('post_accrual_to_budget' ||' l_exchange_rate_type: '|| l_exchange_rate_type);
2594: END IF;
2587: IF g_debug_flag = 'Y' THEN
2588: ozf_utility_pvt.write_conc_log('**************************START****************************');
2589: ozf_utility_pvt.write_conc_log('post_accrual_to_budget' ||' From Amount l_adj_amount: '||l_adj_amount );
2590: 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 );
2591: ozf_utility_pvt.write_conc_log('post_accrual_to_budget' ||' From Curr p_adj_amt_tbl(i).order_currency '||p_adj_amt_tbl(i).order_currency );
2592: 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);
2593: ozf_utility_pvt.write_conc_log('post_accrual_to_budget' ||' l_exchange_rate_type: '|| l_exchange_rate_type);
2594: END IF;
2595:
2588: ozf_utility_pvt.write_conc_log('**************************START****************************');
2589: ozf_utility_pvt.write_conc_log('post_accrual_to_budget' ||' From Amount l_adj_amount: '||l_adj_amount );
2590: 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 );
2591: ozf_utility_pvt.write_conc_log('post_accrual_to_budget' ||' From Curr p_adj_amt_tbl(i).order_currency '||p_adj_amt_tbl(i).order_currency );
2592: 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);
2593: ozf_utility_pvt.write_conc_log('post_accrual_to_budget' ||' l_exchange_rate_type: '|| l_exchange_rate_type);
2594: END IF;
2595:
2596: --nirprasa, ER 8399134 added if condition for null currency offer case where source currency for conversions will be order currency
2589: ozf_utility_pvt.write_conc_log('post_accrual_to_budget' ||' From Amount l_adj_amount: '||l_adj_amount );
2590: 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 );
2591: ozf_utility_pvt.write_conc_log('post_accrual_to_budget' ||' From Curr p_adj_amt_tbl(i).order_currency '||p_adj_amt_tbl(i).order_currency );
2592: 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);
2593: ozf_utility_pvt.write_conc_log('post_accrual_to_budget' ||' l_exchange_rate_type: '|| l_exchange_rate_type);
2594: END IF;
2595:
2596: --nirprasa, ER 8399134 added if condition for null currency offer case where source currency for conversions will be order currency
2597: --and else condition to hadle arrows case when offer's currency is
2596: --nirprasa, ER 8399134 added if condition for null currency offer case where source currency for conversions will be order currency
2597: --and else condition to hadle arrows case when offer's currency is
2598: --different from order currency, in which case the source currency for conversions will be offer currency
2599: IF l_offer_type.transaction_currency_code IS NULL THEN
2600: ozf_utility_pvt.convert_currency (
2601: x_return_status => l_return_status,
2602: p_from_currency => p_adj_amt_tbl(i).order_currency,
2603: p_to_currency => l_fund_amt_tbl (j).budget_currency,
2604: p_conv_type => l_exchange_rate_type, -- nirprasa added for bug 7030415
2606: x_to_amount => l_converted_adj_amount,
2607: x_rate => l_rate
2608: );
2609: ELSE
2610: ozf_utility_pvt.convert_currency (
2611: x_return_status => l_return_status,
2612: p_from_currency => p_adj_amt_tbl(i).offer_currency,
2613: p_to_currency => l_fund_amt_tbl (j).budget_currency,
2614: p_conv_type => l_exchange_rate_type, -- nirprasa added for bug 7030415
2618: );
2619: END IF;
2620:
2621: IF g_debug_flag = 'Y' THEN
2622: ozf_utility_pvt.write_conc_log('post_accrual_to_budget' ||' Converted Amount l_converted_adj_amount: '|| l_converted_adj_amount);
2623: 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');
2624: ozf_utility_pvt.write_conc_log('***************************END******************************');
2625: END IF;
2626:
2619: END IF;
2620:
2621: IF g_debug_flag = 'Y' THEN
2622: ozf_utility_pvt.write_conc_log('post_accrual_to_budget' ||' Converted Amount l_converted_adj_amount: '|| l_converted_adj_amount);
2623: 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');
2624: ozf_utility_pvt.write_conc_log('***************************END******************************');
2625: END IF;
2626:
2627: IF l_return_status <> fnd_api.g_ret_sts_success THEN
2620:
2621: IF g_debug_flag = 'Y' THEN
2622: ozf_utility_pvt.write_conc_log('post_accrual_to_budget' ||' Converted Amount l_converted_adj_amount: '|| l_converted_adj_amount);
2623: 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');
2624: ozf_utility_pvt.write_conc_log('***************************END******************************');
2625: END IF;
2626:
2627: IF l_return_status <> fnd_api.g_ret_sts_success THEN
2628: IF g_debug_flag = 'Y' THEN
2625: END IF;
2626:
2627: IF l_return_status <> fnd_api.g_ret_sts_success THEN
2628: IF g_debug_flag = 'Y' THEN
2629: ozf_utility_pvt.write_conc_log (' D: post_adjust_to_budget() convert currency failed. No posting to budget. Return');
2630: END IF;
2631: RAISE fnd_api.g_exc_unexpected_error;
2632: END IF;
2633: l_act_budgets_rec.parent_src_apprvd_amt :=l_converted_adj_amount;
2633: l_act_budgets_rec.parent_src_apprvd_amt :=l_converted_adj_amount;
2634: END IF;
2635:
2636: IF g_debug_flag = 'Y' THEN
2637: ozf_utility_pvt.write_conc_log ( ' D: post_adjust_to_budget() Adj amount coverted ' || l_converted_adj_amount
2638: || ' l_adj amount ' || l_adj_amount );
2639: END IF;
2640:
2641: l_act_budgets_rec.budget_source_type := 'OFFR';
2692: x_msg_data => x_msg_data
2693: );
2694: IF l_return_status <> fnd_api.g_ret_sts_success THEN
2695: IF g_debug_flag = 'Y' THEN
2696: ozf_utility_pvt.write_conc_log ('D: post_adjust_to_budget() create_fund_utilization() returns error. Exception');
2697: END IF;
2698: RAISE fnd_api.g_exc_unexpected_error;
2699: END IF;
2700:
2700:
2701: <
2702:
2703: IF g_debug_flag = 'Y' THEN
2704: ozf_utility_pvt.write_conc_log ( ' D: post_adjust_to_budget() loop iteration end l_remaining_amount ' || l_remaining_amount
2705: || ' l_adj amount '|| l_adj_amount || ' fund_id '
2706: || l_fund_amt_tbl (j).ofr_src_id );
2707: END IF;
2708:
2711:
2712: <
2713:
2714: IF g_debug_flag = 'Y' THEN
2715: ozf_utility_pvt.write_conc_log('D: Ends successfully post_accrual_to_budget price_adj_id=' || p_adj_amt_tbl(i).price_adjustment_id
2716: || ' amount=' || p_adj_amt_tbl(i).earned_amount);
2717: END IF;
2718:
2719: END LOOP; -- p_adj_amt_tbl
2718:
2719: END LOOP; -- p_adj_amt_tbl
2720:
2721: IF g_debug_flag = 'Y' THEN
2722: ozf_utility_pvt.write_conc_log('D: Ends of post_accrual_to_budget');
2723: END IF;
2724:
2725: x_return_status := fnd_api.g_ret_sts_success;
2726:
2733: EXCEPTION
2734: --nepanda : Added exception block for normal errors and unexpected errors, before checking for OTHERS
2735: WHEN fnd_api.g_exc_error THEN
2736: x_return_status := fnd_api.g_ret_sts_error;
2737: ozf_utility_pvt.write_conc_log (' /**************EXCEPTION in ozf_accrual_engine.post_accrual_to_budget');
2738: fnd_msg_pub.count_and_get (
2739: p_count=> x_msg_count,
2740: p_data=> x_msg_data,
2741: p_encoded=> fnd_api.g_false
2744: x_return_status := fnd_api.g_ret_sts_unexp_error;
2745: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_unexp_error) THEN
2746: fnd_msg_pub.add_exc_msg ('ozf_accrual_engine', 'post_accrual_to_budget');
2747: END IF;
2748: ozf_utility_pvt.write_conc_log (' /**************UNEXPECTED EXCEPTION in ozf_accrual_engine.post_accrual_to_budget');
2749: fnd_msg_pub.count_and_get (
2750: p_count=> x_msg_count,
2751: p_data=> x_msg_data,
2752: p_encoded=> fnd_api.g_false
2755: x_return_status := fnd_api.g_ret_sts_unexp_error;
2756: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_unexp_error) THEN
2757: fnd_msg_pub.add_exc_msg ('ozf_accrual_engine', 'post_accrual_to_budget');
2758: END IF;
2759: ozf_utility_pvt.write_conc_log (' /**************UNEXPECTED EXCEPTION in ozf_accrual_engine.post_accrual_to_budget');
2760: fnd_msg_pub.count_and_get (
2761: p_count=> x_msg_count,
2762: p_data=> x_msg_data,
2763: p_encoded=> fnd_api.g_false
2979:
2980: <
2981:
2982: IF g_debug_flag = 'Y' THEN
2983: ozf_utility_pvt.write_conc_log (' D: Inside New Line Table Loop');
2984: END IF;
2985:
2986: l_adj_amt_tbl.DELETE;
2987:
2990: x_return_status := fnd_api.g_ret_sts_success;
2991: SAVEPOINT line_adjustment;
2992:
2993: IF g_debug_flag = 'Y' THEN
2994: ozf_utility_pvt.write_conc_log (' /++++++++ ADJUSTMENT DEBUG MESSAGE START +++++++++/' );
2995: ozf_utility_pvt.write_conc_log (' D: Begin Processing For Price Adjustment Id # '|| p_line_adj_tbl(i).price_adjustment_id );
2996: END IF;
2997:
2998: IF p_line_adj_tbl (i).list_line_type_code IN
2991: SAVEPOINT line_adjustment;
2992:
2993: IF g_debug_flag = 'Y' THEN
2994: ozf_utility_pvt.write_conc_log (' /++++++++ ADJUSTMENT DEBUG MESSAGE START +++++++++/' );
2995: ozf_utility_pvt.write_conc_log (' D: Begin Processing For Price Adjustment Id # '|| p_line_adj_tbl(i).price_adjustment_id );
2996: END IF;
2997:
2998: IF p_line_adj_tbl (i).list_line_type_code IN
2999: ('CIE', 'DIS', 'IUE', 'OID', 'PLL', 'PMR', 'TSN','PBH')
3007: -- check if it is a TM Offers
3008: IF c_tm_offer%NOTFOUND THEN
3009: CLOSE c_tm_offer;
3010: IF g_debug_flag = 'Y' THEN
3011: ozf_utility_pvt.write_conc_log('D not TM offer: offer id: ' || p_line_adj_tbl(i).list_header_id);
3012: END IF;
3013: GOTO l_endoflineadjloop;
3014: ELSE
3015: CLOSE c_tm_offer;
3022: l_new_adjustment_amount := 0; --nirprasa, fix for bug 8435499.
3023: l_cost_price := 0;
3024:
3025: IF g_debug_flag = 'Y' THEN
3026: ozf_utility_pvt.write_conc_log (' D: Operation '|| p_line_adj_tbl (i).operation ||
3027: ' Order header id ' || p_line_adj_tbl (i).header_id || ' Line id ' || p_line_adj_tbl (i).line_id ||
3028: ' applied flag ' || p_line_adj_tbl (i).applied_flag);
3029: END IF;
3030:
3066: FETCH c_mod_level INTO l_modifier_level_code,l_range_break, l_new_adjustment_amount,l_operand, l_arithmetic_operator; --ER9447673;
3067: CLOSE c_mod_level;
3068:
3069: IF g_debug_flag = 'Y' THEN
3070: ozf_utility_pvt.write_conc_log (' D: Modifier level code '|| l_modifier_level_code);
3071: END IF;
3072: END IF;
3073:
3074: IF g_debug_flag = 'Y' THEN
3071: END IF;
3072: END IF;
3073:
3074: IF g_debug_flag = 'Y' THEN
3075: ozf_utility_pvt.write_conc_log (
3076: ' D: Line quantity '|| l_line_quantity || ' Cancelled quantity ' || l_cancelled_quantity ||
3077: ' line_adj_tbl.adjusted_amount=' || l_new_adjustment_amount
3078: );
3079: END IF;
3094: CLOSE c_get_util;
3095:
3096: IF NVL(l_util_exists,0) = 1 THEN
3097: IF g_debug_flag = 'Y' THEN
3098: ozf_utility_pvt.write_conc_log('Manual re-pricing of order created before offer start date. No utilization.');
3099: END IF;
3100: GOTO l_endoflineadjloop;
3101: END IF;
3102:
3101: END IF;
3102:
3103: IF l_operation = 'CREATE' THEN
3104: IF g_debug_flag = 'Y' THEN
3105: ozf_utility_pvt.write_conc_log ('operation create');
3106: END IF;
3107:
3108: OPEN c_offer_details(p_line_adj_tbl(i).list_header_id);
3109: FETCH c_offer_details INTO l_custom_setup_id, l_offer_name;
3120: IF l_column_name IS NOT NULL AND l_column_name <> FND_API.G_MISS_CHAR THEN
3121: l_stmt := 'SELECT ' || l_column_name ||' FROM oe_order_lines_all WHERE line_id = :1 AND org_id = :2';
3122:
3123: IF g_debug_flag = 'Y' THEN
3124: ozf_utility_pvt.write_conc_log('Query to obtain purchase price '||l_stmt);
3125: END IF;
3126:
3127: OPEN c_purchase_price FOR l_stmt using p_line_adj_tbl(i).line_id, l_order_org_id;
3128: FETCH c_purchase_price INTO l_cost_price;
3130: END IF;
3131:
3132: -- Catch Weight ER - start
3133: IF g_debug_flag = 'Y' THEN
3134: ozf_utility_pvt.write_conc_log('Order_quantity_uom=' || l_order_quantity_uom );
3135: ozf_utility_pvt.write_conc_log('order_quantity=' || l_line_quantity );
3136:
3137: ozf_utility_pvt.write_conc_log(' l_cost_price' || l_cost_price );
3138: END IF;
3131:
3132: -- Catch Weight ER - start
3133: IF g_debug_flag = 'Y' THEN
3134: ozf_utility_pvt.write_conc_log('Order_quantity_uom=' || l_order_quantity_uom );
3135: ozf_utility_pvt.write_conc_log('order_quantity=' || l_line_quantity );
3136:
3137: ozf_utility_pvt.write_conc_log(' l_cost_price' || l_cost_price );
3138: END IF;
3139: -- Catch Weight ER - end
3133: IF g_debug_flag = 'Y' THEN
3134: ozf_utility_pvt.write_conc_log('Order_quantity_uom=' || l_order_quantity_uom );
3135: ozf_utility_pvt.write_conc_log('order_quantity=' || l_line_quantity );
3136:
3137: ozf_utility_pvt.write_conc_log(' l_cost_price' || l_cost_price );
3138: END IF;
3139: -- Catch Weight ER - end
3140:
3141: IF (l_cost_price = -1) THEN
3150: GOTO l_endoflineadjloop;
3151: END IF;
3152:
3153: IF g_debug_flag = 'Y' THEN
3154: ozf_utility_pvt.write_conc_log(' D: adjust_accrual()_ l_cost_price = ' || l_cost_price);
3155: ozf_utility_pvt.write_conc_log(' D: adjust_accrual()_ l_line_quantity = ' || l_line_quantity);
3156: ozf_utility_pvt.write_conc_log(' D: adjust_accrual()_ l_arithmetic_operator = ' || l_arithmetic_operator);
3157: ozf_utility_pvt.write_conc_log(' D: adjust_accrual()_ l_operand = ' || l_operand);
3158: END IF;
3151: END IF;
3152:
3153: IF g_debug_flag = 'Y' THEN
3154: ozf_utility_pvt.write_conc_log(' D: adjust_accrual()_ l_cost_price = ' || l_cost_price);
3155: ozf_utility_pvt.write_conc_log(' D: adjust_accrual()_ l_line_quantity = ' || l_line_quantity);
3156: ozf_utility_pvt.write_conc_log(' D: adjust_accrual()_ l_arithmetic_operator = ' || l_arithmetic_operator);
3157: ozf_utility_pvt.write_conc_log(' D: adjust_accrual()_ l_operand = ' || l_operand);
3158: END IF;
3159:
3152:
3153: IF g_debug_flag = 'Y' THEN
3154: ozf_utility_pvt.write_conc_log(' D: adjust_accrual()_ l_cost_price = ' || l_cost_price);
3155: ozf_utility_pvt.write_conc_log(' D: adjust_accrual()_ l_line_quantity = ' || l_line_quantity);
3156: ozf_utility_pvt.write_conc_log(' D: adjust_accrual()_ l_arithmetic_operator = ' || l_arithmetic_operator);
3157: ozf_utility_pvt.write_conc_log(' D: adjust_accrual()_ l_operand = ' || l_operand);
3158: END IF;
3159:
3160: -- Catch Weight ER - start
3153: IF g_debug_flag = 'Y' THEN
3154: ozf_utility_pvt.write_conc_log(' D: adjust_accrual()_ l_cost_price = ' || l_cost_price);
3155: ozf_utility_pvt.write_conc_log(' D: adjust_accrual()_ l_line_quantity = ' || l_line_quantity);
3156: ozf_utility_pvt.write_conc_log(' D: adjust_accrual()_ l_arithmetic_operator = ' || l_arithmetic_operator);
3157: ozf_utility_pvt.write_conc_log(' D: adjust_accrual()_ l_operand = ' || l_operand);
3158: END IF;
3159:
3160: -- Catch Weight ER - start
3161: -- Converting shipping quantity from shipping uom to order uom only when arithmatic op is not AMT, as in case of AMT, operand takes care of catch weight
3159:
3160: -- Catch Weight ER - start
3161: -- Converting shipping quantity from shipping uom to order uom only when arithmatic op is not AMT, as in case of AMT, operand takes care of catch weight
3162: IF l_arithmetic_operator <> 'AMT' THEN
3163: /*OZF_UTILITY_PVT.get_catch_weight_quantity (
3164: p_inventory_item_id => l_product_id,
3165: p_order_line_id => p_line_adj_tbl (i).line_id,
3166: x_return_status => l_return_status,
3167: x_cw_quantity => l_cw_quantity,
3188: ,l_order_quantity_uom -- to_unit
3189: ,NULL -- from_name
3190: ,NULL -- to_name
3191: );
3192: ozf_utility_pvt.write_conc_log(' Catch Weight D: adjust_accrual()_ l_line_quantity = ' || l_line_quantity);
3193: END IF;
3194: END IF;
3195: -- Catch Weight ER - end
3196:
3202: l_earned_amount := (NVL(l_operand, 0)) * l_line_quantity;
3203: END IF;
3204:
3205: IF g_debug_flag = 'Y' THEN
3206: ozf_utility_pvt.write_conc_log(' D: adjust_accrual()_ create earned amount = ' || l_earned_amount);
3207: END IF;
3208: ELSE
3209: l_earned_amount := (-(NVL(l_new_adjustment_amount, 0))) * l_line_quantity;
3210: END IF;
3212: --l_earned_amount := (-(NVL(l_new_adjustment_amount, 0))) * l_line_quantity;
3213: --ER9447673
3214:
3215: IF g_debug_flag = 'Y' THEN
3216: ozf_utility_pvt.write_conc_log(' D: adjust_accrual()_ create earned amount = ' || l_earned_amount);
3217: END IF;
3218:
3219: IF l_line_category_code = 'RETURN' THEN
3220: IF g_debug_flag = 'Y' THEN
3217: END IF;
3218:
3219: IF l_line_category_code = 'RETURN' THEN
3220: IF g_debug_flag = 'Y' THEN
3221: ozf_utility_pvt.write_conc_log ( ' LINE IS RETURN ');
3222: END IF;
3223: l_earned_amount := -l_earned_amount;
3224: END IF;
3225:
3237: IF l_offer_transaction_curr IS NOT NULL AND l_offer_transaction_curr <> l_order_curr THEN
3238:
3239:
3240: IF g_debug_flag = 'Y' THEN
3241: ozf_utility_pvt.write_conc_log('l_order_curr: ' || l_order_curr);
3242: ozf_utility_pvt.write_conc_log('l_offer_curr: ' || l_offer_curr);
3243: ozf_utility_pvt.write_conc_log('l_earned_amount: ' || l_earned_amount);
3244: ozf_utility_pvt.write_conc_log('l_order_org_id: ' || l_order_org_id);
3245: ozf_utility_pvt.write_conc_log('**************************START****************************');
3238:
3239:
3240: IF g_debug_flag = 'Y' THEN
3241: ozf_utility_pvt.write_conc_log('l_order_curr: ' || l_order_curr);
3242: ozf_utility_pvt.write_conc_log('l_offer_curr: ' || l_offer_curr);
3243: ozf_utility_pvt.write_conc_log('l_earned_amount: ' || l_earned_amount);
3244: ozf_utility_pvt.write_conc_log('l_order_org_id: ' || l_order_org_id);
3245: ozf_utility_pvt.write_conc_log('**************************START****************************');
3246: ozf_utility_pvt.write_conc_log(l_api_name||' From Amount l_earned_amount: '||l_earned_amount );
3239:
3240: IF g_debug_flag = 'Y' THEN
3241: ozf_utility_pvt.write_conc_log('l_order_curr: ' || l_order_curr);
3242: ozf_utility_pvt.write_conc_log('l_offer_curr: ' || l_offer_curr);
3243: ozf_utility_pvt.write_conc_log('l_earned_amount: ' || l_earned_amount);
3244: ozf_utility_pvt.write_conc_log('l_order_org_id: ' || l_order_org_id);
3245: ozf_utility_pvt.write_conc_log('**************************START****************************');
3246: ozf_utility_pvt.write_conc_log(l_api_name||' From Amount l_earned_amount: '||l_earned_amount );
3247: ozf_utility_pvt.write_conc_log(l_api_name||' From Curr l_order_curr: '||l_order_curr );
3240: IF g_debug_flag = 'Y' THEN
3241: ozf_utility_pvt.write_conc_log('l_order_curr: ' || l_order_curr);
3242: ozf_utility_pvt.write_conc_log('l_offer_curr: ' || l_offer_curr);
3243: ozf_utility_pvt.write_conc_log('l_earned_amount: ' || l_earned_amount);
3244: ozf_utility_pvt.write_conc_log('l_order_org_id: ' || l_order_org_id);
3245: ozf_utility_pvt.write_conc_log('**************************START****************************');
3246: ozf_utility_pvt.write_conc_log(l_api_name||' From Amount l_earned_amount: '||l_earned_amount );
3247: ozf_utility_pvt.write_conc_log(l_api_name||' From Curr l_order_curr: '||l_order_curr );
3248: ozf_utility_pvt.write_conc_log(l_api_name||' l_exchange_rate_type: '|| l_exchange_rate_type);
3241: ozf_utility_pvt.write_conc_log('l_order_curr: ' || l_order_curr);
3242: ozf_utility_pvt.write_conc_log('l_offer_curr: ' || l_offer_curr);
3243: ozf_utility_pvt.write_conc_log('l_earned_amount: ' || l_earned_amount);
3244: ozf_utility_pvt.write_conc_log('l_order_org_id: ' || l_order_org_id);
3245: ozf_utility_pvt.write_conc_log('**************************START****************************');
3246: ozf_utility_pvt.write_conc_log(l_api_name||' From Amount l_earned_amount: '||l_earned_amount );
3247: ozf_utility_pvt.write_conc_log(l_api_name||' From Curr l_order_curr: '||l_order_curr );
3248: ozf_utility_pvt.write_conc_log(l_api_name||' l_exchange_rate_type: '|| l_exchange_rate_type);
3249: END IF;
3242: ozf_utility_pvt.write_conc_log('l_offer_curr: ' || l_offer_curr);
3243: ozf_utility_pvt.write_conc_log('l_earned_amount: ' || l_earned_amount);
3244: ozf_utility_pvt.write_conc_log('l_order_org_id: ' || l_order_org_id);
3245: ozf_utility_pvt.write_conc_log('**************************START****************************');
3246: ozf_utility_pvt.write_conc_log(l_api_name||' From Amount l_earned_amount: '||l_earned_amount );
3247: ozf_utility_pvt.write_conc_log(l_api_name||' From Curr l_order_curr: '||l_order_curr );
3248: ozf_utility_pvt.write_conc_log(l_api_name||' l_exchange_rate_type: '|| l_exchange_rate_type);
3249: END IF;
3250:
3243: ozf_utility_pvt.write_conc_log('l_earned_amount: ' || l_earned_amount);
3244: ozf_utility_pvt.write_conc_log('l_order_org_id: ' || l_order_org_id);
3245: ozf_utility_pvt.write_conc_log('**************************START****************************');
3246: ozf_utility_pvt.write_conc_log(l_api_name||' From Amount l_earned_amount: '||l_earned_amount );
3247: ozf_utility_pvt.write_conc_log(l_api_name||' From Curr l_order_curr: '||l_order_curr );
3248: ozf_utility_pvt.write_conc_log(l_api_name||' l_exchange_rate_type: '|| l_exchange_rate_type);
3249: END IF;
3250:
3251: ozf_utility_pvt.convert_currency (x_return_status => x_return_status
3244: ozf_utility_pvt.write_conc_log('l_order_org_id: ' || l_order_org_id);
3245: ozf_utility_pvt.write_conc_log('**************************START****************************');
3246: ozf_utility_pvt.write_conc_log(l_api_name||' From Amount l_earned_amount: '||l_earned_amount );
3247: ozf_utility_pvt.write_conc_log(l_api_name||' From Curr l_order_curr: '||l_order_curr );
3248: ozf_utility_pvt.write_conc_log(l_api_name||' l_exchange_rate_type: '|| l_exchange_rate_type);
3249: END IF;
3250:
3251: ozf_utility_pvt.convert_currency (x_return_status => x_return_status
3252: ,p_from_currency => l_order_curr
3247: ozf_utility_pvt.write_conc_log(l_api_name||' From Curr l_order_curr: '||l_order_curr );
3248: ozf_utility_pvt.write_conc_log(l_api_name||' l_exchange_rate_type: '|| l_exchange_rate_type);
3249: END IF;
3250:
3251: ozf_utility_pvt.convert_currency (x_return_status => x_return_status
3252: ,p_from_currency => l_order_curr
3253: ,p_to_currency => l_offer_curr
3254: ,p_conv_type => l_exchange_rate_type -- Added for bug 7030415
3255: ,p_from_amount => l_earned_amount
3257: ,x_rate => l_rate
3258: );
3259:
3260: IF g_debug_flag = 'Y' THEN
3261: ozf_utility_pvt.write_conc_log(l_api_name||' To Curr l_offer_curr: '|| l_offer_curr );
3262: ozf_utility_pvt.write_conc_log(l_api_name||' Converted Amount l_conv_earned_amount: '|| l_conv_earned_amount);
3263: ozf_utility_pvt.write_conc_log('Earned amount is converted from order curr to offer curr');
3264: ozf_utility_pvt.write_conc_log('***************************END******************************');
3265: ozf_utility_pvt.write_conc_log('x_return_status: ' || x_return_status);
3258: );
3259:
3260: IF g_debug_flag = 'Y' THEN
3261: ozf_utility_pvt.write_conc_log(l_api_name||' To Curr l_offer_curr: '|| l_offer_curr );
3262: ozf_utility_pvt.write_conc_log(l_api_name||' Converted Amount l_conv_earned_amount: '|| l_conv_earned_amount);
3263: ozf_utility_pvt.write_conc_log('Earned amount is converted from order curr to offer curr');
3264: ozf_utility_pvt.write_conc_log('***************************END******************************');
3265: ozf_utility_pvt.write_conc_log('x_return_status: ' || x_return_status);
3266: END IF;
3259:
3260: IF g_debug_flag = 'Y' THEN
3261: ozf_utility_pvt.write_conc_log(l_api_name||' To Curr l_offer_curr: '|| l_offer_curr );
3262: ozf_utility_pvt.write_conc_log(l_api_name||' Converted Amount l_conv_earned_amount: '|| l_conv_earned_amount);
3263: ozf_utility_pvt.write_conc_log('Earned amount is converted from order curr to offer curr');
3264: ozf_utility_pvt.write_conc_log('***************************END******************************');
3265: ozf_utility_pvt.write_conc_log('x_return_status: ' || x_return_status);
3266: END IF;
3267:
3260: IF g_debug_flag = 'Y' THEN
3261: ozf_utility_pvt.write_conc_log(l_api_name||' To Curr l_offer_curr: '|| l_offer_curr );
3262: ozf_utility_pvt.write_conc_log(l_api_name||' Converted Amount l_conv_earned_amount: '|| l_conv_earned_amount);
3263: ozf_utility_pvt.write_conc_log('Earned amount is converted from order curr to offer curr');
3264: ozf_utility_pvt.write_conc_log('***************************END******************************');
3265: ozf_utility_pvt.write_conc_log('x_return_status: ' || x_return_status);
3266: END IF;
3267:
3268: IF x_return_status <> fnd_api.g_ret_sts_success THEN
3261: ozf_utility_pvt.write_conc_log(l_api_name||' To Curr l_offer_curr: '|| l_offer_curr );
3262: ozf_utility_pvt.write_conc_log(l_api_name||' Converted Amount l_conv_earned_amount: '|| l_conv_earned_amount);
3263: ozf_utility_pvt.write_conc_log('Earned amount is converted from order curr to offer curr');
3264: ozf_utility_pvt.write_conc_log('***************************END******************************');
3265: ozf_utility_pvt.write_conc_log('x_return_status: ' || x_return_status);
3266: END IF;
3267:
3268: IF x_return_status <> fnd_api.g_ret_sts_success THEN
3269: GOTO l_endoflineadjloop;
3271:
3272: l_earned_amount := l_conv_earned_amount;
3273:
3274: IF g_debug_flag = 'Y' THEN
3275: ozf_utility_pvt.write_conc_log ('earned amt after currency conversion: ' || l_earned_amount);
3276: END IF;
3277: END IF;
3278:
3279: ELSIF l_operation = 'UPDATE' THEN
3277: END IF;
3278:
3279: ELSIF l_operation = 'UPDATE' THEN
3280: IF g_debug_flag = 'Y' THEN
3281: ozf_utility_pvt.write_conc_log ('operation UPDATE');
3282: END IF;
3283: -- if the old and the new is the same we donot need to update it \
3284: OPEN c_old_adjustment_amount (p_line_adj_tbl (i).price_adjustment_id);
3285: FETCH c_old_adjustment_amount INTO l_old_adjusted_amount; -- in order curr
3285: FETCH c_old_adjustment_amount INTO l_old_adjusted_amount; -- in order curr
3286: CLOSE c_old_adjustment_amount;
3287:
3288: IF g_debug_flag = 'Y' THEN
3289: ozf_utility_pvt.write_conc_log (
3290: ' D: Old adjsutment amount '
3291: || l_old_adjusted_amount
3292: || ' Old price adjustment id '
3293: || p_line_adj_tbl (i).price_adjustment_id
3296: -- if all the money coming in has been adjusted then set it to 0
3297: --5/2/2002 the ordered quantity is the actual ordered quantity and not the difference
3298: IF l_line_category_code = 'RETURN' THEN
3299: IF g_debug_flag = 'Y' THEN
3300: ozf_utility_pvt.write_conc_log ( ' LINE IS RETURN ');
3301: END IF;
3302: l_line_quantity := -l_line_quantity; -- fred should be cancelled qutity.
3303: END IF;
3304:
3306: FETCH c_offer_details INTO l_custom_setup_id, l_offer_name;
3307: CLOSE c_offer_details;
3308:
3309: IF g_debug_flag = 'Y' THEN
3310: ozf_utility_pvt.write_conc_log(' l_custom_setup_id=' || l_custom_setup_id );
3311: END IF;
3312:
3313:
3314: IF l_custom_setup_id = 118 THEN --ER9447673
3318: IF l_column_name IS NOT NULL AND l_column_name <> FND_API.G_MISS_CHAR THEN
3319: l_stmt := 'SELECT ' || l_column_name ||' FROM oe_order_lines_all WHERE line_id = :1 AND org_id = :2';
3320:
3321: IF g_debug_flag = 'Y' THEN
3322: ozf_utility_pvt.write_conc_log('Query to obtain purchase price '||l_stmt);
3323: END IF;
3324:
3325: OPEN c_purchase_price FOR l_stmt using p_line_adj_tbl(i).line_id, l_order_org_id;
3326: FETCH c_purchase_price INTO l_cost_price;
3328: END IF;
3329:
3330: -- Catch Weight ER - start
3331: IF g_debug_flag = 'Y' THEN
3332: ozf_utility_pvt.write_conc_log('Order_quantity_uom=' || l_order_quantity_uom );
3333: ozf_utility_pvt.write_conc_log('order_quantity=' || l_line_quantity );
3334: -- ozf_utility_pvt.write_conc_log('shipping_quantity_uom=' || l_shipping_quantity_uom );
3335: -- ozf_utility_pvt.write_conc_log('shipping_quantity=' || l_shipping_quantity );
3336: -- Catch Weight ER - end
3329:
3330: -- Catch Weight ER - start
3331: IF g_debug_flag = 'Y' THEN
3332: ozf_utility_pvt.write_conc_log('Order_quantity_uom=' || l_order_quantity_uom );
3333: ozf_utility_pvt.write_conc_log('order_quantity=' || l_line_quantity );
3334: -- ozf_utility_pvt.write_conc_log('shipping_quantity_uom=' || l_shipping_quantity_uom );
3335: -- ozf_utility_pvt.write_conc_log('shipping_quantity=' || l_shipping_quantity );
3336: -- Catch Weight ER - end
3337: ozf_utility_pvt.write_conc_log(' l_cost_price' || l_cost_price );
3330: -- Catch Weight ER - start
3331: IF g_debug_flag = 'Y' THEN
3332: ozf_utility_pvt.write_conc_log('Order_quantity_uom=' || l_order_quantity_uom );
3333: ozf_utility_pvt.write_conc_log('order_quantity=' || l_line_quantity );
3334: -- ozf_utility_pvt.write_conc_log('shipping_quantity_uom=' || l_shipping_quantity_uom );
3335: -- ozf_utility_pvt.write_conc_log('shipping_quantity=' || l_shipping_quantity );
3336: -- Catch Weight ER - end
3337: ozf_utility_pvt.write_conc_log(' l_cost_price' || l_cost_price );
3338: END IF;
3331: IF g_debug_flag = 'Y' THEN
3332: ozf_utility_pvt.write_conc_log('Order_quantity_uom=' || l_order_quantity_uom );
3333: ozf_utility_pvt.write_conc_log('order_quantity=' || l_line_quantity );
3334: -- ozf_utility_pvt.write_conc_log('shipping_quantity_uom=' || l_shipping_quantity_uom );
3335: -- ozf_utility_pvt.write_conc_log('shipping_quantity=' || l_shipping_quantity );
3336: -- Catch Weight ER - end
3337: ozf_utility_pvt.write_conc_log(' l_cost_price' || l_cost_price );
3338: END IF;
3339:
3333: ozf_utility_pvt.write_conc_log('order_quantity=' || l_line_quantity );
3334: -- ozf_utility_pvt.write_conc_log('shipping_quantity_uom=' || l_shipping_quantity_uom );
3335: -- ozf_utility_pvt.write_conc_log('shipping_quantity=' || l_shipping_quantity );
3336: -- Catch Weight ER - end
3337: ozf_utility_pvt.write_conc_log(' l_cost_price' || l_cost_price );
3338: END IF;
3339:
3340: IF (l_cost_price = -1) THEN
3341: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_debug_low) THEN
3349: GOTO l_endoflineadjloop;
3350: END IF;
3351:
3352: IF g_debug_flag = 'Y' THEN
3353: ozf_utility_pvt.write_conc_log(' D: adjust_accrual()_ l_cost_price = ' || l_cost_price);
3354: ozf_utility_pvt.write_conc_log(' D: adjust_accrual()_ l_line_quantity = ' || l_line_quantity);
3355: ozf_utility_pvt.write_conc_log(' D: adjust_accrual()_ l_arithmetic_operator = ' || l_arithmetic_operator);
3356: ozf_utility_pvt.write_conc_log(' D: adjust_accrual()_ l_operand = ' || l_operand);
3357: END IF;
3350: END IF;
3351:
3352: IF g_debug_flag = 'Y' THEN
3353: ozf_utility_pvt.write_conc_log(' D: adjust_accrual()_ l_cost_price = ' || l_cost_price);
3354: ozf_utility_pvt.write_conc_log(' D: adjust_accrual()_ l_line_quantity = ' || l_line_quantity);
3355: ozf_utility_pvt.write_conc_log(' D: adjust_accrual()_ l_arithmetic_operator = ' || l_arithmetic_operator);
3356: ozf_utility_pvt.write_conc_log(' D: adjust_accrual()_ l_operand = ' || l_operand);
3357: END IF;
3358: -- Catch Weight ER - start
3351:
3352: IF g_debug_flag = 'Y' THEN
3353: ozf_utility_pvt.write_conc_log(' D: adjust_accrual()_ l_cost_price = ' || l_cost_price);
3354: ozf_utility_pvt.write_conc_log(' D: adjust_accrual()_ l_line_quantity = ' || l_line_quantity);
3355: ozf_utility_pvt.write_conc_log(' D: adjust_accrual()_ l_arithmetic_operator = ' || l_arithmetic_operator);
3356: ozf_utility_pvt.write_conc_log(' D: adjust_accrual()_ l_operand = ' || l_operand);
3357: END IF;
3358: -- Catch Weight ER - start
3359: -- Converting shipping quantity from shipping uom to order uom only when arithmatic op is not AMT, as in case of AMT, operand takes care of catch weight
3352: IF g_debug_flag = 'Y' THEN
3353: ozf_utility_pvt.write_conc_log(' D: adjust_accrual()_ l_cost_price = ' || l_cost_price);
3354: ozf_utility_pvt.write_conc_log(' D: adjust_accrual()_ l_line_quantity = ' || l_line_quantity);
3355: ozf_utility_pvt.write_conc_log(' D: adjust_accrual()_ l_arithmetic_operator = ' || l_arithmetic_operator);
3356: ozf_utility_pvt.write_conc_log(' D: adjust_accrual()_ l_operand = ' || l_operand);
3357: END IF;
3358: -- Catch Weight ER - start
3359: -- Converting shipping quantity from shipping uom to order uom only when arithmatic op is not AMT, as in case of AMT, operand takes care of catch weight
3360: IF l_arithmetic_operator <> 'AMT' THEN
3357: END IF;
3358: -- Catch Weight ER - start
3359: -- Converting shipping quantity from shipping uom to order uom only when arithmatic op is not AMT, as in case of AMT, operand takes care of catch weight
3360: IF l_arithmetic_operator <> 'AMT' THEN
3361: /*OZF_UTILITY_PVT.get_catch_weight_quantity (
3362: p_inventory_item_id => l_product_id,
3363: p_order_line_id => p_line_adj_tbl (i).line_id,
3364: x_return_status => l_return_status,
3365: x_cw_quantity => l_cw_quantity,
3386: ,l_order_quantity_uom -- to_unit
3387: ,NULL -- from_name
3388: ,NULL -- to_name
3389: );
3390: ozf_utility_pvt.write_conc_log(' Catch Weight D: adjust_accrual()_ l_line_quantity = ' || l_line_quantity);
3391: END IF;
3392: END IF;
3393: -- Catch Weight ER - end
3394:
3432: /* l_new_adjustment_amount := (l_line_quantity )
3433: * (-(NVL (l_new_adjustment_amount, 0)));*/
3434:
3435: IF g_debug_flag = 'Y' THEN
3436: ozf_utility_pvt.write_conc_log(' D: adjust_accrual() l_new_adjustment_amount=' || l_new_adjustment_amount );
3437: END IF;
3438:
3439: --nirprasa, ER 8399134, multi-currency enhancement
3440: IF l_offer_curr <> l_order_curr AND l_offer_transaction_curr IS NOT NULL THEN
3439: --nirprasa, ER 8399134, multi-currency enhancement
3440: IF l_offer_curr <> l_order_curr AND l_offer_transaction_curr IS NOT NULL THEN
3441:
3442: IF g_debug_flag = 'Y' THEN
3443: ozf_utility_pvt.write_conc_log('l_order_curr: ' || l_order_curr);
3444: ozf_utility_pvt.write_conc_log('l_offer_curr: ' || l_offer_curr);
3445: ozf_utility_pvt.write_conc_log('l_new_adjustment_amount: ' || l_new_adjustment_amount);
3446: END IF;
3447:
3440: IF l_offer_curr <> l_order_curr AND l_offer_transaction_curr IS NOT NULL THEN
3441:
3442: IF g_debug_flag = 'Y' THEN
3443: ozf_utility_pvt.write_conc_log('l_order_curr: ' || l_order_curr);
3444: ozf_utility_pvt.write_conc_log('l_offer_curr: ' || l_offer_curr);
3445: ozf_utility_pvt.write_conc_log('l_new_adjustment_amount: ' || l_new_adjustment_amount);
3446: END IF;
3447:
3448: ozf_utility_pvt.convert_currency (x_return_status => x_return_status
3441:
3442: IF g_debug_flag = 'Y' THEN
3443: ozf_utility_pvt.write_conc_log('l_order_curr: ' || l_order_curr);
3444: ozf_utility_pvt.write_conc_log('l_offer_curr: ' || l_offer_curr);
3445: ozf_utility_pvt.write_conc_log('l_new_adjustment_amount: ' || l_new_adjustment_amount);
3446: END IF;
3447:
3448: ozf_utility_pvt.convert_currency (x_return_status => x_return_status
3449: ,p_from_currency => l_order_curr
3444: ozf_utility_pvt.write_conc_log('l_offer_curr: ' || l_offer_curr);
3445: ozf_utility_pvt.write_conc_log('l_new_adjustment_amount: ' || l_new_adjustment_amount);
3446: END IF;
3447:
3448: ozf_utility_pvt.convert_currency (x_return_status => x_return_status
3449: ,p_from_currency => l_order_curr
3450: ,p_to_currency => l_offer_curr
3451: ,p_conv_type => l_exchange_rate_type -- Added for bug 7030415
3452: ,p_from_amount => l_new_adjustment_amount
3453: ,x_to_amount => l_conv_adjustment_amount
3454: ,x_rate => l_rate
3455: );
3456:
3457: ozf_utility_pvt.write_conc_log('x_return_status: ' || x_return_status);
3458:
3459: IF x_return_status <> fnd_api.g_ret_sts_success THEN
3460: GOTO l_endoflineadjloop;
3461: END IF;
3462:
3463: l_new_adjustment_amount := l_conv_adjustment_amount;
3464:
3465: IF g_debug_flag = 'Y' THEN
3466: ozf_utility_pvt.write_conc_log ('new adjusted amt after currency conversion: ' || l_new_adjustment_amount);
3467: END IF;
3468: END IF;
3469:
3470: IF g_debug_flag = 'Y' THEN
3467: END IF;
3468: END IF;
3469:
3470: IF g_debug_flag = 'Y' THEN
3471: ozf_utility_pvt.write_conc_log ('Check for Partial Shipment: ' || p_line_adj_tbl (i).line_id);
3472: END IF;
3473:
3474:
3475: l_earned_amount := l_new_adjustment_amount - NVL(l_old_adjusted_amount,0);
3474:
3475: l_earned_amount := l_new_adjustment_amount - NVL(l_old_adjusted_amount,0);
3476:
3477: IF g_debug_flag = 'Y' THEN
3478: ozf_utility_pvt.write_conc_log (' D: Update earned amount '|| l_earned_amount);
3479: END IF;
3480:
3481: -- Changes by rimehrot (12/8/2004) for bug 3697213
3482: -- When order is re-priced and offer is removed from the order, a message with operation
3482: -- When order is re-priced and offer is removed from the order, a message with operation
3483: -- 'DELETE' is sent and the original accrual should be reverted in this case.
3484: ELSIF l_operation = 'DELETE' AND p_line_adj_tbl (i).price_adjustment_id IS NOT NULL THEN
3485: IF g_debug_flag = 'Y' THEN
3486: ozf_utility_pvt.write_conc_log ('operation DELETE');
3487: END IF;
3488:
3489: FOR old_adjustment_rec IN
3490: c_old_adjustment_amt (p_line_adj_tbl (i).price_adjustment_id)
3543: x_msg_data=> x_msg_data
3544: );
3545:
3546: IF g_debug_flag = 'Y' THEN
3547: ozf_utility_pvt.write_conc_log (
3548: 'create utlization from cancelled order returns '|| l_return_status
3549: );
3550: END IF;
3551:
3580: );
3581:
3582: -- do not raise exception for gl posting error. Just mark it as failed and deal with it later
3583: IF g_debug_flag = 'Y' THEN
3584: ozf_utility_pvt.write_conc_log(' D: adjust_changed_order() processing price adjustment id' || p_line_adj_tbl (i).line_id
3585: || ' post_accrual_to_gl(util_id=' || l_utilization_id ||
3586: ' gl_posted_flag' || l_gl_posted_flag || ') returns ' || l_return_status);
3587: END IF;
3588: END IF; -- end of gl_posted_flag in (Y, F)
3593: END IF; -- end if for mode
3594:
3595: --6373391
3596: IF g_debug_flag = 'Y' THEN
3597: ozf_utility_pvt.write_conc_log('NP line_id '||p_line_adj_tbl (i).line_id);
3598: END IF;
3599:
3600: OPEN c_split_line(p_line_adj_tbl (i).line_id);
3601: FETCH c_split_line INTO l_new_line_id;
3601: FETCH c_split_line INTO l_new_line_id;
3602: CLOSE c_split_line;
3603:
3604: IF g_debug_flag = 'Y' THEN
3605: ozf_utility_pvt.write_conc_log('NP l_new_line_id '||l_new_line_id);
3606: END IF;
3607:
3608: -- OM sometimes is not sending create message for new split line . So handle it in TM.
3609: -- and create accrual so that we get a rec in utilization table for split line
3610:
3611: IF NVL(l_earned_amount,0) = 0 AND p_line_adj_tbl (i).operation <> 'CREATE'
3612: AND NVL(l_new_line_id,0) = 0 THEN
3613: IF g_debug_flag = 'Y' THEN
3614: ozf_utility_pvt.write_conc_log(' D: adjust_accrual() earned amount = 0. No adjustment');
3615: END IF;
3616: GOTO l_endoflineadjloop;
3617: END IF;
3618:
3616: GOTO l_endoflineadjloop;
3617: END IF;
3618:
3619: IF g_debug_flag = 'Y' THEN
3620: ozf_utility_pvt.write_conc_log(' creating adjustment for '||l_new_line_id);
3621: ozf_utility_pvt.write_conc_log(' D: adjust_accrual() earned amount = ' || l_earned_amount);
3622: END IF;
3623:
3624: l_count := l_count + 1;
3617: END IF;
3618:
3619: IF g_debug_flag = 'Y' THEN
3620: ozf_utility_pvt.write_conc_log(' creating adjustment for '||l_new_line_id);
3621: ozf_utility_pvt.write_conc_log(' D: adjust_accrual() earned amount = ' || l_earned_amount);
3622: END IF;
3623:
3624: l_count := l_count + 1;
3625: l_adj_amt_tbl (l_count).order_header_id := p_line_adj_tbl (i).header_id;
3626: l_adj_amt_tbl (l_count).order_line_id := p_line_adj_tbl (i).line_id;
3627: l_adj_amt_tbl (l_count).price_adjustment_id := p_line_adj_tbl (i).price_adjustment_id;
3628: l_adj_amt_tbl (l_count).qp_list_header_id:= p_line_adj_tbl (i).list_header_id;
3629: l_adj_amt_tbl (l_count).product_id := l_product_id;
3630: --l_adj_amt_tbl (l_count).earned_amount := ozf_utility_pvt.currround (l_earned_amount, l_order_curr);
3631: l_adj_amt_tbl (l_count).earned_amount := l_earned_amount;
3632: l_adj_amt_tbl (l_count).offer_currency:= l_offer_curr;
3633: --nirprasa, ER 8399134 multi-currency enhancement, added parameter order currency.
3634: --l_adj_amt_tbl, will be passed on to post_accrual_to_budget
3639: <
3640:
3641: IF x_return_status <> fnd_api.g_ret_sts_success THEN
3642: IF g_debug_flag = 'Y' THEN
3643: ozf_utility_pvt.write_conc_log (
3644: ' /****** Adjustment Failure *******/ Offer Id: "'|| p_line_adj_tbl(i).list_header_id ||'"' || 'Price Adjustment Id'||p_line_adj_tbl (i).price_adjustment_id);
3645: END IF;
3646: -- Initialize the Message list for Next Processing
3647: ROLLBACK TO line_adjustment;
3648: x_return_status := fnd_api.g_ret_sts_error ;
3649: EXIT;
3650: ELSE
3651: IF g_debug_flag = 'Y' THEN
3652: ozf_utility_pvt.write_conc_log(
3653: ' /****** Adjustment Success *******/ Offer Id: "'|| p_line_adj_tbl(i).list_header_id ||
3654: '"' || ' Price Adjustment Id "'||p_line_adj_tbl (i).price_Adjustment_id ||'"' );
3655: END IF;
3656: END IF;
3666: );
3667: END IF;
3668:
3669: IF g_debug_flag = 'Y' THEN
3670: ozf_utility_pvt.write_conc_log(' D: post_accrual_to_budget returns ' || l_return_status);
3671: END IF;
3672: x_return_status := l_return_status;
3673: fnd_msg_pub.count_and_get (
3674: p_count=> x_msg_count,
3690:
3691: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_unexp_error) THEN
3692: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
3693: END IF;
3694: ozf_utility_pvt.write_conc_log(' /**************UNEXPECTED EXCEPTION in adjust_accrual *************/');
3695: fnd_msg_pub.count_and_get (
3696: p_count=> x_msg_count,
3697: p_data=> x_msg_data,
3698: p_encoded=> fnd_api.g_false
3699: );
3700: WHEN OTHERS THEN
3701: x_return_status := fnd_api.g_ret_sts_unexp_error;
3702:
3703: ozf_utility_pvt.write_conc_log(' /**************UNEXPECTED EXCEPTION in adjust_accrual *************/');
3704: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_unexp_error) THEN
3705: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
3706: END IF;
3707:
4150: x_return_status := fnd_api.g_ret_sts_success;
4151: <
4152:
4153: IF g_debug_flag = 'Y' THEN
4154: ozf_utility_pvt.write_conc_log (
4155: ' /*************************** DEBUG MESSAGE START for adjust_changed_line *************************/');
4156: END IF;
4157:
4158: FOR i IN NVL (p_line_tbl.FIRST, 1) .. NVL (p_line_tbl.LAST, 0)
4158: FOR i IN NVL (p_line_tbl.FIRST, 1) .. NVL (p_line_tbl.LAST, 0)
4159: LOOP
4160: savepoint line_adjustment;
4161: IF g_debug_flag = 'Y' THEN
4162: ozf_utility_pvt.write_conc_log (
4163: ' D: Begin Processing For Order Line '|| p_line_tbl(i).line_id || ' cancelled_flag=' || p_line_tbl (i).cancelled_flag
4164: );
4165: END IF;
4166:
4164: );
4165: END IF;
4166:
4167: IF g_debug_flag = 'Y' THEN
4168: ozf_utility_pvt.write_conc_log (' D: AQ info for order header_id=' || p_line_tbl(i).header_id
4169: -- || ' p_line_tbl(i).operation=' || p_line_tbl(i).operation
4170: || ' p_line_tbl(i).flow_status_code=' || p_line_tbl(i).flow_status_code
4171: || ' p_line_tbl(i).line_id=' || p_line_tbl(i).line_id
4172: || ' p_line_tbl(i).ordered_quantity=' || p_line_tbl(i).ordered_quantity
4173: || ' p_line_tbl(i).shipped_quantity=' || p_line_tbl(i).shipped_quantity
4174: || ' p_line_tbl(i).invoiced_quantity=' || p_line_tbl(i).invoiced_quantity
4175: || ' p_line_tbl(i).invoice_interface_status_code=' || p_line_tbl(i).invoice_interface_status_code
4176: || ' p_line_tbl(i).line_category_code=' || p_line_tbl(i).line_category_code );
4177: ozf_utility_pvt.write_conc_log (' D: AQ info for old order header_id=' || p_line_tbl(i).header_id
4178: -- || ' p_line_tbl(i).operation=' || p_line_tbl(i).operation
4179: || ' p_old_line_tbl(i).flow_status_code=' || p_old_line_tbl(i).flow_status_code
4180: || ' p_old_line_tbl(i).line_id=' || p_old_line_tbl(i).line_id
4181: || ' p_old_line_tbl(i).ordered_quantity=' || p_old_line_tbl(i).ordered_quantity
4246: x_msg_data=> x_msg_data
4247: );
4248:
4249: IF g_debug_flag = 'Y' THEN
4250: ozf_utility_pvt.write_conc_log (
4251: ' D: create utlization from cancelled order returns '|| l_return_status);
4252: END IF;
4253:
4254: IF l_return_status <> fnd_api.g_ret_sts_success THEN
4267: AND p_line_tbl (i).line_category_code ='RETURN'
4268: AND p_line_tbl(i).invoiced_quantity IS NOT NULL THEN
4269:
4270: IF g_debug_flag = 'Y' THEN
4271: ozf_utility_pvt.write_conc_log(' D: adjusted_changed_order: RMA with reference: ' || p_line_tbl(i).reference_line_id);
4272: END IF;
4273:
4274: OPEN c_orig_order_info (p_line_tbl (i).reference_line_id);
4275: FETCH c_orig_order_info INTO l_shipped_qty;
4283: l_adj_amount := old_adjustment_rec.amount * p_line_tbl(i).invoiced_quantity/ l_shipped_qty ;
4284: END IF;
4285:
4286: IF g_debug_flag = 'Y' THEN
4287: ozf_utility_pvt.write_conc_log(' D: adjusted_changed_order: RMA with reference: l_adj_amount ' || l_adj_amount);
4288: END IF;
4289:
4290: IF old_adjustment_rec.amount = 0 OR l_adj_amount = 0 THEN
4291: GOTO l_endofloop;
4333: x_msg_data=> x_msg_data
4334: );
4335:
4336: IF g_debug_flag = 'Y' THEN
4337: ozf_utility_pvt.write_conc_log (
4338: ' D: create utlization from RMA order: ' || l_return_status);
4339: END IF;
4340:
4341: IF l_return_status <> fnd_api.g_ret_sts_success THEN
4367: --AND p_line_tbl(i).flow_status_code = 'SHIPPED'
4368: THEN
4369:
4370: IF g_debug_flag = 'Y' THEN
4371: ozf_utility_pvt.write_conc_log(' D: adjusted_changed_order: partial shipment line(line_id=' || p_line_tbl(i).line_id || ')');
4372: END IF;
4373:
4374: OPEN c_order_info (p_line_tbl (i).header_id);
4375: FETCH c_order_info INTO l_order_status, l_order_booked_flag, l_order_curr,l_order_number,l_org_id;
4382: FETCH c_old_adjustment_total_amount INTO l_total;
4383: CLOSE c_old_adjustment_total_amount;
4384:
4385: IF g_debug_flag = 'Y' THEN
4386: ozf_utility_pvt.write_conc_log('old adj total amount l_total: ' || l_total);
4387: END IF;
4388:
4389: IF NVL(l_total,0) = 0 THEN -- add to fix bug 4930867.
4390: GOTO l_endpriceadjloop;
4397: FETCH c_offer_details INTO l_custom_setup_id;
4398: CLOSE c_offer_details;
4399:
4400: IF g_debug_flag = 'Y' THEN
4401: ozf_utility_pvt.write_conc_log('l_custom_setup_id: ' || l_custom_setup_id);
4402: END IF;
4403:
4404: IF l_custom_setup_id = 118 THEN
4405: l_column_name := FND_PROFILE.VALUE('OZF_ITEM_COST_COLUMN');
4407: IF l_column_name IS NOT NULL AND l_column_name <> FND_API.G_MISS_CHAR THEN
4408: l_stmt := 'SELECT ' || l_column_name ||' FROM oe_order_lines_all WHERE line_id = :1';
4409:
4410: IF g_debug_flag = 'Y' THEN
4411: ozf_utility_pvt.write_conc_log('Query to obtain purchase price ' || l_stmt);
4412: END IF;
4413:
4414: OPEN c_purchase_price FOR l_stmt using p_line_tbl (i).line_id;
4415: FETCH c_purchase_price INTO l_cost_price;
4419: l_operand := price_adjustment_rec.operand;
4420: l_arithmetic_operator := price_adjustment_rec.arithmetic_operator;
4421:
4422: IF g_debug_flag = 'Y' THEN
4423: ozf_utility_pvt.write_conc_log('l_cost_price: ' || l_cost_price);
4424: ozf_utility_pvt.write_conc_log('l_operand: ' || l_operand);
4425: ozf_utility_pvt.write_conc_log('l_arithmetic_operator: ' || l_arithmetic_operator);
4426: END IF;
4427:
4420: l_arithmetic_operator := price_adjustment_rec.arithmetic_operator;
4421:
4422: IF g_debug_flag = 'Y' THEN
4423: ozf_utility_pvt.write_conc_log('l_cost_price: ' || l_cost_price);
4424: ozf_utility_pvt.write_conc_log('l_operand: ' || l_operand);
4425: ozf_utility_pvt.write_conc_log('l_arithmetic_operator: ' || l_arithmetic_operator);
4426: END IF;
4427:
4428: IF l_arithmetic_operator = '%' THEN
4421:
4422: IF g_debug_flag = 'Y' THEN
4423: ozf_utility_pvt.write_conc_log('l_cost_price: ' || l_cost_price);
4424: ozf_utility_pvt.write_conc_log('l_operand: ' || l_operand);
4425: ozf_utility_pvt.write_conc_log('l_arithmetic_operator: ' || l_arithmetic_operator);
4426: END IF;
4427:
4428: IF l_arithmetic_operator = '%' THEN
4429: l_adjusted_amount := (NVL(l_operand, 0)) * l_cost_price / 100;
4435:
4436: l_adjusted_amount := -l_adjusted_amount;
4437:
4438: IF g_debug_flag = 'Y' THEN
4439: ozf_utility_pvt.write_conc_log('l_adjusted_amount for SDR: ' || l_adjusted_amount);
4440: END IF;
4441:
4442: END IF;
4443:
4445: c_old_adjustment_amount(price_adjustment_rec.price_adjustment_id)
4446: LOOP
4447: -- adjust unshipped amount.
4448: IF g_debug_flag = 'Y' THEN
4449: ozf_utility_pvt.write_conc_log (' price_adjustment_rec.adjusted_amount: '|| l_adjusted_amount ||
4450: ' p_line_tbl(i).shipped_quantity: '|| p_line_tbl(i).shipped_quantity ||
4451: ' old_adjustment_rec.plan_curr_amount: '|| old_adjustment_rec.plan_curr_amount ||
4452: ' price_adjustment_rec.price_adjustment_id: '|| price_adjustment_rec.price_adjustment_id );
4453: END IF;
4469: END IF;
4470: END IF;
4471:
4472: IF g_debug_flag = 'Y' THEN
4473: ozf_utility_pvt.write_conc_log (' partial ship l_total: '|| l_total ||
4474: ' partial ship p_line_tbl(i).shipped_quantity : '|| p_line_tbl(i).shipped_quantity ||
4475: ' partial ship l_orig_adj_amount: '|| l_orig_adj_amount );
4476: END IF;
4477:
4474: ' partial ship p_line_tbl(i).shipped_quantity : '|| p_line_tbl(i).shipped_quantity ||
4475: ' partial ship l_orig_adj_amount: '|| l_orig_adj_amount );
4476: END IF;
4477:
4478: l_orig_adj_amount := ozf_utility_pvt.currround (
4479: l_orig_adj_amount ,
4480: --nirprasa, ER 8399134, now the amount can be in offer currency also
4481: --so remove the order currency and get the currency from old record
4482: --l_order_curr
4485:
4486: --nirprasa, ER 8399134
4487: --IF l_order_curr <> old_adjustment_rec.currency_code THEN
4488: IF old_adjustment_rec.plan_currency_code <> old_adjustment_rec.currency_code THEN
4489: ozf_utility_pvt.convert_currency(x_return_status => l_return_status
4490: ,p_from_currency => old_adjustment_rec.plan_currency_code
4491: ,p_to_currency => old_adjustment_rec.currency_code
4492: ,p_conv_type => old_adjustment_rec.exchange_rate_type --nirprasa Added for bug 7030415
4493: ,p_from_amount =>l_orig_adj_amount
4498: l_adj_amount := l_orig_adj_amount;
4499: END IF;
4500:
4501: IF g_debug_flag = 'Y' THEN
4502: ozf_utility_pvt.write_conc_log (' partial ship adj_amount: '|| l_adj_amount );
4503: END IF;
4504:
4505: IF NVL(l_adj_amount,0) = 0 THEN
4506: GOTO l_endoffloop;
4529: FETCH c_offer_currency INTO l_offer_curr,l_transaction_curr_code;
4530: CLOSE c_offer_currency;
4531:
4532: IF l_transaction_curr_code IS NOT NULL AND l_order_curr <> l_transaction_curr_code THEN
4533: ozf_utility_pvt.convert_currency(x_return_status => l_return_status
4534: ,p_from_currency => l_order_curr
4535: ,p_to_currency => l_transaction_curr_code
4536: ,p_conv_type => old_adjustment_rec.exchange_rate_type --nirprasa Added for bug 7030415
4537: ,p_from_amount =>l_orig_adj_amount
4568: x_msg_count=> x_msg_count,
4569: x_msg_data=> x_msg_data
4570: );
4571: IF g_debug_flag = 'Y' THEN
4572: ozf_utility_pvt.write_conc_log (' retrun status for create _fund_utilization of '|| l_return_status ||
4573: ' when partial shipping. ' );
4574: END IF;
4575:
4576: IF l_return_status <> fnd_api.g_ret_sts_success THEN
4596: OPEN c_max_utilized_id(l_new_adj_id);
4597: FETCH c_max_utilized_id INTO l_util_rec.orig_utilization_id;
4598: CLOSE c_max_utilized_id;
4599: IF g_debug_flag = 'Y' THEN
4600: ozf_utility_pvt.write_conc_log ('create positive line for adjustment: '|| l_new_adj_id );
4601: END IF;
4602: l_act_budgets_rec.request_amount := -l_act_budgets_rec.request_amount;
4603: l_act_budgets_rec.parent_src_apprvd_amt := - l_act_budgets_rec.parent_src_apprvd_amt;
4604: l_util_rec.amount := -l_util_rec.amount;
4647: */
4648: l_gl_date := NULL;
4649:
4650: IF g_debug_flag = 'Y' THEN
4651: ozf_utility_pvt.write_conc_log (' D: profile to create gl entries is set to ' ||
4652: fnd_profile.VALUE ('OZF_ORDER_GLPOST_PHASE') || ' g_order_gl_phase=' || g_order_gl_phase);
4653: END IF;
4654:
4655: --ninarasi: bug 15877269 - When the order is shipped and invoiced the flow_status_code can be 'POST BILLING ACCEPTANCE'.
4661: FETCH c_actual_shipment_date into l_gl_date, l_shipping_quantity, l_shipping_quantity_uom, l_shipping_quantity2, l_shipping_quantity_uom2, l_fulfillment_base ;
4662: CLOSE c_actual_shipment_date;
4663:
4664: -- Catch Weight ER
4665: /*OZF_UTILITY_PVT.get_catch_weight_quantity (
4666: p_inventory_item_id => p_line_tbl(i).inventory_item_id,
4667: p_order_line_id => p_line_tbl(i).line_id,
4668: x_return_status => l_return_status,
4669: x_cw_quantity => l_cw_quantity,
4685: l_sales_transaction_rec.transfer_type := 'IN';
4686: -- Catch Weight ER
4687:
4688: IF g_debug_flag = 'Y' THEN
4689: ozf_utility_pvt.write_conc_log(' D: adjust_changed_order() gl_date uses shipment date: ' || l_gl_date || ' for arrcual posting');
4690: END IF;
4691:
4692: END IF;
4693:
4709: --bug 11670604 - if auto-invoice is not run, then fail gl posting and wait until autoinvoice is run
4710: --to post to GL based on invoice date
4711: --l_gl_date := sysdate;
4712: IF g_debug_flag = 'Y' THEN
4713: OZF_UTILITY_PVT.write_conc_log(': update gl posted flag to F since invoice is not created yet');
4714: END IF;
4715: UPDATE ozf_funds_utilized_all_b futb
4716: SET gl_posted_flag = 'F'
4717: ,gl_date = NULL
4719: AND futb.gl_posted_flag <> 'Y' --bug 13517522 - added this condition so that duplicate ASO message should not re-post accrual to GL
4720: AND EXISTS(select price_adjustment_id from oe_price_adjustments where price_adjustment_id = futb.price_adjustment_id); --ninarasi fix for bug 14750730/14695150
4721:
4722: IF g_debug_flag = 'Y' THEN
4723: OZF_UTILITY_PVT.write_conc_log(' D: adjust_changed_order() auto-invoice not complete. gl posting failed');
4724: END IF;
4725:
4726: ELSE
4727:
4727:
4728: l_sales_transaction_rec.quantity := p_line_tbl(i).invoiced_quantity;
4729:
4730: IF g_debug_flag = 'Y' THEN
4731: ozf_utility_pvt.write_conc_log(' D: adjust_changed_order() gl_date uses invoice date: ' || l_gl_date || ' for arrcual posting');
4732: END IF;
4733: END IF;
4734: END IF;
4735: END IF;
4740: FETCH sales_transation_csr INTO l_sales_trans;
4741: CLOSE sales_transation_csr;
4742:
4743: IF g_debug_flag = 'Y' THEN
4744: ozf_utility_pvt.write_conc_log(' Create_Transaction: l_sales_trans: ' || l_sales_trans);
4745: END IF;
4746:
4747: IF NVL(l_sales_trans,0) <> 1 THEN
4748:
4773: l_sales_transaction_rec.transaction_date := l_gl_date;--l_volume_detail_rec.transaction_date
4774: l_sales_transaction_rec.org_id := l_org_id;
4775:
4776: IF g_debug_flag = 'Y' THEN
4777: ozf_utility_pvt.write_conc_log(' Create_Transaction' );
4778: END IF;
4779:
4780: OZF_SALES_TRANSACTIONS_PVT.Create_Transaction (
4781: p_api_version => 1.0
4789: ,x_msg_count => x_msg_count
4790: );
4791:
4792: IF g_debug_flag = 'Y' THEN
4793: ozf_utility_pvt.write_conc_log(' Create_Transaction' || l_return_status);
4794: END IF;
4795:
4796: IF l_return_status <> fnd_api.g_ret_sts_success THEN
4797: GOTO l_endoflineadjloop;
4798: END IF;
4799: END IF; -- NVL(l_sales_trans,0)
4800:
4801: IF g_debug_flag = 'Y' THEN
4802: ozf_utility_pvt.write_conc_log(' recalculate_earnings: start');
4803: END IF;
4804: OPEN c_get_accrual_rec(p_line_tbl(i).line_id);
4805: LOOP
4806: FETCH c_get_accrual_rec BULK COLLECT
4826:
4827:
4828: l_excDateTbl(t_i) := l_gl_date;
4829: IF g_debug_flag = 'Y' THEN
4830: ozf_utility_pvt.write_conc_log(' recalculate_earnings: start');
4831: ozf_utility_pvt.write_conc_log(' recalculate_earnings: l_excDateTbl(t_i) '||l_excDateTbl(t_i));
4832: ozf_utility_pvt.write_conc_log(' recalculate_earnings: l_excTypeTbl(t_i) '||l_excTypeTbl(t_i));
4833: ozf_utility_pvt.write_conc_log(' recalculate_earnings: l_orgIdTbl(t_i) '||l_orgIdTbl(t_i));
4834: ozf_utility_pvt.write_conc_log(' recalculate_earnings: l_currCodeTbl(t_i) '||l_currCodeTbl(t_i));
4827:
4828: l_excDateTbl(t_i) := l_gl_date;
4829: IF g_debug_flag = 'Y' THEN
4830: ozf_utility_pvt.write_conc_log(' recalculate_earnings: start');
4831: ozf_utility_pvt.write_conc_log(' recalculate_earnings: l_excDateTbl(t_i) '||l_excDateTbl(t_i));
4832: ozf_utility_pvt.write_conc_log(' recalculate_earnings: l_excTypeTbl(t_i) '||l_excTypeTbl(t_i));
4833: ozf_utility_pvt.write_conc_log(' recalculate_earnings: l_orgIdTbl(t_i) '||l_orgIdTbl(t_i));
4834: ozf_utility_pvt.write_conc_log(' recalculate_earnings: l_currCodeTbl(t_i) '||l_currCodeTbl(t_i));
4835: ozf_utility_pvt.write_conc_log(' recalculate_earnings: l_planCurrCodeTbl(t_i) '||l_planCurrCodeTbl(t_i));
4828: l_excDateTbl(t_i) := l_gl_date;
4829: IF g_debug_flag = 'Y' THEN
4830: ozf_utility_pvt.write_conc_log(' recalculate_earnings: start');
4831: ozf_utility_pvt.write_conc_log(' recalculate_earnings: l_excDateTbl(t_i) '||l_excDateTbl(t_i));
4832: ozf_utility_pvt.write_conc_log(' recalculate_earnings: l_excTypeTbl(t_i) '||l_excTypeTbl(t_i));
4833: ozf_utility_pvt.write_conc_log(' recalculate_earnings: l_orgIdTbl(t_i) '||l_orgIdTbl(t_i));
4834: ozf_utility_pvt.write_conc_log(' recalculate_earnings: l_currCodeTbl(t_i) '||l_currCodeTbl(t_i));
4835: ozf_utility_pvt.write_conc_log(' recalculate_earnings: l_planCurrCodeTbl(t_i) '||l_planCurrCodeTbl(t_i));
4836: ozf_utility_pvt.write_conc_log(' recalculate_earnings: l_fundReqCurrCodeTbl(t_i) '||l_fundReqCurrCodeTbl(t_i));
4829: IF g_debug_flag = 'Y' THEN
4830: ozf_utility_pvt.write_conc_log(' recalculate_earnings: start');
4831: ozf_utility_pvt.write_conc_log(' recalculate_earnings: l_excDateTbl(t_i) '||l_excDateTbl(t_i));
4832: ozf_utility_pvt.write_conc_log(' recalculate_earnings: l_excTypeTbl(t_i) '||l_excTypeTbl(t_i));
4833: ozf_utility_pvt.write_conc_log(' recalculate_earnings: l_orgIdTbl(t_i) '||l_orgIdTbl(t_i));
4834: ozf_utility_pvt.write_conc_log(' recalculate_earnings: l_currCodeTbl(t_i) '||l_currCodeTbl(t_i));
4835: ozf_utility_pvt.write_conc_log(' recalculate_earnings: l_planCurrCodeTbl(t_i) '||l_planCurrCodeTbl(t_i));
4836: ozf_utility_pvt.write_conc_log(' recalculate_earnings: l_fundReqCurrCodeTbl(t_i) '||l_fundReqCurrCodeTbl(t_i));
4837: ozf_utility_pvt.write_conc_log(' recalculate_earnings: l_amountTbl(t_i) '||l_amountTbl(t_i));
4830: ozf_utility_pvt.write_conc_log(' recalculate_earnings: start');
4831: ozf_utility_pvt.write_conc_log(' recalculate_earnings: l_excDateTbl(t_i) '||l_excDateTbl(t_i));
4832: ozf_utility_pvt.write_conc_log(' recalculate_earnings: l_excTypeTbl(t_i) '||l_excTypeTbl(t_i));
4833: ozf_utility_pvt.write_conc_log(' recalculate_earnings: l_orgIdTbl(t_i) '||l_orgIdTbl(t_i));
4834: ozf_utility_pvt.write_conc_log(' recalculate_earnings: l_currCodeTbl(t_i) '||l_currCodeTbl(t_i));
4835: ozf_utility_pvt.write_conc_log(' recalculate_earnings: l_planCurrCodeTbl(t_i) '||l_planCurrCodeTbl(t_i));
4836: ozf_utility_pvt.write_conc_log(' recalculate_earnings: l_fundReqCurrCodeTbl(t_i) '||l_fundReqCurrCodeTbl(t_i));
4837: ozf_utility_pvt.write_conc_log(' recalculate_earnings: l_amountTbl(t_i) '||l_amountTbl(t_i));
4838: ozf_utility_pvt.write_conc_log(' recalculate_earnings: l_planCurrAmtTbl(t_i) '||l_planCurrAmtTbl(t_i));
4831: ozf_utility_pvt.write_conc_log(' recalculate_earnings: l_excDateTbl(t_i) '||l_excDateTbl(t_i));
4832: ozf_utility_pvt.write_conc_log(' recalculate_earnings: l_excTypeTbl(t_i) '||l_excTypeTbl(t_i));
4833: ozf_utility_pvt.write_conc_log(' recalculate_earnings: l_orgIdTbl(t_i) '||l_orgIdTbl(t_i));
4834: ozf_utility_pvt.write_conc_log(' recalculate_earnings: l_currCodeTbl(t_i) '||l_currCodeTbl(t_i));
4835: ozf_utility_pvt.write_conc_log(' recalculate_earnings: l_planCurrCodeTbl(t_i) '||l_planCurrCodeTbl(t_i));
4836: ozf_utility_pvt.write_conc_log(' recalculate_earnings: l_fundReqCurrCodeTbl(t_i) '||l_fundReqCurrCodeTbl(t_i));
4837: ozf_utility_pvt.write_conc_log(' recalculate_earnings: l_amountTbl(t_i) '||l_amountTbl(t_i));
4838: ozf_utility_pvt.write_conc_log(' recalculate_earnings: l_planCurrAmtTbl(t_i) '||l_planCurrAmtTbl(t_i));
4839: ozf_utility_pvt.write_conc_log(' recalculate_earnings: l_planCurrAmtRemTbl(t_i) '||l_planCurrAmtRemTbl(t_i));
4832: ozf_utility_pvt.write_conc_log(' recalculate_earnings: l_excTypeTbl(t_i) '||l_excTypeTbl(t_i));
4833: ozf_utility_pvt.write_conc_log(' recalculate_earnings: l_orgIdTbl(t_i) '||l_orgIdTbl(t_i));
4834: ozf_utility_pvt.write_conc_log(' recalculate_earnings: l_currCodeTbl(t_i) '||l_currCodeTbl(t_i));
4835: ozf_utility_pvt.write_conc_log(' recalculate_earnings: l_planCurrCodeTbl(t_i) '||l_planCurrCodeTbl(t_i));
4836: ozf_utility_pvt.write_conc_log(' recalculate_earnings: l_fundReqCurrCodeTbl(t_i) '||l_fundReqCurrCodeTbl(t_i));
4837: ozf_utility_pvt.write_conc_log(' recalculate_earnings: l_amountTbl(t_i) '||l_amountTbl(t_i));
4838: ozf_utility_pvt.write_conc_log(' recalculate_earnings: l_planCurrAmtTbl(t_i) '||l_planCurrAmtTbl(t_i));
4839: ozf_utility_pvt.write_conc_log(' recalculate_earnings: l_planCurrAmtRemTbl(t_i) '||l_planCurrAmtRemTbl(t_i));
4840: ozf_utility_pvt.write_conc_log(' recalculate_earnings: l_univCurrAmtTbl(t_i) '||l_univCurrAmtTbl(t_i));
4833: ozf_utility_pvt.write_conc_log(' recalculate_earnings: l_orgIdTbl(t_i) '||l_orgIdTbl(t_i));
4834: ozf_utility_pvt.write_conc_log(' recalculate_earnings: l_currCodeTbl(t_i) '||l_currCodeTbl(t_i));
4835: ozf_utility_pvt.write_conc_log(' recalculate_earnings: l_planCurrCodeTbl(t_i) '||l_planCurrCodeTbl(t_i));
4836: ozf_utility_pvt.write_conc_log(' recalculate_earnings: l_fundReqCurrCodeTbl(t_i) '||l_fundReqCurrCodeTbl(t_i));
4837: ozf_utility_pvt.write_conc_log(' recalculate_earnings: l_amountTbl(t_i) '||l_amountTbl(t_i));
4838: ozf_utility_pvt.write_conc_log(' recalculate_earnings: l_planCurrAmtTbl(t_i) '||l_planCurrAmtTbl(t_i));
4839: ozf_utility_pvt.write_conc_log(' recalculate_earnings: l_planCurrAmtRemTbl(t_i) '||l_planCurrAmtRemTbl(t_i));
4840: ozf_utility_pvt.write_conc_log(' recalculate_earnings: l_univCurrAmtTbl(t_i) '||l_univCurrAmtTbl(t_i));
4841: ozf_utility_pvt.write_conc_log(' recalculate_earnings: l_acctAmtTbl(t_i) '||l_acctAmtTbl(t_i));
4834: ozf_utility_pvt.write_conc_log(' recalculate_earnings: l_currCodeTbl(t_i) '||l_currCodeTbl(t_i));
4835: ozf_utility_pvt.write_conc_log(' recalculate_earnings: l_planCurrCodeTbl(t_i) '||l_planCurrCodeTbl(t_i));
4836: ozf_utility_pvt.write_conc_log(' recalculate_earnings: l_fundReqCurrCodeTbl(t_i) '||l_fundReqCurrCodeTbl(t_i));
4837: ozf_utility_pvt.write_conc_log(' recalculate_earnings: l_amountTbl(t_i) '||l_amountTbl(t_i));
4838: ozf_utility_pvt.write_conc_log(' recalculate_earnings: l_planCurrAmtTbl(t_i) '||l_planCurrAmtTbl(t_i));
4839: ozf_utility_pvt.write_conc_log(' recalculate_earnings: l_planCurrAmtRemTbl(t_i) '||l_planCurrAmtRemTbl(t_i));
4840: ozf_utility_pvt.write_conc_log(' recalculate_earnings: l_univCurrAmtTbl(t_i) '||l_univCurrAmtTbl(t_i));
4841: ozf_utility_pvt.write_conc_log(' recalculate_earnings: l_acctAmtTbl(t_i) '||l_acctAmtTbl(t_i));
4842: ozf_utility_pvt.write_conc_log(' recalculate_earnings: l_planIdTbl(t_i) '||l_planIdTbl(t_i));
4835: ozf_utility_pvt.write_conc_log(' recalculate_earnings: l_planCurrCodeTbl(t_i) '||l_planCurrCodeTbl(t_i));
4836: ozf_utility_pvt.write_conc_log(' recalculate_earnings: l_fundReqCurrCodeTbl(t_i) '||l_fundReqCurrCodeTbl(t_i));
4837: ozf_utility_pvt.write_conc_log(' recalculate_earnings: l_amountTbl(t_i) '||l_amountTbl(t_i));
4838: ozf_utility_pvt.write_conc_log(' recalculate_earnings: l_planCurrAmtTbl(t_i) '||l_planCurrAmtTbl(t_i));
4839: ozf_utility_pvt.write_conc_log(' recalculate_earnings: l_planCurrAmtRemTbl(t_i) '||l_planCurrAmtRemTbl(t_i));
4840: ozf_utility_pvt.write_conc_log(' recalculate_earnings: l_univCurrAmtTbl(t_i) '||l_univCurrAmtTbl(t_i));
4841: ozf_utility_pvt.write_conc_log(' recalculate_earnings: l_acctAmtTbl(t_i) '||l_acctAmtTbl(t_i));
4842: ozf_utility_pvt.write_conc_log(' recalculate_earnings: l_planIdTbl(t_i) '||l_planIdTbl(t_i));
4843: ozf_utility_pvt.write_conc_log(' recalculate_earnings: l_planTypeTbl(t_i) '||l_planTypeTbl(t_i));
4836: ozf_utility_pvt.write_conc_log(' recalculate_earnings: l_fundReqCurrCodeTbl(t_i) '||l_fundReqCurrCodeTbl(t_i));
4837: ozf_utility_pvt.write_conc_log(' recalculate_earnings: l_amountTbl(t_i) '||l_amountTbl(t_i));
4838: ozf_utility_pvt.write_conc_log(' recalculate_earnings: l_planCurrAmtTbl(t_i) '||l_planCurrAmtTbl(t_i));
4839: ozf_utility_pvt.write_conc_log(' recalculate_earnings: l_planCurrAmtRemTbl(t_i) '||l_planCurrAmtRemTbl(t_i));
4840: ozf_utility_pvt.write_conc_log(' recalculate_earnings: l_univCurrAmtTbl(t_i) '||l_univCurrAmtTbl(t_i));
4841: ozf_utility_pvt.write_conc_log(' recalculate_earnings: l_acctAmtTbl(t_i) '||l_acctAmtTbl(t_i));
4842: ozf_utility_pvt.write_conc_log(' recalculate_earnings: l_planIdTbl(t_i) '||l_planIdTbl(t_i));
4843: ozf_utility_pvt.write_conc_log(' recalculate_earnings: l_planTypeTbl(t_i) '||l_planTypeTbl(t_i));
4844: ozf_utility_pvt.write_conc_log(' recalculate_earnings: l_fundIdTbl(t_i) '||l_fundIdTbl(t_i));
4837: ozf_utility_pvt.write_conc_log(' recalculate_earnings: l_amountTbl(t_i) '||l_amountTbl(t_i));
4838: ozf_utility_pvt.write_conc_log(' recalculate_earnings: l_planCurrAmtTbl(t_i) '||l_planCurrAmtTbl(t_i));
4839: ozf_utility_pvt.write_conc_log(' recalculate_earnings: l_planCurrAmtRemTbl(t_i) '||l_planCurrAmtRemTbl(t_i));
4840: ozf_utility_pvt.write_conc_log(' recalculate_earnings: l_univCurrAmtTbl(t_i) '||l_univCurrAmtTbl(t_i));
4841: ozf_utility_pvt.write_conc_log(' recalculate_earnings: l_acctAmtTbl(t_i) '||l_acctAmtTbl(t_i));
4842: ozf_utility_pvt.write_conc_log(' recalculate_earnings: l_planIdTbl(t_i) '||l_planIdTbl(t_i));
4843: ozf_utility_pvt.write_conc_log(' recalculate_earnings: l_planTypeTbl(t_i) '||l_planTypeTbl(t_i));
4844: ozf_utility_pvt.write_conc_log(' recalculate_earnings: l_fundIdTbl(t_i) '||l_fundIdTbl(t_i));
4845: ozf_utility_pvt.write_conc_log(' recalculate_earnings: l_utilIdTbl(t_i) '||l_utilIdTbl(t_i));
4838: ozf_utility_pvt.write_conc_log(' recalculate_earnings: l_planCurrAmtTbl(t_i) '||l_planCurrAmtTbl(t_i));
4839: ozf_utility_pvt.write_conc_log(' recalculate_earnings: l_planCurrAmtRemTbl(t_i) '||l_planCurrAmtRemTbl(t_i));
4840: ozf_utility_pvt.write_conc_log(' recalculate_earnings: l_univCurrAmtTbl(t_i) '||l_univCurrAmtTbl(t_i));
4841: ozf_utility_pvt.write_conc_log(' recalculate_earnings: l_acctAmtTbl(t_i) '||l_acctAmtTbl(t_i));
4842: ozf_utility_pvt.write_conc_log(' recalculate_earnings: l_planIdTbl(t_i) '||l_planIdTbl(t_i));
4843: ozf_utility_pvt.write_conc_log(' recalculate_earnings: l_planTypeTbl(t_i) '||l_planTypeTbl(t_i));
4844: ozf_utility_pvt.write_conc_log(' recalculate_earnings: l_fundIdTbl(t_i) '||l_fundIdTbl(t_i));
4845: ozf_utility_pvt.write_conc_log(' recalculate_earnings: l_utilIdTbl(t_i) '||l_utilIdTbl(t_i));
4846: ozf_utility_pvt.write_conc_log(' recalculate_earnings: l_utilTypeTbl(t_i) '||l_utilTypeTbl(t_i));
4839: ozf_utility_pvt.write_conc_log(' recalculate_earnings: l_planCurrAmtRemTbl(t_i) '||l_planCurrAmtRemTbl(t_i));
4840: ozf_utility_pvt.write_conc_log(' recalculate_earnings: l_univCurrAmtTbl(t_i) '||l_univCurrAmtTbl(t_i));
4841: ozf_utility_pvt.write_conc_log(' recalculate_earnings: l_acctAmtTbl(t_i) '||l_acctAmtTbl(t_i));
4842: ozf_utility_pvt.write_conc_log(' recalculate_earnings: l_planIdTbl(t_i) '||l_planIdTbl(t_i));
4843: ozf_utility_pvt.write_conc_log(' recalculate_earnings: l_planTypeTbl(t_i) '||l_planTypeTbl(t_i));
4844: ozf_utility_pvt.write_conc_log(' recalculate_earnings: l_fundIdTbl(t_i) '||l_fundIdTbl(t_i));
4845: ozf_utility_pvt.write_conc_log(' recalculate_earnings: l_utilIdTbl(t_i) '||l_utilIdTbl(t_i));
4846: ozf_utility_pvt.write_conc_log(' recalculate_earnings: l_utilTypeTbl(t_i) '||l_utilTypeTbl(t_i));
4847: END IF;
4840: ozf_utility_pvt.write_conc_log(' recalculate_earnings: l_univCurrAmtTbl(t_i) '||l_univCurrAmtTbl(t_i));
4841: ozf_utility_pvt.write_conc_log(' recalculate_earnings: l_acctAmtTbl(t_i) '||l_acctAmtTbl(t_i));
4842: ozf_utility_pvt.write_conc_log(' recalculate_earnings: l_planIdTbl(t_i) '||l_planIdTbl(t_i));
4843: ozf_utility_pvt.write_conc_log(' recalculate_earnings: l_planTypeTbl(t_i) '||l_planTypeTbl(t_i));
4844: ozf_utility_pvt.write_conc_log(' recalculate_earnings: l_fundIdTbl(t_i) '||l_fundIdTbl(t_i));
4845: ozf_utility_pvt.write_conc_log(' recalculate_earnings: l_utilIdTbl(t_i) '||l_utilIdTbl(t_i));
4846: ozf_utility_pvt.write_conc_log(' recalculate_earnings: l_utilTypeTbl(t_i) '||l_utilTypeTbl(t_i));
4847: END IF;
4848: recalculate_earnings(p_exchange_rate_date => l_excDateTbl(t_i),
4841: ozf_utility_pvt.write_conc_log(' recalculate_earnings: l_acctAmtTbl(t_i) '||l_acctAmtTbl(t_i));
4842: ozf_utility_pvt.write_conc_log(' recalculate_earnings: l_planIdTbl(t_i) '||l_planIdTbl(t_i));
4843: ozf_utility_pvt.write_conc_log(' recalculate_earnings: l_planTypeTbl(t_i) '||l_planTypeTbl(t_i));
4844: ozf_utility_pvt.write_conc_log(' recalculate_earnings: l_fundIdTbl(t_i) '||l_fundIdTbl(t_i));
4845: ozf_utility_pvt.write_conc_log(' recalculate_earnings: l_utilIdTbl(t_i) '||l_utilIdTbl(t_i));
4846: ozf_utility_pvt.write_conc_log(' recalculate_earnings: l_utilTypeTbl(t_i) '||l_utilTypeTbl(t_i));
4847: END IF;
4848: recalculate_earnings(p_exchange_rate_date => l_excDateTbl(t_i),
4849: p_exchange_rate_type => l_excTypeTbl(t_i),
4842: ozf_utility_pvt.write_conc_log(' recalculate_earnings: l_planIdTbl(t_i) '||l_planIdTbl(t_i));
4843: ozf_utility_pvt.write_conc_log(' recalculate_earnings: l_planTypeTbl(t_i) '||l_planTypeTbl(t_i));
4844: ozf_utility_pvt.write_conc_log(' recalculate_earnings: l_fundIdTbl(t_i) '||l_fundIdTbl(t_i));
4845: ozf_utility_pvt.write_conc_log(' recalculate_earnings: l_utilIdTbl(t_i) '||l_utilIdTbl(t_i));
4846: ozf_utility_pvt.write_conc_log(' recalculate_earnings: l_utilTypeTbl(t_i) '||l_utilTypeTbl(t_i));
4847: END IF;
4848: recalculate_earnings(p_exchange_rate_date => l_excDateTbl(t_i),
4849: p_exchange_rate_type => l_excTypeTbl(t_i),
4850: p_util_org_id => l_orgIdTbl(t_i),
4865: x_return_status => l_return_status,
4866: x_msg_count => x_msg_count,
4867: x_msg_data => x_msg_data);
4868: IF g_debug_flag = 'Y' THEN
4869: ozf_utility_pvt.write_conc_log(' recalculate_earnings returns ' || l_return_status
4870: );
4871: ozf_utility_pvt.write_conc_log(' l_planAmtTbl(t_i) ' || l_planAmtTbl(t_i));
4872: END IF;
4873: END IF;
4867: x_msg_data => x_msg_data);
4868: IF g_debug_flag = 'Y' THEN
4869: ozf_utility_pvt.write_conc_log(' recalculate_earnings returns ' || l_return_status
4870: );
4871: ozf_utility_pvt.write_conc_log(' l_planAmtTbl(t_i) ' || l_planAmtTbl(t_i));
4872: END IF;
4873: END IF;
4874: IF l_amountTbl(t_i) <> 0 THEN--nepanda --Fix for bug 8994266
4875: post_accrual_to_gl( p_util_utilization_id => l_utilIdTbl(t_i)
4889: );
4890:
4891: -- do not raise exception for gl posting error. Just mark it as failed and deal with it later
4892: IF g_debug_flag = 'Y' THEN
4893: ozf_utility_pvt.write_conc_log(' D: adjust_changed_order() processing invoiced/shipped line ' || p_line_tbl(i).line_id
4894: || ' post_accrual_to_gl(util_id=' || l_utilIdTbl(t_i) || ') returns ' || l_return_status
4895: || ' x_gl_posted_flag=' || l_gl_posted_flag);
4896: END IF;
4897: -- yzhao: 03/04/2004 post gl for related accruals from offer adjustment or object reconcile
4926: <
4927: IF l_return_status <> fnd_api.g_ret_sts_success THEN
4928: -- Write Relelvant Messages
4929: IF g_debug_flag = 'Y' THEN
4930: ozf_utility_pvt.write_conc_log (
4931: ' /*************************** DEBUG MESSAGE END *************************/' ||
4932: ' /****** Offer Adjustment For Line(id=' || p_line_tbl(i).line_id || ') failed with the following Errors *******/');
4933: END IF;
4934:
4932: ' /****** Offer Adjustment For Line(id=' || p_line_tbl(i).line_id || ') failed with the following Errors *******/');
4933: END IF;
4934:
4935: -- Dump All the MEssages from the Message list
4936: ozf_utility_pvt.write_conc_log;
4937: -- Initialize the Message list for NExt Processing
4938: fnd_msg_pub.initialize;
4939: ROLLBACK TO line_adjustment;
4940: -- return a status error
4943: -- go out of the loop because we put this message in the exception queue
4944: EXIT;
4945: ELSIF l_return_status = fnd_api.g_ret_sts_success THEN
4946: IF g_debug_flag = 'Y' THEN
4947: ozf_utility_pvt.write_conc_log (' /*************************** DEBUG MESSAGE END *********************/'||
4948: ' /****** Line Adjustment Success *******/ p_line_tbl(i).line_id ' || p_line_tbl(i).line_id );
4949: END IF;
4950: ELSE
4951: IF g_debug_flag = 'Y' THEN
4948: ' /****** Line Adjustment Success *******/ p_line_tbl(i).line_id ' || p_line_tbl(i).line_id );
4949: END IF;
4950: ELSE
4951: IF g_debug_flag = 'Y' THEN
4952: ozf_utility_pvt.write_conc_log ( ' D: Line Return Status ' ||l_return_status);
4953: END IF;
4954:
4955: END IF;
4956:
4965: EXCEPTION
4966: --nepanda : Added exception block for normal errors and unexpected errors, before checking for OTHERS
4967: WHEN fnd_api.g_exc_error THEN
4968: x_return_status := fnd_api.g_ret_sts_error;
4969: ozf_utility_pvt.write_conc_log (' /**************EXCEPTION in ozf_accrual_engine.adjust_changed_order');
4970: fnd_msg_pub.count_and_get (
4971: p_count=> x_msg_count,
4972: p_data=> x_msg_data,
4973: p_encoded=> fnd_api.g_false
4974: );
4975: WHEN fnd_api.g_exc_unexpected_error THEN
4976: x_return_status := fnd_api.g_ret_sts_unexp_error;
4977:
4978: ozf_utility_pvt.write_conc_log (' /**************UNEXPECTED EXCEPTION in ozf_accrual_engine.adjust_changed_order');
4979: ozf_utility_pvt.write_conc_log(' D: adjust_changed_order: exception. errcode=' || sqlcode || ' msg: ' || substr(sqlerrm, 1, 3000));
4980:
4981: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_unexp_error) THEN
4982: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
4975: WHEN fnd_api.g_exc_unexpected_error THEN
4976: x_return_status := fnd_api.g_ret_sts_unexp_error;
4977:
4978: ozf_utility_pvt.write_conc_log (' /**************UNEXPECTED EXCEPTION in ozf_accrual_engine.adjust_changed_order');
4979: ozf_utility_pvt.write_conc_log(' D: adjust_changed_order: exception. errcode=' || sqlcode || ' msg: ' || substr(sqlerrm, 1, 3000));
4980:
4981: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_unexp_error) THEN
4982: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
4983: END IF;
4989: );
4990: WHEN OTHERS THEN
4991: x_return_status := fnd_api.g_ret_sts_unexp_error;
4992:
4993: ozf_utility_pvt.write_conc_log (' /**************UNEXPECTED EXCEPTION in ozf_accrual_engine.adjust_changed_order');
4994: ozf_utility_pvt.write_conc_log(' D: adjust_changed_order: exception. errcode=' || sqlcode || ' msg: ' || substr(sqlerrm, 1, 3000));
4995:
4996: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_unexp_error) THEN
4997: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
4990: WHEN OTHERS THEN
4991: x_return_status := fnd_api.g_ret_sts_unexp_error;
4992:
4993: ozf_utility_pvt.write_conc_log (' /**************UNEXPECTED EXCEPTION in ozf_accrual_engine.adjust_changed_order');
4994: ozf_utility_pvt.write_conc_log(' D: adjust_changed_order: exception. errcode=' || sqlcode || ' msg: ' || substr(sqlerrm, 1, 3000));
4995:
4996: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_unexp_error) THEN
4997: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
4998: END IF;
5085: -- Queue savepoint for standard advanced queue error handling
5086: BEGIN
5087: SAVEPOINT get_message_loop_savepoint;
5088:
5089: ozf_utility_pvt.write_conc_log ('STARTING MESSAGE QUEUE');
5090:
5091: --
5092: -- Invoke Get_Mesage to dequeue queue payload and return Order data
5093: --
5130: --
5131: --///added by mpande to write a error message to the list
5132: --if not sucess add a error message to th emessage listx
5133: IF NOT (l_return_status = fnd_api.g_ret_sts_success) THEN
5134: ozf_utility_pvt.write_conc_log ('Queue Return Error ');
5135:
5136: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_error) THEN
5137: fnd_message.set_name ('OZF', 'OZF_FUND_ASO_ORD_FEEDBACK_FAIL');
5138: fnd_msg_pub.ADD;
5136: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_error) THEN
5137: fnd_message.set_name ('OZF', 'OZF_FUND_ASO_ORD_FEEDBACK_FAIL');
5138: fnd_msg_pub.ADD;
5139: END IF;
5140: ozf_utility_pvt.write_conc_log;
5141: RETURN;
5142: END IF;
5143: -- Check return status
5144: -- if success call adjust_accrual
5145: --
5146: IF l_return_status = fnd_api.g_ret_sts_success THEN
5147: IF (l_line_adj_tbl.COUNT <> 0) THEN
5148: IF g_debug_flag = 'Y' THEN
5149: ozf_utility_pvt.write_conc_log ('ADJUSTMENT ');
5150: END IF;
5151:
5152: adjust_accrual (
5153: p_api_version=> 1.0
5159: ,p_old_line_adj_tbl=> l_old_line_adj_tbl
5160: ,p_header_rec=> l_header_rec
5161: );
5162: IF g_debug_flag = 'Y' THEN
5163: ozf_utility_pvt.write_conc_log ( 'ADJUSTMENT STATUS ' || l_return_status);
5164: END IF;
5165: END IF;
5166: END IF;
5167: --l_return_status := fnd_api.g_ret_sts_success;
5167: --l_return_status := fnd_api.g_ret_sts_success;
5168: IF l_return_status = fnd_api.g_ret_sts_success THEN
5169: IF (l_line_tbl.COUNT <> 0) THEN
5170: IF g_debug_flag = 'Y' THEN
5171: ozf_utility_pvt.write_conc_log ('LINE');
5172: END IF;
5173: adjust_changed_order (
5174: p_api_version=> 1.0
5175: ,p_init_msg_list=> fnd_api.g_true
5181: ,p_line_tbl=> l_line_tbl
5182: ,p_old_line_tbl=> l_old_line_tbl
5183: );
5184: IF g_debug_flag = 'Y' THEN
5185: ozf_utility_pvt.write_conc_log ( 'LINE STATUS ' || l_return_status );
5186: END IF;
5187: END IF;
5188: END IF;
5189: -- Call to Volume Offer adjustment.
5189: -- Call to Volume Offer adjustment.
5190: --
5191:
5192: IF l_no_more_messages = 'T' THEN
5193: ozf_utility_pvt.write_conc_log ( 'NO MORE MESSAGES IN THE QUEUE ' || l_no_more_messages);
5194: END IF;
5195: --
5196: -- Check return status of functional process,
5197: -- rollback to undo processing
5198: -- if not success write the error message to the log file
5199:
5200: IF NOT (l_return_status = fnd_api.g_ret_sts_success) THEN
5201: --fnd_file.put_line(--fnd_file.log, 'before writinf concurrenct log '||l_return_status);
5202: ozf_utility_pvt.write_conc_log ('D: Error in one of the process');
5203:
5204: ROLLBACK TO get_message_loop_savepoint;
5205: x_retcode := 1;
5206: x_errbuf := l_msg_data;
5209: IF NOT (l_return_status = fnd_api.g_ret_sts_success) THEN
5210: /*Enqueue the failed message into the Order Feedback Exception Queue. This data
5211: can be dequeued subsequently by using the GET_EXCEPTION API */
5212: IF g_debug_flag = 'Y' THEN
5213: ozf_utility_pvt.write_conc_log ('In handle queue exception ');
5214: END IF;
5215: aso_order_feedback_pub.handle_exception (
5216: p_api_version=> 1.0,
5217: p_init_msg_list=> fnd_api.g_false,
5249: p_action_request_tbl=> l_action_request_tbl
5250: );
5251: END IF;
5252: -- Quit the procedure IF the queue is empty
5253: ozf_utility_pvt.write_conc_log (' /*************************** END OF QUEUE MESSAGE *************************/');
5254:
5255: EXIT WHEN l_return_status = fnd_api.g_ret_sts_unexp_error;
5256: EXIT WHEN l_no_more_messages = fnd_api.g_true;
5257: l_que_msg_count := l_que_msg_count + 1 ;
5262: END IF;
5263: EXCEPTION
5264: WHEN FND_API.G_EXC_ERROR THEN
5265: ROLLBACK TO get_message_loop_savepoint;
5266: ozf_utility_pvt.write_conc_log('FALIED');
5267: ozf_utility_pvt.write_conc_log;
5268:
5269: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5270: ROLLBACK TO get_message_loop_savepoint;
5263: EXCEPTION
5264: WHEN FND_API.G_EXC_ERROR THEN
5265: ROLLBACK TO get_message_loop_savepoint;
5266: ozf_utility_pvt.write_conc_log('FALIED');
5267: ozf_utility_pvt.write_conc_log;
5268:
5269: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5270: ROLLBACK TO get_message_loop_savepoint;
5271: ozf_utility_pvt.write_conc_log('FALIED');
5267: ozf_utility_pvt.write_conc_log;
5268:
5269: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5270: ROLLBACK TO get_message_loop_savepoint;
5271: ozf_utility_pvt.write_conc_log('FALIED');
5272: ozf_utility_pvt.write_conc_log;
5273:
5274: WHEN OTHERS THEN
5275: ROLLBACK TO get_message_loop_savepoint;
5268:
5269: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5270: ROLLBACK TO get_message_loop_savepoint;
5271: ozf_utility_pvt.write_conc_log('FALIED');
5272: ozf_utility_pvt.write_conc_log;
5273:
5274: WHEN OTHERS THEN
5275: ROLLBACK TO get_message_loop_savepoint;
5276: ozf_utility_pvt.write_conc_log('FAILED');
5272: ozf_utility_pvt.write_conc_log;
5273:
5274: WHEN OTHERS THEN
5275: ROLLBACK TO get_message_loop_savepoint;
5276: ozf_utility_pvt.write_conc_log('FAILED');
5277: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW) THEN
5278: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
5279: FND_MESSAGE.Set_Token('TEXT',sqlerrm);
5280: FND_MSG_PUB.Add;
5278: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
5279: FND_MESSAGE.Set_Token('TEXT',sqlerrm);
5280: FND_MSG_PUB.Add;
5281: END IF;
5282: ozf_utility_pvt.write_conc_log;
5283:
5284: END;
5285: END LOOP message_loop;
5286:
5283:
5284: END;
5285: END LOOP message_loop;
5286:
5287: ozf_utility_pvt.write_conc_log ('QUEUE PROCESSED '|| to_char(l_que_msg_count) || ' MESSAGES ');
5288: -- move except message from begining to last to fix issue for double creating accrual when same messsages
5289: -- in both exception queue and normal queue. by feliu on 12/30/2005
5290: IF p_run_exception = 'Y' THEN
5291:
5288: -- move except message from begining to last to fix issue for double creating accrual when same messsages
5289: -- in both exception queue and normal queue. by feliu on 12/30/2005
5290: IF p_run_exception = 'Y' THEN
5291:
5292: ozf_utility_pvt.write_conc_log ('START Exception Message ....... '|| x_retcode);
5293:
5294: ozf_utility_pvt.write_conc_log ('<====EXCEPTION QUEUE START TIME '||to_char( SYSDATE ,'DD/MM/RR HH:MI:SS A.M. ')||' ====>');
5295:
5296: get_exception_message(x_errbuf , x_retcode);
5290: IF p_run_exception = 'Y' THEN
5291:
5292: ozf_utility_pvt.write_conc_log ('START Exception Message ....... '|| x_retcode);
5293:
5294: ozf_utility_pvt.write_conc_log ('<====EXCEPTION QUEUE START TIME '||to_char( SYSDATE ,'DD/MM/RR HH:MI:SS A.M. ')||' ====>');
5295:
5296: get_exception_message(x_errbuf , x_retcode);
5297:
5298: ozf_utility_pvt.write_conc_log ('END Exception Message Return Code'|| x_retcode);
5294: ozf_utility_pvt.write_conc_log ('<====EXCEPTION QUEUE START TIME '||to_char( SYSDATE ,'DD/MM/RR HH:MI:SS A.M. ')||' ====>');
5295:
5296: get_exception_message(x_errbuf , x_retcode);
5297:
5298: ozf_utility_pvt.write_conc_log ('END Exception Message Return Code'|| x_retcode);
5299:
5300: ozf_utility_pvt.write_conc_log ('<====EXCEPTION QUEUE END TIME '||to_char( SYSDATE ,'DD/MM/RR HH:MI:SS A.M. ')||' ====>');
5301:
5302: END IF;
5296: get_exception_message(x_errbuf , x_retcode);
5297:
5298: ozf_utility_pvt.write_conc_log ('END Exception Message Return Code'|| x_retcode);
5299:
5300: ozf_utility_pvt.write_conc_log ('<====EXCEPTION QUEUE END TIME '||to_char( SYSDATE ,'DD/MM/RR HH:MI:SS A.M. ')||' ====>');
5301:
5302: END IF;
5303:
5304:
5303:
5304:
5305: EXCEPTION
5306: WHEN fnd_api.g_exc_error THEN
5307: ozf_utility_pvt.write_conc_log ('QUEUE PROCESSED ' ||to_char(l_que_msg_count) ||'MESSAGES' );
5308: x_retcode := 1;
5309: WHEN fnd_api.g_exc_unexpected_error THEN
5310: ozf_utility_pvt.write_conc_log ('QUEUE PROCESSED ' ||to_char(l_que_msg_count) || 'MESSAGES' );
5311: x_retcode := 1;
5306: WHEN fnd_api.g_exc_error THEN
5307: ozf_utility_pvt.write_conc_log ('QUEUE PROCESSED ' ||to_char(l_que_msg_count) ||'MESSAGES' );
5308: x_retcode := 1;
5309: WHEN fnd_api.g_exc_unexpected_error THEN
5310: ozf_utility_pvt.write_conc_log ('QUEUE PROCESSED ' ||to_char(l_que_msg_count) || 'MESSAGES' );
5311: x_retcode := 1;
5312: WHEN OTHERS THEN
5313: ozf_utility_pvt.write_conc_log ('QUEUE PROCESSED '|| to_char(l_que_msg_count) ||'MESSAGES' );
5314: x_retcode := 1;
5309: WHEN fnd_api.g_exc_unexpected_error THEN
5310: ozf_utility_pvt.write_conc_log ('QUEUE PROCESSED ' ||to_char(l_que_msg_count) || 'MESSAGES' );
5311: x_retcode := 1;
5312: WHEN OTHERS THEN
5313: ozf_utility_pvt.write_conc_log ('QUEUE PROCESSED '|| to_char(l_que_msg_count) ||'MESSAGES' );
5314: x_retcode := 1;
5315:
5316: END get_message;
5317: ------------------------------------------------------------------------------
5373: SAVEPOINT get_message_savepoint;
5374: -- dequeue the exception queue
5375: <
5376: LOOP
5377: ozf_utility_pvt.write_conc_log ('In Queue Exception ');
5378:
5379: -- Queue savepoint for standard advanced queue error handling
5380: BEGIN
5381: SAVEPOINT get_excep_loop_savepoint;
5419: x_old_lot_serial_tbl=> l_old_lot_serial_tbl,
5420: x_action_request_tbl=> l_action_request_tbl
5421: );
5422: --
5423: --ozf_utility_pvt.debug_message('l_return_status ='||l_return_status );
5424: --///added by mpande to write a error message to the list
5425: --if not sucess add a error message to th emessage list
5426: IF NOT (l_return_status = fnd_api.g_ret_sts_success) THEN
5427: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_error) THEN
5427: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_error) THEN
5428: fnd_message.set_name ('OZF', 'OZF_FUND_ASO_ORD_FEEDBACK_FAIL');
5429: fnd_msg_pub.ADD;
5430: END IF;
5431: ozf_utility_pvt.write_conc_log;
5432: RETURN;
5433: END IF;
5434: -- Check return status
5435: -- if success call adjust_accrual
5435: -- if success call adjust_accrual
5436: --
5437: IF l_return_status = fnd_api.g_ret_sts_success THEN
5438: IF (l_line_adj_tbl.COUNT <> 0) THEN
5439: ozf_utility_pvt.write_conc_log ('In get exception adjustment');
5440:
5441: adjust_accrual (
5442: p_api_version=> 1.0,
5443: p_init_msg_list=> fnd_api.g_true,
5448: p_old_line_adj_tbl=> l_old_line_adj_tbl,
5449: p_header_rec=> l_header_rec,
5450: p_exception_queue => fnd_api.g_true
5451: );
5452: ozf_utility_pvt.write_conc_log ('ADJUSTMENT EXCEPTION STATUS'||l_return_status);
5453:
5454: END IF;
5455: END IF;
5456: IF l_return_status = fnd_api.g_ret_sts_success THEN
5454: END IF;
5455: END IF;
5456: IF l_return_status = fnd_api.g_ret_sts_success THEN
5457: IF (l_line_tbl.COUNT <> 0) THEN
5458: ozf_utility_pvt.write_conc_log (' D: EXCEPTON QUEUE Start processing line');
5459:
5460: adjust_changed_order (
5461: p_api_version=> 1.0,
5462: p_init_msg_list=> fnd_api.g_true,
5467: p_old_header_rec=> l_old_header_rec,
5468: p_line_tbl=> l_line_tbl,
5469: p_old_line_tbl=> l_old_line_tbl
5470: );
5471: ozf_utility_pvt.write_conc_log (' D: EXCEPTION QUEUE PROCESSING LINE RETURNS STATUS'||l_return_status);
5472:
5473: END IF;
5474: END IF;
5475:
5473: END IF;
5474: END IF;
5475:
5476: IF l_no_more_messages = 'T' THEN
5477: ozf_utility_pvt.write_conc_log ( 'NO MORE MESSAGES IN THE QUEUE '
5478: || l_no_more_messages);
5479: END IF;
5480: -- write_conc_log;
5481: --
5537: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_error) THEN
5538: fnd_message.set_name ('OZF', 'OZF_FUND_ASO_ORD_FEEDBACK_FAIL');
5539: fnd_msg_pub.ADD;
5540: END IF;
5541: ozf_utility_pvt.write_conc_log('again exception happened');
5542: RETURN;
5543: ELSE
5544: l_navigation := DBMS_AQ.FIRST_MESSAGE ;
5545: COMMIT;
5545: COMMIT;
5546: x_retcode := 0;
5547: END IF;
5548: ELSE
5549: ozf_utility_pvt.write_conc_log;
5550: FND_MSG_PUB.INITIALIZE;
5551: END IF;
5552: EXCEPTION
5553: WHEN FND_API.G_EXC_ERROR THEN
5551: END IF;
5552: EXCEPTION
5553: WHEN FND_API.G_EXC_ERROR THEN
5554: ROLLBACK TO get_excep_loop_savepoint;
5555: ozf_utility_pvt.write_conc_log('FALIED');
5556: ozf_utility_pvt.write_conc_log;
5557:
5558: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5559: ROLLBACK TO get_excep_loop_savepoint;
5552: EXCEPTION
5553: WHEN FND_API.G_EXC_ERROR THEN
5554: ROLLBACK TO get_excep_loop_savepoint;
5555: ozf_utility_pvt.write_conc_log('FALIED');
5556: ozf_utility_pvt.write_conc_log;
5557:
5558: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5559: ROLLBACK TO get_excep_loop_savepoint;
5560: ozf_utility_pvt.write_conc_log('FALIED');
5556: ozf_utility_pvt.write_conc_log;
5557:
5558: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5559: ROLLBACK TO get_excep_loop_savepoint;
5560: ozf_utility_pvt.write_conc_log('FALIED');
5561: ozf_utility_pvt.write_conc_log;
5562:
5563: WHEN OTHERS THEN
5564: ROLLBACK TO get_excep_loop_savepoint;
5557:
5558: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5559: ROLLBACK TO get_excep_loop_savepoint;
5560: ozf_utility_pvt.write_conc_log('FALIED');
5561: ozf_utility_pvt.write_conc_log;
5562:
5563: WHEN OTHERS THEN
5564: ROLLBACK TO get_excep_loop_savepoint;
5565: ozf_utility_pvt.write_conc_log('FAILED');
5561: ozf_utility_pvt.write_conc_log;
5562:
5563: WHEN OTHERS THEN
5564: ROLLBACK TO get_excep_loop_savepoint;
5565: ozf_utility_pvt.write_conc_log('FAILED');
5566: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW) THEN
5567: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
5568: FND_MESSAGE.Set_Token('TEXT',sqlerrm);
5569: FND_MSG_PUB.Add;
5567: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
5568: FND_MESSAGE.Set_Token('TEXT',sqlerrm);
5569: FND_MSG_PUB.Add;
5570: END IF;
5571: ozf_utility_pvt.write_conc_log;
5572: END;
5573: END LOOP exception_loop;
5574: EXCEPTION
5575: WHEN fnd_api.g_exc_error THEN
5620: g_debug_flag := p_debug;
5621: g_message_count := NVL(p_process_message_count,-1);
5622: G_FAE_START_DATE := TRUNC(sysdate);
5623:
5624: ozf_utility_pvt.write_conc_log (' <===> ORDER MANAGEMENT ACCRUALS BEGIN <===>');
5625: ozf_utility_pvt.write_conc_log (' <===> g_message_count <===>'||g_message_count);
5626:
5627: ozf_utility_pvt.write_conc_log ('<====ORDER MANAGEMENT ACCRUALS BEGIN TIME '||to_char( SYSDATE ,'DD/MM/RR HH:MI:SS A.M. ')||' ====>');
5628:
5621: g_message_count := NVL(p_process_message_count,-1);
5622: G_FAE_START_DATE := TRUNC(sysdate);
5623:
5624: ozf_utility_pvt.write_conc_log (' <===> ORDER MANAGEMENT ACCRUALS BEGIN <===>');
5625: ozf_utility_pvt.write_conc_log (' <===> g_message_count <===>'||g_message_count);
5626:
5627: ozf_utility_pvt.write_conc_log ('<====ORDER MANAGEMENT ACCRUALS BEGIN TIME '||to_char( SYSDATE ,'DD/MM/RR HH:MI:SS A.M. ')||' ====>');
5628:
5629: get_message( x_errbuf,
5623:
5624: ozf_utility_pvt.write_conc_log (' <===> ORDER MANAGEMENT ACCRUALS BEGIN <===>');
5625: ozf_utility_pvt.write_conc_log (' <===> g_message_count <===>'||g_message_count);
5626:
5627: ozf_utility_pvt.write_conc_log ('<====ORDER MANAGEMENT ACCRUALS BEGIN TIME '||to_char( SYSDATE ,'DD/MM/RR HH:MI:SS A.M. ')||' ====>');
5628:
5629: get_message( x_errbuf,
5630: x_retcode,
5631: p_run_exception,
5630: x_retcode,
5631: p_run_exception,
5632: p_debug );
5633:
5634: ozf_utility_pvt.write_conc_log ('<====ORDER MANAGEMENT ACCRUALS END TIME '||to_char( SYSDATE ,'DD/MM/RR HH:MI:SS A.M. ')||' ====>');
5635:
5636: ozf_utility_pvt.write_conc_log (' x_retcode '||x_retcode||'x_errbuf'||x_errbuf);
5637:
5638: ozf_utility_pvt.write_conc_log ('<===> ORDER MANAGEMENT ACCRUALS END <===>');
5632: p_debug );
5633:
5634: ozf_utility_pvt.write_conc_log ('<====ORDER MANAGEMENT ACCRUALS END TIME '||to_char( SYSDATE ,'DD/MM/RR HH:MI:SS A.M. ')||' ====>');
5635:
5636: ozf_utility_pvt.write_conc_log (' x_retcode '||x_retcode||'x_errbuf'||x_errbuf);
5637:
5638: ozf_utility_pvt.write_conc_log ('<===> ORDER MANAGEMENT ACCRUALS END <===>');
5639:
5640: IF p_run_backdated_adjustment = 'Y' OR p_run_volume_off_adjustment = 'Y' THEN
5634: ozf_utility_pvt.write_conc_log ('<====ORDER MANAGEMENT ACCRUALS END TIME '||to_char( SYSDATE ,'DD/MM/RR HH:MI:SS A.M. ')||' ====>');
5635:
5636: ozf_utility_pvt.write_conc_log (' x_retcode '||x_retcode||'x_errbuf'||x_errbuf);
5637:
5638: ozf_utility_pvt.write_conc_log ('<===> ORDER MANAGEMENT ACCRUALS END <===>');
5639:
5640: IF p_run_backdated_adjustment = 'Y' OR p_run_volume_off_adjustment = 'Y' THEN
5641: ozf_utility_pvt.write_conc_log ('<===> BACKDATED ADJUSTMENT BEGIN <===>');
5642: ozf_utility_pvt.write_conc_log ('<====BACKDATED ADJUSTMENT BEGIN TIME '||to_char( SYSDATE ,'DD/MM/RR HH:MI:SS A.M. ')||' ====>');
5637:
5638: ozf_utility_pvt.write_conc_log ('<===> ORDER MANAGEMENT ACCRUALS END <===>');
5639:
5640: IF p_run_backdated_adjustment = 'Y' OR p_run_volume_off_adjustment = 'Y' THEN
5641: ozf_utility_pvt.write_conc_log ('<===> BACKDATED ADJUSTMENT BEGIN <===>');
5642: ozf_utility_pvt.write_conc_log ('<====BACKDATED ADJUSTMENT BEGIN TIME '||to_char( SYSDATE ,'DD/MM/RR HH:MI:SS A.M. ')||' ====>');
5643:
5644: -- start backdated Adjustment only
5645: ozf_adjustment_ext_pvt.adjust_backdated_offer(
5638: ozf_utility_pvt.write_conc_log ('<===> ORDER MANAGEMENT ACCRUALS END <===>');
5639:
5640: IF p_run_backdated_adjustment = 'Y' OR p_run_volume_off_adjustment = 'Y' THEN
5641: ozf_utility_pvt.write_conc_log ('<===> BACKDATED ADJUSTMENT BEGIN <===>');
5642: ozf_utility_pvt.write_conc_log ('<====BACKDATED ADJUSTMENT BEGIN TIME '||to_char( SYSDATE ,'DD/MM/RR HH:MI:SS A.M. ')||' ====>');
5643:
5644: -- start backdated Adjustment only
5645: ozf_adjustment_ext_pvt.adjust_backdated_offer(
5646: x_errbuf,
5645: ozf_adjustment_ext_pvt.adjust_backdated_offer(
5646: x_errbuf,
5647: x_retcode,
5648: p_debug );
5649: ozf_utility_pvt.write_conc_log ('<====BACKDATED ADJUSTMENT END TIME '||to_char( SYSDATE ,'DD/MM/RR HH:MI:SS A.M. ')||' ====>');
5650:
5651: ozf_utility_pvt.write_conc_log (' BACKDATE ADJUSTMENT x_retcode '||x_retcode||'x_errbuf'||x_errbuf);
5652:
5653: ozf_utility_pvt.write_conc_log ('<===> BACKDATED ADJUSTMENT END <===> ');
5647: x_retcode,
5648: p_debug );
5649: ozf_utility_pvt.write_conc_log ('<====BACKDATED ADJUSTMENT END TIME '||to_char( SYSDATE ,'DD/MM/RR HH:MI:SS A.M. ')||' ====>');
5650:
5651: ozf_utility_pvt.write_conc_log (' BACKDATE ADJUSTMENT x_retcode '||x_retcode||'x_errbuf'||x_errbuf);
5652:
5653: ozf_utility_pvt.write_conc_log ('<===> BACKDATED ADJUSTMENT END <===> ');
5654:
5655: END IF;
5649: ozf_utility_pvt.write_conc_log ('<====BACKDATED ADJUSTMENT END TIME '||to_char( SYSDATE ,'DD/MM/RR HH:MI:SS A.M. ')||' ====>');
5650:
5651: ozf_utility_pvt.write_conc_log (' BACKDATE ADJUSTMENT x_retcode '||x_retcode||'x_errbuf'||x_errbuf);
5652:
5653: ozf_utility_pvt.write_conc_log ('<===> BACKDATED ADJUSTMENT END <===> ');
5654:
5655: END IF;
5656:
5657: ozf_utility_pvt.write_conc_log ('<===> POST OFFINVOICE UTILIZATION TO GL BEGIN <===>');
5653: ozf_utility_pvt.write_conc_log ('<===> BACKDATED ADJUSTMENT END <===> ');
5654:
5655: END IF;
5656:
5657: ozf_utility_pvt.write_conc_log ('<===> POST OFFINVOICE UTILIZATION TO GL BEGIN <===>');
5658: ozf_utility_pvt.write_conc_log ('<====POST OFFINVOICE UTILIZATION TO GL BEGIN TIME '||to_char( SYSDATE ,'DD/MM/RR HH:MI:SS A.M. ')||' ====>');
5659:
5660: post_offinvoice_to_gl(x_errbuf, x_retcode);
5661:
5654:
5655: END IF;
5656:
5657: ozf_utility_pvt.write_conc_log ('<===> POST OFFINVOICE UTILIZATION TO GL BEGIN <===>');
5658: ozf_utility_pvt.write_conc_log ('<====POST OFFINVOICE UTILIZATION TO GL BEGIN TIME '||to_char( SYSDATE ,'DD/MM/RR HH:MI:SS A.M. ')||' ====>');
5659:
5660: post_offinvoice_to_gl(x_errbuf, x_retcode);
5661:
5662: ozf_utility_pvt.write_conc_log ('<====POST OFFINVOICE UTILIZATION TO GL END TIME '||to_char( SYSDATE ,'DD/MM/RR HH:MI:SS A.M. ')||' ====>');
5658: ozf_utility_pvt.write_conc_log ('<====POST OFFINVOICE UTILIZATION TO GL BEGIN TIME '||to_char( SYSDATE ,'DD/MM/RR HH:MI:SS A.M. ')||' ====>');
5659:
5660: post_offinvoice_to_gl(x_errbuf, x_retcode);
5661:
5662: ozf_utility_pvt.write_conc_log ('<====POST OFFINVOICE UTILIZATION TO GL END TIME '||to_char( SYSDATE ,'DD/MM/RR HH:MI:SS A.M. ')||' ====>');
5663: ozf_utility_pvt.write_conc_log ('<===> POST OFFINVOICE UTILIZATION TO GL END <===>');
5664:
5665: IF p_run_volume_off_adjustment = 'Y' THEN
5666: ozf_utility_pvt.write_conc_log ('<===> VOLUME OFFER ADJUSTMENT BEGIN <=== >');
5659:
5660: post_offinvoice_to_gl(x_errbuf, x_retcode);
5661:
5662: ozf_utility_pvt.write_conc_log ('<====POST OFFINVOICE UTILIZATION TO GL END TIME '||to_char( SYSDATE ,'DD/MM/RR HH:MI:SS A.M. ')||' ====>');
5663: ozf_utility_pvt.write_conc_log ('<===> POST OFFINVOICE UTILIZATION TO GL END <===>');
5664:
5665: IF p_run_volume_off_adjustment = 'Y' THEN
5666: ozf_utility_pvt.write_conc_log ('<===> VOLUME OFFER ADJUSTMENT BEGIN <=== >');
5667: ozf_utility_pvt.write_conc_log ('<====VOLUME OFFER ADJUSTMENT BEGIN TIME '||to_char( SYSDATE ,'DD/MM/RR HH:MI:SS A.M. ')||' ====>');
5662: ozf_utility_pvt.write_conc_log ('<====POST OFFINVOICE UTILIZATION TO GL END TIME '||to_char( SYSDATE ,'DD/MM/RR HH:MI:SS A.M. ')||' ====>');
5663: ozf_utility_pvt.write_conc_log ('<===> POST OFFINVOICE UTILIZATION TO GL END <===>');
5664:
5665: IF p_run_volume_off_adjustment = 'Y' THEN
5666: ozf_utility_pvt.write_conc_log ('<===> VOLUME OFFER ADJUSTMENT BEGIN <=== >');
5667: ozf_utility_pvt.write_conc_log ('<====VOLUME OFFER ADJUSTMENT BEGIN TIME '||to_char( SYSDATE ,'DD/MM/RR HH:MI:SS A.M. ')||' ====>');
5668:
5669: ozf_adjustment_ext_pvt.adjust_volume_offer(
5670: x_errbuf,
5663: ozf_utility_pvt.write_conc_log ('<===> POST OFFINVOICE UTILIZATION TO GL END <===>');
5664:
5665: IF p_run_volume_off_adjustment = 'Y' THEN
5666: ozf_utility_pvt.write_conc_log ('<===> VOLUME OFFER ADJUSTMENT BEGIN <=== >');
5667: ozf_utility_pvt.write_conc_log ('<====VOLUME OFFER ADJUSTMENT BEGIN TIME '||to_char( SYSDATE ,'DD/MM/RR HH:MI:SS A.M. ')||' ====>');
5668:
5669: ozf_adjustment_ext_pvt.adjust_volume_offer(
5670: x_errbuf,
5671: x_retcode,
5669: ozf_adjustment_ext_pvt.adjust_volume_offer(
5670: x_errbuf,
5671: x_retcode,
5672: p_debug);
5673: ozf_utility_pvt.write_conc_log ('<====VOLUME OFFER ADJUSTMENT END TIME '||to_char( SYSDATE ,'DD/MM/RR HH:MI:SS A.M. ')||' ====>');
5674: ozf_utility_pvt.write_conc_log (' x_retcode '||x_retcode||'x_errbuf'||x_errbuf);
5675:
5676: ozf_utility_pvt.write_conc_log ('<===> VOLUME OFFER ADJUSTMENT END <===>');
5677: END IF;
5670: x_errbuf,
5671: x_retcode,
5672: p_debug);
5673: ozf_utility_pvt.write_conc_log ('<====VOLUME OFFER ADJUSTMENT END TIME '||to_char( SYSDATE ,'DD/MM/RR HH:MI:SS A.M. ')||' ====>');
5674: ozf_utility_pvt.write_conc_log (' x_retcode '||x_retcode||'x_errbuf'||x_errbuf);
5675:
5676: ozf_utility_pvt.write_conc_log ('<===> VOLUME OFFER ADJUSTMENT END <===>');
5677: END IF;
5678:
5672: p_debug);
5673: ozf_utility_pvt.write_conc_log ('<====VOLUME OFFER ADJUSTMENT END TIME '||to_char( SYSDATE ,'DD/MM/RR HH:MI:SS A.M. ')||' ====>');
5674: ozf_utility_pvt.write_conc_log (' x_retcode '||x_retcode||'x_errbuf'||x_errbuf);
5675:
5676: ozf_utility_pvt.write_conc_log ('<===> VOLUME OFFER ADJUSTMENT END <===>');
5677: END IF;
5678:
5679: IF p_run_unposted_gl = 'Y' THEN
5680: ozf_utility_pvt.write_conc_log ('<===> REPROCESS ALL FAILED GL POSTING BEGIN <=== >');
5676: ozf_utility_pvt.write_conc_log ('<===> VOLUME OFFER ADJUSTMENT END <===>');
5677: END IF;
5678:
5679: IF p_run_unposted_gl = 'Y' THEN
5680: ozf_utility_pvt.write_conc_log ('<===> REPROCESS ALL FAILED GL POSTING BEGIN <=== >');
5681: ozf_utility_pvt.write_conc_log ('<====REPROCESS ALL FAILED GL POSTING BEGIN TIME '||to_char( SYSDATE ,'DD/MM/RR HH:MI:SS A.M. ')||' ====>');
5682:
5683: reprocess_failed_gl_posting(
5684: x_errbuf,
5677: END IF;
5678:
5679: IF p_run_unposted_gl = 'Y' THEN
5680: ozf_utility_pvt.write_conc_log ('<===> REPROCESS ALL FAILED GL POSTING BEGIN <=== >');
5681: ozf_utility_pvt.write_conc_log ('<====REPROCESS ALL FAILED GL POSTING BEGIN TIME '||to_char( SYSDATE ,'DD/MM/RR HH:MI:SS A.M. ')||' ====>');
5682:
5683: reprocess_failed_gl_posting(
5684: x_errbuf,
5685: x_retcode);
5682:
5683: reprocess_failed_gl_posting(
5684: x_errbuf,
5685: x_retcode);
5686: ozf_utility_pvt.write_conc_log ('<====REPROCESS ALL FAILED GL POSTING END TIME '||to_char( SYSDATE ,'DD/MM/RR HH:MI:SS A.M. ')||' ====>');
5687:
5688: ozf_utility_pvt.write_conc_log (' REPROCESS_FAILED_GL_POSTING x_retcode='||x_retcode||' x_errbuf='||x_errbuf);
5689: ozf_utility_pvt.write_conc_log ('<===> REPROCESS ALL FAILED GL POSTING END <===>');
5690:
5684: x_errbuf,
5685: x_retcode);
5686: ozf_utility_pvt.write_conc_log ('<====REPROCESS ALL FAILED GL POSTING END TIME '||to_char( SYSDATE ,'DD/MM/RR HH:MI:SS A.M. ')||' ====>');
5687:
5688: ozf_utility_pvt.write_conc_log (' REPROCESS_FAILED_GL_POSTING x_retcode='||x_retcode||' x_errbuf='||x_errbuf);
5689: ozf_utility_pvt.write_conc_log ('<===> REPROCESS ALL FAILED GL POSTING END <===>');
5690:
5691: END IF;
5692:
5685: x_retcode);
5686: ozf_utility_pvt.write_conc_log ('<====REPROCESS ALL FAILED GL POSTING END TIME '||to_char( SYSDATE ,'DD/MM/RR HH:MI:SS A.M. ')||' ====>');
5687:
5688: ozf_utility_pvt.write_conc_log (' REPROCESS_FAILED_GL_POSTING x_retcode='||x_retcode||' x_errbuf='||x_errbuf);
5689: ozf_utility_pvt.write_conc_log ('<===> REPROCESS ALL FAILED GL POSTING END <===>');
5690:
5691: END IF;
5692:
5693: --//13333298
5690:
5691: END IF;
5692:
5693: --//13333298
5694: ozf_utility_pvt.write_conc_log ('<===> g_tpm_process_enabled <===>'||g_tpm_process_enabled);
5695:
5696: IF G_TPM_PROCESS_ENABLED = 'Y' THEN
5697: --raise business events
5698: l_item_key := 'ACCRUAL_INFO' || TO_CHAR(SYSDATE,'DDMMRRRRHH24MISS');
5885: BEGIN
5886: SAVEPOINT post_accrual_to_gl_sp;
5887:
5888: IF g_debug_flag = 'Y' THEN
5889: ozf_utility_pvt.write_conc_log (' D: post_accrual_to_gl() BEGIN posting to GL for utilization id ' ||
5890: p_util_utilization_id ||
5891: ' object_version_number=' || p_util_object_version_number ||
5892: ' amount=' || p_util_amount ||
5893: ' plan_type=' || p_util_plan_type ||
5961: ,x_msg_count => x_msg_count
5962: );
5963:
5964: IF g_debug_flag = 'Y' THEN
5965: ozf_utility_pvt.write_conc_log (' D: post_accrual_to_gl() create_gl_entry for utilization id '
5966: || p_util_utilization_id || ' returns ' || l_return_status);
5967: END IF;
5968:
5969: IF l_return_status = fnd_api.g_ret_sts_success THEN
5976: p_count => x_msg_count,
5977: p_data => x_msg_data,
5978: p_encoded => fnd_api.g_false
5979: );
5980: ozf_utility_pvt.write_conc_log(' /****** Failed to post to GL ******/ for utilization id ' || p_util_utilization_id);
5981:
5982: ozf_utility_pvt.write_conc_log;
5983: fnd_msg_pub.initialize;
5984: END IF;
5978: p_encoded => fnd_api.g_false
5979: );
5980: ozf_utility_pvt.write_conc_log(' /****** Failed to post to GL ******/ for utilization id ' || p_util_utilization_id);
5981:
5982: ozf_utility_pvt.write_conc_log;
5983: fnd_msg_pub.initialize;
5984: END IF;
5985:
5986: END IF; --l_gl_posted_flag = G_GL_FLAG_NO
6013: FETCH c_get_conversion_type INTO l_exchange_rate_type;
6014: CLOSE c_get_conversion_type;
6015:
6016: IF g_debug_flag = 'Y' THEN
6017: ozf_utility_pvt.write_conc_log('**************************START****************************');
6018: ozf_utility_pvt.write_conc_log('post_accrual_to_gl' ||' From Amount p_util_amount: '||p_util_amount );
6019: ozf_utility_pvt.write_conc_log('post_accrual_to_gl' ||' From Curr l_currency_code: '||l_currency_code );
6020: ozf_utility_pvt.write_conc_log('post_accrual_to_gl' ||' To Curr g_universal_currency: '|| g_universal_currency);
6021: --ozf_utility_pvt.write_conc_log('post_accrual_to_gl' ||' l_exchange_rate_type: '|| l_exchange_rate_type);
6014: CLOSE c_get_conversion_type;
6015:
6016: IF g_debug_flag = 'Y' THEN
6017: ozf_utility_pvt.write_conc_log('**************************START****************************');
6018: ozf_utility_pvt.write_conc_log('post_accrual_to_gl' ||' From Amount p_util_amount: '||p_util_amount );
6019: ozf_utility_pvt.write_conc_log('post_accrual_to_gl' ||' From Curr l_currency_code: '||l_currency_code );
6020: ozf_utility_pvt.write_conc_log('post_accrual_to_gl' ||' To Curr g_universal_currency: '|| g_universal_currency);
6021: --ozf_utility_pvt.write_conc_log('post_accrual_to_gl' ||' l_exchange_rate_type: '|| l_exchange_rate_type);
6022: END IF;
6015:
6016: IF g_debug_flag = 'Y' THEN
6017: ozf_utility_pvt.write_conc_log('**************************START****************************');
6018: ozf_utility_pvt.write_conc_log('post_accrual_to_gl' ||' From Amount p_util_amount: '||p_util_amount );
6019: ozf_utility_pvt.write_conc_log('post_accrual_to_gl' ||' From Curr l_currency_code: '||l_currency_code );
6020: ozf_utility_pvt.write_conc_log('post_accrual_to_gl' ||' To Curr g_universal_currency: '|| g_universal_currency);
6021: --ozf_utility_pvt.write_conc_log('post_accrual_to_gl' ||' l_exchange_rate_type: '|| l_exchange_rate_type);
6022: END IF;
6023:
6016: IF g_debug_flag = 'Y' THEN
6017: ozf_utility_pvt.write_conc_log('**************************START****************************');
6018: ozf_utility_pvt.write_conc_log('post_accrual_to_gl' ||' From Amount p_util_amount: '||p_util_amount );
6019: ozf_utility_pvt.write_conc_log('post_accrual_to_gl' ||' From Curr l_currency_code: '||l_currency_code );
6020: ozf_utility_pvt.write_conc_log('post_accrual_to_gl' ||' To Curr g_universal_currency: '|| g_universal_currency);
6021: --ozf_utility_pvt.write_conc_log('post_accrual_to_gl' ||' l_exchange_rate_type: '|| l_exchange_rate_type);
6022: END IF;
6023:
6024: ozf_utility_pvt.convert_currency(
6017: ozf_utility_pvt.write_conc_log('**************************START****************************');
6018: ozf_utility_pvt.write_conc_log('post_accrual_to_gl' ||' From Amount p_util_amount: '||p_util_amount );
6019: ozf_utility_pvt.write_conc_log('post_accrual_to_gl' ||' From Curr l_currency_code: '||l_currency_code );
6020: ozf_utility_pvt.write_conc_log('post_accrual_to_gl' ||' To Curr g_universal_currency: '|| g_universal_currency);
6021: --ozf_utility_pvt.write_conc_log('post_accrual_to_gl' ||' l_exchange_rate_type: '|| l_exchange_rate_type);
6022: END IF;
6023:
6024: ozf_utility_pvt.convert_currency(
6025: x_return_status => l_return_status
6020: ozf_utility_pvt.write_conc_log('post_accrual_to_gl' ||' To Curr g_universal_currency: '|| g_universal_currency);
6021: --ozf_utility_pvt.write_conc_log('post_accrual_to_gl' ||' l_exchange_rate_type: '|| l_exchange_rate_type);
6022: END IF;
6023:
6024: ozf_utility_pvt.convert_currency(
6025: x_return_status => l_return_status
6026: ,p_from_currency => l_currency_code
6027: ,p_to_currency => g_universal_currency
6028: ,p_conv_type => l_exchange_rate_type
6030: ,x_to_amount => l_new_univ_amt
6031: ,x_rate => l_rate);
6032:
6033: IF g_debug_flag = 'Y' THEN
6034: ozf_utility_pvt.write_conc_log('post_accrual_to_gl' ||' Converted Amount l_new_univ_amt: '|| l_new_univ_amt);
6035: ozf_utility_pvt.write_conc_log('Utilization amount is converted from fund curr to universal curr');
6036: ozf_utility_pvt.write_conc_log('***************************END******************************');
6037: END IF;
6038:
6031: ,x_rate => l_rate);
6032:
6033: IF g_debug_flag = 'Y' THEN
6034: ozf_utility_pvt.write_conc_log('post_accrual_to_gl' ||' Converted Amount l_new_univ_amt: '|| l_new_univ_amt);
6035: ozf_utility_pvt.write_conc_log('Utilization amount is converted from fund curr to universal curr');
6036: ozf_utility_pvt.write_conc_log('***************************END******************************');
6037: END IF;
6038:
6039: IF l_return_status = fnd_api.g_ret_sts_error THEN
6032:
6033: IF g_debug_flag = 'Y' THEN
6034: ozf_utility_pvt.write_conc_log('post_accrual_to_gl' ||' Converted Amount l_new_univ_amt: '|| l_new_univ_amt);
6035: ozf_utility_pvt.write_conc_log('Utilization amount is converted from fund curr to universal curr');
6036: ozf_utility_pvt.write_conc_log('***************************END******************************');
6037: END IF;
6038:
6039: IF l_return_status = fnd_api.g_ret_sts_error THEN
6040: RAISE fnd_api.g_exc_error;
6077: l_earned_amt := p_util_amount;
6078: l_rollup_earned_amt := l_new_univ_amt;
6079:
6080: -- rimehrot: for R12, populate paid/earned columns in ozf_object_fund_summary
6081: ozf_utility_pvt.write_conc_log('l_objfundsum_rec.earned_amt ' || l_objfundsum_rec.earned_amt);
6082: ozf_utility_pvt.write_conc_log('p_util_amount ' || p_util_amount);
6083: ozf_utility_pvt.write_conc_log('l_objfundsum_rec.plan_curr_earned_amt ' || l_objfundsum_rec.plan_curr_earned_amt);
6084: ozf_utility_pvt.write_conc_log('p_util_plan_amount ' || p_util_plan_amount);
6085: ozf_utility_pvt.write_conc_log('l_objfundsum_rec.univ_curr_earned_amt ' || l_objfundsum_rec.univ_curr_earned_amt);
6078: l_rollup_earned_amt := l_new_univ_amt;
6079:
6080: -- rimehrot: for R12, populate paid/earned columns in ozf_object_fund_summary
6081: ozf_utility_pvt.write_conc_log('l_objfundsum_rec.earned_amt ' || l_objfundsum_rec.earned_amt);
6082: ozf_utility_pvt.write_conc_log('p_util_amount ' || p_util_amount);
6083: ozf_utility_pvt.write_conc_log('l_objfundsum_rec.plan_curr_earned_amt ' || l_objfundsum_rec.plan_curr_earned_amt);
6084: ozf_utility_pvt.write_conc_log('p_util_plan_amount ' || p_util_plan_amount);
6085: ozf_utility_pvt.write_conc_log('l_objfundsum_rec.univ_curr_earned_amt ' || l_objfundsum_rec.univ_curr_earned_amt);
6086: ozf_utility_pvt.write_conc_log('l_new_univ_amt ' || l_new_univ_amt);
6079:
6080: -- rimehrot: for R12, populate paid/earned columns in ozf_object_fund_summary
6081: ozf_utility_pvt.write_conc_log('l_objfundsum_rec.earned_amt ' || l_objfundsum_rec.earned_amt);
6082: ozf_utility_pvt.write_conc_log('p_util_amount ' || p_util_amount);
6083: ozf_utility_pvt.write_conc_log('l_objfundsum_rec.plan_curr_earned_amt ' || l_objfundsum_rec.plan_curr_earned_amt);
6084: ozf_utility_pvt.write_conc_log('p_util_plan_amount ' || p_util_plan_amount);
6085: ozf_utility_pvt.write_conc_log('l_objfundsum_rec.univ_curr_earned_amt ' || l_objfundsum_rec.univ_curr_earned_amt);
6086: ozf_utility_pvt.write_conc_log('l_new_univ_amt ' || l_new_univ_amt);
6087: l_objfundsum_rec.earned_amt := NVL(l_objfundsum_rec.earned_amt, 0) + NVL(p_util_amount, 0);
6080: -- rimehrot: for R12, populate paid/earned columns in ozf_object_fund_summary
6081: ozf_utility_pvt.write_conc_log('l_objfundsum_rec.earned_amt ' || l_objfundsum_rec.earned_amt);
6082: ozf_utility_pvt.write_conc_log('p_util_amount ' || p_util_amount);
6083: ozf_utility_pvt.write_conc_log('l_objfundsum_rec.plan_curr_earned_amt ' || l_objfundsum_rec.plan_curr_earned_amt);
6084: ozf_utility_pvt.write_conc_log('p_util_plan_amount ' || p_util_plan_amount);
6085: ozf_utility_pvt.write_conc_log('l_objfundsum_rec.univ_curr_earned_amt ' || l_objfundsum_rec.univ_curr_earned_amt);
6086: ozf_utility_pvt.write_conc_log('l_new_univ_amt ' || l_new_univ_amt);
6087: l_objfundsum_rec.earned_amt := NVL(l_objfundsum_rec.earned_amt, 0) + NVL(p_util_amount, 0);
6088: l_objfundsum_rec.plan_curr_earned_amt := NVL(l_objfundsum_rec.plan_curr_earned_amt, 0)
6081: ozf_utility_pvt.write_conc_log('l_objfundsum_rec.earned_amt ' || l_objfundsum_rec.earned_amt);
6082: ozf_utility_pvt.write_conc_log('p_util_amount ' || p_util_amount);
6083: ozf_utility_pvt.write_conc_log('l_objfundsum_rec.plan_curr_earned_amt ' || l_objfundsum_rec.plan_curr_earned_amt);
6084: ozf_utility_pvt.write_conc_log('p_util_plan_amount ' || p_util_plan_amount);
6085: ozf_utility_pvt.write_conc_log('l_objfundsum_rec.univ_curr_earned_amt ' || l_objfundsum_rec.univ_curr_earned_amt);
6086: ozf_utility_pvt.write_conc_log('l_new_univ_amt ' || l_new_univ_amt);
6087: l_objfundsum_rec.earned_amt := NVL(l_objfundsum_rec.earned_amt, 0) + NVL(p_util_amount, 0);
6088: l_objfundsum_rec.plan_curr_earned_amt := NVL(l_objfundsum_rec.plan_curr_earned_amt, 0)
6089: + NVL(p_util_plan_amount, 0);
6082: ozf_utility_pvt.write_conc_log('p_util_amount ' || p_util_amount);
6083: ozf_utility_pvt.write_conc_log('l_objfundsum_rec.plan_curr_earned_amt ' || l_objfundsum_rec.plan_curr_earned_amt);
6084: ozf_utility_pvt.write_conc_log('p_util_plan_amount ' || p_util_plan_amount);
6085: ozf_utility_pvt.write_conc_log('l_objfundsum_rec.univ_curr_earned_amt ' || l_objfundsum_rec.univ_curr_earned_amt);
6086: ozf_utility_pvt.write_conc_log('l_new_univ_amt ' || l_new_univ_amt);
6087: l_objfundsum_rec.earned_amt := NVL(l_objfundsum_rec.earned_amt, 0) + NVL(p_util_amount, 0);
6088: l_objfundsum_rec.plan_curr_earned_amt := NVL(l_objfundsum_rec.plan_curr_earned_amt, 0)
6089: + NVL(p_util_plan_amount, 0);
6090: l_objfundsum_rec.univ_curr_earned_amt := NVL(l_objfundsum_rec.univ_curr_earned_amt, 0)
6154: x_gl_posted_flag := l_gl_posted_flag;
6155: x_return_status := fnd_api.g_ret_sts_success;
6156:
6157: IF g_debug_flag = 'Y' THEN
6158: ozf_utility_pvt.write_conc_log (' D: post_accrual_to_gl() ENDs for utilization id ' || p_util_utilization_id
6159: || ' final gl_posted_flag=' || x_gl_posted_flag);
6160: END IF;
6161:
6162: EXCEPTION
6161:
6162: EXCEPTION
6163: WHEN OTHERS THEN
6164: ROLLBACK TO post_accrual_to_gl_sp;
6165: ozf_utility_pvt.write_conc_log(' D: post_accrual_to_gl(): exception ');
6166: x_return_status := fnd_api.g_ret_sts_unexp_error;
6167: fnd_msg_pub.count_and_get (
6168: p_count => x_msg_count,
6169: p_data => x_msg_data,
6227: AND oeh.header_id = p_headerId;
6228:
6229: BEGIN
6230: IF g_debug_flag = 'Y' THEN
6231: ozf_utility_pvt.write_conc_log (' D: Begin posting to GL for all failed postings');
6232: END IF;
6233:
6234: OPEN c_get_failed_gl_posting;
6235: LOOP
6256: FETCH c_invoice_date INTO l_inv_date;
6257: CLOSE c_invoice_date;
6258:
6259: IF g_debug_flag = 'Y' THEN
6260: ozf_utility_pvt.write_conc_log('kd: Invoice Date l_inv_date: ' || l_inv_date);
6261: ozf_utility_pvt.write_conc_log('kd: utilization id: ' || l_utilIdTbl(i));
6262: END IF;
6263: --l_inv_date := NULL;
6264:
6257: CLOSE c_invoice_date;
6258:
6259: IF g_debug_flag = 'Y' THEN
6260: ozf_utility_pvt.write_conc_log('kd: Invoice Date l_inv_date: ' || l_inv_date);
6261: ozf_utility_pvt.write_conc_log('kd: utilization id: ' || l_utilIdTbl(i));
6262: END IF;
6263: --l_inv_date := NULL;
6264:
6265: IF l_inv_date IS NOT NULL THEN
6294:
6295: IF l_return_status <> fnd_api.g_ret_sts_success THEN
6296: -- failed again. Leave as it is.
6297: IF g_debug_flag = 'Y' THEN
6298: ozf_utility_pvt.write_conc_log(' /****** Failed to post to GL ******/ for utilization id ' || l_utilIdTbl(i));
6299: END IF;
6300: ELSE
6301: IF g_debug_flag = 'Y' THEN
6302: ozf_utility_pvt.write_conc_log (' D: successfully posted to GL for utilization id ' || l_utilIdTbl(i)
6298: ozf_utility_pvt.write_conc_log(' /****** Failed to post to GL ******/ for utilization id ' || l_utilIdTbl(i));
6299: END IF;
6300: ELSE
6301: IF g_debug_flag = 'Y' THEN
6302: ozf_utility_pvt.write_conc_log (' D: successfully posted to GL for utilization id ' || l_utilIdTbl(i)
6303: || ' x_gl_posted_flag=' || l_gl_posted_flag);
6304: END IF;
6305:
6306: -- yzhao: 03/04/2004 post gl for related accruals from offer adjustment or object reconcile
6326: CLOSE c_get_failed_gl_posting;
6327:
6328: x_retcode := 0;
6329: IF g_debug_flag = 'Y' THEN
6330: ozf_utility_pvt.write_conc_log (' D: End successfully posting to GL for all failed postings');
6331: END IF;
6332:
6333: EXCEPTION
6334: WHEN OTHERS THEN
6332:
6333: EXCEPTION
6334: WHEN OTHERS THEN
6335: x_retcode := 1;
6336: ozf_utility_pvt.write_conc_log(' /****** Failed to post to GL - exception ' || sqlcode || ' ******/' );
6337: END reprocess_failed_gl_posting;
6338:
6339:
6340: ------------------------------------------------------------------------------
6419: x_retcode := 0;
6420: SAVEPOINT post_offinvoice_to_gl_sp;
6421:
6422: IF g_debug_flag = 'Y' THEN
6423: ozf_utility_pvt.write_conc_log (' D: post_offinvoice_to_gl() BEGIN ');
6424: END IF;
6425:
6426: OPEN c_get_all_util_rec;
6427: LOOP
6434: LIMIT g_bulk_limit;
6435:
6436:
6437: IF g_debug_flag = 'Y' THEN
6438: ozf_utility_pvt.write_conc_log (' D: l_utilIdTbl count: ' || l_utilIdTbl.COUNT);
6439: END IF;
6440:
6441: FOR i IN NVL(l_utilIdTbl.FIRST, 1) .. NVL(l_utilIdTbl.LAST, 0) LOOP
6442:
6472:
6473: l_excDateTbl(i) := l_gl_date;
6474:
6475: IF g_debug_flag = 'Y' THEN
6476: ozf_utility_pvt.write_conc_log(' recalculate_earnings: start');
6477: ozf_utility_pvt.write_conc_log(' recalculate_earnings: l_excDateTbl(t_i) '||l_excDateTbl(i));
6478: ozf_utility_pvt.write_conc_log(' recalculate_earnings: l_excTypeTbl(t_i) '||l_excTypeTbl(i));
6479: ozf_utility_pvt.write_conc_log(' recalculate_earnings: l_orgIdTbl(t_i) '||l_orgIdTbl(i));
6480: ozf_utility_pvt.write_conc_log(' recalculate_earnings: l_currCodeTbl(t_i) '||l_currCodeTbl(i));
6473: l_excDateTbl(i) := l_gl_date;
6474:
6475: IF g_debug_flag = 'Y' THEN
6476: ozf_utility_pvt.write_conc_log(' recalculate_earnings: start');
6477: ozf_utility_pvt.write_conc_log(' recalculate_earnings: l_excDateTbl(t_i) '||l_excDateTbl(i));
6478: ozf_utility_pvt.write_conc_log(' recalculate_earnings: l_excTypeTbl(t_i) '||l_excTypeTbl(i));
6479: ozf_utility_pvt.write_conc_log(' recalculate_earnings: l_orgIdTbl(t_i) '||l_orgIdTbl(i));
6480: ozf_utility_pvt.write_conc_log(' recalculate_earnings: l_currCodeTbl(t_i) '||l_currCodeTbl(i));
6481: ozf_utility_pvt.write_conc_log(' recalculate_earnings: l_planCurrCodeTbl(t_i) '||l_planCurrCodeTbl(i));
6474:
6475: IF g_debug_flag = 'Y' THEN
6476: ozf_utility_pvt.write_conc_log(' recalculate_earnings: start');
6477: ozf_utility_pvt.write_conc_log(' recalculate_earnings: l_excDateTbl(t_i) '||l_excDateTbl(i));
6478: ozf_utility_pvt.write_conc_log(' recalculate_earnings: l_excTypeTbl(t_i) '||l_excTypeTbl(i));
6479: ozf_utility_pvt.write_conc_log(' recalculate_earnings: l_orgIdTbl(t_i) '||l_orgIdTbl(i));
6480: ozf_utility_pvt.write_conc_log(' recalculate_earnings: l_currCodeTbl(t_i) '||l_currCodeTbl(i));
6481: ozf_utility_pvt.write_conc_log(' recalculate_earnings: l_planCurrCodeTbl(t_i) '||l_planCurrCodeTbl(i));
6482: ozf_utility_pvt.write_conc_log(' recalculate_earnings: l_fundReqCurrCodeTbl(t_i) '||l_fundReqCurrCodeTbl(i));
6475: IF g_debug_flag = 'Y' THEN
6476: ozf_utility_pvt.write_conc_log(' recalculate_earnings: start');
6477: ozf_utility_pvt.write_conc_log(' recalculate_earnings: l_excDateTbl(t_i) '||l_excDateTbl(i));
6478: ozf_utility_pvt.write_conc_log(' recalculate_earnings: l_excTypeTbl(t_i) '||l_excTypeTbl(i));
6479: ozf_utility_pvt.write_conc_log(' recalculate_earnings: l_orgIdTbl(t_i) '||l_orgIdTbl(i));
6480: ozf_utility_pvt.write_conc_log(' recalculate_earnings: l_currCodeTbl(t_i) '||l_currCodeTbl(i));
6481: ozf_utility_pvt.write_conc_log(' recalculate_earnings: l_planCurrCodeTbl(t_i) '||l_planCurrCodeTbl(i));
6482: ozf_utility_pvt.write_conc_log(' recalculate_earnings: l_fundReqCurrCodeTbl(t_i) '||l_fundReqCurrCodeTbl(i));
6483: ozf_utility_pvt.write_conc_log(' recalculate_earnings: l_amountTbl(t_i) '||l_amountTbl(i));
6476: ozf_utility_pvt.write_conc_log(' recalculate_earnings: start');
6477: ozf_utility_pvt.write_conc_log(' recalculate_earnings: l_excDateTbl(t_i) '||l_excDateTbl(i));
6478: ozf_utility_pvt.write_conc_log(' recalculate_earnings: l_excTypeTbl(t_i) '||l_excTypeTbl(i));
6479: ozf_utility_pvt.write_conc_log(' recalculate_earnings: l_orgIdTbl(t_i) '||l_orgIdTbl(i));
6480: ozf_utility_pvt.write_conc_log(' recalculate_earnings: l_currCodeTbl(t_i) '||l_currCodeTbl(i));
6481: ozf_utility_pvt.write_conc_log(' recalculate_earnings: l_planCurrCodeTbl(t_i) '||l_planCurrCodeTbl(i));
6482: ozf_utility_pvt.write_conc_log(' recalculate_earnings: l_fundReqCurrCodeTbl(t_i) '||l_fundReqCurrCodeTbl(i));
6483: ozf_utility_pvt.write_conc_log(' recalculate_earnings: l_amountTbl(t_i) '||l_amountTbl(i));
6484: ozf_utility_pvt.write_conc_log(' recalculate_earnings: l_planCurrAmtTbl(t_i) '||l_planCurrAmtTbl(i));
6477: ozf_utility_pvt.write_conc_log(' recalculate_earnings: l_excDateTbl(t_i) '||l_excDateTbl(i));
6478: ozf_utility_pvt.write_conc_log(' recalculate_earnings: l_excTypeTbl(t_i) '||l_excTypeTbl(i));
6479: ozf_utility_pvt.write_conc_log(' recalculate_earnings: l_orgIdTbl(t_i) '||l_orgIdTbl(i));
6480: ozf_utility_pvt.write_conc_log(' recalculate_earnings: l_currCodeTbl(t_i) '||l_currCodeTbl(i));
6481: ozf_utility_pvt.write_conc_log(' recalculate_earnings: l_planCurrCodeTbl(t_i) '||l_planCurrCodeTbl(i));
6482: ozf_utility_pvt.write_conc_log(' recalculate_earnings: l_fundReqCurrCodeTbl(t_i) '||l_fundReqCurrCodeTbl(i));
6483: ozf_utility_pvt.write_conc_log(' recalculate_earnings: l_amountTbl(t_i) '||l_amountTbl(i));
6484: ozf_utility_pvt.write_conc_log(' recalculate_earnings: l_planCurrAmtTbl(t_i) '||l_planCurrAmtTbl(i));
6485: ozf_utility_pvt.write_conc_log(' recalculate_earnings: l_planCurrAmtRemTbl(t_i) '||l_planCurrAmtRemTbl(i));
6478: ozf_utility_pvt.write_conc_log(' recalculate_earnings: l_excTypeTbl(t_i) '||l_excTypeTbl(i));
6479: ozf_utility_pvt.write_conc_log(' recalculate_earnings: l_orgIdTbl(t_i) '||l_orgIdTbl(i));
6480: ozf_utility_pvt.write_conc_log(' recalculate_earnings: l_currCodeTbl(t_i) '||l_currCodeTbl(i));
6481: ozf_utility_pvt.write_conc_log(' recalculate_earnings: l_planCurrCodeTbl(t_i) '||l_planCurrCodeTbl(i));
6482: ozf_utility_pvt.write_conc_log(' recalculate_earnings: l_fundReqCurrCodeTbl(t_i) '||l_fundReqCurrCodeTbl(i));
6483: ozf_utility_pvt.write_conc_log(' recalculate_earnings: l_amountTbl(t_i) '||l_amountTbl(i));
6484: ozf_utility_pvt.write_conc_log(' recalculate_earnings: l_planCurrAmtTbl(t_i) '||l_planCurrAmtTbl(i));
6485: ozf_utility_pvt.write_conc_log(' recalculate_earnings: l_planCurrAmtRemTbl(t_i) '||l_planCurrAmtRemTbl(i));
6486: ozf_utility_pvt.write_conc_log(' recalculate_earnings: l_univCurrAmtTbl(t_i) '||l_univCurrAmtTbl(i));
6479: ozf_utility_pvt.write_conc_log(' recalculate_earnings: l_orgIdTbl(t_i) '||l_orgIdTbl(i));
6480: ozf_utility_pvt.write_conc_log(' recalculate_earnings: l_currCodeTbl(t_i) '||l_currCodeTbl(i));
6481: ozf_utility_pvt.write_conc_log(' recalculate_earnings: l_planCurrCodeTbl(t_i) '||l_planCurrCodeTbl(i));
6482: ozf_utility_pvt.write_conc_log(' recalculate_earnings: l_fundReqCurrCodeTbl(t_i) '||l_fundReqCurrCodeTbl(i));
6483: ozf_utility_pvt.write_conc_log(' recalculate_earnings: l_amountTbl(t_i) '||l_amountTbl(i));
6484: ozf_utility_pvt.write_conc_log(' recalculate_earnings: l_planCurrAmtTbl(t_i) '||l_planCurrAmtTbl(i));
6485: ozf_utility_pvt.write_conc_log(' recalculate_earnings: l_planCurrAmtRemTbl(t_i) '||l_planCurrAmtRemTbl(i));
6486: ozf_utility_pvt.write_conc_log(' recalculate_earnings: l_univCurrAmtTbl(t_i) '||l_univCurrAmtTbl(i));
6487: ozf_utility_pvt.write_conc_log(' recalculate_earnings: l_acctAmtTbl(t_i) '||l_acctAmtTbl(i));
6480: ozf_utility_pvt.write_conc_log(' recalculate_earnings: l_currCodeTbl(t_i) '||l_currCodeTbl(i));
6481: ozf_utility_pvt.write_conc_log(' recalculate_earnings: l_planCurrCodeTbl(t_i) '||l_planCurrCodeTbl(i));
6482: ozf_utility_pvt.write_conc_log(' recalculate_earnings: l_fundReqCurrCodeTbl(t_i) '||l_fundReqCurrCodeTbl(i));
6483: ozf_utility_pvt.write_conc_log(' recalculate_earnings: l_amountTbl(t_i) '||l_amountTbl(i));
6484: ozf_utility_pvt.write_conc_log(' recalculate_earnings: l_planCurrAmtTbl(t_i) '||l_planCurrAmtTbl(i));
6485: ozf_utility_pvt.write_conc_log(' recalculate_earnings: l_planCurrAmtRemTbl(t_i) '||l_planCurrAmtRemTbl(i));
6486: ozf_utility_pvt.write_conc_log(' recalculate_earnings: l_univCurrAmtTbl(t_i) '||l_univCurrAmtTbl(i));
6487: ozf_utility_pvt.write_conc_log(' recalculate_earnings: l_acctAmtTbl(t_i) '||l_acctAmtTbl(i));
6488: ozf_utility_pvt.write_conc_log(' recalculate_earnings: l_planIdTbl(t_i) '||l_planIdTbl(i));
6481: ozf_utility_pvt.write_conc_log(' recalculate_earnings: l_planCurrCodeTbl(t_i) '||l_planCurrCodeTbl(i));
6482: ozf_utility_pvt.write_conc_log(' recalculate_earnings: l_fundReqCurrCodeTbl(t_i) '||l_fundReqCurrCodeTbl(i));
6483: ozf_utility_pvt.write_conc_log(' recalculate_earnings: l_amountTbl(t_i) '||l_amountTbl(i));
6484: ozf_utility_pvt.write_conc_log(' recalculate_earnings: l_planCurrAmtTbl(t_i) '||l_planCurrAmtTbl(i));
6485: ozf_utility_pvt.write_conc_log(' recalculate_earnings: l_planCurrAmtRemTbl(t_i) '||l_planCurrAmtRemTbl(i));
6486: ozf_utility_pvt.write_conc_log(' recalculate_earnings: l_univCurrAmtTbl(t_i) '||l_univCurrAmtTbl(i));
6487: ozf_utility_pvt.write_conc_log(' recalculate_earnings: l_acctAmtTbl(t_i) '||l_acctAmtTbl(i));
6488: ozf_utility_pvt.write_conc_log(' recalculate_earnings: l_planIdTbl(t_i) '||l_planIdTbl(i));
6489: ozf_utility_pvt.write_conc_log(' recalculate_earnings: l_planTypeTbl(t_i) '||l_planTypeTbl(i));
6482: ozf_utility_pvt.write_conc_log(' recalculate_earnings: l_fundReqCurrCodeTbl(t_i) '||l_fundReqCurrCodeTbl(i));
6483: ozf_utility_pvt.write_conc_log(' recalculate_earnings: l_amountTbl(t_i) '||l_amountTbl(i));
6484: ozf_utility_pvt.write_conc_log(' recalculate_earnings: l_planCurrAmtTbl(t_i) '||l_planCurrAmtTbl(i));
6485: ozf_utility_pvt.write_conc_log(' recalculate_earnings: l_planCurrAmtRemTbl(t_i) '||l_planCurrAmtRemTbl(i));
6486: ozf_utility_pvt.write_conc_log(' recalculate_earnings: l_univCurrAmtTbl(t_i) '||l_univCurrAmtTbl(i));
6487: ozf_utility_pvt.write_conc_log(' recalculate_earnings: l_acctAmtTbl(t_i) '||l_acctAmtTbl(i));
6488: ozf_utility_pvt.write_conc_log(' recalculate_earnings: l_planIdTbl(t_i) '||l_planIdTbl(i));
6489: ozf_utility_pvt.write_conc_log(' recalculate_earnings: l_planTypeTbl(t_i) '||l_planTypeTbl(i));
6490: ozf_utility_pvt.write_conc_log(' recalculate_earnings: l_fundIdTbl(t_i) '||l_fundIdTbl(i));
6483: ozf_utility_pvt.write_conc_log(' recalculate_earnings: l_amountTbl(t_i) '||l_amountTbl(i));
6484: ozf_utility_pvt.write_conc_log(' recalculate_earnings: l_planCurrAmtTbl(t_i) '||l_planCurrAmtTbl(i));
6485: ozf_utility_pvt.write_conc_log(' recalculate_earnings: l_planCurrAmtRemTbl(t_i) '||l_planCurrAmtRemTbl(i));
6486: ozf_utility_pvt.write_conc_log(' recalculate_earnings: l_univCurrAmtTbl(t_i) '||l_univCurrAmtTbl(i));
6487: ozf_utility_pvt.write_conc_log(' recalculate_earnings: l_acctAmtTbl(t_i) '||l_acctAmtTbl(i));
6488: ozf_utility_pvt.write_conc_log(' recalculate_earnings: l_planIdTbl(t_i) '||l_planIdTbl(i));
6489: ozf_utility_pvt.write_conc_log(' recalculate_earnings: l_planTypeTbl(t_i) '||l_planTypeTbl(i));
6490: ozf_utility_pvt.write_conc_log(' recalculate_earnings: l_fundIdTbl(t_i) '||l_fundIdTbl(i));
6491: ozf_utility_pvt.write_conc_log(' recalculate_earnings: l_utilIdTbl(t_i) '||l_utilIdTbl(i));
6484: ozf_utility_pvt.write_conc_log(' recalculate_earnings: l_planCurrAmtTbl(t_i) '||l_planCurrAmtTbl(i));
6485: ozf_utility_pvt.write_conc_log(' recalculate_earnings: l_planCurrAmtRemTbl(t_i) '||l_planCurrAmtRemTbl(i));
6486: ozf_utility_pvt.write_conc_log(' recalculate_earnings: l_univCurrAmtTbl(t_i) '||l_univCurrAmtTbl(i));
6487: ozf_utility_pvt.write_conc_log(' recalculate_earnings: l_acctAmtTbl(t_i) '||l_acctAmtTbl(i));
6488: ozf_utility_pvt.write_conc_log(' recalculate_earnings: l_planIdTbl(t_i) '||l_planIdTbl(i));
6489: ozf_utility_pvt.write_conc_log(' recalculate_earnings: l_planTypeTbl(t_i) '||l_planTypeTbl(i));
6490: ozf_utility_pvt.write_conc_log(' recalculate_earnings: l_fundIdTbl(t_i) '||l_fundIdTbl(i));
6491: ozf_utility_pvt.write_conc_log(' recalculate_earnings: l_utilIdTbl(t_i) '||l_utilIdTbl(i));
6492: ozf_utility_pvt.write_conc_log(' recalculate_earnings: l_utilTypeTbl(t_i) '||l_utilTypeTbl(i));
6485: ozf_utility_pvt.write_conc_log(' recalculate_earnings: l_planCurrAmtRemTbl(t_i) '||l_planCurrAmtRemTbl(i));
6486: ozf_utility_pvt.write_conc_log(' recalculate_earnings: l_univCurrAmtTbl(t_i) '||l_univCurrAmtTbl(i));
6487: ozf_utility_pvt.write_conc_log(' recalculate_earnings: l_acctAmtTbl(t_i) '||l_acctAmtTbl(i));
6488: ozf_utility_pvt.write_conc_log(' recalculate_earnings: l_planIdTbl(t_i) '||l_planIdTbl(i));
6489: ozf_utility_pvt.write_conc_log(' recalculate_earnings: l_planTypeTbl(t_i) '||l_planTypeTbl(i));
6490: ozf_utility_pvt.write_conc_log(' recalculate_earnings: l_fundIdTbl(t_i) '||l_fundIdTbl(i));
6491: ozf_utility_pvt.write_conc_log(' recalculate_earnings: l_utilIdTbl(t_i) '||l_utilIdTbl(i));
6492: ozf_utility_pvt.write_conc_log(' recalculate_earnings: l_utilTypeTbl(t_i) '||l_utilTypeTbl(i));
6493: END IF;
6486: ozf_utility_pvt.write_conc_log(' recalculate_earnings: l_univCurrAmtTbl(t_i) '||l_univCurrAmtTbl(i));
6487: ozf_utility_pvt.write_conc_log(' recalculate_earnings: l_acctAmtTbl(t_i) '||l_acctAmtTbl(i));
6488: ozf_utility_pvt.write_conc_log(' recalculate_earnings: l_planIdTbl(t_i) '||l_planIdTbl(i));
6489: ozf_utility_pvt.write_conc_log(' recalculate_earnings: l_planTypeTbl(t_i) '||l_planTypeTbl(i));
6490: ozf_utility_pvt.write_conc_log(' recalculate_earnings: l_fundIdTbl(t_i) '||l_fundIdTbl(i));
6491: ozf_utility_pvt.write_conc_log(' recalculate_earnings: l_utilIdTbl(t_i) '||l_utilIdTbl(i));
6492: ozf_utility_pvt.write_conc_log(' recalculate_earnings: l_utilTypeTbl(t_i) '||l_utilTypeTbl(i));
6493: END IF;
6494:
6487: ozf_utility_pvt.write_conc_log(' recalculate_earnings: l_acctAmtTbl(t_i) '||l_acctAmtTbl(i));
6488: ozf_utility_pvt.write_conc_log(' recalculate_earnings: l_planIdTbl(t_i) '||l_planIdTbl(i));
6489: ozf_utility_pvt.write_conc_log(' recalculate_earnings: l_planTypeTbl(t_i) '||l_planTypeTbl(i));
6490: ozf_utility_pvt.write_conc_log(' recalculate_earnings: l_fundIdTbl(t_i) '||l_fundIdTbl(i));
6491: ozf_utility_pvt.write_conc_log(' recalculate_earnings: l_utilIdTbl(t_i) '||l_utilIdTbl(i));
6492: ozf_utility_pvt.write_conc_log(' recalculate_earnings: l_utilTypeTbl(t_i) '||l_utilTypeTbl(i));
6493: END IF;
6494:
6495: recalculate_earnings(p_exchange_rate_date => l_excDateTbl(i),
6488: ozf_utility_pvt.write_conc_log(' recalculate_earnings: l_planIdTbl(t_i) '||l_planIdTbl(i));
6489: ozf_utility_pvt.write_conc_log(' recalculate_earnings: l_planTypeTbl(t_i) '||l_planTypeTbl(i));
6490: ozf_utility_pvt.write_conc_log(' recalculate_earnings: l_fundIdTbl(t_i) '||l_fundIdTbl(i));
6491: ozf_utility_pvt.write_conc_log(' recalculate_earnings: l_utilIdTbl(t_i) '||l_utilIdTbl(i));
6492: ozf_utility_pvt.write_conc_log(' recalculate_earnings: l_utilTypeTbl(t_i) '||l_utilTypeTbl(i));
6493: END IF;
6494:
6495: recalculate_earnings(p_exchange_rate_date => l_excDateTbl(i),
6496: p_exchange_rate_type => l_excTypeTbl(i),
6512: x_return_status => l_return_status,
6513: x_msg_count => l_msg_count,
6514: x_msg_data => l_msg_data);
6515: IF g_debug_flag = 'Y' THEN
6516: ozf_utility_pvt.write_conc_log(' recalculate_earnings returns ' || l_return_status
6517: );
6518: END IF;
6519: END IF;
6520:
6534: );
6535:
6536: -- do not raise exception for gl posting error. Just mark it as failed and deal with it later
6537: IF g_debug_flag = 'Y' THEN
6538: ozf_utility_pvt.write_conc_log (' D: post_offinvoice_to_gl() post_accrual_to_gl(util_id='
6539: || l_utilIdTbl(i)
6540: || ') returns ' || l_return_status || ' x_gl_posted_flag' || l_gl_posted_flag);
6541: END IF;
6542:
6559: END LOOP; -- bulk fetch
6560: CLOSE c_get_all_util_rec;
6561:
6562: IF g_debug_flag = 'Y' THEN
6563: ozf_utility_pvt.write_conc_log (' D: post_offinvoice_to_gl() END');
6564: END IF;
6565:
6566:
6567: EXCEPTION
6567: EXCEPTION
6568: WHEN OTHERS THEN
6569: ROLLBACK TO post_offinvoice_to_gl_sp;
6570: x_retcode := 1;
6571: ozf_utility_pvt.write_conc_log(' D: post_offinvoice_to_gl(): exception ');
6572: fnd_msg_pub.count_and_get (
6573: p_count => l_msg_count,
6574: p_data => l_msg_data,
6575: p_encoded => fnd_api.g_false
6620:
6621: BEGIN
6622: SAVEPOINT post_related_accrual_to_gl_sp;
6623: IF g_debug_flag = 'Y' THEN
6624: ozf_utility_pvt.write_conc_log (' D: post_related_accrual_to_gl() BEGIN posting related accruals to GL for utilization id ' || p_utilization_id);
6625: END IF;
6626:
6627: IF p_utilization_type = 'UTILIZED' THEN
6628: l_adjust_paid_flag := true;
6664: );
6665:
6666: -- do not raise exception for gl posting error. Just mark it as failed and deal with it later
6667: IF g_debug_flag = 'Y' THEN
6668: ozf_utility_pvt.write_conc_log(' D: post_related_accrual_to_gl() post_accrual_to_gl(util_id=' || l_utilIdTbl(i)
6669: || ') returns ' || l_return_status || ' x_gl_posted_flag' || l_gl_posted_flag);
6670: END IF;
6671: END LOOP; -- FOR i IN NVL(l_utilIdTbl.FIRST, 1) .. NVL(l_utilIdTbl.LAST, 0) LOOP
6672:
6675: CLOSE c_get_related_accrual;
6676:
6677: x_return_status := fnd_api.g_ret_sts_success;
6678: IF g_debug_flag = 'Y' THEN
6679: ozf_utility_pvt.write_conc_log (' D: post_related_accrual_to_gl() ENDs for utilization id ' || p_utilization_id);
6680: END IF;
6681:
6682: EXCEPTION
6683: WHEN OTHERS THEN
6681:
6682: EXCEPTION
6683: WHEN OTHERS THEN
6684: ROLLBACK TO post_related_accrual_to_gl_sp;
6685: ozf_utility_pvt.write_conc_log(' D: post_related_accrual_to_gl(): exception ');
6686: x_return_status := fnd_api.g_ret_sts_unexp_error;
6687: fnd_msg_pub.count_and_get (
6688: p_count => x_msg_count,
6689: p_data => x_msg_data,
6803:
6804: BEGIN
6805: SAVEPOINT recalculate_earnings_sp;
6806: IF g_debug_flag = 'Y' THEN
6807: ozf_utility_pvt.write_conc_log ('recalculate_earnings_sp() BEGIN converting amounts based on shipping date for utilization id ' || p_util_utilization_id);
6808: END IF;
6809:
6810: OPEN c_get_conversion_type(p_util_org_id);
6811: FETCH c_get_conversion_type INTO l_exchange_rate_type;
6814: --budget
6815: IF p_currency_code = p_plan_currency_code THEN
6816: l_conv_amount := p_plan_curr_amount;
6817: ELSE
6818: ozf_utility_pvt.convert_currency (
6819: x_return_status => l_return_status,
6820: p_from_currency => p_plan_currency_code,
6821: p_to_currency => p_currency_code,
6822: p_conv_type => l_exchange_rate_type,
6837: p_operating_unit => p_util_org_id
6838: ,p_ledger_id => l_order_ledger
6839: ,p_ledger_name => l_ord_ledger_name);
6840:
6841: ozf_utility_pvt.calculate_functional_currency (
6842: p_from_amount => p_plan_curr_amount
6843: ,p_conv_date => p_exchange_rate_date
6844: ,p_tc_currency_code => p_plan_currency_code
6845: ,p_ledger_id => l_order_ledger
6861: l_conv_univ_amount := p_plan_curr_amount;
6862: ELSIF g_universal_currency = l_fc_code THEN
6863: l_conv_univ_amount := l_conv_acctd_amount;
6864: ELSE
6865: ozf_utility_pvt.convert_currency(
6866: x_return_status => l_return_status
6867: ,p_from_currency => p_plan_currency_code
6868: ,p_to_currency => g_universal_currency
6869: ,p_conv_type => l_exchange_rate_type
6881: --offer if null currency offer
6882: IF p_plan_currency_code = p_fund_req_currency_code THEN
6883: l_conv_fund_req_amount := p_plan_curr_amount;
6884: ELSE
6885: ozf_utility_pvt.convert_currency (
6886: x_return_status => x_return_status
6887: ,p_from_currency => p_plan_currency_code
6888: ,p_to_currency => p_fund_req_currency_code
6889: ,p_conv_type => l_exchange_rate_type
7057:
7058: EXCEPTION
7059: WHEN OTHERS THEN
7060: ROLLBACK TO recalculate_earnings_sp;
7061: ozf_utility_pvt.write_conc_log('recalculate_earnings(): exception ');
7062: fnd_msg_pub.count_and_get (
7063: p_count => l_msg_count,
7064: p_data => l_msg_data,
7065: p_encoded => fnd_api.g_false
7067:
7068:
7069: x_return_status := fnd_api.g_ret_sts_success;
7070: IF g_debug_flag = 'Y' THEN
7071: ozf_utility_pvt.write_conc_log (' D: recalculate_earnings() ENDs for utilization id ' || p_util_utilization_id);
7072: END IF;
7073: END recalculate_earnings;
7074: END ozf_accrual_engine;