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.12020000.2 2013/05/17 09:56:25 bpottipa 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 617: IF p_pa_debug_mode = 'Y' THEN

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

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

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

Line 619: p_debug_mode => p_pa_debug_mode);

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

Line 672: IF P_PA_DEBUG_MODE = 'Y' THEN

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

Line 691: IF P_PA_DEBUG_MODE = 'Y' THEN

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

Line 783: IF P_PA_DEBUG_MODE = 'Y' THEN

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

Line 808: IF P_PA_DEBUG_MODE = 'Y' THEN

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

Line 1014: IF P_PA_DEBUG_MODE = 'Y' THEN

1010: l_blk_etc_pfc_revenue_tab(i),
1011: l_transaction_source_code);
1012:
1013: IF l_remain_bdgt_src_ra_id_tab.count > 0 THEN
1014: IF P_PA_DEBUG_MODE = 'Y' THEN
1015: pa_fp_gen_amount_utils.fp_debug(
1016: p_msg => 'Before calling PA_FP_GEN_FCST_AMT_PUB3.'||
1017: 'GET_ETC_REMAIN_BDGT_AMTS',
1018: p_module_name => l_module_name,

Line 1037: IF P_PA_DEBUG_MODE = 'Y' THEN

1033: P_PLANNING_OPTIONS_FLAG => P_PLANNING_OPTIONS_FLAG,
1034: X_RETURN_STATUS => X_RETURN_STATUS,
1035: X_MSG_COUNT => X_MSG_COUNT,
1036: X_MSG_DATA => X_MSG_DATA);
1037: IF P_PA_DEBUG_MODE = 'Y' THEN
1038: pa_fp_gen_amount_utils.fp_debug(
1039: p_msg => 'After calling PA_FP_GEN_FCST_AMT_PUB3.'||
1040: 'GET_ETC_REMAIN_BDGT_AMTS:'||x_return_status,
1041: p_module_name => l_module_name,

Line 1049: IF P_PA_DEBUG_MODE = 'Y' THEN

1045: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
1046: END IF;
1047: END IF;
1048:
1049: IF P_PA_DEBUG_MODE = 'Y' THEN
1050: PA_DEBUG.RESET_CURR_FUNCTION;
1051: END IF;
1052: EXCEPTION
1053: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN

Line 1050: PA_DEBUG.RESET_CURR_FUNCTION;

1046: END IF;
1047: END IF;
1048:
1049: IF P_PA_DEBUG_MODE = 'Y' THEN
1050: PA_DEBUG.RESET_CURR_FUNCTION;
1051: END IF;
1052: EXCEPTION
1053: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
1054: l_msg_count := FND_MSG_PUB.count_msg;

Line 1072: IF P_PA_DEBUG_MODE = 'Y' THEN

1068:
1069: ROLLBACK;
1070: x_return_status := FND_API.G_RET_STS_ERROR;
1071:
1072: IF P_PA_DEBUG_MODE = 'Y' THEN
1073: pa_fp_gen_amount_utils.fp_debug
1074: (p_msg => 'Invalid Arguments Passed',
1075: p_module_name => l_module_name,
1076: p_log_level => 5);

Line 1077: PA_DEBUG.RESET_CURR_FUNCTION;

1073: pa_fp_gen_amount_utils.fp_debug
1074: (p_msg => 'Invalid Arguments Passed',
1075: p_module_name => l_module_name,
1076: p_log_level => 5);
1077: PA_DEBUG.RESET_CURR_FUNCTION;
1078: END IF;
1079: RAISE;
1080: WHEN OTHERS THEN
1081: rollback;

Line 1091: IF P_PA_DEBUG_MODE = 'Y' THEN

1087: ( p_pkg_name => 'PA_FP_GEN_FCST_AMT_PUB5',
1088: p_procedure_name => 'GEN_ETC_EARNED_VALUE_AMTS_BLK',
1089: p_error_text => substr(sqlerrm,1,240));
1090:
1091: IF P_PA_DEBUG_MODE = 'Y' THEN
1092: pa_fp_gen_amount_utils.fp_debug
1093: (p_msg => 'Unexpected Error'||substr(sqlerrm, 1, 240),
1094: p_module_name => l_module_name,
1095: p_log_level => 5);

Line 1096: PA_DEBUG.RESET_CURR_FUNCTION;

1092: pa_fp_gen_amount_utils.fp_debug
1093: (p_msg => 'Unexpected Error'||substr(sqlerrm, 1, 240),
1094: p_module_name => l_module_name,
1095: p_log_level => 5);
1096: PA_DEBUG.RESET_CURR_FUNCTION;
1097: END IF;
1098: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1099: END GET_ETC_EARNED_VALUE_AMTS_BLK;
1100: