Oracle EBS Query to Get Concurrent Program Parameters and Responsibilities

SELECT a.application_short_name,
       p.concurrent_program_id,
       p.concurrent_program_name,
       p.user_concurrent_program_name,
       e.executable_name,
       e.execution_method_code,   -- I PL/SQL, P Oracle Reports, Q SQL*Plus, H Host, L SQL*Loader, K Java
       e.execution_file_name,
       p.output_file_type,
       p.enabled_flag,
       p.srs_flag
FROM   fnd_concurrent_programs_vl p
JOIN   fnd_executables_vl e
       ON  e.executable_id  = p.executable_id
       AND e.application_id = p.executable_application_id
JOIN   fnd_application a
       ON  a.application_id = p.application_id
WHERE  (p.user_concurrent_program_name LIKE 'Journal Import%'
        OR p.concurrent_program_name LIKE 'Journal Import%')
AND    a.application_short_name = NVL('[Program application short name (optional)]', a.application_short_name)
ORDER  BY p.user_concurrent_program_name;

SELECT p.concurrent_program_name,
       u.column_seq_num,
       u.end_user_column_name,
       u.form_left_prompt,
       u.application_column_name,
       u.srw_param,               -- Oracle Reports token
       u.required_flag,
       u.enabled_flag,
       u.display_flag,
       u.default_type,
       u.default_value,
       vs.flex_value_set_name,
       vs.validation_type        -- I independent, D dependent, F table, N none, P pair, U special
FROM   fnd_concurrent_programs_vl p
JOIN   fnd_application a
       ON  a.application_id = p.application_id
JOIN   fnd_descr_flex_col_usage_vl u
       ON  u.application_id = p.application_id
       AND u.descriptive_flexfield_name = '$SRS$.' || p.concurrent_program_name
       AND u.descriptive_flex_context_code = 'Global Data Elements'
LEFT JOIN fnd_flex_value_sets vs
       ON  vs.flex_value_set_id = u.flex_value_set_id
WHERE  (p.user_concurrent_program_name LIKE 'Journal Import%'
        OR p.concurrent_program_name LIKE 'Journal Import%')
AND    a.application_short_name = NVL('[Program application short name (optional)]', a.application_short_name)
ORDER  BY p.concurrent_program_name, u.column_seq_num;

SELECT p.user_concurrent_program_name,
       r.responsibility_name,
       r.responsibility_key,
       rg.request_group_name,
       ga.application_short_name AS group_application,
       rgu.request_unit_type,     -- P single program, A all programs of the application
       r.start_date,
       r.end_date
FROM   fnd_concurrent_programs_vl p
JOIN   fnd_application a
       ON  a.application_id = p.application_id
JOIN   fnd_request_group_units rgu
       ON  rgu.unit_application_id = p.application_id
       AND (   (rgu.request_unit_type = 'P' AND rgu.request_unit_id = p.concurrent_program_id)
            OR  rgu.request_unit_type = 'A')
JOIN   fnd_request_groups rg
       ON  rg.request_group_id = rgu.request_group_id
       AND rg.application_id   = rgu.application_id
JOIN   fnd_application ga
       ON  ga.application_id = rg.application_id
JOIN   fnd_responsibility_vl r
       ON  r.request_group_id     = rg.request_group_id
       AND r.group_application_id = rg.application_id
WHERE  (p.user_concurrent_program_name LIKE 'Journal Import%'
        OR p.concurrent_program_name LIKE 'Journal Import%')
AND    a.application_short_name = NVL('[Program application short name (optional)]', a.application_short_name)
AND    (r.end_date IS NULL OR r.end_date > SYSDATE)
ORDER  BY r.responsibility_name;