DBA Data[Home] [Help]

APPS.OKL_CS_LEASE_RENEWAL_PVT dependencies on DUAL

Line 563: FROM DUAL;

559:
560: -- Get Sequence Number to generate Contract Number
561: SELECT okl_rbk_seq.nextval
562: INTO l_seq_no
563: FROM DUAL;
564:
565: -- Get Contract Number from Original Contract
566: OPEN orig_csr(p_chr_id);
567: FETCH orig_csr INTO l_orig_contract_number;

Line 728: --API to update the residual values for all the assets by a %

724: x_return_status := OKC_API.G_RET_STS_ERROR;
725: END update_hdr_info;
726:
727: -------------------------------------------------------------
728: --API to update the residual values for all the assets by a %
729: ------------------------------------------------------------
730: PROCEDURE update_residual_value(
731: x_return_status OUT NOCOPY VARCHAR2,
732: x_msg_count OUT NOCOPY NUMBER,

Line 730: PROCEDURE update_residual_value(

726:
727: -------------------------------------------------------------
728: --API to update the residual values for all the assets by a %
729: ------------------------------------------------------------
730: PROCEDURE update_residual_value(
731: x_return_status OUT NOCOPY VARCHAR2,
732: x_msg_count OUT NOCOPY NUMBER,
733: x_msg_data OUT NOCOPY VARCHAR2,
734: p_chr_id IN NUMBER,

Line 735: p_reduce_residual_ptg_by IN NUMBER

731: x_return_status OUT NOCOPY VARCHAR2,
732: x_msg_count OUT NOCOPY NUMBER,
733: x_msg_data OUT NOCOPY VARCHAR2,
734: p_chr_id IN NUMBER,
735: p_reduce_residual_ptg_by IN NUMBER
736: ) IS
737: l_api_name VARCHAR2(35) := 'update_residual_value';
738: l_api_version NUMBER := 1.0;
739:

Line 737: l_api_name VARCHAR2(35) := 'update_residual_value';

733: x_msg_data OUT NOCOPY VARCHAR2,
734: p_chr_id IN NUMBER,
735: p_reduce_residual_ptg_by IN NUMBER
736: ) IS
737: l_api_name VARCHAR2(35) := 'update_residual_value';
738: l_api_version NUMBER := 1.0;
739:
740: CURSOR rv_csr (p_top_line_id OKC_K_LINES_V.ID%TYPE) IS
741: SELECT residual_value

Line 741: SELECT residual_value

737: l_api_name VARCHAR2(35) := 'update_residual_value';
738: l_api_version NUMBER := 1.0;
739:
740: CURSOR rv_csr (p_top_line_id OKC_K_LINES_V.ID%TYPE) IS
741: SELECT residual_value
742: FROM okl_k_lines_full_v
743: WHERE id = p_top_line_id;
744:
745: CURSOR kle_id_csr(c_chr_id NUMBER) IS

Line 756: l_residual_ptg NUMBER;

752:
753: l_old_rv NUMBER;
754: l_new_rv NUMBER;
755: l_reduce_by NUMBER;
756: l_residual_ptg NUMBER;
757: l_klev_tbl klev_tbl_type;
758: l_clev_tbl clev_tbl_type;
759:
760: x_klev_tbl klev_tbl_type;

Line 770: --Should i calculate the new Residual Percentage?

766: BEGIN
767:
768: x_return_status := OKL_API.G_RET_STS_SUCCESS;
769:
770: --Should i calculate the new Residual Percentage?
771:
772: FOR kle_rec in kle_id_csr(p_chr_id)
773: LOOP
774:

Line 794: l_reduce_by := p_reduce_residual_ptg_by * l_old_rv/100;

790: FETCH rv_csr INTO l_old_rv;
791: CLOSE rv_csr;
792: IF (l_old_rv <> 0) THEN
793:
794: l_reduce_by := p_reduce_residual_ptg_by * l_old_rv/100;
795: l_new_rv := l_old_rv - l_reduce_by;
796:
797: END IF;
798:

Line 799: l_klev_tbl(i).residual_value := l_new_rv;

795: l_new_rv := l_old_rv - l_reduce_by;
796:
797: END IF;
798:
799: l_klev_tbl(i).residual_value := l_new_rv;
800:
801: END LOOP;
802:
803: okl_contract_pub.update_contract_line(

Line 818: END update_residual_value;

814:
815:
816: RETURN; -- handle error, if any, at calling block
817:
818: END update_residual_value;
819:
820:
821:
822:

Line 854: l_reduce_residual_ptg_by NUMBER;

850: l_csm_stream_types_tbl Okl_Create_Streams_Pub.csm_stream_types_tbl_type;
851: l_req_stream_types_tbl Okl_Create_Streams_Pub.csm_stream_types_tbl_type;
852: l_csm_line_details_tbl Okl_Create_Streams_Pub.csm_line_details_tbl_type;
853: l_rents_tbl Okl_Create_Streams_Pub.csm_periodic_expenses_tbl_type;
854: l_reduce_residual_ptg_by NUMBER;
855: l_current_term NUMBER;
856: l_new_term NUMBER;
857: l_current_lease_attribs lease_details_tbl_type;
858:

Line 940: l_reduce_residual_ptg_by := p_trqv_tbl(1).residual;

936: p_end_date => p_trqv_tbl(1).end_date,
937: p_term_duration => l_new_term );
938:
939: --This needs to be changed.
940: l_reduce_residual_ptg_by := p_trqv_tbl(1).residual;
941: --Update the Residual Values
942: update_residual_value(
943: x_return_status => x_return_status,
944: x_msg_count => x_msg_count,

Line 941: --Update the Residual Values

937: p_term_duration => l_new_term );
938:
939: --This needs to be changed.
940: l_reduce_residual_ptg_by := p_trqv_tbl(1).residual;
941: --Update the Residual Values
942: update_residual_value(
943: x_return_status => x_return_status,
944: x_msg_count => x_msg_count,
945: x_msg_data => x_msg_data,

Line 942: update_residual_value(

938:
939: --This needs to be changed.
940: l_reduce_residual_ptg_by := p_trqv_tbl(1).residual;
941: --Update the Residual Values
942: update_residual_value(
943: x_return_status => x_return_status,
944: x_msg_count => x_msg_count,
945: x_msg_data => x_msg_data,
946: p_chr_id => p_chr_id,

Line 947: p_reduce_residual_ptg_by => l_reduce_residual_ptg_by

943: x_return_status => x_return_status,
944: x_msg_count => x_msg_count,
945: x_msg_data => x_msg_data,
946: p_chr_id => p_chr_id,
947: p_reduce_residual_ptg_by => l_reduce_residual_ptg_by
948: );
949:
950: -- CAll Extraction API
951: OKL_LA_STREAM_PUB.EXTRACT_PARAMS_LEASE(