PACKAGE BODY: APPS.OKI_DBI_RESET_PUB

Source

1 PACKAGE BODY OKI_DBI_RESET_PUB AS
2 /* $Header: OKIPIRSB.pls 115.3 2002/11/25 18:13:44 rpotnuru noship $ */
3 
4 /* ***************************************************
5    Procedure to reset OKI DBI files
6    *************************************************** */
7   PROCEDURE reset_base_tables  (
8                                   errbuf  OUT NOCOPY VARCHAR2,
9                                   retcode OUT NOCOPY VARCHAR2
10                                 ) IS
11   BEGIN
12      OKI_DBI_RESET_PVT.reset_base_tables  (
13                                             errbuf ,
14                                             retcode
15                                           );
16   EXCEPTION
17    WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
18       RAISE;
19    WHEN OTHERS THEN
20       fnd_message.set_name(  application => 'FND'
21                            , name          => 'CRM-DEBUG ERROR' ) ;
22       fnd_message.set_token(  token => 'ROUTINE'
23                             , value => 'OKI_DBI_RESET_PUB.reset_base_tables ' ) ;
24       bis_collection_utilities.put_line(fnd_message.get) ;
25       RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
26   END reset_base_tables;
27 
28 END OKI_DBI_RESET_PUB;