16: p_instcnd_inp_rec IN instcnd_inp_rec) IS
17:
18: l_api_name CONSTANT VARCHAR2(30) := 'inst_condition';
19: l_api_version CONSTANT NUMBER := 1.0;
20: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
21: l_msg_data VARCHAR2(1000) ;
22: l_msg_count NUMBER;
23: l_cnhv_rec OKC_CONDITIONS_PUB.CNHV_REC_TYPE;
24: x_cnhv_rec OKC_CONDITIONS_PUB.CNHV_REC_TYPE;
208: BEGIN
209:
210: -- call start_activity to create savepoint, check comptability
211: -- and initialize message list
212: l_return_status := OKC_API.START_ACTIVITY(l_api_name
213: ,p_init_msg_list
214: ,'_PROCESS'
215: ,x_return_status
216: );
214: ,'_PROCESS'
215: ,x_return_status
216: );
217: -- check if activity started successfully
218: IF l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
219: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
220: ELSIF l_return_status = OKC_API.G_RET_STS_ERROR THEN
221: RAISE OKC_API.G_EXCEPTION_ERROR;
222: END IF;
215: ,x_return_status
216: );
217: -- check if activity started successfully
218: IF l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
219: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
220: ELSIF l_return_status = OKC_API.G_RET_STS_ERROR THEN
221: RAISE OKC_API.G_EXCEPTION_ERROR;
222: END IF;
223: -- Put Functionality here regarding the gathering of extra information
216: );
217: -- check if activity started successfully
218: IF l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
219: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
220: ELSIF l_return_status = OKC_API.G_RET_STS_ERROR THEN
221: RAISE OKC_API.G_EXCEPTION_ERROR;
222: END IF;
223: -- Put Functionality here regarding the gathering of extra information
224: -- related to the condition
217: -- check if activity started successfully
218: IF l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
219: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
220: ELSIF l_return_status = OKC_API.G_RET_STS_ERROR THEN
221: RAISE OKC_API.G_EXCEPTION_ERROR;
222: END IF;
223: -- Put Functionality here regarding the gathering of extra information
224: -- related to the condition
225:
475:
476: END LOOP;
477:
478: END LOOP;
479: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
480:
481: EXCEPTION
482: WHEN NO_DATA_FOUND THEN
483: NULL;
480:
481: EXCEPTION
482: WHEN NO_DATA_FOUND THEN
483: NULL;
484: WHEN OKC_API.G_EXCEPTION_ERROR THEN
485: x_return_status := OKC_API.HANDLE_EXCEPTIONS
486: (l_api_name,
487: G_PKG_NAME,
488: 'OKC_API.G_RET_STS_ERROR',
481: EXCEPTION
482: WHEN NO_DATA_FOUND THEN
483: NULL;
484: WHEN OKC_API.G_EXCEPTION_ERROR THEN
485: x_return_status := OKC_API.HANDLE_EXCEPTIONS
486: (l_api_name,
487: G_PKG_NAME,
488: 'OKC_API.G_RET_STS_ERROR',
489: x_msg_count,
484: WHEN OKC_API.G_EXCEPTION_ERROR THEN
485: x_return_status := OKC_API.HANDLE_EXCEPTIONS
486: (l_api_name,
487: G_PKG_NAME,
488: 'OKC_API.G_RET_STS_ERROR',
489: x_msg_count,
490: x_msg_data,
491: '_PROCESS');
492: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
488: 'OKC_API.G_RET_STS_ERROR',
489: x_msg_count,
490: x_msg_data,
491: '_PROCESS');
492: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
493: x_return_status := OKC_API.HANDLE_EXCEPTIONS
494: (l_api_name,
495: G_PKG_NAME,
496: 'OKC_API.G_RET_STS_UNEXP_ERROR',
489: x_msg_count,
490: x_msg_data,
491: '_PROCESS');
492: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
493: x_return_status := OKC_API.HANDLE_EXCEPTIONS
494: (l_api_name,
495: G_PKG_NAME,
496: 'OKC_API.G_RET_STS_UNEXP_ERROR',
497: x_msg_count,
492: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
493: x_return_status := OKC_API.HANDLE_EXCEPTIONS
494: (l_api_name,
495: G_PKG_NAME,
496: 'OKC_API.G_RET_STS_UNEXP_ERROR',
497: x_msg_count,
498: x_msg_data,
499: '_PROCESS');
500: WHEN OTHERS THEN
497: x_msg_count,
498: x_msg_data,
499: '_PROCESS');
500: WHEN OTHERS THEN
501: x_return_status := OKC_API.HANDLE_EXCEPTIONS
502: (l_api_name,
503: G_PKG_NAME,
504: 'OTHERS',
505: x_msg_count,