PACKAGE BODY: APPS.ONT_OS_MV_REFRESH

Source

1 PACKAGE BODY ONT_OS_MV_REFRESH AS
2 /* $Header: ontmvreb.pls 120.1 2006/03/29 16:54:46 spooruli noship $ */
3 
4 PROCEDURE do_refresh(
5 errbuf OUT NOCOPY VARCHAR2,
6 
7 retcode OUT NOCOPY VARCHAR2,
8 
9 	p_mv_name			IN	VARCHAR2
10 );
11 
12 PROCEDURE refresh_booked_orders(
13 errbuf OUT NOCOPY VARCHAR2,
14 
15 retcode OUT NOCOPY VARCHAR2
16 
17 ) IS
18 --
19 l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
20 --
21 BEGIN
22 null;
23 /*	do_refresh(errbuf, retcode, 'ONT_BOOKED_ORDERS_MV');*/
24 END;
25 
26 
27 PROCEDURE refresh_shipped_orders(
28 errbuf OUT NOCOPY VARCHAR2,
29 
30 retcode OUT NOCOPY VARCHAR2
31 
32 ) IS
33 --
34 l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
35 --
36 BEGIN
37 null;
38 /*
39 	do_refresh(errbuf, retcode, 'ONT_SHIPPED_ORDERS_MV');
40 */
41 END;
42 
43 PROCEDURE refresh_summary_mv(
44 errbuf OUT NOCOPY VARCHAR2,
45 
46 retcode OUT NOCOPY VARCHAR2
47 
48 ) IS
49 --
50 l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
51 --
52 BEGIN
53 null;
54 /*
55 	do_refresh(errbuf, retcode, 'ONT_OS_SUMMARY_MV');
56 */
57 END;
58 
59 PROCEDURE do_refresh(
60 errbuf OUT NOCOPY VARCHAR2,
61 
62 retcode OUT NOCOPY VARCHAR2,
63 
64         p_mv_name                 IN      VARCHAR2
65 ) IS
66         l_rewrite_enabled       VARCHAR2(1);
67 	l_owner			VARCHAR2(30);
68 
69 --
70 l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
71 --
72 BEGIN
73 null;
74 /*
75         select REWRITE_ENABLED
76         INTO l_rewrite_enabled
77         from dba_mview_analysis where mview_name= p_mv_name;
78 
79 --	select distinct owner into l_owner from all_objects where object_name = p_mv_name;
80 
81         IF  l_rewrite_enabled = 'N'
82           THEN
83 
84                 dbms_mview.refresh(p_mv_name, 'A', '', TRUE, FALSE, 0,0,0, TRUE);
85 
86         END IF;
87 */
88 EXCEPTION
89       WHEN NO_DATA_FOUND THEN
90       null;
91  /*       Errbuf := p_mv_name||' Does Not Exist in Table dba_mview_analysis...Going Ahead with the refresh';
92         dbms_mview.refresh(p_mv_name, 'A', '', TRUE, FALSE, 0,0,0, TRUE);*/
93       WHEN OTHERS THEN
94      null;
95 /*
96         Errbuf := fnd_message.get||'     '||SQLERRM;
97         Retcode := 2;*/
98 END;
99 
100 
101 END;