1 PACKAGE BODY POA_SUPPERF_INIT_PKG AS
2 /* $Header: POASPINB.pls 115.0 99/07/15 20:04:03 porting shi $: */
3
4 -- init_supplier_performance
5 -- -----------------------------
6 -- This is the procedure that is called by the concurrenct program to
7 -- populate the supplier performance fact table. Instead of purging
8 -- all rows and re-inserting them, it first gets the most recent update
9 -- date from the table and only inserts rows later than that date or row
10 -- that need to be updated.
11 --
12
13 PROCEDURE init_supplier_performance(p_start_date IN DATE, p_end_date IN DATE)
14 IS
15 v_num_rows NUMBER:= 0;
16 x_progress VARCHAR2(3) := NULL;
17 BEGIN
18
19 POA_LOG.debug_line('init_supplier_performance: entered');
20 POA_LOG.put_line(' ');
21
22 poa_supperf_populate_pkg.populate_fact_table(p_start_date, p_end_date);
23
24 EXCEPTION
25 WHEN OTHERS THEN
26 POA_LOG.put_line('init_supplier_perf: ' || x_progress
27 || ' ' || sqlerrm);
28 POA_LOG.put_line(' ');
29 RAISE;
30
31 END init_supplier_performance;
32
33
34 END POA_SUPPERF_INIT_PKG;
35
36
37