627: --
628: cursor csr_session
629: is
630: select rowid
631: from fnd_sessions
632: where session_id = userenv('sessionid')
633: for update nowait;
634: --
635: begin
638: fetch csr_session into l_rowid;
639: --
640: if csr_session%notfound then
641: --
642: insert into fnd_sessions(
643: session_id,
644: effective_date)
645: values(
646: userenv('sessionid'),
647: p_effective_date);
648: --
649: else
650: --
651: update fnd_sessions
652: set effective_date = p_effective_date
653: where rowid = l_rowid;
654: --
655: end if;
665: is
666: begin
667: --
668: delete
669: from fnd_sessions
670: where session_id = userenv('sessionid');
671: --
672: end delete_session;
673: --