PACKAGE BODY: APPS.CS_KB_CTX_INDEX_CONC_PKG

Source

1 PACKAGE BODY CS_KB_CTX_INDEX_CONC_PKG AS
2 /* $Header: csksynib.pls 115.0 2000/02/29 19:45:21 pkm ship    $ */
3 
4 /* errbuf = err messages
5    retcode = 0 success, 1 = warning, 2=error
6 */
7 
8 PROCEDURE Sync_All_Index  (ERRBUF OUT VARCHAR2, RETCODE OUT NUMBER)
9 is
10   l_errbuf varchar2(2000);
11   l_retcode number;
12 begin
13   Sync_Element_Index (l_errbuf, l_retcode);
14   Sync_Set_Index (l_errbuf, l_retcode);
15   Sync_Forum_Index (l_errbuf, l_retcode);
16   retcode :=0;
17 end Sync_All_Index;
18 
19 PROCEDURE Sync_Element_Index  (ERRBUF OUT VARCHAR2, RETCODE OUT NUMBER)
20   is
21   sql_stmt1 varchar2(250) :=
22     'alter index cs.cs_kb_elements_tl_N1 REBUILD parameters ( ''SYNC'')';
23   sql_stmt2 varchar2(250) :=
24     'alter index cs.cs_kb_elements_tl_N2 REBUILD parameters ( ''SYNC'')';
25 
26 begin
27   EXECUTE IMMEDIATE sql_stmt1;
28   EXECUTE IMMEDIATE sql_stmt2;
29   commit;
30   retcode := 0;
31 exception
32   when others then
33     EXECUTE IMMEDIATE 'drop index cs.cs_kb_elements_tl_N1';
34     EXECUTE IMMEDIATE 'drop index cs.cs_kb_elements_tl_N2';
35     raise;
36 end Sync_Element_Index;
37 
38 
39 PROCEDURE Sync_Set_Index  (ERRBUF OUT VARCHAR2, RETCODE OUT NUMBER)
40   is
41   sql_stmt1 varchar2(250) :=
42     'alter index cs.cs_kb_sets_tl_N1 REBUILD parameters ( ''SYNC'')';
43   sql_stmt2 varchar2(250) :=
44     'alter index cs.cs_kb_sets_tl_N2 REBUILD parameters ( ''SYNC'')';
45   sql_stmt3 varchar2(250) :=
46     'alter index cs.cs_kb_sets_tl_N3 REBUILD parameters ( ''SYNC'')';
47 begin
48   EXECUTE IMMEDIATE sql_stmt1;
49   EXECUTE IMMEDIATE sql_stmt2;
50   EXECUTE IMMEDIATE sql_stmt3;
51   commit;
52   retcode := 0;
53 exception
54   when others then
55     EXECUTE IMMEDIATE 'drop index cs.cs_kb_sets_tl_N1';
56     EXECUTE IMMEDIATE 'drop index cs.cs_kb_sets_tl_N2';
57     EXECUTE IMMEDIATE 'drop index cs.cs_kb_sets_tl_N3';
58     raise;
59 end Sync_Set_Index;
60 
61 
62 PROCEDURE Sync_Forum_Index  (ERRBUF OUT VARCHAR2, RETCODE OUT NUMBER)
63   is
64   sql_stmt1 varchar2(250) :=
65     'alter index cs.cs_forum_messages_tl_N1 REBUILD parameters ( ''SYNC'')';
66 begin
67   EXECUTE IMMEDIATE sql_stmt1;
68 
69   commit;
70   retcode := 0;
71 exception
72   when others then
73     EXECUTE IMMEDIATE 'drop index cs.cs_forum_messages_tl_N1';
74     raise;
75 end Sync_Forum_Index;
76 
77 
78 procedure cs_kb_del_conc_prog
79  is
80 begin
81   fnd_program.delete_program ('CS_KB_SYNC_INDEX', 'CS');
82   fnd_program.delete_executable ('CS_KB_SYNC_INDEX', 'CS');
83   commit;
84 end cs_kb_del_conc_prog;
85 
86 
87 end CS_KB_CTX_INDEX_CONC_PKG;