702: --
703: cursor csr_session
704: is
705: select rowid
706: from fnd_sessions
707: where session_id = userenv('sessionid')
708: for update nowait;
709: --
710: begin
713: fetch csr_session into l_rowid;
714: --
715: if csr_session%notfound then
716: --
717: insert into fnd_sessions(
718: session_id,
719: effective_date)
720: values(
721: userenv('sessionid'),
722: p_effective_date);
723: --
724: else
725: --
726: update fnd_sessions
727: set effective_date = p_effective_date
728: where rowid = l_rowid;
729: --
730: end if;
740: is
741: begin
742: --
743: delete
744: from fnd_sessions
745: where session_id = userenv('sessionid');
746: --
747: end delete_session;
748: --