Script to find the list of responsibility's for which the program assigned

SELECT DISTINCT *
FROM apps.fnd_responsibility_tl
WHERE responsibility_id IN
  (SELECT responsibility_id
  FROM apps.fnd_responsibility_vl
  WHERE request_group_id IN
    (SELECT request_group_id
    FROM apps.fnd_request_group_units
    WHERE request_unit_id =
      (SELECT DISTINCT concurrent_program_id
      FROM Apps.fnd_concurrent_programs_tl
      WHERE user_concurrent_program_name = :Concurrent_Program_name
      )
    )
  AND end_date IS NULL
  )
AND "LANGUAGE" LIKE 'US'
ORDER BY responsibility_name;