PACKAGE BODY: APPS.OKL_CASH_RULES_SUMRY_PUB

Source

1 PACKAGE BODY OKL_CASH_RULES_SUMRY_PUB AS
2 /* $Header: OKLPCSYB.pls 115.0 2002/12/10 18:04:27 stmathew noship $ */
3 
4 PROCEDURE okl_cash_rl_sumry ( p_api_version	   IN	NUMBER
5 				             ,p_init_msg_list  IN   VARCHAR2
6 				             ,x_return_status  OUT  NOCOPY VARCHAR2
7 				             ,x_msg_count	   OUT  NOCOPY NUMBER
8 				             ,x_msg_data	   OUT  NOCOPY VARCHAR2
9                              ,p_cash_rl_tbl    IN   okl_cash_rl_sumry_tbl_type
10 					        ) IS
11 
12 l_api_version 			NUMBER := 1;
13 l_init_msg_list 		VARCHAR2(1);
14 l_return_status 		VARCHAR2(1);
15 l_msg_count 			NUMBER := 0;
16 l_msg_data 				VARCHAR2(2000);
17 
18 lp_cash_rl_tbl          okl_cash_rl_sumry_tbl_type;
19 lx_cash_rl_tbl          okl_cash_rl_sumry_tbl_type;
20 
21 BEGIN
22 
23     SAVEPOINT okl_cash_rl_sumry;
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_cash_rl_tbl    		  := p_cash_rl_tbl;
32 
33     Okl_cash_rules_sumry_pvt.handle_cash_rl_sumry( l_api_version
34 				                                  ,l_init_msg_list
35 				                                  ,l_return_status
36 				                                  ,l_msg_count
37 				                                  ,l_msg_data
38                                                   ,lp_cash_rl_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_cash_rl_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 --      Fnd_Msg_Pub.count_and_get(
59 --             p_count   => x_msg_count
60 --            ,p_data    => x_msg_data);
61 
62     WHEN Okl_Api.G_EXCEPTION_ERROR THEN
63       ROLLBACK TO okl_cash_rl_sumry;
64       x_return_status :=  Okl_Api.G_RET_STS_UNEXP_ERROR;
65       x_msg_count := l_msg_count ;
66       x_msg_data := l_msg_data ;
67 --      Fnd_Msg_Pub.count_and_get(
68 --             p_count   => x_msg_count
69 --            ,p_data    => x_msg_data);
70 
71     WHEN OTHERS THEN
72       ROLLBACK TO okl_cash_rl_sumry;
73       x_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
74       x_msg_count := l_msg_count ;
75       x_msg_data := l_msg_data ;
76       Fnd_Msg_Pub.ADD_EXC_MSG('OKL_CASH_RULES_SUMRY_PUB','unknown exception');
77       Fnd_Msg_Pub.count_and_get(
78              p_count   => x_msg_count
79             ,p_data    => x_msg_data);
80 
81 
82  END okl_cash_rl_sumry;
83 
84 END OKL_CASH_RULES_SUMRY_PUB;