766: OPEN C;
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:
784: AND (X_Period_Num IS NULL)))
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;