1 PACKAGE OKL_CS_LEASE_RENEWAL_PVT AUTHID CURRENT_USER AS
2 /* $Header: OKLRKLRS.pls 115.2 2002/11/30 08:50:45 spillaip noship $ */
3
4 TYPE lease_details_rec_type is RECORD (
5 rent NUMBER(14,3)
6 ,start_date DATE
7 ,end_date DATE
8 ,Term_duration NUMBER
9 ,residual NUMBER
10 ,yield NUMBER);
11
12 TYPE lease_details_tbl_type IS TABLE OF lease_details_rec_type INDEX BY BINARY_INTEGER;
13
14 subtype klev_tbl_type IS OKL_CONTRACT_PUB.klev_tbl_type;
15 subtype clev_tbl_type IS OKL_OKC_MIGRATION_PVT.clev_tbl_type;
16
17
18 FUNCTION get_current_lease_values (p_khr_id IN NUMBER)
19 RETURN lease_details_tbl_type;
20
21 PROCEDURE calculate(
22 p_api_version IN NUMBER,
23 p_init_msg_list IN VARCHAR2 := OKL_API.G_FALSE,
24 x_return_status OUT NOCOPY VARCHAR2,
25 x_msg_count OUT NOCOPY NUMBER,
26 x_msg_data OUT NOCOPY VARCHAR2,
27 p_trqv_tbl IN okl_trx_requests_pub.trqv_tbl_type,
28 x_trqv_tbl OUT NOCOPY okl_trx_requests_pub.trqv_tbl_type);
29
30 PROCEDURE create_working_copy(
31 p_api_version IN NUMBER,
32 p_init_msg_list IN VARCHAR2 := OKL_API.G_FALSE,
33 p_commit IN VARCHAR2 := OKL_API.G_FALSE,
34 x_return_status OUT NOCOPY VARCHAR2,
35 x_msg_count OUT NOCOPY NUMBER,
36 x_msg_data OUT NOCOPY VARCHAR2,
37 p_chr_id IN NUMBER,
38 x_chr_id OUT NOCOPY NUMBER);
39
40 PROCEDURE update_hdr_info(
41 x_return_status OUT NOCOPY VARCHAR2,
42 x_msg_count OUT NOCOPY NUMBER,
43 x_msg_data OUT NOCOPY VARCHAR2,
44 p_working_copy_chr_id IN OKC_K_HEADERS_V.ID%TYPE,
45 p_start_date IN OKL_K_HEADERS_FULL_V.START_DATE%TYPE,
46 p_end_date IN OKL_K_HEADERS_FULL_V.END_DATE%TYPE,
47 p_term_duration IN OKL_K_HEADERS_FULL_V.TERM_DURATION%TYPE
48 );
49
50 PROCEDURE update_residual_value(
51 x_return_status OUT NOCOPY VARCHAR2,
52 x_msg_count OUT NOCOPY NUMBER,
53 x_msg_data OUT NOCOPY VARCHAR2,
54 p_chr_id IN NUMBER,
55 p_reduce_residual_ptg_by IN NUMBER
56 );
57
58 PROCEDURE update_lrnw_request(
59 p_api_version IN NUMBER
60 ,p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE
61 ,x_return_status OUT NOCOPY VARCHAR2
62 ,x_msg_count OUT NOCOPY NUMBER
63 ,x_msg_data OUT NOCOPY VARCHAR2
64 ,p_trqv_rec IN okl_trx_requests_pub.trqv_rec_type
65 ,x_trqv_rec OUT NOCOPY okl_trx_requests_pub.trqv_rec_type);
66
67
68 END OKL_CS_LEASE_RENEWAL_PVT;