1: PACKAGE body PA_FP_MAP_BV_PUB as
2: /* $Header: PAFPMBTB.pls 120.0 2005/05/29 19:14:08 appldev noship $ */
3: P_PA_DEBUG_MODE varchar2(1) := NVL(FND_PROFILE.value('PA_DEBUG_MODE'), 'N');
4:
5: PROCEDURE GEN_MAP_BV_TO_TARGET_RL
6: (P_SOURCE_BV_ID IN PA_BUDGET_VERSIONS.BUDGET_VERSION_ID%TYPE,
7: P_TARGET_FP_COLS_REC IN PA_FP_GEN_AMOUNT_UTILS.FP_COLS,
133:
134: X_MSG_COUNT := 0;
135: X_RETURN_STATUS := FND_API.G_RET_STS_SUCCESS;
136:
137: IF p_pa_debug_mode = 'Y' and p_init_msg_flag = 'Y' THEN
138: PA_DEBUG.init_err_stack('PA_FP_MAP_BV_PUB.GEN_MAP_BV_TO_TARGET_RL');
139: ELSIF p_pa_debug_mode = 'Y' and p_init_msg_flag = 'N' THEN
140: pa_debug.set_curr_function( p_function => 'GEN_MAP_BV_TO_TARGET_RL'
141: ,p_debug_mode => p_pa_debug_mode);
134: X_MSG_COUNT := 0;
135: X_RETURN_STATUS := FND_API.G_RET_STS_SUCCESS;
136:
137: IF p_pa_debug_mode = 'Y' and p_init_msg_flag = 'Y' THEN
138: PA_DEBUG.init_err_stack('PA_FP_MAP_BV_PUB.GEN_MAP_BV_TO_TARGET_RL');
139: ELSIF p_pa_debug_mode = 'Y' and p_init_msg_flag = 'N' THEN
140: pa_debug.set_curr_function( p_function => 'GEN_MAP_BV_TO_TARGET_RL'
141: ,p_debug_mode => p_pa_debug_mode);
142: END IF;
135: X_RETURN_STATUS := FND_API.G_RET_STS_SUCCESS;
136:
137: IF p_pa_debug_mode = 'Y' and p_init_msg_flag = 'Y' THEN
138: PA_DEBUG.init_err_stack('PA_FP_MAP_BV_PUB.GEN_MAP_BV_TO_TARGET_RL');
139: ELSIF p_pa_debug_mode = 'Y' and p_init_msg_flag = 'N' THEN
140: pa_debug.set_curr_function( p_function => 'GEN_MAP_BV_TO_TARGET_RL'
141: ,p_debug_mode => p_pa_debug_mode);
142: END IF;
143:
136:
137: IF p_pa_debug_mode = 'Y' and p_init_msg_flag = 'Y' THEN
138: PA_DEBUG.init_err_stack('PA_FP_MAP_BV_PUB.GEN_MAP_BV_TO_TARGET_RL');
139: ELSIF p_pa_debug_mode = 'Y' and p_init_msg_flag = 'N' THEN
140: pa_debug.set_curr_function( p_function => 'GEN_MAP_BV_TO_TARGET_RL'
141: ,p_debug_mode => p_pa_debug_mode);
142: END IF;
143:
144:
137: IF p_pa_debug_mode = 'Y' and p_init_msg_flag = 'Y' THEN
138: PA_DEBUG.init_err_stack('PA_FP_MAP_BV_PUB.GEN_MAP_BV_TO_TARGET_RL');
139: ELSIF p_pa_debug_mode = 'Y' and p_init_msg_flag = 'N' THEN
140: pa_debug.set_curr_function( p_function => 'GEN_MAP_BV_TO_TARGET_RL'
141: ,p_debug_mode => p_pa_debug_mode);
142: END IF;
143:
144:
145: l_rl_uncategorized_flag := PA_FP_GEN_AMOUNT_UTILS.
152: IF p_cb_fp_cols_rec.x_resource_list_id <>
153: p_etc_fp_cols_rec.x_resource_list_id
154: AND l_rl_uncategorized_flag = 'N' THEN
155: --Calling the map_rlmi_rbs api
156: IF p_pa_debug_mode = 'Y' THEN
157: pa_fp_gen_amount_utils.fp_debug
158: (p_msg => 'Before calling
159: pa_rlmi_rbs_map_pub.map_rlmi_rbs',
160: p_module_name => l_module_name,
234: --hr_utility.trace('@@after calling PA_RLMI_RBS_MAP_PUB.MAP_RLMI_RBS :'||x_return_status);
235: IF X_RETURN_STATUS <> FND_API.G_RET_STS_SUCCESS THEN
236: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
237: END IF;
238: IF p_pa_debug_mode = 'Y' THEN
239: pa_fp_gen_amount_utils.fp_debug
240: (p_msg => 'Status after calling
241: pa_rlmi_rbs_map_pub.map_rlmi_rbs'
242: ||x_return_status,
444: 'Y',bl.txn_currency_code,
445: 'N',p_target_fp_cols_rec.x_project_currency_code));
446: END IF;
447:
448: IF p_pa_debug_mode = 'Y' AND p_init_msg_flag = 'Y' THEN
449: PA_DEBUG.reset_err_stack;
450: ELSIF p_pa_debug_mode = 'Y' AND p_init_msg_flag = 'N' THEN
451: PA_DEBUG.Reset_Curr_Function;
452: END IF;
445: 'N',p_target_fp_cols_rec.x_project_currency_code));
446: END IF;
447:
448: IF p_pa_debug_mode = 'Y' AND p_init_msg_flag = 'Y' THEN
449: PA_DEBUG.reset_err_stack;
450: ELSIF p_pa_debug_mode = 'Y' AND p_init_msg_flag = 'N' THEN
451: PA_DEBUG.Reset_Curr_Function;
452: END IF;
453:
446: END IF;
447:
448: IF p_pa_debug_mode = 'Y' AND p_init_msg_flag = 'Y' THEN
449: PA_DEBUG.reset_err_stack;
450: ELSIF p_pa_debug_mode = 'Y' AND p_init_msg_flag = 'N' THEN
451: PA_DEBUG.Reset_Curr_Function;
452: END IF;
453:
454: EXCEPTION
447:
448: IF p_pa_debug_mode = 'Y' AND p_init_msg_flag = 'Y' THEN
449: PA_DEBUG.reset_err_stack;
450: ELSIF p_pa_debug_mode = 'Y' AND p_init_msg_flag = 'N' THEN
451: PA_DEBUG.Reset_Curr_Function;
452: END IF;
453:
454: EXCEPTION
455: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
469: END IF;
470: ROLLBACK;
471:
472: x_return_status := FND_API.G_RET_STS_ERROR;
473: IF P_PA_DEBUG_MODE = 'Y' THEN
474: pa_fp_gen_amount_utils.fp_debug
475: (p_msg => 'Invalid Arguments Passed',
476: p_module_name => l_module_name,
477: p_log_level => 5);
475: (p_msg => 'Invalid Arguments Passed',
476: p_module_name => l_module_name,
477: p_log_level => 5);
478: IF p_init_msg_flag = 'Y' THEN
479: PA_DEBUG.reset_err_stack;
480: ELSIF p_init_msg_flag = 'N' THEN
481: PA_DEBUG.Reset_Curr_Function;
482: END IF;
483: END IF;
477: p_log_level => 5);
478: IF p_init_msg_flag = 'Y' THEN
479: PA_DEBUG.reset_err_stack;
480: ELSIF p_init_msg_flag = 'N' THEN
481: PA_DEBUG.Reset_Curr_Function;
482: END IF;
483: END IF;
484: RAISE;
485:
488: x_msg_data := SUBSTR(SQLERRM,1,240);
489: FND_MSG_PUB.add_exc_msg
490: ( p_pkg_name => 'PA_FP_MAP_BV_PUB'
491: ,p_procedure_name => 'GEN_MAP_BV_TO_TARGET_RL');
492: IF P_PA_DEBUG_MODE = 'Y' THEN
493: pa_fp_gen_amount_utils.fp_debug
494: (p_msg => 'Unexpected Error'||substr(sqlerrm, 1, 240),
495: p_module_name => l_module_name,
496: p_log_level => 5);
494: (p_msg => 'Unexpected Error'||substr(sqlerrm, 1, 240),
495: p_module_name => l_module_name,
496: p_log_level => 5);
497: IF p_init_msg_flag = 'Y' THEN
498: PA_DEBUG.reset_err_stack;
499: ELSIF p_init_msg_flag = 'N' THEN
500: PA_DEBUG.Reset_Curr_Function;
501: END IF;
502: END IF;
496: p_log_level => 5);
497: IF p_init_msg_flag = 'Y' THEN
498: PA_DEBUG.reset_err_stack;
499: ELSIF p_init_msg_flag = 'N' THEN
500: PA_DEBUG.Reset_Curr_Function;
501: END IF;
502: END IF;
503: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
504:
524: l_msg_index_out NUMBER;
525:
526: BEGIN
527: --Calling the map_rlmi_rbs api
528: IF p_pa_debug_mode = 'Y' THEN
529: pa_debug.set_curr_function( p_function => 'MAINTAIN_RBS_DTLS'
530: ,p_debug_mode => p_pa_debug_mode);
531: pa_fp_gen_amount_utils.fp_debug
532: (p_msg => 'Before calling
525:
526: BEGIN
527: --Calling the map_rlmi_rbs api
528: IF p_pa_debug_mode = 'Y' THEN
529: pa_debug.set_curr_function( p_function => 'MAINTAIN_RBS_DTLS'
530: ,p_debug_mode => p_pa_debug_mode);
531: pa_fp_gen_amount_utils.fp_debug
532: (p_msg => 'Before calling
533: pa_rlmi_rbs_map_pub.map_rlmi_rbs',
526: BEGIN
527: --Calling the map_rlmi_rbs api
528: IF p_pa_debug_mode = 'Y' THEN
529: pa_debug.set_curr_function( p_function => 'MAINTAIN_RBS_DTLS'
530: ,p_debug_mode => p_pa_debug_mode);
531: pa_fp_gen_amount_utils.fp_debug
532: (p_msg => 'Before calling
533: pa_rlmi_rbs_map_pub.map_rlmi_rbs',
534: p_module_name => l_module_name,
553: x_msg_data => x_msg_data);
554: IF X_RETURN_STATUS <> FND_API.G_RET_STS_SUCCESS THEN
555: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
556: END IF;
557: IF p_pa_debug_mode = 'Y' THEN
558: pa_fp_gen_amount_utils.fp_debug
559: (p_msg => 'Status after calling
560: pa_rlmi_rbs_map_pub.map_rlmi_rbs'
561: ||x_return_status,
570: SET rbs_element_id = l_rbs_element_id_tab(i),
571: txn_accum_header_id = l_txn_accum_header_id_tab(i)
572: WHERE resource_assignment_id = l_txn_src_id_tab(i);
573:
574: IF p_pa_debug_mode = 'Y' THEN
575: PA_DEBUG.Reset_Curr_Function;
576: END IF;
577:
578: EXCEPTION
571: txn_accum_header_id = l_txn_accum_header_id_tab(i)
572: WHERE resource_assignment_id = l_txn_src_id_tab(i);
573:
574: IF p_pa_debug_mode = 'Y' THEN
575: PA_DEBUG.Reset_Curr_Function;
576: END IF;
577:
578: EXCEPTION
579: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
593: END IF;
594: ROLLBACK;
595:
596: x_return_status := FND_API.G_RET_STS_ERROR;
597: IF P_PA_DEBUG_MODE = 'Y' THEN
598: pa_fp_gen_amount_utils.fp_debug
599: (p_msg => 'Invalid Arguments Passed',
600: p_module_name => l_module_name,
601: p_log_level => 5);
598: pa_fp_gen_amount_utils.fp_debug
599: (p_msg => 'Invalid Arguments Passed',
600: p_module_name => l_module_name,
601: p_log_level => 5);
602: PA_DEBUG.Reset_Curr_Function;
603: END IF;
604: RAISE;
605:
606: WHEN OTHERS THEN
608: x_msg_data := SUBSTR(SQLERRM,1,240);
609: FND_MSG_PUB.add_exc_msg
610: ( p_pkg_name => 'PA_FP_MAP_BV_PUB'
611: ,p_procedure_name => 'MAINTAIN_RBS_DTLS');
612: IF P_PA_DEBUG_MODE = 'Y' THEN
613: pa_fp_gen_amount_utils.fp_debug
614: (p_msg => 'Unexpected Error'||substr(sqlerrm, 1, 240),
615: p_module_name => l_module_name,
616: p_log_level => 5);
613: pa_fp_gen_amount_utils.fp_debug
614: (p_msg => 'Unexpected Error'||substr(sqlerrm, 1, 240),
615: p_module_name => l_module_name,
616: p_log_level => 5);
617: PA_DEBUG.Reset_Curr_Function;
618: END IF;
619: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
620: END MAINTAIN_RBS_DTLS;
621: