151: --
152: BEGIN
153:
154: IF (l_debug = 'Y') THEN
155: okc_debug.Set_Indentation(l_proc);
156: okc_debug.Log('10: Entering ',2);
157: END IF;
158:
159: -- initialize return status
152: BEGIN
153:
154: IF (l_debug = 'Y') THEN
155: okc_debug.Set_Indentation(l_proc);
156: okc_debug.Log('10: Entering ',2);
157: END IF;
158:
159: -- initialize return status
160: x_return_status := OKC_API.G_RET_STS_SUCCESS;
398:
399:
400:
401: IF (l_debug = 'Y') THEN
402: okc_debug.Log('1000: Leaving ',2);
403: okc_debug.Reset_Indentation;
404: END IF;
405: EXCEPTION
406: WHEN G_EXCEPTION_HALT_VALIDATION THEN
399:
400:
401: IF (l_debug = 'Y') THEN
402: okc_debug.Log('1000: Leaving ',2);
403: okc_debug.Reset_Indentation;
404: END IF;
405: EXCEPTION
406: WHEN G_EXCEPTION_HALT_VALIDATION THEN
407: IF (l_debug = 'Y') THEN
404: END IF;
405: EXCEPTION
406: WHEN G_EXCEPTION_HALT_VALIDATION THEN
407: IF (l_debug = 'Y') THEN
408: okc_debug.Log('2000: Leaving ',2);
409: okc_debug.Reset_Indentation;
410: END IF;
411: -- no processing necessary; validation can continue with next column
412: NULL;
405: EXCEPTION
406: WHEN G_EXCEPTION_HALT_VALIDATION THEN
407: IF (l_debug = 'Y') THEN
408: okc_debug.Log('2000: Leaving ',2);
409: okc_debug.Reset_Indentation;
410: END IF;
411: -- no processing necessary; validation can continue with next column
412: NULL;
413: WHEN OTHERS THEN
411: -- no processing necessary; validation can continue with next column
412: NULL;
413: WHEN OTHERS THEN
414: IF (l_debug = 'Y') THEN
415: okc_debug.Log('3000: Leaving ',2);
416: okc_debug.Reset_Indentation;
417: END IF;
418: -- store SQL error message on message stack
419: OKC_API.SET_MESSAGE(
412: NULL;
413: WHEN OTHERS THEN
414: IF (l_debug = 'Y') THEN
415: okc_debug.Log('3000: Leaving ',2);
416: okc_debug.Reset_Indentation;
417: END IF;
418: -- store SQL error message on message stack
419: OKC_API.SET_MESSAGE(
420: p_app_name => G_APP_NAME,