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);
SELECT cust_acct.cust_account_id customer_id
from hz_cust_accounts cust_acct,
hz_parties party
where cust_acct.party_id = party.party_id
and upper(party.party_name) between
nvl(upper(p_customer_name_from),'A')
and nvl(upper(p_customer_name_to),'Z');
TYPE select_rec_type IS RECORD
(language VARCHAR2(4));
select_rec1 select_rec_type;
null_rec CONSTANT select_rec_type := select_rec1;
select substr(userenv('LANG'),1,4)
into p_userenv_lang
from dual;
/* bug1946875: This cursor is not used. customer condition has already been included in select_sql1. */
---Customer Loop . For every customer the loop finds out the languages for corresponding Bill To addresses.
-- For Customer IN cusinfo(P_CUSTOMER_NAME_FROM,P_CUSTOMER_NAME_TO)
-- LOOP
select_sql1 :=
'select distinct(nvl(rtrim(substr(loc.language,1,4)), ''' || p_userenv_lang || ''')) language ' || cr ||
'from ' || p_table1 || cr ||
'where ' || cr || p_where2;
arp_standard.debug('raxinv.select_sql1 = ' || cr ||
select_sql1 || 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( '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);
dbms_sql.bind_variable(select_sql1_c, ':p_customer_name_from', p_customer_name_from);
dbms_sql.bind_variable(select_sql1_c, ':p_customer_name_to', p_customer_name_to);
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( ' 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');