The following lines contain the word 'select', 'insert', 'update' or 'delete':
select value INTO G_DIR
from v$PARAMETER where name = 'utl_file_dir';
SELECT DB_NAME || USERENV('SESSIONID') || '.OKL' into G_FILE
FROM DUAL;
/*Inserted by SPILLAIP Begin*/
--
-- This function checks the profile value of FND: Debug_Enabled
-- and returns boolean
--
FUNCTION CHECK_LOG_ENABLED
RETURN varchar2 IS
value varchar2(40) := 'N';
/*Inserted by SPILLAIP End*/
-- PROCEDURE SetDebugLevel
--
-- Usage set debug level if running outside of application otherwise debuglevel
-- is taken from the profile value
Procedure SetDebugLevel(p_debug_level in number)
IS
Begin
OKL_DEBUG_PUB.G_DEBUG_LEVEL := p_debug_level;
SELECT NAME INTO DB_NAME FROM V$DATABASE;