3:
4: G_PKG_NAME CONSTANT VARCHAR2(30):= 'IGC_CC_SEC_GROUP_USERS_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_USERS_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: INSERT INTO IGC_CC_GROUP_USERS(
67: CC_GROUP_ID,
68: USER_ID,
119: END IF;
120: CLOSE C;
121:
122:
123: IF FND_API.To_Boolean ( p_commit ) THEN
124: COMMIT WORK;
125: END iF;
126:
127: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
128: p_data => p_msg_data );
129:
130: EXCEPTION
131:
132: WHEN FND_API.G_EXC_ERROR THEN
133:
134: ROLLBACK TO Insert_Row_Pvt ;
135: p_return_status := FND_API.G_RET_STS_ERROR;
136: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
131:
132: WHEN FND_API.G_EXC_ERROR THEN
133:
134: ROLLBACK TO Insert_Row_Pvt ;
135: p_return_status := FND_API.G_RET_STS_ERROR;
136: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
137: p_data => p_msg_data );
138:
139: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
135: p_return_status := FND_API.G_RET_STS_ERROR;
136: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
137: p_data => p_msg_data );
138:
139: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
140:
141: ROLLBACK TO Insert_Row_Pvt ;
142: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
143: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
138:
139: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
140:
141: ROLLBACK TO Insert_Row_Pvt ;
142: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
143: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
144: p_data => p_msg_data );
145:
146: WHEN OTHERS THEN
145:
146: WHEN OTHERS THEN
147:
148: ROLLBACK TO Insert_Row_Pvt ;
149: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
150:
151: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
152: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
153: l_api_name);
159: END Insert_Row;
160:
161: PROCEDURE Update_Row(
162: p_api_version IN NUMBER,
163: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
164: p_commit IN VARCHAR2 := FND_API.G_FALSE,
165: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
166: p_return_status OUT NOCOPY VARCHAR2,
167: p_msg_count OUT NOCOPY NUMBER,
160:
161: PROCEDURE Update_Row(
162: p_api_version IN NUMBER,
163: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
164: p_commit IN VARCHAR2 := FND_API.G_FALSE,
165: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
166: p_return_status OUT NOCOPY VARCHAR2,
167: p_msg_count OUT NOCOPY NUMBER,
168: p_msg_data OUT NOCOPY VARCHAR2,
161: PROCEDURE Update_Row(
162: p_api_version IN NUMBER,
163: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
164: p_commit IN VARCHAR2 := FND_API.G_FALSE,
165: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
166: p_return_status OUT NOCOPY VARCHAR2,
167: p_msg_count OUT NOCOPY NUMBER,
168: p_msg_data OUT NOCOPY VARCHAR2,
169:
198: BEGIN
199:
200: SAVEPOINT Update_Row_Pvt ;
201:
202: IF NOT FND_API.Compatible_API_Call ( l_api_version,
203: p_api_version,
204: l_api_name,
205: G_PKG_NAME )
206: THEN
203: p_api_version,
204: l_api_name,
205: G_PKG_NAME )
206: THEN
207: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
208: END IF;
209:
210:
211: IF FND_API.to_Boolean ( p_init_msg_list ) THEN
207: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
208: END IF;
209:
210:
211: IF FND_API.to_Boolean ( p_init_msg_list ) THEN
212: FND_MSG_PUB.initialize ;
213: END IF;
214:
215: p_return_status := FND_API.G_RET_STS_SUCCESS ;
211: IF FND_API.to_Boolean ( p_init_msg_list ) THEN
212: FND_MSG_PUB.initialize ;
213: END IF;
214:
215: p_return_status := FND_API.G_RET_STS_SUCCESS ;
216:
217: UPDATE IGC_CC_GROUP_USERS
218: SET
219: CC_GROUP_ID = P_CC_GROUP_ID,
243: IF (SQL%NOTFOUND) THEN
244: RAISE NO_DATA_FOUND;
245: END IF;
246:
247: IF FND_API.To_Boolean ( p_commit ) THEN
248: COMMIT WORK;
249: END iF;
250:
251: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
252: p_data => p_msg_data );
253:
254: EXCEPTION
255:
256: WHEN FND_API.G_EXC_ERROR THEN
257:
258: ROLLBACK TO Update_Row_Pvt ;
259: p_return_status := FND_API.G_RET_STS_ERROR;
260: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
255:
256: WHEN FND_API.G_EXC_ERROR THEN
257:
258: ROLLBACK TO Update_Row_Pvt ;
259: p_return_status := FND_API.G_RET_STS_ERROR;
260: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
261: p_data => p_msg_data );
262:
263: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
259: p_return_status := FND_API.G_RET_STS_ERROR;
260: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
261: p_data => p_msg_data );
262:
263: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
264:
265: ROLLBACK TO Update_Row_Pvt ;
266: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
267: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
262:
263: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
264:
265: ROLLBACK TO Update_Row_Pvt ;
266: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
267: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
268: p_data => p_msg_data );
269:
270: WHEN OTHERS THEN
269:
270: WHEN OTHERS THEN
271:
272: ROLLBACK TO Update_Row_Pvt ;
273: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
274:
275: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
276: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
277: l_api_name);
284:
285:
286: PROCEDURE Lock_Row(
287: p_api_version IN NUMBER,
288: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
289: p_commit IN VARCHAR2 := FND_API.G_FALSE,
290: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
291: p_return_status OUT NOCOPY VARCHAR2,
292: p_msg_count OUT NOCOPY NUMBER,
285:
286: PROCEDURE Lock_Row(
287: p_api_version IN NUMBER,
288: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
289: p_commit IN VARCHAR2 := FND_API.G_FALSE,
290: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
291: p_return_status OUT NOCOPY VARCHAR2,
292: p_msg_count OUT NOCOPY NUMBER,
293: p_msg_data OUT NOCOPY VARCHAR2,
286: PROCEDURE Lock_Row(
287: p_api_version IN NUMBER,
288: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
289: p_commit IN VARCHAR2 := FND_API.G_FALSE,
290: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
291: p_return_status OUT NOCOPY VARCHAR2,
292: p_msg_count OUT NOCOPY NUMBER,
293: p_msg_data OUT NOCOPY VARCHAR2,
294:
344: BEGIN
345:
346: SAVEPOINT Lock_Row_Pvt ;
347:
348: IF NOT FND_API.Compatible_API_Call ( l_api_version,
349: p_api_version,
350: l_api_name,
351: G_PKG_NAME )
352: THEN
349: p_api_version,
350: l_api_name,
351: G_PKG_NAME )
352: THEN
353: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
354: END IF;
355:
356:
357: IF FND_API.to_Boolean ( p_init_msg_list ) THEN
353: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
354: END IF;
355:
356:
357: IF FND_API.to_Boolean ( p_init_msg_list ) THEN
358: FND_MSG_PUB.initialize ;
359: END IF;
360:
361: p_return_status := FND_API.G_RET_STS_SUCCESS ;
357: IF FND_API.to_Boolean ( p_init_msg_list ) THEN
358: FND_MSG_PUB.initialize ;
359: END IF;
360:
361: p_return_status := FND_API.G_RET_STS_SUCCESS ;
362: p_row_locked := FND_API.G_TRUE ;
363:
364: OPEN C;
365: FETCH C INTO Recinfo;
358: FND_MSG_PUB.initialize ;
359: END IF;
360:
361: p_return_status := FND_API.G_RET_STS_SUCCESS ;
362: p_row_locked := FND_API.G_TRUE ;
363:
364: OPEN C;
365: FETCH C INTO Recinfo;
366: IF (C%NOTFOUND) THEN
425: RETURN;
426: ELSE
427: fnd_message.set_name('FND', 'FORM_RECORD_CHANGED');
428: FND_MSG_PUB.Add;
429: RAISE FND_API.G_EXC_ERROR ;
430:
431: -- APP_EXCEPTION.RAISE_EXCEPTION;
432: END IF;
433:
430:
431: -- APP_EXCEPTION.RAISE_EXCEPTION;
432: END IF;
433:
434: IF FND_API.To_Boolean ( p_commit ) THEN
435: COMMIT WORK;
436: END iF;
437:
438: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
442:
443: WHEN APP_EXCEPTION.RECORD_LOCK_EXCEPTION THEN
444:
445: ROLLBACK TO Lock_Row_Pvt ;
446: p_row_locked := FND_API.G_FALSE;
447: p_return_status := FND_API.G_RET_STS_ERROR;
448: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
449: p_data => p_msg_data );
450:
443: WHEN APP_EXCEPTION.RECORD_LOCK_EXCEPTION THEN
444:
445: ROLLBACK TO Lock_Row_Pvt ;
446: p_row_locked := FND_API.G_FALSE;
447: p_return_status := FND_API.G_RET_STS_ERROR;
448: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
449: p_data => p_msg_data );
450:
451: WHEN FND_API.G_EXC_ERROR THEN
447: p_return_status := FND_API.G_RET_STS_ERROR;
448: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
449: p_data => p_msg_data );
450:
451: WHEN FND_API.G_EXC_ERROR THEN
452:
453: ROLLBACK TO Lock_Row_Pvt ;
454: p_return_status := FND_API.G_RET_STS_ERROR;
455: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
450:
451: WHEN FND_API.G_EXC_ERROR THEN
452:
453: ROLLBACK TO Lock_Row_Pvt ;
454: p_return_status := FND_API.G_RET_STS_ERROR;
455: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
456: p_data => p_msg_data );
457:
458: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
454: p_return_status := FND_API.G_RET_STS_ERROR;
455: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
456: p_data => p_msg_data );
457:
458: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
459:
460: ROLLBACK TO Lock_Row_Pvt ;
461: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
462: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
457:
458: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
459:
460: ROLLBACK TO Lock_Row_Pvt ;
461: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
462: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
463: p_data => p_msg_data );
464:
465: WHEN OTHERS THEN
464:
465: WHEN OTHERS THEN
466:
467: ROLLBACK TO Lock_Row_Pvt ;
468: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
469:
470: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
471: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
472: l_api_name);
480:
481:
482: PROCEDURE Delete_Row(
483: p_api_version IN NUMBER,
484: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
485: p_commit IN VARCHAR2 := FND_API.G_FALSE,
486: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
487: p_return_status OUT NOCOPY VARCHAR2,
488: p_msg_count OUT NOCOPY NUMBER,
481:
482: PROCEDURE Delete_Row(
483: p_api_version IN NUMBER,
484: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
485: p_commit IN VARCHAR2 := FND_API.G_FALSE,
486: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
487: p_return_status OUT NOCOPY VARCHAR2,
488: p_msg_count OUT NOCOPY NUMBER,
489: p_msg_data OUT NOCOPY VARCHAR2,
482: PROCEDURE Delete_Row(
483: p_api_version IN NUMBER,
484: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
485: p_commit IN VARCHAR2 := FND_API.G_FALSE,
486: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
487: p_return_status OUT NOCOPY VARCHAR2,
488: p_msg_count OUT NOCOPY NUMBER,
489: p_msg_data OUT NOCOPY VARCHAR2,
490:
501: BEGIN
502:
503: SAVEPOINT Delete_Row_Pvt ;
504:
505: IF NOT FND_API.Compatible_API_Call ( l_api_version,
506: p_api_version,
507: l_api_name,
508: G_PKG_NAME )
509: THEN
506: p_api_version,
507: l_api_name,
508: G_PKG_NAME )
509: THEN
510: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
511: END IF;
512:
513:
514: IF FND_API.to_Boolean ( p_init_msg_list ) THEN
510: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
511: END IF;
512:
513:
514: IF FND_API.to_Boolean ( p_init_msg_list ) THEN
515: FND_MSG_PUB.initialize ;
516: END IF ;
517:
518: p_return_status := FND_API.G_RET_STS_SUCCESS ;
514: IF FND_API.to_Boolean ( p_init_msg_list ) THEN
515: FND_MSG_PUB.initialize ;
516: END IF ;
517:
518: p_return_status := FND_API.G_RET_STS_SUCCESS ;
519:
520: BEGIN
521: SELECT cc_group_id, user_id
522: INTO x_cc_group_id, x_user_id
537: IF (SQL%NOTFOUND) THEN
538: RAISE NO_DATA_FOUND;
539: END IF;
540:
541: IF FND_API.To_Boolean ( p_commit ) THEN
542: COMMIT WORK;
543: END iF;
544:
545: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
546: p_data => p_msg_data );
547:
548: EXCEPTION
549:
550: WHEN FND_API.G_EXC_ERROR THEN
551:
552: ROLLBACK TO Delete_Row_Pvt ;
553: p_return_status := FND_API.G_RET_STS_ERROR;
554: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
549:
550: WHEN FND_API.G_EXC_ERROR THEN
551:
552: ROLLBACK TO Delete_Row_Pvt ;
553: p_return_status := FND_API.G_RET_STS_ERROR;
554: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
555: p_data => p_msg_data );
556:
557: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
553: p_return_status := FND_API.G_RET_STS_ERROR;
554: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
555: p_data => p_msg_data );
556:
557: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
558:
559: ROLLBACK TO Delete_Row_Pvt ;
560: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
561: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
556:
557: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
558:
559: ROLLBACK TO Delete_Row_Pvt ;
560: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
561: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
562: p_data => p_msg_data );
563:
564: WHEN OTHERS THEN
563:
564: WHEN OTHERS THEN
565:
566: ROLLBACK TO Delete_Row_Pvt ;
567: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
568:
569: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
570: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
571: l_api_name);