641: IF (c%NOTFOUND)
642: THEN
643: CLOSE c;
644: FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_DELETED');
645: APP_EXCEPTION.Raise_Exception;
646: END IF; --(c%NOTFOUND)
647:
648: CLOSE c;
649:
957: THEN
958: RETURN;
959: ELSE
960: FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_CHANGED');
961: APP_EXCEPTION.Raise_Exception;
962: END IF; --((recinfo.org_id=p_org_id)...
963:
964: --log for debug
965: IF( l_proc_level >= l_dbg_level)