115: FETCH C INTO Recinfo;
116: IF (C%NOTFOUND) THEN
117: CLOSE C;
118: FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_DELETED');
119: APP_EXCEPTION.Raise_Exception;
120: END IF;
121: CLOSE C;
122: IF (
123: (Recinfo.capital_event_id = X_Capital_Event_Id)
132: ) THEN
133: RETURN;
134: ELSE
135: FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_CHANGED');
136: APP_EXCEPTION.Raise_Exception;
137: END IF;
138: END Lock_Row;
139:
140: