FUNCTION xx_abhi_filename_change (p_filename IN VARCHAR2)
RETURN VARCHAR2

IS
v_fname VARCHAR2 (50);
v_file_extn VARCHAR2 (16);
v_new_fname VARCHAR2 (50);
v_file_name VARCHAR2 (50);
BEGIN
v_file_name := p_filename;

BEGIN
SELECT SUBSTR (v_file_name, 1, INSTR (v_file_name, '.') - 1)
INTO v_fname
FROM DUAL;
EXCEPTION
WHEN OTHERS
THEN
v_fname := NULL;
END;

BEGIN
SELECT TO_CHAR (SYSDATE, 'DDMonYYYY.HHMMSS')
INTO v_file_extn
FROM DUAL;
EXCEPTION
WHEN OTHERS
THEN
v_file_extn := NULL;
END;

v_new_fname := v_fname || '.' || v_file_extn;
RETURN v_new_fname;
EXCEPTION
WHEN OTHERS
THEN
RETURN v_file_name;
END xx_tp_abhi_filename_change;