63: END IF;
64:
65: IF fnd_api.to_boolean (p_init_msg_list)
66: THEN
67: fnd_msg_pub.initialize;
68: END IF;
69:
70: -- 2102281
71: if not (jtf_task_utl.check_duplicate_reference(p_task_id, p_object_id, p_object_type_code))
74: then
75: fnd_message.set_name('JTF','JTF_TASK_DUPLICATE_REF');
76: fnd_message.set_token('P_OBJECT_NAME',p_object_name);
77: fnd_message.set_token('P_OBJECT_TYPE',p_object_type_code);
78: fnd_msg_pub.add;
79: RAISE fnd_api.g_exc_unexpected_error;
80: else
81: jtf_task_utl.g_show_error_for_dup_reference := True;
82: return;
132:
133: IF c_jtf_task_references%NOTFOUND
134: THEN
135: fnd_message.set_name ('JTF', 'JTF_TASK_ERROR_CREATING_REFER');
136: fnd_msg_pub.add;
137: x_return_status := fnd_api.g_ret_sts_unexp_error;
138: RAISE fnd_api.g_exc_unexpected_error;
139: ELSE
140: x_task_reference_id := l_task_reference_id;
145: THEN
146: COMMIT WORK;
147: END IF;
148:
149: fnd_msg_pub.count_and_get (p_count => x_msg_count, p_data => x_msg_data);
150:
151: EXCEPTION
152: WHEN fnd_api.g_exc_unexpected_error
153: THEN
152: WHEN fnd_api.g_exc_unexpected_error
153: THEN
154: ROLLBACK TO create_references_pvt;
155: x_return_status := fnd_api.g_ret_sts_unexp_error;
156: fnd_msg_pub.count_and_get (p_count => x_msg_count, p_data => x_msg_data);
157: WHEN OTHERS
158: THEN
159: ROLLBACK TO create_references_pvt;
160: fnd_message.set_name ('JTF', 'JTF_TASK_UNKNOWN_ERROR');
158: THEN
159: ROLLBACK TO create_references_pvt;
160: fnd_message.set_name ('JTF', 'JTF_TASK_UNKNOWN_ERROR');
161: fnd_message.set_token ('P_TEXT', SQLCODE || SQLERRM);
162: fnd_msg_pub.add;
163: x_return_status := fnd_api.g_ret_sts_unexp_error;
164: fnd_msg_pub.count_and_get (p_count => x_msg_count, p_data => x_msg_data);
165: END;
166:
160: fnd_message.set_name ('JTF', 'JTF_TASK_UNKNOWN_ERROR');
161: fnd_message.set_token ('P_TEXT', SQLCODE || SQLERRM);
162: fnd_msg_pub.add;
163: x_return_status := fnd_api.g_ret_sts_unexp_error;
164: fnd_msg_pub.count_and_get (p_count => x_msg_count, p_data => x_msg_data);
165: END;
166:
167: PROCEDURE update_references (
168: p_api_version IN NUMBER,
251: END IF;
252:
253: IF fnd_api.to_boolean (p_init_msg_list)
254: THEN
255: fnd_msg_pub.initialize;
256: END IF;
257:
258:
259:
260: IF l_task_reference_id IS NULL
261: THEN
262: fnd_message.set_name ('JTF', 'JTF_TASK_MISS_REFER');
263:
264: fnd_msg_pub.add;
265: x_return_status := fnd_api.g_ret_sts_unexp_error;
266: RAISE fnd_api.g_exc_unexpected_error;
267: END IF;
268:
272: IF c_task_reference%NOTFOUND
273: THEN
274: fnd_message.set_name ('JTF', 'JTF_TASK_INVALID_REFER');
275: fnd_message.set_token('P_TASK_REFERENCE_ID',p_task_reference_id);
276: fnd_msg_pub.add;
277: x_return_status := fnd_api.g_ret_sts_unexp_error;
278: RAISE fnd_api.g_exc_unexpected_error;
279: END IF;
280:
303: then
304: fnd_message.set_name('JTF','JTF_TASK_DUPLICATE_REF');
305: fnd_message.set_token('P_OBJECT_NAME',l_object_name);
306: fnd_message.set_token('P_OBJECT_TYPE',l_object_type_code);
307: fnd_msg_pub.add;
308: RAISE fnd_api.g_exc_unexpected_error;
309: else
310: jtf_task_utl.g_show_error_for_dup_reference := True;
311: return;
365: WHEN fnd_api.g_exc_unexpected_error
366: THEN
367: ROLLBACK TO update_task_reference_pvt;
368: x_return_status := fnd_api.g_ret_sts_unexp_error;
369: fnd_msg_pub.count_and_get (p_count => x_msg_count, p_data => x_msg_data);
370: WHEN OTHERS
371: THEN
372: ROLLBACK TO update_task_reference_pvt;
373: fnd_message.set_name ('JTF', 'JTF_TASK_UNKNOWN_ERROR');
371: THEN
372: ROLLBACK TO update_task_reference_pvt;
373: fnd_message.set_name ('JTF', 'JTF_TASK_UNKNOWN_ERROR');
374: fnd_message.set_token ('P_TEXT', SQLCODE || SQLERRM);
375: fnd_msg_pub.add;
376: x_return_status := fnd_api.g_ret_sts_unexp_error;
377: fnd_msg_pub.count_and_get (p_count => x_msg_count, p_data => x_msg_data);
378: END;
379:
373: fnd_message.set_name ('JTF', 'JTF_TASK_UNKNOWN_ERROR');
374: fnd_message.set_token ('P_TEXT', SQLCODE || SQLERRM);
375: fnd_msg_pub.add;
376: x_return_status := fnd_api.g_ret_sts_unexp_error;
377: fnd_msg_pub.count_and_get (p_count => x_msg_count, p_data => x_msg_data);
378: END;
379:
380:
381: PROCEDURE delete_references (
410: x_return_status := fnd_api.g_ret_sts_success;
411:
412: IF fnd_api.to_boolean (p_init_msg_list)
413: THEN
414: fnd_msg_pub.initialize;
415: END IF;
416:
417: -- 2102281
418:
421: FETCH c_jtf_task_ref_delete INTO l_task_id, l_object_id;
422:
423: IF (c_jtf_task_ref_delete%NOTFOUND) THEN
424: fnd_message.set_name ('JTF', 'JTF_TASK_REFERENCE_NOT_FOUND');
425: fnd_msg_pub.add;
426: RAISE fnd_api.g_exc_unexpected_error;
427: END IF;
428:
429:
444: --delete references which are created automically for the customer when the
445: --task is created. Refer to bug 3875523.
446:
447: fnd_message.set_name ('JTF', 'JTF_TASK_ERROR_REF_DELETE');
448: fnd_msg_pub.add;
449: x_return_status := fnd_api.g_ret_sts_error;
450: fnd_msg_pub.count_and_get (p_count => x_msg_count, p_data =>x_msg_data);
451: return;
452:
446:
447: fnd_message.set_name ('JTF', 'JTF_TASK_ERROR_REF_DELETE');
448: fnd_msg_pub.add;
449: x_return_status := fnd_api.g_ret_sts_error;
450: fnd_msg_pub.count_and_get (p_count => x_msg_count, p_data =>x_msg_data);
451: return;
452:
453: end if;
454:
468: COMMIT WORK;
469: END IF;
470:
471:
472: fnd_msg_pub.count_and_get (p_count => x_msg_count, p_data => x_msg_data);
473:
474: EXCEPTION
475:
476: WHEN NO_DATA_FOUND
476: WHEN NO_DATA_FOUND
477: THEN
478: ROLLBACK TO delete_task_reference_pvt;
479: fnd_message.set_name ('JTF', 'JTF_TASK_ERROR_DELETING_REFER');
480: fnd_msg_pub.add;
481: x_return_status := fnd_api.g_ret_sts_unexp_error;
482: fnd_msg_pub.count_and_get (p_count => x_msg_count, p_data => x_msg_data);
483:
484: WHEN fnd_api.g_exc_unexpected_error
478: ROLLBACK TO delete_task_reference_pvt;
479: fnd_message.set_name ('JTF', 'JTF_TASK_ERROR_DELETING_REFER');
480: fnd_msg_pub.add;
481: x_return_status := fnd_api.g_ret_sts_unexp_error;
482: fnd_msg_pub.count_and_get (p_count => x_msg_count, p_data => x_msg_data);
483:
484: WHEN fnd_api.g_exc_unexpected_error
485: THEN
486: ROLLBACK TO delete_task_reference_pvt;
487: if (c_jtf_task_ref_delete%ISOPEN) THEN
488: CLOSE c_jtf_task_ref_delete;
489: END IF;
490: x_return_status := fnd_api.g_ret_sts_unexp_error;
491: fnd_msg_pub.count_and_get (p_count => x_msg_count, p_data => x_msg_data);
492:
493: WHEN OTHERS
494: THEN
495: ROLLBACK TO delete_task_reference_pvt;
494: THEN
495: ROLLBACK TO delete_task_reference_pvt;
496: fnd_message.set_name ('JTF', 'JTF_TASK_UNKNOWN_ERROR');
497: fnd_message.set_token ('P_TEXT', SQLCODE || SQLERRM);
498: fnd_msg_pub.add;
499: x_return_status := fnd_api.g_ret_sts_unexp_error;
500: fnd_msg_pub.count_and_get (p_count => x_msg_count, p_data => x_msg_data);
501: END;
502: END;
496: fnd_message.set_name ('JTF', 'JTF_TASK_UNKNOWN_ERROR');
497: fnd_message.set_token ('P_TEXT', SQLCODE || SQLERRM);
498: fnd_msg_pub.add;
499: x_return_status := fnd_api.g_ret_sts_unexp_error;
500: fnd_msg_pub.count_and_get (p_count => x_msg_count, p_data => x_msg_data);
501: END;
502: END;