PACKAGE BODY: APPS.POA_FACTS

Source

1 PACKAGE BODY poa_facts AS
2 /* $Header: poasvp0b.pls 120.1 2005/10/05 11:43:17 nnewadka noship $ */
3 
4   /*
5     NAME
6       populate_facts -
7     DESCRIPTION
8      main function for populating poa fact tables
9      for Oracle Purchasing
10   */
11   --
12   PROCEDURE populate_facts (errbuf	    OUT	NOCOPY VARCHAR2,
13                             retcode	    OUT NOCOPY NUMBER,
14                             p_start_date    IN  VARCHAR2,
15                             p_end_date	    IN  VARCHAR2)
16   IS
17 
18   v_buf		VARCHAR2(240) := NULL;
19   v_start_date 	DATE;
20   v_end_date	DATE;
21 
22   BEGIN
23 
24     errbuf := NULL;
25     retcode := 0;
26 
27     POA_LOG.setup('POAPOPF');
28 
29     SELECT NVL(TO_DATE(p_start_date, 'YYYY/MM/DD HH24:MI:SS'), to_date(1,'J'))
30     INTO v_start_date
31     FROM sys.dual;
32 
33     SELECT NVL(TO_DATE(p_end_date, 'YYYY/MM/DD HH24:MI:SS'), sysdate)
34     INTO v_end_date
35     FROM sys.dual;
36 
37     POA_LOG.put_line('Parameter start_date is: ' ||
38 	fnd_date.date_to_chardate(v_start_date));
39     POA_LOG.put_line(' ');
40 
41     POA_LOG.put_line('Parameter end_date is: ' ||
42 	fnd_date.date_to_chardate(v_end_date));
43     POA_LOG.put_line(' ');
44 
45     poa_savings_main.populate_savings(v_start_date, v_end_date+1);
46 
47     POA_LOG.put_line('Spend Analysis data populated');
48     POA_LOG.put_line(' ');
49 
50 
51     POA_LOG.wrapup('SUCCESS');
52 
53     RETURN;
54 
55   EXCEPTION
56     WHEN others THEN
57 
58      errbuf := sqlerrm;
59      retcode := sqlcode;
60 
61      v_buf := to_char(retcode) || ':' || errbuf;
62      ROLLBACK;
63      POA_LOG.put_line(v_buf);
64      POA_LOG.wrapup('ERROR');
65 
66      RETURN;
67   END populate_facts;
68   --
69 
70 END poa_facts;
71 --