581: if (C%NOTFOUND) then
582: CLOSE C;
583: FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_DELETED');
584: FND_MESSAGE.raise_error;
585: APP_EXCEPTION.raise_exception;
586: end if;
587: CLOSE C;
588: if (
589:
671: return;
672: else
673: FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_CHANGED');
674: FND_MESSAGE.raise_error;
675: APP_EXCEPTION.RAISE_EXCEPTION;
676: end if;
677: END Lock_Row;
678:
679: PROCEDURE Update_Row(X_Rowid VARCHAR2,