Script to Delete Values in Value Set

DECLARE
l_err_msg   VARCHAR2 (500) := NULL;

CURSOR flex
IS
SELECT ffv.flex_value_id, ffv.flex_value
FROM fnd_flex_value_sets ffvs,
fnd_flex_values ffv,
fnd_flex_values_tl ffvt
WHERE flex_value_set_name = ‘XXTAC_SITE_NOMENCLATURE_MAPPING’
AND ffv.flex_value_set_id = ffvs.flex_value_set_id
AND ffvt.flex_value_id = ffv.flex_value_id
AND ffvs.flex_value_set_id = ffv.flex_value_set_id
AND ffvt.flex_value_meaning = ‘Mrp2 (FVB)’;
BEGIN
FOR i IN flex
LOOP
fnd_flex_values_pkg.delete_row (i.flex_value_id);
COMMIT;
DBMS_OUTPUT.put_line (i.flex_value_id || ‘ Deleted’);
END LOOP;
EXCEPTION
WHEN OTHERS
THEN
l_err_msg := SQLERRM;
DBMS_OUTPUT.put_line (‘in Exception ‘ || l_err_msg);
END;

Advertisements