1078: arp_standard.debug('arp_confirmation.update_cr_history_confirm()+');
1079:
1080: -- fetch current record from ar_cash_receipt_history
1081:
1082: arp_cr_history_pkg.fetch_f_crid(p_cr_rec.cash_receipt_id, l_crh_rec_old);
1083:
1084: arp_standard.debug('-- current history record fetched. crh_id = '||
1085: to_char(l_crh_rec_old.cash_receipt_history_id));
1086:
1120: l_crh_rec_new.prv_stat_cash_receipt_hist_id := l_crh_rec_old.cash_receipt_history_id;
1121:
1122: -- insert new current record into cash receipt history table
1123:
1124: arp_cr_history_pkg.insert_p(l_crh_rec_new, l_crh_id_new);
1125:
1126: arp_standard.debug('-- new crh record inserted. crh_id = ' ||
1127: to_char(l_crh_id_new));
1128:
1128:
1129: -- link new current record to previous current record and update the latter:
1130:
1131: l_crh_rec_old.reversal_cash_receipt_hist_id := l_crh_id_new;
1132: arp_cr_history_pkg.update_p(l_crh_rec_old);
1133:
1134: arp_standard.debug('-- previous record updated');
1135:
1136: -- create ar_distributions record for new history record:
1770: arp_standard.debug('arp_confirmation.update_cr_history_unconfirm()+');
1771:
1772: -- fetch current record from ar_cash_receipt_history
1773:
1774: arp_cr_history_pkg.fetch_f_crid(p_cr_rec.cash_receipt_id, l_crh_rec_old);
1775:
1776: -- update columns in existing record
1777:
1778: l_crh_rec_old.reversal_gl_date := p_confirm_gl_date;
1789: -- to get the correct batch_id, we have to get it from the record
1790: -- that is pointed to by prv_stat_cash_receipt_hist_id in the current
1791: -- crh record.
1792:
1793: arp_cr_history_pkg.fetch_p(l_crh_rec_old.prv_stat_cash_receipt_hist_id,
1794: l_crh_rec_prev_stat);
1795:
1796: l_batch_id := l_crh_rec_prev_stat.batch_id;
1797: l_crh_id_rev := l_crh_rec_prev_stat.reversal_cash_receipt_hist_id;
1823: l_crh_rec_new.prv_stat_cash_receipt_hist_id := l_crh_rec_old.cash_receipt_history_id;
1824:
1825: -- insert new current record into cash receipt history table
1826:
1827: arp_cr_history_pkg.insert_p(l_crh_rec_new, l_crh_id_new);
1828:
1829: -- link new current record to previous current record and update the latter:
1830:
1831: l_crh_rec_old.reversal_cash_receipt_hist_id := l_crh_id_new;
1828:
1829: -- link new current record to previous current record and update the latter:
1830:
1831: l_crh_rec_old.reversal_cash_receipt_hist_id := l_crh_id_new;
1832: arp_cr_history_pkg.update_p(l_crh_rec_old);
1833:
1834:
1835: -- create ar_distributions record for new history record.
1836: -- first fetch record that was created for the history table