declare
   string      varchar2(2000);
   temp_label  varchar2(255);
   temp_num    number;
   t_ipadd     varchar2(20);
   t_sid       number(3);
begin
   temp_num := nvl(pick_list.get_picklist_element_count(pick_list.list_out),0);
--   string   := to_char(temp_num) || ' values: ';
	 select SYS_CONTEXT('USERENV', 'IP_ADDRESS', 15) into t_ipadd from dual;
	 select sid  into t_sid from v$session where audsid=(SELECT userenv('sessionid') FROM dual);	 
   for i in 1..temp_num loop
      temp_label := pick_list.get_picklist_element_value(pick_list.list_out, i);
				insert into tmp_data values (t_ipadd,t_sid,temp_label);
      if i > 1 then
				STRING:=STRING||CHR(39)||temp_label||CHR(39);
--         string := string || ', ' || temp_label
      else
				STRING:=STRING||CHR(39)||temp_label||CHR(39);
      end if;
			if I<>TEMP_NUM then
				string:=string||', ';
			end if;
			
   end loop;

   :ctrl_block.m_picklist_values := string;
end;