47:
48:
49: BEGIN
50:
51: l_return_status := OKC_API.START_ACTIVITY
52: (l_api_name
53: ,p_init_msg_list
54: ,'_PROCESS'
55: ,x_return_status);
53: ,p_init_msg_list
54: ,'_PROCESS'
55: ,x_return_status);
56:
57: IF l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
58: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
59: ELSIF l_return_status = OKC_API.G_RET_STS_ERROR THEN
60: RAISE OKC_API.G_EXCEPTION_ERROR;
61: END IF;
54: ,'_PROCESS'
55: ,x_return_status);
56:
57: IF l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
58: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
59: ELSIF l_return_status = OKC_API.G_RET_STS_ERROR THEN
60: RAISE OKC_API.G_EXCEPTION_ERROR;
61: END IF;
62:
55: ,x_return_status);
56:
57: IF l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
58: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
59: ELSIF l_return_status = OKC_API.G_RET_STS_ERROR THEN
60: RAISE OKC_API.G_EXCEPTION_ERROR;
61: END IF;
62:
63: --The correlation for contingent event occurrence
56:
57: IF l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
58: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
59: ELSIF l_return_status = OKC_API.G_RET_STS_ERROR THEN
60: RAISE OKC_API.G_EXCEPTION_ERROR;
61: END IF;
62:
63: --The correlation for contingent event occurrence
64: l_corrid_rec.corrid := 'CONT_EVT_REC' ;
131: ,p_corrid_rec => l_corrid_rec
132: ,p_msg_tab => l_msg_tbl
133: ,p_queue_name => okc_aq_pvt.g_event_queue_name);
134:
135: IF l_return_status = OKC_API.G_RET_STS_SUCCESS THEN
136: commit;
137: ELSIF l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
138: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
139: ELSIF l_return_status = OKC_API.G_RET_STS_ERROR THEN
133: ,p_queue_name => okc_aq_pvt.g_event_queue_name);
134:
135: IF l_return_status = OKC_API.G_RET_STS_SUCCESS THEN
136: commit;
137: ELSIF l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
138: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
139: ELSIF l_return_status = OKC_API.G_RET_STS_ERROR THEN
140: RAISE OKC_API.G_EXCEPTION_ERROR;
141: END IF;
134:
135: IF l_return_status = OKC_API.G_RET_STS_SUCCESS THEN
136: commit;
137: ELSIF l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
138: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
139: ELSIF l_return_status = OKC_API.G_RET_STS_ERROR THEN
140: RAISE OKC_API.G_EXCEPTION_ERROR;
141: END IF;
142: END LOOP;
135: IF l_return_status = OKC_API.G_RET_STS_SUCCESS THEN
136: commit;
137: ELSIF l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
138: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
139: ELSIF l_return_status = OKC_API.G_RET_STS_ERROR THEN
140: RAISE OKC_API.G_EXCEPTION_ERROR;
141: END IF;
142: END LOOP;
143: END IF; -- isActionEnabled
136: commit;
137: ELSIF l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
138: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
139: ELSIF l_return_status = OKC_API.G_RET_STS_ERROR THEN
140: RAISE OKC_API.G_EXCEPTION_ERROR;
141: END IF;
142: END LOOP;
143: END IF; -- isActionEnabled
144: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
140: RAISE OKC_API.G_EXCEPTION_ERROR;
141: END IF;
142: END LOOP;
143: END IF; -- isActionEnabled
144: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
145:
146: EXCEPTION
147: WHEN OKC_API.G_EXCEPTION_ERROR THEN
148: x_return_status := OKC_API.HANDLE_EXCEPTIONS
143: END IF; -- isActionEnabled
144: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
145:
146: EXCEPTION
147: WHEN OKC_API.G_EXCEPTION_ERROR THEN
148: x_return_status := OKC_API.HANDLE_EXCEPTIONS
149: (l_api_name,
150: G_PKG_NAME,
151: 'OKC_API.G_RET_STS_ERROR',
144: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
145:
146: EXCEPTION
147: WHEN OKC_API.G_EXCEPTION_ERROR THEN
148: x_return_status := OKC_API.HANDLE_EXCEPTIONS
149: (l_api_name,
150: G_PKG_NAME,
151: 'OKC_API.G_RET_STS_ERROR',
152: x_msg_count,
147: WHEN OKC_API.G_EXCEPTION_ERROR THEN
148: x_return_status := OKC_API.HANDLE_EXCEPTIONS
149: (l_api_name,
150: G_PKG_NAME,
151: 'OKC_API.G_RET_STS_ERROR',
152: x_msg_count,
153: x_msg_data,
154: '_PROCESS');
155: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
151: 'OKC_API.G_RET_STS_ERROR',
152: x_msg_count,
153: x_msg_data,
154: '_PROCESS');
155: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
156: x_return_status := OKC_API.HANDLE_EXCEPTIONS
157: (l_api_name,
158: G_PKG_NAME,
159: 'OKC_API.G_RET_STS_UNEXP_ERROR',
152: x_msg_count,
153: x_msg_data,
154: '_PROCESS');
155: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
156: x_return_status := OKC_API.HANDLE_EXCEPTIONS
157: (l_api_name,
158: G_PKG_NAME,
159: 'OKC_API.G_RET_STS_UNEXP_ERROR',
160: x_msg_count,
155: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
156: x_return_status := OKC_API.HANDLE_EXCEPTIONS
157: (l_api_name,
158: G_PKG_NAME,
159: 'OKC_API.G_RET_STS_UNEXP_ERROR',
160: x_msg_count,
161: x_msg_data,
162: '_PROCESS');
163: WHEN OTHERS THEN
160: x_msg_count,
161: x_msg_data,
162: '_PROCESS');
163: WHEN OTHERS THEN
164: x_return_status := OKC_API.HANDLE_EXCEPTIONS
165: (l_api_name,
166: G_PKG_NAME,
167: 'OTHERS',
168: x_msg_count,