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;