Current query from session

query.sql

select s.sql_id, t.sql_text
from V$SESSION s, v$sqltext_with_newlines t
where 
s.status = 'ACTIVE'
and s.username = :p_schema
and s.machine = :p_machine
and t.address =s.sql_address
and t.hash_value = s.sql_hash_value
and s.sid = :p_sid
and s.type <>'BACKGROUND'
and s.last_call_et > 10
order by s.sid,t.piece
;