Query to find request group and application information for a concurrent program

SELECT cpt.user_concurrent_program_name
      ,DECODE(rgu.request_unit_type,
              'P', 'Program',
              'S', 'Set',
              rgu.request_unit_type) request_unit_type
      ,cp.concurrent_program_name Concurrent_Program_Short_Name
      ,rg.application_id
      ,rg.request_group_name
      ,fat.application_name
      ,fa.application_short_name
      ,fa.basepath application_basepath
  FROM fnd_request_groups          rg,
       fnd_request_group_units     rgu,
       fnd_concurrent_programs     cp,
       fnd_concurrent_programs_tl  cpt,
       fnd_application             fa,
       fnd_application_tl          fat
 WHERE rg.request_group_id       =  rgu.request_group_id
   AND rgu.request_unit_id       =  cp.concurrent_program_id
   AND cp.concurrent_program_id  =  cpt.concurrent_program_id
   AND rg.application_id         =  fat.application_id
   AND fa.application_id         =  fat.application_id
   AND cpt.language              =  USERENV('LANG')
   AND fat.language              =  USERENV('LANG')
   AND (cpt.user_concurrent_program_name = :p_user_program_name OR :p_user_program_name IS NULL)