Oracle Forms Developer – Form Builder Reference, Volume 1

loop_index_var := loop_index_var + 1;
IF list_element_to_add = list_element THEN
element_match := ’FALSE’;
END IF;
EXIT WHEN list_element = list_element_to_add OR
loop_index_var = total_list_count;
END LOOP;
/*
** Compare the current list item values with the value that
** will be added.
*/
loop_index_var := 1;
LOOP
list_element_value:= Get_List_Element_Value(list_id,
loop_index_var);
loop_index_var := loop_index_var + 1;
IF list_value_to_add = list_element_value THEN
value_match := ’FALSE’;
END IF;
EXIT WHEN list_element_value = list_value_to_add OR
loop_index_var = total_list_count;
END LOOP;
/*
** Add the element and value if it is not in the current list
*/
IF element_match AND value_match = ’TRUE’ THEN
Add_List_Element(list_id, list_name, list_element_to_add,
list_value_to_add);
END IF
END;
199