PACKAGE BODY: APPS.OKI_DBI_LOAD_CLEB_PUB

Source

1 PACKAGE BODY OKI_DBI_LOAD_CLEB_PUB AS
2 /* $Header: OKIPILEB.pls 120.1 2006/03/28 23:31:11 asparama noship $ */
3 
4 
5   PROCEDURE populate_base_tables (
6                                   errbuf   OUT NOCOPY VARCHAR2,
7                                   retcode  OUT NOCOPY VARCHAR2,
8                                    p_start_date IN VARCHAR2,
9                                    p_end_date IN VARCHAR2,
10 				  p_no_of_workers IN NUMBER
11                                 ) IS
12   BEGIN
13      OKI_DBI_LOAD_CLEB_PVT.populate_base_tables (
14                                   errbuf ,
15                                   retcode ,
16                                   p_start_date ,
17                                   p_end_date,
18 				  p_no_of_workers
19                                 );
20   EXCEPTION
21      WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
22         retcode := -2;
23         ROLLBACK;
24      WHEN OTHERS THEN
25         errbuf  := sqlerrm;
26         retcode := sqlcode;
27       fnd_message.set_name(  application => 'FND'
28                          , name          => 'CRM-DEBUG ERROR' ) ;
29       fnd_message.set_token(  token => 'ROUTINE'
30                           , value => 'OKI_DBI_LOAD_CLEB_PUB.populate_base_tables ' ) ;
31       bis_collection_utilities.put_line(fnd_message.get) ;
32       RAISE_APPLICATION_ERROR(-20000,'Stack Dump Follows =>', true);
33   END populate_base_tables;
34 
35   PROCEDURE initial_load(
36                          errbuf  OUT NOCOPY VARCHAR2,
37                          retcode OUT NOCOPY VARCHAR2,
38                           p_start_date IN VARCHAR2,
39                           p_end_date IN VARCHAR2
40                          ) IS
41   BEGIN
42     OKI_DBI_LOAD_CLEB_PVT.initial_load(errbuf,
43                                        retcode,
44                                        p_start_date,
45                                        p_end_date
46                                       );
47   EXCEPTION
48      WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
49         retcode := -2;
50         ROLLBACK;
51      WHEN OTHERS THEN
52         errbuf  := sqlerrm;
53         retcode := sqlcode;
54       fnd_message.set_name(  application => 'FND'
55                          , name          => 'CRM-DEBUG ERROR' ) ;
56       fnd_message.set_token(  token => 'ROUTINE'
57                           , value => 'OKI_DBI_LOAD_CLEB_PUB.initial_load ' ) ;
58       bis_collection_utilities.put_line(fnd_message.get) ;
59       RAISE_APPLICATION_ERROR(-20000,'Stack Dump Follows =>', true);
60   END initial_load;
61 
62   PROCEDURE worker       (
63                          errbuf      OUT   NOCOPY VARCHAR2,
64                          retcode     OUT   NOCOPY VARCHAR2,
65                          p_worker_no IN NUMBER,
66                          p_phase      IN NUMBER,
67                          p_no_of_workers IN NUMBER
68                          ) IS
69   BEGIN
70   OKI_DBI_LOAD_CLEB_PVT.worker       (
71 				     errbuf ,
72 				     retcode,
73 				     p_worker_no ,
74 				     p_phase ,
75                                      p_no_of_workers
76 				     );
77 
78   EXCEPTION
79      WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
80         retcode := -2;
81         ROLLBACK;
82      WHEN OTHERS THEN
83         errbuf  := sqlerrm;
84         retcode := sqlcode;
85       fnd_message.set_name(  application => 'FND'
86                          , name          => 'CRM-DEBUG ERROR' ) ;
87       fnd_message.set_token(  token => 'ROUTINE'
88                           , value => 'OKI_DBI_LOAD_CLEB_PUB.worker' ) ;
89       bis_collection_utilities.put_line(fnd_message.get) ;
90       RAISE_APPLICATION_ERROR(-20000,'Stack Dump Follows =>', true);
91   END worker;
92 
93 END OKI_DBI_LOAD_CLEB_PUB;