procedure setIsHomePoiFlag(p_old_poi_category_id in number, p_new_poi_category_id in number) as
begin
  update oc_poi_category set is_home_poi_category = 'Y' where oc_poi_category_id = p_new_poi_category_id;

  update oc_poi_category set  is_home_poi_category = 'N' where oc_poi_category_id = p_old_poi_category_id and not exists (
  select 1 from vo_person_category where home_poi_category_id = p_old_poi_category_id);
end;