PACKAGE BODY: APPS.OKI_DBI_SCM_MVIEWS_PUB

Source

1 PACKAGE BODY oki_dbi_scm_mviews_pub AS
2 /* $Header: OKIPIMRB.pls 115.3 2002/12/24 23:39:19 mezra noship $ */
3 
4   PROCEDURE refresh_scm
5   (  errbuf       OUT NOCOPY VARCHAR2
6    , retcode      OUT NOCOPY VARCHAR2
7   ) IS
8 
9   BEGIN
10 
11    errbuf  := NULL ;
12    retcode := 0 ;
13 
14    oki_dbi_scm_mviews_pvt.refresh_scm(errbuf, retcode) ;
15 
16 EXCEPTION
17    WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
18       retcode := -2;
19       ROLLBACK;
20    WHEN OTHERS THEN
21     errbuf  := sqlerrm;
22     retcode := sqlcode;
23     fnd_message.set_name(  application => 'FND'
24                        , name          => 'CRM-DEBUG ERROR' ) ;
25     fnd_message.set_token(  token => 'ROUTINE'
26                           , value => 'OKI_DBI_SCM_MVIEWS_PUB.refresh_scm ' ) ;
27     bis_collection_utilities.put_line(fnd_message.get) ;
28     RAISE_APPLICATION_ERROR(-20000,'Stack Dump Follows =>', true);
29 END refresh_scm ;
30 
31 END oki_dbi_scm_mviews_pub ;