[Home] [Help]
1219: | PROCEDURE |
1220: | reversal_update_ps_recs |
1221: | |
1222: | DESCRIPTION |
1223: | This procedure is called from the standard (receipt) and credit memo |
1224: | reversal procedures. It updates the payment schedule for both the |
1225: | source (cash receipt or on account credit) and the applied transaction.|
1226: | |
1227: | SCOPE - PRIVATE |
1605: p_ra_rec.freight_uediscounted := -p_ra_rec.freight_uediscounted ;
1606: p_ra_rec.charges_ediscounted := -p_ra_rec.charges_ediscounted ;
1607: p_ra_rec.charges_uediscounted := -p_ra_rec.charges_uediscounted ;
1608: --
1609: -- Application Rule needs to be 96 for standard Applications
1610: -- and 75 for Credit Memo Applications.
1611: -- Some reports rely on the application rule being set to
1612: -- certain values .. so be careful changing them!
1613: if p_app_rec_trx_type = 'AR_CM' then
1676: source_id = l_ra_id,
1677: CURRENT_ACTIVITY_FLAG = 'N',
1678: CREATED_BY = NVL(FND_GLOBAL.user_id,-1),
1679: CREATION_DATE = SYSDATE ,
1680: LAST_UPDATE_LOGIN = NVL( arp_standard.profile.last_update_login,
1681: p_ra_rec.last_update_login ),
1682: LAST_UPDATE_DATE = SYSDATE ,
1683: LAST_UPDATED_BY = NVL(FND_GLOBAL.user_id,-1)
1684: where cash_receipt_id = p_ra_rec.cash_receipt_id
1804:
1805: END IF;
1806:
1807: --------------------------------------------------------------
1808: -- This code caters for the standard case, creating opposing
1809: -- UNAPP and APP rows.
1810: --
1811: -- For example:
1812: -- Receipt
1930: source_id = l_ra_id,
1931: CURRENT_ACTIVITY_FLAG = 'N',
1932: CREATED_BY = NVL(FND_GLOBAL.user_id,-1),
1933: CREATION_DATE = SYSDATE ,
1934: LAST_UPDATE_LOGIN = NVL( arp_standard.profile.last_update_login,
1935: p_ra_rec.last_update_login ),
1936: LAST_UPDATE_DATE = SYSDATE ,
1937: LAST_UPDATED_BY = NVL(FND_GLOBAL.user_id,-1)
1938: where cash_receipt_id = p_ra_rec.cash_receipt_id
6622: | This procedure fetches the CCID for the application. This changed for |
6623: | the BR project since the accounting for Bills Receivable document is |
6624: | stored in the ar_distributions table instead of the |
6625: | ra_cust_trx_lines_gl_dist table (where the accounting is stored for |
6626: | other transactions). This was done to confirm with SLA standards |
6627: | |
6628: | SCOPE - PRIVATE |
6629: | |
6630: | EXETERNAL PROCEDURES/FUNCTIONS ACCESSED - NONE |
8119: /* bug 3161148, need to pass only 240 characters as that is the
8120: limit on the column in the table. */
8121: l_text := substrb(fnd_message.get,1,240);
8122:
8123: l_user_id := arp_standard.profile.user_id;
8124: l_last_update_login := arp_standard.profile.last_update_login;
8125: l_sysdate := SYSDATE;
8126: arp_notes_pkg.insert_cover(
8127: p_note_type => 'MAINTAIN',
8120: limit on the column in the table. */
8121: l_text := substrb(fnd_message.get,1,240);
8122:
8123: l_user_id := arp_standard.profile.user_id;
8124: l_last_update_login := arp_standard.profile.last_update_login;
8125: l_sysdate := SYSDATE;
8126: arp_notes_pkg.insert_cover(
8127: p_note_type => 'MAINTAIN',
8128: p_text => l_text,
8183: BEGIN
8184: IF PG_DEBUG in ('Y', 'C') THEN
8185: arp_debug.debug( 'arp_process_application.put_trx_in_dispute()+' );
8186: END IF;
8187: l_user_id := arp_standard.profile.user_id;
8188: l_last_update_login := arp_standard.profile.last_update_login;
8189: l_sysdate := SYSDATE;
8190:
8191: /*bug 2641517 : creating history record for business event */
8184: IF PG_DEBUG in ('Y', 'C') THEN
8185: arp_debug.debug( 'arp_process_application.put_trx_in_dispute()+' );
8186: END IF;
8187: l_user_id := arp_standard.profile.user_id;
8188: l_last_update_login := arp_standard.profile.last_update_login;
8189: l_sysdate := SYSDATE;
8190:
8191: /*bug 2641517 : creating history record for business event */
8192: OPEN get_existing_ps(p_invoice_ps_id);
8283: dispute_date
8284: FROM ar_payment_schedules
8285: WHERE payment_schedule_id = p_ps_id;
8286: BEGIN
8287: l_user_id := arp_standard.profile.user_id;
8288: l_last_update_login := arp_standard.profile.last_update_login;
8289: l_sysdate := SYSDATE;
8290: IF PG_DEBUG in ('Y', 'C') THEN
8291: arp_debug.debug( 'arp_process_application.update_dispute_on_trx()+' );
8284: FROM ar_payment_schedules
8285: WHERE payment_schedule_id = p_ps_id;
8286: BEGIN
8287: l_user_id := arp_standard.profile.user_id;
8288: l_last_update_login := arp_standard.profile.last_update_login;
8289: l_sysdate := SYSDATE;
8290: IF PG_DEBUG in ('Y', 'C') THEN
8291: arp_debug.debug( 'arp_process_application.update_dispute_on_trx()+' );
8292: END IF;
9259:
9260: arp_adj_pkg.fetch_p( l_adjustment_id, l_adj_rec );
9261: l_adj_rec.apply_date :=TRUNC(sysdate);
9262: l_rev_gl_date := l_adj_rec.gl_date;
9263: IF (arp_standard.validate_and_default_gl_date(
9264: l_rev_gl_date,
9265: NULL,
9266: l_rev_gl_date,
9267: NULL,
9280: l_adj_rec.gl_date := l_default_gl_date;
9281: END IF;
9282:
9283: IF PG_DEBUG in ('Y', 'C') THEN
9284: arp_standard.debug(' Adjustment Reversal GL Date '|| l_default_gl_date);
9285: END IF;
9286: l_adj_rec.amount := -l_adj_rec.amount;
9287: l_adj_rec.acctd_amount := -l_adj_rec.acctd_amount;
9288: l_adj_rec.line_adjusted := -l_adj_rec.line_adjusted;