Form中实现动态List

在FORM开发中，经常会使用到下拉列表，Item的List子类，一般情况下直接把下拉列表的值写死在属性中，最近遇到一个需求，下拉列表的值需要在值集中获取，所以需要实现动态填充下拉列表的值。
1.将目标ITEM的子类信息设置为List，不需要添加列表中元素，不需要初始值。
2.新建一个Procedure，代码如下：

 1 procedure basis_list(event in varchar2) is  
 2 --游标中定义List中显示的值和数据库值
 3           cursor c_list is
 4     select lookup_code
 5           ,meaning
 6       from fnd_lookup_values_vl
 7      where lookup_type = 'HSS_QT_BASIS';
 8           i                                        number := 0 ;
 9           l_value   varchar2(10);
10           l_meaning varchar2(20);
11   begin
12           if event = 'INIT' then
13                   --赋值前，清空List中现有的值
14                   clear_list('QT_NAME.BASIS');
15 
16                   for r_list in c_list
17                   loop
18                     l_value   := r_list.lookup_code;
19                     l_meaning := r_list.meaning;
20                     i := i + 1;
21 -- add_list_element有4个参数依次为，Item名称，列表中值的序列，显示的值，数据库值
22                     add_list_element('QT_NAME.BASIS',i,l_meaning,l_value);
23                   end loop;
24                   
25           end if;
26 end basis_list;

List中的值定义在Lookup Code中，通过游标获取然后动态填充到List中
在适当的触发器中进行初始化，在WHEN-NEW-FORM-INSTANCE中做的初始化

 ...
2 
3 QT_NAME.basis_list('INIT');
4 
5 ...

 通过这种方法是否能实现多级联动？