84: OPEN C;
85: FETCH C INTO Recinfo;
86: if (C%NOTFOUND) then
87: CLOSE C;
88: FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_DELETED');
89: APP_EXCEPTION.Raise_Exception;
90: end if;
91: CLOSE C;
92: if (
106: OR ((Recinfo.Year_Last_Period IS NULL)
107: AND (X_Year_Last_Period IS NULL)))) then
108: return;
109: else
110: FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_CHANGED');
111: APP_EXCEPTION.Raise_Exception;
112: end if;
113:
114: end LOCK_ROW;