60:
61: BEGIN
62:
63: IF PG_DEBUG in ('Y', 'C') THEN
64: arp_standard.debug('clear: ' || 'p_exchange_rate_type = ' || p_exchange_rate_type);
65: arp_standard.debug('clear: ' || 'p_exchange_rate = ' || to_char(p_exchange_rate));
66: arp_standard.debug('clear: ' || 'p_bank_currency = ' || p_bank_currency);
67: arp_standard.debug('p_amount_cleared = ' || to_char(p_amount_cleared));
68: arp_standard.debug('clear: ' || 'p_amount_factored = ' || to_char(p_amount_factored));
61: BEGIN
62:
63: IF PG_DEBUG in ('Y', 'C') THEN
64: arp_standard.debug('clear: ' || 'p_exchange_rate_type = ' || p_exchange_rate_type);
65: arp_standard.debug('clear: ' || 'p_exchange_rate = ' || to_char(p_exchange_rate));
66: arp_standard.debug('clear: ' || 'p_bank_currency = ' || p_bank_currency);
67: arp_standard.debug('p_amount_cleared = ' || to_char(p_amount_cleared));
68: arp_standard.debug('clear: ' || 'p_amount_factored = ' || to_char(p_amount_factored));
69: arp_standard.debug('p_cr_id:'|| p_cr_id);
62:
63: IF PG_DEBUG in ('Y', 'C') THEN
64: arp_standard.debug('clear: ' || 'p_exchange_rate_type = ' || p_exchange_rate_type);
65: arp_standard.debug('clear: ' || 'p_exchange_rate = ' || to_char(p_exchange_rate));
66: arp_standard.debug('clear: ' || 'p_bank_currency = ' || p_bank_currency);
67: arp_standard.debug('p_amount_cleared = ' || to_char(p_amount_cleared));
68: arp_standard.debug('clear: ' || 'p_amount_factored = ' || to_char(p_amount_factored));
69: arp_standard.debug('p_cr_id:'|| p_cr_id);
70: arp_standard.debug('p_trx_date :'||p_trx_date);
63: IF PG_DEBUG in ('Y', 'C') THEN
64: arp_standard.debug('clear: ' || 'p_exchange_rate_type = ' || p_exchange_rate_type);
65: arp_standard.debug('clear: ' || 'p_exchange_rate = ' || to_char(p_exchange_rate));
66: arp_standard.debug('clear: ' || 'p_bank_currency = ' || p_bank_currency);
67: arp_standard.debug('p_amount_cleared = ' || to_char(p_amount_cleared));
68: arp_standard.debug('clear: ' || 'p_amount_factored = ' || to_char(p_amount_factored));
69: arp_standard.debug('p_cr_id:'|| p_cr_id);
70: arp_standard.debug('p_trx_date :'||p_trx_date);
71: arp_standard.debug('p_gl_date :'||p_gl_date);
64: arp_standard.debug('clear: ' || 'p_exchange_rate_type = ' || p_exchange_rate_type);
65: arp_standard.debug('clear: ' || 'p_exchange_rate = ' || to_char(p_exchange_rate));
66: arp_standard.debug('clear: ' || 'p_bank_currency = ' || p_bank_currency);
67: arp_standard.debug('p_amount_cleared = ' || to_char(p_amount_cleared));
68: arp_standard.debug('clear: ' || 'p_amount_factored = ' || to_char(p_amount_factored));
69: arp_standard.debug('p_cr_id:'|| p_cr_id);
70: arp_standard.debug('p_trx_date :'||p_trx_date);
71: arp_standard.debug('p_gl_date :'||p_gl_date);
72: arp_standard.debug('p_actual_value_date :'||p_actual_value_date);
65: arp_standard.debug('clear: ' || 'p_exchange_rate = ' || to_char(p_exchange_rate));
66: arp_standard.debug('clear: ' || 'p_bank_currency = ' || p_bank_currency);
67: arp_standard.debug('p_amount_cleared = ' || to_char(p_amount_cleared));
68: arp_standard.debug('clear: ' || 'p_amount_factored = ' || to_char(p_amount_factored));
69: arp_standard.debug('p_cr_id:'|| p_cr_id);
70: arp_standard.debug('p_trx_date :'||p_trx_date);
71: arp_standard.debug('p_gl_date :'||p_gl_date);
72: arp_standard.debug('p_actual_value_date :'||p_actual_value_date);
73:
66: arp_standard.debug('clear: ' || 'p_bank_currency = ' || p_bank_currency);
67: arp_standard.debug('p_amount_cleared = ' || to_char(p_amount_cleared));
68: arp_standard.debug('clear: ' || 'p_amount_factored = ' || to_char(p_amount_factored));
69: arp_standard.debug('p_cr_id:'|| p_cr_id);
70: arp_standard.debug('p_trx_date :'||p_trx_date);
71: arp_standard.debug('p_gl_date :'||p_gl_date);
72: arp_standard.debug('p_actual_value_date :'||p_actual_value_date);
73:
74: arp_util.debug( '>>>>>>> arp_cashbook.clear' );
67: arp_standard.debug('p_amount_cleared = ' || to_char(p_amount_cleared));
68: arp_standard.debug('clear: ' || 'p_amount_factored = ' || to_char(p_amount_factored));
69: arp_standard.debug('p_cr_id:'|| p_cr_id);
70: arp_standard.debug('p_trx_date :'||p_trx_date);
71: arp_standard.debug('p_gl_date :'||p_gl_date);
72: arp_standard.debug('p_actual_value_date :'||p_actual_value_date);
73:
74: arp_util.debug( '>>>>>>> arp_cashbook.clear' );
75: END IF;
68: arp_standard.debug('clear: ' || 'p_amount_factored = ' || to_char(p_amount_factored));
69: arp_standard.debug('p_cr_id:'|| p_cr_id);
70: arp_standard.debug('p_trx_date :'||p_trx_date);
71: arp_standard.debug('p_gl_date :'||p_gl_date);
72: arp_standard.debug('p_actual_value_date :'||p_actual_value_date);
73:
74: arp_util.debug( '>>>>>>> arp_cashbook.clear' );
75: END IF;
76:
76:
77: --Setting the Org Context Bug5212892
78: ar_mo_global_cache.populate;
79: arp_global.init_global(mo_global.get_current_org_id);
80: arp_standard.init_standard(mo_global.get_current_org_id);
81:
82: -- Assume this receipt has already been locked
83:
84: -- Validate the GL Date is in open or future period
120: -- then the amount_cleared passed in is in the functional amount.
121: l_acctd_receipt_amt_old := l_crh_rec_old.acctd_amount + nvl(L_crh_rec_old.acctd_factor_discount_amount,0);
122:
123: IF PG_DEBUG in ('Y', 'C') THEN
124: arp_standard.debug('clear: ' || 'l_cr_rec.currency_code = ' || l_cr_rec.currency_code);
125: arp_standard.debug('clear: ' || 'ARP_GLOBAL.functional_currency = ' || ARP_GLOBAL.functional_currency);
126: arp_standard.debug('clear: ' || 'l_crh_rec_old.exchange_rate = ' || to_char(l_crh_rec_old.exchange_rate));
127: END IF;
128:
121: l_acctd_receipt_amt_old := l_crh_rec_old.acctd_amount + nvl(L_crh_rec_old.acctd_factor_discount_amount,0);
122:
123: IF PG_DEBUG in ('Y', 'C') THEN
124: arp_standard.debug('clear: ' || 'l_cr_rec.currency_code = ' || l_cr_rec.currency_code);
125: arp_standard.debug('clear: ' || 'ARP_GLOBAL.functional_currency = ' || ARP_GLOBAL.functional_currency);
126: arp_standard.debug('clear: ' || 'l_crh_rec_old.exchange_rate = ' || to_char(l_crh_rec_old.exchange_rate));
127: END IF;
128:
129: IF ( l_cr_rec.currency_code = ARP_GLOBAL.functional_currency )
122:
123: IF PG_DEBUG in ('Y', 'C') THEN
124: arp_standard.debug('clear: ' || 'l_cr_rec.currency_code = ' || l_cr_rec.currency_code);
125: arp_standard.debug('clear: ' || 'ARP_GLOBAL.functional_currency = ' || ARP_GLOBAL.functional_currency);
126: arp_standard.debug('clear: ' || 'l_crh_rec_old.exchange_rate = ' || to_char(l_crh_rec_old.exchange_rate));
127: END IF;
128:
129: IF ( l_cr_rec.currency_code = ARP_GLOBAL.functional_currency )
130: THEN
809:
810: --Setting the Org Context Bug5212892
811: ar_mo_global_cache.populate;
812: arp_global.init_global(mo_global.get_current_org_id);
813: arp_standard.init_standard(mo_global.get_current_org_id);
814:
815:
816: -- Assume this receipt has already been locked
817:
861: l_rma_rec );
862:
863:
864: IF PG_DEBUG in ('Y', 'C') THEN
865: arp_standard.debug('unclear: ' || 'crh_id_old: ' || to_char(l_crh_rec_old.cash_receipt_history_id));
866: arp_standard.debug('unclear: ' || 'crh_id_prv_stat: ' || to_char(l_crh_rec_prv_stat.cash_receipt_history_id));
867: END IF;
868:
869:
862:
863:
864: IF PG_DEBUG in ('Y', 'C') THEN
865: arp_standard.debug('unclear: ' || 'crh_id_old: ' || to_char(l_crh_rec_old.cash_receipt_history_id));
866: arp_standard.debug('unclear: ' || 'crh_id_prv_stat: ' || to_char(l_crh_rec_prv_stat.cash_receipt_history_id));
867: END IF;
868:
869:
870: -- Insert a new history record