52: END IF;
53: -- Initialize message list if p_init_msg_list is set to TRUE.
54: IF FND_API.to_Boolean( p_init_msg_list )
55: THEN
56: FND_MSG_PUB.initialize;
57: END IF;
58: -- Initialize API return status to SUCCESS
59: x_return_status := FND_API.G_RET_STS_SUCCESS;
60:
133: IF FND_API.To_Boolean(p_commit) THEN
134: COMMIT WORK;
135: END IF;
136: -- Standard callto get message count and if count is 1, get message info.
137: FND_MSG_PUB.Count_And_Get
138: ( p_count => x_msg_count,
139: p_data => x_msg_data
140: );
141: EXCEPTION
141: EXCEPTION
142: WHEN DUP_VAL_ON_INDEX THEN
143: ROLLBACK TO create_item_pvt;
144: FND_MESSAGE.SET_NAME('IEM','IEM_ADMIN_GRP_DUP_RECORD');
145: FND_MSG_PUB.Add;
146: x_return_status := FND_API.G_RET_STS_ERROR ;
147: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
148:
149: WHEN FND_API.G_EXC_ERROR THEN
143: ROLLBACK TO create_item_pvt;
144: FND_MESSAGE.SET_NAME('IEM','IEM_ADMIN_GRP_DUP_RECORD');
145: FND_MSG_PUB.Add;
146: x_return_status := FND_API.G_RET_STS_ERROR ;
147: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
148:
149: WHEN FND_API.G_EXC_ERROR THEN
150: ROLLBACK TO create_item_PVT;
151: x_return_status := FND_API.G_RET_STS_ERROR ;
148:
149: WHEN FND_API.G_EXC_ERROR THEN
150: ROLLBACK TO create_item_PVT;
151: x_return_status := FND_API.G_RET_STS_ERROR ;
152: FND_MSG_PUB.Count_And_Get
153: ( p_count => x_msg_count,
154: p_data => x_msg_data
155: );
156: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
155: );
156: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
157: ROLLBACK TO create_item_PVT;
158: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
159: FND_MSG_PUB.Count_And_Get
160: ( p_count => x_msg_count,
161: p_data => x_msg_data
162: );
163: WHEN OTHERS THEN
162: );
163: WHEN OTHERS THEN
164: ROLLBACK TO create_item_PVT;
165: x_return_status := FND_API.G_RET_STS_ERROR;
166: IF FND_MSG_PUB.Check_Msg_Level
167: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
168: THEN
169: FND_MSG_PUB.Add_Exc_Msg
170: ( G_PKG_NAME ,
163: WHEN OTHERS THEN
164: ROLLBACK TO create_item_PVT;
165: x_return_status := FND_API.G_RET_STS_ERROR;
166: IF FND_MSG_PUB.Check_Msg_Level
167: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
168: THEN
169: FND_MSG_PUB.Add_Exc_Msg
170: ( G_PKG_NAME ,
171: l_api_name
165: x_return_status := FND_API.G_RET_STS_ERROR;
166: IF FND_MSG_PUB.Check_Msg_Level
167: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
168: THEN
169: FND_MSG_PUB.Add_Exc_Msg
170: ( G_PKG_NAME ,
171: l_api_name
172: );
173: END IF;
170: ( G_PKG_NAME ,
171: l_api_name
172: );
173: END IF;
174: FND_MSG_PUB.Count_And_Get
175: ( p_count => x_msg_count ,
176: p_data => x_msg_data
177: );
178:
204: END IF;
205: -- Initialize message list if p_init_msg_list is set to TRUE.
206: IF FND_API.to_Boolean( p_init_msg_list )
207: THEN
208: FND_MSG_PUB.initialize;
209: END IF;
210: -- Initialize API return status to SUCCESS
211: x_return_status := FND_API.G_RET_STS_SUCCESS;
212:
222: IF FND_API.To_Boolean(p_commit) THEN
223: COMMIT WORK;
224: END IF;
225: -- Standard callto get message count and if count is 1, get message info.
226: FND_MSG_PUB.Count_And_Get
227: ( p_count => x_msg_count,
228: p_data => x_msg_data
229: );
230: EXCEPTION
230: EXCEPTION
231: WHEN FND_API.G_EXC_ERROR THEN
232: ROLLBACK TO delete_item_PVT;
233: x_return_status := FND_API.G_RET_STS_ERROR ;
234: FND_MSG_PUB.Count_And_Get
235: ( p_count => x_msg_count,
236: p_data => x_msg_data
237: );
238: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
237: );
238: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
239: ROLLBACK TO delete_item_PVT;
240: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
241: FND_MSG_PUB.Count_And_Get
242: ( p_count => x_msg_count,
243: p_data => x_msg_data
244: );
245: WHEN OTHERS THEN
244: );
245: WHEN OTHERS THEN
246: ROLLBACK TO delete_item_PVT;
247: x_return_status := FND_API.G_RET_STS_ERROR;
248: IF FND_MSG_PUB.Check_Msg_Level
249: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
250: THEN
251: FND_MSG_PUB.Add_Exc_Msg
252: ( G_PKG_NAME ,
245: WHEN OTHERS THEN
246: ROLLBACK TO delete_item_PVT;
247: x_return_status := FND_API.G_RET_STS_ERROR;
248: IF FND_MSG_PUB.Check_Msg_Level
249: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
250: THEN
251: FND_MSG_PUB.Add_Exc_Msg
252: ( G_PKG_NAME ,
253: l_api_name
247: x_return_status := FND_API.G_RET_STS_ERROR;
248: IF FND_MSG_PUB.Check_Msg_Level
249: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
250: THEN
251: FND_MSG_PUB.Add_Exc_Msg
252: ( G_PKG_NAME ,
253: l_api_name
254: );
255: END IF;
252: ( G_PKG_NAME ,
253: l_api_name
254: );
255: END IF;
256: FND_MSG_PUB.Count_And_Get
257: ( p_count => x_msg_count ,
258: p_data => x_msg_data
259: );
260:
311: END IF;
312: -- Initialize message list if p_init_msg_list is set to TRUE.
313: IF FND_API.to_Boolean( p_init_msg_list )
314: THEN
315: FND_MSG_PUB.initialize;
316: END IF;
317: -- Initialize API return status to SUCCESS
318: x_return_status := FND_API.G_RET_STS_SUCCESS;
319:
383: IF FND_API.To_Boolean(p_commit) THEN
384: COMMIT WORK;
385: END IF;
386: -- Standard callto get message count and if count is 1, get message info.
387: FND_MSG_PUB.Count_And_Get
388: ( p_count => x_msg_count,
389: p_data => x_msg_data
390: );
391: EXCEPTION
391: EXCEPTION
392: WHEN DUP_VAL_ON_INDEX THEN
393: ROLLBACK TO update_item_pvt;
394: FND_MESSAGE.SET_NAME('IEM','IEM_ADMIN_GRP_DUP_RECORD');
395: FND_MSG_PUB.Add;
396: x_return_status := FND_API.G_RET_STS_ERROR ;
397: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
398:
399:
393: ROLLBACK TO update_item_pvt;
394: FND_MESSAGE.SET_NAME('IEM','IEM_ADMIN_GRP_DUP_RECORD');
395: FND_MSG_PUB.Add;
396: x_return_status := FND_API.G_RET_STS_ERROR ;
397: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
398:
399:
400: WHEN FND_API.G_EXC_ERROR THEN
401: ROLLBACK TO update_item_PVT;
399:
400: WHEN FND_API.G_EXC_ERROR THEN
401: ROLLBACK TO update_item_PVT;
402: x_return_status := FND_API.G_RET_STS_ERROR ;
403: FND_MSG_PUB.Count_And_Get
404: ( p_count => x_msg_count,
405: p_data => x_msg_data
406: );
407: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
406: );
407: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
408: ROLLBACK TO update_item_PVT;
409: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
410: FND_MSG_PUB.Count_And_Get
411: ( p_count => x_msg_count,
412: p_data => x_msg_data
413: );
414: WHEN OTHERS THEN
413: );
414: WHEN OTHERS THEN
415: ROLLBACK TO update_item_PVT;
416: x_return_status := FND_API.G_RET_STS_ERROR;
417: IF FND_MSG_PUB.Check_Msg_Level
418: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
419: THEN
420: FND_MSG_PUB.Add_Exc_Msg
421: ( G_PKG_NAME ,
414: WHEN OTHERS THEN
415: ROLLBACK TO update_item_PVT;
416: x_return_status := FND_API.G_RET_STS_ERROR;
417: IF FND_MSG_PUB.Check_Msg_Level
418: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
419: THEN
420: FND_MSG_PUB.Add_Exc_Msg
421: ( G_PKG_NAME ,
422: l_api_name
416: x_return_status := FND_API.G_RET_STS_ERROR;
417: IF FND_MSG_PUB.Check_Msg_Level
418: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
419: THEN
420: FND_MSG_PUB.Add_Exc_Msg
421: ( G_PKG_NAME ,
422: l_api_name
423: );
424: END IF;
421: ( G_PKG_NAME ,
422: l_api_name
423: );
424: END IF;
425: FND_MSG_PUB.Count_And_Get
426: ( p_count => x_msg_count ,
427: p_data => x_msg_data
428: );
429:
458: END IF;
459:
460: --Initialize the message list if p_init_msg_list is set to TRUE
461: If FND_API.to_Boolean(p_init_msg_list) THEN
462: FND_MSG_PUB.initialize;
463: END IF;
464:
465: --Initialize API status return
466: x_return_status := FND_API.G_RET_STS_SUCCESS;
486: WHEN SERVER_GROUP_NOT_DELETED THEN
487: ROLLBACK TO delete_item_batch;
488: x_return_status := FND_API.G_RET_STS_ERROR;
489: FND_MESSAGE.SET_NAME('IEM', 'IEM_SERVER_GROUP_NOT_DELETED');
490: FND_MSG_PUB.ADD;
491: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
492:
493: WHEN FND_API.G_EXC_ERROR THEN
494: ROLLBACK TO delete_item_batch;
487: ROLLBACK TO delete_item_batch;
488: x_return_status := FND_API.G_RET_STS_ERROR;
489: FND_MESSAGE.SET_NAME('IEM', 'IEM_SERVER_GROUP_NOT_DELETED');
490: FND_MSG_PUB.ADD;
491: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
492:
493: WHEN FND_API.G_EXC_ERROR THEN
494: ROLLBACK TO delete_item_batch;
495: x_return_status := FND_API.G_RET_STS_ERROR ;
492:
493: WHEN FND_API.G_EXC_ERROR THEN
494: ROLLBACK TO delete_item_batch;
495: x_return_status := FND_API.G_RET_STS_ERROR ;
496: FND_MSG_PUB.Count_And_Get
497: ( p_count => x_msg_count,p_data => x_msg_data);
498:
499: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
500: ROLLBACK TO delete_item_batch;
498:
499: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
500: ROLLBACK TO delete_item_batch;
501: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
502: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,p_data => x_msg_data);
503:
504: WHEN OTHERS THEN
505: ROLLBACK TO delete_item_batch;
506: x_return_status := FND_API.G_RET_STS_ERROR;
503:
504: WHEN OTHERS THEN
505: ROLLBACK TO delete_item_batch;
506: x_return_status := FND_API.G_RET_STS_ERROR;
507: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
508: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME , l_api_name);
509: END IF;
510:
511: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count ,p_data => x_msg_data);
504: WHEN OTHERS THEN
505: ROLLBACK TO delete_item_batch;
506: x_return_status := FND_API.G_RET_STS_ERROR;
507: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
508: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME , l_api_name);
509: END IF;
510:
511: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count ,p_data => x_msg_data);
512:
507: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
508: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME , l_api_name);
509: END IF;
510:
511: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count ,p_data => x_msg_data);
512:
513: END delete_item_batch;
514: END IEM_EMC_SERVERS_PVT ;