27: END IF;
28: -- Initialize message list if p_init_msg_list is set to TRUE.
29: IF FND_API.to_Boolean( p_init_msg_list )
30: THEN
31: FND_MSG_PUB.initialize;
32: END IF;
33: -- Initialize API return status to SUCCESS
34: x_return_status := FND_API.G_RET_STS_SUCCESS;
35:
39: IF FND_API.To_Boolean(p_commit) THEN
40: COMMIT WORK;
41: END IF;
42: -- Standard callto get message count and if count is 1, get message info.
43: FND_MSG_PUB.Count_And_Get
44: ( p_count => x_msg_count,
45: p_data => x_msg_data
46: );
47:
50:
51: WHEN FND_API.G_EXC_ERROR THEN
52: ROLLBACK TO select_profile_PVT;
53: x_return_status := FND_API.G_RET_STS_ERROR ;
54: FND_MSG_PUB.Count_And_Get
55: ( p_count => x_msg_count,
56: p_data => x_msg_data
57: );
58:
58:
59: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
60: ROLLBACK TO select_profile_PVT;
61: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
62: FND_MSG_PUB.Count_And_Get
63: ( p_count => x_msg_count,
64: p_data => x_msg_data
65: );
66:
66:
67: WHEN OTHERS THEN
68: ROLLBACK TO select_profile_PVT;
69: x_return_status := FND_API.G_RET_STS_ERROR;
70: IF FND_MSG_PUB.Check_Msg_Level
71: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
72: THEN
73: FND_MSG_PUB.Add_Exc_Msg
74: ( G_PKG_NAME ,
67: WHEN OTHERS THEN
68: ROLLBACK TO select_profile_PVT;
69: x_return_status := FND_API.G_RET_STS_ERROR;
70: IF FND_MSG_PUB.Check_Msg_Level
71: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
72: THEN
73: FND_MSG_PUB.Add_Exc_Msg
74: ( G_PKG_NAME ,
75: l_api_name
69: x_return_status := FND_API.G_RET_STS_ERROR;
70: IF FND_MSG_PUB.Check_Msg_Level
71: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
72: THEN
73: FND_MSG_PUB.Add_Exc_Msg
74: ( G_PKG_NAME ,
75: l_api_name
76: );
77: END IF;
74: ( G_PKG_NAME ,
75: l_api_name
76: );
77: END IF;
78: FND_MSG_PUB.Count_And_Get
79: ( p_count => x_msg_count ,
80: p_data => x_msg_data
81: );
82:
116: END IF;
117: -- Initialize message list if p_init_msg_list is set to TRUE.
118: IF FND_API.to_Boolean( p_init_msg_list )
119: THEN
120: FND_MSG_PUB.initialize;
121: END IF;
122: -- Initialize API return status to SUCCESS
123: x_return_status := FND_API.G_RET_STS_SUCCESS;
124:
184: IF FND_API.To_Boolean(p_commit) THEN
185: COMMIT WORK;
186: END IF;
187: -- Standard callto get message count and if count is 1, get message info.
188: FND_MSG_PUB.Count_And_Get
189: ( p_count => x_msg_count,
190: p_data => x_msg_data
191: );
192:
194: WHEN INVALID_DEFAULT_CUSTOMER_NUM THEN
195: ROLLBACK TO update_profile_PVT;
196: x_return_status := FND_API.G_RET_STS_ERROR;
197: FND_MESSAGE.SET_NAME('IEM', 'IEM_SSS_INVALID_DEF_CUST_NUM');
198: FND_MSG_PUB.ADD;
199: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
200:
201: WHEN INVALID_DEFAULT_RESOURCE_NUM THEN
202: ROLLBACK TO update_profile_PVT;
195: ROLLBACK TO update_profile_PVT;
196: x_return_status := FND_API.G_RET_STS_ERROR;
197: FND_MESSAGE.SET_NAME('IEM', 'IEM_SSS_INVALID_DEF_CUST_NUM');
198: FND_MSG_PUB.ADD;
199: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
200:
201: WHEN INVALID_DEFAULT_RESOURCE_NUM THEN
202: ROLLBACK TO update_profile_PVT;
203: x_return_status := FND_API.G_RET_STS_ERROR;
201: WHEN INVALID_DEFAULT_RESOURCE_NUM THEN
202: ROLLBACK TO update_profile_PVT;
203: x_return_status := FND_API.G_RET_STS_ERROR;
204: FND_MESSAGE.SET_NAME('IEM', 'IEM_SSS_INVALID_DEF_REST_NUM');
205: FND_MSG_PUB.ADD;
206: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
207:
208: WHEN PROFILE_NOT_UPDATED THEN
209: ROLLBACK TO update_profile_PVT;
202: ROLLBACK TO update_profile_PVT;
203: x_return_status := FND_API.G_RET_STS_ERROR;
204: FND_MESSAGE.SET_NAME('IEM', 'IEM_SSS_INVALID_DEF_REST_NUM');
205: FND_MSG_PUB.ADD;
206: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
207:
208: WHEN PROFILE_NOT_UPDATED THEN
209: ROLLBACK TO update_profile_PVT;
210: x_return_status := FND_API.G_RET_STS_ERROR;
208: WHEN PROFILE_NOT_UPDATED THEN
209: ROLLBACK TO update_profile_PVT;
210: x_return_status := FND_API.G_RET_STS_ERROR;
211: FND_MESSAGE.SET_NAME('IEM', 'IEM_ADMIN_INTENT_N_NOT_UPDATED');
212: FND_MSG_PUB.ADD;
213: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
214:
215:
216: WHEN FND_API.G_EXC_ERROR THEN
209: ROLLBACK TO update_profile_PVT;
210: x_return_status := FND_API.G_RET_STS_ERROR;
211: FND_MESSAGE.SET_NAME('IEM', 'IEM_ADMIN_INTENT_N_NOT_UPDATED');
212: FND_MSG_PUB.ADD;
213: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
214:
215:
216: WHEN FND_API.G_EXC_ERROR THEN
217: ROLLBACK TO update_profile_PVT;
215:
216: WHEN FND_API.G_EXC_ERROR THEN
217: ROLLBACK TO update_profile_PVT;
218: x_return_status := FND_API.G_RET_STS_ERROR ;
219: FND_MSG_PUB.Count_And_Get
220: ( p_count => x_msg_count,
221: p_data => x_msg_data
222: );
223:
223:
224: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
225: ROLLBACK TO update_profile_PVT;
226: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
227: FND_MSG_PUB.Count_And_Get
228: ( p_count => x_msg_count,
229: p_data => x_msg_data
230: );
231:
231:
232: WHEN OTHERS THEN
233: ROLLBACK TO update_profile_PVT;
234: x_return_status := FND_API.G_RET_STS_ERROR;
235: IF FND_MSG_PUB.Check_Msg_Level
236: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
237: THEN
238: FND_MSG_PUB.Add_Exc_Msg
239: ( G_PKG_NAME ,
232: WHEN OTHERS THEN
233: ROLLBACK TO update_profile_PVT;
234: x_return_status := FND_API.G_RET_STS_ERROR;
235: IF FND_MSG_PUB.Check_Msg_Level
236: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
237: THEN
238: FND_MSG_PUB.Add_Exc_Msg
239: ( G_PKG_NAME ,
240: l_api_name
234: x_return_status := FND_API.G_RET_STS_ERROR;
235: IF FND_MSG_PUB.Check_Msg_Level
236: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
237: THEN
238: FND_MSG_PUB.Add_Exc_Msg
239: ( G_PKG_NAME ,
240: l_api_name
241: );
242: END IF;
239: ( G_PKG_NAME ,
240: l_api_name
241: );
242: END IF;
243: FND_MSG_PUB.Count_And_Get
244: ( p_count => x_msg_count ,
245: p_data => x_msg_data
246: );
247:
276: END IF;
277: -- Initialize message list if p_init_msg_list is set to TRUE.
278: IF FND_API.to_Boolean( p_init_msg_list )
279: THEN
280: FND_MSG_PUB.initialize;
281: END IF;
282: -- Initialize API return status to SUCCESS
283: x_return_status := FND_API.G_RET_STS_SUCCESS;
284:
303: IF FND_API.To_Boolean(p_commit) THEN
304: COMMIT WORK;
305: END IF;
306: -- Standard callto get message count and if count is 1, get message info.
307: FND_MSG_PUB.Count_And_Get
308: ( p_count => x_msg_count,
309: p_data => x_msg_data
310: );
311:
313:
314: WHEN PROFILE_NOT_UPDATED THEN
315: ROLLBACK TO update_profile_PVT;
316: x_return_status := FND_API.G_RET_STS_ERROR;
317: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
318:
319:
320: WHEN FND_API.G_EXC_ERROR THEN
321: ROLLBACK TO update_profile_PVT;
319:
320: WHEN FND_API.G_EXC_ERROR THEN
321: ROLLBACK TO update_profile_PVT;
322: x_return_status := FND_API.G_RET_STS_ERROR ;
323: FND_MSG_PUB.Count_And_Get
324: ( p_count => x_msg_count,
325: p_data => x_msg_data
326: );
327:
327:
328: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
329: ROLLBACK TO update_profile_PVT;
330: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
331: FND_MSG_PUB.Count_And_Get
332: ( p_count => x_msg_count,
333: p_data => x_msg_data
334: );
335:
335:
336: WHEN OTHERS THEN
337: ROLLBACK TO update_profile_PVT;
338: x_return_status := FND_API.G_RET_STS_ERROR;
339: IF FND_MSG_PUB.Check_Msg_Level
340: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
341: THEN
342: FND_MSG_PUB.Add_Exc_Msg
343: ( G_PKG_NAME ,
336: WHEN OTHERS THEN
337: ROLLBACK TO update_profile_PVT;
338: x_return_status := FND_API.G_RET_STS_ERROR;
339: IF FND_MSG_PUB.Check_Msg_Level
340: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
341: THEN
342: FND_MSG_PUB.Add_Exc_Msg
343: ( G_PKG_NAME ,
344: l_api_name
338: x_return_status := FND_API.G_RET_STS_ERROR;
339: IF FND_MSG_PUB.Check_Msg_Level
340: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
341: THEN
342: FND_MSG_PUB.Add_Exc_Msg
343: ( G_PKG_NAME ,
344: l_api_name
345: );
346: END IF;
343: ( G_PKG_NAME ,
344: l_api_name
345: );
346: END IF;
347: FND_MSG_PUB.Count_And_Get
348: ( p_count => x_msg_count ,
349: p_data => x_msg_data
350: );
351: