[Home] [Help]
10: g_fp_project_cost_exchng_rt Number;
11: g_fp_project_rev_exchng_rt Number;
12: g_module_name VARCHAR2(100) := 'pa.plsql.PA_FP_MULTI_CURRENCY_PKG';
13:
14: P_PA_DEBUG_MODE varchar2(1) := NVL(FND_PROFILE.value('PA_DEBUG_MODE'), 'N');
15:
16: /* Perf Bug: 3683132 */
17: /*====================================================================+
18: | Bug 4094376: Refreshed global variables g_cache_fp_plan_version_id |
202: BEGIN
203:
204: x_return_status := FND_API.G_RET_STS_SUCCESS;
205:
206: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
207: --l_debug_mode := NVL(l_debug_mode,'Y');
208: IF P_PA_DEBUG_MODE = 'Y' THEN
209: pa_debug.init_err_stack('PA_FP_MULTI_CURRENCY_PKG.conv_mc_bulk');
210: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
204: x_return_status := FND_API.G_RET_STS_SUCCESS;
205:
206: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
207: --l_debug_mode := NVL(l_debug_mode,'Y');
208: IF P_PA_DEBUG_MODE = 'Y' THEN
209: pa_debug.init_err_stack('PA_FP_MULTI_CURRENCY_PKG.conv_mc_bulk');
210: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
211: END IF;
212:
205:
206: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
207: --l_debug_mode := NVL(l_debug_mode,'Y');
208: IF P_PA_DEBUG_MODE = 'Y' THEN
209: pa_debug.init_err_stack('PA_FP_MULTI_CURRENCY_PKG.conv_mc_bulk');
210: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
211: END IF;
212:
213: pa_debug.g_err_stage := 'Entered PA_FP_MULTI_CURRENCY_PKG.conv_mc_bulk';
206: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
207: --l_debug_mode := NVL(l_debug_mode,'Y');
208: IF P_PA_DEBUG_MODE = 'Y' THEN
209: pa_debug.init_err_stack('PA_FP_MULTI_CURRENCY_PKG.conv_mc_bulk');
210: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
211: END IF;
212:
213: pa_debug.g_err_stage := 'Entered PA_FP_MULTI_CURRENCY_PKG.conv_mc_bulk';
214: IF P_PA_DEBUG_MODE = 'Y' THEN
209: pa_debug.init_err_stack('PA_FP_MULTI_CURRENCY_PKG.conv_mc_bulk');
210: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
211: END IF;
212:
213: pa_debug.g_err_stage := 'Entered PA_FP_MULTI_CURRENCY_PKG.conv_mc_bulk';
214: IF P_PA_DEBUG_MODE = 'Y' THEN
215: pa_debug.write('conv_mc_bulk: ' || g_module_name,pa_debug.g_err_stage,3);
216: END IF;
217:
210: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
211: END IF;
212:
213: pa_debug.g_err_stage := 'Entered PA_FP_MULTI_CURRENCY_PKG.conv_mc_bulk';
214: IF P_PA_DEBUG_MODE = 'Y' THEN
215: pa_debug.write('conv_mc_bulk: ' || g_module_name,pa_debug.g_err_stage,3);
216: END IF;
217:
218: l_tab_count := p_txn_currency_code_tab.COUNT;
211: END IF;
212:
213: pa_debug.g_err_stage := 'Entered PA_FP_MULTI_CURRENCY_PKG.conv_mc_bulk';
214: IF P_PA_DEBUG_MODE = 'Y' THEN
215: pa_debug.write('conv_mc_bulk: ' || g_module_name,pa_debug.g_err_stage,3);
216: END IF;
217:
218: l_tab_count := p_txn_currency_code_tab.COUNT;
219: l_cached_count := CachedRowTab.COUNT;
221: l_stage := 100;
222: --hr_utility.trace(to_char(l_stage));
223:
224: IF l_tab_count = 0 THEN
225: pa_debug.g_err_stage := to_char(l_stage)||': No records selected -- Returning';
226: IF P_PA_DEBUG_MODE = 'Y' THEN
227: pa_debug.write('conv_mc_bulk: ' || g_module_name,pa_debug.g_err_stage,3);
228: END IF;
229: RETURN;
222: --hr_utility.trace(to_char(l_stage));
223:
224: IF l_tab_count = 0 THEN
225: pa_debug.g_err_stage := to_char(l_stage)||': No records selected -- Returning';
226: IF P_PA_DEBUG_MODE = 'Y' THEN
227: pa_debug.write('conv_mc_bulk: ' || g_module_name,pa_debug.g_err_stage,3);
228: END IF;
229: RETURN;
230: END IF;
223:
224: IF l_tab_count = 0 THEN
225: pa_debug.g_err_stage := to_char(l_stage)||': No records selected -- Returning';
226: IF P_PA_DEBUG_MODE = 'Y' THEN
227: pa_debug.write('conv_mc_bulk: ' || g_module_name,pa_debug.g_err_stage,3);
228: END IF;
229: RETURN;
230: END IF;
231:
228: END IF;
229: RETURN;
230: END IF;
231:
232: pa_debug.g_err_stage := to_char(l_stage)||': Records selected '||to_char(l_tab_count);
233: IF P_PA_DEBUG_MODE = 'Y' THEN
234: pa_debug.write('conv_mc_bulk: ' || g_module_name,pa_debug.g_err_stage,3);
235: END IF;
236:
229: RETURN;
230: END IF;
231:
232: pa_debug.g_err_stage := to_char(l_stage)||': Records selected '||to_char(l_tab_count);
233: IF P_PA_DEBUG_MODE = 'Y' THEN
234: pa_debug.write('conv_mc_bulk: ' || g_module_name,pa_debug.g_err_stage,3);
235: END IF;
236:
237:
230: END IF;
231:
232: pa_debug.g_err_stage := to_char(l_stage)||': Records selected '||to_char(l_tab_count);
233: IF P_PA_DEBUG_MODE = 'Y' THEN
234: pa_debug.write('conv_mc_bulk: ' || g_module_name,pa_debug.g_err_stage,3);
235: END IF;
236:
237:
238: FOR i in p_txn_currency_code_tab.first..p_txn_currency_code_tab.last LOOP
300: -- Convert TxnCost to ProjectFunctional Cost
301: IF NVL(p_txn_raw_cost_tab(i),0) <> 0 OR NVL(p_txn_burdened_cost_tab(i),0) <> 0 THEN
302: l_stage := 500;
303: --hr_utility.trace(to_char(l_stage));
304: pa_debug.g_err_stage := to_char(l_stage);
305: IF P_PA_DEBUG_MODE = 'Y' THEN
306: pa_debug.write('conv_mc_bulk: ' || g_module_name,pa_debug.g_err_stage,3);
307: END IF;
308:
301: IF NVL(p_txn_raw_cost_tab(i),0) <> 0 OR NVL(p_txn_burdened_cost_tab(i),0) <> 0 THEN
302: l_stage := 500;
303: --hr_utility.trace(to_char(l_stage));
304: pa_debug.g_err_stage := to_char(l_stage);
305: IF P_PA_DEBUG_MODE = 'Y' THEN
306: pa_debug.write('conv_mc_bulk: ' || g_module_name,pa_debug.g_err_stage,3);
307: END IF;
308:
309: IF p_projfunc_cost_rate_type_tab(i) = 'User' THEN
302: l_stage := 500;
303: --hr_utility.trace(to_char(l_stage));
304: pa_debug.g_err_stage := to_char(l_stage);
305: IF P_PA_DEBUG_MODE = 'Y' THEN
306: pa_debug.write('conv_mc_bulk: ' || g_module_name,pa_debug.g_err_stage,3);
307: END IF;
308:
309: IF p_projfunc_cost_rate_type_tab(i) = 'User' THEN
310: l_stage := 600;
326: x_projfunc_burdened_cost_tab(i) := pa_currency.round_trans_currency_amt1(x_projfunc_burdened_cost_tab(i),p_projfunc_currency_code_tab(i));
327: ELSE
328: l_stage := 800;
329: --hr_utility.trace(to_char(l_stage));
330: pa_debug.g_err_stage := to_char(l_stage)||': ProjFunc Cost Rate Not Defined';
331: IF P_PA_DEBUG_MODE = 'Y' THEN
332: pa_debug.write('conv_mc_bulk: ' || g_module_name,pa_debug.g_err_stage,3);
333: END IF;
334: /*
327: ELSE
328: l_stage := 800;
329: --hr_utility.trace(to_char(l_stage));
330: pa_debug.g_err_stage := to_char(l_stage)||': ProjFunc Cost Rate Not Defined';
331: IF P_PA_DEBUG_MODE = 'Y' THEN
332: pa_debug.write('conv_mc_bulk: ' || g_module_name,pa_debug.g_err_stage,3);
333: END IF;
334: /*
335: pa_utils.add_message
328: l_stage := 800;
329: --hr_utility.trace(to_char(l_stage));
330: pa_debug.g_err_stage := to_char(l_stage)||': ProjFunc Cost Rate Not Defined';
331: IF P_PA_DEBUG_MODE = 'Y' THEN
332: pa_debug.write('conv_mc_bulk: ' || g_module_name,pa_debug.g_err_stage,3);
333: END IF;
334: /*
335: pa_utils.add_message
336: ( p_app_short_name => 'PA',
352: END IF;
353: ELSE
354: l_stage := 810;
355: --hr_utility.trace(to_char(l_stage));
356: pa_debug.g_err_stage := to_char(l_stage)||': Cost Rate type of User not allowed in ProjFunc Currency';
357: IF P_PA_DEBUG_MODE = 'Y' THEN
358: pa_debug.write('conv_mc_bulk: ' || g_module_name,pa_debug.g_err_stage,3);
359: END IF;
360: /*
353: ELSE
354: l_stage := 810;
355: --hr_utility.trace(to_char(l_stage));
356: pa_debug.g_err_stage := to_char(l_stage)||': Cost Rate type of User not allowed in ProjFunc Currency';
357: IF P_PA_DEBUG_MODE = 'Y' THEN
358: pa_debug.write('conv_mc_bulk: ' || g_module_name,pa_debug.g_err_stage,3);
359: END IF;
360: /*
361: pa_utils.add_message
354: l_stage := 810;
355: --hr_utility.trace(to_char(l_stage));
356: pa_debug.g_err_stage := to_char(l_stage)||': Cost Rate type of User not allowed in ProjFunc Currency';
357: IF P_PA_DEBUG_MODE = 'Y' THEN
358: pa_debug.write('conv_mc_bulk: ' || g_module_name,pa_debug.g_err_stage,3);
359: END IF;
360: /*
361: pa_utils.add_message
362: ( p_app_short_name => 'PA',
380: END IF;
381: ELSE
382: l_stage := 900;
383: --hr_utility.trace(to_char(l_stage));
384: pa_debug.g_err_stage := to_char(l_stage);
385: IF P_PA_DEBUG_MODE = 'Y' THEN
386: pa_debug.write('conv_mc_bulk: ' || g_module_name,pa_debug.g_err_stage,3);
387: END IF;
388:
381: ELSE
382: l_stage := 900;
383: --hr_utility.trace(to_char(l_stage));
384: pa_debug.g_err_stage := to_char(l_stage);
385: IF P_PA_DEBUG_MODE = 'Y' THEN
386: pa_debug.write('conv_mc_bulk: ' || g_module_name,pa_debug.g_err_stage,3);
387: END IF;
388:
389: l_done_flag := 'N';
382: l_stage := 900;
383: --hr_utility.trace(to_char(l_stage));
384: pa_debug.g_err_stage := to_char(l_stage);
385: IF P_PA_DEBUG_MODE = 'Y' THEN
386: pa_debug.write('conv_mc_bulk: ' || g_module_name,pa_debug.g_err_stage,3);
387: END IF;
388:
389: l_done_flag := 'N';
390: IF nvl(CachedRowTab.COUNT,0) <> 0 THEN
418: END IF; -- CachedRowTab.COUNT > 0
419: IF l_done_flag = 'N' THEN
420: l_stage := 1200;
421: --hr_utility.trace(to_char(l_stage));
422: pa_debug.g_err_stage := to_char(l_stage);
423: IF P_PA_DEBUG_MODE = 'Y' THEN
424: pa_debug.write('conv_mc_bulk: ' || g_module_name,pa_debug.g_err_stage,3);
425: END IF;
426:
419: IF l_done_flag = 'N' THEN
420: l_stage := 1200;
421: --hr_utility.trace(to_char(l_stage));
422: pa_debug.g_err_stage := to_char(l_stage);
423: IF P_PA_DEBUG_MODE = 'Y' THEN
424: pa_debug.write('conv_mc_bulk: ' || g_module_name,pa_debug.g_err_stage,3);
425: END IF;
426:
427: IF nvl(p_txn_raw_cost_tab(i),0) <> 0 THEN
420: l_stage := 1200;
421: --hr_utility.trace(to_char(l_stage));
422: pa_debug.g_err_stage := to_char(l_stage);
423: IF P_PA_DEBUG_MODE = 'Y' THEN
424: pa_debug.write('conv_mc_bulk: ' || g_module_name,pa_debug.g_err_stage,3);
425: END IF;
426:
427: IF nvl(p_txn_raw_cost_tab(i),0) <> 0 THEN
428: l_stage := 1300;
426:
427: IF nvl(p_txn_raw_cost_tab(i),0) <> 0 THEN
428: l_stage := 1300;
429: --hr_utility.trace(to_char(l_stage));
430: pa_debug.g_err_stage := 'pfc cost rate date' || p_projfunc_cost_rate_date_tab(i);
431: IF P_PA_DEBUG_MODE = 'Y' THEN
432: pa_debug.write('conv_mc_bulk: ' || g_module_name,pa_debug.g_err_stage,3);
433: END IF;
434:
427: IF nvl(p_txn_raw_cost_tab(i),0) <> 0 THEN
428: l_stage := 1300;
429: --hr_utility.trace(to_char(l_stage));
430: pa_debug.g_err_stage := 'pfc cost rate date' || p_projfunc_cost_rate_date_tab(i);
431: IF P_PA_DEBUG_MODE = 'Y' THEN
432: pa_debug.write('conv_mc_bulk: ' || g_module_name,pa_debug.g_err_stage,3);
433: END IF;
434:
435: pa_debug.g_err_stage := 'pfc cost rate type' || p_projfunc_cost_rate_type_tab(i);
428: l_stage := 1300;
429: --hr_utility.trace(to_char(l_stage));
430: pa_debug.g_err_stage := 'pfc cost rate date' || p_projfunc_cost_rate_date_tab(i);
431: IF P_PA_DEBUG_MODE = 'Y' THEN
432: pa_debug.write('conv_mc_bulk: ' || g_module_name,pa_debug.g_err_stage,3);
433: END IF;
434:
435: pa_debug.g_err_stage := 'pfc cost rate type' || p_projfunc_cost_rate_type_tab(i);
436: IF P_PA_DEBUG_MODE = 'Y' THEN
431: IF P_PA_DEBUG_MODE = 'Y' THEN
432: pa_debug.write('conv_mc_bulk: ' || g_module_name,pa_debug.g_err_stage,3);
433: END IF;
434:
435: pa_debug.g_err_stage := 'pfc cost rate type' || p_projfunc_cost_rate_type_tab(i);
436: IF P_PA_DEBUG_MODE = 'Y' THEN
437: pa_debug.write('conv_mc_bulk: ' || g_module_name,pa_debug.g_err_stage,3);
438: END IF;
439: l_converted_amount := gl_currency_api.convert_amount_sql
432: pa_debug.write('conv_mc_bulk: ' || g_module_name,pa_debug.g_err_stage,3);
433: END IF;
434:
435: pa_debug.g_err_stage := 'pfc cost rate type' || p_projfunc_cost_rate_type_tab(i);
436: IF P_PA_DEBUG_MODE = 'Y' THEN
437: pa_debug.write('conv_mc_bulk: ' || g_module_name,pa_debug.g_err_stage,3);
438: END IF;
439: l_converted_amount := gl_currency_api.convert_amount_sql
440: ( X_FROM_CURRENCY => p_txn_currency_code_tab(i)
433: END IF;
434:
435: pa_debug.g_err_stage := 'pfc cost rate type' || p_projfunc_cost_rate_type_tab(i);
436: IF P_PA_DEBUG_MODE = 'Y' THEN
437: pa_debug.write('conv_mc_bulk: ' || g_module_name,pa_debug.g_err_stage,3);
438: END IF;
439: l_converted_amount := gl_currency_api.convert_amount_sql
440: ( X_FROM_CURRENCY => p_txn_currency_code_tab(i)
441: ,X_TO_CURRENCY => p_projfunc_currency_code_tab(i)
458: IF l_converted_amount = -1 THEN
459:
460: l_stage := 1400;
461: --hr_utility.trace(to_char(l_stage));
462: pa_debug.g_err_stage := to_char(l_stage)||': No Exchange Rate exists for the given ProjFunc currency attributes. Please change the Currency attributes';
463: IF P_PA_DEBUG_MODE = 'Y' THEN
464: pa_debug.write('conv_mc_bulk: ' || g_module_name,pa_debug.g_err_stage,3);
465: END IF;
466: /*
459:
460: l_stage := 1400;
461: --hr_utility.trace(to_char(l_stage));
462: pa_debug.g_err_stage := to_char(l_stage)||': No Exchange Rate exists for the given ProjFunc currency attributes. Please change the Currency attributes';
463: IF P_PA_DEBUG_MODE = 'Y' THEN
464: pa_debug.write('conv_mc_bulk: ' || g_module_name,pa_debug.g_err_stage,3);
465: END IF;
466: /*
467: pa_utils.add_message
460: l_stage := 1400;
461: --hr_utility.trace(to_char(l_stage));
462: pa_debug.g_err_stage := to_char(l_stage)||': No Exchange Rate exists for the given ProjFunc currency attributes. Please change the Currency attributes';
463: IF P_PA_DEBUG_MODE = 'Y' THEN
464: pa_debug.write('conv_mc_bulk: ' || g_module_name,pa_debug.g_err_stage,3);
465: END IF;
466: /*
467: pa_utils.add_message
468: ( p_app_short_name => 'PA',
486: END IF;
487: ELSIF l_converted_amount = -2 THEN
488: l_stage := 1500;
489: --hr_utility.trace(to_char(l_stage));
490: pa_debug.g_err_stage := to_char(l_stage)||'The Currency you have entered is not valid. Please re-enter the Currency';
491: IF P_PA_DEBUG_MODE = 'Y' THEN
492: pa_debug.write('conv_mc_bulk: ' || g_module_name,pa_debug.g_err_stage,3);
493: END IF;
494: /*
487: ELSIF l_converted_amount = -2 THEN
488: l_stage := 1500;
489: --hr_utility.trace(to_char(l_stage));
490: pa_debug.g_err_stage := to_char(l_stage)||'The Currency you have entered is not valid. Please re-enter the Currency';
491: IF P_PA_DEBUG_MODE = 'Y' THEN
492: pa_debug.write('conv_mc_bulk: ' || g_module_name,pa_debug.g_err_stage,3);
493: END IF;
494: /*
495: pa_utils.add_message
488: l_stage := 1500;
489: --hr_utility.trace(to_char(l_stage));
490: pa_debug.g_err_stage := to_char(l_stage)||'The Currency you have entered is not valid. Please re-enter the Currency';
491: IF P_PA_DEBUG_MODE = 'Y' THEN
492: pa_debug.write('conv_mc_bulk: ' || g_module_name,pa_debug.g_err_stage,3);
493: END IF;
494: /*
495: pa_utils.add_message
496: ( p_app_short_name => 'PA',
514: --Commented for Bug#5395732 ELSE
515: END IF; -- Added for Bug#5395732
516:
517: l_stage := 1700;
518: pa_debug.g_err_stage := to_char(l_stage);
519: IF P_PA_DEBUG_MODE = 'Y' THEN
520: pa_debug.write('conv_mc_bulk: ' || g_module_name,pa_debug.g_err_stage,3);
521: END IF;
522: IF l_converted_amount <> -1 AND l_converted_amount <> -2 THEN -- Added for Bug#5395732
515: END IF; -- Added for Bug#5395732
516:
517: l_stage := 1700;
518: pa_debug.g_err_stage := to_char(l_stage);
519: IF P_PA_DEBUG_MODE = 'Y' THEN
520: pa_debug.write('conv_mc_bulk: ' || g_module_name,pa_debug.g_err_stage,3);
521: END IF;
522: IF l_converted_amount <> -1 AND l_converted_amount <> -2 THEN -- Added for Bug#5395732
523: --hr_utility.trace(to_char(l_stage));
516:
517: l_stage := 1700;
518: pa_debug.g_err_stage := to_char(l_stage);
519: IF P_PA_DEBUG_MODE = 'Y' THEN
520: pa_debug.write('conv_mc_bulk: ' || g_module_name,pa_debug.g_err_stage,3);
521: END IF;
522: IF l_converted_amount <> -1 AND l_converted_amount <> -2 THEN -- Added for Bug#5395732
523: --hr_utility.trace(to_char(l_stage));
524: IF l_call_closest_flag = 'T' THEN -- Added for Bug#5395732
592:
593: ELSE -- Raw Cost IS NULL or 0
594: l_stage := 2200;
595: --hr_utility.trace(to_char(l_stage));
596: pa_debug.g_err_stage := to_char(l_stage);
597: IF P_PA_DEBUG_MODE = 'Y' THEN
598: pa_debug.write('conv_mc_bulk: ' || g_module_name,pa_debug.g_err_stage,3);
599: END IF;
600:
593: ELSE -- Raw Cost IS NULL or 0
594: l_stage := 2200;
595: --hr_utility.trace(to_char(l_stage));
596: pa_debug.g_err_stage := to_char(l_stage);
597: IF P_PA_DEBUG_MODE = 'Y' THEN
598: pa_debug.write('conv_mc_bulk: ' || g_module_name,pa_debug.g_err_stage,3);
599: END IF;
600:
601: pa_debug.g_err_stage := 'pfc cost rate date' || p_projfunc_cost_rate_date_tab(i);
594: l_stage := 2200;
595: --hr_utility.trace(to_char(l_stage));
596: pa_debug.g_err_stage := to_char(l_stage);
597: IF P_PA_DEBUG_MODE = 'Y' THEN
598: pa_debug.write('conv_mc_bulk: ' || g_module_name,pa_debug.g_err_stage,3);
599: END IF;
600:
601: pa_debug.g_err_stage := 'pfc cost rate date' || p_projfunc_cost_rate_date_tab(i);
602: IF P_PA_DEBUG_MODE = 'Y' THEN
597: IF P_PA_DEBUG_MODE = 'Y' THEN
598: pa_debug.write('conv_mc_bulk: ' || g_module_name,pa_debug.g_err_stage,3);
599: END IF;
600:
601: pa_debug.g_err_stage := 'pfc cost rate date' || p_projfunc_cost_rate_date_tab(i);
602: IF P_PA_DEBUG_MODE = 'Y' THEN
603: pa_debug.write('conv_mc_bulk: ' || g_module_name,pa_debug.g_err_stage,3);
604: END IF;
605:
598: pa_debug.write('conv_mc_bulk: ' || g_module_name,pa_debug.g_err_stage,3);
599: END IF;
600:
601: pa_debug.g_err_stage := 'pfc cost rate date' || p_projfunc_cost_rate_date_tab(i);
602: IF P_PA_DEBUG_MODE = 'Y' THEN
603: pa_debug.write('conv_mc_bulk: ' || g_module_name,pa_debug.g_err_stage,3);
604: END IF;
605:
606: pa_debug.g_err_stage := 'pfc cost rate type' || p_projfunc_cost_rate_type_tab(i);
599: END IF;
600:
601: pa_debug.g_err_stage := 'pfc cost rate date' || p_projfunc_cost_rate_date_tab(i);
602: IF P_PA_DEBUG_MODE = 'Y' THEN
603: pa_debug.write('conv_mc_bulk: ' || g_module_name,pa_debug.g_err_stage,3);
604: END IF;
605:
606: pa_debug.g_err_stage := 'pfc cost rate type' || p_projfunc_cost_rate_type_tab(i);
607: IF P_PA_DEBUG_MODE = 'Y' THEN
602: IF P_PA_DEBUG_MODE = 'Y' THEN
603: pa_debug.write('conv_mc_bulk: ' || g_module_name,pa_debug.g_err_stage,3);
604: END IF;
605:
606: pa_debug.g_err_stage := 'pfc cost rate type' || p_projfunc_cost_rate_type_tab(i);
607: IF P_PA_DEBUG_MODE = 'Y' THEN
608: pa_debug.write('conv_mc_bulk: ' || g_module_name,pa_debug.g_err_stage,3);
609: END IF;
610:
603: pa_debug.write('conv_mc_bulk: ' || g_module_name,pa_debug.g_err_stage,3);
604: END IF;
605:
606: pa_debug.g_err_stage := 'pfc cost rate type' || p_projfunc_cost_rate_type_tab(i);
607: IF P_PA_DEBUG_MODE = 'Y' THEN
608: pa_debug.write('conv_mc_bulk: ' || g_module_name,pa_debug.g_err_stage,3);
609: END IF;
610:
611: l_converted_amount := gl_currency_api.convert_amount_sql
604: END IF;
605:
606: pa_debug.g_err_stage := 'pfc cost rate type' || p_projfunc_cost_rate_type_tab(i);
607: IF P_PA_DEBUG_MODE = 'Y' THEN
608: pa_debug.write('conv_mc_bulk: ' || g_module_name,pa_debug.g_err_stage,3);
609: END IF;
610:
611: l_converted_amount := gl_currency_api.convert_amount_sql
612: ( X_FROM_CURRENCY => p_txn_currency_code_tab(i)
629: END IF;
630: IF l_converted_amount = -1 THEN
631: l_stage := 2300;
632: --hr_utility.trace(to_char(l_stage));
633: pa_debug.g_err_stage := to_char(l_stage)||': No Exchange Rate exists for the given ProjFunc currency attributes. Please change the Currency attributes';
634: IF P_PA_DEBUG_MODE = 'Y' THEN
635: pa_debug.write('conv_mc_bulk: ' || g_module_name,pa_debug.g_err_stage,3);
636: END IF;
637: /*
630: IF l_converted_amount = -1 THEN
631: l_stage := 2300;
632: --hr_utility.trace(to_char(l_stage));
633: pa_debug.g_err_stage := to_char(l_stage)||': No Exchange Rate exists for the given ProjFunc currency attributes. Please change the Currency attributes';
634: IF P_PA_DEBUG_MODE = 'Y' THEN
635: pa_debug.write('conv_mc_bulk: ' || g_module_name,pa_debug.g_err_stage,3);
636: END IF;
637: /*
638: pa_utils.add_message
631: l_stage := 2300;
632: --hr_utility.trace(to_char(l_stage));
633: pa_debug.g_err_stage := to_char(l_stage)||': No Exchange Rate exists for the given ProjFunc currency attributes. Please change the Currency attributes';
634: IF P_PA_DEBUG_MODE = 'Y' THEN
635: pa_debug.write('conv_mc_bulk: ' || g_module_name,pa_debug.g_err_stage,3);
636: END IF;
637: /*
638: pa_utils.add_message
639: ( p_app_short_name => 'PA',
658:
659: ELSIF l_converted_amount = -2 THEN
660: l_stage := 2400;
661: --hr_utility.trace(to_char(l_stage));
662: pa_debug.g_err_stage := to_char(l_stage)||'The Currency you have entered is not valid. Please re-enter the Currency';
663: IF P_PA_DEBUG_MODE = 'Y' THEN
664: pa_debug.write('conv_mc_bulk: ' || g_module_name,pa_debug.g_err_stage,3);
665: END IF;
666: /*
659: ELSIF l_converted_amount = -2 THEN
660: l_stage := 2400;
661: --hr_utility.trace(to_char(l_stage));
662: pa_debug.g_err_stage := to_char(l_stage)||'The Currency you have entered is not valid. Please re-enter the Currency';
663: IF P_PA_DEBUG_MODE = 'Y' THEN
664: pa_debug.write('conv_mc_bulk: ' || g_module_name,pa_debug.g_err_stage,3);
665: END IF;
666: /*
667: pa_utils.add_message
660: l_stage := 2400;
661: --hr_utility.trace(to_char(l_stage));
662: pa_debug.g_err_stage := to_char(l_stage)||'The Currency you have entered is not valid. Please re-enter the Currency';
663: IF P_PA_DEBUG_MODE = 'Y' THEN
664: pa_debug.write('conv_mc_bulk: ' || g_module_name,pa_debug.g_err_stage,3);
665: END IF;
666: /*
667: pa_utils.add_message
668: ( p_app_short_name => 'PA',
774: /* Rounding Enhancements */
775: x_projfunc_revenue_tab(i) := pa_currency.round_trans_currency_amt1
776: (x_projfunc_revenue_tab(i),p_projfunc_currency_code_tab(i));
777: ELSE
778: pa_debug.g_err_stage := to_char(l_stage)||': ProjFunc Revenue Rate Not Defined';
779: IF P_PA_DEBUG_MODE = 'Y' THEN
780: pa_debug.write('conv_mc_bulk: ' || g_module_name,pa_debug.g_err_stage,3);
781: END IF;
782: /*
775: x_projfunc_revenue_tab(i) := pa_currency.round_trans_currency_amt1
776: (x_projfunc_revenue_tab(i),p_projfunc_currency_code_tab(i));
777: ELSE
778: pa_debug.g_err_stage := to_char(l_stage)||': ProjFunc Revenue Rate Not Defined';
779: IF P_PA_DEBUG_MODE = 'Y' THEN
780: pa_debug.write('conv_mc_bulk: ' || g_module_name,pa_debug.g_err_stage,3);
781: END IF;
782: /*
783: pa_utils.add_message
776: (x_projfunc_revenue_tab(i),p_projfunc_currency_code_tab(i));
777: ELSE
778: pa_debug.g_err_stage := to_char(l_stage)||': ProjFunc Revenue Rate Not Defined';
779: IF P_PA_DEBUG_MODE = 'Y' THEN
780: pa_debug.write('conv_mc_bulk: ' || g_module_name,pa_debug.g_err_stage,3);
781: END IF;
782: /*
783: pa_utils.add_message
784: ( p_app_short_name => 'PA',
800: END IF;
801: ELSE
802: l_stage := 3210;
803: --hr_utility.trace(to_char(l_stage));
804: pa_debug.g_err_stage := to_char(l_stage)||': Revenue Rate type of User not allowed in ProjFunc Currency';
805: IF P_PA_DEBUG_MODE = 'Y' THEN
806: pa_debug.write('conv_mc_bulk: ' || g_module_name,pa_debug.g_err_stage,3);
807: END IF;
808: /*
801: ELSE
802: l_stage := 3210;
803: --hr_utility.trace(to_char(l_stage));
804: pa_debug.g_err_stage := to_char(l_stage)||': Revenue Rate type of User not allowed in ProjFunc Currency';
805: IF P_PA_DEBUG_MODE = 'Y' THEN
806: pa_debug.write('conv_mc_bulk: ' || g_module_name,pa_debug.g_err_stage,3);
807: END IF;
808: /*
809: pa_utils.add_message
802: l_stage := 3210;
803: --hr_utility.trace(to_char(l_stage));
804: pa_debug.g_err_stage := to_char(l_stage)||': Revenue Rate type of User not allowed in ProjFunc Currency';
805: IF P_PA_DEBUG_MODE = 'Y' THEN
806: pa_debug.write('conv_mc_bulk: ' || g_module_name,pa_debug.g_err_stage,3);
807: END IF;
808: /*
809: pa_utils.add_message
810: ( p_app_short_name => 'PA',
878: END IF;
879: IF l_converted_amount = -1 THEN
880: l_stage := 3700;
881: --hr_utility.trace(to_char(l_stage));
882: pa_debug.g_err_stage := to_char(l_stage)||': No Exchange Rate exists for the given Projfunc currency attributes. Please change the Currency attributes';
883: IF P_PA_DEBUG_MODE = 'Y' THEN
884: pa_debug.write('conv_mc_bulk: ' || g_module_name,pa_debug.g_err_stage,3);
885: END IF;
886: /*
879: IF l_converted_amount = -1 THEN
880: l_stage := 3700;
881: --hr_utility.trace(to_char(l_stage));
882: pa_debug.g_err_stage := to_char(l_stage)||': No Exchange Rate exists for the given Projfunc currency attributes. Please change the Currency attributes';
883: IF P_PA_DEBUG_MODE = 'Y' THEN
884: pa_debug.write('conv_mc_bulk: ' || g_module_name,pa_debug.g_err_stage,3);
885: END IF;
886: /*
887: pa_utils.add_message
880: l_stage := 3700;
881: --hr_utility.trace(to_char(l_stage));
882: pa_debug.g_err_stage := to_char(l_stage)||': No Exchange Rate exists for the given Projfunc currency attributes. Please change the Currency attributes';
883: IF P_PA_DEBUG_MODE = 'Y' THEN
884: pa_debug.write('conv_mc_bulk: ' || g_module_name,pa_debug.g_err_stage,3);
885: END IF;
886: /*
887: pa_utils.add_message
888: ( p_app_short_name => 'PA',
906: END IF;
907: ELSIF l_converted_amount = -2 THEN
908: l_stage := 3800;
909: --hr_utility.trace(to_char(l_stage));
910: pa_debug.g_err_stage := to_char(l_stage)||'The Currency you have entered is not valid. Please re-enter the Currency';
911: IF P_PA_DEBUG_MODE = 'Y' THEN
912: pa_debug.write('conv_mc_bulk: ' || g_module_name,pa_debug.g_err_stage,3);
913: END IF;
914: /*
907: ELSIF l_converted_amount = -2 THEN
908: l_stage := 3800;
909: --hr_utility.trace(to_char(l_stage));
910: pa_debug.g_err_stage := to_char(l_stage)||'The Currency you have entered is not valid. Please re-enter the Currency';
911: IF P_PA_DEBUG_MODE = 'Y' THEN
912: pa_debug.write('conv_mc_bulk: ' || g_module_name,pa_debug.g_err_stage,3);
913: END IF;
914: /*
915: pa_utils.add_message
908: l_stage := 3800;
909: --hr_utility.trace(to_char(l_stage));
910: pa_debug.g_err_stage := to_char(l_stage)||'The Currency you have entered is not valid. Please re-enter the Currency';
911: IF P_PA_DEBUG_MODE = 'Y' THEN
912: pa_debug.write('conv_mc_bulk: ' || g_module_name,pa_debug.g_err_stage,3);
913: END IF;
914: /*
915: pa_utils.add_message
916: ( p_app_short_name => 'PA',
1042: (x_proj_burdened_cost_tab(i),p_proj_currency_code_tab(i));
1043: ELSE
1044: l_stage := 5000;
1045: --hr_utility.trace(to_char(l_stage));
1046: pa_debug.g_err_stage := to_char(l_stage)||': Project Cost Rate Not Defined';
1047: IF P_PA_DEBUG_MODE = 'Y' THEN
1048: pa_debug.write('conv_mc_bulk: ' || g_module_name,pa_debug.g_err_stage,3);
1049: END IF;
1050: /*
1043: ELSE
1044: l_stage := 5000;
1045: --hr_utility.trace(to_char(l_stage));
1046: pa_debug.g_err_stage := to_char(l_stage)||': Project Cost Rate Not Defined';
1047: IF P_PA_DEBUG_MODE = 'Y' THEN
1048: pa_debug.write('conv_mc_bulk: ' || g_module_name,pa_debug.g_err_stage,3);
1049: END IF;
1050: /*
1051: pa_utils.add_message
1044: l_stage := 5000;
1045: --hr_utility.trace(to_char(l_stage));
1046: pa_debug.g_err_stage := to_char(l_stage)||': Project Cost Rate Not Defined';
1047: IF P_PA_DEBUG_MODE = 'Y' THEN
1048: pa_debug.write('conv_mc_bulk: ' || g_module_name,pa_debug.g_err_stage,3);
1049: END IF;
1050: /*
1051: pa_utils.add_message
1052: ( p_app_short_name => 'PA',
1068: END IF;
1069: ELSE
1070: l_stage := 810;
1071: --hr_utility.trace(to_char(l_stage));
1072: pa_debug.g_err_stage := to_char(l_stage)||': Cost Rate type of User not allowed in Project Currency';
1073: IF P_PA_DEBUG_MODE = 'Y' THEN
1074: pa_debug.write('conv_mc_bulk: ' || g_module_name,pa_debug.g_err_stage,3);
1075: END IF;
1076: /*
1069: ELSE
1070: l_stage := 810;
1071: --hr_utility.trace(to_char(l_stage));
1072: pa_debug.g_err_stage := to_char(l_stage)||': Cost Rate type of User not allowed in Project Currency';
1073: IF P_PA_DEBUG_MODE = 'Y' THEN
1074: pa_debug.write('conv_mc_bulk: ' || g_module_name,pa_debug.g_err_stage,3);
1075: END IF;
1076: /*
1077: pa_utils.add_message
1070: l_stage := 810;
1071: --hr_utility.trace(to_char(l_stage));
1072: pa_debug.g_err_stage := to_char(l_stage)||': Cost Rate type of User not allowed in Project Currency';
1073: IF P_PA_DEBUG_MODE = 'Y' THEN
1074: pa_debug.write('conv_mc_bulk: ' || g_module_name,pa_debug.g_err_stage,3);
1075: END IF;
1076: /*
1077: pa_utils.add_message
1078: ( p_app_short_name => 'PA',
1153: END IF;
1154: IF l_converted_amount = -1 THEN
1155: l_stage := 5600;
1156: --hr_utility.trace(to_char(l_stage));
1157: pa_debug.g_err_stage := to_char(l_stage)||': No Exchange Rate exists for the given Project currency attributes. Please change the Currency attributes';
1158: IF P_PA_DEBUG_MODE = 'Y' THEN
1159: pa_debug.write('conv_mc_bulk: ' || g_module_name,pa_debug.g_err_stage,3);
1160: END IF;
1161: /*
1154: IF l_converted_amount = -1 THEN
1155: l_stage := 5600;
1156: --hr_utility.trace(to_char(l_stage));
1157: pa_debug.g_err_stage := to_char(l_stage)||': No Exchange Rate exists for the given Project currency attributes. Please change the Currency attributes';
1158: IF P_PA_DEBUG_MODE = 'Y' THEN
1159: pa_debug.write('conv_mc_bulk: ' || g_module_name,pa_debug.g_err_stage,3);
1160: END IF;
1161: /*
1162: pa_utils.add_message
1155: l_stage := 5600;
1156: --hr_utility.trace(to_char(l_stage));
1157: pa_debug.g_err_stage := to_char(l_stage)||': No Exchange Rate exists for the given Project currency attributes. Please change the Currency attributes';
1158: IF P_PA_DEBUG_MODE = 'Y' THEN
1159: pa_debug.write('conv_mc_bulk: ' || g_module_name,pa_debug.g_err_stage,3);
1160: END IF;
1161: /*
1162: pa_utils.add_message
1163: ( p_app_short_name => 'PA',
1303: IF l_converted_amount = -1 THEN
1304:
1305: l_stage := 6500;
1306: --hr_utility.trace(to_char(l_stage));
1307: pa_debug.g_err_stage := to_char(l_stage)||': No Exchange Rate exists for the given Project currency attributes. Please change the Currency attributes';
1308: IF P_PA_DEBUG_MODE = 'Y' THEN
1309: pa_debug.write('conv_mc_bulk: ' || g_module_name,pa_debug.g_err_stage,3);
1310: END IF;
1311: /*
1304:
1305: l_stage := 6500;
1306: --hr_utility.trace(to_char(l_stage));
1307: pa_debug.g_err_stage := to_char(l_stage)||': No Exchange Rate exists for the given Project currency attributes. Please change the Currency attributes';
1308: IF P_PA_DEBUG_MODE = 'Y' THEN
1309: pa_debug.write('conv_mc_bulk: ' || g_module_name,pa_debug.g_err_stage,3);
1310: END IF;
1311: /*
1312: pa_utils.add_message
1305: l_stage := 6500;
1306: --hr_utility.trace(to_char(l_stage));
1307: pa_debug.g_err_stage := to_char(l_stage)||': No Exchange Rate exists for the given Project currency attributes. Please change the Currency attributes';
1308: IF P_PA_DEBUG_MODE = 'Y' THEN
1309: pa_debug.write('conv_mc_bulk: ' || g_module_name,pa_debug.g_err_stage,3);
1310: END IF;
1311: /*
1312: pa_utils.add_message
1313: (p_app_short_name => 'PA',
1331: END IF;
1332: ELSIF l_converted_amount = -2 THEN
1333: l_stage := 6600;
1334: --hr_utility.trace(to_char(l_stage));
1335: pa_debug.g_err_stage := to_char(l_stage)||'The Currency you have entered is not valid. Please re-enter the Currency';
1336: IF P_PA_DEBUG_MODE = 'Y' THEN
1337: pa_debug.write('conv_mc_bulk: ' || g_module_name,pa_debug.g_err_stage,3);
1338: END IF;
1339: /*
1332: ELSIF l_converted_amount = -2 THEN
1333: l_stage := 6600;
1334: --hr_utility.trace(to_char(l_stage));
1335: pa_debug.g_err_stage := to_char(l_stage)||'The Currency you have entered is not valid. Please re-enter the Currency';
1336: IF P_PA_DEBUG_MODE = 'Y' THEN
1337: pa_debug.write('conv_mc_bulk: ' || g_module_name,pa_debug.g_err_stage,3);
1338: END IF;
1339: /*
1340: pa_utils.add_message
1333: l_stage := 6600;
1334: --hr_utility.trace(to_char(l_stage));
1335: pa_debug.g_err_stage := to_char(l_stage)||'The Currency you have entered is not valid. Please re-enter the Currency';
1336: IF P_PA_DEBUG_MODE = 'Y' THEN
1337: pa_debug.write('conv_mc_bulk: ' || g_module_name,pa_debug.g_err_stage,3);
1338: END IF;
1339: /*
1340: pa_utils.add_message
1341: ( p_app_short_name => 'PA',
1448: /* Rounding Enhancements */
1449: x_proj_revenue_tab(i) := pa_currency.round_trans_currency_amt1
1450: (x_proj_revenue_tab(i),p_proj_currency_code_tab(i));
1451: ELSE
1452: pa_debug.g_err_stage := to_char(l_stage)||': Project Revenue Rate Not Defined';
1453: IF P_PA_DEBUG_MODE = 'Y' THEN
1454: pa_debug.write('conv_mc_bulk: ' || g_module_name,pa_debug.g_err_stage,3);
1455: END IF;
1456: /*
1449: x_proj_revenue_tab(i) := pa_currency.round_trans_currency_amt1
1450: (x_proj_revenue_tab(i),p_proj_currency_code_tab(i));
1451: ELSE
1452: pa_debug.g_err_stage := to_char(l_stage)||': Project Revenue Rate Not Defined';
1453: IF P_PA_DEBUG_MODE = 'Y' THEN
1454: pa_debug.write('conv_mc_bulk: ' || g_module_name,pa_debug.g_err_stage,3);
1455: END IF;
1456: /*
1457: pa_utils.add_message
1450: (x_proj_revenue_tab(i),p_proj_currency_code_tab(i));
1451: ELSE
1452: pa_debug.g_err_stage := to_char(l_stage)||': Project Revenue Rate Not Defined';
1453: IF P_PA_DEBUG_MODE = 'Y' THEN
1454: pa_debug.write('conv_mc_bulk: ' || g_module_name,pa_debug.g_err_stage,3);
1455: END IF;
1456: /*
1457: pa_utils.add_message
1458: ( p_app_short_name => 'PA',
1474: END IF;
1475: ELSE
1476: l_stage := 810;
1477: --hr_utility.trace(to_char(l_stage));
1478: pa_debug.g_err_stage := to_char(l_stage)||': Revenue Rate type of User not allowed in Project Currency';
1479: IF P_PA_DEBUG_MODE = 'Y' THEN
1480: pa_debug.write('conv_mc_bulk: ' || g_module_name,pa_debug.g_err_stage,3);
1481: END IF;
1482: /*
1475: ELSE
1476: l_stage := 810;
1477: --hr_utility.trace(to_char(l_stage));
1478: pa_debug.g_err_stage := to_char(l_stage)||': Revenue Rate type of User not allowed in Project Currency';
1479: IF P_PA_DEBUG_MODE = 'Y' THEN
1480: pa_debug.write('conv_mc_bulk: ' || g_module_name,pa_debug.g_err_stage,3);
1481: END IF;
1482: /*
1483: pa_utils.add_message
1476: l_stage := 810;
1477: --hr_utility.trace(to_char(l_stage));
1478: pa_debug.g_err_stage := to_char(l_stage)||': Revenue Rate type of User not allowed in Project Currency';
1479: IF P_PA_DEBUG_MODE = 'Y' THEN
1480: pa_debug.write('conv_mc_bulk: ' || g_module_name,pa_debug.g_err_stage,3);
1481: END IF;
1482: /*
1483: pa_utils.add_message
1484: ( p_app_short_name => 'PA',
1553: END IF;
1554: IF l_converted_amount = -1 THEN
1555: l_stage := 7800;
1556: --hr_utility.trace(to_char(l_stage));
1557: pa_debug.g_err_stage := to_char(l_stage)||': No Exchange Rate exists for the given Project currency attributes. Please change the Currency attributes';
1558: IF P_PA_DEBUG_MODE = 'Y' THEN
1559: pa_debug.write('conv_mc_bulk: ' || g_module_name,pa_debug.g_err_stage,3);
1560: END IF;
1561: /*
1554: IF l_converted_amount = -1 THEN
1555: l_stage := 7800;
1556: --hr_utility.trace(to_char(l_stage));
1557: pa_debug.g_err_stage := to_char(l_stage)||': No Exchange Rate exists for the given Project currency attributes. Please change the Currency attributes';
1558: IF P_PA_DEBUG_MODE = 'Y' THEN
1559: pa_debug.write('conv_mc_bulk: ' || g_module_name,pa_debug.g_err_stage,3);
1560: END IF;
1561: /*
1562: pa_utils.add_message
1555: l_stage := 7800;
1556: --hr_utility.trace(to_char(l_stage));
1557: pa_debug.g_err_stage := to_char(l_stage)||': No Exchange Rate exists for the given Project currency attributes. Please change the Currency attributes';
1558: IF P_PA_DEBUG_MODE = 'Y' THEN
1559: pa_debug.write('conv_mc_bulk: ' || g_module_name,pa_debug.g_err_stage,3);
1560: END IF;
1561: /*
1562: pa_utils.add_message
1563: ( p_app_short_name => 'PA',
1581: END IF;
1582: ELSIF l_converted_amount = -2 THEN
1583: l_stage := 7900;
1584: --hr_utility.trace(to_char(l_stage));
1585: pa_debug.g_err_stage := to_char(l_stage)||'The Currency you have entered is not valid. Please re-enter the Currency';
1586: IF P_PA_DEBUG_MODE = 'Y' THEN
1587: pa_debug.write('conv_mc_bulk: ' || g_module_name,pa_debug.g_err_stage,3);
1588: END IF;
1589: /*
1582: ELSIF l_converted_amount = -2 THEN
1583: l_stage := 7900;
1584: --hr_utility.trace(to_char(l_stage));
1585: pa_debug.g_err_stage := to_char(l_stage)||'The Currency you have entered is not valid. Please re-enter the Currency';
1586: IF P_PA_DEBUG_MODE = 'Y' THEN
1587: pa_debug.write('conv_mc_bulk: ' || g_module_name,pa_debug.g_err_stage,3);
1588: END IF;
1589: /*
1590: pa_utils.add_message
1583: l_stage := 7900;
1584: --hr_utility.trace(to_char(l_stage));
1585: pa_debug.g_err_stage := to_char(l_stage)||'The Currency you have entered is not valid. Please re-enter the Currency';
1586: IF P_PA_DEBUG_MODE = 'Y' THEN
1587: pa_debug.write('conv_mc_bulk: ' || g_module_name,pa_debug.g_err_stage,3);
1588: END IF;
1589: /*
1590: pa_utils.add_message
1591: ( p_app_short_name => 'PA',
1688: --hr_utility.trace('x_projfunc_rejection_tab(i) := '||to_char(x_projfunc_rejection_tab(i)));
1689: END LOOP;
1690: l_stage := 8600;
1691: --hr_utility.trace(to_char(l_stage));
1692: pa_debug.g_err_stage := 'Leaving PA_FP_MULTI_CURRENCY_PKG.conv_mc_bulk';
1693: IF P_PA_DEBUG_MODE = 'Y' THEN
1694: pa_debug.write('conv_mc_bulk: ' || g_module_name,pa_debug.g_err_stage,3);
1695: END IF;
1696:
1689: END LOOP;
1690: l_stage := 8600;
1691: --hr_utility.trace(to_char(l_stage));
1692: pa_debug.g_err_stage := 'Leaving PA_FP_MULTI_CURRENCY_PKG.conv_mc_bulk';
1693: IF P_PA_DEBUG_MODE = 'Y' THEN
1694: pa_debug.write('conv_mc_bulk: ' || g_module_name,pa_debug.g_err_stage,3);
1695: END IF;
1696:
1697: fnd_msg_pub.count_and_get (p_count => x_msg_count,
1690: l_stage := 8600;
1691: --hr_utility.trace(to_char(l_stage));
1692: pa_debug.g_err_stage := 'Leaving PA_FP_MULTI_CURRENCY_PKG.conv_mc_bulk';
1693: IF P_PA_DEBUG_MODE = 'Y' THEN
1694: pa_debug.write('conv_mc_bulk: ' || g_module_name,pa_debug.g_err_stage,3);
1695: END IF;
1696:
1697: fnd_msg_pub.count_and_get (p_count => x_msg_count,
1698: p_data => x_msg_data);
1703: x_msg_data := FND_MESSAGE.GET;
1704: END IF;
1705: END IF;
1706: /* bug 4227840: wrapping the setting of debug error stack call to
1707: * pa_debug under the debug enbaling check
1708: */
1709: IF P_PA_DEBUG_MODE = 'Y' THEN
1710: pa_debug.reset_err_stack;
1711: END IF;
1705: END IF;
1706: /* bug 4227840: wrapping the setting of debug error stack call to
1707: * pa_debug under the debug enbaling check
1708: */
1709: IF P_PA_DEBUG_MODE = 'Y' THEN
1710: pa_debug.reset_err_stack;
1711: END IF;
1712:
1713: EXCEPTION WHEN OTHERS THEN
1706: /* bug 4227840: wrapping the setting of debug error stack call to
1707: * pa_debug under the debug enbaling check
1708: */
1709: IF P_PA_DEBUG_MODE = 'Y' THEN
1710: pa_debug.reset_err_stack;
1711: END IF;
1712:
1713: EXCEPTION WHEN OTHERS THEN
1714: fnd_msg_pub.count_and_get (p_count => x_msg_count,
1724: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1725: fnd_msg_pub.add_exc_msg
1726: ( p_pkg_name => 'PA_FP_MULTI_CURRENCY_PKG'
1727: ,p_procedure_name => 'conv_mc_bulk' );
1728: pa_debug.g_err_stage := 'Stage : '||to_char(l_stage)||' '||substr(SQLERRM,1,240);
1729: IF P_PA_DEBUG_MODE = 'Y' THEN
1730: pa_debug.write('conv_mc_bulk: ' || g_module_name,pa_debug.g_err_stage,3);
1731: END IF;
1732: --hr_utility.trace('PA_FP_MULTI_CURRENCY_PKG.conv_mc_bulk -- Stage : ' ||to_char(l_stage)||' '||substr(SQLERRM,1,240));
1725: fnd_msg_pub.add_exc_msg
1726: ( p_pkg_name => 'PA_FP_MULTI_CURRENCY_PKG'
1727: ,p_procedure_name => 'conv_mc_bulk' );
1728: pa_debug.g_err_stage := 'Stage : '||to_char(l_stage)||' '||substr(SQLERRM,1,240);
1729: IF P_PA_DEBUG_MODE = 'Y' THEN
1730: pa_debug.write('conv_mc_bulk: ' || g_module_name,pa_debug.g_err_stage,3);
1731: END IF;
1732: --hr_utility.trace('PA_FP_MULTI_CURRENCY_PKG.conv_mc_bulk -- Stage : ' ||to_char(l_stage)||' '||substr(SQLERRM,1,240));
1733: /* bug 4227840: wrapping the setting of debug error stack call to
1726: ( p_pkg_name => 'PA_FP_MULTI_CURRENCY_PKG'
1727: ,p_procedure_name => 'conv_mc_bulk' );
1728: pa_debug.g_err_stage := 'Stage : '||to_char(l_stage)||' '||substr(SQLERRM,1,240);
1729: IF P_PA_DEBUG_MODE = 'Y' THEN
1730: pa_debug.write('conv_mc_bulk: ' || g_module_name,pa_debug.g_err_stage,3);
1731: END IF;
1732: --hr_utility.trace('PA_FP_MULTI_CURRENCY_PKG.conv_mc_bulk -- Stage : ' ||to_char(l_stage)||' '||substr(SQLERRM,1,240));
1733: /* bug 4227840: wrapping the setting of debug error stack call to
1734: * pa_debug under the debug enbaling check
1730: pa_debug.write('conv_mc_bulk: ' || g_module_name,pa_debug.g_err_stage,3);
1731: END IF;
1732: --hr_utility.trace('PA_FP_MULTI_CURRENCY_PKG.conv_mc_bulk -- Stage : ' ||to_char(l_stage)||' '||substr(SQLERRM,1,240));
1733: /* bug 4227840: wrapping the setting of debug error stack call to
1734: * pa_debug under the debug enbaling check
1735: */
1736: IF P_PA_DEBUG_MODE = 'Y' THEN
1737: pa_debug.reset_err_stack;
1738: END IF;
1732: --hr_utility.trace('PA_FP_MULTI_CURRENCY_PKG.conv_mc_bulk -- Stage : ' ||to_char(l_stage)||' '||substr(SQLERRM,1,240));
1733: /* bug 4227840: wrapping the setting of debug error stack call to
1734: * pa_debug under the debug enbaling check
1735: */
1736: IF P_PA_DEBUG_MODE = 'Y' THEN
1737: pa_debug.reset_err_stack;
1738: END IF;
1739: raise FND_API.G_EXC_UNEXPECTED_ERROR;
1740: END conv_mc_bulk;
1733: /* bug 4227840: wrapping the setting of debug error stack call to
1734: * pa_debug under the debug enbaling check
1735: */
1736: IF P_PA_DEBUG_MODE = 'Y' THEN
1737: pa_debug.reset_err_stack;
1738: END IF;
1739: raise FND_API.G_EXC_UNEXPECTED_ERROR;
1740: END conv_mc_bulk;
1741:
2071:
2072: l_entire_return_status := FND_API.G_RET_STS_SUCCESS;
2073: x_return_status := FND_API.G_RET_STS_SUCCESS;
2074:
2075: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
2076: l_debug_mode := NVL(l_debug_mode, 'Y');
2077:
2078: /* bug 4227840: wrapping the setting of debug error stack call to
2079: * pa_debug under the debug enbaling check
2075: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
2076: l_debug_mode := NVL(l_debug_mode, 'Y');
2077:
2078: /* bug 4227840: wrapping the setting of debug error stack call to
2079: * pa_debug under the debug enbaling check
2080: */
2081: IF l_debug_mode = 'Y' THEN
2082: pa_debug.set_err_stack('convert_txn_currency');
2083: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
2078: /* bug 4227840: wrapping the setting of debug error stack call to
2079: * pa_debug under the debug enbaling check
2080: */
2081: IF l_debug_mode = 'Y' THEN
2082: pa_debug.set_err_stack('convert_txn_currency');
2083: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
2084: END IF;
2085:
2086: -- Get default attributes for currency conversion from version level
2079: * pa_debug under the debug enbaling check
2080: */
2081: IF l_debug_mode = 'Y' THEN
2082: pa_debug.set_err_stack('convert_txn_currency');
2083: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
2084: END IF;
2085:
2086: -- Get default attributes for currency conversion from version level
2087: -- proj_fp_options
2111: ,g_proj_rev_rate_date_type
2112: ,g_proj_rev_rate_date;
2113: EXCEPTION WHEN NO_DATA_FOUND THEN
2114: /* bug 4227840: wrapping the setting of debug error stack call to
2115: * pa_debug under the debug enbaling check
2116: */
2117: IF P_PA_DEBUG_MODE = 'Y' THEN
2118: pa_debug.reset_err_stack;
2119: END IF;
2113: EXCEPTION WHEN NO_DATA_FOUND THEN
2114: /* bug 4227840: wrapping the setting of debug error stack call to
2115: * pa_debug under the debug enbaling check
2116: */
2117: IF P_PA_DEBUG_MODE = 'Y' THEN
2118: pa_debug.reset_err_stack;
2119: END IF;
2120: RAISE;
2121: END;
2114: /* bug 4227840: wrapping the setting of debug error stack call to
2115: * pa_debug under the debug enbaling check
2116: */
2117: IF P_PA_DEBUG_MODE = 'Y' THEN
2118: pa_debug.reset_err_stack;
2119: END IF;
2120: RAISE;
2121: END;
2122:
2119: END IF;
2120: RAISE;
2121: END;
2122:
2123: pa_debug.g_err_stage := 'pfc cost rate date' || g_projfunc_cost_rate_date;
2124: IF P_PA_DEBUG_MODE = 'Y' THEN
2125: pa_debug.write('convert_txn_currency: ' || g_module_name,pa_debug.g_err_stage,3);
2126: END IF;
2127:
2120: RAISE;
2121: END;
2122:
2123: pa_debug.g_err_stage := 'pfc cost rate date' || g_projfunc_cost_rate_date;
2124: IF P_PA_DEBUG_MODE = 'Y' THEN
2125: pa_debug.write('convert_txn_currency: ' || g_module_name,pa_debug.g_err_stage,3);
2126: END IF;
2127:
2128: pa_debug.g_err_stage := 'pfc cost rate type' || g_projfunc_cost_rate_type;
2121: END;
2122:
2123: pa_debug.g_err_stage := 'pfc cost rate date' || g_projfunc_cost_rate_date;
2124: IF P_PA_DEBUG_MODE = 'Y' THEN
2125: pa_debug.write('convert_txn_currency: ' || g_module_name,pa_debug.g_err_stage,3);
2126: END IF;
2127:
2128: pa_debug.g_err_stage := 'pfc cost rate type' || g_projfunc_cost_rate_type;
2129: IF P_PA_DEBUG_MODE = 'Y' THEN
2124: IF P_PA_DEBUG_MODE = 'Y' THEN
2125: pa_debug.write('convert_txn_currency: ' || g_module_name,pa_debug.g_err_stage,3);
2126: END IF;
2127:
2128: pa_debug.g_err_stage := 'pfc cost rate type' || g_projfunc_cost_rate_type;
2129: IF P_PA_DEBUG_MODE = 'Y' THEN
2130: pa_debug.write('convert_txn_currency: ' || g_module_name,pa_debug.g_err_stage,3);
2131: END IF;
2132:
2125: pa_debug.write('convert_txn_currency: ' || g_module_name,pa_debug.g_err_stage,3);
2126: END IF;
2127:
2128: pa_debug.g_err_stage := 'pfc cost rate type' || g_projfunc_cost_rate_type;
2129: IF P_PA_DEBUG_MODE = 'Y' THEN
2130: pa_debug.write('convert_txn_currency: ' || g_module_name,pa_debug.g_err_stage,3);
2131: END IF;
2132:
2133: pa_debug.g_err_stage := 'pfc cost rate date type' || g_projfunc_cost_rate_date_type;
2126: END IF;
2127:
2128: pa_debug.g_err_stage := 'pfc cost rate type' || g_projfunc_cost_rate_type;
2129: IF P_PA_DEBUG_MODE = 'Y' THEN
2130: pa_debug.write('convert_txn_currency: ' || g_module_name,pa_debug.g_err_stage,3);
2131: END IF;
2132:
2133: pa_debug.g_err_stage := 'pfc cost rate date type' || g_projfunc_cost_rate_date_type;
2134: IF P_PA_DEBUG_MODE = 'Y' THEN
2129: IF P_PA_DEBUG_MODE = 'Y' THEN
2130: pa_debug.write('convert_txn_currency: ' || g_module_name,pa_debug.g_err_stage,3);
2131: END IF;
2132:
2133: pa_debug.g_err_stage := 'pfc cost rate date type' || g_projfunc_cost_rate_date_type;
2134: IF P_PA_DEBUG_MODE = 'Y' THEN
2135: pa_debug.write('convert_txn_currency: ' || g_module_name,pa_debug.g_err_stage,3);
2136: END IF;
2137:
2130: pa_debug.write('convert_txn_currency: ' || g_module_name,pa_debug.g_err_stage,3);
2131: END IF;
2132:
2133: pa_debug.g_err_stage := 'pfc cost rate date type' || g_projfunc_cost_rate_date_type;
2134: IF P_PA_DEBUG_MODE = 'Y' THEN
2135: pa_debug.write('convert_txn_currency: ' || g_module_name,pa_debug.g_err_stage,3);
2136: END IF;
2137:
2138: pa_debug.g_err_stage := 'pfc rev rate date' || g_projfunc_rev_rate_date;
2131: END IF;
2132:
2133: pa_debug.g_err_stage := 'pfc cost rate date type' || g_projfunc_cost_rate_date_type;
2134: IF P_PA_DEBUG_MODE = 'Y' THEN
2135: pa_debug.write('convert_txn_currency: ' || g_module_name,pa_debug.g_err_stage,3);
2136: END IF;
2137:
2138: pa_debug.g_err_stage := 'pfc rev rate date' || g_projfunc_rev_rate_date;
2139: IF P_PA_DEBUG_MODE = 'Y' THEN
2134: IF P_PA_DEBUG_MODE = 'Y' THEN
2135: pa_debug.write('convert_txn_currency: ' || g_module_name,pa_debug.g_err_stage,3);
2136: END IF;
2137:
2138: pa_debug.g_err_stage := 'pfc rev rate date' || g_projfunc_rev_rate_date;
2139: IF P_PA_DEBUG_MODE = 'Y' THEN
2140: pa_debug.write('convert_txn_currency: ' || g_module_name,pa_debug.g_err_stage,3);
2141: END IF;
2142:
2135: pa_debug.write('convert_txn_currency: ' || g_module_name,pa_debug.g_err_stage,3);
2136: END IF;
2137:
2138: pa_debug.g_err_stage := 'pfc rev rate date' || g_projfunc_rev_rate_date;
2139: IF P_PA_DEBUG_MODE = 'Y' THEN
2140: pa_debug.write('convert_txn_currency: ' || g_module_name,pa_debug.g_err_stage,3);
2141: END IF;
2142:
2143: pa_debug.g_err_stage := 'pfc rev rate type' || g_projfunc_rev_rate_type;
2136: END IF;
2137:
2138: pa_debug.g_err_stage := 'pfc rev rate date' || g_projfunc_rev_rate_date;
2139: IF P_PA_DEBUG_MODE = 'Y' THEN
2140: pa_debug.write('convert_txn_currency: ' || g_module_name,pa_debug.g_err_stage,3);
2141: END IF;
2142:
2143: pa_debug.g_err_stage := 'pfc rev rate type' || g_projfunc_rev_rate_type;
2144: IF P_PA_DEBUG_MODE = 'Y' THEN
2139: IF P_PA_DEBUG_MODE = 'Y' THEN
2140: pa_debug.write('convert_txn_currency: ' || g_module_name,pa_debug.g_err_stage,3);
2141: END IF;
2142:
2143: pa_debug.g_err_stage := 'pfc rev rate type' || g_projfunc_rev_rate_type;
2144: IF P_PA_DEBUG_MODE = 'Y' THEN
2145: pa_debug.write('convert_txn_currency: ' || g_module_name,pa_debug.g_err_stage,3);
2146: END IF;
2147:
2140: pa_debug.write('convert_txn_currency: ' || g_module_name,pa_debug.g_err_stage,3);
2141: END IF;
2142:
2143: pa_debug.g_err_stage := 'pfc rev rate type' || g_projfunc_rev_rate_type;
2144: IF P_PA_DEBUG_MODE = 'Y' THEN
2145: pa_debug.write('convert_txn_currency: ' || g_module_name,pa_debug.g_err_stage,3);
2146: END IF;
2147:
2148: pa_debug.g_err_stage := 'pfc rev rate date type' || g_projfunc_rev_rate_date_type;
2141: END IF;
2142:
2143: pa_debug.g_err_stage := 'pfc rev rate type' || g_projfunc_rev_rate_type;
2144: IF P_PA_DEBUG_MODE = 'Y' THEN
2145: pa_debug.write('convert_txn_currency: ' || g_module_name,pa_debug.g_err_stage,3);
2146: END IF;
2147:
2148: pa_debug.g_err_stage := 'pfc rev rate date type' || g_projfunc_rev_rate_date_type;
2149: IF P_PA_DEBUG_MODE = 'Y' THEN
2144: IF P_PA_DEBUG_MODE = 'Y' THEN
2145: pa_debug.write('convert_txn_currency: ' || g_module_name,pa_debug.g_err_stage,3);
2146: END IF;
2147:
2148: pa_debug.g_err_stage := 'pfc rev rate date type' || g_projfunc_rev_rate_date_type;
2149: IF P_PA_DEBUG_MODE = 'Y' THEN
2150: pa_debug.write('convert_txn_currency: ' || g_module_name,pa_debug.g_err_stage,3);
2151: END IF;
2152:
2145: pa_debug.write('convert_txn_currency: ' || g_module_name,pa_debug.g_err_stage,3);
2146: END IF;
2147:
2148: pa_debug.g_err_stage := 'pfc rev rate date type' || g_projfunc_rev_rate_date_type;
2149: IF P_PA_DEBUG_MODE = 'Y' THEN
2150: pa_debug.write('convert_txn_currency: ' || g_module_name,pa_debug.g_err_stage,3);
2151: END IF;
2152:
2153: CLOSE get_fp_options_data;
2146: END IF;
2147:
2148: pa_debug.g_err_stage := 'pfc rev rate date type' || g_projfunc_rev_rate_date_type;
2149: IF P_PA_DEBUG_MODE = 'Y' THEN
2150: pa_debug.write('convert_txn_currency: ' || g_module_name,pa_debug.g_err_stage,3);
2151: END IF;
2152:
2153: CLOSE get_fp_options_data;
2154:
2584:
2585: fnd_msg_pub.add_exc_msg
2586: ( p_pkg_name => 'PA_FP_MULTI_CURRENCY_PKG'
2587: ,p_procedure_name => 'convert_txn_currency' );
2588: pa_debug.g_err_stage := 'Stage : '||to_char(l_stage)||' '||substr(SQLERRM,1,240);
2589: IF P_PA_DEBUG_MODE = 'Y' THEN
2590: pa_debug.write('convert_txn_currency: ' || g_module_name,pa_debug.g_err_stage,3);
2591: END IF;
2592: --hr_utility.trace('PA_FP_MULTI_CURRENCY_PKG.convert_txn_currency -- Stage : ' ||to_char(l_stage)||' '||substr(SQLERRM,1,240));
2585: fnd_msg_pub.add_exc_msg
2586: ( p_pkg_name => 'PA_FP_MULTI_CURRENCY_PKG'
2587: ,p_procedure_name => 'convert_txn_currency' );
2588: pa_debug.g_err_stage := 'Stage : '||to_char(l_stage)||' '||substr(SQLERRM,1,240);
2589: IF P_PA_DEBUG_MODE = 'Y' THEN
2590: pa_debug.write('convert_txn_currency: ' || g_module_name,pa_debug.g_err_stage,3);
2591: END IF;
2592: --hr_utility.trace('PA_FP_MULTI_CURRENCY_PKG.convert_txn_currency -- Stage : ' ||to_char(l_stage)||' '||substr(SQLERRM,1,240));
2593: /* bug 4227840: wrapping the setting of debug error stack call to
2586: ( p_pkg_name => 'PA_FP_MULTI_CURRENCY_PKG'
2587: ,p_procedure_name => 'convert_txn_currency' );
2588: pa_debug.g_err_stage := 'Stage : '||to_char(l_stage)||' '||substr(SQLERRM,1,240);
2589: IF P_PA_DEBUG_MODE = 'Y' THEN
2590: pa_debug.write('convert_txn_currency: ' || g_module_name,pa_debug.g_err_stage,3);
2591: END IF;
2592: --hr_utility.trace('PA_FP_MULTI_CURRENCY_PKG.convert_txn_currency -- Stage : ' ||to_char(l_stage)||' '||substr(SQLERRM,1,240));
2593: /* bug 4227840: wrapping the setting of debug error stack call to
2594: * pa_debug under the debug enbaling check
2590: pa_debug.write('convert_txn_currency: ' || g_module_name,pa_debug.g_err_stage,3);
2591: END IF;
2592: --hr_utility.trace('PA_FP_MULTI_CURRENCY_PKG.convert_txn_currency -- Stage : ' ||to_char(l_stage)||' '||substr(SQLERRM,1,240));
2593: /* bug 4227840: wrapping the setting of debug error stack call to
2594: * pa_debug under the debug enbaling check
2595: */
2596: IF P_PA_DEBUG_MODE = 'Y' THEN
2597: pa_debug.reset_err_stack;
2598: END IF;
2592: --hr_utility.trace('PA_FP_MULTI_CURRENCY_PKG.convert_txn_currency -- Stage : ' ||to_char(l_stage)||' '||substr(SQLERRM,1,240));
2593: /* bug 4227840: wrapping the setting of debug error stack call to
2594: * pa_debug under the debug enbaling check
2595: */
2596: IF P_PA_DEBUG_MODE = 'Y' THEN
2597: pa_debug.reset_err_stack;
2598: END IF;
2599: raise FND_API.G_EXC_UNEXPECTED_ERROR;
2600: END;
2593: /* bug 4227840: wrapping the setting of debug error stack call to
2594: * pa_debug under the debug enbaling check
2595: */
2596: IF P_PA_DEBUG_MODE = 'Y' THEN
2597: pa_debug.reset_err_stack;
2598: END IF;
2599: raise FND_API.G_EXC_UNEXPECTED_ERROR;
2600: END;
2601:
2618: END IF;
2619: END IF;
2620:
2621: /* bug 4227840: wrapping the setting of debug error stack call to
2622: * pa_debug under the debug enbaling check
2623: */
2624: IF P_PA_DEBUG_MODE = 'Y' THEN
2625: pa_debug.reset_err_stack;
2626: END IF;
2620:
2621: /* bug 4227840: wrapping the setting of debug error stack call to
2622: * pa_debug under the debug enbaling check
2623: */
2624: IF P_PA_DEBUG_MODE = 'Y' THEN
2625: pa_debug.reset_err_stack;
2626: END IF;
2627:
2628: EXCEPTION WHEN OTHERS THEN
2621: /* bug 4227840: wrapping the setting of debug error stack call to
2622: * pa_debug under the debug enbaling check
2623: */
2624: IF P_PA_DEBUG_MODE = 'Y' THEN
2625: pa_debug.reset_err_stack;
2626: END IF;
2627:
2628: EXCEPTION WHEN OTHERS THEN
2629: fnd_msg_pub.count_and_get (p_count => x_msg_count,
2639: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2640: fnd_msg_pub.add_exc_msg
2641: ( p_pkg_name => 'PA_FP_MULTI_CURRENCY_PKG'
2642: ,p_procedure_name => 'convert_txn_currency' );
2643: pa_debug.g_err_stage := 'Stage : '||to_char(l_stage)||' '||substr(SQLERRM,1,240);
2644: IF P_PA_DEBUG_MODE = 'Y' THEN
2645: pa_debug.write('convert_txn_currency: ' || g_module_name,pa_debug.g_err_stage,3);
2646: END IF;
2647: --hr_utility.trace('PA_FP_MULTI_CURRENCY_PKG.convert_txn_currency -- Stage : ' ||to_char(l_stage)||' '||substr(SQLERRM,1,240));
2640: fnd_msg_pub.add_exc_msg
2641: ( p_pkg_name => 'PA_FP_MULTI_CURRENCY_PKG'
2642: ,p_procedure_name => 'convert_txn_currency' );
2643: pa_debug.g_err_stage := 'Stage : '||to_char(l_stage)||' '||substr(SQLERRM,1,240);
2644: IF P_PA_DEBUG_MODE = 'Y' THEN
2645: pa_debug.write('convert_txn_currency: ' || g_module_name,pa_debug.g_err_stage,3);
2646: END IF;
2647: --hr_utility.trace('PA_FP_MULTI_CURRENCY_PKG.convert_txn_currency -- Stage : ' ||to_char(l_stage)||' '||substr(SQLERRM,1,240));
2648: /* bug 4227840: wrapping the setting of debug error stack call to
2641: ( p_pkg_name => 'PA_FP_MULTI_CURRENCY_PKG'
2642: ,p_procedure_name => 'convert_txn_currency' );
2643: pa_debug.g_err_stage := 'Stage : '||to_char(l_stage)||' '||substr(SQLERRM,1,240);
2644: IF P_PA_DEBUG_MODE = 'Y' THEN
2645: pa_debug.write('convert_txn_currency: ' || g_module_name,pa_debug.g_err_stage,3);
2646: END IF;
2647: --hr_utility.trace('PA_FP_MULTI_CURRENCY_PKG.convert_txn_currency -- Stage : ' ||to_char(l_stage)||' '||substr(SQLERRM,1,240));
2648: /* bug 4227840: wrapping the setting of debug error stack call to
2649: * pa_debug under the debug enbaling check
2645: pa_debug.write('convert_txn_currency: ' || g_module_name,pa_debug.g_err_stage,3);
2646: END IF;
2647: --hr_utility.trace('PA_FP_MULTI_CURRENCY_PKG.convert_txn_currency -- Stage : ' ||to_char(l_stage)||' '||substr(SQLERRM,1,240));
2648: /* bug 4227840: wrapping the setting of debug error stack call to
2649: * pa_debug under the debug enbaling check
2650: */
2651: IF P_PA_DEBUG_MODE = 'Y' THEN
2652: pa_debug.reset_err_stack;
2653: END IF;
2647: --hr_utility.trace('PA_FP_MULTI_CURRENCY_PKG.convert_txn_currency -- Stage : ' ||to_char(l_stage)||' '||substr(SQLERRM,1,240));
2648: /* bug 4227840: wrapping the setting of debug error stack call to
2649: * pa_debug under the debug enbaling check
2650: */
2651: IF P_PA_DEBUG_MODE = 'Y' THEN
2652: pa_debug.reset_err_stack;
2653: END IF;
2654: raise FND_API.G_EXC_UNEXPECTED_ERROR;
2655: END convert_txn_currency;
2648: /* bug 4227840: wrapping the setting of debug error stack call to
2649: * pa_debug under the debug enbaling check
2650: */
2651: IF P_PA_DEBUG_MODE = 'Y' THEN
2652: pa_debug.reset_err_stack;
2653: END IF;
2654: raise FND_API.G_EXC_UNEXPECTED_ERROR;
2655: END convert_txn_currency;
2656:
2776:
2777: x_msg_count := 0;
2778: x_return_status := FND_API.G_RET_STS_SUCCESS;
2779:
2780: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
2781: l_debug_mode := NVL(l_debug_mode, 'Y');
2782:
2783: /* bug 4227840: wrapping the setting of debug error stack call to
2784: * pa_debug under the debug enbaling check
2780: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
2781: l_debug_mode := NVL(l_debug_mode, 'Y');
2782:
2783: /* bug 4227840: wrapping the setting of debug error stack call to
2784: * pa_debug under the debug enbaling check
2785: */
2786: IF l_debug_mode = 'Y' THEN
2787: -- set curr function
2788: pa_debug.set_curr_function(
2784: * pa_debug under the debug enbaling check
2785: */
2786: IF l_debug_mode = 'Y' THEN
2787: -- set curr function
2788: pa_debug.set_curr_function(
2789: p_function =>'PA_FP_MULTI_CURRENCY_PKG.Round_Budget_Line_Amounts'
2790: ,p_debug_mode => l_debug_mode );
2791: END IF;
2792:
2791: END IF;
2792:
2793: -- check for business rules violations
2794: IF l_debug_mode = 'Y' THEN
2795: pa_debug.g_err_stage:='Validating input parameters';
2796: pa_debug.write('Round_Budget_Line_Amounts: ' || g_module_name,pa_debug.g_err_stage,3);
2797: END IF;
2798:
2799: IF (p_budget_version_id IS NULL) OR (p_calling_context IS NULL) OR
2792:
2793: -- check for business rules violations
2794: IF l_debug_mode = 'Y' THEN
2795: pa_debug.g_err_stage:='Validating input parameters';
2796: pa_debug.write('Round_Budget_Line_Amounts: ' || g_module_name,pa_debug.g_err_stage,3);
2797: END IF;
2798:
2799: IF (p_budget_version_id IS NULL) OR (p_calling_context IS NULL) OR
2800: (p_calling_context NOT IN ('COPY_VERSION','CHANGE_ORDER_MERGE'))
2800: (p_calling_context NOT IN ('COPY_VERSION','CHANGE_ORDER_MERGE'))
2801: THEN
2802:
2803: IF l_debug_mode = 'Y' THEN
2804: pa_debug.g_err_stage:='p_budget_version_id = '||p_budget_version_id;
2805: pa_debug.write('Round_Budget_Line_Amounts: ' || g_module_name,pa_debug.g_err_stage,5);
2806:
2807: pa_debug.g_err_stage:='p_calling_context = '||p_calling_context;
2808: pa_debug.write('Round_Budget_Line_Amounts: ' || g_module_name,pa_debug.g_err_stage,5);
2801: THEN
2802:
2803: IF l_debug_mode = 'Y' THEN
2804: pa_debug.g_err_stage:='p_budget_version_id = '||p_budget_version_id;
2805: pa_debug.write('Round_Budget_Line_Amounts: ' || g_module_name,pa_debug.g_err_stage,5);
2806:
2807: pa_debug.g_err_stage:='p_calling_context = '||p_calling_context;
2808: pa_debug.write('Round_Budget_Line_Amounts: ' || g_module_name,pa_debug.g_err_stage,5);
2809: END IF;
2803: IF l_debug_mode = 'Y' THEN
2804: pa_debug.g_err_stage:='p_budget_version_id = '||p_budget_version_id;
2805: pa_debug.write('Round_Budget_Line_Amounts: ' || g_module_name,pa_debug.g_err_stage,5);
2806:
2807: pa_debug.g_err_stage:='p_calling_context = '||p_calling_context;
2808: pa_debug.write('Round_Budget_Line_Amounts: ' || g_module_name,pa_debug.g_err_stage,5);
2809: END IF;
2810:
2811: PA_UTILS.ADD_MESSAGE( p_app_short_name => 'PA',
2804: pa_debug.g_err_stage:='p_budget_version_id = '||p_budget_version_id;
2805: pa_debug.write('Round_Budget_Line_Amounts: ' || g_module_name,pa_debug.g_err_stage,5);
2806:
2807: pa_debug.g_err_stage:='p_calling_context = '||p_calling_context;
2808: pa_debug.write('Round_Budget_Line_Amounts: ' || g_module_name,pa_debug.g_err_stage,5);
2809: END IF;
2810:
2811: PA_UTILS.ADD_MESSAGE( p_app_short_name => 'PA',
2812: p_msg_name => 'PA_FP_INV_PARAM_PASSED',
2823: nvl(p_bls_inserted_after_id,0) <= 0 THEN
2824:
2825: IF l_debug_mode = 'Y' THEN
2826:
2827: pa_debug.g_err_stage:='p_bls_inserted_after_id = '||p_bls_inserted_after_id;
2828: pa_debug.write('Round_Budget_Line_Amounts: ' || g_module_name,pa_debug.g_err_stage,5);
2829:
2830: END IF;
2831:
2824:
2825: IF l_debug_mode = 'Y' THEN
2826:
2827: pa_debug.g_err_stage:='p_bls_inserted_after_id = '||p_bls_inserted_after_id;
2828: pa_debug.write('Round_Budget_Line_Amounts: ' || g_module_name,pa_debug.g_err_stage,5);
2829:
2830: END IF;
2831:
2832: PA_UTILS.ADD_MESSAGE( p_app_short_name => 'PA',
3190:
3191: END IF;
3192:
3193: IF l_debug_mode = 'Y' THEN
3194: pa_debug.g_err_stage:='Exiting Round_Budget_Line_Amounts';
3195: pa_debug.write('Round_Budget_Line_Amounts: ' || g_module_name,pa_debug.g_err_stage,3);
3196: END IF;
3197:
3198: /* bug 4227840: wrapping the setting of debug error stack call to
3191: END IF;
3192:
3193: IF l_debug_mode = 'Y' THEN
3194: pa_debug.g_err_stage:='Exiting Round_Budget_Line_Amounts';
3195: pa_debug.write('Round_Budget_Line_Amounts: ' || g_module_name,pa_debug.g_err_stage,3);
3196: END IF;
3197:
3198: /* bug 4227840: wrapping the setting of debug error stack call to
3199: * pa_debug under the debug enbaling check
3195: pa_debug.write('Round_Budget_Line_Amounts: ' || g_module_name,pa_debug.g_err_stage,3);
3196: END IF;
3197:
3198: /* bug 4227840: wrapping the setting of debug error stack call to
3199: * pa_debug under the debug enbaling check
3200: */
3201: IF l_debug_mode = 'Y' THEN
3202: -- reset curr function
3203: pa_debug.reset_curr_function();
3199: * pa_debug under the debug enbaling check
3200: */
3201: IF l_debug_mode = 'Y' THEN
3202: -- reset curr function
3203: pa_debug.reset_curr_function();
3204: END IF;
3205:
3206: EXCEPTION
3207:
3224:
3225: x_return_status := FND_API.G_RET_STS_ERROR;
3226:
3227: IF l_debug_mode = 'Y' THEN
3228: pa_debug.g_err_stage:='Invalid Arguments Passed Or called api raised an error';
3229: pa_debug.write('Round_Budget_Line_Amounts: ' || g_module_name,pa_debug.g_err_stage,5);
3230:
3231: END IF;
3232: /* bug 4227840: wrapping the setting of debug error stack call to
3225: x_return_status := FND_API.G_RET_STS_ERROR;
3226:
3227: IF l_debug_mode = 'Y' THEN
3228: pa_debug.g_err_stage:='Invalid Arguments Passed Or called api raised an error';
3229: pa_debug.write('Round_Budget_Line_Amounts: ' || g_module_name,pa_debug.g_err_stage,5);
3230:
3231: END IF;
3232: /* bug 4227840: wrapping the setting of debug error stack call to
3233: * pa_debug under the debug enbaling check
3229: pa_debug.write('Round_Budget_Line_Amounts: ' || g_module_name,pa_debug.g_err_stage,5);
3230:
3231: END IF;
3232: /* bug 4227840: wrapping the setting of debug error stack call to
3233: * pa_debug under the debug enbaling check
3234: */
3235: IF l_debug_mode = 'Y' THEN
3236: -- reset curr function
3237: pa_debug.reset_curr_function();
3233: * pa_debug under the debug enbaling check
3234: */
3235: IF l_debug_mode = 'Y' THEN
3236: -- reset curr function
3237: pa_debug.reset_curr_function();
3238: END IF;
3239: RETURN;
3240: WHEN Others THEN
3241: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3245: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_FP_MULTI_CURRENCY_PKG'
3246: ,p_procedure_name => 'Round_Budget_Line_Amounts');
3247:
3248: IF l_debug_mode = 'Y' THEN
3249: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
3250: pa_debug.write('Round_Budget_Line_Amounts: ' || g_module_name,pa_debug.g_err_stage,5);
3251: END IF;
3252:
3253: /* bug 4227840: wrapping the setting of debug error stack call to
3246: ,p_procedure_name => 'Round_Budget_Line_Amounts');
3247:
3248: IF l_debug_mode = 'Y' THEN
3249: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
3250: pa_debug.write('Round_Budget_Line_Amounts: ' || g_module_name,pa_debug.g_err_stage,5);
3251: END IF;
3252:
3253: /* bug 4227840: wrapping the setting of debug error stack call to
3254: * pa_debug under the debug enbaling check
3250: pa_debug.write('Round_Budget_Line_Amounts: ' || g_module_name,pa_debug.g_err_stage,5);
3251: END IF;
3252:
3253: /* bug 4227840: wrapping the setting of debug error stack call to
3254: * pa_debug under the debug enbaling check
3255: */
3256: IF l_debug_mode = 'Y' THEN
3257: -- reset curr function
3258: pa_debug.Reset_Curr_Function();
3254: * pa_debug under the debug enbaling check
3255: */
3256: IF l_debug_mode = 'Y' THEN
3257: -- reset curr function
3258: pa_debug.Reset_Curr_Function();
3259: END IF;
3260: RAISE;
3261: END Round_Budget_Line_Amounts;
3262:
3305: BEGIN
3306: x_msg_count := 0;
3307: x_return_status := FND_API.G_RET_STS_SUCCESS;
3308:
3309: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
3310: l_debug_mode := NVL(l_debug_mode, 'Y');
3311:
3312: /* bug 4227840: wrapping the setting of debug error stack call to
3313: * pa_debug under the debug enbaling check
3309: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
3310: l_debug_mode := NVL(l_debug_mode, 'Y');
3311:
3312: /* bug 4227840: wrapping the setting of debug error stack call to
3313: * pa_debug under the debug enbaling check
3314: */
3315: IF l_debug_mode = 'Y' THEN
3316: -- Set curr function
3317: pa_debug.set_curr_function(
3313: * pa_debug under the debug enbaling check
3314: */
3315: IF l_debug_mode = 'Y' THEN
3316: -- Set curr function
3317: pa_debug.set_curr_function(
3318: p_function =>'pafpmcpb.round_amounts'
3319: ,p_debug_mode => l_debug_mode );
3320: END IF;
3321:
3319: ,p_debug_mode => l_debug_mode );
3320: END IF;
3321:
3322: IF l_debug_mode = 'Y' THEN
3323: pa_debug.g_err_stage:='Validating input parameters';
3324: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level3);
3325: END IF;
3326:
3327: --Currency codes should not be valid
3320: END IF;
3321:
3322: IF l_debug_mode = 'Y' THEN
3323: pa_debug.g_err_stage:='Validating input parameters';
3324: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level3);
3325: END IF;
3326:
3327: --Currency codes should not be valid
3328: IF p_agr_currency_code IS NULL OR
3330: p_projfunc_currency_code IS NULL THEN
3331:
3332: IF l_debug_mode = 'Y' THEN
3333:
3334: pa_debug.g_err_stage:='p_agr_currency_code '||p_agr_currency_code;
3335: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
3336:
3337: pa_debug.g_err_stage:='p_project_currency_code '||p_project_currency_code;
3338: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
3331:
3332: IF l_debug_mode = 'Y' THEN
3333:
3334: pa_debug.g_err_stage:='p_agr_currency_code '||p_agr_currency_code;
3335: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
3336:
3337: pa_debug.g_err_stage:='p_project_currency_code '||p_project_currency_code;
3338: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
3339:
3333:
3334: pa_debug.g_err_stage:='p_agr_currency_code '||p_agr_currency_code;
3335: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
3336:
3337: pa_debug.g_err_stage:='p_project_currency_code '||p_project_currency_code;
3338: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
3339:
3340: pa_debug.g_err_stage:='p_projfunc_currency_code '||p_projfunc_currency_code;
3341: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
3334: pa_debug.g_err_stage:='p_agr_currency_code '||p_agr_currency_code;
3335: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
3336:
3337: pa_debug.g_err_stage:='p_project_currency_code '||p_project_currency_code;
3338: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
3339:
3340: pa_debug.g_err_stage:='p_projfunc_currency_code '||p_projfunc_currency_code;
3341: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
3342:
3336:
3337: pa_debug.g_err_stage:='p_project_currency_code '||p_project_currency_code;
3338: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
3339:
3340: pa_debug.g_err_stage:='p_projfunc_currency_code '||p_projfunc_currency_code;
3341: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
3342:
3343: END IF;
3344:
3337: pa_debug.g_err_stage:='p_project_currency_code '||p_project_currency_code;
3338: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
3339:
3340: pa_debug.g_err_stage:='p_projfunc_currency_code '||p_projfunc_currency_code;
3341: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
3342:
3343: END IF;
3344:
3345: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
3365: px_txn_raw_cost_tbl.COUNT <> px_quantity_tbl.COUNT THEN
3366:
3367: IF l_debug_mode = 'Y' THEN
3368:
3369: pa_debug.g_err_stage:='px_txn_raw_cost_tbl.COUNT '||px_txn_raw_cost_tbl.COUNT;
3370: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
3371:
3372: pa_debug.g_err_stage:='px_txn_burdened_cost_tbl.COUNT '||px_txn_burdened_cost_tbl.COUNT;
3373: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
3366:
3367: IF l_debug_mode = 'Y' THEN
3368:
3369: pa_debug.g_err_stage:='px_txn_raw_cost_tbl.COUNT '||px_txn_raw_cost_tbl.COUNT;
3370: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
3371:
3372: pa_debug.g_err_stage:='px_txn_burdened_cost_tbl.COUNT '||px_txn_burdened_cost_tbl.COUNT;
3373: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
3374:
3368:
3369: pa_debug.g_err_stage:='px_txn_raw_cost_tbl.COUNT '||px_txn_raw_cost_tbl.COUNT;
3370: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
3371:
3372: pa_debug.g_err_stage:='px_txn_burdened_cost_tbl.COUNT '||px_txn_burdened_cost_tbl.COUNT;
3373: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
3374:
3375: pa_debug.g_err_stage:='px_txn_revenue_tbl.COUNT '||px_txn_revenue_tbl.COUNT;
3376: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
3369: pa_debug.g_err_stage:='px_txn_raw_cost_tbl.COUNT '||px_txn_raw_cost_tbl.COUNT;
3370: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
3371:
3372: pa_debug.g_err_stage:='px_txn_burdened_cost_tbl.COUNT '||px_txn_burdened_cost_tbl.COUNT;
3373: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
3374:
3375: pa_debug.g_err_stage:='px_txn_revenue_tbl.COUNT '||px_txn_revenue_tbl.COUNT;
3376: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
3377:
3371:
3372: pa_debug.g_err_stage:='px_txn_burdened_cost_tbl.COUNT '||px_txn_burdened_cost_tbl.COUNT;
3373: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
3374:
3375: pa_debug.g_err_stage:='px_txn_revenue_tbl.COUNT '||px_txn_revenue_tbl.COUNT;
3376: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
3377:
3378: pa_debug.g_err_stage:='px_project_raw_cost_tbl.COUNT '||px_project_raw_cost_tbl.COUNT;
3379: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
3372: pa_debug.g_err_stage:='px_txn_burdened_cost_tbl.COUNT '||px_txn_burdened_cost_tbl.COUNT;
3373: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
3374:
3375: pa_debug.g_err_stage:='px_txn_revenue_tbl.COUNT '||px_txn_revenue_tbl.COUNT;
3376: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
3377:
3378: pa_debug.g_err_stage:='px_project_raw_cost_tbl.COUNT '||px_project_raw_cost_tbl.COUNT;
3379: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
3380:
3374:
3375: pa_debug.g_err_stage:='px_txn_revenue_tbl.COUNT '||px_txn_revenue_tbl.COUNT;
3376: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
3377:
3378: pa_debug.g_err_stage:='px_project_raw_cost_tbl.COUNT '||px_project_raw_cost_tbl.COUNT;
3379: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
3380:
3381: pa_debug.g_err_stage:='px_project_burdened_cost_tbl.COUNT '||px_project_burdened_cost_tbl.COUNT;
3382: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
3375: pa_debug.g_err_stage:='px_txn_revenue_tbl.COUNT '||px_txn_revenue_tbl.COUNT;
3376: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
3377:
3378: pa_debug.g_err_stage:='px_project_raw_cost_tbl.COUNT '||px_project_raw_cost_tbl.COUNT;
3379: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
3380:
3381: pa_debug.g_err_stage:='px_project_burdened_cost_tbl.COUNT '||px_project_burdened_cost_tbl.COUNT;
3382: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
3383:
3377:
3378: pa_debug.g_err_stage:='px_project_raw_cost_tbl.COUNT '||px_project_raw_cost_tbl.COUNT;
3379: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
3380:
3381: pa_debug.g_err_stage:='px_project_burdened_cost_tbl.COUNT '||px_project_burdened_cost_tbl.COUNT;
3382: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
3383:
3384: pa_debug.g_err_stage:='px_project_revenue_tbl.COUNT '||px_project_revenue_tbl.COUNT;
3385: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
3378: pa_debug.g_err_stage:='px_project_raw_cost_tbl.COUNT '||px_project_raw_cost_tbl.COUNT;
3379: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
3380:
3381: pa_debug.g_err_stage:='px_project_burdened_cost_tbl.COUNT '||px_project_burdened_cost_tbl.COUNT;
3382: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
3383:
3384: pa_debug.g_err_stage:='px_project_revenue_tbl.COUNT '||px_project_revenue_tbl.COUNT;
3385: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
3386:
3380:
3381: pa_debug.g_err_stage:='px_project_burdened_cost_tbl.COUNT '||px_project_burdened_cost_tbl.COUNT;
3382: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
3383:
3384: pa_debug.g_err_stage:='px_project_revenue_tbl.COUNT '||px_project_revenue_tbl.COUNT;
3385: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
3386:
3387: pa_debug.g_err_stage:='px_projfunc_raw_cost_tbl.COUNT '||px_projfunc_raw_cost_tbl.COUNT;
3388: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
3381: pa_debug.g_err_stage:='px_project_burdened_cost_tbl.COUNT '||px_project_burdened_cost_tbl.COUNT;
3382: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
3383:
3384: pa_debug.g_err_stage:='px_project_revenue_tbl.COUNT '||px_project_revenue_tbl.COUNT;
3385: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
3386:
3387: pa_debug.g_err_stage:='px_projfunc_raw_cost_tbl.COUNT '||px_projfunc_raw_cost_tbl.COUNT;
3388: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
3389:
3383:
3384: pa_debug.g_err_stage:='px_project_revenue_tbl.COUNT '||px_project_revenue_tbl.COUNT;
3385: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
3386:
3387: pa_debug.g_err_stage:='px_projfunc_raw_cost_tbl.COUNT '||px_projfunc_raw_cost_tbl.COUNT;
3388: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
3389:
3390: pa_debug.g_err_stage:='px_projfunc_burdened_cost_tbl.COUNT '||px_projfunc_burdened_cost_tbl.COUNT;
3391: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
3384: pa_debug.g_err_stage:='px_project_revenue_tbl.COUNT '||px_project_revenue_tbl.COUNT;
3385: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
3386:
3387: pa_debug.g_err_stage:='px_projfunc_raw_cost_tbl.COUNT '||px_projfunc_raw_cost_tbl.COUNT;
3388: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
3389:
3390: pa_debug.g_err_stage:='px_projfunc_burdened_cost_tbl.COUNT '||px_projfunc_burdened_cost_tbl.COUNT;
3391: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
3392:
3386:
3387: pa_debug.g_err_stage:='px_projfunc_raw_cost_tbl.COUNT '||px_projfunc_raw_cost_tbl.COUNT;
3388: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
3389:
3390: pa_debug.g_err_stage:='px_projfunc_burdened_cost_tbl.COUNT '||px_projfunc_burdened_cost_tbl.COUNT;
3391: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
3392:
3393: pa_debug.g_err_stage:='px_projfunc_revenue_tbl.COUNT '||px_projfunc_revenue_tbl.COUNT;
3394: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
3387: pa_debug.g_err_stage:='px_projfunc_raw_cost_tbl.COUNT '||px_projfunc_raw_cost_tbl.COUNT;
3388: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
3389:
3390: pa_debug.g_err_stage:='px_projfunc_burdened_cost_tbl.COUNT '||px_projfunc_burdened_cost_tbl.COUNT;
3391: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
3392:
3393: pa_debug.g_err_stage:='px_projfunc_revenue_tbl.COUNT '||px_projfunc_revenue_tbl.COUNT;
3394: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
3395:
3389:
3390: pa_debug.g_err_stage:='px_projfunc_burdened_cost_tbl.COUNT '||px_projfunc_burdened_cost_tbl.COUNT;
3391: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
3392:
3393: pa_debug.g_err_stage:='px_projfunc_revenue_tbl.COUNT '||px_projfunc_revenue_tbl.COUNT;
3394: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
3395:
3396: END IF;
3397:
3390: pa_debug.g_err_stage:='px_projfunc_burdened_cost_tbl.COUNT '||px_projfunc_burdened_cost_tbl.COUNT;
3391: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
3392:
3393: pa_debug.g_err_stage:='px_projfunc_revenue_tbl.COUNT '||px_projfunc_revenue_tbl.COUNT;
3394: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
3395:
3396: END IF;
3397:
3398: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
3409: IF px_txn_raw_cost_tbl.COUNT=0 THEN
3410:
3411: IF l_debug_mode = 'Y' THEN
3412:
3413: pa_debug.g_err_stage:='Input tbls are empty. Returning';
3414: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level3);
3415:
3416: END IF;
3417: /* bug 4227840: wrapping the setting of debug error stack call to
3410:
3411: IF l_debug_mode = 'Y' THEN
3412:
3413: pa_debug.g_err_stage:='Input tbls are empty. Returning';
3414: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level3);
3415:
3416: END IF;
3417: /* bug 4227840: wrapping the setting of debug error stack call to
3418: * pa_debug under the debug enbaling check
3414: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level3);
3415:
3416: END IF;
3417: /* bug 4227840: wrapping the setting of debug error stack call to
3418: * pa_debug under the debug enbaling check
3419: */
3420: IF l_debug_mode = 'Y' THEN
3421: pa_debug.reset_curr_function;
3422: END IF;
3417: /* bug 4227840: wrapping the setting of debug error stack call to
3418: * pa_debug under the debug enbaling check
3419: */
3420: IF l_debug_mode = 'Y' THEN
3421: pa_debug.reset_curr_function;
3422: END IF;
3423: RETURN;
3424:
3425: END IF;
3425: END IF;
3426:
3427: --Round the quantity
3428: IF l_debug_mode = 'Y' THEN
3429: pa_debug.g_err_stage:='Rounding Quantity';
3430: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level3);
3431: END IF;
3432:
3433: FOR i IN 1..px_quantity_tbl.COUNT LOOP
3426:
3427: --Round the quantity
3428: IF l_debug_mode = 'Y' THEN
3429: pa_debug.g_err_stage:='Rounding Quantity';
3430: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level3);
3431: END IF;
3432:
3433: FOR i IN 1..px_quantity_tbl.COUNT LOOP
3434:
3444: --of caching logic in Pa_currency.round_trans_currency_amt1
3445:
3446: --Round the agr currency amounts.
3447: IF l_debug_mode = 'Y' THEN
3448: pa_debug.g_err_stage:='Rounding agr amounts';
3449: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level3);
3450: END IF;
3451:
3452: --Code changes for bug 4200168 starts here.
3445:
3446: --Round the agr currency amounts.
3447: IF l_debug_mode = 'Y' THEN
3448: pa_debug.g_err_stage:='Rounding agr amounts';
3449: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level3);
3450: END IF;
3451:
3452: --Code changes for bug 4200168 starts here.
3453:
3472:
3473:
3474: --Round the project currency amounts.
3475: IF l_debug_mode = 'Y' THEN
3476: pa_debug.g_err_stage:='Rounding project amounts';
3477: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level3);
3478: END IF;
3479:
3480: IF p_agr_currency_code=p_project_currency_code THEN
3473:
3474: --Round the project currency amounts.
3475: IF l_debug_mode = 'Y' THEN
3476: pa_debug.g_err_stage:='Rounding project amounts';
3477: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level3);
3478: END IF;
3479:
3480: IF p_agr_currency_code=p_project_currency_code THEN
3481:
3502: END IF;
3503:
3504: --Round the Project Functional Currency Amounts
3505: IF l_debug_mode = 'Y' THEN
3506: pa_debug.g_err_stage:='Rounding project functional amounts';
3507: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level3);
3508: END IF;
3509:
3510: IF p_agr_currency_code=p_projfunc_currency_code THEN
3503:
3504: --Round the Project Functional Currency Amounts
3505: IF l_debug_mode = 'Y' THEN
3506: pa_debug.g_err_stage:='Rounding project functional amounts';
3507: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level3);
3508: END IF;
3509:
3510: IF p_agr_currency_code=p_projfunc_currency_code THEN
3511:
3536: --Code changes for bug 4200168 starts here.
3537: END IF;
3538:
3539: IF l_debug_mode = 'Y' THEN
3540: pa_debug.g_err_stage:='Exiting round_amounts';
3541: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level3);
3542: END IF;
3543: /* bug 4227840: wrapping the setting of debug error stack call to
3544: * pa_debug under the debug enbaling check
3537: END IF;
3538:
3539: IF l_debug_mode = 'Y' THEN
3540: pa_debug.g_err_stage:='Exiting round_amounts';
3541: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level3);
3542: END IF;
3543: /* bug 4227840: wrapping the setting of debug error stack call to
3544: * pa_debug under the debug enbaling check
3545: */
3540: pa_debug.g_err_stage:='Exiting round_amounts';
3541: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level3);
3542: END IF;
3543: /* bug 4227840: wrapping the setting of debug error stack call to
3544: * pa_debug under the debug enbaling check
3545: */
3546: IF l_debug_mode = 'Y' THEN
3547: -- reset curr function
3548: pa_debug.reset_curr_function;
3544: * pa_debug under the debug enbaling check
3545: */
3546: IF l_debug_mode = 'Y' THEN
3547: -- reset curr function
3548: pa_debug.reset_curr_function;
3549: END IF;
3550: EXCEPTION
3551:
3552: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
3567: END IF;
3568: x_return_status := FND_API.G_RET_STS_ERROR;
3569:
3570: IF l_debug_mode = 'Y' THEN
3571: pa_debug.g_err_stage:='Invalid Arguments Passed Or called api raised an error';
3572: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
3573:
3574: END IF;
3575: /* bug 4227840: wrapping the setting of debug error stack call to
3568: x_return_status := FND_API.G_RET_STS_ERROR;
3569:
3570: IF l_debug_mode = 'Y' THEN
3571: pa_debug.g_err_stage:='Invalid Arguments Passed Or called api raised an error';
3572: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
3573:
3574: END IF;
3575: /* bug 4227840: wrapping the setting of debug error stack call to
3576: * pa_debug under the debug enbaling check
3572: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
3573:
3574: END IF;
3575: /* bug 4227840: wrapping the setting of debug error stack call to
3576: * pa_debug under the debug enbaling check
3577: */
3578: IF l_debug_mode = 'Y' THEN
3579: -- reset curr function
3580: pa_debug.reset_curr_function();
3576: * pa_debug under the debug enbaling check
3577: */
3578: IF l_debug_mode = 'Y' THEN
3579: -- reset curr function
3580: pa_debug.reset_curr_function();
3581: END IF;
3582: RETURN;
3583: WHEN OTHERS THEN
3584:
3589: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_FP_MULTI_CURRENCY_PKG'
3590: ,p_procedure_name => 'round_amounts');
3591:
3592: IF l_debug_mode = 'Y' THEN
3593: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
3594: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
3595: END IF;
3596: /* bug 4227840: wrapping the setting of debug error stack call to
3597: * pa_debug under the debug enbaling check
3590: ,p_procedure_name => 'round_amounts');
3591:
3592: IF l_debug_mode = 'Y' THEN
3593: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
3594: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
3595: END IF;
3596: /* bug 4227840: wrapping the setting of debug error stack call to
3597: * pa_debug under the debug enbaling check
3598: */
3593: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
3594: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
3595: END IF;
3596: /* bug 4227840: wrapping the setting of debug error stack call to
3597: * pa_debug under the debug enbaling check
3598: */
3599: IF l_debug_mode = 'Y' THEN
3600: -- reset curr function
3601: pa_debug.Reset_Curr_Function();
3597: * pa_debug under the debug enbaling check
3598: */
3599: IF l_debug_mode = 'Y' THEN
3600: -- reset curr function
3601: pa_debug.Reset_Curr_Function();
3602: END IF;
3603: RAISE;
3604:
3605: END round_amounts;