50:
51: BEGIN
52:
53: -- Initialize the Error Stack
54: PA_DEBUG.init_err_stack('PA_PERF_RULES_PUB.create_rule');
55: x_msg_count := 0;
56: x_msg_data := NULL;
57: x_return_status := FND_API.G_RET_STS_SUCCESS;
58: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
54: PA_DEBUG.init_err_stack('PA_PERF_RULES_PUB.create_rule');
55: x_msg_count := 0;
56: x_msg_data := NULL;
57: x_return_status := FND_API.G_RET_STS_SUCCESS;
58: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
59:
60: IF l_debug_mode = 'Y' THEN
61: pa_debug.set_curr_function( p_function => 'PA_PERF_RULES_PUB.create_rule',
62: p_debug_mode => l_debug_mode );
57: x_return_status := FND_API.G_RET_STS_SUCCESS;
58: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
59:
60: IF l_debug_mode = 'Y' THEN
61: pa_debug.set_curr_function( p_function => 'PA_PERF_RULES_PUB.create_rule',
62: p_debug_mode => l_debug_mode );
63: END IF;
64:
65: IF l_debug_mode = 'Y' THEN
62: p_debug_mode => l_debug_mode );
63: END IF;
64:
65: IF l_debug_mode = 'Y' THEN
66: pa_debug.g_err_stage:= 'Entered PA_PERF_RULES_PUB.create_rule';
67: pa_debug.write(g_module_name,pa_debug.g_err_stage,
68: l_debug_level3);
69: END IF;
70:
63: END IF;
64:
65: IF l_debug_mode = 'Y' THEN
66: pa_debug.g_err_stage:= 'Entered PA_PERF_RULES_PUB.create_rule';
67: pa_debug.write(g_module_name,pa_debug.g_err_stage,
68: l_debug_level3);
69: END IF;
70:
71:
99: end if;
100:
101:
102: IF l_debug_mode = 'Y' THEN
103: pa_debug.g_err_stage:= 'Exiting PA_PERF_RULES_PUB.create_rule';
104: pa_debug.write(g_module_name,pa_debug.g_err_stage,
105: l_debug_level3);
106: pa_debug.reset_curr_function;
107: END IF;
100:
101:
102: IF l_debug_mode = 'Y' THEN
103: pa_debug.g_err_stage:= 'Exiting PA_PERF_RULES_PUB.create_rule';
104: pa_debug.write(g_module_name,pa_debug.g_err_stage,
105: l_debug_level3);
106: pa_debug.reset_curr_function;
107: END IF;
108:
102: IF l_debug_mode = 'Y' THEN
103: pa_debug.g_err_stage:= 'Exiting PA_PERF_RULES_PUB.create_rule';
104: pa_debug.write(g_module_name,pa_debug.g_err_stage,
105: l_debug_level3);
106: pa_debug.reset_curr_function;
107: END IF;
108:
109: -- Reset the Error Stack
110: PA_DEBUG.reset_err_stack;
106: pa_debug.reset_curr_function;
107: END IF;
108:
109: -- Reset the Error Stack
110: PA_DEBUG.reset_err_stack;
111:
112:
113: EXCEPTION
114: WHEN Invalid_Ret_Status THEN
130: x_msg_count := l_msg_count;
131: END IF;
132:
133: IF l_debug_mode = 'Y' THEN
134: pa_debug.reset_curr_function;
135: END IF;
136:
137: rollback to sp;
138: RETURN;
147: ,p_procedure_name => 'CREATE_RULE'
148: ,p_error_text => x_msg_data);
149:
150: IF l_debug_mode = 'Y' THEN
151: pa_debug.g_err_stage:= 'Unexpected Error: '||x_msg_data;
152: pa_debug.write(g_module_name,pa_debug.g_err_stage,
153: l_debug_level5);
154: pa_debug.reset_curr_function;
155: END IF;
148: ,p_error_text => x_msg_data);
149:
150: IF l_debug_mode = 'Y' THEN
151: pa_debug.g_err_stage:= 'Unexpected Error: '||x_msg_data;
152: pa_debug.write(g_module_name,pa_debug.g_err_stage,
153: l_debug_level5);
154: pa_debug.reset_curr_function;
155: END IF;
156: RAISE;
150: IF l_debug_mode = 'Y' THEN
151: pa_debug.g_err_stage:= 'Unexpected Error: '||x_msg_data;
152: pa_debug.write(g_module_name,pa_debug.g_err_stage,
153: l_debug_level5);
154: pa_debug.reset_curr_function;
155: END IF;
156: RAISE;
157: END CREATE_RULE;
158:
201: BEGIN
202:
203: savepoint sp;
204: -- Initialize the Error Stack
205: PA_DEBUG.init_err_stack('PA_PERF_RULES_PUB.Update_Rule');
206: x_msg_count := 0;
207: x_msg_data := NULL;
208:
209: -- Initialize the return status to success
207: x_msg_data := NULL;
208:
209: -- Initialize the return status to success
210: x_return_status := FND_API.G_RET_STS_SUCCESS;
211: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
212: IF l_debug_mode = 'Y' THEN
213: pa_debug.set_curr_function( p_function => 'PA_PERF_RULES_PUB.update_rule',
214: p_debug_mode => l_debug_mode );
215: END IF;
209: -- Initialize the return status to success
210: x_return_status := FND_API.G_RET_STS_SUCCESS;
211: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
212: IF l_debug_mode = 'Y' THEN
213: pa_debug.set_curr_function( p_function => 'PA_PERF_RULES_PUB.update_rule',
214: p_debug_mode => l_debug_mode );
215: END IF;
216:
217: IF l_debug_mode = 'Y' THEN
214: p_debug_mode => l_debug_mode );
215: END IF;
216:
217: IF l_debug_mode = 'Y' THEN
218: pa_debug.g_err_stage:= 'Entered PA_PERF_RULES_PUB.update_rule';
219: pa_debug.write(g_module_name,pa_debug.g_err_stage,
220: l_debug_level3);
221:
222: pa_debug.g_err_stage:= 'P_RULE_ID = '|| P_RULE_ID;
215: END IF;
216:
217: IF l_debug_mode = 'Y' THEN
218: pa_debug.g_err_stage:= 'Entered PA_PERF_RULES_PUB.update_rule';
219: pa_debug.write(g_module_name,pa_debug.g_err_stage,
220: l_debug_level3);
221:
222: pa_debug.g_err_stage:= 'P_RULE_ID = '|| P_RULE_ID;
223: pa_debug.write(g_module_name,pa_debug.g_err_stage,
218: pa_debug.g_err_stage:= 'Entered PA_PERF_RULES_PUB.update_rule';
219: pa_debug.write(g_module_name,pa_debug.g_err_stage,
220: l_debug_level3);
221:
222: pa_debug.g_err_stage:= 'P_RULE_ID = '|| P_RULE_ID;
223: pa_debug.write(g_module_name,pa_debug.g_err_stage,
224: l_debug_level5);
225:
226: pa_debug.g_err_stage:= 'P_RULE_TYPE = '|| P_RULE_TYPE;
219: pa_debug.write(g_module_name,pa_debug.g_err_stage,
220: l_debug_level3);
221:
222: pa_debug.g_err_stage:= 'P_RULE_ID = '|| P_RULE_ID;
223: pa_debug.write(g_module_name,pa_debug.g_err_stage,
224: l_debug_level5);
225:
226: pa_debug.g_err_stage:= 'P_RULE_TYPE = '|| P_RULE_TYPE;
227: pa_debug.write(g_module_name,pa_debug.g_err_stage,
222: pa_debug.g_err_stage:= 'P_RULE_ID = '|| P_RULE_ID;
223: pa_debug.write(g_module_name,pa_debug.g_err_stage,
224: l_debug_level5);
225:
226: pa_debug.g_err_stage:= 'P_RULE_TYPE = '|| P_RULE_TYPE;
227: pa_debug.write(g_module_name,pa_debug.g_err_stage,
228: l_debug_level5);
229: pa_debug.g_err_stage:= 'P_RULE_NAME = '|| P_RULE_NAME;
230: pa_debug.write(g_module_name,pa_debug.g_err_stage,
223: pa_debug.write(g_module_name,pa_debug.g_err_stage,
224: l_debug_level5);
225:
226: pa_debug.g_err_stage:= 'P_RULE_TYPE = '|| P_RULE_TYPE;
227: pa_debug.write(g_module_name,pa_debug.g_err_stage,
228: l_debug_level5);
229: pa_debug.g_err_stage:= 'P_RULE_NAME = '|| P_RULE_NAME;
230: pa_debug.write(g_module_name,pa_debug.g_err_stage,
231: l_debug_level5);
225:
226: pa_debug.g_err_stage:= 'P_RULE_TYPE = '|| P_RULE_TYPE;
227: pa_debug.write(g_module_name,pa_debug.g_err_stage,
228: l_debug_level5);
229: pa_debug.g_err_stage:= 'P_RULE_NAME = '|| P_RULE_NAME;
230: pa_debug.write(g_module_name,pa_debug.g_err_stage,
231: l_debug_level5);
232: END IF;
233:
226: pa_debug.g_err_stage:= 'P_RULE_TYPE = '|| P_RULE_TYPE;
227: pa_debug.write(g_module_name,pa_debug.g_err_stage,
228: l_debug_level5);
229: pa_debug.g_err_stage:= 'P_RULE_NAME = '|| P_RULE_NAME;
230: pa_debug.write(g_module_name,pa_debug.g_err_stage,
231: l_debug_level5);
232: END IF;
233:
234:
232: END IF;
233:
234:
235: IF l_debug_mode = 'Y' THEN
236: pa_debug.g_err_stage:= 'about to call PA_PER_RULES_PVT.UPDATE_RULE';
237: pa_debug.write(g_module_name,pa_debug.g_err_stage,
238: l_debug_level3);
239: END IF;
240:
233:
234:
235: IF l_debug_mode = 'Y' THEN
236: pa_debug.g_err_stage:= 'about to call PA_PER_RULES_PVT.UPDATE_RULE';
237: pa_debug.write(g_module_name,pa_debug.g_err_stage,
238: l_debug_level3);
239: END IF;
240:
241: PA_PERF_RULES_PVT.UPDATE_RULE(
264: Raise Invalid_Ret_Status;
265: end if;
266:
267: IF l_debug_mode = 'Y' THEN
268: pa_debug.g_err_stage:= 'Exiting PA_PERF_RULES_PUB.update_rule';
269: pa_debug.write(g_module_name,pa_debug.g_err_stage,
270: l_debug_level3);
271: pa_debug.reset_curr_function;
272: END IF;
265: end if;
266:
267: IF l_debug_mode = 'Y' THEN
268: pa_debug.g_err_stage:= 'Exiting PA_PERF_RULES_PUB.update_rule';
269: pa_debug.write(g_module_name,pa_debug.g_err_stage,
270: l_debug_level3);
271: pa_debug.reset_curr_function;
272: END IF;
273:
267: IF l_debug_mode = 'Y' THEN
268: pa_debug.g_err_stage:= 'Exiting PA_PERF_RULES_PUB.update_rule';
269: pa_debug.write(g_module_name,pa_debug.g_err_stage,
270: l_debug_level3);
271: pa_debug.reset_curr_function;
272: END IF;
273:
274: -- Reset the Error Stack
275: PA_DEBUG.reset_err_stack;
271: pa_debug.reset_curr_function;
272: END IF;
273:
274: -- Reset the Error Stack
275: PA_DEBUG.reset_err_stack;
276:
277: EXCEPTION
278: WHEN Invalid_Ret_Status THEN
279: x_return_status := FND_API.G_RET_STS_ERROR;
294: x_msg_count := l_msg_count;
295: END IF;
296:
297: IF l_debug_mode = 'Y' THEN
298: pa_debug.reset_curr_function;
299: END IF;
300:
301: rollback to sp;
302: RETURN;
306: x_msg_data := substr(SQLERRM,1,240);
307: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
308: FND_MSG_PUB.add_exc_msg (
309: p_pkg_name => 'PA_PERF_RULES_PUB'
310: , p_procedure_name => PA_DEBUG.G_Err_Stack
311: , p_error_text => substr(SQLERRM,1,240));
312:
313: rollback to sp;
314: RAISE;
346: savepoint sp;
347:
348:
349: -- Initialize the Error Stack
350: PA_DEBUG.init_err_stack('PA_PERF_RULES_PUB.Delete_Rule');
351: x_msg_count := 0;
352: x_msg_data := NULL;
353:
354: -- Initialize the return status to success
354: -- Initialize the return status to success
355: x_return_status := FND_API.G_RET_STS_SUCCESS;
356:
357: IF l_debug_mode = 'Y' THEN
358: pa_debug.set_curr_function( p_function => 'PA_PERF_RULES_PUB.delete_rule',
359: p_debug_mode => l_debug_mode );
360: END IF;
361:
362: IF l_debug_mode = 'Y' THEN
359: p_debug_mode => l_debug_mode );
360: END IF;
361:
362: IF l_debug_mode = 'Y' THEN
363: pa_debug.g_err_stage:= 'Entered PA_PERF_RULES_PUB.delete_rule';
364: pa_debug.write(g_module_name,pa_debug.g_err_stage,
365: l_debug_level3);
366: pa_debug.g_err_stage:= 'P_RULE_ID = '|| P_RULE_ID;
367: pa_debug.write(g_module_name,pa_debug.g_err_stage,
360: END IF;
361:
362: IF l_debug_mode = 'Y' THEN
363: pa_debug.g_err_stage:= 'Entered PA_PERF_RULES_PUB.delete_rule';
364: pa_debug.write(g_module_name,pa_debug.g_err_stage,
365: l_debug_level3);
366: pa_debug.g_err_stage:= 'P_RULE_ID = '|| P_RULE_ID;
367: pa_debug.write(g_module_name,pa_debug.g_err_stage,
368: l_debug_level5);
362: IF l_debug_mode = 'Y' THEN
363: pa_debug.g_err_stage:= 'Entered PA_PERF_RULES_PUB.delete_rule';
364: pa_debug.write(g_module_name,pa_debug.g_err_stage,
365: l_debug_level3);
366: pa_debug.g_err_stage:= 'P_RULE_ID = '|| P_RULE_ID;
367: pa_debug.write(g_module_name,pa_debug.g_err_stage,
368: l_debug_level5);
369: END IF;
370:
363: pa_debug.g_err_stage:= 'Entered PA_PERF_RULES_PUB.delete_rule';
364: pa_debug.write(g_module_name,pa_debug.g_err_stage,
365: l_debug_level3);
366: pa_debug.g_err_stage:= 'P_RULE_ID = '|| P_RULE_ID;
367: pa_debug.write(g_module_name,pa_debug.g_err_stage,
368: l_debug_level5);
369: END IF;
370:
371:
369: END IF;
370:
371:
372: IF l_debug_mode = 'Y' THEN
373: pa_debug.g_err_stage:= 'about to call PA_PERF_RULES_PVT.delete_rule';
374: pa_debug.write(g_module_name,pa_debug.g_err_stage,
375: l_debug_level3);
376: END IF;
377:
370:
371:
372: IF l_debug_mode = 'Y' THEN
373: pa_debug.g_err_stage:= 'about to call PA_PERF_RULES_PVT.delete_rule';
374: pa_debug.write(g_module_name,pa_debug.g_err_stage,
375: l_debug_level3);
376: END IF;
377:
378: -- Delete Role
387: Raise Invalid_Ret_Status;
388: end if;
389:
390: IF l_debug_mode = 'Y' THEN
391: pa_debug.g_err_stage:= 'Exiting PA_PERF_RULES_PUB.delete_rule';
392: pa_debug.write(g_module_name,pa_debug.g_err_stage,
393: l_debug_level3);
394: pa_debug.reset_curr_function;
395: END IF;
388: end if;
389:
390: IF l_debug_mode = 'Y' THEN
391: pa_debug.g_err_stage:= 'Exiting PA_PERF_RULES_PUB.delete_rule';
392: pa_debug.write(g_module_name,pa_debug.g_err_stage,
393: l_debug_level3);
394: pa_debug.reset_curr_function;
395: END IF;
396:
390: IF l_debug_mode = 'Y' THEN
391: pa_debug.g_err_stage:= 'Exiting PA_PERF_RULES_PUB.delete_rule';
392: pa_debug.write(g_module_name,pa_debug.g_err_stage,
393: l_debug_level3);
394: pa_debug.reset_curr_function;
395: END IF;
396:
397: -- Reset the Error Stack
398: PA_DEBUG.reset_err_stack;
394: pa_debug.reset_curr_function;
395: END IF;
396:
397: -- Reset the Error Stack
398: PA_DEBUG.reset_err_stack;
399:
400: EXCEPTION
401: WHEN Invalid_Ret_Status THEN
402: x_return_status := FND_API.G_RET_STS_ERROR;
417: x_msg_count := l_msg_count;
418: END IF;
419:
420: IF l_debug_mode = 'Y' THEN
421: pa_debug.reset_curr_function;
422: END IF;
423:
424: rollback to sp;
425: RETURN;
429: x_msg_data := substr(SQLERRM,1,240);
430: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
431: FND_MSG_PUB.add_exc_msg
432: ( p_pkg_name => 'PA_PERF_RULES_PUB'
433: , p_procedure_name => PA_DEBUG.G_Err_Stack
434: , p_error_text => substr(SQLERRM,1,240));
435:
436: rollback to sp;
437: RAISE;
470:
471: FND_MSG_PUB.initialize;
472:
473: -- Initialize the Error Stack
474: PA_DEBUG.init_err_stack('PA_PERF_RULES_PUB.validate_rule');
475: x_msg_count := 0;
476: x_msg_data := NULL;
477:
478: -- Initialize the return status to success
477:
478: -- Initialize the return status to success
479: x_return_status := FND_API.G_RET_STS_SUCCESS;
480:
481: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
482:
483: IF l_debug_mode = 'Y' THEN
484: pa_debug.set_curr_function( p_function => 'PA_PERF_RULES_PUB.validate_rule',
485: p_debug_mode => l_debug_mode );
480:
481: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
482:
483: IF l_debug_mode = 'Y' THEN
484: pa_debug.set_curr_function( p_function => 'PA_PERF_RULES_PUB.validate_rule',
485: p_debug_mode => l_debug_mode );
486: END IF;
487:
488: IF l_debug_mode = 'Y' THEN
485: p_debug_mode => l_debug_mode );
486: END IF;
487:
488: IF l_debug_mode = 'Y' THEN
489: pa_debug.g_err_stage:= 'about to call PA_PERF_RULES_PVT.validate_rule';
490: pa_debug.write(g_module_name,pa_debug.g_err_stage,
491: 3);
492: END IF;
493:
486: END IF;
487:
488: IF l_debug_mode = 'Y' THEN
489: pa_debug.g_err_stage:= 'about to call PA_PERF_RULES_PVT.validate_rule';
490: pa_debug.write(g_module_name,pa_debug.g_err_stage,
491: 3);
492: END IF;
493:
494: PA_PERF_RULES_PVT.validate_rule(