3561: p_event_name VARCHAR2(240) :='oracle.apps.okl.sales.leaseapplication.saved';
3562: -- Bug#4741121 - viselvar - Modified - Start
3563:
3564: --asawanka Bug 4865418 changes start
3565: l_credit_request_rec OCM_CREDIT_REQUEST_UPDATE_PUB.credit_request_rec;
3566: --asawanka Bug 4865418 changes end
3567: --Cursor to obtain the details of lease quote line of Lease App
3568: CURSOR l_lsq_dtls_csr(p_lap_id NUMBER)
3569: IS
3920: THEN
3921: OKL_DEBUG_PUB.LOG_DEBUG(
3922: FND_LOG.LEVEL_PROCEDURE
3923: ,L_MODULE
3924: ,'begin debug call OCM_CREDIT_REQUEST_UPDATE_PUB.GET_CREDIT_REQUEST_REC');
3925: END IF;
3926: --get the existing credit request data
3927: OCM_CREDIT_REQUEST_UPDATE_PUB.GET_CREDIT_REQUEST_REC(
3928: p_credit_request_id => get_crd_app_data_rec.credit_request_id
3923: ,L_MODULE
3924: ,'begin debug call OCM_CREDIT_REQUEST_UPDATE_PUB.GET_CREDIT_REQUEST_REC');
3925: END IF;
3926: --get the existing credit request data
3927: OCM_CREDIT_REQUEST_UPDATE_PUB.GET_CREDIT_REQUEST_REC(
3928: p_credit_request_id => get_crd_app_data_rec.credit_request_id
3929: ,p_return_status => l_return_status
3930: ,p_error_msg => x_msg_data
3931: ,p_credit_request_rec => l_credit_request_rec);
3934: THEN
3935: OKL_DEBUG_PUB.LOG_DEBUG(
3936: FND_LOG.LEVEL_PROCEDURE
3937: ,L_MODULE
3938: ,'end debug call OCM_CREDIT_REQUEST_UPDATE_PUB.GET_CREDIT_REQUEST_REC');
3939: END IF;
3940:
3941: -- write to log
3942: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_STATEMENT_ON) THEN
3941: -- write to log
3942: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_STATEMENT_ON) THEN
3943: OKL_DEBUG_PUB.LOG_DEBUG(
3944: FND_LOG.LEVEL_STATEMENT
3945: ,L_MODULE || ' Result of OCM_CREDIT_REQUEST_UPDATE_PUB.GET_CREDIT_REQUEST_REC'
3946: ,' result status ' || l_return_status);
3947: END IF; -- end of statement level debug
3948:
3949: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
3963: THEN
3964: OKL_DEBUG_PUB.LOG_DEBUG(
3965: FND_LOG.LEVEL_PROCEDURE
3966: ,L_MODULE
3967: ,'begin debug call OCM_CREDIT_REQUEST_UPDATE_PUB.UPDATE_CREDIT_REQUEST');
3968: END IF;
3969: --update the credit application data
3970: OCM_CREDIT_REQUEST_UPDATE_PUB.UPDATE_CREDIT_REQUEST(
3971: p_api_version => l_api_version,
3966: ,L_MODULE
3967: ,'begin debug call OCM_CREDIT_REQUEST_UPDATE_PUB.UPDATE_CREDIT_REQUEST');
3968: END IF;
3969: --update the credit application data
3970: OCM_CREDIT_REQUEST_UPDATE_PUB.UPDATE_CREDIT_REQUEST(
3971: p_api_version => l_api_version,
3972: p_init_msg_list => OKL_API.G_FALSE,
3973: p_commit => NULL,
3974: p_validation_level => NULL,
3981: THEN
3982: OKL_DEBUG_PUB.LOG_DEBUG(
3983: FND_LOG.LEVEL_PROCEDURE
3984: ,L_MODULE
3985: ,'end debug call OCM_CREDIT_REQUEST_UPDATE_PUB.UPDATE_CREDIT_REQUEST');
3986: END IF;
3987:
3988: -- write to log
3989: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_STATEMENT_ON) THEN
3988: -- write to log
3989: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_STATEMENT_ON) THEN
3990: OKL_DEBUG_PUB.LOG_DEBUG(
3991: FND_LOG.LEVEL_STATEMENT
3992: ,L_MODULE || ' Result of OCM_CREDIT_REQUEST_UPDATE_PUB.UPDATE_CREDIT_REQUEST'
3993: ,' result status ' || l_return_status);
3994: END IF; -- end of statement level debug
3995:
3996: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
6441: -- Record/Table Type Declarations
6442: l_lapv_rec lapv_rec_type;
6443: l_lsqv_rec lsqv_rec_type;
6444: x_lsqv_rec lsqv_rec_type;
6445: l_crd_req_rec OCM_CREDIT_REQUEST_UPDATE_PUB.credit_request_rec;
6446: -- Bug#4741121 - viselvar - Modified - Start
6447: l_parameter_list wf_parameter_list_t;
6448: p_event_name VARCHAR2(240) :='oracle.apps.okl.sales.leaseapplication.submitted_for_credit_evaluation';
6449: -- Bug#4741121 - viselvar - Modified - End
6690: THEN
6691: OKL_DEBUG_PUB.LOG_DEBUG(
6692: FND_LOG.LEVEL_PROCEDURE
6693: ,L_MODULE
6694: ,'begin debug call OCM_CREDIT_REQUEST_UPDATE_PUB.GET_CREDIT_REQUEST_REC');
6695: END IF;
6696: --get the existing credit request data
6697: OCM_CREDIT_REQUEST_UPDATE_PUB.GET_CREDIT_REQUEST_REC(
6698: p_credit_request_id => acr_dtls_rec.credit_request_id
6693: ,L_MODULE
6694: ,'begin debug call OCM_CREDIT_REQUEST_UPDATE_PUB.GET_CREDIT_REQUEST_REC');
6695: END IF;
6696: --get the existing credit request data
6697: OCM_CREDIT_REQUEST_UPDATE_PUB.GET_CREDIT_REQUEST_REC(
6698: p_credit_request_id => acr_dtls_rec.credit_request_id
6699: ,p_return_status => l_return_status
6700: ,p_error_msg => x_msg_data
6701: ,p_credit_request_rec => l_crd_req_rec);
6704: THEN
6705: OKL_DEBUG_PUB.LOG_DEBUG(
6706: FND_LOG.LEVEL_PROCEDURE
6707: ,L_MODULE
6708: ,'end debug call OCM_CREDIT_REQUEST_UPDATE_PUB.GET_CREDIT_REQUEST_REC');
6709: END IF;
6710:
6711: -- write to log
6712: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_STATEMENT_ON) THEN
6711: -- write to log
6712: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_STATEMENT_ON) THEN
6713: OKL_DEBUG_PUB.LOG_DEBUG(
6714: FND_LOG.LEVEL_STATEMENT
6715: ,L_MODULE || ' Result of OCM_CREDIT_REQUEST_UPDATE_PUB.GET_CREDIT_REQUEST_REC'
6716: ,' result status ' || l_return_status);
6717: END IF; -- end of statement level debug
6718:
6719: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
6730: THEN
6731: OKL_DEBUG_PUB.LOG_DEBUG(
6732: FND_LOG.LEVEL_PROCEDURE
6733: ,L_MODULE
6734: ,'begin debug call OCM_CREDIT_REQUEST_UPDATE_PUB.UPDATE_CREDIT_REQUEST');
6735: END IF;
6736: --update the credit application data
6737: OCM_CREDIT_REQUEST_UPDATE_PUB.UPDATE_CREDIT_REQUEST(
6738: p_api_version => l_api_version,
6733: ,L_MODULE
6734: ,'begin debug call OCM_CREDIT_REQUEST_UPDATE_PUB.UPDATE_CREDIT_REQUEST');
6735: END IF;
6736: --update the credit application data
6737: OCM_CREDIT_REQUEST_UPDATE_PUB.UPDATE_CREDIT_REQUEST(
6738: p_api_version => l_api_version,
6739: p_init_msg_list => OKL_API.G_FALSE,
6740: p_commit => NULL,
6741: p_validation_level => NULL,
6748: THEN
6749: OKL_DEBUG_PUB.LOG_DEBUG(
6750: FND_LOG.LEVEL_PROCEDURE
6751: ,L_MODULE
6752: ,'end debug call OCM_CREDIT_REQUEST_UPDATE_PUB.UPDATE_CREDIT_REQUEST');
6753: END IF;
6754:
6755: -- write to log
6756: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_STATEMENT_ON) THEN
6755: -- write to log
6756: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_STATEMENT_ON) THEN
6757: OKL_DEBUG_PUB.LOG_DEBUG(
6758: FND_LOG.LEVEL_STATEMENT
6759: ,L_MODULE || ' Result of OCM_CREDIT_REQUEST_UPDATE_PUB.UPDATE_CREDIT_REQUEST'
6760: ,' result status ' || l_return_status);
6761: END IF; -- end of statement level debug
6762:
6763: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
6803: THEN
6804: OKL_DEBUG_PUB.LOG_DEBUG(
6805: FND_LOG.LEVEL_PROCEDURE
6806: ,L_MODULE
6807: ,'begin debug call OCM_CREDIT_REQUEST_UPDATE_PUB.UPDATE_CREDIT_REQUEST_STATUS');
6808: END IF;
6809:
6810: OCM_CREDIT_REQUEST_UPDATE_PUB.UPDATE_CREDIT_REQUEST_STATUS(
6811: p_api_version => l_api_version
6806: ,L_MODULE
6807: ,'begin debug call OCM_CREDIT_REQUEST_UPDATE_PUB.UPDATE_CREDIT_REQUEST_STATUS');
6808: END IF;
6809:
6810: OCM_CREDIT_REQUEST_UPDATE_PUB.UPDATE_CREDIT_REQUEST_STATUS(
6811: p_api_version => l_api_version
6812: ,p_init_msg_list => OKL_API.G_FALSE
6813: ,p_commit => OKL_API.G_FALSE
6814: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
6822: THEN
6823: OKL_DEBUG_PUB.LOG_DEBUG(
6824: FND_LOG.LEVEL_PROCEDURE
6825: ,L_MODULE
6826: ,'end debug call OCM_CREDIT_REQUEST_UPDATE_PUB.UPDATE_CREDIT_REQUEST_STATUS');
6827: END IF;
6828:
6829: -- write to log
6830: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_STATEMENT_ON) THEN
6829: -- write to log
6830: IF(L_DEBUG_ENABLED = 'Y' AND IS_DEBUG_STATEMENT_ON) THEN
6831: OKL_DEBUG_PUB.LOG_DEBUG(
6832: FND_LOG.LEVEL_STATEMENT
6833: ,L_MODULE || ' Result of OCM_CREDIT_REQUEST_UPDATE_PUB.UPDATE_CREDIT_REQUEST_STATUS'
6834: ,'l_return_status ' || l_return_status);
6835: END IF; -- end of statement level debug
6836:
6837: IF(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN