17: --
18: l_api_name CONSTANT VARCHAR2(30) := 'ACN_ASSEMBLE';
19: l_api_version NUMBER := 1.0;
20: l_init_msg_list VARCHAR2(1) ;
21: l_return_status varchar2(1) := OKC_API.G_RET_STS_SUCCESS;
22: --
23: CURSOR k_cur IS
24: SELECT k.contract_number contract_number
25: ,k.contract_number_modifier contract_number_modifier
53: --
54: BEGIN
55: -- call start_activity to create savepoint, check comptability
56: -- and initialize message list
57: l_return_status := OKC_API.START_ACTIVITY(l_api_name
58: ,l_init_msg_list
59: ,'_PVT'
60: ,x_return_status
61: );
59: ,'_PVT'
60: ,x_return_status
61: );
62: -- check if activity started successfully
63: IF l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
64: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
65: ELSIF l_return_status = OKC_API.G_RET_STS_ERROR THEN
66: RAISE OKC_API.G_EXCEPTION_ERROR;
67: END IF;
60: ,x_return_status
61: );
62: -- check if activity started successfully
63: IF l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
64: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
65: ELSIF l_return_status = OKC_API.G_RET_STS_ERROR THEN
66: RAISE OKC_API.G_EXCEPTION_ERROR;
67: END IF;
68:
61: );
62: -- check if activity started successfully
63: IF l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
64: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
65: ELSIF l_return_status = OKC_API.G_RET_STS_ERROR THEN
66: RAISE OKC_API.G_EXCEPTION_ERROR;
67: END IF;
68:
69: l_rec.corrid := 'KCRORDER';
62: -- check if activity started successfully
63: IF l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
64: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
65: ELSIF l_return_status = OKC_API.G_RET_STS_ERROR THEN
66: RAISE OKC_API.G_EXCEPTION_ERROR;
67: END IF;
68:
69: l_rec.corrid := 'KCRORDER';
70: -- check if action is enabled
115: ,p_msg_tab => l_tbl
116: ,p_queue_name => okc_aq_pvt.g_event_queue_name
117: );
118: -- check if activity started successfully
119: IF l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
120: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
121: ELSIF l_return_status = OKC_API.G_RET_STS_ERROR THEN
122: RAISE OKC_API.G_EXCEPTION_ERROR;
123: END IF;
116: ,p_queue_name => okc_aq_pvt.g_event_queue_name
117: );
118: -- check if activity started successfully
119: IF l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
120: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
121: ELSIF l_return_status = OKC_API.G_RET_STS_ERROR THEN
122: RAISE OKC_API.G_EXCEPTION_ERROR;
123: END IF;
124: END IF; -- isActionEnabled
117: );
118: -- check if activity started successfully
119: IF l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
120: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
121: ELSIF l_return_status = OKC_API.G_RET_STS_ERROR THEN
122: RAISE OKC_API.G_EXCEPTION_ERROR;
123: END IF;
124: END IF; -- isActionEnabled
125: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
118: -- check if activity started successfully
119: IF l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
120: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
121: ELSIF l_return_status = OKC_API.G_RET_STS_ERROR THEN
122: RAISE OKC_API.G_EXCEPTION_ERROR;
123: END IF;
124: END IF; -- isActionEnabled
125: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
126:
121: ELSIF l_return_status = OKC_API.G_RET_STS_ERROR THEN
122: RAISE OKC_API.G_EXCEPTION_ERROR;
123: END IF;
124: END IF; -- isActionEnabled
125: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
126:
127: EXCEPTION
128: WHEN OKC_API.G_EXCEPTION_ERROR THEN
129: x_return_status := OKC_API.HANDLE_EXCEPTIONS
124: END IF; -- isActionEnabled
125: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
126:
127: EXCEPTION
128: WHEN OKC_API.G_EXCEPTION_ERROR THEN
129: x_return_status := OKC_API.HANDLE_EXCEPTIONS
130: (l_api_name,
131: G_PKG_NAME,
132: 'OKC_API.G_RET_STS_ERROR',
125: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
126:
127: EXCEPTION
128: WHEN OKC_API.G_EXCEPTION_ERROR THEN
129: x_return_status := OKC_API.HANDLE_EXCEPTIONS
130: (l_api_name,
131: G_PKG_NAME,
132: 'OKC_API.G_RET_STS_ERROR',
133: x_msg_count,
128: WHEN OKC_API.G_EXCEPTION_ERROR THEN
129: x_return_status := OKC_API.HANDLE_EXCEPTIONS
130: (l_api_name,
131: G_PKG_NAME,
132: 'OKC_API.G_RET_STS_ERROR',
133: x_msg_count,
134: x_msg_data,
135: '_PVT');
136: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
132: 'OKC_API.G_RET_STS_ERROR',
133: x_msg_count,
134: x_msg_data,
135: '_PVT');
136: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
137: x_return_status := OKC_API.HANDLE_EXCEPTIONS
138: (l_api_name,
139: G_PKG_NAME,
140: 'OKC_API.G_RET_STS_UNEXP_ERROR',
133: x_msg_count,
134: x_msg_data,
135: '_PVT');
136: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
137: x_return_status := OKC_API.HANDLE_EXCEPTIONS
138: (l_api_name,
139: G_PKG_NAME,
140: 'OKC_API.G_RET_STS_UNEXP_ERROR',
141: x_msg_count,
136: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
137: x_return_status := OKC_API.HANDLE_EXCEPTIONS
138: (l_api_name,
139: G_PKG_NAME,
140: 'OKC_API.G_RET_STS_UNEXP_ERROR',
141: x_msg_count,
142: x_msg_data,
143: '_PVT');
144: WHEN OTHERS THEN
141: x_msg_count,
142: x_msg_data,
143: '_PVT');
144: WHEN OTHERS THEN
145: x_return_status := OKC_API.HANDLE_EXCEPTIONS
146: (l_api_name,
147: G_PKG_NAME,
148: 'OTHERS',
149: x_msg_count,