43: G_PKG_NAME ;
44: BEGIN
45: x_msg_count := 0;
46: x_return_status := FND_API.G_RET_STS_SUCCESS;
47: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
48:
49: IF l_debug_mode = 'Y' THEN
50: pa_debug.set_curr_function( p_function => 'Copy_Excluded_Elements',
51: p_debug_mode => l_debug_mode );
46: x_return_status := FND_API.G_RET_STS_SUCCESS;
47: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
48:
49: IF l_debug_mode = 'Y' THEN
50: pa_debug.set_curr_function( p_function => 'Copy_Excluded_Elements',
51: p_debug_mode => l_debug_mode );
52: END IF;
53:
54: IF l_debug_mode = 'Y' THEN
51: p_debug_mode => l_debug_mode );
52: END IF;
53:
54: IF l_debug_mode = 'Y' THEN
55: pa_debug.g_err_stage:= 'Validating input parameters';
56: pa_debug.write(L_PROCEDURE_NAME,pa_debug.g_err_stage,L_DEBUG_LEVEL3);
57: END IF;
58:
59: IF p_from_proj_fp_options_id IS NULL OR
52: END IF;
53:
54: IF l_debug_mode = 'Y' THEN
55: pa_debug.g_err_stage:= 'Validating input parameters';
56: pa_debug.write(L_PROCEDURE_NAME,pa_debug.g_err_stage,L_DEBUG_LEVEL3);
57: END IF;
58:
59: IF p_from_proj_fp_options_id IS NULL OR
60: p_from_element_type IS NULL OR
62: p_to_element_type IS NULL
63: THEN
64:
65: IF l_debug_mode = 'Y' THEN
66: pa_debug.g_err_stage:= 'p_from_proj_fp_options_id = '|| p_from_proj_fp_options_id;
67: pa_debug.write(L_PROCEDURE_NAME,pa_debug.g_err_stage,L_DEBUG_LEVEL5);
68:
69: pa_debug.g_err_stage:= 'p_from_element_type = '|| p_from_element_type;
70: pa_debug.write(L_PROCEDURE_NAME,pa_debug.g_err_stage,L_DEBUG_LEVEL5);
63: THEN
64:
65: IF l_debug_mode = 'Y' THEN
66: pa_debug.g_err_stage:= 'p_from_proj_fp_options_id = '|| p_from_proj_fp_options_id;
67: pa_debug.write(L_PROCEDURE_NAME,pa_debug.g_err_stage,L_DEBUG_LEVEL5);
68:
69: pa_debug.g_err_stage:= 'p_from_element_type = '|| p_from_element_type;
70: pa_debug.write(L_PROCEDURE_NAME,pa_debug.g_err_stage,L_DEBUG_LEVEL5);
71:
65: IF l_debug_mode = 'Y' THEN
66: pa_debug.g_err_stage:= 'p_from_proj_fp_options_id = '|| p_from_proj_fp_options_id;
67: pa_debug.write(L_PROCEDURE_NAME,pa_debug.g_err_stage,L_DEBUG_LEVEL5);
68:
69: pa_debug.g_err_stage:= 'p_from_element_type = '|| p_from_element_type;
70: pa_debug.write(L_PROCEDURE_NAME,pa_debug.g_err_stage,L_DEBUG_LEVEL5);
71:
72: pa_debug.g_err_stage:= 'p_to_proj_fp_options_id = '|| p_to_proj_fp_options_id;
73: pa_debug.write(L_PROCEDURE_NAME,pa_debug.g_err_stage,L_DEBUG_LEVEL5);
66: pa_debug.g_err_stage:= 'p_from_proj_fp_options_id = '|| p_from_proj_fp_options_id;
67: pa_debug.write(L_PROCEDURE_NAME,pa_debug.g_err_stage,L_DEBUG_LEVEL5);
68:
69: pa_debug.g_err_stage:= 'p_from_element_type = '|| p_from_element_type;
70: pa_debug.write(L_PROCEDURE_NAME,pa_debug.g_err_stage,L_DEBUG_LEVEL5);
71:
72: pa_debug.g_err_stage:= 'p_to_proj_fp_options_id = '|| p_to_proj_fp_options_id;
73: pa_debug.write(L_PROCEDURE_NAME,pa_debug.g_err_stage,L_DEBUG_LEVEL5);
74:
68:
69: pa_debug.g_err_stage:= 'p_from_element_type = '|| p_from_element_type;
70: pa_debug.write(L_PROCEDURE_NAME,pa_debug.g_err_stage,L_DEBUG_LEVEL5);
71:
72: pa_debug.g_err_stage:= 'p_to_proj_fp_options_id = '|| p_to_proj_fp_options_id;
73: pa_debug.write(L_PROCEDURE_NAME,pa_debug.g_err_stage,L_DEBUG_LEVEL5);
74:
75: pa_debug.g_err_stage:= 'p_to_element_type = '|| p_to_element_type;
76: pa_debug.write(L_PROCEDURE_NAME,pa_debug.g_err_stage,L_DEBUG_LEVEL5);
69: pa_debug.g_err_stage:= 'p_from_element_type = '|| p_from_element_type;
70: pa_debug.write(L_PROCEDURE_NAME,pa_debug.g_err_stage,L_DEBUG_LEVEL5);
71:
72: pa_debug.g_err_stage:= 'p_to_proj_fp_options_id = '|| p_to_proj_fp_options_id;
73: pa_debug.write(L_PROCEDURE_NAME,pa_debug.g_err_stage,L_DEBUG_LEVEL5);
74:
75: pa_debug.g_err_stage:= 'p_to_element_type = '|| p_to_element_type;
76: pa_debug.write(L_PROCEDURE_NAME,pa_debug.g_err_stage,L_DEBUG_LEVEL5);
77: END IF;
71:
72: pa_debug.g_err_stage:= 'p_to_proj_fp_options_id = '|| p_to_proj_fp_options_id;
73: pa_debug.write(L_PROCEDURE_NAME,pa_debug.g_err_stage,L_DEBUG_LEVEL5);
74:
75: pa_debug.g_err_stage:= 'p_to_element_type = '|| p_to_element_type;
76: pa_debug.write(L_PROCEDURE_NAME,pa_debug.g_err_stage,L_DEBUG_LEVEL5);
77: END IF;
78: PA_UTILS.ADD_MESSAGE
79: (p_app_short_name => 'PA',
72: pa_debug.g_err_stage:= 'p_to_proj_fp_options_id = '|| p_to_proj_fp_options_id;
73: pa_debug.write(L_PROCEDURE_NAME,pa_debug.g_err_stage,L_DEBUG_LEVEL5);
74:
75: pa_debug.g_err_stage:= 'p_to_element_type = '|| p_to_element_type;
76: pa_debug.write(L_PROCEDURE_NAME,pa_debug.g_err_stage,L_DEBUG_LEVEL5);
77: END IF;
78: PA_UTILS.ADD_MESSAGE
79: (p_app_short_name => 'PA',
80: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
87: FETCH fp_options_info_cur INTO l_from_fp_option_info_rec;
88: IF fp_options_info_cur%NOTFOUND THEN
89:
90: IF l_debug_mode = 'Y' THEN
91: pa_debug.g_err_stage:= 'p_from_proj_fp_options_id '|| p_from_proj_fp_options_id
92: ||' is invalid ';
93: pa_debug.write(L_PROCEDURE_NAME,pa_debug.g_err_stage,L_DEBUG_LEVEL5);
94: END IF;
95: CLOSE fp_options_info_cur;
89:
90: IF l_debug_mode = 'Y' THEN
91: pa_debug.g_err_stage:= 'p_from_proj_fp_options_id '|| p_from_proj_fp_options_id
92: ||' is invalid ';
93: pa_debug.write(L_PROCEDURE_NAME,pa_debug.g_err_stage,L_DEBUG_LEVEL5);
94: END IF;
95: CLOSE fp_options_info_cur;
96: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
97:
102: FETCH fp_options_info_cur INTO l_to_fp_option_info_rec;
103: IF fp_options_info_cur%NOTFOUND THEN
104:
105: IF l_debug_mode = 'Y' THEN
106: pa_debug.g_err_stage:= 'p_to_proj_fp_options_id '|| p_to_proj_fp_options_id
107: ||' is invalid ';
108: pa_debug.write(L_PROCEDURE_NAME,pa_debug.g_err_stage,L_DEBUG_LEVEL5);
109: END IF;
110: CLOSE fp_options_info_cur;
104:
105: IF l_debug_mode = 'Y' THEN
106: pa_debug.g_err_stage:= 'p_to_proj_fp_options_id '|| p_to_proj_fp_options_id
107: ||' is invalid ';
108: pa_debug.write(L_PROCEDURE_NAME,pa_debug.g_err_stage,L_DEBUG_LEVEL5);
109: END IF;
110: CLOSE fp_options_info_cur;
111: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
112:
115:
116: IF l_from_fp_option_info_rec.project_id = l_to_fp_option_info_rec.project_id THEN
117:
118: IF l_debug_mode = 'Y' THEN
119: pa_debug.g_err_stage:= 'project ids are same. inserting into excluded elements';
120: pa_debug.write(L_PROCEDURE_NAME,pa_debug.g_err_stage,L_DEBUG_LEVEL3);
121: END IF;
122:
123: INSERT INTO pa_fp_excluded_elements
116: IF l_from_fp_option_info_rec.project_id = l_to_fp_option_info_rec.project_id THEN
117:
118: IF l_debug_mode = 'Y' THEN
119: pa_debug.g_err_stage:= 'project ids are same. inserting into excluded elements';
120: pa_debug.write(L_PROCEDURE_NAME,pa_debug.g_err_stage,L_DEBUG_LEVEL3);
121: END IF;
122:
123: INSERT INTO pa_fp_excluded_elements
124: ( proj_fp_options_id
155: p_from_element_type);
156:
157: ELSE
158: IF l_debug_mode = 'Y' THEN
159: pa_debug.g_err_stage:= 'project ids are DIFFERENT. inserting into excluded elements';
160: pa_debug.write(L_PROCEDURE_NAME,pa_debug.g_err_stage,L_DEBUG_LEVEL3);
161: END IF;
162:
163: --Map the tasks from source to project using the task number.
156:
157: ELSE
158: IF l_debug_mode = 'Y' THEN
159: pa_debug.g_err_stage:= 'project ids are DIFFERENT. inserting into excluded elements';
160: pa_debug.write(L_PROCEDURE_NAME,pa_debug.g_err_stage,L_DEBUG_LEVEL3);
161: END IF;
162:
163: --Map the tasks from source to project using the task number.
164: INSERT INTO pa_fp_excluded_elements
201:
202: END IF;
203:
204: IF l_debug_mode = 'Y' THEN
205: pa_debug.g_err_stage:= 'Exiting Copy_Excluded_Elements';
206: pa_debug.write(L_PROCEDURE_NAME,pa_debug.g_err_stage,L_DEBUG_LEVEL3);
207: pa_debug.reset_curr_function;
208: END IF;
209:
202: END IF;
203:
204: IF l_debug_mode = 'Y' THEN
205: pa_debug.g_err_stage:= 'Exiting Copy_Excluded_Elements';
206: pa_debug.write(L_PROCEDURE_NAME,pa_debug.g_err_stage,L_DEBUG_LEVEL3);
207: pa_debug.reset_curr_function;
208: END IF;
209:
210: EXCEPTION
203:
204: IF l_debug_mode = 'Y' THEN
205: pa_debug.g_err_stage:= 'Exiting Copy_Excluded_Elements';
206: pa_debug.write(L_PROCEDURE_NAME,pa_debug.g_err_stage,L_DEBUG_LEVEL3);
207: pa_debug.reset_curr_function;
208: END IF;
209:
210: EXCEPTION
211: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
226: ELSE
227: x_msg_count := l_msg_count;
228: END IF;
229: IF l_debug_mode = 'Y' THEN
230: pa_debug.reset_curr_function;
231: END IF;
232:
233: RETURN;
234:
243: ,p_procedure_name => 'Copy_Excluded_Elements'
244: ,p_error_text => x_msg_data);
245:
246: IF l_debug_mode = 'Y' THEN
247: pa_debug.g_err_stage:= 'Unexpected Error'||x_msg_data;
248: pa_debug.write(L_PROCEDURE_NAME,pa_debug.g_err_stage,L_DEBUG_LEVEL5);
249: pa_debug.reset_curr_function;
250: END IF;
251: RAISE;
244: ,p_error_text => x_msg_data);
245:
246: IF l_debug_mode = 'Y' THEN
247: pa_debug.g_err_stage:= 'Unexpected Error'||x_msg_data;
248: pa_debug.write(L_PROCEDURE_NAME,pa_debug.g_err_stage,L_DEBUG_LEVEL5);
249: pa_debug.reset_curr_function;
250: END IF;
251: RAISE;
252: END Copy_Excluded_Elements;
245:
246: IF l_debug_mode = 'Y' THEN
247: pa_debug.g_err_stage:= 'Unexpected Error'||x_msg_data;
248: pa_debug.write(L_PROCEDURE_NAME,pa_debug.g_err_stage,L_DEBUG_LEVEL5);
249: pa_debug.reset_curr_function;
250: END IF;
251: RAISE;
252: END Copy_Excluded_Elements;
253:
274: BEGIN
275: x_msg_count := 0;
276: x_return_status := FND_API.G_RET_STS_SUCCESS;
277:
278: PA_DEBUG.Set_Curr_Function( p_function => 'Synchronize_Excluded_Elements',
279: p_debug_mode => l_debug_mode );
280:
281: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
282:
277:
278: PA_DEBUG.Set_Curr_Function( p_function => 'Synchronize_Excluded_Elements',
279: p_debug_mode => l_debug_mode );
280:
281: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
282:
283: IF l_debug_mode = 'Y' THEN
284: pa_debug.g_err_stage:= 'Inside Synchronize_Excluded_Elements';
285: pa_debug.write(l_procedure_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
280:
281: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
282:
283: IF l_debug_mode = 'Y' THEN
284: pa_debug.g_err_stage:= 'Inside Synchronize_Excluded_Elements';
285: pa_debug.write(l_procedure_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
286: END IF;
287:
288:
281: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
282:
283: IF l_debug_mode = 'Y' THEN
284: pa_debug.g_err_stage:= 'Inside Synchronize_Excluded_Elements';
285: pa_debug.write(l_procedure_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
286: END IF;
287:
288:
289: -- Check for NOT NULL parameters
290:
291: IF (p_proj_fp_options_id IS NULL) OR (p_element_type IS NULL)
292: THEN
293: IF l_debug_mode = 'Y' THEN
294: pa_debug.g_err_stage:= 'p_proj_fp_options_id = '|| p_proj_fp_options_id;
295: pa_debug.write(l_procedure_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
296: pa_debug.g_err_stage:= 'p_element_type = '|| p_element_type;
297: pa_debug.write(l_procedure_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
298: pa_debug.g_err_stage:= 'Invalid Arguments Passed';
291: IF (p_proj_fp_options_id IS NULL) OR (p_element_type IS NULL)
292: THEN
293: IF l_debug_mode = 'Y' THEN
294: pa_debug.g_err_stage:= 'p_proj_fp_options_id = '|| p_proj_fp_options_id;
295: pa_debug.write(l_procedure_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
296: pa_debug.g_err_stage:= 'p_element_type = '|| p_element_type;
297: pa_debug.write(l_procedure_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
298: pa_debug.g_err_stage:= 'Invalid Arguments Passed';
299: pa_debug.write(l_procedure_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
292: THEN
293: IF l_debug_mode = 'Y' THEN
294: pa_debug.g_err_stage:= 'p_proj_fp_options_id = '|| p_proj_fp_options_id;
295: pa_debug.write(l_procedure_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
296: pa_debug.g_err_stage:= 'p_element_type = '|| p_element_type;
297: pa_debug.write(l_procedure_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
298: pa_debug.g_err_stage:= 'Invalid Arguments Passed';
299: pa_debug.write(l_procedure_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
300: END IF;
293: IF l_debug_mode = 'Y' THEN
294: pa_debug.g_err_stage:= 'p_proj_fp_options_id = '|| p_proj_fp_options_id;
295: pa_debug.write(l_procedure_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
296: pa_debug.g_err_stage:= 'p_element_type = '|| p_element_type;
297: pa_debug.write(l_procedure_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
298: pa_debug.g_err_stage:= 'Invalid Arguments Passed';
299: pa_debug.write(l_procedure_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
300: END IF;
301: PA_UTILS.ADD_MESSAGE
294: pa_debug.g_err_stage:= 'p_proj_fp_options_id = '|| p_proj_fp_options_id;
295: pa_debug.write(l_procedure_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
296: pa_debug.g_err_stage:= 'p_element_type = '|| p_element_type;
297: pa_debug.write(l_procedure_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
298: pa_debug.g_err_stage:= 'Invalid Arguments Passed';
299: pa_debug.write(l_procedure_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
300: END IF;
301: PA_UTILS.ADD_MESSAGE
302: (p_app_short_name => 'PA',
295: pa_debug.write(l_procedure_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
296: pa_debug.g_err_stage:= 'p_element_type = '|| p_element_type;
297: pa_debug.write(l_procedure_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
298: pa_debug.g_err_stage:= 'Invalid Arguments Passed';
299: pa_debug.write(l_procedure_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
300: END IF;
301: PA_UTILS.ADD_MESSAGE
302: (p_app_short_name => 'PA',
303: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
319: AND pfe.plannable_flag = 'Y'
320: AND pfe.resource_list_member_id = 0);
321:
322: IF l_debug_mode = 'Y' THEN
323: pa_debug.g_err_stage:= 'Exiting Synchronize_Excluded_Elements';
324: pa_debug.write(l_procedure_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
325: END IF;
326: pa_debug.reset_curr_function;
327: EXCEPTION
320: AND pfe.resource_list_member_id = 0);
321:
322: IF l_debug_mode = 'Y' THEN
323: pa_debug.g_err_stage:= 'Exiting Synchronize_Excluded_Elements';
324: pa_debug.write(l_procedure_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
325: END IF;
326: pa_debug.reset_curr_function;
327: EXCEPTION
328:
322: IF l_debug_mode = 'Y' THEN
323: pa_debug.g_err_stage:= 'Exiting Synchronize_Excluded_Elements';
324: pa_debug.write(l_procedure_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
325: END IF;
326: pa_debug.reset_curr_function;
327: EXCEPTION
328:
329: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
330:
342: x_msg_count := l_msg_count;
343: ELSE
344: x_msg_count := l_msg_count;
345: END IF;
346: pa_debug.reset_curr_function;
347: RETURN;
348: WHEN others THEN
349:
350: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
353: FND_MSG_PUB.add_exc_msg
354: ( p_pkg_name => G_PKG_NAME
355: ,p_procedure_name => 'Synchronize_Excluded_Elements'
356: ,p_error_text => sqlerrm);
357: pa_debug.reset_curr_function;
358: RAISE;
359: END Synchronize_Excluded_Elements;
360:
361: /* Called from setup pages to delete from pa_fp_excluded_elements when a task element is
395: BEGIN
396:
397: x_msg_count := 0;
398: x_return_status := FND_API.G_RET_STS_SUCCESS;
399: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
400:
401: IF l_debug_mode = 'Y' THEN
402: pa_debug.set_curr_function( p_function => 'Delete_Excluded_Elements',
403: p_debug_mode => l_debug_mode );
398: x_return_status := FND_API.G_RET_STS_SUCCESS;
399: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
400:
401: IF l_debug_mode = 'Y' THEN
402: pa_debug.set_curr_function( p_function => 'Delete_Excluded_Elements',
403: p_debug_mode => l_debug_mode );
404: END IF;
405:
406: -- Check for business rules violations
405:
406: -- Check for business rules violations
407:
408: IF l_debug_mode = 'Y' THEN
409: pa_debug.g_err_stage:= 'Validating input parameters';
410: pa_debug.write(L_PROCEDURE_NAME,pa_debug.g_err_stage,
411: L_DEBUG_LEVEL3);
412: END IF;
413:
406: -- Check for business rules violations
407:
408: IF l_debug_mode = 'Y' THEN
409: pa_debug.g_err_stage:= 'Validating input parameters';
410: pa_debug.write(L_PROCEDURE_NAME,pa_debug.g_err_stage,
411: L_DEBUG_LEVEL3);
412: END IF;
413:
414: IF (p_proj_fp_options_id IS NULL) OR
415: (p_element_type IS NULL) OR
416: (p_task_id IS NULL)
417: THEN
418: IF l_debug_mode = 'Y' THEN
419: pa_debug.g_err_stage:= 'p_proj_fp_options_id = '|| p_proj_fp_options_id;
420: pa_debug.write(L_PROCEDURE_NAME,pa_debug.g_err_stage,
421: L_DEBUG_LEVEL5);
422: pa_debug.g_err_stage:= 'p_element_type = '|| p_element_type;
423: pa_debug.write(L_PROCEDURE_NAME,pa_debug.g_err_stage,
416: (p_task_id IS NULL)
417: THEN
418: IF l_debug_mode = 'Y' THEN
419: pa_debug.g_err_stage:= 'p_proj_fp_options_id = '|| p_proj_fp_options_id;
420: pa_debug.write(L_PROCEDURE_NAME,pa_debug.g_err_stage,
421: L_DEBUG_LEVEL5);
422: pa_debug.g_err_stage:= 'p_element_type = '|| p_element_type;
423: pa_debug.write(L_PROCEDURE_NAME,pa_debug.g_err_stage,
424: L_DEBUG_LEVEL5);
418: IF l_debug_mode = 'Y' THEN
419: pa_debug.g_err_stage:= 'p_proj_fp_options_id = '|| p_proj_fp_options_id;
420: pa_debug.write(L_PROCEDURE_NAME,pa_debug.g_err_stage,
421: L_DEBUG_LEVEL5);
422: pa_debug.g_err_stage:= 'p_element_type = '|| p_element_type;
423: pa_debug.write(L_PROCEDURE_NAME,pa_debug.g_err_stage,
424: L_DEBUG_LEVEL5);
425: pa_debug.g_err_stage:= 'p_task_id = '|| p_task_id;
426: pa_debug.write(L_PROCEDURE_NAME,pa_debug.g_err_stage,
419: pa_debug.g_err_stage:= 'p_proj_fp_options_id = '|| p_proj_fp_options_id;
420: pa_debug.write(L_PROCEDURE_NAME,pa_debug.g_err_stage,
421: L_DEBUG_LEVEL5);
422: pa_debug.g_err_stage:= 'p_element_type = '|| p_element_type;
423: pa_debug.write(L_PROCEDURE_NAME,pa_debug.g_err_stage,
424: L_DEBUG_LEVEL5);
425: pa_debug.g_err_stage:= 'p_task_id = '|| p_task_id;
426: pa_debug.write(L_PROCEDURE_NAME,pa_debug.g_err_stage,
427: L_DEBUG_LEVEL5);
421: L_DEBUG_LEVEL5);
422: pa_debug.g_err_stage:= 'p_element_type = '|| p_element_type;
423: pa_debug.write(L_PROCEDURE_NAME,pa_debug.g_err_stage,
424: L_DEBUG_LEVEL5);
425: pa_debug.g_err_stage:= 'p_task_id = '|| p_task_id;
426: pa_debug.write(L_PROCEDURE_NAME,pa_debug.g_err_stage,
427: L_DEBUG_LEVEL5);
428: END IF;
429: PA_UTILS.ADD_MESSAGE
422: pa_debug.g_err_stage:= 'p_element_type = '|| p_element_type;
423: pa_debug.write(L_PROCEDURE_NAME,pa_debug.g_err_stage,
424: L_DEBUG_LEVEL5);
425: pa_debug.g_err_stage:= 'p_task_id = '|| p_task_id;
426: pa_debug.write(L_PROCEDURE_NAME,pa_debug.g_err_stage,
427: L_DEBUG_LEVEL5);
428: END IF;
429: PA_UTILS.ADD_MESSAGE
430: (p_app_short_name => 'PA',
440:
441: IF cur_excl_elems%FOUND THEN
442:
443: IF l_debug_mode = 'Y' THEN
444: pa_debug.g_err_stage:= 'Calling PA_FP_EXCLUDED_ELEMENTS_PKG.DELETE_ROW...';
445: pa_debug.write(L_PROCEDURE_NAME,pa_debug.g_err_stage,
446: L_DEBUG_LEVEL3);
447: END IF;
448:
441: IF cur_excl_elems%FOUND THEN
442:
443: IF l_debug_mode = 'Y' THEN
444: pa_debug.g_err_stage:= 'Calling PA_FP_EXCLUDED_ELEMENTS_PKG.DELETE_ROW...';
445: pa_debug.write(L_PROCEDURE_NAME,pa_debug.g_err_stage,
446: L_DEBUG_LEVEL3);
447: END IF;
448:
449: PA_FP_EXCLUDED_ELEMENTS_PKG.DELETE_ROW(
451: x_return_status => x_return_status);
452:
453: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
454: IF l_debug_mode = 'Y' THEN
455: pa_debug.g_err_stage:= 'Error returned by PA_FP_EXCLUDED_ELEMENTS_PKG.DELETE_ROW';
456: pa_debug.write(L_PROCEDURE_NAME,pa_debug.g_err_stage,
457: L_DEBUG_LEVEL5);
458: END IF;
459: CLOSE cur_excl_elems;
452:
453: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
454: IF l_debug_mode = 'Y' THEN
455: pa_debug.g_err_stage:= 'Error returned by PA_FP_EXCLUDED_ELEMENTS_PKG.DELETE_ROW';
456: pa_debug.write(L_PROCEDURE_NAME,pa_debug.g_err_stage,
457: L_DEBUG_LEVEL5);
458: END IF;
459: CLOSE cur_excl_elems;
460: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
464:
465: CLOSE cur_excl_elems;
466:
467: IF l_debug_mode = 'Y' THEN
468: pa_debug.g_err_stage:= 'Exiting Delete_Excluded_Elements';
469: pa_debug.write(L_PROCEDURE_NAME,pa_debug.g_err_stage,
470: L_DEBUG_LEVEL3);
471: pa_debug.reset_curr_function;
472: END IF;
465: CLOSE cur_excl_elems;
466:
467: IF l_debug_mode = 'Y' THEN
468: pa_debug.g_err_stage:= 'Exiting Delete_Excluded_Elements';
469: pa_debug.write(L_PROCEDURE_NAME,pa_debug.g_err_stage,
470: L_DEBUG_LEVEL3);
471: pa_debug.reset_curr_function;
472: END IF;
473: EXCEPTION
467: IF l_debug_mode = 'Y' THEN
468: pa_debug.g_err_stage:= 'Exiting Delete_Excluded_Elements';
469: pa_debug.write(L_PROCEDURE_NAME,pa_debug.g_err_stage,
470: L_DEBUG_LEVEL3);
471: pa_debug.reset_curr_function;
472: END IF;
473: EXCEPTION
474:
475: WHEN Pa_Fp_Constants_Pkg.Invalid_Arg_Exc THEN
494: ELSE
495: x_msg_count := l_msg_count;
496: END IF;
497: IF l_debug_mode = 'Y' THEN
498: pa_debug.reset_curr_function;
499: END IF;
500:
501: RETURN;
502:
515: ,p_procedure_name => 'Delete_Excluded_Elements'
516: ,p_error_text => x_msg_data);
517:
518: IF l_debug_mode = 'Y' THEN
519: pa_debug.g_err_stage:= 'Unexpected Error'||x_msg_data;
520: pa_debug.write(L_PROCEDURE_NAME,pa_debug.g_err_stage,
521: L_DEBUG_LEVEL5);
522: pa_debug.reset_curr_function;
523: END IF;
516: ,p_error_text => x_msg_data);
517:
518: IF l_debug_mode = 'Y' THEN
519: pa_debug.g_err_stage:= 'Unexpected Error'||x_msg_data;
520: pa_debug.write(L_PROCEDURE_NAME,pa_debug.g_err_stage,
521: L_DEBUG_LEVEL5);
522: pa_debug.reset_curr_function;
523: END IF;
524: RAISE;
518: IF l_debug_mode = 'Y' THEN
519: pa_debug.g_err_stage:= 'Unexpected Error'||x_msg_data;
520: pa_debug.write(L_PROCEDURE_NAME,pa_debug.g_err_stage,
521: L_DEBUG_LEVEL5);
522: pa_debug.reset_curr_function;
523: END IF;
524: RAISE;
525: END Delete_Excluded_Elements;
526: