[Home] [Help]
PACKAGE BODY: APPS.OKL_UBB_INTEGRATION_PUB
Source
1 PACKAGE BODY OKL_UBB_INTEGRATION_PUB AS
2 /* $Header: OKLPUBIB.pls 115.1 2002/05/10 12:11:10 pkm ship $*/
3
4 -- Global Variables
5 G_DEBUG NUMBER := 1;
6 G_INIT_NUMBER NUMBER := -9999;
7
8 ------------------------------------------------------------------------------
9 -- PROCEDURE create_ubb_contract
10 --
11 -- This procedure creats Service Contract corresponding to Usage Base Line
12 -- for a given contract. It also registers error, if any and it is calling
13 -- modules responsibility to print error message from error stack
14 --
15 -- Calls:
16 -- Called By:
17 ------------------------------------------------------------------------------
18 PROCEDURE create_ubb_contract (
19 p_api_version IN NUMBER,
20 p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
21 x_return_status OUT NOCOPY VARCHAR2,
22 x_msg_count OUT NOCOPY NUMBER,
23 x_msg_data OUT NOCOPY VARCHAR2,
24 p_chr_id IN OKC_K_HEADERS_V.ID%TYPE,
25 x_chr_id OUT NOCOPY OKC_K_HEADERS_V.ID%TYPE
26 ) IS
27
28
29 l_proc_name VARCHAR2(35) := 'CREATE_UBB_CONTRACT';
30 l_api_name CONSTANT VARCHAR2(30) := 'CREATE_UBB_CONTRACT';
31 l_api_version CONSTANT NUMBER := 1;
32
33 BEGIN -- main process starts here
34
35 -- call START_ACTIVITY to create savepoint, check compatibility
36 -- and initialize message list
37 x_return_status := OKC_API.START_ACTIVITY(
38 p_api_name => l_api_name,
39 p_pkg_name => G_PKG_NAME,
40 p_init_msg_list => p_init_msg_list,
41 l_api_version => l_api_version,
42 p_api_version => p_api_version,
43 p_api_type => G_API_TYPE,
44 x_return_status => x_return_status);
45
46 -- check if activity started successfully
47 IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
48 raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
49 ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) then
50 raise OKC_API.G_EXCEPTION_ERROR;
51 END IF;
52
53 --++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
54
55 okl_ubb_integration_pvt.create_ubb_contract(
56 p_api_version => p_api_version,
57 p_init_msg_list => p_init_msg_list,
58 x_return_status => x_return_status,
59 x_msg_count => x_msg_count,
60 x_msg_data => x_msg_data,
61 p_chr_id => p_chr_id,
62 x_chr_id => x_chr_id
63 );
64
65 IF (x_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
66 RAISE OKC_API.G_EXCEPTION_ERROR;
67 END IF;
68
69 --++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
70
71 -- End activity
72
73 OKC_API.END_ACTIVITY(x_msg_count => x_msg_count,
74 x_msg_data => x_msg_data);
75
76 Exception
77 when OKC_API.G_EXCEPTION_ERROR then
78 x_return_status := OKC_API.HANDLE_EXCEPTIONS(
79 p_api_name => l_api_name,
80 p_pkg_name => G_PKG_NAME,
81 p_exc_name => 'OKC_API.G_RET_STS_ERROR',
82 x_msg_count => x_msg_count,
83 x_msg_data => x_msg_data,
84 p_api_type => G_API_TYPE);
85
86 when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
87 x_return_status := OKC_API.HANDLE_EXCEPTIONS(
88 p_api_name => l_api_name,
89 p_pkg_name => G_PKG_NAME,
90 p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
91 x_msg_count => x_msg_count,
92 x_msg_data => x_msg_data,
93 p_api_type => G_API_TYPE);
94
95 when OTHERS then
96 x_return_status := OKC_API.HANDLE_EXCEPTIONS(
97 p_api_name => l_api_name,
98 p_pkg_name => G_PKG_NAME,
99 p_exc_name => 'OTHERS',
100 x_msg_count => x_msg_count,
101 x_msg_data => x_msg_data,
102 p_api_type => G_API_TYPE);
103
104 END create_ubb_contract;
105
106 END OKL_UBB_INTEGRATION_PUB;