58: OPEN C;
59: FETCH C INTO Recinfo;
60: if (C%NOTFOUND) then
61: CLOSE C;
62: FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_DELETED');
63: APP_EXCEPTION.Raise_Exception;
64: end if;
65:
66: if ( RTRIM(Recinfo.event_type) = RTRIM(X_Event_Type)
70: CLOSE C;
71: return;
72: else
73: CLOSE C;
74: FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_CHANGED');
75: APP_EXCEPTION.Raise_Exception;
76: end if;
77: END Lock_Row;
78: