PACKAGE BODY: APPS.OKI_DBI_RESET_PVT

Source

1 PACKAGE BODY OKI_DBI_RESET_PVT AS
2 /* $Header: OKIRIRSB.pls 115.7 2002/11/25 18:13:27 rpotnuru noship $ */
3 
4 /* ***************************************************
5    Procedure to reset OKI DBI table
6    *************************************************** */
7   PROCEDURE reset_base_tables  (
8                                   errbuf  OUT NOCOPY VARCHAR2,
9                                   retcode OUT NOCOPY VARCHAR2
10                                 ) IS
11      l_sql_string   VARCHAR2(4000);
12 
13      l_oki_schema          VARCHAR2(30);
14      l_status              VARCHAR2(30);
15      l_industry            VARCHAR2(30);
16 
17 
18   BEGIN
19    retcode := 0 ;
20 
21    IF (FND_INSTALLATION.GET_APP_INFO('OKI', l_status, l_industry, l_oki_schema)) THEN
22 
23      l_sql_string := 'TRUNCATE TABLE ' || l_oki_schema ||'.OKI_DBI_CLE_B';
24      EXECUTE IMMEDIATE l_sql_string;
25 
26      l_sql_string := 'TRUNCATE TABLE ' || l_oki_schema ||'.OKI_DBI_REN_B';
27      EXECUTE IMMEDIATE l_sql_string;
28 
29      l_sql_string := 'TRUNCATE TABLE ' || l_oki_schema ||'.OKI_DBI_CLE_INC';
30      EXECUTE IMMEDIATE l_sql_string;
31 
32      BIS_COLLECTION_UTILITIES.DeleteLogForObject('OKIDBICLEB');
33   END IF;
34 
35   EXCEPTION
36     WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR  THEN
37        RAISE;
38     WHEN OTHERS
39     THEN
40        errbuf  := sqlerrm;
41        retcode := sqlcode;
42        bis_collection_utilities.put_line(errbuf || '' || retcode ) ;
43        fnd_message.set_name(  application => 'FND'
44                           , name          => 'CRM-DEBUG ERROR' ) ;
45        fnd_message.set_token(  token => 'ROUTINE'
46                            ,   value => 'OKI_DBI_RESET_PVT.reset_base_tables ' ) ;
47        bis_collection_utilities.put_line(fnd_message.get) ;
48        RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
49   END reset_base_tables;
50 
51 END OKI_DBI_RESET_PVT;