3:
4: G_PKG_NAME CONSTANT VARCHAR2(30):= 'IGC_CC_SEC_GROUP_PKG';
5:
6: PROCEDURE Insert_Row( p_api_version IN NUMBER,
7: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
8: p_commit IN VARCHAR2 := FND_API.G_FALSE,
9: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
10: p_return_status OUT NOCOPY VARCHAR2,
11: p_msg_count OUT NOCOPY NUMBER,
4: G_PKG_NAME CONSTANT VARCHAR2(30):= 'IGC_CC_SEC_GROUP_PKG';
5:
6: PROCEDURE Insert_Row( p_api_version IN NUMBER,
7: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
8: p_commit IN VARCHAR2 := FND_API.G_FALSE,
9: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
10: p_return_status OUT NOCOPY VARCHAR2,
11: p_msg_count OUT NOCOPY NUMBER,
12: p_msg_data OUT NOCOPY VARCHAR2,
5:
6: PROCEDURE Insert_Row( p_api_version IN NUMBER,
7: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
8: p_commit IN VARCHAR2 := FND_API.G_FALSE,
9: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
10: p_return_status OUT NOCOPY VARCHAR2,
11: p_msg_count OUT NOCOPY NUMBER,
12: p_msg_data OUT NOCOPY VARCHAR2,
13:
47: BEGIN
48:
49: SAVEPOINT Insert_Row_Pvt ;
50:
51: IF NOT FND_API.Compatible_API_Call ( l_api_version,
52: p_api_version,
53: l_api_name,
54: G_PKG_NAME )
55: THEN
52: p_api_version,
53: l_api_name,
54: G_PKG_NAME )
55: THEN
56: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
57: END IF;
58:
59:
60: IF FND_API.to_Boolean ( p_init_msg_list ) THEN
56: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
57: END IF;
58:
59:
60: IF FND_API.to_Boolean ( p_init_msg_list ) THEN
61: FND_MSG_PUB.initialize ;
62: END IF;
63:
64: p_return_status := FND_API.G_RET_STS_SUCCESS ;
60: IF FND_API.to_Boolean ( p_init_msg_list ) THEN
61: FND_MSG_PUB.initialize ;
62: END IF;
63:
64: p_return_status := FND_API.G_RET_STS_SUCCESS ;
65:
66:
67: INSERT INTO IGC_CC_GROUPS(
68: CC_GROUP_ID,
123: Raise NO_DATA_FOUND;
124: END IF;
125: CLOSE C;
126:
127: IF FND_API.To_Boolean ( p_commit ) THEN
128: COMMIT WORK;
129: END iF;
130:
131: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
131: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
132: p_data => p_msg_data );
133: EXCEPTION
134:
135: WHEN FND_API.G_EXC_ERROR THEN
136:
137: ROLLBACK TO Insert_Row_Pvt ;
138: p_return_status := FND_API.G_RET_STS_ERROR;
139: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
134:
135: WHEN FND_API.G_EXC_ERROR THEN
136:
137: ROLLBACK TO Insert_Row_Pvt ;
138: p_return_status := FND_API.G_RET_STS_ERROR;
139: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
140: p_data => p_msg_data );
141:
142: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
138: p_return_status := FND_API.G_RET_STS_ERROR;
139: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
140: p_data => p_msg_data );
141:
142: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
143:
144: ROLLBACK TO Insert_Row_Pvt ;
145: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
146: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
141:
142: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
143:
144: ROLLBACK TO Insert_Row_Pvt ;
145: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
146: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
147: p_data => p_msg_data );
148:
149: WHEN OTHERS THEN
148:
149: WHEN OTHERS THEN
150:
151: ROLLBACK TO Insert_Row_Pvt ;
152: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
153:
154: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
155: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
156: l_api_name);
162:
163: END Insert_Row;
164:
165: PROCEDURE Update_Row( p_api_version IN NUMBER,
166: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
167: p_commit IN VARCHAR2 := FND_API.G_FALSE,
168: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
169: p_return_status OUT NOCOPY VARCHAR2,
170: p_msg_count OUT NOCOPY NUMBER,
163: END Insert_Row;
164:
165: PROCEDURE Update_Row( p_api_version IN NUMBER,
166: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
167: p_commit IN VARCHAR2 := FND_API.G_FALSE,
168: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
169: p_return_status OUT NOCOPY VARCHAR2,
170: p_msg_count OUT NOCOPY NUMBER,
171: p_msg_data OUT NOCOPY VARCHAR2,
164:
165: PROCEDURE Update_Row( p_api_version IN NUMBER,
166: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
167: p_commit IN VARCHAR2 := FND_API.G_FALSE,
168: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
169: p_return_status OUT NOCOPY VARCHAR2,
170: p_msg_count OUT NOCOPY NUMBER,
171: p_msg_data OUT NOCOPY VARCHAR2,
172:
201: BEGIN
202:
203: SAVEPOINT Update_Row_Pvt ;
204:
205: IF NOT FND_API.Compatible_API_Call ( l_api_version,
206: p_api_version,
207: l_api_name,
208: G_PKG_NAME )
209: THEN
206: p_api_version,
207: l_api_name,
208: G_PKG_NAME )
209: THEN
210: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
211: END IF;
212:
213:
214: IF FND_API.to_Boolean ( p_init_msg_list ) THEN
210: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
211: END IF;
212:
213:
214: IF FND_API.to_Boolean ( p_init_msg_list ) THEN
215: FND_MSG_PUB.initialize ;
216: END IF;
217:
218: p_return_status := FND_API.G_RET_STS_SUCCESS ;
214: IF FND_API.to_Boolean ( p_init_msg_list ) THEN
215: FND_MSG_PUB.initialize ;
216: END IF;
217:
218: p_return_status := FND_API.G_RET_STS_SUCCESS ;
219:
220: UPDATE IGC_CC_GROUPS
221: SET
222: CC_GROUP_ID = P_CC_GROUP_ID,
247: IF (SQL%NOTFOUND) THEN
248: RAISE NO_DATA_FOUND;
249: END IF;
250:
251: IF FND_API.To_Boolean ( p_commit ) THEN
252: COMMIT WORK;
253: END iF;
254:
255: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
256: p_data => p_msg_data );
257:
258: EXCEPTION
259:
260: WHEN FND_API.G_EXC_ERROR THEN
261:
262: ROLLBACK TO Update_Row_Pvt ;
263: p_return_status := FND_API.G_RET_STS_ERROR;
264: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
259:
260: WHEN FND_API.G_EXC_ERROR THEN
261:
262: ROLLBACK TO Update_Row_Pvt ;
263: p_return_status := FND_API.G_RET_STS_ERROR;
264: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
265: p_data => p_msg_data );
266:
267: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
263: p_return_status := FND_API.G_RET_STS_ERROR;
264: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
265: p_data => p_msg_data );
266:
267: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
268:
269: ROLLBACK TO Update_Row_Pvt ;
270: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
271: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
266:
267: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
268:
269: ROLLBACK TO Update_Row_Pvt ;
270: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
271: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
272: p_data => p_msg_data );
273:
274: WHEN OTHERS THEN
273:
274: WHEN OTHERS THEN
275:
276: ROLLBACK TO Update_Row_Pvt ;
277: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
278:
279: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
280: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
281: l_api_name);
287: END Update_Row;
288:
289:
290: PROCEDURE Lock_Row( p_api_version IN NUMBER,
291: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
292: p_commit IN VARCHAR2 := FND_API.G_FALSE,
293: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
294: p_return_status OUT NOCOPY VARCHAR2,
295: p_msg_count OUT NOCOPY NUMBER,
288:
289:
290: PROCEDURE Lock_Row( p_api_version IN NUMBER,
291: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
292: p_commit IN VARCHAR2 := FND_API.G_FALSE,
293: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
294: p_return_status OUT NOCOPY VARCHAR2,
295: p_msg_count OUT NOCOPY NUMBER,
296: p_msg_data OUT NOCOPY VARCHAR2,
289:
290: PROCEDURE Lock_Row( p_api_version IN NUMBER,
291: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
292: p_commit IN VARCHAR2 := FND_API.G_FALSE,
293: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
294: p_return_status OUT NOCOPY VARCHAR2,
295: p_msg_count OUT NOCOPY NUMBER,
296: p_msg_data OUT NOCOPY VARCHAR2,
297:
352: BEGIN
353:
354: SAVEPOINT Lock_Row_Pvt ;
355:
356: IF NOT FND_API.Compatible_API_Call ( l_api_version,
357: p_api_version,
358: l_api_name,
359: G_PKG_NAME )
360: THEN
357: p_api_version,
358: l_api_name,
359: G_PKG_NAME )
360: THEN
361: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
362: END IF;
363:
364:
365: IF FND_API.to_Boolean ( p_init_msg_list ) THEN
361: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
362: END IF;
363:
364:
365: IF FND_API.to_Boolean ( p_init_msg_list ) THEN
366: FND_MSG_PUB.initialize ;
367: END IF;
368:
369: p_return_status := FND_API.G_RET_STS_SUCCESS ;
365: IF FND_API.to_Boolean ( p_init_msg_list ) THEN
366: FND_MSG_PUB.initialize ;
367: END IF;
368:
369: p_return_status := FND_API.G_RET_STS_SUCCESS ;
370: p_row_locked := FND_API.G_TRUE ;
371:
372: OPEN C;
373: FETCH C INTO Recinfo;
366: FND_MSG_PUB.initialize ;
367: END IF;
368:
369: p_return_status := FND_API.G_RET_STS_SUCCESS ;
370: p_row_locked := FND_API.G_TRUE ;
371:
372: OPEN C;
373: FETCH C INTO Recinfo;
374: IF (C%NOTFOUND) THEN
437: RETURN;
438: ELSE
439: fnd_message.set_name('FND', 'FORM_RECORD_CHANGED');
440: FND_MSG_PUB.Add;
441: RAISE FND_API.G_EXC_ERROR ;
442: -- APP_EXCEPTION.RAISE_EXCEPTION;
443: END IF;
444:
445: IF FND_API.To_Boolean ( p_commit ) THEN
441: RAISE FND_API.G_EXC_ERROR ;
442: -- APP_EXCEPTION.RAISE_EXCEPTION;
443: END IF;
444:
445: IF FND_API.To_Boolean ( p_commit ) THEN
446: COMMIT WORK;
447: END iF;
448:
449: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
453:
454: WHEN APP_EXCEPTION.RECORD_LOCK_EXCEPTION THEN
455:
456: ROLLBACK TO Lock_Row_Pvt ;
457: p_row_locked := FND_API.G_FALSE;
458: p_return_status := FND_API.G_RET_STS_ERROR;
459: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
460: p_data => p_msg_data );
461:
454: WHEN APP_EXCEPTION.RECORD_LOCK_EXCEPTION THEN
455:
456: ROLLBACK TO Lock_Row_Pvt ;
457: p_row_locked := FND_API.G_FALSE;
458: p_return_status := FND_API.G_RET_STS_ERROR;
459: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
460: p_data => p_msg_data );
461:
462: WHEN FND_API.G_EXC_ERROR THEN
458: p_return_status := FND_API.G_RET_STS_ERROR;
459: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
460: p_data => p_msg_data );
461:
462: WHEN FND_API.G_EXC_ERROR THEN
463:
464: ROLLBACK TO Lock_Row_Pvt ;
465: p_return_status := FND_API.G_RET_STS_ERROR;
466: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
461:
462: WHEN FND_API.G_EXC_ERROR THEN
463:
464: ROLLBACK TO Lock_Row_Pvt ;
465: p_return_status := FND_API.G_RET_STS_ERROR;
466: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
467: p_data => p_msg_data );
468:
469: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
465: p_return_status := FND_API.G_RET_STS_ERROR;
466: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
467: p_data => p_msg_data );
468:
469: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
470:
471: ROLLBACK TO Lock_Row_Pvt ;
472: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
473: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
468:
469: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
470:
471: ROLLBACK TO Lock_Row_Pvt ;
472: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
473: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
474: p_data => p_msg_data );
475:
476: WHEN OTHERS THEN
475:
476: WHEN OTHERS THEN
477:
478: ROLLBACK TO Lock_Row_Pvt ;
479: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
480:
481: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
482: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
483: l_api_name);
490:
491:
492:
493: PROCEDURE Delete_Row( p_api_version IN NUMBER,
494: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
495: p_commit IN VARCHAR2 := FND_API.G_FALSE,
496: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
497: p_return_status OUT NOCOPY VARCHAR2,
498: p_msg_count OUT NOCOPY NUMBER,
491:
492:
493: PROCEDURE Delete_Row( p_api_version IN NUMBER,
494: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
495: p_commit IN VARCHAR2 := FND_API.G_FALSE,
496: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
497: p_return_status OUT NOCOPY VARCHAR2,
498: p_msg_count OUT NOCOPY NUMBER,
499: p_msg_data OUT NOCOPY VARCHAR2,
492:
493: PROCEDURE Delete_Row( p_api_version IN NUMBER,
494: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
495: p_commit IN VARCHAR2 := FND_API.G_FALSE,
496: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
497: p_return_status OUT NOCOPY VARCHAR2,
498: p_msg_count OUT NOCOPY NUMBER,
499: p_msg_data OUT NOCOPY VARCHAR2,
500:
512: BEGIN
513:
514: SAVEPOINT Delete_Row_Pvt ;
515:
516: IF NOT FND_API.Compatible_API_Call ( l_api_version,
517: p_api_version,
518: l_api_name,
519: G_PKG_NAME )
520: THEN
517: p_api_version,
518: l_api_name,
519: G_PKG_NAME )
520: THEN
521: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
522: END IF;
523:
524:
525: IF FND_API.to_Boolean ( p_init_msg_list ) THEN
521: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
522: END IF;
523:
524:
525: IF FND_API.to_Boolean ( p_init_msg_list ) THEN
526: FND_MSG_PUB.initialize ;
527: END IF ;
528:
529: p_return_status := FND_API.G_RET_STS_SUCCESS ;
525: IF FND_API.to_Boolean ( p_init_msg_list ) THEN
526: FND_MSG_PUB.initialize ;
527: END IF ;
528:
529: p_return_status := FND_API.G_RET_STS_SUCCESS ;
530:
531: BEGIN
532: SELECT cc_group_id
533: INTO x_cc_group_id
555: RAISE NO_DATA_FOUND;
556: END IF;
557:
558:
559: IF FND_API.To_Boolean ( p_commit ) THEN
560: COMMIT WORK;
561: END iF;
562:
563: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
564: p_data => p_msg_data );
565:
566: EXCEPTION
567:
568: WHEN FND_API.G_EXC_ERROR THEN
569:
570: ROLLBACK TO Delete_Row_Pvt ;
571: p_return_status := FND_API.G_RET_STS_ERROR;
572: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
567:
568: WHEN FND_API.G_EXC_ERROR THEN
569:
570: ROLLBACK TO Delete_Row_Pvt ;
571: p_return_status := FND_API.G_RET_STS_ERROR;
572: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
573: p_data => p_msg_data );
574:
575: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
571: p_return_status := FND_API.G_RET_STS_ERROR;
572: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
573: p_data => p_msg_data );
574:
575: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
576:
577: ROLLBACK TO Delete_Row_Pvt ;
578: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
579: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
574:
575: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
576:
577: ROLLBACK TO Delete_Row_Pvt ;
578: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
579: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
580: p_data => p_msg_data );
581:
582: WHEN OTHERS THEN
581:
582: WHEN OTHERS THEN
583:
584: ROLLBACK TO Delete_Row_Pvt ;
585: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
586:
587: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
588: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
589: l_api_name);
596: END DELETE_ROW;
597:
598: PROCEDURE CHECK_UNIQUE(
599: -- p_api_version IN NUMBER,
600: -- p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
601: -- p_commit IN VARCHAR2 := FND_API.G_FALSE,
602: -- p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
603: -- p_return_status OUT NOCOPY VARCHAR2,
604: -- p_msg_count OUT NOCOPY NUMBER,
597:
598: PROCEDURE CHECK_UNIQUE(
599: -- p_api_version IN NUMBER,
600: -- p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
601: -- p_commit IN VARCHAR2 := FND_API.G_FALSE,
602: -- p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
603: -- p_return_status OUT NOCOPY VARCHAR2,
604: -- p_msg_count OUT NOCOPY NUMBER,
605: -- p_msg_data OUT NOCOPY VARCHAR2,
598: PROCEDURE CHECK_UNIQUE(
599: -- p_api_version IN NUMBER,
600: -- p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
601: -- p_commit IN VARCHAR2 := FND_API.G_FALSE,
602: -- p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
603: -- p_return_status OUT NOCOPY VARCHAR2,
604: -- p_msg_count OUT NOCOPY NUMBER,
605: -- p_msg_data OUT NOCOPY VARCHAR2,
606:
620: BEGIN
621:
622:
623: -- SAVEPOINT Check_Unique_Pvt ;
624: -- IF NOT FND_API.Compatible_API_Call ( l_api_version,
625: -- p_api_version,
626: -- l_api_name,
627: -- G_PKG_NAME )
628: -- THEN
625: -- p_api_version,
626: -- l_api_name,
627: -- G_PKG_NAME )
628: -- THEN
629: -- RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
630: -- END IF;
631:
632:
633: -- IF FND_API.to_Boolean ( p_init_msg_list ) THEN
629: -- RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
630: -- END IF;
631:
632:
633: -- IF FND_API.to_Boolean ( p_init_msg_list ) THEN
634: -- FND_MSG_PUB.initialize ;
635: -- END IF;
636:
637: -- p_return_status := FND_API.G_RET_STS_SUCCESS ;
633: -- IF FND_API.to_Boolean ( p_init_msg_list ) THEN
634: -- FND_MSG_PUB.initialize ;
635: -- END IF;
636:
637: -- p_return_status := FND_API.G_RET_STS_SUCCESS ;
638:
639: SELECT COUNT(1)
640: INTO DUMMY
641: FROM IGC_CC_GROUPS
651: APP_EXCEPTION.RAISE_EXCEPTION;
652:
653: END IF;
654:
655: -- IF FND_API.To_Boolean ( p_commit ) THEN
656: -- COMMIT WORK;
657:
658: -- END IF;
659:
662: --
663:
664: /* EXCEPTION
665:
666: WHEN FND_API.G_EXC_ERROR THEN
667:
668: ROLLBACK TO Check_Unique_Pvt ;
669: p_return_status := FND_API.G_RET_STS_ERROR;
670: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
665:
666: WHEN FND_API.G_EXC_ERROR THEN
667:
668: ROLLBACK TO Check_Unique_Pvt ;
669: p_return_status := FND_API.G_RET_STS_ERROR;
670: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
671: p_data => p_msg_data );
672:
673: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
669: p_return_status := FND_API.G_RET_STS_ERROR;
670: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
671: p_data => p_msg_data );
672:
673: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
674:
675: ROLLBACK TO Check_Unique_Pvt ;
676: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
677: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
672:
673: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
674:
675: ROLLBACK TO Check_Unique_Pvt ;
676: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
677: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
678: p_data => p_msg_data );
679:
680: WHEN OTHERS THEN
679:
680: WHEN OTHERS THEN
681:
682: ROLLBACK TO Check_Unique_Pvt ;
683: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
684:
685: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
686: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
687: l_api_name);