--
-- person__delete/1
--
create or replace function person__delete(
  integer
) returns int4 as $$

declare
  delete__person_id     alias for $1;  
begin
  delete from persons
  where person_id = delete__person_id;

  PERFORM party__delete(delete__person_id);

  return 0; 
end;$$ language plpgsql;