45:
46: BEGIN
47:
48: -- Initialize the Error Stack
49: PA_DEBUG.init_err_stack('PA_PERF_THRESHOLDS_PVT.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_PVT.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_PVT.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_PVT.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_PVT.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_PVT.create_rule_det';
62: pa_debug.write(g_module_name,pa_debug.g_err_stage,
63: l_debug_level3);
64: END IF;
65:
66:
85:
86: -- Check for business rules violations
87:
88: IF l_debug_mode = 'Y' THEN
89: pa_debug.g_err_stage:= 'Exiting PA_PERF_THRESHOLDS_PVT.create_rule_det';
90: pa_debug.write(g_module_name,pa_debug.g_err_stage,
91: l_debug_level3);
92: pa_debug.reset_curr_function;
93: END IF;
86: -- Check for business rules violations
87:
88: IF l_debug_mode = 'Y' THEN
89: pa_debug.g_err_stage:= 'Exiting PA_PERF_THRESHOLDS_PVT.create_rule_det';
90: pa_debug.write(g_module_name,pa_debug.g_err_stage,
91: l_debug_level3);
92: pa_debug.reset_curr_function;
93: END IF;
94:
88: IF l_debug_mode = 'Y' THEN
89: pa_debug.g_err_stage:= 'Exiting PA_PERF_THRESHOLDS_PVT.create_rule_det';
90: pa_debug.write(g_module_name,pa_debug.g_err_stage,
91: l_debug_level3);
92: pa_debug.reset_curr_function;
93: END IF;
94:
95: -- Reset the Error Stack
96: PA_DEBUG.reset_err_stack;
92: pa_debug.reset_curr_function;
93: END IF;
94:
95: -- Reset the Error Stack
96: PA_DEBUG.reset_err_stack;
97:
98:
99: EXCEPTION
100: WHEN others THEN
107: ,p_procedure_name => 'CREATE_RULE_DET'
108: ,p_error_text => x_msg_data);
109:
110: IF l_debug_mode = 'Y' THEN
111: pa_debug.g_err_stage:= 'Unexpected Error: '||x_msg_data;
112: pa_debug.write(g_module_name,pa_debug.g_err_stage,
113: l_debug_level5);
114: pa_debug.reset_curr_function;
115: END IF;
108: ,p_error_text => x_msg_data);
109:
110: IF l_debug_mode = 'Y' THEN
111: pa_debug.g_err_stage:= 'Unexpected Error: '||x_msg_data;
112: pa_debug.write(g_module_name,pa_debug.g_err_stage,
113: l_debug_level5);
114: pa_debug.reset_curr_function;
115: END IF;
116: RAISE;
110: IF l_debug_mode = 'Y' THEN
111: pa_debug.g_err_stage:= 'Unexpected Error: '||x_msg_data;
112: pa_debug.write(g_module_name,pa_debug.g_err_stage,
113: l_debug_level5);
114: pa_debug.reset_curr_function;
115: END IF;
116: RAISE;
117: END create_rule_det;
118:
156: BEGIN
157:
158: savepoint sp;
159: -- Initialize the Error Stack
160: PA_DEBUG.init_err_stack('PA_PERF_THRESHOLDS_PVT.Update_Rule_Det');
161: x_msg_count := 0;
162: x_msg_data := NULL;
163:
164: -- Initialize the return status to success
162: x_msg_data := NULL;
163:
164: -- Initialize the return status to success
165: x_return_status := FND_API.G_RET_STS_SUCCESS;
166: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
167: IF l_debug_mode = 'Y' THEN
168: pa_debug.set_curr_function( p_function => 'PA_PERF_THRESHOLDS_PVT.update_rule_det',
169: p_debug_mode => l_debug_mode );
170: END IF;
164: -- Initialize the return status to success
165: x_return_status := FND_API.G_RET_STS_SUCCESS;
166: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
167: IF l_debug_mode = 'Y' THEN
168: pa_debug.set_curr_function( p_function => 'PA_PERF_THRESHOLDS_PVT.update_rule_det',
169: p_debug_mode => l_debug_mode );
170: END IF;
171:
172: IF l_debug_mode = 'Y' THEN
169: p_debug_mode => l_debug_mode );
170: END IF;
171:
172: IF l_debug_mode = 'Y' THEN
173: pa_debug.g_err_stage:= 'Entered PA_PERF_THRESHOLDS_PVT.update_rule_det';
174: pa_debug.write(g_module_name,pa_debug.g_err_stage,
175: l_debug_level3);
176:
177: pa_debug.g_err_stage:= 'P_THRESHOLD_ID = '|| P_THRESHOLD_ID;
170: END IF;
171:
172: IF l_debug_mode = 'Y' THEN
173: pa_debug.g_err_stage:= 'Entered PA_PERF_THRESHOLDS_PVT.update_rule_det';
174: pa_debug.write(g_module_name,pa_debug.g_err_stage,
175: l_debug_level3);
176:
177: pa_debug.g_err_stage:= 'P_THRESHOLD_ID = '|| P_THRESHOLD_ID;
178: pa_debug.write(g_module_name,pa_debug.g_err_stage,
173: pa_debug.g_err_stage:= 'Entered PA_PERF_THRESHOLDS_PVT.update_rule_det';
174: pa_debug.write(g_module_name,pa_debug.g_err_stage,
175: l_debug_level3);
176:
177: pa_debug.g_err_stage:= 'P_THRESHOLD_ID = '|| P_THRESHOLD_ID;
178: pa_debug.write(g_module_name,pa_debug.g_err_stage,
179: l_debug_level5);
180:
181: pa_debug.g_err_stage:= 'P_RULE_TYPE = '|| P_RULE_TYPE;
174: pa_debug.write(g_module_name,pa_debug.g_err_stage,
175: l_debug_level3);
176:
177: pa_debug.g_err_stage:= 'P_THRESHOLD_ID = '|| P_THRESHOLD_ID;
178: pa_debug.write(g_module_name,pa_debug.g_err_stage,
179: l_debug_level5);
180:
181: pa_debug.g_err_stage:= 'P_RULE_TYPE = '|| P_RULE_TYPE;
182: pa_debug.write(g_module_name,pa_debug.g_err_stage,
177: pa_debug.g_err_stage:= 'P_THRESHOLD_ID = '|| P_THRESHOLD_ID;
178: pa_debug.write(g_module_name,pa_debug.g_err_stage,
179: l_debug_level5);
180:
181: pa_debug.g_err_stage:= 'P_RULE_TYPE = '|| P_RULE_TYPE;
182: pa_debug.write(g_module_name,pa_debug.g_err_stage,
183: l_debug_level5);
184: END IF;
185:
178: pa_debug.write(g_module_name,pa_debug.g_err_stage,
179: l_debug_level5);
180:
181: pa_debug.g_err_stage:= 'P_RULE_TYPE = '|| P_RULE_TYPE;
182: pa_debug.write(g_module_name,pa_debug.g_err_stage,
183: l_debug_level5);
184: END IF;
185:
186: IF l_debug_mode = 'Y' THEN
183: l_debug_level5);
184: END IF;
185:
186: IF l_debug_mode = 'Y' THEN
187: pa_debug.g_err_stage:= 'about to call lock row method';
188: pa_debug.write(g_module_name,pa_debug.g_err_stage,
189: l_debug_level3);
190: END IF;
191:
184: END IF;
185:
186: IF l_debug_mode = 'Y' THEN
187: pa_debug.g_err_stage:= 'about to call lock row method';
188: pa_debug.write(g_module_name,pa_debug.g_err_stage,
189: l_debug_level3);
190: END IF;
191:
192: PA_PERF_THRESHOLDS_PKG.LOCK_ROW (
193: X_THRESHOLD_ID => P_THRESHOLD_ID,
194: X_RECORD_VERSION_NUMBER => P_RECORD_VERSION_NUMBER );
195:
196: IF l_debug_mode = 'Y' THEN
197: pa_debug.g_err_stage:= 'lock row method called';
198: pa_debug.write(g_module_name,pa_debug.g_err_stage,
199: l_debug_level3);
200: END IF;
201:
194: X_RECORD_VERSION_NUMBER => P_RECORD_VERSION_NUMBER );
195:
196: IF l_debug_mode = 'Y' THEN
197: pa_debug.g_err_stage:= 'lock row method called';
198: pa_debug.write(g_module_name,pa_debug.g_err_stage,
199: l_debug_level3);
200: END IF;
201:
202: l_msg_count := FND_MSG_PUB.count_msg;
205: Raise Invalid_Ret_Status;
206: end if;
207:
208: IF l_debug_mode = 'Y' THEN
209: pa_debug.g_err_stage:= 'about to call PA_PERF_THRESHOLDS_PKG.UPDATE_ROW';
210: pa_debug.write(g_module_name,pa_debug.g_err_stage,
211: l_debug_level3);
212: END IF;
213:
206: end if;
207:
208: IF l_debug_mode = 'Y' THEN
209: pa_debug.g_err_stage:= 'about to call PA_PERF_THRESHOLDS_PKG.UPDATE_ROW';
210: pa_debug.write(g_module_name,pa_debug.g_err_stage,
211: l_debug_level3);
212: END IF;
213:
214: PA_PERF_THRESHOLDS_PKG.UPDATE_ROW(
226: X_LAST_UPDATED_BY => P_LAST_UPDATED_BY,
227: X_LAST_UPDATE_LOGIN => P_LAST_UPDATE_LOGIN );
228:
229: IF l_debug_mode = 'Y' THEN
230: pa_debug.g_err_stage:= 'Exiting PA_PERF_THRESHOLDS_PVT.update_rule_det';
231: pa_debug.write(g_module_name,pa_debug.g_err_stage,
232: l_debug_level3);
233: pa_debug.reset_curr_function;
234: END IF;
227: X_LAST_UPDATE_LOGIN => P_LAST_UPDATE_LOGIN );
228:
229: IF l_debug_mode = 'Y' THEN
230: pa_debug.g_err_stage:= 'Exiting PA_PERF_THRESHOLDS_PVT.update_rule_det';
231: pa_debug.write(g_module_name,pa_debug.g_err_stage,
232: l_debug_level3);
233: pa_debug.reset_curr_function;
234: END IF;
235:
229: IF l_debug_mode = 'Y' THEN
230: pa_debug.g_err_stage:= 'Exiting PA_PERF_THRESHOLDS_PVT.update_rule_det';
231: pa_debug.write(g_module_name,pa_debug.g_err_stage,
232: l_debug_level3);
233: pa_debug.reset_curr_function;
234: END IF;
235:
236: -- Reset the Error Stack
237: PA_DEBUG.reset_err_stack;
233: pa_debug.reset_curr_function;
234: END IF;
235:
236: -- Reset the Error Stack
237: PA_DEBUG.reset_err_stack;
238:
239: EXCEPTION
240: WHEN Invalid_Ret_Status THEN
241: x_return_status := FND_API.G_RET_STS_ERROR;
256: x_msg_count := l_msg_count;
257: END IF;
258:
259: IF l_debug_mode = 'Y' THEN
260: pa_debug.reset_curr_function;
261: END IF;
262:
263: rollback to sp;
264: RETURN;
268: x_msg_data := substr(SQLERRM,1,240);
269: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
270: FND_MSG_PUB.add_exc_msg (
271: p_pkg_name => 'PA_PERF_THRESHOLDS_PVT'
272: , p_procedure_name => PA_DEBUG.G_Err_Stack
273: , p_error_text => substr(SQLERRM,1,240));
274:
275: rollback to sp;
276: RAISE;
307: savepoint sp;
308:
309:
310: -- Initialize the Error Stack
311: PA_DEBUG.init_err_stack('PA_PERF_THRESHOLDS_PVT.Delete_Rule_Det');
312: x_msg_count := 0;
313: x_msg_data := NULL;
314:
315: -- Initialize the return status to success
315: -- Initialize the return status to success
316: x_return_status := FND_API.G_RET_STS_SUCCESS;
317:
318: IF l_debug_mode = 'Y' THEN
319: pa_debug.set_curr_function( p_function => 'PA_PERF_THRESHOLDS_PVT.delete_rule_det',
320: p_debug_mode => l_debug_mode );
321: END IF;
322:
323: IF l_debug_mode = 'Y' THEN
320: p_debug_mode => l_debug_mode );
321: END IF;
322:
323: IF l_debug_mode = 'Y' THEN
324: pa_debug.g_err_stage:= 'Entered PA_PERF_THRESHOLDS_PVT.delete_rule_det';
325: pa_debug.write(g_module_name,pa_debug.g_err_stage,
326: l_debug_level3);
327: pa_debug.g_err_stage:= 'P_THRESHOLD_ID = '|| P_THRESHOLD_ID;
328: pa_debug.write(g_module_name,pa_debug.g_err_stage,
321: END IF;
322:
323: IF l_debug_mode = 'Y' THEN
324: pa_debug.g_err_stage:= 'Entered PA_PERF_THRESHOLDS_PVT.delete_rule_det';
325: pa_debug.write(g_module_name,pa_debug.g_err_stage,
326: l_debug_level3);
327: pa_debug.g_err_stage:= 'P_THRESHOLD_ID = '|| P_THRESHOLD_ID;
328: pa_debug.write(g_module_name,pa_debug.g_err_stage,
329: l_debug_level5);
323: IF l_debug_mode = 'Y' THEN
324: pa_debug.g_err_stage:= 'Entered PA_PERF_THRESHOLDS_PVT.delete_rule_det';
325: pa_debug.write(g_module_name,pa_debug.g_err_stage,
326: l_debug_level3);
327: pa_debug.g_err_stage:= 'P_THRESHOLD_ID = '|| P_THRESHOLD_ID;
328: pa_debug.write(g_module_name,pa_debug.g_err_stage,
329: l_debug_level5);
330:
331: pa_debug.g_err_stage:= 'about to call lock row method';
324: pa_debug.g_err_stage:= 'Entered PA_PERF_THRESHOLDS_PVT.delete_rule_det';
325: pa_debug.write(g_module_name,pa_debug.g_err_stage,
326: l_debug_level3);
327: pa_debug.g_err_stage:= 'P_THRESHOLD_ID = '|| P_THRESHOLD_ID;
328: pa_debug.write(g_module_name,pa_debug.g_err_stage,
329: l_debug_level5);
330:
331: pa_debug.g_err_stage:= 'about to call lock row method';
332: pa_debug.write(g_module_name,pa_debug.g_err_stage,
327: pa_debug.g_err_stage:= 'P_THRESHOLD_ID = '|| P_THRESHOLD_ID;
328: pa_debug.write(g_module_name,pa_debug.g_err_stage,
329: l_debug_level5);
330:
331: pa_debug.g_err_stage:= 'about to call lock row method';
332: pa_debug.write(g_module_name,pa_debug.g_err_stage,
333: l_debug_level3);
334: END IF;
335:
328: pa_debug.write(g_module_name,pa_debug.g_err_stage,
329: l_debug_level5);
330:
331: pa_debug.g_err_stage:= 'about to call lock row method';
332: pa_debug.write(g_module_name,pa_debug.g_err_stage,
333: l_debug_level3);
334: END IF;
335:
336: PA_PERF_THRESHOLDS_PKG.LOCK_ROW
344: Raise Invalid_Ret_Status;
345: end if;
346:
347: IF l_debug_mode = 'Y' THEN
348: pa_debug.g_err_stage:= 'about to call PA_PERF_THRESHOLDS_PKG.delete_row';
349: pa_debug.write(g_module_name,pa_debug.g_err_stage,
350: l_debug_level3);
351: END IF;
352:
345: end if;
346:
347: IF l_debug_mode = 'Y' THEN
348: pa_debug.g_err_stage:= 'about to call PA_PERF_THRESHOLDS_PKG.delete_row';
349: pa_debug.write(g_module_name,pa_debug.g_err_stage,
350: l_debug_level3);
351: END IF;
352:
353: -- Delete Role
354: PA_PERF_THRESHOLDS_PKG.DELETE_ROW
355: (X_THRESHOLD_ID => P_THRESHOLD_ID);
356:
357: IF l_debug_mode = 'Y' THEN
358: pa_debug.g_err_stage:= 'Exiting PA_PERF_THRESHOLDS_PVT.delete_rule_det';
359: pa_debug.write(g_module_name,pa_debug.g_err_stage,
360: l_debug_level3);
361: pa_debug.reset_curr_function;
362: END IF;
355: (X_THRESHOLD_ID => P_THRESHOLD_ID);
356:
357: IF l_debug_mode = 'Y' THEN
358: pa_debug.g_err_stage:= 'Exiting PA_PERF_THRESHOLDS_PVT.delete_rule_det';
359: pa_debug.write(g_module_name,pa_debug.g_err_stage,
360: l_debug_level3);
361: pa_debug.reset_curr_function;
362: END IF;
363:
357: IF l_debug_mode = 'Y' THEN
358: pa_debug.g_err_stage:= 'Exiting PA_PERF_THRESHOLDS_PVT.delete_rule_det';
359: pa_debug.write(g_module_name,pa_debug.g_err_stage,
360: l_debug_level3);
361: pa_debug.reset_curr_function;
362: END IF;
363:
364: -- Reset the Error Stack
365: PA_DEBUG.reset_err_stack;
361: pa_debug.reset_curr_function;
362: END IF;
363:
364: -- Reset the Error Stack
365: PA_DEBUG.reset_err_stack;
366:
367: EXCEPTION
368: WHEN Invalid_Ret_Status THEN
369: x_return_status := FND_API.G_RET_STS_ERROR;
384: x_msg_count := l_msg_count;
385: END IF;
386:
387: IF l_debug_mode = 'Y' THEN
388: pa_debug.reset_curr_function;
389: END IF;
390:
391: rollback to sp;
392: RETURN;
396: x_msg_data := substr(SQLERRM,1,240);
397: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
398: FND_MSG_PUB.add_exc_msg
399: ( p_pkg_name => 'PA_PERF_THRESHOLDS_PVT'
400: , p_procedure_name => PA_DEBUG.G_Err_Stack
401: , p_error_text => substr(SQLERRM,1,240));
402:
403: rollback to sp;
404: RAISE;