DBA Data[Home] [Help]

PACKAGE BODY: APPS.OKL_INVOKE_PRICING_ENGINE_PUB

Source


1 PACKAGE BODY OKL_INVOKE_PRICING_ENGINE_PUB AS
2 /* $Header: OKLPSSMB.pls 115.5 2004/04/13 11:21:25 rnaik noship $ */
3 
4   ---------------------------------------------------------------------------
5   -- PROCEDURE GENERATE_STREAMS
6   ---------------------------------------------------------------------------
7 PROCEDURE generate_streams_st(
8           p_api_version                  IN  NUMBER,
9           p_init_msg_list                IN  VARCHAR2 DEFAULT OKC_API.G_FALSE,
10           x_return_status                OUT NOCOPY VARCHAR2,
11           x_msg_count                    OUT NOCOPY NUMBER,
12           x_msg_data                     OUT NOCOPY VARCHAR2,
13           p_xmlg_trx_type                IN  VARCHAR2,
14           p_xmlg_trx_sub_type            IN  VARCHAR2,
15           p_sifv_rec                      IN  OKL_SIF_PVT.SIFV_REC_TYPE)
16  IS
17 
18     l_return_status                   VARCHAR2(1)    := G_RET_STS_SUCCESS;
19     l_api_name        CONSTANT VARCHAR2(30)  := 'generate_streams_st';
20     l_api_version     CONSTANT NUMBER := 1;
21   BEGIN
22 
23     l_return_status := OKL_API.START_ACTIVITY(p_api_name       => l_api_name,
24                                               p_pkg_name	   => G_PKG_NAME,
25                                               p_init_msg_list  => p_init_msg_list,
26                                               l_api_version	   => l_api_version,
27                                               p_api_version	   => p_api_version,
28                                               p_api_type	   => G_API_TYPE,
29                                               x_return_status  => l_return_status);
30     IF (l_return_status = G_RET_STS_UNEXP_ERROR) THEN
31       RAISE G_EXCEPTION_UNEXPECTED_ERROR;
32     ELSIF (l_return_status = G_RET_STS_ERROR) THEN
33       RAISE G_EXCEPTION_ERROR;
34     END IF;
35 
36 
37 
38     OKL_INVOKE_PRICING_ENGINE_PVT.generate_streams_st(
39               p_api_version       => p_api_version,
40               p_init_msg_list     => p_init_msg_list,
41               x_return_status     => l_return_status,
42               x_msg_count         => x_msg_count,
43               x_msg_data          => x_msg_data,
44               p_xmlg_trx_type     => p_xmlg_trx_type,
45               p_xmlg_trx_sub_type => p_xmlg_trx_sub_type,
46               p_sifv_rec           => p_sifv_rec );
47 
48      IF l_return_status = G_RET_STS_UNEXP_ERROR THEN
49         RAISE G_EXCEPTION_UNEXPECTED_ERROR;
50      END IF;
51 
52 
53 
54     OKL_API.END_ACTIVITY(x_msg_count  => x_msg_count,
55 			 x_msg_data	  => x_msg_data);
56 	x_return_status := l_return_status;
57 
58   EXCEPTION
59     WHEN G_EXCEPTION_ERROR THEN
60       x_return_status := OKL_API.HANDLE_EXCEPTIONS(p_api_name	=> l_api_name,
61 	  				  	 						   p_pkg_name	=> G_PKG_NAME,
62 												   p_exc_name   => G_EXC_NAME_ERROR,
63 												   x_msg_count	=> x_msg_count,
64 												   x_msg_data	=> x_msg_data,
65 												   p_api_type	=> G_API_TYPE);
66     WHEN G_EXCEPTION_UNEXPECTED_ERROR THEN
67       x_return_status := OKL_API.HANDLE_EXCEPTIONS(p_api_name	=> l_api_name,
68 	  				  	 						   p_pkg_name	=> G_PKG_NAME,
69 												   p_exc_name   => G_EXC_NAME_UNEXP_ERROR,
70 												   x_msg_count	=> x_msg_count,
71 												   x_msg_data	=> x_msg_data,
72 												   p_api_type	=> G_API_TYPE);
73     WHEN OTHERS THEN
74       x_return_status := OKL_API.HANDLE_EXCEPTIONS(p_api_name	=> l_api_name,
75 	  				  	 						   p_pkg_name	=> G_PKG_NAME,
76 												   p_exc_name   => G_EXC_NAME_OTHERS,
77 												   x_msg_count	=> x_msg_count,
78 												   x_msg_data	=> x_msg_data,
79 												   p_api_type	=> G_API_TYPE);
80   END generate_streams_st;
81 
82 END OKL_INVOKE_PRICING_ENGINE_PUB;