 	   SELECT 'CONC MGR' "Sess_Source",
           s.status "Status",
           s.serial# "Serial#",
           s.TYPE "TYPE",
           s.username "DB User",
           s.osuser "Client User",
           s.server "Server",
           s.machine "Machine",
           s.MODULE "Module",
           s.client_info "Client Info",
           s.terminal "Terminal",
           s.program "Program",
           p.program "O.S. Program",
           s.logon_time "Connect Time",
           lockwait "Lock Wait",
           si.physical_reads "Physical Reads",
           si.block_gets "Block Gets",
           si.consistent_gets "Consistent Gets",
           si.block_changes "Block Changes",
           si.consistent_changes "Consistent Changes",
           s.process "Process",
           p.spid,
           p.pid,
           si.SID,
           s.audsid,
           s.sql_address "Address",
           s.sql_hash_value "Sql Hash",
           s.action,
           SYSDATE - (s.last_call_et / 86400) "Last Call"
      FROM v$session s,
           v$process p,
           SYS.v_$sess_io si,
           fnd_concurrent_processes fcp
     WHERE     s.paddr = p.addr(+)
           AND si.SID(+) = s.SID
           AND fcp.process_status_code = 'A'
           AND fcp.oracle_process_id = p.pid
    



    SELECT 'CONC REQUESTS' "Sess_Source",
           s.status "Status",
           s.serial# "Serial#",
           s.TYPE "TYPE",
           s.username "DB User",
           s.osuser "Client User",
           s.server "Server",
           s.machine "Machine",
           s.MODULE "Module",
           s.client_info "Client Info",
           s.terminal "Terminal",
           s.program "Program",
           p.program "O.S. Program",
           s.logon_time "Connect Time",
           lockwait "Lock Wait",
           si.physical_reads "Physical Reads",
           si.block_gets "Block Gets",
           si.consistent_gets "Consistent Gets",
           si.block_changes "Block Changes",
           si.consistent_changes "Consistent Changes",
           s.process "Process",
           p.spid,
           p.pid,
           si.SID,
           s.audsid,
           s.sql_address "Address",
           s.sql_hash_value "Sql Hash",
           s.action,
           SYSDATE - (s.last_call_et / 86400) "Last Call"
      FROM v$session s, v$process p, SYS.v_$sess_io si
     WHERE     s.paddr = p.addr(+)
           AND si.SID(+) = s.SID
           AND (s.ACTION = 'Concurrent Request' OR s.MODULE LIKE 'SVC:GSM%')
    UNION ALL
    SELECT 'BACKGROUND' "Sess_Source",
           s.status "Status",
           s.serial# "Serial#",
           s.TYPE "TYPE",
           s.username "DB User",
           s.osuser "Client User",
           s.server "Server",
           s.machine "Machine",
           s.MODULE "Module",
           s.client_info "Client Info",
           s.terminal "Terminal",
           s.program "Program",
           p.program "O.S. Program",
           s.logon_time "Connect Time",
           lockwait "Lock Wait",
           si.physical_reads "Physical Reads",
           si.block_gets "Block Gets",
           si.consistent_gets "Consistent Gets",
           si.block_changes "Block Changes",
           si.consistent_changes "Consistent Changes",
           s.process "Process",
           p.spid,
           p.pid,
           si.SID,
           s.audsid,
           s.sql_address "Address",
           s.sql_hash_value "Sql Hash",
           s.action,
           SYSDATE - (s.last_call_et / 86400) "Last Call"
      FROM v$session s, v$process p, SYS.v_$sess_io si
     WHERE     s.paddr = p.addr(+)
           AND si.SID(+) = s.SID
           AND (   s.TYPE = 'BACKGROUND'
                OR S.PROGRAM LIKE '%QMN%'
                OR S.PROGRAM LIKE '%CJQ%')
    UNION ALL
    SELECT 'DB JDBC' "Sess_Source",
           s.status "Status",
           s.serial# "Serial#",
           s.TYPE "TYPE",
           s.username "DB User",
           s.osuser "Client User",
           s.server "Server",
           s.machine "Machine",
           s.MODULE "Module",
           s.client_info "Client Info",
           s.terminal "Terminal",
           s.program "Program",
           p.program "O.S. Program",
           s.logon_time "Connect Time",
           lockwait "Lock Wait",
           si.physical_reads "Physical Reads",
           si.block_gets "Block Gets",
           si.consistent_gets "Consistent Gets",
           si.block_changes "Block Changes",
           si.consistent_changes "Consistent Changes",
           s.process "Process",
           p.spid,
           p.pid,
           si.SID,
           s.audsid,
           s.sql_address "Address",
           s.sql_hash_value "Sql Hash",
           s.action,
           SYSDATE - (s.last_call_et / 86400) "Last Call"
      FROM v$session s,
           v$process p,
           SYS.v_$sess_io si,
           v$instance vi
     WHERE     s.paddr = p.addr(+)
           AND si.SID(+) = s.SID
           AND UPPER (s.machine) = UPPER (vi.host_name)
           AND S.PROGRAM = 'JDBC Thin Client'
           AND s.MODULE = 'JDBC Thin Client'


    SELECT 'APP JDBC' "Sess_Source",
           s.status "Status",
           s.serial# "Serial#",
           s.TYPE "TYPE",
           s.username "DB User",
           s.osuser "Client User",
           s.server "Server",
           s.machine "Machine",
           s.MODULE "Module",
           s.client_info "Client Info",
           s.terminal "Terminal",
           s.program "Program",
           p.program "O.S. Program",
           s.logon_time "Connect Time",
           lockwait "Lock Wait",
           si.physical_reads "Physical Reads",
           si.block_gets "Block Gets",
           si.consistent_gets "Consistent Gets",
           si.block_changes "Block Changes",
           si.consistent_changes "Consistent Changes",
           s.process "Process",
           p.spid,
           p.pid,
           si.SID,
           s.audsid,
           s.sql_address "Address",
           s.sql_hash_value "Sql Hash",
           s.action,
           SYSDATE - (s.last_call_et / 86400) "Last Call"
      FROM v$session s,
           v$process p,
           SYS.v_$sess_io si,
           v$instance vi
     WHERE     s.paddr = p.addr(+)
           AND si.SID(+) = s.SID
           AND UPPER (s.machine) <> UPPER (vi.host_name)
           AND S.PROGRAM = 'JDBC Thin Client'
           AND s.MODULE = 'JDBC Thin Client'
           AND NVL (s.client_info, '!') NOT LIKE '%OXTA%'



    SELECT 'AM POOL' "Sess_Source",
           s.status "Status",
           s.serial# "Serial#",
           s.TYPE "TYPE",
           s.username "DB User",
           s.osuser "Client User",
           s.server "Server",
           s.machine "Machine",
           s.MODULE "Module",
           s.client_info "Client Info",
           s.terminal "Terminal",
           s.program "Program",
           p.program "O.S. Program",
           s.logon_time "Connect Time",
           lockwait "Lock Wait",
           si.physical_reads "Physical Reads",
           si.block_gets "Block Gets",
           si.consistent_gets "Consistent Gets",
           si.block_changes "Block Changes",
           si.consistent_changes "Consistent Changes",
           s.process "Process",
           p.spid,
           p.pid,
           si.SID,
           s.audsid,
           s.sql_address "Address",
           s.sql_hash_value "Sql Hash",
           s.action,
           SYSDATE - (s.last_call_et / 86400) "Last Call"
      FROM v$session s,
           v$process p,
           SYS.v_$sess_io si,
           v$instance vi
     WHERE     s.paddr = p.addr(+)
           AND si.SID(+) = s.SID
           AND UPPER (s.machine) <> UPPER (vi.host_name)
           AND S.PROGRAM = 'JDBC Thin Client'
           AND s.MODULE <> 'JDBC Thin Client'
           AND NVL (s.client_info, '!') NOT LIKE '%OXTA%'
   



    SELECT 'SQL' "Sess_Source",
           s.status "Status",
           s.serial# "Serial#",
           s.TYPE "TYPE",
           s.username "DB User",
           s.osuser "Client User",
           s.server "Server",
           s.machine "Machine",
           s.MODULE "Module",
           s.client_info "Client Info",
           s.terminal "Terminal",
           s.program "Program",
           p.program "O.S. Program",
           s.logon_time "Connect Time",
           lockwait "Lock Wait",
           si.physical_reads "Physical Reads",
           si.block_gets "Block Gets",
           si.consistent_gets "Consistent Gets",
           si.block_changes "Block Changes",
           si.consistent_changes "Consistent Changes",
           s.process "Process",
           p.spid,
           p.pid,
           si.SID,
           s.audsid,
           s.sql_address "Address",
           s.sql_hash_value "Sql Hash",
           s.action,
           SYSDATE - (s.last_call_et / 86400) "Last Call"
      FROM v$session s, v$process p, SYS.v_$sess_io si
     WHERE     s.paddr = p.addr(+)
           AND si.SID(+) = s.SID
           AND (   UPPER (s.MODULE) IN
                      ('T.O.A.D.',
                       'TOAD',
                       'PL/SQL DEVELOPER',
                       'SQL*PLUS',
                       'SQL DEVELOPER')
                OR s.MODULE LIKE 'sqlplus%'
                OR UPPER (s.MODULE) LIKE 'C:\%'
                OR UPPER (s.module) LIKE 'TOAD%')



    SELECT 'FORMS' "Sess_Source",
           s.status "Status",
           s.serial# "Serial#",
           s.TYPE "TYPE",
           s.username "DB User",
           s.osuser "Client User",
           s.server "Server",
           s.machine "Machine",
           s.MODULE "Module",
           s.client_info "Client Info",
           s.terminal "Terminal",
           s.program "Program",
           p.program "O.S. Program",
           s.logon_time "Connect Time",
           lockwait "Lock Wait",
           si.physical_reads "Physical Reads",
           si.block_gets "Block Gets",
           si.consistent_gets "Consistent Gets",
           si.block_changes "Block Changes",
           si.consistent_changes "Consistent Changes",
           s.process "Process",
           p.spid,
           p.pid,
           si.SID,
           s.audsid,
           s.sql_address "Address",
           s.sql_hash_value "Sql Hash",
           s.action,
           SYSDATE - (s.last_call_et / 86400) "Last Call"
      FROM v$session s,
           v$process p,
           SYS.v_$sess_io si,
           (SELECT FORM_NAME FROM fnd_fORM
            UNION ALL
            SELECT 'FNDSCSGN' FROM DUAL) ff
     WHERE     s.paddr = p.addr(+)
           AND si.SID(+) = s.SID
           AND s.MODULE = ff.FORM_NAME
    


    	
    UNION ALL
    SELECT 'OEM' "Sess_Source",
           s.status "Status",
           s.serial# "Serial#",
           s.TYPE "TYPE",
           s.username "DB User",
           s.osuser "Client User",
           s.server "Server",
           s.machine "Machine",
           s.MODULE "Module",
           s.client_info "Client Info",
           s.terminal "Terminal",
           s.program "Program",
           p.program "O.S. Program",
           s.logon_time "Connect Time",
           lockwait "Lock Wait",
           si.physical_reads "Physical Reads",
           si.block_gets "Block Gets",
           si.consistent_gets "Consistent Gets",
           si.block_changes "Block Changes",
           si.consistent_changes "Consistent Changes",
           s.process "Process",
           p.spid,
           p.pid,
           si.SID,
           s.audsid,
           s.sql_address "Address",
           s.sql_hash_value "Sql Hash",
           s.action,
           SYSDATE - (s.last_call_et / 86400) "Last Call"
      FROM v$session s, v$process p, SYS.v_$sess_io si
     WHERE     s.paddr = p.addr(+)
           AND si.SID(+) = s.SID
           AND s.program LIKE 'jrew.exe%'

