function f_get_current_sessions (
		i_filter		in varchar2 default null,
		i_sort_field	in varchar2 default null,
		i_lite			in number	default  1 
	)
		return ref_cur_type
	is
		rc      ref_cur_type;
		v_str   long;
	begin
		dbms_application_info.set_module('PAK_SYS.F_GET_CURRENT_SESSIONS', 'Aoia '||to_char(sysdate,'HH24:MI:SS'));
		if nvl(i_lite, 1 )= 0  then
			v_str := 'select distinct s.sid, s.serial# as serial, s.status, s.username, s.command as cmd,
							s.terminal, s.program, s.module, s.action,
							(select decode(seconds_in_wait,0,'''',
										decode(state,''WAITING'','''',''WAITED UNKNOWN TIME'','''',state||'' '')
										||decode(round(seconds_in_wait/200,0),0,seconds_in_wait||''n '',
												round(seconds_in_wait/60,0)||''i '')
										||event)
								from v$session_wait where sid=s.sid) as wait,
							s.logon_time,
							q.sql_text, q.executions as cnt, q.first_load_time as when, q.module, q.action,
							q.disk_reads, q.buffer_gets, q.rows_processed,
							decode( l.type,
								''TM'', ''DML enqueue(table lock)'',
								''TX'', ''Transaction enqueue(row lock)'',
								''UL'', ''User supplied'', l.type) lock_type,
							l.id1 as lock_id1,
							(select object_name from all_objects where object_id = l.id1) lock_obj_name,
							l.id2 as lock_id2,
							decode( l.lmode,
									0, ''None'',
									1, ''Null (NULL)'',
									2, ''Row-S (SS)'',
									3, ''Row-X (SX)'',
									4, ''Share (S)'',
									5, ''S/Row-X (SSX)'',
									6, ''Exclusive (X)''
									) as lock_mode,
							decode( l.request,
									0, ''None'',
									1, ''Null (NULL)'',
									2, ''Row-S (SS)'',
									3, ''Row-X (SX)'',
									4, ''Share (S)'',
									5, ''S/Row-X (SSX)'',
									6, ''Exclusive (X)''
									) as lock_request
						from v$session s, v$lock l, v$sql q
						where s.sid=l.sid(+) and s.sql_address=q.address(+) and nvl(q.child_number,0)=0 and s.username is not null';
		else
			v_str := 'select distinct s.sid, s.serial# as serial, s.status, s.username, s.command as cmd,
							s.terminal, s.program, s.module, s.action,
							(select decode(seconds_in_wait,0,'''',
										decode(state,''WAITING'','''',''WAITED UNKNOWN TIME'','''',state||'' '')
										||decode(round(seconds_in_wait/200,0),0,seconds_in_wait||''n '',
												round(seconds_in_wait/60,0)||''i '')
										||event)
								from v$session_wait where sid=s.sid) as wait,
							s.logon_time
						from v$session s
						where s.username is not null';
		end if;
		if i_filter is not null then
			v_str := v_str || ' AND (' || i_filter || ')';
		end if;

		if i_sort_field is not null then
			v_str := v_str || ' ORDER BY ' || i_sort_field;
		elsif nvl(i_lite, 1 )= 0  then
			v_str := v_str || ' order by s.status, q.first_load_time desc, s.logon_time';
		else
			v_str := v_str || ' order by s.status, s.action desc, s.logon_time';
		end if;

		dbms_application_info.set_module('PAK_SYS.F_GET_CURRENT_SESSIONS', to_char(sysdate,'HH24:MI:SS'));
		open rc for v_str;
		return rc;
	end;