150: -- Standard Start of API savepoint
151: SAVEPOINT CREATE_GROUP_CHECKS_PUB;
152:
153: -- Standard call to check for call compatibility.
154: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
155: p_api_version_number,
156: l_api_name,
157: G_PKG_NAME)
158: THEN
155: p_api_version_number,
156: l_api_name,
157: G_PKG_NAME)
158: THEN
159: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
160: END IF;
161:
162:
163: -- Initialize message list if p_init_msg_list is set to TRUE.
160: END IF;
161:
162:
163: -- Initialize message list if p_init_msg_list is set to TRUE.
164: IF FND_API.to_Boolean( p_init_msg_list )
165: THEN
166: FND_MSG_PUB.initialize;
167: END IF;
168:
168:
169:
170:
171: -- Initialize API return status to SUCCESS
172: x_return_status := FND_API.G_RET_STS_SUCCESS;
173:
174: --
175: -- API body
176: --
192:
193:
194:
195: -- Check return status from the above procedure call
196: IF x_return_status = FND_API.G_RET_STS_ERROR then
197: raise FND_API.G_EXC_ERROR;
198: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
199: raise FND_API.G_EXC_UNEXPECTED_ERROR;
200: END IF;
193:
194:
195: -- Check return status from the above procedure call
196: IF x_return_status = FND_API.G_RET_STS_ERROR then
197: raise FND_API.G_EXC_ERROR;
198: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
199: raise FND_API.G_EXC_UNEXPECTED_ERROR;
200: END IF;
201:
194:
195: -- Check return status from the above procedure call
196: IF x_return_status = FND_API.G_RET_STS_ERROR then
197: raise FND_API.G_EXC_ERROR;
198: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
199: raise FND_API.G_EXC_UNEXPECTED_ERROR;
200: END IF;
201:
202: --
195: -- Check return status from the above procedure call
196: IF x_return_status = FND_API.G_RET_STS_ERROR then
197: raise FND_API.G_EXC_ERROR;
198: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
199: raise FND_API.G_EXC_UNEXPECTED_ERROR;
200: END IF;
201:
202: --
203: -- End of API body.
203: -- End of API body.
204: --
205:
206: -- Standard check for p_commit
207: IF FND_API.to_Boolean( p_commit )
208: THEN
209: COMMIT WORK;
210: END IF;
211:
216: p_data => x_msg_data
217: );
218:
219: EXCEPTION
220: WHEN FND_API.G_EXC_ERROR THEN
221: ROLLBACK TO Create_group_checks_PUB;
222: x_return_status := FND_API.G_RET_STS_ERROR;
223: FND_MSG_PUB.Count_And_Get
224: ( p_count => x_msg_count,
218:
219: EXCEPTION
220: WHEN FND_API.G_EXC_ERROR THEN
221: ROLLBACK TO Create_group_checks_PUB;
222: x_return_status := FND_API.G_RET_STS_ERROR;
223: FND_MSG_PUB.Count_And_Get
224: ( p_count => x_msg_count,
225: p_data => x_msg_data
226: );
223: FND_MSG_PUB.Count_And_Get
224: ( p_count => x_msg_count,
225: p_data => x_msg_data
226: );
227: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
228: ROLLBACK TO Create_group_checks_PUB;
229: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
230: FND_MSG_PUB.Count_And_Get
231: ( p_count => x_msg_count,
225: p_data => x_msg_data
226: );
227: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
228: ROLLBACK TO Create_group_checks_PUB;
229: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
230: FND_MSG_PUB.Count_And_Get
231: ( p_count => x_msg_count,
232: p_data => x_msg_data
233: );
232: p_data => x_msg_data
233: );
234: WHEN OTHERS THEN
235: ROLLBACK TO Create_group_checks_PUB;
236: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
237: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
238: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
239: END IF;
240: FND_MSG_PUB.Count_And_Get
319: -- Standard Start of API savepoint
320: SAVEPOINT UPDATE_GROUP_CHECKS_PUB;
321:
322: -- Standard call to check for call compatibility.
323: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
324: p_api_version_number,
325: l_api_name,
326: G_PKG_NAME)
327: THEN
324: p_api_version_number,
325: l_api_name,
326: G_PKG_NAME)
327: THEN
328: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
329: END IF;
330:
331:
332: -- Initialize message list if p_init_msg_list is set to TRUE.
329: END IF;
330:
331:
332: -- Initialize message list if p_init_msg_list is set to TRUE.
333: IF FND_API.to_Boolean( p_init_msg_list )
334: THEN
335: FND_MSG_PUB.initialize;
336: END IF;
337:
336: END IF;
337:
338:
339: -- Initialize API return status to SUCCESS
340: x_return_status := FND_API.G_RET_STS_SUCCESS;
341:
342: --
343: -- API body
344: --
360:
361:
362:
363: -- Check return status from the above procedure call
364: IF x_return_status = FND_API.G_RET_STS_ERROR then
365: raise FND_API.G_EXC_ERROR;
366: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
367: raise FND_API.G_EXC_UNEXPECTED_ERROR;
368: END IF;
361:
362:
363: -- Check return status from the above procedure call
364: IF x_return_status = FND_API.G_RET_STS_ERROR then
365: raise FND_API.G_EXC_ERROR;
366: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
367: raise FND_API.G_EXC_UNEXPECTED_ERROR;
368: END IF;
369:
362:
363: -- Check return status from the above procedure call
364: IF x_return_status = FND_API.G_RET_STS_ERROR then
365: raise FND_API.G_EXC_ERROR;
366: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
367: raise FND_API.G_EXC_UNEXPECTED_ERROR;
368: END IF;
369:
370: --
363: -- Check return status from the above procedure call
364: IF x_return_status = FND_API.G_RET_STS_ERROR then
365: raise FND_API.G_EXC_ERROR;
366: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
367: raise FND_API.G_EXC_UNEXPECTED_ERROR;
368: END IF;
369:
370: --
371: -- End of API body
371: -- End of API body
372: --
373:
374: -- Standard check for p_commit
375: IF FND_API.to_Boolean( p_commit )
376: THEN
377: COMMIT WORK;
378: END IF;
379:
384: p_data => x_msg_data
385: );
386:
387: EXCEPTION
388: WHEN FND_API.G_EXC_ERROR THEN
389: ROLLBACK TO Update_group_checks_PUB;
390: x_return_status := FND_API.G_RET_STS_ERROR;
391: FND_MSG_PUB.Count_And_Get
392: ( p_count => x_msg_count,
386:
387: EXCEPTION
388: WHEN FND_API.G_EXC_ERROR THEN
389: ROLLBACK TO Update_group_checks_PUB;
390: x_return_status := FND_API.G_RET_STS_ERROR;
391: FND_MSG_PUB.Count_And_Get
392: ( p_count => x_msg_count,
393: p_data => x_msg_data
394: );
391: FND_MSG_PUB.Count_And_Get
392: ( p_count => x_msg_count,
393: p_data => x_msg_data
394: );
395: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
396: ROLLBACK TO Update_group_checks_PUB;
397: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
398: FND_MSG_PUB.Count_And_Get
399: ( p_count => x_msg_count,
393: p_data => x_msg_data
394: );
395: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
396: ROLLBACK TO Update_group_checks_PUB;
397: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
398: FND_MSG_PUB.Count_And_Get
399: ( p_count => x_msg_count,
400: p_data => x_msg_data
401: );
400: p_data => x_msg_data
401: );
402: WHEN OTHERS THEN
403: ROLLBACK TO Update_group_checks_PUB;
404: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
405: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
406: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
407: END IF;
408: FND_MSG_PUB.Count_And_Get
432: -- Standard Start of API savepoint
433: SAVEPOINT DELETE_GROUP_CHECKS_PUB;
434:
435: -- Standard call to check for call compatibility.
436: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
437: p_api_version_number,
438: l_api_name,
439: G_PKG_NAME)
440: THEN
437: p_api_version_number,
438: l_api_name,
439: G_PKG_NAME)
440: THEN
441: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
442: END IF;
443:
444:
445: -- Initialize message list if p_init_msg_list is set to TRUE.
442: END IF;
443:
444:
445: -- Initialize message list if p_init_msg_list is set to TRUE.
446: IF FND_API.to_Boolean( p_init_msg_list )
447: THEN
448: FND_MSG_PUB.initialize;
449: END IF;
450:
450:
451:
452:
453: -- Initialize API return status to SUCCESS
454: x_return_status := FND_API.G_RET_STS_SUCCESS;
455:
456: --
457: -- API body
458: --
470: X_Msg_Data => x_msg_data);
471:
472:
473: -- Check return status from the above procedure call
474: IF x_return_status = FND_API.G_RET_STS_ERROR then
475: raise FND_API.G_EXC_ERROR;
476: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
477: raise FND_API.G_EXC_UNEXPECTED_ERROR;
478: END IF;
471:
472:
473: -- Check return status from the above procedure call
474: IF x_return_status = FND_API.G_RET_STS_ERROR then
475: raise FND_API.G_EXC_ERROR;
476: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
477: raise FND_API.G_EXC_UNEXPECTED_ERROR;
478: END IF;
479:
472:
473: -- Check return status from the above procedure call
474: IF x_return_status = FND_API.G_RET_STS_ERROR then
475: raise FND_API.G_EXC_ERROR;
476: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
477: raise FND_API.G_EXC_UNEXPECTED_ERROR;
478: END IF;
479:
480: --
473: -- Check return status from the above procedure call
474: IF x_return_status = FND_API.G_RET_STS_ERROR then
475: raise FND_API.G_EXC_ERROR;
476: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
477: raise FND_API.G_EXC_UNEXPECTED_ERROR;
478: END IF;
479:
480: --
481: -- End of API body
481: -- End of API body
482: --
483:
484: -- Standard check for p_commit
485: IF FND_API.to_Boolean( p_commit )
486: THEN
487: COMMIT WORK;
488: END IF;
489:
494: p_data => x_msg_data
495: );
496:
497: EXCEPTION
498: WHEN FND_API.G_EXC_ERROR THEN
499: ROLLBACK TO Delete_group_checks_PUB;
500: x_return_status := FND_API.G_RET_STS_ERROR;
501: FND_MSG_PUB.Count_And_Get
502: ( p_count => x_msg_count,
496:
497: EXCEPTION
498: WHEN FND_API.G_EXC_ERROR THEN
499: ROLLBACK TO Delete_group_checks_PUB;
500: x_return_status := FND_API.G_RET_STS_ERROR;
501: FND_MSG_PUB.Count_And_Get
502: ( p_count => x_msg_count,
503: p_data => x_msg_data
504: );
501: FND_MSG_PUB.Count_And_Get
502: ( p_count => x_msg_count,
503: p_data => x_msg_data
504: );
505: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
506: ROLLBACK TO Delete_group_checks_PUB;
507: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
508: FND_MSG_PUB.Count_And_Get
509: ( p_count => x_msg_count,
503: p_data => x_msg_data
504: );
505: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
506: ROLLBACK TO Delete_group_checks_PUB;
507: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
508: FND_MSG_PUB.Count_And_Get
509: ( p_count => x_msg_count,
510: p_data => x_msg_data
511: );
510: p_data => x_msg_data
511: );
512: WHEN OTHERS THEN
513: ROLLBACK TO Delete_group_checks_PUB;
514: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
515: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
516: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
517: END IF;
518: FND_MSG_PUB.Count_And_Get