PACKAGE BODY: APPS.OKL_UPDT_CASH_DTLS_PUB

Source

1 PACKAGE BODY okl_updt_cash_dtls_pub AS
2 /* $Header: OKLPCUPB.pls 115.8 2004/04/13 10:43:10 rnaik noship $ */
3 
4 PROCEDURE updt_cash_dtls_pub  ( p_api_version	   IN  NUMBER
5 		                       ,p_init_msg_list    IN  VARCHAR2 DEFAULT Okc_Api.G_FALSE
6 				               ,x_return_status    OUT NOCOPY VARCHAR2
7 				               ,x_msg_count	       OUT NOCOPY NUMBER
8 				               ,x_msg_data	       OUT NOCOPY VARCHAR2
9                                ,p_strm_tbl         IN  okl_cash_dtls_tbl_type
10                                ,x_strm_tbl         OUT NOCOPY okl_cash_dtls_tbl_type
11        					       )IS
12 
13 l_api_version 			NUMBER ;
14 l_init_msg_list 		VARCHAR2(1) ;
15 l_return_status 		VARCHAR2(1);
16 l_msg_count 			NUMBER ;
17 l_msg_data 				VARCHAR2(2000);
18 
19 lp_strm_tbl             okl_cash_dtls_tbl_type;
20 
21 lx_strm_tbl             okl_cash_dtls_tbl_type;
22 
23 BEGIN
24 
25 SAVEPOINT updt_cash_dtls_pub;
26 
27 
28 l_api_version 			  := p_api_version ;
29 l_init_msg_list 		  := p_init_msg_list ;
30 l_return_status 		  := x_return_status ;
31 l_msg_count 			  := x_msg_count ;
32 l_msg_data 				  := x_msg_data ;
33 
34 lp_strm_tbl               := p_strm_tbl;
35 
36 
37 
38 
39 
40 Okl_Updt_Cash_Dtls.update_cash_details  ( p_api_version
41 				                         ,p_init_msg_list
42 				                         ,x_return_status
43 				                         ,x_msg_count
44 				                         ,x_msg_data
45                                          ,lp_strm_tbl
46                                          ,lx_strm_tbl
47  						  	  		    );
48 
49 
50 
51     IF ( x_return_status = Fnd_Api.G_RET_STS_ERROR )  THEN
52 		RAISE Fnd_Api.G_EXC_ERROR;
53 	ELSIF (l_return_status = Fnd_Api.G_RET_STS_UNEXP_ERROR ) THEN
54 		RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
55 	END IF;
56 
57 EXCEPTION
58 
59     WHEN FND_API.G_EXC_ERROR THEN
60       ROLLBACK TO updt_cash_dtls_pub;
61       x_return_status := FND_API.G_RET_STS_ERROR;
62       x_msg_count := l_msg_count ;
63       x_msg_data := l_msg_data ;
64       FND_MSG_PUB.count_and_get(
65              p_count   => x_msg_count
66             ,p_data    => x_msg_data);
67 
68 
69     WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
70       ROLLBACK TO updt_cash_dtls_pub;
71       x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
72       x_msg_count := l_msg_count ;
73       x_msg_data := l_msg_data ;
74       FND_MSG_PUB.count_and_get(
75              p_count   => x_msg_count
76             ,p_data    => x_msg_data);
77 
78     WHEN OTHERS THEN
79       ROLLBACK TO updt_cash_dtls_pub;
80       x_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
81       x_msg_count := l_msg_count ;
82       x_msg_data := l_msg_data ;
83       Fnd_Msg_Pub.ADD_EXC_MSG('OKL_CASH_UPDT_CASH_DTLS_PUB','unexpected error');
84       Fnd_Msg_Pub.count_and_get(
85              p_count   => x_msg_count
86             ,p_data    => x_msg_data);
87 
88  END updt_cash_dtls_pub;
89 
90 END Okl_Updt_Cash_Dtls_Pub;