993: IF (c%NOTFOUND)
994: THEN
995: CLOSE c;
996: FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_DELETED');
997: APP_EXCEPTION.Raise_Exception;
998: END IF; --(c%NOTFOUND)
999: CLOSE c;
1000:
1001: --To judge if a record has been changed by other programs as the form
1608: THEN
1609: RETURN;
1610: ELSE
1611: FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_CHANGED');
1612: APP_EXCEPTION.Raise_Exception;
1613: END IF; --((recinfo.ra_gl_date=p_ra_gl_date) ...
1614:
1615: --log for debug
1616: IF( l_proc_level >= l_dbg_level)