71: OPEN C;
72: FETCH C INTO Recinfo;
73: if (C%NOTFOUND) then
74: CLOSE C;
75: FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_DELETED');
76: APP_EXCEPTION.Raise_Exception;
77: end if;
78: CLOSE C;
79: if (
84: AND (Recinfo.date_effective = X_Date_Effective)
85: ) then
86: return;
87: else
88: FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_CHANGED');
89: APP_EXCEPTION.Raise_Exception;
90: end if;
91: END Lock_Row;
92: