256: --Description : Returns Name, Description for a given role or all the roles
257: -- attached to a contract
258: --End of Comments
259: Procedure Validate_Link_Asset (p_api_version IN NUMBER,
260: p_init_msg_list IN VARCHAR2 default OKC_API.G_FALSE,
261: x_return_status OUT NOCOPY VARCHAR2,
262: x_msg_count OUT NOCOPY NUMBER,
263: x_msg_data OUT NOCOPY VARCHAR2,
264: p_chr_id IN NUMBER,
295: l_id okl_k_lines.id%type;
296:
297: l_api_name CONSTANT VARCHAR2(30) := 'Validate_Link_Asset';
298: l_api_version CONSTANT NUMBER := 1.0;
299: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
300:
301: CURSOR get_item_csr(p_chr_id NUMBER, p_parent_cle_id NUMBER, p_link_ast_id1 VARCHAR2, p_link_ast_id2 VARCHAR2) IS
302: SELECT link_ast.id
303: from okl_k_lines_full_v sub_line, okc_k_items_v link_ast
324: If okl_context.get_okc_org_id is null then
325: okl_context.set_okc_org_context(p_chr_id => l_chr_id );
326: End If;
327:
328: If ( p_chr_id is null or p_chr_id = OKC_API.G_MISS_NUM)
329: Then
330: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
331: ElsIf ( p_parent_cle_id is null or p_parent_cle_id = OKC_API.G_MISS_NUM)
332: Then
326: End If;
327:
328: If ( p_chr_id is null or p_chr_id = OKC_API.G_MISS_NUM)
329: Then
330: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
331: ElsIf ( p_parent_cle_id is null or p_parent_cle_id = OKC_API.G_MISS_NUM)
332: Then
333: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
334: ElsIf ( p_name is null or p_name = OKC_API.G_MISS_CHAR)
327:
328: If ( p_chr_id is null or p_chr_id = OKC_API.G_MISS_NUM)
329: Then
330: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
331: ElsIf ( p_parent_cle_id is null or p_parent_cle_id = OKC_API.G_MISS_NUM)
332: Then
333: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
334: ElsIf ( p_name is null or p_name = OKC_API.G_MISS_CHAR)
335: Then
329: Then
330: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
331: ElsIf ( p_parent_cle_id is null or p_parent_cle_id = OKC_API.G_MISS_NUM)
332: Then
333: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
334: ElsIf ( p_name is null or p_name = OKC_API.G_MISS_CHAR)
335: Then
336: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
337: End If;
330: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
331: ElsIf ( p_parent_cle_id is null or p_parent_cle_id = OKC_API.G_MISS_NUM)
332: Then
333: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
334: ElsIf ( p_name is null or p_name = OKC_API.G_MISS_CHAR)
335: Then
336: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
337: End If;
338:
332: Then
333: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
334: ElsIf ( p_name is null or p_name = OKC_API.G_MISS_CHAR)
335: Then
336: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
337: End If;
338:
339: OPEN get_lty_code_csr(p_chr_id => p_chr_id,
340: p_cle_id => p_parent_cle_id );
342: FETCH get_lty_code_csr INTO l_lty_code;
343:
344: If get_lty_code_csr%NotFound Then
345:
346: x_return_status := OKC_API.g_ret_sts_error;
347: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED');
348: raise OKC_API.G_EXCEPTION_ERROR;
349:
350: End If;
343:
344: If get_lty_code_csr%NotFound Then
345:
346: x_return_status := OKC_API.g_ret_sts_error;
347: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED');
348: raise OKC_API.G_EXCEPTION_ERROR;
349:
350: End If;
351:
344: If get_lty_code_csr%NotFound Then
345:
346: x_return_status := OKC_API.g_ret_sts_error;
347: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED');
348: raise OKC_API.G_EXCEPTION_ERROR;
349:
350: End If;
351:
352: CLOSE get_lty_code_csr;
369:
370: FETCH okl_strmtyp_csr into l_id1,l_id2,l_name,l_description;
371:
372: If okl_strmtyp_csr%NotFound Then
373: x_return_status := OKC_API.g_ret_sts_error;
374: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED');
375: raise OKC_API.G_EXCEPTION_ERROR;
376: End If;
377:
370: FETCH okl_strmtyp_csr into l_id1,l_id2,l_name,l_description;
371:
372: If okl_strmtyp_csr%NotFound Then
373: x_return_status := OKC_API.g_ret_sts_error;
374: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED');
375: raise OKC_API.G_EXCEPTION_ERROR;
376: End If;
377:
378: l_id11 := l_id1;
371:
372: If okl_strmtyp_csr%NotFound Then
373: x_return_status := OKC_API.g_ret_sts_error;
374: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED');
375: raise OKC_API.G_EXCEPTION_ERROR;
376: End If;
377:
378: l_id11 := l_id1;
379: l_id22 := l_id2;
380:
381: FETCH okl_strmtyp_csr into l_id1,l_id2,l_name,l_description;
382: If okl_strmtyp_csr%Found Then
383:
384: If( p_id1 is null or p_id1 = OKC_API.G_MISS_CHAR) then
385: x_return_status := OKC_API.g_ret_sts_error;
386: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED'); -- duplicate values found; pl. select an asset from lov
387: raise OKC_API.G_EXCEPTION_ERROR;
388: End If;
381: FETCH okl_strmtyp_csr into l_id1,l_id2,l_name,l_description;
382: If okl_strmtyp_csr%Found Then
383:
384: If( p_id1 is null or p_id1 = OKC_API.G_MISS_CHAR) then
385: x_return_status := OKC_API.g_ret_sts_error;
386: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED'); -- duplicate values found; pl. select an asset from lov
387: raise OKC_API.G_EXCEPTION_ERROR;
388: End If;
389:
382: If okl_strmtyp_csr%Found Then
383:
384: If( p_id1 is null or p_id1 = OKC_API.G_MISS_CHAR) then
385: x_return_status := OKC_API.g_ret_sts_error;
386: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED'); -- duplicate values found; pl. select an asset from lov
387: raise OKC_API.G_EXCEPTION_ERROR;
388: End If;
389:
390: If( p_id2 is null or p_id2 = OKC_API.G_MISS_CHAR) then
383:
384: If( p_id1 is null or p_id1 = OKC_API.G_MISS_CHAR) then
385: x_return_status := OKC_API.g_ret_sts_error;
386: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED'); -- duplicate values found; pl. select an asset from lov
387: raise OKC_API.G_EXCEPTION_ERROR;
388: End If;
389:
390: If( p_id2 is null or p_id2 = OKC_API.G_MISS_CHAR) then
391: x_return_status := OKC_API.g_ret_sts_error;
386: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED'); -- duplicate values found; pl. select an asset from lov
387: raise OKC_API.G_EXCEPTION_ERROR;
388: End If;
389:
390: If( p_id2 is null or p_id2 = OKC_API.G_MISS_CHAR) then
391: x_return_status := OKC_API.g_ret_sts_error;
392: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED'); -- duplicate values found; pl. select an asset from lov
393: raise OKC_API.G_EXCEPTION_ERROR;
394: End If;
387: raise OKC_API.G_EXCEPTION_ERROR;
388: End If;
389:
390: If( p_id2 is null or p_id2 = OKC_API.G_MISS_CHAR) then
391: x_return_status := OKC_API.g_ret_sts_error;
392: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED'); -- duplicate values found; pl. select an asset from lov
393: raise OKC_API.G_EXCEPTION_ERROR;
394: End If;
395:
388: End If;
389:
390: If( p_id2 is null or p_id2 = OKC_API.G_MISS_CHAR) then
391: x_return_status := OKC_API.g_ret_sts_error;
392: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED'); -- duplicate values found; pl. select an asset from lov
393: raise OKC_API.G_EXCEPTION_ERROR;
394: End If;
395:
396: Loop
389:
390: If( p_id2 is null or p_id2 = OKC_API.G_MISS_CHAR) then
391: x_return_status := OKC_API.g_ret_sts_error;
392: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED'); -- duplicate values found; pl. select an asset from lov
393: raise OKC_API.G_EXCEPTION_ERROR;
394: End If;
395:
396: Loop
397: If(l_id1 = p_id1 and l_id2 = p_id2) Then
404: Exit When okl_strmtyp_csr%NotFound;
405: End Loop;
406:
407: If row_count <> 1 Then
408: x_return_status := OKC_API.g_ret_sts_error;
409: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED'); -- duplicate values found; pl. select an asset
410: raise OKC_API.G_EXCEPTION_ERROR;
411: End If;
412:
405: End Loop;
406:
407: If row_count <> 1 Then
408: x_return_status := OKC_API.g_ret_sts_error;
409: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED'); -- duplicate values found; pl. select an asset
410: raise OKC_API.G_EXCEPTION_ERROR;
411: End If;
412:
413: End If;
406:
407: If row_count <> 1 Then
408: x_return_status := OKC_API.g_ret_sts_error;
409: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED'); -- duplicate values found; pl. select an asset
410: raise OKC_API.G_EXCEPTION_ERROR;
411: End If;
412:
413: End If;
414:
436:
437: FETCH okl_usage_csr into l_id1,l_id2,l_name,l_description;
438:
439: If okl_usage_csr%NotFound Then
440: x_return_status := OKC_API.g_ret_sts_error;
441: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED');
442: raise OKC_API.G_EXCEPTION_ERROR;
443: End If;
444:
437: FETCH okl_usage_csr into l_id1,l_id2,l_name,l_description;
438:
439: If okl_usage_csr%NotFound Then
440: x_return_status := OKC_API.g_ret_sts_error;
441: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED');
442: raise OKC_API.G_EXCEPTION_ERROR;
443: End If;
444:
445: l_id11 := l_id1;
438:
439: If okl_usage_csr%NotFound Then
440: x_return_status := OKC_API.g_ret_sts_error;
441: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED');
442: raise OKC_API.G_EXCEPTION_ERROR;
443: End If;
444:
445: l_id11 := l_id1;
446: l_id22 := l_id2;
447:
448: FETCH okl_usage_csr into l_id1,l_id2,l_name,l_description;
449: If okl_usage_csr%Found Then
450:
451: If( p_id1 is null or p_id1 = OKC_API.G_MISS_CHAR) then
452: x_return_status := OKC_API.g_ret_sts_error;
453: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED'); -- duplicate values found; pl. select an asset from lov
454: raise OKC_API.G_EXCEPTION_ERROR;
455: End If;
448: FETCH okl_usage_csr into l_id1,l_id2,l_name,l_description;
449: If okl_usage_csr%Found Then
450:
451: If( p_id1 is null or p_id1 = OKC_API.G_MISS_CHAR) then
452: x_return_status := OKC_API.g_ret_sts_error;
453: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED'); -- duplicate values found; pl. select an asset from lov
454: raise OKC_API.G_EXCEPTION_ERROR;
455: End If;
456:
449: If okl_usage_csr%Found Then
450:
451: If( p_id1 is null or p_id1 = OKC_API.G_MISS_CHAR) then
452: x_return_status := OKC_API.g_ret_sts_error;
453: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED'); -- duplicate values found; pl. select an asset from lov
454: raise OKC_API.G_EXCEPTION_ERROR;
455: End If;
456:
457: If( p_id2 is null or p_id2 = OKC_API.G_MISS_CHAR) then
450:
451: If( p_id1 is null or p_id1 = OKC_API.G_MISS_CHAR) then
452: x_return_status := OKC_API.g_ret_sts_error;
453: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED'); -- duplicate values found; pl. select an asset from lov
454: raise OKC_API.G_EXCEPTION_ERROR;
455: End If;
456:
457: If( p_id2 is null or p_id2 = OKC_API.G_MISS_CHAR) then
458: x_return_status := OKC_API.g_ret_sts_error;
453: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED'); -- duplicate values found; pl. select an asset from lov
454: raise OKC_API.G_EXCEPTION_ERROR;
455: End If;
456:
457: If( p_id2 is null or p_id2 = OKC_API.G_MISS_CHAR) then
458: x_return_status := OKC_API.g_ret_sts_error;
459: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED'); -- duplicate values found; pl. select an asset from lov
460: raise OKC_API.G_EXCEPTION_ERROR;
461: End If;
454: raise OKC_API.G_EXCEPTION_ERROR;
455: End If;
456:
457: If( p_id2 is null or p_id2 = OKC_API.G_MISS_CHAR) then
458: x_return_status := OKC_API.g_ret_sts_error;
459: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED'); -- duplicate values found; pl. select an asset from lov
460: raise OKC_API.G_EXCEPTION_ERROR;
461: End If;
462:
455: End If;
456:
457: If( p_id2 is null or p_id2 = OKC_API.G_MISS_CHAR) then
458: x_return_status := OKC_API.g_ret_sts_error;
459: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED'); -- duplicate values found; pl. select an asset from lov
460: raise OKC_API.G_EXCEPTION_ERROR;
461: End If;
462:
463: Loop
456:
457: If( p_id2 is null or p_id2 = OKC_API.G_MISS_CHAR) then
458: x_return_status := OKC_API.g_ret_sts_error;
459: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED'); -- duplicate values found; pl. select an asset from lov
460: raise OKC_API.G_EXCEPTION_ERROR;
461: End If;
462:
463: Loop
464: If(l_id1 = p_id1 and l_id2 = p_id2) Then
471: Exit When okl_usage_csr%NotFound;
472: End Loop;
473:
474: If row_count <> 1 Then
475: x_return_status := OKC_API.g_ret_sts_error;
476: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED'); -- duplicate values found; pl. select an asset
477: raise OKC_API.G_EXCEPTION_ERROR;
478: End If;
479:
472: End Loop;
473:
474: If row_count <> 1 Then
475: x_return_status := OKC_API.g_ret_sts_error;
476: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED'); -- duplicate values found; pl. select an asset
477: raise OKC_API.G_EXCEPTION_ERROR;
478: End If;
479:
480: End If;
473:
474: If row_count <> 1 Then
475: x_return_status := OKC_API.g_ret_sts_error;
476: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED'); -- duplicate values found; pl. select an asset
477: raise OKC_API.G_EXCEPTION_ERROR;
478: End If;
479:
480: End If;
481:
501:
502: FETCH okx_asset_csr into l_id1,l_id2,l_name,l_description;
503:
504: If okx_asset_csr%NotFound Then
505: x_return_status := OKC_API.g_ret_sts_error;
506: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED');
507: raise OKC_API.G_EXCEPTION_ERROR;
508: End If;
509:
502: FETCH okx_asset_csr into l_id1,l_id2,l_name,l_description;
503:
504: If okx_asset_csr%NotFound Then
505: x_return_status := OKC_API.g_ret_sts_error;
506: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED');
507: raise OKC_API.G_EXCEPTION_ERROR;
508: End If;
509:
510: l_id11 := l_id1;
503:
504: If okx_asset_csr%NotFound Then
505: x_return_status := OKC_API.g_ret_sts_error;
506: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED');
507: raise OKC_API.G_EXCEPTION_ERROR;
508: End If;
509:
510: l_id11 := l_id1;
511: l_id22 := l_id2;
512:
513: FETCH okx_asset_csr into l_id1,l_id2,l_name,l_description;
514: If okx_asset_csr%Found Then
515:
516: If( p_id1 is null or p_id1 = OKC_API.G_MISS_CHAR) then
517: x_return_status := OKC_API.g_ret_sts_error;
518: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED'); -- duplicate values found; pl. select an asset from lov
519: raise OKC_API.G_EXCEPTION_ERROR;
520: End If;
513: FETCH okx_asset_csr into l_id1,l_id2,l_name,l_description;
514: If okx_asset_csr%Found Then
515:
516: If( p_id1 is null or p_id1 = OKC_API.G_MISS_CHAR) then
517: x_return_status := OKC_API.g_ret_sts_error;
518: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED'); -- duplicate values found; pl. select an asset from lov
519: raise OKC_API.G_EXCEPTION_ERROR;
520: End If;
521:
514: If okx_asset_csr%Found Then
515:
516: If( p_id1 is null or p_id1 = OKC_API.G_MISS_CHAR) then
517: x_return_status := OKC_API.g_ret_sts_error;
518: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED'); -- duplicate values found; pl. select an asset from lov
519: raise OKC_API.G_EXCEPTION_ERROR;
520: End If;
521:
522: If( p_id2 is null or p_id2 = OKC_API.G_MISS_CHAR) then
515:
516: If( p_id1 is null or p_id1 = OKC_API.G_MISS_CHAR) then
517: x_return_status := OKC_API.g_ret_sts_error;
518: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED'); -- duplicate values found; pl. select an asset from lov
519: raise OKC_API.G_EXCEPTION_ERROR;
520: End If;
521:
522: If( p_id2 is null or p_id2 = OKC_API.G_MISS_CHAR) then
523: x_return_status := OKC_API.g_ret_sts_error;
518: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED'); -- duplicate values found; pl. select an asset from lov
519: raise OKC_API.G_EXCEPTION_ERROR;
520: End If;
521:
522: If( p_id2 is null or p_id2 = OKC_API.G_MISS_CHAR) then
523: x_return_status := OKC_API.g_ret_sts_error;
524: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED'); -- duplicate values found; pl. select an asset from lov
525: raise OKC_API.G_EXCEPTION_ERROR;
526: End If;
519: raise OKC_API.G_EXCEPTION_ERROR;
520: End If;
521:
522: If( p_id2 is null or p_id2 = OKC_API.G_MISS_CHAR) then
523: x_return_status := OKC_API.g_ret_sts_error;
524: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED'); -- duplicate values found; pl. select an asset from lov
525: raise OKC_API.G_EXCEPTION_ERROR;
526: End If;
527:
520: End If;
521:
522: If( p_id2 is null or p_id2 = OKC_API.G_MISS_CHAR) then
523: x_return_status := OKC_API.g_ret_sts_error;
524: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED'); -- duplicate values found; pl. select an asset from lov
525: raise OKC_API.G_EXCEPTION_ERROR;
526: End If;
527:
528: Loop
521:
522: If( p_id2 is null or p_id2 = OKC_API.G_MISS_CHAR) then
523: x_return_status := OKC_API.g_ret_sts_error;
524: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED'); -- duplicate values found; pl. select an asset from lov
525: raise OKC_API.G_EXCEPTION_ERROR;
526: End If;
527:
528: Loop
529: If(l_id1 = p_id1 and l_id2 = p_id2) Then
536: Exit When okx_asset_csr%NotFound;
537: End Loop;
538:
539: If row_count <> 1 Then
540: x_return_status := OKC_API.g_ret_sts_error;
541: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED'); -- duplicate values found; pl. select an asset
542: raise OKC_API.G_EXCEPTION_ERROR;
543: End If;
544:
537: End Loop;
538:
539: If row_count <> 1 Then
540: x_return_status := OKC_API.g_ret_sts_error;
541: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED'); -- duplicate values found; pl. select an asset
542: raise OKC_API.G_EXCEPTION_ERROR;
543: End If;
544:
545: End If;
538:
539: If row_count <> 1 Then
540: x_return_status := OKC_API.g_ret_sts_error;
541: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED'); -- duplicate values found; pl. select an asset
542: raise OKC_API.G_EXCEPTION_ERROR;
543: End If;
544:
545: End If;
546:
569:
570: FETCH okx_covasst_csr into l_id1,l_id2,l_name,l_description;
571:
572: If okx_covasst_csr%NotFound Then
573: x_return_status := OKC_API.g_ret_sts_error;
574: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED');
575: raise OKC_API.G_EXCEPTION_ERROR;
576: End If;
577:
570: FETCH okx_covasst_csr into l_id1,l_id2,l_name,l_description;
571:
572: If okx_covasst_csr%NotFound Then
573: x_return_status := OKC_API.g_ret_sts_error;
574: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED');
575: raise OKC_API.G_EXCEPTION_ERROR;
576: End If;
577:
578: l_id11 := l_id1;
571:
572: If okx_covasst_csr%NotFound Then
573: x_return_status := OKC_API.g_ret_sts_error;
574: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED');
575: raise OKC_API.G_EXCEPTION_ERROR;
576: End If;
577:
578: l_id11 := l_id1;
579: l_id22 := l_id2;
580:
581: FETCH okx_covasst_csr into l_id1,l_id2,l_name,l_description;
582: If okx_covasst_csr%Found Then
583:
584: If( p_id1 is null or p_id1 = OKC_API.G_MISS_CHAR) then
585: x_return_status := OKC_API.g_ret_sts_error;
586: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED'); -- duplicate values found; pl. select an asset from lov
587: raise OKC_API.G_EXCEPTION_ERROR;
588: End If;
581: FETCH okx_covasst_csr into l_id1,l_id2,l_name,l_description;
582: If okx_covasst_csr%Found Then
583:
584: If( p_id1 is null or p_id1 = OKC_API.G_MISS_CHAR) then
585: x_return_status := OKC_API.g_ret_sts_error;
586: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED'); -- duplicate values found; pl. select an asset from lov
587: raise OKC_API.G_EXCEPTION_ERROR;
588: End If;
589:
582: If okx_covasst_csr%Found Then
583:
584: If( p_id1 is null or p_id1 = OKC_API.G_MISS_CHAR) then
585: x_return_status := OKC_API.g_ret_sts_error;
586: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED'); -- duplicate values found; pl. select an asset from lov
587: raise OKC_API.G_EXCEPTION_ERROR;
588: End If;
589:
590: If( p_id2 is null or p_id2 = OKC_API.G_MISS_CHAR) then
583:
584: If( p_id1 is null or p_id1 = OKC_API.G_MISS_CHAR) then
585: x_return_status := OKC_API.g_ret_sts_error;
586: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED'); -- duplicate values found; pl. select an asset from lov
587: raise OKC_API.G_EXCEPTION_ERROR;
588: End If;
589:
590: If( p_id2 is null or p_id2 = OKC_API.G_MISS_CHAR) then
591: x_return_status := OKC_API.g_ret_sts_error;
586: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED'); -- duplicate values found; pl. select an asset from lov
587: raise OKC_API.G_EXCEPTION_ERROR;
588: End If;
589:
590: If( p_id2 is null or p_id2 = OKC_API.G_MISS_CHAR) then
591: x_return_status := OKC_API.g_ret_sts_error;
592: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED'); -- duplicate values found; pl. select an asset from lov
593: raise OKC_API.G_EXCEPTION_ERROR;
594: End If;
587: raise OKC_API.G_EXCEPTION_ERROR;
588: End If;
589:
590: If( p_id2 is null or p_id2 = OKC_API.G_MISS_CHAR) then
591: x_return_status := OKC_API.g_ret_sts_error;
592: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED'); -- duplicate values found; pl. select an asset from lov
593: raise OKC_API.G_EXCEPTION_ERROR;
594: End If;
595:
588: End If;
589:
590: If( p_id2 is null or p_id2 = OKC_API.G_MISS_CHAR) then
591: x_return_status := OKC_API.g_ret_sts_error;
592: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED'); -- duplicate values found; pl. select an asset from lov
593: raise OKC_API.G_EXCEPTION_ERROR;
594: End If;
595:
596: Loop
589:
590: If( p_id2 is null or p_id2 = OKC_API.G_MISS_CHAR) then
591: x_return_status := OKC_API.g_ret_sts_error;
592: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED'); -- duplicate values found; pl. select an asset from lov
593: raise OKC_API.G_EXCEPTION_ERROR;
594: End If;
595:
596: Loop
597: If(l_id1 = p_id1 and l_id2 = p_id2) Then
604: Exit When okx_covasst_csr%NotFound;
605: End Loop;
606:
607: If row_count <> 1 Then
608: x_return_status := OKC_API.g_ret_sts_error;
609: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED'); -- duplicate values found; pl. select an asset
610: raise OKC_API.G_EXCEPTION_ERROR;
611: End If;
612:
605: End Loop;
606:
607: If row_count <> 1 Then
608: x_return_status := OKC_API.g_ret_sts_error;
609: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED'); -- duplicate values found; pl. select an asset
610: raise OKC_API.G_EXCEPTION_ERROR;
611: End If;
612:
613: End If;
606:
607: If row_count <> 1 Then
608: x_return_status := OKC_API.g_ret_sts_error;
609: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED'); -- duplicate values found; pl. select an asset
610: raise OKC_API.G_EXCEPTION_ERROR;
611: End If;
612:
613: End If;
614:
634:
635: FETCH okx_ib_item_csr into l_id1,l_id2,l_name,l_description;
636:
637: If okx_ib_item_csr%NotFound Then
638: x_return_status := OKC_API.g_ret_sts_error;
639: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED');
640: raise OKC_API.G_EXCEPTION_ERROR;
641: End If;
642:
635: FETCH okx_ib_item_csr into l_id1,l_id2,l_name,l_description;
636:
637: If okx_ib_item_csr%NotFound Then
638: x_return_status := OKC_API.g_ret_sts_error;
639: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED');
640: raise OKC_API.G_EXCEPTION_ERROR;
641: End If;
642:
643: l_id11 := l_id1;
636:
637: If okx_ib_item_csr%NotFound Then
638: x_return_status := OKC_API.g_ret_sts_error;
639: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED');
640: raise OKC_API.G_EXCEPTION_ERROR;
641: End If;
642:
643: l_id11 := l_id1;
644: l_id22 := l_id2;
645:
646: FETCH okx_ib_item_csr into l_id1,l_id2,l_name,l_description;
647: If okx_ib_item_csr%Found Then
648:
649: If( p_id1 is null or p_id1 = OKC_API.G_MISS_CHAR) then
650: x_return_status := OKC_API.g_ret_sts_error;
651: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED'); -- duplicate values found; pl. select an asset from lov
652: raise OKC_API.G_EXCEPTION_ERROR;
653: End If;
646: FETCH okx_ib_item_csr into l_id1,l_id2,l_name,l_description;
647: If okx_ib_item_csr%Found Then
648:
649: If( p_id1 is null or p_id1 = OKC_API.G_MISS_CHAR) then
650: x_return_status := OKC_API.g_ret_sts_error;
651: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED'); -- duplicate values found; pl. select an asset from lov
652: raise OKC_API.G_EXCEPTION_ERROR;
653: End If;
654:
647: If okx_ib_item_csr%Found Then
648:
649: If( p_id1 is null or p_id1 = OKC_API.G_MISS_CHAR) then
650: x_return_status := OKC_API.g_ret_sts_error;
651: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED'); -- duplicate values found; pl. select an asset from lov
652: raise OKC_API.G_EXCEPTION_ERROR;
653: End If;
654:
655: If( p_id2 is null or p_id2 = OKC_API.G_MISS_CHAR) then
648:
649: If( p_id1 is null or p_id1 = OKC_API.G_MISS_CHAR) then
650: x_return_status := OKC_API.g_ret_sts_error;
651: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED'); -- duplicate values found; pl. select an asset from lov
652: raise OKC_API.G_EXCEPTION_ERROR;
653: End If;
654:
655: If( p_id2 is null or p_id2 = OKC_API.G_MISS_CHAR) then
656: x_return_status := OKC_API.g_ret_sts_error;
651: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED'); -- duplicate values found; pl. select an asset from lov
652: raise OKC_API.G_EXCEPTION_ERROR;
653: End If;
654:
655: If( p_id2 is null or p_id2 = OKC_API.G_MISS_CHAR) then
656: x_return_status := OKC_API.g_ret_sts_error;
657: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED'); -- duplicate values found; pl. select an asset from lov
658: raise OKC_API.G_EXCEPTION_ERROR;
659: End If;
652: raise OKC_API.G_EXCEPTION_ERROR;
653: End If;
654:
655: If( p_id2 is null or p_id2 = OKC_API.G_MISS_CHAR) then
656: x_return_status := OKC_API.g_ret_sts_error;
657: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED'); -- duplicate values found; pl. select an asset from lov
658: raise OKC_API.G_EXCEPTION_ERROR;
659: End If;
660:
653: End If;
654:
655: If( p_id2 is null or p_id2 = OKC_API.G_MISS_CHAR) then
656: x_return_status := OKC_API.g_ret_sts_error;
657: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED'); -- duplicate values found; pl. select an asset from lov
658: raise OKC_API.G_EXCEPTION_ERROR;
659: End If;
660:
661: Loop
654:
655: If( p_id2 is null or p_id2 = OKC_API.G_MISS_CHAR) then
656: x_return_status := OKC_API.g_ret_sts_error;
657: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED'); -- duplicate values found; pl. select an asset from lov
658: raise OKC_API.G_EXCEPTION_ERROR;
659: End If;
660:
661: Loop
662: If(l_id1 = p_id1 and l_id2 = p_id2) Then
669: Exit When okx_ib_item_csr%NotFound;
670: End Loop;
671:
672: If row_count <> 1 Then
673: x_return_status := OKC_API.g_ret_sts_error;
674: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED'); -- duplicate values found; pl. select an asset
675: raise OKC_API.G_EXCEPTION_ERROR;
676: End If;
677:
670: End Loop;
671:
672: If row_count <> 1 Then
673: x_return_status := OKC_API.g_ret_sts_error;
674: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED'); -- duplicate values found; pl. select an asset
675: raise OKC_API.G_EXCEPTION_ERROR;
676: End If;
677:
678: End If;
671:
672: If row_count <> 1 Then
673: x_return_status := OKC_API.g_ret_sts_error;
674: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED'); -- duplicate values found; pl. select an asset
675: raise OKC_API.G_EXCEPTION_ERROR;
676: End If;
677:
678: End If;
679:
706:
707: FETCH okx_service_csr into l_id1,l_id2,l_name,l_description;
708:
709: If okx_service_csr%NotFound Then
710: x_return_status := OKC_API.g_ret_sts_error;
711: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED');
712: raise OKC_API.G_EXCEPTION_ERROR;
713: End If;
714:
707: FETCH okx_service_csr into l_id1,l_id2,l_name,l_description;
708:
709: If okx_service_csr%NotFound Then
710: x_return_status := OKC_API.g_ret_sts_error;
711: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED');
712: raise OKC_API.G_EXCEPTION_ERROR;
713: End If;
714:
715: l_id11 := l_id1;
708:
709: If okx_service_csr%NotFound Then
710: x_return_status := OKC_API.g_ret_sts_error;
711: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED');
712: raise OKC_API.G_EXCEPTION_ERROR;
713: End If;
714:
715: l_id11 := l_id1;
716: l_id22 := l_id2;
717:
718: FETCH okx_service_csr into l_id1,l_id2,l_name,l_description;
719: If okx_service_csr%Found Then
720:
721: If( p_id1 is null or p_id1 = OKC_API.G_MISS_CHAR) then
722: x_return_status := OKC_API.g_ret_sts_error;
723: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED'); -- duplicate values found; pl. select an asset from lov
724: raise OKC_API.G_EXCEPTION_ERROR;
725: End If;
718: FETCH okx_service_csr into l_id1,l_id2,l_name,l_description;
719: If okx_service_csr%Found Then
720:
721: If( p_id1 is null or p_id1 = OKC_API.G_MISS_CHAR) then
722: x_return_status := OKC_API.g_ret_sts_error;
723: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED'); -- duplicate values found; pl. select an asset from lov
724: raise OKC_API.G_EXCEPTION_ERROR;
725: End If;
726:
719: If okx_service_csr%Found Then
720:
721: If( p_id1 is null or p_id1 = OKC_API.G_MISS_CHAR) then
722: x_return_status := OKC_API.g_ret_sts_error;
723: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED'); -- duplicate values found; pl. select an asset from lov
724: raise OKC_API.G_EXCEPTION_ERROR;
725: End If;
726:
727: If( p_id2 is null or p_id2 = OKC_API.G_MISS_CHAR) then
720:
721: If( p_id1 is null or p_id1 = OKC_API.G_MISS_CHAR) then
722: x_return_status := OKC_API.g_ret_sts_error;
723: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED'); -- duplicate values found; pl. select an asset from lov
724: raise OKC_API.G_EXCEPTION_ERROR;
725: End If;
726:
727: If( p_id2 is null or p_id2 = OKC_API.G_MISS_CHAR) then
728: x_return_status := OKC_API.g_ret_sts_error;
723: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED'); -- duplicate values found; pl. select an asset from lov
724: raise OKC_API.G_EXCEPTION_ERROR;
725: End If;
726:
727: If( p_id2 is null or p_id2 = OKC_API.G_MISS_CHAR) then
728: x_return_status := OKC_API.g_ret_sts_error;
729: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED'); -- duplicate values found; pl. select an asset from lov
730: raise OKC_API.G_EXCEPTION_ERROR;
731: End If;
724: raise OKC_API.G_EXCEPTION_ERROR;
725: End If;
726:
727: If( p_id2 is null or p_id2 = OKC_API.G_MISS_CHAR) then
728: x_return_status := OKC_API.g_ret_sts_error;
729: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED'); -- duplicate values found; pl. select an asset from lov
730: raise OKC_API.G_EXCEPTION_ERROR;
731: End If;
732:
725: End If;
726:
727: If( p_id2 is null or p_id2 = OKC_API.G_MISS_CHAR) then
728: x_return_status := OKC_API.g_ret_sts_error;
729: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED'); -- duplicate values found; pl. select an asset from lov
730: raise OKC_API.G_EXCEPTION_ERROR;
731: End If;
732:
733: Loop
726:
727: If( p_id2 is null or p_id2 = OKC_API.G_MISS_CHAR) then
728: x_return_status := OKC_API.g_ret_sts_error;
729: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED'); -- duplicate values found; pl. select an asset from lov
730: raise OKC_API.G_EXCEPTION_ERROR;
731: End If;
732:
733: Loop
734: If(l_id1 = p_id1 and l_id2 = p_id2) Then
741: Exit When okx_service_csr%NotFound;
742: End Loop;
743:
744: If row_count <> 1 Then
745: x_return_status := OKC_API.g_ret_sts_error;
746: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED'); -- duplicate values found; pl. select an asset
747: raise OKC_API.G_EXCEPTION_ERROR;
748: End If;
749:
742: End Loop;
743:
744: If row_count <> 1 Then
745: x_return_status := OKC_API.g_ret_sts_error;
746: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED'); -- duplicate values found; pl. select an asset
747: raise OKC_API.G_EXCEPTION_ERROR;
748: End If;
749:
750: End If;
743:
744: If row_count <> 1 Then
745: x_return_status := OKC_API.g_ret_sts_error;
746: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED'); -- duplicate values found; pl. select an asset
747: raise OKC_API.G_EXCEPTION_ERROR;
748: End If;
749:
750: End If;
751:
771:
772: FETCH okx_sysitem_csr into l_id1,l_id2,l_name,l_description;
773:
774: If okx_sysitem_csr%NotFound Then
775: x_return_status := OKC_API.g_ret_sts_error;
776: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED');
777: raise OKC_API.G_EXCEPTION_ERROR;
778: End If;
779:
772: FETCH okx_sysitem_csr into l_id1,l_id2,l_name,l_description;
773:
774: If okx_sysitem_csr%NotFound Then
775: x_return_status := OKC_API.g_ret_sts_error;
776: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED');
777: raise OKC_API.G_EXCEPTION_ERROR;
778: End If;
779:
780: l_id11 := l_id1;
773:
774: If okx_sysitem_csr%NotFound Then
775: x_return_status := OKC_API.g_ret_sts_error;
776: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED');
777: raise OKC_API.G_EXCEPTION_ERROR;
778: End If;
779:
780: l_id11 := l_id1;
781: l_id22 := l_id2;
782:
783: FETCH okx_sysitem_csr into l_id1,l_id2,l_name,l_description;
784: If okx_sysitem_csr%Found Then
785:
786: If( p_id1 is null or p_id1 = OKC_API.G_MISS_CHAR) then
787: x_return_status := OKC_API.g_ret_sts_error;
788: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED'); -- duplicate values found; pl. select an asset from lov
789: raise OKC_API.G_EXCEPTION_ERROR;
790: End If;
783: FETCH okx_sysitem_csr into l_id1,l_id2,l_name,l_description;
784: If okx_sysitem_csr%Found Then
785:
786: If( p_id1 is null or p_id1 = OKC_API.G_MISS_CHAR) then
787: x_return_status := OKC_API.g_ret_sts_error;
788: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED'); -- duplicate values found; pl. select an asset from lov
789: raise OKC_API.G_EXCEPTION_ERROR;
790: End If;
791:
784: If okx_sysitem_csr%Found Then
785:
786: If( p_id1 is null or p_id1 = OKC_API.G_MISS_CHAR) then
787: x_return_status := OKC_API.g_ret_sts_error;
788: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED'); -- duplicate values found; pl. select an asset from lov
789: raise OKC_API.G_EXCEPTION_ERROR;
790: End If;
791:
792: If( p_id2 is null or p_id2 = OKC_API.G_MISS_CHAR) then
785:
786: If( p_id1 is null or p_id1 = OKC_API.G_MISS_CHAR) then
787: x_return_status := OKC_API.g_ret_sts_error;
788: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED'); -- duplicate values found; pl. select an asset from lov
789: raise OKC_API.G_EXCEPTION_ERROR;
790: End If;
791:
792: If( p_id2 is null or p_id2 = OKC_API.G_MISS_CHAR) then
793: x_return_status := OKC_API.g_ret_sts_error;
788: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED'); -- duplicate values found; pl. select an asset from lov
789: raise OKC_API.G_EXCEPTION_ERROR;
790: End If;
791:
792: If( p_id2 is null or p_id2 = OKC_API.G_MISS_CHAR) then
793: x_return_status := OKC_API.g_ret_sts_error;
794: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED'); -- duplicate values found; pl. select an asset from lov
795: raise OKC_API.G_EXCEPTION_ERROR;
796: End If;
789: raise OKC_API.G_EXCEPTION_ERROR;
790: End If;
791:
792: If( p_id2 is null or p_id2 = OKC_API.G_MISS_CHAR) then
793: x_return_status := OKC_API.g_ret_sts_error;
794: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED'); -- duplicate values found; pl. select an asset from lov
795: raise OKC_API.G_EXCEPTION_ERROR;
796: End If;
797:
790: End If;
791:
792: If( p_id2 is null or p_id2 = OKC_API.G_MISS_CHAR) then
793: x_return_status := OKC_API.g_ret_sts_error;
794: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED'); -- duplicate values found; pl. select an asset from lov
795: raise OKC_API.G_EXCEPTION_ERROR;
796: End If;
797:
798: Loop
791:
792: If( p_id2 is null or p_id2 = OKC_API.G_MISS_CHAR) then
793: x_return_status := OKC_API.g_ret_sts_error;
794: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED'); -- duplicate values found; pl. select an asset from lov
795: raise OKC_API.G_EXCEPTION_ERROR;
796: End If;
797:
798: Loop
799: If(l_id1 = p_id1 and l_id2 = p_id2) Then
806: Exit When okx_sysitem_csr%NotFound;
807: End Loop;
808:
809: If row_count <> 1 Then
810: x_return_status := OKC_API.g_ret_sts_error;
811: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED'); -- duplicate values found; pl. select an asset
812: raise OKC_API.G_EXCEPTION_ERROR;
813: End If;
814:
807: End Loop;
808:
809: If row_count <> 1 Then
810: x_return_status := OKC_API.g_ret_sts_error;
811: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED'); -- duplicate values found; pl. select an asset
812: raise OKC_API.G_EXCEPTION_ERROR;
813: End If;
814:
815: End If;
808:
809: If row_count <> 1 Then
810: x_return_status := OKC_API.g_ret_sts_error;
811: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED'); -- duplicate values found; pl. select an asset
812: raise OKC_API.G_EXCEPTION_ERROR;
813: End If;
814:
815: End If;
816:
826: Fetch get_item_csr into l_id;
827:
828: If get_item_csr%Found Then
829: Close get_item_csr;
830: x_return_status := OKC_API.g_ret_sts_error;
831: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_NUMBER'); -- duplicate values found; pl. select an asset
832: raise OKC_API.G_EXCEPTION_ERROR;
833: End If;
834:
827:
828: If get_item_csr%Found Then
829: Close get_item_csr;
830: x_return_status := OKC_API.g_ret_sts_error;
831: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_NUMBER'); -- duplicate values found; pl. select an asset
832: raise OKC_API.G_EXCEPTION_ERROR;
833: End If;
834:
835: Close get_item_csr;
828: If get_item_csr%Found Then
829: Close get_item_csr;
830: x_return_status := OKC_API.g_ret_sts_error;
831: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_NUMBER'); -- duplicate values found; pl. select an asset
832: raise OKC_API.G_EXCEPTION_ERROR;
833: End If;
834:
835: Close get_item_csr;
836:
833: End If;
834:
835: Close get_item_csr;
836:
837: x_return_status := OKC_API.G_RET_STS_SUCCESS;
838:
839:
840: EXCEPTION
841: when OKC_API.G_EXCEPTION_ERROR then
837: x_return_status := OKC_API.G_RET_STS_SUCCESS;
838:
839:
840: EXCEPTION
841: when OKC_API.G_EXCEPTION_ERROR then
842: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
843: p_api_name => l_api_name,
844: p_pkg_name => g_pkg_name,
845: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
838:
839:
840: EXCEPTION
841: when OKC_API.G_EXCEPTION_ERROR then
842: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
843: p_api_name => l_api_name,
844: p_pkg_name => g_pkg_name,
845: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
846: x_msg_count => x_msg_count,
841: when OKC_API.G_EXCEPTION_ERROR then
842: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
843: p_api_name => l_api_name,
844: p_pkg_name => g_pkg_name,
845: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
846: x_msg_count => x_msg_count,
847: x_msg_data => x_msg_data,
848: p_api_type => g_api_type);
849:
874: IF okx_sysitem_csr%ISOPEN THEN
875: CLOSE okx_sysitem_csr;
876: END IF;
877:
878: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
879: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
880: p_api_name => l_api_name,
881: p_pkg_name => g_pkg_name,
882: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
875: CLOSE okx_sysitem_csr;
876: END IF;
877:
878: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
879: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
880: p_api_name => l_api_name,
881: p_pkg_name => g_pkg_name,
882: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
883: x_msg_count => x_msg_count,
878: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
879: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
880: p_api_name => l_api_name,
881: p_pkg_name => g_pkg_name,
882: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
883: x_msg_count => x_msg_count,
884: x_msg_data => x_msg_data,
885: p_api_type => g_api_type);
886:
912: CLOSE okx_sysitem_csr;
913: END IF;
914:
915: when OTHERS then
916: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
917: p_api_name => l_api_name,
918: p_pkg_name => g_pkg_name,
919: p_exc_name => 'OTHERS',
920: x_msg_count => x_msg_count,
951: End Validate_Link_Asset;
952:
953: PROCEDURE delete_contract_line_item(
954: p_api_version IN NUMBER,
955: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
956: x_return_status OUT NOCOPY VARCHAR2,
957: x_msg_count OUT NOCOPY NUMBER,
958: x_msg_data OUT NOCOPY VARCHAR2,
959: p_line_item_tbl IN line_item_tbl_type
960: ) IS
961:
962: l_api_name CONSTANT VARCHAR2(30) := 'delete_contract_line_item';
963: l_api_version CONSTANT NUMBER := 1.0;
964: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
965: i NUMBER;
966: l_chr_id NUMBER;
967:
968: lp_clev_tbl OKL_OKC_MIGRATION_PVT.clev_tbl_type;
974: lx_klev_tbl OKL_KLE_PVT.klev_tbl_type;
975:
976: BEGIN
977:
978: x_return_status := OKC_API.START_ACTIVITY(
979: p_api_name => l_api_name,
980: p_pkg_name => g_pkg_name,
981: p_init_msg_list => p_init_msg_list,
982: l_api_version => l_api_version,
984: p_api_type => g_api_type,
985: x_return_status => x_return_status);
986:
987: -- check if activity started successfully
988: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
989: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
990: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
991: raise OKC_API.G_EXCEPTION_ERROR;
992: End If;
985: x_return_status => x_return_status);
986:
987: -- check if activity started successfully
988: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
989: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
990: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
991: raise OKC_API.G_EXCEPTION_ERROR;
992: End If;
993:
986:
987: -- check if activity started successfully
988: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
989: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
990: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
991: raise OKC_API.G_EXCEPTION_ERROR;
992: End If;
993:
994: If (p_line_item_tbl.COUNT > 0) Then
987: -- check if activity started successfully
988: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
989: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
990: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
991: raise OKC_API.G_EXCEPTION_ERROR;
992: End If;
993:
994: If (p_line_item_tbl.COUNT > 0) Then
995:
1043: p_clev_tbl => lp_clev_tbl,
1044: p_klev_tbl => lp_klev_tbl,
1045: p_cimv_tbl => lp_cimv_tbl);
1046:
1047: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
1048: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1049: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
1050: raise OKC_API.G_EXCEPTION_ERROR;
1051: End If;
1044: p_klev_tbl => lp_klev_tbl,
1045: p_cimv_tbl => lp_cimv_tbl);
1046:
1047: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
1048: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1049: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
1050: raise OKC_API.G_EXCEPTION_ERROR;
1051: End If;
1052:
1045: p_cimv_tbl => lp_cimv_tbl);
1046:
1047: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
1048: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1049: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
1050: raise OKC_API.G_EXCEPTION_ERROR;
1051: End If;
1052:
1053: OKC_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
1046:
1047: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
1048: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1049: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
1050: raise OKC_API.G_EXCEPTION_ERROR;
1051: End If;
1052:
1053: OKC_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
1054:
1049: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
1050: raise OKC_API.G_EXCEPTION_ERROR;
1051: End If;
1052:
1053: OKC_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
1054:
1055: EXCEPTION
1056: when OKC_API.G_EXCEPTION_ERROR then
1057: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
1052:
1053: OKC_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
1054:
1055: EXCEPTION
1056: when OKC_API.G_EXCEPTION_ERROR then
1057: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
1058: p_api_name => l_api_name,
1059: p_pkg_name => g_pkg_name,
1060: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
1053: OKC_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
1054:
1055: EXCEPTION
1056: when OKC_API.G_EXCEPTION_ERROR then
1057: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
1058: p_api_name => l_api_name,
1059: p_pkg_name => g_pkg_name,
1060: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
1061: x_msg_count => x_msg_count,
1056: when OKC_API.G_EXCEPTION_ERROR then
1057: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
1058: p_api_name => l_api_name,
1059: p_pkg_name => g_pkg_name,
1060: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
1061: x_msg_count => x_msg_count,
1062: x_msg_data => x_msg_data,
1063: p_api_type => g_api_type);
1064:
1061: x_msg_count => x_msg_count,
1062: x_msg_data => x_msg_data,
1063: p_api_type => g_api_type);
1064:
1065: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
1066: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
1067: p_api_name => l_api_name,
1068: p_pkg_name => g_pkg_name,
1069: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
1062: x_msg_data => x_msg_data,
1063: p_api_type => g_api_type);
1064:
1065: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
1066: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
1067: p_api_name => l_api_name,
1068: p_pkg_name => g_pkg_name,
1069: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
1070: x_msg_count => x_msg_count,
1065: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
1066: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
1067: p_api_name => l_api_name,
1068: p_pkg_name => g_pkg_name,
1069: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
1070: x_msg_count => x_msg_count,
1071: x_msg_data => x_msg_data,
1072: p_api_type => g_api_type);
1073:
1071: x_msg_data => x_msg_data,
1072: p_api_type => g_api_type);
1073:
1074: when OTHERS then
1075: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
1076: p_api_name => l_api_name,
1077: p_pkg_name => g_pkg_name,
1078: p_exc_name => 'OTHERS',
1079: x_msg_count => x_msg_count,
1083: END;
1084:
1085: PROCEDURE create_contract_line_item(
1086: p_api_version IN NUMBER,
1087: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
1088: x_return_status OUT NOCOPY VARCHAR2,
1089: x_msg_count OUT NOCOPY NUMBER,
1090: x_msg_data OUT NOCOPY VARCHAR2,
1091: p_line_item_tbl IN line_item_tbl_type,
1093: ) IS
1094:
1095: l_api_name CONSTANT VARCHAR2(30) := 'create_contract_line_item';
1096: l_api_version CONSTANT NUMBER := 1.0;
1097: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1098: i NUMBER;
1099: l_chr_id NUMBER;
1100: l_parent_cle_id NUMBER;
1101: l_cnt number := 0;
1173: --Bug#3877032
1174:
1175: BEGIN
1176:
1177: x_return_status := OKC_API.START_ACTIVITY(
1178: p_api_name => l_api_name,
1179: p_pkg_name => g_pkg_name,
1180: p_init_msg_list => p_init_msg_list,
1181: l_api_version => l_api_version,
1183: p_api_type => g_api_type,
1184: x_return_status => x_return_status);
1185:
1186: -- check if activity started successfully
1187: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
1188: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1189: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
1190: raise OKC_API.G_EXCEPTION_ERROR;
1191: End If;
1184: x_return_status => x_return_status);
1185:
1186: -- check if activity started successfully
1187: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
1188: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1189: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
1190: raise OKC_API.G_EXCEPTION_ERROR;
1191: End If;
1192:
1185:
1186: -- check if activity started successfully
1187: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
1188: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1189: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
1190: raise OKC_API.G_EXCEPTION_ERROR;
1191: End If;
1192:
1193:
1186: -- check if activity started successfully
1187: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
1188: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1189: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
1190: raise OKC_API.G_EXCEPTION_ERROR;
1191: End If;
1192:
1193:
1194: If (p_line_item_tbl.COUNT > 0) Then
1230: fetch get_fee_type_csr into l_fee_type;
1231: close get_fee_type_csr;
1232: LOOP
1233: -- Not null Validation for Asset Number
1234: IF (p_line_item_tbl(i).name = OKC_API.G_MISS_CHAR OR p_line_item_tbl(i).name IS NULL) THEN
1235: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
1236: p_msg_name => 'OKL_LLA_ASSET_REQUIRED');
1237: x_return_status := OKC_API.g_ret_sts_error;
1238: RAISE OKC_API.G_EXCEPTION_ERROR;
1231: close get_fee_type_csr;
1232: LOOP
1233: -- Not null Validation for Asset Number
1234: IF (p_line_item_tbl(i).name = OKC_API.G_MISS_CHAR OR p_line_item_tbl(i).name IS NULL) THEN
1235: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
1236: p_msg_name => 'OKL_LLA_ASSET_REQUIRED');
1237: x_return_status := OKC_API.g_ret_sts_error;
1238: RAISE OKC_API.G_EXCEPTION_ERROR;
1239: END IF;
1233: -- Not null Validation for Asset Number
1234: IF (p_line_item_tbl(i).name = OKC_API.G_MISS_CHAR OR p_line_item_tbl(i).name IS NULL) THEN
1235: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
1236: p_msg_name => 'OKL_LLA_ASSET_REQUIRED');
1237: x_return_status := OKC_API.g_ret_sts_error;
1238: RAISE OKC_API.G_EXCEPTION_ERROR;
1239: END IF;
1240:
1241: IF( l_fee_type is not null and l_fee_type = 'CAPITALIZED') Then
1234: IF (p_line_item_tbl(i).name = OKC_API.G_MISS_CHAR OR p_line_item_tbl(i).name IS NULL) THEN
1235: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
1236: p_msg_name => 'OKL_LLA_ASSET_REQUIRED');
1237: x_return_status := OKC_API.g_ret_sts_error;
1238: RAISE OKC_API.G_EXCEPTION_ERROR;
1239: END IF;
1240:
1241: IF( l_fee_type is not null and l_fee_type = 'CAPITALIZED') Then
1242:
1240:
1241: IF( l_fee_type is not null and l_fee_type = 'CAPITALIZED') Then
1242:
1243: -- Not null Validation for capital Amount
1244: IF (p_line_item_tbl(i).capital_amount IS NULL OR p_line_item_tbl(i).capital_amount = OKC_API.G_MISS_NUM) THEN
1245: l_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_SERVICE_AMOUNT');
1246: OKC_API.SET_MESSAGE( p_app_name => g_app_name
1247: , p_msg_name => 'OKL_AMOUNT_FORMAT'
1248: , p_token1 => 'COL_NAME'
1242:
1243: -- Not null Validation for capital Amount
1244: IF (p_line_item_tbl(i).capital_amount IS NULL OR p_line_item_tbl(i).capital_amount = OKC_API.G_MISS_NUM) THEN
1245: l_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_SERVICE_AMOUNT');
1246: OKC_API.SET_MESSAGE( p_app_name => g_app_name
1247: , p_msg_name => 'OKL_AMOUNT_FORMAT'
1248: , p_token1 => 'COL_NAME'
1249: , p_token1_value => l_ak_prompt
1250: );
1247: , p_msg_name => 'OKL_AMOUNT_FORMAT'
1248: , p_token1 => 'COL_NAME'
1249: , p_token1_value => l_ak_prompt
1250: );
1251: x_return_status := OKC_API.g_ret_sts_error;
1252: RAISE OKC_API.G_EXCEPTION_ERROR;
1253: END IF;
1254:
1255: --Bug#4664176
1248: , p_token1 => 'COL_NAME'
1249: , p_token1_value => l_ak_prompt
1250: );
1251: x_return_status := OKC_API.g_ret_sts_error;
1252: RAISE OKC_API.G_EXCEPTION_ERROR;
1253: END IF;
1254:
1255: --Bug#4664176
1256: --Bug#4635028
1261: l_amount := p_line_item_tbl(i).capital_amount;
1262: END IF;
1263:
1264: -- Not null Validation for Amount
1265: IF(l_amount IS NULL OR l_amount = OKC_API.G_MISS_NUM) THEN
1266: l_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_SERVICE_AMOUNT');
1267: OKC_API.SET_MESSAGE(p_app_name => g_app_name
1268: , p_msg_name => 'OKL_AMOUNT_FORMAT'
1269: , p_token1 => 'COL_NAME'
1263:
1264: -- Not null Validation for Amount
1265: IF(l_amount IS NULL OR l_amount = OKC_API.G_MISS_NUM) THEN
1266: l_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_SERVICE_AMOUNT');
1267: OKC_API.SET_MESSAGE(p_app_name => g_app_name
1268: , p_msg_name => 'OKL_AMOUNT_FORMAT'
1269: , p_token1 => 'COL_NAME'
1270: , p_token1_value => l_ak_prompt
1271: );
1268: , p_msg_name => 'OKL_AMOUNT_FORMAT'
1269: , p_token1 => 'COL_NAME'
1270: , p_token1_value => l_ak_prompt
1271: );
1272: x_return_status := OKC_API.g_ret_sts_error;
1273: RAISE OKC_API.G_EXCEPTION_ERROR;
1274:
1275: END IF;
1276: END IF;
1269: , p_token1 => 'COL_NAME'
1270: , p_token1_value => l_ak_prompt
1271: );
1272: x_return_status := OKC_API.g_ret_sts_error;
1273: RAISE OKC_API.G_EXCEPTION_ERROR;
1274:
1275: END IF;
1276: END IF;
1277:
1282: fetch get_link_fee_asset_csr into l_item_id1, l_item_id2;
1283: close get_link_fee_asset_csr;
1284:
1285: If(l_item_id1 is null or l_item_id2 is null) Then -- through error message
1286: x_return_status := OKC_API.g_ret_sts_error;
1287: l_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_ASSET');
1288: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_INVALID_LOV_VALUE'
1289: , p_token1 => 'COL_NAME'
1290: , p_token1_value => l_ak_prompt
1284:
1285: If(l_item_id1 is null or l_item_id2 is null) Then -- through error message
1286: x_return_status := OKC_API.g_ret_sts_error;
1287: l_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_ASSET');
1288: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_INVALID_LOV_VALUE'
1289: , p_token1 => 'COL_NAME'
1290: , p_token1_value => l_ak_prompt
1291: );
1292: raise OKC_API.G_EXCEPTION_ERROR;
1288: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_INVALID_LOV_VALUE'
1289: , p_token1 => 'COL_NAME'
1290: , p_token1_value => l_ak_prompt
1291: );
1292: raise OKC_API.G_EXCEPTION_ERROR;
1293: End If;
1294:
1295: lp_cimv_tbl(i).object1_id1 := l_item_id1;
1296: lp_cimv_tbl(i).object1_id2 := l_item_id2;
1307: open get_link_service_asset_csr(l_chr_id, l_parent_cle_id, p_line_item_tbl(i).name);
1308: fetch get_link_service_asset_csr into l_item_id1, l_item_id2;
1309: close get_link_service_asset_csr;
1310: If(l_item_id1 is null or l_item_id2 is null) Then -- through error message
1311: x_return_status := OKC_API.g_ret_sts_error;
1312: l_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_ASSET');
1313: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_INVALID_LOV_VALUE'
1314: , p_token1 => 'COL_NAME'
1315: , p_token1_value => l_ak_prompt
1309: close get_link_service_asset_csr;
1310: If(l_item_id1 is null or l_item_id2 is null) Then -- through error message
1311: x_return_status := OKC_API.g_ret_sts_error;
1312: l_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_ASSET');
1313: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_INVALID_LOV_VALUE'
1314: , p_token1 => 'COL_NAME'
1315: , p_token1_value => l_ak_prompt
1316:
1317: );
1314: , p_token1 => 'COL_NAME'
1315: , p_token1_value => l_ak_prompt
1316:
1317: );
1318: raise OKC_API.G_EXCEPTION_ERROR;
1319: End If;
1320: lp_cimv_tbl(i).object1_id1 := l_item_id1;
1321: lp_cimv_tbl(i).object1_id2 := l_item_id2;
1322: Else
1394: x_clev_tbl => lx_clev_tbl,
1395: x_klev_tbl => lx_klev_tbl,
1396: x_cimv_tbl => lx_cimv_tbl);
1397:
1398: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
1399: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1400: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) then
1401: raise OKC_API.G_EXCEPTION_ERROR;
1402: END IF;
1395: x_klev_tbl => lx_klev_tbl,
1396: x_cimv_tbl => lx_cimv_tbl);
1397:
1398: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
1399: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1400: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) then
1401: raise OKC_API.G_EXCEPTION_ERROR;
1402: END IF;
1403: ELSE
1396: x_cimv_tbl => lx_cimv_tbl);
1397:
1398: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
1399: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1400: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) then
1401: raise OKC_API.G_EXCEPTION_ERROR;
1402: END IF;
1403: ELSE
1404:
1397:
1398: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
1399: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1400: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) then
1401: raise OKC_API.G_EXCEPTION_ERROR;
1402: END IF;
1403: ELSE
1404:
1405: okl_service_integration_pub.create_cov_asset_line(
1415: x_clev_tbl => lx_clev_tbl,
1416: x_klev_tbl => lx_klev_tbl,
1417: x_cimv_tbl => lx_cimv_tbl);
1418:
1419: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
1420: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1421: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
1422: raise OKC_API.G_EXCEPTION_ERROR;
1423: End If;
1416: x_klev_tbl => lx_klev_tbl,
1417: x_cimv_tbl => lx_cimv_tbl);
1418:
1419: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
1420: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1421: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
1422: raise OKC_API.G_EXCEPTION_ERROR;
1423: End If;
1424: End If;
1417: x_cimv_tbl => lx_cimv_tbl);
1418:
1419: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
1420: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1421: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
1422: raise OKC_API.G_EXCEPTION_ERROR;
1423: End If;
1424: End If;
1425: Elsif l_lty_code = 'LINK_FEE_ASSET' Then
1418:
1419: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
1420: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1421: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
1422: raise OKC_API.G_EXCEPTION_ERROR;
1423: End If;
1424: End If;
1425: Elsif l_lty_code = 'LINK_FEE_ASSET' Then
1426: create_contract_line_item(
1435: x_clev_tbl => lx_clev_tbl,
1436: x_klev_tbl => lx_klev_tbl,
1437: x_cimv_tbl => lx_cimv_tbl);
1438:
1439: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
1440: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1441: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
1442: raise OKC_API.G_EXCEPTION_ERROR;
1443: End If;
1436: x_klev_tbl => lx_klev_tbl,
1437: x_cimv_tbl => lx_cimv_tbl);
1438:
1439: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
1440: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1441: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
1442: raise OKC_API.G_EXCEPTION_ERROR;
1443: End If;
1444:
1437: x_cimv_tbl => lx_cimv_tbl);
1438:
1439: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
1440: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1441: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
1442: raise OKC_API.G_EXCEPTION_ERROR;
1443: End If;
1444:
1445: --Bug# 3877032
1438:
1439: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
1440: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1441: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
1442: raise OKC_API.G_EXCEPTION_ERROR;
1443: End If;
1444:
1445: --Bug# 3877032
1446: --update capital amount field
1461: p_formula_name => 'LINE_CAP_AMNT',
1462: p_contract_id => lx_cimv_tbl(i).dnz_chr_id,
1463: p_line_id => lx_cimv_tbl(i).object1_id1,
1464: x_value => l_fin_klev_rec.capital_amount);
1465: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
1466: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1467: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
1468: raise OKC_API.G_EXCEPTION_ERROR;
1469: End If;
1462: p_contract_id => lx_cimv_tbl(i).dnz_chr_id,
1463: p_line_id => lx_cimv_tbl(i).object1_id1,
1464: x_value => l_fin_klev_rec.capital_amount);
1465: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
1466: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1467: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
1468: raise OKC_API.G_EXCEPTION_ERROR;
1469: End If;
1470:
1463: p_line_id => lx_cimv_tbl(i).object1_id1,
1464: x_value => l_fin_klev_rec.capital_amount);
1465: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
1466: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1467: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
1468: raise OKC_API.G_EXCEPTION_ERROR;
1469: End If;
1470:
1471: okl_contract_pub.update_contract_line(p_api_version => p_api_version,
1464: x_value => l_fin_klev_rec.capital_amount);
1465: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
1466: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1467: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
1468: raise OKC_API.G_EXCEPTION_ERROR;
1469: End If;
1470:
1471: okl_contract_pub.update_contract_line(p_api_version => p_api_version,
1472: p_init_msg_list => p_init_msg_list,
1476: p_clev_rec => l_fin_clev_rec,
1477: p_klev_rec => l_fin_klev_rec,
1478: x_clev_rec => lx_fin_clev_rec,
1479: x_klev_rec => lx_fin_klev_rec);
1480: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
1481: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1482: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
1483: raise OKC_API.G_EXCEPTION_ERROR;
1484: End If;
1477: p_klev_rec => l_fin_klev_rec,
1478: x_clev_rec => lx_fin_clev_rec,
1479: x_klev_rec => lx_fin_klev_rec);
1480: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
1481: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1482: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
1483: raise OKC_API.G_EXCEPTION_ERROR;
1484: End If;
1485:
1478: x_clev_rec => lx_fin_clev_rec,
1479: x_klev_rec => lx_fin_klev_rec);
1480: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
1481: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1482: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
1483: raise OKC_API.G_EXCEPTION_ERROR;
1484: End If;
1485:
1486: --Bug# 4899328
1479: x_klev_rec => lx_fin_klev_rec);
1480: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
1481: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1482: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
1483: raise OKC_API.G_EXCEPTION_ERROR;
1484: End If;
1485:
1486: --Bug# 4899328
1487: -- Recalculate Asset depreciation cost when there
1530: END LOOP;
1531: End If;
1532:
1533:
1534: OKC_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
1535:
1536: EXCEPTION
1537: when OKC_API.G_EXCEPTION_ERROR then
1538: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
1533:
1534: OKC_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
1535:
1536: EXCEPTION
1537: when OKC_API.G_EXCEPTION_ERROR then
1538: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
1539: p_api_name => l_api_name,
1540: p_pkg_name => g_pkg_name,
1541: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
1534: OKC_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
1535:
1536: EXCEPTION
1537: when OKC_API.G_EXCEPTION_ERROR then
1538: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
1539: p_api_name => l_api_name,
1540: p_pkg_name => g_pkg_name,
1541: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
1542: x_msg_count => x_msg_count,
1537: when OKC_API.G_EXCEPTION_ERROR then
1538: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
1539: p_api_name => l_api_name,
1540: p_pkg_name => g_pkg_name,
1541: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
1542: x_msg_count => x_msg_count,
1543: x_msg_data => x_msg_data,
1544: p_api_type => g_api_type);
1545:
1542: x_msg_count => x_msg_count,
1543: x_msg_data => x_msg_data,
1544: p_api_type => g_api_type);
1545:
1546: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
1547: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
1548: p_api_name => l_api_name,
1549: p_pkg_name => g_pkg_name,
1550: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
1543: x_msg_data => x_msg_data,
1544: p_api_type => g_api_type);
1545:
1546: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
1547: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
1548: p_api_name => l_api_name,
1549: p_pkg_name => g_pkg_name,
1550: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
1551: x_msg_count => x_msg_count,
1546: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
1547: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
1548: p_api_name => l_api_name,
1549: p_pkg_name => g_pkg_name,
1550: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
1551: x_msg_count => x_msg_count,
1552: x_msg_data => x_msg_data,
1553: p_api_type => g_api_type);
1554:
1552: x_msg_data => x_msg_data,
1553: p_api_type => g_api_type);
1554:
1555: when OTHERS then
1556: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
1557: p_api_name => l_api_name,
1558: p_pkg_name => g_pkg_name,
1559: p_exc_name => 'OTHERS',
1560: x_msg_count => x_msg_count,
1564: END;
1565:
1566: PROCEDURE update_contract_line_item(
1567: p_api_version IN NUMBER,
1568: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
1569: x_return_status OUT NOCOPY VARCHAR2,
1570: x_msg_count OUT NOCOPY NUMBER,
1571: x_msg_data OUT NOCOPY VARCHAR2,
1572: p_line_item_tbl IN line_item_tbl_type,
1574: ) IS
1575:
1576: l_api_name CONSTANT VARCHAR2(30) := 'update_contract_line_item';
1577: l_api_version CONSTANT NUMBER := 1.0;
1578: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1579: i NUMBER;
1580: l_chr_id NUMBER;
1581: l_parent_cle_id NUMBER;
1582: l_cnt number := 0;
1666:
1667: BEGIN
1668:
1669:
1670: x_return_status := OKC_API.START_ACTIVITY(
1671: p_api_name => l_api_name,
1672: p_pkg_name => g_pkg_name,
1673: p_init_msg_list => p_init_msg_list,
1674: l_api_version => l_api_version,
1676: p_api_type => g_api_type,
1677: x_return_status => x_return_status);
1678:
1679: -- check if activity started successfully
1680: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
1681: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1682: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
1683: raise OKC_API.G_EXCEPTION_ERROR;
1684: End If;
1677: x_return_status => x_return_status);
1678:
1679: -- check if activity started successfully
1680: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
1681: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1682: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
1683: raise OKC_API.G_EXCEPTION_ERROR;
1684: End If;
1685:
1678:
1679: -- check if activity started successfully
1680: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
1681: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1682: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
1683: raise OKC_API.G_EXCEPTION_ERROR;
1684: End If;
1685:
1686: If (p_line_item_tbl.COUNT > 0) Then
1679: -- check if activity started successfully
1680: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
1681: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1682: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
1683: raise OKC_API.G_EXCEPTION_ERROR;
1684: End If;
1685:
1686: If (p_line_item_tbl.COUNT > 0) Then
1687:
1725: LOOP
1726:
1727:
1728: -- Not null Validation for Asset Number
1729: IF (p_line_item_tbl(i).name = OKC_API.G_MISS_CHAR OR p_line_item_tbl(i).name IS NULL) THEN
1730:
1731: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
1732: p_msg_name => 'OKL_LLA_ASSET_REQUIRED');
1733: x_return_status := OKC_API.g_ret_sts_error;
1727:
1728: -- Not null Validation for Asset Number
1729: IF (p_line_item_tbl(i).name = OKC_API.G_MISS_CHAR OR p_line_item_tbl(i).name IS NULL) THEN
1730:
1731: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
1732: p_msg_name => 'OKL_LLA_ASSET_REQUIRED');
1733: x_return_status := OKC_API.g_ret_sts_error;
1734: RAISE OKC_API.G_EXCEPTION_ERROR;
1735:
1729: IF (p_line_item_tbl(i).name = OKC_API.G_MISS_CHAR OR p_line_item_tbl(i).name IS NULL) THEN
1730:
1731: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
1732: p_msg_name => 'OKL_LLA_ASSET_REQUIRED');
1733: x_return_status := OKC_API.g_ret_sts_error;
1734: RAISE OKC_API.G_EXCEPTION_ERROR;
1735:
1736: END IF;
1737:
1730:
1731: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
1732: p_msg_name => 'OKL_LLA_ASSET_REQUIRED');
1733: x_return_status := OKC_API.g_ret_sts_error;
1734: RAISE OKC_API.G_EXCEPTION_ERROR;
1735:
1736: END IF;
1737:
1738: IF(l_fee_type is not null and l_fee_type = 'CAPITALIZED') Then
1737:
1738: IF(l_fee_type is not null and l_fee_type = 'CAPITALIZED') Then
1739:
1740: -- Not null Validation for capitol Amount
1741: IF (p_line_item_tbl(i).capital_amount IS NULL OR p_line_item_tbl(i).capital_amount = OKC_API.G_MISS_NUM) THEN
1742:
1743: l_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_SERVICE_AMOUNT');
1744: OKC_API.SET_MESSAGE( p_app_name => g_app_name
1745: , p_msg_name => 'OKL_AMOUNT_FORMAT'
1740: -- Not null Validation for capitol Amount
1741: IF (p_line_item_tbl(i).capital_amount IS NULL OR p_line_item_tbl(i).capital_amount = OKC_API.G_MISS_NUM) THEN
1742:
1743: l_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_SERVICE_AMOUNT');
1744: OKC_API.SET_MESSAGE( p_app_name => g_app_name
1745: , p_msg_name => 'OKL_AMOUNT_FORMAT'
1746: , p_token1 => 'COL_NAME'
1747: , p_token1_value => l_ak_prompt
1748: );
1745: , p_msg_name => 'OKL_AMOUNT_FORMAT'
1746: , p_token1 => 'COL_NAME'
1747: , p_token1_value => l_ak_prompt
1748: );
1749: x_return_status := OKC_API.g_ret_sts_error;
1750: RAISE OKC_API.G_EXCEPTION_ERROR;
1751:
1752: END IF;
1753:
1746: , p_token1 => 'COL_NAME'
1747: , p_token1_value => l_ak_prompt
1748: );
1749: x_return_status := OKC_API.g_ret_sts_error;
1750: RAISE OKC_API.G_EXCEPTION_ERROR;
1751:
1752: END IF;
1753:
1754: --Bug#4664176
1760: l_amount := p_line_item_tbl(i).capital_amount;
1761: END IF;
1762:
1763: -- Not null Validation for Amount
1764: IF (l_amount IS NULL OR l_amount = OKC_API.G_MISS_NUM) THEN
1765:
1766: l_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_SERVICE_AMOUNT');
1767: OKC_API.SET_MESSAGE( p_app_name => g_app_name
1768: , p_msg_name => 'OKL_AMOUNT_FORMAT'
1763: -- Not null Validation for Amount
1764: IF (l_amount IS NULL OR l_amount = OKC_API.G_MISS_NUM) THEN
1765:
1766: l_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_SERVICE_AMOUNT');
1767: OKC_API.SET_MESSAGE( p_app_name => g_app_name
1768: , p_msg_name => 'OKL_AMOUNT_FORMAT'
1769: , p_token1 => 'COL_NAME'
1770: , p_token1_value => l_ak_prompt
1771: );
1768: , p_msg_name => 'OKL_AMOUNT_FORMAT'
1769: , p_token1 => 'COL_NAME'
1770: , p_token1_value => l_ak_prompt
1771: );
1772: x_return_status := OKC_API.g_ret_sts_error;
1773: RAISE OKC_API.G_EXCEPTION_ERROR;
1774:
1775: END IF;
1776:
1769: , p_token1 => 'COL_NAME'
1770: , p_token1_value => l_ak_prompt
1771: );
1772: x_return_status := OKC_API.g_ret_sts_error;
1773: RAISE OKC_API.G_EXCEPTION_ERROR;
1774:
1775: END IF;
1776:
1777: END IF;
1784: fetch get_link_fee_asset_csr into l_item_id1, l_item_id2;
1785: close get_link_fee_asset_csr;
1786:
1787: If(l_item_id1 is null or l_item_id2 is null) Then -- through error message
1788: x_return_status := OKC_API.g_ret_sts_error;
1789: l_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_ASSET');
1790: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_INVALID_LOV_VALUE'
1791: , p_token1 => 'COL_NAME'
1792: , p_token1_value => l_ak_prompt
1786:
1787: If(l_item_id1 is null or l_item_id2 is null) Then -- through error message
1788: x_return_status := OKC_API.g_ret_sts_error;
1789: l_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_ASSET');
1790: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_INVALID_LOV_VALUE'
1791: , p_token1 => 'COL_NAME'
1792: , p_token1_value => l_ak_prompt
1793:
1794: );
1791: , p_token1 => 'COL_NAME'
1792: , p_token1_value => l_ak_prompt
1793:
1794: );
1795: raise OKC_API.G_EXCEPTION_ERROR;
1796: End If;
1797:
1798: ElsIf(l_lty_code = 'LINK_SERV_ASSET') Then -- do the validation for service link asset
1799:
1813: close get_link_service_asset_csr;
1814:
1815: If(l_item_id1 is null or l_item_id2 is null) Then -- through error message
1816:
1817: x_return_status := OKC_API.g_ret_sts_error;
1818: l_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_ASSET');
1819: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_INVALID_LOV_VALUE'
1820: , p_token1 => 'COL_NAME'
1821: , p_token1_value => l_ak_prompt
1815: If(l_item_id1 is null or l_item_id2 is null) Then -- through error message
1816:
1817: x_return_status := OKC_API.g_ret_sts_error;
1818: l_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_ASSET');
1819: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_INVALID_LOV_VALUE'
1820: , p_token1 => 'COL_NAME'
1821: , p_token1_value => l_ak_prompt
1822:
1823: );
1820: , p_token1 => 'COL_NAME'
1821: , p_token1_value => l_ak_prompt
1822:
1823: );
1824: raise OKC_API.G_EXCEPTION_ERROR;
1825:
1826: End If;
1827:
1828: End If;
1899: x_klev_tbl => lx_klev_tbl,
1900: x_cimv_tbl => lx_cimv_tbl
1901: );
1902:
1903: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
1904: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1905: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) then
1906: raise OKC_API.G_EXCEPTION_ERROR;
1907: END IF;
1900: x_cimv_tbl => lx_cimv_tbl
1901: );
1902:
1903: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
1904: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1905: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) then
1906: raise OKC_API.G_EXCEPTION_ERROR;
1907: END IF;
1908:
1901: );
1902:
1903: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
1904: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1905: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) then
1906: raise OKC_API.G_EXCEPTION_ERROR;
1907: END IF;
1908:
1909: ELSE
1902:
1903: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
1904: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1905: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) then
1906: raise OKC_API.G_EXCEPTION_ERROR;
1907: END IF;
1908:
1909: ELSE
1910:
1921: x_clev_tbl => lx_clev_tbl,
1922: x_klev_tbl => lx_klev_tbl,
1923: x_cimv_tbl => lx_cimv_tbl);
1924:
1925: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
1926: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1927: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
1928: raise OKC_API.G_EXCEPTION_ERROR;
1929: End If;
1922: x_klev_tbl => lx_klev_tbl,
1923: x_cimv_tbl => lx_cimv_tbl);
1924:
1925: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
1926: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1927: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
1928: raise OKC_API.G_EXCEPTION_ERROR;
1929: End If;
1930:
1923: x_cimv_tbl => lx_cimv_tbl);
1924:
1925: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
1926: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1927: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
1928: raise OKC_API.G_EXCEPTION_ERROR;
1929: End If;
1930:
1931: End If;
1924:
1925: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
1926: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1927: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
1928: raise OKC_API.G_EXCEPTION_ERROR;
1929: End If;
1930:
1931: End If;
1932:
1955: x_clev_tbl => lx_clev_tbl,
1956: x_klev_tbl => lx_klev_tbl,
1957: x_cimv_tbl => lx_cimv_tbl);
1958:
1959: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
1960: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1961: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
1962: raise OKC_API.G_EXCEPTION_ERROR;
1963: End If;
1956: x_klev_tbl => lx_klev_tbl,
1957: x_cimv_tbl => lx_cimv_tbl);
1958:
1959: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
1960: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1961: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
1962: raise OKC_API.G_EXCEPTION_ERROR;
1963: End If;
1964:
1957: x_cimv_tbl => lx_cimv_tbl);
1958:
1959: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
1960: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1961: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
1962: raise OKC_API.G_EXCEPTION_ERROR;
1963: End If;
1964:
1965: --Bug# 3877032
1958:
1959: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
1960: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1961: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
1962: raise OKC_API.G_EXCEPTION_ERROR;
1963: End If;
1964:
1965: --Bug# 3877032
1966: --update capital amount field
1983: p_formula_name => 'LINE_CAP_AMNT',
1984: p_contract_id => lx_cimv_tbl(i).dnz_chr_id,
1985: p_line_id => to_number(lx_cimv_tbl(i).object1_id1),
1986: x_value => l_fin_klev_rec.capital_amount);
1987: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
1988: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1989: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
1990: raise OKC_API.G_EXCEPTION_ERROR;
1991: End If;
1984: p_contract_id => lx_cimv_tbl(i).dnz_chr_id,
1985: p_line_id => to_number(lx_cimv_tbl(i).object1_id1),
1986: x_value => l_fin_klev_rec.capital_amount);
1987: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
1988: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1989: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
1990: raise OKC_API.G_EXCEPTION_ERROR;
1991: End If;
1992:
1985: p_line_id => to_number(lx_cimv_tbl(i).object1_id1),
1986: x_value => l_fin_klev_rec.capital_amount);
1987: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
1988: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1989: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
1990: raise OKC_API.G_EXCEPTION_ERROR;
1991: End If;
1992:
1993: okl_contract_pub.update_contract_line(p_api_version => p_api_version,
1986: x_value => l_fin_klev_rec.capital_amount);
1987: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
1988: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1989: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
1990: raise OKC_API.G_EXCEPTION_ERROR;
1991: End If;
1992:
1993: okl_contract_pub.update_contract_line(p_api_version => p_api_version,
1994: p_init_msg_list => p_init_msg_list,
1998: p_clev_rec => l_fin_clev_rec,
1999: p_klev_rec => l_fin_klev_rec,
2000: x_clev_rec => lx_fin_clev_rec,
2001: x_klev_rec => lx_fin_klev_rec);
2002: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
2003: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2004: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
2005: raise OKC_API.G_EXCEPTION_ERROR;
2006: End If;
1999: p_klev_rec => l_fin_klev_rec,
2000: x_clev_rec => lx_fin_clev_rec,
2001: x_klev_rec => lx_fin_klev_rec);
2002: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
2003: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2004: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
2005: raise OKC_API.G_EXCEPTION_ERROR;
2006: End If;
2007:
2000: x_clev_rec => lx_fin_clev_rec,
2001: x_klev_rec => lx_fin_klev_rec);
2002: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
2003: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2004: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
2005: raise OKC_API.G_EXCEPTION_ERROR;
2006: End If;
2007:
2008: --Bug# 4899328
2001: x_klev_rec => lx_fin_klev_rec);
2002: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
2003: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2004: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
2005: raise OKC_API.G_EXCEPTION_ERROR;
2006: End If;
2007:
2008: --Bug# 4899328
2009: -- Recalculate Asset depreciation cost when there
2042: p_formula_name => 'LINE_CAP_AMNT',
2043: p_contract_id => l_fin_clev_tbl(j).dnz_chr_id,
2044: p_line_id => l_fin_clev_tbl(j).id,
2045: x_value => l_fin_klev_tbl(j).capital_amount);
2046: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
2047: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2048: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
2049: raise OKC_API.G_EXCEPTION_ERROR;
2050: End If;
2043: p_contract_id => l_fin_clev_tbl(j).dnz_chr_id,
2044: p_line_id => l_fin_clev_tbl(j).id,
2045: x_value => l_fin_klev_tbl(j).capital_amount);
2046: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
2047: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2048: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
2049: raise OKC_API.G_EXCEPTION_ERROR;
2050: End If;
2051: End Loop;
2044: p_line_id => l_fin_clev_tbl(j).id,
2045: x_value => l_fin_klev_tbl(j).capital_amount);
2046: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
2047: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2048: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
2049: raise OKC_API.G_EXCEPTION_ERROR;
2050: End If;
2051: End Loop;
2052:
2045: x_value => l_fin_klev_tbl(j).capital_amount);
2046: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
2047: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2048: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
2049: raise OKC_API.G_EXCEPTION_ERROR;
2050: End If;
2051: End Loop;
2052:
2053: okl_contract_pub.update_contract_line(p_api_version => p_api_version,
2059: p_klev_tbl => l_fin_klev_tbl,
2060: x_clev_tbl => lx_fin_clev_tbl,
2061: x_klev_tbl => lx_fin_klev_tbl);
2062:
2063: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
2064: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2065: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
2066: raise OKC_API.G_EXCEPTION_ERROR;
2067: End If;
2060: x_clev_tbl => lx_fin_clev_tbl,
2061: x_klev_tbl => lx_fin_klev_tbl);
2062:
2063: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
2064: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2065: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
2066: raise OKC_API.G_EXCEPTION_ERROR;
2067: End If;
2068:
2061: x_klev_tbl => lx_fin_klev_tbl);
2062:
2063: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
2064: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2065: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
2066: raise OKC_API.G_EXCEPTION_ERROR;
2067: End If;
2068:
2069: --Bug# 4899328
2062:
2063: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
2064: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2065: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
2066: raise OKC_API.G_EXCEPTION_ERROR;
2067: End If;
2068:
2069: --Bug# 4899328
2070: -- Recalculate Asset depreciation cost when there
2094:
2095:
2096: End If;
2097:
2098: OKC_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
2099:
2100: EXCEPTION
2101: when OKC_API.G_EXCEPTION_ERROR then
2102: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
2097:
2098: OKC_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
2099:
2100: EXCEPTION
2101: when OKC_API.G_EXCEPTION_ERROR then
2102: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
2103: p_api_name => l_api_name,
2104: p_pkg_name => g_pkg_name,
2105: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
2098: OKC_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
2099:
2100: EXCEPTION
2101: when OKC_API.G_EXCEPTION_ERROR then
2102: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
2103: p_api_name => l_api_name,
2104: p_pkg_name => g_pkg_name,
2105: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
2106: x_msg_count => x_msg_count,
2101: when OKC_API.G_EXCEPTION_ERROR then
2102: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
2103: p_api_name => l_api_name,
2104: p_pkg_name => g_pkg_name,
2105: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
2106: x_msg_count => x_msg_count,
2107: x_msg_data => x_msg_data,
2108: p_api_type => g_api_type);
2109:
2106: x_msg_count => x_msg_count,
2107: x_msg_data => x_msg_data,
2108: p_api_type => g_api_type);
2109:
2110: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
2111: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
2112: p_api_name => l_api_name,
2113: p_pkg_name => g_pkg_name,
2114: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
2107: x_msg_data => x_msg_data,
2108: p_api_type => g_api_type);
2109:
2110: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
2111: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
2112: p_api_name => l_api_name,
2113: p_pkg_name => g_pkg_name,
2114: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
2115: x_msg_count => x_msg_count,
2110: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
2111: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
2112: p_api_name => l_api_name,
2113: p_pkg_name => g_pkg_name,
2114: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
2115: x_msg_count => x_msg_count,
2116: x_msg_data => x_msg_data,
2117: p_api_type => g_api_type);
2118:
2116: x_msg_data => x_msg_data,
2117: p_api_type => g_api_type);
2118:
2119: when OTHERS then
2120: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
2121: p_api_name => l_api_name,
2122: p_pkg_name => g_pkg_name,
2123: p_exc_name => 'OTHERS',
2124: x_msg_count => x_msg_count,
2128: END;
2129:
2130: PROCEDURE create_contract_line_item(
2131: p_api_version IN NUMBER,
2132: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
2133: x_return_status OUT NOCOPY VARCHAR2,
2134: x_msg_count OUT NOCOPY NUMBER,
2135: x_msg_data OUT NOCOPY VARCHAR2,
2136: p_clev_rec IN clev_rec_type,
2148: l_amt_ak_prompt AK_ATTRIBUTES_VL.attribute_label_long%type;
2149:
2150: l_api_name CONSTANT VARCHAR2(30) := 'create_contract_line_item';
2151: l_api_version CONSTANT NUMBER := 1.0;
2152: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2153:
2154: CURSOR get_k_dates_csr(l_id NUMBER) IS
2155: select chr.start_date, chr.end_date
2156: from okc_k_lines_b chr
2181: -- udhenuko Modification End.
2182: /*
2183: -- call START_ACTIVITY to create savepoint, check compatibility
2184: -- and initialize message list
2185: x_return_status := OKC_API.START_ACTIVITY(
2186: p_api_name => l_api_name,
2187: p_pkg_name => g_pkg_name,
2188: p_init_msg_list => p_init_msg_list,
2189: l_api_version => l_api_version,
2191: p_api_type => g_api_type,
2192: x_return_status => x_return_status);
2193:
2194: -- check if activity started successfully
2195: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
2196: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2197: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
2198: raise OKC_API.G_EXCEPTION_ERROR;
2199: End If;
2192: x_return_status => x_return_status);
2193:
2194: -- check if activity started successfully
2195: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
2196: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2197: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
2198: raise OKC_API.G_EXCEPTION_ERROR;
2199: End If;
2200: */
2193:
2194: -- check if activity started successfully
2195: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
2196: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2197: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
2198: raise OKC_API.G_EXCEPTION_ERROR;
2199: End If;
2200: */
2201:
2194: -- check if activity started successfully
2195: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
2196: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2197: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
2198: raise OKC_API.G_EXCEPTION_ERROR;
2199: End If;
2200: */
2201:
2202: IF( l_fee_type is not null and l_fee_type = 'CAPITALIZED') Then
2201:
2202: IF( l_fee_type is not null and l_fee_type = 'CAPITALIZED') Then
2203:
2204: -- Not null Validation for Asset Number
2205: IF ((l_clev_rec.name = OKC_API.G_MISS_CHAR OR l_clev_rec.name IS NULL) AND
2206: (l_klev_rec.capital_amount IS NOT NULL OR l_klev_rec.capital_amount <> OKC_API.G_MISS_NUM)) THEN
2207: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED');
2208: x_return_status := OKC_API.g_ret_sts_error;
2209: RAISE OKC_API.G_EXCEPTION_ERROR;
2202: IF( l_fee_type is not null and l_fee_type = 'CAPITALIZED') Then
2203:
2204: -- Not null Validation for Asset Number
2205: IF ((l_clev_rec.name = OKC_API.G_MISS_CHAR OR l_clev_rec.name IS NULL) AND
2206: (l_klev_rec.capital_amount IS NOT NULL OR l_klev_rec.capital_amount <> OKC_API.G_MISS_NUM)) THEN
2207: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED');
2208: x_return_status := OKC_API.g_ret_sts_error;
2209: RAISE OKC_API.G_EXCEPTION_ERROR;
2210: END IF;
2203:
2204: -- Not null Validation for Asset Number
2205: IF ((l_clev_rec.name = OKC_API.G_MISS_CHAR OR l_clev_rec.name IS NULL) AND
2206: (l_klev_rec.capital_amount IS NOT NULL OR l_klev_rec.capital_amount <> OKC_API.G_MISS_NUM)) THEN
2207: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED');
2208: x_return_status := OKC_API.g_ret_sts_error;
2209: RAISE OKC_API.G_EXCEPTION_ERROR;
2210: END IF;
2211:
2204: -- Not null Validation for Asset Number
2205: IF ((l_clev_rec.name = OKC_API.G_MISS_CHAR OR l_clev_rec.name IS NULL) AND
2206: (l_klev_rec.capital_amount IS NOT NULL OR l_klev_rec.capital_amount <> OKC_API.G_MISS_NUM)) THEN
2207: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED');
2208: x_return_status := OKC_API.g_ret_sts_error;
2209: RAISE OKC_API.G_EXCEPTION_ERROR;
2210: END IF;
2211:
2212: -- Not null Validation for Amount
2205: IF ((l_clev_rec.name = OKC_API.G_MISS_CHAR OR l_clev_rec.name IS NULL) AND
2206: (l_klev_rec.capital_amount IS NOT NULL OR l_klev_rec.capital_amount <> OKC_API.G_MISS_NUM)) THEN
2207: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED');
2208: x_return_status := OKC_API.g_ret_sts_error;
2209: RAISE OKC_API.G_EXCEPTION_ERROR;
2210: END IF;
2211:
2212: -- Not null Validation for Amount
2213: IF ((l_clev_rec.name <> OKC_API.G_MISS_CHAR OR l_clev_rec.name IS NOT NULL) AND
2209: RAISE OKC_API.G_EXCEPTION_ERROR;
2210: END IF;
2211:
2212: -- Not null Validation for Amount
2213: IF ((l_clev_rec.name <> OKC_API.G_MISS_CHAR OR l_clev_rec.name IS NOT NULL) AND
2214: (l_klev_rec.capital_amount IS NULL OR l_klev_rec.capital_amount = OKC_API.G_MISS_NUM)) THEN
2215:
2216: l_amt_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_SERVICE_AMOUNT');
2217: OKC_API.SET_MESSAGE( p_app_name => g_app_name
2210: END IF;
2211:
2212: -- Not null Validation for Amount
2213: IF ((l_clev_rec.name <> OKC_API.G_MISS_CHAR OR l_clev_rec.name IS NOT NULL) AND
2214: (l_klev_rec.capital_amount IS NULL OR l_klev_rec.capital_amount = OKC_API.G_MISS_NUM)) THEN
2215:
2216: l_amt_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_SERVICE_AMOUNT');
2217: OKC_API.SET_MESSAGE( p_app_name => g_app_name
2218: , p_msg_name => 'OKL_AMOUNT_FORMAT'
2213: IF ((l_clev_rec.name <> OKC_API.G_MISS_CHAR OR l_clev_rec.name IS NOT NULL) AND
2214: (l_klev_rec.capital_amount IS NULL OR l_klev_rec.capital_amount = OKC_API.G_MISS_NUM)) THEN
2215:
2216: l_amt_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_SERVICE_AMOUNT');
2217: OKC_API.SET_MESSAGE( p_app_name => g_app_name
2218: , p_msg_name => 'OKL_AMOUNT_FORMAT'
2219: , p_token1 => 'COL_NAME'
2220: , p_token1_value => l_amt_ak_prompt
2221: );
2218: , p_msg_name => 'OKL_AMOUNT_FORMAT'
2219: , p_token1 => 'COL_NAME'
2220: , p_token1_value => l_amt_ak_prompt
2221: );
2222: x_return_status := OKC_API.g_ret_sts_error;
2223: RAISE OKC_API.G_EXCEPTION_ERROR;
2224: END IF;
2225:
2226: --Bug#4664176
2219: , p_token1 => 'COL_NAME'
2220: , p_token1_value => l_amt_ak_prompt
2221: );
2222: x_return_status := OKC_API.g_ret_sts_error;
2223: RAISE OKC_API.G_EXCEPTION_ERROR;
2224: END IF;
2225:
2226: --Bug#4664176
2227: --Bug#4635028
2234: l_amount := l_klev_rec.amount;
2235: END IF;
2236:
2237: -- Not null Validation for Asset Number
2238: IF ((l_clev_rec.name = OKC_API.G_MISS_CHAR OR l_clev_rec.name IS NULL) AND
2239: (l_amount IS NOT NULL OR l_amount <> OKC_API.G_MISS_NUM)) THEN
2240:
2241: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED');
2242: x_return_status := OKC_API.g_ret_sts_error;
2235: END IF;
2236:
2237: -- Not null Validation for Asset Number
2238: IF ((l_clev_rec.name = OKC_API.G_MISS_CHAR OR l_clev_rec.name IS NULL) AND
2239: (l_amount IS NOT NULL OR l_amount <> OKC_API.G_MISS_NUM)) THEN
2240:
2241: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED');
2242: x_return_status := OKC_API.g_ret_sts_error;
2243: RAISE OKC_API.G_EXCEPTION_ERROR;
2237: -- Not null Validation for Asset Number
2238: IF ((l_clev_rec.name = OKC_API.G_MISS_CHAR OR l_clev_rec.name IS NULL) AND
2239: (l_amount IS NOT NULL OR l_amount <> OKC_API.G_MISS_NUM)) THEN
2240:
2241: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED');
2242: x_return_status := OKC_API.g_ret_sts_error;
2243: RAISE OKC_API.G_EXCEPTION_ERROR;
2244:
2245: END IF;
2238: IF ((l_clev_rec.name = OKC_API.G_MISS_CHAR OR l_clev_rec.name IS NULL) AND
2239: (l_amount IS NOT NULL OR l_amount <> OKC_API.G_MISS_NUM)) THEN
2240:
2241: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED');
2242: x_return_status := OKC_API.g_ret_sts_error;
2243: RAISE OKC_API.G_EXCEPTION_ERROR;
2244:
2245: END IF;
2246:
2239: (l_amount IS NOT NULL OR l_amount <> OKC_API.G_MISS_NUM)) THEN
2240:
2241: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED');
2242: x_return_status := OKC_API.g_ret_sts_error;
2243: RAISE OKC_API.G_EXCEPTION_ERROR;
2244:
2245: END IF;
2246:
2247: -- Not null Validation for Amount
2244:
2245: END IF;
2246:
2247: -- Not null Validation for Amount
2248: IF ((l_clev_rec.name <> OKC_API.G_MISS_CHAR OR l_clev_rec.name IS NOT NULL) AND
2249: (l_amount IS NULL OR l_amount = OKC_API.G_MISS_NUM)) THEN
2250:
2251: l_amt_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_SERVICE_AMOUNT');
2252: OKC_API.SET_MESSAGE( p_app_name => g_app_name
2245: END IF;
2246:
2247: -- Not null Validation for Amount
2248: IF ((l_clev_rec.name <> OKC_API.G_MISS_CHAR OR l_clev_rec.name IS NOT NULL) AND
2249: (l_amount IS NULL OR l_amount = OKC_API.G_MISS_NUM)) THEN
2250:
2251: l_amt_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_SERVICE_AMOUNT');
2252: OKC_API.SET_MESSAGE( p_app_name => g_app_name
2253: , p_msg_name => 'OKL_AMOUNT_FORMAT'
2248: IF ((l_clev_rec.name <> OKC_API.G_MISS_CHAR OR l_clev_rec.name IS NOT NULL) AND
2249: (l_amount IS NULL OR l_amount = OKC_API.G_MISS_NUM)) THEN
2250:
2251: l_amt_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_SERVICE_AMOUNT');
2252: OKC_API.SET_MESSAGE( p_app_name => g_app_name
2253: , p_msg_name => 'OKL_AMOUNT_FORMAT'
2254: , p_token1 => 'COL_NAME'
2255: , p_token1_value => l_amt_ak_prompt
2256: );
2253: , p_msg_name => 'OKL_AMOUNT_FORMAT'
2254: , p_token1 => 'COL_NAME'
2255: , p_token1_value => l_amt_ak_prompt
2256: );
2257: x_return_status := OKC_API.g_ret_sts_error;
2258: RAISE OKC_API.G_EXCEPTION_ERROR;
2259:
2260: END IF;
2261:
2254: , p_token1 => 'COL_NAME'
2255: , p_token1_value => l_amt_ak_prompt
2256: );
2257: x_return_status := OKC_API.g_ret_sts_error;
2258: RAISE OKC_API.G_EXCEPTION_ERROR;
2259:
2260: END IF;
2261:
2262: END IF;
2275: p_name => l_clev_rec.name,
2276: p_object_code => l_cimv_rec.jtot_object1_code
2277: );
2278:
2279: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2280: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2281: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2282: raise OKC_API.G_EXCEPTION_ERROR;
2283: END IF;
2276: p_object_code => l_cimv_rec.jtot_object1_code
2277: );
2278:
2279: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2280: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2281: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2282: raise OKC_API.G_EXCEPTION_ERROR;
2283: END IF;
2284:
2277: );
2278:
2279: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2280: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2281: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2282: raise OKC_API.G_EXCEPTION_ERROR;
2283: END IF;
2284:
2285: open get_k_dates_csr(l_clev_rec.cle_id);
2278:
2279: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2280: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2281: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2282: raise OKC_API.G_EXCEPTION_ERROR;
2283: END IF;
2284:
2285: open get_k_dates_csr(l_clev_rec.cle_id);
2286: fetch get_k_dates_csr into l_start_date, l_end_date;
2299: p_klev_rec => l_klev_rec,
2300: x_clev_rec => x_clev_rec,
2301: x_klev_rec => x_klev_rec);
2302:
2303: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2304: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2305: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2306: raise OKC_API.G_EXCEPTION_ERROR;
2307: END IF;
2300: x_clev_rec => x_clev_rec,
2301: x_klev_rec => x_klev_rec);
2302:
2303: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2304: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2305: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2306: raise OKC_API.G_EXCEPTION_ERROR;
2307: END IF;
2308:
2301: x_klev_rec => x_klev_rec);
2302:
2303: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2304: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2305: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2306: raise OKC_API.G_EXCEPTION_ERROR;
2307: END IF;
2308:
2309: l_cimv_rec.cle_id := x_clev_rec.id;
2302:
2303: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2304: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2305: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2306: raise OKC_API.G_EXCEPTION_ERROR;
2307: END IF;
2308:
2309: l_cimv_rec.cle_id := x_clev_rec.id;
2310:
2320: p_cimv_rec => l_cimv_rec,
2321: x_cimv_rec => x_cimv_rec);
2322:
2323: -- check return status
2324: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
2325: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2326: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
2327: raise OKC_API.G_EXCEPTION_ERROR;
2328: End If;
2321: x_cimv_rec => x_cimv_rec);
2322:
2323: -- check return status
2324: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
2325: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2326: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
2327: raise OKC_API.G_EXCEPTION_ERROR;
2328: End If;
2329: /*
2322:
2323: -- check return status
2324: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
2325: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2326: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
2327: raise OKC_API.G_EXCEPTION_ERROR;
2328: End If;
2329: /*
2330: OKC_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
2323: -- check return status
2324: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
2325: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2326: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
2327: raise OKC_API.G_EXCEPTION_ERROR;
2328: End If;
2329: /*
2330: OKC_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
2331: */
2326: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
2327: raise OKC_API.G_EXCEPTION_ERROR;
2328: End If;
2329: /*
2330: OKC_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
2331: */
2332:
2333: EXCEPTION
2334: when OKC_API.G_EXCEPTION_ERROR then
2330: OKC_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
2331: */
2332:
2333: EXCEPTION
2334: when OKC_API.G_EXCEPTION_ERROR then
2335: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
2336: p_api_name => l_api_name,
2337: p_pkg_name => g_pkg_name,
2338: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
2331: */
2332:
2333: EXCEPTION
2334: when OKC_API.G_EXCEPTION_ERROR then
2335: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
2336: p_api_name => l_api_name,
2337: p_pkg_name => g_pkg_name,
2338: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
2339: x_msg_count => x_msg_count,
2334: when OKC_API.G_EXCEPTION_ERROR then
2335: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
2336: p_api_name => l_api_name,
2337: p_pkg_name => g_pkg_name,
2338: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
2339: x_msg_count => x_msg_count,
2340: x_msg_data => x_msg_data,
2341: p_api_type => g_api_type);
2342:
2339: x_msg_count => x_msg_count,
2340: x_msg_data => x_msg_data,
2341: p_api_type => g_api_type);
2342:
2343: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
2344: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
2345: p_api_name => l_api_name,
2346: p_pkg_name => g_pkg_name,
2347: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
2340: x_msg_data => x_msg_data,
2341: p_api_type => g_api_type);
2342:
2343: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
2344: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
2345: p_api_name => l_api_name,
2346: p_pkg_name => g_pkg_name,
2347: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
2348: x_msg_count => x_msg_count,
2343: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
2344: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
2345: p_api_name => l_api_name,
2346: p_pkg_name => g_pkg_name,
2347: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
2348: x_msg_count => x_msg_count,
2349: x_msg_data => x_msg_data,
2350: p_api_type => g_api_type);
2351:
2349: x_msg_data => x_msg_data,
2350: p_api_type => g_api_type);
2351:
2352: when OTHERS then
2353: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
2354: p_api_name => l_api_name,
2355: p_pkg_name => g_pkg_name,
2356: p_exc_name => 'OTHERS',
2357: x_msg_count => x_msg_count,
2368: -- Version : 1.0
2369: -- End of comments
2370: PROCEDURE create_contract_line_item(
2371: p_api_version IN NUMBER,
2372: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
2373: x_return_status OUT NOCOPY VARCHAR2,
2374: x_msg_count OUT NOCOPY NUMBER,
2375: x_msg_data OUT NOCOPY VARCHAR2,
2376: p_clev_tbl IN clev_tbl_type,
2381: x_cimv_tbl OUT NOCOPY cimv_tbl_type) IS
2382:
2383: l_api_name CONSTANT VARCHAR2(30) := 'create_contract_line_item';
2384: l_api_version CONSTANT NUMBER := 1.0;
2385: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2386: l_overall_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2387: i NUMBER;
2388: l_klev_tbl klev_tbl_type := p_klev_tbl;
2389: l_cimv_tbl cimv_tbl_type := p_cimv_tbl;
2382:
2383: l_api_name CONSTANT VARCHAR2(30) := 'create_contract_line_item';
2384: l_api_version CONSTANT NUMBER := 1.0;
2385: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2386: l_overall_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2387: i NUMBER;
2388: l_klev_tbl klev_tbl_type := p_klev_tbl;
2389: l_cimv_tbl cimv_tbl_type := p_cimv_tbl;
2390: BEGIN
2391:
2392: /*
2393: -- call START_ACTIVITY to create savepoint, check compatibility
2394: -- and initialize message list
2395: x_return_status := OKC_API.START_ACTIVITY(
2396: p_api_name => l_api_name,
2397: p_pkg_name => g_pkg_name,
2398: p_init_msg_list => p_init_msg_list,
2399: l_api_version => l_api_version,
2401: p_api_type => g_api_type,
2402: x_return_status => x_return_status);
2403:
2404: -- check if activity started successfully
2405: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
2406: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2407: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
2408: raise OKC_API.G_EXCEPTION_ERROR;
2409: End If;
2402: x_return_status => x_return_status);
2403:
2404: -- check if activity started successfully
2405: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
2406: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2407: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
2408: raise OKC_API.G_EXCEPTION_ERROR;
2409: End If;
2410: */
2403:
2404: -- check if activity started successfully
2405: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
2406: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2407: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
2408: raise OKC_API.G_EXCEPTION_ERROR;
2409: End If;
2410: */
2411:
2404: -- check if activity started successfully
2405: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
2406: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2407: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
2408: raise OKC_API.G_EXCEPTION_ERROR;
2409: End If;
2410: */
2411:
2412: If (p_clev_tbl.COUNT > 0) Then
2425: x_clev_rec => x_clev_tbl(i),
2426: x_klev_rec => x_klev_tbl(i),
2427: x_cimv_rec => x_cimv_tbl(i));
2428:
2429: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
2430: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2431: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
2432: raise OKC_API.G_EXCEPTION_ERROR;
2433: End If;
2426: x_klev_rec => x_klev_tbl(i),
2427: x_cimv_rec => x_cimv_tbl(i));
2428:
2429: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
2430: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2431: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
2432: raise OKC_API.G_EXCEPTION_ERROR;
2433: End If;
2434:
2427: x_cimv_rec => x_cimv_tbl(i));
2428:
2429: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
2430: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2431: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
2432: raise OKC_API.G_EXCEPTION_ERROR;
2433: End If;
2434:
2435: EXIT WHEN (i = p_clev_tbl.LAST);
2428:
2429: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
2430: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2431: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
2432: raise OKC_API.G_EXCEPTION_ERROR;
2433: End If;
2434:
2435: EXIT WHEN (i = p_clev_tbl.LAST);
2436: i := p_clev_tbl.NEXT(i);
2438:
2439: End If;
2440:
2441: /*
2442: OKC_API.END_ACTIVITY( x_msg_count => x_msg_count,
2443: x_msg_data => x_msg_data);
2444: */
2445:
2446: EXCEPTION
2443: x_msg_data => x_msg_data);
2444: */
2445:
2446: EXCEPTION
2447: when OKC_API.G_EXCEPTION_ERROR then
2448: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
2449: p_api_name => l_api_name,
2450: p_pkg_name => g_pkg_name,
2451: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
2444: */
2445:
2446: EXCEPTION
2447: when OKC_API.G_EXCEPTION_ERROR then
2448: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
2449: p_api_name => l_api_name,
2450: p_pkg_name => g_pkg_name,
2451: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
2452: x_msg_count => x_msg_count,
2447: when OKC_API.G_EXCEPTION_ERROR then
2448: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
2449: p_api_name => l_api_name,
2450: p_pkg_name => g_pkg_name,
2451: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
2452: x_msg_count => x_msg_count,
2453: x_msg_data => x_msg_data,
2454: p_api_type => g_api_type);
2455:
2452: x_msg_count => x_msg_count,
2453: x_msg_data => x_msg_data,
2454: p_api_type => g_api_type);
2455:
2456: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
2457: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
2458: p_api_name => l_api_name,
2459: p_pkg_name => g_pkg_name,
2460: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
2453: x_msg_data => x_msg_data,
2454: p_api_type => g_api_type);
2455:
2456: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
2457: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
2458: p_api_name => l_api_name,
2459: p_pkg_name => g_pkg_name,
2460: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
2461: x_msg_count => x_msg_count,
2456: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
2457: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
2458: p_api_name => l_api_name,
2459: p_pkg_name => g_pkg_name,
2460: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
2461: x_msg_count => x_msg_count,
2462: x_msg_data => x_msg_data,
2463: p_api_type => g_api_type);
2464:
2462: x_msg_data => x_msg_data,
2463: p_api_type => g_api_type);
2464:
2465: when OTHERS then
2466: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
2467: p_api_name => l_api_name,
2468: p_pkg_name => g_pkg_name,
2469: p_exc_name => 'OTHERS',
2470: x_msg_count => x_msg_count,
2483: -- Version : 1.0
2484: -- End of comments
2485: PROCEDURE update_contract_line_item(
2486: p_api_version IN NUMBER,
2487: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
2488: x_return_status OUT NOCOPY VARCHAR2,
2489: x_msg_count OUT NOCOPY NUMBER,
2490: x_msg_data OUT NOCOPY VARCHAR2,
2491: p_clev_rec IN clev_rec_type,
2503: l_amt_ak_prompt AK_ATTRIBUTES_VL.attribute_label_long%type;
2504:
2505: l_api_name CONSTANT VARCHAR2(30) := 'update_contract_line_item';
2506: l_api_version CONSTANT NUMBER := 1.0;
2507: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2508:
2509: CURSOR get_k_dates_csr(l_id NUMBER) IS
2510: select chr.start_date, chr.end_date
2511: from okc_k_lines_b chr
2543: -- udhenuko Modification End.
2544: /*
2545: -- call START_ACTIVITY to create savepoint, check compatibility
2546: -- and initialize message list
2547: x_return_status := OKC_API.START_ACTIVITY(
2548: p_api_name => l_api_name,
2549: p_pkg_name => g_pkg_name,
2550: p_init_msg_list => p_init_msg_list,
2551: l_api_version => l_api_version,
2553: p_api_type => g_api_type,
2554: x_return_status => x_return_status);
2555:
2556: -- check if activity started successfully
2557: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
2558: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2559: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
2560: raise OKC_API.G_EXCEPTION_ERROR;
2561: End If;
2554: x_return_status => x_return_status);
2555:
2556: -- check if activity started successfully
2557: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
2558: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2559: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
2560: raise OKC_API.G_EXCEPTION_ERROR;
2561: End If;
2562: */
2555:
2556: -- check if activity started successfully
2557: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
2558: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2559: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
2560: raise OKC_API.G_EXCEPTION_ERROR;
2561: End If;
2562: */
2563:
2556: -- check if activity started successfully
2557: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
2558: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2559: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
2560: raise OKC_API.G_EXCEPTION_ERROR;
2561: End If;
2562: */
2563:
2564: l_fee_type := null;
2568:
2569: IF( l_fee_type is not null and l_fee_type = 'CAPITALIZED') Then
2570:
2571: -- Not null Validation for Asset Number
2572: IF ((l_clev_rec.name = OKC_API.G_MISS_CHAR OR l_clev_rec.name IS NULL) AND
2573: (l_klev_rec.capital_amount IS NOT NULL OR l_klev_rec.capital_amount <> OKC_API.G_MISS_NUM)) THEN
2574: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED');
2575: x_return_status := OKC_API.g_ret_sts_error;
2576: RAISE OKC_API.G_EXCEPTION_ERROR;
2569: IF( l_fee_type is not null and l_fee_type = 'CAPITALIZED') Then
2570:
2571: -- Not null Validation for Asset Number
2572: IF ((l_clev_rec.name = OKC_API.G_MISS_CHAR OR l_clev_rec.name IS NULL) AND
2573: (l_klev_rec.capital_amount IS NOT NULL OR l_klev_rec.capital_amount <> OKC_API.G_MISS_NUM)) THEN
2574: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED');
2575: x_return_status := OKC_API.g_ret_sts_error;
2576: RAISE OKC_API.G_EXCEPTION_ERROR;
2577: END IF;
2570:
2571: -- Not null Validation for Asset Number
2572: IF ((l_clev_rec.name = OKC_API.G_MISS_CHAR OR l_clev_rec.name IS NULL) AND
2573: (l_klev_rec.capital_amount IS NOT NULL OR l_klev_rec.capital_amount <> OKC_API.G_MISS_NUM)) THEN
2574: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED');
2575: x_return_status := OKC_API.g_ret_sts_error;
2576: RAISE OKC_API.G_EXCEPTION_ERROR;
2577: END IF;
2578:
2571: -- Not null Validation for Asset Number
2572: IF ((l_clev_rec.name = OKC_API.G_MISS_CHAR OR l_clev_rec.name IS NULL) AND
2573: (l_klev_rec.capital_amount IS NOT NULL OR l_klev_rec.capital_amount <> OKC_API.G_MISS_NUM)) THEN
2574: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED');
2575: x_return_status := OKC_API.g_ret_sts_error;
2576: RAISE OKC_API.G_EXCEPTION_ERROR;
2577: END IF;
2578:
2579: -- Not null Validation for Amount
2572: IF ((l_clev_rec.name = OKC_API.G_MISS_CHAR OR l_clev_rec.name IS NULL) AND
2573: (l_klev_rec.capital_amount IS NOT NULL OR l_klev_rec.capital_amount <> OKC_API.G_MISS_NUM)) THEN
2574: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED');
2575: x_return_status := OKC_API.g_ret_sts_error;
2576: RAISE OKC_API.G_EXCEPTION_ERROR;
2577: END IF;
2578:
2579: -- Not null Validation for Amount
2580: IF ((l_clev_rec.name <> OKC_API.G_MISS_CHAR OR l_clev_rec.name IS NOT NULL) AND
2576: RAISE OKC_API.G_EXCEPTION_ERROR;
2577: END IF;
2578:
2579: -- Not null Validation for Amount
2580: IF ((l_clev_rec.name <> OKC_API.G_MISS_CHAR OR l_clev_rec.name IS NOT NULL) AND
2581: (l_klev_rec.capital_amount IS NULL OR l_klev_rec.capital_amount = OKC_API.G_MISS_NUM)) THEN
2582:
2583: l_amt_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_SERVICE_AMOUNT');
2584: OKC_API.SET_MESSAGE( p_app_name => g_app_name
2577: END IF;
2578:
2579: -- Not null Validation for Amount
2580: IF ((l_clev_rec.name <> OKC_API.G_MISS_CHAR OR l_clev_rec.name IS NOT NULL) AND
2581: (l_klev_rec.capital_amount IS NULL OR l_klev_rec.capital_amount = OKC_API.G_MISS_NUM)) THEN
2582:
2583: l_amt_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_SERVICE_AMOUNT');
2584: OKC_API.SET_MESSAGE( p_app_name => g_app_name
2585: , p_msg_name => 'OKL_AMOUNT_FORMAT'
2580: IF ((l_clev_rec.name <> OKC_API.G_MISS_CHAR OR l_clev_rec.name IS NOT NULL) AND
2581: (l_klev_rec.capital_amount IS NULL OR l_klev_rec.capital_amount = OKC_API.G_MISS_NUM)) THEN
2582:
2583: l_amt_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_SERVICE_AMOUNT');
2584: OKC_API.SET_MESSAGE( p_app_name => g_app_name
2585: , p_msg_name => 'OKL_AMOUNT_FORMAT'
2586: , p_token1 => 'COL_NAME'
2587: , p_token1_value => l_amt_ak_prompt
2588: );
2585: , p_msg_name => 'OKL_AMOUNT_FORMAT'
2586: , p_token1 => 'COL_NAME'
2587: , p_token1_value => l_amt_ak_prompt
2588: );
2589: x_return_status := OKC_API.g_ret_sts_error;
2590: RAISE OKC_API.G_EXCEPTION_ERROR;
2591: END IF;
2592:
2593: --Bug#4664176
2586: , p_token1 => 'COL_NAME'
2587: , p_token1_value => l_amt_ak_prompt
2588: );
2589: x_return_status := OKC_API.g_ret_sts_error;
2590: RAISE OKC_API.G_EXCEPTION_ERROR;
2591: END IF;
2592:
2593: --Bug#4664176
2594: --Bug#4635028
2601: l_amount := l_klev_rec.amount;
2602: END IF;
2603:
2604: -- Not null Validation for Asset Number
2605: IF ((l_clev_rec.name = OKC_API.G_MISS_CHAR OR l_clev_rec.name IS NULL) AND
2606: (l_amount IS NOT NULL OR l_amount <> OKC_API.G_MISS_NUM)) THEN
2607:
2608: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED');
2609: x_return_status := OKC_API.g_ret_sts_error;
2602: END IF;
2603:
2604: -- Not null Validation for Asset Number
2605: IF ((l_clev_rec.name = OKC_API.G_MISS_CHAR OR l_clev_rec.name IS NULL) AND
2606: (l_amount IS NOT NULL OR l_amount <> OKC_API.G_MISS_NUM)) THEN
2607:
2608: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED');
2609: x_return_status := OKC_API.g_ret_sts_error;
2610: RAISE OKC_API.G_EXCEPTION_ERROR;
2604: -- Not null Validation for Asset Number
2605: IF ((l_clev_rec.name = OKC_API.G_MISS_CHAR OR l_clev_rec.name IS NULL) AND
2606: (l_amount IS NOT NULL OR l_amount <> OKC_API.G_MISS_NUM)) THEN
2607:
2608: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED');
2609: x_return_status := OKC_API.g_ret_sts_error;
2610: RAISE OKC_API.G_EXCEPTION_ERROR;
2611:
2612: END IF;
2605: IF ((l_clev_rec.name = OKC_API.G_MISS_CHAR OR l_clev_rec.name IS NULL) AND
2606: (l_amount IS NOT NULL OR l_amount <> OKC_API.G_MISS_NUM)) THEN
2607:
2608: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED');
2609: x_return_status := OKC_API.g_ret_sts_error;
2610: RAISE OKC_API.G_EXCEPTION_ERROR;
2611:
2612: END IF;
2613:
2606: (l_amount IS NOT NULL OR l_amount <> OKC_API.G_MISS_NUM)) THEN
2607:
2608: OKC_API.SET_MESSAGE(p_app_name => g_app_name, p_msg_name => 'OKL_LLA_ASSET_REQUIRED');
2609: x_return_status := OKC_API.g_ret_sts_error;
2610: RAISE OKC_API.G_EXCEPTION_ERROR;
2611:
2612: END IF;
2613:
2614: -- Not null Validation for Amount
2611:
2612: END IF;
2613:
2614: -- Not null Validation for Amount
2615: IF ((l_clev_rec.name <> OKC_API.G_MISS_CHAR OR l_clev_rec.name IS NOT NULL) AND
2616: (l_amount IS NULL OR l_amount = OKC_API.G_MISS_NUM)) THEN
2617:
2618: l_amt_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_SERVICE_AMOUNT');
2619: OKC_API.SET_MESSAGE( p_app_name => g_app_name
2612: END IF;
2613:
2614: -- Not null Validation for Amount
2615: IF ((l_clev_rec.name <> OKC_API.G_MISS_CHAR OR l_clev_rec.name IS NOT NULL) AND
2616: (l_amount IS NULL OR l_amount = OKC_API.G_MISS_NUM)) THEN
2617:
2618: l_amt_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_SERVICE_AMOUNT');
2619: OKC_API.SET_MESSAGE( p_app_name => g_app_name
2620: , p_msg_name => 'OKL_AMOUNT_FORMAT'
2615: IF ((l_clev_rec.name <> OKC_API.G_MISS_CHAR OR l_clev_rec.name IS NOT NULL) AND
2616: (l_amount IS NULL OR l_amount = OKC_API.G_MISS_NUM)) THEN
2617:
2618: l_amt_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_SERVICE_AMOUNT');
2619: OKC_API.SET_MESSAGE( p_app_name => g_app_name
2620: , p_msg_name => 'OKL_AMOUNT_FORMAT'
2621: , p_token1 => 'COL_NAME'
2622: , p_token1_value => l_amt_ak_prompt
2623: );
2620: , p_msg_name => 'OKL_AMOUNT_FORMAT'
2621: , p_token1 => 'COL_NAME'
2622: , p_token1_value => l_amt_ak_prompt
2623: );
2624: x_return_status := OKC_API.g_ret_sts_error;
2625: RAISE OKC_API.G_EXCEPTION_ERROR;
2626:
2627: END IF;
2628:
2621: , p_token1 => 'COL_NAME'
2622: , p_token1_value => l_amt_ak_prompt
2623: );
2624: x_return_status := OKC_API.g_ret_sts_error;
2625: RAISE OKC_API.G_EXCEPTION_ERROR;
2626:
2627: END IF;
2628:
2629: END IF;
2641: p_name => l_clev_rec.name,
2642: p_object_code => l_cimv_rec.jtot_object1_code
2643: );
2644:
2645: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2646: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2647: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2648: raise OKC_API.G_EXCEPTION_ERROR;
2649: END IF;
2642: p_object_code => l_cimv_rec.jtot_object1_code
2643: );
2644:
2645: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2646: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2647: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2648: raise OKC_API.G_EXCEPTION_ERROR;
2649: END IF;
2650: */
2643: );
2644:
2645: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2646: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2647: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2648: raise OKC_API.G_EXCEPTION_ERROR;
2649: END IF;
2650: */
2651:
2644:
2645: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2646: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2647: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2648: raise OKC_API.G_EXCEPTION_ERROR;
2649: END IF;
2650: */
2651:
2652: -- Bug# 6598350
2678: x_clev_rec => x_clev_rec,
2679: x_klev_rec => x_klev_rec
2680: );
2681:
2682: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2683: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2684: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2685: raise OKC_API.G_EXCEPTION_ERROR;
2686: END IF;
2679: x_klev_rec => x_klev_rec
2680: );
2681:
2682: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2683: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2684: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2685: raise OKC_API.G_EXCEPTION_ERROR;
2686: END IF;
2687:
2680: );
2681:
2682: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2683: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2684: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2685: raise OKC_API.G_EXCEPTION_ERROR;
2686: END IF;
2687:
2688: --
2681:
2682: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2683: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2684: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2685: raise OKC_API.G_EXCEPTION_ERROR;
2686: END IF;
2687:
2688: --
2689: -- call procedure in complex API
2697: p_cimv_rec => l_cimv_rec,
2698: x_cimv_rec => x_cimv_rec);
2699:
2700: -- check return status
2701: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
2702: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2703: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
2704: raise OKC_API.G_EXCEPTION_ERROR;
2705: End If;
2698: x_cimv_rec => x_cimv_rec);
2699:
2700: -- check return status
2701: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
2702: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2703: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
2704: raise OKC_API.G_EXCEPTION_ERROR;
2705: End If;
2706:
2699:
2700: -- check return status
2701: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
2702: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2703: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
2704: raise OKC_API.G_EXCEPTION_ERROR;
2705: End If;
2706:
2707: -- Bug# 6598350
2700: -- check return status
2701: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
2702: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2703: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
2704: raise OKC_API.G_EXCEPTION_ERROR;
2705: End If;
2706:
2707: -- Bug# 6598350
2708: -- When the service line start date is changed, update the
2730: END IF;
2731: -- Bug# 6598350
2732:
2733: /*
2734: OKC_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
2735: */
2736:
2737: EXCEPTION
2738: when OKC_API.G_EXCEPTION_ERROR then
2734: OKC_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
2735: */
2736:
2737: EXCEPTION
2738: when OKC_API.G_EXCEPTION_ERROR then
2739: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
2740: p_api_name => l_api_name,
2741: p_pkg_name => g_pkg_name,
2742: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
2735: */
2736:
2737: EXCEPTION
2738: when OKC_API.G_EXCEPTION_ERROR then
2739: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
2740: p_api_name => l_api_name,
2741: p_pkg_name => g_pkg_name,
2742: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
2743: x_msg_count => x_msg_count,
2738: when OKC_API.G_EXCEPTION_ERROR then
2739: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
2740: p_api_name => l_api_name,
2741: p_pkg_name => g_pkg_name,
2742: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
2743: x_msg_count => x_msg_count,
2744: x_msg_data => x_msg_data,
2745: p_api_type => g_api_type);
2746:
2743: x_msg_count => x_msg_count,
2744: x_msg_data => x_msg_data,
2745: p_api_type => g_api_type);
2746:
2747: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
2748: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
2749: p_api_name => l_api_name,
2750: p_pkg_name => g_pkg_name,
2751: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
2744: x_msg_data => x_msg_data,
2745: p_api_type => g_api_type);
2746:
2747: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
2748: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
2749: p_api_name => l_api_name,
2750: p_pkg_name => g_pkg_name,
2751: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
2752: x_msg_count => x_msg_count,
2747: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
2748: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
2749: p_api_name => l_api_name,
2750: p_pkg_name => g_pkg_name,
2751: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
2752: x_msg_count => x_msg_count,
2753: x_msg_data => x_msg_data,
2754: p_api_type => g_api_type);
2755:
2753: x_msg_data => x_msg_data,
2754: p_api_type => g_api_type);
2755:
2756: when OTHERS then
2757: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
2758: p_api_name => l_api_name,
2759: p_pkg_name => g_pkg_name,
2760: p_exc_name => 'OTHERS',
2761: x_msg_count => x_msg_count,
2773: -- Version : 1.0
2774: -- End of comments
2775: PROCEDURE update_contract_line_item(
2776: p_api_version IN NUMBER,
2777: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
2778: x_return_status OUT NOCOPY VARCHAR2,
2779: x_msg_count OUT NOCOPY NUMBER,
2780: x_msg_data OUT NOCOPY VARCHAR2,
2781: p_clev_tbl IN clev_tbl_type,
2786: x_cimv_tbl OUT NOCOPY cimv_tbl_type) IS
2787:
2788: l_api_name CONSTANT VARCHAR2(30) := 'update_contract_line_item';
2789: l_api_version CONSTANT NUMBER := 1.0;
2790: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2791: l_overall_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2792: i NUMBER;
2793: l_klev_tbl klev_tbl_type := p_klev_tbl;
2794: l_cimv_tbl cimv_tbl_type := p_cimv_tbl;
2787:
2788: l_api_name CONSTANT VARCHAR2(30) := 'update_contract_line_item';
2789: l_api_version CONSTANT NUMBER := 1.0;
2790: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2791: l_overall_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2792: i NUMBER;
2793: l_klev_tbl klev_tbl_type := p_klev_tbl;
2794: l_cimv_tbl cimv_tbl_type := p_cimv_tbl;
2795: BEGIN
2795: BEGIN
2796: /*
2797: -- call START_ACTIVITY to create savepoint, check compatibility
2798: -- and initialize message list
2799: x_return_status := OKC_API.START_ACTIVITY(
2800: p_api_name => l_api_name,
2801: p_pkg_name => g_pkg_name,
2802: p_init_msg_list => p_init_msg_list,
2803: l_api_version => l_api_version,
2805: p_api_type => g_api_type,
2806: x_return_status => x_return_status);
2807:
2808: -- check if activity started successfully
2809: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
2810: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2811: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
2812: raise OKC_API.G_EXCEPTION_ERROR;
2813: End If;
2806: x_return_status => x_return_status);
2807:
2808: -- check if activity started successfully
2809: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
2810: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2811: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
2812: raise OKC_API.G_EXCEPTION_ERROR;
2813: End If;
2814: */
2807:
2808: -- check if activity started successfully
2809: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
2810: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2811: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
2812: raise OKC_API.G_EXCEPTION_ERROR;
2813: End If;
2814: */
2815:
2808: -- check if activity started successfully
2809: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
2810: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2811: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
2812: raise OKC_API.G_EXCEPTION_ERROR;
2813: End If;
2814: */
2815:
2816: If (p_clev_tbl.COUNT > 0) Then
2829: x_clev_rec => x_clev_tbl(i),
2830: x_klev_rec => x_klev_tbl(i),
2831: x_cimv_rec => x_cimv_tbl(i));
2832:
2833: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
2834: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2835: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
2836: raise OKC_API.G_EXCEPTION_ERROR;
2837: End If;
2830: x_klev_rec => x_klev_tbl(i),
2831: x_cimv_rec => x_cimv_tbl(i));
2832:
2833: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
2834: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2835: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
2836: raise OKC_API.G_EXCEPTION_ERROR;
2837: End If;
2838:
2831: x_cimv_rec => x_cimv_tbl(i));
2832:
2833: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
2834: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2835: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
2836: raise OKC_API.G_EXCEPTION_ERROR;
2837: End If;
2838:
2839: EXIT WHEN (i = p_clev_tbl.LAST);
2832:
2833: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
2834: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2835: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
2836: raise OKC_API.G_EXCEPTION_ERROR;
2837: End If;
2838:
2839: EXIT WHEN (i = p_clev_tbl.LAST);
2840: i := p_clev_tbl.NEXT(i);
2842:
2843: End If;
2844:
2845: /*
2846: OKC_API.END_ACTIVITY( x_msg_count => x_msg_count,
2847: x_msg_data => x_msg_data);
2848: */
2849:
2850: EXCEPTION
2847: x_msg_data => x_msg_data);
2848: */
2849:
2850: EXCEPTION
2851: when OKC_API.G_EXCEPTION_ERROR then
2852: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
2853: p_api_name => l_api_name,
2854: p_pkg_name => g_pkg_name,
2855: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
2848: */
2849:
2850: EXCEPTION
2851: when OKC_API.G_EXCEPTION_ERROR then
2852: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
2853: p_api_name => l_api_name,
2854: p_pkg_name => g_pkg_name,
2855: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
2856: x_msg_count => x_msg_count,
2851: when OKC_API.G_EXCEPTION_ERROR then
2852: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
2853: p_api_name => l_api_name,
2854: p_pkg_name => g_pkg_name,
2855: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
2856: x_msg_count => x_msg_count,
2857: x_msg_data => x_msg_data,
2858: p_api_type => g_api_type);
2859:
2856: x_msg_count => x_msg_count,
2857: x_msg_data => x_msg_data,
2858: p_api_type => g_api_type);
2859:
2860: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
2861: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
2862: p_api_name => l_api_name,
2863: p_pkg_name => g_pkg_name,
2864: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
2857: x_msg_data => x_msg_data,
2858: p_api_type => g_api_type);
2859:
2860: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
2861: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
2862: p_api_name => l_api_name,
2863: p_pkg_name => g_pkg_name,
2864: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
2865: x_msg_count => x_msg_count,
2860: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
2861: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
2862: p_api_name => l_api_name,
2863: p_pkg_name => g_pkg_name,
2864: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
2865: x_msg_count => x_msg_count,
2866: x_msg_data => x_msg_data,
2867: p_api_type => g_api_type);
2868:
2866: x_msg_data => x_msg_data,
2867: p_api_type => g_api_type);
2868:
2869: when OTHERS then
2870: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
2871: p_api_name => l_api_name,
2872: p_pkg_name => g_pkg_name,
2873: p_exc_name => 'OTHERS',
2874: x_msg_count => x_msg_count,
2879:
2880:
2881: PROCEDURE delete_contract_line_item(
2882: p_api_version IN NUMBER,
2883: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
2884: x_return_status OUT NOCOPY VARCHAR2,
2885: x_msg_count OUT NOCOPY NUMBER,
2886: x_msg_data OUT NOCOPY VARCHAR2,
2887: p_clev_rec IN clev_rec_type,
2934: l_cimv_rec cimv_rec_type;
2935:
2936: l_api_name CONSTANT VARCHAR2(30) := 'delete_contract_line_item';
2937: l_api_version CONSTANT NUMBER := 1.0;
2938: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2939:
2940: --Bug# 3877032 : cursor to determine if linked asset line
2941: -- corresponding to CAPITALIZED fee is being deleted
2942: cursor l_cap_fee_asst_csr (p_cle_id in number,
2992: BEGIN
2993: /*
2994: -- call START_ACTIVITY to create savepoint, check compatibility
2995: -- and initialize message list
2996: x_return_status := OKC_API.START_ACTIVITY(
2997: p_api_name => l_api_name,
2998: p_pkg_name => g_pkg_name,
2999: p_init_msg_list => p_init_msg_list,
3000: l_api_version => l_api_version,
3002: p_api_type => g_api_type,
3003: x_return_status => x_return_status);
3004:
3005: -- check if activity started successfully
3006: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
3007: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3008: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
3009: raise OKC_API.G_EXCEPTION_ERROR;
3010: End If;
3003: x_return_status => x_return_status);
3004:
3005: -- check if activity started successfully
3006: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
3007: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3008: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
3009: raise OKC_API.G_EXCEPTION_ERROR;
3010: End If;
3011: */
3004:
3005: -- check if activity started successfully
3006: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
3007: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3008: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
3009: raise OKC_API.G_EXCEPTION_ERROR;
3010: End If;
3011: */
3012:
3005: -- check if activity started successfully
3006: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
3007: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3008: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
3009: raise OKC_API.G_EXCEPTION_ERROR;
3010: End If;
3011: */
3012:
3013: --Bug# 4899328
3065: x_msg_data => x_msg_data,
3066: p_cimv_rec => l_cimv_rec);
3067:
3068: -- check return status
3069: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
3070: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3071: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
3072: raise OKC_API.G_EXCEPTION_ERROR;
3073: End If;
3066: p_cimv_rec => l_cimv_rec);
3067:
3068: -- check return status
3069: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
3070: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3071: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
3072: raise OKC_API.G_EXCEPTION_ERROR;
3073: End If;
3074:
3067:
3068: -- check return status
3069: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
3070: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3071: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
3072: raise OKC_API.G_EXCEPTION_ERROR;
3073: End If;
3074:
3075: --Bug# 11847486
3068: -- check return status
3069: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
3070: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3071: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
3072: raise OKC_API.G_EXCEPTION_ERROR;
3073: End If;
3074:
3075: --Bug# 11847486
3076: IF (l_klev_rec.id IS NULL) OR
3089: --Bug# 11847486
3090: p_delete_cascade_yn => 'Y'
3091: );
3092:
3093: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3094: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3095: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3096: raise OKC_API.G_EXCEPTION_ERROR;
3097: END IF;
3090: p_delete_cascade_yn => 'Y'
3091: );
3092:
3093: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3094: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3095: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3096: raise OKC_API.G_EXCEPTION_ERROR;
3097: END IF;
3098:
3091: );
3092:
3093: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3094: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3095: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3096: raise OKC_API.G_EXCEPTION_ERROR;
3097: END IF;
3098:
3099: --Bug# 3877032
3092:
3093: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3094: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3095: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3096: raise OKC_API.G_EXCEPTION_ERROR;
3097: END IF;
3098:
3099: --Bug# 3877032
3100: If l_fin_klev_tbl.COUNT > 0 then
3108: p_formula_name => 'LINE_CAP_AMNT',
3109: p_contract_id => l_fin_clev_tbl(i).dnz_chr_id,
3110: p_line_id => l_fin_clev_tbl(i).id,
3111: x_value => l_fin_klev_tbl(i).capital_amount);
3112: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
3113: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3114: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
3115: raise OKC_API.G_EXCEPTION_ERROR;
3116: End If;
3109: p_contract_id => l_fin_clev_tbl(i).dnz_chr_id,
3110: p_line_id => l_fin_clev_tbl(i).id,
3111: x_value => l_fin_klev_tbl(i).capital_amount);
3112: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
3113: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3114: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
3115: raise OKC_API.G_EXCEPTION_ERROR;
3116: End If;
3117: End Loop;
3110: p_line_id => l_fin_clev_tbl(i).id,
3111: x_value => l_fin_klev_tbl(i).capital_amount);
3112: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
3113: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3114: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
3115: raise OKC_API.G_EXCEPTION_ERROR;
3116: End If;
3117: End Loop;
3118:
3111: x_value => l_fin_klev_tbl(i).capital_amount);
3112: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
3113: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3114: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
3115: raise OKC_API.G_EXCEPTION_ERROR;
3116: End If;
3117: End Loop;
3118:
3119: okl_contract_pub.update_contract_line(p_api_version => p_api_version,
3125: p_klev_tbl => l_fin_klev_tbl,
3126: x_clev_tbl => lx_fin_clev_tbl,
3127: x_klev_tbl => lx_fin_klev_tbl);
3128:
3129: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
3130: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3131: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
3132: raise OKC_API.G_EXCEPTION_ERROR;
3133: End If;
3126: x_clev_tbl => lx_fin_clev_tbl,
3127: x_klev_tbl => lx_fin_klev_tbl);
3128:
3129: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
3130: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3131: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
3132: raise OKC_API.G_EXCEPTION_ERROR;
3133: End If;
3134:
3127: x_klev_tbl => lx_fin_klev_tbl);
3128:
3129: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
3130: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3131: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
3132: raise OKC_API.G_EXCEPTION_ERROR;
3133: End If;
3134:
3135: --Bug# 4899328
3128:
3129: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
3130: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3131: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
3132: raise OKC_API.G_EXCEPTION_ERROR;
3133: End If;
3134:
3135: --Bug# 4899328
3136: -- Recalculate Asset depreciation cost when there
3207: -- END, Code change to enable Business Event
3208: */
3209:
3210: /*
3211: OKC_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
3212: */
3213:
3214: EXCEPTION
3215: when OKC_API.G_EXCEPTION_ERROR then
3211: OKC_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
3212: */
3213:
3214: EXCEPTION
3215: when OKC_API.G_EXCEPTION_ERROR then
3216: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
3217: p_api_name => l_api_name,
3218: p_pkg_name => g_pkg_name,
3219: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
3212: */
3213:
3214: EXCEPTION
3215: when OKC_API.G_EXCEPTION_ERROR then
3216: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
3217: p_api_name => l_api_name,
3218: p_pkg_name => g_pkg_name,
3219: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
3220: x_msg_count => x_msg_count,
3215: when OKC_API.G_EXCEPTION_ERROR then
3216: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
3217: p_api_name => l_api_name,
3218: p_pkg_name => g_pkg_name,
3219: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
3220: x_msg_count => x_msg_count,
3221: x_msg_data => x_msg_data,
3222: p_api_type => g_api_type);
3223:
3220: x_msg_count => x_msg_count,
3221: x_msg_data => x_msg_data,
3222: p_api_type => g_api_type);
3223:
3224: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
3225: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
3226: p_api_name => l_api_name,
3227: p_pkg_name => g_pkg_name,
3228: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
3221: x_msg_data => x_msg_data,
3222: p_api_type => g_api_type);
3223:
3224: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
3225: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
3226: p_api_name => l_api_name,
3227: p_pkg_name => g_pkg_name,
3228: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
3229: x_msg_count => x_msg_count,
3224: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
3225: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
3226: p_api_name => l_api_name,
3227: p_pkg_name => g_pkg_name,
3228: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
3229: x_msg_count => x_msg_count,
3230: x_msg_data => x_msg_data,
3231: p_api_type => g_api_type);
3232:
3230: x_msg_data => x_msg_data,
3231: p_api_type => g_api_type);
3232:
3233: when OTHERS then
3234: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
3235: p_api_name => l_api_name,
3236: p_pkg_name => g_pkg_name,
3237: p_exc_name => 'OTHERS',
3238: x_msg_count => x_msg_count,
3249: -- Version : 1.0
3250: -- End of comments
3251: PROCEDURE delete_contract_line_item(
3252: p_api_version IN NUMBER,
3253: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
3254: x_return_status OUT NOCOPY VARCHAR2,
3255: x_msg_count OUT NOCOPY NUMBER,
3256: x_msg_data OUT NOCOPY VARCHAR2,
3257: p_clev_tbl IN clev_tbl_type,
3259: p_cimv_tbl IN cimv_tbl_type) IS
3260:
3261: l_api_name CONSTANT VARCHAR2(30) := 'delete_contract_line_item';
3262: l_api_version CONSTANT NUMBER := 1.0;
3263: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3264: l_overall_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3265: i NUMBER;
3266: l_klev_tbl klev_tbl_type := p_klev_tbl;
3267: l_cimv_tbl cimv_tbl_type := p_cimv_tbl;
3260:
3261: l_api_name CONSTANT VARCHAR2(30) := 'delete_contract_line_item';
3262: l_api_version CONSTANT NUMBER := 1.0;
3263: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3264: l_overall_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3265: i NUMBER;
3266: l_klev_tbl klev_tbl_type := p_klev_tbl;
3267: l_cimv_tbl cimv_tbl_type := p_cimv_tbl;
3268: BEGIN
3268: BEGIN
3269: /*
3270: -- call START_ACTIVITY to create savepoint, check compatibility
3271: -- and initialize message list
3272: x_return_status := OKC_API.START_ACTIVITY(
3273: p_api_name => l_api_name,
3274: p_pkg_name => g_pkg_name,
3275: p_init_msg_list => p_init_msg_list,
3276: l_api_version => l_api_version,
3278: p_api_type => g_api_type,
3279: x_return_status => x_return_status);
3280:
3281: -- check if activity started successfully
3282: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
3283: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3284: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
3285: raise OKC_API.G_EXCEPTION_ERROR;
3286: End If;
3279: x_return_status => x_return_status);
3280:
3281: -- check if activity started successfully
3282: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
3283: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3284: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
3285: raise OKC_API.G_EXCEPTION_ERROR;
3286: End If;
3287: */
3280:
3281: -- check if activity started successfully
3282: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
3283: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3284: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
3285: raise OKC_API.G_EXCEPTION_ERROR;
3286: End If;
3287: */
3288:
3281: -- check if activity started successfully
3282: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
3283: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3284: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
3285: raise OKC_API.G_EXCEPTION_ERROR;
3286: End If;
3287: */
3288:
3289: If (p_clev_tbl.COUNT > 0) Then
3299: p_clev_rec => p_clev_tbl(i),
3300: p_klev_rec => l_klev_tbl(i),
3301: p_cimv_rec => l_cimv_tbl(i));
3302:
3303: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
3304: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3305: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
3306: raise OKC_API.G_EXCEPTION_ERROR;
3307: End If;
3300: p_klev_rec => l_klev_tbl(i),
3301: p_cimv_rec => l_cimv_tbl(i));
3302:
3303: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
3304: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3305: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
3306: raise OKC_API.G_EXCEPTION_ERROR;
3307: End If;
3308:
3301: p_cimv_rec => l_cimv_tbl(i));
3302:
3303: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
3304: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3305: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
3306: raise OKC_API.G_EXCEPTION_ERROR;
3307: End If;
3308:
3309: EXIT WHEN (i = p_clev_tbl.LAST);
3302:
3303: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
3304: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3305: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
3306: raise OKC_API.G_EXCEPTION_ERROR;
3307: End If;
3308:
3309: EXIT WHEN (i = p_clev_tbl.LAST);
3310: i := p_clev_tbl.NEXT(i);
3312:
3313: End If;
3314:
3315: /*
3316: OKC_API.END_ACTIVITY( x_msg_count => x_msg_count,
3317: x_msg_data => x_msg_data);
3318: */
3319:
3320: EXCEPTION
3317: x_msg_data => x_msg_data);
3318: */
3319:
3320: EXCEPTION
3321: when OKC_API.G_EXCEPTION_ERROR then
3322: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
3323: p_api_name => l_api_name,
3324: p_pkg_name => g_pkg_name,
3325: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
3318: */
3319:
3320: EXCEPTION
3321: when OKC_API.G_EXCEPTION_ERROR then
3322: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
3323: p_api_name => l_api_name,
3324: p_pkg_name => g_pkg_name,
3325: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
3326: x_msg_count => x_msg_count,
3321: when OKC_API.G_EXCEPTION_ERROR then
3322: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
3323: p_api_name => l_api_name,
3324: p_pkg_name => g_pkg_name,
3325: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
3326: x_msg_count => x_msg_count,
3327: x_msg_data => x_msg_data,
3328: p_api_type => g_api_type);
3329:
3326: x_msg_count => x_msg_count,
3327: x_msg_data => x_msg_data,
3328: p_api_type => g_api_type);
3329:
3330: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
3331: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
3332: p_api_name => l_api_name,
3333: p_pkg_name => g_pkg_name,
3334: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
3327: x_msg_data => x_msg_data,
3328: p_api_type => g_api_type);
3329:
3330: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
3331: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
3332: p_api_name => l_api_name,
3333: p_pkg_name => g_pkg_name,
3334: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
3335: x_msg_count => x_msg_count,
3330: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
3331: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
3332: p_api_name => l_api_name,
3333: p_pkg_name => g_pkg_name,
3334: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
3335: x_msg_count => x_msg_count,
3336: x_msg_data => x_msg_data,
3337: p_api_type => g_api_type);
3338:
3336: x_msg_data => x_msg_data,
3337: p_api_type => g_api_type);
3338:
3339: when OTHERS then
3340: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
3341: p_api_name => l_api_name,
3342: p_pkg_name => g_pkg_name,
3343: p_exc_name => 'OTHERS',
3344: x_msg_count => x_msg_count,