PACKAGE BODY: APPS.OKL_CASH_APPLN_RULE_PUB

Source

1 PACKAGE BODY OKL_CASH_APPLN_RULE_PUB AS
2 /* $Header: OKLPCSLB.pls 115.1 2002/12/17 00:02:12 pjgomes noship $ */
3 
4   PROCEDURE maint_cash_appln_rule(
5      p_api_version              IN NUMBER,
6      p_init_msg_list            IN VARCHAR2 DEFAULT okl_api.G_FALSE,
7      p_catv_tbl                 IN catv_tbl_type,
8      x_catv_tbl                 OUT NOCOPY catv_tbl_type,
9      x_return_status            OUT NOCOPY VARCHAR2,
10      x_msg_count                OUT NOCOPY NUMBER,
11      x_msg_data                 OUT NOCOPY VARCHAR2) 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     lp_catv_tbl  catv_tbl_type;
19     lx_catv_tbl  catv_tbl_type;
20 
21 BEGIN
22 
23 SAVEPOINT maint_cash_appln_rule;
24 
25 
26 l_api_version := p_api_version ;
27 l_init_msg_list := p_init_msg_list ;
28 l_return_status := x_return_status ;
29 l_msg_count := x_msg_count ;
30 l_msg_data := x_msg_data ;
31 lp_catv_tbl :=  p_catv_tbl;
32 
33 okl_cash_appln_rule_pvt.maint_cash_appln_rule(
34       p_api_version => l_api_version,
35       p_init_msg_list => l_init_msg_list,
36       p_catv_tbl => lp_catv_tbl,
37       x_catv_tbl => lx_catv_tbl,
38       x_return_status => l_return_status,
39       x_msg_count => l_msg_count,
40       x_msg_data => l_msg_data);
41 
42 IF ( l_return_status = Fnd_Api.G_RET_STS_ERROR )  THEN
43 	RAISE Fnd_Api.G_EXC_ERROR;
44 ELSIF (l_return_status = Fnd_Api.G_RET_STS_UNEXP_ERROR ) THEN
45 	RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
46 END IF;
47 
48 x_catv_tbl := lx_catv_tbl;
49 x_return_status := l_return_status ;
50 x_msg_count := l_msg_count ;
51 x_msg_data := l_msg_data ;
52 
53 EXCEPTION
54 
55     WHEN Fnd_Api.G_EXC_ERROR THEN
56       ROLLBACK TO maint_cash_appln_rule;
57       x_return_status := Fnd_Api.G_RET_STS_ERROR;
58       x_msg_count := l_msg_count ;
59       x_msg_data := l_msg_data ;
60       Fnd_Msg_Pub.count_and_get(
61              p_count   => x_msg_count
62             ,p_data    => x_msg_data);
63     WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
64       ROLLBACK TO maint_cash_appln_rule;
65       x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
66       x_msg_count := l_msg_count ;
67       x_msg_data := l_msg_data ;
68       Fnd_Msg_Pub.count_and_get(
69              p_count   => x_msg_count
70             ,p_data    => x_msg_data);
71     WHEN OTHERS THEN
72       ROLLBACK TO maint_cash_appln_rule;
73       x_return_status := Fnd_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_APPLN_RULE_PUB','maint_cash_appln_rule');
77       Fnd_Msg_Pub.count_and_get(
78              p_count   => x_msg_count
79             ,p_data    => x_msg_data);
80 END maint_cash_appln_rule;
81 
82 END OKL_CASH_APPLN_RULE_PUB;