PACKAGE BODY: APPS.OKL_BTCH_CASH_SUMRY_PUB

Source

1 PACKAGE BODY OKL_BTCH_CASH_SUMRY_PUB AS
2 /* $Header: OKLPBASB.pls 115.4 2004/04/21 19:15:28 bvaghela noship $ */
3 PROCEDURE okl_batch_sumry (  p_api_version	   IN	NUMBER
4 				            ,p_init_msg_list   IN   VARCHAR2
5 				            ,x_return_status   OUT  NOCOPY VARCHAR2
6 				            ,x_msg_count	   OUT  NOCOPY NUMBER
7 				            ,x_msg_data	       OUT  NOCOPY VARCHAR2
8                             ,p_btch_tbl        IN   okl_btch_sumry_tbl_type
9 					      ) IS
10 
11 l_api_version 			NUMBER := 1;
12 l_init_msg_list 		VARCHAR2(1) ;
13 l_return_status 		VARCHAR2(1);
14 l_msg_count 			NUMBER := 0;
15 l_msg_data 				VARCHAR2(2000);
16 
17 lp_btch_tbl             okl_btch_sumry_tbl_type;
18 lx_btch_tbl         		okl_btch_sumry_tbl_type;
19 
20 BEGIN
21 
22     SAVEPOINT okl_batch_sumry;
23 
24 
25     l_api_version 			  := p_api_version ;
26     l_init_msg_list 		  := p_init_msg_list ;
27     l_return_status 		  := x_return_status ;
28     l_msg_count 			  := x_msg_count ;
29     l_msg_data 				  := x_msg_data ;
30 
31     lp_btch_tbl       		  := p_btch_tbl;
32 
33     Okl_Btch_Cash_sumry_pvt.handle_batch_sumry( l_api_version
34 				                               ,l_init_msg_list
35 				                               ,l_return_status
36 				                               ,l_msg_count
37 				                               ,l_msg_data
38                                                ,lp_btch_tbl
39                                                );
40 
41     x_return_status := l_return_status;
42     x_msg_count := l_msg_count;
43     x_msg_data := l_msg_data;
44 
45     IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
46         RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
47     ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
48         RAISE Okl_Api.G_EXCEPTION_ERROR;
49     END IF;
50 
51 EXCEPTION
52 
53     WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
54       ROLLBACK TO okl_batch_sumry;
55       x_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
56       x_msg_count := l_msg_count ;
57       x_msg_data := l_msg_data ;
58 
59     WHEN Okl_Api.G_EXCEPTION_ERROR THEN
60       ROLLBACK TO okl_batch_sumry;
61       x_return_status :=  Okl_Api.G_RET_STS_UNEXP_ERROR;
62       x_msg_count := l_msg_count ;
63       x_msg_data := l_msg_data ;
64 
65     WHEN OTHERS THEN
66       ROLLBACK TO okl_batch_sumry;
67       x_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
68       x_msg_count := l_msg_count ;
69       x_msg_data := l_msg_data ;
70       Fnd_Msg_Pub.ADD_EXC_MSG('OKL_BTCH_CASH_SUMRY_PUB','unknown exception');
71       Fnd_Msg_Pub.count_and_get(
72              p_count   => x_msg_count
73             ,p_data    => x_msg_data);
74 
75 
76  END okl_batch_sumry;
77 
78 END OKL_BTCH_CASH_SUMRY_PUB;