The following lines contain the word 'select', 'insert', 'update' or 'delete':
SELECT *
INTO l_credited_trx_rec
FROM ra_customer_trx_cr_trx_v
WHERE customer_trx_id = p_prev_customer_trx_id ;
arp_util.debug('EXCEPTION: select from ra_customer_trx_cr_trx_v returns no data');
ARP_PROCESS_CREDIT.INSERT_HEADER(
p_form_name,
1.0,
l_cm_header,
'CM',
l_default_gl_date,
-- p_primary_salesrep_id,
l_cm_header.primary_salesrep_id,
l_cm_header.invoice_currency_code, -- p_currency_code,
p_prev_customer_trx_id,
p_line_percent,
p_freight_percent,
l_line_amount,
l_freight_amount,
l_compute_tax,
p_trx_number,
l_customer_trx_id,
l_computed_tax_percent,
l_computed_tax_amount,
p_status);
arp_util.debug('EXCEPTION: Debug point 2 : Error Calling arp_process_credit.insert_header.');
l_ue_message := SUBSTR('EXCEPTION: Error Calling arp_process_credit.insert_header '
|| SQLERRM, 1, 2000);
Bug 3041195 : 1. ra_customer_trx_table was not getting updated with the
doc seq no/value when copy_doc_number_flag = 'N'. Modified
if ..else clause.
2. Document sequence Nos were getting lost if errors were
encountered during completion checking. Re-arranged the
code to generate nos only if no errors were encountered.
*/
BEGIN
get_doc_seq(222,
l_default_type_name,
arp_global.set_of_books_id,
'A',
l_cm_header.trx_date,
l_cm_header.complete_flag,
l_cm_header.doc_sequence_value,
l_cm_header.doc_sequence_id,
l_doc_seq_status);
UPDATE ar_payment_schedules
SET trx_number = l_cm_header.trx_number
WHERE customer_trx_id = l_customer_trx_id;
UPDATE ra_customer_trx
SET doc_sequence_value = l_cm_header.doc_sequence_value,
doc_sequence_id = l_cm_header.doc_sequence_id,
trx_number = l_cm_header.trx_number,
old_trx_number = l_cm_header.old_trx_number
WHERE customer_trx_id = l_customer_trx_id;
l_update_time varchar2(100);
l_lines_to_delete_index NUMBER := 1;
TYPE lines_to_delete_rec IS RECORD
(line_index BINARY_INTEGER,
line_type ra_customer_trx_lines.Line_type%type
);
TYPE lines_to_delete_tbl_type IS TABLE OF lines_to_delete_rec INDEX BY BINARY_INTEGER;
l_lines_to_delete_tbl lines_to_delete_tbl_type;
SELECT *
INTO l_credited_trx_rec
FROM ra_customer_trx_cr_trx_v
WHERE customer_trx_id = p_prev_customer_trx_id ;
ARP_PROCESS_CREDIT.INSERT_HEADER(
p_form_name,
1.0,
l_cm_header,
'CM',
l_default_gl_date,
-- p_primary_salesrep_id,
l_cm_header.primary_salesrep_id,
l_cm_header.invoice_currency_code, -- p_currency_code,
p_prev_customer_trx_id,
p_line_percent,
p_freight_percent,
l_line_amount,
l_freight_amount,
l_compute_tax,
p_trx_number,
l_customer_trx_id,
l_computed_tax_percent,
l_computed_tax_amount,
p_status);
arp_util.debug( 'Debug point 2 : Error Calling arp_process_credit.insert_header.');
l_ue_message := SUBSTR('Error Calling arp_process_credit.insert_header '
|| SQLERRM, 1, 2000);
arp_util.debug( 'Before Insert line loop');
arp_util.debug( 'Before Insert line call');
ARP_PROCESS_CREDIT.insert_line(
p_form_name => p_form_name,
p_form_version => 1.0 ,
p_credit_rec => l_credited_trx_line_tbl(i) ,
p_line_amount => p_credit_line_table(i).Extended_amount,
p_freight_amount => NULL,
p_line_percent => NULL,
p_freight_percent => NULL,
p_memo_line_type => 'LINE',
p_gl_date => l_default_gl_date,
p_currency_code => l_cm_header.invoice_currency_code ,
p_primary_salesrep_id => l_cm_header.primary_salesrep_id,
p_compute_tax => l_compute_tax,
p_customer_trx_id => l_customer_trx_id,
p_prev_customer_trx_id => p_prev_customer_trx_id,
p_prev_customer_trx_line_id => p_credit_line_table(i).Previous_customer_trx_line_id,
p_tax_percent => l_computed_tax_percent,
p_tax_amount => l_computed_tax_amount,
p_customer_trx_line_id => l_customer_trx_line_id,
p_status => p_status
);
arp_util.debug( 'After Insert line call');
arp_util.debug( 'Debug point 8 : Error inserting credit line details');
l_ue_message := SUBSTR('Error inserting credit line details '
|| SQLERRM, 1, 2000);
Bug 3041195 : 1. ra_customer_trx_table was not getting updated with the
doc seq no/value when copy_doc_number_flag = 'N'. Modified
if ..else clause.
2. Document sequence Nos were getting lost if errors were
encountered during completion checking. Re-arranged the
code to generate nos only if no errors were encountered.
*/
BEGIN
get_doc_seq(222,
l_default_type_name,
arp_global.set_of_books_id,
'A',
l_cm_header.trx_date,
l_cm_header.complete_flag,
l_cm_header.doc_sequence_value,
l_cm_header.doc_sequence_id,
l_doc_seq_status);
UPDATE ar_payment_schedules
SET trx_number = l_cm_header.trx_number
WHERE customer_trx_id = l_customer_trx_id;
UPDATE ra_customer_trx
SET doc_sequence_value = l_cm_header.doc_sequence_value,
doc_sequence_id = l_cm_header.doc_sequence_id,
trx_number = l_cm_header.trx_number,
old_trx_number = l_cm_header.old_trx_number
WHERE customer_trx_id = l_customer_trx_id;