104: END IF;
105:
106:
107: IF FND_API.to_Boolean ( p_init_msg_list ) THEN
108: FND_MSG_PUB.initialize ;
109: END IF;
110:
111: X_return_status := FND_API.G_RET_STS_SUCCESS ;
112:
300: IF FND_API.To_Boolean ( p_commit ) THEN
301: COMMIT WORK;
302: END iF;
303:
304: FND_MSG_PUB.Count_And_Get ( p_count => X_msg_count,
305: p_data => X_msg_data );
306: RETURN;
307:
308: EXCEPTION
320: IF (c_det_pf_info%ISOPEN) THEN
321: CLOSE c_det_pf_info;
322: END IF;
323:
324: FND_MSG_PUB.Count_And_Get ( p_count => X_msg_count,
325: p_data => X_msg_data );
326:
327: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
328:
337: IF (c_det_pf_info%ISOPEN) THEN
338: CLOSE c_det_pf_info;
339: END IF;
340:
341: FND_MSG_PUB.Count_And_Get ( p_count => X_msg_count,
342: p_data => X_msg_data );
343:
344: WHEN OTHERS THEN
345:
354: IF (c_det_pf_info%ISOPEN) THEN
355: CLOSE c_det_pf_info;
356: END IF;
357:
358: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
359: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
360: l_api_name);
361: END if;
362:
355: CLOSE c_det_pf_info;
356: END IF;
357:
358: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
359: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
360: l_api_name);
361: END if;
362:
363: FND_MSG_PUB.Count_And_Get ( p_count => X_msg_count,
359: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
360: l_api_name);
361: END if;
362:
363: FND_MSG_PUB.Count_And_Get ( p_count => X_msg_count,
364: p_data => X_msg_data );
365:
366: END Insert_Row;
367:
444: END IF;
445:
446:
447: IF FND_API.to_Boolean ( p_init_msg_list ) THEN
448: FND_MSG_PUB.initialize ;
449: END IF;
450:
451: X_return_status := FND_API.G_RET_STS_SUCCESS ;
452: X_row_locked := FND_API.G_TRUE ;
457:
458: IF (C%NOTFOUND) THEN
459: CLOSE C;
460: FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_DELETED');
461: FND_MSG_PUB.Add;
462: RAISE FND_API.G_EXC_ERROR ;
463: END IF;
464:
465: CLOSE C;
554:
555: ELSE
556:
557: FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_CHANGED');
558: FND_MSG_PUB.Add;
559: RAISE FND_API.G_EXC_ERROR ;
560:
561: END IF;
562:
563: IF FND_API.To_Boolean ( p_commit ) THEN
564: COMMIT WORK;
565: END iF;
566:
567: FND_MSG_PUB.Count_And_Get ( p_count => X_msg_count,
568: p_data => X_msg_data );
569:
570: EXCEPTION
571:
573:
574: ROLLBACK TO Lock_Row_Pvt ;
575: X_row_locked := FND_API.G_FALSE;
576: X_return_status := FND_API.G_RET_STS_ERROR;
577: FND_MSG_PUB.Count_And_Get ( p_count => X_msg_count,
578: p_data => X_msg_data );
579:
580: WHEN FND_API.G_EXC_ERROR THEN
581:
580: WHEN FND_API.G_EXC_ERROR THEN
581:
582: ROLLBACK TO Lock_Row_Pvt ;
583: X_return_status := FND_API.G_RET_STS_ERROR;
584: FND_MSG_PUB.Count_And_Get ( p_count => X_msg_count,
585: p_data => X_msg_data );
586:
587: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
588:
587: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
588:
589: ROLLBACK TO Lock_Row_Pvt ;
590: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
591: FND_MSG_PUB.Count_And_Get ( p_count => X_msg_count,
592: p_data => X_msg_data );
593:
594: WHEN OTHERS THEN
595:
595:
596: ROLLBACK TO Lock_Row_Pvt ;
597: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
598:
599: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
600: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
601: l_api_name);
602: END if;
603:
596: ROLLBACK TO Lock_Row_Pvt ;
597: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
598:
599: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
600: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
601: l_api_name);
602: END if;
603:
604: FND_MSG_PUB.Count_And_Get ( p_count => X_msg_count,
600: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
601: l_api_name);
602: END if;
603:
604: FND_MSG_PUB.Count_And_Get ( p_count => X_msg_count,
605: p_data => X_msg_data );
606:
607: END Lock_Row;
608:
674: END IF;
675:
676:
677: IF FND_API.to_Boolean ( p_init_msg_list ) THEN
678: FND_MSG_PUB.initialize ;
679: END IF;
680:
681: X_return_status := FND_API.G_RET_STS_SUCCESS ;
682:
726: IF FND_API.To_Boolean ( p_commit ) THEN
727: COMMIT WORK;
728: END iF;
729:
730: FND_MSG_PUB.Count_And_Get ( p_count => X_msg_count,
731: p_data => X_msg_data );
732:
733: EXCEPTION
734:
735: WHEN FND_API.G_EXC_ERROR THEN
736:
737: ROLLBACK TO Update_Row_Pvt ;
738: X_return_status := FND_API.G_RET_STS_ERROR;
739: FND_MSG_PUB.Count_And_Get ( p_count => X_msg_count,
740: p_data => X_msg_data );
741:
742: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
743:
742: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
743:
744: ROLLBACK TO Update_Row_Pvt ;
745: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
746: FND_MSG_PUB.Count_And_Get ( p_count => X_msg_count,
747: p_data => X_msg_data );
748:
749: WHEN OTHERS THEN
750:
750:
751: ROLLBACK TO Update_Row_Pvt ;
752: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
753:
754: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
755: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
756: l_api_name);
757: END if;
758:
751: ROLLBACK TO Update_Row_Pvt ;
752: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
753:
754: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
755: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
756: l_api_name);
757: END if;
758:
759: FND_MSG_PUB.Count_And_Get ( p_count => X_msg_count,
755: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
756: l_api_name);
757: END if;
758:
759: FND_MSG_PUB.Count_And_Get ( p_count => X_msg_count,
760: p_data => X_msg_data );
761:
762: END Update_Row;
763:
797: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
798: END IF;
799:
800: IF FND_API.to_Boolean ( p_init_msg_list ) THEN
801: FND_MSG_PUB.initialize ;
802: END IF ;
803:
804: X_return_status := FND_API.G_RET_STS_SUCCESS ;
805:
814: IF FND_API.To_Boolean ( p_commit ) THEN
815: COMMIT WORK;
816: END iF;
817:
818: FND_MSG_PUB.Count_And_Get ( p_count => X_msg_count,
819: p_data => X_msg_data );
820:
821: EXCEPTION
822:
823: WHEN FND_API.G_EXC_ERROR THEN
824:
825: ROLLBACK TO Delete_Row_Pvt ;
826: X_return_status := FND_API.G_RET_STS_ERROR;
827: FND_MSG_PUB.Count_And_Get ( p_count => X_msg_count,
828: p_data => X_msg_data );
829:
830: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
831:
830: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
831:
832: ROLLBACK TO Delete_Row_Pvt ;
833: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
834: FND_MSG_PUB.Count_And_Get ( p_count => X_msg_count,
835: p_data => X_msg_data );
836:
837: WHEN OTHERS THEN
838:
838:
839: ROLLBACK TO Delete_Row_Pvt ;
840: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
841:
842: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
843: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
844: l_api_name);
845: END if;
846:
839: ROLLBACK TO Delete_Row_Pvt ;
840: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
841:
842: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
843: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
844: l_api_name);
845: END if;
846:
847: FND_MSG_PUB.Count_And_Get ( p_count => X_msg_count,
843: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
844: l_api_name);
845: END if;
846:
847: FND_MSG_PUB.Count_And_Get ( p_count => X_msg_count,
848: p_data => X_msg_data );
849:
850: END Delete_Row;
851: