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 ;
65:
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,
132: p_data => p_msg_data );
133: EXCEPTION
134:
135: WHEN FND_API.G_EXC_ERROR THEN
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
143:
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
150:
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);
157: END if;
158:
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);
157: END if;
158:
159: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
155: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
156: l_api_name);
157: END if;
158:
159: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
160: p_data => p_msg_data );
161:
162:
163: END Insert_Row;
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 ;
219:
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,
265: p_data => p_msg_data );
266:
267: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
268:
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
275:
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);
282: END if;
283:
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);
282: END if;
283:
284: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
280: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
281: l_api_name);
282: END if;
283:
284: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
285: p_data => p_msg_data );
286:
287: END Update_Row;
288:
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 ;
370: p_row_locked := FND_API.G_TRUE ;
436: ) 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
446: COMMIT WORK;
447: END iF;
448:
449: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
450: p_data => p_msg_data );
451:
452: EXCEPTION
453:
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
463:
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
470:
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
477:
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);
484: END if;
485:
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);
484: END if;
485:
486: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
482: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
483: l_api_name);
484: END if;
485:
486: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
487: p_data => p_msg_data );
488:
489: END Lock_Row;
490:
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 ;
530:
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,
573: p_data => p_msg_data );
574:
575: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
576:
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
583:
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);
590: END IF;
591:
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);
590: END IF;
591:
592: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
588: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
589: l_api_name);
590: END IF;
591:
592: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
593: p_data => p_msg_data );
594:
595:
596: END DELETE_ROW;
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 ;
638:
656: -- COMMIT WORK;
657:
658: -- END IF;
659:
660: -- FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
661: -- p_data => p_msg_data );
662: --
663:
664: /* EXCEPTION
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
674:
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
681:
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);
688: END if;
689:
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);
688: END if;
689:
690: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
686: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
687: l_api_name);
688: END if;
689:
690: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
691: p_data => p_msg_data );
692: */
693:
694: END CHECK_UNIQUE;