[Home] [Help]
2341: c.due_date),
2342: c.due_date)>= nvl(sched_hdrs.start_date,c.due_date)
2343: /* Make sure that this payment schedule is not part of a failed final batch */
2344: and not exists (select payment_schedule_id
2345: from ar_interest_lines lines,
2346: ar_interest_headers hdrs,
2347: ar_interest_batches bat
2348: where lines.payment_schedule_id = c.payment_schedule_id
2349: and lines.interest_header_id = hdrs.interest_header_id
3209: b.due_date),
3210: b.due_date )>= nvl(sched_hdrs.start_date,b.due_date)
3211: /* Make sure that this payment schedule is not part of a failed final batch */
3212: and not exists (select payment_schedule_id
3213: from ar_interest_lines lines,
3214: ar_interest_headers hdrs,
3215: ar_interest_batches bat
3216: where lines.payment_schedule_id = b.payment_schedule_id
3217: and lines.interest_header_id = hdrs.interest_header_id
3687: a.due_date),
3688: a.due_date)>= nvl(sched_hdrs.start_date,a.due_date)
3689: /* Make sure that this payment schedule is not part of a failed final batch */
3690: and not exists (select payment_schedule_id
3691: from ar_interest_lines lines,
3692: ar_interest_headers hdrs,
3693: ar_interest_batches bat
3694: where lines.payment_schedule_id = a.payment_schedule_id
3695: and lines.interest_header_id = hdrs.interest_header_id
5057: debug('p_total_workers : '||p_total_workers);
5058: END IF;
5059: /* delete lines first */
5060:
5061: delete from ar_interest_lines
5062: where interest_header_id in (select hdr.interest_header_id
5063: from ar_interest_batches batch,
5064: ar_interest_headers hdr
5065: where batch.batch_status = 'D'
5077: /* delete headers */
5078:
5079: delete from ar_interest_headers hdr
5080: where not exists (select interest_line_id
5081: from ar_interest_lines lines
5082: where hdr.interest_header_id = lines.interest_header_id)
5083: and hdr.request_id <> l_request_id;
5084:
5085: /* Deleting the empty batches are done later in delete_empty_batches */
5313: trx.currency_code,
5314: trx.late_charge_type,
5315: trx.org_id,
5316: trx.display_flag
5317: from ar_interest_lines lines,
5318: ar_late_charge_trx_t trx
5319: where lines.payment_schedule_id = trx.payment_schedule_id
5320: and lines.org_id = trx.org_id
5321: and not exists (select interest_header_id
5369: | PROCEDURE INSERT_INT_LINES |
5370: | |
5371: | DESCRIPTION |
5372: | |
5373: | This procedure is used to insert interest and penalty lines to ar_interest_lines |
5374: | table. |
5375: | |
5376: | PSEUDO CODE/LOGIC |
5377: | |
5376: | PSEUDO CODE/LOGIC |
5377: | |
5378: | |
5379: | The tolerances should be applied on the interest lines before inserting into |
5380: | ar_interest_lines, mainly max_interest_charge. |
5381: | The logic: |
5382: | |
5383: | 1. Sort the interest lines in the order of charge_line_type, rate_start_date, |
5384: | charge_type,receipt_date and fin_charge_charged |
5416: IF l_debug_flag = 'Y' THEN
5417: debug( 'ar_calc_late_charge.insert_int_lines()+' );
5418: END IF;
5419:
5420: insert into ar_interest_lines
5421: (interest_line_id,
5422: interest_header_id,
5423: payment_schedule_id,
5424: type,
5450: process_status,
5451: process_message,
5452: org_id,
5453: object_version_number)
5454: (select ar_interest_lines_s.nextval interest_line_id,
5455: b.interest_header_id,
5456: b.payment_schedule_id,
5457: b.charge_type,
5458: b.class,
5679: --END IF;
5680: RAISE;
5681: END insert_int_lines;
5682:
5683: /* This procedure is used to insert records in ar_interest lines
5684: when the calculation method is average daily balance */
5685:
5686: PROCEDURE insert_int_lines_adb(p_worker_number IN NUMBER,
5687: p_total_workers IN NUMBER) IS
5689: IF l_debug_flag = 'Y' THEN
5690: debug( 'ar_calc_late_charge.insert_int_lines_adb()+' );
5691: END IF;
5692:
5693: insert into ar_interest_lines
5694: (interest_line_id,
5695: interest_header_id,
5696: payment_schedule_id,
5697: type,
5723: process_status,
5724: process_message,
5725: org_id,
5726: object_version_number)
5727: (select ar_interest_lines_s.nextval interest_line_id,
5728: b.interest_header_id,
5729: -99, --payment_schedule_id
5730: decode(b.charge_line_type, 'PENALTY', b.charge_line_type,b.charge_type) charge_type,
5731: b.class,
6744: p_total_workers => l_total_workers);
6745: /* Enhacement 6469663*/
6746: update_interest_amt('PENALTY');
6747: /* If there are records in ar_late_charge_trx_t, insert data into the preview tables
6748: ar_interest_batches, ar_interest_headers and ar_interest_lines */
6749:
6750: select count(*)
6751: into l_count_int_lines
6752: from ar_late_charge_trx_t;