45:
46: BEGIN
47:
48: -- Initialize the Error Stack
49: PA_DEBUG.init_err_stack('PA_PERF_THRESHOLDS_PUB.create_rule_det');
50: x_msg_count := 0;
51: x_msg_data := NULL;
52: x_return_status := FND_API.G_RET_STS_SUCCESS;
53: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
49: PA_DEBUG.init_err_stack('PA_PERF_THRESHOLDS_PUB.create_rule_det');
50: x_msg_count := 0;
51: x_msg_data := NULL;
52: x_return_status := FND_API.G_RET_STS_SUCCESS;
53: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
54:
55: IF l_debug_mode = 'Y' THEN
56: pa_debug.set_curr_function( p_function => 'PA_PERF_THRESHOLDS_PUB.create_rule_det',
57: p_debug_mode => l_debug_mode );
52: x_return_status := FND_API.G_RET_STS_SUCCESS;
53: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
54:
55: IF l_debug_mode = 'Y' THEN
56: pa_debug.set_curr_function( p_function => 'PA_PERF_THRESHOLDS_PUB.create_rule_det',
57: p_debug_mode => l_debug_mode );
58: END IF;
59:
60: IF l_debug_mode = 'Y' THEN
57: p_debug_mode => l_debug_mode );
58: END IF;
59:
60: IF l_debug_mode = 'Y' THEN
61: pa_debug.g_err_stage:= 'Entered PA_PERF_THRESHOLDS_PUB.create_rule_det';
62: pa_debug.write(g_module_name,pa_debug.g_err_stage,
63: l_debug_level3);
64: END IF;
65:
58: END IF;
59:
60: IF l_debug_mode = 'Y' THEN
61: pa_debug.g_err_stage:= 'Entered PA_PERF_THRESHOLDS_PUB.create_rule_det';
62: pa_debug.write(g_module_name,pa_debug.g_err_stage,
63: l_debug_level3);
64: END IF;
65:
66:
90: end if;
91:
92:
93: IF l_debug_mode = 'Y' THEN
94: pa_debug.g_err_stage:= 'Exiting PA_PERF_THRESHOLDS_PUB.create_rule_det';
95: pa_debug.write(g_module_name,pa_debug.g_err_stage,
96: l_debug_level3);
97: pa_debug.reset_curr_function;
98: END IF;
91:
92:
93: IF l_debug_mode = 'Y' THEN
94: pa_debug.g_err_stage:= 'Exiting PA_PERF_THRESHOLDS_PUB.create_rule_det';
95: pa_debug.write(g_module_name,pa_debug.g_err_stage,
96: l_debug_level3);
97: pa_debug.reset_curr_function;
98: END IF;
99:
93: IF l_debug_mode = 'Y' THEN
94: pa_debug.g_err_stage:= 'Exiting PA_PERF_THRESHOLDS_PUB.create_rule_det';
95: pa_debug.write(g_module_name,pa_debug.g_err_stage,
96: l_debug_level3);
97: pa_debug.reset_curr_function;
98: END IF;
99:
100: -- Reset the Error Stack
101: PA_DEBUG.reset_err_stack;
97: pa_debug.reset_curr_function;
98: END IF;
99:
100: -- Reset the Error Stack
101: PA_DEBUG.reset_err_stack;
102:
103:
104: EXCEPTION
105: WHEN Invalid_Ret_Status THEN
121: x_msg_count := l_msg_count;
122: END IF;
123:
124: IF l_debug_mode = 'Y' THEN
125: pa_debug.reset_curr_function;
126: END IF;
127:
128: rollback to sp;
129: RETURN;
138: ,p_procedure_name => 'CREATE_RULE_DET'
139: ,p_error_text => x_msg_data);
140:
141: IF l_debug_mode = 'Y' THEN
142: pa_debug.g_err_stage:= 'Unexpected Error: '||x_msg_data;
143: pa_debug.write(g_module_name,pa_debug.g_err_stage,
144: l_debug_level5);
145: pa_debug.reset_curr_function;
146: END IF;
139: ,p_error_text => x_msg_data);
140:
141: IF l_debug_mode = 'Y' THEN
142: pa_debug.g_err_stage:= 'Unexpected Error: '||x_msg_data;
143: pa_debug.write(g_module_name,pa_debug.g_err_stage,
144: l_debug_level5);
145: pa_debug.reset_curr_function;
146: END IF;
147: RAISE;
141: IF l_debug_mode = 'Y' THEN
142: pa_debug.g_err_stage:= 'Unexpected Error: '||x_msg_data;
143: pa_debug.write(g_module_name,pa_debug.g_err_stage,
144: l_debug_level5);
145: pa_debug.reset_curr_function;
146: END IF;
147: RAISE;
148: END create_rule_det;
149:
188: BEGIN
189:
190: savepoint sp;
191: -- Initialize the Error Stack
192: PA_DEBUG.init_err_stack('PA_PERF_THRESHOLDS_PUB.Update_Rule_Det');
193: x_msg_count := 0;
194: x_msg_data := NULL;
195:
196: -- Initialize the return status to success
194: x_msg_data := NULL;
195:
196: -- Initialize the return status to success
197: x_return_status := FND_API.G_RET_STS_SUCCESS;
198: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
199: IF l_debug_mode = 'Y' THEN
200: pa_debug.set_curr_function( p_function => 'PA_PERF_THRESHOLDS_PUB.update_rule_det',
201: p_debug_mode => l_debug_mode );
202: END IF;
196: -- Initialize the return status to success
197: x_return_status := FND_API.G_RET_STS_SUCCESS;
198: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
199: IF l_debug_mode = 'Y' THEN
200: pa_debug.set_curr_function( p_function => 'PA_PERF_THRESHOLDS_PUB.update_rule_det',
201: p_debug_mode => l_debug_mode );
202: END IF;
203:
204: IF l_debug_mode = 'Y' THEN
201: p_debug_mode => l_debug_mode );
202: END IF;
203:
204: IF l_debug_mode = 'Y' THEN
205: pa_debug.g_err_stage:= 'Entered PA_PERF_THRESHOLDS_PUB.update_rule';
206: pa_debug.write(g_module_name,pa_debug.g_err_stage,
207: l_debug_level3);
208:
209: pa_debug.g_err_stage:= 'P_THRESHOLD_ID = '|| P_THRESHOLD_ID;
202: END IF;
203:
204: IF l_debug_mode = 'Y' THEN
205: pa_debug.g_err_stage:= 'Entered PA_PERF_THRESHOLDS_PUB.update_rule';
206: pa_debug.write(g_module_name,pa_debug.g_err_stage,
207: l_debug_level3);
208:
209: pa_debug.g_err_stage:= 'P_THRESHOLD_ID = '|| P_THRESHOLD_ID;
210: pa_debug.write(g_module_name,pa_debug.g_err_stage,
205: pa_debug.g_err_stage:= 'Entered PA_PERF_THRESHOLDS_PUB.update_rule';
206: pa_debug.write(g_module_name,pa_debug.g_err_stage,
207: l_debug_level3);
208:
209: pa_debug.g_err_stage:= 'P_THRESHOLD_ID = '|| P_THRESHOLD_ID;
210: pa_debug.write(g_module_name,pa_debug.g_err_stage,
211: l_debug_level5);
212:
213: pa_debug.g_err_stage:= 'P_RULE_TYPE = '|| P_RULE_TYPE;
206: pa_debug.write(g_module_name,pa_debug.g_err_stage,
207: l_debug_level3);
208:
209: pa_debug.g_err_stage:= 'P_THRESHOLD_ID = '|| P_THRESHOLD_ID;
210: pa_debug.write(g_module_name,pa_debug.g_err_stage,
211: l_debug_level5);
212:
213: pa_debug.g_err_stage:= 'P_RULE_TYPE = '|| P_RULE_TYPE;
214: pa_debug.write(g_module_name,pa_debug.g_err_stage,
209: pa_debug.g_err_stage:= 'P_THRESHOLD_ID = '|| P_THRESHOLD_ID;
210: pa_debug.write(g_module_name,pa_debug.g_err_stage,
211: l_debug_level5);
212:
213: pa_debug.g_err_stage:= 'P_RULE_TYPE = '|| P_RULE_TYPE;
214: pa_debug.write(g_module_name,pa_debug.g_err_stage,
215: l_debug_level5);
216: END IF;
217:
210: pa_debug.write(g_module_name,pa_debug.g_err_stage,
211: l_debug_level5);
212:
213: pa_debug.g_err_stage:= 'P_RULE_TYPE = '|| P_RULE_TYPE;
214: pa_debug.write(g_module_name,pa_debug.g_err_stage,
215: l_debug_level5);
216: END IF;
217:
218:
216: END IF;
217:
218:
219: IF l_debug_mode = 'Y' THEN
220: pa_debug.g_err_stage:= 'about to call PA_PERF_THRESHOLDS_PVT.UPDATE_RULE_DET';
221: pa_debug.write(g_module_name,pa_debug.g_err_stage,
222: l_debug_level3);
223: END IF;
224:
217:
218:
219: IF l_debug_mode = 'Y' THEN
220: pa_debug.g_err_stage:= 'about to call PA_PERF_THRESHOLDS_PVT.UPDATE_RULE_DET';
221: pa_debug.write(g_module_name,pa_debug.g_err_stage,
222: l_debug_level3);
223: END IF;
224:
225: PA_PERF_THRESHOLDS_PVT.update_rule_det(
244: Raise Invalid_Ret_Status;
245: end if;
246:
247: IF l_debug_mode = 'Y' THEN
248: pa_debug.g_err_stage:= 'Exiting PA_PERF_THRESHOLDS_PUB.update_rule_det';
249: pa_debug.write(g_module_name,pa_debug.g_err_stage,
250: l_debug_level3);
251: pa_debug.reset_curr_function;
252: END IF;
245: end if;
246:
247: IF l_debug_mode = 'Y' THEN
248: pa_debug.g_err_stage:= 'Exiting PA_PERF_THRESHOLDS_PUB.update_rule_det';
249: pa_debug.write(g_module_name,pa_debug.g_err_stage,
250: l_debug_level3);
251: pa_debug.reset_curr_function;
252: END IF;
253:
247: IF l_debug_mode = 'Y' THEN
248: pa_debug.g_err_stage:= 'Exiting PA_PERF_THRESHOLDS_PUB.update_rule_det';
249: pa_debug.write(g_module_name,pa_debug.g_err_stage,
250: l_debug_level3);
251: pa_debug.reset_curr_function;
252: END IF;
253:
254: -- Reset the Error Stack
255: PA_DEBUG.reset_err_stack;
251: pa_debug.reset_curr_function;
252: END IF;
253:
254: -- Reset the Error Stack
255: PA_DEBUG.reset_err_stack;
256:
257: EXCEPTION
258: WHEN Invalid_Ret_Status THEN
259: x_return_status := FND_API.G_RET_STS_ERROR;
274: x_msg_count := l_msg_count;
275: END IF;
276:
277: IF l_debug_mode = 'Y' THEN
278: pa_debug.reset_curr_function;
279: END IF;
280:
281: rollback to sp;
282: RETURN;
286: x_msg_data := substr(SQLERRM,1,240);
287: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
288: FND_MSG_PUB.add_exc_msg (
289: p_pkg_name => 'PA_PERF_THRESHOLDS_PUB'
290: , p_procedure_name => PA_DEBUG.G_Err_Stack
291: , p_error_text => substr(SQLERRM,1,240));
292:
293: rollback to sp;
294: RAISE;
326: savepoint sp;
327:
328:
329: -- Initialize the Error Stack
330: PA_DEBUG.init_err_stack('PA_PERF_THRESHOLDS_PUB.Delete_Rule_Det');
331: x_msg_count := 0;
332: x_msg_data := NULL;
333:
334: -- Initialize the return status to success
334: -- Initialize the return status to success
335: x_return_status := FND_API.G_RET_STS_SUCCESS;
336:
337: IF l_debug_mode = 'Y' THEN
338: pa_debug.set_curr_function( p_function => 'PA_PERF_THRESHOLDS_PUB.delete_rule_det',
339: p_debug_mode => l_debug_mode );
340: END IF;
341:
342: IF l_debug_mode = 'Y' THEN
339: p_debug_mode => l_debug_mode );
340: END IF;
341:
342: IF l_debug_mode = 'Y' THEN
343: pa_debug.g_err_stage:= 'Entered PA_PERF_THRESHOLDS_PUB.delete_rule_det';
344: pa_debug.write(g_module_name,pa_debug.g_err_stage,
345: l_debug_level3);
346: pa_debug.g_err_stage:= 'P_THRESHOLD_ID = '|| P_THRESHOLD_ID;
347: pa_debug.write(g_module_name,pa_debug.g_err_stage,
340: END IF;
341:
342: IF l_debug_mode = 'Y' THEN
343: pa_debug.g_err_stage:= 'Entered PA_PERF_THRESHOLDS_PUB.delete_rule_det';
344: pa_debug.write(g_module_name,pa_debug.g_err_stage,
345: l_debug_level3);
346: pa_debug.g_err_stage:= 'P_THRESHOLD_ID = '|| P_THRESHOLD_ID;
347: pa_debug.write(g_module_name,pa_debug.g_err_stage,
348: l_debug_level5);
342: IF l_debug_mode = 'Y' THEN
343: pa_debug.g_err_stage:= 'Entered PA_PERF_THRESHOLDS_PUB.delete_rule_det';
344: pa_debug.write(g_module_name,pa_debug.g_err_stage,
345: l_debug_level3);
346: pa_debug.g_err_stage:= 'P_THRESHOLD_ID = '|| P_THRESHOLD_ID;
347: pa_debug.write(g_module_name,pa_debug.g_err_stage,
348: l_debug_level5);
349: END IF;
350:
343: pa_debug.g_err_stage:= 'Entered PA_PERF_THRESHOLDS_PUB.delete_rule_det';
344: pa_debug.write(g_module_name,pa_debug.g_err_stage,
345: l_debug_level3);
346: pa_debug.g_err_stage:= 'P_THRESHOLD_ID = '|| P_THRESHOLD_ID;
347: pa_debug.write(g_module_name,pa_debug.g_err_stage,
348: l_debug_level5);
349: END IF;
350:
351:
349: END IF;
350:
351:
352: IF l_debug_mode = 'Y' THEN
353: pa_debug.g_err_stage:= 'about to call PA_PERF_THRESHOLDS_PVT.delete_rule_det';
354: pa_debug.write(g_module_name,pa_debug.g_err_stage,
355: l_debug_level3);
356: END IF;
357:
350:
351:
352: IF l_debug_mode = 'Y' THEN
353: pa_debug.g_err_stage:= 'about to call PA_PERF_THRESHOLDS_PVT.delete_rule_det';
354: pa_debug.write(g_module_name,pa_debug.g_err_stage,
355: l_debug_level3);
356: END IF;
357:
358: -- Delete Role
367: Raise Invalid_Ret_Status;
368: end if;
369:
370: IF l_debug_mode = 'Y' THEN
371: pa_debug.g_err_stage:= 'Exiting PA_PERF_THRESHOLDS_PUB.delete_rule_det';
372: pa_debug.write(g_module_name,pa_debug.g_err_stage,
373: l_debug_level3);
374: pa_debug.reset_curr_function;
375: END IF;
368: end if;
369:
370: IF l_debug_mode = 'Y' THEN
371: pa_debug.g_err_stage:= 'Exiting PA_PERF_THRESHOLDS_PUB.delete_rule_det';
372: pa_debug.write(g_module_name,pa_debug.g_err_stage,
373: l_debug_level3);
374: pa_debug.reset_curr_function;
375: END IF;
376:
370: IF l_debug_mode = 'Y' THEN
371: pa_debug.g_err_stage:= 'Exiting PA_PERF_THRESHOLDS_PUB.delete_rule_det';
372: pa_debug.write(g_module_name,pa_debug.g_err_stage,
373: l_debug_level3);
374: pa_debug.reset_curr_function;
375: END IF;
376:
377: -- Reset the Error Stack
378: PA_DEBUG.reset_err_stack;
374: pa_debug.reset_curr_function;
375: END IF;
376:
377: -- Reset the Error Stack
378: PA_DEBUG.reset_err_stack;
379:
380: EXCEPTION
381: WHEN Invalid_Ret_Status THEN
382: x_return_status := FND_API.G_RET_STS_ERROR;
397: x_msg_count := l_msg_count;
398: END IF;
399:
400: IF l_debug_mode = 'Y' THEN
401: pa_debug.reset_curr_function;
402: END IF;
403:
404: rollback to sp;
405: RETURN;
409: x_msg_data := substr(SQLERRM,1,240);
410: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
411: FND_MSG_PUB.add_exc_msg
412: ( p_pkg_name => 'PA_PERF_THRESHOLDS_PUB'
413: , p_procedure_name => PA_DEBUG.G_Err_Stack
414: , p_error_text => substr(SQLERRM,1,240));
415:
416: rollback to sp;
417: RAISE;