PACKAGE BODY: APPS.MSC_RP_MV_PKG

Source

1 PACKAGE BODY msc_rp_mv_pkg AS
2 /* $Header: MSCRPMVB.pls 120.0.12010000.1 2010/03/17 22:32:57 hulu noship $ */
3 
4 
5 
6 
7 procedure log(p_message varchar2)  is
8 t timestamp;
9 begin
10         select systimestamp into t from dual;
11         fnd_file.put_line(fnd_file.log, to_char(t, 'YYYY-MM-DD HH24:MI:SS')||':
12 '||p_message);
13 end;
14 
15 
16 
17 
18 procedure refresh_one_mv(p_name varchar2) is
19 begin
20      dbms_mview.refresh(p_name);
21 end refresh_one_mv;
22 
23 procedure refresh_rp_mvs(errbuf out nocopy varchar2, retcode out nocopy
24 varchar2) is
25 l_rp_table_list object_names := object_names(
26        'MSC_RP_CATEGORY_MV'
27 );
28 l_name varchar2(50);
29 
30 p_return_status number;
31 p_error_message varchar2(2000);
32 begin
33      for i in 1..l_rp_table_list.count loop
34        l_name := l_rp_table_list(i);
35        log('Refreshing MV : '||l_name||' starts');
36        refresh_one_mv(l_name);
37        log('Refreshing MV : '||l_name||' ends');
38     end loop;
39 
40 
41     exception
42        when others then
43          retcode := 1;
44          errbuf := 'Error while Refreshing MV :'||l_name||': '||sqlerrm;
45      log(errbuf);
46 end refresh_rp_mvs;
47 
48 
49 
50  procedure refresh_rp_mvs  is
51         errbuf varchar2(1000) := '';
52         retcode number := 0;
53  begin
54         refresh_rp_mvs(errbuf, retcode);
55  end refresh_rp_mvs;
56 
57 
58 
59 END msc_rp_mv_pkg;