[Home] [Help]
154: OPEN C;
155: FETCH C INTO Recinfo;
156: IF (C%NOTFOUND) THEN
157: CLOSE C;
158: FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_DELETED');
159: APP_EXCEPTION.Raise_Exception;
160: END IF;
161: CLOSE C;
162:
209: AND (p_PROGRAM_UPDATE_DATE IS NULL)))
210: ) THEN
211: return;
212: ELSE
213: FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_CHANGED');
214: APP_EXCEPTION.Raise_Exception;
215: END IF;
216: END Lock_Row;
217: END;