DBA Data[Home] [Help]

APPS.PA_FP_GEN_FCST_AMT_PUB5 dependencies on PA_DEBUG

Line 4: P_PA_DEBUG_MODE varchar2(1) := NVL(FND_PROFILE.value('PA_DEBUG_MODE'), 'N');

1: PACKAGE body PA_FP_GEN_FCST_AMT_PUB5 as
2: /* $Header: PAFPFG5B.pls 120.2 2007/02/06 09:52:14 dthakker ship $ */
3:
4: P_PA_DEBUG_MODE varchar2(1) := NVL(FND_PROFILE.value('PA_DEBUG_MODE'), 'N');
5:
6: PROCEDURE GET_ETC_EARNED_VALUE_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,

Line 86: IF p_pa_debug_mode = 'Y' THEN

82: l_msg_data VARCHAR2(2000);
83: l_data VARCHAR2(2000);
84: l_msg_index_out NUMBER:=0;
85: BEGIN
86: IF p_pa_debug_mode = 'Y' THEN
87: pa_debug.set_curr_function( p_function => 'GEN_ETC_BDGT_COMPLETE_AMTS',
88: p_debug_mode => p_pa_debug_mode);
89: END IF;
90: X_RETURN_STATUS := FND_API.G_RET_STS_SUCCESS;

Line 87: pa_debug.set_curr_function( p_function => 'GEN_ETC_BDGT_COMPLETE_AMTS',

83: l_data VARCHAR2(2000);
84: l_msg_index_out NUMBER:=0;
85: BEGIN
86: IF p_pa_debug_mode = 'Y' THEN
87: pa_debug.set_curr_function( p_function => 'GEN_ETC_BDGT_COMPLETE_AMTS',
88: p_debug_mode => p_pa_debug_mode);
89: END IF;
90: X_RETURN_STATUS := FND_API.G_RET_STS_SUCCESS;
91: X_MSG_COUNT := 0;

Line 88: p_debug_mode => p_pa_debug_mode);

84: l_msg_index_out NUMBER:=0;
85: BEGIN
86: IF p_pa_debug_mode = 'Y' THEN
87: pa_debug.set_curr_function( p_function => 'GEN_ETC_BDGT_COMPLETE_AMTS',
88: p_debug_mode => p_pa_debug_mode);
89: END IF;
90: X_RETURN_STATUS := FND_API.G_RET_STS_SUCCESS;
91: X_MSG_COUNT := 0;
92:

Line 114: IF P_PA_DEBUG_MODE = 'Y' THEN

110: l_structure_status := 'WORKING';
111: END IF;
112: END IF;
113:
114: IF P_PA_DEBUG_MODE = 'Y' THEN
115: pa_fp_gen_amount_utils.fp_debug
116: (p_msg => 'Before calling PA_PROGRESS_UTILS.REDEFAULT_BASE_PC',
117: p_module_name => l_module_name,
118: p_log_level => 5);

Line 133: IF P_PA_DEBUG_MODE = 'Y' THEN

129: X_base_percent_complete => lx_percent_complete,
130: x_return_status => x_return_status,
131: x_msg_count => x_msg_count,
132: x_msg_data => x_msg_data );
133: IF P_PA_DEBUG_MODE = 'Y' THEN
134: pa_fp_gen_amount_utils.fp_debug
135: (p_msg => 'After calling PA_PROGRESS_UTILS.'||
136: 'REDEFAULT_BASE_PC:'||x_return_status,
137: p_module_name => l_module_name,

Line 147: IF P_PA_DEBUG_MODE = 'Y' THEN

143:
144: l_percent_complete := NVL(lx_percent_complete,0)/100;
145:
146: IF l_percent_complete = 1 THEN
147: IF P_PA_DEBUG_MODE = 'Y' THEN
148: PA_DEBUG.RESET_CURR_FUNCTION;
149: END IF;
150: RETURN;
151: ELSIF l_percent_complete = 0 THEN

Line 148: PA_DEBUG.RESET_CURR_FUNCTION;

144: l_percent_complete := NVL(lx_percent_complete,0)/100;
145:
146: IF l_percent_complete = 1 THEN
147: IF P_PA_DEBUG_MODE = 'Y' THEN
148: PA_DEBUG.RESET_CURR_FUNCTION;
149: END IF;
150: RETURN;
151: ELSIF l_percent_complete = 0 THEN
152: IF P_PA_DEBUG_MODE = 'Y' THEN

Line 152: IF P_PA_DEBUG_MODE = 'Y' THEN

148: PA_DEBUG.RESET_CURR_FUNCTION;
149: END IF;
150: RETURN;
151: ELSIF l_percent_complete = 0 THEN
152: IF P_PA_DEBUG_MODE = 'Y' THEN
153: pa_fp_gen_amount_utils.fp_debug(
154: p_msg => 'Before calling PA_FP_GEN_FCST_AMT_PUB3.'||
155: 'GET_ETC_REMAIN_BDGT_AMTS',
156: p_module_name => l_module_name,

Line 173: IF P_PA_DEBUG_MODE = 'Y' THEN

169: P_PLANNING_OPTIONS_FLAG => P_PLANNING_OPTIONS_FLAG,
170: X_RETURN_STATUS => X_RETURN_STATUS,
171: X_MSG_COUNT => X_MSG_COUNT,
172: X_MSG_DATA => X_MSG_DATA );
173: IF P_PA_DEBUG_MODE = 'Y' THEN
174: pa_fp_gen_amount_utils.fp_debug(
175: p_msg => 'After calling PA_FP_GEN_FCST_AMT_PUB3.'||
176: 'GET_ETC_REMAIN_BDGT_AMTS:'||x_return_status,
177: p_module_name => l_module_name,

Line 183: IF P_PA_DEBUG_MODE = 'Y' THEN

179: END IF;
180: IF X_RETURN_STATUS <> FND_API.G_RET_STS_SUCCESS THEN
181: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
182: END IF;
183: IF P_PA_DEBUG_MODE = 'Y' THEN
184: PA_DEBUG.RESET_CURR_FUNCTION;
185: END IF;
186: RETURN;
187: END IF;

Line 184: PA_DEBUG.RESET_CURR_FUNCTION;

180: IF X_RETURN_STATUS <> FND_API.G_RET_STS_SUCCESS THEN
181: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
182: END IF;
183: IF P_PA_DEBUG_MODE = 'Y' THEN
184: PA_DEBUG.RESET_CURR_FUNCTION;
185: END IF;
186: RETURN;
187: END IF;
188:

Line 254: IF P_PA_DEBUG_MODE = 'Y' THEN

250: l_act_quantity_tab := l_act_raw_cost_tab;
251: END IF;
252:
253: ELSIF p_etc_source_code = 'WORKPLAN_RESOURCES' THEN
254: IF P_PA_DEBUG_MODE = 'Y' THEN
255: pa_fp_gen_amount_utils.fp_debug(
256: p_msg => 'Before calling PA_FP_GEN_FCST_AMT_PUB1.'||
257: 'GET_WP_ACTUALS_FOR_RA',
258: p_module_name => l_module_name,

Line 279: IF P_PA_DEBUG_MODE = 'Y' THEN

275: X_ACT_PFC_BRDN_COST => lx_act_pfc_brdn_cost,
276: X_RETURN_STATUS => x_return_status,
277: X_MSG_COUNT => x_msg_count,
278: X_MSG_DATA => x_msg_data );
279: IF P_PA_DEBUG_MODE = 'Y' THEN
280: pa_fp_gen_amount_utils.fp_debug(
281: p_msg => 'After calling PA_FP_GEN_FCST_AMT_PUB1.'||
282: 'GET_WP_ACTUALS_FOR_RA in earned_value:'||x_return_status,
283: p_module_name => l_module_name,

Line 454: IF P_PA_DEBUG_MODE = 'Y' THEN

450: l_etc_quantity_tab(i) * l_pfc_brdn_cost_rate_tab(i),
451: l_etc_quantity_tab(i) * l_pfc_revenue_rate_tab(i),
452: l_transaction_source_code);
453:
454: IF P_PA_DEBUG_MODE = 'Y' THEN
455: PA_DEBUG.RESET_CURR_FUNCTION;
456: END IF;
457:
458: EXCEPTION

Line 455: PA_DEBUG.RESET_CURR_FUNCTION;

451: l_etc_quantity_tab(i) * l_pfc_revenue_rate_tab(i),
452: l_transaction_source_code);
453:
454: IF P_PA_DEBUG_MODE = 'Y' THEN
455: PA_DEBUG.RESET_CURR_FUNCTION;
456: END IF;
457:
458: EXCEPTION
459: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN

Line 478: IF P_PA_DEBUG_MODE = 'Y' THEN

474:
475: ROLLBACK;
476: x_return_status := FND_API.G_RET_STS_ERROR;
477:
478: IF P_PA_DEBUG_MODE = 'Y' THEN
479: pa_fp_gen_amount_utils.fp_debug
480: (p_msg => 'Invalid Arguments Passed',
481: p_module_name => l_module_name,
482: p_log_level => 5);

Line 483: PA_DEBUG.RESET_CURR_FUNCTION;

479: pa_fp_gen_amount_utils.fp_debug
480: (p_msg => 'Invalid Arguments Passed',
481: p_module_name => l_module_name,
482: p_log_level => 5);
483: PA_DEBUG.RESET_CURR_FUNCTION;
484: END IF;
485: RAISE;
486: WHEN OTHERS THEN
487: rollback;

Line 497: IF P_PA_DEBUG_MODE = 'Y' THEN

493: ( p_pkg_name => 'PA_FP_GEN_FCST_AMT_PUB5',
494: p_procedure_name => 'GEN_ETC_EARNED_VALUE_AMTS',
495: p_error_text => substr(sqlerrm,1,240));
496:
497: IF P_PA_DEBUG_MODE = 'Y' THEN
498: pa_fp_gen_amount_utils.fp_debug
499: (p_msg => 'Unexpected Error'||substr(sqlerrm, 1, 240),
500: p_module_name => l_module_name,
501: p_log_level => 5);

Line 502: PA_DEBUG.RESET_CURR_FUNCTION;

498: pa_fp_gen_amount_utils.fp_debug
499: (p_msg => 'Unexpected Error'||substr(sqlerrm, 1, 240),
500: p_module_name => l_module_name,
501: p_log_level => 5);
502: PA_DEBUG.RESET_CURR_FUNCTION;
503: END IF;
504: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
505: END GET_ETC_EARNED_VALUE_AMTS;
506:

Line 615: IF p_pa_debug_mode = 'Y' THEN

611: l_msg_data VARCHAR2(2000);
612: l_data VARCHAR2(2000);
613: l_msg_index_out NUMBER:=0;
614: BEGIN
615: IF p_pa_debug_mode = 'Y' THEN
616: pa_debug.set_curr_function( p_function => 'GEN_ETC_BDGT_COMPLETE_AMTS_BLK',
617: p_debug_mode => p_pa_debug_mode);
618: END IF;
619: X_RETURN_STATUS := FND_API.G_RET_STS_SUCCESS;

Line 616: pa_debug.set_curr_function( p_function => 'GEN_ETC_BDGT_COMPLETE_AMTS_BLK',

612: l_data VARCHAR2(2000);
613: l_msg_index_out NUMBER:=0;
614: BEGIN
615: IF p_pa_debug_mode = 'Y' THEN
616: pa_debug.set_curr_function( p_function => 'GEN_ETC_BDGT_COMPLETE_AMTS_BLK',
617: p_debug_mode => p_pa_debug_mode);
618: END IF;
619: X_RETURN_STATUS := FND_API.G_RET_STS_SUCCESS;
620: X_MSG_COUNT := 0;

Line 617: p_debug_mode => p_pa_debug_mode);

613: l_msg_index_out NUMBER:=0;
614: BEGIN
615: IF p_pa_debug_mode = 'Y' THEN
616: pa_debug.set_curr_function( p_function => 'GEN_ETC_BDGT_COMPLETE_AMTS_BLK',
617: p_debug_mode => p_pa_debug_mode);
618: END IF;
619: X_RETURN_STATUS := FND_API.G_RET_STS_SUCCESS;
620: X_MSG_COUNT := 0;
621:

Line 670: IF P_PA_DEBUG_MODE = 'Y' THEN

666: l_structure_status := 'WORKING';
667: END IF;
668: END IF;
669:
670: IF P_PA_DEBUG_MODE = 'Y' THEN
671: pa_fp_gen_amount_utils.fp_debug
672: (p_msg => 'Before calling PA_PROGRESS_UTILS.REDEFAULT_BASE_PC',
673: p_module_name => l_module_name,
674: p_log_level => 5);

Line 689: IF P_PA_DEBUG_MODE = 'Y' THEN

685: X_base_percent_complete => lx_percent_complete,
686: x_return_status => x_return_status,
687: x_msg_count => x_msg_count,
688: x_msg_data => x_msg_data );
689: IF P_PA_DEBUG_MODE = 'Y' THEN
690: pa_fp_gen_amount_utils.fp_debug
691: (p_msg => 'After calling PA_PROGRESS_UTILS.'||
692: 'REDEFAULT_BASE_PC:'||x_return_status,
693: p_module_name => l_module_name,

Line 779: IF P_PA_DEBUG_MODE = 'Y' THEN

775: l_act_quantity_tab := l_act_raw_cost_tab;
776: END IF;
777:
778: ELSIF p_etc_source_code_tab(main_loop) = 'WORKPLAN_RESOURCES' THEN
779: IF P_PA_DEBUG_MODE = 'Y' THEN
780: pa_fp_gen_amount_utils.fp_debug(
781: p_msg => 'Before calling PA_FP_GEN_FCST_AMT_PUB1.'||
782: 'GET_WP_ACTUALS_FOR_RA',
783: p_module_name => l_module_name,

Line 804: IF P_PA_DEBUG_MODE = 'Y' THEN

800: X_ACT_PFC_BRDN_COST => lx_act_pfc_brdn_cost,
801: X_RETURN_STATUS => x_return_status,
802: X_MSG_COUNT => x_msg_count,
803: X_MSG_DATA => x_msg_data );
804: IF P_PA_DEBUG_MODE = 'Y' THEN
805: pa_fp_gen_amount_utils.fp_debug(
806: p_msg => 'After calling PA_FP_GEN_FCST_AMT_PUB1.'||
807: 'GET_WP_ACTUALS_FOR_RA in earned_value:'||x_return_status,
808: p_module_name => l_module_name,

Line 1009: IF P_PA_DEBUG_MODE = 'Y' THEN

1005: l_blk_etc_pfc_revenue_tab(i),
1006: l_transaction_source_code);
1007:
1008: IF l_remain_bdgt_src_ra_id_tab.count > 0 THEN
1009: IF P_PA_DEBUG_MODE = 'Y' THEN
1010: pa_fp_gen_amount_utils.fp_debug(
1011: p_msg => 'Before calling PA_FP_GEN_FCST_AMT_PUB3.'||
1012: 'GET_ETC_REMAIN_BDGT_AMTS',
1013: p_module_name => l_module_name,

Line 1031: IF P_PA_DEBUG_MODE = 'Y' THEN

1027: P_PLANNING_OPTIONS_FLAG => P_PLANNING_OPTIONS_FLAG,
1028: X_RETURN_STATUS => X_RETURN_STATUS,
1029: X_MSG_COUNT => X_MSG_COUNT,
1030: X_MSG_DATA => X_MSG_DATA);
1031: IF P_PA_DEBUG_MODE = 'Y' THEN
1032: pa_fp_gen_amount_utils.fp_debug(
1033: p_msg => 'After calling PA_FP_GEN_FCST_AMT_PUB3.'||
1034: 'GET_ETC_REMAIN_BDGT_AMTS:'||x_return_status,
1035: p_module_name => l_module_name,

Line 1043: IF P_PA_DEBUG_MODE = 'Y' THEN

1039: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
1040: END IF;
1041: END IF;
1042:
1043: IF P_PA_DEBUG_MODE = 'Y' THEN
1044: PA_DEBUG.RESET_CURR_FUNCTION;
1045: END IF;
1046: EXCEPTION
1047: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN

Line 1044: PA_DEBUG.RESET_CURR_FUNCTION;

1040: END IF;
1041: END IF;
1042:
1043: IF P_PA_DEBUG_MODE = 'Y' THEN
1044: PA_DEBUG.RESET_CURR_FUNCTION;
1045: END IF;
1046: EXCEPTION
1047: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
1048: l_msg_count := FND_MSG_PUB.count_msg;

Line 1066: IF P_PA_DEBUG_MODE = 'Y' THEN

1062:
1063: ROLLBACK;
1064: x_return_status := FND_API.G_RET_STS_ERROR;
1065:
1066: IF P_PA_DEBUG_MODE = 'Y' THEN
1067: pa_fp_gen_amount_utils.fp_debug
1068: (p_msg => 'Invalid Arguments Passed',
1069: p_module_name => l_module_name,
1070: p_log_level => 5);

Line 1071: PA_DEBUG.RESET_CURR_FUNCTION;

1067: pa_fp_gen_amount_utils.fp_debug
1068: (p_msg => 'Invalid Arguments Passed',
1069: p_module_name => l_module_name,
1070: p_log_level => 5);
1071: PA_DEBUG.RESET_CURR_FUNCTION;
1072: END IF;
1073: RAISE;
1074: WHEN OTHERS THEN
1075: rollback;

Line 1085: IF P_PA_DEBUG_MODE = 'Y' THEN

1081: ( p_pkg_name => 'PA_FP_GEN_FCST_AMT_PUB5',
1082: p_procedure_name => 'GEN_ETC_EARNED_VALUE_AMTS_BLK',
1083: p_error_text => substr(sqlerrm,1,240));
1084:
1085: IF P_PA_DEBUG_MODE = 'Y' THEN
1086: pa_fp_gen_amount_utils.fp_debug
1087: (p_msg => 'Unexpected Error'||substr(sqlerrm, 1, 240),
1088: p_module_name => l_module_name,
1089: p_log_level => 5);

Line 1090: PA_DEBUG.RESET_CURR_FUNCTION;

1086: pa_fp_gen_amount_utils.fp_debug
1087: (p_msg => 'Unexpected Error'||substr(sqlerrm, 1, 240),
1088: p_module_name => l_module_name,
1089: p_log_level => 5);
1090: PA_DEBUG.RESET_CURR_FUNCTION;
1091: END IF;
1092: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1093: END GET_ETC_EARNED_VALUE_AMTS_BLK;
1094: