59:
60: l_ps_rec ar_payment_schedules%ROWTYPE;
61: l_ps_id ar_payment_schedules.payment_schedule_id%TYPE;
62:
63: l_status ar_cash_receipt_history.status%TYPE;
64: BEGIN
65:
66: IF PG_DEBUG in ('Y', 'C') THEN
67: arp_standard.debug('arp_process_rct_util.insert_ps_rec_cash()+');
94:
95: /* bug 5569488, set confirmed flag to N if the status is APPROVED */
96: select status
97: into l_status
98: from ar_cash_receipt_history
99: where cash_receipt_id = p_cr_rec.cash_receipt_id
100: and current_record_flag = 'Y' ;
101:
102: IF l_status = 'APPROVED' THEN
127: | PROCEDURE |
128: | insert_crh_rec |
129: | |
130: | DESCRIPTION |
131: | Creates a new record in AR_CASH_RECEIPT_HISTORY for a new cash or |
132: | misc receipt. |
133: | |
134: | SCOPE - PRIVATE |
135: | |
144: +===========================================================================*/
145:
146: PROCEDURE insert_crh_rec(
147: p_cr_rec IN ar_cash_receipts%ROWTYPE,
148: p_crh_amount IN ar_cash_receipt_history.amount%TYPE,
149: p_acctd_amount IN ar_cash_receipt_history.acctd_amount%TYPE,
150: p_factor_discount_amount IN
151: ar_cash_receipt_history.factor_discount_amount%TYPE,
152: p_acctd_factor_discount_amount IN
145:
146: PROCEDURE insert_crh_rec(
147: p_cr_rec IN ar_cash_receipts%ROWTYPE,
148: p_crh_amount IN ar_cash_receipt_history.amount%TYPE,
149: p_acctd_amount IN ar_cash_receipt_history.acctd_amount%TYPE,
150: p_factor_discount_amount IN
151: ar_cash_receipt_history.factor_discount_amount%TYPE,
152: p_acctd_factor_discount_amount IN
153: ar_cash_receipt_history.acctd_factor_discount_amount%TYPE,
147: p_cr_rec IN ar_cash_receipts%ROWTYPE,
148: p_crh_amount IN ar_cash_receipt_history.amount%TYPE,
149: p_acctd_amount IN ar_cash_receipt_history.acctd_amount%TYPE,
150: p_factor_discount_amount IN
151: ar_cash_receipt_history.factor_discount_amount%TYPE,
152: p_acctd_factor_discount_amount IN
153: ar_cash_receipt_history.acctd_factor_discount_amount%TYPE,
154: p_gl_date IN DATE,
155: p_creation_status IN VARCHAR2,
149: p_acctd_amount IN ar_cash_receipt_history.acctd_amount%TYPE,
150: p_factor_discount_amount IN
151: ar_cash_receipt_history.factor_discount_amount%TYPE,
152: p_acctd_factor_discount_amount IN
153: ar_cash_receipt_history.acctd_factor_discount_amount%TYPE,
154: p_gl_date IN DATE,
155: p_creation_status IN VARCHAR2,
156: p_batch_id IN ar_cash_receipt_history.batch_id%TYPE,
157: p_ccid IN
152: p_acctd_factor_discount_amount IN
153: ar_cash_receipt_history.acctd_factor_discount_amount%TYPE,
154: p_gl_date IN DATE,
155: p_creation_status IN VARCHAR2,
156: p_batch_id IN ar_cash_receipt_history.batch_id%TYPE,
157: p_ccid IN
158: ar_cash_receipt_history.account_code_combination_id%TYPE,
159: p_bank_charges_ccid IN
160: ar_cash_receipt_history.bank_charge_account_ccid%TYPE,
154: p_gl_date IN DATE,
155: p_creation_status IN VARCHAR2,
156: p_batch_id IN ar_cash_receipt_history.batch_id%TYPE,
157: p_ccid IN
158: ar_cash_receipt_history.account_code_combination_id%TYPE,
159: p_bank_charges_ccid IN
160: ar_cash_receipt_history.bank_charge_account_ccid%TYPE,
161: p_crh_rec OUT NOCOPY ar_cash_receipt_history%ROWTYPE,
162: p_called_from IN VARCHAR2 DEFAULT NULL
156: p_batch_id IN ar_cash_receipt_history.batch_id%TYPE,
157: p_ccid IN
158: ar_cash_receipt_history.account_code_combination_id%TYPE,
159: p_bank_charges_ccid IN
160: ar_cash_receipt_history.bank_charge_account_ccid%TYPE,
161: p_crh_rec OUT NOCOPY ar_cash_receipt_history%ROWTYPE,
162: p_called_from IN VARCHAR2 DEFAULT NULL
163: ) IS
164:
157: p_ccid IN
158: ar_cash_receipt_history.account_code_combination_id%TYPE,
159: p_bank_charges_ccid IN
160: ar_cash_receipt_history.bank_charge_account_ccid%TYPE,
161: p_crh_rec OUT NOCOPY ar_cash_receipt_history%ROWTYPE,
162: p_called_from IN VARCHAR2 DEFAULT NULL
163: ) IS
164:
165: l_crh_rec ar_cash_receipt_history%ROWTYPE;
161: p_crh_rec OUT NOCOPY ar_cash_receipt_history%ROWTYPE,
162: p_called_from IN VARCHAR2 DEFAULT NULL
163: ) IS
164:
165: l_crh_rec ar_cash_receipt_history%ROWTYPE;
166: l_crh_id ar_cash_receipt_history.cash_receipt_history_id%TYPE;
167: l_dummy NUMBER;
168: --Bug#2750340
169: l_xla_ev_rec arp_xla_events.xla_events_type;
162: p_called_from IN VARCHAR2 DEFAULT NULL
163: ) IS
164:
165: l_crh_rec ar_cash_receipt_history%ROWTYPE;
166: l_crh_id ar_cash_receipt_history.cash_receipt_history_id%TYPE;
167: l_dummy NUMBER;
168: --Bug#2750340
169: l_xla_ev_rec arp_xla_events.xla_events_type;
170:
432: +===========================================================================*/
433:
434: PROCEDURE insert_dist_rec(
435: p_amount IN ar_cash_receipts.amount%TYPE,
436: p_acctd_amount IN ar_cash_receipt_history.acctd_amount%TYPE,
437: p_crh_id IN
438: ar_cash_receipt_history.cash_receipt_history_id%TYPE,
439: p_source_type IN ar_distributions.source_type%TYPE,
440: p_ccid IN ar_distributions.code_combination_id%TYPE,
434: PROCEDURE insert_dist_rec(
435: p_amount IN ar_cash_receipts.amount%TYPE,
436: p_acctd_amount IN ar_cash_receipt_history.acctd_amount%TYPE,
437: p_crh_id IN
438: ar_cash_receipt_history.cash_receipt_history_id%TYPE,
439: p_source_type IN ar_distributions.source_type%TYPE,
440: p_ccid IN ar_distributions.code_combination_id%TYPE,
441: p_called_from IN VARCHAR2 DEFAULT NULL -- jrautiai BR project
442: ) IS
445: l_source_type ar_distributions.source_type%TYPE;
446: l_ccid ar_distributions.code_combination_id%TYPE;
447: l_dummy ar_distributions.line_id%TYPE;
448: l_cr_rec ar_cash_receipts%ROWTYPE;
449: l_crh_rec ar_cash_receipt_history%ROWTYPE;
450: --bug#2750340
451: l_xla_ev_rec arp_xla_events.xla_events_type;
452:
453: BEGIN
668:
669:
670: PROCEDURE insert_misc_dist(
671: p_cash_receipt_id IN ar_cash_receipts.cash_receipt_id%TYPE,
672: p_gl_date IN ar_cash_receipt_history.gl_date%TYPE,
673: p_amount IN ar_cash_receipts.amount%TYPE,
674: p_currency_code IN ar_cash_receipts.currency_code%TYPE,
675: p_exchange_rate IN ar_cash_receipts.exchange_rate%TYPE,
676: p_acctd_amount IN ar_cash_receipt_history.acctd_amount%TYPE,
672: p_gl_date IN ar_cash_receipt_history.gl_date%TYPE,
673: p_amount IN ar_cash_receipts.amount%TYPE,
674: p_currency_code IN ar_cash_receipts.currency_code%TYPE,
675: p_exchange_rate IN ar_cash_receipts.exchange_rate%TYPE,
676: p_acctd_amount IN ar_cash_receipt_history.acctd_amount%TYPE,
677: p_receipt_date IN ar_cash_receipts.receipt_date%TYPE,
678: p_receivables_trx_id IN ar_cash_receipts.receivables_trx_id%TYPE,
679: p_distribution_set_id IN ar_cash_receipts.distribution_set_id%TYPE default NULL,
680: p_ussgl_trx_code IN ar_cash_receipts.ussgl_transaction_code%TYPE default NULL,
685: l_distribution_set_id ar_receivables_trx.default_acctg_distribution_set%TYPE;
686: l_dummy ar_misc_cash_distributions.misc_cash_distribution_id%TYPE;
687: l_misc_cash_dist_rec ar_misc_cash_distributions%ROWTYPE;
688: l_misc_cash_key_value_list gl_ca_utility_pkg.r_key_value_arr; /* MRC */
689: l_crh_ccid ar_cash_receipt_history.account_code_combination_id%TYPE; /*Bug fix 4025652 */
690: l_type ar_receivables_trx.type%TYPE; /*4726219 */
691:
692: l_xla_ev_rec arp_xla_events.xla_events_type;
693:
692: l_xla_ev_rec arp_xla_events.xla_events_type;
693:
694: CURSOR c_hist IS
695: SELECT cash_receipt_history_id
696: FROM ar_cash_receipt_history
697: WHERE current_record_flag = 'Y'
698: AND cash_receipt_id = p_cash_receipt_id;
699:
700: l_crh_id NUMBER;
773:
774: /* bug fix 4025652 */
775: select account_code_combination_id
776: into l_crh_ccid
777: from ar_cash_receipt_history
778: where cash_receipt_id = p_cash_receipt_id
779: and current_record_flag = 'Y';
780:
781: /* -------------------------------------------------------------------+
917:
918: PROCEDURE update_misc_dist(
919: p_cash_receipt_id IN ar_cash_receipts.cash_receipt_id%TYPE,
920: p_amount IN ar_cash_receipts.amount%TYPE,
921: p_acctd_amount IN ar_cash_receipt_history.acctd_amount%TYPE,
922: p_amount_changed_flag IN BOOLEAN,
923: p_distribution_set_id IN ar_cash_receipts.distribution_set_id%TYPE,
924: p_receivables_trx_id IN ar_cash_receipts.receivables_trx_id%TYPE,
925: p_old_distribution_set_id IN ar_cash_receipts.distribution_set_id%TYPE,
923: p_distribution_set_id IN ar_cash_receipts.distribution_set_id%TYPE,
924: p_receivables_trx_id IN ar_cash_receipts.receivables_trx_id%TYPE,
925: p_old_distribution_set_id IN ar_cash_receipts.distribution_set_id%TYPE,
926: p_old_receivables_trx_id IN ar_cash_receipts.receivables_trx_id%TYPE,
927: p_gl_date IN ar_cash_receipt_history.gl_date%TYPE,
928: p_gl_date_changed_flag IN BOOLEAN,
929: p_currency_code IN ar_cash_receipts.currency_code%TYPE,
930: p_exchange_rate IN ar_cash_receipts.exchange_rate%TYPE,
931: p_receipt_date IN ar_cash_receipts.receipt_date%TYPE,
939: l_misc_cash_dist_rec ar_misc_cash_distributions%ROWTYPE;
940: l_old_recs_auto_flag BOOLEAN;
941: l_new_recs_auto_flag BOOLEAN;
942: l_count NUMBER;
943: l_posted ar_cash_receipt_history.posting_control_id%TYPE;
944: l_ae_doc_rec l_ae_doc_rec_type;
945: l_misc_cash_key_value_list gl_ca_utility_pkg.r_key_value_arr;
946: l_old_default_distribution_set NUMBER; --Bug 6416611
947: l_default_distribution_set NUMBER; --Bug 6416611
1058:
1059: IF (l_count > 0) THEN
1060: SELECT distinct posting_control_id
1061: INTO l_posted
1062: FROM ar_cash_receipt_history
1063: WHERE cash_receipt_id = p_cash_receipt_id
1064: AND current_record_flag = 'Y';
1065: END IF;
1066: l_ae_doc_rec.document_type := 'RECEIPT';
1302:
1303: IF (l_count > 0) then
1304: SELECT distinct posting_control_id
1305: INTO l_posted
1306: FROM ar_cash_receipt_history
1307: WHERE cash_receipt_id = p_cash_receipt_id
1308: AND current_record_flag = 'Y';
1309:
1310: IF (l_posted = -3) THEN
1329: p_receipt_date );
1330:
1331: SELECT distinct posting_control_id
1332: INTO l_posted
1333: FROM ar_cash_receipt_history
1334: WHERE cash_receipt_id = p_cash_receipt_id
1335: AND current_record_flag = 'Y';
1336: IF (l_posted = -3) then
1337: IF PG_DEBUG in ('Y', 'C') THEN
1441: IF (l_count > 0) then
1442:
1443: SELECT distinct posting_control_id
1444: INTO l_posted
1445: FROM ar_cash_receipt_history
1446: WHERE cash_receipt_id = p_cash_receipt_id
1447: AND current_record_flag = 'Y';
1448:
1449: IF (l_posted = -3) THEN
1472: p_distribution_set_id);
1473:
1474: SELECT distinct posting_control_id
1475: INTO l_posted
1476: FROM ar_cash_receipt_history
1477: WHERE cash_receipt_id = p_cash_receipt_id
1478: AND current_record_flag = 'Y';
1479: IF (l_posted = -3) then
1480: IF PG_DEBUG in ('Y', 'C') THEN
1529:
1530: PROCEDURE create_mcd_recs(
1531: p_cash_receipt_id IN ar_cash_receipts.cash_receipt_id%TYPE,
1532: p_amount IN ar_cash_receipts.amount%TYPE,
1533: p_acctd_amount IN ar_cash_receipt_history.acctd_amount%TYPE,
1534: p_exchange_rate IN ar_cash_receipts.exchange_rate%TYPE,
1535: p_currency_code IN ar_cash_receipts.currency_code%TYPE,
1536: p_gl_date IN ar_cash_receipt_history.gl_date%TYPE,
1537: p_receipt_date IN ar_cash_receipts.receipt_date%TYPE,
1532: p_amount IN ar_cash_receipts.amount%TYPE,
1533: p_acctd_amount IN ar_cash_receipt_history.acctd_amount%TYPE,
1534: p_exchange_rate IN ar_cash_receipts.exchange_rate%TYPE,
1535: p_currency_code IN ar_cash_receipts.currency_code%TYPE,
1536: p_gl_date IN ar_cash_receipt_history.gl_date%TYPE,
1537: p_receipt_date IN ar_cash_receipts.receipt_date%TYPE,
1538: p_distribution_set_id IN ar_cash_receipts.distribution_set_id%TYPE,
1539: p_ussgl_trx_code IN ar_cash_receipts.ussgl_transaction_code%TYPE
1540: ) IS
1583: distribution_set_id = p_distribution_set_id;
1584:
1585: CURSOR c_hist IS
1586: SELECT cash_receipt_history_id
1587: FROM ar_cash_receipt_history
1588: WHERE current_record_flag = 'Y'
1589: AND cash_receipt_id = p_cash_receipt_id;
1590:
1591: l_crh_id NUMBER;
1811:
1812: PROCEDURE update_manual_dist(
1813: p_cash_receipt_id IN ar_cash_receipts.cash_receipt_id%TYPE,
1814: p_amount IN ar_cash_receipts.amount%TYPE,
1815: p_acctd_amount IN ar_cash_receipt_history.acctd_amount%TYPE,
1816: p_exchange_rate IN ar_cash_receipts.exchange_rate%TYPE,
1817: p_currency_code IN ar_cash_receipts.currency_code%TYPE,
1818: p_gl_date IN ar_cash_receipt_history.gl_date%TYPE,
1819: p_receipt_date IN ar_cash_receipts.receipt_date%TYPE
1814: p_amount IN ar_cash_receipts.amount%TYPE,
1815: p_acctd_amount IN ar_cash_receipt_history.acctd_amount%TYPE,
1816: p_exchange_rate IN ar_cash_receipts.exchange_rate%TYPE,
1817: p_currency_code IN ar_cash_receipts.currency_code%TYPE,
1818: p_gl_date IN ar_cash_receipt_history.gl_date%TYPE,
1819: p_receipt_date IN ar_cash_receipts.receipt_date%TYPE
1820: ) IS
1821:
1822: l_min_unit NUMBER;
2018: p_exchange_rate_attr15 IN ar_rate_adjustments.attribute15%TYPE) IS
2019:
2020: l_radj_rec ar_rate_adjustments%ROWTYPE;
2021: l_radj_id ar_rate_adjustments.rate_adjustment_id%TYPE;
2022: l_crh_id_out ar_cash_receipt_history.cash_receipt_history_id%TYPE;
2023:
2024: BEGIN
2025: IF PG_DEBUG in ('Y', 'C') THEN
2026: arp_standard.debug('arp_process_rct_util.rate_adjust()+');