[Home] [Help]
2: /* $Header: PAFPEDLB.pls 120.2 2005/09/26 11:26:14 rnamburi noship $ */
3:
4: l_module_name VARCHAR2(30) := 'pa.plsql.PA_FP_EDIT_LINE_PKG';
5:
6: P_PA_DEBUG_MODE varchar2(1) := NVL(FND_PROFILE.value('PA_DEBUG_MODE'), 'N');
7: -- Bug Fix: 4569365. Removed MRC code.
8: -- g_mrc_exception EXCEPTION;
9:
10: /* Bug 2672548 - Populate_local_varaiables would derive PD/SD start and end dates by
57:
58: BEGIN
59: -- Set the error stack.
60:
61: pa_debug.set_err_stack('PA_FP_EDIT_LINE_PKG.Populate_Local_Variables');
62:
63: -- Get the Debug mode into local variable and set it to 'Y'if its NULL
64:
65: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
61: pa_debug.set_err_stack('PA_FP_EDIT_LINE_PKG.Populate_Local_Variables');
62:
63: -- Get the Debug mode into local variable and set it to 'Y'if its NULL
64:
65: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
66: l_debug_mode := NVL(l_debug_mode, 'Y');
67:
68: -- Initialize the return status to success
69: x_return_status := FND_API.G_RET_STS_SUCCESS;
66: l_debug_mode := NVL(l_debug_mode, 'Y');
67:
68: -- Initialize the return status to success
69: x_return_status := FND_API.G_RET_STS_SUCCESS;
70: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
71:
72: pa_debug.g_err_stage := 'In PA_FP_EDIT_LINE_PKG.Populate_Local_Variables ';
73: IF P_PA_DEBUG_MODE = 'Y' THEN
74: pa_debug.write('POPULATE_LOCAL_VARIABLES: ' || l_module_name,pa_debug.g_err_stage,3);
68: -- Initialize the return status to success
69: x_return_status := FND_API.G_RET_STS_SUCCESS;
70: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
71:
72: pa_debug.g_err_stage := 'In PA_FP_EDIT_LINE_PKG.Populate_Local_Variables ';
73: IF P_PA_DEBUG_MODE = 'Y' THEN
74: pa_debug.write('POPULATE_LOCAL_VARIABLES: ' || l_module_name,pa_debug.g_err_stage,3);
75: END IF;
76:
69: x_return_status := FND_API.G_RET_STS_SUCCESS;
70: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
71:
72: pa_debug.g_err_stage := 'In PA_FP_EDIT_LINE_PKG.Populate_Local_Variables ';
73: IF P_PA_DEBUG_MODE = 'Y' THEN
74: pa_debug.write('POPULATE_LOCAL_VARIABLES: ' || l_module_name,pa_debug.g_err_stage,3);
75: END IF;
76:
77: /* Check for Budget Version ID not being NULL. */
70: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
71:
72: pa_debug.g_err_stage := 'In PA_FP_EDIT_LINE_PKG.Populate_Local_Variables ';
73: IF P_PA_DEBUG_MODE = 'Y' THEN
74: pa_debug.write('POPULATE_LOCAL_VARIABLES: ' || l_module_name,pa_debug.g_err_stage,3);
75: END IF;
76:
77: /* Check for Budget Version ID not being NULL. */
78:
75: END IF;
76:
77: /* Check for Budget Version ID not being NULL. */
78:
79: pa_debug.g_err_stage := 'Getting the value of the version id profile id etc.';
80: IF P_PA_DEBUG_MODE = 'Y' THEN
81: pa_debug.write('POPULATE_LOCAL_VARIABLES: ' || l_module_name,pa_debug.g_err_stage,3);
82: END IF;
83:
76:
77: /* Check for Budget Version ID not being NULL. */
78:
79: pa_debug.g_err_stage := 'Getting the value of the version id profile id etc.';
80: IF P_PA_DEBUG_MODE = 'Y' THEN
81: pa_debug.write('POPULATE_LOCAL_VARIABLES: ' || l_module_name,pa_debug.g_err_stage,3);
82: END IF;
83:
84:
77: /* Check for Budget Version ID not being NULL. */
78:
79: pa_debug.g_err_stage := 'Getting the value of the version id profile id etc.';
80: IF P_PA_DEBUG_MODE = 'Y' THEN
81: pa_debug.write('POPULATE_LOCAL_VARIABLES: ' || l_module_name,pa_debug.g_err_stage,3);
82: END IF;
83:
84:
85: SELECT pra.budget_version_id
94: pa_budget_versions pbv
95: WHERE pra.resource_assignment_id = p_resource_assignment_id
96: AND pra.budget_version_id = pbv.budget_version_id;
97:
98: pa_debug.g_err_stage := 'getting x_time_phased_code ';
99: IF P_PA_DEBUG_MODE = 'Y' THEN
100: pa_debug.write('POPULATE_LOCAL_VARIABLES: ' || l_module_name,pa_debug.g_err_stage,3);
101: END IF;
102:
95: WHERE pra.resource_assignment_id = p_resource_assignment_id
96: AND pra.budget_version_id = pbv.budget_version_id;
97:
98: pa_debug.g_err_stage := 'getting x_time_phased_code ';
99: IF P_PA_DEBUG_MODE = 'Y' THEN
100: pa_debug.write('POPULATE_LOCAL_VARIABLES: ' || l_module_name,pa_debug.g_err_stage,3);
101: END IF;
102:
103: x_time_phased_code := pa_fin_plan_utils.get_time_phased_code(
96: AND pra.budget_version_id = pbv.budget_version_id;
97:
98: pa_debug.g_err_stage := 'getting x_time_phased_code ';
99: IF P_PA_DEBUG_MODE = 'Y' THEN
100: pa_debug.write('POPULATE_LOCAL_VARIABLES: ' || l_module_name,pa_debug.g_err_stage,3);
101: END IF;
102:
103: x_time_phased_code := pa_fin_plan_utils.get_time_phased_code(
104: p_fin_plan_version_id => x_fin_plan_version_id);
102:
103: x_time_phased_code := pa_fin_plan_utils.get_time_phased_code(
104: p_fin_plan_version_id => x_fin_plan_version_id);
105:
106: pa_debug.g_err_stage := ':x_time_phased_code = ' || x_time_phased_code;
107: IF P_PA_DEBUG_MODE = 'Y' THEN
108: pa_debug.write('POPULATE_LOCAL_VARIABLES: ' || l_module_name,pa_debug.g_err_stage,3);
109: END IF;
110:
103: x_time_phased_code := pa_fin_plan_utils.get_time_phased_code(
104: p_fin_plan_version_id => x_fin_plan_version_id);
105:
106: pa_debug.g_err_stage := ':x_time_phased_code = ' || x_time_phased_code;
107: IF P_PA_DEBUG_MODE = 'Y' THEN
108: pa_debug.write('POPULATE_LOCAL_VARIABLES: ' || l_module_name,pa_debug.g_err_stage,3);
109: END IF;
110:
111: x_fin_plan_level_code := pa_fin_plan_utils.Get_Fin_Plan_Level_Code(
104: p_fin_plan_version_id => x_fin_plan_version_id);
105:
106: pa_debug.g_err_stage := ':x_time_phased_code = ' || x_time_phased_code;
107: IF P_PA_DEBUG_MODE = 'Y' THEN
108: pa_debug.write('POPULATE_LOCAL_VARIABLES: ' || l_module_name,pa_debug.g_err_stage,3);
109: END IF;
110:
111: x_fin_plan_level_code := pa_fin_plan_utils.Get_Fin_Plan_Level_Code(
112: p_fin_plan_version_id => x_fin_plan_version_id);
110:
111: x_fin_plan_level_code := pa_fin_plan_utils.Get_Fin_Plan_Level_Code(
112: p_fin_plan_version_id => x_fin_plan_version_id);
113:
114: pa_debug.g_err_stage := 'x_fin_plan_level_code = ' || x_fin_plan_level_code;
115: IF P_PA_DEBUG_MODE = 'Y' THEN
116: pa_debug.write('POPULATE_LOCAL_VARIABLES: ' || l_module_name,pa_debug.g_err_stage,3);
117: END IF;
118:
111: x_fin_plan_level_code := pa_fin_plan_utils.Get_Fin_Plan_Level_Code(
112: p_fin_plan_version_id => x_fin_plan_version_id);
113:
114: pa_debug.g_err_stage := 'x_fin_plan_level_code = ' || x_fin_plan_level_code;
115: IF P_PA_DEBUG_MODE = 'Y' THEN
116: pa_debug.write('POPULATE_LOCAL_VARIABLES: ' || l_module_name,pa_debug.g_err_stage,3);
117: END IF;
118:
119: IF x_period_profile_id IS NOT NULL THEN
112: p_fin_plan_version_id => x_fin_plan_version_id);
113:
114: pa_debug.g_err_stage := 'x_fin_plan_level_code = ' || x_fin_plan_level_code;
115: IF P_PA_DEBUG_MODE = 'Y' THEN
116: pa_debug.write('POPULATE_LOCAL_VARIABLES: ' || l_module_name,pa_debug.g_err_stage,3);
117: END IF;
118:
119: IF x_period_profile_id IS NOT NULL THEN
120:
117: END IF;
118:
119: IF x_period_profile_id IS NOT NULL THEN
120:
121: pa_debug.g_err_stage := 'calling pa_prj_period_profile_utils.get_prj_period_profile_dtls.';
122: IF P_PA_DEBUG_MODE = 'Y' THEN
123: pa_debug.write('POPULATE_LOCAL_VARIABLES: ' || l_module_name,pa_debug.g_err_stage,3);
124: END IF;
125:
118:
119: IF x_period_profile_id IS NOT NULL THEN
120:
121: pa_debug.g_err_stage := 'calling pa_prj_period_profile_utils.get_prj_period_profile_dtls.';
122: IF P_PA_DEBUG_MODE = 'Y' THEN
123: pa_debug.write('POPULATE_LOCAL_VARIABLES: ' || l_module_name,pa_debug.g_err_stage,3);
124: END IF;
125:
126: PA_PRJ_PERIOD_PROFILE_UTILS.GET_PRJ_PERIOD_PROFILE_DTLS(
119: IF x_period_profile_id IS NOT NULL THEN
120:
121: pa_debug.g_err_stage := 'calling pa_prj_period_profile_utils.get_prj_period_profile_dtls.';
122: IF P_PA_DEBUG_MODE = 'Y' THEN
123: pa_debug.write('POPULATE_LOCAL_VARIABLES: ' || l_module_name,pa_debug.g_err_stage,3);
124: END IF;
125:
126: PA_PRJ_PERIOD_PROFILE_UTILS.GET_PRJ_PERIOD_PROFILE_DTLS(
127: p_period_profile_id => x_period_profile_id
142: /* PA_PRJ_PERIOD_PROFILE_UTILS.GET_PRJ_PERIOD_PROFILE_DTLS doesn't
143: raise error and hence this error trapping is done */
144: END IF;
145:
146: IF P_PA_DEBUG_MODE = 'Y' THEN
147: pa_debug.g_err_stage := 'calling pa_fin_plan_utils.get_peceding_suceeding_pd_info.';
148: pa_debug.write('POPULATE_LOCAL_VARIABLES: ' || l_module_name,pa_debug.g_err_stage,3);
149: END IF;
150:
143: raise error and hence this error trapping is done */
144: END IF;
145:
146: IF P_PA_DEBUG_MODE = 'Y' THEN
147: pa_debug.g_err_stage := 'calling pa_fin_plan_utils.get_peceding_suceeding_pd_info.';
148: pa_debug.write('POPULATE_LOCAL_VARIABLES: ' || l_module_name,pa_debug.g_err_stage,3);
149: END IF;
150:
151: /* Calling DERIVE_PD_SD_START_END_DATES to get/dervie the PD/SD start and end dates */
144: END IF;
145:
146: IF P_PA_DEBUG_MODE = 'Y' THEN
147: pa_debug.g_err_stage := 'calling pa_fin_plan_utils.get_peceding_suceeding_pd_info.';
148: pa_debug.write('POPULATE_LOCAL_VARIABLES: ' || l_module_name,pa_debug.g_err_stage,3);
149: END IF;
150:
151: /* Calling DERIVE_PD_SD_START_END_DATES to get/dervie the PD/SD start and end dates */
152:
167: ,x_msg_count => x_msg_count
168: ,x_msg_data => x_msg_data);
169:
170: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
171: IF P_PA_DEBUG_MODE = 'Y' THEN
172: pa_debug.g_err_stage := 'Call to derive_pd_sd_start_end_dates errored... ';
173: pa_debug.write(l_module_name,pa_debug.g_err_stage,5);
174: END IF;
175: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
168: ,x_msg_data => x_msg_data);
169:
170: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
171: IF P_PA_DEBUG_MODE = 'Y' THEN
172: pa_debug.g_err_stage := 'Call to derive_pd_sd_start_end_dates errored... ';
173: pa_debug.write(l_module_name,pa_debug.g_err_stage,5);
174: END IF;
175: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
176: END IF;
169:
170: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
171: IF P_PA_DEBUG_MODE = 'Y' THEN
172: pa_debug.g_err_stage := 'Call to derive_pd_sd_start_end_dates errored... ';
173: pa_debug.write(l_module_name,pa_debug.g_err_stage,5);
174: END IF;
175: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
176: END IF;
177: END IF;
180: then period profile id will not be null.
181: */
182: IF nvl(x_project_id,0) <> 0 THEN
183:
184: pa_debug.g_err_stage := 'getting project start and end dates.';
185: IF P_PA_DEBUG_MODE = 'Y' THEN
186: pa_debug.write('POPULATE_LOCAL_VARIABLES: ' || l_module_name,pa_debug.g_err_stage,3);
187: END IF;
188:
181: */
182: IF nvl(x_project_id,0) <> 0 THEN
183:
184: pa_debug.g_err_stage := 'getting project start and end dates.';
185: IF P_PA_DEBUG_MODE = 'Y' THEN
186: pa_debug.write('POPULATE_LOCAL_VARIABLES: ' || l_module_name,pa_debug.g_err_stage,3);
187: END IF;
188:
189: SELECT start_date
182: IF nvl(x_project_id,0) <> 0 THEN
183:
184: pa_debug.g_err_stage := 'getting project start and end dates.';
185: IF P_PA_DEBUG_MODE = 'Y' THEN
186: pa_debug.write('POPULATE_LOCAL_VARIABLES: ' || l_module_name,pa_debug.g_err_stage,3);
187: END IF;
188:
189: SELECT start_date
190: ,completion_date
200: END IF;
201:
202: IF nvl(l_task_id,0) <> 0 THEN
203:
204: pa_debug.g_err_stage := 'getting task start and end dates.';
205: IF P_PA_DEBUG_MODE = 'Y' THEN
206: pa_debug.write('POPULATE_LOCAL_VARIABLES: ' || l_module_name,pa_debug.g_err_stage,3);
207: END IF;
208:
201:
202: IF nvl(l_task_id,0) <> 0 THEN
203:
204: pa_debug.g_err_stage := 'getting task start and end dates.';
205: IF P_PA_DEBUG_MODE = 'Y' THEN
206: pa_debug.write('POPULATE_LOCAL_VARIABLES: ' || l_module_name,pa_debug.g_err_stage,3);
207: END IF;
208:
209: SELECT start_date
202: IF nvl(l_task_id,0) <> 0 THEN
203:
204: pa_debug.g_err_stage := 'getting task start and end dates.';
205: IF P_PA_DEBUG_MODE = 'Y' THEN
206: pa_debug.write('POPULATE_LOCAL_VARIABLES: ' || l_module_name,pa_debug.g_err_stage,3);
207: END IF;
208:
209: SELECT start_date
210: ,completion_date
214: WHERE pt.task_id = l_task_id;
215:
216: END IF;
217:
218: pa_debug.reset_err_stack; /* Bug 2699888 */
219:
220: EXCEPTION
221: WHEN FND_API.G_EXC_ERROR or PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
222: x_return_status := FND_API.G_RET_STS_ERROR;
235: ELSE
236: x_msg_count := l_msg_count;
237: END IF;
238:
239: IF P_PA_DEBUG_MODE = 'Y' THEN
240: pa_debug.write('POPULATE_LOCAL_VARIABLES: ' || l_module_name,'Invalid arguments passed or some expected error',5);
241: pa_debug.write('POPULATE_LOCAL_VARIABLES: ' || l_module_name,pa_debug.G_Err_Stack,5);
242: END IF;
243: pa_debug.reset_err_stack;
236: x_msg_count := l_msg_count;
237: END IF;
238:
239: IF P_PA_DEBUG_MODE = 'Y' THEN
240: pa_debug.write('POPULATE_LOCAL_VARIABLES: ' || l_module_name,'Invalid arguments passed or some expected error',5);
241: pa_debug.write('POPULATE_LOCAL_VARIABLES: ' || l_module_name,pa_debug.G_Err_Stack,5);
242: END IF;
243: pa_debug.reset_err_stack;
244:
237: END IF;
238:
239: IF P_PA_DEBUG_MODE = 'Y' THEN
240: pa_debug.write('POPULATE_LOCAL_VARIABLES: ' || l_module_name,'Invalid arguments passed or some expected error',5);
241: pa_debug.write('POPULATE_LOCAL_VARIABLES: ' || l_module_name,pa_debug.G_Err_Stack,5);
242: END IF;
243: pa_debug.reset_err_stack;
244:
245: RAISE;
239: IF P_PA_DEBUG_MODE = 'Y' THEN
240: pa_debug.write('POPULATE_LOCAL_VARIABLES: ' || l_module_name,'Invalid arguments passed or some expected error',5);
241: pa_debug.write('POPULATE_LOCAL_VARIABLES: ' || l_module_name,pa_debug.G_Err_Stack,5);
242: END IF;
243: pa_debug.reset_err_stack;
244:
245: RAISE;
246:
247: WHEN OTHERS THEN
249: x_msg_count := 1;
250: x_msg_data := SQLERRM;
251: FND_MSG_PUB.add_exc_msg
252: ( p_pkg_name => 'PA_FP_EDIT_LINE_PKG.Populate_Local_Variables'
253: ,p_procedure_name => pa_debug.G_Err_Stack );
254: IF P_PA_DEBUG_MODE = 'Y' THEN
255: pa_debug.write('POPULATE_LOCAL_VARIABLES: ' || l_module_name,SQLERRM,5);
256: pa_debug.write('POPULATE_LOCAL_VARIABLES: ' || l_module_name,pa_debug.G_Err_Stack,5);
257: END IF;
250: x_msg_data := SQLERRM;
251: FND_MSG_PUB.add_exc_msg
252: ( p_pkg_name => 'PA_FP_EDIT_LINE_PKG.Populate_Local_Variables'
253: ,p_procedure_name => pa_debug.G_Err_Stack );
254: IF P_PA_DEBUG_MODE = 'Y' THEN
255: pa_debug.write('POPULATE_LOCAL_VARIABLES: ' || l_module_name,SQLERRM,5);
256: pa_debug.write('POPULATE_LOCAL_VARIABLES: ' || l_module_name,pa_debug.G_Err_Stack,5);
257: END IF;
258: pa_debug.reset_err_stack;
251: FND_MSG_PUB.add_exc_msg
252: ( p_pkg_name => 'PA_FP_EDIT_LINE_PKG.Populate_Local_Variables'
253: ,p_procedure_name => pa_debug.G_Err_Stack );
254: IF P_PA_DEBUG_MODE = 'Y' THEN
255: pa_debug.write('POPULATE_LOCAL_VARIABLES: ' || l_module_name,SQLERRM,5);
256: pa_debug.write('POPULATE_LOCAL_VARIABLES: ' || l_module_name,pa_debug.G_Err_Stack,5);
257: END IF;
258: pa_debug.reset_err_stack;
259:
252: ( p_pkg_name => 'PA_FP_EDIT_LINE_PKG.Populate_Local_Variables'
253: ,p_procedure_name => pa_debug.G_Err_Stack );
254: IF P_PA_DEBUG_MODE = 'Y' THEN
255: pa_debug.write('POPULATE_LOCAL_VARIABLES: ' || l_module_name,SQLERRM,5);
256: pa_debug.write('POPULATE_LOCAL_VARIABLES: ' || l_module_name,pa_debug.G_Err_Stack,5);
257: END IF;
258: pa_debug.reset_err_stack;
259:
260: raise FND_API.G_EXC_UNEXPECTED_ERROR;
254: IF P_PA_DEBUG_MODE = 'Y' THEN
255: pa_debug.write('POPULATE_LOCAL_VARIABLES: ' || l_module_name,SQLERRM,5);
256: pa_debug.write('POPULATE_LOCAL_VARIABLES: ' || l_module_name,pa_debug.G_Err_Stack,5);
257: END IF;
258: pa_debug.reset_err_stack;
259:
260: raise FND_API.G_EXC_UNEXPECTED_ERROR;
261: END POPULATE_LOCAL_VARIABLES;
262:
301:
302: x_msg_count := 0;
303: x_return_status := FND_API.G_RET_STS_SUCCESS;
304:
305: IF p_pa_debug_mode = 'Y' THEN
306: pa_debug.set_err_stack('PA_FP_EDIT_LINE_PKG.DERIVE_PD_SD_START_END_DATES');
307: pa_debug.set_process('PLSQL','LOG',p_pa_debug_mode);
308: END IF;
309:
302: x_msg_count := 0;
303: x_return_status := FND_API.G_RET_STS_SUCCESS;
304:
305: IF p_pa_debug_mode = 'Y' THEN
306: pa_debug.set_err_stack('PA_FP_EDIT_LINE_PKG.DERIVE_PD_SD_START_END_DATES');
307: pa_debug.set_process('PLSQL','LOG',p_pa_debug_mode);
308: END IF;
309:
310: -- Check for business rules violations
303: x_return_status := FND_API.G_RET_STS_SUCCESS;
304:
305: IF p_pa_debug_mode = 'Y' THEN
306: pa_debug.set_err_stack('PA_FP_EDIT_LINE_PKG.DERIVE_PD_SD_START_END_DATES');
307: pa_debug.set_process('PLSQL','LOG',p_pa_debug_mode);
308: END IF;
309:
310: -- Check for business rules violations
311:
308: END IF;
309:
310: -- Check for business rules violations
311:
312: IF p_pa_debug_mode = 'Y' THEN
313: pa_debug.g_err_stage:= 'Validating input parameters';
314: pa_debug.write(l_module_name,pa_debug.g_err_stage,
315: PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
316: END IF;
309:
310: -- Check for business rules violations
311:
312: IF p_pa_debug_mode = 'Y' THEN
313: pa_debug.g_err_stage:= 'Validating input parameters';
314: pa_debug.write(l_module_name,pa_debug.g_err_stage,
315: PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
316: END IF;
317:
310: -- Check for business rules violations
311:
312: IF p_pa_debug_mode = 'Y' THEN
313: pa_debug.g_err_stage:= 'Validating input parameters';
314: pa_debug.write(l_module_name,pa_debug.g_err_stage,
315: PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
316: END IF;
317:
318: IF p_calling_context IS NULL or
320: p_pp_end_dt IS NULL or
321: p_plan_period_type IS NULL or
322: p_resource_assignment_id IS NULL THEN
323:
324: IF p_pa_debug_mode = 'Y' THEN
325: pa_debug.g_err_stage:= 'p_calling_context = '|| p_calling_context;
326: pa_debug.write(l_module_name,pa_debug.g_err_stage,
327: PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
328: pa_debug.g_err_stage:= 'p_pp_st_dt = '|| p_pp_st_dt;
321: p_plan_period_type IS NULL or
322: p_resource_assignment_id IS NULL THEN
323:
324: IF p_pa_debug_mode = 'Y' THEN
325: pa_debug.g_err_stage:= 'p_calling_context = '|| p_calling_context;
326: pa_debug.write(l_module_name,pa_debug.g_err_stage,
327: PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
328: pa_debug.g_err_stage:= 'p_pp_st_dt = '|| p_pp_st_dt;
329: pa_debug.write(l_module_name,pa_debug.g_err_stage,
322: p_resource_assignment_id IS NULL THEN
323:
324: IF p_pa_debug_mode = 'Y' THEN
325: pa_debug.g_err_stage:= 'p_calling_context = '|| p_calling_context;
326: pa_debug.write(l_module_name,pa_debug.g_err_stage,
327: PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
328: pa_debug.g_err_stage:= 'p_pp_st_dt = '|| p_pp_st_dt;
329: pa_debug.write(l_module_name,pa_debug.g_err_stage,
330: PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
324: IF p_pa_debug_mode = 'Y' THEN
325: pa_debug.g_err_stage:= 'p_calling_context = '|| p_calling_context;
326: pa_debug.write(l_module_name,pa_debug.g_err_stage,
327: PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
328: pa_debug.g_err_stage:= 'p_pp_st_dt = '|| p_pp_st_dt;
329: pa_debug.write(l_module_name,pa_debug.g_err_stage,
330: PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
331: pa_debug.g_err_stage:= 'p_pp_end_dt = '|| p_pp_end_dt;
332: pa_debug.write(l_module_name,pa_debug.g_err_stage,
325: pa_debug.g_err_stage:= 'p_calling_context = '|| p_calling_context;
326: pa_debug.write(l_module_name,pa_debug.g_err_stage,
327: PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
328: pa_debug.g_err_stage:= 'p_pp_st_dt = '|| p_pp_st_dt;
329: pa_debug.write(l_module_name,pa_debug.g_err_stage,
330: PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
331: pa_debug.g_err_stage:= 'p_pp_end_dt = '|| p_pp_end_dt;
332: pa_debug.write(l_module_name,pa_debug.g_err_stage,
333: PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
327: PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
328: pa_debug.g_err_stage:= 'p_pp_st_dt = '|| p_pp_st_dt;
329: pa_debug.write(l_module_name,pa_debug.g_err_stage,
330: PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
331: pa_debug.g_err_stage:= 'p_pp_end_dt = '|| p_pp_end_dt;
332: pa_debug.write(l_module_name,pa_debug.g_err_stage,
333: PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
334: pa_debug.g_err_stage:= 'p_plan_period_type = '|| p_plan_period_type;
335: pa_debug.write(l_module_name,pa_debug.g_err_stage,
328: pa_debug.g_err_stage:= 'p_pp_st_dt = '|| p_pp_st_dt;
329: pa_debug.write(l_module_name,pa_debug.g_err_stage,
330: PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
331: pa_debug.g_err_stage:= 'p_pp_end_dt = '|| p_pp_end_dt;
332: pa_debug.write(l_module_name,pa_debug.g_err_stage,
333: PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
334: pa_debug.g_err_stage:= 'p_plan_period_type = '|| p_plan_period_type;
335: pa_debug.write(l_module_name,pa_debug.g_err_stage,
336: PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
330: PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
331: pa_debug.g_err_stage:= 'p_pp_end_dt = '|| p_pp_end_dt;
332: pa_debug.write(l_module_name,pa_debug.g_err_stage,
333: PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
334: pa_debug.g_err_stage:= 'p_plan_period_type = '|| p_plan_period_type;
335: pa_debug.write(l_module_name,pa_debug.g_err_stage,
336: PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
337: pa_debug.g_err_stage:= 'p_resource_assignment_id = '|| p_resource_assignment_id;
338: pa_debug.write(l_module_name,pa_debug.g_err_stage,
331: pa_debug.g_err_stage:= 'p_pp_end_dt = '|| p_pp_end_dt;
332: pa_debug.write(l_module_name,pa_debug.g_err_stage,
333: PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
334: pa_debug.g_err_stage:= 'p_plan_period_type = '|| p_plan_period_type;
335: pa_debug.write(l_module_name,pa_debug.g_err_stage,
336: PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
337: pa_debug.g_err_stage:= 'p_resource_assignment_id = '|| p_resource_assignment_id;
338: pa_debug.write(l_module_name,pa_debug.g_err_stage,
339: PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
333: PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
334: pa_debug.g_err_stage:= 'p_plan_period_type = '|| p_plan_period_type;
335: pa_debug.write(l_module_name,pa_debug.g_err_stage,
336: PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
337: pa_debug.g_err_stage:= 'p_resource_assignment_id = '|| p_resource_assignment_id;
338: pa_debug.write(l_module_name,pa_debug.g_err_stage,
339: PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
340: pa_debug.g_err_stage:= 'p_transaction_currency_code = '|| p_transaction_currency_code;
341: pa_debug.write(l_module_name,pa_debug.g_err_stage,
334: pa_debug.g_err_stage:= 'p_plan_period_type = '|| p_plan_period_type;
335: pa_debug.write(l_module_name,pa_debug.g_err_stage,
336: PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
337: pa_debug.g_err_stage:= 'p_resource_assignment_id = '|| p_resource_assignment_id;
338: pa_debug.write(l_module_name,pa_debug.g_err_stage,
339: PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
340: pa_debug.g_err_stage:= 'p_transaction_currency_code = '|| p_transaction_currency_code;
341: pa_debug.write(l_module_name,pa_debug.g_err_stage,
342: PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
336: PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
337: pa_debug.g_err_stage:= 'p_resource_assignment_id = '|| p_resource_assignment_id;
338: pa_debug.write(l_module_name,pa_debug.g_err_stage,
339: PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
340: pa_debug.g_err_stage:= 'p_transaction_currency_code = '|| p_transaction_currency_code;
341: pa_debug.write(l_module_name,pa_debug.g_err_stage,
342: PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
343:
344: PA_UTILS.ADD_MESSAGE
337: pa_debug.g_err_stage:= 'p_resource_assignment_id = '|| p_resource_assignment_id;
338: pa_debug.write(l_module_name,pa_debug.g_err_stage,
339: PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
340: pa_debug.g_err_stage:= 'p_transaction_currency_code = '|| p_transaction_currency_code;
341: pa_debug.write(l_module_name,pa_debug.g_err_stage,
342: PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
343:
344: PA_UTILS.ADD_MESSAGE
345: (p_app_short_name => 'PA',
353: so checking txn curr code only for other cases */
354:
355: IF p_calling_context <> PA_FP_CONSTANTS_PKG.G_CALLING_CONTEXT_OTHER_CURR and
356: p_transaction_currency_code IS NULL THEN
357: IF p_pa_debug_mode = 'Y' THEN
358: pa_debug.g_err_stage:= 'p_calling_context = ' || p_calling_context;
359: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
360: pa_debug.g_err_stage:= 'p_transaction_currency_code is NULL';
361: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
354:
355: IF p_calling_context <> PA_FP_CONSTANTS_PKG.G_CALLING_CONTEXT_OTHER_CURR and
356: p_transaction_currency_code IS NULL THEN
357: IF p_pa_debug_mode = 'Y' THEN
358: pa_debug.g_err_stage:= 'p_calling_context = ' || p_calling_context;
359: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
360: pa_debug.g_err_stage:= 'p_transaction_currency_code is NULL';
361: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
362: END IF;
355: IF p_calling_context <> PA_FP_CONSTANTS_PKG.G_CALLING_CONTEXT_OTHER_CURR and
356: p_transaction_currency_code IS NULL THEN
357: IF p_pa_debug_mode = 'Y' THEN
358: pa_debug.g_err_stage:= 'p_calling_context = ' || p_calling_context;
359: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
360: pa_debug.g_err_stage:= 'p_transaction_currency_code is NULL';
361: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
362: END IF;
363: PA_UTILS.ADD_MESSAGE
356: p_transaction_currency_code IS NULL THEN
357: IF p_pa_debug_mode = 'Y' THEN
358: pa_debug.g_err_stage:= 'p_calling_context = ' || p_calling_context;
359: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
360: pa_debug.g_err_stage:= 'p_transaction_currency_code is NULL';
361: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
362: END IF;
363: PA_UTILS.ADD_MESSAGE
364: (p_app_short_name => 'PA',
357: IF p_pa_debug_mode = 'Y' THEN
358: pa_debug.g_err_stage:= 'p_calling_context = ' || p_calling_context;
359: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
360: pa_debug.g_err_stage:= 'p_transaction_currency_code is NULL';
361: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
362: END IF;
363: PA_UTILS.ADD_MESSAGE
364: (p_app_short_name => 'PA',
365: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
373: WHERE RESOURCE_ASSIGNMENT_ID = p_resource_assignment_id;
374:
375: EXCEPTION
376: WHEN OTHERS THEN
377: IF p_pa_debug_mode = 'Y' THEN
378: pa_debug.g_err_stage:= 'Error while selecting for the input resource assignment id ' ||
379: p_resource_assignment_id;
380: pa_debug.write(l_module_name,pa_debug.g_err_stage || SQLERRM,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
381: END IF;
374:
375: EXCEPTION
376: WHEN OTHERS THEN
377: IF p_pa_debug_mode = 'Y' THEN
378: pa_debug.g_err_stage:= 'Error while selecting for the input resource assignment id ' ||
379: p_resource_assignment_id;
380: pa_debug.write(l_module_name,pa_debug.g_err_stage || SQLERRM,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
381: END IF;
382: RAISE;
376: WHEN OTHERS THEN
377: IF p_pa_debug_mode = 'Y' THEN
378: pa_debug.g_err_stage:= 'Error while selecting for the input resource assignment id ' ||
379: p_resource_assignment_id;
380: pa_debug.write(l_module_name,pa_debug.g_err_stage || SQLERRM,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
381: END IF;
382: RAISE;
383: END;
384:
387: assignment id and also the txn curr code would be Null */
388:
389: IF p_calling_context <> PA_FP_CONSTANTS_PKG.G_CALLING_CONTEXT_OTHER_CURR THEN
390:
391: IF P_PA_DEBUG_MODE = 'Y' THEN
392: pa_debug.g_err_stage := 'Calling get_peceding_suceeding_pd_info ... ';
393: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
394: END IF;
395:
388:
389: IF p_calling_context <> PA_FP_CONSTANTS_PKG.G_CALLING_CONTEXT_OTHER_CURR THEN
390:
391: IF P_PA_DEBUG_MODE = 'Y' THEN
392: pa_debug.g_err_stage := 'Calling get_peceding_suceeding_pd_info ... ';
393: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
394: END IF;
395:
396: PA_FIN_PLAN_UTILS.GET_PECEDING_SUCEEDING_PD_INFO (
389: IF p_calling_context <> PA_FP_CONSTANTS_PKG.G_CALLING_CONTEXT_OTHER_CURR THEN
390:
391: IF P_PA_DEBUG_MODE = 'Y' THEN
392: pa_debug.g_err_stage := 'Calling get_peceding_suceeding_pd_info ... ';
393: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
394: END IF;
395:
396: PA_FIN_PLAN_UTILS.GET_PECEDING_SUCEEDING_PD_INFO (
397: p_resource_assignment_id => p_resource_assignment_id
404: ,x_msg_count => x_msg_count
405: ,x_msg_data => x_msg_data);
406:
407: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
408: IF P_PA_DEBUG_MODE = 'Y' THEN
409: pa_debug.g_err_stage := 'Call to get_peceding_suceeding_pd_info errored... ';
410: pa_debug.write(l_module_name,pa_debug.g_err_stage,5);
411: END IF;
412: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
405: ,x_msg_data => x_msg_data);
406:
407: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
408: IF P_PA_DEBUG_MODE = 'Y' THEN
409: pa_debug.g_err_stage := 'Call to get_peceding_suceeding_pd_info errored... ';
410: pa_debug.write(l_module_name,pa_debug.g_err_stage,5);
411: END IF;
412: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
413: END IF;
406:
407: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
408: IF P_PA_DEBUG_MODE = 'Y' THEN
409: pa_debug.g_err_stage := 'Call to get_peceding_suceeding_pd_info errored... ';
410: pa_debug.write(l_module_name,pa_debug.g_err_stage,5);
411: END IF;
412: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
413: END IF;
414:
434: FROM pa_projects_all p
435: WHERE p.project_id = l_project_id;
436: EXCEPTION
437: WHEN OTHERS THEN
438: IF P_PA_DEBUG_MODE = 'Y' THEN
439: pa_debug.g_err_stage := 'Error while selecting for the project id ' || l_project_id;
440: pa_debug.write(l_module_name,pa_debug.g_err_stage || ' ' || SQLERRM,5);
441: END IF;
442: Raise;
435: WHERE p.project_id = l_project_id;
436: EXCEPTION
437: WHEN OTHERS THEN
438: IF P_PA_DEBUG_MODE = 'Y' THEN
439: pa_debug.g_err_stage := 'Error while selecting for the project id ' || l_project_id;
440: pa_debug.write(l_module_name,pa_debug.g_err_stage || ' ' || SQLERRM,5);
441: END IF;
442: Raise;
443: END;
436: EXCEPTION
437: WHEN OTHERS THEN
438: IF P_PA_DEBUG_MODE = 'Y' THEN
439: pa_debug.g_err_stage := 'Error while selecting for the project id ' || l_project_id;
440: pa_debug.write(l_module_name,pa_debug.g_err_stage || ' ' || SQLERRM,5);
441: END IF;
442: Raise;
443: END;
444:
441: END IF;
442: Raise;
443: END;
444:
445: IF P_PA_DEBUG_MODE = 'Y' THEN
446: pa_debug.g_err_stage := 'Calling pa_fin_plan_utils apis...';
447: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
448: END IF;
449:
442: Raise;
443: END;
444:
445: IF P_PA_DEBUG_MODE = 'Y' THEN
446: pa_debug.g_err_stage := 'Calling pa_fin_plan_utils apis...';
447: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
448: END IF;
449:
450: l_time_phased_code := pa_fin_plan_utils.get_time_phased_code(
443: END;
444:
445: IF P_PA_DEBUG_MODE = 'Y' THEN
446: pa_debug.g_err_stage := 'Calling pa_fin_plan_utils apis...';
447: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
448: END IF;
449:
450: l_time_phased_code := pa_fin_plan_utils.get_time_phased_code(
451: p_fin_plan_version_id => l_budget_version_id);
481: /* Derive PD dates when these could not be found in pa_budget_lines. */
482:
483: IF x_pd_st_dt IS NULL THEN /* i.e. PD record could not be found in budget lines */
484:
485: IF P_PA_DEBUG_MODE = 'Y' THEN
486: pa_debug.g_err_stage := 'Preceding_prd_start_date IS NULL... ';
487: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
488: END IF;
489:
482:
483: IF x_pd_st_dt IS NULL THEN /* i.e. PD record could not be found in budget lines */
484:
485: IF P_PA_DEBUG_MODE = 'Y' THEN
486: pa_debug.g_err_stage := 'Preceding_prd_start_date IS NULL... ';
487: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
488: END IF;
489:
490: /* We need to derive PD period only if either project start is null or if period profile
483: IF x_pd_st_dt IS NULL THEN /* i.e. PD record could not be found in budget lines */
484:
485: IF P_PA_DEBUG_MODE = 'Y' THEN
486: pa_debug.g_err_stage := 'Preceding_prd_start_date IS NULL... ';
487: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
488: END IF;
489:
490: /* We need to derive PD period only if either project start is null or if period profile
491: starts after the project start date. (Business rule for creating pd period.) */
504: AND BUDGET_VERSION_ID = l_budget_version_id
505: AND BUCKETING_PERIOD_CODE = PA_FP_CONSTANTS_PKG.G_BUCKETING_PERIOD_CODE_PE;
506: END IF;
507:
508: IF P_PA_DEBUG_MODE = 'Y' THEN
509: pa_debug.g_err_stage := 'calling get_period_info ...';
510: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
511: END IF;
512:
505: AND BUCKETING_PERIOD_CODE = PA_FP_CONSTANTS_PKG.G_BUCKETING_PERIOD_CODE_PE;
506: END IF;
507:
508: IF P_PA_DEBUG_MODE = 'Y' THEN
509: pa_debug.g_err_stage := 'calling get_period_info ...';
510: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
511: END IF;
512:
513: PA_PLAN_MATRIX.GET_PERIOD_INFO
506: END IF;
507:
508: IF P_PA_DEBUG_MODE = 'Y' THEN
509: pa_debug.g_err_stage := 'calling get_period_info ...';
510: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
511: END IF;
512:
513: PA_PLAN_MATRIX.GET_PERIOD_INFO
514: (p_bucketing_period_code => PA_FP_CONSTANTS_PKG.G_BUCKETING_PERIOD_CODE_PD
526: ,x_msg_count => x_msg_count
527: ,x_msg_data => x_msg_data);
528:
529: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
530: IF P_PA_DEBUG_MODE = 'Y' THEN
531: pa_debug.g_err_stage := 'calling get_period_info - FAILED...';
532: pa_debug.write(l_module_name,pa_debug.g_err_stage,5);
533: END IF;
534: Raise PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
527: ,x_msg_data => x_msg_data);
528:
529: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
530: IF P_PA_DEBUG_MODE = 'Y' THEN
531: pa_debug.g_err_stage := 'calling get_period_info - FAILED...';
532: pa_debug.write(l_module_name,pa_debug.g_err_stage,5);
533: END IF;
534: Raise PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
535: END IF;
528:
529: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
530: IF P_PA_DEBUG_MODE = 'Y' THEN
531: pa_debug.g_err_stage := 'calling get_period_info - FAILED...';
532: pa_debug.write(l_module_name,pa_debug.g_err_stage,5);
533: END IF;
534: Raise PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
535: END IF;
536:
541: /* Derive SD dates when these could not be found in pa_budget_lines. */
542:
543: IF x_sd_st_dt IS NULL THEN
544:
545: IF P_PA_DEBUG_MODE = 'Y' THEN
546: pa_debug.g_err_stage := 'Succeeding_prd_start_date IS NULL... ';
547: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
548: END IF;
549:
542:
543: IF x_sd_st_dt IS NULL THEN
544:
545: IF P_PA_DEBUG_MODE = 'Y' THEN
546: pa_debug.g_err_stage := 'Succeeding_prd_start_date IS NULL... ';
547: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
548: END IF;
549:
550: /* We need to derive SD period only if either project end date is null or if period profile
543: IF x_sd_st_dt IS NULL THEN
544:
545: IF P_PA_DEBUG_MODE = 'Y' THEN
546: pa_debug.g_err_stage := 'Succeeding_prd_start_date IS NULL... ';
547: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
548: END IF;
549:
550: /* We need to derive SD period only if either project end date is null or if period profile
551: ends before the project end date. (Business rule for creating sd period.) */
564: AND BUDGET_VERSION_ID = l_budget_version_id
565: AND BUCKETING_PERIOD_CODE = PA_FP_CONSTANTS_PKG.G_BUCKETING_PERIOD_CODE_SE;
566: END IF;
567:
568: IF P_PA_DEBUG_MODE = 'Y' THEN
569: pa_debug.g_err_stage := 'calling get_period_info ...';
570: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
571: END IF;
572:
565: AND BUCKETING_PERIOD_CODE = PA_FP_CONSTANTS_PKG.G_BUCKETING_PERIOD_CODE_SE;
566: END IF;
567:
568: IF P_PA_DEBUG_MODE = 'Y' THEN
569: pa_debug.g_err_stage := 'calling get_period_info ...';
570: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
571: END IF;
572:
573: PA_PLAN_MATRIX.GET_PERIOD_INFO
566: END IF;
567:
568: IF P_PA_DEBUG_MODE = 'Y' THEN
569: pa_debug.g_err_stage := 'calling get_period_info ...';
570: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
571: END IF;
572:
573: PA_PLAN_MATRIX.GET_PERIOD_INFO
574: (p_bucketing_period_code => PA_FP_CONSTANTS_PKG.G_BUCKETING_PERIOD_CODE_SD
586: ,x_msg_count => x_msg_count
587: ,x_msg_data => x_msg_data);
588:
589: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
590: IF P_PA_DEBUG_MODE = 'Y' THEN
591: pa_debug.g_err_stage := 'calling get_period_info - FAILED...';
592: pa_debug.write(l_module_name,pa_debug.g_err_stage,5);
593: END IF;
594: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
587: ,x_msg_data => x_msg_data);
588:
589: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
590: IF P_PA_DEBUG_MODE = 'Y' THEN
591: pa_debug.g_err_stage := 'calling get_period_info - FAILED...';
592: pa_debug.write(l_module_name,pa_debug.g_err_stage,5);
593: END IF;
594: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
595: END IF;
588:
589: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
590: IF P_PA_DEBUG_MODE = 'Y' THEN
591: pa_debug.g_err_stage := 'calling get_period_info - FAILED...';
592: pa_debug.write(l_module_name,pa_debug.g_err_stage,5);
593: END IF;
594: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
595: END IF;
596:
599: END IF; /* x_sd_st_dt IS NULL */
600:
601: END IF; /* p_calling_context <> PA_FP_CONSTANTS_PKG.G_CALLING_CONTEXT_VIEW */
602:
603: IF p_pa_debug_mode = 'Y' THEN
604: pa_debug.g_err_stage:= 'Exiting DERIVE_PD_SD_START_END_DATES';
605: pa_debug.write(l_module_name,pa_debug.g_err_stage,
606: PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
607: pa_debug.reset_err_stack;
600:
601: END IF; /* p_calling_context <> PA_FP_CONSTANTS_PKG.G_CALLING_CONTEXT_VIEW */
602:
603: IF p_pa_debug_mode = 'Y' THEN
604: pa_debug.g_err_stage:= 'Exiting DERIVE_PD_SD_START_END_DATES';
605: pa_debug.write(l_module_name,pa_debug.g_err_stage,
606: PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
607: pa_debug.reset_err_stack;
608: END IF;
601: END IF; /* p_calling_context <> PA_FP_CONSTANTS_PKG.G_CALLING_CONTEXT_VIEW */
602:
603: IF p_pa_debug_mode = 'Y' THEN
604: pa_debug.g_err_stage:= 'Exiting DERIVE_PD_SD_START_END_DATES';
605: pa_debug.write(l_module_name,pa_debug.g_err_stage,
606: PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
607: pa_debug.reset_err_stack;
608: END IF;
609:
603: IF p_pa_debug_mode = 'Y' THEN
604: pa_debug.g_err_stage:= 'Exiting DERIVE_PD_SD_START_END_DATES';
605: pa_debug.write(l_module_name,pa_debug.g_err_stage,
606: PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
607: pa_debug.reset_err_stack;
608: END IF;
609:
610: EXCEPTION
611:
627: ELSE
628: x_msg_count := l_msg_count;
629: END IF;
630:
631: IF p_pa_debug_mode = 'Y' THEN
632: pa_debug.reset_err_stack;
633: END IF;
634: RAISE;
635:
628: x_msg_count := l_msg_count;
629: END IF;
630:
631: IF p_pa_debug_mode = 'Y' THEN
632: pa_debug.reset_err_stack;
633: END IF;
634: RAISE;
635:
636: WHEN OTHERS THEN
642: ( p_pkg_name => 'PA_FP_EDIT_LINE_PKG'
643: ,p_procedure_name => 'DERIVE_PD_SD_START_END_DATES'
644: ,p_error_text => x_msg_data);
645:
646: IF p_pa_debug_mode = 'Y' THEN
647: pa_debug.g_err_stage:= 'Unexpected Error'||x_msg_data;
648: pa_debug.write(l_module_name,pa_debug.g_err_stage,
649: PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
650: pa_debug.reset_err_stack;
643: ,p_procedure_name => 'DERIVE_PD_SD_START_END_DATES'
644: ,p_error_text => x_msg_data);
645:
646: IF p_pa_debug_mode = 'Y' THEN
647: pa_debug.g_err_stage:= 'Unexpected Error'||x_msg_data;
648: pa_debug.write(l_module_name,pa_debug.g_err_stage,
649: PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
650: pa_debug.reset_err_stack;
651: END IF;
644: ,p_error_text => x_msg_data);
645:
646: IF p_pa_debug_mode = 'Y' THEN
647: pa_debug.g_err_stage:= 'Unexpected Error'||x_msg_data;
648: pa_debug.write(l_module_name,pa_debug.g_err_stage,
649: PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
650: pa_debug.reset_err_stack;
651: END IF;
652: RAISE;
646: IF p_pa_debug_mode = 'Y' THEN
647: pa_debug.g_err_stage:= 'Unexpected Error'||x_msg_data;
648: pa_debug.write(l_module_name,pa_debug.g_err_stage,
649: PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
650: pa_debug.reset_err_stack;
651: END IF;
652: RAISE;
653:
654: END DERIVE_PD_SD_START_END_DATES;
838: END insert_dummy_record_pvt;
839:
840: BEGIN
841: -- Set the error stack.
842: pa_debug.set_err_stack('PA_FP_EDIT_LINE_PKG.POPULATE_ROLLUP_TMP');
843:
844: -- Get the Debug mode into local variable and set it to 'Y' if its NULL
845: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
846: l_debug_mode := NVL(l_debug_mode, 'Y');
841: -- Set the error stack.
842: pa_debug.set_err_stack('PA_FP_EDIT_LINE_PKG.POPULATE_ROLLUP_TMP');
843:
844: -- Get the Debug mode into local variable and set it to 'Y' if its NULL
845: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
846: l_debug_mode := NVL(l_debug_mode, 'Y');
847:
848: -- Initialize the return status to success
849: /* #2598389: Uncommented the following assignment. */
848: -- Initialize the return status to success
849: /* #2598389: Uncommented the following assignment. */
850: x_return_status := FND_API.G_RET_STS_SUCCESS;
851:
852: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
853:
854: -- Validating input parameters
855: IF p_calling_context IS NULL THEN
856:
853:
854: -- Validating input parameters
855: IF p_calling_context IS NULL THEN
856:
857: pa_debug.g_err_stage := 'calling context is null.';
858: IF P_PA_DEBUG_MODE = 'Y' THEN
859: pa_debug.write('POPULATE_ROLLUP_TMP: ' || l_module_name,pa_debug.g_err_stage,5);
860: END IF;
861:
854: -- Validating input parameters
855: IF p_calling_context IS NULL THEN
856:
857: pa_debug.g_err_stage := 'calling context is null.';
858: IF P_PA_DEBUG_MODE = 'Y' THEN
859: pa_debug.write('POPULATE_ROLLUP_TMP: ' || l_module_name,pa_debug.g_err_stage,5);
860: END IF;
861:
862: x_return_status := FND_API.G_RET_STS_ERROR;
855: IF p_calling_context IS NULL THEN
856:
857: pa_debug.g_err_stage := 'calling context is null.';
858: IF P_PA_DEBUG_MODE = 'Y' THEN
859: pa_debug.write('POPULATE_ROLLUP_TMP: ' || l_module_name,pa_debug.g_err_stage,5);
860: END IF;
861:
862: x_return_status := FND_API.G_RET_STS_ERROR;
863:
869: ELSIF p_calling_context = PA_FP_CONSTANTS_PKG.G_CALLING_CONTEXT_OTHER_CURR THEN
870:
871: IF p_resource_assignment_id IS NULL THEN
872:
873: pa_debug.g_err_stage := 'resource assignment id is null in edit in another currency.';
874: IF P_PA_DEBUG_MODE = 'Y' THEN
875: pa_debug.write('POPULATE_ROLLUP_TMP: ' || l_module_name,pa_debug.g_err_stage,5);
876: END IF;
877:
870:
871: IF p_resource_assignment_id IS NULL THEN
872:
873: pa_debug.g_err_stage := 'resource assignment id is null in edit in another currency.';
874: IF P_PA_DEBUG_MODE = 'Y' THEN
875: pa_debug.write('POPULATE_ROLLUP_TMP: ' || l_module_name,pa_debug.g_err_stage,5);
876: END IF;
877:
878: x_return_status := FND_API.G_RET_STS_ERROR;
871: IF p_resource_assignment_id IS NULL THEN
872:
873: pa_debug.g_err_stage := 'resource assignment id is null in edit in another currency.';
874: IF P_PA_DEBUG_MODE = 'Y' THEN
875: pa_debug.write('POPULATE_ROLLUP_TMP: ' || l_module_name,pa_debug.g_err_stage,5);
876: END IF;
877:
878: x_return_status := FND_API.G_RET_STS_ERROR;
879:
886:
887: IF p_resource_assignment_id IS NULL OR
888: p_txn_currency_code IS NULL
889: THEN
890: pa_debug.g_err_stage := 'one of the input parameter is null.';
891: IF P_PA_DEBUG_MODE = 'Y' THEN
892: pa_debug.write('POPULATE_ROLLUP_TMP: ' || l_module_name,pa_debug.g_err_stage,5);
893: END IF;
894:
887: IF p_resource_assignment_id IS NULL OR
888: p_txn_currency_code IS NULL
889: THEN
890: pa_debug.g_err_stage := 'one of the input parameter is null.';
891: IF P_PA_DEBUG_MODE = 'Y' THEN
892: pa_debug.write('POPULATE_ROLLUP_TMP: ' || l_module_name,pa_debug.g_err_stage,5);
893: END IF;
894:
895:
888: p_txn_currency_code IS NULL
889: THEN
890: pa_debug.g_err_stage := 'one of the input parameter is null.';
891: IF P_PA_DEBUG_MODE = 'Y' THEN
892: pa_debug.write('POPULATE_ROLLUP_TMP: ' || l_module_name,pa_debug.g_err_stage,5);
893: END IF;
894:
895:
896: pa_debug.g_err_stage := 'p_resource_assignment_id = ' || p_resource_assignment_id;
892: pa_debug.write('POPULATE_ROLLUP_TMP: ' || l_module_name,pa_debug.g_err_stage,5);
893: END IF;
894:
895:
896: pa_debug.g_err_stage := 'p_resource_assignment_id = ' || p_resource_assignment_id;
897: IF P_PA_DEBUG_MODE = 'Y' THEN
898: pa_debug.write('POPULATE_ROLLUP_TMP: ' || l_module_name,pa_debug.g_err_stage,5);
899: END IF;
900:
893: END IF;
894:
895:
896: pa_debug.g_err_stage := 'p_resource_assignment_id = ' || p_resource_assignment_id;
897: IF P_PA_DEBUG_MODE = 'Y' THEN
898: pa_debug.write('POPULATE_ROLLUP_TMP: ' || l_module_name,pa_debug.g_err_stage,5);
899: END IF;
900:
901: pa_debug.g_err_stage := 'p_txn_currency_code = ' || p_txn_currency_code;
894:
895:
896: pa_debug.g_err_stage := 'p_resource_assignment_id = ' || p_resource_assignment_id;
897: IF P_PA_DEBUG_MODE = 'Y' THEN
898: pa_debug.write('POPULATE_ROLLUP_TMP: ' || l_module_name,pa_debug.g_err_stage,5);
899: END IF;
900:
901: pa_debug.g_err_stage := 'p_txn_currency_code = ' || p_txn_currency_code;
902: IF P_PA_DEBUG_MODE = 'Y' THEN
897: IF P_PA_DEBUG_MODE = 'Y' THEN
898: pa_debug.write('POPULATE_ROLLUP_TMP: ' || l_module_name,pa_debug.g_err_stage,5);
899: END IF;
900:
901: pa_debug.g_err_stage := 'p_txn_currency_code = ' || p_txn_currency_code;
902: IF P_PA_DEBUG_MODE = 'Y' THEN
903: pa_debug.write('POPULATE_ROLLUP_TMP: ' || l_module_name,pa_debug.g_err_stage,5);
904: pa_debug.write('POPULATE_ROLLUP_TMP: ' || l_module_name,pa_debug.g_err_stage,5);
905: END IF;
898: pa_debug.write('POPULATE_ROLLUP_TMP: ' || l_module_name,pa_debug.g_err_stage,5);
899: END IF;
900:
901: pa_debug.g_err_stage := 'p_txn_currency_code = ' || p_txn_currency_code;
902: IF P_PA_DEBUG_MODE = 'Y' THEN
903: pa_debug.write('POPULATE_ROLLUP_TMP: ' || l_module_name,pa_debug.g_err_stage,5);
904: pa_debug.write('POPULATE_ROLLUP_TMP: ' || l_module_name,pa_debug.g_err_stage,5);
905: END IF;
906:
899: END IF;
900:
901: pa_debug.g_err_stage := 'p_txn_currency_code = ' || p_txn_currency_code;
902: IF P_PA_DEBUG_MODE = 'Y' THEN
903: pa_debug.write('POPULATE_ROLLUP_TMP: ' || l_module_name,pa_debug.g_err_stage,5);
904: pa_debug.write('POPULATE_ROLLUP_TMP: ' || l_module_name,pa_debug.g_err_stage,5);
905: END IF;
906:
907: x_return_status := FND_API.G_RET_STS_ERROR;
900:
901: pa_debug.g_err_stage := 'p_txn_currency_code = ' || p_txn_currency_code;
902: IF P_PA_DEBUG_MODE = 'Y' THEN
903: pa_debug.write('POPULATE_ROLLUP_TMP: ' || l_module_name,pa_debug.g_err_stage,5);
904: pa_debug.write('POPULATE_ROLLUP_TMP: ' || l_module_name,pa_debug.g_err_stage,5);
905: END IF;
906:
907: x_return_status := FND_API.G_RET_STS_ERROR;
908:
912: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
913: END IF;
914: END IF;
915:
916: pa_debug.g_err_stage := 'p_calling_context = ' || p_calling_context;
917: IF P_PA_DEBUG_MODE = 'Y' THEN
918: pa_debug.write('POPULATE_ROLLUP_TMP: ' || l_module_name,pa_debug.g_err_stage,5);
919: END IF;
920:
913: END IF;
914: END IF;
915:
916: pa_debug.g_err_stage := 'p_calling_context = ' || p_calling_context;
917: IF P_PA_DEBUG_MODE = 'Y' THEN
918: pa_debug.write('POPULATE_ROLLUP_TMP: ' || l_module_name,pa_debug.g_err_stage,5);
919: END IF;
920:
921: pa_debug.g_err_stage := 'p_resource_assignment_id = ' || p_resource_assignment_id;
914: END IF;
915:
916: pa_debug.g_err_stage := 'p_calling_context = ' || p_calling_context;
917: IF P_PA_DEBUG_MODE = 'Y' THEN
918: pa_debug.write('POPULATE_ROLLUP_TMP: ' || l_module_name,pa_debug.g_err_stage,5);
919: END IF;
920:
921: pa_debug.g_err_stage := 'p_resource_assignment_id = ' || p_resource_assignment_id;
922: IF P_PA_DEBUG_MODE = 'Y' THEN
917: IF P_PA_DEBUG_MODE = 'Y' THEN
918: pa_debug.write('POPULATE_ROLLUP_TMP: ' || l_module_name,pa_debug.g_err_stage,5);
919: END IF;
920:
921: pa_debug.g_err_stage := 'p_resource_assignment_id = ' || p_resource_assignment_id;
922: IF P_PA_DEBUG_MODE = 'Y' THEN
923: pa_debug.write('POPULATE_ROLLUP_TMP: ' || l_module_name,pa_debug.g_err_stage,5);
924: END IF;
925:
918: pa_debug.write('POPULATE_ROLLUP_TMP: ' || l_module_name,pa_debug.g_err_stage,5);
919: END IF;
920:
921: pa_debug.g_err_stage := 'p_resource_assignment_id = ' || p_resource_assignment_id;
922: IF P_PA_DEBUG_MODE = 'Y' THEN
923: pa_debug.write('POPULATE_ROLLUP_TMP: ' || l_module_name,pa_debug.g_err_stage,5);
924: END IF;
925:
926: pa_debug.g_err_stage := 'p_txn_currency_code = ' || p_txn_currency_code;
919: END IF;
920:
921: pa_debug.g_err_stage := 'p_resource_assignment_id = ' || p_resource_assignment_id;
922: IF P_PA_DEBUG_MODE = 'Y' THEN
923: pa_debug.write('POPULATE_ROLLUP_TMP: ' || l_module_name,pa_debug.g_err_stage,5);
924: END IF;
925:
926: pa_debug.g_err_stage := 'p_txn_currency_code = ' || p_txn_currency_code;
927: IF P_PA_DEBUG_MODE = 'Y' THEN
922: IF P_PA_DEBUG_MODE = 'Y' THEN
923: pa_debug.write('POPULATE_ROLLUP_TMP: ' || l_module_name,pa_debug.g_err_stage,5);
924: END IF;
925:
926: pa_debug.g_err_stage := 'p_txn_currency_code = ' || p_txn_currency_code;
927: IF P_PA_DEBUG_MODE = 'Y' THEN
928: pa_debug.write('POPULATE_ROLLUP_TMP: ' || l_module_name,pa_debug.g_err_stage,5);
929: END IF;
930:
923: pa_debug.write('POPULATE_ROLLUP_TMP: ' || l_module_name,pa_debug.g_err_stage,5);
924: END IF;
925:
926: pa_debug.g_err_stage := 'p_txn_currency_code = ' || p_txn_currency_code;
927: IF P_PA_DEBUG_MODE = 'Y' THEN
928: pa_debug.write('POPULATE_ROLLUP_TMP: ' || l_module_name,pa_debug.g_err_stage,5);
929: END IF;
930:
931: pa_debug.g_err_stage := 'calling populate local variables';
924: END IF;
925:
926: pa_debug.g_err_stage := 'p_txn_currency_code = ' || p_txn_currency_code;
927: IF P_PA_DEBUG_MODE = 'Y' THEN
928: pa_debug.write('POPULATE_ROLLUP_TMP: ' || l_module_name,pa_debug.g_err_stage,5);
929: END IF;
930:
931: pa_debug.g_err_stage := 'calling populate local variables';
932: IF P_PA_DEBUG_MODE = 'Y' THEN
927: IF P_PA_DEBUG_MODE = 'Y' THEN
928: pa_debug.write('POPULATE_ROLLUP_TMP: ' || l_module_name,pa_debug.g_err_stage,5);
929: END IF;
930:
931: pa_debug.g_err_stage := 'calling populate local variables';
932: IF P_PA_DEBUG_MODE = 'Y' THEN
933: pa_debug.write('POPULATE_ROLLUP_TMP: ' || l_module_name,pa_debug.g_err_stage,3);
934: END IF;
935:
928: pa_debug.write('POPULATE_ROLLUP_TMP: ' || l_module_name,pa_debug.g_err_stage,5);
929: END IF;
930:
931: pa_debug.g_err_stage := 'calling populate local variables';
932: IF P_PA_DEBUG_MODE = 'Y' THEN
933: pa_debug.write('POPULATE_ROLLUP_TMP: ' || l_module_name,pa_debug.g_err_stage,3);
934: END IF;
935:
936: POPULATE_LOCAL_VARIABLES(
929: END IF;
930:
931: pa_debug.g_err_stage := 'calling populate local variables';
932: IF P_PA_DEBUG_MODE = 'Y' THEN
933: pa_debug.write('POPULATE_ROLLUP_TMP: ' || l_module_name,pa_debug.g_err_stage,3);
934: END IF;
935:
936: POPULATE_LOCAL_VARIABLES(
937: p_resource_assignment_id => p_resource_assignment_id
960: ,x_msg_count => l_msg_count
961: ,x_msg_data => l_msg_data
962: );
963:
964: pa_debug.g_err_stage := ':l_period_profile_id = ' || l_period_profile_id;
965: IF P_PA_DEBUG_MODE = 'Y' THEN
966: pa_debug.write('POPULATE_ROLLUP_TMP: ' || l_module_name,pa_debug.g_err_stage,3);
967: END IF;
968:
961: ,x_msg_data => l_msg_data
962: );
963:
964: pa_debug.g_err_stage := ':l_period_profile_id = ' || l_period_profile_id;
965: IF P_PA_DEBUG_MODE = 'Y' THEN
966: pa_debug.write('POPULATE_ROLLUP_TMP: ' || l_module_name,pa_debug.g_err_stage,3);
967: END IF;
968:
969: IF l_time_phased_code IN (PA_FP_CONSTANTS_PKG.G_TIME_PHASED_CODE_P,PA_FP_CONSTANTS_PKG.G_TIME_PHASED_CODE_G) THEN
962: );
963:
964: pa_debug.g_err_stage := ':l_period_profile_id = ' || l_period_profile_id;
965: IF P_PA_DEBUG_MODE = 'Y' THEN
966: pa_debug.write('POPULATE_ROLLUP_TMP: ' || l_module_name,pa_debug.g_err_stage,3);
967: END IF;
968:
969: IF l_time_phased_code IN (PA_FP_CONSTANTS_PKG.G_TIME_PHASED_CODE_P,PA_FP_CONSTANTS_PKG.G_TIME_PHASED_CODE_G) THEN
970:
968:
969: IF l_time_phased_code IN (PA_FP_CONSTANTS_PKG.G_TIME_PHASED_CODE_P,PA_FP_CONSTANTS_PKG.G_TIME_PHASED_CODE_G) THEN
970:
971: IF l_period_profile_id IS NULL THEN
972: pa_debug.g_err_stage := 'period_profile_id is null when time phasing is PA or GL ';
973: IF P_PA_DEBUG_MODE = 'Y' THEN
974: pa_debug.write('POPULATE_ROLLUP_TMP: ' || l_module_name,pa_debug.g_err_stage,3);
975: END IF;
976: /* Bug # 2617990 */
969: IF l_time_phased_code IN (PA_FP_CONSTANTS_PKG.G_TIME_PHASED_CODE_P,PA_FP_CONSTANTS_PKG.G_TIME_PHASED_CODE_G) THEN
970:
971: IF l_period_profile_id IS NULL THEN
972: pa_debug.g_err_stage := 'period_profile_id is null when time phasing is PA or GL ';
973: IF P_PA_DEBUG_MODE = 'Y' THEN
974: pa_debug.write('POPULATE_ROLLUP_TMP: ' || l_module_name,pa_debug.g_err_stage,3);
975: END IF;
976: /* Bug # 2617990 */
977: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
970:
971: IF l_period_profile_id IS NULL THEN
972: pa_debug.g_err_stage := 'period_profile_id is null when time phasing is PA or GL ';
973: IF P_PA_DEBUG_MODE = 'Y' THEN
974: pa_debug.write('POPULATE_ROLLUP_TMP: ' || l_module_name,pa_debug.g_err_stage,3);
975: END IF;
976: /* Bug # 2617990 */
977: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
978: p_msg_name => 'PA_FP_PERIODPROFILE_UNDEFINED');
983:
984: IF l_time_phased_code = PA_FP_CONSTANTS_PKG.G_TIME_PHASED_CODE_N THEN
985: IF l_fin_plan_level_code = PA_FP_CONSTANTS_PKG.G_BUDGET_ENTRY_LEVEL_PROJECT THEN
986: IF l_project_start_date IS NULL or l_project_end_date IS NULL THEN
987: pa_debug.g_err_stage := 'for time phase none and entry level project, project start date and end date must be not null';
988: IF P_PA_DEBUG_MODE = 'Y' THEN
989: pa_debug.write('POPULATE_ROLLUP_TMP: ' || l_module_name,pa_debug.g_err_stage,3);
990: END IF;
991: raise PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
984: IF l_time_phased_code = PA_FP_CONSTANTS_PKG.G_TIME_PHASED_CODE_N THEN
985: IF l_fin_plan_level_code = PA_FP_CONSTANTS_PKG.G_BUDGET_ENTRY_LEVEL_PROJECT THEN
986: IF l_project_start_date IS NULL or l_project_end_date IS NULL THEN
987: pa_debug.g_err_stage := 'for time phase none and entry level project, project start date and end date must be not null';
988: IF P_PA_DEBUG_MODE = 'Y' THEN
989: pa_debug.write('POPULATE_ROLLUP_TMP: ' || l_module_name,pa_debug.g_err_stage,3);
990: END IF;
991: raise PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
992: END IF;
985: IF l_fin_plan_level_code = PA_FP_CONSTANTS_PKG.G_BUDGET_ENTRY_LEVEL_PROJECT THEN
986: IF l_project_start_date IS NULL or l_project_end_date IS NULL THEN
987: pa_debug.g_err_stage := 'for time phase none and entry level project, project start date and end date must be not null';
988: IF P_PA_DEBUG_MODE = 'Y' THEN
989: pa_debug.write('POPULATE_ROLLUP_TMP: ' || l_module_name,pa_debug.g_err_stage,3);
990: END IF;
991: raise PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
992: END IF;
993: ELSE
993: ELSE
994: /*bug 3182883 if calling context is 'VIEW' do not throw error*/
995: IF (l_task_start_date IS NULL or l_task_end_date IS NULL)
996: AND (p_calling_context <> 'VIEW') THEN
997: pa_debug.g_err_stage := 'for time phase none and entry level task, task start date and end date must be not null';
998: IF P_PA_DEBUG_MODE = 'Y' THEN
999: pa_debug.write('POPULATE_ROLLUP_TMP: ' || l_module_name,pa_debug.g_err_stage,3);
1000: END IF;
1001: raise PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
994: /*bug 3182883 if calling context is 'VIEW' do not throw error*/
995: IF (l_task_start_date IS NULL or l_task_end_date IS NULL)
996: AND (p_calling_context <> 'VIEW') THEN
997: pa_debug.g_err_stage := 'for time phase none and entry level task, task start date and end date must be not null';
998: IF P_PA_DEBUG_MODE = 'Y' THEN
999: pa_debug.write('POPULATE_ROLLUP_TMP: ' || l_module_name,pa_debug.g_err_stage,3);
1000: END IF;
1001: raise PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
1002: END IF;
995: IF (l_task_start_date IS NULL or l_task_end_date IS NULL)
996: AND (p_calling_context <> 'VIEW') THEN
997: pa_debug.g_err_stage := 'for time phase none and entry level task, task start date and end date must be not null';
998: IF P_PA_DEBUG_MODE = 'Y' THEN
999: pa_debug.write('POPULATE_ROLLUP_TMP: ' || l_module_name,pa_debug.g_err_stage,3);
1000: END IF;
1001: raise PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
1002: END IF;
1003: END IF;
1011: be null, we need not call get_preceding_succeeding_amt */
1012:
1013: IF p_calling_context <> PA_FP_CONSTANTS_PKG.G_CALLING_CONTEXT_OTHER_CURR THEN
1014:
1015: pa_debug.g_err_stage := 'calling get_preceding_succeeding_amt';
1016: IF P_PA_DEBUG_MODE = 'Y' THEN
1017: pa_debug.write('POPULATE_ROLLUP_TMP: ' || l_module_name,pa_debug.g_err_stage,3);
1018: END IF;
1019:
1012:
1013: IF p_calling_context <> PA_FP_CONSTANTS_PKG.G_CALLING_CONTEXT_OTHER_CURR THEN
1014:
1015: pa_debug.g_err_stage := 'calling get_preceding_succeeding_amt';
1016: IF P_PA_DEBUG_MODE = 'Y' THEN
1017: pa_debug.write('POPULATE_ROLLUP_TMP: ' || l_module_name,pa_debug.g_err_stage,3);
1018: END IF;
1019:
1020: GET_PRECEDING_SUCCEEDING_AMT(
1013: IF p_calling_context <> PA_FP_CONSTANTS_PKG.G_CALLING_CONTEXT_OTHER_CURR THEN
1014:
1015: pa_debug.g_err_stage := 'calling get_preceding_succeeding_amt';
1016: IF P_PA_DEBUG_MODE = 'Y' THEN
1017: pa_debug.write('POPULATE_ROLLUP_TMP: ' || l_module_name,pa_debug.g_err_stage,3);
1018: END IF;
1019:
1020: GET_PRECEDING_SUCCEEDING_AMT(
1021: p_budget_version_id => l_fin_plan_version_id
1085: l_max_start_date := l_period_profile_end_date;
1086:
1087: END IF;
1088:
1089: IF P_PA_DEBUG_MODE = 'Y' THEN
1090: pa_debug.g_err_stage := 'calling populate_eligible_periods ';
1091: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
1092: END IF;
1093:
1086:
1087: END IF;
1088:
1089: IF P_PA_DEBUG_MODE = 'Y' THEN
1090: pa_debug.g_err_stage := 'calling populate_eligible_periods ';
1091: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
1092: END IF;
1093:
1094: /* Calling populate_eligible_periods to populate the period date from
1087: END IF;
1088:
1089: IF P_PA_DEBUG_MODE = 'Y' THEN
1090: pa_debug.g_err_stage := 'calling populate_eligible_periods ';
1091: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
1092: END IF;
1093:
1094: /* Calling populate_eligible_periods to populate the period date from
1095: l_min_start_date to l_max_start_date inclusive of the
1114: END IF;
1115:
1116: DELETE FROM PA_FP_ROLLUP_TMP;
1117:
1118: IF P_PA_DEBUG_MODE = 'Y' THEN
1119: pa_debug.g_err_stage:='deleted '||sql%rowcount || ' records from PA_FP_ROLLUP_TMP table' ;
1120: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
1121: END IF;
1122:
1115:
1116: DELETE FROM PA_FP_ROLLUP_TMP;
1117:
1118: IF P_PA_DEBUG_MODE = 'Y' THEN
1119: pa_debug.g_err_stage:='deleted '||sql%rowcount || ' records from PA_FP_ROLLUP_TMP table' ;
1120: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
1121: END IF;
1122:
1123:
1116: DELETE FROM PA_FP_ROLLUP_TMP;
1117:
1118: IF P_PA_DEBUG_MODE = 'Y' THEN
1119: pa_debug.g_err_stage:='deleted '||sql%rowcount || ' records from PA_FP_ROLLUP_TMP table' ;
1120: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
1121: END IF;
1122:
1123:
1124: OPEN MC_CUR(l_fin_plan_version_id,p_txn_currency_code);
1126: CLOSE MC_CUR;
1127:
1128: /* Enhancement bug # 2593167 : starts */
1129:
1130: IF P_PA_DEBUG_MODE = 'Y' THEN
1131: pa_debug.g_err_stage:='time phasing is '|| l_time_phased_code ||
1132: ' before getting project start / end date period start / end dates';
1133: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
1134: END IF;
1127:
1128: /* Enhancement bug # 2593167 : starts */
1129:
1130: IF P_PA_DEBUG_MODE = 'Y' THEN
1131: pa_debug.g_err_stage:='time phasing is '|| l_time_phased_code ||
1132: ' before getting project start / end date period start / end dates';
1133: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
1134: END IF;
1135:
1129:
1130: IF P_PA_DEBUG_MODE = 'Y' THEN
1131: pa_debug.g_err_stage:='time phasing is '|| l_time_phased_code ||
1132: ' before getting project start / end date period start / end dates';
1133: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
1134: END IF;
1135:
1136: IF l_period_profile_id IS NOT NULL THEN
1137:
1359: AND pbl.resource_assignment_id(+) = p_resource_assignment_id
1360: AND pbl.start_date(+) = tmp.start_date
1361: AND pbl.txn_currency_code(+) = p_txn_currency_code);
1362:
1363: IF P_PA_DEBUG_MODE = 'Y' THEN
1364: pa_debug.g_err_stage := ':inserted ' || sql%rowcount || ' records ';
1365: pa_debug.write('POPULATE_ROLLUP_TMP: ' || l_module_name,pa_debug.g_err_stage,3);
1366: END IF;
1367:
1360: AND pbl.start_date(+) = tmp.start_date
1361: AND pbl.txn_currency_code(+) = p_txn_currency_code);
1362:
1363: IF P_PA_DEBUG_MODE = 'Y' THEN
1364: pa_debug.g_err_stage := ':inserted ' || sql%rowcount || ' records ';
1365: pa_debug.write('POPULATE_ROLLUP_TMP: ' || l_module_name,pa_debug.g_err_stage,3);
1366: END IF;
1367:
1368: /* when period profile is null we can assume that the case is either date range or none */
1361: AND pbl.txn_currency_code(+) = p_txn_currency_code);
1362:
1363: IF P_PA_DEBUG_MODE = 'Y' THEN
1364: pa_debug.g_err_stage := ':inserted ' || sql%rowcount || ' records ';
1365: pa_debug.write('POPULATE_ROLLUP_TMP: ' || l_module_name,pa_debug.g_err_stage,3);
1366: END IF;
1367:
1368: /* when period profile is null we can assume that the case is either date range or none */
1369:
1368: /* when period profile is null we can assume that the case is either date range or none */
1369:
1370: ELSE /* IF time phased code in G_TIME_PHASED_CODE_P G_TIME_PHASED_CODE_G */
1371:
1372: pa_debug.g_err_stage := ':period profile id is null and so time phasing should be none or date range';
1373: IF P_PA_DEBUG_MODE = 'Y' THEN
1374: pa_debug.write('POPULATE_ROLLUP_TMP: ' || l_module_name,pa_debug.g_err_stage,3);
1375: END IF;
1376: /* bvarnasi added case for timephasing NONE */
1369:
1370: ELSE /* IF time phased code in G_TIME_PHASED_CODE_P G_TIME_PHASED_CODE_G */
1371:
1372: pa_debug.g_err_stage := ':period profile id is null and so time phasing should be none or date range';
1373: IF P_PA_DEBUG_MODE = 'Y' THEN
1374: pa_debug.write('POPULATE_ROLLUP_TMP: ' || l_module_name,pa_debug.g_err_stage,3);
1375: END IF;
1376: /* bvarnasi added case for timephasing NONE */
1377:
1370: ELSE /* IF time phased code in G_TIME_PHASED_CODE_P G_TIME_PHASED_CODE_G */
1371:
1372: pa_debug.g_err_stage := ':period profile id is null and so time phasing should be none or date range';
1373: IF P_PA_DEBUG_MODE = 'Y' THEN
1374: pa_debug.write('POPULATE_ROLLUP_TMP: ' || l_module_name,pa_debug.g_err_stage,3);
1375: END IF;
1376: /* bvarnasi added case for timephasing NONE */
1377:
1378: DECLARE
1399: l_start_date := null;
1400: l_end_date := null;
1401: END IF;
1402:
1403: pa_debug.g_err_stage := 'time phasing none and start / end dates are : '|| l_start_date ||' , '||l_end_date;
1404: IF P_PA_DEBUG_MODE = 'Y' THEN
1405: pa_debug.write('POPULATE_ROLLUP_TMP: ' || l_module_name,pa_debug.g_err_stage,3);
1406: END IF;
1407:
1400: l_end_date := null;
1401: END IF;
1402:
1403: pa_debug.g_err_stage := 'time phasing none and start / end dates are : '|| l_start_date ||' , '||l_end_date;
1404: IF P_PA_DEBUG_MODE = 'Y' THEN
1405: pa_debug.write('POPULATE_ROLLUP_TMP: ' || l_module_name,pa_debug.g_err_stage,3);
1406: END IF;
1407:
1408: INSERT INTO PA_FP_ROLLUP_TMP
1401: END IF;
1402:
1403: pa_debug.g_err_stage := 'time phasing none and start / end dates are : '|| l_start_date ||' , '||l_end_date;
1404: IF P_PA_DEBUG_MODE = 'Y' THEN
1405: pa_debug.write('POPULATE_ROLLUP_TMP: ' || l_module_name,pa_debug.g_err_stage,3);
1406: END IF;
1407:
1408: INSERT INTO PA_FP_ROLLUP_TMP
1409: ( ROLLUP_ID
1587: END IF;
1588: END IF;
1589: END IF;
1590:
1591: pa_debug.g_err_stage := 'inserted ' || sql%rowcount || ' records';
1592: IF P_PA_DEBUG_MODE = 'Y' THEN
1593: pa_debug.write('POPULATE_ROLLUP_TMP: ' || l_module_name,pa_debug.g_err_stage,3);
1594: END IF;
1595: END;
1588: END IF;
1589: END IF;
1590:
1591: pa_debug.g_err_stage := 'inserted ' || sql%rowcount || ' records';
1592: IF P_PA_DEBUG_MODE = 'Y' THEN
1593: pa_debug.write('POPULATE_ROLLUP_TMP: ' || l_module_name,pa_debug.g_err_stage,3);
1594: END IF;
1595: END;
1596:
1589: END IF;
1590:
1591: pa_debug.g_err_stage := 'inserted ' || sql%rowcount || ' records';
1592: IF P_PA_DEBUG_MODE = 'Y' THEN
1593: pa_debug.write('POPULATE_ROLLUP_TMP: ' || l_module_name,pa_debug.g_err_stage,3);
1594: END IF;
1595: END;
1596:
1597: END IF;
1595: END;
1596:
1597: END IF;
1598:
1599: pa_debug.reset_err_stack; /* Bug 2699888 */
1600:
1601: EXCEPTION
1602: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
1603: x_return_status := FND_API.G_RET_STS_ERROR;
1616: ELSE
1617: x_msg_count := l_msg_count;
1618: END IF;
1619:
1620: IF P_PA_DEBUG_MODE = 'Y' THEN
1621: pa_debug.write('POPULATE_ROLLUP_TMP: ' || l_module_name,'Invalid arguments passed',5);
1622: pa_debug.write('POPULATE_ROLLUP_TMP: ' || l_module_name,pa_debug.G_Err_Stack,5);
1623: END IF;
1624: pa_debug.reset_err_stack;
1617: x_msg_count := l_msg_count;
1618: END IF;
1619:
1620: IF P_PA_DEBUG_MODE = 'Y' THEN
1621: pa_debug.write('POPULATE_ROLLUP_TMP: ' || l_module_name,'Invalid arguments passed',5);
1622: pa_debug.write('POPULATE_ROLLUP_TMP: ' || l_module_name,pa_debug.G_Err_Stack,5);
1623: END IF;
1624: pa_debug.reset_err_stack;
1625:
1618: END IF;
1619:
1620: IF P_PA_DEBUG_MODE = 'Y' THEN
1621: pa_debug.write('POPULATE_ROLLUP_TMP: ' || l_module_name,'Invalid arguments passed',5);
1622: pa_debug.write('POPULATE_ROLLUP_TMP: ' || l_module_name,pa_debug.G_Err_Stack,5);
1623: END IF;
1624: pa_debug.reset_err_stack;
1625:
1626: RETURN;
1620: IF P_PA_DEBUG_MODE = 'Y' THEN
1621: pa_debug.write('POPULATE_ROLLUP_TMP: ' || l_module_name,'Invalid arguments passed',5);
1622: pa_debug.write('POPULATE_ROLLUP_TMP: ' || l_module_name,pa_debug.G_Err_Stack,5);
1623: END IF;
1624: pa_debug.reset_err_stack;
1625:
1626: RETURN;
1627:
1628: WHEN OTHERS THEN
1630: x_msg_count := 1;
1631: x_msg_data := SQLERRM;
1632: FND_MSG_PUB.add_exc_msg
1633: ( p_pkg_name => 'PA_FP_EDIT_LINE_PKG.POPULATE_ROLLUP_TMP'
1634: ,p_procedure_name => pa_debug.G_Err_Stack );
1635: pa_debug.G_Err_Stack := SQLERRM;
1636: IF P_PA_DEBUG_MODE = 'Y' THEN
1637: pa_debug.write('POPULATE_ROLLUP_TMP: ' || l_module_name,pa_debug.G_Err_Stack,4);
1638: END IF;
1631: x_msg_data := SQLERRM;
1632: FND_MSG_PUB.add_exc_msg
1633: ( p_pkg_name => 'PA_FP_EDIT_LINE_PKG.POPULATE_ROLLUP_TMP'
1634: ,p_procedure_name => pa_debug.G_Err_Stack );
1635: pa_debug.G_Err_Stack := SQLERRM;
1636: IF P_PA_DEBUG_MODE = 'Y' THEN
1637: pa_debug.write('POPULATE_ROLLUP_TMP: ' || l_module_name,pa_debug.G_Err_Stack,4);
1638: END IF;
1639: pa_debug.reset_err_stack;
1632: FND_MSG_PUB.add_exc_msg
1633: ( p_pkg_name => 'PA_FP_EDIT_LINE_PKG.POPULATE_ROLLUP_TMP'
1634: ,p_procedure_name => pa_debug.G_Err_Stack );
1635: pa_debug.G_Err_Stack := SQLERRM;
1636: IF P_PA_DEBUG_MODE = 'Y' THEN
1637: pa_debug.write('POPULATE_ROLLUP_TMP: ' || l_module_name,pa_debug.G_Err_Stack,4);
1638: END IF;
1639: pa_debug.reset_err_stack;
1640:
1633: ( p_pkg_name => 'PA_FP_EDIT_LINE_PKG.POPULATE_ROLLUP_TMP'
1634: ,p_procedure_name => pa_debug.G_Err_Stack );
1635: pa_debug.G_Err_Stack := SQLERRM;
1636: IF P_PA_DEBUG_MODE = 'Y' THEN
1637: pa_debug.write('POPULATE_ROLLUP_TMP: ' || l_module_name,pa_debug.G_Err_Stack,4);
1638: END IF;
1639: pa_debug.reset_err_stack;
1640:
1641: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1635: pa_debug.G_Err_Stack := SQLERRM;
1636: IF P_PA_DEBUG_MODE = 'Y' THEN
1637: pa_debug.write('POPULATE_ROLLUP_TMP: ' || l_module_name,pa_debug.G_Err_Stack,4);
1638: END IF;
1639: pa_debug.reset_err_stack;
1640:
1641: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1642:
1643: END POPULATE_ROLLUP_TMP;
1698:
1699: BEGIN
1700:
1701: -- Set the error stack.
1702: pa_debug.set_err_stack('PA_FP_EDIT_LINE_PKG.PROCESS_MODIFIED_LINES');
1703:
1704: -- Get the Debug mode into local variable and set it to 'Y' if its NULL
1705: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
1706: l_debug_mode := NVL(l_debug_mode, 'Y');
1701: -- Set the error stack.
1702: pa_debug.set_err_stack('PA_FP_EDIT_LINE_PKG.PROCESS_MODIFIED_LINES');
1703:
1704: -- Get the Debug mode into local variable and set it to 'Y' if its NULL
1705: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
1706: l_debug_mode := NVL(l_debug_mode, 'Y');
1707:
1708: -- Initialize the return status to success
1709: x_return_status := FND_API.G_RET_STS_SUCCESS;
1707:
1708: -- Initialize the return status to success
1709: x_return_status := FND_API.G_RET_STS_SUCCESS;
1710:
1711: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
1712:
1713: pa_debug.g_err_stage := TO_CHAR(l_stage)||':In PA_FP_EDIT_LINE_PKG.PROCESS_MODIFIED_LINES ';
1714: IF P_PA_DEBUG_MODE = 'Y' THEN
1715: pa_debug.write('PROCESS_MODIFIED_LINES: ' || l_module_name,pa_debug.g_err_stage,3);
1709: x_return_status := FND_API.G_RET_STS_SUCCESS;
1710:
1711: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
1712:
1713: pa_debug.g_err_stage := TO_CHAR(l_stage)||':In PA_FP_EDIT_LINE_PKG.PROCESS_MODIFIED_LINES ';
1714: IF P_PA_DEBUG_MODE = 'Y' THEN
1715: pa_debug.write('PROCESS_MODIFIED_LINES: ' || l_module_name,pa_debug.g_err_stage,3);
1716: END IF;
1717:
1710:
1711: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
1712:
1713: pa_debug.g_err_stage := TO_CHAR(l_stage)||':In PA_FP_EDIT_LINE_PKG.PROCESS_MODIFIED_LINES ';
1714: IF P_PA_DEBUG_MODE = 'Y' THEN
1715: pa_debug.write('PROCESS_MODIFIED_LINES: ' || l_module_name,pa_debug.g_err_stage,3);
1716: END IF;
1717:
1718: -- Validating for the Input Parameters
1711: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
1712:
1713: pa_debug.g_err_stage := TO_CHAR(l_stage)||':In PA_FP_EDIT_LINE_PKG.PROCESS_MODIFIED_LINES ';
1714: IF P_PA_DEBUG_MODE = 'Y' THEN
1715: pa_debug.write('PROCESS_MODIFIED_LINES: ' || l_module_name,pa_debug.g_err_stage,3);
1716: END IF;
1717:
1718: -- Validating for the Input Parameters
1719:
1718: -- Validating for the Input Parameters
1719:
1720: IF p_resource_assignment_id IS NULL AND p_fin_plan_version_id IS NULL THEN
1721:
1722: pa_debug.g_err_stage := 'both p_resource_assignment_id and budget version id cannot be null.';
1723: IF P_PA_DEBUG_MODE = 'Y' THEN
1724: pa_debug.write('PROCESS_MODIFIED_LINES: ' || l_module_name,pa_debug.g_err_stage,5);
1725: END IF;
1726:
1719:
1720: IF p_resource_assignment_id IS NULL AND p_fin_plan_version_id IS NULL THEN
1721:
1722: pa_debug.g_err_stage := 'both p_resource_assignment_id and budget version id cannot be null.';
1723: IF P_PA_DEBUG_MODE = 'Y' THEN
1724: pa_debug.write('PROCESS_MODIFIED_LINES: ' || l_module_name,pa_debug.g_err_stage,5);
1725: END IF;
1726:
1727: x_return_status := FND_API.G_RET_STS_ERROR;
1720: IF p_resource_assignment_id IS NULL AND p_fin_plan_version_id IS NULL THEN
1721:
1722: pa_debug.g_err_stage := 'both p_resource_assignment_id and budget version id cannot be null.';
1723: IF P_PA_DEBUG_MODE = 'Y' THEN
1724: pa_debug.write('PROCESS_MODIFIED_LINES: ' || l_module_name,pa_debug.g_err_stage,5);
1725: END IF;
1726:
1727: x_return_status := FND_API.G_RET_STS_ERROR;
1728:
1738: /*
1739: Delete all such lines from rollup_tmp table that are not existing in
1740: pa_budget_lines and also marked for delete by user.
1741: */
1742: pa_debug.g_err_stage := TO_CHAR(l_stage)||'Deleting records from pa_fp_rollup_tmp that are not present in the budget lines table ';
1743: IF P_PA_DEBUG_MODE = 'Y' THEN
1744: pa_debug.write('PROCESS_MODIFIED_LINES: ' || l_module_name,pa_debug.g_err_stage,3);
1745: END IF;
1746:
1739: Delete all such lines from rollup_tmp table that are not existing in
1740: pa_budget_lines and also marked for delete by user.
1741: */
1742: pa_debug.g_err_stage := TO_CHAR(l_stage)||'Deleting records from pa_fp_rollup_tmp that are not present in the budget lines table ';
1743: IF P_PA_DEBUG_MODE = 'Y' THEN
1744: pa_debug.write('PROCESS_MODIFIED_LINES: ' || l_module_name,pa_debug.g_err_stage,3);
1745: END IF;
1746:
1747: delete from pa_fp_rollup_tmp
1740: pa_budget_lines and also marked for delete by user.
1741: */
1742: pa_debug.g_err_stage := TO_CHAR(l_stage)||'Deleting records from pa_fp_rollup_tmp that are not present in the budget lines table ';
1743: IF P_PA_DEBUG_MODE = 'Y' THEN
1744: pa_debug.write('PROCESS_MODIFIED_LINES: ' || l_module_name,pa_debug.g_err_stage,3);
1745: END IF;
1746:
1747: delete from pa_fp_rollup_tmp
1748: where budget_line_id is null /* FPB3: bug 2645574: Instead of old_start_date refer budget_line_id */
1751: txn_burdened_cost is null and
1752: quantity is null and
1753: txn_revenue is null)); /* Bug 2684537 */
1754:
1755: pa_debug.g_err_stage := TO_CHAR(l_stage)||': Deleted '||sql%rowcount||' records ';
1756: IF P_PA_DEBUG_MODE = 'Y' THEN
1757: pa_debug.write('PROCESS_MODIFIED_LINES: ' || l_module_name,pa_debug.g_err_stage,3);
1758: END IF;
1759:
1752: quantity is null and
1753: txn_revenue is null)); /* Bug 2684537 */
1754:
1755: pa_debug.g_err_stage := TO_CHAR(l_stage)||': Deleted '||sql%rowcount||' records ';
1756: IF P_PA_DEBUG_MODE = 'Y' THEN
1757: pa_debug.write('PROCESS_MODIFIED_LINES: ' || l_module_name,pa_debug.g_err_stage,3);
1758: END IF;
1759:
1760: /******************** Commented for bug#2821961.
1753: txn_revenue is null)); /* Bug 2684537 */
1754:
1755: pa_debug.g_err_stage := TO_CHAR(l_stage)||': Deleted '||sql%rowcount||' records ';
1756: IF P_PA_DEBUG_MODE = 'Y' THEN
1757: pa_debug.write('PROCESS_MODIFIED_LINES: ' || l_module_name,pa_debug.g_err_stage,3);
1758: END IF;
1759:
1760: /******************** Commented for bug#2821961.
1761:
1779: AND bucketing_period_code IN
1780: (PA_FP_CONSTANTS_PKG.G_BUCKETING_PERIOD_CODE_SD,PA_FP_CONSTANTS_PKG.G_BUCKETING_PERIOD_CODE_PD);
1781: *********************/
1782:
1783: IF P_PA_DEBUG_MODE = 'Y' THEN
1784: pa_debug.g_err_stage := TO_CHAR(l_stage)||': updated '||sql%rowcount||' records ';
1785: pa_debug.write('PROCESS_MODIFIED_LINES: ' || l_module_name,pa_debug.g_err_stage,3);
1786: END IF;
1787:
1780: (PA_FP_CONSTANTS_PKG.G_BUCKETING_PERIOD_CODE_SD,PA_FP_CONSTANTS_PKG.G_BUCKETING_PERIOD_CODE_PD);
1781: *********************/
1782:
1783: IF P_PA_DEBUG_MODE = 'Y' THEN
1784: pa_debug.g_err_stage := TO_CHAR(l_stage)||': updated '||sql%rowcount||' records ';
1785: pa_debug.write('PROCESS_MODIFIED_LINES: ' || l_module_name,pa_debug.g_err_stage,3);
1786: END IF;
1787:
1788: pa_debug.g_err_stage := TO_CHAR(l_stage)||': populating budget version id , task id and rlm id';
1781: *********************/
1782:
1783: IF P_PA_DEBUG_MODE = 'Y' THEN
1784: pa_debug.g_err_stage := TO_CHAR(l_stage)||': updated '||sql%rowcount||' records ';
1785: pa_debug.write('PROCESS_MODIFIED_LINES: ' || l_module_name,pa_debug.g_err_stage,3);
1786: END IF;
1787:
1788: pa_debug.g_err_stage := TO_CHAR(l_stage)||': populating budget version id , task id and rlm id';
1789: IF P_PA_DEBUG_MODE = 'Y' THEN
1784: pa_debug.g_err_stage := TO_CHAR(l_stage)||': updated '||sql%rowcount||' records ';
1785: pa_debug.write('PROCESS_MODIFIED_LINES: ' || l_module_name,pa_debug.g_err_stage,3);
1786: END IF;
1787:
1788: pa_debug.g_err_stage := TO_CHAR(l_stage)||': populating budget version id , task id and rlm id';
1789: IF P_PA_DEBUG_MODE = 'Y' THEN
1790: pa_debug.write('PROCESS_MODIFIED_LINES: ' || l_module_name,pa_debug.g_err_stage,3);
1791: END IF;
1792:
1785: pa_debug.write('PROCESS_MODIFIED_LINES: ' || l_module_name,pa_debug.g_err_stage,3);
1786: END IF;
1787:
1788: pa_debug.g_err_stage := TO_CHAR(l_stage)||': populating budget version id , task id and rlm id';
1789: IF P_PA_DEBUG_MODE = 'Y' THEN
1790: pa_debug.write('PROCESS_MODIFIED_LINES: ' || l_module_name,pa_debug.g_err_stage,3);
1791: END IF;
1792:
1793: IF p_resource_assignment_id IS NOT NULL THEN
1786: END IF;
1787:
1788: pa_debug.g_err_stage := TO_CHAR(l_stage)||': populating budget version id , task id and rlm id';
1789: IF P_PA_DEBUG_MODE = 'Y' THEN
1790: pa_debug.write('PROCESS_MODIFIED_LINES: ' || l_module_name,pa_debug.g_err_stage,3);
1791: END IF;
1792:
1793: IF p_resource_assignment_id IS NOT NULL THEN
1794: --Included this block for bug 3050933.
1798: FROM pa_resource_assignments
1799: WHERE resource_assignment_id = p_resource_assignment_id;
1800: EXCEPTION
1801: WHEN NO_DATA_FOUND THEN
1802: pa_debug.g_err_stage := TO_CHAR(l_stage)||'Input res assmt id not found in pa_resource_assignments';
1803: IF P_PA_DEBUG_MODE = 'Y' THEN
1804: pa_debug.write('PROCESS_MODIFIED_LINES: ' || l_module_name,pa_debug.g_err_stage,5);
1805: END IF;
1806: x_return_status := FND_API.G_RET_STS_ERROR;
1799: WHERE resource_assignment_id = p_resource_assignment_id;
1800: EXCEPTION
1801: WHEN NO_DATA_FOUND THEN
1802: pa_debug.g_err_stage := TO_CHAR(l_stage)||'Input res assmt id not found in pa_resource_assignments';
1803: IF P_PA_DEBUG_MODE = 'Y' THEN
1804: pa_debug.write('PROCESS_MODIFIED_LINES: ' || l_module_name,pa_debug.g_err_stage,5);
1805: END IF;
1806: x_return_status := FND_API.G_RET_STS_ERROR;
1807: IF p_calling_context = PA_FP_CONSTANTS_PKG.G_EDIT_PLAN_LINE_PAGE THEN
1800: EXCEPTION
1801: WHEN NO_DATA_FOUND THEN
1802: pa_debug.g_err_stage := TO_CHAR(l_stage)||'Input res assmt id not found in pa_resource_assignments';
1803: IF P_PA_DEBUG_MODE = 'Y' THEN
1804: pa_debug.write('PROCESS_MODIFIED_LINES: ' || l_module_name,pa_debug.g_err_stage,5);
1805: END IF;
1806: x_return_status := FND_API.G_RET_STS_ERROR;
1807: IF p_calling_context = PA_FP_CONSTANTS_PKG.G_EDIT_PLAN_LINE_PAGE THEN
1808: x_msg_data := 'PA_FP_EPL_TASK_UPDATED';
1828: which is wrong */
1829:
1830: IF nvl(l_calling_context,-99) <> PA_FP_CONSTANTS_PKG.G_AUTOMATIC_BASELINE THEN
1831:
1832: pa_debug.g_err_stage := ': calling convert_txn_currency';
1833: IF P_PA_DEBUG_MODE = 'Y' THEN
1834: pa_debug.write('PROCESS_MODIFIED_LINES: ' || l_module_name,pa_debug.g_err_stage,3);
1835: END IF;
1836:
1829:
1830: IF nvl(l_calling_context,-99) <> PA_FP_CONSTANTS_PKG.G_AUTOMATIC_BASELINE THEN
1831:
1832: pa_debug.g_err_stage := ': calling convert_txn_currency';
1833: IF P_PA_DEBUG_MODE = 'Y' THEN
1834: pa_debug.write('PROCESS_MODIFIED_LINES: ' || l_module_name,pa_debug.g_err_stage,3);
1835: END IF;
1836:
1837: PA_FP_MULTI_CURRENCY_PKG.convert_txn_currency
1830: IF nvl(l_calling_context,-99) <> PA_FP_CONSTANTS_PKG.G_AUTOMATIC_BASELINE THEN
1831:
1832: pa_debug.g_err_stage := ': calling convert_txn_currency';
1833: IF P_PA_DEBUG_MODE = 'Y' THEN
1834: pa_debug.write('PROCESS_MODIFIED_LINES: ' || l_module_name,pa_debug.g_err_stage,3);
1835: END IF;
1836:
1837: PA_FP_MULTI_CURRENCY_PKG.convert_txn_currency
1838: ( p_budget_version_id => l_budget_version_id
1841: ,x_msg_count =>x_msg_count
1842: ,x_msg_data =>x_msg_data) ;
1843:
1844: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN /* Bug# 2644641 */
1845: pa_debug.g_err_stage := 'MC Api returned error...';
1846: IF P_PA_DEBUG_MODE = 'Y' THEN
1847: pa_debug.write('PROCESS_MODIFIED_LINES: ' || l_module_name,pa_debug.g_err_stage,3);
1848: pa_debug.g_err_stage := 'calling context : '|| p_calling_context; -- WEBADI UT
1849: pa_debug.write('PROCESS_MODIFIED_LINES: ' || l_module_name,pa_debug.g_err_stage,3);
1842: ,x_msg_data =>x_msg_data) ;
1843:
1844: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN /* Bug# 2644641 */
1845: pa_debug.g_err_stage := 'MC Api returned error...';
1846: IF P_PA_DEBUG_MODE = 'Y' THEN
1847: pa_debug.write('PROCESS_MODIFIED_LINES: ' || l_module_name,pa_debug.g_err_stage,3);
1848: pa_debug.g_err_stage := 'calling context : '|| p_calling_context; -- WEBADI UT
1849: pa_debug.write('PROCESS_MODIFIED_LINES: ' || l_module_name,pa_debug.g_err_stage,3);
1850: END IF;
1843:
1844: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN /* Bug# 2644641 */
1845: pa_debug.g_err_stage := 'MC Api returned error...';
1846: IF P_PA_DEBUG_MODE = 'Y' THEN
1847: pa_debug.write('PROCESS_MODIFIED_LINES: ' || l_module_name,pa_debug.g_err_stage,3);
1848: pa_debug.g_err_stage := 'calling context : '|| p_calling_context; -- WEBADI UT
1849: pa_debug.write('PROCESS_MODIFIED_LINES: ' || l_module_name,pa_debug.g_err_stage,3);
1850: END IF;
1851:
1844: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN /* Bug# 2644641 */
1845: pa_debug.g_err_stage := 'MC Api returned error...';
1846: IF P_PA_DEBUG_MODE = 'Y' THEN
1847: pa_debug.write('PROCESS_MODIFIED_LINES: ' || l_module_name,pa_debug.g_err_stage,3);
1848: pa_debug.g_err_stage := 'calling context : '|| p_calling_context; -- WEBADI UT
1849: pa_debug.write('PROCESS_MODIFIED_LINES: ' || l_module_name,pa_debug.g_err_stage,3);
1850: END IF;
1851:
1852: IF p_calling_context = PA_FP_CONSTANTS_PKG.G_WEBADI THEN --WEBADI UT
1845: pa_debug.g_err_stage := 'MC Api returned error...';
1846: IF P_PA_DEBUG_MODE = 'Y' THEN
1847: pa_debug.write('PROCESS_MODIFIED_LINES: ' || l_module_name,pa_debug.g_err_stage,3);
1848: pa_debug.g_err_stage := 'calling context : '|| p_calling_context; -- WEBADI UT
1849: pa_debug.write('PROCESS_MODIFIED_LINES: ' || l_module_name,pa_debug.g_err_stage,3);
1850: END IF;
1851:
1852: IF p_calling_context = PA_FP_CONSTANTS_PKG.G_WEBADI THEN --WEBADI UT
1853: --This exception needs to be raised only in webadi context.
1861:
1862: -- Delete the lines which have delete_flag = 'Y'
1863: -- in the temp table
1864:
1865: pa_debug.g_err_stage := TO_CHAR(l_stage)||'Deleting from pa_budget_lines table ';
1866: IF P_PA_DEBUG_MODE = 'Y' THEN
1867: pa_debug.write('PROCESS_MODIFIED_LINES: ' || l_module_name,pa_debug.g_err_stage,3);
1868: END IF;
1869:
1862: -- Delete the lines which have delete_flag = 'Y'
1863: -- in the temp table
1864:
1865: pa_debug.g_err_stage := TO_CHAR(l_stage)||'Deleting from pa_budget_lines table ';
1866: IF P_PA_DEBUG_MODE = 'Y' THEN
1867: pa_debug.write('PROCESS_MODIFIED_LINES: ' || l_module_name,pa_debug.g_err_stage,3);
1868: END IF;
1869:
1870: /* 2645574 : Instead of old_start_date based logic on budget line id now.
1863: -- in the temp table
1864:
1865: pa_debug.g_err_stage := TO_CHAR(l_stage)||'Deleting from pa_budget_lines table ';
1866: IF P_PA_DEBUG_MODE = 'Y' THEN
1867: pa_debug.write('PROCESS_MODIFIED_LINES: ' || l_module_name,pa_debug.g_err_stage,3);
1868: END IF;
1869:
1870: /* 2645574 : Instead of old_start_date based logic on budget line id now.
1871: A corresponding row from base table can be identified based upon
1886: WHERE (budget_line_id) IN (SELECT budget_line_id
1887: FROM pa_fp_rollup_tmp tmp
1888: WHERE nvl(tmp.delete_flag,'N') = 'Y');
1889:
1890: pa_debug.g_err_stage := TO_CHAR(l_stage)||': Deleted '||sql%rowcount||' records';
1891: IF P_PA_DEBUG_MODE = 'Y' THEN
1892: pa_debug.write('PROCESS_MODIFIED_LINES: ' || l_module_name,pa_debug.g_err_stage,3);
1893: END IF;
1894:
1887: FROM pa_fp_rollup_tmp tmp
1888: WHERE nvl(tmp.delete_flag,'N') = 'Y');
1889:
1890: pa_debug.g_err_stage := TO_CHAR(l_stage)||': Deleted '||sql%rowcount||' records';
1891: IF P_PA_DEBUG_MODE = 'Y' THEN
1892: pa_debug.write('PROCESS_MODIFIED_LINES: ' || l_module_name,pa_debug.g_err_stage,3);
1893: END IF;
1894:
1895: -- Update the budget line table with the values
1888: WHERE nvl(tmp.delete_flag,'N') = 'Y');
1889:
1890: pa_debug.g_err_stage := TO_CHAR(l_stage)||': Deleted '||sql%rowcount||' records';
1891: IF P_PA_DEBUG_MODE = 'Y' THEN
1892: pa_debug.write('PROCESS_MODIFIED_LINES: ' || l_module_name,pa_debug.g_err_stage,3);
1893: END IF;
1894:
1895: -- Update the budget line table with the values
1896: -- in the temp table for the records that exist
1895: -- Update the budget line table with the values
1896: -- in the temp table for the records that exist
1897: -- in budget line table
1898:
1899: pa_debug.g_err_stage := TO_CHAR(l_stage)||'Updating the pa_budget_lines table ';
1900: IF P_PA_DEBUG_MODE = 'Y' THEN
1901: pa_debug.write('PROCESS_MODIFIED_LINES: ' || l_module_name,pa_debug.g_err_stage,3);
1902: END IF;
1903:
1896: -- in the temp table for the records that exist
1897: -- in budget line table
1898:
1899: pa_debug.g_err_stage := TO_CHAR(l_stage)||'Updating the pa_budget_lines table ';
1900: IF P_PA_DEBUG_MODE = 'Y' THEN
1901: pa_debug.write('PROCESS_MODIFIED_LINES: ' || l_module_name,pa_debug.g_err_stage,3);
1902: END IF;
1903:
1904: UPDATE /*+ INDEX( bl PA_BUDGET_LINES_U2 )*/ PA_BUDGET_LINES bl --Bug 2782166
1897: -- in budget line table
1898:
1899: pa_debug.g_err_stage := TO_CHAR(l_stage)||'Updating the pa_budget_lines table ';
1900: IF P_PA_DEBUG_MODE = 'Y' THEN
1901: pa_debug.write('PROCESS_MODIFIED_LINES: ' || l_module_name,pa_debug.g_err_stage,3);
1902: END IF;
1903:
1904: UPDATE /*+ INDEX( bl PA_BUDGET_LINES_U2 )*/ PA_BUDGET_LINES bl --Bug 2782166
1905: SET (
2054: FROM pa_fp_rollup_tmp tmp
2055: where nvl(tmp.delete_flag,'N') <> 'Y'
2056: AND tmp.budget_line_id IS NOT NULL);
2057:
2058: IF P_PA_DEBUG_MODE = 'Y' THEN
2059: pa_debug.g_err_stage := TO_CHAR(l_stage)||'updated '||sql%rowcount||' budget lines ';
2060: pa_debug.write('PROCESS_MODIFIED_LINES: ' || l_module_name,pa_debug.g_err_stage,3);
2061: END IF;
2062:
2055: where nvl(tmp.delete_flag,'N') <> 'Y'
2056: AND tmp.budget_line_id IS NOT NULL);
2057:
2058: IF P_PA_DEBUG_MODE = 'Y' THEN
2059: pa_debug.g_err_stage := TO_CHAR(l_stage)||'updated '||sql%rowcount||' budget lines ';
2060: pa_debug.write('PROCESS_MODIFIED_LINES: ' || l_module_name,pa_debug.g_err_stage,3);
2061: END IF;
2062:
2063: /* Bug 2645574: Now a budget_line_id condition is sufficient.
2056: AND tmp.budget_line_id IS NOT NULL);
2057:
2058: IF P_PA_DEBUG_MODE = 'Y' THEN
2059: pa_debug.g_err_stage := TO_CHAR(l_stage)||'updated '||sql%rowcount||' budget lines ';
2060: pa_debug.write('PROCESS_MODIFIED_LINES: ' || l_module_name,pa_debug.g_err_stage,3);
2061: END IF;
2062:
2063: /* Bug 2645574: Now a budget_line_id condition is sufficient.
2064: WHERE bl.resource_assignment_id = tmp.resource_assignment_id
2081: Close c_disabled_resource_exists;
2082:
2083: IF l_disabled_resource_entered IS NOT NULL THEN
2084: -- throw error
2085: IF P_PA_DEBUG_MODE = 'Y' THEN
2086: pa_debug.g_err_stage := 'Throwing error since amounts are entered for a disabld resource';
2087: pa_debug.write('PROCESS_MODIFIED_LINES: ' || l_module_name,pa_debug.g_err_stage,3);
2088: END IF;
2089: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
2082:
2083: IF l_disabled_resource_entered IS NOT NULL THEN
2084: -- throw error
2085: IF P_PA_DEBUG_MODE = 'Y' THEN
2086: pa_debug.g_err_stage := 'Throwing error since amounts are entered for a disabld resource';
2087: pa_debug.write('PROCESS_MODIFIED_LINES: ' || l_module_name,pa_debug.g_err_stage,3);
2088: END IF;
2089: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
2090: p_msg_name => 'PA_FP_DISABLED_RES_PLANNE');
2083: IF l_disabled_resource_entered IS NOT NULL THEN
2084: -- throw error
2085: IF P_PA_DEBUG_MODE = 'Y' THEN
2086: pa_debug.g_err_stage := 'Throwing error since amounts are entered for a disabld resource';
2087: pa_debug.write('PROCESS_MODIFIED_LINES: ' || l_module_name,pa_debug.g_err_stage,3);
2088: END IF;
2089: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
2090: p_msg_name => 'PA_FP_DISABLED_RES_PLANNE');
2091:
2245:
2246: /* Added the following code for WebADI functionality. Increasing the record version number
2247: on pa_budget_versions table everytime there is a change to the version. */
2248:
2249: IF P_PA_DEBUG_MODE = 'Y' THEN
2250: pa_debug.g_err_stage := TO_CHAR(l_stage)||'inserted '|| sql%rowcount ||' budget lines ';
2251: pa_debug.write('PROCESS_MODIFIED_LINES: ' || l_module_name,pa_debug.g_err_stage,3);
2252: END IF;
2253:
2246: /* Added the following code for WebADI functionality. Increasing the record version number
2247: on pa_budget_versions table everytime there is a change to the version. */
2248:
2249: IF P_PA_DEBUG_MODE = 'Y' THEN
2250: pa_debug.g_err_stage := TO_CHAR(l_stage)||'inserted '|| sql%rowcount ||' budget lines ';
2251: pa_debug.write('PROCESS_MODIFIED_LINES: ' || l_module_name,pa_debug.g_err_stage,3);
2252: END IF;
2253:
2254: IF P_PA_DEBUG_MODE = 'Y' THEN
2247: on pa_budget_versions table everytime there is a change to the version. */
2248:
2249: IF P_PA_DEBUG_MODE = 'Y' THEN
2250: pa_debug.g_err_stage := TO_CHAR(l_stage)||'inserted '|| sql%rowcount ||' budget lines ';
2251: pa_debug.write('PROCESS_MODIFIED_LINES: ' || l_module_name,pa_debug.g_err_stage,3);
2252: END IF;
2253:
2254: IF P_PA_DEBUG_MODE = 'Y' THEN
2255: pa_debug.g_err_stage := TO_CHAR(l_stage)||'Increasing record version no. for Budget Version.';
2250: pa_debug.g_err_stage := TO_CHAR(l_stage)||'inserted '|| sql%rowcount ||' budget lines ';
2251: pa_debug.write('PROCESS_MODIFIED_LINES: ' || l_module_name,pa_debug.g_err_stage,3);
2252: END IF;
2253:
2254: IF P_PA_DEBUG_MODE = 'Y' THEN
2255: pa_debug.g_err_stage := TO_CHAR(l_stage)||'Increasing record version no. for Budget Version.';
2256: pa_debug.write('PROCESS_MODIFIED_LINES: ' || l_module_name,pa_debug.g_err_stage,3);
2257: END IF;
2258:
2251: pa_debug.write('PROCESS_MODIFIED_LINES: ' || l_module_name,pa_debug.g_err_stage,3);
2252: END IF;
2253:
2254: IF P_PA_DEBUG_MODE = 'Y' THEN
2255: pa_debug.g_err_stage := TO_CHAR(l_stage)||'Increasing record version no. for Budget Version.';
2256: pa_debug.write('PROCESS_MODIFIED_LINES: ' || l_module_name,pa_debug.g_err_stage,3);
2257: END IF;
2258:
2259: IF nvl(p_calling_context,'-99') <> PA_FP_CONSTANTS_PKG.G_WEBADI THEN
2252: END IF;
2253:
2254: IF P_PA_DEBUG_MODE = 'Y' THEN
2255: pa_debug.g_err_stage := TO_CHAR(l_stage)||'Increasing record version no. for Budget Version.';
2256: pa_debug.write('PROCESS_MODIFIED_LINES: ' || l_module_name,pa_debug.g_err_stage,3);
2257: END IF;
2258:
2259: IF nvl(p_calling_context,'-99') <> PA_FP_CONSTANTS_PKG.G_WEBADI THEN
2260: UPDATE pa_budget_versions
2266: /* Bug# 2641475 - MRC call moved here from before the insert/update of pa_budget_lines */
2267:
2268: /* Call MRC API */
2269: /*
2270: pa_debug.g_err_stage := TO_CHAR(l_stage)||'Calling MRC API ';
2271: IF P_PA_DEBUG_MODE = 'Y' THEN
2272: pa_debug.write('PROCESS_MODIFIED_LINES: ' || l_module_name,pa_debug.g_err_stage,3);
2273: END IF;
2274:
2267:
2268: /* Call MRC API */
2269: /*
2270: pa_debug.g_err_stage := TO_CHAR(l_stage)||'Calling MRC API ';
2271: IF P_PA_DEBUG_MODE = 'Y' THEN
2272: pa_debug.write('PROCESS_MODIFIED_LINES: ' || l_module_name,pa_debug.g_err_stage,3);
2273: END IF;
2274:
2275: IF PA_MRC_FINPLAN.G_MRC_ENABLED_FOR_BUDGETS IS NULL THEN
2268: /* Call MRC API */
2269: /*
2270: pa_debug.g_err_stage := TO_CHAR(l_stage)||'Calling MRC API ';
2271: IF P_PA_DEBUG_MODE = 'Y' THEN
2272: pa_debug.write('PROCESS_MODIFIED_LINES: ' || l_module_name,pa_debug.g_err_stage,3);
2273: END IF;
2274:
2275: IF PA_MRC_FINPLAN.G_MRC_ENABLED_FOR_BUDGETS IS NULL THEN
2276: PA_MRC_FINPLAN.CHECK_MRC_INSTALL
2290: x_msg_data => x_msg_data);
2291: END IF;
2292:
2293: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2294: pa_debug.g_err_stage := TO_CHAR(l_stage)||'Unexpected exception in MRC API '||sqlerrm;
2295: IF P_PA_DEBUG_MODE = 'Y' THEN
2296: pa_debug.write('PROCESS_MODIFIED_LINES: ' || l_module_name,pa_debug.g_err_stage,3);
2297: END IF;
2298: RAISE g_mrc_exception;
2291: END IF;
2292:
2293: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2294: pa_debug.g_err_stage := TO_CHAR(l_stage)||'Unexpected exception in MRC API '||sqlerrm;
2295: IF P_PA_DEBUG_MODE = 'Y' THEN
2296: pa_debug.write('PROCESS_MODIFIED_LINES: ' || l_module_name,pa_debug.g_err_stage,3);
2297: END IF;
2298: RAISE g_mrc_exception;
2299: END IF;
2292:
2293: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2294: pa_debug.g_err_stage := TO_CHAR(l_stage)||'Unexpected exception in MRC API '||sqlerrm;
2295: IF P_PA_DEBUG_MODE = 'Y' THEN
2296: pa_debug.write('PROCESS_MODIFIED_LINES: ' || l_module_name,pa_debug.g_err_stage,3);
2297: END IF;
2298: RAISE g_mrc_exception;
2299: END IF;
2300: */
2298: RAISE g_mrc_exception;
2299: END IF;
2300: */
2301:
2302: pa_debug.g_err_stage := TO_CHAR(l_stage)||'Calling PA_FP_ROLLUP_PKG ';
2303: IF P_PA_DEBUG_MODE = 'Y' THEN
2304: pa_debug.write('PROCESS_MODIFIED_LINES: ' || l_module_name,pa_debug.g_err_stage,3);
2305: END IF;
2306:
2299: END IF;
2300: */
2301:
2302: pa_debug.g_err_stage := TO_CHAR(l_stage)||'Calling PA_FP_ROLLUP_PKG ';
2303: IF P_PA_DEBUG_MODE = 'Y' THEN
2304: pa_debug.write('PROCESS_MODIFIED_LINES: ' || l_module_name,pa_debug.g_err_stage,3);
2305: END IF;
2306:
2307: -- call the rollup API
2300: */
2301:
2302: pa_debug.g_err_stage := TO_CHAR(l_stage)||'Calling PA_FP_ROLLUP_PKG ';
2303: IF P_PA_DEBUG_MODE = 'Y' THEN
2304: pa_debug.write('PROCESS_MODIFIED_LINES: ' || l_module_name,pa_debug.g_err_stage,3);
2305: END IF;
2306:
2307: -- call the rollup API
2308:
2312: ,x_return_status => x_return_status
2313: ,x_msg_count => x_msg_count
2314: ,x_msg_data => x_msg_data ) ;
2315:
2316: IF P_PA_DEBUG_MODE = 'Y' THEN
2317: pa_debug.write('PROCESS_MODIFIED_LINES: ' || l_module_name,'End of process_modified_lines',3);
2318: END IF;
2319:
2320: pa_debug.reset_err_stack; /* 2641475 */
2313: ,x_msg_count => x_msg_count
2314: ,x_msg_data => x_msg_data ) ;
2315:
2316: IF P_PA_DEBUG_MODE = 'Y' THEN
2317: pa_debug.write('PROCESS_MODIFIED_LINES: ' || l_module_name,'End of process_modified_lines',3);
2318: END IF;
2319:
2320: pa_debug.reset_err_stack; /* 2641475 */
2321:
2316: IF P_PA_DEBUG_MODE = 'Y' THEN
2317: pa_debug.write('PROCESS_MODIFIED_LINES: ' || l_module_name,'End of process_modified_lines',3);
2318: END IF;
2319:
2320: pa_debug.reset_err_stack; /* 2641475 */
2321:
2322: EXCEPTION
2323: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
2324: x_return_status := FND_API.G_RET_STS_ERROR;
2337: ELSE
2338: x_msg_count := l_msg_count;
2339: END IF;
2340:
2341: IF P_PA_DEBUG_MODE = 'Y' THEN
2342: pa_debug.write('PROCESS_MODIFIED_LINES: ' || l_module_name,'Invalid arguments passed',5);
2343: pa_debug.write('PROCESS_MODIFIED_LINES: ' || l_module_name,pa_debug.G_Err_Stack,5);
2344: END IF;
2345: pa_debug.reset_err_stack;
2338: x_msg_count := l_msg_count;
2339: END IF;
2340:
2341: IF P_PA_DEBUG_MODE = 'Y' THEN
2342: pa_debug.write('PROCESS_MODIFIED_LINES: ' || l_module_name,'Invalid arguments passed',5);
2343: pa_debug.write('PROCESS_MODIFIED_LINES: ' || l_module_name,pa_debug.G_Err_Stack,5);
2344: END IF;
2345: pa_debug.reset_err_stack;
2346:
2339: END IF;
2340:
2341: IF P_PA_DEBUG_MODE = 'Y' THEN
2342: pa_debug.write('PROCESS_MODIFIED_LINES: ' || l_module_name,'Invalid arguments passed',5);
2343: pa_debug.write('PROCESS_MODIFIED_LINES: ' || l_module_name,pa_debug.G_Err_Stack,5);
2344: END IF;
2345: pa_debug.reset_err_stack;
2346:
2347: RETURN;
2341: IF P_PA_DEBUG_MODE = 'Y' THEN
2342: pa_debug.write('PROCESS_MODIFIED_LINES: ' || l_module_name,'Invalid arguments passed',5);
2343: pa_debug.write('PROCESS_MODIFIED_LINES: ' || l_module_name,pa_debug.G_Err_Stack,5);
2344: END IF;
2345: pa_debug.reset_err_stack;
2346:
2347: RETURN;
2348:
2349: WHEN PA_FP_CONSTANTS_PKG.MC_Conversion_Failed_Exc THEN --WEBADI UT.
2351: RAISE;
2352: WHEN DUP_VAL_ON_INDEX THEN --Added this handler for AMG.
2353: -- Call the api that adds the error messages for duplicate rows
2354:
2355: pa_debug.G_Err_Stack := 'In Dup Value on index. Calling Find_dup_rows_in_rollup_tmp';
2356: IF P_PA_DEBUG_MODE = 'Y' THEN
2357: pa_debug.write('PROCESS_MODIFIED_LINES: ' || l_module_name,pa_debug.G_Err_Stack,3);
2358: END IF;
2359:
2352: WHEN DUP_VAL_ON_INDEX THEN --Added this handler for AMG.
2353: -- Call the api that adds the error messages for duplicate rows
2354:
2355: pa_debug.G_Err_Stack := 'In Dup Value on index. Calling Find_dup_rows_in_rollup_tmp';
2356: IF P_PA_DEBUG_MODE = 'Y' THEN
2357: pa_debug.write('PROCESS_MODIFIED_LINES: ' || l_module_name,pa_debug.G_Err_Stack,3);
2358: END IF;
2359:
2360: PA_FP_EDIT_LINE_PKG.Find_dup_rows_in_rollup_tmp
2353: -- Call the api that adds the error messages for duplicate rows
2354:
2355: pa_debug.G_Err_Stack := 'In Dup Value on index. Calling Find_dup_rows_in_rollup_tmp';
2356: IF P_PA_DEBUG_MODE = 'Y' THEN
2357: pa_debug.write('PROCESS_MODIFIED_LINES: ' || l_module_name,pa_debug.G_Err_Stack,3);
2358: END IF;
2359:
2360: PA_FP_EDIT_LINE_PKG.Find_dup_rows_in_rollup_tmp
2361: ( x_return_status => x_return_status
2362: ,x_msg_count => x_msg_count
2363: ,x_msg_data => x_msg_data);
2364:
2365: x_return_status := FND_API.G_RET_STS_ERROR;
2366: pa_debug.reset_err_stack;
2367: RETURN;
2368:
2369: WHEN OTHERS THEN
2370: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2372: x_msg_data := SQLERRM;
2373:
2374: FND_MSG_PUB.add_exc_msg
2375: ( p_pkg_name => 'PA_FP_EDIT_LINE_PKG.PROCESS_MODIFIED_LINES'
2376: ,p_procedure_name => pa_debug.G_Err_Stack );
2377:
2378: pa_debug.G_Err_Stack := SQLERRM;
2379: IF P_PA_DEBUG_MODE = 'Y' THEN
2380: pa_debug.write('PROCESS_MODIFIED_LINES: ' || l_module_name,pa_debug.G_Err_Stack,4);
2374: FND_MSG_PUB.add_exc_msg
2375: ( p_pkg_name => 'PA_FP_EDIT_LINE_PKG.PROCESS_MODIFIED_LINES'
2376: ,p_procedure_name => pa_debug.G_Err_Stack );
2377:
2378: pa_debug.G_Err_Stack := SQLERRM;
2379: IF P_PA_DEBUG_MODE = 'Y' THEN
2380: pa_debug.write('PROCESS_MODIFIED_LINES: ' || l_module_name,pa_debug.G_Err_Stack,4);
2381: END IF;
2382: pa_debug.reset_err_stack;
2375: ( p_pkg_name => 'PA_FP_EDIT_LINE_PKG.PROCESS_MODIFIED_LINES'
2376: ,p_procedure_name => pa_debug.G_Err_Stack );
2377:
2378: pa_debug.G_Err_Stack := SQLERRM;
2379: IF P_PA_DEBUG_MODE = 'Y' THEN
2380: pa_debug.write('PROCESS_MODIFIED_LINES: ' || l_module_name,pa_debug.G_Err_Stack,4);
2381: END IF;
2382: pa_debug.reset_err_stack;
2383:
2376: ,p_procedure_name => pa_debug.G_Err_Stack );
2377:
2378: pa_debug.G_Err_Stack := SQLERRM;
2379: IF P_PA_DEBUG_MODE = 'Y' THEN
2380: pa_debug.write('PROCESS_MODIFIED_LINES: ' || l_module_name,pa_debug.G_Err_Stack,4);
2381: END IF;
2382: pa_debug.reset_err_stack;
2383:
2384: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2378: pa_debug.G_Err_Stack := SQLERRM;
2379: IF P_PA_DEBUG_MODE = 'Y' THEN
2380: pa_debug.write('PROCESS_MODIFIED_LINES: ' || l_module_name,pa_debug.G_Err_Stack,4);
2381: END IF;
2382: pa_debug.reset_err_stack;
2383:
2384: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2385:
2386: END PROCESS_MODIFIED_LINES;
2469: l_dummy_project_id pa_projects_all.project_id%TYPE;
2470:
2471: BEGIN
2472: -- Set the error stack.
2473: pa_debug.set_err_stack('PA_FP_EDIT_LINE_PKG.GET_ELEMENT_AMOUNT_INFO');
2474:
2475: -- Get the Debug mode into local variable and set it to 'Y' if its NULL
2476: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
2477: l_debug_mode := NVL(l_debug_mode, 'Y');
2472: -- Set the error stack.
2473: pa_debug.set_err_stack('PA_FP_EDIT_LINE_PKG.GET_ELEMENT_AMOUNT_INFO');
2474:
2475: -- Get the Debug mode into local variable and set it to 'Y' if its NULL
2476: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
2477: l_debug_mode := NVL(l_debug_mode, 'Y');
2478:
2479: -- Initialize the return status to success
2480: x_return_status := FND_API.G_RET_STS_SUCCESS;
2478:
2479: -- Initialize the return status to success
2480: x_return_status := FND_API.G_RET_STS_SUCCESS;
2481:
2482: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
2483:
2484: pa_debug.g_err_stage := TO_CHAR(l_stage)||':In PA_FP_EDIT_LINE_PKG.GET_ELEMENT_AMOUNT_INFO ';
2485: IF P_PA_DEBUG_MODE = 'Y' THEN
2486: pa_debug.write('GET_ELEMENT_AMOUNT_INFO: ' || l_module_name,pa_debug.g_err_stage,3);
2480: x_return_status := FND_API.G_RET_STS_SUCCESS;
2481:
2482: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
2483:
2484: pa_debug.g_err_stage := TO_CHAR(l_stage)||':In PA_FP_EDIT_LINE_PKG.GET_ELEMENT_AMOUNT_INFO ';
2485: IF P_PA_DEBUG_MODE = 'Y' THEN
2486: pa_debug.write('GET_ELEMENT_AMOUNT_INFO: ' || l_module_name,pa_debug.g_err_stage,3);
2487: END IF;
2488:
2481:
2482: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
2483:
2484: pa_debug.g_err_stage := TO_CHAR(l_stage)||':In PA_FP_EDIT_LINE_PKG.GET_ELEMENT_AMOUNT_INFO ';
2485: IF P_PA_DEBUG_MODE = 'Y' THEN
2486: pa_debug.write('GET_ELEMENT_AMOUNT_INFO: ' || l_module_name,pa_debug.g_err_stage,3);
2487: END IF;
2488:
2489: -- Validating for the Input Parameters
2482: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
2483:
2484: pa_debug.g_err_stage := TO_CHAR(l_stage)||':In PA_FP_EDIT_LINE_PKG.GET_ELEMENT_AMOUNT_INFO ';
2485: IF P_PA_DEBUG_MODE = 'Y' THEN
2486: pa_debug.write('GET_ELEMENT_AMOUNT_INFO: ' || l_module_name,pa_debug.g_err_stage,3);
2487: END IF;
2488:
2489: -- Validating for the Input Parameters
2490:
2489: -- Validating for the Input Parameters
2490:
2491: IF p_calling_context IS NULL THEN
2492:
2493: pa_debug.g_err_stage := 'calling context is null.';
2494: IF P_PA_DEBUG_MODE = 'Y' THEN
2495: pa_debug.write('GET_ELEMENT_AMOUNT_INFO: ' || l_module_name,pa_debug.g_err_stage,5);
2496: END IF;
2497:
2490:
2491: IF p_calling_context IS NULL THEN
2492:
2493: pa_debug.g_err_stage := 'calling context is null.';
2494: IF P_PA_DEBUG_MODE = 'Y' THEN
2495: pa_debug.write('GET_ELEMENT_AMOUNT_INFO: ' || l_module_name,pa_debug.g_err_stage,5);
2496: END IF;
2497:
2498: x_return_status := FND_API.G_RET_STS_ERROR;
2491: IF p_calling_context IS NULL THEN
2492:
2493: pa_debug.g_err_stage := 'calling context is null.';
2494: IF P_PA_DEBUG_MODE = 'Y' THEN
2495: pa_debug.write('GET_ELEMENT_AMOUNT_INFO: ' || l_module_name,pa_debug.g_err_stage,5);
2496: END IF;
2497:
2498: x_return_status := FND_API.G_RET_STS_ERROR;
2499:
2505: ELSIF p_calling_context = PA_FP_CONSTANTS_PKG.G_CALLING_CONTEXT_OTHER_CURR THEN
2506:
2507: IF p_resource_assignment_id IS NULL THEN
2508:
2509: pa_debug.g_err_stage := 'resource assignment id is null in edit in another currency.';
2510: IF P_PA_DEBUG_MODE = 'Y' THEN
2511: pa_debug.write('GET_ELEMENT_AMOUNT_INFO: ' || l_module_name,pa_debug.g_err_stage,5);
2512: END IF;
2513:
2506:
2507: IF p_resource_assignment_id IS NULL THEN
2508:
2509: pa_debug.g_err_stage := 'resource assignment id is null in edit in another currency.';
2510: IF P_PA_DEBUG_MODE = 'Y' THEN
2511: pa_debug.write('GET_ELEMENT_AMOUNT_INFO: ' || l_module_name,pa_debug.g_err_stage,5);
2512: END IF;
2513:
2514: x_return_status := FND_API.G_RET_STS_ERROR;
2507: IF p_resource_assignment_id IS NULL THEN
2508:
2509: pa_debug.g_err_stage := 'resource assignment id is null in edit in another currency.';
2510: IF P_PA_DEBUG_MODE = 'Y' THEN
2511: pa_debug.write('GET_ELEMENT_AMOUNT_INFO: ' || l_module_name,pa_debug.g_err_stage,5);
2512: END IF;
2513:
2514: x_return_status := FND_API.G_RET_STS_ERROR;
2515:
2522:
2523: IF p_resource_assignment_id IS NULL OR
2524: p_txn_currency_code IS NULL
2525: THEN
2526: pa_debug.g_err_stage := 'one of the input parameter is null.';
2527: IF P_PA_DEBUG_MODE = 'Y' THEN
2528: pa_debug.write('GET_ELEMENT_AMOUNT_INFO: ' || l_module_name,pa_debug.g_err_stage,5);
2529: END IF;
2530:
2523: IF p_resource_assignment_id IS NULL OR
2524: p_txn_currency_code IS NULL
2525: THEN
2526: pa_debug.g_err_stage := 'one of the input parameter is null.';
2527: IF P_PA_DEBUG_MODE = 'Y' THEN
2528: pa_debug.write('GET_ELEMENT_AMOUNT_INFO: ' || l_module_name,pa_debug.g_err_stage,5);
2529: END IF;
2530:
2531:
2524: p_txn_currency_code IS NULL
2525: THEN
2526: pa_debug.g_err_stage := 'one of the input parameter is null.';
2527: IF P_PA_DEBUG_MODE = 'Y' THEN
2528: pa_debug.write('GET_ELEMENT_AMOUNT_INFO: ' || l_module_name,pa_debug.g_err_stage,5);
2529: END IF;
2530:
2531:
2532: pa_debug.g_err_stage := 'p_resource_assignment_id = ' || p_resource_assignment_id;
2528: pa_debug.write('GET_ELEMENT_AMOUNT_INFO: ' || l_module_name,pa_debug.g_err_stage,5);
2529: END IF;
2530:
2531:
2532: pa_debug.g_err_stage := 'p_resource_assignment_id = ' || p_resource_assignment_id;
2533: IF P_PA_DEBUG_MODE = 'Y' THEN
2534: pa_debug.write('GET_ELEMENT_AMOUNT_INFO: ' || l_module_name,pa_debug.g_err_stage,5);
2535: END IF;
2536:
2529: END IF;
2530:
2531:
2532: pa_debug.g_err_stage := 'p_resource_assignment_id = ' || p_resource_assignment_id;
2533: IF P_PA_DEBUG_MODE = 'Y' THEN
2534: pa_debug.write('GET_ELEMENT_AMOUNT_INFO: ' || l_module_name,pa_debug.g_err_stage,5);
2535: END IF;
2536:
2537: pa_debug.g_err_stage := 'p_txn_currency_code = ' || p_txn_currency_code;
2530:
2531:
2532: pa_debug.g_err_stage := 'p_resource_assignment_id = ' || p_resource_assignment_id;
2533: IF P_PA_DEBUG_MODE = 'Y' THEN
2534: pa_debug.write('GET_ELEMENT_AMOUNT_INFO: ' || l_module_name,pa_debug.g_err_stage,5);
2535: END IF;
2536:
2537: pa_debug.g_err_stage := 'p_txn_currency_code = ' || p_txn_currency_code;
2538: IF P_PA_DEBUG_MODE = 'Y' THEN
2533: IF P_PA_DEBUG_MODE = 'Y' THEN
2534: pa_debug.write('GET_ELEMENT_AMOUNT_INFO: ' || l_module_name,pa_debug.g_err_stage,5);
2535: END IF;
2536:
2537: pa_debug.g_err_stage := 'p_txn_currency_code = ' || p_txn_currency_code;
2538: IF P_PA_DEBUG_MODE = 'Y' THEN
2539: pa_debug.write('GET_ELEMENT_AMOUNT_INFO: ' || l_module_name,pa_debug.g_err_stage,5);
2540: pa_debug.write('GET_ELEMENT_AMOUNT_INFO: ' || l_module_name,pa_debug.g_err_stage,5);
2541: END IF;
2534: pa_debug.write('GET_ELEMENT_AMOUNT_INFO: ' || l_module_name,pa_debug.g_err_stage,5);
2535: END IF;
2536:
2537: pa_debug.g_err_stage := 'p_txn_currency_code = ' || p_txn_currency_code;
2538: IF P_PA_DEBUG_MODE = 'Y' THEN
2539: pa_debug.write('GET_ELEMENT_AMOUNT_INFO: ' || l_module_name,pa_debug.g_err_stage,5);
2540: pa_debug.write('GET_ELEMENT_AMOUNT_INFO: ' || l_module_name,pa_debug.g_err_stage,5);
2541: END IF;
2542:
2535: END IF;
2536:
2537: pa_debug.g_err_stage := 'p_txn_currency_code = ' || p_txn_currency_code;
2538: IF P_PA_DEBUG_MODE = 'Y' THEN
2539: pa_debug.write('GET_ELEMENT_AMOUNT_INFO: ' || l_module_name,pa_debug.g_err_stage,5);
2540: pa_debug.write('GET_ELEMENT_AMOUNT_INFO: ' || l_module_name,pa_debug.g_err_stage,5);
2541: END IF;
2542:
2543: x_return_status := FND_API.G_RET_STS_ERROR;
2536:
2537: pa_debug.g_err_stage := 'p_txn_currency_code = ' || p_txn_currency_code;
2538: IF P_PA_DEBUG_MODE = 'Y' THEN
2539: pa_debug.write('GET_ELEMENT_AMOUNT_INFO: ' || l_module_name,pa_debug.g_err_stage,5);
2540: pa_debug.write('GET_ELEMENT_AMOUNT_INFO: ' || l_module_name,pa_debug.g_err_stage,5);
2541: END IF;
2542:
2543: x_return_status := FND_API.G_RET_STS_ERROR;
2544:
2583:
2584:
2585: IF p_calling_context <> PA_FP_CONSTANTS_PKG.G_CALLING_CONTEXT_OTHER_CURR THEN
2586:
2587: pa_debug.g_err_stage := TO_CHAR(l_stage)||':calling PA_FIN_PLAN_UTILS.Get_Element_Proj_PF_Amounts ';
2588: IF P_PA_DEBUG_MODE = 'Y' THEN
2589: pa_debug.write('GET_ELEMENT_AMOUNT_INFO: ' || l_module_name,pa_debug.g_err_stage,3);
2590: END IF;
2591: BEGIN
2584:
2585: IF p_calling_context <> PA_FP_CONSTANTS_PKG.G_CALLING_CONTEXT_OTHER_CURR THEN
2586:
2587: pa_debug.g_err_stage := TO_CHAR(l_stage)||':calling PA_FIN_PLAN_UTILS.Get_Element_Proj_PF_Amounts ';
2588: IF P_PA_DEBUG_MODE = 'Y' THEN
2589: pa_debug.write('GET_ELEMENT_AMOUNT_INFO: ' || l_module_name,pa_debug.g_err_stage,3);
2590: END IF;
2591: BEGIN
2592:
2585: IF p_calling_context <> PA_FP_CONSTANTS_PKG.G_CALLING_CONTEXT_OTHER_CURR THEN
2586:
2587: pa_debug.g_err_stage := TO_CHAR(l_stage)||':calling PA_FIN_PLAN_UTILS.Get_Element_Proj_PF_Amounts ';
2588: IF P_PA_DEBUG_MODE = 'Y' THEN
2589: pa_debug.write('GET_ELEMENT_AMOUNT_INFO: ' || l_module_name,pa_debug.g_err_stage,3);
2590: END IF;
2591: BEGIN
2592:
2593: SELECT margin_derived_from_code
2647: x_proj_margin_percent := (x_proj_margin / x_project_revenue)*100;
2648: END IF;
2649: END IF; -- end of IF l_margin_derived_from_code = 'R'
2650: END IF; -- end of IF l_margin_derived_from_code IS NOT NULL
2651: pa_debug.g_err_stage := TO_CHAR(x_projfunc_margin)||':'||TO_CHAR(x_projfunc_margin_percent)||':'||TO_CHAR(x_proj_margin)||':'||TO_CHAR(x_proj_margin_percent);
2652: IF P_PA_DEBUG_MODE = 'Y' THEN
2653: pa_debug.write('GET_ELEMENT_AMOUNT_INFO: ' || l_module_name,pa_debug.g_err_stage,3);
2654: END IF;
2655: END IF ;
2648: END IF;
2649: END IF; -- end of IF l_margin_derived_from_code = 'R'
2650: END IF; -- end of IF l_margin_derived_from_code IS NOT NULL
2651: pa_debug.g_err_stage := TO_CHAR(x_projfunc_margin)||':'||TO_CHAR(x_projfunc_margin_percent)||':'||TO_CHAR(x_proj_margin)||':'||TO_CHAR(x_proj_margin_percent);
2652: IF P_PA_DEBUG_MODE = 'Y' THEN
2653: pa_debug.write('GET_ELEMENT_AMOUNT_INFO: ' || l_module_name,pa_debug.g_err_stage,3);
2654: END IF;
2655: END IF ;
2656: /* p_calling_context <> PA_FP_CONSTANTS_PKG.G_CALLING_CONTEXT_OTHER_CURR THEN */
2649: END IF; -- end of IF l_margin_derived_from_code = 'R'
2650: END IF; -- end of IF l_margin_derived_from_code IS NOT NULL
2651: pa_debug.g_err_stage := TO_CHAR(x_projfunc_margin)||':'||TO_CHAR(x_projfunc_margin_percent)||':'||TO_CHAR(x_proj_margin)||':'||TO_CHAR(x_proj_margin_percent);
2652: IF P_PA_DEBUG_MODE = 'Y' THEN
2653: pa_debug.write('GET_ELEMENT_AMOUNT_INFO: ' || l_module_name,pa_debug.g_err_stage,3);
2654: END IF;
2655: END IF ;
2656: /* p_calling_context <> PA_FP_CONSTANTS_PKG.G_CALLING_CONTEXT_OTHER_CURR THEN */
2657:
2654: END IF;
2655: END IF ;
2656: /* p_calling_context <> PA_FP_CONSTANTS_PKG.G_CALLING_CONTEXT_OTHER_CURR THEN */
2657:
2658: pa_debug.g_err_stage := TO_CHAR(l_stage)||':calling PA_FIN_PLAN_UTILS.GET_PLAN_AMOUNT_FLAGS ';
2659: IF P_PA_DEBUG_MODE = 'Y' THEN
2660: pa_debug.write('GET_ELEMENT_AMOUNT_INFO: ' || l_module_name,pa_debug.g_err_stage,3);
2661: END IF;
2662:
2655: END IF ;
2656: /* p_calling_context <> PA_FP_CONSTANTS_PKG.G_CALLING_CONTEXT_OTHER_CURR THEN */
2657:
2658: pa_debug.g_err_stage := TO_CHAR(l_stage)||':calling PA_FIN_PLAN_UTILS.GET_PLAN_AMOUNT_FLAGS ';
2659: IF P_PA_DEBUG_MODE = 'Y' THEN
2660: pa_debug.write('GET_ELEMENT_AMOUNT_INFO: ' || l_module_name,pa_debug.g_err_stage,3);
2661: END IF;
2662:
2663:
2656: /* p_calling_context <> PA_FP_CONSTANTS_PKG.G_CALLING_CONTEXT_OTHER_CURR THEN */
2657:
2658: pa_debug.g_err_stage := TO_CHAR(l_stage)||':calling PA_FIN_PLAN_UTILS.GET_PLAN_AMOUNT_FLAGS ';
2659: IF P_PA_DEBUG_MODE = 'Y' THEN
2660: pa_debug.write('GET_ELEMENT_AMOUNT_INFO: ' || l_module_name,pa_debug.g_err_stage,3);
2661: END IF;
2662:
2663:
2664: /* Changes for FP.M, Tracking Bug No - 3354518. Adding three new arguements for x_bill_rate_flag,
2697: x_quantity_flag := 'Y';
2698:
2699: END IF;
2700:
2701: pa_debug.reset_err_stack; /* Bug 2699888 */
2702:
2703: EXCEPTION
2704: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
2705: x_return_status := FND_API.G_RET_STS_ERROR;
2718: ELSE
2719: x_msg_count := l_msg_count;
2720: END IF;
2721:
2722: IF P_PA_DEBUG_MODE = 'Y' THEN
2723: pa_debug.write('GET_ELEMENT_AMOUNT_INFO: ' || l_module_name,'Invalid arguments passed',5);
2724: pa_debug.write('GET_ELEMENT_AMOUNT_INFO: ' || l_module_name,pa_debug.G_Err_Stack,5);
2725: END IF;
2726: pa_debug.reset_err_stack;
2719: x_msg_count := l_msg_count;
2720: END IF;
2721:
2722: IF P_PA_DEBUG_MODE = 'Y' THEN
2723: pa_debug.write('GET_ELEMENT_AMOUNT_INFO: ' || l_module_name,'Invalid arguments passed',5);
2724: pa_debug.write('GET_ELEMENT_AMOUNT_INFO: ' || l_module_name,pa_debug.G_Err_Stack,5);
2725: END IF;
2726: pa_debug.reset_err_stack;
2727:
2720: END IF;
2721:
2722: IF P_PA_DEBUG_MODE = 'Y' THEN
2723: pa_debug.write('GET_ELEMENT_AMOUNT_INFO: ' || l_module_name,'Invalid arguments passed',5);
2724: pa_debug.write('GET_ELEMENT_AMOUNT_INFO: ' || l_module_name,pa_debug.G_Err_Stack,5);
2725: END IF;
2726: pa_debug.reset_err_stack;
2727:
2728: WHEN OTHERS THEN
2722: IF P_PA_DEBUG_MODE = 'Y' THEN
2723: pa_debug.write('GET_ELEMENT_AMOUNT_INFO: ' || l_module_name,'Invalid arguments passed',5);
2724: pa_debug.write('GET_ELEMENT_AMOUNT_INFO: ' || l_module_name,pa_debug.G_Err_Stack,5);
2725: END IF;
2726: pa_debug.reset_err_stack;
2727:
2728: WHEN OTHERS THEN
2729: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2730: x_msg_count := 1;
2730: x_msg_count := 1;
2731: x_msg_data := SQLERRM;
2732: FND_MSG_PUB.add_exc_msg
2733: ( p_pkg_name => 'PA_FP_EDIT_LINE_PKG.GET_ELEMENT_AMOUNT_INFO'
2734: ,p_procedure_name => pa_debug.G_Err_Stack );
2735: pa_debug.G_Err_Stack := SQLERRM;
2736: IF P_PA_DEBUG_MODE = 'Y' THEN
2737: pa_debug.write('GET_ELEMENT_AMOUNT_INFO: ' || l_module_name,pa_debug.G_Err_Stack,4);
2738: END IF;
2731: x_msg_data := SQLERRM;
2732: FND_MSG_PUB.add_exc_msg
2733: ( p_pkg_name => 'PA_FP_EDIT_LINE_PKG.GET_ELEMENT_AMOUNT_INFO'
2734: ,p_procedure_name => pa_debug.G_Err_Stack );
2735: pa_debug.G_Err_Stack := SQLERRM;
2736: IF P_PA_DEBUG_MODE = 'Y' THEN
2737: pa_debug.write('GET_ELEMENT_AMOUNT_INFO: ' || l_module_name,pa_debug.G_Err_Stack,4);
2738: END IF;
2739: pa_debug.reset_err_stack;
2732: FND_MSG_PUB.add_exc_msg
2733: ( p_pkg_name => 'PA_FP_EDIT_LINE_PKG.GET_ELEMENT_AMOUNT_INFO'
2734: ,p_procedure_name => pa_debug.G_Err_Stack );
2735: pa_debug.G_Err_Stack := SQLERRM;
2736: IF P_PA_DEBUG_MODE = 'Y' THEN
2737: pa_debug.write('GET_ELEMENT_AMOUNT_INFO: ' || l_module_name,pa_debug.G_Err_Stack,4);
2738: END IF;
2739: pa_debug.reset_err_stack;
2740:
2733: ( p_pkg_name => 'PA_FP_EDIT_LINE_PKG.GET_ELEMENT_AMOUNT_INFO'
2734: ,p_procedure_name => pa_debug.G_Err_Stack );
2735: pa_debug.G_Err_Stack := SQLERRM;
2736: IF P_PA_DEBUG_MODE = 'Y' THEN
2737: pa_debug.write('GET_ELEMENT_AMOUNT_INFO: ' || l_module_name,pa_debug.G_Err_Stack,4);
2738: END IF;
2739: pa_debug.reset_err_stack;
2740:
2741: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2735: pa_debug.G_Err_Stack := SQLERRM;
2736: IF P_PA_DEBUG_MODE = 'Y' THEN
2737: pa_debug.write('GET_ELEMENT_AMOUNT_INFO: ' || l_module_name,pa_debug.G_Err_Stack,4);
2738: END IF;
2739: pa_debug.reset_err_stack;
2740:
2741: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2742:
2743: END GET_ELEMENT_AMOUNT_INFO;
2783: BEGIN
2784:
2785: x_msg_count := 0;
2786: x_return_status := FND_API.G_RET_STS_SUCCESS;
2787: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'), 'Y');
2788:
2789: IF l_debug_mode = 'Y' THEN
2790: pa_debug.set_curr_function( p_function => 'CALL_CLIENT_EXTENSIONS'
2791: ,p_debug_mode => l_debug_mode );
2786: x_return_status := FND_API.G_RET_STS_SUCCESS;
2787: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'), 'Y');
2788:
2789: IF l_debug_mode = 'Y' THEN
2790: pa_debug.set_curr_function( p_function => 'CALL_CLIENT_EXTENSIONS'
2791: ,p_debug_mode => l_debug_mode );
2792: END IF;
2793:
2794: IF l_debug_mode = 'Y' THEN
2791: ,p_debug_mode => l_debug_mode );
2792: END IF;
2793:
2794: IF l_debug_mode = 'Y' THEN
2795: pa_debug.g_err_stage := TO_CHAR(l_stage)||':In PA_FP_EDIT_LINE_PKG.CALL_CLIENT_EXTENSIONS ';
2796: pa_debug.write('CALL_CLIENT_EXTENSIONS: ' || l_module_name,pa_debug.g_err_stage,3);
2797: END IF;
2798:
2799: IF (p_project_id IS NULL) OR (p_budget_version_id IS NULL) THEN
2792: END IF;
2793:
2794: IF l_debug_mode = 'Y' THEN
2795: pa_debug.g_err_stage := TO_CHAR(l_stage)||':In PA_FP_EDIT_LINE_PKG.CALL_CLIENT_EXTENSIONS ';
2796: pa_debug.write('CALL_CLIENT_EXTENSIONS: ' || l_module_name,pa_debug.g_err_stage,3);
2797: END IF;
2798:
2799: IF (p_project_id IS NULL) OR (p_budget_version_id IS NULL) THEN
2800: IF l_debug_mode = 'Y' THEN
2797: END IF;
2798:
2799: IF (p_project_id IS NULL) OR (p_budget_version_id IS NULL) THEN
2800: IF l_debug_mode = 'Y' THEN
2801: pa_debug.g_err_stage := TO_CHAR(l_stage)||':Invalid Input Parameters';
2802: pa_debug.write('CALL_CLIENT_EXTENSIONS: ' || l_module_name,pa_debug.g_err_stage,1);
2803:
2804: END IF;
2805: x_return_status := FND_API.G_RET_STS_ERROR;
2798:
2799: IF (p_project_id IS NULL) OR (p_budget_version_id IS NULL) THEN
2800: IF l_debug_mode = 'Y' THEN
2801: pa_debug.g_err_stage := TO_CHAR(l_stage)||':Invalid Input Parameters';
2802: pa_debug.write('CALL_CLIENT_EXTENSIONS: ' || l_module_name,pa_debug.g_err_stage,1);
2803:
2804: END IF;
2805: x_return_status := FND_API.G_RET_STS_ERROR;
2806: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
2808: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
2809: END IF;
2810:
2811: IF l_debug_mode = 'Y' THEN
2812: pa_debug.g_err_stage := 'before extending p_start_date_tbl.last = ' || p_start_date_tbl.last;
2813: pa_debug.write('CALL_CLIENT_EXTENSIONS: ' || l_module_name,pa_debug.g_err_stage,3);
2814: END IF;
2815:
2816: l_task_id_tbl.extend(p_start_date_tbl.last);
2809: END IF;
2810:
2811: IF l_debug_mode = 'Y' THEN
2812: pa_debug.g_err_stage := 'before extending p_start_date_tbl.last = ' || p_start_date_tbl.last;
2813: pa_debug.write('CALL_CLIENT_EXTENSIONS: ' || l_module_name,pa_debug.g_err_stage,3);
2814: END IF;
2815:
2816: l_task_id_tbl.extend(p_start_date_tbl.last);
2817: l_res_list_member_id_tbl.extend(p_start_date_tbl.last);
2818: l_resource_id_tbl.extend(p_start_date_tbl.last);
2819: l_txn_currency_code_tbl.extend(p_start_date_tbl.last);
2820:
2821: IF l_debug_mode = 'Y' THEN
2822: pa_debug.g_err_stage := 'before filling up the tables';
2823: pa_debug.write('CALL_CLIENT_EXTENSIONS: ' || l_module_name,pa_debug.g_err_stage,3);
2824: END IF;
2825:
2826: IF nvl(p_start_date_tbl.last,0) >= 1 THEN
2819: l_txn_currency_code_tbl.extend(p_start_date_tbl.last);
2820:
2821: IF l_debug_mode = 'Y' THEN
2822: pa_debug.g_err_stage := 'before filling up the tables';
2823: pa_debug.write('CALL_CLIENT_EXTENSIONS: ' || l_module_name,pa_debug.g_err_stage,3);
2824: END IF;
2825:
2826: IF nvl(p_start_date_tbl.last,0) >= 1 THEN
2827: FOR i in p_start_date_tbl.FIRST..p_start_date_tbl.LAST LOOP
2832: END LOOP ;
2833: END IF ;
2834:
2835: IF l_debug_mode = 'Y' THEN
2836: pa_debug.g_err_stage := 'PA_FP_EDIT_LINE_PKG.CALL_CLIENT_EXTENSIONS' ;
2837: pa_debug.write(l_module_name,pa_debug.g_err_stage,5);
2838: END IF;
2839:
2840: PA_FP_EDIT_LINE_PKG.CALL_CLIENT_EXTENSIONS
2833: END IF ;
2834:
2835: IF l_debug_mode = 'Y' THEN
2836: pa_debug.g_err_stage := 'PA_FP_EDIT_LINE_PKG.CALL_CLIENT_EXTENSIONS' ;
2837: pa_debug.write(l_module_name,pa_debug.g_err_stage,5);
2838: END IF;
2839:
2840: PA_FP_EDIT_LINE_PKG.CALL_CLIENT_EXTENSIONS
2841: ( p_project_id => p_project_id
2863: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
2864: END IF ;
2865:
2866: IF l_debug_mode = 'Y' THEN
2867: pa_debug.g_err_stage:= 'Exiting CALL_CLIENT_EXTENSION' ;
2868: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
2869: pa_debug.reset_curr_function;
2870: END IF;
2871:
2864: END IF ;
2865:
2866: IF l_debug_mode = 'Y' THEN
2867: pa_debug.g_err_stage:= 'Exiting CALL_CLIENT_EXTENSION' ;
2868: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
2869: pa_debug.reset_curr_function;
2870: END IF;
2871:
2872: EXCEPTION
2865:
2866: IF l_debug_mode = 'Y' THEN
2867: pa_debug.g_err_stage:= 'Exiting CALL_CLIENT_EXTENSION' ;
2868: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
2869: pa_debug.reset_curr_function;
2870: END IF;
2871:
2872: EXCEPTION
2873: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
2873: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
2874: x_return_status := FND_API.G_RET_STS_ERROR;
2875: l_msg_count := FND_MSG_PUB.count_msg;
2876: IF l_debug_mode = 'Y' THEN
2877: pa_debug.g_err_stage := 'inside invalid arg exception of call_client_extensions';
2878: pa_debug.write(l_module_name,pa_debug.g_err_stage,5);
2879: END IF;
2880: IF l_msg_count = 1 THEN
2881: PA_INTERFACE_UTILS_PUB.get_messages
2874: x_return_status := FND_API.G_RET_STS_ERROR;
2875: l_msg_count := FND_MSG_PUB.count_msg;
2876: IF l_debug_mode = 'Y' THEN
2877: pa_debug.g_err_stage := 'inside invalid arg exception of call_client_extensions';
2878: pa_debug.write(l_module_name,pa_debug.g_err_stage,5);
2879: END IF;
2880: IF l_msg_count = 1 THEN
2881: PA_INTERFACE_UTILS_PUB.get_messages
2882: (p_encoded => FND_API.G_TRUE,
2890: ELSE
2891: x_msg_count := l_msg_count;
2892: END IF;
2893: IF l_debug_mode = 'Y' THEN
2894: pa_debug.reset_curr_function;
2895: END IF ;
2896: RETURN;
2897: WHEN OTHERS THEN
2898: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2903: ,p_procedure_name => 'CALL_CLIENT_EXTENSION'
2904: ,p_error_text => sqlerrm);
2905:
2906: IF l_debug_mode = 'Y' THEN
2907: pa_debug.g_err_stage := 'inside others exception of process_xface_lines';
2908: pa_debug.write(l_module_name,pa_debug.g_err_stage,5);
2909: pa_debug.G_Err_Stack := SQLERRM;
2910: pa_debug.reset_curr_function;
2911: END IF;
2904: ,p_error_text => sqlerrm);
2905:
2906: IF l_debug_mode = 'Y' THEN
2907: pa_debug.g_err_stage := 'inside others exception of process_xface_lines';
2908: pa_debug.write(l_module_name,pa_debug.g_err_stage,5);
2909: pa_debug.G_Err_Stack := SQLERRM;
2910: pa_debug.reset_curr_function;
2911: END IF;
2912: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2905:
2906: IF l_debug_mode = 'Y' THEN
2907: pa_debug.g_err_stage := 'inside others exception of process_xface_lines';
2908: pa_debug.write(l_module_name,pa_debug.g_err_stage,5);
2909: pa_debug.G_Err_Stack := SQLERRM;
2910: pa_debug.reset_curr_function;
2911: END IF;
2912: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2913: END CALL_CLIENT_EXTENSIONS;
2906: IF l_debug_mode = 'Y' THEN
2907: pa_debug.g_err_stage := 'inside others exception of process_xface_lines';
2908: pa_debug.write(l_module_name,pa_debug.g_err_stage,5);
2909: pa_debug.G_Err_Stack := SQLERRM;
2910: pa_debug.reset_curr_function;
2911: END IF;
2912: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2913: END CALL_CLIENT_EXTENSIONS;
2914:
2931: l_time_phased_code pa_proj_fp_options.cost_time_phased_code%TYPE;
2932:
2933: BEGIN
2934: -- Set the error stack.
2935: pa_debug.set_err_stack('PA_FP_EDIT_LINE_PKG.POPULATE_ELIGIBLE_PERIODS');
2936:
2937: -- Get the Debug mode into local variable and set it to 'Y' if its NULL
2938: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
2939: l_debug_mode := NVL(l_debug_mode, 'Y');
2934: -- Set the error stack.
2935: pa_debug.set_err_stack('PA_FP_EDIT_LINE_PKG.POPULATE_ELIGIBLE_PERIODS');
2936:
2937: -- Get the Debug mode into local variable and set it to 'Y' if its NULL
2938: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
2939: l_debug_mode := NVL(l_debug_mode, 'Y');
2940:
2941: -- Initialize the return status to success
2942: x_return_status := FND_API.G_RET_STS_SUCCESS;
2940:
2941: -- Initialize the return status to success
2942: x_return_status := FND_API.G_RET_STS_SUCCESS;
2943:
2944: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
2945:
2946: pa_debug.g_err_stage := TO_CHAR(l_stage)||':In PA_FP_EDIT_LINE_PKG.POPULATE_ELIGIBLE_PERIODS ';
2947: IF P_PA_DEBUG_MODE = 'Y' THEN
2948: pa_debug.write('POPULATE_ELIGIBLE_PERIODS: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2942: x_return_status := FND_API.G_RET_STS_SUCCESS;
2943:
2944: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
2945:
2946: pa_debug.g_err_stage := TO_CHAR(l_stage)||':In PA_FP_EDIT_LINE_PKG.POPULATE_ELIGIBLE_PERIODS ';
2947: IF P_PA_DEBUG_MODE = 'Y' THEN
2948: pa_debug.write('POPULATE_ELIGIBLE_PERIODS: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2949: END IF;
2950:
2943:
2944: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
2945:
2946: pa_debug.g_err_stage := TO_CHAR(l_stage)||':In PA_FP_EDIT_LINE_PKG.POPULATE_ELIGIBLE_PERIODS ';
2947: IF P_PA_DEBUG_MODE = 'Y' THEN
2948: pa_debug.write('POPULATE_ELIGIBLE_PERIODS: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2949: END IF;
2950:
2951: IF (p_fin_plan_version_id IS NULL) THEN
2944: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
2945:
2946: pa_debug.g_err_stage := TO_CHAR(l_stage)||':In PA_FP_EDIT_LINE_PKG.POPULATE_ELIGIBLE_PERIODS ';
2947: IF P_PA_DEBUG_MODE = 'Y' THEN
2948: pa_debug.write('POPULATE_ELIGIBLE_PERIODS: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2949: END IF;
2950:
2951: IF (p_fin_plan_version_id IS NULL) THEN
2952: pa_debug.g_err_stage := TO_CHAR(l_stage)||':Invalid Input Parameters';
2948: pa_debug.write('POPULATE_ELIGIBLE_PERIODS: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2949: END IF;
2950:
2951: IF (p_fin_plan_version_id IS NULL) THEN
2952: pa_debug.g_err_stage := TO_CHAR(l_stage)||':Invalid Input Parameters';
2953: IF P_PA_DEBUG_MODE = 'Y' THEN
2954: pa_debug.write('POPULATE_ELIGIBLE_PERIODS: ' || l_module_name,pa_debug.g_err_stage,1);
2955: END IF;
2956: x_return_status := FND_API.G_RET_STS_ERROR;
2949: END IF;
2950:
2951: IF (p_fin_plan_version_id IS NULL) THEN
2952: pa_debug.g_err_stage := TO_CHAR(l_stage)||':Invalid Input Parameters';
2953: IF P_PA_DEBUG_MODE = 'Y' THEN
2954: pa_debug.write('POPULATE_ELIGIBLE_PERIODS: ' || l_module_name,pa_debug.g_err_stage,1);
2955: END IF;
2956: x_return_status := FND_API.G_RET_STS_ERROR;
2957: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
2950:
2951: IF (p_fin_plan_version_id IS NULL) THEN
2952: pa_debug.g_err_stage := TO_CHAR(l_stage)||':Invalid Input Parameters';
2953: IF P_PA_DEBUG_MODE = 'Y' THEN
2954: pa_debug.write('POPULATE_ELIGIBLE_PERIODS: ' || l_module_name,pa_debug.g_err_stage,1);
2955: END IF;
2956: x_return_status := FND_API.G_RET_STS_ERROR;
2957: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
2958: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
2959: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
2960: END IF;
2961:
2962: l_stage := 200;
2963: pa_debug.g_err_stage := TO_CHAR(l_stage)||':Starting the main processing. Inserting into temp table';
2964: IF P_PA_DEBUG_MODE = 'Y' THEN
2965: pa_debug.write('POPULATE_ELIGIBLE_PERIODS: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2966: END IF;
2967:
2960: END IF;
2961:
2962: l_stage := 200;
2963: pa_debug.g_err_stage := TO_CHAR(l_stage)||':Starting the main processing. Inserting into temp table';
2964: IF P_PA_DEBUG_MODE = 'Y' THEN
2965: pa_debug.write('POPULATE_ELIGIBLE_PERIODS: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2966: END IF;
2967:
2968: l_time_phased_code := pa_fin_plan_utils.get_time_phased_code(
2961:
2962: l_stage := 200;
2963: pa_debug.g_err_stage := TO_CHAR(l_stage)||':Starting the main processing. Inserting into temp table';
2964: IF P_PA_DEBUG_MODE = 'Y' THEN
2965: pa_debug.write('POPULATE_ELIGIBLE_PERIODS: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2966: END IF;
2967:
2968: l_time_phased_code := pa_fin_plan_utils.get_time_phased_code(
2969: p_fin_plan_version_id => p_fin_plan_version_id);
2967:
2968: l_time_phased_code := pa_fin_plan_utils.get_time_phased_code(
2969: p_fin_plan_version_id => p_fin_plan_version_id);
2970:
2971: pa_debug.g_err_stage:='l_time_phased_code is '|| l_time_phased_code;
2972: IF P_PA_DEBUG_MODE = 'Y' THEN
2973: pa_debug.write('POPULATE_ELIGIBLE_PERIODS: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2974: END IF;
2975:
2968: l_time_phased_code := pa_fin_plan_utils.get_time_phased_code(
2969: p_fin_plan_version_id => p_fin_plan_version_id);
2970:
2971: pa_debug.g_err_stage:='l_time_phased_code is '|| l_time_phased_code;
2972: IF P_PA_DEBUG_MODE = 'Y' THEN
2973: pa_debug.write('POPULATE_ELIGIBLE_PERIODS: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2974: END IF;
2975:
2976: pa_debug.g_err_stage:='l_start_period_start_date is '||to_char(p_period_profile_start_date);
2969: p_fin_plan_version_id => p_fin_plan_version_id);
2970:
2971: pa_debug.g_err_stage:='l_time_phased_code is '|| l_time_phased_code;
2972: IF P_PA_DEBUG_MODE = 'Y' THEN
2973: pa_debug.write('POPULATE_ELIGIBLE_PERIODS: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2974: END IF;
2975:
2976: pa_debug.g_err_stage:='l_start_period_start_date is '||to_char(p_period_profile_start_date);
2977: IF P_PA_DEBUG_MODE = 'Y' THEN
2972: IF P_PA_DEBUG_MODE = 'Y' THEN
2973: pa_debug.write('POPULATE_ELIGIBLE_PERIODS: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2974: END IF;
2975:
2976: pa_debug.g_err_stage:='l_start_period_start_date is '||to_char(p_period_profile_start_date);
2977: IF P_PA_DEBUG_MODE = 'Y' THEN
2978: pa_debug.write('POPULATE_ELIGIBLE_PERIODS: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2979: END IF;
2980:
2973: pa_debug.write('POPULATE_ELIGIBLE_PERIODS: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2974: END IF;
2975:
2976: pa_debug.g_err_stage:='l_start_period_start_date is '||to_char(p_period_profile_start_date);
2977: IF P_PA_DEBUG_MODE = 'Y' THEN
2978: pa_debug.write('POPULATE_ELIGIBLE_PERIODS: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2979: END IF;
2980:
2981: pa_debug.g_err_stage:='l_end_period_end_date is '||to_char(p_period_profile_end_date) ;
2974: END IF;
2975:
2976: pa_debug.g_err_stage:='l_start_period_start_date is '||to_char(p_period_profile_start_date);
2977: IF P_PA_DEBUG_MODE = 'Y' THEN
2978: pa_debug.write('POPULATE_ELIGIBLE_PERIODS: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2979: END IF;
2980:
2981: pa_debug.g_err_stage:='l_end_period_end_date is '||to_char(p_period_profile_end_date) ;
2982: IF P_PA_DEBUG_MODE = 'Y' THEN
2977: IF P_PA_DEBUG_MODE = 'Y' THEN
2978: pa_debug.write('POPULATE_ELIGIBLE_PERIODS: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2979: END IF;
2980:
2981: pa_debug.g_err_stage:='l_end_period_end_date is '||to_char(p_period_profile_end_date) ;
2982: IF P_PA_DEBUG_MODE = 'Y' THEN
2983: pa_debug.write('POPULATE_ELIGIBLE_PERIODS: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2984: END IF;
2985:
2978: pa_debug.write('POPULATE_ELIGIBLE_PERIODS: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2979: END IF;
2980:
2981: pa_debug.g_err_stage:='l_end_period_end_date is '||to_char(p_period_profile_end_date) ;
2982: IF P_PA_DEBUG_MODE = 'Y' THEN
2983: pa_debug.write('POPULATE_ELIGIBLE_PERIODS: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2984: END IF;
2985:
2986: pa_debug.g_err_stage:='p_preceding_prd_start_date is '||to_char(p_preceding_prd_start_date);
2979: END IF;
2980:
2981: pa_debug.g_err_stage:='l_end_period_end_date is '||to_char(p_period_profile_end_date) ;
2982: IF P_PA_DEBUG_MODE = 'Y' THEN
2983: pa_debug.write('POPULATE_ELIGIBLE_PERIODS: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2984: END IF;
2985:
2986: pa_debug.g_err_stage:='p_preceding_prd_start_date is '||to_char(p_preceding_prd_start_date);
2987: IF P_PA_DEBUG_MODE = 'Y' THEN
2982: IF P_PA_DEBUG_MODE = 'Y' THEN
2983: pa_debug.write('POPULATE_ELIGIBLE_PERIODS: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2984: END IF;
2985:
2986: pa_debug.g_err_stage:='p_preceding_prd_start_date is '||to_char(p_preceding_prd_start_date);
2987: IF P_PA_DEBUG_MODE = 'Y' THEN
2988: pa_debug.write('POPULATE_ELIGIBLE_PERIODS: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2989: END IF;
2990:
2983: pa_debug.write('POPULATE_ELIGIBLE_PERIODS: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2984: END IF;
2985:
2986: pa_debug.g_err_stage:='p_preceding_prd_start_date is '||to_char(p_preceding_prd_start_date);
2987: IF P_PA_DEBUG_MODE = 'Y' THEN
2988: pa_debug.write('POPULATE_ELIGIBLE_PERIODS: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2989: END IF;
2990:
2991: pa_debug.g_err_stage:='p_succeeding_prd_start_date is '||to_char(p_succeeding_prd_start_date) ;
2984: END IF;
2985:
2986: pa_debug.g_err_stage:='p_preceding_prd_start_date is '||to_char(p_preceding_prd_start_date);
2987: IF P_PA_DEBUG_MODE = 'Y' THEN
2988: pa_debug.write('POPULATE_ELIGIBLE_PERIODS: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2989: END IF;
2990:
2991: pa_debug.g_err_stage:='p_succeeding_prd_start_date is '||to_char(p_succeeding_prd_start_date) ;
2992: IF P_PA_DEBUG_MODE = 'Y' THEN
2987: IF P_PA_DEBUG_MODE = 'Y' THEN
2988: pa_debug.write('POPULATE_ELIGIBLE_PERIODS: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2989: END IF;
2990:
2991: pa_debug.g_err_stage:='p_succeeding_prd_start_date is '||to_char(p_succeeding_prd_start_date) ;
2992: IF P_PA_DEBUG_MODE = 'Y' THEN
2993: pa_debug.write('POPULATE_ELIGIBLE_PERIODS: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2994: END IF;
2995:
2988: pa_debug.write('POPULATE_ELIGIBLE_PERIODS: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2989: END IF;
2990:
2991: pa_debug.g_err_stage:='p_succeeding_prd_start_date is '||to_char(p_succeeding_prd_start_date) ;
2992: IF P_PA_DEBUG_MODE = 'Y' THEN
2993: pa_debug.write('POPULATE_ELIGIBLE_PERIODS: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2994: END IF;
2995:
2996: delete from pa_fp_cpy_periods_tmp;
2989: END IF;
2990:
2991: pa_debug.g_err_stage:='p_succeeding_prd_start_date is '||to_char(p_succeeding_prd_start_date) ;
2992: IF P_PA_DEBUG_MODE = 'Y' THEN
2993: pa_debug.write('POPULATE_ELIGIBLE_PERIODS: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2994: END IF;
2995:
2996: delete from pa_fp_cpy_periods_tmp;
2997:
2994: END IF;
2995:
2996: delete from pa_fp_cpy_periods_tmp;
2997:
2998: pa_debug.g_err_stage:='deleted '||sql%rowcount || ' records from tmp table' ;
2999: IF P_PA_DEBUG_MODE = 'Y' THEN
3000: pa_debug.write('POPULATE_ELIGIBLE_PERIODS: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
3001: END IF;
3002:
2995:
2996: delete from pa_fp_cpy_periods_tmp;
2997:
2998: pa_debug.g_err_stage:='deleted '||sql%rowcount || ' records from tmp table' ;
2999: IF P_PA_DEBUG_MODE = 'Y' THEN
3000: pa_debug.write('POPULATE_ELIGIBLE_PERIODS: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
3001: END IF;
3002:
3003:
2996: delete from pa_fp_cpy_periods_tmp;
2997:
2998: pa_debug.g_err_stage:='deleted '||sql%rowcount || ' records from tmp table' ;
2999: IF P_PA_DEBUG_MODE = 'Y' THEN
3000: pa_debug.write('POPULATE_ELIGIBLE_PERIODS: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
3001: END IF;
3002:
3003:
3004: IF l_time_phased_code = PA_FP_CONSTANTS_PKG.G_TIME_PHASED_CODE_P THEN
3002:
3003:
3004: IF l_time_phased_code = PA_FP_CONSTANTS_PKG.G_TIME_PHASED_CODE_P THEN
3005:
3006: pa_debug.g_err_stage:='Populating pa_fp_cpy_periods_tmp in the case of pa_period time phasing';
3007: IF P_PA_DEBUG_MODE = 'Y' THEN
3008: pa_debug.write('POPULATE_ELIGIBLE_PERIODS: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
3009: END IF;
3010:
3003:
3004: IF l_time_phased_code = PA_FP_CONSTANTS_PKG.G_TIME_PHASED_CODE_P THEN
3005:
3006: pa_debug.g_err_stage:='Populating pa_fp_cpy_periods_tmp in the case of pa_period time phasing';
3007: IF P_PA_DEBUG_MODE = 'Y' THEN
3008: pa_debug.write('POPULATE_ELIGIBLE_PERIODS: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
3009: END IF;
3010:
3011: IF p_preceding_prd_start_date IS NOT NULL THEN
3004: IF l_time_phased_code = PA_FP_CONSTANTS_PKG.G_TIME_PHASED_CODE_P THEN
3005:
3006: pa_debug.g_err_stage:='Populating pa_fp_cpy_periods_tmp in the case of pa_period time phasing';
3007: IF P_PA_DEBUG_MODE = 'Y' THEN
3008: pa_debug.write('POPULATE_ELIGIBLE_PERIODS: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
3009: END IF;
3010:
3011: IF p_preceding_prd_start_date IS NOT NULL THEN
3012:
3009: END IF;
3010:
3011: IF p_preceding_prd_start_date IS NOT NULL THEN
3012:
3013: pa_debug.g_err_stage:='inserting into pa_fp_cpy_periods_tmp for preceding period' ;
3014: IF P_PA_DEBUG_MODE = 'Y' THEN
3015: pa_debug.write('POPULATE_ELIGIBLE_PERIODS: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
3016: END IF;
3017:
3010:
3011: IF p_preceding_prd_start_date IS NOT NULL THEN
3012:
3013: pa_debug.g_err_stage:='inserting into pa_fp_cpy_periods_tmp for preceding period' ;
3014: IF P_PA_DEBUG_MODE = 'Y' THEN
3015: pa_debug.write('POPULATE_ELIGIBLE_PERIODS: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
3016: END IF;
3017:
3018: INSERT INTO pa_fp_cpy_periods_tmp
3011: IF p_preceding_prd_start_date IS NOT NULL THEN
3012:
3013: pa_debug.g_err_stage:='inserting into pa_fp_cpy_periods_tmp for preceding period' ;
3014: IF P_PA_DEBUG_MODE = 'Y' THEN
3015: pa_debug.write('POPULATE_ELIGIBLE_PERIODS: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
3016: END IF;
3017:
3018: INSERT INTO pa_fp_cpy_periods_tmp
3019: ( start_date
3044: ,period_name period_name
3045: FROM PA_PERIODS
3046: WHERE start_date BETWEEN p_period_profile_start_date AND p_period_profile_end_date;
3047:
3048: pa_debug.g_err_stage := TO_CHAR(l_stage)||'inserted ' || sql%rowcount || ' records';
3049: IF P_PA_DEBUG_MODE = 'Y' THEN
3050: pa_debug.write('POPULATE_ELIGIBLE_PERIODS: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
3051: END IF;
3052:
3045: FROM PA_PERIODS
3046: WHERE start_date BETWEEN p_period_profile_start_date AND p_period_profile_end_date;
3047:
3048: pa_debug.g_err_stage := TO_CHAR(l_stage)||'inserted ' || sql%rowcount || ' records';
3049: IF P_PA_DEBUG_MODE = 'Y' THEN
3050: pa_debug.write('POPULATE_ELIGIBLE_PERIODS: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
3051: END IF;
3052:
3053: IF p_succeeding_prd_start_date IS NOT NULL THEN
3046: WHERE start_date BETWEEN p_period_profile_start_date AND p_period_profile_end_date;
3047:
3048: pa_debug.g_err_stage := TO_CHAR(l_stage)||'inserted ' || sql%rowcount || ' records';
3049: IF P_PA_DEBUG_MODE = 'Y' THEN
3050: pa_debug.write('POPULATE_ELIGIBLE_PERIODS: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
3051: END IF;
3052:
3053: IF p_succeeding_prd_start_date IS NOT NULL THEN
3054:
3051: END IF;
3052:
3053: IF p_succeeding_prd_start_date IS NOT NULL THEN
3054:
3055: pa_debug.g_err_stage:='inserting into pa_fp_cpy_periods_tmp for succeeding period' ;
3056: IF P_PA_DEBUG_MODE = 'Y' THEN
3057: pa_debug.write('POPULATE_ELIGIBLE_PERIODS: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
3058: END IF;
3059:
3052:
3053: IF p_succeeding_prd_start_date IS NOT NULL THEN
3054:
3055: pa_debug.g_err_stage:='inserting into pa_fp_cpy_periods_tmp for succeeding period' ;
3056: IF P_PA_DEBUG_MODE = 'Y' THEN
3057: pa_debug.write('POPULATE_ELIGIBLE_PERIODS: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
3058: END IF;
3059:
3060: INSERT INTO pa_fp_cpy_periods_tmp
3053: IF p_succeeding_prd_start_date IS NOT NULL THEN
3054:
3055: pa_debug.g_err_stage:='inserting into pa_fp_cpy_periods_tmp for succeeding period' ;
3056: IF P_PA_DEBUG_MODE = 'Y' THEN
3057: pa_debug.write('POPULATE_ELIGIBLE_PERIODS: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
3058: END IF;
3059:
3060: INSERT INTO pa_fp_cpy_periods_tmp
3061: ( start_date
3074: END IF;
3075:
3076: ELSIF l_time_phased_code = PA_FP_CONSTANTS_PKG.G_TIME_PHASED_CODE_G THEN
3077:
3078: pa_debug.g_err_stage:='Populating pa_fp_cpy_periods_tmp in the case of gl_period time phasing';
3079: IF P_PA_DEBUG_MODE = 'Y' THEN
3080: pa_debug.write('POPULATE_ELIGIBLE_PERIODS: ' || l_module_name,pa_debug.g_err_stage,3);
3081: END IF;
3082:
3075:
3076: ELSIF l_time_phased_code = PA_FP_CONSTANTS_PKG.G_TIME_PHASED_CODE_G THEN
3077:
3078: pa_debug.g_err_stage:='Populating pa_fp_cpy_periods_tmp in the case of gl_period time phasing';
3079: IF P_PA_DEBUG_MODE = 'Y' THEN
3080: pa_debug.write('POPULATE_ELIGIBLE_PERIODS: ' || l_module_name,pa_debug.g_err_stage,3);
3081: END IF;
3082:
3083:
3076: ELSIF l_time_phased_code = PA_FP_CONSTANTS_PKG.G_TIME_PHASED_CODE_G THEN
3077:
3078: pa_debug.g_err_stage:='Populating pa_fp_cpy_periods_tmp in the case of gl_period time phasing';
3079: IF P_PA_DEBUG_MODE = 'Y' THEN
3080: pa_debug.write('POPULATE_ELIGIBLE_PERIODS: ' || l_module_name,pa_debug.g_err_stage,3);
3081: END IF;
3082:
3083:
3084: IF p_preceding_prd_start_date IS NOT NULL THEN
3082:
3083:
3084: IF p_preceding_prd_start_date IS NOT NULL THEN
3085:
3086: pa_debug.g_err_stage:='inserting into pa_fp_cpy_periods_tmp for preceding period' ;
3087: IF P_PA_DEBUG_MODE = 'Y' THEN
3088: pa_debug.write('POPULATE_ELIGIBLE_PERIODS: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
3089: END IF;
3090:
3083:
3084: IF p_preceding_prd_start_date IS NOT NULL THEN
3085:
3086: pa_debug.g_err_stage:='inserting into pa_fp_cpy_periods_tmp for preceding period' ;
3087: IF P_PA_DEBUG_MODE = 'Y' THEN
3088: pa_debug.write('POPULATE_ELIGIBLE_PERIODS: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
3089: END IF;
3090:
3091: INSERT INTO pa_fp_cpy_periods_tmp
3084: IF p_preceding_prd_start_date IS NOT NULL THEN
3085:
3086: pa_debug.g_err_stage:='inserting into pa_fp_cpy_periods_tmp for preceding period' ;
3087: IF P_PA_DEBUG_MODE = 'Y' THEN
3088: pa_debug.write('POPULATE_ELIGIBLE_PERIODS: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
3089: END IF;
3090:
3091: INSERT INTO pa_fp_cpy_periods_tmp
3092: ( start_date
3125: AND g.application_id = pa_period_process_pkg.application_id
3126: AND g.adjustment_period_flag = 'N'
3127: AND g.start_date BETWEEN p_period_profile_start_date AND p_period_profile_end_date;
3128:
3129: pa_debug.g_err_stage := TO_CHAR(l_stage)||'inserted ' || sql%rowcount || ' records';
3130: IF P_PA_DEBUG_MODE = 'Y' THEN
3131: pa_debug.write('POPULATE_ELIGIBLE_PERIODS: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
3132: END IF;
3133:
3126: AND g.adjustment_period_flag = 'N'
3127: AND g.start_date BETWEEN p_period_profile_start_date AND p_period_profile_end_date;
3128:
3129: pa_debug.g_err_stage := TO_CHAR(l_stage)||'inserted ' || sql%rowcount || ' records';
3130: IF P_PA_DEBUG_MODE = 'Y' THEN
3131: pa_debug.write('POPULATE_ELIGIBLE_PERIODS: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
3132: END IF;
3133:
3134: IF p_succeeding_prd_start_date IS NOT NULL THEN
3127: AND g.start_date BETWEEN p_period_profile_start_date AND p_period_profile_end_date;
3128:
3129: pa_debug.g_err_stage := TO_CHAR(l_stage)||'inserted ' || sql%rowcount || ' records';
3130: IF P_PA_DEBUG_MODE = 'Y' THEN
3131: pa_debug.write('POPULATE_ELIGIBLE_PERIODS: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
3132: END IF;
3133:
3134: IF p_succeeding_prd_start_date IS NOT NULL THEN
3135:
3132: END IF;
3133:
3134: IF p_succeeding_prd_start_date IS NOT NULL THEN
3135:
3136: pa_debug.g_err_stage:='inserting into pa_fp_cpy_periods_tmp for preceding period' ;
3137: IF P_PA_DEBUG_MODE = 'Y' THEN
3138: pa_debug.write('POPULATE_ELIGIBLE_PERIODS: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
3139: END IF;
3140:
3133:
3134: IF p_succeeding_prd_start_date IS NOT NULL THEN
3135:
3136: pa_debug.g_err_stage:='inserting into pa_fp_cpy_periods_tmp for preceding period' ;
3137: IF P_PA_DEBUG_MODE = 'Y' THEN
3138: pa_debug.write('POPULATE_ELIGIBLE_PERIODS: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
3139: END IF;
3140:
3141: INSERT INTO pa_fp_cpy_periods_tmp
3134: IF p_succeeding_prd_start_date IS NOT NULL THEN
3135:
3136: pa_debug.g_err_stage:='inserting into pa_fp_cpy_periods_tmp for preceding period' ;
3137: IF P_PA_DEBUG_MODE = 'Y' THEN
3138: pa_debug.write('POPULATE_ELIGIBLE_PERIODS: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
3139: END IF;
3140:
3141: INSERT INTO pa_fp_cpy_periods_tmp
3142: ( start_date
3159: END IF;
3160:
3161: END IF;
3162:
3163: pa_debug.g_err_stage := TO_CHAR(l_stage)||'end of PA_FP_EDIT_LINE_PKG.POPULATE_ELIGIBLE_PERIODS';
3164: IF P_PA_DEBUG_MODE = 'Y' THEN
3165: pa_debug.write('POPULATE_ELIGIBLE_PERIODS: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
3166: END IF;
3167:
3160:
3161: END IF;
3162:
3163: pa_debug.g_err_stage := TO_CHAR(l_stage)||'end of PA_FP_EDIT_LINE_PKG.POPULATE_ELIGIBLE_PERIODS';
3164: IF P_PA_DEBUG_MODE = 'Y' THEN
3165: pa_debug.write('POPULATE_ELIGIBLE_PERIODS: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
3166: END IF;
3167:
3168: pa_debug.reset_err_stack; /* Bug 2699888 */
3161: END IF;
3162:
3163: pa_debug.g_err_stage := TO_CHAR(l_stage)||'end of PA_FP_EDIT_LINE_PKG.POPULATE_ELIGIBLE_PERIODS';
3164: IF P_PA_DEBUG_MODE = 'Y' THEN
3165: pa_debug.write('POPULATE_ELIGIBLE_PERIODS: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
3166: END IF;
3167:
3168: pa_debug.reset_err_stack; /* Bug 2699888 */
3169:
3164: IF P_PA_DEBUG_MODE = 'Y' THEN
3165: pa_debug.write('POPULATE_ELIGIBLE_PERIODS: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
3166: END IF;
3167:
3168: pa_debug.reset_err_stack; /* Bug 2699888 */
3169:
3170: EXCEPTION
3171: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
3172:
3185: ELSE
3186: x_msg_count := l_msg_count;
3187: END IF;
3188:
3189: IF P_PA_DEBUG_MODE = 'Y' THEN
3190: pa_debug.write('POPULATE_ELIGIBLE_PERIODS: ' || l_module_name,'Invalid arguments passed or some expected error in client extns',5);
3191: pa_debug.write('POPULATE_ELIGIBLE_PERIODS: ' || l_module_name,pa_debug.G_Err_Stack,5);
3192: END IF;
3193: pa_debug.reset_err_stack;
3186: x_msg_count := l_msg_count;
3187: END IF;
3188:
3189: IF P_PA_DEBUG_MODE = 'Y' THEN
3190: pa_debug.write('POPULATE_ELIGIBLE_PERIODS: ' || l_module_name,'Invalid arguments passed or some expected error in client extns',5);
3191: pa_debug.write('POPULATE_ELIGIBLE_PERIODS: ' || l_module_name,pa_debug.G_Err_Stack,5);
3192: END IF;
3193: pa_debug.reset_err_stack;
3194:
3187: END IF;
3188:
3189: IF P_PA_DEBUG_MODE = 'Y' THEN
3190: pa_debug.write('POPULATE_ELIGIBLE_PERIODS: ' || l_module_name,'Invalid arguments passed or some expected error in client extns',5);
3191: pa_debug.write('POPULATE_ELIGIBLE_PERIODS: ' || l_module_name,pa_debug.G_Err_Stack,5);
3192: END IF;
3193: pa_debug.reset_err_stack;
3194:
3195: RAISE;
3189: IF P_PA_DEBUG_MODE = 'Y' THEN
3190: pa_debug.write('POPULATE_ELIGIBLE_PERIODS: ' || l_module_name,'Invalid arguments passed or some expected error in client extns',5);
3191: pa_debug.write('POPULATE_ELIGIBLE_PERIODS: ' || l_module_name,pa_debug.G_Err_Stack,5);
3192: END IF;
3193: pa_debug.reset_err_stack;
3194:
3195: RAISE;
3196: WHEN OTHERS THEN
3197: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3198: x_msg_count := 1;
3199: x_msg_data := SQLERRM;
3200: FND_MSG_PUB.add_exc_msg
3201: ( p_pkg_name => 'PA_FP_EDIT_LINE_PKG.POPULATE_ELIGIBLE_PERIODS'
3202: ,p_procedure_name => pa_debug.G_Err_Stack );
3203: pa_debug.G_Err_Stack := SQLERRM;
3204: IF P_PA_DEBUG_MODE = 'Y' THEN
3205: pa_debug.write('POPULATE_ELIGIBLE_PERIODS: ' || l_module_name,pa_debug.G_Err_Stack,4);
3206: END IF;
3199: x_msg_data := SQLERRM;
3200: FND_MSG_PUB.add_exc_msg
3201: ( p_pkg_name => 'PA_FP_EDIT_LINE_PKG.POPULATE_ELIGIBLE_PERIODS'
3202: ,p_procedure_name => pa_debug.G_Err_Stack );
3203: pa_debug.G_Err_Stack := SQLERRM;
3204: IF P_PA_DEBUG_MODE = 'Y' THEN
3205: pa_debug.write('POPULATE_ELIGIBLE_PERIODS: ' || l_module_name,pa_debug.G_Err_Stack,4);
3206: END IF;
3207: pa_debug.reset_err_stack;
3200: FND_MSG_PUB.add_exc_msg
3201: ( p_pkg_name => 'PA_FP_EDIT_LINE_PKG.POPULATE_ELIGIBLE_PERIODS'
3202: ,p_procedure_name => pa_debug.G_Err_Stack );
3203: pa_debug.G_Err_Stack := SQLERRM;
3204: IF P_PA_DEBUG_MODE = 'Y' THEN
3205: pa_debug.write('POPULATE_ELIGIBLE_PERIODS: ' || l_module_name,pa_debug.G_Err_Stack,4);
3206: END IF;
3207: pa_debug.reset_err_stack;
3208:
3201: ( p_pkg_name => 'PA_FP_EDIT_LINE_PKG.POPULATE_ELIGIBLE_PERIODS'
3202: ,p_procedure_name => pa_debug.G_Err_Stack );
3203: pa_debug.G_Err_Stack := SQLERRM;
3204: IF P_PA_DEBUG_MODE = 'Y' THEN
3205: pa_debug.write('POPULATE_ELIGIBLE_PERIODS: ' || l_module_name,pa_debug.G_Err_Stack,4);
3206: END IF;
3207: pa_debug.reset_err_stack;
3208:
3209: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3203: pa_debug.G_Err_Stack := SQLERRM;
3204: IF P_PA_DEBUG_MODE = 'Y' THEN
3205: pa_debug.write('POPULATE_ELIGIBLE_PERIODS: ' || l_module_name,pa_debug.G_Err_Stack,4);
3206: END IF;
3207: pa_debug.reset_err_stack;
3208:
3209: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3210:
3211: END POPULATE_ELIGIBLE_PERIODS;
3253: BEGIN
3254:
3255: x_msg_count := 0;
3256: x_return_status := FND_API.G_RET_STS_SUCCESS;
3257: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
3258:
3259: pa_debug.set_curr_function( p_function => 'GET_PD_SD_AMT_IN_PC_PFC',
3260: p_debug_mode => l_debug_mode );
3261:
3255: x_msg_count := 0;
3256: x_return_status := FND_API.G_RET_STS_SUCCESS;
3257: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
3258:
3259: pa_debug.set_curr_function( p_function => 'GET_PD_SD_AMT_IN_PC_PFC',
3260: p_debug_mode => l_debug_mode );
3261:
3262: -- Check for business rules violations
3263:
3261:
3262: -- Check for business rules violations
3263:
3264: IF l_debug_mode = 'Y' THEN
3265: pa_debug.g_err_stage:= 'Validating input parameters';
3266: pa_debug.write('GET_PD_SD_AMT_IN_PC_PFC: ' || l_module_name,pa_debug.g_err_stage,
3267: l_debug_level3);
3268: END IF;
3269:
3262: -- Check for business rules violations
3263:
3264: IF l_debug_mode = 'Y' THEN
3265: pa_debug.g_err_stage:= 'Validating input parameters';
3266: pa_debug.write('GET_PD_SD_AMT_IN_PC_PFC: ' || l_module_name,pa_debug.g_err_stage,
3267: l_debug_level3);
3268: END IF;
3269:
3270: IF (p_resource_assignment_id IS NULL) OR (p_period_profile_id IS NULL) OR (p_txn_currency_code IS NULL)
3269:
3270: IF (p_resource_assignment_id IS NULL) OR (p_period_profile_id IS NULL) OR (p_txn_currency_code IS NULL)
3271: THEN
3272: IF l_debug_mode = 'Y' THEN
3273: pa_debug.g_err_stage:= 'p_resource_assignment_id = '|| p_resource_assignment_id;
3274: pa_debug.write('GET_PD_SD_AMT_IN_PC_PFC: ' || l_module_name,pa_debug.g_err_stage,l_debug_level5);
3275: pa_debug.g_err_stage:= 'p_period_profile_id = '|| p_period_profile_id;
3276: pa_debug.write('GET_PD_SD_AMT_IN_PC_PFC: ' || l_module_name,pa_debug.g_err_stage,l_debug_level5);
3277: pa_debug.g_err_stage:= 'p_txn_currency_code = '|| p_txn_currency_code;
3270: IF (p_resource_assignment_id IS NULL) OR (p_period_profile_id IS NULL) OR (p_txn_currency_code IS NULL)
3271: THEN
3272: IF l_debug_mode = 'Y' THEN
3273: pa_debug.g_err_stage:= 'p_resource_assignment_id = '|| p_resource_assignment_id;
3274: pa_debug.write('GET_PD_SD_AMT_IN_PC_PFC: ' || l_module_name,pa_debug.g_err_stage,l_debug_level5);
3275: pa_debug.g_err_stage:= 'p_period_profile_id = '|| p_period_profile_id;
3276: pa_debug.write('GET_PD_SD_AMT_IN_PC_PFC: ' || l_module_name,pa_debug.g_err_stage,l_debug_level5);
3277: pa_debug.g_err_stage:= 'p_txn_currency_code = '|| p_txn_currency_code;
3278: pa_debug.write('GET_PD_SD_AMT_IN_PC_PFC: ' || l_module_name,pa_debug.g_err_stage,l_debug_level5);
3271: THEN
3272: IF l_debug_mode = 'Y' THEN
3273: pa_debug.g_err_stage:= 'p_resource_assignment_id = '|| p_resource_assignment_id;
3274: pa_debug.write('GET_PD_SD_AMT_IN_PC_PFC: ' || l_module_name,pa_debug.g_err_stage,l_debug_level5);
3275: pa_debug.g_err_stage:= 'p_period_profile_id = '|| p_period_profile_id;
3276: pa_debug.write('GET_PD_SD_AMT_IN_PC_PFC: ' || l_module_name,pa_debug.g_err_stage,l_debug_level5);
3277: pa_debug.g_err_stage:= 'p_txn_currency_code = '|| p_txn_currency_code;
3278: pa_debug.write('GET_PD_SD_AMT_IN_PC_PFC: ' || l_module_name,pa_debug.g_err_stage,l_debug_level5);
3279: END IF;
3272: IF l_debug_mode = 'Y' THEN
3273: pa_debug.g_err_stage:= 'p_resource_assignment_id = '|| p_resource_assignment_id;
3274: pa_debug.write('GET_PD_SD_AMT_IN_PC_PFC: ' || l_module_name,pa_debug.g_err_stage,l_debug_level5);
3275: pa_debug.g_err_stage:= 'p_period_profile_id = '|| p_period_profile_id;
3276: pa_debug.write('GET_PD_SD_AMT_IN_PC_PFC: ' || l_module_name,pa_debug.g_err_stage,l_debug_level5);
3277: pa_debug.g_err_stage:= 'p_txn_currency_code = '|| p_txn_currency_code;
3278: pa_debug.write('GET_PD_SD_AMT_IN_PC_PFC: ' || l_module_name,pa_debug.g_err_stage,l_debug_level5);
3279: END IF;
3280: PA_UTILS.ADD_MESSAGE
3273: pa_debug.g_err_stage:= 'p_resource_assignment_id = '|| p_resource_assignment_id;
3274: pa_debug.write('GET_PD_SD_AMT_IN_PC_PFC: ' || l_module_name,pa_debug.g_err_stage,l_debug_level5);
3275: pa_debug.g_err_stage:= 'p_period_profile_id = '|| p_period_profile_id;
3276: pa_debug.write('GET_PD_SD_AMT_IN_PC_PFC: ' || l_module_name,pa_debug.g_err_stage,l_debug_level5);
3277: pa_debug.g_err_stage:= 'p_txn_currency_code = '|| p_txn_currency_code;
3278: pa_debug.write('GET_PD_SD_AMT_IN_PC_PFC: ' || l_module_name,pa_debug.g_err_stage,l_debug_level5);
3279: END IF;
3280: PA_UTILS.ADD_MESSAGE
3281: (p_app_short_name => 'PA',
3274: pa_debug.write('GET_PD_SD_AMT_IN_PC_PFC: ' || l_module_name,pa_debug.g_err_stage,l_debug_level5);
3275: pa_debug.g_err_stage:= 'p_period_profile_id = '|| p_period_profile_id;
3276: pa_debug.write('GET_PD_SD_AMT_IN_PC_PFC: ' || l_module_name,pa_debug.g_err_stage,l_debug_level5);
3277: pa_debug.g_err_stage:= 'p_txn_currency_code = '|| p_txn_currency_code;
3278: pa_debug.write('GET_PD_SD_AMT_IN_PC_PFC: ' || l_module_name,pa_debug.g_err_stage,l_debug_level5);
3279: END IF;
3280: PA_UTILS.ADD_MESSAGE
3281: (p_app_short_name => 'PA',
3282: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
3283: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
3284:
3285: END IF;
3286:
3287: IF P_PA_DEBUG_MODE = 'Y' THEN
3288: pa_debug.write('GET_GET_PD_SD_AMT_IN_PC_PFC: ' || l_module_name,'getting pd/sd pc/pfc amounts',3);
3289: END IF;
3290:
3291: BEGIN
3284:
3285: END IF;
3286:
3287: IF P_PA_DEBUG_MODE = 'Y' THEN
3288: pa_debug.write('GET_GET_PD_SD_AMT_IN_PC_PFC: ' || l_module_name,'getting pd/sd pc/pfc amounts',3);
3289: END IF;
3290:
3291: BEGIN
3292: SELECT sum(nvl(raw_cost,0)),
3344: x_sd_pc_revenue := null ;
3345: END ;
3346:
3347: IF l_debug_mode = 'Y' THEN
3348: pa_debug.g_err_stage:= 'Exiting GET_PD_SD_AMT_IN_PC_PFC';
3349: pa_debug.write('GET_PD_SD_AMT_IN_PC_PFC: ' || l_module_name,pa_debug.g_err_stage,
3350: l_debug_level3);
3351: END IF;
3352: pa_debug.reset_curr_function;
3345: END ;
3346:
3347: IF l_debug_mode = 'Y' THEN
3348: pa_debug.g_err_stage:= 'Exiting GET_PD_SD_AMT_IN_PC_PFC';
3349: pa_debug.write('GET_PD_SD_AMT_IN_PC_PFC: ' || l_module_name,pa_debug.g_err_stage,
3350: l_debug_level3);
3351: END IF;
3352: pa_debug.reset_curr_function;
3353:
3348: pa_debug.g_err_stage:= 'Exiting GET_PD_SD_AMT_IN_PC_PFC';
3349: pa_debug.write('GET_PD_SD_AMT_IN_PC_PFC: ' || l_module_name,pa_debug.g_err_stage,
3350: l_debug_level3);
3351: END IF;
3352: pa_debug.reset_curr_function;
3353:
3354: EXCEPTION
3355:
3356: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
3373: x_msg_count := l_msg_count;
3374: ELSE
3375: x_msg_count := l_msg_count;
3376: END IF;
3377: pa_debug.reset_curr_function;
3378: RETURN;
3379:
3380: WHEN others THEN
3381:
3388: ,p_procedure_name => 'GET_PD_SD_AMT_IN_PC_PFC'
3389: ,p_error_text => x_msg_data);
3390:
3391: IF l_debug_mode = 'Y' THEN
3392: pa_debug.g_err_stage:= 'Unexpected Error'||x_msg_data;
3393: pa_debug.write('GET_PD_SD_AMT_IN_PC_PFC: ' || l_module_name,pa_debug.g_err_stage,
3394: l_debug_level5);
3395: END IF;
3396: pa_debug.reset_curr_function;
3389: ,p_error_text => x_msg_data);
3390:
3391: IF l_debug_mode = 'Y' THEN
3392: pa_debug.g_err_stage:= 'Unexpected Error'||x_msg_data;
3393: pa_debug.write('GET_PD_SD_AMT_IN_PC_PFC: ' || l_module_name,pa_debug.g_err_stage,
3394: l_debug_level5);
3395: END IF;
3396: pa_debug.reset_curr_function;
3397: RAISE;
3392: pa_debug.g_err_stage:= 'Unexpected Error'||x_msg_data;
3393: pa_debug.write('GET_PD_SD_AMT_IN_PC_PFC: ' || l_module_name,pa_debug.g_err_stage,
3394: l_debug_level5);
3395: END IF;
3396: pa_debug.reset_curr_function;
3397: RAISE;
3398: END GET_PD_SD_AMT_IN_PC_PFC;
3399:
3400: PROCEDURE GET_PRECEDING_SUCCEEDING_AMT(
3437:
3438: BEGIN
3439: -- Set the error stack.
3440:
3441: pa_debug.set_err_stack('PA_FP_EDIT_LINE_PKG.GET_PRECEDING_SUCCEEDING_AMT');
3442:
3443: -- Initialize the return status to success
3444: x_return_status := FND_API.G_RET_STS_SUCCESS;
3445:
3442:
3443: -- Initialize the return status to success
3444: x_return_status := FND_API.G_RET_STS_SUCCESS;
3445:
3446: pa_debug.g_err_stage := 'In PA_FP_EDIT_LINE_PKG.GET_PRECEDING_SUCCEEDING_AMT ';
3447: IF P_PA_DEBUG_MODE = 'Y' THEN
3448: pa_debug.write('GET_PRECEDING_SUCCEEDING_AMT: ' || l_module_name,pa_debug.g_err_stage,3);
3449: END IF;
3450:
3443: -- Initialize the return status to success
3444: x_return_status := FND_API.G_RET_STS_SUCCESS;
3445:
3446: pa_debug.g_err_stage := 'In PA_FP_EDIT_LINE_PKG.GET_PRECEDING_SUCCEEDING_AMT ';
3447: IF P_PA_DEBUG_MODE = 'Y' THEN
3448: pa_debug.write('GET_PRECEDING_SUCCEEDING_AMT: ' || l_module_name,pa_debug.g_err_stage,3);
3449: END IF;
3450:
3451: SELECT fin_plan_preference_code
3444: x_return_status := FND_API.G_RET_STS_SUCCESS;
3445:
3446: pa_debug.g_err_stage := 'In PA_FP_EDIT_LINE_PKG.GET_PRECEDING_SUCCEEDING_AMT ';
3447: IF P_PA_DEBUG_MODE = 'Y' THEN
3448: pa_debug.write('GET_PRECEDING_SUCCEEDING_AMT: ' || l_module_name,pa_debug.g_err_stage,3);
3449: END IF;
3450:
3451: SELECT fin_plan_preference_code
3452: INTO l_fin_plan_preference_code
3454: ,pa_resource_assignments pra
3455: WHERE pra.resource_assignment_id = p_resource_assignment_id
3456: AND pra.budget_version_id = pfo.fin_plan_version_id;
3457:
3458: IF P_PA_DEBUG_MODE = 'Y' THEN
3459: pa_debug.write('GET_PRECEDING_SUCCEEDING_AMT: ' || l_module_name,'getting preceding succeeding period amounts',3);
3460: END IF;
3461:
3462: FOR l_period_denorm_cur_rec IN period_denorm_cur LOOP
3455: WHERE pra.resource_assignment_id = p_resource_assignment_id
3456: AND pra.budget_version_id = pfo.fin_plan_version_id;
3457:
3458: IF P_PA_DEBUG_MODE = 'Y' THEN
3459: pa_debug.write('GET_PRECEDING_SUCCEEDING_AMT: ' || l_module_name,'getting preceding succeeding period amounts',3);
3460: END IF;
3461:
3462: FOR l_period_denorm_cur_rec IN period_denorm_cur LOOP
3463: IF (l_fin_plan_preference_code = PA_FP_CONSTANTS_PKG.G_PREF_COST_ONLY
3488: x_succeeding_quantity := l_period_denorm_cur_rec.succeeding_periods_amount ;
3489: END IF;
3490: END LOOP;
3491:
3492: pa_debug.reset_err_stack; /* Bug 2699888 */
3493:
3494: EXCEPTION
3495: WHEN OTHERS THEN
3496: IF P_PA_DEBUG_MODE = 'Y' THEN
3492: pa_debug.reset_err_stack; /* Bug 2699888 */
3493:
3494: EXCEPTION
3495: WHEN OTHERS THEN
3496: IF P_PA_DEBUG_MODE = 'Y' THEN
3497: pa_debug.write('GET_PRECEDING_SUCCEEDING_AMT: ' || l_module_name,'SQLERRM = ' || SQLERRM,5);
3498: END IF;
3499: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3500: pa_debug.reset_err_stack; /* Bug 2699888 */
3493:
3494: EXCEPTION
3495: WHEN OTHERS THEN
3496: IF P_PA_DEBUG_MODE = 'Y' THEN
3497: pa_debug.write('GET_PRECEDING_SUCCEEDING_AMT: ' || l_module_name,'SQLERRM = ' || SQLERRM,5);
3498: END IF;
3499: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3500: pa_debug.reset_err_stack; /* Bug 2699888 */
3501: RAISE;
3496: IF P_PA_DEBUG_MODE = 'Y' THEN
3497: pa_debug.write('GET_PRECEDING_SUCCEEDING_AMT: ' || l_module_name,'SQLERRM = ' || SQLERRM,5);
3498: END IF;
3499: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3500: pa_debug.reset_err_stack; /* Bug 2699888 */
3501: RAISE;
3502: END GET_PRECEDING_SUCCEEDING_AMT;
3503:
3504:
3545:
3546: BEGIN
3547: x_msg_count := 0;
3548: x_return_status := FND_API.G_RET_STS_SUCCESS;
3549: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'), 'Y');
3550:
3551: IF l_debug_mode = 'Y' THEN
3552: pa_debug.set_curr_function( p_function => 'CALL_CLIENT_EXTENSIONS'
3553: ,p_debug_mode => l_debug_mode );
3548: x_return_status := FND_API.G_RET_STS_SUCCESS;
3549: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'), 'Y');
3550:
3551: IF l_debug_mode = 'Y' THEN
3552: pa_debug.set_curr_function( p_function => 'CALL_CLIENT_EXTENSIONS'
3553: ,p_debug_mode => l_debug_mode );
3554: END IF;
3555:
3556: IF l_debug_mode = 'Y' THEN
3553: ,p_debug_mode => l_debug_mode );
3554: END IF;
3555:
3556: IF l_debug_mode = 'Y' THEN
3557: pa_debug.g_err_stage := TO_CHAR(l_stage)||':In PA_FP_EDIT_LINE_PKG.CALL_CLIENT_EXTENSIONS ';
3558: pa_debug.write('CALL_CLIENT_EXTENSIONS: ' || l_module_name,pa_debug.g_err_stage,3);
3559: END IF;
3560:
3561: IF (p_project_id IS NULL) OR (p_budget_version_id IS NULL) THEN
3554: END IF;
3555:
3556: IF l_debug_mode = 'Y' THEN
3557: pa_debug.g_err_stage := TO_CHAR(l_stage)||':In PA_FP_EDIT_LINE_PKG.CALL_CLIENT_EXTENSIONS ';
3558: pa_debug.write('CALL_CLIENT_EXTENSIONS: ' || l_module_name,pa_debug.g_err_stage,3);
3559: END IF;
3560:
3561: IF (p_project_id IS NULL) OR (p_budget_version_id IS NULL) THEN
3562: IF l_debug_mode = 'Y' THEN
3559: END IF;
3560:
3561: IF (p_project_id IS NULL) OR (p_budget_version_id IS NULL) THEN
3562: IF l_debug_mode = 'Y' THEN
3563: pa_debug.g_err_stage := TO_CHAR(l_stage)||':Invalid Input Parameters';
3564: pa_debug.write('CALL_CLIENT_EXTENSIONS: ' || l_module_name,pa_debug.g_err_stage,1);
3565:
3566: END IF;
3567: x_return_status := FND_API.G_RET_STS_ERROR;
3560:
3561: IF (p_project_id IS NULL) OR (p_budget_version_id IS NULL) THEN
3562: IF l_debug_mode = 'Y' THEN
3563: pa_debug.g_err_stage := TO_CHAR(l_stage)||':Invalid Input Parameters';
3564: pa_debug.write('CALL_CLIENT_EXTENSIONS: ' || l_module_name,pa_debug.g_err_stage,1);
3565:
3566: END IF;
3567: x_return_status := FND_API.G_RET_STS_ERROR;
3568: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
3571: END IF;
3572:
3573:
3574: IF l_debug_mode = 'Y' THEN
3575: pa_debug.g_err_stage := TO_CHAR(l_stage)||':Calling Client Extensions';
3576: pa_debug.write('CALL_CLIENT_EXTENSIONS: ' || l_module_name,pa_debug.g_err_stage,3);
3577: END IF;
3578:
3579: SAVEPOINT call_client_extns;
3572:
3573:
3574: IF l_debug_mode = 'Y' THEN
3575: pa_debug.g_err_stage := TO_CHAR(l_stage)||':Calling Client Extensions';
3576: pa_debug.write('CALL_CLIENT_EXTENSIONS: ' || l_module_name,pa_debug.g_err_stage,3);
3577: END IF;
3578:
3579: SAVEPOINT call_client_extns;
3580:
3578:
3579: SAVEPOINT call_client_extns;
3580:
3581: IF l_debug_mode = 'Y' THEN
3582: pa_debug.g_err_stage := 'getting preference code';
3583: pa_debug.write('CALL_CLIENT_EXTENSIONS: ' || l_module_name,pa_debug.g_err_stage,3);
3584: END IF;
3585:
3586: SELECT fin_plan_preference_code
3579: SAVEPOINT call_client_extns;
3580:
3581: IF l_debug_mode = 'Y' THEN
3582: pa_debug.g_err_stage := 'getting preference code';
3583: pa_debug.write('CALL_CLIENT_EXTENSIONS: ' || l_module_name,pa_debug.g_err_stage,3);
3584: END IF;
3585:
3586: SELECT fin_plan_preference_code
3587: INTO l_fp_preference_code
3588: FROM pa_proj_fp_options
3589: WHERE fin_plan_version_id = p_budget_version_id;
3590:
3591: IF l_debug_mode = 'Y' THEN
3592: pa_debug.g_err_stage := 'after getting preference code l_fp_preference_code = ' || l_fp_preference_code;
3593: pa_debug.write('CALL_CLIENT_EXTENSIONS: ' || l_module_name,pa_debug.g_err_stage,3);
3594: END IF;
3595:
3596: IF nvl(p_start_date_tbl.last,0) >= 1 THEN
3589: WHERE fin_plan_version_id = p_budget_version_id;
3590:
3591: IF l_debug_mode = 'Y' THEN
3592: pa_debug.g_err_stage := 'after getting preference code l_fp_preference_code = ' || l_fp_preference_code;
3593: pa_debug.write('CALL_CLIENT_EXTENSIONS: ' || l_module_name,pa_debug.g_err_stage,3);
3594: END IF;
3595:
3596: IF nvl(p_start_date_tbl.last,0) >= 1 THEN
3597:
3595:
3596: IF nvl(p_start_date_tbl.last,0) >= 1 THEN
3597:
3598: IF l_debug_mode = 'Y' THEN
3599: pa_debug.g_err_stage := TO_CHAR(l_stage)||':inside IF block and before for loop';
3600: pa_debug.write('CALL_CLIENT_EXTENSIONS: ' || l_module_name,pa_debug.g_err_stage,3);
3601: END IF;
3602:
3603: IF nvl(px_raw_cost_tbl.last,0) = 0 THEN
3596: IF nvl(p_start_date_tbl.last,0) >= 1 THEN
3597:
3598: IF l_debug_mode = 'Y' THEN
3599: pa_debug.g_err_stage := TO_CHAR(l_stage)||':inside IF block and before for loop';
3600: pa_debug.write('CALL_CLIENT_EXTENSIONS: ' || l_module_name,pa_debug.g_err_stage,3);
3601: END IF;
3602:
3603: IF nvl(px_raw_cost_tbl.last,0) = 0 THEN
3604: px_raw_cost_tbl := SYSTEM.pa_num_tbl_type();
3626:
3627: FOR i IN 1..p_start_date_tbl.last LOOP
3628:
3629: IF l_debug_mode = 'Y' THEN
3630: pa_debug.g_err_stage := TO_CHAR(l_stage)||':inside FOR loop and before calling cal_raw_cost';
3631: pa_debug.write('CALL_CLIENT_EXTENSIONS: ' || l_module_name,pa_debug.g_err_stage,3);
3632: END IF;
3633:
3634: IF l_fp_preference_code IN (PA_FP_CONSTANTS_PKG.G_PREF_COST_ONLY,PA_FP_CONSTANTS_PKG.G_PREF_COST_AND_REV_SAME) THEN
3627: FOR i IN 1..p_start_date_tbl.last LOOP
3628:
3629: IF l_debug_mode = 'Y' THEN
3630: pa_debug.g_err_stage := TO_CHAR(l_stage)||':inside FOR loop and before calling cal_raw_cost';
3631: pa_debug.write('CALL_CLIENT_EXTENSIONS: ' || l_module_name,pa_debug.g_err_stage,3);
3632: END IF;
3633:
3634: IF l_fp_preference_code IN (PA_FP_CONSTANTS_PKG.G_PREF_COST_ONLY,PA_FP_CONSTANTS_PKG.G_PREF_COST_AND_REV_SAME) THEN
3635:
3654: IF l_err_code > 0 THEN
3655:
3656: x_return_status := FND_API.G_RET_STS_ERROR;
3657: IF l_debug_mode = 'Y' THEN
3658: pa_debug.G_Err_Stage := 'l_err_code = ' || l_err_code;
3659: pa_debug.write('CALL_CLIENT_EXTENSIONS: ' || l_module_name,pa_debug.G_Err_Stage,5);
3660: pa_debug.G_Err_Stage := 'l_err_message = ' || l_err_message;
3661: pa_debug.write('CALL_CLIENT_EXTENSIONS: ' || l_module_name,pa_debug.G_Err_Stage,5);
3662: END IF;
3655:
3656: x_return_status := FND_API.G_RET_STS_ERROR;
3657: IF l_debug_mode = 'Y' THEN
3658: pa_debug.G_Err_Stage := 'l_err_code = ' || l_err_code;
3659: pa_debug.write('CALL_CLIENT_EXTENSIONS: ' || l_module_name,pa_debug.G_Err_Stage,5);
3660: pa_debug.G_Err_Stage := 'l_err_message = ' || l_err_message;
3661: pa_debug.write('CALL_CLIENT_EXTENSIONS: ' || l_module_name,pa_debug.G_Err_Stage,5);
3662: END IF;
3663:
3656: x_return_status := FND_API.G_RET_STS_ERROR;
3657: IF l_debug_mode = 'Y' THEN
3658: pa_debug.G_Err_Stage := 'l_err_code = ' || l_err_code;
3659: pa_debug.write('CALL_CLIENT_EXTENSIONS: ' || l_module_name,pa_debug.G_Err_Stage,5);
3660: pa_debug.G_Err_Stage := 'l_err_message = ' || l_err_message;
3661: pa_debug.write('CALL_CLIENT_EXTENSIONS: ' || l_module_name,pa_debug.G_Err_Stage,5);
3662: END IF;
3663:
3664: pa_utils.add_message
3657: IF l_debug_mode = 'Y' THEN
3658: pa_debug.G_Err_Stage := 'l_err_code = ' || l_err_code;
3659: pa_debug.write('CALL_CLIENT_EXTENSIONS: ' || l_module_name,pa_debug.G_Err_Stage,5);
3660: pa_debug.G_Err_Stage := 'l_err_message = ' || l_err_message;
3661: pa_debug.write('CALL_CLIENT_EXTENSIONS: ' || l_module_name,pa_debug.G_Err_Stage,5);
3662: END IF;
3663:
3664: pa_utils.add_message
3665: ( p_app_short_name => 'PA',
3710:
3711: x_return_status := FND_API.G_RET_STS_ERROR;
3712:
3713: IF l_debug_mode = 'Y' THEN
3714: pa_debug.G_Err_Stage := 'l_err_code = ' || l_err_code;
3715: pa_debug.write('CALL_CLIENT_EXTENSIONS: ' || l_module_name,pa_debug.G_Err_Stage,5);
3716: END IF;
3717:
3718: IF l_debug_mode = 'Y' THEN
3711: x_return_status := FND_API.G_RET_STS_ERROR;
3712:
3713: IF l_debug_mode = 'Y' THEN
3714: pa_debug.G_Err_Stage := 'l_err_code = ' || l_err_code;
3715: pa_debug.write('CALL_CLIENT_EXTENSIONS: ' || l_module_name,pa_debug.G_Err_Stage,5);
3716: END IF;
3717:
3718: IF l_debug_mode = 'Y' THEN
3719: pa_debug.G_Err_Stage := 'l_err_message = ' || l_err_message;
3715: pa_debug.write('CALL_CLIENT_EXTENSIONS: ' || l_module_name,pa_debug.G_Err_Stage,5);
3716: END IF;
3717:
3718: IF l_debug_mode = 'Y' THEN
3719: pa_debug.G_Err_Stage := 'l_err_message = ' || l_err_message;
3720: pa_debug.write('CALL_CLIENT_EXTENSIONS: ' || l_module_name,pa_debug.G_Err_Stage,5);
3721: END IF;
3722:
3723: pa_utils.add_message
3716: END IF;
3717:
3718: IF l_debug_mode = 'Y' THEN
3719: pa_debug.G_Err_Stage := 'l_err_message = ' || l_err_message;
3720: pa_debug.write('CALL_CLIENT_EXTENSIONS: ' || l_module_name,pa_debug.G_Err_Stage,5);
3721: END IF;
3722:
3723: pa_utils.add_message
3724: ( p_app_short_name => 'PA',
3769:
3770: IF l_err_code > 0 THEN
3771: x_return_status := FND_API.G_RET_STS_ERROR;
3772: IF l_debug_mode = 'Y' THEN
3773: pa_debug.G_Err_Stage := 'l_err_code = ' || l_err_code;
3774: pa_debug.write('CALL_CLIENT_EXTENSIONS: ' || l_module_name,pa_debug.G_Err_Stage,5);
3775: pa_debug.G_Err_Stage := 'l_err_message = ' || l_err_message;
3776: pa_debug.write('CALL_CLIENT_EXTENSIONS: ' || l_module_name,pa_debug.G_Err_Stage,5);
3777: END IF;
3770: IF l_err_code > 0 THEN
3771: x_return_status := FND_API.G_RET_STS_ERROR;
3772: IF l_debug_mode = 'Y' THEN
3773: pa_debug.G_Err_Stage := 'l_err_code = ' || l_err_code;
3774: pa_debug.write('CALL_CLIENT_EXTENSIONS: ' || l_module_name,pa_debug.G_Err_Stage,5);
3775: pa_debug.G_Err_Stage := 'l_err_message = ' || l_err_message;
3776: pa_debug.write('CALL_CLIENT_EXTENSIONS: ' || l_module_name,pa_debug.G_Err_Stage,5);
3777: END IF;
3778: pa_utils.add_message
3771: x_return_status := FND_API.G_RET_STS_ERROR;
3772: IF l_debug_mode = 'Y' THEN
3773: pa_debug.G_Err_Stage := 'l_err_code = ' || l_err_code;
3774: pa_debug.write('CALL_CLIENT_EXTENSIONS: ' || l_module_name,pa_debug.G_Err_Stage,5);
3775: pa_debug.G_Err_Stage := 'l_err_message = ' || l_err_message;
3776: pa_debug.write('CALL_CLIENT_EXTENSIONS: ' || l_module_name,pa_debug.G_Err_Stage,5);
3777: END IF;
3778: pa_utils.add_message
3779: ( p_app_short_name => 'PA',
3772: IF l_debug_mode = 'Y' THEN
3773: pa_debug.G_Err_Stage := 'l_err_code = ' || l_err_code;
3774: pa_debug.write('CALL_CLIENT_EXTENSIONS: ' || l_module_name,pa_debug.G_Err_Stage,5);
3775: pa_debug.G_Err_Stage := 'l_err_message = ' || l_err_message;
3776: pa_debug.write('CALL_CLIENT_EXTENSIONS: ' || l_module_name,pa_debug.G_Err_Stage,5);
3777: END IF;
3778: pa_utils.add_message
3779: ( p_app_short_name => 'PA',
3780: p_msg_name => 'PA_BU_CALC_REV_EXTN_ERR',
3803:
3804: END LOOP ;
3805:
3806: IF l_debug_mode = 'Y' THEN
3807: pa_debug.g_err_stage := TO_CHAR(l_stage)||'after loop for start date';
3808: pa_debug.write('CALL_CLIENT_EXTENSIONS: ' || l_module_name,pa_debug.g_err_stage,3);
3809: END IF;
3810:
3811: END IF; -- if l_start_date_tbl
3804: END LOOP ;
3805:
3806: IF l_debug_mode = 'Y' THEN
3807: pa_debug.g_err_stage := TO_CHAR(l_stage)||'after loop for start date';
3808: pa_debug.write('CALL_CLIENT_EXTENSIONS: ' || l_module_name,pa_debug.g_err_stage,3);
3809: END IF;
3810:
3811: END IF; -- if l_start_date_tbl
3812:
3813:
3814: IF l_expected_error THEN
3815:
3816: IF l_debug_mode = 'Y' THEN
3817: pa_debug.g_err_stage := 'inside expected error occured';
3818: pa_debug.write('CALL_CLIENT_EXTENSIONS: ' || l_module_name,pa_debug.g_err_stage,5);
3819: END IF;
3820: RAISE FND_API.G_EXC_ERROR;
3821: END IF;
3814: IF l_expected_error THEN
3815:
3816: IF l_debug_mode = 'Y' THEN
3817: pa_debug.g_err_stage := 'inside expected error occured';
3818: pa_debug.write('CALL_CLIENT_EXTENSIONS: ' || l_module_name,pa_debug.g_err_stage,5);
3819: END IF;
3820: RAISE FND_API.G_EXC_ERROR;
3821: END IF;
3822:
3820: RAISE FND_API.G_EXC_ERROR;
3821: END IF;
3822:
3823: IF l_debug_mode = 'Y' THEN
3824: pa_debug.g_err_stage := TO_CHAR(l_stage)||'leaving client extension ';
3825: pa_debug.write('CALL_CLIENT_EXTENSIONS: ' || l_module_name,pa_debug.g_err_stage,3);
3826: pa_debug.reset_curr_function;
3827: END IF;
3828:
3821: END IF;
3822:
3823: IF l_debug_mode = 'Y' THEN
3824: pa_debug.g_err_stage := TO_CHAR(l_stage)||'leaving client extension ';
3825: pa_debug.write('CALL_CLIENT_EXTENSIONS: ' || l_module_name,pa_debug.g_err_stage,3);
3826: pa_debug.reset_curr_function;
3827: END IF;
3828:
3829: EXCEPTION
3822:
3823: IF l_debug_mode = 'Y' THEN
3824: pa_debug.g_err_stage := TO_CHAR(l_stage)||'leaving client extension ';
3825: pa_debug.write('CALL_CLIENT_EXTENSIONS: ' || l_module_name,pa_debug.g_err_stage,3);
3826: pa_debug.reset_curr_function;
3827: END IF;
3828:
3829: EXCEPTION
3830: WHEN FND_API.G_EXC_ERROR OR PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
3832: ROLLBACK to call_client_extns;
3833: x_return_status := FND_API.G_RET_STS_ERROR;
3834: l_msg_count := FND_MSG_PUB.count_msg;
3835: IF l_debug_mode = 'Y' THEN
3836: pa_debug.g_err_stage := 'inside invalid arg exception of process_xface_lines';
3837: pa_debug.write(l_module_name,pa_debug.g_err_stage,5);
3838: END IF;
3839: IF l_msg_count = 1 THEN
3840: PA_INTERFACE_UTILS_PUB.get_messages
3833: x_return_status := FND_API.G_RET_STS_ERROR;
3834: l_msg_count := FND_MSG_PUB.count_msg;
3835: IF l_debug_mode = 'Y' THEN
3836: pa_debug.g_err_stage := 'inside invalid arg exception of process_xface_lines';
3837: pa_debug.write(l_module_name,pa_debug.g_err_stage,5);
3838: END IF;
3839: IF l_msg_count = 1 THEN
3840: PA_INTERFACE_UTILS_PUB.get_messages
3841: (p_encoded => FND_API.G_TRUE,
3849: ELSE
3850: x_msg_count := l_msg_count;
3851: END IF;
3852: IF l_debug_mode = 'Y' THEN
3853: pa_debug.reset_curr_function;
3854: END IF ;
3855: RETURN;
3856: WHEN OTHERS THEN
3857:
3864: ,p_procedure_name => 'CALL_CLIENT_EXTENSION'
3865: ,p_error_text => sqlerrm);
3866:
3867: IF l_debug_mode = 'Y' THEN
3868: pa_debug.g_err_stage := 'inside others exception of call_client_extension';
3869: pa_debug.write(l_module_name,pa_debug.g_err_stage,5);
3870: pa_debug.G_Err_Stack := SQLERRM;
3871: pa_debug.reset_curr_function;
3872: END IF;
3865: ,p_error_text => sqlerrm);
3866:
3867: IF l_debug_mode = 'Y' THEN
3868: pa_debug.g_err_stage := 'inside others exception of call_client_extension';
3869: pa_debug.write(l_module_name,pa_debug.g_err_stage,5);
3870: pa_debug.G_Err_Stack := SQLERRM;
3871: pa_debug.reset_curr_function;
3872: END IF;
3873: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3866:
3867: IF l_debug_mode = 'Y' THEN
3868: pa_debug.g_err_stage := 'inside others exception of call_client_extension';
3869: pa_debug.write(l_module_name,pa_debug.g_err_stage,5);
3870: pa_debug.G_Err_Stack := SQLERRM;
3871: pa_debug.reset_curr_function;
3872: END IF;
3873: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3874: END CALL_CLIENT_EXTENSIONS ;
3867: IF l_debug_mode = 'Y' THEN
3868: pa_debug.g_err_stage := 'inside others exception of call_client_extension';
3869: pa_debug.write(l_module_name,pa_debug.g_err_stage,5);
3870: pa_debug.G_Err_Stack := SQLERRM;
3871: pa_debug.reset_curr_function;
3872: END IF;
3873: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3874: END CALL_CLIENT_EXTENSIONS ;
3875:
3920:
3921: BEGIN
3922: x_msg_count := 0;
3923: x_return_status := FND_API.G_RET_STS_SUCCESS;
3924: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
3925:
3926: pa_debug.set_curr_function( p_function => 'Find_dup_rows_in_rollup_tmp',
3927: p_debug_mode => l_debug_mode );
3928: IF l_debug_mode = 'Y' THEN
3922: x_msg_count := 0;
3923: x_return_status := FND_API.G_RET_STS_SUCCESS;
3924: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
3925:
3926: pa_debug.set_curr_function( p_function => 'Find_dup_rows_in_rollup_tmp',
3927: p_debug_mode => l_debug_mode );
3928: IF l_debug_mode = 'Y' THEN
3929: pa_debug.g_err_stage:= 'About to enter the for loop';
3930: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
3925:
3926: pa_debug.set_curr_function( p_function => 'Find_dup_rows_in_rollup_tmp',
3927: p_debug_mode => l_debug_mode );
3928: IF l_debug_mode = 'Y' THEN
3929: pa_debug.g_err_stage:= 'About to enter the for loop';
3930: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
3931: END IF;
3932:
3933: FOR l_duplicate_rows_rec IN l_duplicate_rows_csr LOOP
3926: pa_debug.set_curr_function( p_function => 'Find_dup_rows_in_rollup_tmp',
3927: p_debug_mode => l_debug_mode );
3928: IF l_debug_mode = 'Y' THEN
3929: pa_debug.g_err_stage:= 'About to enter the for loop';
3930: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
3931: END IF;
3932:
3933: FOR l_duplicate_rows_rec IN l_duplicate_rows_csr LOOP
3934:
3937: OPEN l_res_assignment_details_csr (l_duplicate_rows_rec.resource_assignment_id);
3938: FETCH l_res_assignment_details_csr INTO l_res_assignment_details_rec;
3939: IF (l_res_assignment_details_csr%NOTFOUND) THEN
3940: IF l_debug_mode = 'Y' THEN
3941: pa_debug.g_err_stage:= 'The Cursor l_res_assignment_details_csr did not return rows';
3942: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
3943: END IF;
3944: CLOSE l_res_assignment_details_csr;
3945: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3938: FETCH l_res_assignment_details_csr INTO l_res_assignment_details_rec;
3939: IF (l_res_assignment_details_csr%NOTFOUND) THEN
3940: IF l_debug_mode = 'Y' THEN
3941: pa_debug.g_err_stage:= 'The Cursor l_res_assignment_details_csr did not return rows';
3942: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
3943: END IF;
3944: CLOSE l_res_assignment_details_csr;
3945: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3946: END IF;
3958: FROM pa_resource_list_members
3959: WHERE resource_list_member_id = l_res_assignment_details_rec.resource_list_member_id;
3960:
3961: IF l_debug_mode = 'Y' THEN
3962: pa_debug.g_err_stage:= 'Got the resource alias';
3963: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
3964: END IF;
3965:
3966:
3959: WHERE resource_list_member_id = l_res_assignment_details_rec.resource_list_member_id;
3960:
3961: IF l_debug_mode = 'Y' THEN
3962: pa_debug.g_err_stage:= 'Got the resource alias';
3963: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
3964: END IF;
3965:
3966:
3967: IF l_segment1 IS NULL THEN
3973:
3974: END IF;
3975:
3976: IF l_debug_mode = 'Y' THEN
3977: pa_debug.g_err_stage:= 'Got the Project Number';
3978: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
3979: END IF;
3980:
3981:
3974: END IF;
3975:
3976: IF l_debug_mode = 'Y' THEN
3977: pa_debug.g_err_stage:= 'Got the Project Number';
3978: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
3979: END IF;
3980:
3981:
3982: l_context_info := l_res_assignment_details_rec.budget_type_code;
3990:
3991: END IF;
3992:
3993: IF l_debug_mode = 'Y' THEN
3994: pa_debug.g_err_stage:= 'About to add error message to stact';
3995: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
3996: END IF;
3997:
3998:
3991: END IF;
3992:
3993: IF l_debug_mode = 'Y' THEN
3994: pa_debug.g_err_stage:= 'About to add error message to stact';
3995: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
3996: END IF;
3997:
3998:
3999: PA_UTILS.add_message
4012:
4013:
4014: END LOOP;
4015: IF l_debug_mode = 'Y' THEN
4016: pa_debug.g_err_stage:= 'Exiting Find_dup_rows_in_rollup_tmp';
4017: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
4018: END IF;
4019: pa_debug.reset_curr_function;
4020:
4013:
4014: END LOOP;
4015: IF l_debug_mode = 'Y' THEN
4016: pa_debug.g_err_stage:= 'Exiting Find_dup_rows_in_rollup_tmp';
4017: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
4018: END IF;
4019: pa_debug.reset_curr_function;
4020:
4021: EXCEPTION
4015: IF l_debug_mode = 'Y' THEN
4016: pa_debug.g_err_stage:= 'Exiting Find_dup_rows_in_rollup_tmp';
4017: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
4018: END IF;
4019: pa_debug.reset_curr_function;
4020:
4021: EXCEPTION
4022: WHEN OTHERS THEN
4023: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4029: ,p_procedure_name => 'Find_dup_rows_in_rollup_tmp'
4030: ,p_error_text => x_msg_data);
4031:
4032: IF l_debug_mode = 'Y' THEN
4033: pa_debug.g_err_stage:= 'Unexpected Error'||x_msg_data;
4034: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
4035: END IF;
4036: pa_debug.reset_curr_function;
4037: RAISE;
4030: ,p_error_text => x_msg_data);
4031:
4032: IF l_debug_mode = 'Y' THEN
4033: pa_debug.g_err_stage:= 'Unexpected Error'||x_msg_data;
4034: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
4035: END IF;
4036: pa_debug.reset_curr_function;
4037: RAISE;
4038:
4032: IF l_debug_mode = 'Y' THEN
4033: pa_debug.g_err_stage:= 'Unexpected Error'||x_msg_data;
4034: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
4035: END IF;
4036: pa_debug.reset_curr_function;
4037: RAISE;
4038:
4039: END Find_dup_rows_in_rollup_tmp;
4040:
4069: BEGIN
4070:
4071: x_msg_count := 0;
4072: x_return_status := FND_API.G_RET_STS_SUCCESS;
4073: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
4074:
4075: pa_debug.set_curr_function( p_function => 'PROCESS_BDGTLINES_FOR_VERSION',
4076: p_debug_mode => l_debug_mode );
4077:
4071: x_msg_count := 0;
4072: x_return_status := FND_API.G_RET_STS_SUCCESS;
4073: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
4074:
4075: pa_debug.set_curr_function( p_function => 'PROCESS_BDGTLINES_FOR_VERSION',
4076: p_debug_mode => l_debug_mode );
4077:
4078: -- Check if the requierd parameters are being passed.
4079:
4077:
4078: -- Check if the requierd parameters are being passed.
4079:
4080: IF l_debug_mode = 'Y' THEN
4081: pa_debug.g_err_stage:= 'Validating input parameters';
4082: pa_debug.write(l_module_name,pa_debug.g_err_stage,
4083: l_debug_level3);
4084: END IF;
4085:
4078: -- Check if the requierd parameters are being passed.
4079:
4080: IF l_debug_mode = 'Y' THEN
4081: pa_debug.g_err_stage:= 'Validating input parameters';
4082: pa_debug.write(l_module_name,pa_debug.g_err_stage,
4083: l_debug_level3);
4084: END IF;
4085:
4086: IF (p_budget_version_id IS NULL)
4085:
4086: IF (p_budget_version_id IS NULL)
4087: THEN
4088: IF l_debug_mode = 'Y' THEN
4089: pa_debug.g_err_stage:= 'Invalid parameter (p_budget_version_id)';
4090: pa_debug.write(l_module_name,pa_debug.g_err_stage,
4091: l_debug_level5);
4092: END IF;
4093: PA_UTILS.ADD_MESSAGE
4086: IF (p_budget_version_id IS NULL)
4087: THEN
4088: IF l_debug_mode = 'Y' THEN
4089: pa_debug.g_err_stage:= 'Invalid parameter (p_budget_version_id)';
4090: pa_debug.write(l_module_name,pa_debug.g_err_stage,
4091: l_debug_level5);
4092: END IF;
4093: PA_UTILS.ADD_MESSAGE
4094: (p_app_short_name => 'PA',
4105: ,x_msg_count => x_msg_count
4106: ,x_msg_data => x_msg_data);
4107:
4108: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4109: IF P_PA_DEBUG_MODE = 'Y' THEN
4110: pa_debug.g_err_stage := 'Call to PA_FP_MULTI_CURRENCY_PKG.CONVERT_TXN_CURRENCY errored... ';
4111: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
4112: END IF;
4113: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
4106: ,x_msg_data => x_msg_data);
4107:
4108: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4109: IF P_PA_DEBUG_MODE = 'Y' THEN
4110: pa_debug.g_err_stage := 'Call to PA_FP_MULTI_CURRENCY_PKG.CONVERT_TXN_CURRENCY errored... ';
4111: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
4112: END IF;
4113: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
4114: END IF;
4107:
4108: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4109: IF P_PA_DEBUG_MODE = 'Y' THEN
4110: pa_debug.g_err_stage := 'Call to PA_FP_MULTI_CURRENCY_PKG.CONVERT_TXN_CURRENCY errored... ';
4111: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
4112: END IF;
4113: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
4114: END IF;
4115:
4117: Process_Modified_Lines. The parameter p_calling_context is not being used as of now.
4118: But in future if there are multiple calling contexts, then it is required that the
4119: calling context needs to be checked for before updating the Budget Version. */
4120:
4121: IF P_PA_DEBUG_MODE = 'Y' THEN
4122: pa_debug.g_err_stage := 'Increasing record version no. for Budget Version.';
4123: pa_debug.write('PROCESS_BDGTLINES_FOR_VERSION: ' || l_module_name,pa_debug.g_err_stage,3);
4124: END IF;
4125:
4118: But in future if there are multiple calling contexts, then it is required that the
4119: calling context needs to be checked for before updating the Budget Version. */
4120:
4121: IF P_PA_DEBUG_MODE = 'Y' THEN
4122: pa_debug.g_err_stage := 'Increasing record version no. for Budget Version.';
4123: pa_debug.write('PROCESS_BDGTLINES_FOR_VERSION: ' || l_module_name,pa_debug.g_err_stage,3);
4124: END IF;
4125:
4126: UPDATE pa_budget_versions
4119: calling context needs to be checked for before updating the Budget Version. */
4120:
4121: IF P_PA_DEBUG_MODE = 'Y' THEN
4122: pa_debug.g_err_stage := 'Increasing record version no. for Budget Version.';
4123: pa_debug.write('PROCESS_BDGTLINES_FOR_VERSION: ' || l_module_name,pa_debug.g_err_stage,3);
4124: END IF;
4125:
4126: UPDATE pa_budget_versions
4127: SET record_version_number = nvl(record_version_number,0) + 1
4132:
4133: -- Bug Fix: 4569365. Removed MRC code.
4134: /* Check if MRC is enabled and Call MRC API */
4135: /*
4136: IF P_PA_DEBUG_MODE = 'Y' THEN
4137: pa_debug.g_err_stage := 'Calling MRC API ';
4138: pa_debug.write('PROCESS_BDGTLINES_FOR_VERSION: ' || l_module_name,pa_debug.g_err_stage,l_debug_level3);
4139: END IF;
4140:
4133: -- Bug Fix: 4569365. Removed MRC code.
4134: /* Check if MRC is enabled and Call MRC API */
4135: /*
4136: IF P_PA_DEBUG_MODE = 'Y' THEN
4137: pa_debug.g_err_stage := 'Calling MRC API ';
4138: pa_debug.write('PROCESS_BDGTLINES_FOR_VERSION: ' || l_module_name,pa_debug.g_err_stage,l_debug_level3);
4139: END IF;
4140:
4141: IF PA_MRC_FINPLAN.G_MRC_ENABLED_FOR_BUDGETS IS NULL THEN
4134: /* Check if MRC is enabled and Call MRC API */
4135: /*
4136: IF P_PA_DEBUG_MODE = 'Y' THEN
4137: pa_debug.g_err_stage := 'Calling MRC API ';
4138: pa_debug.write('PROCESS_BDGTLINES_FOR_VERSION: ' || l_module_name,pa_debug.g_err_stage,l_debug_level3);
4139: END IF;
4140:
4141: IF PA_MRC_FINPLAN.G_MRC_ENABLED_FOR_BUDGETS IS NULL THEN
4142: PA_MRC_FINPLAN.CHECK_MRC_INSTALL
4145: x_msg_data => x_msg_data);
4146: END IF;
4147:
4148: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4149: IF P_PA_DEBUG_MODE = 'Y' THEN
4150: pa_debug.g_err_stage := 'Unexpected exception in checking MRC Install '||sqlerrm;
4151: pa_debug.write('PROCESS_BDGTLINES_FOR_VERSION: ' || l_module_name,pa_debug.g_err_stage,l_debug_level5);
4152: END IF;
4153: RAISE g_mrc_exception;
4146: END IF;
4147:
4148: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4149: IF P_PA_DEBUG_MODE = 'Y' THEN
4150: pa_debug.g_err_stage := 'Unexpected exception in checking MRC Install '||sqlerrm;
4151: pa_debug.write('PROCESS_BDGTLINES_FOR_VERSION: ' || l_module_name,pa_debug.g_err_stage,l_debug_level5);
4152: END IF;
4153: RAISE g_mrc_exception;
4154: END IF;
4147:
4148: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4149: IF P_PA_DEBUG_MODE = 'Y' THEN
4150: pa_debug.g_err_stage := 'Unexpected exception in checking MRC Install '||sqlerrm;
4151: pa_debug.write('PROCESS_BDGTLINES_FOR_VERSION: ' || l_module_name,pa_debug.g_err_stage,l_debug_level5);
4152: END IF;
4153: RAISE g_mrc_exception;
4154: END IF;
4155:
4164: x_msg_data => x_msg_data);
4165: END IF;
4166:
4167: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4168: IF P_PA_DEBUG_MODE = 'Y' THEN
4169: pa_debug.g_err_stage := 'Unexpected exception in MRC API '||sqlerrm;
4170: pa_debug.write('PROCESS_BDGTLINES_FOR_VERSION: ' || l_module_name,pa_debug.g_err_stage,l_debug_level5);
4171: END IF;
4172: RAISE g_mrc_exception;
4165: END IF;
4166:
4167: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4168: IF P_PA_DEBUG_MODE = 'Y' THEN
4169: pa_debug.g_err_stage := 'Unexpected exception in MRC API '||sqlerrm;
4170: pa_debug.write('PROCESS_BDGTLINES_FOR_VERSION: ' || l_module_name,pa_debug.g_err_stage,l_debug_level5);
4171: END IF;
4172: RAISE g_mrc_exception;
4173: END IF;
4166:
4167: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4168: IF P_PA_DEBUG_MODE = 'Y' THEN
4169: pa_debug.g_err_stage := 'Unexpected exception in MRC API '||sqlerrm;
4170: pa_debug.write('PROCESS_BDGTLINES_FOR_VERSION: ' || l_module_name,pa_debug.g_err_stage,l_debug_level5);
4171: END IF;
4172: RAISE g_mrc_exception;
4173: END IF;
4174: */
4172: RAISE g_mrc_exception;
4173: END IF;
4174: */
4175:
4176: IF P_PA_DEBUG_MODE = 'Y' THEN
4177: pa_debug.g_err_stage := 'Calling PA_FP_ROLLUP_PKG ';
4178: pa_debug.write('PROCESS_BDGTLINES_FOR_VERSION: ' || l_module_name,pa_debug.g_err_stage,3);
4179: END IF;
4180:
4173: END IF;
4174: */
4175:
4176: IF P_PA_DEBUG_MODE = 'Y' THEN
4177: pa_debug.g_err_stage := 'Calling PA_FP_ROLLUP_PKG ';
4178: pa_debug.write('PROCESS_BDGTLINES_FOR_VERSION: ' || l_module_name,pa_debug.g_err_stage,3);
4179: END IF;
4180:
4181: /* Call the rollup API to rollup the amounts. */
4174: */
4175:
4176: IF P_PA_DEBUG_MODE = 'Y' THEN
4177: pa_debug.g_err_stage := 'Calling PA_FP_ROLLUP_PKG ';
4178: pa_debug.write('PROCESS_BDGTLINES_FOR_VERSION: ' || l_module_name,pa_debug.g_err_stage,3);
4179: END IF;
4180:
4181: /* Call the rollup API to rollup the amounts. */
4182: PA_FP_ROLLUP_PKG.ROLLUP_BUDGET_VERSION(
4187: ,x_msg_data => x_msg_data ) ;
4188:
4189:
4190: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4191: IF P_PA_DEBUG_MODE = 'Y' THEN
4192: pa_debug.g_err_stage := 'Call to PA_FP_ROLLUP_PKG errored... ';
4193: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
4194: END IF;
4195: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
4188:
4189:
4190: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4191: IF P_PA_DEBUG_MODE = 'Y' THEN
4192: pa_debug.g_err_stage := 'Call to PA_FP_ROLLUP_PKG errored... ';
4193: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
4194: END IF;
4195: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
4196: END IF;
4189:
4190: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4191: IF P_PA_DEBUG_MODE = 'Y' THEN
4192: pa_debug.g_err_stage := 'Call to PA_FP_ROLLUP_PKG errored... ';
4193: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
4194: END IF;
4195: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
4196: END IF;
4197:
4196: END IF;
4197:
4198:
4199: IF l_debug_mode = 'Y' THEN
4200: pa_debug.g_err_stage:= 'Exiting PROCESS_BDGTLINES_FOR_VERSION';
4201: pa_debug.write(l_module_name,pa_debug.g_err_stage,
4202: l_debug_level3);
4203: END IF;
4204: pa_debug.reset_curr_function;
4197:
4198:
4199: IF l_debug_mode = 'Y' THEN
4200: pa_debug.g_err_stage:= 'Exiting PROCESS_BDGTLINES_FOR_VERSION';
4201: pa_debug.write(l_module_name,pa_debug.g_err_stage,
4202: l_debug_level3);
4203: END IF;
4204: pa_debug.reset_curr_function;
4205: EXCEPTION
4200: pa_debug.g_err_stage:= 'Exiting PROCESS_BDGTLINES_FOR_VERSION';
4201: pa_debug.write(l_module_name,pa_debug.g_err_stage,
4202: l_debug_level3);
4203: END IF;
4204: pa_debug.reset_curr_function;
4205: EXCEPTION
4206:
4207: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
4208:
4221: x_msg_count := l_msg_count;
4222: ELSE
4223: x_msg_count := l_msg_count;
4224: END IF;
4225: pa_debug.reset_curr_function;
4226: RETURN;
4227:
4228: WHEN others THEN
4229:
4236: ,p_procedure_name => 'PROCESS_BDGTLINES_FOR_VERSION'
4237: ,p_error_text => x_msg_data);
4238:
4239: IF l_debug_mode = 'Y' THEN
4240: pa_debug.g_err_stage:= 'Unexpected Error'||x_msg_data;
4241: pa_debug.write(l_module_name,pa_debug.g_err_stage,
4242: l_debug_level5);
4243: END IF;
4244: pa_debug.reset_curr_function;
4237: ,p_error_text => x_msg_data);
4238:
4239: IF l_debug_mode = 'Y' THEN
4240: pa_debug.g_err_stage:= 'Unexpected Error'||x_msg_data;
4241: pa_debug.write(l_module_name,pa_debug.g_err_stage,
4242: l_debug_level5);
4243: END IF;
4244: pa_debug.reset_curr_function;
4245: RAISE;
4240: pa_debug.g_err_stage:= 'Unexpected Error'||x_msg_data;
4241: pa_debug.write(l_module_name,pa_debug.g_err_stage,
4242: l_debug_level5);
4243: END IF;
4244: pa_debug.reset_curr_function;
4245: RAISE;
4246: END PROCESS_BDGTLINES_FOR_VERSION;
4247:
4248: END PA_FP_EDIT_LINE_PKG;