PACKAGE BODY: APPS.OKC_INST_CND_PUB

Source

1 PACKAGE BODY OKC_INST_CND_PUB AS
2 /* $Header: OKCPINCB.pls 120.0 2005/05/26 09:44:50 appldev noship $ */
3 	l_debug VARCHAR2(1) := NVL(FND_PROFILE.VALUE('AFLOG_ENABLED'),'N');
4 
5 /***********************  HAND-CODED  ***************************************/
6 
7   ----------------------------------------------------------------------------
8   -- PROCEDURE inst_condition
9   ----------------------------------------------------------------------------
10 
11   PROCEDURE inst_condition(
12     p_api_version                  IN NUMBER,
13     p_init_msg_list                IN VARCHAR2 ,
14     x_return_status                OUT NOCOPY VARCHAR2,
15     x_msg_count                    OUT NOCOPY NUMBER,
16     x_msg_data                     OUT NOCOPY VARCHAR2,
17     p_instcnd_inp_rec              IN  INSTCND_INP_REC) IS
18     l_api_name                     CONSTANT VARCHAR2(30) := 'inst_condition';
19     l_return_status                VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
20   BEGIN
21   -- Call start activity to create savepoint ,check compatibility
22   -- and initialize the message list
23 	l_return_status := OKC_API.START_ACTIVITY(l_api_name
24 									 ,p_init_msg_list
25 									 ,'_PUB'
26 									 ,x_return_status
27 									 );
28   -- Check if activity started successfully
29     IF l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
30     RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
31     ELSIF l_return_status = OKC_API.G_RET_STS_ERROR THEN
32     RAISE OKC_API.G_EXCEPTION_ERROR;
33     END IF;
34 
35     -- Instantiate the condition, call process api
36     okc_inst_cnd_pvt.inst_condition(
37     p_api_version      => p_api_version,
38     p_init_msg_list    => p_init_msg_list,
39     x_return_status    => x_return_status,
40     x_msg_count        => x_msg_count,
41     x_msg_data         => x_msg_data,
42     p_instcnd_inp_rec  => p_instcnd_inp_rec);
43 
44     OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
45 
46   EXCEPTION
47     WHEN OKC_API.G_EXCEPTION_ERROR THEN
48 	    x_return_status := OKC_API.HANDLE_EXCEPTIONS
49 					   ( l_api_name,
50 						G_PKG_NAME,
51 						'OKC_API.G_RET_STS_ERROR',
52 						x_msg_count,
53 						x_msg_data,
54 						'_PUB');
55     WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
56 	    x_return_status := OKC_API.HANDLE_EXCEPTIONS
57 					   ( l_api_name,
58 						G_PKG_NAME,
59 						'OKC_API.G_RET_STS_UNEXP_ERROR',
60 						x_msg_count,
61 						x_msg_data,
62 						'_PUB');
63       -- notify caller of an unexpected error
64 	 x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
65     WHEN OTHERS THEN
66 	    x_return_status := OKC_API.HANDLE_EXCEPTIONS
67 					   ( l_api_name,
68 						G_PKG_NAME,
69 						'OTHERS',
70 						x_msg_count,
71 						x_msg_data,
72 						'_PUB');
73 
74   END inst_condition;
75 
76 END OKC_INST_CND_PUB;