The following lines contain the word 'select', 'insert', 'update' or 'delete':
INSERTED boolean := FALSE;
** put - Set or Insert a Message
*/
procedure PUT(
NAME in varchar2,
VAL in MSG_REC_TYPE,
msg_table in out NOCOPY MSG_TAB_TYPE)
is
TABLE_INDEX binary_integer;
INSERTED := TRUE;
** put - Set or Insert a message
*/
procedure PUT(NAME in varchar2, VAL in MSG_REC_TYPE) is
TABLE_INDEX binary_integer;
select message_text, message_number, type, fnd_log_severity, category, severity
from fnd_new_messages m, fnd_application a
where NAME_ARG = m.message_name
and LANG_ARG = m.language_code
and APPIN = a.application_short_name
and m.application_id = a.application_id;
select user into username from dual;
select distinct oracle_username into apps_schema_name from fnd_oracle_userid where upper(read_only_flag)='U';
if ( UPPER(SUBSTR(TOK_VAL, 1, 6) ) = 'SELECT' ) then
execute immediate TOK_VAL
into token_text;
|| 'TOK_VAL must begin with keyword SELECT';