Validar documento de identidad

[mariaoracle]

Al final lo he resuelto de esta forma:

CREATE OR REPLACE FUNCTION DNI
(DNI IN INT)
RETURN CHAR
IS
lletra CHAR(10);
BEGIN
lletra:=DNI || '-' || substr('TRWAGMYFPDXBNJZSQVHLCKE', MOD(dni,23)+1, 1);
RETURN(lletra);
END;

select dni(52478447) from dual;

El problemas es que ahora debo de Crear una función que calcule los dígitos de control del número de la Seguridad Social.(INSS)
y no tengo ni idea de como hacerlo