56: END IF;
57:
58:
59: IF FND_API.to_Boolean ( p_init_msg_list ) THEN
60: FND_MSG_PUB.initialize ;
61: END IF;
62:
63: x_return_status := FND_API.G_RET_STS_SUCCESS ;
64:
102: IF FND_API.To_Boolean ( p_commit ) THEN
103: COMMIT WORK;
104: END iF;
105:
106: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
107: p_data => x_msg_data );
108:
109: EXCEPTION
110:
111: WHEN FND_API.G_EXC_ERROR THEN
112:
113: ROLLBACK TO Insert_Row_Pvt ;
114: x_return_status := FND_API.G_RET_STS_ERROR;
115: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
116: p_data => x_msg_data );
117:
118: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
119:
118: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
119:
120: ROLLBACK TO Insert_Row_Pvt ;
121: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
122: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
123: p_data => x_msg_data );
124:
125: WHEN OTHERS THEN
126:
126:
127: ROLLBACK TO Insert_Row_Pvt ;
128: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
129:
130: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
131: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
132: l_api_name);
133: END if;
134:
127: ROLLBACK TO Insert_Row_Pvt ;
128: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
129:
130: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
131: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
132: l_api_name);
133: END if;
134:
135: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
131: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
132: l_api_name);
133: END if;
134:
135: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
136: p_data => x_msg_data );
137:
138: END Insert_Row;
139: /*-------------------------------------------------------------------------*/
189: END IF;
190:
191:
192: IF FND_API.to_Boolean ( p_init_msg_list ) THEN
193: FND_MSG_PUB.initialize ;
194: END IF;
195:
196: x_return_status := FND_API.G_RET_STS_SUCCESS ;
197: p_row_locked := FND_API.G_TRUE ;
201: FETCH C INTO Recinfo;
202: IF (C%NOTFOUND) then
203: CLOSE C;
204: FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_DELETED');
205: FND_MSG_PUB.Add;
206: RAISE FND_API.G_EXC_ERROR ;
207: END IF;
208: CLOSE C;
209:
227: THEN
228: Null;
229: ELSE
230: FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_CHANGED');
231: FND_MSG_PUB.Add;
232: RAISE FND_API.G_EXC_ERROR ;
233: END IF;
234:
235:
236: IF FND_API.To_Boolean ( p_commit ) THEN
237: COMMIT WORK;
238: END iF;
239:
240: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
241: p_data => x_msg_data );
242:
243: EXCEPTION
244:
246:
247: ROLLBACK TO Lock_Row_Pvt ;
248: p_row_locked := FND_API.G_FALSE;
249: x_return_status := FND_API.G_RET_STS_ERROR;
250: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
251: p_data => x_msg_data );
252:
253: WHEN FND_API.G_EXC_ERROR THEN
254:
253: WHEN FND_API.G_EXC_ERROR THEN
254:
255: ROLLBACK TO Lock_Row_Pvt ;
256: x_return_status := FND_API.G_RET_STS_ERROR;
257: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
258: p_data => x_msg_data );
259:
260: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
261:
260: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
261:
262: ROLLBACK TO Lock_Row_Pvt ;
263: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
264: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
265: p_data => x_msg_data );
266:
267: WHEN OTHERS THEN
268:
268:
269: ROLLBACK TO Lock_Row_Pvt ;
270: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
271:
272: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
273: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
274: l_api_name);
275: END if;
276:
269: ROLLBACK TO Lock_Row_Pvt ;
270: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
271:
272: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
273: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
274: l_api_name);
275: END if;
276:
277: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
273: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
274: l_api_name);
275: END if;
276:
277: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
278: p_data => x_msg_data );
279:
280: END Lock_Row;
281: /* ----------------------------------------------------------------------- */
325: END IF;
326:
327:
328: IF FND_API.to_Boolean ( p_init_msg_list ) THEN
329: FND_MSG_PUB.initialize ;
330: END IF;
331:
332: x_return_status := FND_API.G_RET_STS_SUCCESS ;
333:
353: IF FND_API.To_Boolean ( p_commit ) THEN
354: COMMIT WORK;
355: END iF;
356:
357: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
358: p_data => x_msg_data );
359:
360: EXCEPTION
361:
362: WHEN FND_API.G_EXC_ERROR THEN
363:
364: ROLLBACK TO Update_Row_Pvt ;
365: x_return_status := FND_API.G_RET_STS_ERROR;
366: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
367: p_data => x_msg_data );
368:
369: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
370:
369: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
370:
371: ROLLBACK TO Update_Row_Pvt ;
372: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
373: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
374: p_data => x_msg_data );
375:
376: WHEN OTHERS THEN
377:
377:
378: ROLLBACK TO Update_Row_Pvt ;
379: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
380:
381: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
382: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
383: l_api_name);
384: END if;
385:
378: ROLLBACK TO Update_Row_Pvt ;
379: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
380:
381: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
382: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
383: l_api_name);
384: END if;
385:
386: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
382: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
383: l_api_name);
384: END if;
385:
386: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
387: p_data => x_msg_data );
388:
389: END Update_Row;
390: /* ----------------------------------------------------------------------- */
429: END IF;
430:
431:
432: IF FND_API.to_Boolean ( p_init_msg_list ) THEN
433: FND_MSG_PUB.initialize ;
434: END IF ;
435:
436: x_return_status := FND_API.G_RET_STS_SUCCESS ;
437:
449: IF FND_API.To_Boolean ( p_commit ) THEN
450: COMMIT WORK;
451: END iF;
452:
453: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
454: p_data => x_msg_data );
455:
456: EXCEPTION
457:
458: WHEN FND_API.G_EXC_ERROR THEN
459:
460: ROLLBACK TO Delete_Row_Pvt ;
461: x_return_status := FND_API.G_RET_STS_ERROR;
462: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
463: p_data => x_msg_data );
464:
465: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
466:
465: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
466:
467: ROLLBACK TO Delete_Row_Pvt ;
468: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
469: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
470: p_data => x_msg_data );
471:
472: WHEN OTHERS THEN
473:
473:
474: ROLLBACK TO Delete_Row_Pvt ;
475: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
476:
477: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
478: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
479: l_api_name);
480: END if;
481:
474: ROLLBACK TO Delete_Row_Pvt ;
475: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
476:
477: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
478: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
479: l_api_name);
480: END if;
481:
482: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
478: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
479: l_api_name);
480: END if;
481:
482: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
483: p_data => x_msg_data );
484:
485: END Delete_Row;
486:
533: END IF;
534:
535:
536: IF FND_API.to_Boolean ( p_init_msg_list ) THEN
537: FND_MSG_PUB.initialize ;
538: END IF;
539:
540: x_return_status := FND_API.G_RET_STS_SUCCESS ;
541:
555: IF FND_API.To_Boolean ( p_commit ) THEN
556: COMMIT WORK;
557: END iF;
558:
559: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
560: p_data => x_msg_data );
561:
562: EXCEPTION
563:
564: WHEN FND_API.G_EXC_ERROR THEN
565:
566: ROLLBACK TO Check_Unique_Pvt ;
567: x_return_status := FND_API.G_RET_STS_ERROR;
568: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
569: p_data => x_msg_data );
570:
571: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
572:
571: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
572:
573: ROLLBACK TO Check_Unique_Pvt ;
574: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
575: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
576: p_data => x_msg_data );
577:
578: WHEN OTHERS THEN
579:
579:
580: ROLLBACK TO Check_Unique_Pvt ;
581: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
582:
583: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
584: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
585: l_api_name);
586: END if;
587:
580: ROLLBACK TO Check_Unique_Pvt ;
581: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
582:
583: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
584: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
585: l_api_name);
586: END if;
587:
588: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
584: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
585: l_api_name);
586: END if;
587:
588: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
589: p_data => x_msg_data );
590:
591: END Check_Unique;
592: /* ----------------------------------------------------------------------- */