171: l_api_name := l_api_name_1;
172:
173: IF NOT (l_return_status = fnd_api.g_ret_sts_success) THEN
174: -- Unexpected Execution Error from call to Get_contracts_resources
175: fnd_message.set_name('FND', 'FND_PII_GENERIC_API_ERROR');
176: fnd_message.set_token('P_PROC_NAME','CREATE_CONTACT_PREFERENCE');
177: fnd_message.set_token('P_API_NAME', l_api_name);
178: fnd_msg_pub.add;
179: RAISE fnd_api.g_exc_error;
172:
173: IF NOT (l_return_status = fnd_api.g_ret_sts_success) THEN
174: -- Unexpected Execution Error from call to Get_contracts_resources
175: fnd_message.set_name('FND', 'FND_PII_GENERIC_API_ERROR');
176: fnd_message.set_token('P_PROC_NAME','CREATE_CONTACT_PREFERENCE');
177: fnd_message.set_token('P_API_NAME', l_api_name);
178: fnd_msg_pub.add;
179: RAISE fnd_api.g_exc_error;
180: END IF; -- end of x_return_status check
173: IF NOT (l_return_status = fnd_api.g_ret_sts_success) THEN
174: -- Unexpected Execution Error from call to Get_contracts_resources
175: fnd_message.set_name('FND', 'FND_PII_GENERIC_API_ERROR');
176: fnd_message.set_token('P_PROC_NAME','CREATE_CONTACT_PREFERENCE');
177: fnd_message.set_token('P_API_NAME', l_api_name);
178: fnd_msg_pub.add;
179: RAISE fnd_api.g_exc_error;
180: END IF; -- end of x_return_status check
181:
251: l_api_name := l_api_name_1;
252:
253: IF NOT (l_return_status = fnd_api.g_ret_sts_success) THEN
254: -- Unexpected Execution Error from call to Get_contracts_resources
255: fnd_message.set_name('FND', 'FND_PII_GENERIC_API_ERROR');
256: fnd_message.set_token('P_PROC_NAME','CREATE_CONTACT_PREFERENCE');
257: fnd_message.set_token('P_API_NAME', l_api_name);
258: fnd_msg_pub.add;
259: RAISE fnd_api.g_exc_error;
252:
253: IF NOT (l_return_status = fnd_api.g_ret_sts_success) THEN
254: -- Unexpected Execution Error from call to Get_contracts_resources
255: fnd_message.set_name('FND', 'FND_PII_GENERIC_API_ERROR');
256: fnd_message.set_token('P_PROC_NAME','CREATE_CONTACT_PREFERENCE');
257: fnd_message.set_token('P_API_NAME', l_api_name);
258: fnd_msg_pub.add;
259: RAISE fnd_api.g_exc_error;
260: END IF; -- end of x_return_status check
253: IF NOT (l_return_status = fnd_api.g_ret_sts_success) THEN
254: -- Unexpected Execution Error from call to Get_contracts_resources
255: fnd_message.set_name('FND', 'FND_PII_GENERIC_API_ERROR');
256: fnd_message.set_token('P_PROC_NAME','CREATE_CONTACT_PREFERENCE');
257: fnd_message.set_token('P_API_NAME', l_api_name);
258: fnd_msg_pub.add;
259: RAISE fnd_api.g_exc_error;
260: END IF; -- end of x_return_status check
261:
273: COMMIT;
274: END IF;
275:
276: -- add confirmation message
277: fnd_message.set_name ('FND', 'FND_PII_CONFIRM_SAVE');
278: FND_MSG_PUB.add;
279: FND_MSG_PUB.Count_And_Get
280: (
281: p_count => x_msg_count,
299: p_data => x_msg_data
300: );
301:
302: WHEN OTHERS THEN
303: fnd_message.set_name ('FND', 'FND_PII_UNEXP_ERROR');
304: fnd_message.set_token('P_SQLCODE',SQLCODE);
305: fnd_message.set_token('P_SQLERRM',SQLERRM);
306: fnd_message.set_token('P_API_NAME',l_api_name);
307: FND_MSG_PUB.add;
300: );
301:
302: WHEN OTHERS THEN
303: fnd_message.set_name ('FND', 'FND_PII_UNEXP_ERROR');
304: fnd_message.set_token('P_SQLCODE',SQLCODE);
305: fnd_message.set_token('P_SQLERRM',SQLERRM);
306: fnd_message.set_token('P_API_NAME',l_api_name);
307: FND_MSG_PUB.add;
308:
301:
302: WHEN OTHERS THEN
303: fnd_message.set_name ('FND', 'FND_PII_UNEXP_ERROR');
304: fnd_message.set_token('P_SQLCODE',SQLCODE);
305: fnd_message.set_token('P_SQLERRM',SQLERRM);
306: fnd_message.set_token('P_API_NAME',l_api_name);
307: FND_MSG_PUB.add;
308:
309: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
302: WHEN OTHERS THEN
303: fnd_message.set_name ('FND', 'FND_PII_UNEXP_ERROR');
304: fnd_message.set_token('P_SQLCODE',SQLCODE);
305: fnd_message.set_token('P_SQLERRM',SQLERRM);
306: fnd_message.set_token('P_API_NAME',l_api_name);
307: FND_MSG_PUB.add;
308:
309: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
310: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )THEN
405: AND pref.contact_type = 'PRIV_PREF';
406:
407: END IF; -- end of p_party_id check
408:
409: fnd_message.set_name ('FND', 'FND_PII_CONFIRM_SAVE');
410: FND_MSG_PUB.add;
411: FND_MSG_PUB.Count_And_Get
412: (
413: p_count => x_msg_count,
431: p_data => x_msg_data
432: );
433:
434: WHEN OTHERS THEN
435: fnd_message.set_name ('FND', 'FND_PII_UNEXP_ERROR');
436: fnd_message.set_token('P_SQLCODE',SQLCODE);
437: fnd_message.set_token('P_SQLERRM',SQLERRM);
438: fnd_message.set_token('P_API_NAME',l_api_name);
439: FND_MSG_PUB.add;
432: );
433:
434: WHEN OTHERS THEN
435: fnd_message.set_name ('FND', 'FND_PII_UNEXP_ERROR');
436: fnd_message.set_token('P_SQLCODE',SQLCODE);
437: fnd_message.set_token('P_SQLERRM',SQLERRM);
438: fnd_message.set_token('P_API_NAME',l_api_name);
439: FND_MSG_PUB.add;
440:
433:
434: WHEN OTHERS THEN
435: fnd_message.set_name ('FND', 'FND_PII_UNEXP_ERROR');
436: fnd_message.set_token('P_SQLCODE',SQLCODE);
437: fnd_message.set_token('P_SQLERRM',SQLERRM);
438: fnd_message.set_token('P_API_NAME',l_api_name);
439: FND_MSG_PUB.add;
440:
441: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
434: WHEN OTHERS THEN
435: fnd_message.set_name ('FND', 'FND_PII_UNEXP_ERROR');
436: fnd_message.set_token('P_SQLCODE',SQLCODE);
437: fnd_message.set_token('P_SQLERRM',SQLERRM);
438: fnd_message.set_token('P_API_NAME',l_api_name);
439: FND_MSG_PUB.add;
440:
441: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
442: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )THEN
639: l_api_name := l_api_name_1;
640:
641: IF NOT (l_return_status = fnd_api.g_ret_sts_success) THEN
642: -- Unexpected Execution Error from call to Get_contracts_resources
643: fnd_message.set_name('FND', 'FND_PII_GENERIC_API_ERROR');
644: fnd_message.set_token('P_PROC_NAME','CREATE_CONTACT_PREFERENCE');
645: fnd_message.set_token('P_API_NAME', l_api_name);
646: fnd_msg_pub.add;
647: RAISE fnd_api.g_exc_error;
640:
641: IF NOT (l_return_status = fnd_api.g_ret_sts_success) THEN
642: -- Unexpected Execution Error from call to Get_contracts_resources
643: fnd_message.set_name('FND', 'FND_PII_GENERIC_API_ERROR');
644: fnd_message.set_token('P_PROC_NAME','CREATE_CONTACT_PREFERENCE');
645: fnd_message.set_token('P_API_NAME', l_api_name);
646: fnd_msg_pub.add;
647: RAISE fnd_api.g_exc_error;
648: END IF; -- end of x_return_status check
641: IF NOT (l_return_status = fnd_api.g_ret_sts_success) THEN
642: -- Unexpected Execution Error from call to Get_contracts_resources
643: fnd_message.set_name('FND', 'FND_PII_GENERIC_API_ERROR');
644: fnd_message.set_token('P_PROC_NAME','CREATE_CONTACT_PREFERENCE');
645: fnd_message.set_token('P_API_NAME', l_api_name);
646: fnd_msg_pub.add;
647: RAISE fnd_api.g_exc_error;
648: END IF; -- end of x_return_status check
649: END IF; -- end of check of r_cont_pref record
702: l_api_name := l_api_name_1;
703:
704: IF NOT (l_return_status = fnd_api.g_ret_sts_success) THEN
705: -- Unexpected Execution Error from call to Get_contracts_resources
706: fnd_message.set_name('FND', 'FND_PII_GENERIC_API_ERROR');
707: fnd_message.set_token('P_PROC_NAME','CREATE_CONTACT_PREFERENCE');
708: fnd_message.set_token('P_API_NAME', l_api_name);
709: fnd_msg_pub.add;
710: RAISE fnd_api.g_exc_error;
703:
704: IF NOT (l_return_status = fnd_api.g_ret_sts_success) THEN
705: -- Unexpected Execution Error from call to Get_contracts_resources
706: fnd_message.set_name('FND', 'FND_PII_GENERIC_API_ERROR');
707: fnd_message.set_token('P_PROC_NAME','CREATE_CONTACT_PREFERENCE');
708: fnd_message.set_token('P_API_NAME', l_api_name);
709: fnd_msg_pub.add;
710: RAISE fnd_api.g_exc_error;
711: END IF; -- end of x_return_status check
704: IF NOT (l_return_status = fnd_api.g_ret_sts_success) THEN
705: -- Unexpected Execution Error from call to Get_contracts_resources
706: fnd_message.set_name('FND', 'FND_PII_GENERIC_API_ERROR');
707: fnd_message.set_token('P_PROC_NAME','CREATE_CONTACT_PREFERENCE');
708: fnd_message.set_token('P_API_NAME', l_api_name);
709: fnd_msg_pub.add;
710: RAISE fnd_api.g_exc_error;
711: END IF; -- end of x_return_status check
712: END IF; -- end of check of r_cont_pref record
731: END IF;
732:
733: END IF; -- end of l_party_id check
734:
735: fnd_message.set_name ('FND', 'FND_PII_CONFIRM_SAVE');
736: FND_MSG_PUB.add;
737: FND_MSG_PUB.Count_And_Get
738: (
739: p_count => x_msg_count,
757: p_data => x_msg_data
758: );
759:
760: WHEN OTHERS THEN
761: fnd_message.set_name ('FND', 'FND_PII_UNEXP_ERROR');
762: fnd_message.set_token('P_SQLCODE',SQLCODE);
763: fnd_message.set_token('P_SQLERRM',SQLERRM);
764: fnd_message.set_token('P_API_NAME',l_api_name);
765: FND_MSG_PUB.add;
758: );
759:
760: WHEN OTHERS THEN
761: fnd_message.set_name ('FND', 'FND_PII_UNEXP_ERROR');
762: fnd_message.set_token('P_SQLCODE',SQLCODE);
763: fnd_message.set_token('P_SQLERRM',SQLERRM);
764: fnd_message.set_token('P_API_NAME',l_api_name);
765: FND_MSG_PUB.add;
766:
759:
760: WHEN OTHERS THEN
761: fnd_message.set_name ('FND', 'FND_PII_UNEXP_ERROR');
762: fnd_message.set_token('P_SQLCODE',SQLCODE);
763: fnd_message.set_token('P_SQLERRM',SQLERRM);
764: fnd_message.set_token('P_API_NAME',l_api_name);
765: FND_MSG_PUB.add;
766:
767: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
760: WHEN OTHERS THEN
761: fnd_message.set_name ('FND', 'FND_PII_UNEXP_ERROR');
762: fnd_message.set_token('P_SQLCODE',SQLCODE);
763: fnd_message.set_token('P_SQLERRM',SQLERRM);
764: fnd_message.set_token('P_API_NAME',l_api_name);
765: FND_MSG_PUB.add;
766:
767: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
768: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )THEN