How to find responsibility name and request group name for given concurrent program

By using below script it is possible to find responsibility name and request group name for given concurrent program.

SELECT frt.responsibility_name,
               frg.request_group_name,
               frg.description,
                fcpt.user_concurrent_program_name
  FROM fnd_request_groups frg
             ,fnd_request_group_units frgu
             ,fnd_concurrent_programs fcp
             ,fnd_concurrent_programs_tl fcpt
             ,fnd_responsibility_tl frt
             ,fnd_responsibility frs
 WHERE frgu.unit_application_id = fcp.application_id
 AND   frgu.request_unit_id = fcp.concurrent_program_id
 AND   frg.request_group_id = frgu.request_group_id
 AND   frg.application_id = frgu.application_id
 AND   fcp.application_id = fcpt.application_id
 AND   fcp.concurrent_program_id = fcpt.concurrent_program_id
 AND   frs.application_id = frt.application_id
 AND   frs.responsibility_id = frt.responsibility_id
 AND   frs.request_group_id = frg.request_group_id
 AND   frs.application_id = frg.application_id
 AND   fcp.concurrent_program_name = 'PROGRAM_SHORT_NAME'
 AND   fcpt.user_concurrent_program_name LIKE '%PROGRAM_NAME%'