[Home] [Help]
PACKAGE BODY: APPS.OKL_VARIABLE_INTEREST_PUB
Source
1 PACKAGE BODY OKL_VARIABLE_INTEREST_PUB AS
2 /* $Header: OKLPVARB.pls 120.5.12010000.2 2008/08/11 05:07:14 rpillay ship $ */
3 -- Start of wraper code generated automatically by Debug code generator
4 L_MODULE VARCHAR2(40) := 'LEASE.RECEIVABLES.RATE';
5 L_DEBUG_ENABLED CONSTANT VARCHAR2(10) := OKL_DEBUG_PUB.CHECK_LOG_ENABLED;
6 L_LEVEL_PROCEDURE NUMBER;
7 IS_DEBUG_PROCEDURE_ON BOOLEAN;
8 -- End of wraper code generated automatically by Debug code generator
9 /* 4682018
10 PROCEDURE initiate_request
11 (p_api_version IN NUMBER,
12 p_init_msg_list IN VARCHAR2,
13 p_contract_number IN VARCHAR2,
14 p_from_date IN DATE,
15 p_to_date IN DATE,
16 x_return_status OUT NOCOPY VARCHAR2,
17 x_msg_count OUT NOCOPY NUMBER,
18 x_msg_data OUT NOCOPY VARCHAR2,
19 x_request_id OUT NOCOPY NUMBER,
20 x_trans_status OUT NOCOPY VARCHAR2)
21 is
22
23 l_api_version NUMBER := 1;
24 l_init_msg_list VARCHAR2(1) ;
25 l_return_status VARCHAR2(1);
26 l_msg_count NUMBER ;
27 l_msg_data VARCHAR2(2000);
28 l_request_id NUMBER;
29 l_trans_status VARCHAR2(3);
30
31
32 BEGIN
33
34 ------------------------------------------------------------
35 -- Start processing
36 ------------------------------------------------------------
37
38 x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
39
40
41
42
43 OKL_VARIABLE_INTEREST_PVT.initiate_request
44 (p_api_version => l_api_version
45 ,p_init_msg_list => l_init_msg_list
46 ,p_contract_number => p_contract_number
47 ,p_from_date => p_from_date
48 ,p_to_date => p_to_date
49 ,x_return_status => l_return_status
50 ,x_msg_count => l_msg_count
51 ,x_msg_data => l_msg_data
52 ,x_request_id => l_request_id
53 ,x_trans_status => l_trans_status);
54
55
56
57 IF ( x_return_status = Fnd_Api.G_RET_STS_ERROR ) THEN
58 RAISE Fnd_Api.G_EXC_ERROR;
59 ELSIF (X_return_status = Fnd_Api.G_RET_STS_UNEXP_ERROR ) THEN
60 RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
61 END IF;
62
63
64
65 EXCEPTION
66
67 WHEN Fnd_Api.G_EXC_ERROR THEN
68 ROLLBACK TO VARIABLE_INTEREST;
69 x_return_status := Fnd_Api.G_RET_STS_ERROR;
70 x_msg_count := l_msg_count ;
71 x_msg_data := l_msg_data ;
72 Fnd_Msg_Pub.count_and_get(
73 p_count => x_msg_count
74 ,p_data => x_msg_data);
75
76 WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
77 ROLLBACK TO VARIABLE_INTEREST;
78 x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
79 x_msg_count := l_msg_count ;
80 x_msg_data := l_msg_data ;
81 Fnd_Msg_Pub.count_and_get(
82 p_count => x_msg_count
83 ,p_data => x_msg_data);
84
85 WHEN OTHERS THEN
86 ROLLBACK TO VARIABLE_INTEREST;
87 x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
88 x_msg_count := l_msg_count ;
89 x_msg_data := l_msg_data ;
90 Fnd_Msg_Pub.ADD_EXC_MSG('OKL_VARIABLE_INTEREST_PUB','VARIABLE_INTEREST');
91 Fnd_Msg_Pub.count_and_get(
92 p_count => x_msg_count
93 ,p_data => x_msg_data);
94
95 END ;
96 */
97 PROCEDURE var_int_rent_level(
98 p_api_version IN NUMBER,
99 p_init_msg_list IN VARCHAR2,
100 x_return_status OUT NOCOPY VARCHAR2,
101 x_msg_count OUT NOCOPY NUMBER,
102 x_msg_data OUT NOCOPY VARCHAR2,
103 p_chr_id IN NUMBER,
104 p_trx_id IN NUMBER,
105 p_trx_status IN VARCHAR2,
106 p_rent_tbl IN csm_periodic_expenses_tbl_type) is
107
108 l_api_version NUMBER := 1;
109 l_init_msg_list VARCHAR2(1) ;
110 l_return_status VARCHAR2(1);
111 l_msg_count NUMBER ;
112 l_msg_data VARCHAR2(2000);
113
114 p_from_date date := sysdate;
115 p_to_date date := sysdate;
116 l_csm_loan_level_tbl csm_loan_level_tbl_type ;
117 l_child_trx_id NUMBER;
118
119 BEGIN
120
121 ------------------------------------------------------------
122 -- Start processing
123 ------------------------------------------------------------
124
125 x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
126
127
128
129
130 -- Start of wraper code generated automatically by Debug code generator for OKL_VARIABLE_INTEREST_PVT.var_int_rent_level
131 IF(L_DEBUG_ENABLED='Y') THEN
132 L_LEVEL_PROCEDURE :=FND_LOG.LEVEL_PROCEDURE;
133 IS_DEBUG_PROCEDURE_ON := OKL_DEBUG_PUB.Check_Log_On(L_MODULE, L_LEVEL_PROCEDURE);
134 END IF;
135 IF(IS_DEBUG_PROCEDURE_ON) THEN
136 BEGIN
137 OKL_DEBUG_PUB.LOG_DEBUG(L_LEVEL_PROCEDURE,L_MODULE,'Begin Debug OKLPVARB.pls call OKL_VARIABLE_INTEREST_PVT.var_int_rent_level ');
138 END;
139 END IF;
140 OKL_VARIABLE_INTEREST_PVT.var_int_rent_level(
141 p_api_version => p_api_version
142 ,p_init_msg_list => p_init_msg_list
143 ,x_return_status => x_return_status
144 ,x_msg_count => x_msg_count
145 ,x_msg_data => x_msg_data
146 ,p_chr_id => p_chr_id
147 ,p_trx_id => p_trx_id
148 ,p_trx_status => p_trx_status
149 ,p_rent_tbl => p_rent_tbl
150 ,p_csm_loan_level_tbl => l_csm_loan_level_tbl
151 ,x_child_trx_id => l_child_trx_id);
152
153 IF(IS_DEBUG_PROCEDURE_ON) THEN
154 BEGIN
155 OKL_DEBUG_PUB.LOG_DEBUG(L_LEVEL_PROCEDURE,L_MODULE,'End Debug OKLPVARB.pls call OKL_VARIABLE_INTEREST_PVT.var_int_rent_level ');
156 END;
157 END IF;
158 -- End of wraper code generated automatically by Debug code generator for OKL_VARIABLE_INTEREST_PVT.var_int_rent_level
159
160
161 IF ( x_return_status = Fnd_Api.G_RET_STS_ERROR ) THEN
162 RAISE Fnd_Api.G_EXC_ERROR;
163 ELSIF (X_return_status = Fnd_Api.G_RET_STS_UNEXP_ERROR ) THEN
164 RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
165 END IF;
166
167
168
169 EXCEPTION
170
171 WHEN Fnd_Api.G_EXC_ERROR THEN
172 ROLLBACK TO VARIABLE_INTEREST;
173 x_return_status := Fnd_Api.G_RET_STS_ERROR;
174 x_msg_count := l_msg_count ;
175 x_msg_data := l_msg_data ;
176 Fnd_Msg_Pub.count_and_get(
177 p_count => x_msg_count
178 ,p_data => x_msg_data);
179
180 WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
181 ROLLBACK TO VARIABLE_INTEREST;
182 x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
183 x_msg_count := l_msg_count ;
184 x_msg_data := l_msg_data ;
185 Fnd_Msg_Pub.count_and_get(
186 p_count => x_msg_count
187 ,p_data => x_msg_data);
188
189 WHEN OTHERS THEN
190 ROLLBACK TO VARIABLE_INTEREST;
191 x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
192 x_msg_count := l_msg_count ;
193 x_msg_data := l_msg_data ;
194 Fnd_Msg_Pub.ADD_EXC_MSG('OKL_VARIABLE_INTEREST_PUB','VARIABLE_INTEREST');
195 Fnd_Msg_Pub.count_and_get(
196 p_count => x_msg_count
197 ,p_data => x_msg_data);
198
199 END ;
200
201
202
203
204
205 PROCEDURE VARIABLE_INTEREST(p_api_version IN NUMBER
206 ,p_init_msg_list IN VARCHAR2
207 ,x_return_status OUT NOCOPY VARCHAR2
208 ,x_msg_count OUT NOCOPY NUMBER
209 ,x_msg_data OUT NOCOPY VARCHAR2
210 ,p_contract_number IN VARCHAR2
211 ,p_to_date IN DATE)
212
213 IS
214 l_api_version NUMBER := 1;
215 l_init_msg_list VARCHAR2(1) ;
216 l_return_status VARCHAR2(1);
217 l_msg_count NUMBER ;
218 l_msg_data VARCHAR2(2000);
219
220 BEGIN
221 -- 4739869 commenting out the code to issue SAVEPOINT
222 -- SAVEPOINT VARIABLE_INTEREST;
223
224 -- Start of wraper code generated automatically by Debug code generator for OKL_VARIABLE_INTEREST_PVT.VARIABLE_INTEREST
225 IF(L_DEBUG_ENABLED='Y') THEN
226 L_LEVEL_PROCEDURE :=FND_LOG.LEVEL_PROCEDURE;
227 IS_DEBUG_PROCEDURE_ON := OKL_DEBUG_PUB.Check_Log_On(L_MODULE, L_LEVEL_PROCEDURE);
228 END IF;
229 IF(IS_DEBUG_PROCEDURE_ON) THEN
230 BEGIN
231 OKL_DEBUG_PUB.LOG_DEBUG(L_LEVEL_PROCEDURE,L_MODULE,'Begin Debug OKLPVARB.pls call OKL_VARIABLE_INTEREST_PVT.VARIABLE_INTEREST ');
232 END;
233 END IF;
234 OKL_VARIABLE_INTEREST_PVT.VARIABLE_INTEREST(
235 p_api_version => p_api_version
236 ,p_init_msg_list => p_init_msg_list
237 ,x_return_status => x_return_status
238 ,x_msg_count => x_msg_count
239 ,x_msg_data => x_msg_data
240 ,p_contract_number => p_contract_number
241 ,P_to_date => p_to_date);
242 IF(IS_DEBUG_PROCEDURE_ON) THEN
243 BEGIN
244 OKL_DEBUG_PUB.LOG_DEBUG(L_LEVEL_PROCEDURE,L_MODULE,'End Debug OKLPVARB.pls call OKL_VARIABLE_INTEREST_PVT.VARIABLE_INTEREST ');
245 END;
246 END IF;
247 -- End of wraper code generated automatically by Debug code generator for OKL_VARIABLE_INTEREST_PVT.VARIABLE_INTEREST
248
249 IF ( x_return_status = Fnd_Api.G_RET_STS_ERROR ) THEN
250 RAISE Fnd_Api.G_EXC_ERROR;
251 ELSIF (X_return_status = Fnd_Api.G_RET_STS_UNEXP_ERROR ) THEN
252 RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
253 END IF;
254
255
256
257 EXCEPTION
258
259 WHEN Fnd_Api.G_EXC_ERROR THEN
260 -- 4739869 commenting out the code to Rollback the transactions
261 -- ROLLBACK TO VARIABLE_INTEREST;
262 x_return_status := Fnd_Api.G_RET_STS_ERROR;
263 x_msg_count := l_msg_count ;
264 x_msg_data := l_msg_data ;
265 Fnd_Msg_Pub.count_and_get(
266 p_count => x_msg_count
267 ,p_data => x_msg_data);
268
269 WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
270 -- 4739869 commenting out the code to Rollback the transactions
271 -- ROLLBACK TO VARIABLE_INTEREST;
272 x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
273 x_msg_count := l_msg_count ;
274 x_msg_data := l_msg_data ;
275 Fnd_Msg_Pub.count_and_get(
276 p_count => x_msg_count
277 ,p_data => x_msg_data);
278
279 WHEN OTHERS THEN
280 -- 4739869 commenting out the code to Rollback the transactions
281 -- ROLLBACK TO VARIABLE_INTEREST;
282 x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
283 x_msg_count := l_msg_count ;
284 x_msg_data := l_msg_data ;
285 Fnd_Msg_Pub.ADD_EXC_MSG('OKL_VARIABLE_INTEREST_PUB','VARIABLE_INTEREST');
286 Fnd_Msg_Pub.count_and_get(
287 p_count => x_msg_count
288 ,p_data => x_msg_data);
289
290 END ;
291
292 PROCEDURE VARIABLE_INTEREST
293 (errbuf OUT NOCOPY VARCHAR2
294 ,retcode OUT NOCOPY NUMBER
295 ,p_contract_number IN VARCHAR2
296 ,p_to_date IN VARCHAR2) is
297
298 l_api_vesrions NUMBER := 1;
299 lx_msg_count NUMBER;
300 l_count NUMBER :=0;
301 l_count1 NUMBER :=0;
302 l_count2 NUMBER :=0;
303 lx_msg_data VARCHAR2(450);
304 i NUMBER;
305 l_msg_index_out NUMBER;
306 lx_return_status VARCHAR(1);
307 l_from_date DATE;
308 l_to_date DATE;
309
310 BEGIN
311
312 --Bug# 7277007
313 OKL_DEBUG_PUB.G_SESSION_ID := Sys_Context('USERENV', 'SESSIONID');
314 IF p_to_date IS NOT NULL THEN
315 l_to_date := FND_DATE.CANONICAL_TO_DATE(p_to_date);
316 END IF;
317
318 VARIABLE_INTEREST(p_api_version => l_api_vesrions,
319 p_init_msg_list => FND_API.G_FALSE,
320 x_return_status => lx_return_status,
321 x_msg_count => lx_msg_count,
322 x_msg_data => errbuf,
323 p_contract_number => p_contract_number,
324 p_to_date => l_to_date);
325
326 IF lx_msg_count >= 1 THEN
327 FOR i in 1..lx_msg_count LOOP
328 fnd_msg_pub.get (p_msg_index => i,
329 p_encoded => 'F',
330 p_data => lx_msg_data,
331 p_msg_index_out => l_msg_index_out);
332
333 FND_FILE.PUT_LINE (FND_FILE.LOG,to_char(i) || ': ' || lx_msg_data);
334 END LOOP;
335 END IF;
336 EXCEPTION
337 WHEN OTHERS THEN
338
339 FND_FILE.PUT_LINE (FND_FILE.LOG,'Error '||TO_CHAR(SQLCODE)||': '||SQLERRM);
340
341 END;
342
343
344 END;