Oracle 10-in-turn 36 binary

CREATE OR REPLACE FUNCTION idfms.func_dec236 (parm in INT DEFAULT 0)
RETURN VARCHAR2
Is
/*
10 binary number to 36 binary number
*/
SRC VARCHAR2 (+): = ' 0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ '; --Change to another string, which is any binary
LEN INT;
Res VARCHAR2 (10): = ";
TMP INT;
Val INT;
BEGIN
TMP: = Parm;
Len: = LENGTH (SRC);

while (TMP >= 36)
LOOP
Val: = MOD (tmp, Len);
Res: = SUBSTR (src, val + 1, 1) | | Res
TMP: = TRUNC (Tmp/len);
END LOOP;

IF (tmp >= 0)
Then
Res: = SUBSTR (SRC, tmp + 1, 1) | | Res
END IF;

RETURN Res;
END;
/

Oracle 10-in-turn 36 binary