DBA Data[Home] [Help]

APPS.OKL_VP_CR_WF dependencies on OKL_API

Line 5: G_COL_NAME_TOKEN CONSTANT VARCHAR2(200) := OKL_API.G_COL_NAME_TOKEN;

1: PACKAGE BODY okl_vp_cr_wf AS
2: /* $Header: OKLRCRWB.pls 120.3 2006/09/22 13:45:35 varangan noship $ */
3:
4: G_NO_MATCHING_RECORD CONSTANT fnd_new_messages.message_name%TYPE DEFAULT 'OKL_LLA_NO_MATCHING_RECORD';
5: G_COL_NAME_TOKEN CONSTANT VARCHAR2(200) := OKL_API.G_COL_NAME_TOKEN;
6:
7: G_CHANGE_REQUEST_APP_EVENT CONSTANT wf_events.name%TYPE DEFAULT 'oracle.apps.okl.la.vp.approve_change_request';
8:
9: G_AGRMNT_APPROVAL_WF CONSTANT VARCHAR2(2) DEFAULT 'WF';

Line 75: x_return_status := OKL_API.G_RET_STS_SUCCESS;

71: SELECT user_name, description
72: FROM fnd_user
73: WHERE user_id = cp_user_id;
74: BEGIN
75: x_return_status := OKL_API.G_RET_STS_SUCCESS;
76: OPEN wf_users_csr(p_user_id);
77: FETCH wf_users_csr INTO x_name, x_description;
78: CLOSE wf_users_csr;
79: IF x_name IS NULL THEN

Line 90: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;

86: END IF;
87: END IF;
88: EXCEPTION
89: WHEN OTHERS THEN
90: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
91: END l_get_agent;
92:
93: -- generates unique value for event key
94: FUNCTION get_item_key_wf RETURN NUMBER IS

Line 311: x_return_status := OKL_API.G_RET_STS_SUCCESS;

307: l_module CONSTANT fnd_log_messages.module%TYPE := 'okl.plsql.OKL_VP_CR_WF.RAISE_CR_EVENT_APPROVAL';
308: l_debug_enabled VARCHAR2(10);
309:
310: BEGIN
311: x_return_status := OKL_API.G_RET_STS_SUCCESS;
312:
313: l_debug_enabled := okl_debug_pub.check_log_enabled;
314:
315: IF(l_debug_enabled='Y') THEN

Line 320: x_return_status := OKL_API.START_ACTIVITY(

316: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,l_module,'begin debug OKLRXXXB.pls call raise_cr_event_approval');
317: END IF;
318:
319: -- call START_ACTIVITY to create savepoint, check compatibility and initialize message list
320: x_return_status := OKL_API.START_ACTIVITY(
321: p_api_name => l_api_name
322: ,p_pkg_name => G_PKG_NAME
323: ,p_init_msg_list => p_init_msg_list
324: ,l_api_version => l_api_version

Line 329: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN

325: ,p_api_version => p_api_version
326: ,p_api_type => g_api_type
327: ,x_return_status => x_return_status);
328: -- check if activity started successfully
329: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
330: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
331: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
332: RAISE OKL_API.G_EXCEPTION_ERROR;
333: END IF;

Line 330: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;

326: ,p_api_type => g_api_type
327: ,x_return_status => x_return_status);
328: -- check if activity started successfully
329: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
330: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
331: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
332: RAISE OKL_API.G_EXCEPTION_ERROR;
333: END IF;
334:

Line 331: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN

327: ,x_return_status => x_return_status);
328: -- check if activity started successfully
329: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
330: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
331: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
332: RAISE OKL_API.G_EXCEPTION_ERROR;
333: END IF;
334:
335: l_get_agent(p_user_id => fnd_global.user_id

Line 332: RAISE OKL_API.G_EXCEPTION_ERROR;

328: -- check if activity started successfully
329: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
330: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
331: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
332: RAISE OKL_API.G_EXCEPTION_ERROR;
333: END IF;
334:
335: l_get_agent(p_user_id => fnd_global.user_id
336: ,x_return_status => x_return_status

Line 355: OKL_API.set_message(p_app_name => G_APP_NAME,

351: -- Get the Application ID
352: OPEN c_get_app_id_csr;
353: FETCH c_get_app_id_csr INTO l_application_id;
354: IF c_get_app_id_csr%NOTFOUND THEN
355: OKL_API.set_message(p_app_name => G_APP_NAME,
356: p_msg_name => G_NO_MATCHING_RECORD,
357: p_token1 => G_COL_NAME_TOKEN,
358: p_token1_value => 'Application id');
359: RAISE OKL_API.G_EXCEPTION_ERROR;

Line 359: RAISE OKL_API.G_EXCEPTION_ERROR;

355: OKL_API.set_message(p_app_name => G_APP_NAME,
356: p_msg_name => G_NO_MATCHING_RECORD,
357: p_token1 => G_COL_NAME_TOKEN,
358: p_token1_value => 'Application id');
359: RAISE OKL_API.G_EXCEPTION_ERROR;
360: END IF;
361: CLOSE c_get_app_id_csr;
362:
363: -- Get the Transaction Type ID

Line 367: OKL_API.set_message(p_app_name => G_APP_NAME,

363: -- Get the Transaction Type ID
364: OPEN c_get_trx_type_csr(G_TRANS_APP_NAME_OA);
365: FETCH c_get_trx_type_csr INTO l_trans_type_id, l_trans_appl_id;
366: IF c_get_trx_type_csr%NOTFOUND THEN
367: OKL_API.set_message(p_app_name => G_APP_NAME,
368: p_msg_name => G_NO_MATCHING_RECORD,
369: p_token1 => G_COL_NAME_TOKEN,
370: p_token1_value => 'AME Transcation TYPE id, Application id');
371: RAISE OKL_API.G_EXCEPTION_ERROR;

Line 371: RAISE OKL_API.G_EXCEPTION_ERROR;

367: OKL_API.set_message(p_app_name => G_APP_NAME,
368: p_msg_name => G_NO_MATCHING_RECORD,
369: p_token1 => G_COL_NAME_TOKEN,
370: p_token1_value => 'AME Transcation TYPE id, Application id');
371: RAISE OKL_API.G_EXCEPTION_ERROR;
372: END IF;
373: CLOSE c_get_trx_type_csr;
374: IF(l_application_id = l_trans_appl_id)THEN
375: wf_event.AddParameterToList(G_WF_ITM_APPLICATION_ID,l_application_id,l_parameter_list);

Line 415: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);

411:
412: l_parameter_list.DELETE;
413: END IF;
414:
415: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
416:
417: IF(l_debug_enabled='Y') THEN
418: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,l_module,'end debug OKLRXXXB.pls call raise_cr_event_approval');
419: END IF;

Line 422: WHEN OKL_API.G_EXCEPTION_ERROR THEN

418: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,l_module,'end debug OKLRXXXB.pls call raise_cr_event_approval');
419: END IF;
420:
421: EXCEPTION
422: WHEN OKL_API.G_EXCEPTION_ERROR THEN
423: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
424: p_api_name => l_api_name,
425: p_pkg_name => G_PKG_NAME,
426: p_exc_name => 'OKL_API.G_RET_STS_ERROR',

Line 423: x_return_status := OKL_API.HANDLE_EXCEPTIONS(

419: END IF;
420:
421: EXCEPTION
422: WHEN OKL_API.G_EXCEPTION_ERROR THEN
423: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
424: p_api_name => l_api_name,
425: p_pkg_name => G_PKG_NAME,
426: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
427: x_msg_count => x_msg_count,

Line 426: p_exc_name => 'OKL_API.G_RET_STS_ERROR',

422: WHEN OKL_API.G_EXCEPTION_ERROR THEN
423: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
424: p_api_name => l_api_name,
425: p_pkg_name => G_PKG_NAME,
426: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
427: x_msg_count => x_msg_count,
428: x_msg_data => x_msg_data,
429: p_api_type => g_api_type);
430: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN

Line 430: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN

426: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
427: x_msg_count => x_msg_count,
428: x_msg_data => x_msg_data,
429: p_api_type => g_api_type);
430: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
431: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
432: p_api_name => l_api_name,
433: p_pkg_name => G_PKG_NAME,
434: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',

Line 431: x_return_status := OKL_API.HANDLE_EXCEPTIONS(

427: x_msg_count => x_msg_count,
428: x_msg_data => x_msg_data,
429: p_api_type => g_api_type);
430: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
431: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
432: p_api_name => l_api_name,
433: p_pkg_name => G_PKG_NAME,
434: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
435: x_msg_count => x_msg_count,

Line 434: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',

430: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
431: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
432: p_api_name => l_api_name,
433: p_pkg_name => G_PKG_NAME,
434: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
435: x_msg_count => x_msg_count,
436: x_msg_data => x_msg_data,
437: p_api_type => g_api_type);
438: WHEN OTHERS THEN

Line 439: x_return_status := OKL_API.HANDLE_EXCEPTIONS(

435: x_msg_count => x_msg_count,
436: x_msg_data => x_msg_data,
437: p_api_type => g_api_type);
438: WHEN OTHERS THEN
439: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
440: p_api_name => l_api_name,
441: p_pkg_name => G_PKG_NAME,
442: p_exc_name => 'OTHERS',
443: x_msg_count => x_msg_count,

Line 606: ,p_init_msg_list => OKL_API.G_TRUE

602: -- first set the change request and its associated agreement to status APPROVED.
603: -- though the life of the records in this status is only ephemeral, this status is still requried
604: -- for future use. refer to #71 on the vendor programs discussion log
605: okl_vp_change_request_pvt.set_change_request_status(p_api_version => 1.0
606: ,p_init_msg_list => OKL_API.G_TRUE
607: ,x_return_status => x_return_status
608: ,x_msg_count => x_msg_count
609: ,x_msg_data => x_msg_data
610: ,p_vp_crq_id => lv_change_req_id

Line 613: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN

609: ,x_msg_data => x_msg_data
610: ,p_vp_crq_id => lv_change_req_id
611: ,p_status_code => G_APPROVED_STS_CODE
612: );
613: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
614: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
615: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
616: RAISE OKL_API.G_EXCEPTION_ERROR;
617: END IF;

Line 614: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;

610: ,p_vp_crq_id => lv_change_req_id
611: ,p_status_code => G_APPROVED_STS_CODE
612: );
613: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
614: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
615: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
616: RAISE OKL_API.G_EXCEPTION_ERROR;
617: END IF;
618:

Line 615: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN

611: ,p_status_code => G_APPROVED_STS_CODE
612: );
613: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
614: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
615: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
616: RAISE OKL_API.G_EXCEPTION_ERROR;
617: END IF;
618:
619: -- now start synchronization, the synchronization api will set the status of the change request

Line 616: RAISE OKL_API.G_EXCEPTION_ERROR;

612: );
613: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
614: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
615: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
616: RAISE OKL_API.G_EXCEPTION_ERROR;
617: END IF;
618:
619: -- now start synchronization, the synchronization api will set the status of the change request
620: -- and the associated agreement accordingly

Line 622: ,p_init_msg_list => OKL_API.G_TRUE

618:
619: -- now start synchronization, the synchronization api will set the status of the change request
620: -- and the associated agreement accordingly
621: okl_vp_sync_cr_pvt.sync_change_request(p_api_version => 1.0
622: ,p_init_msg_list => OKL_API.G_TRUE
623: ,x_return_status => x_return_status
624: ,x_msg_count => x_msg_count
625: ,x_msg_data => x_msg_data
626: ,p_change_request_id => lv_change_req_id

Line 635: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN

631: l_module,
632: 'okl_vp_sync_cr_pvt.sync_change_request on change request id '||lv_change_req_id||' returned with status '||x_return_status
633: );
634: END IF; -- end of NVL(l_debug_enabled,'N')='Y'
635: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
636: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
637: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
638: RAISE OKL_API.G_EXCEPTION_ERROR;
639: END IF;

Line 636: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;

632: 'okl_vp_sync_cr_pvt.sync_change_request on change request id '||lv_change_req_id||' returned with status '||x_return_status
633: );
634: END IF; -- end of NVL(l_debug_enabled,'N')='Y'
635: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
636: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
637: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
638: RAISE OKL_API.G_EXCEPTION_ERROR;
639: END IF;
640:

Line 637: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN

633: );
634: END IF; -- end of NVL(l_debug_enabled,'N')='Y'
635: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
636: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
637: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
638: RAISE OKL_API.G_EXCEPTION_ERROR;
639: END IF;
640:
641: ELSIF(G_WF_ITM_APPROVED_YN_NO = lv_approval_status OR lv_approval_status_ame = 'N')THEN

Line 638: RAISE OKL_API.G_EXCEPTION_ERROR;

634: END IF; -- end of NVL(l_debug_enabled,'N')='Y'
635: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
636: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
637: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
638: RAISE OKL_API.G_EXCEPTION_ERROR;
639: END IF;
640:
641: ELSIF(G_WF_ITM_APPROVED_YN_NO = lv_approval_status OR lv_approval_status_ame = 'N')THEN
642: -- set the status of the change request to REJECTED

Line 652: ,p_init_msg_list => OKL_API.G_TRUE

648: lv_vcrv_rec.chr_id := cv_get_creq_chr.creq_chr_id;
649: lv_vcrv_rec.status_code := G_REJECTED_STS_CODE;
650: lv_vcrv_rec.rejected_date := TRUNC(SYSDATE);
651: okl_vp_change_request_pvt.update_change_request_header(p_api_version => 1.0
652: ,p_init_msg_list => OKL_API.G_TRUE
653: ,x_return_status => x_return_status
654: ,x_msg_count => x_msg_count
655: ,x_msg_data => x_msg_data
656: ,p_vcrv_rec => lv_vcrv_rec

Line 659: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN

655: ,x_msg_data => x_msg_data
656: ,p_vcrv_rec => lv_vcrv_rec
657: ,x_vcrv_rec => x_vcrv_rec
658: );
659: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
660: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
661: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
662: RAISE OKL_API.G_EXCEPTION_ERROR;
663: END IF;

Line 660: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;

656: ,p_vcrv_rec => lv_vcrv_rec
657: ,x_vcrv_rec => x_vcrv_rec
658: );
659: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
660: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
661: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
662: RAISE OKL_API.G_EXCEPTION_ERROR;
663: END IF;
664: -- update the agreement to APPROVAL_REJECTED only in case of AGREEMENT type of change request

Line 661: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN

657: ,x_vcrv_rec => x_vcrv_rec
658: );
659: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
660: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
661: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
662: RAISE OKL_API.G_EXCEPTION_ERROR;
663: END IF;
664: -- update the agreement to APPROVAL_REJECTED only in case of AGREEMENT type of change request
665: IF(cv_get_creq_chr.change_type_code = G_ARGREEMENT_TYPE_CODE)THEN

Line 662: RAISE OKL_API.G_EXCEPTION_ERROR;

658: );
659: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
660: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
661: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
662: RAISE OKL_API.G_EXCEPTION_ERROR;
663: END IF;
664: -- update the agreement to APPROVAL_REJECTED only in case of AGREEMENT type of change request
665: IF(cv_get_creq_chr.change_type_code = G_ARGREEMENT_TYPE_CODE)THEN
666: okl_contract_status_pub.update_contract_status(p_api_version => 1.0

Line 667: ,p_init_msg_list => OKL_API.G_TRUE

663: END IF;
664: -- update the agreement to APPROVAL_REJECTED only in case of AGREEMENT type of change request
665: IF(cv_get_creq_chr.change_type_code = G_ARGREEMENT_TYPE_CODE)THEN
666: okl_contract_status_pub.update_contract_status(p_api_version => 1.0
667: ,p_init_msg_list => OKL_API.G_TRUE
668: ,x_return_status => x_return_status
669: ,x_msg_count => x_msg_count
670: ,x_msg_data => x_msg_data
671: ,p_khr_status => G_AGR_APP_REJECTED_STS_CODE

Line 674: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN

670: ,x_msg_data => x_msg_data
671: ,p_khr_status => G_AGR_APP_REJECTED_STS_CODE
672: ,p_chr_id => cv_get_creq_chr.creq_chr_id
673: );
674: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
675: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
676: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
677: RAISE OKL_API.G_EXCEPTION_ERROR;
678: END IF;

Line 675: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;

671: ,p_khr_status => G_AGR_APP_REJECTED_STS_CODE
672: ,p_chr_id => cv_get_creq_chr.creq_chr_id
673: );
674: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
675: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
676: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
677: RAISE OKL_API.G_EXCEPTION_ERROR;
678: END IF;
679: END IF;

Line 676: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN

672: ,p_chr_id => cv_get_creq_chr.creq_chr_id
673: );
674: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
675: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
676: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
677: RAISE OKL_API.G_EXCEPTION_ERROR;
678: END IF;
679: END IF;
680: END IF;

Line 677: RAISE OKL_API.G_EXCEPTION_ERROR;

673: );
674: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
675: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
676: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
677: RAISE OKL_API.G_EXCEPTION_ERROR;
678: END IF;
679: END IF;
680: END IF;
681: resultout := 'COMPLETE:';