Script to display status of all the Concurrent Managers

SELECT DISTINCT
concurrent_process_id "Concurrent Process ID",
pid "System Process ID",
os_process_id "Oracle Process ID",
q.concurrent_queue_name "Concurrent Manager Name",
p.process_status_code "Status of Concurrent Manager",
TO_CHAR (p.process_start_date, 'MM-DD-YYYY HH:MI:SSAM')
"Concurrent Manager Started at"
FROM fnd_concurrent_processes p, fnd_concurrent_queues q, fnd_v$process
WHERE q.application_id = queue_application_id
AND q.concurrent_queue_id = p.concurrent_queue_id
AND spid = os_process_id
AND process_status_code NOT IN ('K', 'S')
ORDER BY concurrent_process_id, os_process_id, q.concurrent_queue_name