[Home] [Help]
PACKAGE BODY: APPS.EAM_SYNC_WO_TEXT_INDEX_PVT
Source
1 PACKAGE BODY EAM_SYNC_WO_TEXT_INDEX_PVT AS
2 /* $Header: EAMVWTSB.pls 120.0 2006/09/20 15:10:36 cboppana noship $ */
3
4
5 -- -----------------------------------------------------------------------------
6 -- Private Globals
7 -- -----------------------------------------------------------------------------
8
9 g_installed BOOLEAN;
10 g_inst_status VARCHAR2(1);
11 g_industry VARCHAR2(1);
12 g_Prod_Schema VARCHAR2(30);
13
14 /***************************************************************************
15 --
16 -- Copyright (c) 2002 Oracle Corporation, Redwood Shores, CA, USA
17 -- All rights reserved.
18 --
19 -- FILENAME
20 --
21 -- EAMVWTSB.pls
22 --
23 -- DESCRIPTION
24 --
25 -- Body of package EAM_SYNC_WO_TEXT_INDEX_PVT
26
27 ***************************************************************************/
28
29 l_retcode_success CONSTANT VARCHAR2(1) := '0';
30 l_retcode_warning CONSTANT VARCHAR2(1) := '1';
31 l_retcode_error CONSTANT VARCHAR2(1) := '2';
32
33 PROCEDURE sync IS
34 l_count number;
35 l_ctx_schema varchar2(20);
36 BEGIN
37
38 l_ctx_schema := 'CTXSYS';
39
40 SELECT count(*) into l_count
41 FROM all_indexes
42 WHERE (owner = g_prod_schema OR owner = USER OR owner = l_ctx_schema)
43 AND table_name = 'EAM_WORK_ORDER_TEXT' AND index_name = 'EAM_WORK_ORDER_TEXT_CTX1'
44 AND status = 'VALID' AND domidx_status = 'VALID' AND domidx_opstatus = 'VALID';
45
46 IF (l_count > 0) THEN
47 ad_ctx_ddl.sync_index(g_Prod_Schema || '.' || 'EAM_WORK_ORDER_TEXT_CTX1');
48 END IF;
49
50 EXCEPTION
51 WHEN OTHERS THEN
52 RAISE;
53 END;
54
55 PROCEDURE sync_ctx(errbuf OUT NOCOPY VARCHAR2, retcode OUT NOCOPY VARCHAR2) IS
56 l_api_name CONSTANT VARCHAR2(30) := 'EAM_SYNC_WO_TEXT_INDEX_PVT';
57 l_api_version CONSTANT VARCHAR2(30) := 1.0;
58 BEGIN
59 sync;
60 retcode := l_retcode_success;
61 EXCEPTION
62 WHEN OTHERS THEN
63 retcode := l_retcode_error;
64 errbuf := SUBSTR(sqlerrm,1,200);
65 END;
66
67 -- *****************************************************************************
68 -- ** Package initialization block **
69 -- *****************************************************************************
70
71 BEGIN
72 -----------------------------------------------------------------
73 -- Determine index schema and store in a private global variable
74 ------------------------------------------------------------------
75
76 g_installed := FND_INSTALLATION.Get_App_Info ('EAM', g_inst_status, g_industry, g_Prod_Schema);
77
78
79 END;