/****************************************************************************/
/* SYSTEM_ID : GE                                                           */
/* ERR_CODE ( FUNCTION )                                                    */
/* Created : 2014/12/13 13:30:48                                            */
/****************************************************************************/
CREATE FUNCTION ERR_CODE 
function ERR_CODE(
	in_errcode       in varchar2  )
return varchar2
is
	indx     NUMBER ;
    errcode  NUMBER ;
begin
	indx := INSTR(in_errcode,'-');

	IF indx > 0 THEN errcode := TO_NUMBER(SUBSTR( in_errcode,indx ));
	ELSE errcode := -TO_NUMBER(in_errcode);
	END IF;

	return sqlerrm(errcode);

end ERR_CODE;
/
