PACKAGE BODY: APPS.OKL_CASE_UTIL_PUB

Source

1 PACKAGE BODY OKL_CASE_UTIL_PUB AS
2 /* $Header: OKLPCUTB.pls 115.5 2004/04/13 10:43:23 rnaik noship $ */
3 
4   ----------------------------------------------------------------------
5   -- PROCEDURE CREATE_CASE
6   ----------------------------------------------------------------------
7   PROCEDURE CREATE_CASE(
8      p_api_version                  IN NUMBER,
9      p_init_msg_list                IN VARCHAR2 DEFAULT okl_api.G_FALSE,
10      p_contract_id			IN NUMBER,
11      x_return_status                OUT NOCOPY VARCHAR2,
12      x_msg_count                    OUT NOCOPY NUMBER,
13      x_msg_data                     OUT NOCOPY VARCHAR2
14   )
15   IS
16 
17   l_api_version     NUMBER ;
18   l_init_msg_list   VARCHAR2(1) ;
19   l_return_status   VARCHAR2(1);
20   l_msg_count       NUMBER ;
21   l_msg_data        VARCHAR2(2000);
22   l_contract_id     NUMBER;
23 
24   BEGIN
25 
26     SAVEPOINT CREATE_CASE;
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     l_contract_id    := p_contract_id;
35 
36 
37 
38     -- Private API Call start
39     OKL_CASE_UTIL_PVT.CREATE_CASE(
40                p_api_version         => l_api_version,
41                p_init_msg_list       => l_init_msg_list,
42                p_contract_id		 => l_contract_id,
43                x_return_status       => l_return_status,
44                x_msg_count           => l_msg_count,
45                x_msg_data            => l_msg_data
46   		   );
47 
48     IF ( l_return_status = FND_API.G_RET_STS_ERROR )  THEN
49 	RAISE FND_API.G_EXC_ERROR;
50     ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
51 	RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
52     END IF;
53     -- Public API Call end
54 
55 
56 
57     --Assign value to OUT variables
58     x_return_status := l_return_status ;
59     x_msg_count := l_msg_count ;
60     x_msg_data := l_msg_data ;
61 
62     EXCEPTION
63 
64       WHEN FND_API.G_EXC_ERROR THEN
65         SAVEPOINT CREATE_CASE;
66         x_return_status := FND_API.G_RET_STS_ERROR;
67         x_msg_count := l_msg_count ;
68         x_msg_data := l_msg_data ;
69         FND_MSG_PUB.ADD_EXC_MSG('OKL_CASE_UTIL_PUB','CREATE_CASE');
70         FND_MSG_PUB.count_and_get( p_count    => x_msg_count
71 				           ,p_data    => x_msg_data);
72 
73       WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
74         SAVEPOINT CREATE_CASE;
75         x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
76         x_msg_count := l_msg_count ;
77         x_msg_data := l_msg_data ;
78         FND_MSG_PUB.ADD_EXC_MSG('OKL_CASE_UTIL_PUB','CREATE_CASE');
79         FND_MSG_PUB.count_and_get( p_count    => x_msg_count
80                                    ,p_data    => x_msg_data);
81 
82       WHEN OTHERS THEN
83         SAVEPOINT CREATE_CASE;
84         x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
85         x_msg_count := l_msg_count ;
86         x_msg_data := l_msg_data ;
87         FND_MSG_PUB.ADD_EXC_MSG('OKL_CASE_UTIL_PUB','CREATE_CASE');
88         FND_MSG_PUB.count_and_get( p_count    => x_msg_count
89                                    ,p_data    => x_msg_data);
90 
91   END CREATE_CASE;
92 
93 END OKL_CASE_UTIL_PUB;