[Home] [Help]
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;