[Home] [Help]
PACKAGE BODY: APPS.OKL_CREATE_STREAMS_PUB
Source
1 PACKAGE BODY OKL_CREATE_STREAMS_PUB AS
2 /* $Header: OKLPCSMB.pls 115.13 2004/04/14 13:06:43 rnaik noship $ */
3 -- Start of wraper code generated automatically by Debug code generator
4 L_MODULE VARCHAR2(40) := 'LEASE.STREAMS';
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
10 ---------------------------------------------------------------------------
11 -- PROCEDURE Create_Streams_Lease_Book
12 -- Public Wrapper for Create_Streams_Lease_Book Process API
13 ---------------------------------------------------------------------------
14 PROCEDURE Create_Streams_Lease_Book(
15 p_api_version IN NUMBER
16 ,p_init_msg_list IN VARCHAR2 DEFAULT G_FALSE
17 ,p_skip_prc_engine IN VARCHAR2 DEFAULT G_FALSE
18 ,p_csm_lease_header IN csm_lease_rec_type
19 ,p_csm_one_off_fee_tbl IN csm_one_off_fee_tbl_type
20 ,p_csm_periodic_expenses_tbl IN csm_periodic_expenses_tbl_type
21 ,p_csm_yields_tbl IN csm_yields_tbl_type
22 ,p_csm_stream_types_tbl IN csm_stream_types_tbl_type
23 ,p_csm_line_details_tbl IN csm_line_details_tbl_type
24 ,p_rents_tbl IN csm_periodic_expenses_tbl_type
25 ,x_trans_id OUT NOCOPY NUMBER
26 ,x_trans_status OUT NOCOPY VARCHAR2
27 ,x_return_status OUT NOCOPY VARCHAR2
28 ,x_msg_count OUT NOCOPY NUMBER
29 ,x_msg_data OUT NOCOPY VARCHAR2
30 )
31 IS
32 l_api_name CONSTANT VARCHAR2(30) := 'Create_Streams_Lease_Book';
33 l_return_status VARCHAR2(1) := G_RET_STS_SUCCESS;
34 l_api_version CONSTANT NUMBER := 1;
35 l_data VARCHAR2(100);
36 l_count NUMBER ;
37
38 BEGIN
39 l_return_status := Okl_Api.START_ACTIVITY(p_api_name => l_api_name,
40 p_pkg_name => G_PKG_NAME,
41 p_init_msg_list => p_init_msg_list,
42 l_api_version => l_api_version,
43 p_api_version => p_api_version,
44 p_api_type => G_API_TYPE,
45 x_return_status => l_return_status);
46 IF (l_return_status = G_RET_STS_UNEXP_ERROR) THEN
47 RAISE G_EXCEPTION_UNEXPECTED_ERROR;
48 ELSIF (l_return_status = G_RET_STS_ERROR) THEN
49 RAISE G_EXCEPTION_ERROR;
50 END IF;
51
52
53
54
55
56 -- call process api to Create_Streams_Lease_Book
57 -- Start of wraper code generated automatically by Debug code generator for OKL_CREATE_STREAMS_PVT.Create_Streams_Lease_Book
58 IF(L_DEBUG_ENABLED='Y') THEN
59 L_LEVEL_PROCEDURE :=FND_LOG.LEVEL_PROCEDURE;
60 IS_DEBUG_PROCEDURE_ON := OKL_DEBUG_PUB.Check_Log_On(L_MODULE, L_LEVEL_PROCEDURE);
61 END IF;
62 IF(IS_DEBUG_PROCEDURE_ON) THEN
63 BEGIN
64 OKL_DEBUG_PUB.LOG_DEBUG(L_LEVEL_PROCEDURE,L_MODULE,'Begin Debug OKLPCSMB.pls call OKL_CREATE_STREAMS_PVT.Create_Streams_Lease_Book ');
65 END;
66 END IF;
67 OKL_CREATE_STREAMS_PVT.Create_Streams_Lease_Book(p_api_version => p_api_version,
68 p_init_msg_list => p_init_msg_list,
69 p_skip_prc_engine => p_skip_prc_engine,
70 p_csm_lease_header => p_csm_lease_header,
71 p_csm_one_off_fee_tbl => p_csm_one_off_fee_tbl,
72 p_csm_periodic_expenses_tbl => p_csm_periodic_expenses_tbl,
73 p_csm_yields_tbl => p_csm_yields_tbl,
74 p_csm_stream_types_tbl => p_csm_stream_types_tbl,
75 p_csm_line_details_tbl => p_csm_line_details_tbl,
76 p_rents_tbl => p_rents_tbl,
77 x_trans_id => x_trans_id,
78 x_trans_status => x_trans_status,
79 x_return_status => l_return_status,
80 x_msg_count => x_msg_count,
81 x_msg_data => x_msg_data);
82 IF(IS_DEBUG_PROCEDURE_ON) THEN
83 BEGIN
84 OKL_DEBUG_PUB.LOG_DEBUG(L_LEVEL_PROCEDURE,L_MODULE,'End Debug OKLPCSMB.pls call OKL_CREATE_STREAMS_PVT.Create_Streams_Lease_Book ');
85 END;
86 END IF;
87 -- End of wraper code generated automatically by Debug code generator for OKL_CREATE_STREAMS_PVT.Create_Streams_Lease_Book
88
89 IF l_return_status = G_RET_STS_ERROR THEN
90 RAISE G_EXCEPTION_ERROR;
91 ELSIF l_return_status = G_RET_STS_UNEXP_ERROR THEN
92 RAISE G_EXCEPTION_UNEXPECTED_ERROR;
93 END IF;
94
95
96
97 Okl_Api.END_ACTIVITY(x_msg_count => x_msg_count,
98 x_msg_data => x_msg_data);
99 x_return_status := l_return_status;
100 EXCEPTION
101 WHEN G_EXCEPTION_ERROR THEN
102 x_return_status := Okl_Api.HANDLE_EXCEPTIONS(p_api_name => l_api_name,
103 p_pkg_name => G_PKG_NAME,
104 p_exc_name => G_EXC_NAME_ERROR,
105 x_msg_count => x_msg_count,
106 x_msg_data => x_msg_data,
107 p_api_type => G_API_TYPE);
108 WHEN G_EXCEPTION_UNEXPECTED_ERROR THEN
109 x_return_status := Okl_Api.HANDLE_EXCEPTIONS(p_api_name => l_api_name,
110 p_pkg_name => G_PKG_NAME,
111 p_exc_name => G_EXC_NAME_UNEXP_ERROR,
112 x_msg_count => x_msg_count,
113 x_msg_data => x_msg_data,
114 p_api_type => G_API_TYPE);
115 WHEN OTHERS THEN
116 x_return_status := Okl_Api.HANDLE_EXCEPTIONS(p_api_name => l_api_name,
117 p_pkg_name => G_PKG_NAME,
118 p_exc_name => G_EXC_NAME_OTHERS,
119 x_msg_count => x_msg_count,
120 x_msg_data => x_msg_data,
121 p_api_type => G_API_TYPE);
122 END Create_Streams_Lease_Book;
123
124 ---------------------------------------------------------------------------
125 -- PROCEDURE Create_Streams_Loan_Book
126 -- Public Wrapper for Process API Create_Streams_Loan_Book
127 ---------------------------------------------------------------------------
128 PROCEDURE Create_Streams_Loan_Book(
129 p_api_version IN NUMBER
130 ,p_init_msg_list IN VARCHAR2 DEFAULT G_FALSE
131 ,p_skip_prc_engine IN VARCHAR2 DEFAULT G_FALSE
132 ,p_csm_loan_header IN csm_loan_rec_type
133 ,p_csm_loan_lines_tbl IN csm_loan_line_tbl_type
134 ,p_csm_loan_levels_tbl IN csm_loan_level_tbl_type
135 ,p_csm_one_off_fee_tbl IN csm_one_off_fee_tbl_type
136 ,p_csm_periodic_expenses_tbl IN csm_periodic_expenses_tbl_type
137 ,p_csm_yields_tbl IN csm_yields_tbl_type
138 ,p_csm_stream_types_tbl IN csm_stream_types_tbl_type
139 ,x_trans_id OUT NOCOPY NUMBER
140 ,x_trans_status OUT NOCOPY VARCHAR2
141 ,x_return_status OUT NOCOPY VARCHAR2
142 ,x_msg_count OUT NOCOPY NUMBER
143 ,x_msg_data OUT NOCOPY VARCHAR2
144 ) IS
145
146 l_api_name CONSTANT VARCHAR2(30) := 'Create_Streams_Loan_Book';
147 l_return_status VARCHAR2(1) := G_RET_STS_SUCCESS;
148 l_data VARCHAR2(100);
149 l_count NUMBER ;
150 l_api_version CONSTANT NUMBER := 1;
151 BEGIN
152 l_return_status := Okl_Api.START_ACTIVITY(p_api_name => l_api_name,
153 p_pkg_name => G_PKG_NAME,
154 p_init_msg_list => p_init_msg_list,
155 l_api_version => l_api_version,
156 p_api_version => p_api_version,
157 p_api_type => G_API_TYPE,
158 x_return_status => l_return_status);
159 IF (l_return_status = G_RET_STS_UNEXP_ERROR) THEN
160 RAISE G_EXCEPTION_UNEXPECTED_ERROR;
161 ELSIF (l_return_status = G_RET_STS_ERROR) THEN
162 RAISE G_EXCEPTION_ERROR;
163 END IF;
164
165
166
167
168
169 -- call process api to update formulae
170 -- Start of wraper code generated automatically by Debug code generator for Okl_Create_Streams_Pvt.Create_Streams_Loan_Book
171 IF(L_DEBUG_ENABLED='Y') THEN
172 L_LEVEL_PROCEDURE :=FND_LOG.LEVEL_PROCEDURE;
173 IS_DEBUG_PROCEDURE_ON := OKL_DEBUG_PUB.Check_Log_On(L_MODULE, L_LEVEL_PROCEDURE);
174 END IF;
175 IF(IS_DEBUG_PROCEDURE_ON) THEN
176 BEGIN
177 OKL_DEBUG_PUB.LOG_DEBUG(L_LEVEL_PROCEDURE,L_MODULE,'Begin Debug OKLPCSMB.pls call Okl_Create_Streams_Pvt.Create_Streams_Loan_Book ');
178 END;
179 END IF;
180 Okl_Create_Streams_Pvt.Create_Streams_Loan_Book( p_api_version => p_api_version,
181 p_init_msg_list => p_init_msg_list,
182 x_return_status => l_return_status,
183 x_msg_count => x_msg_count,
184 x_msg_data => x_msg_data,
185 p_skip_prc_engine => p_skip_prc_engine,
186 p_csm_loan_header => p_csm_loan_header,
187 p_csm_one_off_fee_tbl => p_csm_one_off_fee_tbl,
188 p_csm_periodic_expenses_tbl => p_csm_periodic_expenses_tbl,
189 p_csm_yields_tbl => p_csm_yields_tbl,
190 p_csm_stream_types_tbl => p_csm_stream_types_tbl,
191 p_csm_loan_lines_tbl => p_csm_loan_lines_tbl,
192 p_csm_loan_levels_tbl => p_csm_loan_levels_tbl,
193 x_trans_id => x_trans_id,
194 x_trans_status => x_trans_status);
195 IF(IS_DEBUG_PROCEDURE_ON) THEN
196 BEGIN
197 OKL_DEBUG_PUB.LOG_DEBUG(L_LEVEL_PROCEDURE,L_MODULE,'End Debug OKLPCSMB.pls call Okl_Create_Streams_Pvt.Create_Streams_Loan_Book ');
198 END;
199 END IF;
200 -- End of wraper code generated automatically by Debug code generator for Okl_Create_Streams_Pvt.Create_Streams_Loan_Book
201
202 IF l_return_status = G_RET_STS_ERROR THEN
203 RAISE G_EXCEPTION_ERROR;
204 ELSIF l_return_status = G_RET_STS_UNEXP_ERROR THEN
205 RAISE G_EXCEPTION_UNEXPECTED_ERROR;
206 END IF;
207
208
209 Okl_Api.END_ACTIVITY(x_msg_count => x_msg_count,
210 x_msg_data => x_msg_data);
211 x_return_status := l_return_status;
212 EXCEPTION
213 WHEN G_EXCEPTION_ERROR THEN
214 x_return_status := Okl_Api.HANDLE_EXCEPTIONS(p_api_name => l_api_name,
215 p_pkg_name => G_PKG_NAME,
216 p_exc_name => G_EXC_NAME_ERROR,
217 x_msg_count => x_msg_count,
218 x_msg_data => x_msg_data,
219 p_api_type => G_API_TYPE);
220 WHEN G_EXCEPTION_UNEXPECTED_ERROR THEN
221 x_return_status := Okl_Api.HANDLE_EXCEPTIONS(p_api_name => l_api_name,
222 p_pkg_name => G_PKG_NAME,
223 p_exc_name => G_EXC_NAME_UNEXP_ERROR,
224 x_msg_count => x_msg_count,
225 x_msg_data => x_msg_data,
226 p_api_type => G_API_TYPE);
227 WHEN OTHERS THEN
228 x_return_status := Okl_Api.HANDLE_EXCEPTIONS(p_api_name => l_api_name,
229 p_pkg_name => G_PKG_NAME,
230 p_exc_name => G_EXC_NAME_OTHERS,
231 x_msg_count => x_msg_count,
232 x_msg_data => x_msg_data,
233 p_api_type => G_API_TYPE);
234 END Create_Streams_Loan_Book;
235
236 ---------------------------------------------------------------------------
237 -- PROCEDURE Create_Streams_Lease_Quote
238 -- Public Wrapper for Create_Streams_Lease_Quote Process API
239 ---------------------------------------------------------------------------
240 PROCEDURE Create_Streams_Lease_Quote(
241 p_api_version IN NUMBER
242 ,p_init_msg_list IN VARCHAR2 DEFAULT G_FALSE
243 ,p_skip_prc_engine IN VARCHAR2 DEFAULT G_FALSE
244 ,p_csm_lease_header IN csm_lease_rec_type
245 ,p_csm_one_off_fee_tbl IN csm_one_off_fee_tbl_type
246 ,p_csm_periodic_expenses_tbl IN csm_periodic_expenses_tbl_type
247 ,p_csm_yields_tbl IN csm_yields_tbl_type
248 ,p_csm_stream_types_tbl IN csm_stream_types_tbl_type
249 ,p_csm_line_details_tbl IN csm_line_details_tbl_type
250 ,p_rents_tbl IN csm_periodic_expenses_tbl_type
251 ,x_trans_id OUT NOCOPY NUMBER
252 ,x_trans_status OUT NOCOPY VARCHAR2
253 ,x_return_status OUT NOCOPY VARCHAR2
254 ,x_msg_count OUT NOCOPY NUMBER
255 ,x_msg_data OUT NOCOPY VARCHAR2
256 )
257 IS
258 l_api_name CONSTANT VARCHAR2(30) := 'Create_Streams_Lease_Quote';
259 l_return_status VARCHAR2(1) := G_RET_STS_SUCCESS;
260 l_api_version CONSTANT NUMBER := 1;
261 l_data VARCHAR2(100);
262 l_count NUMBER ;
263
264 BEGIN
265 l_return_status := Okl_Api.START_ACTIVITY(p_api_name => l_api_name,
266 p_pkg_name => G_PKG_NAME,
267 p_init_msg_list => p_init_msg_list,
268 l_api_version => l_api_version,
269 p_api_version => p_api_version,
270 p_api_type => G_API_TYPE,
271 x_return_status => l_return_status);
272 IF (l_return_status = G_RET_STS_UNEXP_ERROR) THEN
273 RAISE G_EXCEPTION_UNEXPECTED_ERROR;
274 ELSIF (l_return_status = G_RET_STS_ERROR) THEN
275 RAISE G_EXCEPTION_ERROR;
276 END IF;
277
278
279
280 -- call process api to Create_Streams_Lease_Quote
281 -- Start of wraper code generated automatically by Debug code generator for OKL_CREATE_STREAMS_PVT.Create_Streams_Lease_Quote
282 IF(L_DEBUG_ENABLED='Y') THEN
283 L_LEVEL_PROCEDURE :=FND_LOG.LEVEL_PROCEDURE;
284 IS_DEBUG_PROCEDURE_ON := OKL_DEBUG_PUB.Check_Log_On(L_MODULE, L_LEVEL_PROCEDURE);
285 END IF;
286 IF(IS_DEBUG_PROCEDURE_ON) THEN
287 BEGIN
288 OKL_DEBUG_PUB.LOG_DEBUG(L_LEVEL_PROCEDURE,L_MODULE,'Begin Debug OKLPCSMB.pls call OKL_CREATE_STREAMS_PVT.Create_Streams_Lease_Quote ');
289 END;
290 END IF;
291 OKL_CREATE_STREAMS_PVT.Create_Streams_Lease_Quote(p_api_version => p_api_version,
292 p_init_msg_list => p_init_msg_list,
293 p_skip_prc_engine => p_skip_prc_engine,
294 p_csm_lease_header => p_csm_lease_header,
295 p_csm_one_off_fee_tbl => p_csm_one_off_fee_tbl,
296 p_csm_periodic_expenses_tbl => p_csm_periodic_expenses_tbl,
297 p_csm_yields_tbl => p_csm_yields_tbl,
298 p_csm_stream_types_tbl => p_csm_stream_types_tbl,
299 p_csm_line_details_tbl => p_csm_line_details_tbl,
300 p_rents_tbl => p_rents_tbl,
301 x_trans_id => x_trans_id,
302 x_trans_status => x_trans_status,
303 x_return_status => l_return_status,
304 x_msg_count => x_msg_count,
305 x_msg_data => x_msg_data);
306 IF(IS_DEBUG_PROCEDURE_ON) THEN
307 BEGIN
308 OKL_DEBUG_PUB.LOG_DEBUG(L_LEVEL_PROCEDURE,L_MODULE,'End Debug OKLPCSMB.pls call OKL_CREATE_STREAMS_PVT.Create_Streams_Lease_Quote ');
309 END;
310 END IF;
311 -- End of wraper code generated automatically by Debug code generator for OKL_CREATE_STREAMS_PVT.Create_Streams_Lease_Quote
312
313 IF l_return_status = G_RET_STS_ERROR THEN
314 RAISE G_EXCEPTION_ERROR;
315 ELSIF l_return_status = G_RET_STS_UNEXP_ERROR THEN
316 RAISE G_EXCEPTION_UNEXPECTED_ERROR;
317 END IF;
318
319
320
321 Okl_Api.END_ACTIVITY(x_msg_count => x_msg_count,
322 x_msg_data => x_msg_data);
323 x_return_status := l_return_status;
324 EXCEPTION
325 WHEN G_EXCEPTION_ERROR THEN
326 x_return_status := Okl_Api.HANDLE_EXCEPTIONS(p_api_name => l_api_name,
327 p_pkg_name => G_PKG_NAME,
328 p_exc_name => G_EXC_NAME_ERROR,
329 x_msg_count => x_msg_count,
330 x_msg_data => x_msg_data,
331 p_api_type => G_API_TYPE);
332 WHEN G_EXCEPTION_UNEXPECTED_ERROR THEN
333 x_return_status := Okl_Api.HANDLE_EXCEPTIONS(p_api_name => l_api_name,
334 p_pkg_name => G_PKG_NAME,
335 p_exc_name => G_EXC_NAME_UNEXP_ERROR,
336 x_msg_count => x_msg_count,
337 x_msg_data => x_msg_data,
338 p_api_type => G_API_TYPE);
339 WHEN OTHERS THEN
340 x_return_status := Okl_Api.HANDLE_EXCEPTIONS(p_api_name => l_api_name,
341 p_pkg_name => G_PKG_NAME,
342 p_exc_name => G_EXC_NAME_OTHERS,
343 x_msg_count => x_msg_count,
344 x_msg_data => x_msg_data,
345 p_api_type => G_API_TYPE);
346 END Create_Streams_Lease_Quote;
347
348 PROCEDURE invoke_pricing_engine(
349 p_api_version IN NUMBER
350 ,p_init_msg_list IN VARCHAR2 DEFAULT G_FALSE
351 ,p_sifv_rec IN sifv_rec_type
352 ,x_sifv_rec OUT NOCOPY sifv_rec_type
353 ,x_return_status OUT NOCOPY VARCHAR2
354 ,x_msg_count OUT NOCOPY NUMBER
355 ,x_msg_data OUT NOCOPY VARCHAR2
356 )
357 IS
358 l_api_name CONSTANT VARCHAR2(30) := 'invoke_pricing_engine';
359 l_return_status VARCHAR2(1) := G_RET_STS_SUCCESS;
360 l_api_version CONSTANT NUMBER := 1;
361 l_data VARCHAR2(100);
362 l_count NUMBER ;
363
364 BEGIN
365 l_return_status := Okl_Api.START_ACTIVITY(p_api_name => l_api_name,
366 p_pkg_name => G_PKG_NAME,
367 p_init_msg_list => p_init_msg_list,
368 l_api_version => l_api_version,
369 p_api_version => p_api_version,
370 p_api_type => G_API_TYPE,
371 x_return_status => l_return_status);
372 IF (l_return_status = G_RET_STS_UNEXP_ERROR) THEN
373 RAISE G_EXCEPTION_UNEXPECTED_ERROR;
374 ELSIF (l_return_status = G_RET_STS_ERROR) THEN
375 RAISE G_EXCEPTION_ERROR;
376 END IF;
377
378
379
380 -- call process api to invoke_pricing_engine
381 -- Start of wraper code generated automatically by Debug code generator for OKL_CREATE_STREAMS_PVT.invoke_pricing_engine
382 IF(L_DEBUG_ENABLED='Y') THEN
383 L_LEVEL_PROCEDURE :=FND_LOG.LEVEL_PROCEDURE;
384 IS_DEBUG_PROCEDURE_ON := OKL_DEBUG_PUB.Check_Log_On(L_MODULE, L_LEVEL_PROCEDURE);
385 END IF;
386 IF(IS_DEBUG_PROCEDURE_ON) THEN
387 BEGIN
388 OKL_DEBUG_PUB.LOG_DEBUG(L_LEVEL_PROCEDURE,L_MODULE,'Begin Debug OKLPCSMB.pls call OKL_CREATE_STREAMS_PVT.invoke_pricing_engine ');
389 END;
390 END IF;
391 OKL_CREATE_STREAMS_PVT.invoke_pricing_engine(p_api_version => p_api_version,
392 p_init_msg_list => p_init_msg_list,
393 p_sifv_rec => p_sifv_rec,
394 x_sifv_rec => x_sifv_rec,
395 x_msg_data => l_data,
396 x_msg_count => l_count,
397 x_return_status => l_return_status);
398 IF(IS_DEBUG_PROCEDURE_ON) THEN
399 BEGIN
400 OKL_DEBUG_PUB.LOG_DEBUG(L_LEVEL_PROCEDURE,L_MODULE,'End Debug OKLPCSMB.pls call OKL_CREATE_STREAMS_PVT.invoke_pricing_engine ');
401 END;
402 END IF;
403 -- End of wraper code generated automatically by Debug code generator for OKL_CREATE_STREAMS_PVT.invoke_pricing_engine
404
405
406 IF l_return_status = G_RET_STS_ERROR THEN
407 RAISE G_EXCEPTION_ERROR;
408 ELSIF l_return_status = G_RET_STS_UNEXP_ERROR THEN
409 RAISE G_EXCEPTION_UNEXPECTED_ERROR;
410 END IF;
411
412
413
414 Okl_Api.END_ACTIVITY(x_msg_count => x_msg_count,
415 x_msg_data => x_msg_data);
416 x_return_status := l_return_status;
417 EXCEPTION
418 WHEN G_EXCEPTION_ERROR THEN
419 x_return_status := Okl_Api.HANDLE_EXCEPTIONS(p_api_name => l_api_name,
420 p_pkg_name => G_PKG_NAME,
421 p_exc_name => G_EXC_NAME_ERROR,
422 x_msg_count => x_msg_count,
423 x_msg_data => x_msg_data,
424 p_api_type => G_API_TYPE);
425 WHEN G_EXCEPTION_UNEXPECTED_ERROR THEN
426 x_return_status := Okl_Api.HANDLE_EXCEPTIONS(p_api_name => l_api_name,
427 p_pkg_name => G_PKG_NAME,
428 p_exc_name => G_EXC_NAME_UNEXP_ERROR,
429 x_msg_count => x_msg_count,
430 x_msg_data => x_msg_data,
431 p_api_type => G_API_TYPE);
432 WHEN OTHERS THEN
433 x_return_status := Okl_Api.HANDLE_EXCEPTIONS(p_api_name => l_api_name,
434 p_pkg_name => G_PKG_NAME,
435 p_exc_name => G_EXC_NAME_OTHERS,
436 x_msg_count => x_msg_count,
437 x_msg_data => x_msg_data,
438 p_api_type => G_API_TYPE);
439 END invoke_pricing_engine;
440
441 ---------------------------------------------------------------------------
442 -- PROCEDURE Create_Streams_Lease_Restruct
443 -- Public Wrapper for Create_Streams_Lease_Restruct Process API
444 ---------------------------------------------------------------------------
445 PROCEDURE Create_Streams_Lease_Restr(
446 p_api_version IN NUMBER
447 ,p_init_msg_list IN VARCHAR2 DEFAULT G_FALSE
448 ,p_skip_prc_engine IN VARCHAR2 DEFAULT G_FALSE
449 ,p_csm_lease_header IN csm_lease_rec_type
450 ,p_csm_one_off_fee_tbl IN csm_one_off_fee_tbl_type
451 ,p_csm_periodic_expenses_tbl IN csm_periodic_expenses_tbl_type
452 ,p_csm_yields_tbl IN csm_yields_tbl_type
453 ,p_csm_stream_types_tbl IN csm_stream_types_tbl_type
454 ,p_csm_line_details_tbl IN csm_line_details_tbl_type
455 ,p_rents_tbl IN csm_periodic_expenses_tbl_type
456 ,x_trans_id OUT NOCOPY NUMBER
457 ,x_trans_status OUT NOCOPY VARCHAR2
458 ,x_return_status OUT NOCOPY VARCHAR2
459 ,x_msg_count OUT NOCOPY NUMBER
460 ,x_msg_data OUT NOCOPY VARCHAR2
461 )
462 IS
463 l_api_name CONSTANT VARCHAR2(30) := 'Create_Streams_Lease_Restr';
464 l_return_status VARCHAR2(1) := G_RET_STS_SUCCESS;
465 l_api_version CONSTANT NUMBER := 1;
466 l_data VARCHAR2(100);
467 l_count NUMBER ;
468
469 BEGIN
470 l_return_status := Okl_Api.START_ACTIVITY(p_api_name => l_api_name,
471 p_pkg_name => G_PKG_NAME,
472 p_init_msg_list => p_init_msg_list,
473 l_api_version => l_api_version,
474 p_api_version => p_api_version,
475 p_api_type => G_API_TYPE,
476 x_return_status => l_return_status);
477 IF (l_return_status = G_RET_STS_UNEXP_ERROR) THEN
478 RAISE G_EXCEPTION_UNEXPECTED_ERROR;
479 ELSIF (l_return_status = G_RET_STS_ERROR) THEN
480 RAISE G_EXCEPTION_ERROR;
481 END IF;
482
483
484
485
486
487 -- call process api to Create_Streams_Lease_Restruct
488 -- Start of wraper code generated automatically by Debug code generator for OKL_CREATE_STREAMS_PVT.Create_Streams_Lease_Restr
489 IF(L_DEBUG_ENABLED='Y') THEN
490 L_LEVEL_PROCEDURE :=FND_LOG.LEVEL_PROCEDURE;
491 IS_DEBUG_PROCEDURE_ON := OKL_DEBUG_PUB.Check_Log_On(L_MODULE, L_LEVEL_PROCEDURE);
492 END IF;
493 IF(IS_DEBUG_PROCEDURE_ON) THEN
494 BEGIN
495 OKL_DEBUG_PUB.LOG_DEBUG(L_LEVEL_PROCEDURE,L_MODULE,'Begin Debug OKLPCSMB.pls call OKL_CREATE_STREAMS_PVT.Create_Streams_Lease_Restr ');
496 END;
497 END IF;
498 OKL_CREATE_STREAMS_PVT.Create_Streams_Lease_Restr(p_api_version => p_api_version,
499 p_init_msg_list => p_init_msg_list,
500 p_skip_prc_engine => p_skip_prc_engine,
501 p_csm_lease_header => p_csm_lease_header,
502 p_csm_one_off_fee_tbl => p_csm_one_off_fee_tbl,
503 p_csm_periodic_expenses_tbl => p_csm_periodic_expenses_tbl,
504 p_csm_yields_tbl => p_csm_yields_tbl,
505 p_csm_stream_types_tbl => p_csm_stream_types_tbl,
506 p_csm_line_details_tbl => p_csm_line_details_tbl,
507 p_rents_tbl => p_rents_tbl,
508 x_trans_id => x_trans_id,
509 x_trans_status => x_trans_status,
510 x_return_status => l_return_status,
511 x_msg_count => x_msg_count,
512 x_msg_data => x_msg_data);
513 IF(IS_DEBUG_PROCEDURE_ON) THEN
514 BEGIN
515 OKL_DEBUG_PUB.LOG_DEBUG(L_LEVEL_PROCEDURE,L_MODULE,'End Debug OKLPCSMB.pls call OKL_CREATE_STREAMS_PVT.Create_Streams_Lease_Restr ');
516 END;
517 END IF;
518 -- End of wraper code generated automatically by Debug code generator for OKL_CREATE_STREAMS_PVT.Create_Streams_Lease_Restr
519
520 IF l_return_status = G_RET_STS_ERROR THEN
521 RAISE G_EXCEPTION_ERROR;
522 ELSIF l_return_status = G_RET_STS_UNEXP_ERROR THEN
523 RAISE G_EXCEPTION_UNEXPECTED_ERROR;
524 END IF;
525
526
527
528 Okl_Api.END_ACTIVITY(x_msg_count => x_msg_count,
529 x_msg_data => x_msg_data);
530 x_return_status := l_return_status;
531 EXCEPTION
532 WHEN G_EXCEPTION_ERROR THEN
533 x_return_status := Okl_Api.HANDLE_EXCEPTIONS(p_api_name => l_api_name,
534 p_pkg_name => G_PKG_NAME,
535 p_exc_name => G_EXC_NAME_ERROR,
536 x_msg_count => x_msg_count,
537 x_msg_data => x_msg_data,
538 p_api_type => G_API_TYPE);
539 WHEN G_EXCEPTION_UNEXPECTED_ERROR THEN
540 x_return_status := Okl_Api.HANDLE_EXCEPTIONS(p_api_name => l_api_name,
541 p_pkg_name => G_PKG_NAME,
542 p_exc_name => G_EXC_NAME_UNEXP_ERROR,
543 x_msg_count => x_msg_count,
544 x_msg_data => x_msg_data,
545 p_api_type => G_API_TYPE);
546 WHEN OTHERS THEN
547 x_return_status := Okl_Api.HANDLE_EXCEPTIONS(p_api_name => l_api_name,
548 p_pkg_name => G_PKG_NAME,
549 p_exc_name => G_EXC_NAME_OTHERS,
550 x_msg_count => x_msg_count,
551 x_msg_data => x_msg_data,
552 p_api_type => G_API_TYPE);
553 END Create_Streams_Lease_Restr;
554
555 ---------------------------------------------------------------------------
556 -- PROCEDURE Create_Streams_Loan_Restruct
557 -- Public Wrapper for Process API Create_Streams_Loan_Restruct
558 ---------------------------------------------------------------------------
559 PROCEDURE Create_Streams_Loan_Restr(
560 p_api_version IN NUMBER
561 ,p_init_msg_list IN VARCHAR2 DEFAULT G_FALSE
562 ,p_skip_prc_engine IN VARCHAR2 DEFAULT G_FALSE
563 ,p_csm_loan_header IN csm_loan_rec_type
564 ,p_csm_loan_lines_tbl IN csm_loan_line_tbl_type
565 ,p_csm_loan_levels_tbl IN csm_loan_level_tbl_type
566 ,p_csm_one_off_fee_tbl IN csm_one_off_fee_tbl_type
567 ,p_csm_periodic_expenses_tbl IN csm_periodic_expenses_tbl_type
568 ,p_csm_yields_tbl IN csm_yields_tbl_type
569 ,p_csm_stream_types_tbl IN csm_stream_types_tbl_type
570 ,x_trans_id OUT NOCOPY NUMBER
571 ,x_trans_status OUT NOCOPY VARCHAR2
572 ,x_return_status OUT NOCOPY VARCHAR2
573 ,x_msg_count OUT NOCOPY NUMBER
574 ,x_msg_data OUT NOCOPY VARCHAR2
575 ) IS
576
577 l_api_name CONSTANT VARCHAR2(30) := 'Create_Streams_Loan_Restr';
578 l_return_status VARCHAR2(1) := G_RET_STS_SUCCESS;
579 l_data VARCHAR2(100);
580 l_count NUMBER ;
581 l_api_version CONSTANT NUMBER := 1;
582 BEGIN
583 l_return_status := Okl_Api.START_ACTIVITY(p_api_name => l_api_name,
584 p_pkg_name => G_PKG_NAME,
585 p_init_msg_list => p_init_msg_list,
586 l_api_version => l_api_version,
587 p_api_version => p_api_version,
588 p_api_type => G_API_TYPE,
589 x_return_status => l_return_status);
590 IF (l_return_status = G_RET_STS_UNEXP_ERROR) THEN
591 RAISE G_EXCEPTION_UNEXPECTED_ERROR;
592 ELSIF (l_return_status = G_RET_STS_ERROR) THEN
593 RAISE G_EXCEPTION_ERROR;
594 END IF;
595
596
597
598
599
600 -- call process api to update formulae
601 -- Start of wraper code generated automatically by Debug code generator for Okl_Create_Streams_Pvt.Create_Streams_Loan_Restr
602 IF(L_DEBUG_ENABLED='Y') THEN
603 L_LEVEL_PROCEDURE :=FND_LOG.LEVEL_PROCEDURE;
604 IS_DEBUG_PROCEDURE_ON := OKL_DEBUG_PUB.Check_Log_On(L_MODULE, L_LEVEL_PROCEDURE);
605 END IF;
606 IF(IS_DEBUG_PROCEDURE_ON) THEN
607 BEGIN
608 OKL_DEBUG_PUB.LOG_DEBUG(L_LEVEL_PROCEDURE,L_MODULE,'Begin Debug OKLPCSMB.pls call Okl_Create_Streams_Pvt.Create_Streams_Loan_Restr ');
609 END;
610 END IF;
611 Okl_Create_Streams_Pvt.Create_Streams_Loan_Restr( p_api_version => p_api_version,
612 p_init_msg_list => p_init_msg_list,
613 x_return_status => l_return_status,
614 x_msg_count => x_msg_count,
615 x_msg_data => x_msg_data,
616 p_skip_prc_engine => p_skip_prc_engine,
617 p_csm_loan_header => p_csm_loan_header,
618 p_csm_one_off_fee_tbl => p_csm_one_off_fee_tbl,
619 p_csm_periodic_expenses_tbl => p_csm_periodic_expenses_tbl,
620 p_csm_yields_tbl => p_csm_yields_tbl,
621 p_csm_stream_types_tbl => p_csm_stream_types_tbl,
622 p_csm_loan_lines_tbl => p_csm_loan_lines_tbl,
623 p_csm_loan_levels_tbl => p_csm_loan_levels_tbl,
624 x_trans_id => x_trans_id,
625 x_trans_status => x_trans_status);
626 IF(IS_DEBUG_PROCEDURE_ON) THEN
627 BEGIN
628 OKL_DEBUG_PUB.LOG_DEBUG(L_LEVEL_PROCEDURE,L_MODULE,'End Debug OKLPCSMB.pls call Okl_Create_Streams_Pvt.Create_Streams_Loan_Restr ');
629 END;
630 END IF;
631 -- End of wraper code generated automatically by Debug code generator for Okl_Create_Streams_Pvt.Create_Streams_Loan_Restr
632
633 IF l_return_status = G_RET_STS_ERROR THEN
634 RAISE G_EXCEPTION_ERROR;
635 ELSIF l_return_status = G_RET_STS_UNEXP_ERROR THEN
636 RAISE G_EXCEPTION_UNEXPECTED_ERROR;
637 END IF;
638
639
640 Okl_Api.END_ACTIVITY(x_msg_count => x_msg_count,
641 x_msg_data => x_msg_data);
642 x_return_status := l_return_status;
643 EXCEPTION
644 WHEN G_EXCEPTION_ERROR THEN
645 x_return_status := Okl_Api.HANDLE_EXCEPTIONS(p_api_name => l_api_name,
646 p_pkg_name => G_PKG_NAME,
647 p_exc_name => G_EXC_NAME_ERROR,
648 x_msg_count => x_msg_count,
649 x_msg_data => x_msg_data,
650 p_api_type => G_API_TYPE);
651 WHEN G_EXCEPTION_UNEXPECTED_ERROR THEN
652 x_return_status := Okl_Api.HANDLE_EXCEPTIONS(p_api_name => l_api_name,
653 p_pkg_name => G_PKG_NAME,
654 p_exc_name => G_EXC_NAME_UNEXP_ERROR,
655 x_msg_count => x_msg_count,
656 x_msg_data => x_msg_data,
657 p_api_type => G_API_TYPE);
658 WHEN OTHERS THEN
659 x_return_status := Okl_Api.HANDLE_EXCEPTIONS(p_api_name => l_api_name,
660 p_pkg_name => G_PKG_NAME,
661 p_exc_name => G_EXC_NAME_OTHERS,
662 x_msg_count => x_msg_count,
663 x_msg_data => x_msg_data,
664 p_api_type => G_API_TYPE);
665 END Create_Streams_Loan_Restr;
666
667
668 END OKL_CREATE_STREAMS_PUB;