614: FETCH C INTO Recinfo;
615: if (C%NOTFOUND) then
616: CLOSE C;
617: FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_DELETED');
618: APP_EXCEPTION.Raise_Exception;
619: end if;
620: CLOSE C;
621:
622: if (
707: ) then
708: return;
709: else
710: FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_CHANGED');
711: APP_EXCEPTION.Raise_Exception;
712: end if;
713: END Lock_Row;
714:
715: --Name: Update_Row