[Home] [Help]
106: FUNCTION get_next_hdr_id RETURN NUMBER IS
107: l_next_hdr_id NUMBER;
108: BEGIN
109:
110: select ar_interest_headers_s.nextval
111: into l_next_hdr_id
112: from dual;
113:
114: return l_next_hdr_id;
1281: decode(:l_total_workers,:l_worker_number,0,:l_worker_number))a
1282: /* Make sure that this customer, site and currency combination is not
1283: part of a failed final batch */
1284: WHERE not exists (select ''exists failed batch''
1285: from ar_interest_headers hdr,
1286: ar_interest_batches bat
1287: where hdr.customer_id = a.customer_id
1288: and hdr.customer_site_use_id = a.customer_site_use_id
1289: and hdr.currency_code = a.currency_code
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
2350: and hdrs.interest_batch_id = bat.interest_batch_id
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
3218: and hdrs.interest_batch_id = bat.interest_batch_id
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
3696: and hdrs.interest_batch_id = bat.interest_batch_id
4451: a.min_fc_balance_percent) b
4452: /* Make sure that this customer, site and currency combination is not
4453: part of a failed final batch */
4454: where not exists (select 'exists failed batch'
4455: from ar_interest_headers hdr,
4456: ar_interest_batches bat
4457: where hdr.customer_id = b.customer_id
4458: and hdr.customer_site_use_id = b.site_use_id
4459: and hdr.currency_code = b.currency_code
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'
5066: and batch.interest_batch_id = hdr.interest_batch_id
5067: and mod(nvl(hdr.customer_site_use_id,0),p_total_workers) =
5068: decode(p_total_workers,p_worker_number,0,p_worker_number)
5075: and nvl(trx.legal_entity_id,-99) = nvl(hdr.legal_entity_id,-99)
5076: and trx.org_id = hdr.org_id));
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;
5192: IF l_debug_flag = 'Y' THEN
5193: debug( 'ar_calc_late_charge.insert_int_headers()+' );
5194: END IF;
5195:
5196: insert into ar_interest_headers
5197: (interest_header_id,
5198: interest_batch_id,
5199: customer_id,
5200: customer_site_use_id,
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
5322: from ar_interest_headers headers
5323: where headers.interest_header_id = lines.interest_header_id)
5324: and mod(nvl(trx.customer_site_use_id,0),p_total_workers) =
5325: decode(p_total_workers,p_worker_number,0,p_worker_number)
5326: /*Bug fix 5290709: If display flag is No, we should not consider this record if there is another record
5888: END IF;
5889:
5890: delete from ar_interest_batches bat
5891: where not exists (select interest_header_id
5892: from ar_interest_headers hdr
5893: where bat.interest_batch_id = hdr.interest_batch_id)
5894: and ( request_id = l_request_id
5895: OR batch_status = 'D') ;
5896:
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;
7076: IF p_mode = 'F' THEN
7077: update ar_interest_batches bat
7078: set bat.transferred_status = 'S'
7079: where not exists (select hdr.interest_header_id
7080: from ar_interest_headers hdr
7081: where bat.interest_batch_id = hdr.interest_batch_id
7082: and hdr.process_status <> 'S')
7083: and bat.request_id = l_request_id;
7084:
7084:
7085: update ar_interest_batches bat
7086: set bat.transferred_status = 'E'
7087: where exists (select hdr.interest_header_id
7088: from ar_interest_headers hdr
7089: where bat.interest_batch_id = hdr.interest_batch_id
7090: and hdr.process_status <> 'S')
7091: and bat.request_id = l_request_id;
7092: END IF;