The following lines contain the word 'select', 'insert', 'update' or 'delete':
SELECT type.type,
trx.invoice_currency_code
INTO l_commitment_class,
l_currency_code
FROM ra_customer_trx_all trx,
ra_cust_trx_types_all type
WHERE trx.customer_trx_id = p_customer_trx_id
AND trx.cust_trx_type_id = type.cust_trx_type_id
AND trx.org_id = type.org_id
AND type.type IN ('DEP','GUAR');
SELECT ( NVL(SUM( ADJ.AMOUNT),0) * -1)
INTO l_invoiced_amount
FROM ra_customer_trx_all trx,
ra_cust_trx_types_all type,
ar_adjustments_all adj
WHERE trx.cust_trx_type_id = type.cust_trx_type_id
AND trx.org_id = type.org_id
AND trx.initial_customer_trx_id = p_customer_trx_id
AND trx.complete_flag = 'Y'
AND adj.adjustment_type = 'C'
AND type.type IN ('INV', 'CM')
AND adj.org_id = trx.org_id
AND adj.customer_trx_id = DECODE(type.type,
'INV', trx.customer_trx_id,
'CM', trx.previous_customer_trx_id)
AND NVL( adj.subsequent_trx_id, -111) = DECODE(type.type,
'INV', -111,
'CM', trx.customer_trx_id) ;
SELECT NVL(SUM(-1 * line.extended_amount),0)
INTO l_credit_memo_amount
FROM ra_customer_trx_all trx,
ra_customer_trx_lines_all line
WHERE trx.customer_trx_id = line.customer_trx_id
AND trx.org_id = line.org_id
AND trx.previous_customer_trx_id = p_customer_trx_id
AND trx.complete_flag = 'Y';
SELECT ( NVL( SUM(amount_line_items_original), 0)
-
NVL( SUM(amount_due_remaining), 0))
INTO l_invoiced_amount
FROM ar_payment_schedules_all
WHERE customer_trx_id = p_customer_trx_id;
SELECT NVL( SUM( amount ), 0)
INTO l_credit_memo_amount
FROM ar_adjustments_all
WHERE customer_trx_id = p_customer_trx_id
AND adjustment_type <> 'C';