[Home] [Help]
PACKAGE BODY: APPS.OKL_CS_LEASE_RENEWAL_PUB
Source
1 package body okl_cs_lease_renewal_pub AS
2 /* $Header: OKLPKLRB.pls 115.4 2004/04/13 10:51:25 rnaik noship $ */
3
4
5 FUNCTION get_current_lease_values (p_khr_id IN NUMBER)
6 RETURN lease_details_tbl_type
7 AS
8 l_lease_detials_tbl lease_details_tbl_type;
9
10 BEGIN
11
12 l_lease_detials_tbl := okl_cs_lease_renewal_pvt.get_current_lease_values(p_khr_id);
13
14 RETURN l_lease_detials_tbl;
15
16 END get_current_lease_values;
17
18
19
20 PROCEDURE calculate(
21 p_api_version IN NUMBER,
22 p_init_msg_list IN VARCHAR2 := OKL_API.G_FALSE,
23 x_return_status OUT NOCOPY VARCHAR2,
24 x_msg_count OUT NOCOPY NUMBER,
25 x_msg_data OUT NOCOPY VARCHAR2,
26 p_trqv_tbl IN okl_trx_requests_pub.trqv_tbl_type,
27 x_trqv_tbl OUT NOCOPY okl_trx_requests_pub.trqv_tbl_type)
28 AS
29
30 l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
31 l_msg_count NUMBER;
32 l_msg_data VARCHAR2(2000);
33
34
35 BEGIN
36
37
38
39
40
41
42
43 ------------ Call to Private Process API--------------
44
45 okl_cs_lease_renewal_pvt.calculate (p_api_version => p_api_version,
46 p_init_msg_list => p_init_msg_list,
47 x_return_status => l_return_status,
48 x_msg_count => l_msg_count,
49 x_msg_data => l_msg_data,
50 p_trqv_tbl => p_trqv_tbl,
51 x_trqv_tbl => x_trqv_tbl);
52
53 IF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
54 RAISE OKL_API.G_EXCEPTION_ERROR;
55 ELSIF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
56 RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
57 END IF;
58
59 ------------ End Call to Private Process API--------------
60
61
62
63
64
65
66
67 x_return_status := l_return_status;
68
69 EXCEPTION
70
71 WHEN OKL_API.G_EXCEPTION_ERROR THEN
72 x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
73 FND_MSG_PUB.count_and_get(p_count => x_msg_count,
74 p_data => x_msg_data);
75
76 WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
77 x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
78 FND_MSG_PUB.count_and_get(p_count => x_msg_count,
79 p_data => x_msg_data);
80
81 WHEN OTHERS THEN
82 x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
83 FND_MSG_PUB.ADD_EXC_MSG('okl_cs_lease_renewal_pub','calculate');
84 FND_MSG_PUB.count_and_get(p_count => x_msg_count,
85 p_data => x_msg_data);
86
87 END calculate;
88
89 PROCEDURE create_working_copy(
90 p_api_version IN NUMBER,
91 p_init_msg_list IN VARCHAR2 := OKL_API.G_FALSE,
92 p_commit IN VARCHAR2 := OKL_API.G_FALSE,
93 x_return_status OUT NOCOPY VARCHAR2,
94 x_msg_count OUT NOCOPY NUMBER,
95 x_msg_data OUT NOCOPY VARCHAR2,
96 p_chr_id IN NUMBER,
97 x_chr_id OUT NOCOPY NUMBER)
98 AS
99
100 l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
101 l_msg_count NUMBER;
102 l_msg_data VARCHAR2(2000);
103
104 BEGIN
105
106
107
108
109
110
111
112 ------------ Call to Private Process API--------------
113
114 okl_cs_lease_renewal_pvt.create_working_copy (p_api_version => p_api_version,
115 p_init_msg_list => p_init_msg_list,
116 x_return_status => l_return_status,
117 x_msg_count => l_msg_count,
118 x_msg_data => l_msg_data,
119 p_chr_id => p_chr_id,
120 x_chr_id => x_chr_id);
121
122
123 IF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
124 RAISE OKL_API.G_EXCEPTION_ERROR;
125 ELSIF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
126 RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
127 END IF;
128
129 ------------ End Call to Private Process API--------------
130
131
132
133
134
135
136
137 x_return_status := l_return_status;
138
139 EXCEPTION
140
141 WHEN OKL_API.G_EXCEPTION_ERROR THEN
142 x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
143 FND_MSG_PUB.count_and_get(p_count => x_msg_count,
144 p_data => x_msg_data);
145
146 WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
147 x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
148 FND_MSG_PUB.count_and_get(p_count => x_msg_count,
149 p_data => x_msg_data);
150
151 WHEN OTHERS THEN
152 x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
153 FND_MSG_PUB.ADD_EXC_MSG('okl_cs_lease_renewal_pub','create_working_copy');
154 FND_MSG_PUB.count_and_get(p_count => x_msg_count,
155 p_data => x_msg_data);
156
157 END create_working_copy;
158
159 PROCEDURE update_lrnw_request(
160 p_api_version IN NUMBER
161 ,p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE
162 ,x_return_status OUT NOCOPY VARCHAR2
163 ,x_msg_count OUT NOCOPY NUMBER
164 ,x_msg_data OUT NOCOPY VARCHAR2
165 ,p_trqv_rec IN okl_trx_requests_pub.trqv_rec_type
166 ,x_trqv_rec OUT NOCOPY okl_trx_requests_pub.trqv_rec_type)
167 AS
168
169 l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
170 l_msg_count NUMBER;
171 l_msg_data VARCHAR2(2000);
172
173
174 BEGIN
175
176
177
178
179
180
181
182 ------------ Call to Private Process API--------------
183
184 okl_cs_lease_renewal_pvt.update_lrnw_request (p_api_version => p_api_version,
185 p_init_msg_list => p_init_msg_list,
186 x_return_status => l_return_status,
187 x_msg_count => l_msg_count,
188 x_msg_data => l_msg_data,
189 p_trqv_rec => p_trqv_rec,
190 x_trqv_rec => x_trqv_rec);
191
192 IF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
193 RAISE OKL_API.G_EXCEPTION_ERROR;
194 ELSIF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
195 RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
196 END IF;
197
198 ------------ End Call to Private Process API--------------
199
200
201
202
203
204
205
206 x_return_status := l_return_status;
207
208 EXCEPTION
209
210 WHEN OKL_API.G_EXCEPTION_ERROR THEN
211 x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
212 FND_MSG_PUB.count_and_get(p_count => x_msg_count,
213 p_data => x_msg_data);
214
215 WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
216 x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
217 FND_MSG_PUB.count_and_get(p_count => x_msg_count,
218 p_data => x_msg_data);
219
220 WHEN OTHERS THEN
221 x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
222 FND_MSG_PUB.ADD_EXC_MSG('okl_cs_lease_renewal_pub','update_lrnw_request');
223 FND_MSG_PUB.count_and_get(p_count => x_msg_count,
224 p_data => x_msg_data);
225
226 END update_lrnw_request;
227
228
229
230 END okl_cs_lease_renewal_pub;