76:
77: -- Initialize message list if p_init_msg_list is set to TRUE.
78: IF FND_API.to_Boolean( p_init_msg_list )
79: THEN
80: FND_MSG_PUB.initialize;
81: END IF;
82:
83: -- Initialize API return status to SUCCESS
84: x_return_status := FND_API.G_RET_STS_SUCCESS;
163: END IF;
164:
165:
166: -- Standard callto get message count and if count is 1, get message info.
167: FND_MSG_PUB.Count_And_Get
168: ( p_count => x_msg_count,
169: p_data => x_msg_data
170: );
171:
173:
174: WHEN FND_API.G_EXC_ERROR THEN
175: ROLLBACK TO save_message_PVT;
176: x_return_status := FND_API.G_RET_STS_ERROR ;
177: FND_MSG_PUB.Count_And_Get
178:
179: ( p_count => x_msg_count,
180: p_data => x_msg_data
181: );
182:
183: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
184: ROLLBACK TO save_message_PVT;
185: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
186: FND_MSG_PUB.Count_And_Get
187: ( p_count => x_msg_count,
188: p_data => x_msg_data
189: );
190:
190:
191: WHEN OTHERS THEN
192: ROLLBACK TO save_message_PVT;
193: x_return_status := FND_API.G_RET_STS_ERROR;
194: IF FND_MSG_PUB.Check_Msg_Level
195: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
196: THEN
197: FND_MSG_PUB.Add_Exc_Msg
198: ( G_PKG_NAME ,
191: WHEN OTHERS THEN
192: ROLLBACK TO save_message_PVT;
193: x_return_status := FND_API.G_RET_STS_ERROR;
194: IF FND_MSG_PUB.Check_Msg_Level
195: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
196: THEN
197: FND_MSG_PUB.Add_Exc_Msg
198: ( G_PKG_NAME ,
199: l_api_name
193: x_return_status := FND_API.G_RET_STS_ERROR;
194: IF FND_MSG_PUB.Check_Msg_Level
195: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
196: THEN
197: FND_MSG_PUB.Add_Exc_Msg
198: ( G_PKG_NAME ,
199: l_api_name
200: );
201: END IF;
199: l_api_name
200: );
201: END IF;
202:
203: FND_MSG_PUB.Count_And_Get
204: ( p_count => x_msg_count,
205: p_data => x_msg_data
206:
207: );
243:
244: -- Initialize message list if p_init_msg_list is set to TRUE.
245: IF FND_API.to_Boolean( p_init_msg_list )
246: THEN
247: FND_MSG_PUB.initialize;
248: END IF;
249:
250: -- Initialize API return status to SUCCESS
251: x_return_status := FND_API.G_RET_STS_SUCCESS;
272: END IF;
273:
274:
275: -- Standard callto get message count and if count is 1, get message info.
276: FND_MSG_PUB.Count_And_Get
277: ( p_count => x_msg_count,
278: p_data => x_msg_data
279: );
280:
282:
283: WHEN FND_API.G_EXC_ERROR THEN
284: ROLLBACK TO delete_message_PVT;
285: x_return_status := FND_API.G_RET_STS_ERROR ;
286: FND_MSG_PUB.Count_And_Get
287:
288: ( p_count => x_msg_count,
289: p_data => x_msg_data
290: );
291:
292: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
293: ROLLBACK TO delete_message_PVT;
294: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
295: FND_MSG_PUB.Count_And_Get
296: ( p_count => x_msg_count,
297: p_data => x_msg_data
298: );
299:
299:
300: WHEN OTHERS THEN
301: ROLLBACK TO delete_message_PVT;
302: x_return_status := FND_API.G_RET_STS_ERROR;
303: IF FND_MSG_PUB.Check_Msg_Level
304: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
305: THEN
306: FND_MSG_PUB.Add_Exc_Msg
307: ( G_PKG_NAME ,
300: WHEN OTHERS THEN
301: ROLLBACK TO delete_message_PVT;
302: x_return_status := FND_API.G_RET_STS_ERROR;
303: IF FND_MSG_PUB.Check_Msg_Level
304: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
305: THEN
306: FND_MSG_PUB.Add_Exc_Msg
307: ( G_PKG_NAME ,
308: l_api_name
302: x_return_status := FND_API.G_RET_STS_ERROR;
303: IF FND_MSG_PUB.Check_Msg_Level
304: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
305: THEN
306: FND_MSG_PUB.Add_Exc_Msg
307: ( G_PKG_NAME ,
308: l_api_name
309: );
310: END IF;
308: l_api_name
309: );
310: END IF;
311:
312: FND_MSG_PUB.Count_And_Get
313: ( p_count => x_msg_count,
314: p_data => x_msg_data
315:
316: );