[Home] [Help]
1: PACKAGE BODY ARP_PROCESS_CHARGEBACK AS
2: /* $Header: ARCECBB.pls 120.16 2007/01/12 10:14:29 ugummall ship $*/
3: PG_DEBUG varchar2(1) := NVL(FND_PROFILE.value('AFLOG_ENABLED'), 'N');
4:
5: NULL_VAR ar_payment_schedules%ROWTYPE; /* Added for Bug 460966 - Oracle 8 */
6: PROCEDURE validate_args_revcb(
7: p_cb_ct_id IN ra_customer_trx.customer_trx_id%TYPE,
8: p_reversal_gl_date IN DATE,
9: p_reversal_date IN DATE );
11: PROCEDURE validate_args_cbrev_ct (
12: p_ct_id IN ra_customer_trx.customer_trx_id%TYPE );
13:
14: PROCEDURE validate_args_cbrev_group(
15: p_ps_id IN ar_payment_schedules.payment_schedule_id%TYPE,
16: p_ass_cr_id IN ar_adjustments.associated_cash_receipt_id%TYPE,
17: p_ct_count IN NUMBER );
18: G_MSG_HIGH CONSTANT NUMBER := FND_MSG_PUB.G_MSG_LVL_DEBUG_HIGH ;
19:
133: l_adj_rec.line_adjusted,
134: l_adj_rec.freight_adjusted,
135: l_adj_rec.tax_adjusted,
136: l_adj_rec.receivables_charges_adjusted
137: FROM ar_payment_schedules ps
138: WHERE ps.customer_trx_id = p_cb_ct_id
139: AND ps.class = 'CB';
140:
141: SELECT dist.code_combination_id
349: | MODIFICATION HISTORY - Created by Ganesh Vaidee - 04/25/95 |
350: | |
351: +===========================================================================*/
352: FUNCTION validate_cb_reversal (
353: p_ps_id IN ar_payment_schedules.payment_schedule_id%TYPE,
354: p_ass_cr_id IN ar_adjustments.associated_cash_receipt_id%TYPE,
355: p_ct_count IN NUMBER, p_module_name IN VARCHAR2,
356: p_module_version IN VARCHAR2 ) RETURN BOOLEAN IS
357: l_sum NUMBER DEFAULT 0;
447: --
448: SELECT count( distinct ct.customer_trx_id )
449: INTO l_count
450: FROM ra_customer_trx ct,
451: ar_payment_schedules ps
452: WHERE ct.customer_trx_id in (
453: SELECT a.chargeback_customer_trx_id
454: FROM ar_adjustments b,
455: ar_adjustments a
606: BEGIN
607: SELECT count(*)
608: INTO l_count
609: FROM ra_customer_trx ct,
610: ar_payment_schedules ps
611: WHERE ct.customer_trx_id = p_ct_id
612: AND ps.customer_trx_id = ct.customer_trx_id
613: AND ps.class = 'CB';
614: EXCEPTION
702: | MODIFICATION HISTORY - Created by Ganesh Vaidee - 04/25/95 |
703: | |
704: +===========================================================================*/
705: PROCEDURE validate_args_cbrev_group(
706: p_ps_id IN ar_payment_schedules.payment_schedule_id%TYPE,
707: p_ass_cr_id IN ar_adjustments.associated_cash_receipt_id%TYPE,
708: p_ct_count IN NUMBER ) IS
709: BEGIN
710: IF PG_DEBUG in ('Y', 'C') THEN
879: 4/2/1996 Harri Kaukovuo Created
880: ===========================================================================
881: */
882: PROCEDURE init_ps_struct (
883: p_ps_rec IN OUT NOCOPY AR_PAYMENT_SCHEDULES%ROWTYPE) IS
884: BEGIN
885: IF PG_DEBUG in ('Y', 'C') THEN
886: arp_standard.debug ('arp_process_chargeback.init_ps_struct()+');
887: END IF;
1041: 4. Insert revenue account GL distribution
1042: into RA_CUST_TRX_LINE_GL_DIST
1043: 5. Insert receivables account GL distribution
1044: into RA_CUST_TRX_LINE_GL_DIST
1045: 6. Insert into AR_PAYMENT_SCHEDULES
1046: - Call event handler
1047:
1048: 7. Initialize, then populate app_struct and ps_struct
1049:
1046: - Call event handler
1047:
1048: 7. Initialize, then populate app_struct and ps_struct
1049:
1050: 8. Update AR_PAYMENT_SCHEDULES
1051: 9. Initialize variables for inserting a row into AR_ADJUSTMENTS
1052: 10. Insert into AR_ADJUSTMENTS by calling armiadj
1053:
1054: SCOPE
1154: , p_comments IN VARCHAR2
1155: , p_def_ussgl_trx_code_context IN VARCHAR2
1156: , p_def_ussgl_transaction_code IN VARCHAR2
1157:
1158: -- For AR_PAYMENT_SCHEDULES
1159: , p_due_date IN DATE
1160: , p_customer_id IN NUMBER
1161: , p_cr_trx_number IN VARCHAR2
1162: , p_cash_receipt_id IN NUMBER
1205:
1206: l_ct_row ra_customer_trx%ROWTYPE;
1207: l_ctl_row ra_customer_trx_lines%ROWTYPE;
1208: l_ctlgd_row ra_cust_trx_line_gl_dist%ROWTYPE;
1209: l_ps_row ar_payment_schedules%ROWTYPE;
1210: l_adj_row ar_adjustments%ROWTYPE;
1211:
1212: ln_app_payment_schedule_id NUMBER;
1213:
1269: customer_site_use_id,
1270: trx_date,
1271: amount_credited,
1272: status
1273: FROM ar_payment_schedules
1274: WHERE customer_trx_id = p_cust_trx_id;
1275:
1276: l_prev_cust_old_state AR_BUS_EVENT_COVER.prev_cust_old_state_tab;
1277:
1385: , ln_acctd_amount_due_remaining
1386: , l_ct_row.legal_entity_id /* R12 LE uptake */
1387: , ln_trx_number /*bug 5550153*/
1388: FROM
1389: ar_payment_schedules ps
1390: , ra_cust_trx_line_gl_dist ctlgd
1391: , ra_customer_trx ct
1392: WHERE
1393: ct.customer_trx_id = p_app_customer_trx_id
1855: => l_ctlgd_row.cust_trx_line_gl_dist_id
1856: );
1857:
1858: -- ---------------------------------------------------
1859: -- Set values form AR_PAYMENT_SCHEDULES row.
1860: --
1861: -- Insert the payment schedule with the term_id of
1862: -- of '5' which refers to the 'IMMEDIATE' payment
1863: -- term of 100% with 0 due dates
1892: l_ps_row.trx_number := l_ct_row.trx_number;
1893: l_ps_row.trx_date := TRUNC(l_ct_row.trx_date); /* Bug 5758906 */
1894:
1895: -- ---------------------------------------------------
1896: -- Insert row into AR_PAYMENT_SCHEDULES table
1897: -- ---------------------------------------------------
1898: arp_ps_pkg.insert_p(
1899: p_ps_rec => l_ps_row -- IN
1900: , p_ps_id => l_ps_row.payment_schedule_id -- OUT
1929: arp_xla_events.create_events(p_xla_ev_rec => l_ev_rec );
1930:
1931: /*
1932: -- ---------------------------------------------------
1933: -- Updates ar_payment_schedules
1934: -- ---------------------------------------------------
1935: arp_ps_util.update_invoice_related_columns(
1936: -- IN
1937: p_app_type => 'CB'
2332: ln_tax_adj NUMBER;
2333: ln_frt_adj NUMBER;
2334: ln_chrg_adj NUMBER;
2335: lc_status VARCHAR2(40);
2336: l_ps_rec ar_payment_schedules%ROWTYPE;
2337:
2338: l_out_line_adjusted NUMBER;
2339: l_out_tax_adjusted NUMBER;
2340: l_out_freight_adjusted NUMBER;