ارجو المساعدة List_item

السلام عليكم
انا عاوز اعمل اتنين list_item .. واحد فيه بيانات والتاني فاضي .. واعمل button يقوم بنقل اي عنصر يتم اختياره من list_item الاول الي التاني

أرجو التحقق من هذا الكود : when_button_pressed

DECLARE

total_list_count    NUMBER(2);
loop_index_var      NUMBER(2) := 1; 
list_element        VARCHAR2(50);
elable              VARCHAR2(15);
BEGIN total_list_count := Get_List_Element_Count('X');
LOOP
	list_element := Get_List_Element_Value('X',loop_index_var);

	if list_element=:SYSTEM.CURSOR_value then
		elable:=GET_LIST_ELEMENT_LABEL('X',loop_index_var);
			Add_List_Element('Y',loop_index_var, elable, list_element); 
			Delete_List_Element('X',loop_index_var);
		loop_index_var := loop_index_var + 1;
	END IF;
	EXIT WHEN loop_index_var = total_list_count;
END LOOP;
end;

ولكن عند تنفيذه يعطي خطأ