Value set's and Concurrent programs - dependencies

Input program name to get list of value sets using in this program

SELECT ffvs.flex_value_set_name,
       fcp.user_concurrent_program_name,
       fat.application_name,
       fdfc.column_seq_num Seq,
       fdfc.form_left_prompt "Parameter Name",
       fdfc.enabled_flag Active
  FROM FND_DESCR_FLEX_COL_USAGE_VL fdfc,
       fnd_flex_value_sets ffvs,
       fnd_concurrent_programs_vl fcp,
       fnd_application_tl fat
 WHERE 1 = 1 AND ffvs.flex_value_set_id = fdfc.flex_value_set_id
       AND fdfc.descriptive_flexfield_name =
              '$SRS$.' || fcp.concurrent_program_name
       AND fat.language = USERENV ('LANG')
       AND fcp.application_id = fat.application_id
       AND fcp.user_concurrent_program_name LIKE :p_programsename -- Enter program name
; 

Input value set name to get list of concurrent programs using this value set 

SELECT ffvs.flex_value_set_name, fcp.user_concurrent_program_name,
       fat.application_name,
       fdfc.column_seq_num Seq,
       fdfc.form_left_prompt "Parameter Name",
       fdfc.enabled_flag Active
  FROM FND_DESCR_FLEX_COL_USAGE_VL fdfc,
       fnd_flex_value_sets ffvs,
       fnd_concurrent_programs_vl fcp,
       fnd_application_tl fat
 WHERE 1 = 1 AND ffvs.flex_value_set_id = fdfc.flex_value_set_id
       AND fdfc.descriptive_flexfield_name =
              '$SRS$.' || fcp.concurrent_program_name
              and fat.language =userenv('LANG')
       AND fcp.application_id = fat.application_id     
       AND ffvs.flex_value_set_name = :p_valuesetname  -- Enter value set name
;