80: FETCH C INTO Recinfo;
81: IF (C%NOTFOUND) THEN
82: CLOSE C;
83: FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_DELETED');
84: APP_EXCEPTION.Raise_Exception;
85: END IF;
86: CLOSE C;
87: IF (
88: (Recinfo.book_type_code = X_Book_Type_Code)
91: ) THEN
92: RETURN;
93: ELSE
94: FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_CHANGED');
95: APP_EXCEPTION.Raise_Exception;
96: END IF;
97: END Lock_Row;
98:
99: