Query to Find Concurrent Program Responsibilities

Query to get Responsibilities for which Concurrent program is assigned.

SELECT
frt.responsibility_name,
frg.request_group_name,
frgu.request_unit_type,
frgu.request_unit_id,
fcpt.user_concurrent_program_name
FROM
fnd_responsibility fr,
fnd_responsibility_tl frt,
fnd_request_groups frg,
fnd_request_group_units frgu,
fnd_concurrent_programs_tl fcpt
WHERE
frt.responsibility_id = fr.responsibility_id
AND frt.language = userenv('LANG')
AND frg.request_group_id = fr.request_group_id
AND frgu.request_group_id = frg.request_group_id
AND fcpt.concurrent_program_id = frgu.request_unit_id
AND fcpt.language = userenv('LANG')
AND upper(fcpt.user_concurrent_program_name) = upper(:EnterConcurrentProgramName)
ORDER BY
1,
2,
3,
4