767: FETCH C INTO Recinfo;
768: if (C%NOTFOUND) then
769: CLOSE C;
770: FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_DELETED');
771: APP_EXCEPTION.Raise_Exception;
772: end if;
773: CLOSE C;
774:
775: -- not finished. still need to add rest of columns from table.
785: ) then
786: return;
787: else
788: FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_CHANGED');
789: APP_EXCEPTION.Raise_Exception;
790: end if;
791:
792: END Lock_Row;
793: