[Home] [Help]
198:
199:
200: cursor c_last_run is
201: select distinct last_accrual_date
202: from fv_ar_controls
203: where last_accrual_date = trunc(sysdate);
204:
205: cursor c_last_run_sob(cv_sob_id fv_ar_controls.payment_schedule_id%TYPE) is
206: select fac.last_accrual_date
201: select distinct last_accrual_date
202: from fv_ar_controls
203: where last_accrual_date = trunc(sysdate);
204:
205: cursor c_last_run_sob(cv_sob_id fv_ar_controls.payment_schedule_id%TYPE) is
206: select fac.last_accrual_date
207: from ar_payment_schedules aps,
208: fv_ar_controls fac,
209: ra_customer_trx rct
204:
205: cursor c_last_run_sob(cv_sob_id fv_ar_controls.payment_schedule_id%TYPE) is
206: select fac.last_accrual_date
207: from ar_payment_schedules aps,
208: fv_ar_controls fac,
209: ra_customer_trx rct
210: where aps.payment_schedule_id = fac.payment_schedule_id
211: and rct.customer_trx_id = aps.customer_trx_id
212: and rct.set_of_books_id = cv_sob_id
306: begin
307: l_module_name := g_module_name || 'check_last_accrual';
308: select distinct trunc(last_accrual_date)
309: into accrual_date
310: from fv_ar_controls
311: where payment_schedule_id = schedule_id
312: and created_from = charge_type;
313:
314: return accrual_date;
967: /* This procedure creates a new debit memo */
968:
969: procedure create_new_dm(dollars number) is
970: l_module_name VARCHAR2(200);
971: date_exists fv_ar_controls.last_accrual_date%TYPE;
972: begin
973:
974: l_module_name := g_module_name || 'create_new_dm';
975: -- call procedure to setup ra_interface_lines column values
1007:
1008: begin
1009: select distinct last_accrual_date
1010: into date_exists
1011: from fv_ar_controls
1012: where payment_schedule_id = schedule_id
1013: and created_from = charge_type;
1014:
1015: exception
1015: exception
1016: when no_data_found then
1017: statement_no := 'G';
1018:
1019: insert into fv_ar_controls
1020: (payment_schedule_id, last_accrual_date, created_from, org_id)
1021: values(schedule_id, trunc(sysdate), charge_type, v_org_id);
1022: end;
1023:
1239: p_adjustment_id_o => v_adjustment_id_o -- Out variable
1240: );
1241: create_record_temp('A') ; -- Creates a record in temp table for Detail report
1242: begin
1243: update fv_ar_controls
1244: set last_accrual_date = trunc(sysdate)
1245: where payment_schedule_id = schedule_id
1246: and created_from = charge_type;
1247:
1247:
1248: exception
1249: when no_data_found then
1250: statement_no := 'F';
1251: insert into fv_ar_controls(last_accrual_date, payment_schedule_id,
1252: created_from, org_id)
1253: values(trunc(sysdate), schedule_id, charge_type, v_org_id);
1254: end;
1255:
1266: procedure cleanup(var_batch_source_name varchar2)
1267: is
1268: l_module_name VARCHAR2(200) ;
1269: -- this procedure is called when AutoInvoice fails .
1270: -- Records from interface tables, control record from fv_ar_controls
1271: -- and also record for invoice from fv_ar_controls have to be deleted
1272:
1273:
1274: cursor error_records_c(x_batch_source_name varchar2) is
1267: is
1268: l_module_name VARCHAR2(200) ;
1269: -- this procedure is called when AutoInvoice fails .
1270: -- Records from interface tables, control record from fv_ar_controls
1271: -- and also record for invoice from fv_ar_controls have to be deleted
1272:
1273:
1274: cursor error_records_c(x_batch_source_name varchar2) is
1275: select interface_line_attribute4, header_attribute3, interface_line_id
1282: begin
1283: l_module_name := g_module_name || 'cleanup';
1284:
1285: for error_records_rec IN error_records_c(var_batch_source_name) loop
1286: delete from fv_ar_controls
1287: where payment_schedule_id = error_records_rec.interface_line_attribute4
1288: and created_from = error_records_rec.header_attribute3;
1289:
1290: delete from ra_interface_distributions
2167:
2168: /*
2169: Removing this per discussions 1/23 with K. Conquest/H.Gensler
2170: and ract.trx_date >= (select nvl(last_assignment_date,trunc(sysdate))
2171: from fv_ar_controls)
2172: */
2173:
2174: statement_no := 'Control';
2175: