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