12: +=======================================================================*/
13: PROCEDURE Insert_Row
14: (
15: p_api_version IN NUMBER,
16: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
17: p_commit IN VARCHAR2 := FND_API.G_FALSE,
18: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
19: p_return_status OUT NOCOPY VARCHAR2,
20: p_msg_count OUT NOCOPY NUMBER,
13: PROCEDURE Insert_Row
14: (
15: p_api_version IN NUMBER,
16: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
17: p_commit IN VARCHAR2 := FND_API.G_FALSE,
18: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
19: p_return_status OUT NOCOPY VARCHAR2,
20: p_msg_count OUT NOCOPY NUMBER,
21: p_msg_data OUT NOCOPY VARCHAR2,
14: (
15: p_api_version IN NUMBER,
16: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
17: p_commit IN VARCHAR2 := FND_API.G_FALSE,
18: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
19: p_return_status OUT NOCOPY VARCHAR2,
20: p_msg_count OUT NOCOPY NUMBER,
21: p_msg_data OUT NOCOPY VARCHAR2,
22:
43: BEGIN
44:
45: SAVEPOINT Insert_Row_Pvt ;
46:
47: IF NOT FND_API.Compatible_API_Call ( l_api_version,
48: p_api_version,
49: l_api_name,
50: G_PKG_NAME )
51: THEN
48: p_api_version,
49: l_api_name,
50: G_PKG_NAME )
51: THEN
52: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
53: END IF;
54:
55:
56: IF FND_API.to_Boolean ( p_init_msg_list ) THEN
52: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
53: END IF;
54:
55:
56: IF FND_API.to_Boolean ( p_init_msg_list ) THEN
57: FND_MSG_PUB.initialize ;
58: END IF;
59:
60: p_return_status := FND_API.G_RET_STS_SUCCESS ;
56: IF FND_API.to_Boolean ( p_init_msg_list ) THEN
57: FND_MSG_PUB.initialize ;
58: END IF;
59:
60: p_return_status := FND_API.G_RET_STS_SUCCESS ;
61:
62: INSERT INTO igc_cc_periods_all
63: (
64: org_id,
86: OPEN C;
87: FETCH C INTO p_row_id;
88: IF (C%NOTFOUND) THEN
89: CLOSE C;
90: RAISE FND_API.G_EXC_ERROR ;
91: END IF;
92: CLOSE C;
93:
94:
91: END IF;
92: CLOSE C;
93:
94:
95: IF FND_API.To_Boolean ( p_commit ) THEN
96: COMMIT WORK;
97: END iF;
98:
99: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
100: p_data => p_msg_data );
101:
102: EXCEPTION
103:
104: WHEN FND_API.G_EXC_ERROR THEN
105:
106: ROLLBACK TO Insert_Row_Pvt ;
107: p_return_status := FND_API.G_RET_STS_ERROR;
108: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
103:
104: WHEN FND_API.G_EXC_ERROR THEN
105:
106: ROLLBACK TO Insert_Row_Pvt ;
107: p_return_status := FND_API.G_RET_STS_ERROR;
108: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
109: p_data => p_msg_data );
110:
111: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
107: p_return_status := FND_API.G_RET_STS_ERROR;
108: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
109: p_data => p_msg_data );
110:
111: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
112:
113: ROLLBACK TO Insert_Row_Pvt ;
114: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
115: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
110:
111: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
112:
113: ROLLBACK TO Insert_Row_Pvt ;
114: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
115: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
116: p_data => p_msg_data );
117:
118: WHEN OTHERS THEN
117:
118: WHEN OTHERS THEN
119:
120: ROLLBACK TO Insert_Row_Pvt ;
121: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
122:
123: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
124: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
125: l_api_name);
138: +==========================================================================*/
139: PROCEDURE Lock_Row
140: (
141: p_api_version IN NUMBER,
142: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
143: p_commit IN VARCHAR2 := FND_API.G_FALSE,
144: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
145: p_return_status OUT NOCOPY VARCHAR2,
146: p_msg_count OUT NOCOPY NUMBER,
139: PROCEDURE Lock_Row
140: (
141: p_api_version IN NUMBER,
142: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
143: p_commit IN VARCHAR2 := FND_API.G_FALSE,
144: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
145: p_return_status OUT NOCOPY VARCHAR2,
146: p_msg_count OUT NOCOPY NUMBER,
147: p_msg_data OUT NOCOPY VARCHAR2,
140: (
141: p_api_version IN NUMBER,
142: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
143: p_commit IN VARCHAR2 := FND_API.G_FALSE,
144: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
145: p_return_status OUT NOCOPY VARCHAR2,
146: p_msg_count OUT NOCOPY NUMBER,
147: p_msg_data OUT NOCOPY VARCHAR2,
148:
170: BEGIN
171:
172: SAVEPOINT Lock_Row_Pvt ;
173:
174: IF NOT FND_API.Compatible_API_Call ( l_api_version,
175: p_api_version,
176: l_api_name,
177: G_PKG_NAME )
178: THEN
175: p_api_version,
176: l_api_name,
177: G_PKG_NAME )
178: THEN
179: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
180: END IF;
181:
182:
183: IF FND_API.to_Boolean ( p_init_msg_list ) THEN
179: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
180: END IF;
181:
182:
183: IF FND_API.to_Boolean ( p_init_msg_list ) THEN
184: FND_MSG_PUB.initialize ;
185: END IF;
186:
187: p_return_status := FND_API.G_RET_STS_SUCCESS ;
183: IF FND_API.to_Boolean ( p_init_msg_list ) THEN
184: FND_MSG_PUB.initialize ;
185: END IF;
186:
187: p_return_status := FND_API.G_RET_STS_SUCCESS ;
188: p_row_locked := FND_API.G_TRUE ;
189:
190: OPEN C;
191:
184: FND_MSG_PUB.initialize ;
185: END IF;
186:
187: p_return_status := FND_API.G_RET_STS_SUCCESS ;
188: p_row_locked := FND_API.G_TRUE ;
189:
190: OPEN C;
191:
192: FETCH C INTO Recinfo;
193: IF (C%NOTFOUND) then
194: CLOSE C;
195: FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_DELETED');
196: FND_MSG_PUB.Add;
197: RAISE FND_API.G_EXC_ERROR ;
198: END IF;
199: CLOSE C;
200: IF ( (Recinfo.org_id = p_org_id)
201: AND (Recinfo.period_set_name = p_period_set_name)
207: Null;
208: ELSE
209: FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_CHANGED');
210: FND_MSG_PUB.Add;
211: RAISE FND_API.G_EXC_ERROR ;
212: END IF;
213:
214:
215: IF FND_API.To_Boolean ( p_commit ) THEN
211: RAISE FND_API.G_EXC_ERROR ;
212: END IF;
213:
214:
215: IF FND_API.To_Boolean ( p_commit ) THEN
216: COMMIT WORK;
217: END iF;
218:
219: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
223:
224: WHEN APP_EXCEPTION.RECORD_LOCK_EXCEPTION THEN
225:
226: ROLLBACK TO Lock_Row_Pvt ;
227: p_row_locked := FND_API.G_FALSE;
228: p_return_status := FND_API.G_RET_STS_ERROR;
229: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
230: p_data => p_msg_data );
231:
224: WHEN APP_EXCEPTION.RECORD_LOCK_EXCEPTION THEN
225:
226: ROLLBACK TO Lock_Row_Pvt ;
227: p_row_locked := FND_API.G_FALSE;
228: p_return_status := FND_API.G_RET_STS_ERROR;
229: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
230: p_data => p_msg_data );
231:
232: WHEN FND_API.G_EXC_ERROR THEN
228: p_return_status := FND_API.G_RET_STS_ERROR;
229: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
230: p_data => p_msg_data );
231:
232: WHEN FND_API.G_EXC_ERROR THEN
233:
234: ROLLBACK TO Lock_Row_Pvt ;
235: p_return_status := FND_API.G_RET_STS_ERROR;
236: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
231:
232: WHEN FND_API.G_EXC_ERROR THEN
233:
234: ROLLBACK TO Lock_Row_Pvt ;
235: p_return_status := FND_API.G_RET_STS_ERROR;
236: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
237: p_data => p_msg_data );
238:
239: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
235: p_return_status := FND_API.G_RET_STS_ERROR;
236: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
237: p_data => p_msg_data );
238:
239: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
240:
241: ROLLBACK TO Lock_Row_Pvt ;
242: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
243: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
238:
239: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
240:
241: ROLLBACK TO Lock_Row_Pvt ;
242: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
243: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
244: p_data => p_msg_data );
245:
246: WHEN OTHERS THEN
245:
246: WHEN OTHERS THEN
247:
248: ROLLBACK TO Lock_Row_Pvt ;
249: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
250:
251: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
252: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
253: l_api_name);
267: +==========================================================================*/
268: PROCEDURE Update_Row
269: (
270: p_api_version IN NUMBER,
271: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
272: p_commit IN VARCHAR2 := FND_API.G_FALSE,
273: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
274: p_return_status OUT NOCOPY VARCHAR2,
275: p_msg_count OUT NOCOPY NUMBER,
268: PROCEDURE Update_Row
269: (
270: p_api_version IN NUMBER,
271: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
272: p_commit IN VARCHAR2 := FND_API.G_FALSE,
273: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
274: p_return_status OUT NOCOPY VARCHAR2,
275: p_msg_count OUT NOCOPY NUMBER,
276: p_msg_data OUT NOCOPY VARCHAR2,
269: (
270: p_api_version IN NUMBER,
271: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
272: p_commit IN VARCHAR2 := FND_API.G_FALSE,
273: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
274: p_return_status OUT NOCOPY VARCHAR2,
275: p_msg_count OUT NOCOPY NUMBER,
276: p_msg_data OUT NOCOPY VARCHAR2,
277:
292: BEGIN
293:
294: SAVEPOINT Update_Row_Pvt ;
295:
296: IF NOT FND_API.Compatible_API_Call ( l_api_version,
297: p_api_version,
298: l_api_name,
299: G_PKG_NAME )
300: THEN
297: p_api_version,
298: l_api_name,
299: G_PKG_NAME )
300: THEN
301: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
302: END IF;
303:
304:
305: IF FND_API.to_Boolean ( p_init_msg_list ) THEN
301: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
302: END IF;
303:
304:
305: IF FND_API.to_Boolean ( p_init_msg_list ) THEN
306: FND_MSG_PUB.initialize ;
307: END IF;
308:
309: p_return_status := FND_API.G_RET_STS_SUCCESS ;
305: IF FND_API.to_Boolean ( p_init_msg_list ) THEN
306: FND_MSG_PUB.initialize ;
307: END IF;
308:
309: p_return_status := FND_API.G_RET_STS_SUCCESS ;
310:
311:
312: UPDATE igc_cc_periods_all
313: SET
322: RAISE NO_DATA_FOUND ;
323: END IF;
324:
325:
326: IF FND_API.To_Boolean ( p_commit ) THEN
327: COMMIT WORK;
328: END iF;
329:
330: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
331: p_data => p_msg_data );
332:
333: EXCEPTION
334:
335: WHEN FND_API.G_EXC_ERROR THEN
336:
337: ROLLBACK TO Update_Row_Pvt ;
338: p_return_status := FND_API.G_RET_STS_ERROR;
339: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
334:
335: WHEN FND_API.G_EXC_ERROR THEN
336:
337: ROLLBACK TO Update_Row_Pvt ;
338: p_return_status := FND_API.G_RET_STS_ERROR;
339: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
340: p_data => p_msg_data );
341:
342: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
338: p_return_status := FND_API.G_RET_STS_ERROR;
339: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
340: p_data => p_msg_data );
341:
342: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
343:
344: ROLLBACK TO Update_Row_Pvt ;
345: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
346: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
341:
342: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
343:
344: ROLLBACK TO Update_Row_Pvt ;
345: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
346: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
347: p_data => p_msg_data );
348:
349: WHEN OTHERS THEN
348:
349: WHEN OTHERS THEN
350:
351: ROLLBACK TO Update_Row_Pvt ;
352: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
353:
354: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
355: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
356: l_api_name);
370: +==========================================================================*/
371: PROCEDURE Delete_Row
372: (
373: p_api_version IN NUMBER,
374: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
375: p_commit IN VARCHAR2 := FND_API.G_FALSE,
376: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
377: p_return_status OUT NOCOPY VARCHAR2,
378: p_msg_count OUT NOCOPY NUMBER,
371: PROCEDURE Delete_Row
372: (
373: p_api_version IN NUMBER,
374: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
375: p_commit IN VARCHAR2 := FND_API.G_FALSE,
376: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
377: p_return_status OUT NOCOPY VARCHAR2,
378: p_msg_count OUT NOCOPY NUMBER,
379: p_msg_data OUT NOCOPY VARCHAR2,
372: (
373: p_api_version IN NUMBER,
374: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
375: p_commit IN VARCHAR2 := FND_API.G_FALSE,
376: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
377: p_return_status OUT NOCOPY VARCHAR2,
378: p_msg_count OUT NOCOPY NUMBER,
379: p_msg_data OUT NOCOPY VARCHAR2,
380:
392: BEGIN
393:
394: SAVEPOINT Delete_Row_Pvt ;
395:
396: IF NOT FND_API.Compatible_API_Call ( l_api_version,
397: p_api_version,
398: l_api_name,
399: G_PKG_NAME )
400: THEN
397: p_api_version,
398: l_api_name,
399: G_PKG_NAME )
400: THEN
401: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
402: END IF;
403:
404:
405: IF FND_API.to_Boolean ( p_init_msg_list ) THEN
401: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
402: END IF;
403:
404:
405: IF FND_API.to_Boolean ( p_init_msg_list ) THEN
406: FND_MSG_PUB.initialize ;
407: END IF ;
408:
409: p_return_status := FND_API.G_RET_STS_SUCCESS ;
405: IF FND_API.to_Boolean ( p_init_msg_list ) THEN
406: FND_MSG_PUB.initialize ;
407: END IF ;
408:
409: p_return_status := FND_API.G_RET_STS_SUCCESS ;
410:
411: -- Deleting the record in igc_cc_periods.
412:
413: DELETE FROM igc_cc_periods_all
418: RAISE NO_DATA_FOUND ;
419: END IF;
420:
421:
422: IF FND_API.To_Boolean ( p_commit ) THEN
423: COMMIT WORK;
424: END iF;
425:
426: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
427: p_data => p_msg_data );
428:
429: EXCEPTION
430:
431: WHEN FND_API.G_EXC_ERROR THEN
432:
433: ROLLBACK TO Delete_Row_Pvt ;
434: p_return_status := FND_API.G_RET_STS_ERROR;
435: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
430:
431: WHEN FND_API.G_EXC_ERROR THEN
432:
433: ROLLBACK TO Delete_Row_Pvt ;
434: p_return_status := FND_API.G_RET_STS_ERROR;
435: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
436: p_data => p_msg_data );
437:
438: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
434: p_return_status := FND_API.G_RET_STS_ERROR;
435: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
436: p_data => p_msg_data );
437:
438: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
439:
440: ROLLBACK TO Delete_Row_Pvt ;
441: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
442: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
437:
438: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
439:
440: ROLLBACK TO Delete_Row_Pvt ;
441: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
442: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
443: p_data => p_msg_data );
444:
445: WHEN OTHERS THEN
444:
445: WHEN OTHERS THEN
446:
447: ROLLBACK TO Delete_Row_Pvt ;
448: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
449:
450: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
451: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
452: l_api_name);
463: +==========================================================================*/
464: PROCEDURE Check_Unique
465: (
466: p_api_version IN NUMBER,
467: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
468: p_commit IN VARCHAR2 := FND_API.G_FALSE,
469: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
470: p_return_status OUT NOCOPY VARCHAR2,
471: p_msg_count OUT NOCOPY NUMBER,
464: PROCEDURE Check_Unique
465: (
466: p_api_version IN NUMBER,
467: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
468: p_commit IN VARCHAR2 := FND_API.G_FALSE,
469: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
470: p_return_status OUT NOCOPY VARCHAR2,
471: p_msg_count OUT NOCOPY NUMBER,
472: p_msg_data OUT NOCOPY VARCHAR2,
465: (
466: p_api_version IN NUMBER,
467: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
468: p_commit IN VARCHAR2 := FND_API.G_FALSE,
469: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
470: p_return_status OUT NOCOPY VARCHAR2,
471: p_msg_count OUT NOCOPY NUMBER,
472: p_msg_data OUT NOCOPY VARCHAR2,
473:
500: BEGIN
501:
502: SAVEPOINT Check_Unique_Pvt ;
503:
504: IF NOT FND_API.Compatible_API_Call ( l_api_version,
505: p_api_version,
506: l_api_name,
507: G_PKG_NAME )
508: THEN
505: p_api_version,
506: l_api_name,
507: G_PKG_NAME )
508: THEN
509: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
510: END IF;
511:
512:
513: IF FND_API.to_Boolean ( p_init_msg_list ) THEN
509: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
510: END IF;
511:
512:
513: IF FND_API.to_Boolean ( p_init_msg_list ) THEN
514: FND_MSG_PUB.initialize ;
515: END IF;
516:
517: p_return_status := FND_API.G_RET_STS_SUCCESS ;
513: IF FND_API.to_Boolean ( p_init_msg_list ) THEN
514: FND_MSG_PUB.initialize ;
515: END IF;
516:
517: p_return_status := FND_API.G_RET_STS_SUCCESS ;
518:
519: -- Checking the igc_cc_periods table for uniqueness.
520: OPEN c;
521: FETCH c INTO l_tmp;
528: END IF;
529:
530: CLOSE c;
531:
532: IF FND_API.To_Boolean ( p_commit ) THEN
533: COMMIT WORK;
534: END iF;
535:
536: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
537: p_data => p_msg_data );
538:
539: EXCEPTION
540:
541: WHEN FND_API.G_EXC_ERROR THEN
542:
543: ROLLBACK TO Check_Unique_Pvt ;
544: p_return_status := FND_API.G_RET_STS_ERROR;
545: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
540:
541: WHEN FND_API.G_EXC_ERROR THEN
542:
543: ROLLBACK TO Check_Unique_Pvt ;
544: p_return_status := FND_API.G_RET_STS_ERROR;
545: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
546: p_data => p_msg_data );
547:
548: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
544: p_return_status := FND_API.G_RET_STS_ERROR;
545: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
546: p_data => p_msg_data );
547:
548: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
549:
550: ROLLBACK TO Check_Unique_Pvt ;
551: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
552: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
547:
548: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
549:
550: ROLLBACK TO Check_Unique_Pvt ;
551: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
552: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
553: p_data => p_msg_data );
554:
555: WHEN OTHERS THEN
554:
555: WHEN OTHERS THEN
556:
557: ROLLBACK TO Check_Unique_Pvt ;
558: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
559:
560: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
561: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
562: l_api_name);