1: PACKAGE body PA_FP_GEN_FCST_AMT_PUB4 as
2: /* $Header: PAFPFG4B.pls 120.5 2007/02/06 09:51:54 dthakker ship $ */
3:
4: P_PA_DEBUG_MODE varchar2(1) := NVL(FND_PROFILE.value('PA_DEBUG_MODE'), 'N');
5:
6: PROCEDURE GET_ETC_BDGT_COMPLETE_AMTS (
7: P_SRC_RES_ASG_ID IN PA_RESOURCE_ASSIGNMENTS.RESOURCE_ASSIGNMENT_ID%TYPE,
8: P_TGT_RES_ASG_ID IN PA_RESOURCE_ASSIGNMENTS.RESOURCE_ASSIGNMENT_ID%TYPE,
73: l_data VARCHAR2(2000);
74: l_msg_index_out NUMBER:=0;
75:
76: BEGIN
77: IF p_pa_debug_mode = 'Y' THEN
78: pa_debug.set_curr_function( p_function => 'GEN_ETC_BDGT_COMPLETE_AMTS',
79: p_debug_mode=> p_pa_debug_mode);
80: END IF;
81: X_RETURN_STATUS := FND_API.G_RET_STS_SUCCESS;
74: l_msg_index_out NUMBER:=0;
75:
76: BEGIN
77: IF p_pa_debug_mode = 'Y' THEN
78: pa_debug.set_curr_function( p_function => 'GEN_ETC_BDGT_COMPLETE_AMTS',
79: p_debug_mode=> p_pa_debug_mode);
80: END IF;
81: X_RETURN_STATUS := FND_API.G_RET_STS_SUCCESS;
82: X_MSG_COUNT := 0;
75:
76: BEGIN
77: IF p_pa_debug_mode = 'Y' THEN
78: pa_debug.set_curr_function( p_function => 'GEN_ETC_BDGT_COMPLETE_AMTS',
79: p_debug_mode=> p_pa_debug_mode);
80: END IF;
81: X_RETURN_STATUS := FND_API.G_RET_STS_SUCCESS;
82: X_MSG_COUNT := 0;
83:
101: l_structure_status := 'WORKING';
102: END IF;
103: END IF;
104:
105: IF P_PA_DEBUG_MODE = 'Y' THEN
106: pa_fp_gen_amount_utils.fp_debug
107: (p_msg => 'Before calling PA_PROGRESS_UTILS.REDEFAULT_BASE_PC',
108: p_module_name => l_module_name,
109: p_log_level => 5);
120: X_base_percent_complete => lx_percent_complete,
121: x_return_status => x_return_status,
122: x_msg_count => x_msg_count,
123: x_msg_data => x_msg_data );
124: IF P_PA_DEBUG_MODE = 'Y' THEN
125: pa_fp_gen_amount_utils.fp_debug
126: (p_msg => 'After calling PA_PROGRESS_UTILS.REDEFAULT_BASE_PC,
127: return status is:'||x_return_status,
128: p_module_name => l_module_name,
133: END IF;
134:
135: l_percent_complete := NVL(lx_percent_complete,0)/100;
136: IF (l_percent_complete = 1) THEN
137: IF P_PA_DEBUG_MODE = 'Y' THEN
138: PA_DEBUG.RESET_CURR_FUNCTION;
139: END IF;
140: RETURN;
141: END IF;
134:
135: l_percent_complete := NVL(lx_percent_complete,0)/100;
136: IF (l_percent_complete = 1) THEN
137: IF P_PA_DEBUG_MODE = 'Y' THEN
138: PA_DEBUG.RESET_CURR_FUNCTION;
139: END IF;
140: RETURN;
141: END IF;
142:
327: l_etc_quantity_tab(i) * l_pfc_brdn_cost_rate_tab(i),
328: l_etc_quantity_tab(i) * l_pfc_revenue_rate_tab(i),
329: l_transaction_source_code );
330:
331: IF P_PA_DEBUG_MODE = 'Y' THEN
332: PA_DEBUG.RESET_CURR_FUNCTION;
333: END IF;
334: EXCEPTION
335: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
328: l_etc_quantity_tab(i) * l_pfc_revenue_rate_tab(i),
329: l_transaction_source_code );
330:
331: IF P_PA_DEBUG_MODE = 'Y' THEN
332: PA_DEBUG.RESET_CURR_FUNCTION;
333: END IF;
334: EXCEPTION
335: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
336: l_msg_count := FND_MSG_PUB.count_msg;
350:
351: ROLLBACK;
352: x_return_status := FND_API.G_RET_STS_ERROR;
353:
354: IF P_PA_DEBUG_MODE = 'Y' THEN
355: pa_fp_gen_amount_utils.fp_debug
356: (p_msg => 'Invalid Arguments Passed',
357: p_module_name => l_module_name,
358: p_log_level => 5);
355: pa_fp_gen_amount_utils.fp_debug
356: (p_msg => 'Invalid Arguments Passed',
357: p_module_name => l_module_name,
358: p_log_level => 5);
359: PA_DEBUG.RESET_CURR_FUNCTION;
360: END IF;
361: RAISE;
362: WHEN OTHERS THEN
363: rollback;
369: ( p_pkg_name => 'PA_FP_GEN_FCST_AMT_PUB4',
370: p_procedure_name => 'GEN_ETC_BDGT_COMPLETE_AMTS',
371: p_error_text => substr(sqlerrm,1,240));
372:
373: IF P_PA_DEBUG_MODE = 'Y' THEN
374: pa_fp_gen_amount_utils.fp_debug
375: (p_msg => 'Unexpected Error'||substr(sqlerrm, 1, 240),
376: p_module_name => l_module_name,
377: p_log_level => 5);
374: pa_fp_gen_amount_utils.fp_debug
375: (p_msg => 'Unexpected Error'||substr(sqlerrm, 1, 240),
376: p_module_name => l_module_name,
377: p_log_level => 5);
378: PA_DEBUG.RESET_CURR_FUNCTION;
379: END IF;
380: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
381: END GET_ETC_BDGT_COMPLETE_AMTS;
382:
471: l_data VARCHAR2(2000);
472: l_msg_index_out NUMBER:=0;
473:
474: BEGIN
475: IF p_pa_debug_mode = 'Y' THEN
476: pa_debug.set_curr_function( p_function => 'GEN_ETC_BDGT_COMPLETE_AMTS_BLK',
477: p_debug_mode=> p_pa_debug_mode);
478: END IF;
479: X_RETURN_STATUS := FND_API.G_RET_STS_SUCCESS;
472: l_msg_index_out NUMBER:=0;
473:
474: BEGIN
475: IF p_pa_debug_mode = 'Y' THEN
476: pa_debug.set_curr_function( p_function => 'GEN_ETC_BDGT_COMPLETE_AMTS_BLK',
477: p_debug_mode=> p_pa_debug_mode);
478: END IF;
479: X_RETURN_STATUS := FND_API.G_RET_STS_SUCCESS;
480: X_MSG_COUNT := 0;
473:
474: BEGIN
475: IF p_pa_debug_mode = 'Y' THEN
476: pa_debug.set_curr_function( p_function => 'GEN_ETC_BDGT_COMPLETE_AMTS_BLK',
477: p_debug_mode=> p_pa_debug_mode);
478: END IF;
479: X_RETURN_STATUS := FND_API.G_RET_STS_SUCCESS;
480: X_MSG_COUNT := 0;
481:
532: l_structure_status := 'WORKING';
533: END IF;
534: END IF;
535:
536: IF P_PA_DEBUG_MODE = 'Y' THEN
537: pa_fp_gen_amount_utils.fp_debug
538: (p_msg => 'Before calling PA_PROGRESS_UTILS.REDEFAULT_BASE_PC',
539: p_module_name => l_module_name,
540: p_log_level => 5);
551: X_base_percent_complete => lx_percent_complete,
552: x_return_status => x_return_status,
553: x_msg_count => x_msg_count,
554: x_msg_data => x_msg_data );
555: IF P_PA_DEBUG_MODE = 'Y' THEN
556: pa_fp_gen_amount_utils.fp_debug
557: (p_msg => 'After calling PA_PROGRESS_UTILS.REDEFAULT_BASE_PC,
558: return status is:'||x_return_status,
559: p_module_name => l_module_name,
823: l_blk_etc_pfc_rcost_tab(i),
824: l_blk_etc_pfc_bcost_tab(i),
825: l_blk_etc_pfc_revenue_tab(i),
826: l_transaction_source_code );
827: IF P_PA_DEBUG_MODE = 'Y' THEN
828: PA_DEBUG.RESET_CURR_FUNCTION;
829: END IF;
830: EXCEPTION
831: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
824: l_blk_etc_pfc_bcost_tab(i),
825: l_blk_etc_pfc_revenue_tab(i),
826: l_transaction_source_code );
827: IF P_PA_DEBUG_MODE = 'Y' THEN
828: PA_DEBUG.RESET_CURR_FUNCTION;
829: END IF;
830: EXCEPTION
831: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
832: l_msg_count := FND_MSG_PUB.count_msg;
846:
847: ROLLBACK;
848: x_return_status := FND_API.G_RET_STS_ERROR;
849:
850: IF P_PA_DEBUG_MODE = 'Y' THEN
851: pa_fp_gen_amount_utils.fp_debug
852: (p_msg => 'Invalid Arguments Passed',
853: p_module_name => l_module_name,
854: p_log_level => 5);
851: pa_fp_gen_amount_utils.fp_debug
852: (p_msg => 'Invalid Arguments Passed',
853: p_module_name => l_module_name,
854: p_log_level => 5);
855: PA_DEBUG.RESET_CURR_FUNCTION;
856: END IF;
857: RAISE;
858: WHEN OTHERS THEN
859: rollback;
865: ( p_pkg_name => 'PA_FP_GEN_FCST_AMT_PUB4',
866: p_procedure_name => 'GEN_ETC_BDGT_COMPLETE_AMTS_BLK',
867: p_error_text => substr(sqlerrm,1,240));
868:
869: IF P_PA_DEBUG_MODE = 'Y' THEN
870: pa_fp_gen_amount_utils.fp_debug
871: (p_msg => 'Unexpected Error'||substr(sqlerrm, 1, 240),
872: p_module_name => l_module_name,
873: p_log_level => 5);
870: pa_fp_gen_amount_utils.fp_debug
871: (p_msg => 'Unexpected Error'||substr(sqlerrm, 1, 240),
872: p_module_name => l_module_name,
873: p_log_level => 5);
874: PA_DEBUG.RESET_CURR_FUNCTION;
875: END IF;
876: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
877: END GET_ETC_BDGT_COMPLETE_AMTS_BLK;
878: