The following lines contain the word 'select', 'insert', 'update' or 'delete':
| Inserts salescredit records into RA_CUST_TRX_LINE_SALESREPS |
| - copies from the credited transaction line, if any |
| OR - inserts a row based on the primary salesperson specified on |
| the transaction |
| |
| SCOPE - PRIVATE |
| |
| EXETERNAL PROCEDURES/FUNCTIONS ACCESSED |
| arp_util.debug |
| arp_ctls_pkg.insert_f_cm_ct_ctl_id |
| |
| ARGUMENTS : IN: |
| p_customer_trx_id |
| p_customer_trx_line_id |
| p_memo_line_type |
| p_primary_salesrep_id |
| p_currency_code |
| OUT: |
| IN/ OUT: |
| |
| RETURNS : NONE |
| |
| NOTES |
| |
| MODIFICATION HISTORY |
| 11-AUG-95 Subash Chadalavada Created |
| |
+===========================================================================*/
PROCEDURE create_salescredits(
p_customer_trx_id IN ra_customer_trx.customer_trx_id%type,
p_customer_trx_line_id IN
ra_customer_trx_lines.customer_trx_line_id%type,
p_memo_line_type IN ar_memo_lines.line_type%type,
p_primary_salesrep_id IN ra_salesreps.salesrep_id%type,
p_currency_code IN fnd_currencies.currency_code%type)
IS
BEGIN
arp_util.debug('arp_process_credit.create_salescredits()+');
arp_ctls_pkg.insert_f_cm_ct_ctl_id(p_customer_trx_id,
p_customer_trx_line_id,
p_currency_code);
arp_ctls_pkg.insert_f_cm_ct_ctl_id(p_customer_trx_id,
p_customer_trx_line_id,
p_currency_code);
| create or updates freight lines for a credit memo |
| |
| SCOPE - PRIVATE |
| |
| EXETERNAL PROCEDURES/FUNCTIONS ACCESSED |
| arp_util.debug |
| |
| ARGUMENTS : IN: |
| p_form_name |
| p_form_version |
| p_credit_rec |
| p_trx_class |
| p_gl_date |
| p_credit_ccid |
| OUT: |
| p_customer_trx_line_id |
| IN/ OUT: |
| |
| RETURNS : NONE |
| |
| NOTES |
| |
| MODIFICATION HISTORY |
| 11-AUG-95 Subash Chadalavada Created |
| |
+===========================================================================*/
PROCEDURE credit_freight (
p_form_name IN varchar2,
p_form_version IN number,
p_customer_trx_id IN ra_customer_trx.customer_trx_id%type,
p_customer_trx_line_id IN ra_customer_trx_lines.customer_trx_line_id%type,
p_prev_ct_id IN ra_customer_trx.customer_trx_id%type,
p_prev_ctl_id IN ra_customer_trx_lines.customer_trx_line_id%type,
p_credit_freight_amount IN ra_customer_trx_lines.extended_amount%type,
p_uncr_freight_amount IN ra_customer_trx_lines.extended_amount%type,
p_freight_type IN varchar2,
p_freight_ctlid IN ra_customer_trx_lines.customer_trx_line_id%type,
p_mode IN varchar2,
p_gl_date IN ra_cust_trx_line_gl_dist.gl_date%type,
p_currency_code IN fnd_currencies.currency_code%type,
p_status OUT NOCOPY varchar2)
IS
l_credited_frt_ctlid ra_customer_trx.customer_trx_id%type;
IF (p_mode = 'INSERT')
THEN
l_frt_rec.customer_trx_id := p_customer_trx_id;
arp_process_freight.insert_freight(
p_form_name,
p_form_version,
l_frt_rec,
'CM',
p_gl_date,
null,
l_freight_ctlid,
p_status);
ELSIF (p_mode = 'UPDATE')
THEN
arp_ctl_pkg.set_to_dummy(l_frt_rec);
arp_process_freight.update_freight(
p_form_name,
p_form_version,
p_customer_trx_id,
p_freight_ctlid,
l_frt_rec,
'CM',
p_gl_date,
null,
null,
null,
p_status);
ELSIF (p_mode = 'DELETE')
THEN
arp_ctlgd_pkg.delete_f_ct_ltctl_id_type(
p_customer_trx_id,
p_customer_trx_line_id,
'FREIGHT',
null,
null);
arp_ctl_pkg.delete_f_ct_ltctl_id_type(
p_customer_trx_id,
p_customer_trx_line_id,
'FREIGHT');
IF (p_mode = 'INSERT')
THEN
IF (p_customer_trx_line_id IS NULL)
THEN
/*-------------------------------------------+
| crediting freight for the entire invoice |
+-------------------------------------------*/
arp_ctl_pkg.insert_line_f_cm_ct_ctl_id(
p_customer_trx_id,
p_customer_trx_line_id,
p_prev_ct_id,
'FREIGHT',
0,
p_uncr_freight_amount,
p_credit_freight_amount,
p_currency_code);
ELSIF (p_mode = 'DELETE')
THEN
arp_ctlgd_pkg.delete_f_ct_ltctl_id_type(
p_customer_trx_id,
p_customer_trx_line_id,
'FREIGHT',
null,
null);
arp_ctl_pkg.delete_f_ct_ltctl_id_type(
p_customer_trx_id,
p_customer_trx_line_id,
'FREIGHT');
SELECT ctt.default_printing_option,
decode(ctt.default_printing_option,
'NOT', 'N',
'PRI', 'Y',
null)
INTO p_new_cm_rec.printing_option,
p_new_cm_rec.printing_pending
FROM ra_cust_trx_types ctt
WHERE ctt.cust_trx_type_id = p_new_cm_rec.cust_trx_type_id;
| validate_insert_header |
| |
| DESCRIPTION |
| |
| SCOPE - PRIVATE |
| |
| EXETERNAL PROCEDURES/FUNCTIONS ACCESSED |
| arp_util.debug |
| |
| ARGUMENTS : IN: |
| OUT: |
| IN/ OUT: |
| |
| RETURNS : NONE |
| |
| NOTES |
| |
| MODIFICATION HISTORY |
| 11-AUG-95 Subash Chadalavada Created |
| |
+===========================================================================*/
PROCEDURE validate_insert_header
IS
BEGIN
arp_util.debug('arp_process_credit.validate_insert_header()+');
arp_util.debug('arp_process_credit.validate_insert_header()-');
arp_util.debug('EXCEPTION: arp_process_credit.validate_insert_header');
| validate_update_header |
| |
| DESCRIPTION |
| |
| SCOPE - PRIVATE |
| |
| EXETERNAL PROCEDURES/FUNCTIONS ACCESSED |
| arp_util.debug |
| |
| ARGUMENTS : IN: |
| OUT: |
| IN/ OUT: |
| |
| RETURNS : NONE |
| |
| NOTES |
| |
| MODIFICATION HISTORY |
| 11-AUG-95 Subash Chadalavada Created |
| |
+===========================================================================*/
PROCEDURE validate_update_header
IS
BEGIN
arp_util.debug('arp_process_credit.validate_update_header()+');
arp_util.debug('arp_process_credit.validate_update_header()-');
arp_util.debug('EXCEPTION: arp_process_credit.validate_update_header');
| validate_insert_line |
| |
| DESCRIPTION |
| |
| SCOPE - PRIVATE |
| |
| EXETERNAL PROCEDURES/FUNCTIONS ACCESSED |
| arp_util.debug |
| |
| ARGUMENTS : IN: |
| OUT: |
| IN/ OUT: |
| |
| RETURNS : NONE |
| |
| NOTES |
| |
| MODIFICATION HISTORY |
| 11-AUG-95 Subash Chadalavada Created |
| 03-SEP-97 Tasman Tang Fixed bug 547165: Change type |
| of p_line_rec to |
| ra_customer_trx_lines%rowtype |
| |
+===========================================================================*/
PROCEDURE validate_insert_line(
p_line_rec IN ra_customer_trx_lines%rowtype)
IS
BEGIN
arp_util.debug('arp_process_credit.validate_insert_line()+');
arp_util.debug('arp_process_credit.validate_insert_line()-');
arp_util.debug('EXCEPTION: arp_process_credit.validate_insert_line');
| validate_update_line |
| |
| DESCRIPTION |
| |
| SCOPE - PRIVATE |
| |
| EXETERNAL PROCEDURES/FUNCTIONS ACCESSED |
| arp_util.debug |
| |
| ARGUMENTS : IN: |
| OUT: |
| IN/ OUT: |
| |
| RETURNS : NONE |
| |
| NOTES |
| |
| MODIFICATION HISTORY |
| 11-AUG-95 Subash Chadalavada Created |
| |
+===========================================================================*/
PROCEDURE validate_update_line
IS
BEGIN
arp_util.debug('arp_process_credit.validate_update_line()+');
arp_util.debug('arp_process_credit.validate_update_line()-');
arp_util.debug('EXCEPTION: arp_process_credit.validate_update_line');
SELECT max(complete_flag)
INTO l_complete_flag
FROM ra_customer_trx
WHERE customer_trx_id = p_customer_trx_id;
SELECT count(ctl.customer_trx_line_id),
sum(extended_amount)
INTO l_line_count,
l_cr_line_amount
FROM ra_customer_trx_lines ctl
WHERE ctl.customer_trx_id = p_customer_trx_id
AND ctl.line_type IN ('CHARGES', 'LINE')
AND decode(p_customer_trx_line_id,
null, -99,
ctl.customer_trx_line_id) = nvl(p_customer_trx_line_id, -99);
SELECT count(ctl.customer_trx_line_id),
sum(extended_amount)
INTO l_tax_line_count,
l_cr_tax_amount
FROM ra_customer_trx_lines ctl
WHERE ctl.customer_trx_id = p_customer_trx_id
AND ctl.line_type = 'TAX'
AND decode(p_customer_trx_line_id,
null, -99,
ctl.link_to_cust_trx_line_id) =
nvl(p_customer_trx_line_id, -99);
SELECT count(ctl.customer_trx_line_id),
sum(extended_amount),
decode(max(ctl.link_to_cust_trx_line_id),
null, 'H', 'L'),
max(ctl.customer_trx_line_id)
INTO l_freight_line_count,
l_cr_freight_amount,
l_cr_frt_type,
l_cr_frt_ctlid
FROM ra_customer_trx_lines ctl
WHERE ctl.customer_trx_id = p_customer_trx_id
AND ctl.line_type = 'FREIGHT'
AND decode(p_customer_trx_line_id,
null, -99,
ctl.link_to_cust_trx_line_id) =
nvl(p_customer_trx_line_id, -99);
SELECT sum(nra.net_amount),
count(nra.customer_trx_line_id),
max(decode(p_prev_ctl_id,
null, null,
nvl(ml.line_type, 'LINE')))
INTO l_uncr_line_amount,
l_line_count,
l_memo_line_type
FROM ar_net_revenue_amount nra,
ra_customer_trx_lines ctl,
ar_memo_lines ml
WHERE nra.customer_trx_id = p_prev_ct_id
AND ctl.customer_trx_line_id = nra.customer_trx_line_id
AND ctl.memo_line_id = ml.memo_line_id (+)
AND decode(p_prev_ctl_id,
null, -99,
nra.customer_trx_line_id) = nvl(p_prev_ctl_id, -99)
AND nra.line_type in ('LINE', 'CB', 'CHARGES');
SELECT sum(nra.net_amount),
count(nra.customer_trx_line_id)
INTO l_uncr_tax_amount,
l_tax_count
FROM ar_net_revenue_amount nra,
ra_customer_trx_lines ctl
WHERE nra.customer_trx_id = p_prev_ct_id
AND nra.line_type = 'TAX'
AND ctl.customer_trx_line_id = nra.customer_trx_line_id
AND decode(p_prev_ctl_id,
null, -99,
ctl.link_to_cust_trx_line_id) = nvl(p_prev_ctl_id, -99);
SELECT max(decode(ctl.link_to_cust_trx_line_id,
null, 'H',
'L')),
sum(nra.net_amount),
max(ctl.customer_trx_line_id),
count(nra.customer_trx_line_id)
INTO l_freight_type,
l_uncr_freight_amount,
l_freight_ctl_id,
l_freight_count
FROM ar_net_revenue_amount nra,
ra_customer_trx_lines ctl
WHERE nra.customer_trx_id = p_prev_ct_id
AND nra.line_type = 'FREIGHT'
AND ctl.customer_trx_line_id = nra.customer_trx_line_id
AND decode(p_prev_ctl_id,
null, -99,
ctl.link_to_cust_trx_line_id) = nvl(p_prev_ctl_id, -99);
SELECT sum(decode(
decode(nra.line_type,
'CB', 'LINE',
'CHARGES', 'LINE',
nra.line_type),
'LINE', nra.net_amount,
0)),
sum(decode(nra.line_type, 'TAX', nra.net_amount, 0)),
sum(decode(nra.line_type, 'FREIGHT', nra.net_amount, 0))
INTO l_total_uncr_line_amount,
l_total_uncr_tax_amount,
l_total_uncr_freight_amount
FROM ar_net_revenue_amount nra,
ra_customer_trx_lines ctl
WHERE nra.customer_trx_id = p_prev_customer_trx_id
AND ctl.customer_trx_line_id = nra.customer_trx_line_id
AND ctl.line_type = nra.line_type
AND decode(p_prev_customer_trx_line_id,
null, -99,
ctl.link_to_cust_trx_line_id) =
nvl(p_prev_customer_trx_line_id, -99);
SELECT count(*)
INTO l_count
FROM ar_payment_schedules
WHERE customer_trx_id = p_prev_customer_trx_id;
SELECT sum(nvl(amount_due_remaining, 0)),
sum(nvl(amount_line_items_remaining, 0)),
sum(nvl(tax_remaining, 0)),
sum(nvl(freight_remaining, 0))
INTO l_trx_balance_due,
l_line_balance_due,
l_tax_balance_due,
l_freight_balance_due
FROM ar_payment_schedules
WHERE customer_trx_id = p_prev_customer_trx_id;
SELECT l_trx_balance_due - sum(nvl(amount, 0)),
l_line_balance_due - sum(nvl(amount, 0))
INTO l_trx_balance_due,
l_line_balance_due
FROM ar_adjustments adj,
ra_cust_trx_types commit_ctt,
ra_customer_trx commit_trx,
ra_customer_trx credited_trx
WHERE commit_ctt.cust_trx_type_id = commit_trx.cust_trx_type_id
AND commit_trx.customer_trx_id =
credited_trx.initial_customer_trx_id
AND credited_trx.customer_trx_id = p_prev_customer_trx_id
AND commit_ctt.type = 'DEP'
AND adj.customer_trx_id = p_prev_customer_trx_id
AND adj.adjustment_type = 'C';
'INSERT',
l_total_uncr_line_amount,
l_total_uncr_tax_amount,
l_total_uncr_freight_amount,
l_memo_line_type,
l_freight_type,
l_freight_ctl_id);
arp_process_credit.insert_line(
p_form_name,
p_form_version,
l_line_rec,
-1 * l_total_uncr_line_amount,
-1 * l_total_uncr_freight_amount,
null,
null,
l_memo_line_type,
p_gl_date,
p_currency_code,
p_primary_salesrep_id,
p_compute_tax,
p_customer_trx_id,
p_prev_customer_trx_id,
pg_credit_lines(i),
l_tax_percent,
l_tax_amount,
l_customer_trx_line_id,
l_line_status);
arp_ctl_pkg.insert_line_f_cm_ct_ctl_id(p_customer_trx_id,
null,
p_prev_customer_trx_id,
'LINE',
p_line_percent,
l_total_uncr_line_amount,
l_credit_line_amount,
p_currency_code,
p_credit_tax_amount);
'INSERT',
p_gl_date,
p_currency_code,
l_frt_status);
| insert_header |
| |
| DESCRIPTION |
| Inserts a row into RA_CUSTOMER_TRX for Credit Memos |
| |
| SCOPE - PRIVATE |
| |
| EXETERNAL PROCEDURES/FUNCTIONS ACCESSED |
| arp_util.debug |
| |
| ARGUMENTS : IN: |
| p_form_name |
| p_form_version |
| p_credit_rec |
| p_trx_class |
| p_gl_date |
| p_credit_ccid |
| OUT: |
| p_customer_trx_line_id |
| IN/ OUT: |
| |
| RETURNS : NONE |
| |
| NOTES |
| |
| MODIFICATION HISTORY |
| 11-AUG-95 Subash Chadalavada Created |
| 03-APR-02 Michael Raymond Bug 2217161 - added
| p_submit_cm_dist parameter
| to allow supression of gl_dist
| rows coming from form.
| |
+===========================================================================*/
PROCEDURE insert_header(
p_form_name IN varchar2,
p_form_version IN number,
p_trx_rec IN ra_customer_trx%rowtype,
p_trx_class IN ra_cust_trx_types.type%type,
p_gl_date IN ra_cust_trx_line_gl_dist.gl_date%type,
p_primary_salesrep_id IN ra_salesreps.salesrep_id%type,
p_currency_code IN fnd_currencies.currency_code%type,
p_prev_customer_trx_id IN ra_customer_trx.customer_trx_id%type,
p_line_percent IN number,
p_freight_pecent IN number,
p_line_amount IN ra_customer_trx_lines.extended_amount%type,
p_freight_amount IN ra_customer_trx_lines.extended_amount%type,
p_compute_tax IN varchar2,
p_trx_number OUT NOCOPY ra_customer_trx.trx_number%type,
p_customer_trx_id OUT NOCOPY ra_customer_trx.customer_trx_id%type,
p_tax_percent IN OUT NOCOPY number,
p_tax_amount IN OUT NOCOPY ra_customer_trx_lines.extended_amount%type,
p_status OUT NOCOPY varchar2,
p_submit_cm_dist IN varchar2 DEFAULT 'N')
IS
l_customer_trx_id ra_customer_trx.customer_trx_id%type;
arp_util.debug('arp_process_credit.insert_header()+');
| pre-insert logic |
+--------------------*/
-- default_credit_header(p_trx_rec, p_prev_customer_trx_id, l_trx_rec);
SELECT NVL( default_status, 'OP' )
INTO l_trx_rec.status_trx
FROM ra_cust_trx_types
WHERE cust_trx_type_id = p_trx_rec.cust_trx_type_id;
validate_insert_header;
arp_ct_pkg.insert_p(l_trx_rec, p_trx_number, l_customer_trx_id);
| call autoaccounting to insert the REC record |
+--------------------------------------------------*/
BEGIN
arp_auto_accounting.do_autoaccounting(
'I',
'REC',
l_customer_trx_id,
null,
null,
null,
p_gl_date,
null,
nvl(l_total_credit_amount, 0),
null,
null,
null,
null,
null,
null,
l_ccid,
l_concat_segments,
l_num_failed_dist_rows);
arp_util.debug('arp_process_credit.insert_header()-');
arp_util.debug('EXCEPTION: arp_process_credit.insert_header');
| delete_cm_records |
| |
| DESCRIPTION |
| Deletes Credit Memo records |
| |
| SCOPE - PRIVATE |
| |
| EXETERNAL PROCEDURES/FUNCTIONS ACCESSED |
| arp_util.debug |
| |
| ARGUMENTS : IN: |
| p_customer_trx_id |
| p_trx_number_change_flag |
| OUT: |
| IN/ OUT: |
| |
| RETURNS : NONE |
| |
| NOTES |
| |
| MODIFICATION HISTORY |
| 11-AUG-95 Subash Chadalavada Created |
| 19-NOV-01 Santosh Vaze Bug Fix 2109490 |
| Added parameter p_trx_number_change_flag |
| 11-APR-03 M Raymond Bug 2868648 - added delete of CMA rows
| |
+===========================================================================*/
PROCEDURE delete_cm_records(
p_customer_trx_id IN ra_customer_trx.customer_trx_id%type,
p_trx_number_change_flag IN boolean)
IS
BEGIN
arp_util.debug('arp_process_credit.delete_cm_records()+');
| delete sales credits |
+-----------------------*/
arp_ctls_pkg.delete_f_ct_id(p_customer_trx_id);
| delete distributions, except for 'REC' |
+----------------------------------------*/
arp_ctlgd_pkg.delete_f_ct_ltctl_id_type(
p_customer_trx_id,
null,
null,
null,
null);
ARP_ETAX_UTIL.global_document_update(p_customer_trx_id,
NULL,
'DELETE');
arp_cma_pkg.delete_f_ct_id(p_customer_trx_id);
| delete line records |
+---------------------*/
arp_ctl_pkg.delete_f_ct_id(p_customer_trx_id);
arp_util.debug('arp_process_credit.delete_cm_records()-');
arp_util.debug('EXCEPTION: arp_process_credit.delete_cm_records');
arp_ctl_pkg.update_f_ct_id( l_line_rec,
p_customer_trx_id,
'LINE');
'no child lines to update.');
ARP_XLA_EVENTS.delete_reverse_revrec_event( p_document_id => p_customer_trx_id,
p_doc_table => 'CT');
arp_ctlgd_pkg.delete_f_ct_id(p_customer_trx_id,
'N',
NULL);
'no dists to delete.');
arp_ctlgd_pkg.update_f_ct_id(l_dist_rec,
p_customer_trx_id,
'Y',
'REC');
'no dists to update.');
SELECT gl_date
INTO l_old_gl_date
FROM ra_cust_trx_line_gl_dist
WHERE customer_trx_id = p_customer_trx_id
AND account_class = 'REC'
AND latest_rec_flag = 'Y';
| update_header |
| |
| DESCRIPTION |
| Updates the row in RA_CUSTOMER_TRX for Credit Memos |
| |
| SCOPE - PRIVATE |
| |
| EXETERNAL PROCEDURES/FUNCTIONS ACCESSED |
| arp_util.debug |
| |
| ARGUMENTS : IN: |
| p_form_name |
| p_form_version |
| p_trx_class |
| p_gl_date |
| p_credit_ccid |
| OUT: |
| p_customer_trx_line_id |
| IN/ OUT: |
| p_credit_rec |
| |
| RETURNS : NONE |
| |
| NOTES |
| |
| MODIFICATION HISTORY |
| 11-AUG-95 Subash Chadalavada Created |
| 19-NOV-01 Santosh Vaze Bug Fix 2109490 |
| |
+===========================================================================*/
PROCEDURE update_header(
p_form_name IN varchar2,
p_form_version IN number,
p_customer_trx_id IN ra_customer_trx.customer_trx_id%type,
p_trx_rec IN OUT NOCOPY ra_customer_trx%rowtype,
p_trx_class IN ra_cust_trx_types.type%type,
p_gl_date IN ra_cust_trx_line_gl_dist.gl_date%type,
p_primary_salesrep_id IN ra_salesreps.salesrep_id%type,
p_currency_code IN fnd_currencies.currency_code%type,
p_prev_customer_trx_id IN ra_customer_trx.customer_trx_id%type,
p_line_percent IN number,
p_freight_pecent IN number,
p_line_amount IN ra_customer_trx_lines.extended_amount%type,
p_freight_amount IN ra_customer_trx_lines.extended_amount%type,
p_credit_amount IN ra_customer_trx_lines.extended_amount%type,
p_cr_txn_invoicing_rule_id IN ra_customer_trx.invoicing_rule_id%type,
p_rederive_credit_info IN varchar2,
p_rerun_aa IN varchar2,
p_rerun_cm_module IN varchar2,
p_compute_tax IN varchar2,
p_tax_percent IN OUT NOCOPY number,
p_tax_amount IN OUT NOCOPY ra_customer_trx_lines.extended_amount%type,
p_status OUT NOCOPY varchar2)
IS
l_old_trx_rec ra_customer_trx%rowtype;
SELECT 222,
min(ev.event_id) event_id,
trx.legal_entity_id legal_entity_id,
trx.set_of_books_id set_of_books_id,
xet.entity_code entity_code,
trx.trx_number trx_number,
trx.customer_trx_id customer_trx_id,
trx.org_id org_id
FROM ra_customer_trx trx,
ra_cust_trx_line_gl_dist gld,
xla_transaction_entities_upg xet,
xla_events ev
WHERE trx.customer_trx_id = p_customer_trx_id
AND trx.customer_trx_id = gld.customer_trx_id
AND gld.account_class = 'REC'
AND gld.posting_control_id = -3
AND gld.latest_rec_flag = 'Y'
AND trx.SET_OF_BOOKS_ID = xet.LEDGER_ID
AND xet.application_id = 222
AND nvl(xet.source_id_int_1, -99) = trx.customer_trx_id
AND xet.entity_code = 'TRANSACTIONS'
AND xet.entity_id = ev.entity_id
AND ev.application_id = 222
AND ev.event_status_code = 'I'
group by trx.legal_entity_id,
trx.set_of_books_id,
xet.entity_code,
trx.trx_number,
trx.customer_trx_id,
trx.org_id;
arp_util.debug('arp_process_credit.update_header()+');
| Validate the record that is being updated |
+---------------------------------------------*/
validate_update_header;
| The procedure arp_process_tax.before_update_cm_header checks whether |
| transaction number has been replaced by document sequence value. |
| If Yes, this is identified as Tax Event for Vendors and Vendor data |
| is synchronized with the new transaction number. |
| This is not a Tax Event for GTE. |
+----------------------------------------------------------------------*/
arp_util.debug( 'p_compute_tax : ' || p_compute_tax);
SELECT trx_number
INTO orig_trx_number
FROM ra_customer_trx
WHERE customer_trx_id = p_customer_trx_id;
IF (l_action = 'UPDATE') THEN
-- next call the etax for header det factor update
arp_etax_services_pkg.Header_det_factors(
p_customer_trx_id => p_customer_trx_id,
p_mode => l_action,
x_return_status => l_return_status,
x_msg_count => l_msg_count,
x_msg_data => l_msg_data);
arp_ct_pkg.update_p(p_trx_rec, p_customer_trx_id);
| post-update logic |
+---------------------*/
--Bug Fix 7115142, Synchronize Document Sequence if required
IF(l_trx_number_change_flag) THEN
arp_etax_util.synchronize_for_doc_seq(p_customer_trx_id,l_ret_status);
arp_ctlgd_pkg.update_f_ct_id(l_dist_rec,
p_customer_trx_id,
null,
null);
arp_ctlgd_pkg.update_f_ct_id(l_dist_rec,
p_customer_trx_id,
'N',
'REC');
arp_ctlgd_pkg.update_f_ct_id(l_dist_rec,
p_customer_trx_id,
'Y',
null);
delete_cm_records(p_customer_trx_id, l_trx_number_change_flag);
arp_ctlgd_pkg.update_acctd_amount(p_customer_trx_id,
pg_base_curr_code,
l_exchange_rate,
pg_base_precision,
pg_base_min_acc_unit);
N is updated with the gl_date. */
IF (p_cr_txn_invoicing_rule_id IS NOT NULL)
THEN
arp_ctlgd_pkg.update_f_ct_id(l_dist_rec,
p_customer_trx_id,
'Y',
null);
arp_ctlgd_pkg.update_f_ct_id(l_dist_rec,
p_customer_trx_id,
'N',
null);
arp_util.debug('arp_process_credit.update_header: '||
'no distributions to update');
arp_util.debug('EXCEPTION : arp_process_credit.update_header');
arp_util.debug(' update gl_date');
arp_util.debug('update_header() : credit_transactions');
xla_events_pub_pkg.update_event
(p_event_source_info => l_event_source_info,
p_event_id => l_event_id,
p_event_date => p_gl_date,
p_valuation_method => null,
p_transaction_date => p_trx_rec.trx_date,
p_security_context => l_security);
arp_util.debug('arp_process_credit.update_header()-');
arp_util.debug('EXCEPTION : arp_process_credit.update_header');
| insert_line |
| |
| DESCRIPTION |
| Inserts a row into RA_CUSTOMER_TRX_LINES for Credit Memos |
| |
| SCOPE - PRIVATE |
| |
| EXETERNAL PROCEDURES/FUNCTIONS ACCESSED |
| arp_util.debug |
| |
| ARGUMENTS : IN: |
| p_form_name |
| p_form_version |
| p_credit_rec |
| p_trx_class |
| p_gl_date |
| p_credit_ccid |
| OUT: |
| p_customer_trx_line_id |
| IN/ OUT: |
| |
| RETURNS : NONE |
| |
| NOTES |
| |
| MODIFICATION HISTORY |
| 11-AUG-95 Subash Chadalavada Created |
| |
+===========================================================================*/
PROCEDURE insert_line(
p_form_name IN varchar2,
p_form_version IN number,
p_credit_rec IN ra_customer_trx_lines%rowtype,
p_line_amount IN ra_customer_trx_lines.extended_amount%type,
p_freight_amount IN ra_customer_trx_lines.extended_amount%type,
p_line_percent IN number,
p_freight_percent IN number,
p_memo_line_type IN ar_memo_lines.line_type%type,
p_gl_date IN ra_cust_trx_line_gl_dist.gl_date%type,
p_currency_code IN fnd_currencies.currency_code%type,
p_primary_salesrep_id IN ra_salesreps.salesrep_id%type,
p_compute_tax IN varchar2,
p_customer_trx_id IN ra_customer_trx.customer_trx_id%type,
p_prev_customer_trx_id IN ra_customer_trx_lines.customer_trx_id%type,
p_prev_customer_trx_line_id IN
ra_customer_trx_lines.customer_trx_line_id%type,
p_tax_percent IN OUT NOCOPY number,
p_tax_amount IN OUT NOCOPY ra_customer_trx_lines.extended_amount%type,
p_customer_trx_line_id OUT NOCOPY
ra_customer_trx_lines.customer_trx_line_id%type,
p_status OUT NOCOPY varchar2)
IS
l_customer_trx_line_id ra_customer_trx_lines.customer_trx_line_id%type;
arp_util.debug('arp_process_credit.insert_line()+');
| pre-insert logic |
+--------------------*/
default_credit_line(p_credit_rec,
p_customer_trx_id,
p_prev_customer_trx_line_id,
p_line_amount,
l_credit_rec);
arp_process_credit.validate_insert_line(l_credit_rec);
arp_ctl_pkg.insert_p(l_credit_rec, l_customer_trx_line_id);
| post-insert logic |
+--------------------*/
create_salescredits( p_customer_trx_id,
l_customer_trx_line_id,
p_memo_line_type,
p_primary_salesrep_id,
p_currency_code);
'INSERT',
l_uncr_line_amount,
l_uncr_tax_amount,
l_uncr_freight_amount,
l_memo_line_type,
l_freight_type,
l_freight_ctl_id);
'INSERT',
p_gl_date,
p_currency_code,
l_frt_status);
INSERT_NO_TAX - LINE_INFO_TAX_ONLY
2) inv or cm with no tax at all
INSERT_NO_TAX_EVER - RECORD_WITH_NO_TAX
*/
IF NVL(p_tax_amount,0) = 0 THEN
IF NVL(p_memo_line_type, 'XXX') = 'TAX'
THEN
l_mode := 'INSERT_NO_TAX';
l_mode := 'INSERT_NO_TAX_EVER';
p_mode => 'INSERT_NO_LINE',
p_tax_amount => p_tax_amount);
p_mode => 'INSERT',
p_tax_amount => p_tax_amount);
arp_util.debug('arp_process_credit.insert_line()-');
arp_util.debug('EXCEPTION: arp_process_credit.insert_line()');
l_frt_mode := 'DELETE';
l_frt_mode := 'INSERT';
l_frt_mode := 'UPDATE';
l_tax_mode := 'DELETE';
l_tax_mode := 'INSERT';
l_tax_mode := 'UPDATE';
| update_line |
| |
| DESCRIPTION |
| Updates the row in RA_CUSTOMER_TRX_LINES for Credit Memos |
| |
| SCOPE - PRIVATE |
| |
| EXETERNAL PROCEDURES/FUNCTIONS ACCESSED |
| arp_util.debug |
| |
| ARGUMENTS : IN: |
| p_form_name |
| p_form_version |
| p_credit_rec |
| p_trx_class |
| p_gl_date |
| p_credit_ccid |
| OUT: |
| p_customer_trx_line_id |
| IN/ OUT: |
| |
| RETURNS : NONE |
| |
| NOTES |
| |
| MODIFICATION HISTORY |
| 11-AUG-95 Subash Chadalavada Created |
| 03-SEP-97 Tasman Tang Fixed bug 547165: Change type of |
| l_old_line_rec to |
| ra_customer_trx_lines%rowtype |
| |
+===========================================================================*/
PROCEDURE update_line(
p_form_name IN varchar2,
p_form_version IN number,
p_credit_rec IN ra_customer_trx_lines%rowtype,
p_customer_trx_line_id IN
ra_customer_trx_lines.customer_trx_line_id%type,
p_line_amount IN ra_customer_trx_lines.extended_amount%type,
p_freight_amount IN ra_customer_trx_lines.extended_amount%type,
p_line_percent IN number,
p_freight_percent IN number,
p_memo_line_type IN ar_memo_lines.line_type%type,
p_gl_date IN ra_cust_trx_line_gl_dist.gl_date%type,
p_currency_code IN fnd_currencies.currency_code%type,
p_primary_salesrep_id IN ra_salesreps.salesrep_id%type,
p_exchange_rate IN ra_customer_trx.exchange_rate%type,
p_rerun_aa IN varchar2,
p_recalculate_tax IN varchar2,
p_compute_tax IN varchar2,
p_customer_trx_id IN ra_customer_trx.customer_trx_id%type,
p_prev_customer_trx_id IN ra_customer_trx_lines.customer_trx_id%type,
p_prev_customer_trx_line_id IN
ra_customer_trx_lines.customer_trx_line_id%type,
p_tax_percent IN OUT NOCOPY number,
p_tax_amount IN OUT NOCOPY ra_customer_trx_lines.extended_amount%type,
p_status OUT NOCOPY varchar2)
IS
l_frt_exists_flag boolean;
arp_util.debug('arp_process_credit.update_line()+');
| pre-update logic |
+--------------------*/
arp_process_credit.validate_update_line;
arp_etax_services_pkg.before_update_line(
p_customer_trx_line_id,
p_credit_rec,
l_recalculate_tax_flag);
'arp_etax_services_pkg.before_update_line raised exception');
arp_ctl_pkg.update_p(p_credit_rec, p_customer_trx_line_id);
| post-update logic |
+--------------------*/
IF (p_prev_customer_trx_id IS NOT NULL)
THEN
arp_process_credit.get_uncredit_amounts(
p_customer_trx_id,
p_customer_trx_line_id,
p_prev_customer_trx_id,
p_prev_customer_trx_line_id,
null,
l_uncr_line_amount,
l_uncr_tax_amount,
l_uncr_frt_amount,
l_memo_line_type,
l_frt_type,
l_prev_frt_ctlid);
p_mode => 'UPDATE');
| update salescredits |
*-----------------------*/
IF (l_line_amt_chng_flag = TRUE)
THEN
arp_ctls_pkg.update_amounts_f_ctl_id(p_customer_trx_line_id,
p_line_amount,
p_currency_code);
| update distributions |
*-----------------------*/
IF (p_rerun_aa = 'Y')
THEN
rerun_aa(p_customer_trx_id,
p_customer_trx_line_id,
p_gl_date,
null,
l_rerun_aa_status);
arp_ctlgd_pkg.update_amount_f_ctl_id(p_customer_trx_line_id,
p_line_amount,
p_currency_code,
pg_base_curr_code,
p_exchange_rate,
pg_base_precision,
pg_base_min_acc_unit);
arp_util.debug('arp_process_credit.update_line '||
'no distributions updated');
arp_util.debug('arp_process_credit.update_line()-');
arp_util.debug('EXCEPTION: arp_process_credit.update_line');
| freight_post_update |
| |
| DESCRIPTION |
| Post update logic for processing freight for CMs |
| |
| SCOPE - PRIVATE |
| |
| EXETERNAL PROCEDURES/FUNCTIONS ACCESSED |
| arp_util.debug |
| |
| ARGUMENTS : IN: |
| OUT: |
| IN/ OUT: |
| |
| RETURNS : NONE |
| |
| NOTES |
| |
| MODIFICATION HISTORY |
| 12-JUL-95 Subash Chadalavada Created |
| |
+===========================================================================*/
PROCEDURE freight_post_update(
p_frt_rec IN ra_customer_trx_lines%rowtype,
p_gl_date IN ra_cust_trx_line_gl_dist.gl_date%type,
p_frt_ccid IN
ra_cust_trx_line_gl_dist.code_combination_id%type)
IS
l_ccid
ra_cust_trx_line_gl_dist.code_combination_id%type;
arp_util.debug('arp_process_credit.freight_post_update()+');
arp_util.debug('arp_process_credit.freight_post_update()-');
arp_util.debug('EXCEPTION: arp_process_credit.freight_post_update()');