Query to list all the registered Concurrent Programs and Forms by Specific module.

--Query to list all the registered concurrent programs and Forms by Specific module.
SELECT DISTINCT a.application_name
      ,b.application_short_name
      ,DECODE(SUBSTR(cp.user_concurrent_program_name,4,1),':'
         ,'Concurrent Manager Executable'
         ,'Subprogram or Function') TYPE
      ,DECODE (d.execution_method_code,
        'B', 'Request Set Stage Function',
        'Q', 'SQL* Plus',
        'H', 'Host',
        'L', 'SQL* Loader',
        'A', 'Spawned',
        'I', 'PL/SQL Stored Procedure',
        'P', 'Oracle Reports',
        'S', 'Immediate',
        'K', 'XML - Java Concurrent Program',
        d.execution_method_code
        ) exe_method
      ,d.concurrent_program_name PROGRAM_SHORT_NAME
      ,cp.user_concurrent_program_name USER_PROGRAM_NAME
      ,d.ENABLED_FLAG
FROM  FND_CONCURRENT_PROGRAMS_TL cp
     ,FND_CONCURRENT_PROGRAMS d
     ,FND_APPLICATION_TL a
     ,fnd_application b
WHERE cp.application_id = a.application_id
  AND d.CONCURRENT_PROGRAM_ID = cp.CONCURRENT_PROGRAM_ID
  AND a.APPLICATION_ID = b.APPLICATION_ID
  AND b.application_short_name LIKE UPPER('XXAP%')
UNION ALL
SELECT DISTINCT SUBSTR(a.application_name,1,60) APPLICATION_NAME
      ,b.application_short_name APPLICATION_SHORT_NAME      
      ,'Form Executable' TYPE
      ,NULL EXE_METHOD
      ,SUBSTR(f.form_name,1,16) PROGRAM_SHORT_NAME      
      ,SUBSTR(d.user_form_name,1,55) USER_PROGRAM_NAME
      ,NULL ENABLED_FLAG
  FROM fnd_form f
      ,FND_APPLICATION_TL a
      ,fnd_application b
      ,FND_FORM_TL d
WHERE f.application_id = a.application_id
  AND d.FORM_ID = f.FORM_ID
  AND a.APPLICATION_ID = b.APPLICATION_ID
  AND b.application_short_name LIKE UPPER('XXPA%')
ORDER BY 6