select to_word(65475647) from dual;

CREATE OR REPLACE FUNCTION HR.TO_WORD(nNumber IN NUMBER) 
RETURN VARCHAR2 IS
	vToWord			VARCHAR2(4000);
	numToCharConv 	VARCHAR2(125);
	vPartText		VARCHAR2(1000);
	nCounter		NUMBER;
	bFlag			BOOLEAN;
CURSOR toWordCur(vText in VARCHAR2) IS
    SELECT LEVEL,
           SUBSTR(vText,
                  GREATEST(-LEVEL*6,-LENGTH(vText)),
                  LEAST(6,LENGTH(vText)-6*(LEVEL-1))) as strPart
    FROM DUAL
    CONNECT BY LEVEL <= CEIL(LENGTH(vText)/6)
    ORDER BY LEVEL;
BEGIN
		numToCharConv := nNumber;
		nCounter := 0;
		bFlag := FALSE;
	IF nNumber = 0 THEN
		RETURN('ZERO');
	ELSIF nNumber < 0 THEN
		numToCharConv := NULL;
	    numToCharConv := ABS(nNumber);
	    bFlag := TRUE;
	END IF;	
	FOR WordFetchCur IN toWordCur(numToCharConv)
		LOOP
			SELECT TO_CHAR(TO_DATE(WordFetchCur.strPart,'J'),'JSP')
			INTO vPartText  
			FROM DUAL;
			IF WordFetchCur.LEVEL = 2 AND LENGTH(numToCharConv) > 6 THEN
				vToWord := vPartText||' MILLION '||vToWord;
			ELSE
				vToWord := vPartText||' '||vToWord;
			END IF;		
		END LOOP;
	IF bFlag THEN
	   	RETURN('MINUS '||vToWord);
	ELSE
		RETURN(vToWord);
	END IF;	
EXCEPTION WHEN OTHERS THEN
	RETURN('NUMBER IS TOO LONG TO CONVERT.');	
END;