329: OPEN C;
330: FETCH C INTO Recinfo;
331: if (C%NOTFOUND) then
332: CLOSE C;
333: FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_DELETED');
334: APP_EXCEPTION.Raise_Exception;
335: end if;
336: CLOSE C;
337: if (
415: AND (P_PROGRAM_UPDATE_DATE IS NULL)))
416: ) then
417: return;
418: else
419: FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_CHANGED');
420: APP_EXCEPTION.Raise_Exception;
421: end if;
422:
423: -- End of API body.