The following lines contain the word 'select', 'insert', 'update' or 'delete':
| arp_process_adjustment.insert_reverse_actions |
| Setup to reverse an adjustment as part of chargeback reversal|
| arp_ps_util.update_reverse_actions |
| Setup to reverse the payment schedule associated with the |
| chargeback |
| |
| ARGUMENTS : IN: |
| p_cb_ct_id - Charge back Customer transaction Id |
| p_reversal_gl_date - Reversal GL date |
| p_reversal_date - Reversal Date |
| p_module_name - Module that called this procedure |
| p_module_version - Version of the module that called this |
| procedure |
| OUT: |
| |
| RETURNS : NONE |
| |
| NOTES |
| This procedure is originally converted from C -procedure armrcb
| which is in file armcb.lpc.
| |
| MODIFICATION HISTORY - 04/25/95 - Created by Ganesh Vaidee |
| 05/02/95 - Removed the comment on p_created_from |
| variable |
| 05/02/95 - Assigned 'REVERSE_CHARGEBACK' to |
| l_adj_rec.created_from variable |
| S.Nambiar 03/23/2001 Modified reverse_chargeback procedure to incorporate |
| the new functionality to create Chargeback aganist |
| receipts. |
| In case of receipt CB, p_type will be "RECEIPT" |
| in all other cases it will be defaulted to "TRANSACTION"
+===========================================================================*/
PROCEDURE reverse_chargeback(
p_cb_ct_id IN ra_customer_trx.customer_trx_id%TYPE,
p_reversal_gl_date IN DATE,
p_reversal_date IN DATE,
p_module_name IN VARCHAR2,
p_module_version IN VARCHAR2,
p_type IN VARCHAR2 DEFAULT 'TRANSACTION' ) IS
l_amount NUMBER;
SELECT ps.amount_due_remaining,
-ps.amount_due_remaining,
ps.acctd_amount_due_remaining,
-ps.acctd_amount_due_remaining,
ps.payment_schedule_id,
ps.associated_cash_receipt_id,
NVL( -ps.amount_line_items_remaining, 0 ),
NVL( -ps.freight_remaining, 0 ),
NVL( -ps.tax_remaining, 0 ),
NVL( -ps.receivables_charges_remaining, 0 )
INTO l_amount,
l_adj_rec.amount,
l_acctd_amount,
l_adj_rec.acctd_amount,
l_ps_id,
l_adj_rec.associated_cash_receipt_id,
l_adj_rec.line_adjusted,
l_adj_rec.freight_adjusted,
l_adj_rec.tax_adjusted,
l_adj_rec.receivables_charges_adjusted
FROM ar_payment_schedules ps
WHERE ps.customer_trx_id = p_cb_ct_id
AND ps.class = 'CB';
SELECT dist.code_combination_id
INTO l_adj_rec.code_combination_id
FROM ra_cust_trx_line_gl_dist dist,
ra_customer_trx ct
WHERE ct.customer_trx_id = p_cb_ct_id
AND ct.customer_trx_id = dist.customer_trx_id
AND dist.account_class = 'REV';
arp_process_adjustment.insert_reverse_actions( l_adj_rec, NULL, NULL );
arp_ps_util.update_reverse_actions( l_app_rec, NULL, NULL);
arp_standard.debug('before BEGIN SELECT NVL in app_delete' );
SELECT NVL( sum( ra.amount_applied), 0 )
INTO l_sum
FROM ar_receivable_applications ra
WHERE ra.applied_customer_trx_id in (
SELECT a.chargeback_customer_trx_id
FROM ar_adjustments b,
ar_adjustments a
WHERE a.receivables_trx_id = arp_global.G_CB_RT_ID
AND a.associated_cash_receipt_id = p_ass_cr_id
AND a.payment_schedule_id = p_ps_id
AND b.receivables_trx_id(+) =
arp_global.G_CB_REV_RT_ID
AND b.customer_trx_id(+) = a.chargeback_customer_trx_id
AND b.customer_trx_id is NULL );
arp_standard.debug( 'inside SELECT nvl 2nd in app_delete' );
SELECT NVL( sum( amount ), 0 )
INTO l_sum
FROM ar_adjustments
WHERE customer_trx_id in (
SELECT a.chargeback_customer_trx_id
FROM ar_adjustments a,
ar_adjustments b
WHERE a.receivables_trx_id = arp_global.G_CB_RT_ID
AND a.associated_cash_receipt_id = p_ass_cr_id
AND a.payment_schedule_id = p_ps_id
AND b.receivables_trx_id(+) =
arp_global.G_CB_REV_RT_ID
AND b.customer_trx_id(+) = a.chargeback_customer_trx_id
AND b.customer_trx_id is NULL )
AND NVL( postable, 'Y') = 'Y';
arp_standard.debug( 'before SELECT COUNT(*) in app_delete' );
SELECT count( distinct ct.customer_trx_id )
INTO l_count
FROM ra_customer_trx ct,
ar_payment_schedules ps
WHERE ct.customer_trx_id in (
SELECT a.chargeback_customer_trx_id
FROM ar_adjustments b,
ar_adjustments a
WHERE a.receivables_trx_id = arp_global.G_CB_RT_ID
AND a.associated_cash_receipt_id = p_ass_cr_id
AND a.payment_schedule_id = p_ps_id
AND b.receivables_trx_id(+) =
arp_global.G_CB_REV_RT_ID
AND b.customer_trx_id(+) =
a.chargeback_customer_trx_id
AND b.customer_trx_id is NULL )
AND ps.customer_trx_id = ct.customer_trx_id
AND ps.class = 'CB';
arp_standard.debug( 'passed in count does not match selected count' );
arp_standard.debug( 'inside BEGIN SELECT NVL in app_delete' );
SELECT NVL( sum( amount_applied), 0 )
INTO l_sum
FROM ar_receivable_applications
WHERE applied_customer_trx_id = p_ct_id;
arp_standard.debug( 'inside SELECT nvl 2nd in app_delete' );
SELECT NVL( sum( amount ), 0 )
INTO l_sum
FROM ar_adjustments
WHERE customer_trx_id = p_ct_id
AND NVL( postable, 'Y') = 'Y';
arp_standard.debug( 'before SELECT COUNT(*) in app_delete' );
SELECT count(*)
INTO l_count
FROM ra_customer_trx ct,
ar_payment_schedules ps
WHERE ct.customer_trx_id = p_ct_id
AND ps.customer_trx_id = ct.customer_trx_id
AND ps.class = 'CB';
p_adj_rec.program_update_date := NULL;
2. Insert header RA_CUSTOMER_TRX
3. Insert one line into RA_CUSTOMER_TRX_LINES
4. Insert revenue account GL distribution
into RA_CUST_TRX_LINE_GL_DIST
5. Insert receivables account GL distribution
into RA_CUST_TRX_LINE_GL_DIST
6. Insert into AR_PAYMENT_SCHEDULES
- Call event handler
7. Initialize, then populate app_struct and ps_struct
8. Update AR_PAYMENT_SCHEDULES
9. Initialize variables for inserting a row into AR_ADJUSTMENTS
10. Insert into AR_ADJUSTMENTS by calling armiadj
SCOPE
Public
EXTERNAL PROCEDURES/FUNCTIONS ACCESSED
ARTUGBLB.pls
- arp_trx_global.system_info.base_currency
- arp_trx_global.system_info.base_precision
- arp_trx_global.system_info.base_min_acc_unit
ARCUTILB.pls
- validate_gl_date
ARTITRXB.pls Table handler for ra_customer_trx
- insert_p
ARTICTLB.pls Table handler for ra_customer_trx_lines
- insert_p
ARTILGDB.pls Table handler ra_cust_trx_line_gl_dist
- insert_p
ARTEADJS.pls Adjustment procedures
- insert_adjustment
ARGUMENTS
IN
p_amount Chargeback amount
p_acctd_amount Chargeback amount in base currency
p_cr_trx_number Cash receipt number
p_cash_receipt_id Cash receipt id
p_inv_trx_number Invoice number to which chargeback
is applied against
p_inv_customer_trx_id Invoice ID to which chargeback is
applied
p_gl_id_ar_trade Receivables account code combination
id
p_apply_date AI.APPLY_DATE
OUT
RETURNS
NOTES
MODIFICATION HISTORY
10/09/1995 H.Kaukovuo Created
7/29/1996 Harri Kaukovuo Bug 386242, term_id was not populated when
ra_customer_trx row was created.
7/30/1996 Harri Kaukovuo Bug fix 386662 document numbering was missing
from the chargeback adjustment.
11/17/1997 Genneva Wang Bug fix 412726 - (1) Creation of Chargeback
should give message if GL Account assignment
is missing. (2) Returns message if a document
sequence has not been created for the
Chargeback Adjustment activity.
09/01/1999 Genneva Wang Bug fix: 976730 Redefault Chargeback GL Date
if passed in chargeback GL date is invalid
03/22/2001 S.Nambiar Program has been modified to create chargeback
aganist receipt,which is a new functionality
introduced for iClaim-deduction project. In this
case, there won't be any adjustment created.
3/26/2001 S.Nambiar Modified create_chargeback parameter list |
and added p_remit_to_address_id and |
p_bill_to_site_use_id for receipt chargeback |
09/10/2002 S.Nambiar Bug 2444737 - Added transaction referece flex
fields to create chargeback routine.
01/15/2003 J.Beckett Bug 2751910 - added p_internal_notes
09/23/2004 J.Beckett Bug 3879127 - p_acctd_amount is ignored and
the chargeback acctd_amount is recalculated
with respect to amount_due_remaining of
originating invoice to ensure the sum of all
chargebacks does not exceed the original
invoice and to ensure the chargeback balances
with the corresponding adjustment.
05/25/2005 J.Beckett R12 LE uptake : Added legal_entity_id
+===========================================================================
*/
procedure create_chargeback(
p_amount IN NUMBER
, p_acctd_amount IN NUMBER
, p_trx_date IN DATE
, p_gl_id_ar_trade IN NUMBER
, p_gl_date IN DATE
, p_attribute_category IN VARCHAR2
, p_attribute1 IN VARCHAR2
, p_attribute2 IN VARCHAR2
, p_attribute3 IN VARCHAR2
, p_attribute4 IN VARCHAR2
, p_attribute5 IN VARCHAR2
, p_attribute6 IN VARCHAR2
, p_attribute7 IN VARCHAR2
, p_attribute8 IN VARCHAR2
, p_attribute9 IN VARCHAR2
, p_attribute10 IN VARCHAR2
, p_attribute11 IN VARCHAR2
, p_attribute12 IN VARCHAR2
, p_attribute13 IN VARCHAR2
, p_attribute14 IN VARCHAR2
, p_attribute15 IN VARCHAR2
, p_cust_trx_type_id IN NUMBER
, p_set_of_books_id IN NUMBER
, p_reason_code IN VARCHAR2
, p_comments IN VARCHAR2
, p_def_ussgl_trx_code_context IN VARCHAR2
, p_def_ussgl_transaction_code IN VARCHAR2
-- For AR_PAYMENT_SCHEDULES
, p_due_date IN DATE
, p_customer_id IN NUMBER
, p_cr_trx_number IN VARCHAR2
, p_cash_receipt_id IN NUMBER
, p_inv_trx_number IN VARCHAR2
, p_apply_date IN DATE
, p_receipt_gl_date IN DATE
-- We get rest of the TRX info with this ID
, p_app_customer_trx_id IN NUMBER
, p_app_terms_sequence_number IN NUMBER
, p_form_name IN VARCHAR2
, p_out_trx_number OUT NOCOPY VARCHAR2
, p_out_customer_trx_id OUT NOCOPY NUMBER
, p_doc_sequence_value IN OUT NOCOPY NUMBER
, p_doc_sequence_id IN OUT NOCOPY NUMBER
, p_exchange_rate_type IN VARCHAR2
, p_exchange_date IN DATE
, p_exchange_rate IN NUMBER
, p_currency_code IN VARCHAR2
, p_remit_to_address_id IN NUMBER DEFAULT 0
, p_bill_to_site_use_id IN NUMBER DEFAULT 0
--Bug 2444737
, p_interface_header_context IN VARCHAR2
, p_interface_header_attribute1 IN VARCHAR2
, p_interface_header_attribute2 IN VARCHAR2
, p_interface_header_attribute3 IN VARCHAR2
, p_interface_header_attribute4 IN VARCHAR2
, p_interface_header_attribute5 IN VARCHAR2
, p_interface_header_attribute6 IN VARCHAR2
, p_interface_header_attribute7 IN VARCHAR2
, p_interface_header_attribute8 IN VARCHAR2
, p_interface_header_attribute9 IN VARCHAR2
, p_interface_header_attribute10 IN VARCHAR2
, p_interface_header_attribute11 IN VARCHAR2
, p_interface_header_attribute12 IN VARCHAR2
, p_interface_header_attribute13 IN VARCHAR2
, p_interface_header_attribute14 IN VARCHAR2
, p_interface_header_attribute15 IN VARCHAR2
, p_internal_notes IN VARCHAR2 -- bug 2751910
, p_customer_reference IN VARCHAR2 -- bug 2751910
, p_legal_entity_id IN NUMBER /* R12 LE uptake */
)
IS
l_ct_row ra_customer_trx%ROWTYPE;
SELECT customer_trx_id,
payment_schedule_id,
invoice_currency_code,
due_date,
amount_in_dispute,
amount_due_original,
amount_due_remaining,
amount_adjusted,
customer_id,
customer_site_use_id,
trx_date,
amount_credited,
status
FROM ar_payment_schedules
WHERE customer_trx_id = p_cust_trx_id;
SELECT
ct.exchange_rate_type
, ct.exchange_date
, ct.exchange_rate
, ct.bill_to_customer_id
, ct.ship_to_customer_id
, ct.sold_to_customer_id
, ct.remit_to_address_id
, ct.bill_to_site_use_id
, ct.ship_to_site_use_id
, ct.sold_to_site_use_id
, ps.PAYMENT_SCHEDULE_ID
, ct.invoice_currency_code
, ct.primary_salesrep_id
, ct.territory_id
, ctlgd.code_combination_id
/* Bug 3879127 new values needed for acctd_amount calculation */
, ps.amount_due_remaining
, ps.acctd_amount_due_remaining
, NVL(p_legal_entity_id,ct.legal_entity_id)
, ct.trx_number /*added for bug 5550153*/
INTO
l_ct_row.exchange_rate_type
, l_ct_row.exchange_date
, l_ct_row.exchange_rate
, l_ct_row.bill_to_customer_id
, l_ct_row.ship_to_customer_id
, l_ct_row.sold_to_customer_id
, l_ct_row.remit_to_address_id
, l_ct_row.bill_to_site_use_id
, l_ct_row.ship_to_site_use_id
, l_ct_row.sold_to_site_use_id
, ln_app_payment_schedule_id
, l_ct_row.invoice_currency_code
, l_ct_row.primary_salesrep_id
, l_ct_row.territory_id
, l_inv_rec_ccid
/* Bug 3879127 */
, ln_amount_due_remaining
, ln_acctd_amount_due_remaining
, l_ct_row.legal_entity_id /* R12 LE uptake */
, ln_trx_number /*bug 5550153*/
FROM
ar_payment_schedules ps
, ra_cust_trx_line_gl_dist ctlgd
, ra_customer_trx ct
WHERE
ct.customer_trx_id = p_app_customer_trx_id
AND ct.customer_trx_id = ps.customer_trx_id
AND ct.customer_trx_id = ctlgd.customer_trx_id(+)
AND ctlgd.account_class = 'REC'
AND ctlgd.latest_rec_flag = 'Y'
AND ps.terms_sequence_number = p_app_terms_sequence_number;
arp_standard.debug( '-- Exception: Select default values from old invoice');
SELECT
cr.pay_from_customer
, cr.receipt_method_id
, cr.remit_bank_acct_use_id
, cr.legal_entity_id
INTO
l_bill_to_customer_id
, l_receipt_method_id
, l_remit_bank_acct_use_id
, l_rct_le_id /* R12 LE uptake */
FROM
ar_cash_receipts cr
WHERE
cr.cash_receipt_id = p_cash_receipt_id;
arp_standard.debug( '-- Exception: Select default values from the receipt');
l_ct_row.customer_trx_id := NULL; -- This will be populated when header is inserted
BEGIN -- Select printing option
IF PG_DEBUG in ('Y', 'C') THEN
arp_standard.debug( '-- Select printing option');
SELECT NVL(ctt.default_printing_option,'PRI')
, DECODE(ctt.default_printing_option
, 'NOT','N'
, 'Y')
INTO l_ct_row.printing_option,
l_ct_row.printing_pending
FROM ra_cust_trx_types ctt
WHERE ctt.cust_trx_type_id = p_cust_trx_type_id;
select end_date_active
into l_term_end_date
from ra_terms where term_id = 5;
arp_standard.debug( '-- Exception: Select printing option from DB');
END; -- Select printing option
arp_ct_pkg.insert_p(
-- IN
p_trx_rec => l_ct_row
-- OUT
, p_trx_number => l_ct_row.trx_number
, p_customer_trx_id => l_ct_row.customer_trx_id
);
arp_standard.debug ( '-- table handler arp_ct_pkg.insert_p:');
SELECT ml.memo_line_id
, ml.line_type
, REPLACE(REPLACE(REPLACE(
REPLACE(ml.description,'&'||'invoice_number'||'&',ln_trx_number), ---bug 5550153
'&'||'INVOICE_NUMBER'||'&',
ln_trx_number), --- bug 5550153
'&'||'receipt_number'||'&',
p_cr_trx_number),
'&'||'RECEIPT_NUMBER'||'&',
p_cr_trx_number)
, ml.uom_code
INTO
l_ctl_row.memo_line_id
, l_ctl_row.line_type
, l_ctl_row.description
, l_ctl_row.uom_code
FROM ar_memo_lines ml
WHERE ml.memo_line_id = 1;
arp_standard.debug( '-- Exception: SELECT FROM AR_MEMO_LINES');
SELECT ml.memo_line_id
, ml.line_type
, REPLACE(REPLACE(ml.description,'invoice','Receipt number'),'&'||'INVOICE_NUMBER'||'&',p_cr_trx_number)
, ml.uom_code
INTO
l_ctl_row.memo_line_id
, l_ctl_row.line_type
, l_ctl_row.description
, l_ctl_row.uom_code
FROM ar_memo_lines ml
WHERE ml.memo_line_id = 1;
arp_standard.debug( '-- Exception: SELECT FROM AR_MEMO_LINES');
arp_ctl_pkg.insert_p(
-- IN
p_line_rec => l_ctl_row
-- OUT
, p_customer_trx_line_id => l_ctl_row.customer_trx_line_id
);
SELECT rt.code_combination_id
INTO l_cb_activity_ccid
FROM ar_receivables_trx rt
WHERE rt.receivables_trx_id = arp_global.G_CB_RT_ID
AND rt.code_combination_id IS NOT NULL;
arp_standard.debug( '-- Exception: select from ar_receivables_trx');
arp_ctlgd_pkg.insert_p(
-- IN
p_dist_rec => l_ctlgd_row
, p_exchange_rate => l_ct_row.exchange_rate
, p_currency_code => arp_trx_global.system_info.base_currency
, p_precision => arp_trx_global.system_info.base_precision
, p_mau => arp_trx_global.system_info.base_min_acc_unit
-- OUT
, p_cust_trx_line_gl_dist_id
=> l_ctlgd_row.cust_trx_line_gl_dist_id
);
arp_ctlgd_pkg.insert_p(
-- IN
p_dist_rec => l_ctlgd_row
, p_exchange_rate => l_ct_row.exchange_rate
, p_currency_code => arp_trx_global.system_info.base_currency
, p_precision => arp_trx_global.system_info.base_precision
, p_mau => arp_trx_global.system_info.base_min_acc_unit
-- OUT
, p_cust_trx_line_gl_dist_id
=> l_ctlgd_row.cust_trx_line_gl_dist_id
);
arp_ps_pkg.insert_p(
p_ps_rec => l_ps_row -- IN
, p_ps_id => l_ps_row.payment_schedule_id -- OUT
);
arp_ps_util.update_invoice_related_columns(
-- IN
p_app_type => 'CB'
, p_ps_id => p_app_customer_trx_id
, p_amount_applied => p_amount
, p_discount_taken_earned => 0
, p_discount_taken_unearned => 0
, p_apply_date => p_apply_date
, p_gl_date => l_chargeback_gl_date
-- OUT
, p_acctd_amount_applied => ln_acctd_amount_applied
, p_acctd_earned_discount_taken => ln_acctd_earned_discount_taken
, p_acctd_unearned_disc_taken => ln_acctd_unearned_disc_taken
, p_line_applied => ln_line_applied
, p_tax_applied => ln_tax_applied
, p_freight_applied => ln_freight_applied
, p_charges_applied => ln_charges_applied
, p_ps_rec => l_ps_row);
SELECT rt.name
INTO l_rec_name
FROM ar_receivables_trx rt
WHERE rt.receivables_trx_id = arp_global.G_CB_RT_ID;
arp_process_adjustment.insert_adjustment(
-- IN
p_form_name => p_form_name
, p_form_version => 1
, p_adj_rec => l_adj_row
-- OUT
, p_adjustment_number => l_adj_row.adjustment_number
, p_adjustment_id => l_adj_row.adjustment_id
);
update_chargeback()
DESCRIPTION
This procedure will update chargeback comments and reason code.
These are the only allowed updateable columns.
SCOPE
Public
EXTERNAL PROCEDURES/FUNCTIONS ACCESSED
ARGUMENTS
IN
p_customer_trx_id
p_comments
p_reason_code
OUT
NONE
RETURNS
NOTES
MODIFICATION HISTORY
4/15/1996 Harri Kaukovuo Created
+===========================================================================
*/
PROCEDURE update_chargeback (
p_customer_trx_id IN NUMBER
, p_comments IN VARCHAR2
, p_DEFAULT_USSGL_TRX_CODE IN VARCHAR2
, p_reason_code IN VARCHAR2
, p_ATTRIBUTE_CATEGORY IN VARCHAR2
, p_attribute1 IN VARCHAR2
, p_attribute2 IN VARCHAR2
, p_attribute3 IN VARCHAR2
, p_attribute4 IN VARCHAR2
, p_attribute5 IN VARCHAR2
, p_attribute6 IN VARCHAR2
, p_attribute7 IN VARCHAR2
, p_attribute8 IN VARCHAR2
, p_attribute9 IN VARCHAR2
, p_attribute10 IN VARCHAR2
, p_attribute11 IN VARCHAR2
, p_attribute12 IN VARCHAR2
, p_attribute13 IN VARCHAR2
, p_attribute14 IN VARCHAR2
, p_attribute15 IN VARCHAR2) IS
l_trx_rec RA_CUSTOMER_TRX%ROWTYPE;
arp_standard.debug ('arp_process_chargeback.update_chargeback()+');
arp_ct_pkg.update_p (
l_trx_rec
, p_customer_trx_id);
arp_standard.debug ('arp_process_chargeback.update_chargeback()-');
arp_standard.debug ('EXCEPTION: arp_process_chargeback.update_chargeback()');
END update_chargeback;
| delete_chargeback
|
| DESCRIPTION
| This procedure deletes chargeback from database.
|
| SCOPE - PUBLIC
|
| EXTERNAL PROCEDURES/FUNCTIONS ACCESSED
|
| ARGUMENTS : IN:
| OUT:
|
| RETURNS : NONE
|
| NOTES
| This procedure is originally converted from C -procedure arxdcb
| which is in file arxdcb.lpc
|
| Algorithm:
| 1. Process parameters
| 2. Call reverse_chargeback to insert adj and update payment schedule
| of CB
| 3. Call arp_process_adjustment.reverse_adjustment to insert
| an opposing adjustment for the CB-ADJ
| 4. Call xxxx to get max GL date and apply date
| 5. Call xxx to update payment schedule of the debit item.
|
| MODIFICATION HISTORY
| 4/15/1996 Harri Kaukovuo Created
| 03/23/2001 S.Nambiar Modified delete_chargeback procedure
| to incorporate the new functionality
| to create Chargeback aganist receipts.
| In case of receipt CB, p_type will be
| "RECEIPT" in all other cases it will be
| defaulted to "TRANSACTION"
+===========================================================================*/
PROCEDURE delete_chargeback (
p_customer_trx_id IN NUMBER
, p_apply_date IN DATE
, p_gl_date IN DATE
, p_module_name IN VARCHAR2
, p_module_version IN VARCHAR2
, p_type IN VARCHAR2) IS
ln_adj_id NUMBER;
SELECT
adj.adjustment_id
, adj.payment_schedule_id
, adj.amount
, adj.acctd_amount
, NVL(adj.line_adjusted,0)
, NVL(adj.tax_adjusted,0)
, NVL(adj.freight_adjusted,0)
, NVL(adj.receivables_charges_adjusted,0)
, adj.status
INTO
ln_adj_id
, l_ps_rec.payment_schedule_id
, ln_adj_amt
, ln_acctd_adj_amt
, ln_line_adj
, ln_tax_adj
, ln_frt_adj
, ln_chrg_adj
, lc_status
FROM ar_adjustments adj
WHERE adj.chargeback_customer_trx_id = p_customer_trx_id
AND adj.receivables_trx_id = -11;
arp_ps_util.update_adj_related_columns (
-- IN
p_ps_id => l_ps_rec.payment_schedule_id
, p_type => 'CBREV'
, p_amount_adjusted => -ln_adj_amt
, p_amount_adjusted_pending => 0
, p_apply_date => p_apply_date
, p_gl_date => p_gl_date
, p_ps_rec => NULL_VAR /*Bug 460966 - Oracle 8 */
-- OUT
, p_line_adjusted => l_line_adjusted
, p_tax_adjusted => l_tax_adjusted
, p_freight_adjusted => l_frt_adjusted
, p_charges_adjusted => l_charges_adjusted
, p_acctd_amount_adjusted => l_out_acctd_amount_adjusted
);
arp_standard.debug ('EXCEPTION: arp_process_chargeback.delete_chargeback()');
arp_standard.debug ('delete_chargeback: ' || 'ERROR in the program! Dump of parameter values:');
arp_standard.debug ('delete_chargeback: ' || ' p_customer_trx_id = '|| TO_CHAR(p_customer_trx_id));
arp_standard.debug ('delete_chargeback: ' || ' p_gl_date = '|| TO_CHAR(p_gl_date));
arp_standard.debug ('delete_chargeback: ' || ' p_apply_date = '|| TO_CHAR(p_apply_date));
arp_standard.debug ('delete_chargeback: ' || ' p_module_name = '|| p_module_name);
arp_standard.debug ('delete_chargeback: ' || ' p_module_version = '|| p_module_version);
END delete_chargeback;