531: ,p_effective_start_date DATE) is
532: l_rowid VARCHAR2(18);
533: cursor old_per is
534: select rowid
535: from per_people_f
536: where person_id = p_person_id
537: and effective_end_date = p_session_date -1
538: for update of effective_end_date;
539: begin
543: return;
544: end if;
545: close old_per;
546: begin
547: update per_people_f
548: set effective_end_date = p_effective_start_date -1
549: where rowid = l_rowid;
550: --
551: if sql%rowcount <> 1 then