The following lines contain the word 'select', 'insert', 'update' or 'delete':
select_sql1_c number;
select_sql1 varchar2(10000);
select_sql2_c number;
select_sql2 varchar2(10000);
TYPE select_rec_type IS RECORD
(language VARCHAR2(4));
select_rec1 select_rec_type;
select_rec2 select_rec_type;
null_rec CONSTANT select_rec_type := select_rec1;
select substr(userenv('LANG'),1,4)
into p_userenv_lang
from dual;
select language_code
into p_base_lang
from fnd_languages
where installed_flag = 'B';
ARP_TRX_SELECT_CONTROL.build_where_clause (
P_CHOICE, -- IN varchar2,
P_OPEN_INVOICE, -- IN varchar2,
P_CUST_TRX_TYPE_ID, -- IN number,
P_CUST_TRX_CLASS, -- IN varchar2,
P_INSTALLMENT_NUMBER, -- IN number,
P_DATES_LOW, -- IN date,
P_DATES_HIGH, -- IN date,
P_CUSTOMER_ID, -- IN number,
P_CUSTOMER_CLASS_CODE, -- IN varchar2,
P_TRX_NUMBER_LOW, -- IN varchar2,
P_TRX_NUMBER_HIGH, -- IN varchar2,
P_BATCH_ID, -- IN number,
P_CUSTOMER_TRX_ID, -- IN number,
P_ADJ_NUMBER_LOW, -- in varchar2,
P_ADJ_NUMBER_HIGH, -- in varchar2,
P_ADJ_DATES_LOW, -- in date,
P_ADJ_DATES_HIGH, -- in date,
P_WHERE1, -- OUT varchar2,
P_WHERE2, -- OUT varchar2,
P_TABLE1, -- OUT varchar2,
P_TABLE2, -- OUT varchar2,
'MLS' -- in varchar2
);
select_sql1 :=
'select distinct(nvl(rtrim(substr(loc.language,1,4)), ''' || p_userenv_lang || ''')) language ' || cr ||
'from ' || p_table1 || cr ||
'where ' || cr || p_where1;
select_sql2 :=
'select distinct(nvl(rtrim(substr(loc.language,1,4)), ''' || p_userenv_lang || ''')) language ' || cr ||
'from ' || p_table2 || cr ||
'where ' || cr || p_where2;
arp_standard.debug('raxinv.select_sql1 = ' || cr ||
select_sql1 || cr );
arp_standard.debug('raxinv.select_sql2 = ' || cr ||
select_sql2 || cr );
arp_standard.debug( ' Parsing select_sql1 stmt');
select_sql1_c := dbms_sql.open_cursor;
dbms_sql.parse( select_sql1_c, select_sql1, dbms_sql.v7 );
arp_standard.debug( 'EXCEPTION: Error parsing select_sql1 stmt' );
arp_standard.debug( ' Parsing select_sql2 stmt');
select_sql2_c := dbms_sql.open_cursor;
dbms_sql.parse( select_sql2_c, select_sql2, dbms_sql.v7 );
arp_standard.debug( 'EXCEPTION: Error parsing select_sql2 stmt' );
arp_standard.debug( 'Completed parsing select stmts' );
arp_standard.debug( 'define_columns for select_sql1_c');
dbms_sql.define_column( select_sql1_c, 1, select_rec1.language, 4);
arp_standard.debug( 'define_columns for select_sql2_c');
dbms_sql.define_column( select_sql2_c, 1, select_rec2.language, 4);
arp_standard.debug( ' Executing select_sql1' );
l_ignore := dbms_sql.execute( select_sql1_c );
arp_standard.debug( 'EXCEPTION: Error executing select_sql1' );
arp_standard.debug( ' Executing select_sql2' );
l_ignore := dbms_sql.execute( select_sql2_c );
arp_standard.debug( 'EXCEPTION: Error executing select_sql2' );
arp_standard.debug( ' Fetching select_sql1 stmt');
if (dbms_sql.fetch_rows( select_sql1_c ) > 0)
then
arp_standard.debug(' fetched a row' );
select_rec1 := null_rec;
dbms_sql.column_value( select_sql1_c, 1, select_rec1.language );
arp_standard.debug( 'Language code: ' || select_rec1.language );
lang_str := select_rec1.language;
lang_str := lang_str || ',' || select_rec1.language;
arp_standard.debug('Done fetching select_sql1');
arp_standard.debug( ' Fetching select_sql2 stmt');
if (dbms_sql.fetch_rows( select_sql2_c ) > 0)
then
arp_standard.debug(' fetched a row' );
select_rec2 := null_rec;
dbms_sql.column_value( select_sql2_c, 1, select_rec2.language );
arp_standard.debug( 'Language code: ' || select_rec2.language );
lang_str := select_rec2.language;
if instr(lang_str,select_rec2.language) = 0 then
lang_str := lang_str || ',' || select_rec2.language;
arp_standard.debug('Done fetching select_sql2');