The following lines contain the word 'select', 'insert', 'update' or 'delete':
l_select_cursor integer;
l_select_cursor := dbms_sql.open_cursor;
dbms_sql.parse(l_select_cursor,
'select count(distinct(currency)) from ar_app_adj_v
where'|| p_where_clause,dbms_sql.v7);
dbms_sql.define_column(l_select_cursor, 1 , l_cur_count);
l_ignore := dbms_sql.execute(l_select_cursor);
if dbms_sql.fetch_rows(l_select_cursor) > 0 then
dbms_sql.column_value(l_select_cursor, 1, l_cur_count);
dbms_sql.close_cursor(l_select_cursor);
l_select_cursor := dbms_sql.open_cursor;
dbms_sql.parse(l_select_cursor,
'select sum(total_amount) from ar_app_adj_v
where'|| p_where_clause, dbms_sql.v7);
dbms_sql.define_column(l_select_cursor, 1 , l_amount);
l_ignore := dbms_sql.execute(l_select_cursor);
if dbms_sql.fetch_rows(l_select_cursor) > 0 then
dbms_sql.column_value(l_select_cursor, 1, l_amount);
dbms_sql.close_cursor(l_select_cursor);
dbms_sql.close_cursor(l_select_cursor);
l_select_stmt varchar2(1000);
l_select_stmt := 'select count(distinct(currency)) from ar_app_adj_v
where PAYMENT_SCHEDULE_ID= :ps_id ';
l_select_cursor := dbms_sql.open_cursor;
dbms_sql.parse(l_select_cursor, l_select_stmt ,dbms_sql.v7);
dbms_sql.bind_variable ( l_select_cursor , ':ps_id' , l_bind_ps_id) ;
dbms_sql.define_column(l_select_cursor, 1 , l_cur_count);
l_ignore := dbms_sql.execute(l_select_cursor);
if dbms_sql.fetch_rows(l_select_cursor) > 0 then
dbms_sql.column_value(l_select_cursor, 1, l_cur_count);
dbms_sql.close_cursor(l_select_cursor);
l_select_stmt := 'select sum(total_amount) from ar_app_adj_v
where PAYMENT_SCHEDULE_ID= :ps_id ';
arp_standard.debug('Build_And_Bind: ' || l_select_stmt);
l_select_cursor := dbms_sql.open_cursor;
dbms_sql.parse(l_select_cursor,l_select_stmt , dbms_sql.v7);
dbms_sql.bind_variable ( l_select_cursor , ':ps_id' , l_bind_ps_id );
dbms_sql.define_column(l_select_cursor, 1 , l_amount);
l_ignore := dbms_sql.execute(l_select_cursor);
if dbms_sql.fetch_rows(l_select_cursor) > 0 then
dbms_sql.column_value(l_select_cursor, 1, l_amount);
dbms_sql.close_cursor(l_select_cursor);
dbms_sql.close_cursor(l_select_cursor);
l_select_cursor INTEGER;
l_select_cursor := dbms_sql.open_cursor;
/* 3988361 :If the customer_id is used for selection the use n6 index */
IF p_from_clause = 'AR_PAYMENT_SCHEDULES_TRX2_V' AND INSTR(l_out_where_clause,'CUSTOMER_ID=') <> 0 AND INSTR(l_out_where_clause,'TRX_NUMBER=') <> 0 THEN
dbms_sql.parse(l_select_cursor,
'select /*+ INDEX(AR_PAYMENT_SCHEDULES_TRX2_V.ps AR_PAYMENT_SCHEDULES_N11) */
count( distinct invoice_currency_code ),
sum(amount_due_remaining),
sum(acctd_amount_due_remaining)
from '||p_from_clause||' '||l_out_where_clause, dbms_sql.v7);
dbms_sql.parse(l_select_cursor,
'select /*+ INDEX(AR_PAYMENT_SCHEDULES_TRX2_V.ps AR_PAYMENT_SCHEDULES_N6) */
count( distinct invoice_currency_code ),
sum(amount_due_remaining),
sum(acctd_amount_due_remaining)
from '||p_from_clause||' '||l_out_where_clause, dbms_sql.v7);
dbms_sql.parse(l_select_cursor,
'select count( distinct invoice_currency_code ),
sum(amount_due_remaining),
sum(acctd_amount_due_remaining)
from '||p_from_clause||' '||l_out_where_clause,
dbms_sql.v7);
|Define columns for the select statement. |
+-----------------------------------------------------------------------*/
IF PG_DEBUG in ('Y', 'C') THEN
arp_standard.debug('Build_And_Bind: ' || 'Defining Columns +');
dbms_sql.define_column(l_select_cursor, 1 , l_count);
dbms_sql.define_column(l_select_cursor, 2 , l_amount);
dbms_sql.define_column(l_select_cursor, 3 , l_func_amount);
dbms_sql.bind_variable(l_select_cursor, l_actual_bind_var, l_literal_tbl(l_ctr).stripped_value);
l_ignore := dbms_sql.execute(l_select_cursor);
IF dbms_sql.fetch_rows(l_select_cursor) > 0 then
/*-----------------------------------------------------------------------+
|Fetch the column values, into actual variables |
+-----------------------------------------------------------------------*/
IF PG_DEBUG in ('Y', 'C') THEN
arp_standard.debug('Build_And_Bind: ' || 'Fetching column values +');
dbms_sql.column_value(l_select_cursor, 1, l_count);
dbms_sql.column_value(l_select_cursor, 2, l_amount);
dbms_sql.column_value(l_select_cursor, 3, l_func_amount);
dbms_sql.close_cursor(l_select_cursor);
l_select_cursor INTEGER;
l_select_cursor := dbms_sql.open_cursor;
dbms_sql.parse(l_select_cursor,
'select invoice_currency_code from '||p_from_clause||' '||l_out_where_clause,
dbms_sql.v7);
|Define columns for the select statement. |
+-----------------------------------------------------------------------*/
IF PG_DEBUG in ('Y', 'C') THEN
arp_standard.debug('Build_And_Bind: ' || 'Defining Columns +');
dbms_sql.define_column(l_select_cursor, 1 ,l_currency_code,15);
dbms_sql.bind_variable(l_select_cursor, l_actual_bind_var, l_literal_tbl(l_ctr).stripped_value);
l_ignore := dbms_sql.execute(l_select_cursor);
IF dbms_sql.fetch_rows(l_select_cursor) > 0 then
/*-----------------------------------------------------------------------+
|Fetch the column values, into actual variables |
+-----------------------------------------------------------------------*/
IF PG_DEBUG in ('Y', 'C') THEN
arp_standard.debug('Build_And_Bind: ' || 'Fetching column values +');
dbms_sql.column_value(l_select_cursor, 1, l_currency_code);
dbms_sql.close_cursor(l_select_cursor);
select start_date into
p_last_dispute_date
from ar_dispute_history
where payment_schedule_id = p_ps_id and
end_date is null;
select count(*)
into p_dispute_amount_changed
from ar_payment_schedules
where payment_schedule_id = p_ps_id
and (( amount_in_dispute <> p_amount_in_dispute) OR
(amount_in_dispute is NOT NULL and
p_amount_in_dispute IS NULL ) OR
( p_amount_in_dispute IS NOT NULL and
amount_in_dispute IS NULL ) );
select decode(min(start_date),
NULL , 'N',
'Y' )
into p_ever_in_dispute_flag
from ar_dispute_history
WHERE payment_schedule_id = p_ps_id;
select trunc(sysdate) - p_due_date
into p_days_late
from dual;
select length(l_in_where_clause)
into l_actual_length
from dual;
select instr(l_in_where_clause, 'order by')
into l_by_clause_pos
from dual;
SELECT INSTR(l_in_where_clause, 'group by')
INTO l_by_clause_pos
FROM DUAL;
select substr(l_in_where_clause, l_ctr, 1)
into l_temp_cell
from dual;
SELECT SUBSTR(l_in_where_clause, l_by_clause_pos)
INTO l_balance_clause
FROM dual;