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,
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,
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;
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:
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: --++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
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:
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: --++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
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:
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
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',
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,
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:
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',
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,
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:
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,