select count(1) into v_count from v$open_cursor where sql_text like '%procedure_name%'
if v_count>0 then
    正在运行。
else
    没有在运行。
end if;