Find Value Sets attached with Concurrent Program in R12

Use the below Query can find the program list which is attached to particular valuesets.

SELECT fcpl.user_concurrent_program_name,
       fcp.concurrent_program_name,
       par.end_user_column_name,
       par.form_left_prompt prompt,
       par.enabled_flag,
       par.required_flag,
       par.display_flag,
       par.flex_value_set_id,
       ffvs.flex_value_set_name,
       flv.meaning default_type,
       par.DEFAULT_VALUE
  FROM fnd_concurrent_programs     fcp,
       fnd_concurrent_programs_tl  fcpl,
       fnd_descr_flex_col_usage_vl par,
       fnd_flex_value_sets         ffvs,
       fnd_lookup_values           flv
 WHERE fcp.concurrent_program_id = fcpl.concurrent_program_id
      --AND fcpl.user_concurrent_program_name = :conc_prg_name
   AND ffvs.flex_value_Set_name = ':Your_Value_Set_Name'
   AND fcpl.LANGUAGE = 'US'
   AND par.descriptive_flexfield_name =
       '$SRS$.' || fcp.concurrent_program_name
   AND ffvs.flex_value_set_id = par.flex_value_set_id
   AND flv.lookup_type(+) = 'FLEX_DEFAULT_TYPE'
   AND flv.lookup_code(+) = par.default_type
   AND flv.LANGUAGE(+) = USERENV('LANG')