50: END IF;
51:
52: -- initialize message list if p_init_msg_list is set to TRUE.
53: IF FND_API.to_boolean(p_init_msg_list) THEN
54: FND_MSG_PUB.initialize;
55: END IF;
56:
57: --begin set/create contact preferences
58: BEGIN
99: IF FND_API.to_boolean(p_commit) THEN
100: commit;
101: END IF;
102: -- standard call to get message count and if count is 1, get message info
103: FND_MSG_PUB.count_and_get(
104: p_encoded => FND_API.G_FALSE,
105: p_count => x_msg_count,
106: p_data => x_msg_data
107: );
113: --IBE_UTIL.enable_debug();
114:
115: ROLLBACK TO setOptInOutPreference;
116: x_return_status := FND_API.G_RET_STS_ERROR;
117: FND_MSG_PUB.count_and_get(
118: p_encoded => FND_API.G_FALSE,
119: p_count => x_msg_count,
120: p_data => x_msg_data
121: );
133: --IBE_UTIL.enable_debug();
134:
135: ROLLBACK TO setOptInOutPreference;
136: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
137: FND_MSG_PUB.count_and_get(
138: p_encoded => FND_API.G_FALSE,
139: p_count => x_msg_count,
140: p_data => x_msg_data
141: );
153: --IBE_UTIL.enable_debug();
154:
155: ROLLBACK TO setOptInOutPreference;
156: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
157: FND_MSG_PUB.count_and_get(
158: p_encoded => FND_API.G_FALSE,
159: p_count => x_msg_count,
160: p_data => x_msg_data
161: );
315: END IF;
316:
317: -- initialize message list if p_init_msg_list is set to TRUE.
318: IF FND_API.to_boolean(p_init_msg_list) THEN
319: FND_MSG_PUB.initialize;
320: END IF;
321:
322: -- Initialize API return status to success
323: x_return_status := FND_API.G_RET_STS_SUCCESS;
391: commit;
392: END IF;
393:
394: -- standard call to get message count and if count is 1, get message info
395: FND_MSG_PUB.count_and_get(
396: p_encoded => FND_API.G_FALSE,
397: p_count => x_msg_count,
398: p_data => x_msg_data
399: );
412:
413: --ROLLBACK TO create_credit_card;
414:
415: x_return_status := FND_API.G_RET_STS_ERROR;
416: FND_MSG_PUB.ADD;
417: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
418: p_data => x_msg_data,
419: p_encoded => 'F');
420:
413: --ROLLBACK TO create_credit_card;
414:
415: x_return_status := FND_API.G_RET_STS_ERROR;
416: FND_MSG_PUB.ADD;
417: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
418: p_data => x_msg_data,
419: p_encoded => 'F');
420:
421: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
436: --IBE_UTIL.enable_debug();
437:
438: --ROLLBACK TO create_credit_card;
439: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
440: FND_MSG_PUB.ADD;
441: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
442: p_data => x_msg_data,
443: p_encoded => 'F');
444:
437:
438: --ROLLBACK TO create_credit_card;
439: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
440: FND_MSG_PUB.ADD;
441: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
442: p_data => x_msg_data,
443: p_encoded => 'F');
444:
445: IF (IBE_UTIL.G_DEBUGON = l_true) THEN
462: FND_MESSAGE.Set_Name('FND', 'SQL_PLSQL_ERROR');
463: FND_MESSAGE.Set_Token('ROUTINE', l_api_name);
464: FND_MESSAGE.Set_Token('ERRNO', SQLCODE);
465: FND_MESSAGE.Set_Token('REASON', SQLERRM);
466: FND_MSG_PUB.Add;
467: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
468: FND_MSG_PUB.Add;
469: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
470: p_data => x_msg_data,
464: FND_MESSAGE.Set_Token('ERRNO', SQLCODE);
465: FND_MESSAGE.Set_Token('REASON', SQLERRM);
466: FND_MSG_PUB.Add;
467: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
468: FND_MSG_PUB.Add;
469: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
470: p_data => x_msg_data,
471: p_encoded => 'F');
472:
465: FND_MESSAGE.Set_Token('REASON', SQLERRM);
466: FND_MSG_PUB.Add;
467: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
468: FND_MSG_PUB.Add;
469: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
470: p_data => x_msg_data,
471: p_encoded => 'F');
472:
473: