PACKAGE BODY: APPS.OKL_BTCH_CASH_APPLIC_PUB

Source

1 PACKAGE BODY okl_btch_cash_applic_pub AS
2 /* $Header: OKLPBAPB.pls 115.7 2004/04/13 10:32:29 rnaik noship $ */
3 
4 PROCEDURE okl_batch_cash_applic (  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_btch_tbl          IN   okl_btch_dtls_tbl_type
10                                   ,x_btch_tbl          OUT  NOCOPY okl_btch_dtls_tbl_type
11 							     ) IS
12 
13 l_api_version 			NUMBER := 1;
14 l_init_msg_list 		VARCHAR2(1) ;
15 l_return_status 		VARCHAR2(1);
16 l_msg_count 			NUMBER := 0;
17 l_msg_data 				VARCHAR2(2000);
18 
19 lp_btch_tbl             okl_btch_dtls_tbl_type;
20 
21 lx_btch_tbl         		okl_btch_dtls_tbl_type;
22 
23 BEGIN
24 
25 
26 SAVEPOINT cash_appl_rules;
27 
28 
29 l_api_version 			  := p_api_version ;
30 l_init_msg_list 		  := p_init_msg_list ;
31 l_return_status 		  := x_return_status ;
32 l_msg_count 			  := x_msg_count ;
33 l_msg_data 				  := x_msg_data ;
34 
35 lp_btch_tbl       		  := p_btch_tbl;
36 
37 
38 
39 
40 
41     Okl_Btch_Cash_Applic.handle_batch_pay  ( l_api_version
42 				                            ,l_init_msg_list
43 				                            ,l_return_status
44 				                            ,l_msg_count
45 				                            ,l_msg_data
46                                             ,lp_btch_tbl
47                                             ,lx_btch_tbl
48 							               );
49 
50 x_return_status := l_return_status;
51 x_msg_count := l_msg_count;
52 x_msg_data := l_msg_data;
53 
54 IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
55       RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
56 ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
57       RAISE Okl_Api.G_EXCEPTION_ERROR;
58 END IF;
59 
60 EXCEPTION
61 
62     WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
63       ROLLBACK TO cash_appl_rules;
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 Okl_Api.G_EXCEPTION_ERROR THEN
72       ROLLBACK TO cash_appl_rules;
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.count_and_get(
77 --             p_count   => x_msg_count
78 --            ,p_data    => x_msg_data);
79 
80     WHEN OTHERS THEN
81       ROLLBACK TO cash_appl_rules;
82       x_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
83       x_msg_count := l_msg_count ;
84       x_msg_data := l_msg_data ;
85       Fnd_Msg_Pub.ADD_EXC_MSG('OKL_BTCH_CASH_APPLIC_PUB','unknown exception');
86       Fnd_Msg_Pub.count_and_get(
87              p_count   => x_msg_count
88             ,p_data    => x_msg_data);
89 
90 
91  END okl_batch_cash_applic;
92 
93 END OKL_BTCH_CASH_APPLIC_PUB;