27: l_object_version_number NUMBER;
28: BEGIN
29: SAVEPOINT create_contact_preference_sv;
30:
31: x_return_status := fnd_api.g_ret_sts_success;
32:
33: IF p_init_msg_list IS NULL OR
34: fnd_api.to_boolean (p_init_msg_list)
35: THEN
30:
31: x_return_status := fnd_api.g_ret_sts_success;
32:
33: IF p_init_msg_list IS NULL OR
34: fnd_api.to_boolean (p_init_msg_list)
35: THEN
36: fnd_msg_pub.initialize;
37: END IF;
38:
55: , x_msg_data => x_msg_data
56: , x_object_version_number => l_object_version_number
57: );
58:
59: IF NOT (x_return_status = fnd_api.g_ret_sts_success)
60: THEN
61: x_return_status := fnd_api.g_ret_sts_unexp_error;
62: RAISE fnd_api.g_exc_unexpected_error;
63: END IF;
57: );
58:
59: IF NOT (x_return_status = fnd_api.g_ret_sts_success)
60: THEN
61: x_return_status := fnd_api.g_ret_sts_unexp_error;
62: RAISE fnd_api.g_exc_unexpected_error;
63: END IF;
64:
65: ELSE
58:
59: IF NOT (x_return_status = fnd_api.g_ret_sts_success)
60: THEN
61: x_return_status := fnd_api.g_ret_sts_unexp_error;
62: RAISE fnd_api.g_exc_unexpected_error;
63: END IF;
64:
65: ELSE
66: CLOSE c_preference;
80:
81: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
82:
83: EXCEPTION
84: WHEN fnd_api.g_exc_unexpected_error THEN
85: ROLLBACK TO create_contact_preference_sv;
86: x_return_status := fnd_api.g_ret_sts_unexp_error;
87: fnd_msg_pub.count_and_get (p_count => x_msg_count, p_data => x_msg_data);
88: IF c_preference%ISOPEN THEN
82:
83: EXCEPTION
84: WHEN fnd_api.g_exc_unexpected_error THEN
85: ROLLBACK TO create_contact_preference_sv;
86: x_return_status := fnd_api.g_ret_sts_unexp_error;
87: fnd_msg_pub.count_and_get (p_count => x_msg_count, p_data => x_msg_data);
88: IF c_preference%ISOPEN THEN
89: CLOSE c_preference;
90: END IF;
93: ROLLBACK TO create_contact_preference_sv;
94: fnd_message.set_name ('JTF', 'JTF_TASK_UNKNOWN_ERROR');
95: fnd_message.set_token ('P_TEXT', SQLCODE || SQLERRM);
96: fnd_msg_pub.add;
97: x_return_status := fnd_api.g_ret_sts_unexp_error;
98: fnd_msg_pub.count_and_get (p_count => x_msg_count, p_data => x_msg_data);
99: IF c_preference%ISOPEN THEN
100: CLOSE c_preference;
101: END IF;
115: IS
116: BEGIN
117: SAVEPOINT delete_contact_preference_sv;
118:
119: x_return_status := fnd_api.g_ret_sts_success;
120:
121: IF p_init_msg_list IS NULL OR
122: fnd_api.to_boolean (p_init_msg_list)
123: THEN
118:
119: x_return_status := fnd_api.g_ret_sts_success;
120:
121: IF p_init_msg_list IS NULL OR
122: fnd_api.to_boolean (p_init_msg_list)
123: THEN
124: fnd_msg_pub.initialize;
125: END IF;
126:
134: , x_msg_count => x_msg_count
135: , x_msg_data => x_msg_data
136: );
137:
138: IF NOT (x_return_status = fnd_api.g_ret_sts_success)
139: THEN
140: x_return_status := fnd_api.g_ret_sts_unexp_error;
141: RAISE fnd_api.g_exc_unexpected_error;
142: END IF;
136: );
137:
138: IF NOT (x_return_status = fnd_api.g_ret_sts_success)
139: THEN
140: x_return_status := fnd_api.g_ret_sts_unexp_error;
141: RAISE fnd_api.g_exc_unexpected_error;
142: END IF;
143:
144: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
137:
138: IF NOT (x_return_status = fnd_api.g_ret_sts_success)
139: THEN
140: x_return_status := fnd_api.g_ret_sts_unexp_error;
141: RAISE fnd_api.g_exc_unexpected_error;
142: END IF;
143:
144: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
145:
143:
144: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
145:
146: EXCEPTION
147: WHEN fnd_api.g_exc_unexpected_error THEN
148: ROLLBACK TO delete_contact_preference_sv;
149: x_return_status := fnd_api.g_ret_sts_unexp_error;
150: fnd_msg_pub.count_and_get (p_count => x_msg_count, p_data => x_msg_data);
151:
145:
146: EXCEPTION
147: WHEN fnd_api.g_exc_unexpected_error THEN
148: ROLLBACK TO delete_contact_preference_sv;
149: x_return_status := fnd_api.g_ret_sts_unexp_error;
150: fnd_msg_pub.count_and_get (p_count => x_msg_count, p_data => x_msg_data);
151:
152: WHEN OTHERS THEN
153: ROLLBACK TO delete_contact_preference_sv;
153: ROLLBACK TO delete_contact_preference_sv;
154: fnd_message.set_name ('JTF', 'JTF_TASK_UNKNOWN_ERROR');
155: fnd_message.set_token ('P_TEXT', SQLCODE || SQLERRM);
156: fnd_msg_pub.add;
157: x_return_status := fnd_api.g_ret_sts_unexp_error;
158: fnd_msg_pub.count_and_get (p_count => x_msg_count, p_data => x_msg_data);
159:
160: END DELETE_CONTACT_PREFERENCE;
161: