55:
56: BEGIN
57:
58: IF PG_DEBUG in ('Y', 'C') THEN
59: arp_standard.debug('ARP_BALANCE_CHK.Check_Transaction_Balance (+)' );
60: END IF;
61:
62: IF p_customer_trx_id IS NOT NULL THEN
63:
72: FROM ra_batch_sources ra, ra_customer_trx rt
73: WHERE ra.batch_source_id = rt.batch_source_id
74: AND rt.customer_trx_id = p_customer_trx_id;
75:
76: arp_standard.debug('old_complete_flag: '||ARP_PROCESS_HEADER_UPDTE_COVER.g_old_complete_flag);
77: arp_standard.debug('complete_flag_db: '||l_complete_flag_db);
78:
79: IF l_gen_line_level_bal_flag = 'Y' AND
80: l_complete_flag_db = 'Y' AND
73: WHERE ra.batch_source_id = rt.batch_source_id
74: AND rt.customer_trx_id = p_customer_trx_id;
75:
76: arp_standard.debug('old_complete_flag: '||ARP_PROCESS_HEADER_UPDTE_COVER.g_old_complete_flag);
77: arp_standard.debug('complete_flag_db: '||l_complete_flag_db);
78:
79: IF l_gen_line_level_bal_flag = 'Y' AND
80: l_complete_flag_db = 'Y' AND
81: nvl(ARP_PROCESS_HEADER_UPDTE_COVER.g_old_complete_flag,'N') = 'N' THEN
106: print the debug messages */
107: l_no_balance := 'Y' ;
108: END IF;
109: IF PG_DEBUG in ('Y', 'C') THEN
110: arp_standard.debug('GL_DATE : '||to_char(c2.gl_date,'DD-MON-YYYY'));
111: arp_standard.debug('Net Amount :' || l_amount);
112: arp_standard.debug('Net Acctd Amount :' || l_acctd_amount);
113: END IF;
114: END LOOP;
107: l_no_balance := 'Y' ;
108: END IF;
109: IF PG_DEBUG in ('Y', 'C') THEN
110: arp_standard.debug('GL_DATE : '||to_char(c2.gl_date,'DD-MON-YYYY'));
111: arp_standard.debug('Net Amount :' || l_amount);
112: arp_standard.debug('Net Acctd Amount :' || l_acctd_amount);
113: END IF;
114: END LOOP;
115:
108: END IF;
109: IF PG_DEBUG in ('Y', 'C') THEN
110: arp_standard.debug('GL_DATE : '||to_char(c2.gl_date,'DD-MON-YYYY'));
111: arp_standard.debug('Net Amount :' || l_amount);
112: arp_standard.debug('Net Acctd Amount :' || l_acctd_amount);
113: END IF;
114: END LOOP;
115:
116: --------------------------------------------------------
128: END IF;
129:
130: ELSE
131: IF PG_DEBUG in ('Y', 'C') THEN
132: arp_standard.debug('Profile AR: Enable Journal Balance Check is disabled ');
133: END IF;
134: END IF;
135: END IF; -- p_customer_trx_id is not null , bug6762463
136:
134: END IF;
135: END IF; -- p_customer_trx_id is not null , bug6762463
136:
137: IF PG_DEBUG in ('Y', 'C') THEN
138: arp_standard.debug('ARP_BALANCE_CHK.Check_Transaction_Balance (-)' );
139: END IF;
140:
141: EXCEPTION
142: WHEN out_of_balance THEN
140:
141: EXCEPTION
142: WHEN out_of_balance THEN
143: IF PG_DEBUG in ('Y', 'C') THEN
144: arp_standard.debug('ARP_BALANCE_CHK.Check_Transaction_Balance - OUT_OF_BALANCE');
145: END IF;
146: fnd_message.set_name('AR','AR_AMOUNTS_NO_MATCH');
147: app_exception.raise_exception;
148: WHEN NO_DATA_FOUND THEN
147: app_exception.raise_exception;
148: WHEN NO_DATA_FOUND THEN
149: /* Case for invoice with rules */
150: IF PG_DEBUG in ('Y', 'C') THEN
151: arp_standard.debug( 'ARP_BALANCE_CHK.Check_Transaction_Balance - NO_DATA_FOUND' );
152: END IF;
153: WHEN excep_set_org_rem_amt_r12 THEN --LLCA
154: IF PG_DEBUG in ('Y', 'C') THEN
155: arp_standard.debug('EXCEPTION_set_original_rem_amt_r12 error count:'||l_msg_count);
151: arp_standard.debug( 'ARP_BALANCE_CHK.Check_Transaction_Balance - NO_DATA_FOUND' );
152: END IF;
153: WHEN excep_set_org_rem_amt_r12 THEN --LLCA
154: IF PG_DEBUG in ('Y', 'C') THEN
155: arp_standard.debug('EXCEPTION_set_original_rem_amt_r12 error count:'||l_msg_count);
156: arp_standard.debug('last error:'||l_msg_data);
157: END IF;
158: RAISE;
159:
152: END IF;
153: WHEN excep_set_org_rem_amt_r12 THEN --LLCA
154: IF PG_DEBUG in ('Y', 'C') THEN
155: arp_standard.debug('EXCEPTION_set_original_rem_amt_r12 error count:'||l_msg_count);
156: arp_standard.debug('last error:'||l_msg_data);
157: END IF;
158: RAISE;
159:
160: WHEN OTHERS THEN
158: RAISE;
159:
160: WHEN OTHERS THEN
161: IF PG_DEBUG in ('Y', 'C') THEN
162: arp_standard.debug( 'ARP_BALANCE_CHK.Check_Transaction_Balance - OTHERS' );
163: END IF;
164: RAISE;
165:
166: END CHECK_TRANSACTION_BALANCE;
242:
243: BEGIN
244:
245: IF PG_DEBUG in ('Y', 'C') THEN
246: arp_standard.debug('ARP_BALANCE_CHK.CHECK_RECP_BALANCE (+)');
247: END IF;
248:
249: IF PG_BAL_CHECK_ENABLED = 'Y' THEN
250:
262: l_check_amount_cr := c2.sum_acctd_amount_cr;
263: END IF;
264:
265: IF PG_DEBUG in ('Y', 'C') THEN
266: arp_standard.debug('GL_DATE : '||to_char(c2.gl_date,'DD-MON-YYYY'));
267: arp_standard.debug('Sum_amount_dr :' || c2.sum_amount_dr);
268: arp_standard.debug('Sum_amount_cr :' || c2.sum_amount_cr);
269: arp_standard.debug('Sum_acctd_amount_dr : '||c2.sum_acctd_amount_dr);
270: arp_standard.debug('Sum_acctd_amount_cr : '||c2.sum_acctd_amount_cr);
263: END IF;
264:
265: IF PG_DEBUG in ('Y', 'C') THEN
266: arp_standard.debug('GL_DATE : '||to_char(c2.gl_date,'DD-MON-YYYY'));
267: arp_standard.debug('Sum_amount_dr :' || c2.sum_amount_dr);
268: arp_standard.debug('Sum_amount_cr :' || c2.sum_amount_cr);
269: arp_standard.debug('Sum_acctd_amount_dr : '||c2.sum_acctd_amount_dr);
270: arp_standard.debug('Sum_acctd_amount_cr : '||c2.sum_acctd_amount_cr);
271: arp_standard.debug('CC_flag : '||c2.cc_flag);
264:
265: IF PG_DEBUG in ('Y', 'C') THEN
266: arp_standard.debug('GL_DATE : '||to_char(c2.gl_date,'DD-MON-YYYY'));
267: arp_standard.debug('Sum_amount_dr :' || c2.sum_amount_dr);
268: arp_standard.debug('Sum_amount_cr :' || c2.sum_amount_cr);
269: arp_standard.debug('Sum_acctd_amount_dr : '||c2.sum_acctd_amount_dr);
270: arp_standard.debug('Sum_acctd_amount_cr : '||c2.sum_acctd_amount_cr);
271: arp_standard.debug('CC_flag : '||c2.cc_flag);
272: END IF;
265: IF PG_DEBUG in ('Y', 'C') THEN
266: arp_standard.debug('GL_DATE : '||to_char(c2.gl_date,'DD-MON-YYYY'));
267: arp_standard.debug('Sum_amount_dr :' || c2.sum_amount_dr);
268: arp_standard.debug('Sum_amount_cr :' || c2.sum_amount_cr);
269: arp_standard.debug('Sum_acctd_amount_dr : '||c2.sum_acctd_amount_dr);
270: arp_standard.debug('Sum_acctd_amount_cr : '||c2.sum_acctd_amount_cr);
271: arp_standard.debug('CC_flag : '||c2.cc_flag);
272: END IF;
273: END LOOP;
266: arp_standard.debug('GL_DATE : '||to_char(c2.gl_date,'DD-MON-YYYY'));
267: arp_standard.debug('Sum_amount_dr :' || c2.sum_amount_dr);
268: arp_standard.debug('Sum_amount_cr :' || c2.sum_amount_cr);
269: arp_standard.debug('Sum_acctd_amount_dr : '||c2.sum_acctd_amount_dr);
270: arp_standard.debug('Sum_acctd_amount_cr : '||c2.sum_acctd_amount_cr);
271: arp_standard.debug('CC_flag : '||c2.cc_flag);
272: END IF;
273: END LOOP;
274:
267: arp_standard.debug('Sum_amount_dr :' || c2.sum_amount_dr);
268: arp_standard.debug('Sum_amount_cr :' || c2.sum_amount_cr);
269: arp_standard.debug('Sum_acctd_amount_dr : '||c2.sum_acctd_amount_dr);
270: arp_standard.debug('Sum_acctd_amount_cr : '||c2.sum_acctd_amount_cr);
271: arp_standard.debug('CC_flag : '||c2.cc_flag);
272: END IF;
273: END LOOP;
274:
275: --------------------------------------------------------
289: END IF; --p_receipt id is NOT NULL
290:
291: ELSE
292: IF PG_DEBUG in ('Y', 'C') THEN
293: arp_standard.debug('Profile AR: Enable Journal Balance Check is disabled ');
294: END IF;
295: END IF;
296:
297: IF ((p_ps_rec.payment_schedule_id is not null or p_ps_rec_pmt.payment_schedule_id is not null)
298: AND p_request_id is null
299: AND p_called_from_api = 'N'
300: ) THEN
301: BEGIN
302: arp_standard.debug('Class :' || p_ps_rec.class);
303: arp_standard.debug('p_request_id :' || p_request_id);
304: arp_standard.debug('p_called_from_api :' || p_called_from_api);
305: arp_standard.debug('psid1 :' || p_ps_rec.payment_schedule_id);
306: arp_standard.debug('psid2 :' || p_ps_rec_pmt.payment_schedule_id);
299: AND p_called_from_api = 'N'
300: ) THEN
301: BEGIN
302: arp_standard.debug('Class :' || p_ps_rec.class);
303: arp_standard.debug('p_request_id :' || p_request_id);
304: arp_standard.debug('p_called_from_api :' || p_called_from_api);
305: arp_standard.debug('psid1 :' || p_ps_rec.payment_schedule_id);
306: arp_standard.debug('psid2 :' || p_ps_rec_pmt.payment_schedule_id);
307:
300: ) THEN
301: BEGIN
302: arp_standard.debug('Class :' || p_ps_rec.class);
303: arp_standard.debug('p_request_id :' || p_request_id);
304: arp_standard.debug('p_called_from_api :' || p_called_from_api);
305: arp_standard.debug('psid1 :' || p_ps_rec.payment_schedule_id);
306: arp_standard.debug('psid2 :' || p_ps_rec_pmt.payment_schedule_id);
307:
308: IF p_ps_rec.payment_schedule_id is not null THEN
301: BEGIN
302: arp_standard.debug('Class :' || p_ps_rec.class);
303: arp_standard.debug('p_request_id :' || p_request_id);
304: arp_standard.debug('p_called_from_api :' || p_called_from_api);
305: arp_standard.debug('psid1 :' || p_ps_rec.payment_schedule_id);
306: arp_standard.debug('psid2 :' || p_ps_rec_pmt.payment_schedule_id);
307:
308: IF p_ps_rec.payment_schedule_id is not null THEN
309: CHECK_PS_DATE(
302: arp_standard.debug('Class :' || p_ps_rec.class);
303: arp_standard.debug('p_request_id :' || p_request_id);
304: arp_standard.debug('p_called_from_api :' || p_called_from_api);
305: arp_standard.debug('psid1 :' || p_ps_rec.payment_schedule_id);
306: arp_standard.debug('psid2 :' || p_ps_rec_pmt.payment_schedule_id);
307:
308: IF p_ps_rec.payment_schedule_id is not null THEN
309: CHECK_PS_DATE(
310: p_ps_rec => p_ps_rec,
365: END;
366: END IF;
367:
368: IF PG_DEBUG in ('Y', 'C') THEN
369: arp_standard.debug('ARP_BALANCE_CHK.CHECK_RECP_BALANCE (-)');
370: END IF;
371:
372: EXCEPTION
373: WHEN out_of_balance THEN
371:
372: EXCEPTION
373: WHEN out_of_balance THEN
374: IF PG_DEBUG in ('Y', 'C') THEN
375: arp_standard.debug('ARP_BALANCE_CHK.CHECK_RECP_BALANCE - OUT_OF_BALANCE');
376: END IF;
377:
378: if CHECK_PRECISION(l_check_amount_dr) then
379: FND_MESSAGE.SET_NAME( 'AR', 'AR_APP_CURR_PRECISION' );
391: app_exception.raise_exception;
392:
393: WHEN OTHERS THEN
394: IF PG_DEBUG in ('Y', 'C') THEN
395: arp_standard.debug('ARP_BALANCE_CHK.CHECK_RECP_BALANCE - OTHERS');
396: END IF;
397: RAISE;
398:
399: END CHECK_RECP_BALANCE;
471:
472: BEGIN
473:
474: IF PG_DEBUG in ('Y', 'C') THEN
475: arp_standard.debug('ARP_BALANCE_CHECK.CHECK_RECP_BALANCE_BULK (+)');
476: END IF;
477:
478: IF PG_BAL_CHECK_ENABLED = 'Y' THEN
479:
481:
482: FOR c2 in c1(p_cr_id_low, p_cr_id_high) LOOP
483:
484: IF PG_DEBUG in ('Y', 'C') THEN
485: arp_standard.debug('ARP_BALANCE_CHECK.CHECK_RECP_BALANCE_BULK - OUT_OF_BALANCE');
486: arp_standard.debug('Cash Receipt Id: ' || c2.cr_id);
487: arp_standard.debug('GL Date: ' || to_char(c2.gl_date,'DD-MON-YYYY'));
488: arp_standard.debug('Sum Amount Dr: ' || c2.sum_amount_dr);
489: arp_standard.debug('Sum Amount Cr: ' || c2.sum_amount_cr);
482: FOR c2 in c1(p_cr_id_low, p_cr_id_high) LOOP
483:
484: IF PG_DEBUG in ('Y', 'C') THEN
485: arp_standard.debug('ARP_BALANCE_CHECK.CHECK_RECP_BALANCE_BULK - OUT_OF_BALANCE');
486: arp_standard.debug('Cash Receipt Id: ' || c2.cr_id);
487: arp_standard.debug('GL Date: ' || to_char(c2.gl_date,'DD-MON-YYYY'));
488: arp_standard.debug('Sum Amount Dr: ' || c2.sum_amount_dr);
489: arp_standard.debug('Sum Amount Cr: ' || c2.sum_amount_cr);
490: arp_standard.debug('Sum Acctd Amount Dr: ' || c2.sum_acctd_amount_dr);
483:
484: IF PG_DEBUG in ('Y', 'C') THEN
485: arp_standard.debug('ARP_BALANCE_CHECK.CHECK_RECP_BALANCE_BULK - OUT_OF_BALANCE');
486: arp_standard.debug('Cash Receipt Id: ' || c2.cr_id);
487: arp_standard.debug('GL Date: ' || to_char(c2.gl_date,'DD-MON-YYYY'));
488: arp_standard.debug('Sum Amount Dr: ' || c2.sum_amount_dr);
489: arp_standard.debug('Sum Amount Cr: ' || c2.sum_amount_cr);
490: arp_standard.debug('Sum Acctd Amount Dr: ' || c2.sum_acctd_amount_dr);
491: arp_standard.debug('Sum Acctd Amount Cr: ' || c2.sum_acctd_amount_cr);
484: IF PG_DEBUG in ('Y', 'C') THEN
485: arp_standard.debug('ARP_BALANCE_CHECK.CHECK_RECP_BALANCE_BULK - OUT_OF_BALANCE');
486: arp_standard.debug('Cash Receipt Id: ' || c2.cr_id);
487: arp_standard.debug('GL Date: ' || to_char(c2.gl_date,'DD-MON-YYYY'));
488: arp_standard.debug('Sum Amount Dr: ' || c2.sum_amount_dr);
489: arp_standard.debug('Sum Amount Cr: ' || c2.sum_amount_cr);
490: arp_standard.debug('Sum Acctd Amount Dr: ' || c2.sum_acctd_amount_dr);
491: arp_standard.debug('Sum Acctd Amount Cr: ' || c2.sum_acctd_amount_cr);
492: arp_standard.debug('Cross Currency Flag: ' || c2.cc_flag);
485: arp_standard.debug('ARP_BALANCE_CHECK.CHECK_RECP_BALANCE_BULK - OUT_OF_BALANCE');
486: arp_standard.debug('Cash Receipt Id: ' || c2.cr_id);
487: arp_standard.debug('GL Date: ' || to_char(c2.gl_date,'DD-MON-YYYY'));
488: arp_standard.debug('Sum Amount Dr: ' || c2.sum_amount_dr);
489: arp_standard.debug('Sum Amount Cr: ' || c2.sum_amount_cr);
490: arp_standard.debug('Sum Acctd Amount Dr: ' || c2.sum_acctd_amount_dr);
491: arp_standard.debug('Sum Acctd Amount Cr: ' || c2.sum_acctd_amount_cr);
492: arp_standard.debug('Cross Currency Flag: ' || c2.cc_flag);
493: END IF;
486: arp_standard.debug('Cash Receipt Id: ' || c2.cr_id);
487: arp_standard.debug('GL Date: ' || to_char(c2.gl_date,'DD-MON-YYYY'));
488: arp_standard.debug('Sum Amount Dr: ' || c2.sum_amount_dr);
489: arp_standard.debug('Sum Amount Cr: ' || c2.sum_amount_cr);
490: arp_standard.debug('Sum Acctd Amount Dr: ' || c2.sum_acctd_amount_dr);
491: arp_standard.debug('Sum Acctd Amount Cr: ' || c2.sum_acctd_amount_cr);
492: arp_standard.debug('Cross Currency Flag: ' || c2.cc_flag);
493: END IF;
494:
487: arp_standard.debug('GL Date: ' || to_char(c2.gl_date,'DD-MON-YYYY'));
488: arp_standard.debug('Sum Amount Dr: ' || c2.sum_amount_dr);
489: arp_standard.debug('Sum Amount Cr: ' || c2.sum_amount_cr);
490: arp_standard.debug('Sum Acctd Amount Dr: ' || c2.sum_acctd_amount_dr);
491: arp_standard.debug('Sum Acctd Amount Cr: ' || c2.sum_acctd_amount_cr);
492: arp_standard.debug('Cross Currency Flag: ' || c2.cc_flag);
493: END IF;
494:
495: l_bulk_index := l_bulk_index + 1;
488: arp_standard.debug('Sum Amount Dr: ' || c2.sum_amount_dr);
489: arp_standard.debug('Sum Amount Cr: ' || c2.sum_amount_cr);
490: arp_standard.debug('Sum Acctd Amount Dr: ' || c2.sum_acctd_amount_dr);
491: arp_standard.debug('Sum Acctd Amount Cr: ' || c2.sum_acctd_amount_cr);
492: arp_standard.debug('Cross Currency Flag: ' || c2.cc_flag);
493: END IF;
494:
495: l_bulk_index := l_bulk_index + 1;
496: p_unbalanced_cr_tbl(l_bulk_index).cash_receipt_id := c2.cr_id;
509:
510: ELSE
511:
512: IF PG_DEBUG in ('Y', 'C') THEN
513: arp_standard.debug('Profile AR: Enable Journal Balance Check is disabled ');
514: END IF;
515:
516: END IF;
517:
515:
516: END IF;
517:
518: IF PG_DEBUG in ('Y', 'C') THEN
519: arp_standard.debug('ARP_BALANCE_CHECK.CHECK_RECP_BALANCE_BULK (-)');
520: END IF;
521:
522: EXCEPTION
523: WHEN OTHERS THEN
521:
522: EXCEPTION
523: WHEN OTHERS THEN
524: IF PG_DEBUG in ('Y', 'C') THEN
525: arp_standard.debug('ARP_BALANCE_CHECK.CHECK_RECP_BALANCE_BULK - OTHERS');
526: END IF;
527: RAISE;
528: END CHECK_RECP_BALANCE_BULK;
529:
566: l_check_amount_cr NUMBER;
567:
568: BEGIN
569: IF PG_DEBUG in ('Y', 'C') THEN
570: arp_standard.debug('ARP_BALANCE_CHK.CHECK_ADJ_BALANCE (+)');
571: END IF;
572:
573: IF PG_BAL_CHECK_ENABLED = 'Y' THEN
574:
629: END IF; --adjustment id is not null
630:
631: ELSE
632: IF PG_DEBUG in ('Y', 'C') THEN
633: arp_standard.debug('Profile AR: Enable Journal Balance Check is disabled ');
634: END IF;
635: END IF;
636:
637: IF (p_ps_rec.payment_schedule_id is not null
677: END;
678: END IF;
679:
680: IF PG_DEBUG in ('Y', 'C') THEN
681: arp_standard.debug('ARP_BALANCE_CHK.CHECK_ADJ_BALANCE (-)');
682: END IF;
683:
684: EXCEPTION
685: WHEN NO_DATA_FOUND THEN
683:
684: EXCEPTION
685: WHEN NO_DATA_FOUND THEN
686: IF PG_DEBUG in ('Y', 'C') THEN
687: arp_standard.debug('ARP_BALANCE_CHK.CHECK_ADJ_BALANCE - NO_DATA_FOUND');
688: END IF;
689: RAISE;
690: WHEN out_of_balance THEN
691: IF PG_DEBUG in ('Y', 'C') THEN
688: END IF;
689: RAISE;
690: WHEN out_of_balance THEN
691: IF PG_DEBUG in ('Y', 'C') THEN
692: arp_standard.debug('ARP_BALANCE_CHK.CHECK_ADJ_BALANCE - OUT_OF_BALANCE');
693: arp_standard.debug('Adjustment_id = '||p_adj_id);
694: arp_standard.debug('Amount Debit = '||l_amt_dr);
695: arp_standard.debug('Amount Credit = '||l_amt_cr);
696: arp_standard.debug('Acctd Amount Debit = '||l_acctd_amt_dr);
689: RAISE;
690: WHEN out_of_balance THEN
691: IF PG_DEBUG in ('Y', 'C') THEN
692: arp_standard.debug('ARP_BALANCE_CHK.CHECK_ADJ_BALANCE - OUT_OF_BALANCE');
693: arp_standard.debug('Adjustment_id = '||p_adj_id);
694: arp_standard.debug('Amount Debit = '||l_amt_dr);
695: arp_standard.debug('Amount Credit = '||l_amt_cr);
696: arp_standard.debug('Acctd Amount Debit = '||l_acctd_amt_dr);
697: arp_standard.debug('Acctd AmountCredit = '||l_acctd_amt_cr);
690: WHEN out_of_balance THEN
691: IF PG_DEBUG in ('Y', 'C') THEN
692: arp_standard.debug('ARP_BALANCE_CHK.CHECK_ADJ_BALANCE - OUT_OF_BALANCE');
693: arp_standard.debug('Adjustment_id = '||p_adj_id);
694: arp_standard.debug('Amount Debit = '||l_amt_dr);
695: arp_standard.debug('Amount Credit = '||l_amt_cr);
696: arp_standard.debug('Acctd Amount Debit = '||l_acctd_amt_dr);
697: arp_standard.debug('Acctd AmountCredit = '||l_acctd_amt_cr);
698: END IF;
691: IF PG_DEBUG in ('Y', 'C') THEN
692: arp_standard.debug('ARP_BALANCE_CHK.CHECK_ADJ_BALANCE - OUT_OF_BALANCE');
693: arp_standard.debug('Adjustment_id = '||p_adj_id);
694: arp_standard.debug('Amount Debit = '||l_amt_dr);
695: arp_standard.debug('Amount Credit = '||l_amt_cr);
696: arp_standard.debug('Acctd Amount Debit = '||l_acctd_amt_dr);
697: arp_standard.debug('Acctd AmountCredit = '||l_acctd_amt_cr);
698: END IF;
699:
692: arp_standard.debug('ARP_BALANCE_CHK.CHECK_ADJ_BALANCE - OUT_OF_BALANCE');
693: arp_standard.debug('Adjustment_id = '||p_adj_id);
694: arp_standard.debug('Amount Debit = '||l_amt_dr);
695: arp_standard.debug('Amount Credit = '||l_amt_cr);
696: arp_standard.debug('Acctd Amount Debit = '||l_acctd_amt_dr);
697: arp_standard.debug('Acctd AmountCredit = '||l_acctd_amt_cr);
698: END IF;
699:
700: if CHECK_PRECISION(l_check_amount_dr) then
693: arp_standard.debug('Adjustment_id = '||p_adj_id);
694: arp_standard.debug('Amount Debit = '||l_amt_dr);
695: arp_standard.debug('Amount Credit = '||l_amt_cr);
696: arp_standard.debug('Acctd Amount Debit = '||l_acctd_amt_dr);
697: arp_standard.debug('Acctd AmountCredit = '||l_acctd_amt_cr);
698: END IF;
699:
700: if CHECK_PRECISION(l_check_amount_dr) then
701: FND_MESSAGE.SET_NAME( 'AR', 'AR_APP_CURR_PRECISION' );
710: app_exception.raise_exception;
711:
712: WHEN amount_mismatch THEN
713: IF PG_DEBUG in ('Y', 'C') THEN
714: arp_standard.debug('ARP_BALANCE_CHK.CHECK_ADJ_BALANCE -AMOUNT_MISMATCH');
715: arp_standard.debug('Adjustment_id = '||p_adj_id);
716: arp_standard.debug('Amount = '||l_amount);
717: arp_standard.debug('Sum of Buckets = '||l_calc_amount);
718: END IF;
711:
712: WHEN amount_mismatch THEN
713: IF PG_DEBUG in ('Y', 'C') THEN
714: arp_standard.debug('ARP_BALANCE_CHK.CHECK_ADJ_BALANCE -AMOUNT_MISMATCH');
715: arp_standard.debug('Adjustment_id = '||p_adj_id);
716: arp_standard.debug('Amount = '||l_amount);
717: arp_standard.debug('Sum of Buckets = '||l_calc_amount);
718: END IF;
719: fnd_message.set_name('AR','AR_ADJ_AMT_NO_MATCH');
712: WHEN amount_mismatch THEN
713: IF PG_DEBUG in ('Y', 'C') THEN
714: arp_standard.debug('ARP_BALANCE_CHK.CHECK_ADJ_BALANCE -AMOUNT_MISMATCH');
715: arp_standard.debug('Adjustment_id = '||p_adj_id);
716: arp_standard.debug('Amount = '||l_amount);
717: arp_standard.debug('Sum of Buckets = '||l_calc_amount);
718: END IF;
719: fnd_message.set_name('AR','AR_ADJ_AMT_NO_MATCH');
720: app_exception.raise_exception;
713: IF PG_DEBUG in ('Y', 'C') THEN
714: arp_standard.debug('ARP_BALANCE_CHK.CHECK_ADJ_BALANCE -AMOUNT_MISMATCH');
715: arp_standard.debug('Adjustment_id = '||p_adj_id);
716: arp_standard.debug('Amount = '||l_amount);
717: arp_standard.debug('Sum of Buckets = '||l_calc_amount);
718: END IF;
719: fnd_message.set_name('AR','AR_ADJ_AMT_NO_MATCH');
720: app_exception.raise_exception;
721:
723: app_exception.raise_exception;
724:
725: WHEN OTHERS THEN
726: IF PG_DEBUG in ('Y', 'C') THEN
727: arp_standard.debug('ARP_BALANCE_CHK.CHECK_RECP_BALANCE - OTHERS');
728: END IF;
729: RAISE;
730:
731: END CHECK_ADJ_BALANCE;
763:
764: BEGIN
765:
766: IF PG_DEBUG in ('Y', 'C') THEN
767: arp_standard.debug('ARP_BALANCE_CHK.CHECK_APPLN_BALANCE (+)');
768: END IF;
769:
770: IF PG_BAL_CHECK_ENABLED = 'Y' THEN
771:
804: END IF; --receivable application id is not null
805:
806: ELSE
807: IF PG_DEBUG in ('Y', 'C') THEN
808: arp_standard.debug('Profile AR: Enable Journal Balance Check is disabled ');
809: END IF;
810: END IF;
811: arp_standard.debug('Request id '||p_request_id);
812: arp_standard.debug('Called from API '||p_called_from_api);
807: IF PG_DEBUG in ('Y', 'C') THEN
808: arp_standard.debug('Profile AR: Enable Journal Balance Check is disabled ');
809: END IF;
810: END IF;
811: arp_standard.debug('Request id '||p_request_id);
812: arp_standard.debug('Called from API '||p_called_from_api);
813:
814: IF ((p_ps_rec.payment_schedule_id is not null or p_ps_rec_pmt.payment_schedule_id is not null)
815: AND p_request_id is null
808: arp_standard.debug('Profile AR: Enable Journal Balance Check is disabled ');
809: END IF;
810: END IF;
811: arp_standard.debug('Request id '||p_request_id);
812: arp_standard.debug('Called from API '||p_called_from_api);
813:
814: IF ((p_ps_rec.payment_schedule_id is not null or p_ps_rec_pmt.payment_schedule_id is not null)
815: AND p_request_id is null
816: AND p_called_from_api = 'N'
876: ARP_BALANCE_CHECK.P_reg_cm := 'N';
877: END IF;
878:
879: IF PG_DEBUG in ('Y', 'C') THEN
880: arp_standard.debug('ARP_BALANCE_CHK.CHECK_APPLN_BALANCE (-)');
881: END IF;
882:
883: EXCEPTION
884: WHEN NO_DATA_FOUND THEN
884: WHEN NO_DATA_FOUND THEN
885: /* Exception need not be raised as this can happen when the Application
886: is non postable */
887: IF PG_DEBUG in ('Y', 'C') THEN
888: arp_standard.debug('ARP_BALANCE_CHK.CHECK_APPLN_BALANCE - NO_DATA_FOUND');
889: END IF;
890: WHEN out_of_balance THEN
891: IF PG_DEBUG in ('Y', 'C') THEN
892: arp_standard.debug('ARP_BALANCE_CHK.CHECK_APPLN_BALANCE - OUT_OF_BALANCE');
888: arp_standard.debug('ARP_BALANCE_CHK.CHECK_APPLN_BALANCE - NO_DATA_FOUND');
889: END IF;
890: WHEN out_of_balance THEN
891: IF PG_DEBUG in ('Y', 'C') THEN
892: arp_standard.debug('ARP_BALANCE_CHK.CHECK_APPLN_BALANCE - OUT_OF_BALANCE');
893: arp_standard.debug('Receivable Application_id = '||p_receivable_application_id);
894: arp_standard.debug('Amount Debit = '||l_amt_dr);
895: arp_standard.debug('Amount Credit = '||l_amt_cr);
896: arp_standard.debug('Acctd Amount Debit = '||l_acctd_amt_dr);
889: END IF;
890: WHEN out_of_balance THEN
891: IF PG_DEBUG in ('Y', 'C') THEN
892: arp_standard.debug('ARP_BALANCE_CHK.CHECK_APPLN_BALANCE - OUT_OF_BALANCE');
893: arp_standard.debug('Receivable Application_id = '||p_receivable_application_id);
894: arp_standard.debug('Amount Debit = '||l_amt_dr);
895: arp_standard.debug('Amount Credit = '||l_amt_cr);
896: arp_standard.debug('Acctd Amount Debit = '||l_acctd_amt_dr);
897: arp_standard.debug('Acctd AmountCredit = '||l_acctd_amt_cr);
890: WHEN out_of_balance THEN
891: IF PG_DEBUG in ('Y', 'C') THEN
892: arp_standard.debug('ARP_BALANCE_CHK.CHECK_APPLN_BALANCE - OUT_OF_BALANCE');
893: arp_standard.debug('Receivable Application_id = '||p_receivable_application_id);
894: arp_standard.debug('Amount Debit = '||l_amt_dr);
895: arp_standard.debug('Amount Credit = '||l_amt_cr);
896: arp_standard.debug('Acctd Amount Debit = '||l_acctd_amt_dr);
897: arp_standard.debug('Acctd AmountCredit = '||l_acctd_amt_cr);
898: END IF;
891: IF PG_DEBUG in ('Y', 'C') THEN
892: arp_standard.debug('ARP_BALANCE_CHK.CHECK_APPLN_BALANCE - OUT_OF_BALANCE');
893: arp_standard.debug('Receivable Application_id = '||p_receivable_application_id);
894: arp_standard.debug('Amount Debit = '||l_amt_dr);
895: arp_standard.debug('Amount Credit = '||l_amt_cr);
896: arp_standard.debug('Acctd Amount Debit = '||l_acctd_amt_dr);
897: arp_standard.debug('Acctd AmountCredit = '||l_acctd_amt_cr);
898: END IF;
899:
892: arp_standard.debug('ARP_BALANCE_CHK.CHECK_APPLN_BALANCE - OUT_OF_BALANCE');
893: arp_standard.debug('Receivable Application_id = '||p_receivable_application_id);
894: arp_standard.debug('Amount Debit = '||l_amt_dr);
895: arp_standard.debug('Amount Credit = '||l_amt_cr);
896: arp_standard.debug('Acctd Amount Debit = '||l_acctd_amt_dr);
897: arp_standard.debug('Acctd AmountCredit = '||l_acctd_amt_cr);
898: END IF;
899:
900: if CHECK_PRECISION(l_check_amount_dr) then
893: arp_standard.debug('Receivable Application_id = '||p_receivable_application_id);
894: arp_standard.debug('Amount Debit = '||l_amt_dr);
895: arp_standard.debug('Amount Credit = '||l_amt_cr);
896: arp_standard.debug('Acctd Amount Debit = '||l_acctd_amt_dr);
897: arp_standard.debug('Acctd AmountCredit = '||l_acctd_amt_cr);
898: END IF;
899:
900: if CHECK_PRECISION(l_check_amount_dr) then
901: FND_MESSAGE.SET_NAME( 'AR', 'AR_APP_CURR_PRECISION' );
911:
912:
913: WHEN OTHERS THEN
914: IF PG_DEBUG in ('Y', 'C') THEN
915: arp_standard.debug('ARP_BALANCE_CHK.CHECK_APPLN_BALANCE - OTHERS');
916: END IF;
917: RAISE;
918:
919: END CHECK_APPLN_BALANCE;
948:
949: BEGIN
950:
951: IF PG_DEBUG in ('Y', 'C') THEN
952: arp_standard.debug('ARP_BALANCE_CHK.CHECK_APPLN_BALANCE (+) -> for Receipt Applications');
953: END IF;
954:
955: IF PG_BAL_CHECK_ENABLED = 'Y' THEN
956:
996: END IF; --receivable application ids are not null
997:
998: ELSE
999: IF PG_DEBUG in ('Y', 'C') THEN
1000: arp_standard.debug('Profile AR: Enable Journal Balance Check is disabled ');
1001: END IF;
1002: END IF;
1003:
1004: IF PG_DEBUG in ('Y', 'C') THEN
1001: END IF;
1002: END IF;
1003:
1004: IF PG_DEBUG in ('Y', 'C') THEN
1005: arp_standard.debug('ARP_BALANCE_CHK.CHECK_APPLN_BALANCE (-) -> for Receipt Applications');
1006: END IF;
1007:
1008: EXCEPTION
1009: WHEN NO_DATA_FOUND THEN
1009: WHEN NO_DATA_FOUND THEN
1010: /* Exception need not be raised as this can happen when the Application
1011: is non postable */
1012: IF PG_DEBUG in ('Y', 'C') THEN
1013: arp_standard.debug('ARP_BALANCE_CHK.CHECK_APPLN_BALANCE - NO_DATA_FOUND');
1014: END IF;
1015: WHEN out_of_balance THEN
1016: IF PG_DEBUG in ('Y', 'C') THEN
1017: arp_standard.debug('ARP_BALANCE_CHK.CHECK_APPLN_BALANCE - OUT_OF_BALANCE');
1013: arp_standard.debug('ARP_BALANCE_CHK.CHECK_APPLN_BALANCE - NO_DATA_FOUND');
1014: END IF;
1015: WHEN out_of_balance THEN
1016: IF PG_DEBUG in ('Y', 'C') THEN
1017: arp_standard.debug('ARP_BALANCE_CHK.CHECK_APPLN_BALANCE - OUT_OF_BALANCE');
1018: arp_standard.debug('Receivable Application_id1 = '||p_receivable_application_id1);
1019: arp_standard.debug('Receivable Application_id2 = '||p_receivable_application_id2);
1020: arp_standard.debug('Amount Debit = '||l_amt_dr);
1021: arp_standard.debug('Amount Credit = '||l_amt_cr);
1014: END IF;
1015: WHEN out_of_balance THEN
1016: IF PG_DEBUG in ('Y', 'C') THEN
1017: arp_standard.debug('ARP_BALANCE_CHK.CHECK_APPLN_BALANCE - OUT_OF_BALANCE');
1018: arp_standard.debug('Receivable Application_id1 = '||p_receivable_application_id1);
1019: arp_standard.debug('Receivable Application_id2 = '||p_receivable_application_id2);
1020: arp_standard.debug('Amount Debit = '||l_amt_dr);
1021: arp_standard.debug('Amount Credit = '||l_amt_cr);
1022: arp_standard.debug('Acctd Amount Debit = '||l_acctd_amt_dr);
1015: WHEN out_of_balance THEN
1016: IF PG_DEBUG in ('Y', 'C') THEN
1017: arp_standard.debug('ARP_BALANCE_CHK.CHECK_APPLN_BALANCE - OUT_OF_BALANCE');
1018: arp_standard.debug('Receivable Application_id1 = '||p_receivable_application_id1);
1019: arp_standard.debug('Receivable Application_id2 = '||p_receivable_application_id2);
1020: arp_standard.debug('Amount Debit = '||l_amt_dr);
1021: arp_standard.debug('Amount Credit = '||l_amt_cr);
1022: arp_standard.debug('Acctd Amount Debit = '||l_acctd_amt_dr);
1023: arp_standard.debug('Acctd AmountCredit = '||l_acctd_amt_cr);
1016: IF PG_DEBUG in ('Y', 'C') THEN
1017: arp_standard.debug('ARP_BALANCE_CHK.CHECK_APPLN_BALANCE - OUT_OF_BALANCE');
1018: arp_standard.debug('Receivable Application_id1 = '||p_receivable_application_id1);
1019: arp_standard.debug('Receivable Application_id2 = '||p_receivable_application_id2);
1020: arp_standard.debug('Amount Debit = '||l_amt_dr);
1021: arp_standard.debug('Amount Credit = '||l_amt_cr);
1022: arp_standard.debug('Acctd Amount Debit = '||l_acctd_amt_dr);
1023: arp_standard.debug('Acctd AmountCredit = '||l_acctd_amt_cr);
1024: END IF;
1017: arp_standard.debug('ARP_BALANCE_CHK.CHECK_APPLN_BALANCE - OUT_OF_BALANCE');
1018: arp_standard.debug('Receivable Application_id1 = '||p_receivable_application_id1);
1019: arp_standard.debug('Receivable Application_id2 = '||p_receivable_application_id2);
1020: arp_standard.debug('Amount Debit = '||l_amt_dr);
1021: arp_standard.debug('Amount Credit = '||l_amt_cr);
1022: arp_standard.debug('Acctd Amount Debit = '||l_acctd_amt_dr);
1023: arp_standard.debug('Acctd AmountCredit = '||l_acctd_amt_cr);
1024: END IF;
1025:
1018: arp_standard.debug('Receivable Application_id1 = '||p_receivable_application_id1);
1019: arp_standard.debug('Receivable Application_id2 = '||p_receivable_application_id2);
1020: arp_standard.debug('Amount Debit = '||l_amt_dr);
1021: arp_standard.debug('Amount Credit = '||l_amt_cr);
1022: arp_standard.debug('Acctd Amount Debit = '||l_acctd_amt_dr);
1023: arp_standard.debug('Acctd AmountCredit = '||l_acctd_amt_cr);
1024: END IF;
1025:
1026: if CHECK_PRECISION(l_check_amount_dr) then
1019: arp_standard.debug('Receivable Application_id2 = '||p_receivable_application_id2);
1020: arp_standard.debug('Amount Debit = '||l_amt_dr);
1021: arp_standard.debug('Amount Credit = '||l_amt_cr);
1022: arp_standard.debug('Acctd Amount Debit = '||l_acctd_amt_dr);
1023: arp_standard.debug('Acctd AmountCredit = '||l_acctd_amt_cr);
1024: END IF;
1025:
1026: if CHECK_PRECISION(l_check_amount_dr) then
1027: FND_MESSAGE.SET_NAME( 'AR', 'AR_APP_CURR_PRECISION' );
1036: app_exception.raise_exception;
1037:
1038: WHEN OTHERS THEN
1039: IF PG_DEBUG in ('Y', 'C') THEN
1040: arp_standard.debug('ARP_BALANCE_CHK.CHECK_APPLN_BALANCE - OTHERS -> for Receipt Applications');
1041: END IF;
1042: RAISE;
1043:
1044: END CHECK_APPLN_BALANCE;
1067: l_max_gl_date DATE;
1068: BEGIN
1069:
1070: IF PG_DEBUG in ('Y', 'C') THEN
1071: arp_standard.debug('ARP_BALANCE_CHK.CHECK_PS_DATE (+)');
1072: END IF;
1073:
1074:
1075:
1112: p_corrupt_type := 'ACTUAL_DATE';
1113:
1114: IF PG_DEBUG in ('Y', 'C') THEN
1115: IF p_ps_rec.class <> 'PMT' THEN
1116: arp_standard.debug('Customer_Trx_Id : '||p_ps_rec.customer_trx_id);
1117: ELSE
1118: arp_standard.debug('Cash_Receipt_Id : '||p_ps_rec.cash_receipt_id);
1119: END IF;
1120: arp_standard.debug('Class :' || p_ps_rec.class);
1114: IF PG_DEBUG in ('Y', 'C') THEN
1115: IF p_ps_rec.class <> 'PMT' THEN
1116: arp_standard.debug('Customer_Trx_Id : '||p_ps_rec.customer_trx_id);
1117: ELSE
1118: arp_standard.debug('Cash_Receipt_Id : '||p_ps_rec.cash_receipt_id);
1119: END IF;
1120: arp_standard.debug('Class :' || p_ps_rec.class);
1121: arp_standard.debug('Payment_schedule_id :' || p_ps_rec.payment_schedule_id);
1122: arp_standard.debug('Status : '||p_ps_rec.status);
1116: arp_standard.debug('Customer_Trx_Id : '||p_ps_rec.customer_trx_id);
1117: ELSE
1118: arp_standard.debug('Cash_Receipt_Id : '||p_ps_rec.cash_receipt_id);
1119: END IF;
1120: arp_standard.debug('Class :' || p_ps_rec.class);
1121: arp_standard.debug('Payment_schedule_id :' || p_ps_rec.payment_schedule_id);
1122: arp_standard.debug('Status : '||p_ps_rec.status);
1123: arp_standard.debug('Transaction Number : '||p_ps_rec.trx_number);
1124: arp_standard.debug('Current Value (Actual Date Closed) : '||p_ps_rec.actual_date_closed);
1117: ELSE
1118: arp_standard.debug('Cash_Receipt_Id : '||p_ps_rec.cash_receipt_id);
1119: END IF;
1120: arp_standard.debug('Class :' || p_ps_rec.class);
1121: arp_standard.debug('Payment_schedule_id :' || p_ps_rec.payment_schedule_id);
1122: arp_standard.debug('Status : '||p_ps_rec.status);
1123: arp_standard.debug('Transaction Number : '||p_ps_rec.trx_number);
1124: arp_standard.debug('Current Value (Actual Date Closed) : '||p_ps_rec.actual_date_closed);
1125: arp_standard.debug('New Value (Actual Date Closed) : '||l_max_apply_date);
1118: arp_standard.debug('Cash_Receipt_Id : '||p_ps_rec.cash_receipt_id);
1119: END IF;
1120: arp_standard.debug('Class :' || p_ps_rec.class);
1121: arp_standard.debug('Payment_schedule_id :' || p_ps_rec.payment_schedule_id);
1122: arp_standard.debug('Status : '||p_ps_rec.status);
1123: arp_standard.debug('Transaction Number : '||p_ps_rec.trx_number);
1124: arp_standard.debug('Current Value (Actual Date Closed) : '||p_ps_rec.actual_date_closed);
1125: arp_standard.debug('New Value (Actual Date Closed) : '||l_max_apply_date);
1126: END IF;
1119: END IF;
1120: arp_standard.debug('Class :' || p_ps_rec.class);
1121: arp_standard.debug('Payment_schedule_id :' || p_ps_rec.payment_schedule_id);
1122: arp_standard.debug('Status : '||p_ps_rec.status);
1123: arp_standard.debug('Transaction Number : '||p_ps_rec.trx_number);
1124: arp_standard.debug('Current Value (Actual Date Closed) : '||p_ps_rec.actual_date_closed);
1125: arp_standard.debug('New Value (Actual Date Closed) : '||l_max_apply_date);
1126: END IF;
1127: END IF;
1120: arp_standard.debug('Class :' || p_ps_rec.class);
1121: arp_standard.debug('Payment_schedule_id :' || p_ps_rec.payment_schedule_id);
1122: arp_standard.debug('Status : '||p_ps_rec.status);
1123: arp_standard.debug('Transaction Number : '||p_ps_rec.trx_number);
1124: arp_standard.debug('Current Value (Actual Date Closed) : '||p_ps_rec.actual_date_closed);
1125: arp_standard.debug('New Value (Actual Date Closed) : '||l_max_apply_date);
1126: END IF;
1127: END IF;
1128:
1121: arp_standard.debug('Payment_schedule_id :' || p_ps_rec.payment_schedule_id);
1122: arp_standard.debug('Status : '||p_ps_rec.status);
1123: arp_standard.debug('Transaction Number : '||p_ps_rec.trx_number);
1124: arp_standard.debug('Current Value (Actual Date Closed) : '||p_ps_rec.actual_date_closed);
1125: arp_standard.debug('New Value (Actual Date Closed) : '||l_max_apply_date);
1126: END IF;
1127: END IF;
1128:
1129: IF p_ps_rec.class <> 'PMT' THEN
1160: END IF;
1161:
1162: IF PG_DEBUG in ('Y', 'C') THEN
1163: IF p_ps_rec.class <> 'PMT' THEN
1164: arp_standard.debug('Customer_Trx_Id : '||p_ps_rec.customer_trx_id);
1165: ELSE
1166: arp_standard.debug('Cash_Receipt_Id : '||p_ps_rec.cash_receipt_id);
1167: END IF;
1168: arp_standard.debug('Class :' || p_ps_rec.class);
1162: IF PG_DEBUG in ('Y', 'C') THEN
1163: IF p_ps_rec.class <> 'PMT' THEN
1164: arp_standard.debug('Customer_Trx_Id : '||p_ps_rec.customer_trx_id);
1165: ELSE
1166: arp_standard.debug('Cash_Receipt_Id : '||p_ps_rec.cash_receipt_id);
1167: END IF;
1168: arp_standard.debug('Class :' || p_ps_rec.class);
1169: arp_standard.debug('Payment_schedule_id :' || p_ps_rec.payment_schedule_id);
1170: arp_standard.debug('Status : '||p_ps_rec.status);
1164: arp_standard.debug('Customer_Trx_Id : '||p_ps_rec.customer_trx_id);
1165: ELSE
1166: arp_standard.debug('Cash_Receipt_Id : '||p_ps_rec.cash_receipt_id);
1167: END IF;
1168: arp_standard.debug('Class :' || p_ps_rec.class);
1169: arp_standard.debug('Payment_schedule_id :' || p_ps_rec.payment_schedule_id);
1170: arp_standard.debug('Status : '||p_ps_rec.status);
1171: arp_standard.debug('Transaction Number : '||p_ps_rec.trx_number);
1172: arp_standard.debug('Current Value (GL Date Closed) : '||p_ps_rec.gl_date_closed);
1165: ELSE
1166: arp_standard.debug('Cash_Receipt_Id : '||p_ps_rec.cash_receipt_id);
1167: END IF;
1168: arp_standard.debug('Class :' || p_ps_rec.class);
1169: arp_standard.debug('Payment_schedule_id :' || p_ps_rec.payment_schedule_id);
1170: arp_standard.debug('Status : '||p_ps_rec.status);
1171: arp_standard.debug('Transaction Number : '||p_ps_rec.trx_number);
1172: arp_standard.debug('Current Value (GL Date Closed) : '||p_ps_rec.gl_date_closed);
1173: arp_standard.debug('New Value (GL Date Closed) : '||l_max_gl_date);
1166: arp_standard.debug('Cash_Receipt_Id : '||p_ps_rec.cash_receipt_id);
1167: END IF;
1168: arp_standard.debug('Class :' || p_ps_rec.class);
1169: arp_standard.debug('Payment_schedule_id :' || p_ps_rec.payment_schedule_id);
1170: arp_standard.debug('Status : '||p_ps_rec.status);
1171: arp_standard.debug('Transaction Number : '||p_ps_rec.trx_number);
1172: arp_standard.debug('Current Value (GL Date Closed) : '||p_ps_rec.gl_date_closed);
1173: arp_standard.debug('New Value (GL Date Closed) : '||l_max_gl_date);
1174: END IF;
1167: END IF;
1168: arp_standard.debug('Class :' || p_ps_rec.class);
1169: arp_standard.debug('Payment_schedule_id :' || p_ps_rec.payment_schedule_id);
1170: arp_standard.debug('Status : '||p_ps_rec.status);
1171: arp_standard.debug('Transaction Number : '||p_ps_rec.trx_number);
1172: arp_standard.debug('Current Value (GL Date Closed) : '||p_ps_rec.gl_date_closed);
1173: arp_standard.debug('New Value (GL Date Closed) : '||l_max_gl_date);
1174: END IF;
1175: END IF;
1168: arp_standard.debug('Class :' || p_ps_rec.class);
1169: arp_standard.debug('Payment_schedule_id :' || p_ps_rec.payment_schedule_id);
1170: arp_standard.debug('Status : '||p_ps_rec.status);
1171: arp_standard.debug('Transaction Number : '||p_ps_rec.trx_number);
1172: arp_standard.debug('Current Value (GL Date Closed) : '||p_ps_rec.gl_date_closed);
1173: arp_standard.debug('New Value (GL Date Closed) : '||l_max_gl_date);
1174: END IF;
1175: END IF;
1176:
1169: arp_standard.debug('Payment_schedule_id :' || p_ps_rec.payment_schedule_id);
1170: arp_standard.debug('Status : '||p_ps_rec.status);
1171: arp_standard.debug('Transaction Number : '||p_ps_rec.trx_number);
1172: arp_standard.debug('Current Value (GL Date Closed) : '||p_ps_rec.gl_date_closed);
1173: arp_standard.debug('New Value (GL Date Closed) : '||l_max_gl_date);
1174: END IF;
1175: END IF;
1176:
1177: END IF;
1179: p_gl_date_closed := l_max_gl_date;
1180: p_actual_date_closed := l_max_apply_date;
1181:
1182: IF PG_DEBUG in ('Y', 'C') THEN
1183: arp_standard.debug('Corruption Type :'||p_corrupt_type);
1184: arp_standard.debug('ARP_BALANCE_CHK.CHECK_PS_DATE (-)');
1185: END IF;
1186: EXCEPTION
1187: WHEN OTHERS THEN
1180: p_actual_date_closed := l_max_apply_date;
1181:
1182: IF PG_DEBUG in ('Y', 'C') THEN
1183: arp_standard.debug('Corruption Type :'||p_corrupt_type);
1184: arp_standard.debug('ARP_BALANCE_CHK.CHECK_PS_DATE (-)');
1185: END IF;
1186: EXCEPTION
1187: WHEN OTHERS THEN
1188: IF PG_DEBUG in ('Y', 'C') THEN
1185: END IF;
1186: EXCEPTION
1187: WHEN OTHERS THEN
1188: IF PG_DEBUG in ('Y', 'C') THEN
1189: arp_standard.debug('ARP_BALANCE_CHK.CHECK_PS_DATE - OTHERS');
1190: END IF;
1191: RAISE;
1192: END CHECK_PS_DATE;
1193: /* =======================================================================
1212: l_ps_rec ar_payment_schedules%ROWTYPE;
1213: BEGIN
1214:
1215: IF PG_DEBUG in ('Y', 'C') THEN
1216: arp_standard.debug('ARP_BALANCE_CHK.FIX_PS_DATE (+)');
1217: END IF;
1218:
1219: --IF PG_AUTO_CORRECT_ENABLED = 'Y' THEN --checking for the profile option
1220: arp_ps_pkg.fetch_p(p_ps_id,l_ps_rec);
1239: END IF;
1240:
1241: --END IF;
1242: IF PG_DEBUG in ('Y', 'C') THEN
1243: arp_standard.debug('ARP_BALANCE_CHK.FIX_PS_DATE (-)');
1244: END IF;
1245:
1246: EXCEPTION
1247: WHEN OTHERS THEN
1245:
1246: EXCEPTION
1247: WHEN OTHERS THEN
1248: IF PG_DEBUG in ('Y', 'C') THEN
1249: arp_standard.debug('ARP_BALANCE_CHK.FIX_PS_DATE - OTHERS');
1250: END IF;
1251: RAISE;
1252: END FIX_PS_DATE;
1253:
1259: p_FunctionalCurrency Varchar2(20);
1260:
1261: BEGIN
1262: IF PG_DEBUG in ('Y', 'C') THEN
1263: arp_standard.debug('ARP_BALANCE_CHK.Check_Precision (+)');
1264: arp_standard.debug('p_amount ' || p_amount);
1265: END IF;
1266:
1267: SELECT sob.currency_code
1260:
1261: BEGIN
1262: IF PG_DEBUG in ('Y', 'C') THEN
1263: arp_standard.debug('ARP_BALANCE_CHK.Check_Precision (+)');
1264: arp_standard.debug('p_amount ' || p_amount);
1265: END IF;
1266:
1267: SELECT sob.currency_code
1268: INTO p_FunctionalCurrency
1272:
1273: p_actual_amount := ARPCURR.CurrRound(p_amount, p_FunctionalCurrency) ;
1274:
1275: IF PG_DEBUG in ('Y', 'C') THEN
1276: arp_standard.debug('p_actual_amount ' || p_actual_amount);
1277: arp_standard.debug('p_FunctionalCurrency ' || p_amount);
1278: END IF;
1279:
1280: IF p_amount <> p_actual_amount then
1273: p_actual_amount := ARPCURR.CurrRound(p_amount, p_FunctionalCurrency) ;
1274:
1275: IF PG_DEBUG in ('Y', 'C') THEN
1276: arp_standard.debug('p_actual_amount ' || p_actual_amount);
1277: arp_standard.debug('p_FunctionalCurrency ' || p_amount);
1278: END IF;
1279:
1280: IF p_amount <> p_actual_amount then
1281: arp_standard.debug('Application amount precision do not match current FND currency precision');
1277: arp_standard.debug('p_FunctionalCurrency ' || p_amount);
1278: END IF;
1279:
1280: IF p_amount <> p_actual_amount then
1281: arp_standard.debug('Application amount precision do not match current FND currency precision');
1282: Return TRUE;
1283: END IF;
1284:
1285: IF PG_DEBUG in ('Y', 'C') THEN
1282: Return TRUE;
1283: END IF;
1284:
1285: IF PG_DEBUG in ('Y', 'C') THEN
1286: arp_standard.debug('Application amount precision matches with FND currency precision');
1287: arp_standard.debug('ARP_BALANCE_CHK.Check_Precision (-)');
1288: END IF;
1289: Return FALSE;
1290:
1283: END IF;
1284:
1285: IF PG_DEBUG in ('Y', 'C') THEN
1286: arp_standard.debug('Application amount precision matches with FND currency precision');
1287: arp_standard.debug('ARP_BALANCE_CHK.Check_Precision (-)');
1288: END IF;
1289: Return FALSE;
1290:
1291: EXCEPTION WHEN OTHERS THEN
1288: END IF;
1289: Return FALSE;
1290:
1291: EXCEPTION WHEN OTHERS THEN
1292: arp_standard.debug('ARP_BALANCE_CHK.Check_Precision HANDLED EXCEPTION Return FALSE');
1293: Return FALSE;
1294: END;
1295:
1296: /* =======================================================================
1343:
1344: BEGIN
1345:
1346: IF PG_DEBUG in ('Y', 'C') THEN
1347: arp_standard.debug('ARP_BALANCE_CHK.Check_Line_Level_Transaction_Balance (+)' );
1348: END IF;
1349:
1350: IF p_customer_trx_id IS NOT NULL THEN
1351:
1358: END LOOP;
1359:
1360: ELSE
1361: IF PG_DEBUG in ('Y', 'C') THEN
1362: arp_standard.debug('Profile AR: Enable Journal Balance Check is disabled ');
1363: arp_standard.debug('Profile AR:Enable Line Level Journal Balance Check is disabled ');
1364: END IF;
1365: END IF;
1366: END IF; -- p_customer_trx_id is not null , bug6762463
1359:
1360: ELSE
1361: IF PG_DEBUG in ('Y', 'C') THEN
1362: arp_standard.debug('Profile AR: Enable Journal Balance Check is disabled ');
1363: arp_standard.debug('Profile AR:Enable Line Level Journal Balance Check is disabled ');
1364: END IF;
1365: END IF;
1366: END IF; -- p_customer_trx_id is not null , bug6762463
1367:
1365: END IF;
1366: END IF; -- p_customer_trx_id is not null , bug6762463
1367:
1368: IF PG_DEBUG in ('Y', 'C') THEN
1369: arp_standard.debug('ARP_BALANCE_CHK.Check_Line_Level_Transaction_Balance (-)' );
1370: END IF;
1371:
1372: EXCEPTION
1373: WHEN out_of_balance THEN
1371:
1372: EXCEPTION
1373: WHEN out_of_balance THEN
1374: IF PG_DEBUG in ('Y', 'C') THEN
1375: arp_standard.debug('ARP_BALANCE_CHK.Check_Line_Level_Transaction_Balance - OUT_OF_BALANCE');
1376: END IF;
1377: fnd_message.set_name('AR','AR_AMOUNTS_NO_MATCH');
1378: app_exception.raise_exception;
1379: WHEN NO_DATA_FOUND THEN
1378: app_exception.raise_exception;
1379: WHEN NO_DATA_FOUND THEN
1380: /* Case for invoice with rules */
1381: IF PG_DEBUG in ('Y', 'C') THEN
1382: arp_standard.debug( 'ARP_BALANCE_CHK.Check_Line_Level_Transaction_Balance - NO_DATA_FOUND' );
1383: END IF;
1384: WHEN excep_set_org_rem_amt_r12 THEN --LLCA
1385: IF PG_DEBUG in ('Y', 'C') THEN
1386: arp_standard.debug('EXCEPTION_set_original_rem_amt_r12 error count:'||l_msg_count);
1382: arp_standard.debug( 'ARP_BALANCE_CHK.Check_Line_Level_Transaction_Balance - NO_DATA_FOUND' );
1383: END IF;
1384: WHEN excep_set_org_rem_amt_r12 THEN --LLCA
1385: IF PG_DEBUG in ('Y', 'C') THEN
1386: arp_standard.debug('EXCEPTION_set_original_rem_amt_r12 error count:'||l_msg_count);
1387: arp_standard.debug('last error:'||l_msg_data);
1388: END IF;
1389: RAISE;
1390:
1383: END IF;
1384: WHEN excep_set_org_rem_amt_r12 THEN --LLCA
1385: IF PG_DEBUG in ('Y', 'C') THEN
1386: arp_standard.debug('EXCEPTION_set_original_rem_amt_r12 error count:'||l_msg_count);
1387: arp_standard.debug('last error:'||l_msg_data);
1388: END IF;
1389: RAISE;
1390:
1391: WHEN OTHERS THEN
1389: RAISE;
1390:
1391: WHEN OTHERS THEN
1392: IF PG_DEBUG in ('Y', 'C') THEN
1393: arp_standard.debug( 'ARP_BALANCE_CHK.Check_Line_Level_Transaction_Balance - OTHERS' );
1394: END IF;
1395: RAISE;
1396:
1397: END CHECK_LL_TRANSACTION_BALANCE;