9: ===============================================================================*/
10:
11: PROCEDURE Insert_Row(
12: p_api_version IN NUMBER,
13: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
14: p_commit IN VARCHAR2 := FND_API.G_FALSE,
15: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
16: x_return_status OUT NOCOPY VARCHAR2,
17: x_msg_count OUT NOCOPY NUMBER,
10:
11: PROCEDURE Insert_Row(
12: p_api_version IN NUMBER,
13: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
14: p_commit IN VARCHAR2 := FND_API.G_FALSE,
15: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
16: x_return_status OUT NOCOPY VARCHAR2,
17: x_msg_count OUT NOCOPY NUMBER,
18: x_msg_data OUT NOCOPY VARCHAR2,
11: PROCEDURE Insert_Row(
12: p_api_version IN NUMBER,
13: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
14: p_commit IN VARCHAR2 := FND_API.G_FALSE,
15: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
16: x_return_status OUT NOCOPY VARCHAR2,
17: x_msg_count OUT NOCOPY NUMBER,
18: x_msg_data OUT NOCOPY VARCHAR2,
19: p_Rowid IN OUT NOCOPY VARCHAR2,
41: BEGIN
42:
43: SAVEPOINT Insert_Row_Pvt ;
44:
45: IF NOT FND_API.Compatible_API_Call ( l_api_version,
46: p_api_version,
47: l_api_name,
48: G_PKG_NAME
49: )
47: l_api_name,
48: G_PKG_NAME
49: )
50: THEN
51: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
52: END IF;
53:
54:
55: IF FND_API.to_Boolean ( p_init_msg_list ) THEN
51: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
52: END IF;
53:
54:
55: IF FND_API.to_Boolean ( p_init_msg_list ) THEN
56: FND_MSG_PUB.initialize ;
57: END IF;
58:
59: x_return_status := FND_API.G_RET_STS_SUCCESS ;
55: IF FND_API.to_Boolean ( p_init_msg_list ) THEN
56: FND_MSG_PUB.initialize ;
57: END IF;
58:
59: x_return_status := FND_API.G_RET_STS_SUCCESS ;
60:
61:
62: INSERT INTO IGC_CC_ROUTING_CTRLS_ALL(
63:
93: OPEN C;
94: FETCH C INTO p_Rowid;
95: if (C%NOTFOUND) then
96: CLOSE C;
97: RAISE FND_API.G_EXC_ERROR ;
98: end if;
99: CLOSE C;
100:
101: IF FND_API.To_Boolean ( p_commit ) THEN
97: RAISE FND_API.G_EXC_ERROR ;
98: end if;
99: CLOSE C;
100:
101: IF FND_API.To_Boolean ( p_commit ) THEN
102: COMMIT WORK;
103: END iF;
104:
105: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
106: p_data => x_msg_data );
107:
108: EXCEPTION
109:
110: WHEN FND_API.G_EXC_ERROR THEN
111:
112: ROLLBACK TO Insert_Row_Pvt ;
113: x_return_status := FND_API.G_RET_STS_ERROR;
114: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
109:
110: WHEN FND_API.G_EXC_ERROR THEN
111:
112: ROLLBACK TO Insert_Row_Pvt ;
113: x_return_status := FND_API.G_RET_STS_ERROR;
114: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
115: p_data => x_msg_data );
116:
117: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
113: x_return_status := FND_API.G_RET_STS_ERROR;
114: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
115: p_data => x_msg_data );
116:
117: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
118:
119: ROLLBACK TO Insert_Row_Pvt ;
120: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
121: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
116:
117: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
118:
119: ROLLBACK TO Insert_Row_Pvt ;
120: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
121: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
122: p_data => x_msg_data );
123:
124: WHEN OTHERS THEN
123:
124: WHEN OTHERS THEN
125:
126: ROLLBACK TO Insert_Row_Pvt ;
127: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
128:
129: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
130: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
131: l_api_name);
139:
140:
141: PROCEDURE Lock_Row(
142: p_api_version IN NUMBER,
143: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
144: p_commit IN VARCHAR2 := FND_API.G_FALSE,
145: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
146: x_return_status OUT NOCOPY VARCHAR2,
147: x_msg_count OUT NOCOPY NUMBER,
140:
141: PROCEDURE Lock_Row(
142: p_api_version IN NUMBER,
143: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
144: p_commit IN VARCHAR2 := FND_API.G_FALSE,
145: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
146: x_return_status OUT NOCOPY VARCHAR2,
147: x_msg_count OUT NOCOPY NUMBER,
148: x_msg_data OUT NOCOPY VARCHAR2,
141: PROCEDURE Lock_Row(
142: p_api_version IN NUMBER,
143: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
144: p_commit IN VARCHAR2 := FND_API.G_FALSE,
145: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
146: x_return_status OUT NOCOPY VARCHAR2,
147: x_msg_count OUT NOCOPY NUMBER,
148: x_msg_data OUT NOCOPY VARCHAR2,
149:
176: BEGIN
177:
178: SAVEPOINT Lock_Row_Pvt ;
179:
180: IF NOT FND_API.Compatible_API_Call ( l_api_version,
181: p_api_version,
182: l_api_name,
183: G_PKG_NAME )
184: THEN
181: p_api_version,
182: l_api_name,
183: G_PKG_NAME )
184: THEN
185: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
186: END IF;
187:
188:
189: IF FND_API.to_Boolean ( p_init_msg_list ) THEN
185: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
186: END IF;
187:
188:
189: IF FND_API.to_Boolean ( p_init_msg_list ) THEN
190: FND_MSG_PUB.initialize ;
191: END IF;
192:
193: x_return_status := FND_API.G_RET_STS_SUCCESS ;
189: IF FND_API.to_Boolean ( p_init_msg_list ) THEN
190: FND_MSG_PUB.initialize ;
191: END IF;
192:
193: x_return_status := FND_API.G_RET_STS_SUCCESS ;
194: p_row_locked := FND_API.G_TRUE ;
195:
196:
197: OPEN C;
190: FND_MSG_PUB.initialize ;
191: END IF;
192:
193: x_return_status := FND_API.G_RET_STS_SUCCESS ;
194: p_row_locked := FND_API.G_TRUE ;
195:
196:
197: OPEN C;
198:
200: if (C%NOTFOUND) then
201: CLOSE C;
202: FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_DELETED');
203: FND_MSG_PUB.Add;
204: RAISE FND_API.G_EXC_ERROR ;
205: end if;
206: CLOSE C;
207: if (
208: (Recinfo.ORG_ID = p_ORG_ID)
238: return;
239: else
240: FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_CHANGED');
241: FND_MSG_PUB.Add;
242: RAISE FND_API.G_EXC_ERROR ;
243: end if;
244:
245: IF FND_API.To_Boolean ( p_commit ) THEN
246: COMMIT WORK;
241: FND_MSG_PUB.Add;
242: RAISE FND_API.G_EXC_ERROR ;
243: end if;
244:
245: IF FND_API.To_Boolean ( p_commit ) THEN
246: COMMIT WORK;
247: END iF;
248:
249: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
253:
254: WHEN APP_EXCEPTION.RECORD_LOCK_EXCEPTION THEN
255:
256: ROLLBACK TO Lock_Row_Pvt ;
257: p_row_locked := FND_API.G_FALSE;
258: x_return_status := FND_API.G_RET_STS_ERROR;
259: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
260: p_data => x_msg_data );
261:
254: WHEN APP_EXCEPTION.RECORD_LOCK_EXCEPTION THEN
255:
256: ROLLBACK TO Lock_Row_Pvt ;
257: p_row_locked := FND_API.G_FALSE;
258: x_return_status := FND_API.G_RET_STS_ERROR;
259: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
260: p_data => x_msg_data );
261:
262: WHEN FND_API.G_EXC_ERROR THEN
258: x_return_status := FND_API.G_RET_STS_ERROR;
259: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
260: p_data => x_msg_data );
261:
262: WHEN FND_API.G_EXC_ERROR THEN
263:
264: ROLLBACK TO Lock_Row_Pvt ;
265: x_return_status := FND_API.G_RET_STS_ERROR;
266: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
261:
262: WHEN FND_API.G_EXC_ERROR THEN
263:
264: ROLLBACK TO Lock_Row_Pvt ;
265: x_return_status := FND_API.G_RET_STS_ERROR;
266: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
267: p_data => x_msg_data );
268:
269: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
265: x_return_status := FND_API.G_RET_STS_ERROR;
266: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
267: p_data => x_msg_data );
268:
269: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
270:
271: ROLLBACK TO Lock_Row_Pvt ;
272: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
273: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
268:
269: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
270:
271: ROLLBACK TO Lock_Row_Pvt ;
272: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
273: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
274: p_data => x_msg_data );
275:
276: WHEN OTHERS THEN
275:
276: WHEN OTHERS THEN
277:
278: ROLLBACK TO Lock_Row_Pvt ;
279: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
280:
281: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
282: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
283: l_api_name);
291:
292: PROCEDURE Update_Row(
293:
294: p_api_version IN NUMBER,
295: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
296: p_commit IN VARCHAR2 := FND_API.G_FALSE,
297: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
298: x_return_status OUT NOCOPY VARCHAR2,
299: x_msg_count OUT NOCOPY NUMBER,
292: PROCEDURE Update_Row(
293:
294: p_api_version IN NUMBER,
295: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
296: p_commit IN VARCHAR2 := FND_API.G_FALSE,
297: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
298: x_return_status OUT NOCOPY VARCHAR2,
299: x_msg_count OUT NOCOPY NUMBER,
300: x_msg_data OUT NOCOPY VARCHAR2,
293:
294: p_api_version IN NUMBER,
295: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
296: p_commit IN VARCHAR2 := FND_API.G_FALSE,
297: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
298: x_return_status OUT NOCOPY VARCHAR2,
299: x_msg_count OUT NOCOPY NUMBER,
300: x_msg_data OUT NOCOPY VARCHAR2,
301:
321: BEGIN
322:
323: SAVEPOINT Update_Row_Pvt ;
324:
325: IF NOT FND_API.Compatible_API_Call ( l_api_version,
326: p_api_version,
327: l_api_name,
328: G_PKG_NAME )
329: THEN
326: p_api_version,
327: l_api_name,
328: G_PKG_NAME )
329: THEN
330: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
331: END IF;
332:
333:
334: IF FND_API.to_Boolean ( p_init_msg_list ) THEN
330: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
331: END IF;
332:
333:
334: IF FND_API.to_Boolean ( p_init_msg_list ) THEN
335: FND_MSG_PUB.initialize ;
336: END IF;
337:
338: x_return_status := FND_API.G_RET_STS_SUCCESS ;
334: IF FND_API.to_Boolean ( p_init_msg_list ) THEN
335: FND_MSG_PUB.initialize ;
336: END IF;
337:
338: x_return_status := FND_API.G_RET_STS_SUCCESS ;
339:
340: UPDATE IGC_CC_ROUTING_CTRLS_ALL
341: SET
342:
357: if (SQL%NOTFOUND) then
358: Raise NO_DATA_FOUND;
359: end if;
360:
361: IF FND_API.To_Boolean ( p_commit ) THEN
362: COMMIT WORK;
363: END iF;
364:
365: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
366: p_data => x_msg_data );
367:
368: EXCEPTION
369:
370: WHEN FND_API.G_EXC_ERROR THEN
371:
372: ROLLBACK TO Update_Row_Pvt ;
373: x_return_status := FND_API.G_RET_STS_ERROR;
374: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
369:
370: WHEN FND_API.G_EXC_ERROR THEN
371:
372: ROLLBACK TO Update_Row_Pvt ;
373: x_return_status := FND_API.G_RET_STS_ERROR;
374: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
375: p_data => x_msg_data );
376:
377: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
373: x_return_status := FND_API.G_RET_STS_ERROR;
374: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
375: p_data => x_msg_data );
376:
377: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
378:
379: ROLLBACK TO Update_Row_Pvt ;
380: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
381: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
376:
377: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
378:
379: ROLLBACK TO Update_Row_Pvt ;
380: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
381: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
382: p_data => x_msg_data );
383:
384: WHEN OTHERS THEN
383:
384: WHEN OTHERS THEN
385:
386: ROLLBACK TO Update_Row_Pvt ;
387: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
388:
389: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
390: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
391: l_api_name);
399:
400:
401: PROCEDURE Delete_Row(
402: p_api_version IN NUMBER,
403: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
404: p_commit IN VARCHAR2 := FND_API.G_FALSE,
405: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
406: x_return_status OUT NOCOPY VARCHAR2,
407: x_msg_count OUT NOCOPY NUMBER,
400:
401: PROCEDURE Delete_Row(
402: p_api_version IN NUMBER,
403: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
404: p_commit IN VARCHAR2 := FND_API.G_FALSE,
405: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
406: x_return_status OUT NOCOPY VARCHAR2,
407: x_msg_count OUT NOCOPY NUMBER,
408: x_msg_data OUT NOCOPY VARCHAR2,
401: PROCEDURE Delete_Row(
402: p_api_version IN NUMBER,
403: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
404: p_commit IN VARCHAR2 := FND_API.G_FALSE,
405: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
406: x_return_status OUT NOCOPY VARCHAR2,
407: x_msg_count OUT NOCOPY NUMBER,
408: x_msg_data OUT NOCOPY VARCHAR2,
409:
415: BEGIN
416:
417: SAVEPOINT Delete_Row_Pvt ;
418:
419: IF NOT FND_API.Compatible_API_Call ( l_api_version,
420: p_api_version,
421: l_api_name,
422: G_PKG_NAME )
423: THEN
420: p_api_version,
421: l_api_name,
422: G_PKG_NAME )
423: THEN
424: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
425: END IF;
426:
427:
428: IF FND_API.to_Boolean ( p_init_msg_list ) THEN
424: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
425: END IF;
426:
427:
428: IF FND_API.to_Boolean ( p_init_msg_list ) THEN
429: FND_MSG_PUB.initialize ;
430: END IF ;
431:
432: x_return_status := FND_API.G_RET_STS_SUCCESS ;
428: IF FND_API.to_Boolean ( p_init_msg_list ) THEN
429: FND_MSG_PUB.initialize ;
430: END IF ;
431:
432: x_return_status := FND_API.G_RET_STS_SUCCESS ;
433:
434:
435: DELETE FROM IGC_CC_ROUTING_CTRLS_ALL
436: WHERE rowid = p_Rowid;
436: WHERE rowid = p_Rowid;
437: if (SQL%NOTFOUND) then
438: Raise NO_DATA_FOUND;
439: end if;
440: IF FND_API.To_Boolean ( p_commit ) THEN
441: COMMIT WORK;
442: END iF;
443:
444: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
445: p_data => x_msg_data );
446:
447: EXCEPTION
448:
449: WHEN FND_API.G_EXC_ERROR THEN
450:
451: ROLLBACK TO Delete_Row_Pvt ;
452: x_return_status := FND_API.G_RET_STS_ERROR;
453: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
448:
449: WHEN FND_API.G_EXC_ERROR THEN
450:
451: ROLLBACK TO Delete_Row_Pvt ;
452: x_return_status := FND_API.G_RET_STS_ERROR;
453: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
454: p_data => x_msg_data );
455:
456: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
452: x_return_status := FND_API.G_RET_STS_ERROR;
453: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
454: p_data => x_msg_data );
455:
456: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
457:
458: ROLLBACK TO Delete_Row_Pvt ;
459: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
460: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
455:
456: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
457:
458: ROLLBACK TO Delete_Row_Pvt ;
459: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
460: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
461: p_data => x_msg_data );
462:
463: WHEN OTHERS THEN
462:
463: WHEN OTHERS THEN
464:
465: ROLLBACK TO Delete_Row_Pvt ;
466: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
467:
468: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
469: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
470: l_api_name);