create or replace procedure cnav_groups_entity_id_in
(
 p_group_id_list OUT long,
 p_entity_id IN number 
)
IS
cursor c_groupid is select  
		  group_id
		from
		  group_member
	     where
		  member_group_id = p_entity_id; 
v_groupid number;
BEGIN
 if (p_entity_id is null) then
   p_group_id_list := null;
   return;
 end if;
 p_group_id_list := null;
 open c_groupid;
      loop
         fetch c_groupid into v_groupid;
         exit when c_groupid%NOTFOUND;
         if (p_group_id_list is null) then
            p_group_id_list := to_char(v_groupid);
          else  
            p_group_id_list := p_group_id_list || ',' || to_char(v_groupid);
         end if; 
      end loop;    
END cnav_groups_entity_id_in;
/
show errors;