50: x_return_status := FND_API.G_RET_STS_SUCCESS;
51: -- Initialize message list if p_init_msg_list is set to TRUE.
52: IF p_init_msg_list ='T'
53: THEN
54: FND_MSG_PUB.initialize;
55: END IF;
56: x_return_status := FND_API.G_RET_STS_SUCCESS;
57:
58: INSERT INTO IEM_RT_PROC_EMAILS (
147: IF p_commit='T' THEN
148: COMMIT WORK;
149: END IF;
150: -- Standard callto get message count and if count is 1, get message info.
151: FND_MSG_PUB.Count_And_Get
152: ( p_count => x_msg_count,
153: p_data => x_msg_data
154: );
155: EXCEPTION
154: );
155: EXCEPTION
156: WHEN FND_API.G_EXC_ERROR THEN
157: x_return_status := FND_API.G_RET_STS_ERROR ;
158: FND_MSG_PUB.Count_And_Get
159: ( p_count => x_msg_count,
160: p_data => x_msg_data
161: );
162: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
160: p_data => x_msg_data
161: );
162: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
163: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
164: FND_MSG_PUB.Count_And_Get
165: ( p_count => x_msg_count,
166: p_data => x_msg_data
167: );
168: WHEN OTHERS THEN
166: p_data => x_msg_data
167: );
168: WHEN OTHERS THEN
169: x_return_status := FND_API.G_RET_STS_ERROR;
170: IF FND_MSG_PUB.Check_Msg_Level
171: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
172: THEN
173: FND_MSG_PUB.Add_Exc_Msg
174: ( G_PKG_NAME ,
167: );
168: WHEN OTHERS THEN
169: x_return_status := FND_API.G_RET_STS_ERROR;
170: IF FND_MSG_PUB.Check_Msg_Level
171: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
172: THEN
173: FND_MSG_PUB.Add_Exc_Msg
174: ( G_PKG_NAME ,
175: l_api_name
169: x_return_status := FND_API.G_RET_STS_ERROR;
170: IF FND_MSG_PUB.Check_Msg_Level
171: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
172: THEN
173: FND_MSG_PUB.Add_Exc_Msg
174: ( G_PKG_NAME ,
175: l_api_name
176: );
177: END IF;
174: ( G_PKG_NAME ,
175: l_api_name
176: );
177: END IF;
178: FND_MSG_PUB.Count_And_Get
179: ( p_count => x_msg_count ,
180: p_data => x_msg_data
181: );
182:
204: END IF;
205: -- Initialize message list if p_init_msg_list is set to TRUE.
206: IF p_init_msg_list ='T'
207: THEN
208: FND_MSG_PUB.initialize;
209: END IF;
210: x_return_status := FND_API.G_RET_STS_SUCCESS;
211: delete from IEM_POST_MDTS
212: where message_id=p_message_id;
215: IF p_commit='T' THEN
216: COMMIT WORK;
217: END IF;
218: -- Standard callto get message count and if count is 1, get message info.
219: FND_MSG_PUB.Count_And_Get
220: ( p_count => x_msg_count,
221: p_data => x_msg_data
222: );
223: EXCEPTION
223: EXCEPTION
224: WHEN FND_API.G_EXC_ERROR THEN
225: ROLLBACK TO delete_item_PVT;
226: x_return_status := FND_API.G_RET_STS_ERROR ;
227: FND_MSG_PUB.Count_And_Get
228: ( p_count => x_msg_count,
229: p_data => x_msg_data
230: );
231: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
230: );
231: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
232: ROLLBACK TO delete_item_PVT;
233: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
234: FND_MSG_PUB.Count_And_Get
235: ( p_count => x_msg_count,
236: p_data => x_msg_data
237: );
238: WHEN OTHERS THEN
237: );
238: WHEN OTHERS THEN
239: ROLLBACK TO delete_item_PVT;
240: x_return_status := FND_API.G_RET_STS_ERROR;
241: IF FND_MSG_PUB.Check_Msg_Level
242: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
243: THEN
244: FND_MSG_PUB.Add_Exc_Msg
245: ( G_PKG_NAME ,
238: WHEN OTHERS THEN
239: ROLLBACK TO delete_item_PVT;
240: x_return_status := FND_API.G_RET_STS_ERROR;
241: IF FND_MSG_PUB.Check_Msg_Level
242: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
243: THEN
244: FND_MSG_PUB.Add_Exc_Msg
245: ( G_PKG_NAME ,
246: l_api_name
240: x_return_status := FND_API.G_RET_STS_ERROR;
241: IF FND_MSG_PUB.Check_Msg_Level
242: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
243: THEN
244: FND_MSG_PUB.Add_Exc_Msg
245: ( G_PKG_NAME ,
246: l_api_name
247: );
248: END IF;
245: ( G_PKG_NAME ,
246: l_api_name
247: );
248: END IF;
249: FND_MSG_PUB.Count_And_Get
250: ( p_count => x_msg_count ,
251: p_data => x_msg_data
252: );
253: