The following lines contain the word 'select', 'insert', 'update' or 'delete':
select substr(version,1,instr(version,'.')-1) into versn from v$instance;
SELECT USER INTO DBUSER FROM DUAL;
SELECT nvl(S.MODULE,'MOD_NA')
INTO MODULE_G
FROM V$SESSION S
WHERE AUDSID=USERENV('SESSIONID');
l_pl_str:='update plsql_profiler_runs set related_run=:RELATED_RUNID '||
'where runid=:PROF_RUNID';
l_trc_cmd:='select sysdate into l_trc_cmd from dual';
SELECT S.SID,S.SERIAL#,P.SPID
INTO SESSION_ID_G,SERIAL#_G,SPID
FROM V$SESSION S, V$PROCESS P
WHERE S.PADDR=P.ADDR
AND AUDSID=USERENV('SESSIONID');