1: package body okc_article_keyword_pvt as
2: -- $Header: OKCVAKWB.pls 120.6.12010000.2 2008/10/24 08:04:32 ssreekum ship $
3:
4: retcode_success constant varchar2(1) := '0';
5: retcode_warning constant varchar2(1) := '1';
127: counter number;
128: request_id fnd_concurrent_requests.request_id%type;
129: begin
130: rindex := dbms_application_info.set_session_longops_nohint;
131: request_id := okc_article_keyword_pvt.request_id('OKCARTSYNCCTX');
132: dbms_application_info.set_session_longops(rindex, slno,
133: 'Synchronize Clause Text Index', request_id, 0, 0, 1,
134: 'OKCARTSYNCCTX concurrent program', 'steps');
135:
168: as
169: request_id fnd_concurrent_requests.request_id%type;
170: begin
171: rindex := dbms_application_info.set_session_longops_nohint;
172: request_id := okc_article_keyword_pvt.request_id('OKCARTOPTCTX');
173: dbms_application_info.set_session_longops(rindex, slno,
174: 'Optimize Clause Text Index', request_id, 0, 0, 2,
175: 'OKCARTOPTCTX concurrent program', 'steps');
176:
208: is
209: request_id fnd_concurrent_requests.request_id%type;
210: begin
211: rindex := dbms_application_info.set_session_longops_nohint;
212: request_id := okc_article_keyword_pvt.request_id('OKCARTCRTCTX');
213: dbms_application_info.set_session_longops(rindex, slno,
214: 'Create Clause Text Index', request_id, request_id, 0, 18,
215: 'OKCARTCRTCTX concurrent program', 'steps');
216:
230: generic exception;
231:
232: request_id fnd_concurrent_requests.request_id%type;
233: begin
234: request_id := okc_article_keyword_pvt.request_id('OKCARTCRTCTX');
235: fnd_file.put_line(fnd_file.log,'OKC_ARTICLES_CTX text index creation started');
236:
237: begin
238: fnd_file.put_line(fnd_file.log,'Checking OKC_ARTICLE_KEYWORD_PVT package ...');
234: request_id := okc_article_keyword_pvt.request_id('OKCARTCRTCTX');
235: fnd_file.put_line(fnd_file.log,'OKC_ARTICLES_CTX text index creation started');
236:
237: begin
238: fnd_file.put_line(fnd_file.log,'Checking OKC_ARTICLE_KEYWORD_PVT package ...');
239: select owner into apps
240: from sys.dba_objects
241: where object_name = 'OKC_ARTICLE_KEYWORD_PVT'
242: and object_type = 'PACKAGE';
237: begin
238: fnd_file.put_line(fnd_file.log,'Checking OKC_ARTICLE_KEYWORD_PVT package ...');
239: select owner into apps
240: from sys.dba_objects
241: where object_name = 'OKC_ARTICLE_KEYWORD_PVT'
242: and object_type = 'PACKAGE';
243: fnd_file.put_line(fnd_file.log,'OKC_ARTICLE_KEYWORD_PVT package exists');
244: fnd_file.put_line(fnd_file.log,'OKC_ARTICLE_KEYWORD_PVT package owner is '||apps);
245:
239: select owner into apps
240: from sys.dba_objects
241: where object_name = 'OKC_ARTICLE_KEYWORD_PVT'
242: and object_type = 'PACKAGE';
243: fnd_file.put_line(fnd_file.log,'OKC_ARTICLE_KEYWORD_PVT package exists');
244: fnd_file.put_line(fnd_file.log,'OKC_ARTICLE_KEYWORD_PVT package owner is '||apps);
245:
246: dbms_application_info.set_session_longops( rindex, slno, null, request_id, request_id, 1, 18);
247:
240: from sys.dba_objects
241: where object_name = 'OKC_ARTICLE_KEYWORD_PVT'
242: and object_type = 'PACKAGE';
243: fnd_file.put_line(fnd_file.log,'OKC_ARTICLE_KEYWORD_PVT package exists');
244: fnd_file.put_line(fnd_file.log,'OKC_ARTICLE_KEYWORD_PVT package owner is '||apps);
245:
246: dbms_application_info.set_session_longops( rindex, slno, null, request_id, request_id, 1, 18);
247:
248: exception when others then
245:
246: dbms_application_info.set_session_longops( rindex, slno, null, request_id, request_id, 1, 18);
247:
248: exception when others then
249: fnd_file.put_line(fnd_file.log,'ERROR: OKC_ARTICLE_KEYWORD_PVT package doesn''t exist');
250: raise generic;
251: end;
252:
253: begin
265: raise generic;
266: end;
267:
268: begin
269: execute immediate 'grant execute on '||apps||'.OKC_ARTICLE_KEYWORD_PVT to '||okc;
270: fnd_file.put_line(fnd_file.log,'Granted execute on '||apps||'.OKC_ARTICLE_KEYWORD_PVT to '||okc);
271:
272: dbms_application_info.set_session_longops( rindex, slno, null, request_id, request_id, 3, 18);
273:
266: end;
267:
268: begin
269: execute immediate 'grant execute on '||apps||'.OKC_ARTICLE_KEYWORD_PVT to '||okc;
270: fnd_file.put_line(fnd_file.log,'Granted execute on '||apps||'.OKC_ARTICLE_KEYWORD_PVT to '||okc);
271:
272: dbms_application_info.set_session_longops( rindex, slno, null, request_id, request_id, 3, 18);
273:
274: exception when others then
271:
272: dbms_application_info.set_session_longops( rindex, slno, null, request_id, request_id, 3, 18);
273:
274: exception when others then
275: fnd_file.put_line(fnd_file.log,'ERROR: Couldn''t grant execute on '||apps||'.OKC_ARTICLE_KEYWORD_PVT to '||okc);
276: raise generic;
277: end;
278:
279: -- ===================================================================
298: fnd_file.put_line(fnd_file.log,'Creating new OKC_ARTICLES_DATASTORE preference');
299: end;
300: ad_ctx_ddl.create_preference('okc_articles_datastore','multi_column_datastore');
301: ad_ctx_ddl.set_attribute('okc_articles_datastore','columns',
302: apps||'.okc_article_keyword_pvt.article_title(article_version_id) art_title,
303: display_name art_disp, article_description art_descr, article_text art_text, additional_instructions art_instr');
304: fnd_file.put_line(fnd_file.log,'OKC_ARTICLES_DATASTORE preference has been created successfully as MULTI_COLUMN_DATASTORE');
305:
306: dbms_application_info.set_session_longops( rindex, slno, null, request_id, request_id, 4, 18);