80: END IF;
81: -- Initialize message list if p_init_msg_list is set to TRUE.
82: IF FND_API.to_Boolean( p_init_msg_list )
83: THEN
84: FND_MSG_PUB.initialize;
85: END IF;
86: -- Initialize API return status to SUCCESS
87: x_return_status := FND_API.G_RET_STS_SUCCESS;
88:
139: IF FND_API.To_Boolean(p_commit) THEN
140: COMMIT WORK;
141: END IF;
142: -- Standard callto get message count and if count is 1, get message info.
143: FND_MSG_PUB.Count_And_Get
144: ( p_count => x_msg_count,
145: p_data => x_msg_data
146: );
147: EXCEPTION
147: EXCEPTION
148: WHEN FND_API.G_EXC_ERROR THEN
149: ROLLBACK TO moveMessage_PVT;
150: x_return_status := FND_API.G_RET_STS_ERROR ;
151: FND_MSG_PUB.Count_And_Get
152: ( p_count => x_msg_count,
153: p_data => x_msg_data
154: );
155: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
154: );
155: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
156: ROLLBACK TO moveMessage_PVT;
157: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
158: FND_MSG_PUB.Count_And_Get
159: ( p_count => x_msg_count,
160: p_data => x_msg_data
161: );
162: WHEN OTHERS THEN
161: );
162: WHEN OTHERS THEN
163: ROLLBACK TO moveMessage_PVT;
164: x_return_status := FND_API.G_RET_STS_ERROR;
165: IF FND_MSG_PUB.Check_Msg_Level
166: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
167: THEN
168: FND_MSG_PUB.Add_Exc_Msg
169: ( G_PKG_NAME ,
162: WHEN OTHERS THEN
163: ROLLBACK TO moveMessage_PVT;
164: x_return_status := FND_API.G_RET_STS_ERROR;
165: IF FND_MSG_PUB.Check_Msg_Level
166: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
167: THEN
168: FND_MSG_PUB.Add_Exc_Msg
169: ( G_PKG_NAME ,
170: l_api_name
164: x_return_status := FND_API.G_RET_STS_ERROR;
165: IF FND_MSG_PUB.Check_Msg_Level
166: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
167: THEN
168: FND_MSG_PUB.Add_Exc_Msg
169: ( G_PKG_NAME ,
170: l_api_name
171: );
172: END IF;
169: ( G_PKG_NAME ,
170: l_api_name
171: );
172: END IF;
173: FND_MSG_PUB.Count_And_Get
174: ( p_count => x_msg_count ,
175: p_data => x_msg_data
176: );
177:
223: END IF;
224: -- Initialize message list if p_init_msg_list is set to TRUE.
225: IF FND_API.to_Boolean( p_init_msg_list )
226: THEN
227: FND_MSG_PUB.initialize;
228: END IF;
229: -- Initialize API return status to SUCCESS
230: x_return_status := FND_API.G_RET_STS_SUCCESS;
231:
272: IF FND_API.To_Boolean(p_commit) THEN
273: COMMIT WORK;
274: END IF;
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: EXCEPTION
281: WHEN MOVE_MSG_FAIL THEN
282: ROLLBACK TO moveMessage_PVT;
283: x_return_status := FND_API.G_RET_STS_ERROR ;
284: FND_MESSAGE.SET_NAME('IEM', 'IEM_MOVE_DEL_MESSAGE_FAIL');
285: FND_MSG_PUB.ADD;
286: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
287:
288: WHEN OES_DOWN THEN
289: ROLLBACK TO moveMessage_PVT;
282: ROLLBACK TO moveMessage_PVT;
283: x_return_status := FND_API.G_RET_STS_ERROR ;
284: FND_MESSAGE.SET_NAME('IEM', 'IEM_MOVE_DEL_MESSAGE_FAIL');
285: FND_MSG_PUB.ADD;
286: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
287:
288: WHEN OES_DOWN THEN
289: ROLLBACK TO moveMessage_PVT;
290: x_return_status := FND_API.G_RET_STS_ERROR ;
288: WHEN OES_DOWN THEN
289: ROLLBACK TO moveMessage_PVT;
290: x_return_status := FND_API.G_RET_STS_ERROR ;
291: FND_MESSAGE.SET_NAME('IEM', 'IEM_OES_DOWN');
292: FND_MSG_PUB.ADD;
293: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
294:
295: WHEN FND_API.G_EXC_ERROR THEN
296: ROLLBACK TO moveMessage_PVT;
289: ROLLBACK TO moveMessage_PVT;
290: x_return_status := FND_API.G_RET_STS_ERROR ;
291: FND_MESSAGE.SET_NAME('IEM', 'IEM_OES_DOWN');
292: FND_MSG_PUB.ADD;
293: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
294:
295: WHEN FND_API.G_EXC_ERROR THEN
296: ROLLBACK TO moveMessage_PVT;
297: x_return_status := FND_API.G_RET_STS_ERROR ;
294:
295: WHEN FND_API.G_EXC_ERROR THEN
296: ROLLBACK TO moveMessage_PVT;
297: x_return_status := FND_API.G_RET_STS_ERROR ;
298: FND_MSG_PUB.Count_And_Get
299: ( p_count => x_msg_count,
300: p_data => x_msg_data
301: );
302: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
301: );
302: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
303: ROLLBACK TO moveMessage_PVT;
304: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
305: FND_MSG_PUB.Count_And_Get
306: ( p_count => x_msg_count,
307: p_data => x_msg_data
308: );
309: WHEN OTHERS THEN
308: );
309: WHEN OTHERS THEN
310: ROLLBACK TO moveMessage_PVT;
311: x_return_status := FND_API.G_RET_STS_ERROR;
312: IF FND_MSG_PUB.Check_Msg_Level
313: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
314: THEN
315: FND_MSG_PUB.Add_Exc_Msg
316: ( G_PKG_NAME ,
309: WHEN OTHERS THEN
310: ROLLBACK TO moveMessage_PVT;
311: x_return_status := FND_API.G_RET_STS_ERROR;
312: IF FND_MSG_PUB.Check_Msg_Level
313: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
314: THEN
315: FND_MSG_PUB.Add_Exc_Msg
316: ( G_PKG_NAME ,
317: l_api_name
311: x_return_status := FND_API.G_RET_STS_ERROR;
312: IF FND_MSG_PUB.Check_Msg_Level
313: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
314: THEN
315: FND_MSG_PUB.Add_Exc_Msg
316: ( G_PKG_NAME ,
317: l_api_name
318: );
319: END IF;
316: ( G_PKG_NAME ,
317: l_api_name
318: );
319: END IF;
320: FND_MSG_PUB.Count_And_Get
321: ( p_count => x_msg_count ,
322: p_data => x_msg_data
323: );
324: