Obtener el codigo SQL de un procedimiento en ORACLE

select text from all_source where name = 'Nombre del procedimiento';

Contando sesiones de Oracle 10g

SELECT COUNT(*) FROM v$session WHERE USERNAME='pepito';
SELECT COUNT(*) FROM v$session WHERE SCHEMANAME='juanito';