PACKAGE BODY: APPS.JTF_TASK_IDX_UTL

Source

1 PACKAGE BODY JTF_TASK_IDX_UTL AS
2 /* $Header: jtfptkib.pls 115.4 2004/06/01 20:53:25 sachoudh noship $ */
3 
4     PROCEDURE sync_index(errbuf  OUT NOCOPY VARCHAR2
5                         ,retcode OUT NOCOPY NUMBER)
6     IS
7          l_return_status BOOLEAN;
8          l_status        VARCHAR2(1);
9          l_oracle_schema VARCHAR2(30);
10          l_industry      VARCHAR2(1);
11     BEGIN
12          l_return_status := FND_INSTALLATION.GET_APP_INFO(
13          application_short_name => 'JTF',
14          status                 => l_status,
15          industry               => l_industry,
16          oracle_schema          => l_oracle_schema);
17 
18          if (NOT l_return_status) or (l_oracle_schema IS NULL)
19          then
20          -- defaulted to the JTF
21          l_oracle_schema := 'JTF';
22          end if;
23 
24          retcode := 0;
25          --ad_ctx_ddl.sync_index(idx_name => 'JTF.JTF_TASKS_TL_IM');
26          ad_ctx_ddl.sync_index(idx_name => l_oracle_schema||'.JTF_TASKS_TL_IM');
27     EXCEPTION
28         WHEN OTHERS THEN
29             errbuf := SUBSTR(SQLERRM, 1, 80);
30             retcode := 2;
31     END sync_index;
32 
33 END JTF_TASK_IDX_UTL;