Query to get Running Concurrent Programs in Oracle Apps

SELECT req.request_id request_id,
       proc.os_process_id os_process_id,
       summ.user_concurrent_program_name concurrent_program,
       proc.oracle_process_id OPID,
       vsess.username DBUSER,
       vproc.spid SVRPROC,
       LTRIM (vsess.SID) SID,
       LTRIM (vsess.serial#) SERIAL#
  FROM apps.fnd_concurrent_requests req,
       apps.fnd_concurrent_processes proc,
       v$process vproc,
       v$session vsess,
       apps.fnd_concurrent_programs_tl summ,
       v$sqlarea area
 WHERE     req.controlling_manager = proc.concurrent_process_id(+)
       AND req.concurrent_program_id = summ.concurrent_program_id
       AND summ.LANGUAGE = 'US'
       AND proc.oracle_process_id = vproc.pid(+)
       AND vproc.addr = vsess.paddr(+)
       AND vsess.sql_address = area.address(+)
       AND req.request_id IN (SELECT request_id
                                FROM fnd_concurrent_requests
                               WHERE status_code = 'R')