129: EXCEPTION
130: WHEN fnd_api.g_exc_error THEN
131: ROLLBACK TO create_contact_preferences_pvt;
132: FND_MESSAGE.SET_NAME('AR', 'HZ_API_PROPAGATE_ENTITY_ERROR');
133: FND_MESSAGE.SET_TOKEN('ENTITY', 'HZ_CONTACT_PREFERENCES');
134: FND_MSG_PUB.ADD;
135:
136: x_return_status := fnd_api.g_ret_sts_error;
137:
154:
155: WHEN fnd_api.g_exc_unexpected_error THEN
156: ROLLBACK TO create_contact_preferences_pvt;
157: FND_MESSAGE.SET_NAME('AR', 'HZ_API_PROPAGATE_ENTITY_ERROR');
158: FND_MESSAGE.SET_TOKEN('ENTITY', 'HZ_CONTACT_PREFERENCES');
159: FND_MSG_PUB.ADD;
160:
161: x_return_status := fnd_api.g_ret_sts_unexp_error;
162:
179:
180: WHEN OTHERS THEN
181: ROLLBACK TO create_contact_preferences_pvt;
182: FND_MESSAGE.SET_NAME('AR', 'HZ_API_PROPAGATE_ENTITY_ERROR');
183: FND_MESSAGE.SET_TOKEN('ENTITY', 'HZ_CONTACT_PREFERENCES');
184: FND_MSG_PUB.ADD;
185:
186: x_return_status := fnd_api.g_ret_sts_unexp_error;
187:
245: CURSOR get_contact_pref_id(l_contact_point_id NUMBER, l_contact_type VARCHAR2,
246: l_preference_code VARCHAR2, l_preference_start_date DATE,
247: l_preference_end_date DATE)IS
248: SELECT contact_preference_id
249: FROM HZ_CONTACT_PREFERENCES
250: WHERE contact_level_table_id = l_contact_point_id
251: AND contact_type = l_contact_type
252: AND preference_code = l_preference_code
253: AND trunc(preference_start_date) = trunc(l_preference_start_date)
301: END IF;
302: FND_MESSAGE.SET_NAME('AR', 'HZ_API_INVALID_ID');
303: FND_MSG_PUB.ADD;
304: FND_MESSAGE.SET_NAME('AR', 'HZ_API_PROPAGATE_ENTITY_ERROR');
305: FND_MESSAGE.SET_TOKEN('ENTITY', 'HZ_CONTACT_PREFERENCES');
306: FND_MSG_PUB.ADD;
307: RAISE FND_API.G_EXC_ERROR;
308: END IF;
309:
358: EXCEPTION
359: WHEN fnd_api.g_exc_error THEN
360: ROLLBACK TO save_contact_preferences_pvt;
361: FND_MESSAGE.SET_NAME('AR', 'HZ_API_PROPAGATE_ENTITY_ERROR');
362: FND_MESSAGE.SET_TOKEN('ENTITY', 'HZ_CONTACT_PREFERENCES');
363: FND_MSG_PUB.ADD;
364:
365: x_return_status := fnd_api.g_ret_sts_error;
366:
383:
384: WHEN fnd_api.g_exc_unexpected_error THEN
385: ROLLBACK TO save_contact_preferences_pvt;
386: FND_MESSAGE.SET_NAME('AR', 'HZ_API_PROPAGATE_ENTITY_ERROR');
387: FND_MESSAGE.SET_TOKEN('ENTITY', 'HZ_CONTACT_PREFERENCES');
388: FND_MSG_PUB.ADD;
389:
390: x_return_status := fnd_api.g_ret_sts_unexp_error;
391:
408:
409: WHEN OTHERS THEN
410: ROLLBACK TO save_contact_preferences_pvt;
411: FND_MESSAGE.SET_NAME('AR', 'HZ_API_PROPAGATE_ENTITY_ERROR');
412: FND_MESSAGE.SET_TOKEN('ENTITY', 'HZ_CONTACT_PREFERENCES');
413: FND_MSG_PUB.ADD;
414:
415: x_return_status := fnd_api.g_ret_sts_unexp_error;
416: