31: l_phase_id NUMBER;
32: l_delete_ok VARCHAR2(1);
33: BEGIN
34:
35: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version ,
36: p_api_version ,
37: l_api_name ,
38: l_pkg_name)
39: THEN
36: p_api_version ,
37: l_api_name ,
38: l_pkg_name)
39: THEN
40: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
41: END IF;
42:
43: x_return_status := FND_API.G_RET_STS_SUCCESS;
44: x_delete_ok := FND_API.G_FALSE;
39: THEN
40: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
41: END IF;
42:
43: x_return_status := FND_API.G_RET_STS_SUCCESS;
44: x_delete_ok := FND_API.G_FALSE;
45:
46: EGO_LIFECYCLE_ADMIN_PUB.check_delete_phase_ok(
47: p_api_version => p_api_version ,
40: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
41: END IF;
42:
43: x_return_status := FND_API.G_RET_STS_SUCCESS;
44: x_delete_ok := FND_API.G_FALSE;
45:
46: EGO_LIFECYCLE_ADMIN_PUB.check_delete_phase_ok(
47: p_api_version => p_api_version ,
48: p_phase_id => p_phase_id ,
52: x_errorcode => l_errorcode ,
53: x_msg_count => l_msg_count ,
54: x_msg_data => l_msg_data );
55:
56: /* Bug 2760719 -- Added check for l_delete_ok <> FND_API.G_TRUE and moved raise statement
57: outside the IF l_msg_count > 0 */
58:
59: IF l_delete_ok <> FND_API.G_TRUE OR l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
60: l_msg_count := FND_MSG_PUB.count_msg;
55:
56: /* Bug 2760719 -- Added check for l_delete_ok <> FND_API.G_TRUE and moved raise statement
57: outside the IF l_msg_count > 0 */
58:
59: IF l_delete_ok <> FND_API.G_TRUE OR l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
60: l_msg_count := FND_MSG_PUB.count_msg;
61: If l_msg_count > 0 THEN
62: x_msg_count := l_msg_count;
63: If l_msg_count = 1 THEN
61: If l_msg_count > 0 THEN
62: x_msg_count := l_msg_count;
63: If l_msg_count = 1 THEN
64: pa_interface_utils_pub.get_messages
65: (p_encoded => FND_API.G_TRUE ,
66: p_msg_index => 1 ,
67: p_msg_count => l_msg_count ,
68: p_msg_data => l_msg_data ,
69: p_data => l_data ,
71: );
72: x_msg_data := l_data;
73: End if;
74: End if;
75: RAISE FND_API.G_EXC_ERROR;
76: END IF;
77: x_errorcode := l_errorcode;
78: x_return_status := l_return_status;
79: x_delete_ok := l_delete_ok;
79: x_delete_ok := l_delete_ok;
80:
81: EXCEPTION
82:
83: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
84:
85: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
86: x_delete_ok := FND_API.G_FALSE; -- NOCOPY change for Bug 4939368
87: x_errorcode := SQLCODE; -- NOCOPY change for Bug 4939368
81: EXCEPTION
82:
83: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
84:
85: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
86: x_delete_ok := FND_API.G_FALSE; -- NOCOPY change for Bug 4939368
87: x_errorcode := SQLCODE; -- NOCOPY change for Bug 4939368
88: x_msg_count := 1; -- NOCOPY change for Bug 4939368
89: x_msg_data := substrb(SQLERRM,1,240); -- NOCOPY change for Bug 4939368
82:
83: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
84:
85: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
86: x_delete_ok := FND_API.G_FALSE; -- NOCOPY change for Bug 4939368
87: x_errorcode := SQLCODE; -- NOCOPY change for Bug 4939368
88: x_msg_count := 1; -- NOCOPY change for Bug 4939368
89: x_msg_data := substrb(SQLERRM,1,240); -- NOCOPY change for Bug 4939368
90: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_EGO_WRAPPER_PUB',
90: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_EGO_WRAPPER_PUB',
91: p_procedure_name => 'check_delete_phase_ok',
92: p_error_text => x_msg_data);
93:
94: WHEN FND_API.G_EXC_ERROR THEN
95: x_return_status := FND_API.G_RET_STS_ERROR;
96: x_delete_ok := FND_API.G_FALSE; -- NOCOPY change for Bug 4939368
97: x_errorcode := SQLCODE; -- NOCOPY change for Bug 4939368
98: x_msg_count := 1; -- NOCOPY change for Bug 4939368
91: p_procedure_name => 'check_delete_phase_ok',
92: p_error_text => x_msg_data);
93:
94: WHEN FND_API.G_EXC_ERROR THEN
95: x_return_status := FND_API.G_RET_STS_ERROR;
96: x_delete_ok := FND_API.G_FALSE; -- NOCOPY change for Bug 4939368
97: x_errorcode := SQLCODE; -- NOCOPY change for Bug 4939368
98: x_msg_count := 1; -- NOCOPY change for Bug 4939368
99: x_msg_data := substrb(SQLERRM,1,240); -- NOCOPY change for Bug 4939368
92: p_error_text => x_msg_data);
93:
94: WHEN FND_API.G_EXC_ERROR THEN
95: x_return_status := FND_API.G_RET_STS_ERROR;
96: x_delete_ok := FND_API.G_FALSE; -- NOCOPY change for Bug 4939368
97: x_errorcode := SQLCODE; -- NOCOPY change for Bug 4939368
98: x_msg_count := 1; -- NOCOPY change for Bug 4939368
99: x_msg_data := substrb(SQLERRM,1,240); -- NOCOPY change for Bug 4939368
100: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_EGO_WRAPPER_PUB',
102: p_error_text => x_msg_data); -- NOCOPY change for Bug 4939368
103:
104: WHEN OTHERS THEN
105:
106: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
107: x_delete_ok := FND_API.G_FALSE; -- NOCOPY change for Bug 4939368
108: x_errorcode := SQLCODE; -- NOCOPY change for Bug 4939368
109: x_msg_count := 1; -- NOCOPY change for Bug 4939368
110: x_msg_data := substrb(SQLERRM,1,240); -- NOCOPY change for Bug 4939368
103:
104: WHEN OTHERS THEN
105:
106: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
107: x_delete_ok := FND_API.G_FALSE; -- NOCOPY change for Bug 4939368
108: x_errorcode := SQLCODE; -- NOCOPY change for Bug 4939368
109: x_msg_count := 1; -- NOCOPY change for Bug 4939368
110: x_msg_data := substrb(SQLERRM,1,240); -- NOCOPY change for Bug 4939368
111: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_EGO_WRAPPER_PUB',
140:
141: l_lifecycle_phase_id NUMBER;
142: BEGIN
143:
144: IF(p_commit = FND_API.G_TRUE) THEN
145: SAVEPOINT wrapper_process_phase_delete;
146: END IF;
147:
148:
145: SAVEPOINT wrapper_process_phase_delete;
146: END IF;
147:
148:
149: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version ,
150: p_api_version ,
151: l_api_name ,
152: l_pkg_name)
153: THEN
150: p_api_version ,
151: l_api_name ,
152: l_pkg_name)
153: THEN
154: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
155: END IF;
156:
157:
158: x_return_status := FND_API.G_RET_STS_SUCCESS;
154: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
155: END IF;
156:
157:
158: x_return_status := FND_API.G_RET_STS_SUCCESS;
159:
160: EGO_LIFECYCLE_ADMIN_PUB.process_phase_delete(
161: p_api_version => p_api_version ,
162: p_phase_id => p_phase_id ,
167: x_return_status => l_return_status ,
168: x_msg_data => l_msg_data
169: );
170:
171: /* Bug 2760719 -- Added check for l_return_status <> FND_API.G_RET_STS_SUCCESS and moved raise statement
172: outside the IF l_msg_count > 0 */
173:
174: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
175: l_msg_count := FND_MSG_PUB.count_msg;
170:
171: /* Bug 2760719 -- Added check for l_return_status <> FND_API.G_RET_STS_SUCCESS and moved raise statement
172: outside the IF l_msg_count > 0 */
173:
174: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
175: l_msg_count := FND_MSG_PUB.count_msg;
176: If l_msg_count > 0 THEN
177: x_msg_count := l_msg_count;
178: If l_msg_count = 1 THEN
176: If l_msg_count > 0 THEN
177: x_msg_count := l_msg_count;
178: If l_msg_count = 1 THEN
179: pa_interface_utils_pub.get_messages
180: (p_encoded => FND_API.G_TRUE ,
181: p_msg_index => 1 ,
182: p_msg_count => l_msg_count ,
183: p_msg_data => l_msg_data ,
184: p_data => l_data ,
186: );
187: x_msg_data := l_data;
188: End if;
189: End if;
190: RAISE FND_API.G_EXC_ERROR;
191: END IF;
192:
193: x_errorcode := l_errorcode;
194: x_return_status := l_return_status;
192:
193: x_errorcode := l_errorcode;
194: x_return_status := l_return_status;
195:
196: IF FND_API.TO_BOOLEAN(P_COMMIT) THEN
197: COMMIT;
198: END IF;
199:
200: EXCEPTION
198: END IF;
199:
200: EXCEPTION
201:
202: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
203: IF p_commit = FND_API.G_TRUE THEN
204: ROLLBACK TO wrapper_process_phase_delete;
205: END IF;
206: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
199:
200: EXCEPTION
201:
202: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
203: IF p_commit = FND_API.G_TRUE THEN
204: ROLLBACK TO wrapper_process_phase_delete;
205: END IF;
206: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
207: x_errorcode := SQLCODE; -- NOCOPY change for Bug 4939368
202: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
203: IF p_commit = FND_API.G_TRUE THEN
204: ROLLBACK TO wrapper_process_phase_delete;
205: END IF;
206: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
207: x_errorcode := SQLCODE; -- NOCOPY change for Bug 4939368
208: x_msg_count := 1; -- NOCOPY change for Bug 4939368
209: x_msg_data := substrb(SQLERRM,1,240); -- NOCOPY change for Bug 4939368
210: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_EGO_WRAPPER_PUB',
210: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_EGO_WRAPPER_PUB',
211: p_procedure_name => 'process_phase_delete',
212: p_error_text => x_msg_data); -- NOCOPY change for Bug 4939368
213:
214: WHEN FND_API.G_EXC_ERROR THEN
215: x_return_status := FND_API.G_RET_STS_ERROR;
216: x_errorcode := SQLCODE; -- NOCOPY change for Bug 4939368
217: x_msg_count := 1; -- NOCOPY change for Bug 4939368
218: x_msg_data := substrb(SQLERRM,1,240); -- NOCOPY change for Bug 4939368
211: p_procedure_name => 'process_phase_delete',
212: p_error_text => x_msg_data); -- NOCOPY change for Bug 4939368
213:
214: WHEN FND_API.G_EXC_ERROR THEN
215: x_return_status := FND_API.G_RET_STS_ERROR;
216: x_errorcode := SQLCODE; -- NOCOPY change for Bug 4939368
217: x_msg_count := 1; -- NOCOPY change for Bug 4939368
218: x_msg_data := substrb(SQLERRM,1,240); -- NOCOPY change for Bug 4939368
219: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_EGO_WRAPPER_PUB',
218: x_msg_data := substrb(SQLERRM,1,240); -- NOCOPY change for Bug 4939368
219: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_EGO_WRAPPER_PUB',
220: p_procedure_name => 'process_phase_delete',
221: p_error_text => x_msg_data); -- NOCOPY change for Bug 4939368
222: IF p_commit = FND_API.G_TRUE THEN
223: ROLLBACK TO wrapper_process_phase_delete;
224: END IF;
225:
226: WHEN OTHERS THEN
223: ROLLBACK TO wrapper_process_phase_delete;
224: END IF;
225:
226: WHEN OTHERS THEN
227: IF p_commit = FND_API.G_TRUE THEN
228: ROLLBACK TO wrapper_process_phase_delete;
229: END IF;
230: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
231: x_errorcode := SQLCODE; -- NOCOPY change for Bug 4939368
226: WHEN OTHERS THEN
227: IF p_commit = FND_API.G_TRUE THEN
228: ROLLBACK TO wrapper_process_phase_delete;
229: END IF;
230: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
231: x_errorcode := SQLCODE; -- NOCOPY change for Bug 4939368
232: x_msg_count := 1; -- NOCOPY change for Bug 4939368
233: x_msg_data := substrb(SQLERRM,1,240); -- NOCOPY change for Bug 4939368
234: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_EGO_WRAPPER_PUB',
266: l_lifecycle_id NUMBER;
267: l_delete_ok VARCHAR2(1);
268: BEGIN
269:
270: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version ,
271: p_api_version ,
272: l_api_name ,
273: l_pkg_name)
274: THEN
271: p_api_version ,
272: l_api_name ,
273: l_pkg_name)
274: THEN
275: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
276: END IF;
277:
278:
279: x_return_status := FND_API.G_RET_STS_SUCCESS;
275: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
276: END IF;
277:
278:
279: x_return_status := FND_API.G_RET_STS_SUCCESS;
280: x_delete_ok := FND_API.G_FALSE;
281:
282: EGO_LIFECYCLE_ADMIN_PUB.check_delete_lifecycle_ok(
283: p_api_version => p_api_version ,
276: END IF;
277:
278:
279: x_return_status := FND_API.G_RET_STS_SUCCESS;
280: x_delete_ok := FND_API.G_FALSE;
281:
282: EGO_LIFECYCLE_ADMIN_PUB.check_delete_lifecycle_ok(
283: p_api_version => p_api_version ,
284: p_lifecycle_id => p_lifecycle_id ,
288: x_errorcode => l_errorcode ,
289: x_msg_count => l_msg_count ,
290: x_msg_data => l_msg_data );
291:
292: /* Bug 2760719 -- Added check for l_delete_ok <> FND_API.G_TRUE and moved raise statement
293: outside the IF l_msg_count > 0 */
294:
295: IF l_delete_ok <> FND_API.G_TRUE OR l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
296: l_msg_count := FND_MSG_PUB.count_msg;
291:
292: /* Bug 2760719 -- Added check for l_delete_ok <> FND_API.G_TRUE and moved raise statement
293: outside the IF l_msg_count > 0 */
294:
295: IF l_delete_ok <> FND_API.G_TRUE OR l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
296: l_msg_count := FND_MSG_PUB.count_msg;
297: If l_msg_count > 0 THEN
298: x_msg_count := l_msg_count;
299: If l_msg_count = 1 THEN
297: If l_msg_count > 0 THEN
298: x_msg_count := l_msg_count;
299: If l_msg_count = 1 THEN
300: pa_interface_utils_pub.get_messages
301: (p_encoded => FND_API.G_TRUE ,
302: p_msg_index => 1 ,
303: p_msg_count => l_msg_count ,
304: p_msg_data => l_msg_data ,
305: p_data => l_data ,
307: );
308: x_msg_data := l_data;
309: End if;
310: End if;
311: RAISE FND_API.G_EXC_ERROR;
312: END IF;
313: x_errorcode := l_errorcode;
314: x_return_status := l_return_status;
315: x_delete_ok := l_delete_ok;
316:
317:
318: EXCEPTION
319:
320: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
321:
322: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
323: x_delete_ok := FND_API.G_FALSE; -- NOCOPY change for Bug 4939368
324: x_errorcode := SQLCODE; -- NOCOPY change for Bug 4939368
318: EXCEPTION
319:
320: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
321:
322: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
323: x_delete_ok := FND_API.G_FALSE; -- NOCOPY change for Bug 4939368
324: x_errorcode := SQLCODE; -- NOCOPY change for Bug 4939368
325: x_msg_count := 1; -- NOCOPY change for Bug 4939368
326: x_msg_data := substrb(SQLERRM,1,240); -- NOCOPY change for Bug 4939368
319:
320: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
321:
322: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
323: x_delete_ok := FND_API.G_FALSE; -- NOCOPY change for Bug 4939368
324: x_errorcode := SQLCODE; -- NOCOPY change for Bug 4939368
325: x_msg_count := 1; -- NOCOPY change for Bug 4939368
326: x_msg_data := substrb(SQLERRM,1,240); -- NOCOPY change for Bug 4939368
327: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_EGO_WRAPPER_PUB',
327: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_EGO_WRAPPER_PUB',
328: p_procedure_name => 'check_delete_lifecycle_ok',
329: p_error_text => x_msg_data); -- NOCOPY change for Bug 4939368
330:
331: WHEN FND_API.G_EXC_ERROR THEN
332: x_return_status := FND_API.G_RET_STS_ERROR;
333: x_delete_ok := FND_API.G_FALSE; -- NOCOPY change for Bug 4939368
334: x_errorcode := SQLCODE; -- NOCOPY change for Bug 4939368
335: x_msg_count := 1; -- NOCOPY change for Bug 4939368
328: p_procedure_name => 'check_delete_lifecycle_ok',
329: p_error_text => x_msg_data); -- NOCOPY change for Bug 4939368
330:
331: WHEN FND_API.G_EXC_ERROR THEN
332: x_return_status := FND_API.G_RET_STS_ERROR;
333: x_delete_ok := FND_API.G_FALSE; -- NOCOPY change for Bug 4939368
334: x_errorcode := SQLCODE; -- NOCOPY change for Bug 4939368
335: x_msg_count := 1; -- NOCOPY change for Bug 4939368
336: x_msg_data := substrb(SQLERRM,1,240); -- NOCOPY change for Bug 4939368
329: p_error_text => x_msg_data); -- NOCOPY change for Bug 4939368
330:
331: WHEN FND_API.G_EXC_ERROR THEN
332: x_return_status := FND_API.G_RET_STS_ERROR;
333: x_delete_ok := FND_API.G_FALSE; -- NOCOPY change for Bug 4939368
334: x_errorcode := SQLCODE; -- NOCOPY change for Bug 4939368
335: x_msg_count := 1; -- NOCOPY change for Bug 4939368
336: x_msg_data := substrb(SQLERRM,1,240); -- NOCOPY change for Bug 4939368
337: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_EGO_WRAPPER_PUB',
339: p_error_text => x_msg_data); -- NOCOPY change for Bug 4939368
340:
341: WHEN OTHERS THEN
342:
343: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
344: x_delete_ok := FND_API.G_FALSE; -- NOCOPY change for Bug 4939368
345: x_errorcode := SQLCODE; -- NOCOPY change for Bug 4939368
346: x_msg_count := 1; -- NOCOPY change for Bug 4939368
347: x_msg_data := substrb(SQLERRM,1,240); -- NOCOPY change for Bug 4939368
340:
341: WHEN OTHERS THEN
342:
343: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
344: x_delete_ok := FND_API.G_FALSE; -- NOCOPY change for Bug 4939368
345: x_errorcode := SQLCODE; -- NOCOPY change for Bug 4939368
346: x_msg_count := 1; -- NOCOPY change for Bug 4939368
347: x_msg_data := substrb(SQLERRM,1,240); -- NOCOPY change for Bug 4939368
348: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_EGO_WRAPPER_PUB',
380:
381: l_lifecycle_id NUMBER;
382: BEGIN
383:
384: IF(p_commit = FND_API.G_TRUE) THEN
385: SAVEPOINT wrapper_delete_data_for_lc;
386: END IF;
387:
388:
385: SAVEPOINT wrapper_delete_data_for_lc;
386: END IF;
387:
388:
389: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version ,
390: p_api_version ,
391: l_api_name ,
392: l_pkg_name)
393: THEN
390: p_api_version ,
391: l_api_name ,
392: l_pkg_name)
393: THEN
394: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
395: END IF;
396:
397:
398: x_return_status := FND_API.G_RET_STS_SUCCESS;
394: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
395: END IF;
396:
397:
398: x_return_status := FND_API.G_RET_STS_SUCCESS;
399:
400: EGO_LIFECYCLE_ADMIN_PUB.delete_stale_data_for_lc(
401: p_api_version => p_api_version ,
402: p_lifecycle_id => p_lifecycle_id ,
407: x_return_status => l_return_status ,
408: x_msg_data => l_msg_data
409: );
410:
411: /* Bug 2760719 -- Added check for l_return_status <> FND_API.G_RET_STS_SUCCESS and moved raise statement
412: outside the IF l_msg_count > 0 */
413:
414: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
415: l_msg_count := FND_MSG_PUB.count_msg;
410:
411: /* Bug 2760719 -- Added check for l_return_status <> FND_API.G_RET_STS_SUCCESS and moved raise statement
412: outside the IF l_msg_count > 0 */
413:
414: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
415: l_msg_count := FND_MSG_PUB.count_msg;
416: If l_msg_count > 0 THEN
417: x_msg_count := l_msg_count;
418: If l_msg_count = 1 THEN
416: If l_msg_count > 0 THEN
417: x_msg_count := l_msg_count;
418: If l_msg_count = 1 THEN
419: pa_interface_utils_pub.get_messages
420: (p_encoded => FND_API.G_TRUE ,
421: p_msg_index => 1 ,
422: p_msg_count => l_msg_count ,
423: p_msg_data => l_msg_data ,
424: p_data => l_data ,
426: );
427: x_msg_data := l_data;
428: End if;
429: End if;
430: RAISE FND_API.G_EXC_ERROR;
431: END IF;
432:
433: x_errorcode := l_errorcode;
434: x_return_status := l_return_status;
432:
433: x_errorcode := l_errorcode;
434: x_return_status := l_return_status;
435:
436: IF FND_API.TO_BOOLEAN(P_COMMIT) THEN
437: COMMIT;
438: END IF;
439:
440: EXCEPTION
438: END IF;
439:
440: EXCEPTION
441:
442: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
443: IF p_commit = FND_API.G_TRUE THEN
444: ROLLBACK TO wrapper_delete_data_for_lc;
445: END IF;
446: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
439:
440: EXCEPTION
441:
442: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
443: IF p_commit = FND_API.G_TRUE THEN
444: ROLLBACK TO wrapper_delete_data_for_lc;
445: END IF;
446: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
447: x_errorcode := SQLCODE; -- NOCOPY change for Bug 4939368
442: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
443: IF p_commit = FND_API.G_TRUE THEN
444: ROLLBACK TO wrapper_delete_data_for_lc;
445: END IF;
446: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
447: x_errorcode := SQLCODE; -- NOCOPY change for Bug 4939368
448: x_msg_count := 1; -- NOCOPY change for Bug 4939368
449: x_msg_data := substrb(SQLERRM,1,240); -- NOCOPY change for Bug 4939368
450: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_EGO_WRAPPER_PUB',
450: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_EGO_WRAPPER_PUB',
451: p_procedure_name => 'delete_stale_data_for_lc',
452: p_error_text => x_msg_data); -- NOCOPY change for Bug 4939368
453:
454: WHEN FND_API.G_EXC_ERROR THEN
455: x_return_status := FND_API.G_RET_STS_ERROR;
456: x_errorcode := SQLCODE; -- NOCOPY change for Bug 4939368
457: x_msg_count := 1; -- NOCOPY change for Bug 4939368
458: x_msg_data := substrb(SQLERRM,1,240); -- NOCOPY change for Bug 4939368
451: p_procedure_name => 'delete_stale_data_for_lc',
452: p_error_text => x_msg_data); -- NOCOPY change for Bug 4939368
453:
454: WHEN FND_API.G_EXC_ERROR THEN
455: x_return_status := FND_API.G_RET_STS_ERROR;
456: x_errorcode := SQLCODE; -- NOCOPY change for Bug 4939368
457: x_msg_count := 1; -- NOCOPY change for Bug 4939368
458: x_msg_data := substrb(SQLERRM,1,240); -- NOCOPY change for Bug 4939368
459: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_EGO_WRAPPER_PUB',
458: x_msg_data := substrb(SQLERRM,1,240); -- NOCOPY change for Bug 4939368
459: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_EGO_WRAPPER_PUB',
460: p_procedure_name => 'delete_stale_data_for_lc',
461: p_error_text => x_msg_data); -- NOCOPY change for Bug 4939368
462: IF p_commit = FND_API.G_TRUE THEN
463: ROLLBACK TO wrapper_delete_data_for_lc;
464: END IF;
465:
466: WHEN OTHERS THEN
463: ROLLBACK TO wrapper_delete_data_for_lc;
464: END IF;
465:
466: WHEN OTHERS THEN
467: IF p_commit = FND_API.G_TRUE THEN
468: ROLLBACK TO wrapper_delete_data_for_lc;
469: END IF;
470: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
471: x_errorcode := SQLCODE; -- NOCOPY change for Bug 4939368
466: WHEN OTHERS THEN
467: IF p_commit = FND_API.G_TRUE THEN
468: ROLLBACK TO wrapper_delete_data_for_lc;
469: END IF;
470: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
471: x_errorcode := SQLCODE; -- NOCOPY change for Bug 4939368
472: x_msg_count := 1; -- NOCOPY change for Bug 4939368
473: x_msg_data := substrb(SQLERRM,1,240); -- NOCOPY change for Bug 4939368
474: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_EGO_WRAPPER_PUB',
511: l_error_message VARCHAR2(32); -- Bug 2760719
512:
513: BEGIN
514:
515: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version ,
516: p_api_version ,
517: l_api_name ,
518: l_pkg_name)
519: THEN
516: p_api_version ,
517: l_api_name ,
518: l_pkg_name)
519: THEN
520: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
521: END IF;
522:
523:
524: x_return_status := FND_API.G_RET_STS_SUCCESS;
520: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
521: END IF;
522:
523:
524: x_return_status := FND_API.G_RET_STS_SUCCESS;
525: x_policy_code := 'NOT_ALLOWED';
526:
527: EGO_LIFECYCLE_USER_PUB.get_policy_for_phase_change(
528: p_api_version => p_api_version ,
547: x_policy_code := l_policy_code;
548:
549: EXCEPTION
550:
551: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
552:
553: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
554: x_policy_code := 'NOT_ALLOWED'; -- NOCOPY change for Bug 4939368
555: x_error_message := SQLERRM; -- NOCOPY change for Bug 4939368
549: EXCEPTION
550:
551: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
552:
553: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
554: x_policy_code := 'NOT_ALLOWED'; -- NOCOPY change for Bug 4939368
555: x_error_message := SQLERRM; -- NOCOPY change for Bug 4939368
556: x_errorcode := SQLCODE; -- NOCOPY change for Bug 4939368
557: x_msg_count := 1; -- NOCOPY change for Bug 4939368
559: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_EGO_WRAPPER_PUB',
560: p_procedure_name => 'get_policy_for_phase_change',
561: p_error_text => x_msg_data); -- NOCOPY change for Bug 4939368
562:
563: WHEN FND_API.G_EXC_ERROR THEN
564: x_return_status := FND_API.G_RET_STS_ERROR;
565: x_policy_code := 'NOT_ALLOWED'; -- NOCOPY change for Bug 4939368
566: x_error_message := SQLERRM; -- NOCOPY change for Bug 4939368
567: x_errorcode := SQLCODE; -- NOCOPY change for Bug 4939368
560: p_procedure_name => 'get_policy_for_phase_change',
561: p_error_text => x_msg_data); -- NOCOPY change for Bug 4939368
562:
563: WHEN FND_API.G_EXC_ERROR THEN
564: x_return_status := FND_API.G_RET_STS_ERROR;
565: x_policy_code := 'NOT_ALLOWED'; -- NOCOPY change for Bug 4939368
566: x_error_message := SQLERRM; -- NOCOPY change for Bug 4939368
567: x_errorcode := SQLCODE; -- NOCOPY change for Bug 4939368
568: x_msg_count := 1; -- NOCOPY change for Bug 4939368
572: p_error_text => x_msg_data); -- NOCOPY change for Bug 4939368
573:
574: WHEN OTHERS THEN
575:
576: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
577: x_policy_code := 'NOT_ALLOWED'; -- NOCOPY change for Bug 4939368
578: x_error_message := SQLERRM; -- NOCOPY change for Bug 4939368
579: x_errorcode := SQLCODE; -- NOCOPY change for Bug 4939368
580: x_msg_count := 1; -- NOCOPY change for Bug 4939368
613: l_return_status VARCHAR2(1);
614: l_errorcode NUMBER;
615:
616: BEGIN
617: IF(p_commit = FND_API.G_TRUE) THEN
618: SAVEPOINT wrapper_sync_phase_change;
619: END IF;
620:
621: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version ,
617: IF(p_commit = FND_API.G_TRUE) THEN
618: SAVEPOINT wrapper_sync_phase_change;
619: END IF;
620:
621: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version ,
622: p_api_version ,
623: l_api_name ,
624: l_pkg_name)
625: THEN
622: p_api_version ,
623: l_api_name ,
624: l_pkg_name)
625: THEN
626: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
627: END IF;
628:
629:
630: x_return_status := FND_API.G_RET_STS_SUCCESS;
626: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
627: END IF;
628:
629:
630: x_return_status := FND_API.G_RET_STS_SUCCESS;
631:
632: EGO_LIFECYCLE_USER_PUB.sync_phase_change(
633: p_api_version => p_api_version ,
634: p_project_id => p_project_id ,
641: x_msg_count => l_msg_count ,
642: x_return_status => l_return_status ,
643: x_msg_data => l_msg_data );
644:
645: /* Bug 2760719 -- Added check for l_return_status <> FND_API.G_RET_STS_SUCCESS and moved raise statement
646: outside the IF l_msg_count > 0 */
647: /*** Commented for bug 4049700 the code as this is calling the pa_interface_utils_pub.get_messages
648: even if the l_msg_count is returned as 1
649:
646: outside the IF l_msg_count > 0 */
647: /*** Commented for bug 4049700 the code as this is calling the pa_interface_utils_pub.get_messages
648: even if the l_msg_count is returned as 1
649:
650: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
651: l_msg_count := FND_MSG_PUB.count_msg;
652: If l_msg_count > 0 THEN
653: x_msg_count := l_msg_count;
654: If l_msg_count = 1 THEN
652: If l_msg_count > 0 THEN
653: x_msg_count := l_msg_count;
654: If l_msg_count = 1 THEN
655: pa_interface_utils_pub.get_messages
656: (p_encoded => FND_API.G_TRUE ,
657: p_msg_index => 1 ,
658: p_msg_count => l_msg_count ,
659: p_msg_data => l_msg_data ,
660: p_data => l_data ,
662: );
663: x_msg_data := l_data;
664: End if;
665: End if;
666: RAISE FND_API.G_EXC_ERROR;
667: END IF;
668: ***/
669:
670: /** Added for 4049700 **/
667: END IF;
668: ***/
669:
670: /** Added for 4049700 **/
671: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
672: IF NVL(l_msg_count,0) = 1 THEN
673: x_return_status := l_return_status;
674: x_msg_count := l_msg_count;
675: x_msg_data := l_msg_data;
677: FND_MESSAGE.SET_NAME('PA','PA_SHOW_EGO_ERROR');
678: FND_MESSAGE.SET_TOKEN('ERROR_TEXT',l_msg_data);
679: FND_MSG_PUB.add;
680: END IF;
681: RAISE FND_API.G_EXC_ERROR;
682: ELSE
683: l_msg_count := FND_MSG_PUB.count_msg;
684: If l_msg_count > 0 THEN
685: x_msg_count := l_msg_count;
683: l_msg_count := FND_MSG_PUB.count_msg;
684: If l_msg_count > 0 THEN
685: x_msg_count := l_msg_count;
686: pa_interface_utils_pub.get_messages
687: (p_encoded => FND_API.G_TRUE ,
688: p_msg_index => 1 ,
689: p_msg_count => l_msg_count ,
690: p_msg_data => l_msg_data ,
691: p_data => l_data ,
692: p_msg_index_out => l_msg_index_out
693: );
694: x_msg_data := l_data;
695: End if;
696: RAISE FND_API.G_EXC_ERROR;
697: END IF;
698: END IF;
699: /** End for 4049700 **/
700:
700:
701: x_errorcode := l_errorcode;
702: x_return_status := l_return_status;
703:
704: IF FND_API.TO_BOOLEAN(P_COMMIT) THEN
705: COMMIT;
706: END IF;
707:
708: EXCEPTION
706: END IF;
707:
708: EXCEPTION
709:
710: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
711: IF FND_API.TO_BOOLEAN(P_COMMIT) THEN
712: ROLLBACK TO wrapper_sync_phase_change;
713: END IF;
714:
707:
708: EXCEPTION
709:
710: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
711: IF FND_API.TO_BOOLEAN(P_COMMIT) THEN
712: ROLLBACK TO wrapper_sync_phase_change;
713: END IF;
714:
715: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
711: IF FND_API.TO_BOOLEAN(P_COMMIT) THEN
712: ROLLBACK TO wrapper_sync_phase_change;
713: END IF;
714:
715: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
716: x_errorcode := SQLCODE; -- NOCOPY change for Bug 4939368
717: x_msg_count := 1; -- NOCOPY change for Bug 4939368
718: x_msg_data := substrb(SQLERRM,1,240); -- NOCOPY change for Bug 4939368
719: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_EGO_WRAPPER_PUB',
719: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_EGO_WRAPPER_PUB',
720: p_procedure_name => 'sync_phase_change',
721: p_error_text => x_msg_data); -- NOCOPY change for Bug 4939368
722:
723: WHEN FND_API.G_EXC_ERROR THEN
724: x_return_status := FND_API.G_RET_STS_ERROR;
725: IF FND_API.TO_BOOLEAN(P_COMMIT) THEN
726: ROLLBACK TO wrapper_sync_phase_change;
727: END IF;
720: p_procedure_name => 'sync_phase_change',
721: p_error_text => x_msg_data); -- NOCOPY change for Bug 4939368
722:
723: WHEN FND_API.G_EXC_ERROR THEN
724: x_return_status := FND_API.G_RET_STS_ERROR;
725: IF FND_API.TO_BOOLEAN(P_COMMIT) THEN
726: ROLLBACK TO wrapper_sync_phase_change;
727: END IF;
728: x_errorcode := SQLCODE; -- NOCOPY change for Bug 4939368
721: p_error_text => x_msg_data); -- NOCOPY change for Bug 4939368
722:
723: WHEN FND_API.G_EXC_ERROR THEN
724: x_return_status := FND_API.G_RET_STS_ERROR;
725: IF FND_API.TO_BOOLEAN(P_COMMIT) THEN
726: ROLLBACK TO wrapper_sync_phase_change;
727: END IF;
728: x_errorcode := SQLCODE; -- NOCOPY change for Bug 4939368
729: x_msg_count := 1; -- NOCOPY change for Bug 4939368
737: /** End for 4049700 **/
738:
739: WHEN OTHERS THEN
740:
741: IF FND_API.TO_BOOLEAN(P_COMMIT) THEN
742: ROLLBACK TO wrapper_sync_phase_change;
743: END IF;
744: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
745: x_errorcode := SQLCODE; -- NOCOPY change for Bug 4939368
740:
741: IF FND_API.TO_BOOLEAN(P_COMMIT) THEN
742: ROLLBACK TO wrapper_sync_phase_change;
743: END IF;
744: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
745: x_errorcode := SQLCODE; -- NOCOPY change for Bug 4939368
746: x_msg_count := 1; -- NOCOPY change for Bug 4939368
747: x_msg_data := substrb(SQLERRM,1,240); -- NOCOPY change for Bug 4939368
748: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_EGO_WRAPPER_PUB',
776: l_is_lifecycle_tracking VARCHAR2(30);
777:
778: BEGIN
779:
780: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version ,
781: p_api_version ,
782: l_api_name ,
783: l_pkg_name)
784: THEN
781: p_api_version ,
782: l_api_name ,
783: l_pkg_name)
784: THEN
785: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
786: END IF;
787:
788:
789: x_return_status := FND_API.G_RET_STS_SUCCESS;
785: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
786: END IF;
787:
788:
789: x_return_status := FND_API.G_RET_STS_SUCCESS;
790: x_is_lifecycle_tracking := FND_API.G_TRUE;
791:
792:
793: EGO_LIFECYCLE_USER_PUB.check_lc_tracking_project(
786: END IF;
787:
788:
789: x_return_status := FND_API.G_RET_STS_SUCCESS;
790: x_is_lifecycle_tracking := FND_API.G_TRUE;
791:
792:
793: EGO_LIFECYCLE_USER_PUB.check_lc_tracking_project(
794: p_api_version => p_api_version ,
807: x_is_lifecycle_tracking := l_is_lifecycle_tracking;
808:
809: EXCEPTION
810:
811: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
812: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
813: x_is_lifecycle_tracking := FND_API.G_TRUE; -- NOCOPY change for Bug 4939368
814: x_errorcode := SQLCODE; -- NOCOPY change for Bug 4939368
815: x_msg_count := 1; -- NOCOPY change for Bug 4939368
808:
809: EXCEPTION
810:
811: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
812: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
813: x_is_lifecycle_tracking := FND_API.G_TRUE; -- NOCOPY change for Bug 4939368
814: x_errorcode := SQLCODE; -- NOCOPY change for Bug 4939368
815: x_msg_count := 1; -- NOCOPY change for Bug 4939368
816: x_msg_data := substrb(SQLERRM,1,240); -- NOCOPY change for Bug 4939368
809: EXCEPTION
810:
811: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
812: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
813: x_is_lifecycle_tracking := FND_API.G_TRUE; -- NOCOPY change for Bug 4939368
814: x_errorcode := SQLCODE; -- NOCOPY change for Bug 4939368
815: x_msg_count := 1; -- NOCOPY change for Bug 4939368
816: x_msg_data := substrb(SQLERRM,1,240); -- NOCOPY change for Bug 4939368
817: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_EGO_WRAPPER_PUB',
817: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_EGO_WRAPPER_PUB',
818: p_procedure_name => 'check_lc_tracking_project',
819: p_error_text => x_msg_data); -- NOCOPY change for Bug 4939368
820:
821: WHEN FND_API.G_EXC_ERROR THEN
822: x_return_status := FND_API.G_RET_STS_ERROR;
823: x_is_lifecycle_tracking := FND_API.G_TRUE; -- NOCOPY change for Bug 4939368
824: x_errorcode := SQLCODE; -- NOCOPY change for Bug 4939368
825: x_msg_count := 1; -- NOCOPY change for Bug 4939368
818: p_procedure_name => 'check_lc_tracking_project',
819: p_error_text => x_msg_data); -- NOCOPY change for Bug 4939368
820:
821: WHEN FND_API.G_EXC_ERROR THEN
822: x_return_status := FND_API.G_RET_STS_ERROR;
823: x_is_lifecycle_tracking := FND_API.G_TRUE; -- NOCOPY change for Bug 4939368
824: x_errorcode := SQLCODE; -- NOCOPY change for Bug 4939368
825: x_msg_count := 1; -- NOCOPY change for Bug 4939368
826: x_msg_data := substrb(SQLERRM,1,240); -- NOCOPY change for Bug 4939368
819: p_error_text => x_msg_data); -- NOCOPY change for Bug 4939368
820:
821: WHEN FND_API.G_EXC_ERROR THEN
822: x_return_status := FND_API.G_RET_STS_ERROR;
823: x_is_lifecycle_tracking := FND_API.G_TRUE; -- NOCOPY change for Bug 4939368
824: x_errorcode := SQLCODE; -- NOCOPY change for Bug 4939368
825: x_msg_count := 1; -- NOCOPY change for Bug 4939368
826: x_msg_data := substrb(SQLERRM,1,240); -- NOCOPY change for Bug 4939368
827: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_EGO_WRAPPER_PUB',
828: p_procedure_name => 'check_lc_tracking_project',
829: p_error_text => x_msg_data); -- NOCOPY change for Bug 4939368
830:
831: WHEN OTHERS THEN
832: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
833: x_is_lifecycle_tracking := FND_API.G_TRUE; -- NOCOPY change for Bug 4939368
834: x_errorcode := SQLCODE; -- NOCOPY change for Bug 4939368
835: x_msg_count := 1; -- NOCOPY change for Bug 4939368
836: x_msg_data := substrb(SQLERRM,1,240); -- NOCOPY change for Bug 4939368
829: p_error_text => x_msg_data); -- NOCOPY change for Bug 4939368
830:
831: WHEN OTHERS THEN
832: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
833: x_is_lifecycle_tracking := FND_API.G_TRUE; -- NOCOPY change for Bug 4939368
834: x_errorcode := SQLCODE; -- NOCOPY change for Bug 4939368
835: x_msg_count := 1; -- NOCOPY change for Bug 4939368
836: x_msg_data := substrb(SQLERRM,1,240); -- NOCOPY change for Bug 4939368
837: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_EGO_WRAPPER_PUB',
868: l_phase_id NUMBER;
869: l_delete_ok VARCHAR2(1);
870: BEGIN
871:
872: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version ,
873: p_api_version ,
874: l_api_name ,
875: l_pkg_name)
876: THEN
873: p_api_version ,
874: l_api_name ,
875: l_pkg_name)
876: THEN
877: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
878: END IF;
879:
880:
881: x_return_status := FND_API.G_RET_STS_SUCCESS;
877: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
878: END IF;
879:
880:
881: x_return_status := FND_API.G_RET_STS_SUCCESS;
882: x_delete_ok := FND_API.G_FALSE;
883:
884: EGO_LIFECYCLE_USER_PUB.check_delete_project_ok(
885: p_api_version => p_api_version ,
878: END IF;
879:
880:
881: x_return_status := FND_API.G_RET_STS_SUCCESS;
882: x_delete_ok := FND_API.G_FALSE;
883:
884: EGO_LIFECYCLE_USER_PUB.check_delete_project_ok(
885: p_api_version => p_api_version ,
886: p_project_id => p_project_id ,
890: x_errorcode => l_errorcode ,
891: x_msg_count => l_msg_count ,
892: x_msg_data => l_msg_data );
893:
894: /* Bug 2760719 -- Added check for l_delete_ok <> FND_API.G_TRUE and moved raise statement
895: outside the IF l_msg_count > 0 */
896:
897: IF l_delete_ok <> FND_API.G_TRUE OR l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
898: l_msg_count := FND_MSG_PUB.count_msg;
893:
894: /* Bug 2760719 -- Added check for l_delete_ok <> FND_API.G_TRUE and moved raise statement
895: outside the IF l_msg_count > 0 */
896:
897: IF l_delete_ok <> FND_API.G_TRUE OR l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
898: l_msg_count := FND_MSG_PUB.count_msg;
899: If l_msg_count > 0 THEN
900: x_msg_count := l_msg_count;
901: If l_msg_count = 1 THEN
899: If l_msg_count > 0 THEN
900: x_msg_count := l_msg_count;
901: If l_msg_count = 1 THEN
902: pa_interface_utils_pub.get_messages
903: (p_encoded => FND_API.G_TRUE ,
904: p_msg_index => 1 ,
905: p_msg_count => l_msg_count ,
906: p_msg_data => l_msg_data ,
907: p_data => l_data ,
909: );
910: x_msg_data := l_data;
911: End if;
912: End if;
913: RAISE FND_API.G_EXC_ERROR;
914: END IF;
915: x_errorcode := l_errorcode;
916: x_return_status := l_return_status;
917: x_delete_ok := l_delete_ok;
917: x_delete_ok := l_delete_ok;
918:
919: EXCEPTION
920:
921: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
922:
923: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
924: x_delete_ok := FND_API.G_FALSE; -- NOCOPY change for Bug 4939368
925: x_errorcode := SQLCODE; -- NOCOPY change for Bug 4939368
919: EXCEPTION
920:
921: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
922:
923: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
924: x_delete_ok := FND_API.G_FALSE; -- NOCOPY change for Bug 4939368
925: x_errorcode := SQLCODE; -- NOCOPY change for Bug 4939368
926: x_msg_count := 1; -- NOCOPY change for Bug 4939368
927: x_msg_data := substrb(SQLERRM,1,240); -- NOCOPY change for Bug 4939368
920:
921: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
922:
923: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
924: x_delete_ok := FND_API.G_FALSE; -- NOCOPY change for Bug 4939368
925: x_errorcode := SQLCODE; -- NOCOPY change for Bug 4939368
926: x_msg_count := 1; -- NOCOPY change for Bug 4939368
927: x_msg_data := substrb(SQLERRM,1,240); -- NOCOPY change for Bug 4939368
928: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_EGO_WRAPPER_PUB',
928: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_EGO_WRAPPER_PUB',
929: p_procedure_name => 'check_delete_project_ok',
930: p_error_text => x_msg_data); -- NOCOPY change for Bug 4939368
931:
932: WHEN FND_API.G_EXC_ERROR THEN
933: x_return_status := FND_API.G_RET_STS_ERROR;
934: x_delete_ok := FND_API.G_FALSE; -- NOCOPY change for Bug 4939368
935: x_errorcode := SQLCODE; -- NOCOPY change for Bug 4939368
936: x_msg_count := 1; -- NOCOPY change for Bug 4939368
929: p_procedure_name => 'check_delete_project_ok',
930: p_error_text => x_msg_data); -- NOCOPY change for Bug 4939368
931:
932: WHEN FND_API.G_EXC_ERROR THEN
933: x_return_status := FND_API.G_RET_STS_ERROR;
934: x_delete_ok := FND_API.G_FALSE; -- NOCOPY change for Bug 4939368
935: x_errorcode := SQLCODE; -- NOCOPY change for Bug 4939368
936: x_msg_count := 1; -- NOCOPY change for Bug 4939368
937: x_msg_data := substrb(SQLERRM,1,240); -- NOCOPY change for Bug 4939368
930: p_error_text => x_msg_data); -- NOCOPY change for Bug 4939368
931:
932: WHEN FND_API.G_EXC_ERROR THEN
933: x_return_status := FND_API.G_RET_STS_ERROR;
934: x_delete_ok := FND_API.G_FALSE; -- NOCOPY change for Bug 4939368
935: x_errorcode := SQLCODE; -- NOCOPY change for Bug 4939368
936: x_msg_count := 1; -- NOCOPY change for Bug 4939368
937: x_msg_data := substrb(SQLERRM,1,240); -- NOCOPY change for Bug 4939368
938: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_EGO_WRAPPER_PUB',
940: p_error_text => x_msg_data); -- NOCOPY change for Bug 4939368
941:
942: WHEN OTHERS THEN
943:
944: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
945: x_delete_ok := FND_API.G_FALSE; -- NOCOPY change for Bug 4939368
946: x_errorcode := SQLCODE; -- NOCOPY change for Bug 4939368
947: x_msg_count := 1; -- NOCOPY change for Bug 4939368
948: x_msg_data := substrb(SQLERRM,1,240); -- NOCOPY change for Bug 4939368
941:
942: WHEN OTHERS THEN
943:
944: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
945: x_delete_ok := FND_API.G_FALSE; -- NOCOPY change for Bug 4939368
946: x_errorcode := SQLCODE; -- NOCOPY change for Bug 4939368
947: x_msg_count := 1; -- NOCOPY change for Bug 4939368
948: x_msg_data := substrb(SQLERRM,1,240); -- NOCOPY change for Bug 4939368
949: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_EGO_WRAPPER_PUB',
984:
985:
986: BEGIN
987:
988: IF(p_commit = FND_API.G_TRUE) THEN
989: SAVEPOINT wrapper_delete_all_item_assocs;
990: END IF;
991:
992:
989: SAVEPOINT wrapper_delete_all_item_assocs;
990: END IF;
991:
992:
993: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version ,
994: p_api_version ,
995: l_api_name ,
996: l_pkg_name)
997: THEN
994: p_api_version ,
995: l_api_name ,
996: l_pkg_name)
997: THEN
998: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
999: END IF;
1000:
1001:
1002: x_return_status := FND_API.G_RET_STS_SUCCESS;
998: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
999: END IF;
1000:
1001:
1002: x_return_status := FND_API.G_RET_STS_SUCCESS;
1003:
1004: EGO_LIFECYCLE_USER_PUB.delete_all_item_assocs(
1005: p_api_version => p_api_version ,
1006: p_project_id => p_project_id ,
1009: x_msg_count => l_msg_count ,
1010: x_return_status => l_return_status ,
1011: x_msg_data => l_msg_data );
1012:
1013: /* Bug 2760719 -- Added check for l_return_status <> FND_API.G_RET_STS_SUCCESS and moved raise statement
1014: outside the IF l_msg_count > 0 */
1015:
1016: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1017: l_msg_count := FND_MSG_PUB.count_msg;
1012:
1013: /* Bug 2760719 -- Added check for l_return_status <> FND_API.G_RET_STS_SUCCESS and moved raise statement
1014: outside the IF l_msg_count > 0 */
1015:
1016: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1017: l_msg_count := FND_MSG_PUB.count_msg;
1018: If l_msg_count > 0 THEN
1019: x_msg_count := l_msg_count;
1020: If l_msg_count = 1 THEN
1018: If l_msg_count > 0 THEN
1019: x_msg_count := l_msg_count;
1020: If l_msg_count = 1 THEN
1021: pa_interface_utils_pub.get_messages
1022: (p_encoded => FND_API.G_TRUE ,
1023: p_msg_index => 1 ,
1024: p_msg_count => l_msg_count ,
1025: p_msg_data => l_msg_data ,
1026: p_data => l_data ,
1028: );
1029: x_msg_data := l_data;
1030: End if;
1031: End if;
1032: RAISE FND_API.G_EXC_ERROR;
1033: END IF;
1034:
1035: x_errorcode := l_errorcode;
1036: x_return_status := l_return_status;
1034:
1035: x_errorcode := l_errorcode;
1036: x_return_status := l_return_status;
1037:
1038: IF FND_API.TO_BOOLEAN(P_COMMIT) THEN
1039: COMMIT;
1040: END IF;
1041:
1042: EXCEPTION
1040: END IF;
1041:
1042: EXCEPTION
1043:
1044: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1045: IF p_commit = FND_API.G_TRUE THEN
1046: ROLLBACK TO wrapper_delete_all_item_assocs;
1047: END IF;
1048: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1041:
1042: EXCEPTION
1043:
1044: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1045: IF p_commit = FND_API.G_TRUE THEN
1046: ROLLBACK TO wrapper_delete_all_item_assocs;
1047: END IF;
1048: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1049: x_errorcode := SQLCODE; -- NOCOPY change for Bug 4939368
1044: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1045: IF p_commit = FND_API.G_TRUE THEN
1046: ROLLBACK TO wrapper_delete_all_item_assocs;
1047: END IF;
1048: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1049: x_errorcode := SQLCODE; -- NOCOPY change for Bug 4939368
1050: x_msg_count := 1; -- NOCOPY change for Bug 4939368
1051: x_msg_data := substrb(SQLERRM,1,240); -- NOCOPY change for Bug 4939368
1052: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_EGO_WRAPPER_PUB',
1052: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_EGO_WRAPPER_PUB',
1053: p_procedure_name => 'delete_all_item_assocs',
1054: p_error_text => x_msg_data); -- NOCOPY change for Bug 4939368
1055:
1056: WHEN FND_API.G_EXC_ERROR THEN
1057: x_return_status := FND_API.G_RET_STS_ERROR;
1058: x_errorcode := SQLCODE; -- NOCOPY change for Bug 4939368
1059: x_msg_count := 1; -- NOCOPY change for Bug 4939368
1060: x_msg_data := substrb(SQLERRM,1,240); -- NOCOPY change for Bug 4939368
1053: p_procedure_name => 'delete_all_item_assocs',
1054: p_error_text => x_msg_data); -- NOCOPY change for Bug 4939368
1055:
1056: WHEN FND_API.G_EXC_ERROR THEN
1057: x_return_status := FND_API.G_RET_STS_ERROR;
1058: x_errorcode := SQLCODE; -- NOCOPY change for Bug 4939368
1059: x_msg_count := 1; -- NOCOPY change for Bug 4939368
1060: x_msg_data := substrb(SQLERRM,1,240); -- NOCOPY change for Bug 4939368
1061: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_EGO_WRAPPER_PUB',
1060: x_msg_data := substrb(SQLERRM,1,240); -- NOCOPY change for Bug 4939368
1061: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_EGO_WRAPPER_PUB',
1062: p_procedure_name => 'delete_all_item_assocs',
1063: p_error_text => x_msg_data); -- NOCOPY change for Bug 4939368
1064: IF p_commit = FND_API.G_TRUE THEN
1065: ROLLBACK TO wrapper_delete_all_item_assocs;
1066: END IF;
1067:
1068: WHEN OTHERS THEN
1065: ROLLBACK TO wrapper_delete_all_item_assocs;
1066: END IF;
1067:
1068: WHEN OTHERS THEN
1069: IF p_commit = FND_API.G_TRUE THEN
1070: ROLLBACK TO wrapper_delete_all_item_assocs;
1071: END IF;
1072: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1073: x_errorcode := SQLCODE; -- NOCOPY change for Bug 4939368
1068: WHEN OTHERS THEN
1069: IF p_commit = FND_API.G_TRUE THEN
1070: ROLLBACK TO wrapper_delete_all_item_assocs;
1071: END IF;
1072: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1073: x_errorcode := SQLCODE; -- NOCOPY change for Bug 4939368
1074: x_msg_count := 1; -- NOCOPY change for Bug 4939368
1075: x_msg_data := substrb(SQLERRM,1,240); -- NOCOPY change for Bug 4939368
1076: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_EGO_WRAPPER_PUB',
1153:
1154:
1155: BEGIN
1156:
1157: IF(p_commit = FND_API.G_TRUE) THEN
1158: SAVEPOINT wrapper_copy_item_assocs;
1159: END IF;
1160:
1161:
1158: SAVEPOINT wrapper_copy_item_assocs;
1159: END IF;
1160:
1161:
1162: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version ,
1163: p_api_version ,
1164: l_api_name ,
1165: l_pkg_name)
1166: THEN
1163: p_api_version ,
1164: l_api_name ,
1165: l_pkg_name)
1166: THEN
1167: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1168: END IF;
1169:
1170:
1171: x_return_status := FND_API.G_RET_STS_SUCCESS;
1167: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1168: END IF;
1169:
1170:
1171: x_return_status := FND_API.G_RET_STS_SUCCESS;
1172:
1173: EGO_LIFECYCLE_USER_PUB.copy_item_assocs(
1174: p_api_version => p_api_version ,
1175: p_project_id_to => p_project_id_to ,
1179: x_msg_count => l_msg_count ,
1180: x_return_status => l_return_status ,
1181: x_msg_data => l_msg_data );
1182:
1183: /* Bug 2760719 -- Added check for l_return_status <> FND_API.G_RET_STS_SUCCESS and moved raise statement
1184: outside the IF l_msg_count > 0 */
1185:
1186: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1187: l_msg_count := FND_MSG_PUB.count_msg;
1182:
1183: /* Bug 2760719 -- Added check for l_return_status <> FND_API.G_RET_STS_SUCCESS and moved raise statement
1184: outside the IF l_msg_count > 0 */
1185:
1186: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1187: l_msg_count := FND_MSG_PUB.count_msg;
1188: If l_msg_count > 0 THEN
1189: x_msg_count := l_msg_count;
1190: If l_msg_count = 1 THEN
1188: If l_msg_count > 0 THEN
1189: x_msg_count := l_msg_count;
1190: If l_msg_count = 1 THEN
1191: pa_interface_utils_pub.get_messages
1192: (p_encoded => FND_API.G_TRUE ,
1193: p_msg_index => 1 ,
1194: p_msg_count => l_msg_count ,
1195: p_msg_data => l_msg_data ,
1196: p_data => l_data ,
1198: );
1199: x_msg_data := l_data;
1200: End if;
1201: End if;
1202: RAISE FND_API.G_EXC_ERROR;
1203: END IF;
1204: x_errorcode := l_errorcode;
1205: x_return_status := l_return_status;
1206:
1203: END IF;
1204: x_errorcode := l_errorcode;
1205: x_return_status := l_return_status;
1206:
1207: IF FND_API.TO_BOOLEAN(P_COMMIT) THEN
1208: COMMIT;
1209: END IF;
1210:
1211: EXCEPTION
1209: END IF;
1210:
1211: EXCEPTION
1212:
1213: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1214: IF p_commit = FND_API.G_TRUE THEN
1215: ROLLBACK TO wrapper_copy_item_assocs;
1216: END IF;
1217: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1210:
1211: EXCEPTION
1212:
1213: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1214: IF p_commit = FND_API.G_TRUE THEN
1215: ROLLBACK TO wrapper_copy_item_assocs;
1216: END IF;
1217: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1218: x_errorcode := SQLCODE; -- NOCOPY change for Bug 4939368
1213: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1214: IF p_commit = FND_API.G_TRUE THEN
1215: ROLLBACK TO wrapper_copy_item_assocs;
1216: END IF;
1217: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1218: x_errorcode := SQLCODE; -- NOCOPY change for Bug 4939368
1219: x_msg_count := 1; -- NOCOPY change for Bug 4939368
1220: x_msg_data := substrb(SQLERRM,1,240); -- NOCOPY change for Bug 4939368
1221: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_EGO_WRAPPER_PUB',
1221: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_EGO_WRAPPER_PUB',
1222: p_procedure_name => 'copy_item_assocs',
1223: p_error_text => x_msg_data); -- NOCOPY change for Bug 4939368
1224:
1225: WHEN FND_API.G_EXC_ERROR THEN
1226: x_return_status := FND_API.G_RET_STS_ERROR;
1227: x_errorcode := SQLCODE; -- NOCOPY change for Bug 4939368
1228: x_msg_count := 1; -- NOCOPY change for Bug 4939368
1229: x_msg_data := substrb(SQLERRM,1,240); -- NOCOPY change for Bug 4939368
1222: p_procedure_name => 'copy_item_assocs',
1223: p_error_text => x_msg_data); -- NOCOPY change for Bug 4939368
1224:
1225: WHEN FND_API.G_EXC_ERROR THEN
1226: x_return_status := FND_API.G_RET_STS_ERROR;
1227: x_errorcode := SQLCODE; -- NOCOPY change for Bug 4939368
1228: x_msg_count := 1; -- NOCOPY change for Bug 4939368
1229: x_msg_data := substrb(SQLERRM,1,240); -- NOCOPY change for Bug 4939368
1230: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_EGO_WRAPPER_PUB',
1229: x_msg_data := substrb(SQLERRM,1,240); -- NOCOPY change for Bug 4939368
1230: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_EGO_WRAPPER_PUB',
1231: p_procedure_name => 'copy_item_assocs',
1232: p_error_text => x_msg_data); -- NOCOPY change for Bug 4939368
1233: IF p_commit = FND_API.G_TRUE THEN
1234: ROLLBACK TO wrapper_copy_item_assocs;
1235: END IF;
1236:
1237: WHEN OTHERS THEN
1234: ROLLBACK TO wrapper_copy_item_assocs;
1235: END IF;
1236:
1237: WHEN OTHERS THEN
1238: IF p_commit = FND_API.G_TRUE THEN
1239: ROLLBACK TO wrapper_copy_item_assocs;
1240: END IF;
1241: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1242: x_errorcode := SQLCODE; -- NOCOPY change for Bug 4939368
1237: WHEN OTHERS THEN
1238: IF p_commit = FND_API.G_TRUE THEN
1239: ROLLBACK TO wrapper_copy_item_assocs;
1240: END IF;
1241: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1242: x_errorcode := SQLCODE; -- NOCOPY change for Bug 4939368
1243: x_msg_count := 1; -- NOCOPY change for Bug 4939368
1244: x_msg_data := substrb(SQLERRM,1,240); -- NOCOPY change for Bug 4939368
1245: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_EGO_WRAPPER_PUB',
1275:
1276: l_delete_ok VARCHAR2(1);
1277: BEGIN
1278:
1279: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version ,
1280: p_api_version ,
1281: l_api_name ,
1282: l_pkg_name)
1283: THEN
1280: p_api_version ,
1281: l_api_name ,
1282: l_pkg_name)
1283: THEN
1284: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1285: END IF;
1286:
1287:
1288: x_return_status := FND_API.G_RET_STS_SUCCESS;
1284: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1285: END IF;
1286:
1287:
1288: x_return_status := FND_API.G_RET_STS_SUCCESS;
1289: x_delete_ok := FND_API.G_FALSE;
1290:
1291: ENG_LIFECYCLE_USER_PUB.check_delete_project_ok(
1292: p_api_version => p_api_version ,
1285: END IF;
1286:
1287:
1288: x_return_status := FND_API.G_RET_STS_SUCCESS;
1289: x_delete_ok := FND_API.G_FALSE;
1290:
1291: ENG_LIFECYCLE_USER_PUB.check_delete_project_ok(
1292: p_api_version => p_api_version ,
1293: p_project_id => p_project_id ,
1297: x_errorcode => l_errorcode ,
1298: x_msg_count => l_msg_count ,
1299: x_msg_data => l_msg_data );
1300:
1301: IF l_delete_ok <> FND_API.G_TRUE OR l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1302: l_msg_count := FND_MSG_PUB.count_msg;
1303: If l_msg_count > 0 THEN
1304: x_msg_count := l_msg_count;
1305: If l_msg_count = 1 THEN
1303: If l_msg_count > 0 THEN
1304: x_msg_count := l_msg_count;
1305: If l_msg_count = 1 THEN
1306: pa_interface_utils_pub.get_messages
1307: (p_encoded => FND_API.G_TRUE ,
1308: p_msg_index => 1 ,
1309: p_msg_count => l_msg_count ,
1310: p_msg_data => l_msg_data ,
1311: p_data => l_data ,
1313: );
1314: x_msg_data := l_data;
1315: End if;
1316: End if;
1317: RAISE FND_API.G_EXC_ERROR;
1318: END IF;
1319: x_errorcode := l_errorcode;
1320: x_return_status := l_return_status;
1321: x_delete_ok := l_delete_ok;
1321: x_delete_ok := l_delete_ok;
1322:
1323: EXCEPTION
1324:
1325: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1326:
1327: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1328: x_delete_ok := FND_API.G_FALSE; -- NOCOPY change for Bug 4939368
1329: x_errorcode := SQLCODE; -- NOCOPY change for Bug 4939368
1323: EXCEPTION
1324:
1325: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1326:
1327: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1328: x_delete_ok := FND_API.G_FALSE; -- NOCOPY change for Bug 4939368
1329: x_errorcode := SQLCODE; -- NOCOPY change for Bug 4939368
1330: x_msg_count := 1; -- NOCOPY change for Bug 4939368
1331: x_msg_data := substrb(SQLERRM,1,240); -- NOCOPY change for Bug 4939368
1324:
1325: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1326:
1327: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1328: x_delete_ok := FND_API.G_FALSE; -- NOCOPY change for Bug 4939368
1329: x_errorcode := SQLCODE; -- NOCOPY change for Bug 4939368
1330: x_msg_count := 1; -- NOCOPY change for Bug 4939368
1331: x_msg_data := substrb(SQLERRM,1,240); -- NOCOPY change for Bug 4939368
1332: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_EGO_WRAPPER_PUB',
1332: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_EGO_WRAPPER_PUB',
1333: p_procedure_name => 'check_delete_project_ok_eng',
1334: p_error_text => x_msg_data); -- NOCOPY change for Bug 4939368
1335:
1336: WHEN FND_API.G_EXC_ERROR THEN
1337: x_return_status := FND_API.G_RET_STS_ERROR;
1338: x_delete_ok := FND_API.G_FALSE; -- NOCOPY change for Bug 4939368
1339: x_errorcode := SQLCODE; -- NOCOPY change for Bug 4939368
1340: x_msg_count := 1; -- NOCOPY change for Bug 4939368
1333: p_procedure_name => 'check_delete_project_ok_eng',
1334: p_error_text => x_msg_data); -- NOCOPY change for Bug 4939368
1335:
1336: WHEN FND_API.G_EXC_ERROR THEN
1337: x_return_status := FND_API.G_RET_STS_ERROR;
1338: x_delete_ok := FND_API.G_FALSE; -- NOCOPY change for Bug 4939368
1339: x_errorcode := SQLCODE; -- NOCOPY change for Bug 4939368
1340: x_msg_count := 1; -- NOCOPY change for Bug 4939368
1341: x_msg_data := substrb(SQLERRM,1,240); -- NOCOPY change for Bug 4939368
1334: p_error_text => x_msg_data); -- NOCOPY change for Bug 4939368
1335:
1336: WHEN FND_API.G_EXC_ERROR THEN
1337: x_return_status := FND_API.G_RET_STS_ERROR;
1338: x_delete_ok := FND_API.G_FALSE; -- NOCOPY change for Bug 4939368
1339: x_errorcode := SQLCODE; -- NOCOPY change for Bug 4939368
1340: x_msg_count := 1; -- NOCOPY change for Bug 4939368
1341: x_msg_data := substrb(SQLERRM,1,240); -- NOCOPY change for Bug 4939368
1342: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_EGO_WRAPPER_PUB',
1344: p_error_text => x_msg_data); -- NOCOPY change for Bug 4939368
1345:
1346: WHEN OTHERS THEN
1347:
1348: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1349: x_delete_ok := FND_API.G_FALSE; -- NOCOPY change for Bug 4939368
1350: x_errorcode := SQLCODE; -- NOCOPY change for Bug 4939368
1351: x_msg_count := 1; -- NOCOPY change for Bug 4939368
1352: x_msg_data := substrb(SQLERRM,1,240); -- NOCOPY change for Bug 4939368
1345:
1346: WHEN OTHERS THEN
1347:
1348: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1349: x_delete_ok := FND_API.G_FALSE; -- NOCOPY change for Bug 4939368
1350: x_errorcode := SQLCODE; -- NOCOPY change for Bug 4939368
1351: x_msg_count := 1; -- NOCOPY change for Bug 4939368
1352: x_msg_data := substrb(SQLERRM,1,240); -- NOCOPY change for Bug 4939368
1353: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_EGO_WRAPPER_PUB',
1385: l_errorcode NUMBER;
1386: l_delete_ok VARCHAR2(1);
1387: BEGIN
1388:
1389: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version ,
1390: p_api_version ,
1391: l_api_name ,
1392: l_pkg_name)
1393: THEN
1390: p_api_version ,
1391: l_api_name ,
1392: l_pkg_name)
1393: THEN
1394: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1395: END IF;
1396:
1397:
1398: x_return_status := FND_API.G_RET_STS_SUCCESS;
1394: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1395: END IF;
1396:
1397:
1398: x_return_status := FND_API.G_RET_STS_SUCCESS;
1399: x_delete_ok := FND_API.G_FALSE;
1400:
1401: ENG_LIFECYCLE_USER_PUB.check_delete_task_ok(
1402: p_api_version => p_api_version ,
1395: END IF;
1396:
1397:
1398: x_return_status := FND_API.G_RET_STS_SUCCESS;
1399: x_delete_ok := FND_API.G_FALSE;
1400:
1401: ENG_LIFECYCLE_USER_PUB.check_delete_task_ok(
1402: p_api_version => p_api_version ,
1403: p_task_id => p_task_id ,
1407: x_errorcode => l_errorcode ,
1408: x_msg_count => l_msg_count ,
1409: x_msg_data => l_msg_data );
1410:
1411: IF l_delete_ok <> FND_API.G_TRUE OR l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1412: l_msg_count := FND_MSG_PUB.count_msg;
1413: If l_msg_count > 0 THEN
1414: x_msg_count := l_msg_count;
1415: If l_msg_count = 1 THEN
1413: If l_msg_count > 0 THEN
1414: x_msg_count := l_msg_count;
1415: If l_msg_count = 1 THEN
1416: pa_interface_utils_pub.get_messages
1417: (p_encoded => FND_API.G_TRUE ,
1418: p_msg_index => 1 ,
1419: p_msg_count => l_msg_count ,
1420: p_msg_data => l_msg_data ,
1421: p_data => l_data ,
1423: );
1424: x_msg_data := l_data;
1425: End if;
1426: End if;
1427: RAISE FND_API.G_EXC_ERROR;
1428: END IF;
1429: x_errorcode := l_errorcode;
1430: x_return_status := l_return_status;
1431: x_delete_ok := l_delete_ok;
1431: x_delete_ok := l_delete_ok;
1432:
1433: EXCEPTION
1434:
1435: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1436:
1437: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1438: x_delete_ok := FND_API.G_FALSE; -- NOCOPY change for Bug 4939368
1439: x_errorcode := SQLCODE; -- NOCOPY change for Bug 4939368
1433: EXCEPTION
1434:
1435: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1436:
1437: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1438: x_delete_ok := FND_API.G_FALSE; -- NOCOPY change for Bug 4939368
1439: x_errorcode := SQLCODE; -- NOCOPY change for Bug 4939368
1440: x_msg_count := 1; -- NOCOPY change for Bug 4939368
1441: x_msg_data := substrb(SQLERRM,1,240); -- NOCOPY change for Bug 4939368
1434:
1435: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1436:
1437: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1438: x_delete_ok := FND_API.G_FALSE; -- NOCOPY change for Bug 4939368
1439: x_errorcode := SQLCODE; -- NOCOPY change for Bug 4939368
1440: x_msg_count := 1; -- NOCOPY change for Bug 4939368
1441: x_msg_data := substrb(SQLERRM,1,240); -- NOCOPY change for Bug 4939368
1442: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_EGO_WRAPPER_PUB',
1442: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_EGO_WRAPPER_PUB',
1443: p_procedure_name => 'check_delete_task_ok_eng',
1444: p_error_text => x_msg_data); -- NOCOPY change for Bug 4939368
1445:
1446: WHEN FND_API.G_EXC_ERROR THEN
1447: x_return_status := FND_API.G_RET_STS_ERROR;
1448: x_delete_ok := FND_API.G_FALSE; -- NOCOPY change for Bug 4939368
1449: x_errorcode := SQLCODE; -- NOCOPY change for Bug 4939368
1450: x_msg_count := 1; -- NOCOPY change for Bug 4939368
1443: p_procedure_name => 'check_delete_task_ok_eng',
1444: p_error_text => x_msg_data); -- NOCOPY change for Bug 4939368
1445:
1446: WHEN FND_API.G_EXC_ERROR THEN
1447: x_return_status := FND_API.G_RET_STS_ERROR;
1448: x_delete_ok := FND_API.G_FALSE; -- NOCOPY change for Bug 4939368
1449: x_errorcode := SQLCODE; -- NOCOPY change for Bug 4939368
1450: x_msg_count := 1; -- NOCOPY change for Bug 4939368
1451: x_msg_data := substrb(SQLERRM,1,240); -- NOCOPY change for Bug 4939368
1444: p_error_text => x_msg_data); -- NOCOPY change for Bug 4939368
1445:
1446: WHEN FND_API.G_EXC_ERROR THEN
1447: x_return_status := FND_API.G_RET_STS_ERROR;
1448: x_delete_ok := FND_API.G_FALSE; -- NOCOPY change for Bug 4939368
1449: x_errorcode := SQLCODE; -- NOCOPY change for Bug 4939368
1450: x_msg_count := 1; -- NOCOPY change for Bug 4939368
1451: x_msg_data := substrb(SQLERRM,1,240); -- NOCOPY change for Bug 4939368
1452: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_EGO_WRAPPER_PUB',
1454: p_error_text => x_msg_data); -- NOCOPY change for Bug 4939368
1455:
1456: WHEN OTHERS THEN
1457:
1458: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1459: x_delete_ok := FND_API.G_FALSE; -- NOCOPY change for Bug 4939368
1460: x_errorcode := SQLCODE; -- NOCOPY change for Bug 4939368
1461: x_msg_count := 1; -- NOCOPY change for Bug 4939368
1462: x_msg_data := substrb(SQLERRM,1,240); -- NOCOPY change for Bug 4939368
1455:
1456: WHEN OTHERS THEN
1457:
1458: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1459: x_delete_ok := FND_API.G_FALSE; -- NOCOPY change for Bug 4939368
1460: x_errorcode := SQLCODE; -- NOCOPY change for Bug 4939368
1461: x_msg_count := 1; -- NOCOPY change for Bug 4939368
1462: x_msg_data := substrb(SQLERRM,1,240); -- NOCOPY change for Bug 4939368
1463: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_EGO_WRAPPER_PUB',
1476:
1477: PROCEDURE process_phase_code_delete(
1478: p_api_version IN NUMBER := 1.0 ,
1479: p_phase_code IN NUMBER ,
1480: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE ,
1481: p_commit IN VARCHAR2 := FND_API.G_FALSE ,
1482: x_return_status OUT NOCOPY VARCHAR2 , -- NOCOPY change for Bug 4939368
1483: x_errorcode OUT NOCOPY NUMBER , -- NOCOPY change for Bug 4939368
1484: x_msg_count OUT NOCOPY NUMBER , -- NOCOPY change for Bug 4939368
1477: PROCEDURE process_phase_code_delete(
1478: p_api_version IN NUMBER := 1.0 ,
1479: p_phase_code IN NUMBER ,
1480: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE ,
1481: p_commit IN VARCHAR2 := FND_API.G_FALSE ,
1482: x_return_status OUT NOCOPY VARCHAR2 , -- NOCOPY change for Bug 4939368
1483: x_errorcode OUT NOCOPY NUMBER , -- NOCOPY change for Bug 4939368
1484: x_msg_count OUT NOCOPY NUMBER , -- NOCOPY change for Bug 4939368
1485: x_msg_data OUT NOCOPY VARCHAR2 -- NOCOPY change for Bug 4939368
1496:
1497:
1498: BEGIN
1499:
1500: IF(p_commit = FND_API.G_TRUE) THEN
1501: SAVEPOINT wrp_process_phase_code_delete;
1502: END IF;
1503:
1504:
1501: SAVEPOINT wrp_process_phase_code_delete;
1502: END IF;
1503:
1504:
1505: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version ,
1506: p_api_version ,
1507: l_api_name ,
1508: l_pkg_name)
1509: THEN
1506: p_api_version ,
1507: l_api_name ,
1508: l_pkg_name)
1509: THEN
1510: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1511: END IF;
1512:
1513:
1514: x_return_status := FND_API.G_RET_STS_SUCCESS;
1510: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1511: END IF;
1512:
1513:
1514: x_return_status := FND_API.G_RET_STS_SUCCESS;
1515: EGO_LIFECYCLE_ADMIN_PUB.process_phase_code_delete(
1516: p_api_version => p_api_version ,
1517: p_phase_code => p_phase_code ,
1518: p_init_msg_list => p_init_msg_list ,
1521: x_errorcode => l_errorcode ,
1522: x_msg_count => l_msg_count ,
1523: x_msg_data => l_msg_data
1524: );
1525: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1526: l_msg_count := FND_MSG_PUB.count_msg;
1527: If l_msg_count > 0 THEN
1528: x_msg_count := l_msg_count;
1529: If l_msg_count = 1 THEN
1527: If l_msg_count > 0 THEN
1528: x_msg_count := l_msg_count;
1529: If l_msg_count = 1 THEN
1530: pa_interface_utils_pub.get_messages
1531: (p_encoded => FND_API.G_TRUE ,
1532: p_msg_index => 1 ,
1533: p_msg_count => l_msg_count ,
1534: p_msg_data => l_msg_data ,
1535: p_data => l_data ,
1537: );
1538: x_msg_data := l_data;
1539: End if;
1540: End if;
1541: RAISE FND_API.G_EXC_ERROR;
1542: END IF;
1543:
1544: x_errorcode := l_errorcode;
1545: x_return_status := l_return_status;
1543:
1544: x_errorcode := l_errorcode;
1545: x_return_status := l_return_status;
1546:
1547: IF FND_API.TO_BOOLEAN(P_COMMIT) THEN
1548: COMMIT;
1549: END IF;
1550:
1551: EXCEPTION
1549: END IF;
1550:
1551: EXCEPTION
1552:
1553: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1554: IF p_commit = FND_API.G_TRUE THEN
1555: ROLLBACK TO wrp_process_phase_code_delete;
1556: END IF;
1557: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1550:
1551: EXCEPTION
1552:
1553: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1554: IF p_commit = FND_API.G_TRUE THEN
1555: ROLLBACK TO wrp_process_phase_code_delete;
1556: END IF;
1557: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1558: x_errorcode := SQLCODE; -- NOCOPY change for Bug 4939368
1553: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1554: IF p_commit = FND_API.G_TRUE THEN
1555: ROLLBACK TO wrp_process_phase_code_delete;
1556: END IF;
1557: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1558: x_errorcode := SQLCODE; -- NOCOPY change for Bug 4939368
1559: x_msg_count := 1; -- NOCOPY change for Bug 4939368
1560: x_msg_data := substrb(SQLERRM,1,240); -- NOCOPY change for Bug 4939368
1561: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_EGO_WRAPPER_PUB',
1561: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_EGO_WRAPPER_PUB',
1562: p_procedure_name => 'process_phase_code_delete',
1563: p_error_text => x_msg_data); -- NOCOPY change for Bug 4939368
1564:
1565: WHEN FND_API.G_EXC_ERROR THEN
1566: x_return_status := FND_API.G_RET_STS_ERROR;
1567: x_errorcode := SQLCODE; -- NOCOPY change for Bug 4939368
1568: x_msg_count := 1; -- NOCOPY change for Bug 4939368
1569: x_msg_data := substrb(SQLERRM,1,240); -- NOCOPY change for Bug 4939368
1562: p_procedure_name => 'process_phase_code_delete',
1563: p_error_text => x_msg_data); -- NOCOPY change for Bug 4939368
1564:
1565: WHEN FND_API.G_EXC_ERROR THEN
1566: x_return_status := FND_API.G_RET_STS_ERROR;
1567: x_errorcode := SQLCODE; -- NOCOPY change for Bug 4939368
1568: x_msg_count := 1; -- NOCOPY change for Bug 4939368
1569: x_msg_data := substrb(SQLERRM,1,240); -- NOCOPY change for Bug 4939368
1570: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_EGO_WRAPPER_PUB',
1569: x_msg_data := substrb(SQLERRM,1,240); -- NOCOPY change for Bug 4939368
1570: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_EGO_WRAPPER_PUB',
1571: p_procedure_name => 'process_phase_code_delete',
1572: p_error_text => x_msg_data); -- NOCOPY change for Bug 4939368
1573: IF p_commit = FND_API.G_TRUE THEN
1574: ROLLBACK TO wrp_process_phase_code_delete;
1575: END IF;
1576:
1577: WHEN OTHERS THEN
1574: ROLLBACK TO wrp_process_phase_code_delete;
1575: END IF;
1576:
1577: WHEN OTHERS THEN
1578: IF p_commit = FND_API.G_TRUE THEN
1579: ROLLBACK TO wrp_process_phase_code_delete;
1580: END IF;
1581: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1582: x_errorcode := SQLCODE; -- NOCOPY change for Bug 4939368
1577: WHEN OTHERS THEN
1578: IF p_commit = FND_API.G_TRUE THEN
1579: ROLLBACK TO wrp_process_phase_code_delete;
1580: END IF;
1581: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1582: x_errorcode := SQLCODE; -- NOCOPY change for Bug 4939368
1583: x_msg_count := 1; -- NOCOPY change for Bug 4939368
1584: x_msg_data := substrb(SQLERRM,1,240); -- NOCOPY change for Bug 4939368
1585: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_EGO_WRAPPER_PUB',