78: END IF;
79: --
80:
81: IF FND_API.to_Boolean ( p_init_msg_list ) THEN
82: FND_MSG_PUB.initialize ;
83: END IF;
84: --
85: p_return_status := FND_API.G_RET_STS_SUCCESS ;
86: --
185: IF FND_API.To_Boolean ( p_commit ) THEN
186: COMMIT WORK;
187: END iF;
188: --
189: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
190: p_data => p_msg_data );
191: --
192: EXCEPTION
193: --
194: WHEN FND_API.G_EXC_ERROR THEN
195: --
196: ROLLBACK TO Insert_Row_Pvt ;
197: p_return_status := FND_API.G_RET_STS_ERROR;
198: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
199: p_data => p_msg_data );
200: --
201: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
202: --
201: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
202: --
203: ROLLBACK TO Insert_Row_Pvt ;
204: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
205: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
206: p_data => p_msg_data );
207: --
208: WHEN OTHERS THEN
209: --
209: --
210: ROLLBACK TO Insert_Row_Pvt ;
211: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
212: --
213: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
214: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
215: l_api_name);
216: END if;
217: --
210: ROLLBACK TO Insert_Row_Pvt ;
211: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
212: --
213: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
214: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
215: l_api_name);
216: END if;
217: --
218: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
214: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
215: l_api_name);
216: END if;
217: --
218: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
219: p_data => p_msg_data );
220: --
221: END INSERT_ROW;
222:
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: p_return_status := FND_API.G_RET_STS_SUCCESS ;
339: --
461: ) then
462: p_lock_row := FND_API.G_TRUE;
463: ELSE
464: FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_CHANGED');
465: FND_MSG_PUB.Add;
466: RAISE FND_API.G_EXC_ERROR ;
467: END IF;
468:
469: --
470: IF FND_API.To_Boolean ( p_commit ) THEN
471: COMMIT WORK;
472: END iF;
473: --
474: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
475: p_data => p_msg_data );
476: --
477: EXCEPTION
478: --
480: --
481: ROLLBACK TO Lock_Row_Pvt ;
482: p_lock_row := FND_API.G_FALSE;
483: p_return_status := FND_API.G_RET_STS_ERROR;
484: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
485: p_data => p_msg_data );
486: --
487: WHEN FND_API.G_EXC_ERROR THEN
488: --
488: --
489: ROLLBACK TO Lock_Row_Pvt ;
490: p_lock_row := FND_API.G_FALSE;
491: p_return_status := FND_API.G_RET_STS_ERROR;
492: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
493: p_data => p_msg_data );
494: --
495: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
496: --
495: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
496: --
497: ROLLBACK TO Lock_Row_Pvt ;
498: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
499: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
500: p_data => p_msg_data );
501: --
502: WHEN OTHERS THEN
503: --
503: --
504: ROLLBACK TO Lock_Row_Pvt ;
505: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
506: --
507: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
508: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
509: l_api_name);
510: END if;
511: --
504: ROLLBACK TO Lock_Row_Pvt ;
505: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
506: --
507: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
508: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
509: l_api_name);
510: END if;
511: --
512: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
508: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
509: l_api_name);
510: END if;
511: --
512: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
513: p_data => p_msg_data );
514: --
515: END LOCK_ROW;
516:
581: END IF;
582: --
583:
584: IF FND_API.to_Boolean ( p_init_msg_list ) THEN
585: FND_MSG_PUB.initialize ;
586: END IF;
587: --
588: p_return_status := FND_API.G_RET_STS_SUCCESS ;
589: --
637: IF FND_API.To_Boolean ( p_commit ) THEN
638: COMMIT WORK;
639: END iF;
640: --
641: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
642: p_data => p_msg_data );
643: --
644: EXCEPTION
645: --
646: WHEN FND_API.G_EXC_ERROR THEN
647: --
648: ROLLBACK TO Update_Row_Pvt ;
649: p_return_status := FND_API.G_RET_STS_ERROR;
650: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
651: p_data => p_msg_data );
652: --
653: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
654: --
653: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
654: --
655: ROLLBACK TO Update_Row_Pvt ;
656: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
657: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
658: p_data => p_msg_data );
659: --
660: WHEN OTHERS THEN
661: --
661: --
662: ROLLBACK TO Update_Row_Pvt ;
663: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
664: --
665: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
666: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
667: l_api_name);
668: END if;
669: --
662: ROLLBACK TO Update_Row_Pvt ;
663: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
664: --
665: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
666: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
667: l_api_name);
668: END if;
669: --
670: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
666: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
667: l_api_name);
668: END if;
669: --
670: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
671: p_data => p_msg_data );
672: --
673: END UPDATE_ROW;
674:
699: END IF;
700: --
701:
702: IF FND_API.to_Boolean ( p_init_msg_list ) THEN
703: FND_MSG_PUB.initialize ;
704: END IF;
705: --
706: p_return_status := FND_API.G_RET_STS_SUCCESS ;
707: --
714: IF FND_API.To_Boolean ( p_commit ) THEN
715: COMMIT WORK;
716: END iF;
717: --
718: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
719: p_data => p_msg_data );
720:
721: EXCEPTION
722: --
723: WHEN FND_API.G_EXC_ERROR THEN
724: --
725: ROLLBACK TO Delete_Row_Pvt ;
726: p_return_status := FND_API.G_RET_STS_ERROR;
727: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
728: p_data => p_msg_data );
729: --
730: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
731: --
730: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
731: --
732: ROLLBACK TO Delete_Row_Pvt ;
733: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
734: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
735: p_data => p_msg_data );
736: --
737: WHEN OTHERS THEN
738: --
738: --
739: ROLLBACK TO Delete_Row_Pvt ;
740: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
741: --
742: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
743: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
744: l_api_name);
745: END if;
746: --
739: ROLLBACK TO Delete_Row_Pvt ;
740: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
741: --
742: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
743: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
744: l_api_name);
745: END if;
746: --
747: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
743: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
744: l_api_name);
745: END if;
746: --
747: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
748: p_data => p_msg_data );
749: --
750: END DELETE_ROW;
751:
790: END IF;
791: --
792:
793: IF FND_API.to_Boolean ( p_init_msg_list ) THEN
794: FND_MSG_PUB.initialize ;
795: END IF;
796: --
797: p_return_status := FND_API.G_RET_STS_SUCCESS ;
798: --
813: IF FND_API.To_Boolean ( p_commit ) THEN
814: COMMIT WORK;
815: END iF;
816: --
817: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
818: p_data => p_msg_data );
819:
820: EXCEPTION
821: --
822: WHEN FND_API.G_EXC_ERROR THEN
823: --
824: ROLLBACK TO Check_References_Pvt ;
825: p_return_status := FND_API.G_RET_STS_ERROR;
826: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
827: p_data => p_msg_data );
828: --
829: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
830: --
829: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
830: --
831: ROLLBACK TO Check_References_Pvt ;
832: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
833: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
834: p_data => p_msg_data );
835: --
836: WHEN OTHERS THEN
837: --
837: --
838: ROLLBACK TO Check_References_Pvt ;
839: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
840: --
841: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
842: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
843: l_api_name);
844: END if;
845: --
838: ROLLBACK TO Check_References_Pvt ;
839: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
840: --
841: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
842: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
843: l_api_name);
844: END if;
845: --
846: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
842: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
843: l_api_name);
844: END if;
845: --
846: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
847: p_data => p_msg_data );
848: --
849: END Check_References;
850: