The following lines contain the word 'select', 'insert', 'update' or 'delete':
/* Updated versions of the SET_NAME procedure which */
/* which allow the settng of the translating lang */
/*----------------------------------------------------*/
procedure SET_NAME_PSN(APPLICATION in varchar2,
NAME in varchar2,
p_person_id in number) is
begin
MSGAPP := APPLICATION;
/* Updated version of the GET_STRING function, which */
/* allows the passing of a translation langauge */
/* */
/*----------------------------------------------------*/
function GET_STRING_LNG_BG(APPIN in varchar2,
NAMEIN in varchar2)
return varchar2 is MSG varchar2(2000) := NULL;
select message_text
from fnd_new_messages m, fnd_application a
where NAME_ARG = m.message_name
and m.language_code = g_mes_lng
and APPIN = a.application_short_name
and m.application_id = a.application_id;
select message_text
from fnd_new_messages m, fnd_application a
where NAME_ARG = m.message_name
and 'US' = m.language_code
and APPIN = a.application_short_name
and m.application_id = a.application_id;
/* Updated version of the GET function, which allows */
/* the passing of a translation langauge */
/*----------------------------------------------------*/
function GET return varchar2 is
MSG varchar2(2000);
/* SET_NAME PROCEDURE HAS BEEN UPDATEED */
/*---------------------------------------------------*/
/* */
/* FETCH_SQL_TOKEN- get the value for a SQL Query token */
/* ** This procedure is only to be called by the ATG */
/* ** not for external use */
function FETCH_SQL_TOKEN(TOK_VAL in varchar2) return varchar2 is
token_text varchar2(2000);
if ( UPPER(SUBSTR(TOK_VAL, 1, 6) ) = 'SELECT' ) then
execute immediate TOK_VAL
into token_text;
|| 'TOK_VAL must begin with keyword SELECT';