[Home] [Help]
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 );
10:
11: PROCEDURE validate_args_cbrev_ct (
8: p_reversal_gl_date IN DATE,
9: p_reversal_date IN DATE );
10:
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,
79: | In case of receipt CB, p_type will be "RECEIPT" |
80: | in all other cases it will be defaulted to "TRANSACTION"
81: +===========================================================================*/
82: PROCEDURE reverse_chargeback(
83: p_cb_ct_id IN ra_customer_trx.customer_trx_id%TYPE,
84: p_reversal_gl_date IN DATE,
85: p_reversal_date IN DATE,
86: p_module_name IN VARCHAR2,
87: p_module_version IN VARCHAR2,
140:
141: SELECT dist.code_combination_id
142: INTO l_adj_rec.code_combination_id
143: FROM ra_cust_trx_line_gl_dist dist,
144: ra_customer_trx ct
145: WHERE ct.customer_trx_id = p_cb_ct_id
146: AND ct.customer_trx_id = dist.customer_trx_id
147: AND dist.account_class = 'REV';
148:
293: | MODIFICATION HISTORY - Created by Ganesh Vaidee - 04/25/95 |
294: | |
295: +===========================================================================*/
296: PROCEDURE validate_args_revcb(
297: p_cb_ct_id IN ra_customer_trx.customer_trx_id%TYPE,
298: p_reversal_gl_date IN DATE,
299: p_reversal_date IN DATE ) IS
300: BEGIN
301: IF PG_DEBUG in ('Y', 'C') THEN
446: END IF;
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,
510: | This is an ovreloaded procedure |
511: | MODIFICATION HISTORY - Created by Ganesh Vaidee - 04/25/95 |
512: | |
513: +===========================================================================*/
514: FUNCTION validate_cb_reversal ( p_ct_id IN ra_customer_trx.customer_trx_id%TYPE,
515: p_module_name IN VARCHAR2,
516: p_module_version IN VARCHAR2 ) RETURN BOOLEAN IS
517: l_sum NUMBER DEFAULT 0;
518: --
605: END IF;
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';
660: | MODIFICATION HISTORY - Created by Ganesh Vaidee - 04/25/95 |
661: | |
662: +===========================================================================*/
663: PROCEDURE validate_args_cbrev_ct (
664: p_ct_id IN ra_customer_trx.customer_trx_id%TYPE ) IS
665: BEGIN
666: arp_standard.debug( '>>>>>>>> arp_process_chargeback.validate_args_cbrev_ct' );
667: IF ( p_ct_id is NULL ) THEN
668: FND_MESSAGE.set_name ('AR', 'AR_ARGUEMENTS_FAIL' );
1035: ARP_NON_DB_PKG.check_creation_sign procedures.
1036:
1037: The algorithm for creating chargebacks:
1038: 1. Instantiate variables with default values
1039: 2. Insert header RA_CUSTOMER_TRX
1040: 3. Insert one line into RA_CUSTOMER_TRX_LINES
1041: 4. Insert revenue account GL distribution
1042: into RA_CUST_TRX_LINE_GL_DIST
1043: 5. Insert receivables account GL distribution
1036:
1037: The algorithm for creating chargebacks:
1038: 1. Instantiate variables with default values
1039: 2. Insert header RA_CUSTOMER_TRX
1040: 3. Insert one line into RA_CUSTOMER_TRX_LINES
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
1060: - arp_trx_global.system_info.base_precision
1061: - arp_trx_global.system_info.base_min_acc_unit
1062: ARCUTILB.pls
1063: - validate_gl_date
1064: ARTITRXB.pls Table handler for ra_customer_trx
1065: - insert_p
1066: ARTICTLB.pls Table handler for ra_customer_trx_lines
1067: - insert_p
1068: ARTILGDB.pls Table handler ra_cust_trx_line_gl_dist
1062: ARCUTILB.pls
1063: - validate_gl_date
1064: ARTITRXB.pls Table handler for ra_customer_trx
1065: - insert_p
1066: ARTICTLB.pls Table handler for ra_customer_trx_lines
1067: - insert_p
1068: ARTILGDB.pls Table handler ra_cust_trx_line_gl_dist
1069: - insert_p
1070: ARTEADJS.pls Adjustment procedures
1093:
1094: MODIFICATION HISTORY
1095: 10/09/1995 H.Kaukovuo Created
1096: 7/29/1996 Harri Kaukovuo Bug 386242, term_id was not populated when
1097: ra_customer_trx row was created.
1098: 7/30/1996 Harri Kaukovuo Bug fix 386662 document numbering was missing
1099: from the chargeback adjustment.
1100: 11/17/1997 Genneva Wang Bug fix 412726 - (1) Creation of Chargeback
1101: should give message if GL Account assignment
1202: , p_legal_entity_id IN NUMBER /* R12 LE uptake */
1203: )
1204: IS
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;
1203: )
1204: IS
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:
1330: -- init_app_struct (l_app_row);
1331:
1332: -- First initialize chargeback header
1333: -- NOTE that old Forms 2.3 program did the initial insert into
1334: -- RA_CUSTOMER_TRX already in form level. In client/server model
1335: -- inserting into RA_CUSTOMER_TRX is done here.
1336:
1337: -- Copy values from the applied transaction
1338:
1331:
1332: -- First initialize chargeback header
1333: -- NOTE that old Forms 2.3 program did the initial insert into
1334: -- RA_CUSTOMER_TRX already in form level. In client/server model
1335: -- inserting into RA_CUSTOMER_TRX is done here.
1336:
1337: -- Copy values from the applied transaction
1338:
1339: -- snambiar - p_app_customer_trx_id -4 is used for receipt chargeback
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
1394: AND ct.customer_trx_id = ps.customer_trx_id
1395: AND ct.customer_trx_id = ctlgd.customer_trx_id(+)
1559: RAISE;
1560: END; -- Select printing option
1561:
1562: -- ---------------------------------------------------
1563: -- Insert header into RA_CUSTOMER_TRX table
1564: -- ---------------------------------------------------
1565:
1566: -- Call table handler, get trx_number and customer_trx_id back
1567: -- The main procedure will return trx_number and customer_trx_id
1585: arp_standard.debug ( '');
1586: END IF;
1587:
1588: -- ---------------------------------------------------
1589: -- Get line type info for RA_CUSTOMER_TRX_LINES columns
1590: -- - memo_line_id = 1 means chargeback memo line
1591: -- ---------------------------------------------------
1592: IF p_app_customer_trx_id <> -4 THEN
1593: BEGIN
1648: END;
1649: END IF;
1650:
1651: -- ---------------------------------------------------
1652: -- Set values for RA_CUSTOMER_TRX_LINES columns
1653: -- ---------------------------------------------------
1654:
1655: l_ctl_row.customer_trx_id := l_ct_row.customer_trx_id;
1656: l_ctl_row.line_number := 1;
1667: l_ct_row.default_ussgl_trx_code_context;
1668: l_ctl_row.set_of_books_id := p_set_of_books_id;
1669:
1670: -- ---------------------------------------------------
1671: -- Insert line into RA_CUSTOMER_TRX_LINES table
1672: -- ---------------------------------------------------
1673:
1674: arp_ctl_pkg.insert_p(
1675: -- IN
2218: , p_attribute13 IN VARCHAR2
2219: , p_attribute14 IN VARCHAR2
2220: , p_attribute15 IN VARCHAR2) IS
2221:
2222: l_trx_rec RA_CUSTOMER_TRX%ROWTYPE;
2223:
2224: BEGIN
2225:
2226: IF PG_DEBUG in ('Y', 'C') THEN