The following lines contain the word 'select', 'insert', 'update' or 'delete':
select value into temp_charset from v$nls_valid_values
where parameter = 'CHARACTERSET' and value like '%MSWIN' || TO_CHAR (Code_Page);
select installed_flag, nls_language into lang, db_client_language from fnd_languages
where language_code = temp_client_language;
select nls_language into db_base_language from fnd_languages
where installed_flag = 'B';
select value into temp_charset
from v$nls_valid_values
where parameter = 'CHARACTERSET'
and value = to_charset;
select value into current_client_charset
from v$nls_parameters
where parameter = 'NLS_CHARACTERSET';