[Home] [Help]
403: int_lines.last_charge_date)))) eff_last_charge_date,
404: decode(cust_site.interest_calculation_period,
405: 'DAILY',int_lines.due_date,
406: 'MONTHLY',first_day(int_lines.due_date)) eff_due_date
407: from ar_interest_lines int_lines,
408: ar_interest_headers int_headers,
409: ar_cash_receipts cr,
410: ar_payment_schedules ps,
411: ar_lc_cust_sites_t cust_site,
2740: c.due_date),
2741: c.due_date)>= nvl(sched_hdrs.start_date,c.due_date)
2742: /* Make sure that this payment schedule is not part of a failed final batch */
2743: and not exists (select payment_schedule_id
2744: from ar_interest_lines lines,
2745: ar_interest_headers hdrs,
2746: ar_interest_batches bat
2747: where lines.payment_schedule_id = c.payment_schedule_id
2748: and lines.interest_header_id = hdrs.interest_header_id
3612: b.due_date),
3613: b.due_date )>= nvl(sched_hdrs.start_date,b.due_date)
3614: /* Make sure that this payment schedule is not part of a failed final batch */
3615: and not exists (select payment_schedule_id
3616: from ar_interest_lines lines,
3617: ar_interest_headers hdrs,
3618: ar_interest_batches bat
3619: where lines.payment_schedule_id = b.payment_schedule_id
3620: and lines.interest_header_id = hdrs.interest_header_id
4101: a.due_date),
4102: a.due_date)>= nvl(sched_hdrs.start_date,a.due_date)
4103: /* Make sure that this payment schedule is not part of a failed final batch */
4104: and not exists (select payment_schedule_id
4105: from ar_interest_lines lines,
4106: ar_interest_headers hdrs,
4107: ar_interest_batches bat
4108: where lines.payment_schedule_id = a.payment_schedule_id
4109: and lines.interest_header_id = hdrs.interest_header_id
5550: debug('p_total_workers : '||p_total_workers);
5551: END IF;
5552: /* delete lines first */
5553:
5554: delete from ar_interest_lines
5555: where interest_header_id in (select hdr.interest_header_id
5556: from ar_interest_batches batch,
5557: ar_interest_headers hdr
5558: where batch.batch_status = 'D'
5570: /* delete headers */
5571:
5572: delete from ar_interest_headers hdr
5573: where not exists (select interest_line_id
5574: from ar_interest_lines lines
5575: where hdr.interest_header_id = lines.interest_header_id)
5576: and hdr.request_id <> l_request_id;
5577:
5578: /* Deleting the empty batches are done later in delete_empty_batches */
5806: trx.currency_code,
5807: trx.late_charge_type,
5808: trx.org_id,
5809: trx.display_flag
5810: from ar_interest_lines lines,
5811: ar_late_charge_trx_t trx
5812: where lines.payment_schedule_id = trx.payment_schedule_id
5813: and lines.org_id = trx.org_id
5814: and lines.type=trx.charge_type
5864: | PROCEDURE INSERT_INT_LINES |
5865: | |
5866: | DESCRIPTION |
5867: | |
5868: | This procedure is used to insert interest and penalty lines to ar_interest_lines |
5869: | table. |
5870: | |
5871: | PSEUDO CODE/LOGIC |
5872: | |
5871: | PSEUDO CODE/LOGIC |
5872: | |
5873: | |
5874: | The tolerances should be applied on the interest lines before inserting into |
5875: | ar_interest_lines, mainly max_interest_charge. |
5876: | The logic: |
5877: | |
5878: | 1. Sort the interest lines in the order of charge_line_type, rate_start_date, |
5879: | charge_type,receipt_date and fin_charge_charged |
5912: IF l_debug_flag = 'Y' THEN
5913: debug( 'ar_calc_late_charge.insert_int_lines()+' );
5914: END IF;
5915:
5916: insert into ar_interest_lines
5917: (interest_line_id,
5918: interest_header_id,
5919: payment_schedule_id,
5920: type,
5947: process_message,
5948: org_id,
5949: object_version_number,
5950: cash_receipt_id)
5951: (select ar_interest_lines_s.nextval interest_line_id,
5952: b.interest_header_id,
5953: b.payment_schedule_id,
5954: b.charge_type,
5955: b.class,
6185: --END IF;
6186: RAISE;
6187: END insert_int_lines;
6188:
6189: /* This procedure is used to insert records in ar_interest lines
6190: when the calculation method is average daily balance */
6191:
6192: PROCEDURE insert_int_lines_adb(p_worker_number IN NUMBER,
6193: p_total_workers IN NUMBER) IS
6195: IF l_debug_flag = 'Y' THEN
6196: debug( 'ar_calc_late_charge.insert_int_lines_adb()+' );
6197: END IF;
6198:
6199: insert into ar_interest_lines
6200: (interest_line_id,
6201: interest_header_id,
6202: payment_schedule_id,
6203: type,
6229: process_status,
6230: process_message,
6231: org_id,
6232: object_version_number)
6233: (select ar_interest_lines_s.nextval interest_line_id,
6234: b.interest_header_id,
6235: -99, --payment_schedule_id
6236: decode(b.charge_line_type, 'PENALTY', b.charge_line_type,b.charge_type) charge_type,
6237: b.class,
7256: p_total_workers => l_total_workers);
7257: /* Enhacement 6469663*/
7258: update_interest_amt('PENALTY');
7259: /* If there are records in ar_late_charge_trx_t, insert data into the preview tables
7260: ar_interest_batches, ar_interest_headers and ar_interest_lines */
7261:
7262: select count(*)
7263: into l_count_int_lines
7264: from ar_late_charge_trx_t;