[Home] [Help]
4: -------------------------------------------------------------------------------------------------
5: -- GLOBAL MESSAGE CONSTANTS
6: -------------------------------------------------------------------------------------------------
7: G_NO_PARENT_RECORD CONSTANT VARCHAR2(200) := 'OKL_NO_PARENT_RECORD';
8: G_FND_APP CONSTANT VARCHAR2(200) := OKL_API.G_FND_APP;
9: g_rep_req_yn VARCHAR2(3) := 'N';
10: G_SFE_TYPE_SUBSIDY CONSTANT VARCHAR2(200) := okl_create_streams_pvt.G_SFE_TYPE_SUBSIDY;
11: G_REQUIRED_VALUE CONSTANT VARCHAR2(200) := OKL_API.G_REQUIRED_VALUE;
12: G_INVALID_VALUE CONSTANT VARCHAR2(200) := OKL_API.G_INVALID_VALUE;
7: G_NO_PARENT_RECORD CONSTANT VARCHAR2(200) := 'OKL_NO_PARENT_RECORD';
8: G_FND_APP CONSTANT VARCHAR2(200) := OKL_API.G_FND_APP;
9: g_rep_req_yn VARCHAR2(3) := 'N';
10: G_SFE_TYPE_SUBSIDY CONSTANT VARCHAR2(200) := okl_create_streams_pvt.G_SFE_TYPE_SUBSIDY;
11: G_REQUIRED_VALUE CONSTANT VARCHAR2(200) := OKL_API.G_REQUIRED_VALUE;
12: G_INVALID_VALUE CONSTANT VARCHAR2(200) := OKL_API.G_INVALID_VALUE;
13: G_UNEXPECTED_ERROR CONSTANT VARCHAR2(200) := 'OKL_CONTRACTS_UNEXP_ERROR';
14: G_DB_ERROR CONSTANT VARCHAR2(12) := 'OKL_DB_ERROR';
15: G_PROG_NAME_TOKEN CONSTANT VARCHAR2(9) := 'PROG_NAME';
8: G_FND_APP CONSTANT VARCHAR2(200) := OKL_API.G_FND_APP;
9: g_rep_req_yn VARCHAR2(3) := 'N';
10: G_SFE_TYPE_SUBSIDY CONSTANT VARCHAR2(200) := okl_create_streams_pvt.G_SFE_TYPE_SUBSIDY;
11: G_REQUIRED_VALUE CONSTANT VARCHAR2(200) := OKL_API.G_REQUIRED_VALUE;
12: G_INVALID_VALUE CONSTANT VARCHAR2(200) := OKL_API.G_INVALID_VALUE;
13: G_UNEXPECTED_ERROR CONSTANT VARCHAR2(200) := 'OKL_CONTRACTS_UNEXP_ERROR';
14: G_DB_ERROR CONSTANT VARCHAR2(12) := 'OKL_DB_ERROR';
15: G_PROG_NAME_TOKEN CONSTANT VARCHAR2(9) := 'PROG_NAME';
16: G_SQLCODE_TOKEN CONSTANT VARCHAR2(7) := 'SQLCODE';
15: G_PROG_NAME_TOKEN CONSTANT VARCHAR2(9) := 'PROG_NAME';
16: G_SQLCODE_TOKEN CONSTANT VARCHAR2(7) := 'SQLCODE';
17: G_SQLERRM_TOKEN CONSTANT VARCHAR2(7) := 'SQLERRM';
18: G_UPPERCASE_REQUIRED CONSTANT VARCHAR2(200) := 'OKL_CONTRACTS_UPPERCASE_REQ';
19: G_COL_NAME_TOKEN CONSTANT VARCHAR2(200) := OKL_API.G_COL_NAME_TOKEN;
20: -- Start modification Bug#3066346 bakuchib
21: G_LLA_NO_MATCHING_RECORD CONSTANT VARCHAR2(200) := 'OKL_LLA_NO_MATCHING_RECORD';
22: l_pay_tbl OKL_STREAM_GENERATOR_PVT.payment_tbl_type;
23: -- End modification Bug#3066346 bakuchib
142: l_sty_code okl_strm_type_b.code%TYPE;
143:
144: BEGIN
145:
146: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
147:
148:
149: OPEN cntrct_csr (p_khr_id);
150: FETCH cntrct_csr INTO l_product_id, l_contract_start_date;
162: OPEN sty_csr;
163: FETCH sty_csr INTO l_sty_code;
164: CLOSE sty_csr;
165:
166: Okl_Api.SET_MESSAGE(p_app_name => g_app_name,
167: p_msg_name => 'OKL_PRY_STY_CODE_NOT_FOUND',
168: p_token1 => 'STY_CODE',
169: p_token1_value => l_sty_code);
170: RAISE Okl_Api.G_EXCEPTION_ERROR;
166: Okl_Api.SET_MESSAGE(p_app_name => g_app_name,
167: p_msg_name => 'OKL_PRY_STY_CODE_NOT_FOUND',
168: p_token1 => 'STY_CODE',
169: p_token1_value => l_sty_code);
170: RAISE Okl_Api.G_EXCEPTION_ERROR;
171: END IF;
172: CLOSE pry_prc_csr;
173:
174: ELSE
172: CLOSE pry_prc_csr;
173:
174: ELSE
175:
176: Okl_Api.SET_MESSAGE(p_app_name => g_app_name,
177: p_msg_name => 'OKL_NO_PDT_FOUND');
178: RAISE Okl_Api.G_EXCEPTION_ERROR;
179:
180: END IF;
174: ELSE
175:
176: Okl_Api.SET_MESSAGE(p_app_name => g_app_name,
177: p_msg_name => 'OKL_NO_PDT_FOUND');
178: RAISE Okl_Api.G_EXCEPTION_ERROR;
179:
180: END IF;
181:
182: x_primary_pricing_name := l_primary_pricing_name;
181:
182: x_primary_pricing_name := l_primary_pricing_name;
183:
184: EXCEPTION
185: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
186: IF cntrct_csr%ISOPEN THEN
187: CLOSE cntrct_csr;
188: END IF;
189: IF pry_prc_csr%ISOPEN THEN
188: END IF;
189: IF pry_prc_csr%ISOPEN THEN
190: CLOSE pry_prc_csr;
191: END IF;
192: x_return_status := Okl_Api.G_RET_STS_ERROR ;
193:
194: WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
195: IF cntrct_csr%ISOPEN THEN
196: CLOSE cntrct_csr;
190: CLOSE pry_prc_csr;
191: END IF;
192: x_return_status := Okl_Api.G_RET_STS_ERROR ;
193:
194: WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
195: IF cntrct_csr%ISOPEN THEN
196: CLOSE cntrct_csr;
197: END IF;
198: IF pry_prc_csr%ISOPEN THEN
197: END IF;
198: IF pry_prc_csr%ISOPEN THEN
199: CLOSE pry_prc_csr;
200: END IF;
201: x_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
202:
203: WHEN OTHERS THEN
204: IF cntrct_csr%ISOPEN THEN
205: CLOSE cntrct_csr;
206: END IF;
207: IF pry_prc_csr%ISOPEN THEN
208: CLOSE pry_prc_csr;
209: END IF;
210: x_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
211:
212:
213: END get_primary_pricing_name;
214:
249: l_sty_code okl_strm_type_b.code%TYPE;
250:
251: BEGIN
252:
253: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
254:
255:
256: OPEN cntrct_csr (p_khr_id);
257: FETCH cntrct_csr INTO l_product_id, l_contract_start_date;
270: OPEN sty_csr;
271: FETCH sty_csr INTO l_sty_code;
272: CLOSE sty_csr;
273:
274: Okl_Api.SET_MESSAGE(p_app_name => g_app_name,
275: p_msg_name => 'OKL_DEP_STY_CODE_NOT_FOUND',
276: p_token1 => 'STY_CODE',
277: p_token1_value => l_sty_code);
278:
275: p_msg_name => 'OKL_DEP_STY_CODE_NOT_FOUND',
276: p_token1 => 'STY_CODE',
277: p_token1_value => l_sty_code);
278:
279: RAISE Okl_Api.G_EXCEPTION_ERROR;
280: END IF;
281: CLOSE pry_prc_csr;
282:
283: ELSE
281: CLOSE pry_prc_csr;
282:
283: ELSE
284:
285: Okl_Api.SET_MESSAGE(p_app_name => g_app_name,
286: p_msg_name => 'OKL_NO_PDT_FOUND');
287: RAISE Okl_Api.G_EXCEPTION_ERROR;
288:
289: END IF;
283: ELSE
284:
285: Okl_Api.SET_MESSAGE(p_app_name => g_app_name,
286: p_msg_name => 'OKL_NO_PDT_FOUND');
287: RAISE Okl_Api.G_EXCEPTION_ERROR;
288:
289: END IF;
290:
291: x_dependent_pricing_name := l_dependent_pricing_name;
290:
291: x_dependent_pricing_name := l_dependent_pricing_name;
292:
293: EXCEPTION
294: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
295: IF cntrct_csr%ISOPEN THEN
296: CLOSE cntrct_csr;
297: END IF;
298: IF pry_prc_csr%ISOPEN THEN
297: END IF;
298: IF pry_prc_csr%ISOPEN THEN
299: CLOSE pry_prc_csr;
300: END IF;
301: x_return_status := Okl_Api.G_RET_STS_ERROR ;
302:
303: WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
304: IF cntrct_csr%ISOPEN THEN
305: CLOSE cntrct_csr;
299: CLOSE pry_prc_csr;
300: END IF;
301: x_return_status := Okl_Api.G_RET_STS_ERROR ;
302:
303: WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
304: IF cntrct_csr%ISOPEN THEN
305: CLOSE cntrct_csr;
306: END IF;
307: IF pry_prc_csr%ISOPEN THEN
306: END IF;
307: IF pry_prc_csr%ISOPEN THEN
308: CLOSE pry_prc_csr;
309: END IF;
310: x_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
311:
312: WHEN OTHERS THEN
313: IF cntrct_csr%ISOPEN THEN
314: CLOSE cntrct_csr;
315: END IF;
316: IF pry_prc_csr%ISOPEN THEN
317: CLOSE pry_prc_csr;
318: END IF;
319: x_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
320: --okl_debug_pub.logmessage(SQLERRM);
321:
322: END get_dependent_pricing_name;
323:
353: l_primary_sty_purpose_meaning VARCHAR2(4000);
354:
355: BEGIN
356:
357: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
358:
359:
360: OPEN cntrct_csr (p_khr_id);
361: FETCH cntrct_csr INTO l_product_id, l_contract_start_date;
372:
373: l_primary_sty_purpose_meaning := OKL_ACCOUNTING_UTIL.GET_LOOKUP_MEANING
374: ('OKL_STREAM_TYPE_PURPOSE', p_primary_sty_purpose);
375:
376: Okl_Api.SET_MESSAGE(p_app_name => g_app_name,
377: p_msg_name => 'OKL_NO_PRY_STY_FOUND',
378: p_token1 => 'PURPOSE',
379: p_token1_value => l_primary_sty_purpose_meaning);
380:
377: p_msg_name => 'OKL_NO_PRY_STY_FOUND',
378: p_token1 => 'PURPOSE',
379: p_token1_value => l_primary_sty_purpose_meaning);
380:
381: RAISE Okl_Api.G_EXCEPTION_ERROR;
382: END IF;
383: CLOSE pry_sty_csr;
384:
385: ELSE
383: CLOSE pry_sty_csr;
384:
385: ELSE
386:
387: Okl_Api.SET_MESSAGE(p_app_name => g_app_name,
388: p_msg_name => 'OKL_NO_PDT_FOUND');
389: RAISE Okl_Api.G_EXCEPTION_ERROR;
390:
391: END IF;
385: ELSE
386:
387: Okl_Api.SET_MESSAGE(p_app_name => g_app_name,
388: p_msg_name => 'OKL_NO_PDT_FOUND');
389: RAISE Okl_Api.G_EXCEPTION_ERROR;
390:
391: END IF;
392:
393: x_primary_sty_id := l_strm_rec_type;
392:
393: x_primary_sty_id := l_strm_rec_type;
394:
395: EXCEPTION
396: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
397: IF cntrct_csr%ISOPEN THEN
398: CLOSE cntrct_csr;
399: END IF;
400: IF pry_sty_csr%ISOPEN THEN
399: END IF;
400: IF pry_sty_csr%ISOPEN THEN
401: CLOSE pry_sty_csr;
402: END IF;
403: x_return_status := Okl_Api.G_RET_STS_ERROR ;
404:
405: WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
406: IF cntrct_csr%ISOPEN THEN
407: CLOSE cntrct_csr;
401: CLOSE pry_sty_csr;
402: END IF;
403: x_return_status := Okl_Api.G_RET_STS_ERROR ;
404:
405: WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
406: IF cntrct_csr%ISOPEN THEN
407: CLOSE cntrct_csr;
408: END IF;
409: IF pry_sty_csr%ISOPEN THEN
408: END IF;
409: IF pry_sty_csr%ISOPEN THEN
410: CLOSE pry_sty_csr;
411: END IF;
412: x_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
413:
414: WHEN OTHERS THEN
415: IF cntrct_csr%ISOPEN THEN
416: CLOSE cntrct_csr;
417: END IF;
418: IF pry_sty_csr%ISOPEN THEN
419: CLOSE pry_sty_csr;
420: END IF;
421: x_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
422:
423:
424: END get_primary_stream_type;
425:
457: l_primary_sty_purpose_meaning VARCHAR2(4000);
458:
459: BEGIN
460:
461: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
462:
463:
464: OPEN cntrct_csr (p_khr_id);
465: FETCH cntrct_csr INTO l_product_id, l_contract_start_date;
477:
478: l_primary_sty_purpose_meaning := OKL_ACCOUNTING_UTIL.GET_LOOKUP_MEANING
479: ('OKL_STREAM_TYPE_PURPOSE', p_primary_sty_purpose);
480:
481: Okl_Api.SET_MESSAGE(p_app_name => g_app_name,
482: p_msg_name => 'OKL_NO_PRY_STY_FOUND',
483: p_token1 => 'PURPOSE',
484: p_token1_value => l_primary_sty_purpose_meaning);
485:
482: p_msg_name => 'OKL_NO_PRY_STY_FOUND',
483: p_token1 => 'PURPOSE',
484: p_token1_value => l_primary_sty_purpose_meaning);
485:
486: RAISE Okl_Api.G_EXCEPTION_ERROR;
487: END IF;
488: CLOSE pry_sty_csr;
489:
490: ELSE
488: CLOSE pry_sty_csr;
489:
490: ELSE
491:
492: Okl_Api.SET_MESSAGE(p_app_name => g_app_name,
493: p_msg_name => 'OKL_NO_PDT_FOUND');
494: RAISE Okl_Api.G_EXCEPTION_ERROR;
495:
496: END IF;
490: ELSE
491:
492: Okl_Api.SET_MESSAGE(p_app_name => g_app_name,
493: p_msg_name => 'OKL_NO_PDT_FOUND');
494: RAISE Okl_Api.G_EXCEPTION_ERROR;
495:
496: END IF;
497:
498: x_primary_sty_id := l_strm_rec_type;
497:
498: x_primary_sty_id := l_strm_rec_type;
499:
500: EXCEPTION
501: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
502: IF cntrct_csr%ISOPEN THEN
503: CLOSE cntrct_csr;
504: END IF;
505: IF pry_sty_csr%ISOPEN THEN
504: END IF;
505: IF pry_sty_csr%ISOPEN THEN
506: CLOSE pry_sty_csr;
507: END IF;
508: x_return_status := Okl_Api.G_RET_STS_ERROR ;
509:
510: WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
511: IF cntrct_csr%ISOPEN THEN
512: CLOSE cntrct_csr;
506: CLOSE pry_sty_csr;
507: END IF;
508: x_return_status := Okl_Api.G_RET_STS_ERROR ;
509:
510: WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
511: IF cntrct_csr%ISOPEN THEN
512: CLOSE cntrct_csr;
513: END IF;
514: IF pry_sty_csr%ISOPEN THEN
513: END IF;
514: IF pry_sty_csr%ISOPEN THEN
515: CLOSE pry_sty_csr;
516: END IF;
517: x_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
518:
519: WHEN OTHERS THEN
520: IF cntrct_csr%ISOPEN THEN
521: CLOSE cntrct_csr;
522: END IF;
523: IF pry_sty_csr%ISOPEN THEN
524: CLOSE pry_sty_csr;
525: END IF;
526: x_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
527:
528:
529: END get_primary_no_prc_stream_type;
530:
563: l_dep_sty_purpose_meaning VARCHAR2(4000);
564:
565: BEGIN
566:
567: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
568:
569: -- DBMS_OUTPUT.PUT_LINE('l_p_khr_id - ' || p_khr_id);
570:
571: OPEN cntrct_csr (p_khr_id);
585:
586: l_dep_sty_purpose_meaning := OKL_ACCOUNTING_UTIL.GET_LOOKUP_MEANING
587: ('OKL_STREAM_TYPE_PURPOSE', p_dependent_sty_purpose);
588:
589: Okl_Api.SET_MESSAGE(p_app_name => g_app_name,
590: p_msg_name => 'OKL_NO_DEP_STY_FOUND',
591: p_token1 => 'PURPOSE',
592: p_token1_value => l_dep_sty_purpose_meaning);
593:
590: p_msg_name => 'OKL_NO_DEP_STY_FOUND',
591: p_token1 => 'PURPOSE',
592: p_token1_value => l_dep_sty_purpose_meaning);
593:
594: RAISE Okl_Api.G_EXCEPTION_ERROR;
595: END IF;
596: CLOSE dep_sty_csr;
597:
598: ELSE
596: CLOSE dep_sty_csr;
597:
598: ELSE
599:
600: Okl_Api.SET_MESSAGE(p_app_name => g_app_name,
601: p_msg_name => 'OKL_NO_PDT_FOUND');
602: RAISE Okl_Api.G_EXCEPTION_ERROR;
603:
604: END IF;
598: ELSE
599:
600: Okl_Api.SET_MESSAGE(p_app_name => g_app_name,
601: p_msg_name => 'OKL_NO_PDT_FOUND');
602: RAISE Okl_Api.G_EXCEPTION_ERROR;
603:
604: END IF;
605:
606: x_dependent_sty_id := l_strm_rec_type;
605:
606: x_dependent_sty_id := l_strm_rec_type;
607:
608: EXCEPTION
609: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
610: IF cntrct_csr%ISOPEN THEN
611: CLOSE cntrct_csr;
612: END IF;
613: IF dep_sty_csr%ISOPEN THEN
612: END IF;
613: IF dep_sty_csr%ISOPEN THEN
614: CLOSE dep_sty_csr;
615: END IF;
616: x_return_status := Okl_Api.G_RET_STS_ERROR ;
617:
618: WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
619: IF cntrct_csr%ISOPEN THEN
620: CLOSE cntrct_csr;
614: CLOSE dep_sty_csr;
615: END IF;
616: x_return_status := Okl_Api.G_RET_STS_ERROR ;
617:
618: WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
619: IF cntrct_csr%ISOPEN THEN
620: CLOSE cntrct_csr;
621: END IF;
622: IF dep_sty_csr%ISOPEN THEN
621: END IF;
622: IF dep_sty_csr%ISOPEN THEN
623: CLOSE dep_sty_csr;
624: END IF;
625: x_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
626:
627: WHEN OTHERS THEN
628: IF cntrct_csr%ISOPEN THEN
629: CLOSE cntrct_csr;
630: END IF;
631: IF dep_sty_csr%ISOPEN THEN
632: CLOSE dep_sty_csr;
633: END IF;
634: x_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
635:
636: END get_dep_no_prc_stream_type;
637:
638: PROCEDURE get_dep_no_prc_stream_type
670: l_dep_sty_purpose_meaning VARCHAR2(4000);
671:
672: BEGIN
673:
674: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
675:
676: -- DBMS_OUTPUT.PUT_LINE('l_p_khr_id - ' || p_khr_id);
677:
678: OPEN cntrct_csr (p_khr_id);
692:
693: l_dep_sty_purpose_meaning := OKL_ACCOUNTING_UTIL.GET_LOOKUP_MEANING
694: ('OKL_STREAM_TYPE_PURPOSE', p_dependent_sty_purpose);
695:
696: Okl_Api.SET_MESSAGE(p_app_name => g_app_name,
697: p_msg_name => 'OKL_NO_DEP_STY_FOUND',
698: p_token1 => 'PURPOSE',
699: p_token1_value => l_dep_sty_purpose_meaning);
700:
697: p_msg_name => 'OKL_NO_DEP_STY_FOUND',
698: p_token1 => 'PURPOSE',
699: p_token1_value => l_dep_sty_purpose_meaning);
700:
701: RAISE Okl_Api.G_EXCEPTION_ERROR;
702: END IF;
703: CLOSE dep_sty_csr;
704:
705: ELSE
703: CLOSE dep_sty_csr;
704:
705: ELSE
706:
707: Okl_Api.SET_MESSAGE(p_app_name => g_app_name,
708: p_msg_name => 'OKL_NO_PDT_FOUND');
709: RAISE Okl_Api.G_EXCEPTION_ERROR;
710:
711: END IF;
705: ELSE
706:
707: Okl_Api.SET_MESSAGE(p_app_name => g_app_name,
708: p_msg_name => 'OKL_NO_PDT_FOUND');
709: RAISE Okl_Api.G_EXCEPTION_ERROR;
710:
711: END IF;
712:
713: x_dependent_sty_id := l_strm_rec_type;
712:
713: x_dependent_sty_id := l_strm_rec_type;
714:
715: EXCEPTION
716: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
717: IF cntrct_csr%ISOPEN THEN
718: CLOSE cntrct_csr;
719: END IF;
720: IF dep_sty_csr%ISOPEN THEN
719: END IF;
720: IF dep_sty_csr%ISOPEN THEN
721: CLOSE dep_sty_csr;
722: END IF;
723: x_return_status := Okl_Api.G_RET_STS_ERROR ;
724:
725: WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
726: IF cntrct_csr%ISOPEN THEN
727: CLOSE cntrct_csr;
721: CLOSE dep_sty_csr;
722: END IF;
723: x_return_status := Okl_Api.G_RET_STS_ERROR ;
724:
725: WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
726: IF cntrct_csr%ISOPEN THEN
727: CLOSE cntrct_csr;
728: END IF;
729: IF dep_sty_csr%ISOPEN THEN
728: END IF;
729: IF dep_sty_csr%ISOPEN THEN
730: CLOSE dep_sty_csr;
731: END IF;
732: x_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
733:
734: WHEN OTHERS THEN
735: IF cntrct_csr%ISOPEN THEN
736: CLOSE cntrct_csr;
737: END IF;
738: IF dep_sty_csr%ISOPEN THEN
739: CLOSE dep_sty_csr;
740: END IF;
741: x_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
742:
743: END get_dep_no_prc_stream_type;
744:
745: PROCEDURE get_dep_no_prc_stream_type
776: l_dep_sty_purpose_meaning VARCHAR2(4000);
777:
778: BEGIN
779:
780: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
781:
782: -- DBMS_OUTPUT.PUT_LINE('l_p_khr_id - ' || p_khr_id);
783:
784: OPEN cntrct_csr (p_khr_id);
798:
799: l_dep_sty_purpose_meaning := OKL_ACCOUNTING_UTIL.GET_LOOKUP_MEANING
800: ('OKL_STREAM_TYPE_PURPOSE', p_dependent_sty_purpose);
801:
802: Okl_Api.SET_MESSAGE(p_app_name => g_app_name,
803: p_msg_name => 'OKL_NO_DEP_STY_FOUND',
804: p_token1 => 'PURPOSE',
805: p_token1_value => l_dep_sty_purpose_meaning);
806:
803: p_msg_name => 'OKL_NO_DEP_STY_FOUND',
804: p_token1 => 'PURPOSE',
805: p_token1_value => l_dep_sty_purpose_meaning);
806:
807: RAISE Okl_Api.G_EXCEPTION_ERROR;
808: END IF;
809: CLOSE dep_sty_csr;
810:
811: ELSE
809: CLOSE dep_sty_csr;
810:
811: ELSE
812:
813: Okl_Api.SET_MESSAGE(p_app_name => g_app_name,
814: p_msg_name => 'OKL_NO_PDT_FOUND');
815: RAISE Okl_Api.G_EXCEPTION_ERROR;
816:
817: END IF;
811: ELSE
812:
813: Okl_Api.SET_MESSAGE(p_app_name => g_app_name,
814: p_msg_name => 'OKL_NO_PDT_FOUND');
815: RAISE Okl_Api.G_EXCEPTION_ERROR;
816:
817: END IF;
818:
819: x_dependent_sty_id := l_strm_rec_type;
818:
819: x_dependent_sty_id := l_strm_rec_type;
820:
821: EXCEPTION
822: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
823: IF cntrct_csr%ISOPEN THEN
824: CLOSE cntrct_csr;
825: END IF;
826: IF dep_sty_csr%ISOPEN THEN
825: END IF;
826: IF dep_sty_csr%ISOPEN THEN
827: CLOSE dep_sty_csr;
828: END IF;
829: x_return_status := Okl_Api.G_RET_STS_ERROR ;
830:
831: WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
832: IF cntrct_csr%ISOPEN THEN
833: CLOSE cntrct_csr;
827: CLOSE dep_sty_csr;
828: END IF;
829: x_return_status := Okl_Api.G_RET_STS_ERROR ;
830:
831: WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
832: IF cntrct_csr%ISOPEN THEN
833: CLOSE cntrct_csr;
834: END IF;
835: IF dep_sty_csr%ISOPEN THEN
834: END IF;
835: IF dep_sty_csr%ISOPEN THEN
836: CLOSE dep_sty_csr;
837: END IF;
838: x_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
839:
840: WHEN OTHERS THEN
841: IF cntrct_csr%ISOPEN THEN
842: CLOSE cntrct_csr;
843: END IF;
844: IF dep_sty_csr%ISOPEN THEN
845: CLOSE dep_sty_csr;
846: END IF;
847: x_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
848:
849: END get_dep_no_prc_stream_type;
850:
851:
884: l_primary_sty_purpose_meaning VARCHAR2(4000);
885:
886: BEGIN
887:
888: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
889:
890:
891: OPEN cntrct_csr (p_khr_id);
892: FETCH cntrct_csr INTO l_product_id, l_contract_start_date;
904:
905: l_primary_sty_purpose_meaning := OKL_ACCOUNTING_UTIL.GET_LOOKUP_MEANING
906: ('OKL_STREAM_TYPE_PURPOSE', p_primary_sty_purpose);
907:
908: Okl_Api.SET_MESSAGE(p_app_name => g_app_name,
909: p_msg_name => 'OKL_NO_PRY_STY_FOUND',
910: p_token1 => 'PURPOSE',
911: p_token1_value => l_primary_sty_purpose_meaning);
912:
909: p_msg_name => 'OKL_NO_PRY_STY_FOUND',
910: p_token1 => 'PURPOSE',
911: p_token1_value => l_primary_sty_purpose_meaning);
912:
913: RAISE Okl_Api.G_EXCEPTION_ERROR;
914: END IF;
915: CLOSE pry_sty_csr;
916:
917: ELSE
915: CLOSE pry_sty_csr;
916:
917: ELSE
918:
919: Okl_Api.SET_MESSAGE(p_app_name => g_app_name,
920: p_msg_name => 'OKL_NO_PDT_FOUND');
921: RAISE Okl_Api.G_EXCEPTION_ERROR;
922:
923: END IF;
917: ELSE
918:
919: Okl_Api.SET_MESSAGE(p_app_name => g_app_name,
920: p_msg_name => 'OKL_NO_PDT_FOUND');
921: RAISE Okl_Api.G_EXCEPTION_ERROR;
922:
923: END IF;
924:
925: x_primary_sty_id := l_strm_rec_type;
924:
925: x_primary_sty_id := l_strm_rec_type;
926:
927: EXCEPTION
928: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
929: IF cntrct_csr%ISOPEN THEN
930: CLOSE cntrct_csr;
931: END IF;
932: IF pry_sty_csr%ISOPEN THEN
931: END IF;
932: IF pry_sty_csr%ISOPEN THEN
933: CLOSE pry_sty_csr;
934: END IF;
935: x_return_status := Okl_Api.G_RET_STS_ERROR ;
936:
937: WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
938: IF cntrct_csr%ISOPEN THEN
939: CLOSE cntrct_csr;
933: CLOSE pry_sty_csr;
934: END IF;
935: x_return_status := Okl_Api.G_RET_STS_ERROR ;
936:
937: WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
938: IF cntrct_csr%ISOPEN THEN
939: CLOSE cntrct_csr;
940: END IF;
941: IF pry_sty_csr%ISOPEN THEN
940: END IF;
941: IF pry_sty_csr%ISOPEN THEN
942: CLOSE pry_sty_csr;
943: END IF;
944: x_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
945:
946: WHEN OTHERS THEN
947: IF cntrct_csr%ISOPEN THEN
948: CLOSE cntrct_csr;
949: END IF;
950: IF pry_sty_csr%ISOPEN THEN
951: CLOSE pry_sty_csr;
952: END IF;
953: x_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
954:
955:
956: END get_primary_stream_type;
957:
987: l_primary_sty_purpose_meaning VARCHAR2(4000);
988:
989: BEGIN
990:
991: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
992: x_primary_sty_id.delete;
993:
994:
995: OPEN cntrct_csr (p_khr_id);
1008: IF (x_primary_sty_id.count = 0) THEN
1009: l_primary_sty_purpose_meaning := OKL_ACCOUNTING_UTIL.GET_LOOKUP_MEANING
1010: ('OKL_STREAM_TYPE_PURPOSE', p_primary_sty_purpose);
1011:
1012: Okl_Api.SET_MESSAGE(p_app_name => g_app_name,
1013: p_msg_name => 'OKL_NO_PRY_STY_FOUND',
1014: p_token1 => 'PURPOSE',
1015: p_token1_value => l_primary_sty_purpose_meaning);
1016:
1013: p_msg_name => 'OKL_NO_PRY_STY_FOUND',
1014: p_token1 => 'PURPOSE',
1015: p_token1_value => l_primary_sty_purpose_meaning);
1016:
1017: RAISE Okl_Api.G_EXCEPTION_ERROR;
1018: END IF;
1019: ELSE
1020:
1021: Okl_Api.SET_MESSAGE(p_app_name => g_app_name,
1017: RAISE Okl_Api.G_EXCEPTION_ERROR;
1018: END IF;
1019: ELSE
1020:
1021: Okl_Api.SET_MESSAGE(p_app_name => g_app_name,
1022: p_msg_name => 'OKL_NO_PDT_FOUND');
1023: RAISE Okl_Api.G_EXCEPTION_ERROR;
1024:
1025: END IF;
1019: ELSE
1020:
1021: Okl_Api.SET_MESSAGE(p_app_name => g_app_name,
1022: p_msg_name => 'OKL_NO_PDT_FOUND');
1023: RAISE Okl_Api.G_EXCEPTION_ERROR;
1024:
1025: END IF;
1026:
1027: -- x_primary_sty_id := l_primary_sty_id;
1026:
1027: -- x_primary_sty_id := l_primary_sty_id;
1028:
1029: EXCEPTION
1030: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
1031: IF cntrct_csr%ISOPEN THEN
1032: CLOSE cntrct_csr;
1033: END IF;
1034: IF pry_sty_csr%ISOPEN THEN
1033: END IF;
1034: IF pry_sty_csr%ISOPEN THEN
1035: CLOSE pry_sty_csr;
1036: END IF;
1037: x_return_status := Okl_Api.G_RET_STS_ERROR ;
1038:
1039: WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
1040: IF cntrct_csr%ISOPEN THEN
1041: CLOSE cntrct_csr;
1035: CLOSE pry_sty_csr;
1036: END IF;
1037: x_return_status := Okl_Api.G_RET_STS_ERROR ;
1038:
1039: WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
1040: IF cntrct_csr%ISOPEN THEN
1041: CLOSE cntrct_csr;
1042: END IF;
1043: IF pry_sty_csr%ISOPEN THEN
1042: END IF;
1043: IF pry_sty_csr%ISOPEN THEN
1044: CLOSE pry_sty_csr;
1045: END IF;
1046: x_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
1047:
1048: WHEN OTHERS THEN
1049: IF cntrct_csr%ISOPEN THEN
1050: CLOSE cntrct_csr;
1051: END IF;
1052: IF pry_sty_csr%ISOPEN THEN
1053: CLOSE pry_sty_csr;
1054: END IF;
1055: x_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
1056:
1057:
1058: END get_primary_stream_types;
1059:
1090: l_dependetn_sty_id NUMBER;
1091: l_dep_sty_purpose_meaning VARCHAR2(4000);
1092: BEGIN
1093:
1094: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
1095:
1096: -- DBMS_OUTPUT.PUT_LINE('l_p_khr_id - ' || p_khr_id);
1097:
1098: OPEN cntrct_csr (p_khr_id);
1111:
1112: l_dep_sty_purpose_meaning := OKL_ACCOUNTING_UTIL.GET_LOOKUP_MEANING
1113: ('OKL_STREAM_TYPE_PURPOSE', p_dependent_sty_purpose);
1114:
1115: Okl_Api.SET_MESSAGE(p_app_name => g_app_name,
1116: p_msg_name => 'OKL_NO_DEP_STY_FOUND',
1117: p_token1 => 'PURPOSE',
1118: p_token1_value => l_dep_sty_purpose_meaning);
1119:
1116: p_msg_name => 'OKL_NO_DEP_STY_FOUND',
1117: p_token1 => 'PURPOSE',
1118: p_token1_value => l_dep_sty_purpose_meaning);
1119:
1120: RAISE Okl_Api.G_EXCEPTION_ERROR;
1121: END IF;
1122: CLOSE dep_sty_csr;
1123:
1124: ELSE
1122: CLOSE dep_sty_csr;
1123:
1124: ELSE
1125:
1126: Okl_Api.SET_MESSAGE(p_app_name => g_app_name,
1127: p_msg_name => 'OKL_NO_PDT_FOUND');
1128: RAISE Okl_Api.G_EXCEPTION_ERROR;
1129:
1130: END IF;
1124: ELSE
1125:
1126: Okl_Api.SET_MESSAGE(p_app_name => g_app_name,
1127: p_msg_name => 'OKL_NO_PDT_FOUND');
1128: RAISE Okl_Api.G_EXCEPTION_ERROR;
1129:
1130: END IF;
1131:
1132: x_dependent_sty_id := l_strm_rec_type;
1131:
1132: x_dependent_sty_id := l_strm_rec_type;
1133:
1134: EXCEPTION
1135: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
1136: IF cntrct_csr%ISOPEN THEN
1137: CLOSE cntrct_csr;
1138: END IF;
1139: IF dep_sty_csr%ISOPEN THEN
1138: END IF;
1139: IF dep_sty_csr%ISOPEN THEN
1140: CLOSE dep_sty_csr;
1141: END IF;
1142: x_return_status := Okl_Api.G_RET_STS_ERROR ;
1143:
1144: WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
1145: IF cntrct_csr%ISOPEN THEN
1146: CLOSE cntrct_csr;
1140: CLOSE dep_sty_csr;
1141: END IF;
1142: x_return_status := Okl_Api.G_RET_STS_ERROR ;
1143:
1144: WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
1145: IF cntrct_csr%ISOPEN THEN
1146: CLOSE cntrct_csr;
1147: END IF;
1148: IF dep_sty_csr%ISOPEN THEN
1147: END IF;
1148: IF dep_sty_csr%ISOPEN THEN
1149: CLOSE dep_sty_csr;
1150: END IF;
1151: x_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
1152:
1153: WHEN OTHERS THEN
1154: IF cntrct_csr%ISOPEN THEN
1155: CLOSE cntrct_csr;
1156: END IF;
1157: IF dep_sty_csr%ISOPEN THEN
1158: CLOSE dep_sty_csr;
1159: END IF;
1160: x_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
1161:
1162: END get_dependent_stream_type;
1163:
1164: PROCEDURE get_dependent_stream_type
1194: l_dependetn_sty_id NUMBER;
1195: l_dep_sty_purpose_meaning VARCHAR2(4000);
1196: BEGIN
1197:
1198: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
1199:
1200: -- DBMS_OUTPUT.PUT_LINE('l_p_khr_id - ' || p_khr_id);
1201:
1202: OPEN cntrct_csr (p_khr_id);
1215:
1216: l_dep_sty_purpose_meaning := OKL_ACCOUNTING_UTIL.GET_LOOKUP_MEANING
1217: ('OKL_STREAM_TYPE_PURPOSE', p_dependent_sty_purpose);
1218:
1219: Okl_Api.SET_MESSAGE(p_app_name => g_app_name,
1220: p_msg_name => 'OKL_NO_DEP_STY_FOUND',
1221: p_token1 => 'PURPOSE',
1222: p_token1_value => l_dep_sty_purpose_meaning);
1223:
1220: p_msg_name => 'OKL_NO_DEP_STY_FOUND',
1221: p_token1 => 'PURPOSE',
1222: p_token1_value => l_dep_sty_purpose_meaning);
1223:
1224: RAISE Okl_Api.G_EXCEPTION_ERROR;
1225: END IF;
1226: CLOSE dep_sty_csr;
1227:
1228: ELSE
1226: CLOSE dep_sty_csr;
1227:
1228: ELSE
1229:
1230: Okl_Api.SET_MESSAGE(p_app_name => g_app_name,
1231: p_msg_name => 'OKL_NO_PDT_FOUND');
1232: RAISE Okl_Api.G_EXCEPTION_ERROR;
1233:
1234: END IF;
1228: ELSE
1229:
1230: Okl_Api.SET_MESSAGE(p_app_name => g_app_name,
1231: p_msg_name => 'OKL_NO_PDT_FOUND');
1232: RAISE Okl_Api.G_EXCEPTION_ERROR;
1233:
1234: END IF;
1235:
1236: x_dependent_sty_id := l_strm_rec_type;
1235:
1236: x_dependent_sty_id := l_strm_rec_type;
1237:
1238: EXCEPTION
1239: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
1240: IF cntrct_csr%ISOPEN THEN
1241: CLOSE cntrct_csr;
1242: END IF;
1243: IF dep_sty_csr%ISOPEN THEN
1242: END IF;
1243: IF dep_sty_csr%ISOPEN THEN
1244: CLOSE dep_sty_csr;
1245: END IF;
1246: x_return_status := Okl_Api.G_RET_STS_ERROR ;
1247:
1248: WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
1249: IF cntrct_csr%ISOPEN THEN
1250: CLOSE cntrct_csr;
1244: CLOSE dep_sty_csr;
1245: END IF;
1246: x_return_status := Okl_Api.G_RET_STS_ERROR ;
1247:
1248: WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
1249: IF cntrct_csr%ISOPEN THEN
1250: CLOSE cntrct_csr;
1251: END IF;
1252: IF dep_sty_csr%ISOPEN THEN
1251: END IF;
1252: IF dep_sty_csr%ISOPEN THEN
1253: CLOSE dep_sty_csr;
1254: END IF;
1255: x_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
1256:
1257: WHEN OTHERS THEN
1258: IF cntrct_csr%ISOPEN THEN
1259: CLOSE cntrct_csr;
1260: END IF;
1261: IF dep_sty_csr%ISOPEN THEN
1262: CLOSE dep_sty_csr;
1263: END IF;
1264: x_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
1265:
1266: END get_dependent_stream_type;
1267: PROCEDURE get_dependent_stream_types
1268: (
1296: l_dep_sty_purpose_meaning VARCHAR2(4000);
1297:
1298: BEGIN
1299:
1300: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
1301:
1302: -- DBMS_OUTPUT.PUT_LINE('l_p_khr_id - ' || p_khr_id);
1303:
1304: OPEN cntrct_csr (p_khr_id);
1317:
1318: -- Bug 4064253
1319: /*
1320: IF (x_dependent_sty_id.count = 0) THEN
1321: Okl_Api.SET_MESSAGE(p_app_name => g_app_name,
1322: p_msg_name => 'OKL_NO_PDT_FOUND');,
1323:
1324: RAISE Okl_Api.G_EXCEPTION_ERROR;
1325: END IF;
1320: IF (x_dependent_sty_id.count = 0) THEN
1321: Okl_Api.SET_MESSAGE(p_app_name => g_app_name,
1322: p_msg_name => 'OKL_NO_PDT_FOUND');,
1323:
1324: RAISE Okl_Api.G_EXCEPTION_ERROR;
1325: END IF;
1326: */
1327:
1328: ELSE
1325: END IF;
1326: */
1327:
1328: ELSE
1329: Okl_Api.SET_MESSAGE(p_app_name => g_app_name,
1330: p_msg_name => 'OKL_NO_PDT_FOUND');
1331: RAISE Okl_Api.G_EXCEPTION_ERROR;
1332: END IF;
1333:
1327:
1328: ELSE
1329: Okl_Api.SET_MESSAGE(p_app_name => g_app_name,
1330: p_msg_name => 'OKL_NO_PDT_FOUND');
1331: RAISE Okl_Api.G_EXCEPTION_ERROR;
1332: END IF;
1333:
1334: EXCEPTION
1335: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
1331: RAISE Okl_Api.G_EXCEPTION_ERROR;
1332: END IF;
1333:
1334: EXCEPTION
1335: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
1336: IF cntrct_csr%ISOPEN THEN
1337: CLOSE cntrct_csr;
1338: END IF;
1339: IF dep_sty_csr%ISOPEN THEN
1338: END IF;
1339: IF dep_sty_csr%ISOPEN THEN
1340: CLOSE dep_sty_csr;
1341: END IF;
1342: x_return_status := Okl_Api.G_RET_STS_ERROR ;
1343:
1344: WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
1345: IF cntrct_csr%ISOPEN THEN
1346: CLOSE cntrct_csr;
1340: CLOSE dep_sty_csr;
1341: END IF;
1342: x_return_status := Okl_Api.G_RET_STS_ERROR ;
1343:
1344: WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
1345: IF cntrct_csr%ISOPEN THEN
1346: CLOSE cntrct_csr;
1347: END IF;
1348: IF dep_sty_csr%ISOPEN THEN
1347: END IF;
1348: IF dep_sty_csr%ISOPEN THEN
1349: CLOSE dep_sty_csr;
1350: END IF;
1351: x_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
1352:
1353: WHEN OTHERS THEN
1354: IF cntrct_csr%ISOPEN THEN
1355: CLOSE cntrct_csr;
1356: END IF;
1357: IF dep_sty_csr%ISOPEN THEN
1358: CLOSE dep_sty_csr;
1359: END IF;
1360: x_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
1361:
1362: END get_dependent_stream_types;
1363:
1364:
1396: l_dep_sty_purpose_meaning VARCHAR2(4000);
1397:
1398: BEGIN
1399:
1400: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
1401:
1402: -- DBMS_OUTPUT.PUT_LINE('l_p_khr_id - ' || p_khr_id);
1403:
1404: OPEN cntrct_csr (p_khr_id);
1418:
1419: -- Bug 4064253
1420: /*
1421: IF (x_primary_sty_id.count = 0) THEN
1422: Okl_Api.SET_MESSAGE(p_app_name => g_app_name,
1423: p_msg_name => 'OKL_NO_PDT_FOUND');
1424: RAISE Okl_Api.G_EXCEPTION_ERROR;
1425: END IF;
1426: */
1420: /*
1421: IF (x_primary_sty_id.count = 0) THEN
1422: Okl_Api.SET_MESSAGE(p_app_name => g_app_name,
1423: p_msg_name => 'OKL_NO_PDT_FOUND');
1424: RAISE Okl_Api.G_EXCEPTION_ERROR;
1425: END IF;
1426: */
1427:
1428:
1426: */
1427:
1428:
1429: ELSE
1430: Okl_Api.SET_MESSAGE(p_app_name => g_app_name,
1431: p_msg_name => 'OKL_NO_PDT_FOUND');
1432: RAISE Okl_Api.G_EXCEPTION_ERROR;
1433: END IF;
1434:
1428:
1429: ELSE
1430: Okl_Api.SET_MESSAGE(p_app_name => g_app_name,
1431: p_msg_name => 'OKL_NO_PDT_FOUND');
1432: RAISE Okl_Api.G_EXCEPTION_ERROR;
1433: END IF;
1434:
1435: EXCEPTION
1436: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
1432: RAISE Okl_Api.G_EXCEPTION_ERROR;
1433: END IF;
1434:
1435: EXCEPTION
1436: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
1437: IF cntrct_csr%ISOPEN THEN
1438: CLOSE cntrct_csr;
1439: END IF;
1440: IF dep_sty_csr%ISOPEN THEN
1439: END IF;
1440: IF dep_sty_csr%ISOPEN THEN
1441: CLOSE dep_sty_csr;
1442: END IF;
1443: x_return_status := Okl_Api.G_RET_STS_ERROR ;
1444:
1445: WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
1446: IF cntrct_csr%ISOPEN THEN
1447: CLOSE cntrct_csr;
1441: CLOSE dep_sty_csr;
1442: END IF;
1443: x_return_status := Okl_Api.G_RET_STS_ERROR ;
1444:
1445: WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
1446: IF cntrct_csr%ISOPEN THEN
1447: CLOSE cntrct_csr;
1448: END IF;
1449: IF dep_sty_csr%ISOPEN THEN
1448: END IF;
1449: IF dep_sty_csr%ISOPEN THEN
1450: CLOSE dep_sty_csr;
1451: END IF;
1452: x_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
1453:
1454: WHEN OTHERS THEN
1455: IF cntrct_csr%ISOPEN THEN
1456: CLOSE cntrct_csr;
1457: END IF;
1458: IF dep_sty_csr%ISOPEN THEN
1459: CLOSE dep_sty_csr;
1460: END IF;
1461: x_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
1462:
1463: END get_dependent_stream_types;
1464:
1465: PROCEDURE get_dependent_stream_type
1498: l_dep_sty_purpose_meaning VARCHAR2(4000);
1499:
1500: BEGIN
1501:
1502: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
1503:
1504: -- DBMS_OUTPUT.PUT_LINE('l_p_khr_id - ' || p_khr_id);
1505:
1506: OPEN cntrct_csr (p_khr_id);
1520:
1521: l_dep_sty_purpose_meaning := OKL_ACCOUNTING_UTIL.GET_LOOKUP_MEANING
1522: ('OKL_STREAM_TYPE_PURPOSE', p_dependent_sty_purpose);
1523:
1524: Okl_Api.SET_MESSAGE(p_app_name => g_app_name,
1525: p_msg_name => 'OKL_NO_DEP_STY_FOUND',
1526: p_token1 => 'PURPOSE',
1527: p_token1_value => l_dep_sty_purpose_meaning);
1528:
1525: p_msg_name => 'OKL_NO_DEP_STY_FOUND',
1526: p_token1 => 'PURPOSE',
1527: p_token1_value => l_dep_sty_purpose_meaning);
1528:
1529: RAISE Okl_Api.G_EXCEPTION_ERROR;
1530: END IF;
1531: CLOSE dep_sty_csr;
1532:
1533: ELSE
1531: CLOSE dep_sty_csr;
1532:
1533: ELSE
1534:
1535: Okl_Api.SET_MESSAGE(p_app_name => g_app_name,
1536: p_msg_name => 'OKL_NO_PDT_FOUND');
1537: RAISE Okl_Api.G_EXCEPTION_ERROR;
1538:
1539: END IF;
1533: ELSE
1534:
1535: Okl_Api.SET_MESSAGE(p_app_name => g_app_name,
1536: p_msg_name => 'OKL_NO_PDT_FOUND');
1537: RAISE Okl_Api.G_EXCEPTION_ERROR;
1538:
1539: END IF;
1540:
1541: x_dependent_sty_id := l_strm_rec_type;
1540:
1541: x_dependent_sty_id := l_strm_rec_type;
1542:
1543: EXCEPTION
1544: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
1545: IF cntrct_csr%ISOPEN THEN
1546: CLOSE cntrct_csr;
1547: END IF;
1548: IF dep_sty_csr%ISOPEN THEN
1547: END IF;
1548: IF dep_sty_csr%ISOPEN THEN
1549: CLOSE dep_sty_csr;
1550: END IF;
1551: x_return_status := Okl_Api.G_RET_STS_ERROR ;
1552:
1553: WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
1554: IF cntrct_csr%ISOPEN THEN
1555: CLOSE cntrct_csr;
1549: CLOSE dep_sty_csr;
1550: END IF;
1551: x_return_status := Okl_Api.G_RET_STS_ERROR ;
1552:
1553: WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
1554: IF cntrct_csr%ISOPEN THEN
1555: CLOSE cntrct_csr;
1556: END IF;
1557: IF dep_sty_csr%ISOPEN THEN
1556: END IF;
1557: IF dep_sty_csr%ISOPEN THEN
1558: CLOSE dep_sty_csr;
1559: END IF;
1560: x_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
1561:
1562: WHEN OTHERS THEN
1563: IF cntrct_csr%ISOPEN THEN
1564: CLOSE cntrct_csr;
1565: END IF;
1566: IF dep_sty_csr%ISOPEN THEN
1567: CLOSE dep_sty_csr;
1568: END IF;
1569: x_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
1570:
1571: END get_dependent_stream_type;
1572:
1573: PROCEDURE get_dependent_stream_type
1606: l_dep_sty_purpose_meaning VARCHAR2(4000);
1607:
1608: BEGIN
1609:
1610: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
1611:
1612: -- DBMS_OUTPUT.PUT_LINE('l_p_khr_id - ' || p_khr_id);
1613:
1614: OPEN cntrct_csr (p_khr_id);
1627:
1628: l_dep_sty_purpose_meaning := OKL_ACCOUNTING_UTIL.GET_LOOKUP_MEANING
1629: ('OKL_STREAM_TYPE_PURPOSE', p_dependent_sty_purpose);
1630:
1631: Okl_Api.SET_MESSAGE(p_app_name => g_app_name,
1632: p_msg_name => 'OKL_NO_DEP_STY_FOUND',
1633: p_token1 => 'PURPOSE',
1634: p_token1_value => l_dep_sty_purpose_meaning);
1635:
1632: p_msg_name => 'OKL_NO_DEP_STY_FOUND',
1633: p_token1 => 'PURPOSE',
1634: p_token1_value => l_dep_sty_purpose_meaning);
1635:
1636: RAISE Okl_Api.G_EXCEPTION_ERROR;
1637: END IF;
1638: CLOSE dep_sty_csr;
1639:
1640: ELSE
1638: CLOSE dep_sty_csr;
1639:
1640: ELSE
1641:
1642: Okl_Api.SET_MESSAGE(p_app_name => g_app_name,
1643: p_msg_name => 'OKL_NO_PDT_FOUND');
1644: RAISE Okl_Api.G_EXCEPTION_ERROR;
1645:
1646: END IF;
1640: ELSE
1641:
1642: Okl_Api.SET_MESSAGE(p_app_name => g_app_name,
1643: p_msg_name => 'OKL_NO_PDT_FOUND');
1644: RAISE Okl_Api.G_EXCEPTION_ERROR;
1645:
1646: END IF;
1647:
1648: x_dependent_sty_id := l_strm_rec_type;
1647:
1648: x_dependent_sty_id := l_strm_rec_type;
1649:
1650: EXCEPTION
1651: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
1652: IF cntrct_csr%ISOPEN THEN
1653: CLOSE cntrct_csr;
1654: END IF;
1655: IF dep_sty_csr%ISOPEN THEN
1654: END IF;
1655: IF dep_sty_csr%ISOPEN THEN
1656: CLOSE dep_sty_csr;
1657: END IF;
1658: x_return_status := Okl_Api.G_RET_STS_ERROR ;
1659:
1660: WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
1661: IF cntrct_csr%ISOPEN THEN
1662: CLOSE cntrct_csr;
1656: CLOSE dep_sty_csr;
1657: END IF;
1658: x_return_status := Okl_Api.G_RET_STS_ERROR ;
1659:
1660: WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
1661: IF cntrct_csr%ISOPEN THEN
1662: CLOSE cntrct_csr;
1663: END IF;
1664: IF dep_sty_csr%ISOPEN THEN
1663: END IF;
1664: IF dep_sty_csr%ISOPEN THEN
1665: CLOSE dep_sty_csr;
1666: END IF;
1667: x_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
1668:
1669: WHEN OTHERS THEN
1670: IF cntrct_csr%ISOPEN THEN
1671: CLOSE cntrct_csr;
1672: END IF;
1673: IF dep_sty_csr%ISOPEN THEN
1674: CLOSE dep_sty_csr;
1675: END IF;
1676: x_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
1677:
1678: END get_dependent_stream_type;
1679:
1680: -- End code for new procedures of stream type
1681:
1682: -- gboomina BUG#4508077 changes start
1683: -- procedure to update the rvi_amount and delete the primary stream
1684: PROCEDURE update_rvi_amount(p_api_version IN NUMBER,
1685: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
1686: p_chr_id IN NUMBER,
1687: p_purpose IN VARCHAR2,
1688: x_return_status OUT NOCOPY VARCHAR2,
1689: x_msg_count OUT NOCOPY NUMBER,
1723: l_strm_id NUMBER;
1724: l_stmv_rec okl_streams_pub.stmv_rec_type;
1725: l_api_name VARCHAR2(255) := 'update_rvi_amount';
1726: BEGIN
1727: x_return_status := OKL_API.G_RET_STS_SUCCESS;
1728: -- Call start_activity to create savepoint, check compatibility
1729: -- and initialize message list
1730: x_return_status := OKL_API.START_ACTIVITY (
1731: l_api_name
1726: BEGIN
1727: x_return_status := OKL_API.G_RET_STS_SUCCESS;
1728: -- Call start_activity to create savepoint, check compatibility
1729: -- and initialize message list
1730: x_return_status := OKL_API.START_ACTIVITY (
1731: l_api_name
1732: ,p_init_msg_list
1733: ,'_PVT'
1734: ,x_return_status);
1732: ,p_init_msg_list
1733: ,'_PVT'
1734: ,x_return_status);
1735: -- Check if activity started successfully
1736: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1737: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1738: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1739: RAISE OKL_API.G_EXCEPTION_ERROR;
1740: END IF;
1733: ,'_PVT'
1734: ,x_return_status);
1735: -- Check if activity started successfully
1736: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1737: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1738: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1739: RAISE OKL_API.G_EXCEPTION_ERROR;
1740: END IF;
1741: l_line_id := NULL;
1734: ,x_return_status);
1735: -- Check if activity started successfully
1736: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1737: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1738: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1739: RAISE OKL_API.G_EXCEPTION_ERROR;
1740: END IF;
1741: l_line_id := NULL;
1742: l_rvi_amount := NULL;
1735: -- Check if activity started successfully
1736: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1737: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1738: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1739: RAISE OKL_API.G_EXCEPTION_ERROR;
1740: END IF;
1741: l_line_id := NULL;
1742: l_rvi_amount := NULL;
1743: -- get the abosrbed fee line with purpose code as RVI
1779: IF l_rvi_amount IS NOT NULL THEN
1780: l_fee_types_rec.amount := l_rvi_amount;
1781: -- update the fee line
1782: okl_maintain_fee_pvt.update_fee_type(p_api_version => p_api_version,
1783: p_init_msg_list => OKL_API.G_FALSE,
1784: x_return_status => x_return_status,
1785: x_msg_count => x_msg_count,
1786: x_msg_data => x_msg_data,
1787: p_fee_types_rec => l_fee_types_rec,
1785: x_msg_count => x_msg_count,
1786: x_msg_data => x_msg_data,
1787: p_fee_types_rec => l_fee_types_rec,
1788: x_fee_types_rec => lx_fee_types_rec);
1789: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1790: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1791: ElSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1792: RAISE OKL_API.G_EXCEPTION_ERROR;
1793: END IF;
1786: x_msg_data => x_msg_data,
1787: p_fee_types_rec => l_fee_types_rec,
1788: x_fee_types_rec => lx_fee_types_rec);
1789: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1790: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1791: ElSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1792: RAISE OKL_API.G_EXCEPTION_ERROR;
1793: END IF;
1794: END IF; -- end of stream element check
1787: p_fee_types_rec => l_fee_types_rec,
1788: x_fee_types_rec => lx_fee_types_rec);
1789: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1790: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1791: ElSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1792: RAISE OKL_API.G_EXCEPTION_ERROR;
1793: END IF;
1794: END IF; -- end of stream element check
1795: END IF; -- end of main product check
1788: x_fee_types_rec => lx_fee_types_rec);
1789: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1790: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1791: ElSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1792: RAISE OKL_API.G_EXCEPTION_ERROR;
1793: END IF;
1794: END IF; -- end of stream element check
1795: END IF; -- end of main product check
1796: -- delete the primary stream for all products
1794: END IF; -- end of stream element check
1795: END IF; -- end of main product check
1796: -- delete the primary stream for all products
1797: okl_streams_pub.delete_streams(p_api_version => p_api_version,
1798: p_init_msg_list => OKL_API.G_FALSE,
1799: x_return_status => x_return_status,
1800: x_msg_count => x_msg_count,
1801: x_msg_data => x_msg_data,
1802: p_stmv_rec => l_stmv_rec);
1799: x_return_status => x_return_status,
1800: x_msg_count => x_msg_count,
1801: x_msg_data => x_msg_data,
1802: p_stmv_rec => l_stmv_rec);
1803: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1804: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1805: ElSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1806: RAISE OKL_API.G_EXCEPTION_ERROR;
1807: END IF;
1800: x_msg_count => x_msg_count,
1801: x_msg_data => x_msg_data,
1802: p_stmv_rec => l_stmv_rec);
1803: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1804: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1805: ElSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1806: RAISE OKL_API.G_EXCEPTION_ERROR;
1807: END IF;
1808: END IF; -- end of strm id not null check
1801: x_msg_data => x_msg_data,
1802: p_stmv_rec => l_stmv_rec);
1803: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1804: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1805: ElSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1806: RAISE OKL_API.G_EXCEPTION_ERROR;
1807: END IF;
1808: END IF; -- end of strm id not null check
1809: END IF; -- end of line id not null check
1802: p_stmv_rec => l_stmv_rec);
1803: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1804: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1805: ElSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1806: RAISE OKL_API.G_EXCEPTION_ERROR;
1807: END IF;
1808: END IF; -- end of strm id not null check
1809: END IF; -- end of line id not null check
1810: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
1806: RAISE OKL_API.G_EXCEPTION_ERROR;
1807: END IF;
1808: END IF; -- end of strm id not null check
1809: END IF; -- end of line id not null check
1810: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
1811: EXCEPTION
1812: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1813: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1814: p_api_name => l_api_name,
1808: END IF; -- end of strm id not null check
1809: END IF; -- end of line id not null check
1810: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
1811: EXCEPTION
1812: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1813: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1814: p_api_name => l_api_name,
1815: p_pkg_name => g_pkg_name,
1816: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
1809: END IF; -- end of line id not null check
1810: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
1811: EXCEPTION
1812: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1813: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1814: p_api_name => l_api_name,
1815: p_pkg_name => g_pkg_name,
1816: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
1817: x_msg_count => x_msg_count,
1812: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1813: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1814: p_api_name => l_api_name,
1815: p_pkg_name => g_pkg_name,
1816: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
1817: x_msg_count => x_msg_count,
1818: x_msg_data => x_msg_data,
1819: p_api_type => g_api_type);
1820:
1817: x_msg_count => x_msg_count,
1818: x_msg_data => x_msg_data,
1819: p_api_type => g_api_type);
1820:
1821: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
1822: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1823: p_api_name => l_api_name,
1824: p_pkg_name => g_pkg_name,
1825: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
1818: x_msg_data => x_msg_data,
1819: p_api_type => g_api_type);
1820:
1821: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
1822: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1823: p_api_name => l_api_name,
1824: p_pkg_name => g_pkg_name,
1825: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
1826: x_msg_count => x_msg_count,
1821: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
1822: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1823: p_api_name => l_api_name,
1824: p_pkg_name => g_pkg_name,
1825: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
1826: x_msg_count => x_msg_count,
1827: x_msg_data => x_msg_data,
1828: p_api_type => g_api_type);
1829:
1827: x_msg_data => x_msg_data,
1828: p_api_type => g_api_type);
1829:
1830: WHEN OTHERS then
1831: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1832: p_api_name => l_api_name,
1833: p_pkg_name => g_pkg_name,
1834: p_exc_name => 'OTHERS',
1835: x_msg_count => x_msg_count,
1851: -------------------------------------------------------------------------------------------------
1852: FUNCTION yield_request(x_csm_yields_tbl OUT NOCOPY okl_create_streams_pub.csm_yields_tbl_type)
1853: RETURN VARCHAR2 IS
1854: l_prog_name VARCHAR2(100) := 'YIELD_REQUEST';
1855: x_return_status VARCHAR2(3) := okl_api.g_ret_sts_success;
1856: l_csm_yields_tbl okl_create_streams_pub.csm_yields_tbl_type;
1857: BEGIN
1858: -- Pre tax IRR with subsidy
1859: l_csm_yields_tbl(1).yield_name := 'PTIRR';
1907: x_csm_yields_tbl := l_csm_yields_tbl;
1908: RETURN x_return_status;
1909: EXCEPTION
1910: WHEN OTHERS THEN
1911: okl_api.set_message (p_app_name => G_APP_NAME,
1912: p_msg_name => G_DB_ERROR,
1913: p_token1 => G_PROG_NAME_TOKEN,
1914: p_token1_value => l_prog_name,
1915: p_token2 => G_SQLCODE_TOKEN,
1915: p_token2 => G_SQLCODE_TOKEN,
1916: p_token2_value => sqlcode,
1917: p_token3 => G_SQLERRM_TOKEN,
1918: p_token3_value => sqlerrm);
1919: x_return_status := okl_api.g_ret_sts_error;
1920: RETURN x_return_status;
1921: END yield_request;
1922: --------------------------------------------------------------------------------
1923: -- Start modification 11i9 bakuchib
1945: RETURN VARCHAR2 IS
1946: l_prog_name VARCHAR2(100) := 'VAL_TXD_TAX_BOOK';
1947: g_process_error EXCEPTION;
1948: G_NO_SETUP_TAX_BOOK CONSTANT VARCHAR2(200) := 'OKL_LLP_TAX_BOOK_MAP';
1949: x_return_status VARCHAR2(3) := OKL_API.G_RET_STS_SUCCESS;
1950: i NUMBER := 0;
1951: lv_tax_book OKL_TXD_ASSETS_B.TAX_BOOK%TYPE := NULL;
1952: -- Get the OKL_TXD_ASSETS_B info
1953: CURSOR l_txd_csr(p_asset_num VARCHAR2)
1996: FOR j IN lt_tax_book_value_tbl.FIRST..lt_tax_book_value_tbl.LAST LOOP
1997: EXIT WHEN(j = j + 1);
1998: IF lt_tax_book_value_tbl(j).VALUE IS NULL AND
1999: lt_tax_book_value_tbl(j+1).VALUE IS NULL THEN
2000: okl_api.set_message(p_app_name => G_APP_NAME,
2001: p_msg_name => G_NO_SETUP_TAX_BOOK,
2002: p_token1 => 'TAX_BOOK',
2003: p_token1_value => lt_tax_book_value_tbl(j).tax_book);
2004: x_return_status := OKL_API.G_RET_STS_ERROR;
2000: okl_api.set_message(p_app_name => G_APP_NAME,
2001: p_msg_name => G_NO_SETUP_TAX_BOOK,
2002: p_token1 => 'TAX_BOOK',
2003: p_token1_value => lt_tax_book_value_tbl(j).tax_book);
2004: x_return_status := OKL_API.G_RET_STS_ERROR;
2005: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_ERROR);
2006: END IF;
2007: END LOOP;
2008: ELSE
2001: p_msg_name => G_NO_SETUP_TAX_BOOK,
2002: p_token1 => 'TAX_BOOK',
2003: p_token1_value => lt_tax_book_value_tbl(j).tax_book);
2004: x_return_status := OKL_API.G_RET_STS_ERROR;
2005: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_ERROR);
2006: END IF;
2007: END LOOP;
2008: ELSE
2009: x_fed_only := 'N';
2009: x_fed_only := 'N';
2010: x_fed_only_tax_book := NULL;
2011: RETURN x_return_status;
2012: END IF;
2013: IF x_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
2014: RAISE g_process_error;
2015: END IF;
2016: RETURN x_return_status;
2017: EXCEPTION
2021: END IF;
2022: IF l_txd_csr%ISOPEN THEN
2023: CLOSE l_txd_csr;
2024: END IF;
2025: x_return_status := OKL_API.G_RET_STS_ERROR;
2026: RETURN x_return_status;
2027: WHEN OTHERS THEN
2028: IF l_txtrans_csr%ISOPEN THEN
2029: CLOSE l_txtrans_csr;
2030: END IF;
2031: IF l_txd_csr%ISOPEN THEN
2032: CLOSE l_txd_csr;
2033: END IF;
2034: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
2035: p_msg_name => G_DB_ERROR,
2036: p_token1 => G_PROG_NAME_TOKEN,
2037: p_token1_value => l_prog_name,
2038: p_token2 => G_SQLCODE_TOKEN,
2038: p_token2 => G_SQLCODE_TOKEN,
2039: p_token2_value => sqlcode,
2040: p_token3 => G_SQLERRM_TOKEN,
2041: p_token3_value => sqlerrm);
2042: x_return_status := OKL_API.G_RET_STS_ERROR;
2043: RETURN x_return_status;
2044: END validate_txd_tax_book;
2045: -------------------------------------------------------------------------------------------------
2046: -- Start modification 11i10 bakuchib
2064: p_corp_book IN VARCHAR2,
2065: x_mg_tax_yn OUT NOCOPY VARCHAR2)
2066: RETURN VARCHAR2 IS
2067: l_prog_name VARCHAR2(100) := 'IS_REP_PDT';
2068: x_return_status VARCHAR2(3) := OKL_API.G_RET_STS_SUCCESS;
2069: lv_mg_tax_yn VARCHAR2(3) := 'N';
2070: /*
2071: CURSOR get_rep_tax_csr(p_asset_number okl_txd_assets_b.asset_number%TYPE)
2072: IS
2096: WHEN OTHERS THEN
2097: IF get_rep_tax_csr%ISOPEN THEN
2098: CLOSE get_rep_tax_csr;
2099: END IF;
2100: x_return_status := OKL_API.G_RET_STS_ERROR;
2101: RETURN x_return_status;
2102: END is_rep_pdt;
2103: -------------------------------------------------------------------------------------------------
2104: -- Start of Commnets
2155: AND cle.lse_id = lse.id
2156: AND cle.sts_code = 'TERMINATED'
2157: AND lse.lty_code = 'FREE_FORM1');
2158: BEGIN
2159: x_return_status := OKL_API.G_RET_STS_SUCCESS;
2160: -- Call start_activity to create savepoint, check compatibility
2161: -- and initialize message list
2162: x_return_status := OKL_API.START_ACTIVITY (
2163: l_api_name
2158: BEGIN
2159: x_return_status := OKL_API.G_RET_STS_SUCCESS;
2160: -- Call start_activity to create savepoint, check compatibility
2161: -- and initialize message list
2162: x_return_status := OKL_API.START_ACTIVITY (
2163: l_api_name
2164: ,p_init_msg_list
2165: ,'_PVT'
2166: ,x_return_status);
2164: ,p_init_msg_list
2165: ,'_PVT'
2166: ,x_return_status);
2167: -- Check if activity started successfully
2168: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2169: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2170: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2171: RAISE OKL_API.G_EXCEPTION_ERROR;
2172: END IF;
2165: ,'_PVT'
2166: ,x_return_status);
2167: -- Check if activity started successfully
2168: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2169: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2170: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2171: RAISE OKL_API.G_EXCEPTION_ERROR;
2172: END IF;
2173: IF (p_contract_id IS NOT NULL OR
2166: ,x_return_status);
2167: -- Check if activity started successfully
2168: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2169: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2170: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2171: RAISE OKL_API.G_EXCEPTION_ERROR;
2172: END IF;
2173: IF (p_contract_id IS NOT NULL OR
2174: p_contract_id <> okl_api.g_miss_num) AND
2167: -- Check if activity started successfully
2168: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2169: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2170: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2171: RAISE OKL_API.G_EXCEPTION_ERROR;
2172: END IF;
2173: IF (p_contract_id IS NOT NULL OR
2174: p_contract_id <> okl_api.g_miss_num) AND
2175: (p_line_id IS NULL OR
2170: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2171: RAISE OKL_API.G_EXCEPTION_ERROR;
2172: END IF;
2173: IF (p_contract_id IS NOT NULL OR
2174: p_contract_id <> okl_api.g_miss_num) AND
2175: (p_line_id IS NULL OR
2176: p_line_id = okl_api.g_miss_num) THEN
2177: OPEN l_hdr_ter_csr(p_chr_id => p_contract_id);
2178: FETCH l_hdr_ter_csr INTO lv_hdr_ter;
2172: END IF;
2173: IF (p_contract_id IS NOT NULL OR
2174: p_contract_id <> okl_api.g_miss_num) AND
2175: (p_line_id IS NULL OR
2176: p_line_id = okl_api.g_miss_num) THEN
2177: OPEN l_hdr_ter_csr(p_chr_id => p_contract_id);
2178: FETCH l_hdr_ter_csr INTO lv_hdr_ter;
2179: CLOSE l_hdr_ter_csr;
2180: IF lv_hdr_ter = 'Y' THEN
2193: p_contract_id => p_contract_id,
2194: p_line_id => NULL,
2195: p_additional_parameters => l_additional_parameters,
2196: x_value => x_value);
2197: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2198: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2199: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2200: RAISE OKL_API.G_EXCEPTION_ERROR;
2201: END IF;
2194: p_line_id => NULL,
2195: p_additional_parameters => l_additional_parameters,
2196: x_value => x_value);
2197: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2198: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2199: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2200: RAISE OKL_API.G_EXCEPTION_ERROR;
2201: END IF;
2202: -- We need to set the global formula addtional parameter to Y and reset the
2195: p_additional_parameters => l_additional_parameters,
2196: x_value => x_value);
2197: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2198: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2199: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2200: RAISE OKL_API.G_EXCEPTION_ERROR;
2201: END IF;
2202: -- We need to set the global formula addtional parameter to Y and reset the
2203: -- same to N after using the formula since we need to consider TERMINATED lines
2196: x_value => x_value);
2197: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2198: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2199: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2200: RAISE OKL_API.G_EXCEPTION_ERROR;
2201: END IF;
2202: -- We need to set the global formula addtional parameter to Y and reset the
2203: -- same to N after using the formula since we need to consider TERMINATED lines
2204: l_additional_parameters.delete;
2212: p_formula_name => p_formula_name,
2213: p_contract_id => p_contract_id,
2214: p_line_id => NULL,
2215: x_value => x_value);
2216: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2217: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2218: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2219: RAISE OKL_API.G_EXCEPTION_ERROR;
2220: END IF;
2213: p_contract_id => p_contract_id,
2214: p_line_id => NULL,
2215: x_value => x_value);
2216: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2217: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2218: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2219: RAISE OKL_API.G_EXCEPTION_ERROR;
2220: END IF;
2221: END IF;
2214: p_line_id => NULL,
2215: x_value => x_value);
2216: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2217: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2218: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2219: RAISE OKL_API.G_EXCEPTION_ERROR;
2220: END IF;
2221: END IF;
2222: ELSIF (p_contract_id IS NOT NULL OR
2215: x_value => x_value);
2216: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2217: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2218: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2219: RAISE OKL_API.G_EXCEPTION_ERROR;
2220: END IF;
2221: END IF;
2222: ELSIF (p_contract_id IS NOT NULL OR
2223: p_contract_id <> okl_api.g_miss_num) AND
2219: RAISE OKL_API.G_EXCEPTION_ERROR;
2220: END IF;
2221: END IF;
2222: ELSIF (p_contract_id IS NOT NULL OR
2223: p_contract_id <> okl_api.g_miss_num) AND
2224: (p_line_id IS NOT NULL OR
2225: p_line_id <> okl_api.g_miss_num) THEN
2226: OPEN l_lne_ter_csr(p_chr_id => p_contract_id,
2227: p_cle_id => p_line_id);
2221: END IF;
2222: ELSIF (p_contract_id IS NOT NULL OR
2223: p_contract_id <> okl_api.g_miss_num) AND
2224: (p_line_id IS NOT NULL OR
2225: p_line_id <> okl_api.g_miss_num) THEN
2226: OPEN l_lne_ter_csr(p_chr_id => p_contract_id,
2227: p_cle_id => p_line_id);
2228: FETCH l_lne_ter_csr INTO lv_lne_ter;
2229: CLOSE l_lne_ter_csr;
2243: p_contract_id => p_contract_id,
2244: p_line_id => p_line_id,
2245: p_additional_parameters => l_additional_parameters,
2246: x_value => x_value);
2247: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2248: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2249: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2250: RAISE OKL_API.G_EXCEPTION_ERROR;
2251: END IF;
2244: p_line_id => p_line_id,
2245: p_additional_parameters => l_additional_parameters,
2246: x_value => x_value);
2247: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2248: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2249: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2250: RAISE OKL_API.G_EXCEPTION_ERROR;
2251: END IF;
2252: -- We need to set the global formula addtional parameter to Y and reset the
2245: p_additional_parameters => l_additional_parameters,
2246: x_value => x_value);
2247: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2248: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2249: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2250: RAISE OKL_API.G_EXCEPTION_ERROR;
2251: END IF;
2252: -- We need to set the global formula addtional parameter to Y and reset the
2253: -- same to N after using the formula since we need to consider TERMINATED lines
2246: x_value => x_value);
2247: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2248: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2249: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2250: RAISE OKL_API.G_EXCEPTION_ERROR;
2251: END IF;
2252: -- We need to set the global formula addtional parameter to Y and reset the
2253: -- same to N after using the formula since we need to consider TERMINATED lines
2254: l_additional_parameters.delete;
2262: p_formula_name => p_formula_name,
2263: p_contract_id => p_contract_id,
2264: p_line_id => p_line_id,
2265: x_value => x_value);
2266: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2267: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2268: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2269: RAISE OKL_API.G_EXCEPTION_ERROR;
2270: END IF;
2263: p_contract_id => p_contract_id,
2264: p_line_id => p_line_id,
2265: x_value => x_value);
2266: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2267: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2268: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2269: RAISE OKL_API.G_EXCEPTION_ERROR;
2270: END IF;
2271: END IF;
2264: p_line_id => p_line_id,
2265: x_value => x_value);
2266: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2267: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2268: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2269: RAISE OKL_API.G_EXCEPTION_ERROR;
2270: END IF;
2271: END IF;
2272: ELSE
2265: x_value => x_value);
2266: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2267: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2268: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2269: RAISE OKL_API.G_EXCEPTION_ERROR;
2270: END IF;
2271: END IF;
2272: ELSE
2273: okl_api.set_message(p_app_name => G_APP_NAME,
2269: RAISE OKL_API.G_EXCEPTION_ERROR;
2270: END IF;
2271: END IF;
2272: ELSE
2273: okl_api.set_message(p_app_name => G_APP_NAME,
2274: p_msg_name => G_REQUIRED_VALUE,
2275: p_token1 => G_COL_NAME_TOKEN,
2276: p_token1_value => 'Stub days, Periods');
2277: x_return_status := okl_api.g_ret_sts_error;
2273: okl_api.set_message(p_app_name => G_APP_NAME,
2274: p_msg_name => G_REQUIRED_VALUE,
2275: p_token1 => G_COL_NAME_TOKEN,
2276: p_token1_value => 'Stub days, Periods');
2277: x_return_status := okl_api.g_ret_sts_error;
2278: RAISE OKL_API.G_EXCEPTION_ERROR;
2279: END IF;
2280: OKL_API.END_ACTIVITY (x_msg_count,
2281: x_msg_data );
2274: p_msg_name => G_REQUIRED_VALUE,
2275: p_token1 => G_COL_NAME_TOKEN,
2276: p_token1_value => 'Stub days, Periods');
2277: x_return_status := okl_api.g_ret_sts_error;
2278: RAISE OKL_API.G_EXCEPTION_ERROR;
2279: END IF;
2280: OKL_API.END_ACTIVITY (x_msg_count,
2281: x_msg_data );
2282: EXCEPTION
2276: p_token1_value => 'Stub days, Periods');
2277: x_return_status := okl_api.g_ret_sts_error;
2278: RAISE OKL_API.G_EXCEPTION_ERROR;
2279: END IF;
2280: OKL_API.END_ACTIVITY (x_msg_count,
2281: x_msg_data );
2282: EXCEPTION
2283: WHEN OKL_API.G_EXCEPTION_ERROR then
2284: IF l_hdr_ter_csr%ISOPEN THEN
2279: END IF;
2280: OKL_API.END_ACTIVITY (x_msg_count,
2281: x_msg_data );
2282: EXCEPTION
2283: WHEN OKL_API.G_EXCEPTION_ERROR then
2284: IF l_hdr_ter_csr%ISOPEN THEN
2285: CLOSE l_hdr_ter_csr;
2286: END IF;
2287: IF l_lne_ter_csr%ISOPEN THEN
2286: END IF;
2287: IF l_lne_ter_csr%ISOPEN THEN
2288: CLOSE l_lne_ter_csr;
2289: END IF;
2290: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
2291: l_api_name,
2292: G_PKG_NAME,
2293: 'OKL_API.G_RET_STS_ERROR',
2294: x_msg_count,
2289: END IF;
2290: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
2291: l_api_name,
2292: G_PKG_NAME,
2293: 'OKL_API.G_RET_STS_ERROR',
2294: x_msg_count,
2295: x_msg_data,
2296: '_PVT');
2297: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
2293: 'OKL_API.G_RET_STS_ERROR',
2294: x_msg_count,
2295: x_msg_data,
2296: '_PVT');
2297: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
2298: IF l_hdr_ter_csr%ISOPEN THEN
2299: CLOSE l_hdr_ter_csr;
2300: END IF;
2301: IF l_lne_ter_csr%ISOPEN THEN
2300: END IF;
2301: IF l_lne_ter_csr%ISOPEN THEN
2302: CLOSE l_lne_ter_csr;
2303: END IF;
2304: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
2305: l_api_name,
2306: G_PKG_NAME,
2307: 'OKL_API.G_RET_STS_UNEXP_ERROR',
2308: x_msg_count,
2303: END IF;
2304: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
2305: l_api_name,
2306: G_PKG_NAME,
2307: 'OKL_API.G_RET_STS_UNEXP_ERROR',
2308: x_msg_count,
2309: x_msg_data,
2310: '_PVT');
2311: WHEN OTHERS then
2314: END IF;
2315: IF l_lne_ter_csr%ISOPEN THEN
2316: CLOSE l_lne_ter_csr;
2317: END IF;
2318: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
2319: l_api_name,
2320: G_PKG_NAME,
2321: 'OTHERS',
2322: x_msg_count,
2346: m NUMBER := 0;
2347: n NUMBER := 0;
2348: ld_start_date OKC_K_HEADERS_B.START_DATE%TYPE;
2349: g_process_error EXCEPTION;
2350: x_return_status VARCHAR2(3) := OKL_API.G_RET_STS_SUCCESS;
2351: -- Cursor to get the Start of the contract
2352: -- To compare the date Start of the table of Records
2353: CURSOR c_start_date_khr_csr(p_khr_id OKC_K_HEADERS_B.ID%TYPE)
2354: IS
2366: AND cle.lse_id = lse.id
2367: AND lse.lty_code = 'FEE';
2368: BEGIN
2369: IF p_khr_id IS NOT NULL OR
2370: p_khr_id <> OKL_API.G_MISS_NUM THEN
2371: -- Cursor to get the Start of the contract
2372: -- To compare the date Start of the table of Records
2373: OPEN c_start_date_khr_csr(p_khr_id => p_khr_id);
2374: FETCH c_start_date_khr_csr INTO ld_start_date;
2385: FOR i IN l_csm_perd_exp_tbl.FIRST..l_csm_perd_exp_tbl.LAST LOOP
2386: IF l_csm_perd_exp_tbl(i).kle_fee_id = r_fee_line_csr.id AND
2387: l_csm_perd_exp_tbl(i).level_index_number = 1 AND
2388: (ld_start_date IS NOT NULL OR
2389: ld_start_date <> OKL_API.G_MISS_DATE) AND
2390: l_csm_perd_exp_tbl(i).date_start <> ld_start_date THEN
2391: m_csm_perd_exp_tbl(i) := l_csm_perd_exp_tbl(i);
2392: END IF;
2393: END LOOP;
2433: FOR i IN l_csm_perd_exp_tbl.FIRST..l_csm_perd_exp_tbl.LAST LOOP
2434: IF l_csm_perd_exp_tbl(i).kle_fee_id = r_fee_line_csr.id AND
2435: l_csm_perd_exp_tbl(i).level_index_number = n AND
2436: (ld_start_date IS NOT NULL OR
2437: ld_start_date <> OKL_API.G_MISS_DATE) AND
2438: l_csm_perd_exp_tbl(i).date_start <> ld_start_date THEN
2439: n := n + 1;
2440: l_csm_perd_exp_tbl(i).level_index_number := n;
2441: END IF;
2455: END IF;
2456: IF c_fee_line_csr%ISOPEN THEN
2457: CLOSE c_fee_line_csr;
2458: END IF;
2459: x_return_status := OKL_API.G_RET_STS_ERROR;
2460: RETURN x_return_status;
2461: WHEN OTHERS THEN
2462: IF c_start_date_khr_csr%ISOPEN THEN
2463: CLOSE c_start_date_khr_csr;
2464: END IF;
2465: IF c_fee_line_csr%ISOPEN THEN
2466: CLOSE c_fee_line_csr;
2467: END IF;
2468: x_return_status := OKL_API.G_RET_STS_ERROR;
2469: RETURN x_return_status;
2470: END append_perd_exp_tbl;
2471: -- End modification 11i9 bakuchib
2472: PROCEDURE delete_working_streams(
2470: END append_perd_exp_tbl;
2471: -- End modification 11i9 bakuchib
2472: PROCEDURE delete_working_streams(
2473: p_api_version IN NUMBER,
2474: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
2475: x_return_status OUT NOCOPY VARCHAR2,
2476: x_msg_count OUT NOCOPY NUMBER,
2477: x_msg_data OUT NOCOPY VARCHAR2,
2478: p_chr_id IN NUMBER) AS
2476: x_msg_count OUT NOCOPY NUMBER,
2477: x_msg_data OUT NOCOPY VARCHAR2,
2478: p_chr_id IN NUMBER) AS
2479: l_api_name CONSTANT VARCHAR2(30) := 'DELETE_WKG_STRMS';
2480: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2481: l_api_version NUMBER := 1.0;
2482:
2483: l_stmv_tbl okl_streams_pub.stmv_tbl_type;
2484: x_stmv_tbl okl_streams_pub.stmv_tbl_type;
2489:
2490: Begin
2491:
2492: print( l_api_name, 'begin');
2493: l_return_status := OKL_API.START_ACTIVITY(
2494: p_api_name => l_api_name,
2495: p_pkg_name => g_pkg_name,
2496: p_init_msg_list => p_init_msg_list,
2497: l_api_version => l_api_version,
2499: p_api_type => G_API_TYPE,
2500: x_return_status => x_return_status);
2501:
2502: -- check if activity started successfully
2503: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
2504: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2505: ElSIF (l_return_status = OKL_API.G_RET_STS_ERROR) then
2506: raise OKL_API.G_EXCEPTION_ERROR;
2507: End If;
2500: x_return_status => x_return_status);
2501:
2502: -- check if activity started successfully
2503: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
2504: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2505: ElSIF (l_return_status = OKL_API.G_RET_STS_ERROR) then
2506: raise OKL_API.G_EXCEPTION_ERROR;
2507: End If;
2508:
2501:
2502: -- check if activity started successfully
2503: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
2504: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2505: ElSIF (l_return_status = OKL_API.G_RET_STS_ERROR) then
2506: raise OKL_API.G_EXCEPTION_ERROR;
2507: End If;
2508:
2509: i := 0;
2502: -- check if activity started successfully
2503: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
2504: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2505: ElSIF (l_return_status = OKL_API.G_RET_STS_ERROR) then
2506: raise OKL_API.G_EXCEPTION_ERROR;
2507: End If;
2508:
2509: i := 0;
2510: FOR l_strms_orig_rec in strms_csr ( p_chr_id, 'WORK', 'ORIGIN')
2541: x_msg_count => x_msg_count,
2542: x_msg_data => x_msg_data,
2543: p_stmv_tbl => l_stmv_tbl);
2544:
2545: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2546: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2547: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2548: RAISE OKL_API.G_EXCEPTION_ERROR;
2549: END IF;
2542: x_msg_data => x_msg_data,
2543: p_stmv_tbl => l_stmv_tbl);
2544:
2545: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2546: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2547: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2548: RAISE OKL_API.G_EXCEPTION_ERROR;
2549: END IF;
2550:
2543: p_stmv_tbl => l_stmv_tbl);
2544:
2545: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2546: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2547: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2548: RAISE OKL_API.G_EXCEPTION_ERROR;
2549: END IF;
2550:
2551: End If;
2544:
2545: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2546: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2547: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2548: RAISE OKL_API.G_EXCEPTION_ERROR;
2549: END IF;
2550:
2551: End If;
2552:
2551: End If;
2552:
2553: print( l_api_name, 'end');
2554: EXCEPTION
2555: when OKL_API.G_EXCEPTION_ERROR then
2556: l_return_status := OKL_API.HANDLE_EXCEPTIONS(
2557: p_api_name => l_api_name,
2558: p_pkg_name => g_pkg_name,
2559: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
2552:
2553: print( l_api_name, 'end');
2554: EXCEPTION
2555: when OKL_API.G_EXCEPTION_ERROR then
2556: l_return_status := OKL_API.HANDLE_EXCEPTIONS(
2557: p_api_name => l_api_name,
2558: p_pkg_name => g_pkg_name,
2559: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
2560: x_msg_count => x_msg_count,
2555: when OKL_API.G_EXCEPTION_ERROR then
2556: l_return_status := OKL_API.HANDLE_EXCEPTIONS(
2557: p_api_name => l_api_name,
2558: p_pkg_name => g_pkg_name,
2559: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
2560: x_msg_count => x_msg_count,
2561: x_msg_data => x_msg_data,
2562: p_api_type => g_api_type);
2563: x_return_status := l_return_status;
2561: x_msg_data => x_msg_data,
2562: p_api_type => g_api_type);
2563: x_return_status := l_return_status;
2564:
2565: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
2566: l_return_status := OKL_API.HANDLE_EXCEPTIONS(
2567: p_api_name => l_api_name,
2568: p_pkg_name => g_pkg_name,
2569: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
2562: p_api_type => g_api_type);
2563: x_return_status := l_return_status;
2564:
2565: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
2566: l_return_status := OKL_API.HANDLE_EXCEPTIONS(
2567: p_api_name => l_api_name,
2568: p_pkg_name => g_pkg_name,
2569: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
2570: x_msg_count => x_msg_count,
2565: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
2566: l_return_status := OKL_API.HANDLE_EXCEPTIONS(
2567: p_api_name => l_api_name,
2568: p_pkg_name => g_pkg_name,
2569: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
2570: x_msg_count => x_msg_count,
2571: x_msg_data => x_msg_data,
2572: p_api_type => g_api_type);
2573: x_return_status := l_return_status;
2572: p_api_type => g_api_type);
2573: x_return_status := l_return_status;
2574:
2575: when OTHERS then
2576: l_return_status := OKL_API.HANDLE_EXCEPTIONS(
2577: p_api_name => l_api_name,
2578: p_pkg_name => g_pkg_name,
2579: p_exc_name => 'OTHERS',
2580: x_msg_count => x_msg_count,
2590: ---------------------------------------------------------------------------------------------
2591:
2592: PROCEDURE adjust_passthrough_streams(
2593: p_api_version IN NUMBER,
2594: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
2595: x_return_status OUT NOCOPY VARCHAR2,
2596: x_msg_count OUT NOCOPY NUMBER,
2597: x_msg_data OUT NOCOPY VARCHAR2,
2598: p_chr_id IN VARCHAR2,
2742: l_old_styId NUMBER;
2743: --end djanaswa
2744:
2745: BEGIN
2746: x_return_status := OKL_API.G_RET_STS_SUCCESS;
2747: -- Call start_activity to create savepoint, check compatibility
2748: -- and initialize message list
2749: x_return_status := OKL_API.START_ACTIVITY (
2750: l_api_name
2745: BEGIN
2746: x_return_status := OKL_API.G_RET_STS_SUCCESS;
2747: -- Call start_activity to create savepoint, check compatibility
2748: -- and initialize message list
2749: x_return_status := OKL_API.START_ACTIVITY (
2750: l_api_name
2751: ,p_init_msg_list
2752: ,'_PVT'
2753: ,x_return_status);
2751: ,p_init_msg_list
2752: ,'_PVT'
2753: ,x_return_status);
2754: -- Check if activity started successfully
2755: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2756: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2757: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2758: RAISE OKL_API.G_EXCEPTION_ERROR;
2759: END IF;
2752: ,'_PVT'
2753: ,x_return_status);
2754: -- Check if activity started successfully
2755: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2756: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2757: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2758: RAISE OKL_API.G_EXCEPTION_ERROR;
2759: END IF;
2760: OPEN l_stmp_yn_csr( TO_NUMBER(p_chr_id), p_purpose);
2753: ,x_return_status);
2754: -- Check if activity started successfully
2755: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2756: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2757: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2758: RAISE OKL_API.G_EXCEPTION_ERROR;
2759: END IF;
2760: OPEN l_stmp_yn_csr( TO_NUMBER(p_chr_id), p_purpose);
2761: FETCH l_stmp_yn_csr INTO l_stmp_yn_rec;
2754: -- Check if activity started successfully
2755: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2756: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2757: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2758: RAISE OKL_API.G_EXCEPTION_ERROR;
2759: END IF;
2760: OPEN l_stmp_yn_csr( TO_NUMBER(p_chr_id), p_purpose);
2761: FETCH l_stmp_yn_csr INTO l_stmp_yn_rec;
2762: CLOSE l_stmp_yn_csr;
2784: p_init_msg_list => p_init_msg_list,
2785: x_msg_count => x_msg_count,
2786: x_msg_data => x_msg_data,
2787: p_stmv_tbl => l_stmv_tbl);
2788: IF x_return_status = okl_api.g_ret_sts_unexp_error THEN
2789: EXIT WHEN (x_return_status = okl_api.g_ret_sts_unexp_error);
2790: ELSIF x_return_status = okl_api.g_ret_sts_error THEN
2791: EXIT WHEN (x_return_status = okl_api.g_ret_sts_error);
2792: END IF;
2785: x_msg_count => x_msg_count,
2786: x_msg_data => x_msg_data,
2787: p_stmv_tbl => l_stmv_tbl);
2788: IF x_return_status = okl_api.g_ret_sts_unexp_error THEN
2789: EXIT WHEN (x_return_status = okl_api.g_ret_sts_unexp_error);
2790: ELSIF x_return_status = okl_api.g_ret_sts_error THEN
2791: EXIT WHEN (x_return_status = okl_api.g_ret_sts_error);
2792: END IF;
2793: END IF;
2786: x_msg_data => x_msg_data,
2787: p_stmv_tbl => l_stmv_tbl);
2788: IF x_return_status = okl_api.g_ret_sts_unexp_error THEN
2789: EXIT WHEN (x_return_status = okl_api.g_ret_sts_unexp_error);
2790: ELSIF x_return_status = okl_api.g_ret_sts_error THEN
2791: EXIT WHEN (x_return_status = okl_api.g_ret_sts_error);
2792: END IF;
2793: END IF;
2794: */
2787: p_stmv_tbl => l_stmv_tbl);
2788: IF x_return_status = okl_api.g_ret_sts_unexp_error THEN
2789: EXIT WHEN (x_return_status = okl_api.g_ret_sts_unexp_error);
2790: ELSIF x_return_status = okl_api.g_ret_sts_error THEN
2791: EXIT WHEN (x_return_status = okl_api.g_ret_sts_error);
2792: END IF;
2793: END IF;
2794: */
2795:
2835: x_msg_count => x_msg_count,
2836: x_msg_data => x_msg_data,
2837: p_recurrence_date => l_recurrence_date);
2838: -- gboomina Bug 4746368 - End
2839: IF x_return_status = okl_api.g_ret_sts_unexp_error THEN
2840: EXIT WHEN (x_return_status = okl_api.g_ret_sts_unexp_error);
2841: ELSIF x_return_status = okl_api.g_ret_sts_error THEN
2842: EXIT WHEN (x_return_status = okl_api.g_ret_sts_error);
2843: END IF;
2836: x_msg_data => x_msg_data,
2837: p_recurrence_date => l_recurrence_date);
2838: -- gboomina Bug 4746368 - End
2839: IF x_return_status = okl_api.g_ret_sts_unexp_error THEN
2840: EXIT WHEN (x_return_status = okl_api.g_ret_sts_unexp_error);
2841: ELSIF x_return_status = okl_api.g_ret_sts_error THEN
2842: EXIT WHEN (x_return_status = okl_api.g_ret_sts_error);
2843: END IF;
2844: --srsreeni Bug 5917582 start
2837: p_recurrence_date => l_recurrence_date);
2838: -- gboomina Bug 4746368 - End
2839: IF x_return_status = okl_api.g_ret_sts_unexp_error THEN
2840: EXIT WHEN (x_return_status = okl_api.g_ret_sts_unexp_error);
2841: ELSIF x_return_status = okl_api.g_ret_sts_error THEN
2842: EXIT WHEN (x_return_status = okl_api.g_ret_sts_error);
2843: END IF;
2844: --srsreeni Bug 5917582 start
2845: -- consolidation of tables used for:
2838: -- gboomina Bug 4746368 - End
2839: IF x_return_status = okl_api.g_ret_sts_unexp_error THEN
2840: EXIT WHEN (x_return_status = okl_api.g_ret_sts_unexp_error);
2841: ELSIF x_return_status = okl_api.g_ret_sts_error THEN
2842: EXIT WHEN (x_return_status = okl_api.g_ret_sts_error);
2843: END IF;
2844: --srsreeni Bug 5917582 start
2845: -- consolidation of tables used for:
2846: -- passthrough expense accrual
2886: p_sty_id => l_inflow.sty_id,
2887: p_purpose_code => l_purpose_code,
2888: x_stmv_rec => l_stmv_rec,
2889: x_return_status => x_return_status);
2890: IF x_return_status = okl_api.g_ret_sts_unexp_error THEN
2891: EXIT WHEN (x_return_status = okl_api.g_ret_sts_unexp_error);
2892: ELSIF x_return_status = okl_api.g_ret_sts_error THEN
2893: EXIT WHEN (x_return_status = okl_api.g_ret_sts_error);
2894: END IF;
2887: p_purpose_code => l_purpose_code,
2888: x_stmv_rec => l_stmv_rec,
2889: x_return_status => x_return_status);
2890: IF x_return_status = okl_api.g_ret_sts_unexp_error THEN
2891: EXIT WHEN (x_return_status = okl_api.g_ret_sts_unexp_error);
2892: ELSIF x_return_status = okl_api.g_ret_sts_error THEN
2893: EXIT WHEN (x_return_status = okl_api.g_ret_sts_error);
2894: END IF;
2895: --l_stmv_rec.say_code := 'CURR';
2888: x_stmv_rec => l_stmv_rec,
2889: x_return_status => x_return_status);
2890: IF x_return_status = okl_api.g_ret_sts_unexp_error THEN
2891: EXIT WHEN (x_return_status = okl_api.g_ret_sts_unexp_error);
2892: ELSIF x_return_status = okl_api.g_ret_sts_error THEN
2893: EXIT WHEN (x_return_status = okl_api.g_ret_sts_error);
2894: END IF;
2895: --l_stmv_rec.say_code := 'CURR';
2896: l_stmv_rec.say_code := 'WORK';
2889: x_return_status => x_return_status);
2890: IF x_return_status = okl_api.g_ret_sts_unexp_error THEN
2891: EXIT WHEN (x_return_status = okl_api.g_ret_sts_unexp_error);
2892: ELSIF x_return_status = okl_api.g_ret_sts_error THEN
2893: EXIT WHEN (x_return_status = okl_api.g_ret_sts_error);
2894: END IF;
2895: --l_stmv_rec.say_code := 'CURR';
2896: l_stmv_rec.say_code := 'WORK';
2897: l_stmv_rec.active_yn := 'Y';
2907: p_stmv_rec => l_stmv_rec,
2908: p_selv_tbl => l_selv_tbl,
2909: x_stmv_rec => lx_stmv_rec,
2910: x_selv_tbl => lx_selv_tbl);
2911: IF x_return_status = okl_api.g_ret_sts_unexp_error THEN
2912: EXIT WHEN (x_return_status = okl_api.g_ret_sts_unexp_error);
2913: ELSIF x_return_status = okl_api.g_ret_sts_error THEN
2914: EXIT WHEN (x_return_status = okl_api.g_ret_sts_error);
2915: END IF;
2908: p_selv_tbl => l_selv_tbl,
2909: x_stmv_rec => lx_stmv_rec,
2910: x_selv_tbl => lx_selv_tbl);
2911: IF x_return_status = okl_api.g_ret_sts_unexp_error THEN
2912: EXIT WHEN (x_return_status = okl_api.g_ret_sts_unexp_error);
2913: ELSIF x_return_status = okl_api.g_ret_sts_error THEN
2914: EXIT WHEN (x_return_status = okl_api.g_ret_sts_error);
2915: END IF;
2916: END IF;
2909: x_stmv_rec => lx_stmv_rec,
2910: x_selv_tbl => lx_selv_tbl);
2911: IF x_return_status = okl_api.g_ret_sts_unexp_error THEN
2912: EXIT WHEN (x_return_status = okl_api.g_ret_sts_unexp_error);
2913: ELSIF x_return_status = okl_api.g_ret_sts_error THEN
2914: EXIT WHEN (x_return_status = okl_api.g_ret_sts_error);
2915: END IF;
2916: END IF;
2917: --Bug 5029161 - End of Changes
2910: x_selv_tbl => lx_selv_tbl);
2911: IF x_return_status = okl_api.g_ret_sts_unexp_error THEN
2912: EXIT WHEN (x_return_status = okl_api.g_ret_sts_unexp_error);
2913: ELSIF x_return_status = okl_api.g_ret_sts_error THEN
2914: EXIT WHEN (x_return_status = okl_api.g_ret_sts_error);
2915: END IF;
2916: END IF;
2917: --Bug 5029161 - End of Changes
2918: --srsreeni bug 5869271 start
2937: ,x_msg_count => x_msg_count
2938: ,x_msg_data => x_msg_data
2939: ,p_selv_tbl => l_selv_tbl
2940: ,x_selv_tbl => lx_selv_tbl);
2941: IF x_return_status = okl_api.g_ret_sts_unexp_error THEN
2942: EXIT WHEN (x_return_status = okl_api.g_ret_sts_unexp_error);
2943: ELSIF x_return_status = okl_api.g_ret_sts_error THEN
2944: EXIT WHEN (x_return_status = okl_api.g_ret_sts_error);
2945: END IF;
2938: ,x_msg_data => x_msg_data
2939: ,p_selv_tbl => l_selv_tbl
2940: ,x_selv_tbl => lx_selv_tbl);
2941: IF x_return_status = okl_api.g_ret_sts_unexp_error THEN
2942: EXIT WHEN (x_return_status = okl_api.g_ret_sts_unexp_error);
2943: ELSIF x_return_status = okl_api.g_ret_sts_error THEN
2944: EXIT WHEN (x_return_status = okl_api.g_ret_sts_error);
2945: END IF;
2946: END IF;
2939: ,p_selv_tbl => l_selv_tbl
2940: ,x_selv_tbl => lx_selv_tbl);
2941: IF x_return_status = okl_api.g_ret_sts_unexp_error THEN
2942: EXIT WHEN (x_return_status = okl_api.g_ret_sts_unexp_error);
2943: ELSIF x_return_status = okl_api.g_ret_sts_error THEN
2944: EXIT WHEN (x_return_status = okl_api.g_ret_sts_error);
2945: END IF;
2946: END IF;
2947: END IF;
2940: ,x_selv_tbl => lx_selv_tbl);
2941: IF x_return_status = okl_api.g_ret_sts_unexp_error THEN
2942: EXIT WHEN (x_return_status = okl_api.g_ret_sts_unexp_error);
2943: ELSIF x_return_status = okl_api.g_ret_sts_error THEN
2944: EXIT WHEN (x_return_status = okl_api.g_ret_sts_error);
2945: END IF;
2946: END IF;
2947: END IF;
2948: --srsreeni bug 5869271 end
2962: --srsreeni Bug 5917582 end
2963: p_currency_code => l_hdr.currency_code,
2964: x_selv_tbl => l_selv_tbl,
2965: x_return_status => x_return_status);
2966: IF x_return_status = okl_api.g_ret_sts_unexp_error THEN
2967: EXIT WHEN (x_return_status = okl_api.g_ret_sts_unexp_error);
2968: ELSIF x_return_status = okl_api.g_ret_sts_error THEN
2969: EXIT WHEN (x_return_status = okl_api.g_ret_sts_error);
2970: END IF;
2963: p_currency_code => l_hdr.currency_code,
2964: x_selv_tbl => l_selv_tbl,
2965: x_return_status => x_return_status);
2966: IF x_return_status = okl_api.g_ret_sts_unexp_error THEN
2967: EXIT WHEN (x_return_status = okl_api.g_ret_sts_unexp_error);
2968: ELSIF x_return_status = okl_api.g_ret_sts_error THEN
2969: EXIT WHEN (x_return_status = okl_api.g_ret_sts_error);
2970: END IF;
2971:
2964: x_selv_tbl => l_selv_tbl,
2965: x_return_status => x_return_status);
2966: IF x_return_status = okl_api.g_ret_sts_unexp_error THEN
2967: EXIT WHEN (x_return_status = okl_api.g_ret_sts_unexp_error);
2968: ELSIF x_return_status = okl_api.g_ret_sts_error THEN
2969: EXIT WHEN (x_return_status = okl_api.g_ret_sts_error);
2970: END IF;
2971:
2972: --srsreeni bug 5869271 start add
2965: x_return_status => x_return_status);
2966: IF x_return_status = okl_api.g_ret_sts_unexp_error THEN
2967: EXIT WHEN (x_return_status = okl_api.g_ret_sts_unexp_error);
2968: ELSIF x_return_status = okl_api.g_ret_sts_error THEN
2969: EXIT WHEN (x_return_status = okl_api.g_ret_sts_error);
2970: END IF;
2971:
2972: --srsreeni bug 5869271 start add
2973: IF (l_old_cle_id IS NULL OR (l_old_cle_id <> l_inflow.cle_id OR l_old_sty_id <> l_inflow.sty_id)) THEN
3012: p_sty_name => 'PASS THROUGH REVENUE ACCRUAL',
3013: x_sty_id => l_sty_id,
3014: x_sty_name => l_sty_name,
3015: x_return_status => x_return_status);
3016: IF x_return_status = okl_api.g_ret_sts_unexp_error THEN
3017: EXIT WHEN (x_return_status = okl_api.g_ret_sts_unexp_error);
3018: ELSIF x_return_status = okl_api.g_ret_sts_error THEN
3019: EXIT WHEN (x_return_status = okl_api.g_ret_sts_error);
3020: END IF;
3013: x_sty_id => l_sty_id,
3014: x_sty_name => l_sty_name,
3015: x_return_status => x_return_status);
3016: IF x_return_status = okl_api.g_ret_sts_unexp_error THEN
3017: EXIT WHEN (x_return_status = okl_api.g_ret_sts_unexp_error);
3018: ELSIF x_return_status = okl_api.g_ret_sts_error THEN
3019: EXIT WHEN (x_return_status = okl_api.g_ret_sts_error);
3020: END IF;
3021: */
3014: x_sty_name => l_sty_name,
3015: x_return_status => x_return_status);
3016: IF x_return_status = okl_api.g_ret_sts_unexp_error THEN
3017: EXIT WHEN (x_return_status = okl_api.g_ret_sts_unexp_error);
3018: ELSIF x_return_status = okl_api.g_ret_sts_error THEN
3019: EXIT WHEN (x_return_status = okl_api.g_ret_sts_error);
3020: END IF;
3021: */
3022: -- Code commented and added for user defined streams ends here- HKPATEL
3015: x_return_status => x_return_status);
3016: IF x_return_status = okl_api.g_ret_sts_unexp_error THEN
3017: EXIT WHEN (x_return_status = okl_api.g_ret_sts_unexp_error);
3018: ELSIF x_return_status = okl_api.g_ret_sts_error THEN
3019: EXIT WHEN (x_return_status = okl_api.g_ret_sts_error);
3020: END IF;
3021: */
3022: -- Code commented and added for user defined streams ends here- HKPATEL
3023: IF(l_sty_id.id IS NOT NULL) THEN
3027: p_sty_id => l_sty_id.id,
3028: p_purpose_code => l_purpose_code,
3029: x_stmv_rec => l_stmv_rec,
3030: x_return_status => x_return_status);
3031: IF x_return_status = okl_api.g_ret_sts_unexp_error THEN
3032: EXIT WHEN (x_return_status = okl_api.g_ret_sts_unexp_error);
3033: ELSIF x_return_status = okl_api.g_ret_sts_error THEN
3034: EXIT WHEN (x_return_status = okl_api.g_ret_sts_error);
3035: END IF;
3028: p_purpose_code => l_purpose_code,
3029: x_stmv_rec => l_stmv_rec,
3030: x_return_status => x_return_status);
3031: IF x_return_status = okl_api.g_ret_sts_unexp_error THEN
3032: EXIT WHEN (x_return_status = okl_api.g_ret_sts_unexp_error);
3033: ELSIF x_return_status = okl_api.g_ret_sts_error THEN
3034: EXIT WHEN (x_return_status = okl_api.g_ret_sts_error);
3035: END IF;
3036: --l_stmv_rec.say_code := 'CURR';
3029: x_stmv_rec => l_stmv_rec,
3030: x_return_status => x_return_status);
3031: IF x_return_status = okl_api.g_ret_sts_unexp_error THEN
3032: EXIT WHEN (x_return_status = okl_api.g_ret_sts_unexp_error);
3033: ELSIF x_return_status = okl_api.g_ret_sts_error THEN
3034: EXIT WHEN (x_return_status = okl_api.g_ret_sts_error);
3035: END IF;
3036: --l_stmv_rec.say_code := 'CURR';
3037: l_stmv_rec.say_code := 'WORK';
3030: x_return_status => x_return_status);
3031: IF x_return_status = okl_api.g_ret_sts_unexp_error THEN
3032: EXIT WHEN (x_return_status = okl_api.g_ret_sts_unexp_error);
3033: ELSIF x_return_status = okl_api.g_ret_sts_error THEN
3034: EXIT WHEN (x_return_status = okl_api.g_ret_sts_error);
3035: END IF;
3036: --l_stmv_rec.say_code := 'CURR';
3037: l_stmv_rec.say_code := 'WORK';
3038: l_stmv_rec.active_yn := 'Y';
3048: p_stmv_rec => l_stmv_rec,
3049: p_selv_tbl => l_selv_tbl,
3050: x_stmv_rec => lx_stmv_rec,
3051: x_selv_tbl => lx_selv_tbl);
3052: IF x_return_status = okl_api.g_ret_sts_unexp_error THEN
3053: EXIT WHEN (x_return_status = okl_api.g_ret_sts_unexp_error);
3054: ELSIF x_return_status = okl_api.g_ret_sts_error THEN
3055: EXIT WHEN (x_return_status = okl_api.g_ret_sts_error);
3056: END IF;
3049: p_selv_tbl => l_selv_tbl,
3050: x_stmv_rec => lx_stmv_rec,
3051: x_selv_tbl => lx_selv_tbl);
3052: IF x_return_status = okl_api.g_ret_sts_unexp_error THEN
3053: EXIT WHEN (x_return_status = okl_api.g_ret_sts_unexp_error);
3054: ELSIF x_return_status = okl_api.g_ret_sts_error THEN
3055: EXIT WHEN (x_return_status = okl_api.g_ret_sts_error);
3056: END IF;
3057: END IF;
3050: x_stmv_rec => lx_stmv_rec,
3051: x_selv_tbl => lx_selv_tbl);
3052: IF x_return_status = okl_api.g_ret_sts_unexp_error THEN
3053: EXIT WHEN (x_return_status = okl_api.g_ret_sts_unexp_error);
3054: ELSIF x_return_status = okl_api.g_ret_sts_error THEN
3055: EXIT WHEN (x_return_status = okl_api.g_ret_sts_error);
3056: END IF;
3057: END IF;
3058: --Bug 5029161 - Start of Changes
3051: x_selv_tbl => lx_selv_tbl);
3052: IF x_return_status = okl_api.g_ret_sts_unexp_error THEN
3053: EXIT WHEN (x_return_status = okl_api.g_ret_sts_unexp_error);
3054: ELSIF x_return_status = okl_api.g_ret_sts_error THEN
3055: EXIT WHEN (x_return_status = okl_api.g_ret_sts_error);
3056: END IF;
3057: END IF;
3058: --Bug 5029161 - Start of Changes
3059: --srsreeni bug 5869271 start add
3079: ,x_msg_count => x_msg_count
3080: ,x_msg_data => x_msg_data
3081: ,p_selv_tbl => l_selv_tbl
3082: ,x_selv_tbl => lx_selv_tbl);
3083: IF x_return_status = okl_api.g_ret_sts_unexp_error THEN
3084: EXIT WHEN (x_return_status = okl_api.g_ret_sts_unexp_error);
3085: ELSIF x_return_status = okl_api.g_ret_sts_error THEN
3086: EXIT WHEN (x_return_status = okl_api.g_ret_sts_error);
3087: END IF;
3080: ,x_msg_data => x_msg_data
3081: ,p_selv_tbl => l_selv_tbl
3082: ,x_selv_tbl => lx_selv_tbl);
3083: IF x_return_status = okl_api.g_ret_sts_unexp_error THEN
3084: EXIT WHEN (x_return_status = okl_api.g_ret_sts_unexp_error);
3085: ELSIF x_return_status = okl_api.g_ret_sts_error THEN
3086: EXIT WHEN (x_return_status = okl_api.g_ret_sts_error);
3087: END IF;
3088: END IF;
3081: ,p_selv_tbl => l_selv_tbl
3082: ,x_selv_tbl => lx_selv_tbl);
3083: IF x_return_status = okl_api.g_ret_sts_unexp_error THEN
3084: EXIT WHEN (x_return_status = okl_api.g_ret_sts_unexp_error);
3085: ELSIF x_return_status = okl_api.g_ret_sts_error THEN
3086: EXIT WHEN (x_return_status = okl_api.g_ret_sts_error);
3087: END IF;
3088: END IF;
3089: END IF;
3082: ,x_selv_tbl => lx_selv_tbl);
3083: IF x_return_status = okl_api.g_ret_sts_unexp_error THEN
3084: EXIT WHEN (x_return_status = okl_api.g_ret_sts_unexp_error);
3085: ELSIF x_return_status = okl_api.g_ret_sts_error THEN
3086: EXIT WHEN (x_return_status = okl_api.g_ret_sts_error);
3087: END IF;
3088: END IF;
3089: END IF;
3090: l_old_cle_id := l_inflow.cle_id;
3158: p_sty_id => l_sty_id.id,
3159: p_purpose_code => l_purpose_code,
3160: x_stmv_rec => l_stmv_rec,
3161: x_return_status => x_return_status);
3162: IF x_return_status = okl_api.g_ret_sts_unexp_error THEN
3163: EXIT WHEN (x_return_status = okl_api.g_ret_sts_unexp_error);
3164: ELSIF x_return_status = okl_api.g_ret_sts_error THEN
3165: EXIT WHEN (x_return_status = okl_api.g_ret_sts_error);
3166: END IF;
3159: p_purpose_code => l_purpose_code,
3160: x_stmv_rec => l_stmv_rec,
3161: x_return_status => x_return_status);
3162: IF x_return_status = okl_api.g_ret_sts_unexp_error THEN
3163: EXIT WHEN (x_return_status = okl_api.g_ret_sts_unexp_error);
3164: ELSIF x_return_status = okl_api.g_ret_sts_error THEN
3165: EXIT WHEN (x_return_status = okl_api.g_ret_sts_error);
3166: END IF;
3167: l_stmv_rec.say_code := 'WORK';
3160: x_stmv_rec => l_stmv_rec,
3161: x_return_status => x_return_status);
3162: IF x_return_status = okl_api.g_ret_sts_unexp_error THEN
3163: EXIT WHEN (x_return_status = okl_api.g_ret_sts_unexp_error);
3164: ELSIF x_return_status = okl_api.g_ret_sts_error THEN
3165: EXIT WHEN (x_return_status = okl_api.g_ret_sts_error);
3166: END IF;
3167: l_stmv_rec.say_code := 'WORK';
3168: l_stmv_rec.active_yn := 'Y';
3161: x_return_status => x_return_status);
3162: IF x_return_status = okl_api.g_ret_sts_unexp_error THEN
3163: EXIT WHEN (x_return_status = okl_api.g_ret_sts_unexp_error);
3164: ELSIF x_return_status = okl_api.g_ret_sts_error THEN
3165: EXIT WHEN (x_return_status = okl_api.g_ret_sts_error);
3166: END IF;
3167: l_stmv_rec.say_code := 'WORK';
3168: l_stmv_rec.active_yn := 'Y';
3169: l_stmv_rec.date_working := SYSDATE;
3179: p_stmv_rec => l_stmv_rec,
3180: p_selv_tbl => l_pt_tbl,
3181: x_stmv_rec => lx_stmv_rec,
3182: x_selv_tbl => lx_selv_tbl);
3183: IF x_return_status = okl_api.g_ret_sts_unexp_error THEN
3184: EXIT WHEN (x_return_status = okl_api.g_ret_sts_unexp_error);
3185: ELSIF x_return_status = okl_api.g_ret_sts_error THEN
3186: EXIT WHEN (x_return_status = okl_api.g_ret_sts_error);
3187: END IF;
3180: p_selv_tbl => l_pt_tbl,
3181: x_stmv_rec => lx_stmv_rec,
3182: x_selv_tbl => lx_selv_tbl);
3183: IF x_return_status = okl_api.g_ret_sts_unexp_error THEN
3184: EXIT WHEN (x_return_status = okl_api.g_ret_sts_unexp_error);
3185: ELSIF x_return_status = okl_api.g_ret_sts_error THEN
3186: EXIT WHEN (x_return_status = okl_api.g_ret_sts_error);
3187: END IF;
3188: END IF;
3181: x_stmv_rec => lx_stmv_rec,
3182: x_selv_tbl => lx_selv_tbl);
3183: IF x_return_status = okl_api.g_ret_sts_unexp_error THEN
3184: EXIT WHEN (x_return_status = okl_api.g_ret_sts_unexp_error);
3185: ELSIF x_return_status = okl_api.g_ret_sts_error THEN
3186: EXIT WHEN (x_return_status = okl_api.g_ret_sts_error);
3187: END IF;
3188: END IF;
3189: --Bug 5029161 - End of Changes
3182: x_selv_tbl => lx_selv_tbl);
3183: IF x_return_status = okl_api.g_ret_sts_unexp_error THEN
3184: EXIT WHEN (x_return_status = okl_api.g_ret_sts_unexp_error);
3185: ELSIF x_return_status = okl_api.g_ret_sts_error THEN
3186: EXIT WHEN (x_return_status = okl_api.g_ret_sts_error);
3187: END IF;
3188: END IF;
3189: --Bug 5029161 - End of Changes
3190: END IF;
3240: p_sty_id => l_sty_id.id,
3241: p_purpose_code => l_purpose_code,
3242: x_stmv_rec => l_stmv_rec,
3243: x_return_status => x_return_status);
3244: IF x_return_status = okl_api.g_ret_sts_unexp_error THEN
3245: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3246: ELSIF x_return_status = okl_api.g_ret_sts_error THEN
3247: RAISE OKL_API.G_EXCEPTION_ERROR;
3248: END IF;
3241: p_purpose_code => l_purpose_code,
3242: x_stmv_rec => l_stmv_rec,
3243: x_return_status => x_return_status);
3244: IF x_return_status = okl_api.g_ret_sts_unexp_error THEN
3245: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3246: ELSIF x_return_status = okl_api.g_ret_sts_error THEN
3247: RAISE OKL_API.G_EXCEPTION_ERROR;
3248: END IF;
3249: l_stmv_rec.say_code := 'WORK';
3242: x_stmv_rec => l_stmv_rec,
3243: x_return_status => x_return_status);
3244: IF x_return_status = okl_api.g_ret_sts_unexp_error THEN
3245: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3246: ELSIF x_return_status = okl_api.g_ret_sts_error THEN
3247: RAISE OKL_API.G_EXCEPTION_ERROR;
3248: END IF;
3249: l_stmv_rec.say_code := 'WORK';
3250: l_stmv_rec.active_yn := 'Y';
3243: x_return_status => x_return_status);
3244: IF x_return_status = okl_api.g_ret_sts_unexp_error THEN
3245: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3246: ELSIF x_return_status = okl_api.g_ret_sts_error THEN
3247: RAISE OKL_API.G_EXCEPTION_ERROR;
3248: END IF;
3249: l_stmv_rec.say_code := 'WORK';
3250: l_stmv_rec.active_yn := 'Y';
3251: l_stmv_rec.date_working := SYSDATE;
3260: p_stmv_rec => l_stmv_rec,
3261: p_selv_tbl => l_pt_pro_fee_tbl,
3262: x_stmv_rec => lx_stmv_rec,
3263: x_selv_tbl => lx_selv_tbl);
3264: IF x_return_status = okl_api.g_ret_sts_unexp_error THEN
3265: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3266: ELSIF x_return_status = okl_api.g_ret_sts_error THEN
3267: RAISE OKL_API.G_EXCEPTION_ERROR;
3268: END IF;
3261: p_selv_tbl => l_pt_pro_fee_tbl,
3262: x_stmv_rec => lx_stmv_rec,
3263: x_selv_tbl => lx_selv_tbl);
3264: IF x_return_status = okl_api.g_ret_sts_unexp_error THEN
3265: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3266: ELSIF x_return_status = okl_api.g_ret_sts_error THEN
3267: RAISE OKL_API.G_EXCEPTION_ERROR;
3268: END IF;
3269: END IF;
3262: x_stmv_rec => lx_stmv_rec,
3263: x_selv_tbl => lx_selv_tbl);
3264: IF x_return_status = okl_api.g_ret_sts_unexp_error THEN
3265: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3266: ELSIF x_return_status = okl_api.g_ret_sts_error THEN
3267: RAISE OKL_API.G_EXCEPTION_ERROR;
3268: END IF;
3269: END IF;
3270: --Bug 5029161 - End of Changes
3263: x_selv_tbl => lx_selv_tbl);
3264: IF x_return_status = okl_api.g_ret_sts_unexp_error THEN
3265: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3266: ELSIF x_return_status = okl_api.g_ret_sts_error THEN
3267: RAISE OKL_API.G_EXCEPTION_ERROR;
3268: END IF;
3269: END IF;
3270: --Bug 5029161 - End of Changes
3271: END IF;
3272: END IF;
3273: --Bug 5137824 - End of Changes
3274: END LOOP;
3275: -- gboomina Bug 4746368 - End
3276: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3277: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3278: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3279: RAISE OKL_API.G_EXCEPTION_ERROR;
3280: END IF;
3273: --Bug 5137824 - End of Changes
3274: END LOOP;
3275: -- gboomina Bug 4746368 - End
3276: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3277: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3278: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3279: RAISE OKL_API.G_EXCEPTION_ERROR;
3280: END IF;
3281: OKL_API.END_ACTIVITY (x_msg_count,
3274: END LOOP;
3275: -- gboomina Bug 4746368 - End
3276: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3277: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3278: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3279: RAISE OKL_API.G_EXCEPTION_ERROR;
3280: END IF;
3281: OKL_API.END_ACTIVITY (x_msg_count,
3282: x_msg_data );
3275: -- gboomina Bug 4746368 - End
3276: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3277: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3278: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3279: RAISE OKL_API.G_EXCEPTION_ERROR;
3280: END IF;
3281: OKL_API.END_ACTIVITY (x_msg_count,
3282: x_msg_data );
3283: EXCEPTION
3277: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3278: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3279: RAISE OKL_API.G_EXCEPTION_ERROR;
3280: END IF;
3281: OKL_API.END_ACTIVITY (x_msg_count,
3282: x_msg_data );
3283: EXCEPTION
3284: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3285: IF c_hdr%ISOPEN THEN
3280: END IF;
3281: OKL_API.END_ACTIVITY (x_msg_count,
3282: x_msg_data );
3283: EXCEPTION
3284: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3285: IF c_hdr%ISOPEN THEN
3286: CLOSE c_hdr;
3287: END IF;
3288: IF c_inflows%ISOPEN THEN
3293: END IF;
3294: IF l_stm_csr%ISOPEN THEN
3295: CLOSE l_stm_csr;
3296: END IF;
3297: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
3298: l_api_name,
3299: G_PKG_NAME,
3300: 'OKL_API.G_RET_STS_ERROR',
3301: x_msg_count,
3296: END IF;
3297: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
3298: l_api_name,
3299: G_PKG_NAME,
3300: 'OKL_API.G_RET_STS_ERROR',
3301: x_msg_count,
3302: x_msg_data,
3303: '_PVT');
3304: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3300: 'OKL_API.G_RET_STS_ERROR',
3301: x_msg_count,
3302: x_msg_data,
3303: '_PVT');
3304: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3305: IF c_hdr%ISOPEN THEN
3306: CLOSE c_hdr;
3307: END IF;
3308: IF c_inflows%ISOPEN THEN
3313: END IF;
3314: IF l_stm_csr%ISOPEN THEN
3315: CLOSE l_stm_csr;
3316: END IF;
3317: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
3318: l_api_name,
3319: G_PKG_NAME,
3320: 'OKL_API.G_RET_STS_UNEXP_ERROR',
3321: x_msg_count,
3316: END IF;
3317: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
3318: l_api_name,
3319: G_PKG_NAME,
3320: 'OKL_API.G_RET_STS_UNEXP_ERROR',
3321: x_msg_count,
3322: x_msg_data,
3323: '_PVT');
3324: WHEN OTHERS THEN
3333: END IF;
3334: IF l_stm_csr%ISOPEN THEN
3335: CLOSE l_stm_csr;
3336: END IF;
3337: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
3338: l_api_name,
3339: G_PKG_NAME,
3340: 'OTHERS',
3341: x_msg_count,
3344: END adjust_passthrough_streams;
3345:
3346: Procedure alloc_strms_basis_level(
3347: p_api_version IN NUMBER,
3348: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
3349: x_return_status OUT NOCOPY VARCHAR2,
3350: x_msg_count OUT NOCOPY NUMBER,
3351: x_msg_data OUT NOCOPY VARCHAR2,
3352: p_chr_id IN NUMBER,
3355: p_strmele_tbl IN strmele_tbl_type) AS
3356:
3357: l_api_name CONSTANT VARCHAR2(30) := 'ALLOC_STRMS_BASIS_LEVEL';
3358: l_api_version CONSTANT NUMBER := 1;
3359: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
3360:
3361:
3362: l_ctrt_cap_amnt NUMBER := p_ctrt_cap_amnt;
3363:
3378: l_strmele_tbl strmele_tbl_type := p_strmele_tbl;
3379:
3380: BEGIN
3381:
3382: l_return_status := OKL_API.START_ACTIVITY(
3383: p_api_name => l_api_name,
3384: p_pkg_name => g_pkg_name,
3385: p_init_msg_list => p_init_msg_list,
3386: l_api_version => l_api_version,
3388: p_api_type => G_API_TYPE,
3389: x_return_status => x_return_status);
3390:
3391: -- check if activity started successfully
3392: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
3393: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3394: ElSIF (l_return_status = OKL_API.G_RET_STS_ERROR) then
3395: raise OKL_API.G_EXCEPTION_ERROR;
3396: End If;
3389: x_return_status => x_return_status);
3390:
3391: -- check if activity started successfully
3392: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
3393: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3394: ElSIF (l_return_status = OKL_API.G_RET_STS_ERROR) then
3395: raise OKL_API.G_EXCEPTION_ERROR;
3396: End If;
3397:
3390:
3391: -- check if activity started successfully
3392: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
3393: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3394: ElSIF (l_return_status = OKL_API.G_RET_STS_ERROR) then
3395: raise OKL_API.G_EXCEPTION_ERROR;
3396: End If;
3397:
3398: FOR l_finline_rec in l_line_rec_csr ( p_chr_id, 'FREE_FORM1')
3391: -- check if activity started successfully
3392: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
3393: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3394: ElSIF (l_return_status = OKL_API.G_RET_STS_ERROR) then
3395: raise OKL_API.G_EXCEPTION_ERROR;
3396: End If;
3397:
3398: FOR l_finline_rec in l_line_rec_csr ( p_chr_id, 'FREE_FORM1')
3399: LOOP
3445: ,p_selv_tbl => l_selv_tbl
3446: ,x_stmv_rec => x_stmv_rec
3447: ,x_selv_tbl => x_selv_tbl);
3448:
3449: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
3450: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3451: ElSIF (l_return_status = OKL_API.G_RET_STS_ERROR) then
3452: raise OKL_API.G_EXCEPTION_ERROR;
3453: End If;
3446: ,x_stmv_rec => x_stmv_rec
3447: ,x_selv_tbl => x_selv_tbl);
3448:
3449: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
3450: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3451: ElSIF (l_return_status = OKL_API.G_RET_STS_ERROR) then
3452: raise OKL_API.G_EXCEPTION_ERROR;
3453: End If;
3454:
3447: ,x_selv_tbl => x_selv_tbl);
3448:
3449: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
3450: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3451: ElSIF (l_return_status = OKL_API.G_RET_STS_ERROR) then
3452: raise OKL_API.G_EXCEPTION_ERROR;
3453: End If;
3454:
3455: l_selv_tbl.DELETE(1, l_selv_tbl.COUNT);
3448:
3449: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
3450: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3451: ElSIF (l_return_status = OKL_API.G_RET_STS_ERROR) then
3452: raise OKL_API.G_EXCEPTION_ERROR;
3453: End If;
3454:
3455: l_selv_tbl.DELETE(1, l_selv_tbl.COUNT);
3456: amounts.DELETE(1, amounts.COUNT);
3461:
3462:
3463: x_return_status := l_return_status;
3464:
3465: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
3466:
3467: EXCEPTION
3468: when OKL_API.G_EXCEPTION_ERROR then
3469: l_return_status := OKL_API.HANDLE_EXCEPTIONS(
3464:
3465: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
3466:
3467: EXCEPTION
3468: when OKL_API.G_EXCEPTION_ERROR then
3469: l_return_status := OKL_API.HANDLE_EXCEPTIONS(
3470: p_api_name => l_api_name,
3471: p_pkg_name => g_pkg_name,
3472: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
3465: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
3466:
3467: EXCEPTION
3468: when OKL_API.G_EXCEPTION_ERROR then
3469: l_return_status := OKL_API.HANDLE_EXCEPTIONS(
3470: p_api_name => l_api_name,
3471: p_pkg_name => g_pkg_name,
3472: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
3473: x_msg_count => x_msg_count,
3468: when OKL_API.G_EXCEPTION_ERROR then
3469: l_return_status := OKL_API.HANDLE_EXCEPTIONS(
3470: p_api_name => l_api_name,
3471: p_pkg_name => g_pkg_name,
3472: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
3473: x_msg_count => x_msg_count,
3474: x_msg_data => x_msg_data,
3475: p_api_type => g_api_type);
3476: x_return_status := l_return_status;
3474: x_msg_data => x_msg_data,
3475: p_api_type => g_api_type);
3476: x_return_status := l_return_status;
3477:
3478: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
3479: l_return_status := OKL_API.HANDLE_EXCEPTIONS(
3480: p_api_name => l_api_name,
3481: p_pkg_name => g_pkg_name,
3482: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
3475: p_api_type => g_api_type);
3476: x_return_status := l_return_status;
3477:
3478: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
3479: l_return_status := OKL_API.HANDLE_EXCEPTIONS(
3480: p_api_name => l_api_name,
3481: p_pkg_name => g_pkg_name,
3482: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
3483: x_msg_count => x_msg_count,
3478: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
3479: l_return_status := OKL_API.HANDLE_EXCEPTIONS(
3480: p_api_name => l_api_name,
3481: p_pkg_name => g_pkg_name,
3482: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
3483: x_msg_count => x_msg_count,
3484: x_msg_data => x_msg_data,
3485: p_api_type => g_api_type);
3486: x_return_status := l_return_status;
3489: End If;
3490:
3491:
3492: when OTHERS then
3493: l_return_status := OKL_API.HANDLE_EXCEPTIONS(
3494: p_api_name => l_api_name,
3495: p_pkg_name => g_pkg_name,
3496: p_exc_name => 'OTHERS',
3497: x_msg_count => x_msg_count,
3504:
3505:
3506: Procedure alloc_strms_basis_capital(
3507: p_api_version IN NUMBER,
3508: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
3509: x_return_status OUT NOCOPY VARCHAR2,
3510: x_msg_count OUT NOCOPY NUMBER,
3511: x_msg_data OUT NOCOPY VARCHAR2,
3512: p_chr_id IN NUMBER,
3515: p_strmele_tbl IN strmele_tbl_type) AS
3516:
3517: l_api_name CONSTANT VARCHAR2(30) := 'ALLOC_STRMS_BASIS_CAPITAL';
3518: l_api_version CONSTANT NUMBER := 1;
3519: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
3520:
3521:
3522:
3523: l_finline_rec l_line_rec_csr%ROWTYPE;
3537: x_selv_tbl Okl_Streams_pub.selv_tbl_type;
3538:
3539: BEGIN
3540:
3541: l_return_status := OKL_API.START_ACTIVITY(
3542: p_api_name => l_api_name,
3543: p_pkg_name => g_pkg_name,
3544: p_init_msg_list => p_init_msg_list,
3545: l_api_version => l_api_version,
3548: x_return_status => x_return_status);
3549:
3550:
3551: -- check if activity started successfully
3552: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
3553: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3554: ElSIF (l_return_status = OKL_API.G_RET_STS_ERROR) then
3555: raise OKL_API.G_EXCEPTION_ERROR;
3556: End If;
3549:
3550:
3551: -- check if activity started successfully
3552: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
3553: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3554: ElSIF (l_return_status = OKL_API.G_RET_STS_ERROR) then
3555: raise OKL_API.G_EXCEPTION_ERROR;
3556: End If;
3557:
3550:
3551: -- check if activity started successfully
3552: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
3553: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3554: ElSIF (l_return_status = OKL_API.G_RET_STS_ERROR) then
3555: raise OKL_API.G_EXCEPTION_ERROR;
3556: End If;
3557:
3558:
3551: -- check if activity started successfully
3552: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
3553: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3554: ElSIF (l_return_status = OKL_API.G_RET_STS_ERROR) then
3555: raise OKL_API.G_EXCEPTION_ERROR;
3556: End If;
3557:
3558:
3559: FOR l_finline_rec in l_line_rec_csr ( p_chr_id, 'FREE_FORM1')
3609: ,x_stmv_rec => x_stmv_rec);
3610:
3611:
3612:
3613: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
3614: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3615: ElSIF (l_return_status = OKL_API.G_RET_STS_ERROR) then
3616: raise OKL_API.G_EXCEPTION_ERROR;
3617: End If;
3610:
3611:
3612:
3613: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
3614: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3615: ElSIF (l_return_status = OKL_API.G_RET_STS_ERROR) then
3616: raise OKL_API.G_EXCEPTION_ERROR;
3617: End If;
3618:
3611:
3612:
3613: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
3614: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3615: ElSIF (l_return_status = OKL_API.G_RET_STS_ERROR) then
3616: raise OKL_API.G_EXCEPTION_ERROR;
3617: End If;
3618:
3619:
3612:
3613: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
3614: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3615: ElSIF (l_return_status = OKL_API.G_RET_STS_ERROR) then
3616: raise OKL_API.G_EXCEPTION_ERROR;
3617: End If;
3618:
3619:
3620:
3631: ,x_msg_data => x_msg_data
3632: ,p_selv_tbl => l_selv_tbl
3633: ,x_selv_tbl => x_selv_tbl);
3634:
3635: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
3636: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3637: ElSIF (l_return_status = OKL_API.G_RET_STS_ERROR) then
3638: raise OKL_API.G_EXCEPTION_ERROR;
3639: End If;
3632: ,p_selv_tbl => l_selv_tbl
3633: ,x_selv_tbl => x_selv_tbl);
3634:
3635: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
3636: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3637: ElSIF (l_return_status = OKL_API.G_RET_STS_ERROR) then
3638: raise OKL_API.G_EXCEPTION_ERROR;
3639: End If;
3640:
3633: ,x_selv_tbl => x_selv_tbl);
3634:
3635: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
3636: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3637: ElSIF (l_return_status = OKL_API.G_RET_STS_ERROR) then
3638: raise OKL_API.G_EXCEPTION_ERROR;
3639: End If;
3640:
3641: l_selv_tbl.DELETE(1, l_selv_tbl.COUNT);
3634:
3635: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
3636: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3637: ElSIF (l_return_status = OKL_API.G_RET_STS_ERROR) then
3638: raise OKL_API.G_EXCEPTION_ERROR;
3639: End If;
3640:
3641: l_selv_tbl.DELETE(1, l_selv_tbl.COUNT);
3642: l_stmv_rec := NULL;
3645: END LOOP;
3646:
3647: x_return_status := l_return_status;
3648:
3649: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
3650:
3651: EXCEPTION
3652: when OKL_API.G_EXCEPTION_ERROR then
3653: l_return_status := OKL_API.HANDLE_EXCEPTIONS(
3648:
3649: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
3650:
3651: EXCEPTION
3652: when OKL_API.G_EXCEPTION_ERROR then
3653: l_return_status := OKL_API.HANDLE_EXCEPTIONS(
3654: p_api_name => l_api_name,
3655: p_pkg_name => g_pkg_name,
3656: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
3649: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
3650:
3651: EXCEPTION
3652: when OKL_API.G_EXCEPTION_ERROR then
3653: l_return_status := OKL_API.HANDLE_EXCEPTIONS(
3654: p_api_name => l_api_name,
3655: p_pkg_name => g_pkg_name,
3656: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
3657: x_msg_count => x_msg_count,
3652: when OKL_API.G_EXCEPTION_ERROR then
3653: l_return_status := OKL_API.HANDLE_EXCEPTIONS(
3654: p_api_name => l_api_name,
3655: p_pkg_name => g_pkg_name,
3656: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
3657: x_msg_count => x_msg_count,
3658: x_msg_data => x_msg_data,
3659: p_api_type => g_api_type);
3660: x_return_status := l_return_status;
3658: x_msg_data => x_msg_data,
3659: p_api_type => g_api_type);
3660: x_return_status := l_return_status;
3661:
3662: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
3663: l_return_status := OKL_API.HANDLE_EXCEPTIONS(
3664: p_api_name => l_api_name,
3665: p_pkg_name => g_pkg_name,
3666: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
3659: p_api_type => g_api_type);
3660: x_return_status := l_return_status;
3661:
3662: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
3663: l_return_status := OKL_API.HANDLE_EXCEPTIONS(
3664: p_api_name => l_api_name,
3665: p_pkg_name => g_pkg_name,
3666: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
3667: x_msg_count => x_msg_count,
3662: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
3663: l_return_status := OKL_API.HANDLE_EXCEPTIONS(
3664: p_api_name => l_api_name,
3665: p_pkg_name => g_pkg_name,
3666: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
3667: x_msg_count => x_msg_count,
3668: x_msg_data => x_msg_data,
3669: p_api_type => g_api_type);
3670: x_return_status := l_return_status;
3673: End If;
3674:
3675:
3676: when OTHERS then
3677: l_return_status := OKL_API.HANDLE_EXCEPTIONS(
3678: p_api_name => l_api_name,
3679: p_pkg_name => g_pkg_name,
3680: p_exc_name => 'OTHERS',
3681: x_msg_count => x_msg_count,
3687: END alloc_strms_basis_capital;
3688:
3689: Procedure allocate_streams(
3690: p_api_version IN NUMBER,
3691: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
3692: x_return_status OUT NOCOPY VARCHAR2,
3693: x_msg_count OUT NOCOPY NUMBER,
3694: x_msg_data OUT NOCOPY VARCHAR2,
3695: p_chr_id IN NUMBER) AS
3695: p_chr_id IN NUMBER) AS
3696:
3697: l_api_name CONSTANT VARCHAR2(30) := 'ALLOCATE_STREAMS';
3698: l_api_version CONSTANT NUMBER := 1;
3699: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
3700: l_ctrt_cap_amnt NUMBER;
3701: l_strmele_rec l_strmele_csr%ROWTYPE;
3702: l_strmele_tbl strmele_tbl_type;
3703: i NUMBER;
3718: BEGIN
3719:
3720: print( l_api_name, 'begin');
3721:
3722: l_return_status := OKL_API.START_ACTIVITY(
3723: p_api_name => l_api_name,
3724: p_pkg_name => g_pkg_name,
3725: p_init_msg_list => p_init_msg_list,
3726: l_api_version => l_api_version,
3728: p_api_type => G_API_TYPE,
3729: x_return_status => x_return_status);
3730:
3731: -- check if activity started successfully
3732: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
3733: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3734: ElSIF (l_return_status = OKL_API.G_RET_STS_ERROR) then
3735: raise OKL_API.G_EXCEPTION_ERROR;
3736: End If;
3729: x_return_status => x_return_status);
3730:
3731: -- check if activity started successfully
3732: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
3733: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3734: ElSIF (l_return_status = OKL_API.G_RET_STS_ERROR) then
3735: raise OKL_API.G_EXCEPTION_ERROR;
3736: End If;
3737:
3730:
3731: -- check if activity started successfully
3732: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
3733: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3734: ElSIF (l_return_status = OKL_API.G_RET_STS_ERROR) then
3735: raise OKL_API.G_EXCEPTION_ERROR;
3736: End If;
3737:
3738: execute_formula(p_api_version => l_api_version,
3731: -- check if activity started successfully
3732: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
3733: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3734: ElSIF (l_return_status = OKL_API.G_RET_STS_ERROR) then
3735: raise OKL_API.G_EXCEPTION_ERROR;
3736: End If;
3737:
3738: execute_formula(p_api_version => l_api_version,
3739: p_init_msg_list => p_init_msg_list,
3746: x_value => l_ctrt_cap_amnt);
3747: print( l_api_name, 'execute formula', x_return_status);
3748:
3749: -- check if activity started successfully
3750: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
3751: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3752: ElSIF (l_return_status = OKL_API.G_RET_STS_ERROR) then
3753: raise OKL_API.G_EXCEPTION_ERROR;
3754: End If;
3747: print( l_api_name, 'execute formula', x_return_status);
3748:
3749: -- check if activity started successfully
3750: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
3751: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3752: ElSIF (l_return_status = OKL_API.G_RET_STS_ERROR) then
3753: raise OKL_API.G_EXCEPTION_ERROR;
3754: End If;
3755:
3748:
3749: -- check if activity started successfully
3750: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
3751: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3752: ElSIF (l_return_status = OKL_API.G_RET_STS_ERROR) then
3753: raise OKL_API.G_EXCEPTION_ERROR;
3754: End If;
3755:
3756: If (l_ctrt_cap_amnt <= 0) Then
3749: -- check if activity started successfully
3750: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
3751: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3752: ElSIF (l_return_status = OKL_API.G_RET_STS_ERROR) then
3753: raise OKL_API.G_EXCEPTION_ERROR;
3754: End If;
3755:
3756: If (l_ctrt_cap_amnt <= 0) Then
3757: okl_api.set_message(
3753: raise OKL_API.G_EXCEPTION_ERROR;
3754: End If;
3755:
3756: If (l_ctrt_cap_amnt <= 0) Then
3757: okl_api.set_message(
3758: p_app_name => G_APP_NAME,
3759: p_msg_name => 'G_INVALID_CONTRACT_CAP_AMNT');
3760: raise OKL_API.G_EXCEPTION_ERROR;
3761: End If;
3756: If (l_ctrt_cap_amnt <= 0) Then
3757: okl_api.set_message(
3758: p_app_name => G_APP_NAME,
3759: p_msg_name => 'G_INVALID_CONTRACT_CAP_AMNT');
3760: raise OKL_API.G_EXCEPTION_ERROR;
3761: End If;
3762:
3763: /*
3764: FOR j in 1..n l_strms_csr ( TO_NUMBER(p_chr_id ), 'STREAM TYPE')
3797: p_sty_id => l_strm_rec.sty_id,
3798: p_ctrt_cap_amnt => l_ctrt_cap_amnt,
3799: p_strmele_tbl => l_strmele_tbl );
3800:
3801: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3802: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3803: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3804: RAISE OKL_API.G_EXCEPTION_ERROR;
3805: END IF;
3798: p_ctrt_cap_amnt => l_ctrt_cap_amnt,
3799: p_strmele_tbl => l_strmele_tbl );
3800:
3801: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3802: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3803: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3804: RAISE OKL_API.G_EXCEPTION_ERROR;
3805: END IF;
3806:
3799: p_strmele_tbl => l_strmele_tbl );
3800:
3801: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3802: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3803: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3804: RAISE OKL_API.G_EXCEPTION_ERROR;
3805: END IF;
3806:
3807: l_strmele_tbl.DELETE(1, l_strmele_tbl.COUNT);
3800:
3801: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3802: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3803: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3804: RAISE OKL_API.G_EXCEPTION_ERROR;
3805: END IF;
3806:
3807: l_strmele_tbl.DELETE(1, l_strmele_tbl.COUNT);
3808:
3809: -- END LOOP;
3810:
3811: x_return_status := l_return_status;
3812:
3813: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
3814:
3815: EXCEPTION
3816: when OKL_API.G_EXCEPTION_ERROR then
3817: l_return_status := OKL_API.HANDLE_EXCEPTIONS(
3812:
3813: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
3814:
3815: EXCEPTION
3816: when OKL_API.G_EXCEPTION_ERROR then
3817: l_return_status := OKL_API.HANDLE_EXCEPTIONS(
3818: p_api_name => l_api_name,
3819: p_pkg_name => g_pkg_name,
3820: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
3813: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
3814:
3815: EXCEPTION
3816: when OKL_API.G_EXCEPTION_ERROR then
3817: l_return_status := OKL_API.HANDLE_EXCEPTIONS(
3818: p_api_name => l_api_name,
3819: p_pkg_name => g_pkg_name,
3820: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
3821: x_msg_count => x_msg_count,
3816: when OKL_API.G_EXCEPTION_ERROR then
3817: l_return_status := OKL_API.HANDLE_EXCEPTIONS(
3818: p_api_name => l_api_name,
3819: p_pkg_name => g_pkg_name,
3820: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
3821: x_msg_count => x_msg_count,
3822: x_msg_data => x_msg_data,
3823: p_api_type => g_api_type);
3824: x_return_status := l_return_status;
3822: x_msg_data => x_msg_data,
3823: p_api_type => g_api_type);
3824: x_return_status := l_return_status;
3825:
3826: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
3827: l_return_status := OKL_API.HANDLE_EXCEPTIONS(
3828: p_api_name => l_api_name,
3829: p_pkg_name => g_pkg_name,
3830: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
3823: p_api_type => g_api_type);
3824: x_return_status := l_return_status;
3825:
3826: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
3827: l_return_status := OKL_API.HANDLE_EXCEPTIONS(
3828: p_api_name => l_api_name,
3829: p_pkg_name => g_pkg_name,
3830: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
3831: x_msg_count => x_msg_count,
3826: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
3827: l_return_status := OKL_API.HANDLE_EXCEPTIONS(
3828: p_api_name => l_api_name,
3829: p_pkg_name => g_pkg_name,
3830: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
3831: x_msg_count => x_msg_count,
3832: x_msg_data => x_msg_data,
3833: p_api_type => g_api_type);
3834: x_return_status := l_return_status;
3836: CLOSE strm_name_csr;
3837: End If;
3838:
3839: when OTHERS then
3840: l_return_status := OKL_API.HANDLE_EXCEPTIONS(
3841: p_api_name => l_api_name,
3842: p_pkg_name => g_pkg_name,
3843: p_exc_name => 'OTHERS',
3844: x_msg_count => x_msg_count,
3848:
3849: End allocate_streams;
3850: -- Start modification 11i10 bakuchib
3851: PROCEDURE create_interim_rental_streams(p_api_version IN NUMBER,
3852: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
3853: x_return_status OUT NOCOPY VARCHAR2,
3854: x_msg_count OUT NOCOPY NUMBER,
3855: x_msg_data OUT NOCOPY VARCHAR2,
3856: p_chr_id IN NUMBER,
3855: x_msg_data OUT NOCOPY VARCHAR2,
3856: p_chr_id IN NUMBER,
3857: p_purpose IN VARCHAR2) AS
3858: l_api_name CONSTANT VARCHAR2(256) := 'INTERIM_STREAMS';
3859: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
3860: i NUMBER;
3861: j NUMBER;
3862: l_orig_amount NUMBER;
3863: l_rebook_amount NUMBER;
3865: error VARCHAR2(256);
3866: --styid NUMBER;
3867: styid strm_rec_type;
3868: stream_name VARCHAR2(256);
3869: lv_chr_secure VARCHAR2(3) := OKL_API.G_FALSE;
3870: ln_secure_amt NUMBER := 0;
3871: -- get the transaction number
3872: CURSOR l_strm_csr (chrId NUMBER, pp VARCHAR2 )
3873: IS
3982: lx_stmv_rec_secure Okl_Streams_pub.stmv_rec_type;
3983: lx_selv_tbl_secure Okl_Streams_pub.selv_tbl_type;
3984: lx_inv_agmt_chr_id_tbl okl_securitization_pvt.inv_agmt_chr_id_tbl_type;
3985: BEGIN
3986: x_return_status := OKL_API.G_RET_STS_SUCCESS;
3987: -- Call start_activity to create savepoint, check compatibility
3988: -- and initialize message list
3989: x_return_status := OKL_API.START_ACTIVITY (
3990: l_api_name
3985: BEGIN
3986: x_return_status := OKL_API.G_RET_STS_SUCCESS;
3987: -- Call start_activity to create savepoint, check compatibility
3988: -- and initialize message list
3989: x_return_status := OKL_API.START_ACTIVITY (
3990: l_api_name
3991: ,p_init_msg_list
3992: ,'_PVT'
3993: ,x_return_status);
3991: ,p_init_msg_list
3992: ,'_PVT'
3993: ,x_return_status);
3994: -- Check if activity started successfully
3995: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3996: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3997: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3998: RAISE OKL_API.G_EXCEPTION_ERROR;
3999: END IF;
3992: ,'_PVT'
3993: ,x_return_status);
3994: -- Check if activity started successfully
3995: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3996: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3997: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3998: RAISE OKL_API.G_EXCEPTION_ERROR;
3999: END IF;
4000: -- get the stream id
3993: ,x_return_status);
3994: -- Check if activity started successfully
3995: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3996: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3997: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3998: RAISE OKL_API.G_EXCEPTION_ERROR;
3999: END IF;
4000: -- get the stream id
4001: -- Code added and commented for user defined streams - HKPATEL
3994: -- Check if activity started successfully
3995: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3996: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3997: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3998: RAISE OKL_API.G_EXCEPTION_ERROR;
3999: END IF;
4000: -- get the stream id
4001: -- Code added and commented for user defined streams - HKPATEL
4002: IF(g_rep_req_yn = 'Y') THEN
4037: OPEN primary_sty_name_csr(p_chr_id => p_chr_id,
4038: p_purpose => 'REBOOK_BILLING_ADJUSTMENT');
4039: FETCH primary_sty_name_csr into l_strm_name;
4040: IF primary_sty_name_csr%NOTFOUND THEN
4041: okl_api.set_message(p_app_name => G_APP_NAME,
4042: p_msg_name => G_LLA_NO_MATCHING_RECORD,
4043: p_token1 => G_COL_NAME_TOKEN,
4044: p_token1_value => 'Stream name');
4045: RAISE OKL_API.G_EXCEPTION_ERROR;
4041: okl_api.set_message(p_app_name => G_APP_NAME,
4042: p_msg_name => G_LLA_NO_MATCHING_RECORD,
4043: p_token1 => G_COL_NAME_TOKEN,
4044: p_token1_value => 'Stream name');
4045: RAISE OKL_API.G_EXCEPTION_ERROR;
4046: END IF;
4047: CLOSE primary_sty_name_csr;
4048:
4049:
4049:
4050: OPEN get_styid_csr(p_strm_name => l_strm_name);
4051: FETCH get_styid_csr INTO l_styid_rec;
4052: IF get_styid_csr%NOTFOUND THEN
4053: okl_api.set_message(p_app_name => G_APP_NAME,
4054: p_msg_name => G_LLA_NO_MATCHING_RECORD,
4055: p_token1 => G_COL_NAME_TOKEN,
4056: p_token1_value => 'Stream name');
4057: RAISE OKL_API.G_EXCEPTION_ERROR;
4053: okl_api.set_message(p_app_name => G_APP_NAME,
4054: p_msg_name => G_LLA_NO_MATCHING_RECORD,
4055: p_token1 => G_COL_NAME_TOKEN,
4056: p_token1_value => 'Stream name');
4057: RAISE OKL_API.G_EXCEPTION_ERROR;
4058: END IF;
4059: CLOSE get_styid_csr;
4060:
4061:
4060:
4061:
4062:
4063: IF l_styid_rec.id = -1 THEN
4064: okl_api.set_message(p_app_name => G_APP_NAME,
4065: p_msg_name => G_INVALID_VALUE,
4066: p_token1 => G_COL_NAME_TOKEN,
4067: p_token1_value => 'Stream ID');
4068: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4064: okl_api.set_message(p_app_name => G_APP_NAME,
4065: p_msg_name => G_INVALID_VALUE,
4066: p_token1 => G_COL_NAME_TOKEN,
4067: p_token1_value => 'Stream ID');
4068: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4069: END IF;
4070: -- added code for user defined streams ends here
4071: */
4072: -- get the transaction number
4072: -- get the transaction number
4073: OPEN l_strm_csr (p_chr_id, p_purpose);
4074: FETCH l_strm_csr INTO l_strm_rec;
4075: IF l_strm_csr%NOTFOUND THEN
4076: okl_api.set_message(p_app_name => G_APP_NAME,
4077: p_msg_name => G_LLA_NO_MATCHING_RECORD,
4078: p_token1 => G_COL_NAME_TOKEN,
4079: p_token1_value => 'Chr_id and for '||p_purpose);
4080: RAISE OKL_API.G_EXCEPTION_ERROR;
4076: okl_api.set_message(p_app_name => G_APP_NAME,
4077: p_msg_name => G_LLA_NO_MATCHING_RECORD,
4078: p_token1 => G_COL_NAME_TOKEN,
4079: p_token1_value => 'Chr_id and for '||p_purpose);
4080: RAISE OKL_API.G_EXCEPTION_ERROR;
4081: END IF;
4082: CLOSE l_strm_csr;
4083: -- Get the header info
4084: OPEN l_hdr_csr (p_chr_id);
4083: -- Get the header info
4084: OPEN l_hdr_csr (p_chr_id);
4085: FETCH l_hdr_csr INTO l_hdr_rec;
4086: IF l_hdr_csr%NOTFOUND THEN
4087: okl_api.set_message(p_app_name => G_APP_NAME,
4088: p_msg_name => G_LLA_NO_MATCHING_RECORD,
4089: p_token1 => G_COL_NAME_TOKEN,
4090: p_token1_value => 'Chr_id ');
4091: RAISE OKL_API.G_EXCEPTION_ERROR;
4087: okl_api.set_message(p_app_name => G_APP_NAME,
4088: p_msg_name => G_LLA_NO_MATCHING_RECORD,
4089: p_token1 => G_COL_NAME_TOKEN,
4090: p_token1_value => 'Chr_id ');
4091: RAISE OKL_API.G_EXCEPTION_ERROR;
4092: END IF;
4093: CLOSE l_hdr_csr;
4094: -- Get the line info
4095: FOR l_line_rec IN l_line_csr (p_chr_id) LOOP
4113:
4114: OPEN l_billedrents_csr(l_hdr_rec.orig_system_id1, l_line_rec.orig_system_id1, p_purpose );
4115: FETCH l_billedrents_csr INTO l_orig_amount;
4116: IF l_billedrents_csr%NOTFOUND THEN
4117: okl_api.set_message(p_app_name => G_APP_NAME,
4118: p_msg_name => G_LLA_NO_MATCHING_RECORD,
4119: p_token1 => G_COL_NAME_TOKEN,
4120: p_token1_value => 'Orig System Chr_id/Line id and for '||p_purpose);
4121: x_return_status := OKL_API.G_RET_STS_ERROR;
4117: okl_api.set_message(p_app_name => G_APP_NAME,
4118: p_msg_name => G_LLA_NO_MATCHING_RECORD,
4119: p_token1 => G_COL_NAME_TOKEN,
4120: p_token1_value => 'Orig System Chr_id/Line id and for '||p_purpose);
4121: x_return_status := OKL_API.G_RET_STS_ERROR;
4122: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
4123: END IF;
4124: CLOSE l_billedrents_csr;
4125: -- get Billabel Rentals contract id sent as parameter
4118: p_msg_name => G_LLA_NO_MATCHING_RECORD,
4119: p_token1 => G_COL_NAME_TOKEN,
4120: p_token1_value => 'Orig System Chr_id/Line id and for '||p_purpose);
4121: x_return_status := OKL_API.G_RET_STS_ERROR;
4122: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
4123: END IF;
4124: CLOSE l_billedrents_csr;
4125: -- get Billabel Rentals contract id sent as parameter
4126: OPEN l_billedrents_csr(p_chr_id,l_line_rec.id,p_purpose );
4125: -- get Billabel Rentals contract id sent as parameter
4126: OPEN l_billedrents_csr(p_chr_id,l_line_rec.id,p_purpose );
4127: FETCH l_billedrents_csr INTO l_rebook_amount;
4128: IF l_billedrents_csr%NOTFOUND THEN
4129: okl_api.set_message(p_app_name => G_APP_NAME,
4130: p_msg_name => G_LLA_NO_MATCHING_RECORD,
4131: p_token1 => G_COL_NAME_TOKEN,
4132: p_token1_value => 'Chr_id/Line id and for '||p_purpose);
4133: x_return_status := OKL_API.G_RET_STS_ERROR;
4129: okl_api.set_message(p_app_name => G_APP_NAME,
4130: p_msg_name => G_LLA_NO_MATCHING_RECORD,
4131: p_token1 => G_COL_NAME_TOKEN,
4132: p_token1_value => 'Chr_id/Line id and for '||p_purpose);
4133: x_return_status := OKL_API.G_RET_STS_ERROR;
4134: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
4135: END IF;
4136: CLOSE l_billedrents_csr;
4137:
4130: p_msg_name => G_LLA_NO_MATCHING_RECORD,
4131: p_token1 => G_COL_NAME_TOKEN,
4132: p_token1_value => 'Chr_id/Line id and for '||p_purpose);
4133: x_return_status := OKL_API.G_RET_STS_ERROR;
4134: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
4135: END IF;
4136: CLOSE l_billedrents_csr;
4137:
4138:
4155: p_stmv_rec => l_stmv_rec_intm_rentals,
4156: p_selv_tbl => l_selv_tbl_intm_rentals,
4157: x_stmv_rec => x_stmv_rec,
4158: x_selv_tbl => x_selv_tbl);
4159: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4160: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
4161: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4162: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_ERROR);
4163: END IF;
4156: p_selv_tbl => l_selv_tbl_intm_rentals,
4157: x_stmv_rec => x_stmv_rec,
4158: x_selv_tbl => x_selv_tbl);
4159: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4160: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
4161: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4162: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_ERROR);
4163: END IF;
4164: END IF;
4157: x_stmv_rec => x_stmv_rec,
4158: x_selv_tbl => x_selv_tbl);
4159: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4160: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
4161: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4162: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_ERROR);
4163: END IF;
4164: END IF;
4165: -- Check for Original contract is securitized
4158: x_selv_tbl => x_selv_tbl);
4159: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4160: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
4161: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4162: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_ERROR);
4163: END IF;
4164: END IF;
4165: -- Check for Original contract is securitized
4166: okl_securitization_pvt.check_khr_securitized(
4174: p_effective_date_operator => okl_securitization_pvt.G_GREATER_THAN_EQUAL_TO,
4175: p_stream_type_subclass => l_styid_rec.stream_type_subclass,
4176: x_value => lv_chr_secure,
4177: x_inv_agmt_chr_id_tbl => lx_inv_agmt_chr_id_tbl);
4178: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4179: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
4180: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4181: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_ERROR);
4182: END IF;
4175: p_stream_type_subclass => l_styid_rec.stream_type_subclass,
4176: x_value => lv_chr_secure,
4177: x_inv_agmt_chr_id_tbl => lx_inv_agmt_chr_id_tbl);
4178: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4179: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
4180: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4181: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_ERROR);
4182: END IF;
4183: IF lv_chr_secure = OKL_API.G_TRUE THEN
4176: x_value => lv_chr_secure,
4177: x_inv_agmt_chr_id_tbl => lx_inv_agmt_chr_id_tbl);
4178: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4179: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
4180: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4181: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_ERROR);
4182: END IF;
4183: IF lv_chr_secure = OKL_API.G_TRUE THEN
4184: -- get the stream id
4177: x_inv_agmt_chr_id_tbl => lx_inv_agmt_chr_id_tbl);
4178: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4179: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
4180: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4181: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_ERROR);
4182: END IF;
4183: IF lv_chr_secure = OKL_API.G_TRUE THEN
4184: -- get the stream id
4185: -- code added for user defined stream
4179: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
4180: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4181: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_ERROR);
4182: END IF;
4183: IF lv_chr_secure = OKL_API.G_TRUE THEN
4184: -- get the stream id
4185: -- code added for user defined stream
4186: IF(g_rep_req_yn = 'Y') THEN
4187: get_primary_no_prc_stream_type
4216:
4217:
4218: FETCH get_styid_csr INTO l_styid_rec;
4219: IF get_styid_csr%NOTFOUND THEN
4220: okl_api.set_message(p_app_name => G_APP_NAME,
4221: p_msg_name => G_LLA_NO_MATCHING_RECORD,
4222: p_token1 => G_COL_NAME_TOKEN,
4223: p_token1_value => 'Stream name');
4224: x_return_status := OKL_API.G_RET_STS_ERROR;
4220: okl_api.set_message(p_app_name => G_APP_NAME,
4221: p_msg_name => G_LLA_NO_MATCHING_RECORD,
4222: p_token1 => G_COL_NAME_TOKEN,
4223: p_token1_value => 'Stream name');
4224: x_return_status := OKL_API.G_RET_STS_ERROR;
4225: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
4226: END IF;
4227: CLOSE get_styid_csr;
4228: IF l_styid_rec.id = -1 THEN
4221: p_msg_name => G_LLA_NO_MATCHING_RECORD,
4222: p_token1 => G_COL_NAME_TOKEN,
4223: p_token1_value => 'Stream name');
4224: x_return_status := OKL_API.G_RET_STS_ERROR;
4225: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
4226: END IF;
4227: CLOSE get_styid_csr;
4228: IF l_styid_rec.id = -1 THEN
4229: okl_api.set_message(p_app_name => G_APP_NAME,
4225: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
4226: END IF;
4227: CLOSE get_styid_csr;
4228: IF l_styid_rec.id = -1 THEN
4229: okl_api.set_message(p_app_name => G_APP_NAME,
4230: p_msg_name => G_INVALID_VALUE,
4231: p_token1 => G_COL_NAME_TOKEN,
4232: p_token1_value => 'Stream ID');
4233: x_return_status := OKL_API.G_RET_STS_ERROR;
4229: okl_api.set_message(p_app_name => G_APP_NAME,
4230: p_msg_name => G_INVALID_VALUE,
4231: p_token1 => G_COL_NAME_TOKEN,
4232: p_token1_value => 'Stream ID');
4233: x_return_status := OKL_API.G_RET_STS_ERROR;
4234: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
4235: END IF;
4236: */
4237: -- Added code for user defined stream ends here
4230: p_msg_name => G_INVALID_VALUE,
4231: p_token1 => G_COL_NAME_TOKEN,
4232: p_token1_value => 'Stream ID');
4233: x_return_status := OKL_API.G_RET_STS_ERROR;
4234: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
4235: END IF;
4236: */
4237: -- Added code for user defined stream ends here
4238: -- Get the amount
4248: p_effective_date_operator => okl_securitization_pvt.G_GREATER_THAN_EQUAL_TO,
4249: p_stream_type_subclass => l_styid_rec.stream_type_subclass,
4250: x_value => lv_chr_secure,
4251: x_inv_agmt_chr_id_tbl => lx_inv_agmt_chr_id_tbl);
4252: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4253: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
4254: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4255: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_ERROR);
4256: END IF;
4249: p_stream_type_subclass => l_styid_rec.stream_type_subclass,
4250: x_value => lv_chr_secure,
4251: x_inv_agmt_chr_id_tbl => lx_inv_agmt_chr_id_tbl);
4252: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4253: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
4254: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4255: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_ERROR);
4256: END IF;
4257:
4250: x_value => lv_chr_secure,
4251: x_inv_agmt_chr_id_tbl => lx_inv_agmt_chr_id_tbl);
4252: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4253: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
4254: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4255: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_ERROR);
4256: END IF;
4257:
4258: --Start of modification Bug#3293300 - BAKUCHIB
4251: x_inv_agmt_chr_id_tbl => lx_inv_agmt_chr_id_tbl);
4252: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4253: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
4254: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4255: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_ERROR);
4256: END IF;
4257:
4258: --Start of modification Bug#3293300 - BAKUCHIB
4259: FOR i in lx_inv_agmt_chr_id_tbl.FIRST..lx_inv_agmt_chr_id_tbl.LAST LOOP
4283: p_stmv_rec => l_stmv_rec_secure,
4284: p_selv_tbl => l_selv_tbl_secure,
4285: x_stmv_rec => lx_stmv_rec_secure,
4286: x_selv_tbl => lx_selv_tbl_secure);
4287: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4288: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
4289: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4290: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_ERROR);
4291: END IF;
4284: p_selv_tbl => l_selv_tbl_secure,
4285: x_stmv_rec => lx_stmv_rec_secure,
4286: x_selv_tbl => lx_selv_tbl_secure);
4287: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4288: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
4289: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4290: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_ERROR);
4291: END IF;
4292:
4285: x_stmv_rec => lx_stmv_rec_secure,
4286: x_selv_tbl => lx_selv_tbl_secure);
4287: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4288: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
4289: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4290: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_ERROR);
4291: END IF;
4292:
4293: END IF;
4286: x_selv_tbl => lx_selv_tbl_secure);
4287: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4288: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
4289: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4290: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_ERROR);
4291: END IF;
4292:
4293: END IF;
4294:
4303: l_selv_tbl_intm_rentals.DELETE;
4304: l_selv_tbl_intm_rentals := l_selv_tbl;
4305: l_stmv_rec_intm_rentals := l_stmv_rec;
4306: END LOOP;
4307: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4308: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4309: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4310: RAISE OKL_API.G_EXCEPTION_ERROR;
4311: END IF;
4304: l_selv_tbl_intm_rentals := l_selv_tbl;
4305: l_stmv_rec_intm_rentals := l_stmv_rec;
4306: END LOOP;
4307: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4308: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4309: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4310: RAISE OKL_API.G_EXCEPTION_ERROR;
4311: END IF;
4312: -- for the contract header level.
4305: l_stmv_rec_intm_rentals := l_stmv_rec;
4306: END LOOP;
4307: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4308: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4309: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4310: RAISE OKL_API.G_EXCEPTION_ERROR;
4311: END IF;
4312: -- for the contract header level.
4313: l_stmv_rec_intm_rentals.khr_id := TO_NUMBER(p_chr_id);
4306: END LOOP;
4307: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4308: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4309: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4310: RAISE OKL_API.G_EXCEPTION_ERROR;
4311: END IF;
4312: -- for the contract header level.
4313: l_stmv_rec_intm_rentals.khr_id := TO_NUMBER(p_chr_id);
4314: l_stmv_rec_intm_rentals.kle_id := NULL;
4325:
4326: OPEN l_billedrents_csr(l_hdr_rec.orig_system_id1, -1, p_purpose );
4327: FETCH l_billedrents_csr INTO l_orig_amount;
4328: IF l_billedrents_csr%NOTFOUND THEN
4329: okl_api.set_message(p_app_name => G_APP_NAME,
4330: p_msg_name => G_LLA_NO_MATCHING_RECORD,
4331: p_token1 => G_COL_NAME_TOKEN,
4332: p_token1_value => 'Orig System Chr_id and for '||p_purpose);
4333: RAISE OKL_API.G_EXCEPTION_ERROR;
4329: okl_api.set_message(p_app_name => G_APP_NAME,
4330: p_msg_name => G_LLA_NO_MATCHING_RECORD,
4331: p_token1 => G_COL_NAME_TOKEN,
4332: p_token1_value => 'Orig System Chr_id and for '||p_purpose);
4333: RAISE OKL_API.G_EXCEPTION_ERROR;
4334: END IF;
4335: CLOSE l_billedrents_csr;
4336: -- Get Billabel rentals
4337: OPEN l_billedrents_csr(TO_NUMBER(p_chr_id), -1, p_purpose );
4336: -- Get Billabel rentals
4337: OPEN l_billedrents_csr(TO_NUMBER(p_chr_id), -1, p_purpose );
4338: FETCH l_billedrents_csr INTO l_rebook_amount;
4339: IF l_billedrents_csr%NOTFOUND THEN
4340: okl_api.set_message(p_app_name => G_APP_NAME,
4341: p_msg_name => G_LLA_NO_MATCHING_RECORD,
4342: p_token1 => G_COL_NAME_TOKEN,
4343: p_token1_value => 'Chr_id and for '||p_purpose);
4344: RAISE OKL_API.G_EXCEPTION_ERROR;
4340: okl_api.set_message(p_app_name => G_APP_NAME,
4341: p_msg_name => G_LLA_NO_MATCHING_RECORD,
4342: p_token1 => G_COL_NAME_TOKEN,
4343: p_token1_value => 'Chr_id and for '||p_purpose);
4344: RAISE OKL_API.G_EXCEPTION_ERROR;
4345: END IF;
4346: CLOSE l_billedrents_csr;
4347:
4348: l_selv_tbl_intm_rentals(1).amount := l_rebook_amount - l_orig_amount;
4364: p_stmv_rec => l_stmv_rec_intm_rentals,
4365: p_selv_tbl => l_selv_tbl_intm_rentals,
4366: x_stmv_rec => x_stmv_rec,
4367: x_selv_tbl => x_selv_tbl);
4368: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4369: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4370: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4371: RAISE OKL_API.G_EXCEPTION_ERROR;
4372: END IF;
4365: p_selv_tbl => l_selv_tbl_intm_rentals,
4366: x_stmv_rec => x_stmv_rec,
4367: x_selv_tbl => x_selv_tbl);
4368: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4369: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4370: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4371: RAISE OKL_API.G_EXCEPTION_ERROR;
4372: END IF;
4373: END IF;
4366: x_stmv_rec => x_stmv_rec,
4367: x_selv_tbl => x_selv_tbl);
4368: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4369: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4370: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4371: RAISE OKL_API.G_EXCEPTION_ERROR;
4372: END IF;
4373: END IF;
4374: l_selv_tbl_intm_rentals.DELETE(1, l_selv_tbl_intm_rentals.LAST);
4367: x_selv_tbl => x_selv_tbl);
4368: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4369: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4370: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4371: RAISE OKL_API.G_EXCEPTION_ERROR;
4372: END IF;
4373: END IF;
4374: l_selv_tbl_intm_rentals.DELETE(1, l_selv_tbl_intm_rentals.LAST);
4375: l_stmv_rec_intm_rentals := NULL;
4373: END IF;
4374: l_selv_tbl_intm_rentals.DELETE(1, l_selv_tbl_intm_rentals.LAST);
4375: l_stmv_rec_intm_rentals := NULL;
4376: -- for the contract header level.
4377: OKL_API.END_ACTIVITY (x_msg_count,
4378: x_msg_data );
4379: EXCEPTION
4380: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4381: IF l_strm_csr%ISOPEN THEN
4376: -- for the contract header level.
4377: OKL_API.END_ACTIVITY (x_msg_count,
4378: x_msg_data );
4379: EXCEPTION
4380: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4381: IF l_strm_csr%ISOPEN THEN
4382: CLOSE l_strm_csr;
4383: END IF;
4384: IF l_billedrents_csr%ISOPEN THEN
4392: END IF;
4393: IF get_styid_csr%ISOPEN THEN
4394: CLOSE get_styid_csr;
4395: END IF;
4396: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4397: l_api_name,
4398: G_PKG_NAME,
4399: 'OKL_API.G_RET_STS_ERROR',
4400: x_msg_count,
4395: END IF;
4396: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4397: l_api_name,
4398: G_PKG_NAME,
4399: 'OKL_API.G_RET_STS_ERROR',
4400: x_msg_count,
4401: x_msg_data,
4402: '_PVT');
4403: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4399: 'OKL_API.G_RET_STS_ERROR',
4400: x_msg_count,
4401: x_msg_data,
4402: '_PVT');
4403: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4404: IF l_strm_csr%ISOPEN THEN
4405: CLOSE l_strm_csr;
4406: END IF;
4407: IF l_billedrents_csr%ISOPEN THEN
4415: END IF;
4416: IF get_styid_csr%ISOPEN THEN
4417: CLOSE get_styid_csr;
4418: END IF;
4419: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
4420: l_api_name,
4421: G_PKG_NAME,
4422: 'OKL_API.G_RET_STS_UNEXP_ERROR',
4423: x_msg_count,
4418: END IF;
4419: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
4420: l_api_name,
4421: G_PKG_NAME,
4422: 'OKL_API.G_RET_STS_UNEXP_ERROR',
4423: x_msg_count,
4424: x_msg_data,
4425: '_PVT');
4426: WHEN OTHERS THEN
4438: END IF;
4439: IF get_styid_csr%ISOPEN THEN
4440: CLOSE get_styid_csr;
4441: END IF;
4442: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
4443: l_api_name,
4444: G_PKG_NAME,
4445: 'OTHERS',
4446: x_msg_count,
4450:
4451: -- Added by HKPATEL for mass rebook fix
4452: PROCEDURE adjust_massrebook_streams(
4453: p_api_version IN NUMBER,
4454: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
4455: x_return_status OUT NOCOPY VARCHAR2,
4456: x_msg_count OUT NOCOPY NUMBER,
4457: x_msg_data OUT NOCOPY VARCHAR2,
4458: p_chr_id IN VARCHAR2,
4461: l_api_name CONSTANT VARCHAR2(256) := 'ADJUSTMENT_STREAMS';
4462: --styid NUMBER;
4463: styid strm_rec_type;
4464: stream_name VARCHAR2(256);
4465: lv_chr_secure VARCHAR2(3) := OKL_API.G_FALSE;
4466: ln_secure_amt NUMBER := 0;
4467:
4468: -- To check if the contract is MASS REBOOK candidate
4469: CURSOR c_chk_msrbk_csr(p_chr_id NUMBER)
4579: lx_stmv_rec_secure Okl_Streams_pub.stmv_rec_type;
4580: lx_selv_tbl_secure Okl_Streams_pub.selv_tbl_type;
4581: lx_inv_agmt_chr_id_tbl okl_securitization_pvt.inv_agmt_chr_id_tbl_type;
4582: Begin
4583: x_return_status := OKL_API.G_RET_STS_SUCCESS;
4584: -- Call start_activity to create savepoint, check compatibility
4585: -- and initialize message list
4586: x_return_status := OKL_API.START_ACTIVITY (
4587: l_api_name
4582: Begin
4583: x_return_status := OKL_API.G_RET_STS_SUCCESS;
4584: -- Call start_activity to create savepoint, check compatibility
4585: -- and initialize message list
4586: x_return_status := OKL_API.START_ACTIVITY (
4587: l_api_name
4588: ,p_init_msg_list
4589: ,'_PVT'
4590: ,x_return_status);
4588: ,p_init_msg_list
4589: ,'_PVT'
4590: ,x_return_status);
4591: -- Check if activity started successfully
4592: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4593: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4594: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4595: RAISE OKL_API.G_EXCEPTION_ERROR;
4596: END IF;
4589: ,'_PVT'
4590: ,x_return_status);
4591: -- Check if activity started successfully
4592: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4593: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4594: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4595: RAISE OKL_API.G_EXCEPTION_ERROR;
4596: END IF;
4597:
4590: ,x_return_status);
4591: -- Check if activity started successfully
4592: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4593: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4594: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4595: RAISE OKL_API.G_EXCEPTION_ERROR;
4596: END IF;
4597:
4598: OPEN l_hdr_pdt_csr(p_chr_id);
4591: -- Check if activity started successfully
4592: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4593: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4594: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4595: RAISE OKL_API.G_EXCEPTION_ERROR;
4596: END IF;
4597:
4598: OPEN l_hdr_pdt_csr(p_chr_id);
4599: FETCH l_hdr_pdt_csr INTO l_pdt_id_rec;
4638: --OPEN get_styid_csr(p_strm_name => 'BILLING ADJUSTMENT');
4639:
4640: FETCH get_styid_csr INTO l_styid_rec;
4641: IF get_styid_csr%NOTFOUND THEN
4642: okl_api.set_message(p_app_name => G_APP_NAME,
4643: p_msg_name => G_LLA_NO_MATCHING_RECORD,
4644: p_token1 => G_COL_NAME_TOKEN,
4645: p_token1_value => 'Stream name');
4646: RAISE OKL_API.G_EXCEPTION_ERROR;
4642: okl_api.set_message(p_app_name => G_APP_NAME,
4643: p_msg_name => G_LLA_NO_MATCHING_RECORD,
4644: p_token1 => G_COL_NAME_TOKEN,
4645: p_token1_value => 'Stream name');
4646: RAISE OKL_API.G_EXCEPTION_ERROR;
4647: END IF;
4648: CLOSE get_styid_csr;
4649: IF l_styid_rec.id = -1 THEN
4650: okl_api.set_message(p_app_name => G_APP_NAME,
4646: RAISE OKL_API.G_EXCEPTION_ERROR;
4647: END IF;
4648: CLOSE get_styid_csr;
4649: IF l_styid_rec.id = -1 THEN
4650: okl_api.set_message(p_app_name => G_APP_NAME,
4651: p_msg_name => G_INVALID_VALUE,
4652: p_token1 => G_COL_NAME_TOKEN,
4653: p_token1_value => 'Stream ID');
4654: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4650: okl_api.set_message(p_app_name => G_APP_NAME,
4651: p_msg_name => G_INVALID_VALUE,
4652: p_token1 => G_COL_NAME_TOKEN,
4653: p_token1_value => 'Stream ID');
4654: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4655: END IF;
4656: */
4657: -- Added code for user defined stream ends here
4658: -- Get the line info
4682: p_kle_id => r_line_rec.kle_id,
4683: p_purpose => p_purpose);
4684: FETCH l_bill_adjust_csr INTO ln_billed_adj_amt;
4685: IF l_bill_adjust_csr%NOTFOUND THEN
4686: okl_api.set_message(p_app_name => G_APP_NAME,
4687: p_msg_name => G_LLA_NO_MATCHING_RECORD,
4688: p_token1 => G_COL_NAME_TOKEN,
4689: p_token1_value => 'Chr_id/Line id and for '||p_purpose);
4690: x_return_status := OKL_API.G_RET_STS_ERROR;
4686: okl_api.set_message(p_app_name => G_APP_NAME,
4687: p_msg_name => G_LLA_NO_MATCHING_RECORD,
4688: p_token1 => G_COL_NAME_TOKEN,
4689: p_token1_value => 'Chr_id/Line id and for '||p_purpose);
4690: x_return_status := OKL_API.G_RET_STS_ERROR;
4691: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
4692: END IF;
4693: CLOSE l_bill_adjust_csr;
4694: -- to get the billed amount of all the rent that have been
4687: p_msg_name => G_LLA_NO_MATCHING_RECORD,
4688: p_token1 => G_COL_NAME_TOKEN,
4689: p_token1_value => 'Chr_id/Line id and for '||p_purpose);
4690: x_return_status := OKL_API.G_RET_STS_ERROR;
4691: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
4692: END IF;
4693: CLOSE l_bill_adjust_csr;
4694: -- to get the billed amount of all the rent that have been
4695: -- billed but does not include the billing adjustment stream amount
4697: p_kle_id => r_line_rec.kle_id,
4698: p_purpose => p_purpose);
4699: FETCH l_billedrents_csr INTO lt_bill_rec.billed_amt;
4700: IF l_billedrents_csr%NOTFOUND THEN
4701: okl_api.set_message(p_app_name => G_APP_NAME,
4702: p_msg_name => G_LLA_NO_MATCHING_RECORD,
4703: p_token1 => G_COL_NAME_TOKEN,
4704: p_token1_value => 'Chr_id/Line id and for '||p_purpose);
4705: x_return_status := OKL_API.G_RET_STS_ERROR;
4701: okl_api.set_message(p_app_name => G_APP_NAME,
4702: p_msg_name => G_LLA_NO_MATCHING_RECORD,
4703: p_token1 => G_COL_NAME_TOKEN,
4704: p_token1_value => 'Chr_id/Line id and for '||p_purpose);
4705: x_return_status := OKL_API.G_RET_STS_ERROR;
4706: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
4707: END IF;
4708: CLOSE l_billedrents_csr;
4709:
4702: p_msg_name => G_LLA_NO_MATCHING_RECORD,
4703: p_token1 => G_COL_NAME_TOKEN,
4704: p_token1_value => 'Chr_id/Line id and for '||p_purpose);
4705: x_return_status := OKL_API.G_RET_STS_ERROR;
4706: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
4707: END IF;
4708: CLOSE l_billedrents_csr;
4709:
4710: l_selv_tbl_intm_rentals(1).amount := (lt_bill_rec.billed_amt) * -1 + ln_billed_adj_amt;
4722: p_stmv_rec => l_stmv_rec_intm_rentals,
4723: p_selv_tbl => l_selv_tbl_intm_rentals,
4724: x_stmv_rec => x_stmv_rec,
4725: x_selv_tbl => x_selv_tbl);
4726: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4727: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
4728: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4729: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_ERROR);
4730: END IF;
4723: p_selv_tbl => l_selv_tbl_intm_rentals,
4724: x_stmv_rec => x_stmv_rec,
4725: x_selv_tbl => x_selv_tbl);
4726: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4727: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
4728: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4729: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_ERROR);
4730: END IF;
4731: END IF;
4724: x_stmv_rec => x_stmv_rec,
4725: x_selv_tbl => x_selv_tbl);
4726: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4727: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
4728: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4729: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_ERROR);
4730: END IF;
4731: END IF;
4732: -- Check for Original contract is securitized
4725: x_selv_tbl => x_selv_tbl);
4726: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4727: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
4728: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4729: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_ERROR);
4730: END IF;
4731: END IF;
4732: -- Check for Original contract is securitized
4733: okl_securitization_pvt.check_khr_securitized(
4741: p_effective_date_operator => okl_securitization_pvt.G_GREATER_THAN_EQUAL_TO,
4742: p_stream_type_subclass => l_styid_rec.stream_type_subclass,
4743: x_value => lv_chr_secure,
4744: x_inv_agmt_chr_id_tbl => lx_inv_agmt_chr_id_tbl);
4745: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4746: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
4747: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4748: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_ERROR);
4749: END IF;
4742: p_stream_type_subclass => l_styid_rec.stream_type_subclass,
4743: x_value => lv_chr_secure,
4744: x_inv_agmt_chr_id_tbl => lx_inv_agmt_chr_id_tbl);
4745: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4746: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
4747: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4748: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_ERROR);
4749: END IF;
4750: IF lv_chr_secure = OKL_API.G_TRUE THEN
4743: x_value => lv_chr_secure,
4744: x_inv_agmt_chr_id_tbl => lx_inv_agmt_chr_id_tbl);
4745: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4746: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
4747: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4748: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_ERROR);
4749: END IF;
4750: IF lv_chr_secure = OKL_API.G_TRUE THEN
4751: IF(g_rep_req_yn = 'Y') THEN
4744: x_inv_agmt_chr_id_tbl => lx_inv_agmt_chr_id_tbl);
4745: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4746: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
4747: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4748: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_ERROR);
4749: END IF;
4750: IF lv_chr_secure = OKL_API.G_TRUE THEN
4751: IF(g_rep_req_yn = 'Y') THEN
4752: get_primary_no_prc_stream_type
4746: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
4747: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4748: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_ERROR);
4749: END IF;
4750: IF lv_chr_secure = OKL_API.G_TRUE THEN
4751: IF(g_rep_req_yn = 'Y') THEN
4752: get_primary_no_prc_stream_type
4753: (
4754: p_khr_id =>p_chr_id,
4781: --OPEN get_styid_csr(p_strm_name => 'INVESTOR DISBURSEMENT ADJUSTMENT');
4782: OPEN get_styid_csr(p_strm_name => l_strm_name);
4783: FETCH get_styid_csr INTO l_styid_rec;
4784: IF get_styid_csr%NOTFOUND THEN
4785: okl_api.set_message(p_app_name => G_APP_NAME,
4786: p_msg_name => G_LLA_NO_MATCHING_RECORD,
4787: p_token1 => G_COL_NAME_TOKEN,
4788: p_token1_value => 'Stream name');
4789: x_return_status := OKL_API.G_RET_STS_ERROR;
4785: okl_api.set_message(p_app_name => G_APP_NAME,
4786: p_msg_name => G_LLA_NO_MATCHING_RECORD,
4787: p_token1 => G_COL_NAME_TOKEN,
4788: p_token1_value => 'Stream name');
4789: x_return_status := OKL_API.G_RET_STS_ERROR;
4790: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
4791: END IF;
4792: CLOSE get_styid_csr;
4793: IF l_styid_rec.id = -1 THEN
4786: p_msg_name => G_LLA_NO_MATCHING_RECORD,
4787: p_token1 => G_COL_NAME_TOKEN,
4788: p_token1_value => 'Stream name');
4789: x_return_status := OKL_API.G_RET_STS_ERROR;
4790: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
4791: END IF;
4792: CLOSE get_styid_csr;
4793: IF l_styid_rec.id = -1 THEN
4794: okl_api.set_message(p_app_name => G_APP_NAME,
4790: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
4791: END IF;
4792: CLOSE get_styid_csr;
4793: IF l_styid_rec.id = -1 THEN
4794: okl_api.set_message(p_app_name => G_APP_NAME,
4795: p_msg_name => G_INVALID_VALUE,
4796: p_token1 => G_COL_NAME_TOKEN,
4797: p_token1_value => 'Stream ID');
4798: x_return_status := OKL_API.G_RET_STS_ERROR;
4794: okl_api.set_message(p_app_name => G_APP_NAME,
4795: p_msg_name => G_INVALID_VALUE,
4796: p_token1 => G_COL_NAME_TOKEN,
4797: p_token1_value => 'Stream ID');
4798: x_return_status := OKL_API.G_RET_STS_ERROR;
4799: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
4800: END IF;
4801: */
4802: -- Get the amount
4795: p_msg_name => G_INVALID_VALUE,
4796: p_token1 => G_COL_NAME_TOKEN,
4797: p_token1_value => 'Stream ID');
4798: x_return_status := OKL_API.G_RET_STS_ERROR;
4799: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
4800: END IF;
4801: */
4802: -- Get the amount
4803: -- LOOP start.
4812: p_effective_date_operator => okl_securitization_pvt.G_GREATER_THAN_EQUAL_TO,
4813: p_stream_type_subclass => l_styid_rec.stream_type_subclass,
4814: x_value => lv_chr_secure,
4815: x_inv_agmt_chr_id_tbl => lx_inv_agmt_chr_id_tbl);
4816: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4817: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
4818: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4819: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_ERROR);
4820: END IF;
4813: p_stream_type_subclass => l_styid_rec.stream_type_subclass,
4814: x_value => lv_chr_secure,
4815: x_inv_agmt_chr_id_tbl => lx_inv_agmt_chr_id_tbl);
4816: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4817: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
4818: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4819: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_ERROR);
4820: END IF;
4821: FOR i in lx_inv_agmt_chr_id_tbl.FIRST..lx_inv_agmt_chr_id_tbl.LAST LOOP
4814: x_value => lv_chr_secure,
4815: x_inv_agmt_chr_id_tbl => lx_inv_agmt_chr_id_tbl);
4816: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4817: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
4818: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4819: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_ERROR);
4820: END IF;
4821: FOR i in lx_inv_agmt_chr_id_tbl.FIRST..lx_inv_agmt_chr_id_tbl.LAST LOOP
4822: ln_secure_amt := okl_investor_invoice_disb_pvt.get_disb_amt(
4815: x_inv_agmt_chr_id_tbl => lx_inv_agmt_chr_id_tbl);
4816: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4817: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
4818: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4819: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_ERROR);
4820: END IF;
4821: FOR i in lx_inv_agmt_chr_id_tbl.FIRST..lx_inv_agmt_chr_id_tbl.LAST LOOP
4822: ln_secure_amt := okl_investor_invoice_disb_pvt.get_disb_amt(
4823: p_ia_id => lx_inv_agmt_chr_id_tbl(i).khr_id,
4839: p_stmv_rec => l_stmv_rec_secure,
4840: p_selv_tbl => l_selv_tbl_secure,
4841: x_stmv_rec => lx_stmv_rec_secure,
4842: x_selv_tbl => lx_selv_tbl_secure);
4843: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4844: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
4845: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4846: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_ERROR);
4847: END IF;
4840: p_selv_tbl => l_selv_tbl_secure,
4841: x_stmv_rec => lx_stmv_rec_secure,
4842: x_selv_tbl => lx_selv_tbl_secure);
4843: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4844: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
4845: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4846: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_ERROR);
4847: END IF;
4848: END IF;
4841: x_stmv_rec => lx_stmv_rec_secure,
4842: x_selv_tbl => lx_selv_tbl_secure);
4843: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4844: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
4845: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4846: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_ERROR);
4847: END IF;
4848: END IF;
4849: l_selv_tbl_secure.DELETE;
4842: x_selv_tbl => lx_selv_tbl_secure);
4843: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4844: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
4845: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4846: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_ERROR);
4847: END IF;
4848: END IF;
4849: l_selv_tbl_secure.DELETE;
4850: l_selv_tbl_secure := l_selv_tbl;
4854: l_selv_tbl_intm_rentals.DELETE;
4855: l_selv_tbl_intm_rentals := l_selv_tbl;
4856: l_stmv_rec_intm_rentals := l_stmv_rec;
4857: END LOOP;
4858: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4859: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4860: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4861: RAISE OKL_API.G_EXCEPTION_ERROR;
4862: END IF;
4855: l_selv_tbl_intm_rentals := l_selv_tbl;
4856: l_stmv_rec_intm_rentals := l_stmv_rec;
4857: END LOOP;
4858: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4859: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4860: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4861: RAISE OKL_API.G_EXCEPTION_ERROR;
4862: END IF;
4863: -- generate for the contract lines
4856: l_stmv_rec_intm_rentals := l_stmv_rec;
4857: END LOOP;
4858: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4859: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4860: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4861: RAISE OKL_API.G_EXCEPTION_ERROR;
4862: END IF;
4863: -- generate for the contract lines
4864: l_stmv_rec_intm_rentals.khr_id := p_chr_id;
4857: END LOOP;
4858: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4859: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4860: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4861: RAISE OKL_API.G_EXCEPTION_ERROR;
4862: END IF;
4863: -- generate for the contract lines
4864: l_stmv_rec_intm_rentals.khr_id := p_chr_id;
4865: l_stmv_rec_intm_rentals.kle_id := NULL;
4880: p_kle_id => NULL,
4881: p_purpose => p_purpose);
4882: FETCH l_bill_adjust_csr INTO ln_billed_adj_amt;
4883: IF l_bill_adjust_csr%NOTFOUND THEN
4884: okl_api.set_message(p_app_name => G_APP_NAME,
4885: p_msg_name => G_LLA_NO_MATCHING_RECORD,
4886: p_token1 => G_COL_NAME_TOKEN,
4887: p_token1_value => 'Chr_id/Line id and for '||p_purpose);
4888: x_return_status := OKL_API.G_RET_STS_ERROR;
4884: okl_api.set_message(p_app_name => G_APP_NAME,
4885: p_msg_name => G_LLA_NO_MATCHING_RECORD,
4886: p_token1 => G_COL_NAME_TOKEN,
4887: p_token1_value => 'Chr_id/Line id and for '||p_purpose);
4888: x_return_status := OKL_API.G_RET_STS_ERROR;
4889: RAISE OKL_API.G_EXCEPTION_ERROR;
4890: END IF;
4891: CLOSE l_bill_adjust_csr;
4892: -- to get the billed amount of all the rent that have been
4885: p_msg_name => G_LLA_NO_MATCHING_RECORD,
4886: p_token1 => G_COL_NAME_TOKEN,
4887: p_token1_value => 'Chr_id/Line id and for '||p_purpose);
4888: x_return_status := OKL_API.G_RET_STS_ERROR;
4889: RAISE OKL_API.G_EXCEPTION_ERROR;
4890: END IF;
4891: CLOSE l_bill_adjust_csr;
4892: -- to get the billed amount of all the rent that have been
4893: -- billed but does not include the billing adjustment stream amount
4895: p_kle_id => NULL,
4896: p_purpose => p_purpose);
4897: FETCH l_billedrents_csr INTO lt_bill_rec.billed_amt;
4898: IF l_billedrents_csr%NOTFOUND THEN
4899: okl_api.set_message(p_app_name => G_APP_NAME,
4900: p_msg_name => G_LLA_NO_MATCHING_RECORD,
4901: p_token1 => G_COL_NAME_TOKEN,
4902: p_token1_value => 'Chr_id/Line id and for '||p_purpose);
4903: x_return_status := OKL_API.G_RET_STS_ERROR;
4899: okl_api.set_message(p_app_name => G_APP_NAME,
4900: p_msg_name => G_LLA_NO_MATCHING_RECORD,
4901: p_token1 => G_COL_NAME_TOKEN,
4902: p_token1_value => 'Chr_id/Line id and for '||p_purpose);
4903: x_return_status := OKL_API.G_RET_STS_ERROR;
4904: RAISE OKL_API.G_EXCEPTION_ERROR;
4905: END IF;
4906: CLOSE l_billedrents_csr;
4907:
4900: p_msg_name => G_LLA_NO_MATCHING_RECORD,
4901: p_token1 => G_COL_NAME_TOKEN,
4902: p_token1_value => 'Chr_id/Line id and for '||p_purpose);
4903: x_return_status := OKL_API.G_RET_STS_ERROR;
4904: RAISE OKL_API.G_EXCEPTION_ERROR;
4905: END IF;
4906: CLOSE l_billedrents_csr;
4907:
4908: l_selv_tbl_intm_rentals(1).amount := (lt_bill_rec.billed_amt) * -1 + ln_billed_adj_amt;
4920: p_stmv_rec => l_stmv_rec_intm_rentals,
4921: p_selv_tbl => l_selv_tbl_intm_rentals,
4922: x_stmv_rec => x_stmv_rec,
4923: x_selv_tbl => x_selv_tbl);
4924: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4925: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4926: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4927: RAISE OKL_API.G_EXCEPTION_ERROR;
4928: END IF;
4921: p_selv_tbl => l_selv_tbl_intm_rentals,
4922: x_stmv_rec => x_stmv_rec,
4923: x_selv_tbl => x_selv_tbl);
4924: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4925: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4926: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4927: RAISE OKL_API.G_EXCEPTION_ERROR;
4928: END IF;
4929: END IF;
4922: x_stmv_rec => x_stmv_rec,
4923: x_selv_tbl => x_selv_tbl);
4924: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4925: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4926: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4927: RAISE OKL_API.G_EXCEPTION_ERROR;
4928: END IF;
4929: END IF;
4930: END IF;
4923: x_selv_tbl => x_selv_tbl);
4924: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4925: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4926: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4927: RAISE OKL_API.G_EXCEPTION_ERROR;
4928: END IF;
4929: END IF;
4930: END IF;
4931: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4927: RAISE OKL_API.G_EXCEPTION_ERROR;
4928: END IF;
4929: END IF;
4930: END IF;
4931: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4932: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4933: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4934: RAISE OKL_API.G_EXCEPTION_ERROR;
4935: END IF;
4928: END IF;
4929: END IF;
4930: END IF;
4931: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4932: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4933: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4934: RAISE OKL_API.G_EXCEPTION_ERROR;
4935: END IF;
4936:
4929: END IF;
4930: END IF;
4931: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4932: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4933: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4934: RAISE OKL_API.G_EXCEPTION_ERROR;
4935: END IF;
4936:
4937: OKL_API.END_ACTIVITY (x_msg_count,
4930: END IF;
4931: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4932: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4933: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4934: RAISE OKL_API.G_EXCEPTION_ERROR;
4935: END IF;
4936:
4937: OKL_API.END_ACTIVITY (x_msg_count,
4938: x_msg_data );
4933: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4934: RAISE OKL_API.G_EXCEPTION_ERROR;
4935: END IF;
4936:
4937: OKL_API.END_ACTIVITY (x_msg_count,
4938: x_msg_data );
4939: EXCEPTION
4940: WHEN OKL_API.G_EXCEPTION_ERROR then
4941: IF c_chk_msrbk_csr%ISOPEN THEN
4936:
4937: OKL_API.END_ACTIVITY (x_msg_count,
4938: x_msg_data );
4939: EXCEPTION
4940: WHEN OKL_API.G_EXCEPTION_ERROR then
4941: IF c_chk_msrbk_csr%ISOPEN THEN
4942: CLOSE c_chk_msrbk_csr;
4943: END IF;
4944: IF l_billedrents_csr%ISOPEN THEN
4955: END IF;
4956: IF l_trx_num_csr%ISOPEN THEN
4957: CLOSE l_trx_num_csr;
4958: END IF;
4959: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4960: l_api_name,
4961: G_PKG_NAME,
4962: 'OKL_API.G_RET_STS_ERROR',
4963: x_msg_count,
4958: END IF;
4959: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4960: l_api_name,
4961: G_PKG_NAME,
4962: 'OKL_API.G_RET_STS_ERROR',
4963: x_msg_count,
4964: x_msg_data,
4965: '_PVT');
4966: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
4962: 'OKL_API.G_RET_STS_ERROR',
4963: x_msg_count,
4964: x_msg_data,
4965: '_PVT');
4966: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
4967: IF c_chk_msrbk_csr%ISOPEN THEN
4968: CLOSE c_chk_msrbk_csr;
4969: END IF;
4970: IF l_billedrents_csr%ISOPEN THEN
4981: END IF;
4982: IF l_trx_num_csr%ISOPEN THEN
4983: CLOSE l_trx_num_csr;
4984: END IF;
4985: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
4986: l_api_name,
4987: G_PKG_NAME,
4988: 'OKL_API.G_RET_STS_UNEXP_ERROR',
4989: x_msg_count,
4984: END IF;
4985: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
4986: l_api_name,
4987: G_PKG_NAME,
4988: 'OKL_API.G_RET_STS_UNEXP_ERROR',
4989: x_msg_count,
4990: x_msg_data,
4991: '_PVT');
4992: WHEN OTHERS then
5007: END IF;
5008: IF l_trx_num_csr%ISOPEN THEN
5009: CLOSE l_trx_num_csr;
5010: END IF;
5011: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
5012: l_api_name,
5013: G_PKG_NAME,
5014: 'OTHERS',
5015: x_msg_count,
5021: -- End modification 11i10 bakuchib
5022: -- Start modification 11i10 bakuchib
5023: procedure create_advance_rental_streams(
5024: p_api_version IN NUMBER,
5025: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
5026: x_return_status OUT NOCOPY VARCHAR2,
5027: x_msg_count OUT NOCOPY NUMBER,
5028: x_msg_data OUT NOCOPY VARCHAR2,
5029: p_chr_id IN NUMBER,
5169: l_next_position NUMBER;
5170: --Bug 4414441 - End of Changes
5171: BEGIN
5172: print( l_api_name, 'begin');
5173: x_return_status := OKL_API.START_ACTIVITY(
5174: p_api_name => l_api_name,
5175: p_pkg_name => g_pkg_name,
5176: p_init_msg_list => p_init_msg_list,
5177: l_api_version => l_api_version,
5178: p_api_version => p_api_version,
5179: p_api_type => G_API_TYPE,
5180: x_return_status => x_return_status);
5181: -- check if activity started successfully
5182: If (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
5183: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5184: ElSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
5185: RAISE OKL_API.G_EXCEPTION_ERROR;
5186: End If;
5179: p_api_type => G_API_TYPE,
5180: x_return_status => x_return_status);
5181: -- check if activity started successfully
5182: If (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
5183: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5184: ElSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
5185: RAISE OKL_API.G_EXCEPTION_ERROR;
5186: End If;
5187:
5180: x_return_status => x_return_status);
5181: -- check if activity started successfully
5182: If (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
5183: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5184: ElSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
5185: RAISE OKL_API.G_EXCEPTION_ERROR;
5186: End If;
5187:
5188:
5181: -- check if activity started successfully
5182: If (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
5183: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5184: ElSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
5185: RAISE OKL_API.G_EXCEPTION_ERROR;
5186: End If;
5187:
5188:
5189: OPEN l_stmp_yn_csr (TO_NUMBER(p_chr_id), p_purpose);
5384: ,p_selv_tbl => l_selv_tbl
5385: ,x_stmv_rec => x_stmv_rec
5386: ,x_selv_tbl => x_selv_tbl);
5387:
5388: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
5389: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5390: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
5391: RAISE OKL_API.G_EXCEPTION_ERROR;
5392: END IF;
5385: ,x_stmv_rec => x_stmv_rec
5386: ,x_selv_tbl => x_selv_tbl);
5387:
5388: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
5389: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5390: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
5391: RAISE OKL_API.G_EXCEPTION_ERROR;
5392: END IF;
5393: ELSE
5386: ,x_selv_tbl => x_selv_tbl);
5387:
5388: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
5389: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5390: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
5391: RAISE OKL_API.G_EXCEPTION_ERROR;
5392: END IF;
5393: ELSE
5394: -- FOR ISG store the value for the first element alone
5387:
5388: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
5389: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5390: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
5391: RAISE OKL_API.G_EXCEPTION_ERROR;
5392: END IF;
5393: ELSE
5394: -- FOR ISG store the value for the first element alone
5395: -- as the sum of all the elements based on the structure (1,2,3)
5440: ,p_selv_tbl => l_selv_tbl_adv_rentals
5441: ,x_stmv_rec => x_stmv_rec
5442: ,x_selv_tbl => x_selv_tbl);
5443:
5444: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
5445: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5446: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
5447: RAISE OKL_API.G_EXCEPTION_ERROR;
5448: END IF;
5441: ,x_stmv_rec => x_stmv_rec
5442: ,x_selv_tbl => x_selv_tbl);
5443:
5444: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
5445: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5446: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
5447: RAISE OKL_API.G_EXCEPTION_ERROR;
5448: END IF;
5449: l_selv_tbl.DELETE(1, l_selv_tbl.COUNT);
5442: ,x_selv_tbl => x_selv_tbl);
5443:
5444: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
5445: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5446: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
5447: RAISE OKL_API.G_EXCEPTION_ERROR;
5448: END IF;
5449: l_selv_tbl.DELETE(1, l_selv_tbl.COUNT);
5450: l_selv_tbl_adv_rentals.DELETE(1, l_selv_tbl_adv_rentals.COUNT);
5443:
5444: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
5445: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5446: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
5447: RAISE OKL_API.G_EXCEPTION_ERROR;
5448: END IF;
5449: l_selv_tbl.DELETE(1, l_selv_tbl.COUNT);
5450: l_selv_tbl_adv_rentals.DELETE(1, l_selv_tbl_adv_rentals.COUNT);
5451: l_stmv_rec := NULL;
5451: l_stmv_rec := NULL;
5452: l_stmv_rec_adv_rentals := NULL;
5453: /* Dont raise any exceptions if you dont find any thing for rent streams ..
5454: ELSE
5455: RAISE OKL_API.G_EXCEPTION_ERROR;
5456: */
5457: END IF;
5458: CLOSE l_Strm_csr;
5459: END LOOP;
5459: END LOOP;
5460: --Bug 4346646 - End of Changes
5461:
5462: print( l_api_name, 'end', x_return_status);
5463: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
5464: EXCEPTION
5465: WHEN OKL_API.G_EXCEPTION_ERROR THEN
5466: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5467: p_api_name => l_api_name,
5461:
5462: print( l_api_name, 'end', x_return_status);
5463: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
5464: EXCEPTION
5465: WHEN OKL_API.G_EXCEPTION_ERROR THEN
5466: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5467: p_api_name => l_api_name,
5468: p_pkg_name => g_pkg_name,
5469: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
5462: print( l_api_name, 'end', x_return_status);
5463: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
5464: EXCEPTION
5465: WHEN OKL_API.G_EXCEPTION_ERROR THEN
5466: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5467: p_api_name => l_api_name,
5468: p_pkg_name => g_pkg_name,
5469: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
5470: x_msg_count => x_msg_count,
5465: WHEN OKL_API.G_EXCEPTION_ERROR THEN
5466: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5467: p_api_name => l_api_name,
5468: p_pkg_name => g_pkg_name,
5469: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
5470: x_msg_count => x_msg_count,
5471: x_msg_data => x_msg_data,
5472: p_api_type => g_api_type);
5473: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5469: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
5470: x_msg_count => x_msg_count,
5471: x_msg_data => x_msg_data,
5472: p_api_type => g_api_type);
5473: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5474: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5475: p_api_name => l_api_name,
5476: p_pkg_name => g_pkg_name,
5477: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
5470: x_msg_count => x_msg_count,
5471: x_msg_data => x_msg_data,
5472: p_api_type => g_api_type);
5473: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5474: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5475: p_api_name => l_api_name,
5476: p_pkg_name => g_pkg_name,
5477: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
5478: x_msg_count => x_msg_count,
5473: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5474: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5475: p_api_name => l_api_name,
5476: p_pkg_name => g_pkg_name,
5477: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
5478: x_msg_count => x_msg_count,
5479: x_msg_data => x_msg_data,
5480: p_api_type => g_api_type);
5481: If( strm_name_csr%ISOPEN ) Then
5481: If( strm_name_csr%ISOPEN ) Then
5482: CLOSE strm_name_csr;
5483: End If;
5484: WHEN OTHERS THEN
5485: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5486: p_api_name => l_api_name,
5487: p_pkg_name => g_pkg_name,
5488: p_exc_name => 'OTHERS',
5489: x_msg_count => x_msg_count,
5494: -- End modification 11i10 bakuchib
5495: -- Start modification Bug#3121708 bakuchib
5496: Procedure update_contract_yields(
5497: p_api_version IN NUMBER,
5498: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
5499: x_return_status OUT NOCOPY VARCHAR2,
5500: x_msg_count OUT NOCOPY NUMBER,
5501: x_msg_data OUT NOCOPY VARCHAR2,
5502: p_chr_id IN VARCHAR2,
5503: p_chr_yields IN yields_rec_type) AS
5504:
5505: l_api_name CONSTANT VARCHAR2(30) := 'UPDATE_CONTRACT_YIELDS';
5506: l_api_version CONSTANT NUMBER := 1;
5507: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
5508:
5509: pl_chrv_rec okl_okc_migration_pvt.chrv_rec_type;
5510: pl_khrv_rec okl_contract_pvt.khrv_rec_type;
5511: xl_chrv_rec okl_okc_migration_pvt.chrv_rec_type;
5564: begin
5565:
5566: print( l_api_name, 'begin');
5567:
5568: x_return_status := OKL_API.START_ACTIVITY(
5569: p_api_name => l_api_name,
5570: p_pkg_name => g_pkg_name,
5571: p_init_msg_list => p_init_msg_list,
5572: l_api_version => l_api_version,
5574: p_api_type => G_API_TYPE,
5575: x_return_status => x_return_status);
5576:
5577: -- check if activity started successfully
5578: If (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
5579: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5580: ElSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
5581: raise OKL_API.G_EXCEPTION_ERROR;
5582: End If;
5575: x_return_status => x_return_status);
5576:
5577: -- check if activity started successfully
5578: If (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
5579: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5580: ElSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
5581: raise OKL_API.G_EXCEPTION_ERROR;
5582: End If;
5583: OPEN validate_sub_line(p_dnz_chr_id => l_chr_id);
5576:
5577: -- check if activity started successfully
5578: If (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
5579: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5580: ElSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
5581: raise OKL_API.G_EXCEPTION_ERROR;
5582: End If;
5583: OPEN validate_sub_line(p_dnz_chr_id => l_chr_id);
5584: FETCH validate_sub_line INTO ln_sub_exists;
5577: -- check if activity started successfully
5578: If (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
5579: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5580: ElSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
5581: raise OKL_API.G_EXCEPTION_ERROR;
5582: End If;
5583: OPEN validate_sub_line(p_dnz_chr_id => l_chr_id);
5584: FETCH validate_sub_line INTO ln_sub_exists;
5585: CLOSE validate_sub_line;
5643: p_init_msg_list => p_init_msg_list,
5644: x_return_status => x_return_status,
5645: x_msg_count => x_msg_count,
5646: x_msg_data => x_msg_data,
5647: p_restricted_update => OKL_API.G_FALSE,
5648: p_chrv_rec => pl_chrv_rec,
5649: p_khrv_rec => pl_khrv_rec,
5650: p_edit_mode => 'N',
5651: x_chrv_rec => xl_chrv_rec,
5651: x_chrv_rec => xl_chrv_rec,
5652: x_khrv_rec => xl_khrv_rec);
5653:
5654:
5655: If (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
5656: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5657: ElSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
5658: raise OKL_API.G_EXCEPTION_ERROR;
5659: End If;
5652: x_khrv_rec => xl_khrv_rec);
5653:
5654:
5655: If (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
5656: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5657: ElSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
5658: raise OKL_API.G_EXCEPTION_ERROR;
5659: End If;
5660:
5653:
5654:
5655: If (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
5656: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5657: ElSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
5658: raise OKL_API.G_EXCEPTION_ERROR;
5659: End If;
5660:
5661:
5654:
5655: If (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
5656: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5657: ElSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
5658: raise OKL_API.G_EXCEPTION_ERROR;
5659: End If;
5660:
5661:
5662: print( l_api_name, 'end', x_return_status);
5660:
5661:
5662: print( l_api_name, 'end', x_return_status);
5663:
5664: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
5665:
5666: Exception
5667: when OKL_API.G_EXCEPTION_ERROR then
5668: IF validate_sub_line%ISOPEN THEN
5663:
5664: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
5665:
5666: Exception
5667: when OKL_API.G_EXCEPTION_ERROR then
5668: IF validate_sub_line%ISOPEN THEN
5669: CLOSE validate_sub_line;
5670: END IF;
5671: IF validate_esg_isg%ISOPEN THEN
5670: END IF;
5671: IF validate_esg_isg%ISOPEN THEN
5672: CLOSE validate_esg_isg;
5673: END IF;
5674: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5675: p_api_name => l_api_name,
5676: p_pkg_name => g_pkg_name,
5677: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
5678: x_msg_count => x_msg_count,
5673: END IF;
5674: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5675: p_api_name => l_api_name,
5676: p_pkg_name => g_pkg_name,
5677: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
5678: x_msg_count => x_msg_count,
5679: x_msg_data => x_msg_data,
5680: p_api_type => g_api_type);
5681: IF l_hdr_csr%ISOPEN THEN
5681: IF l_hdr_csr%ISOPEN THEN
5682: CLOSE l_hdr_csr;
5683: End If;
5684:
5685: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
5686: IF validate_sub_line%ISOPEN THEN
5687: CLOSE validate_sub_line;
5688: END IF;
5689: IF validate_esg_isg%ISOPEN THEN
5688: END IF;
5689: IF validate_esg_isg%ISOPEN THEN
5690: CLOSE validate_esg_isg;
5691: END IF;
5692: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5693: p_api_name => l_api_name,
5694: p_pkg_name => g_pkg_name,
5695: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
5696: x_msg_count => x_msg_count,
5691: END IF;
5692: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5693: p_api_name => l_api_name,
5694: p_pkg_name => g_pkg_name,
5695: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
5696: x_msg_count => x_msg_count,
5697: x_msg_data => x_msg_data,
5698: p_api_type => g_api_type);
5699:
5707: END IF;
5708: IF validate_esg_isg%ISOPEN THEN
5709: CLOSE validate_esg_isg;
5710: END IF;
5711: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5712: p_api_name => l_api_name,
5713: p_pkg_name => g_pkg_name,
5714: p_exc_name => 'OTHERS',
5715: x_msg_count => x_msg_count,
5724: -- Start modification Bug#3121708 bakuchib
5725: -- gboomina BUG#4508077 added p_source_call as a parameter
5726: Procedure adjust_streams(
5727: p_api_version IN NUMBER,
5728: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
5729: x_return_status OUT NOCOPY VARCHAR2,
5730: x_msg_count OUT NOCOPY NUMBER,
5731: x_msg_data OUT NOCOPY VARCHAR2,
5732: p_chr_id IN VARCHAR2,
5734: p_source_call IN VARCHAR2) AS
5735:
5736: l_api_name CONSTANT VARCHAR2(30) := 'ADJUST_STREAMS';
5737: l_api_version CONSTANT NUMBER := 1;
5738: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
5739:
5740: pl_chrv_rec okl_okc_migration_pvt.chrv_rec_type;
5741: pl_khrv_rec okl_contract_pvt.khrv_rec_type;
5742: xl_chrv_rec okl_okc_migration_pvt.chrv_rec_type;
5852: --Added by kthiruva for Debugging
5853: write_to_log('Inside procedure adjust_Streams');
5854:
5855: print( l_api_name, 'begin');
5856: x_return_status := OKL_API.START_ACTIVITY(
5857: p_api_name => l_api_name,
5858: p_pkg_name => g_pkg_name,
5859: p_init_msg_list => p_init_msg_list,
5860: l_api_version => l_api_version,
5861: p_api_version => p_api_version,
5862: p_api_type => G_API_TYPE,
5863: x_return_status => x_return_status);
5864: -- check if activity started successfully
5865: If (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
5866: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5867: ElSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
5868: raise OKL_API.G_EXCEPTION_ERROR;
5869: End If;
5862: p_api_type => G_API_TYPE,
5863: x_return_status => x_return_status);
5864: -- check if activity started successfully
5865: If (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
5866: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5867: ElSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
5868: raise OKL_API.G_EXCEPTION_ERROR;
5869: End If;
5870: OPEN l_hdr_pdt_csr(p_chr_id);
5863: x_return_status => x_return_status);
5864: -- check if activity started successfully
5865: If (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
5866: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5867: ElSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
5868: raise OKL_API.G_EXCEPTION_ERROR;
5869: End If;
5870: OPEN l_hdr_pdt_csr(p_chr_id);
5871: FETCH l_hdr_pdt_csr INTO l_pdt_id_rec;
5864: -- check if activity started successfully
5865: If (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
5866: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5867: ElSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
5868: raise OKL_API.G_EXCEPTION_ERROR;
5869: End If;
5870: OPEN l_hdr_pdt_csr(p_chr_id);
5871: FETCH l_hdr_pdt_csr INTO l_pdt_id_rec;
5872: CLOSE l_hdr_pdt_csr;
5902: p_start_date => l_hdr_rec.start_date,
5903: p_end_date => l_hdr_rec.end_date,
5904: p_deal_type => l_deal_type,
5905: x_return_status => x_return_status);
5906: If (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
5907: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5908: ElSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
5909: raise OKL_API.G_EXCEPTION_ERROR;
5910: End If;
5903: p_end_date => l_hdr_rec.end_date,
5904: p_deal_type => l_deal_type,
5905: x_return_status => x_return_status);
5906: If (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
5907: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5908: ElSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
5909: raise OKL_API.G_EXCEPTION_ERROR;
5910: End If;
5911: END IF;
5904: p_deal_type => l_deal_type,
5905: x_return_status => x_return_status);
5906: If (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
5907: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5908: ElSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
5909: raise OKL_API.G_EXCEPTION_ERROR;
5910: End If;
5911: END IF;
5912: -- gboomina BUG#4508077 end
5905: x_return_status => x_return_status);
5906: If (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
5907: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5908: ElSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
5909: raise OKL_API.G_EXCEPTION_ERROR;
5910: End If;
5911: END IF;
5912: -- gboomina BUG#4508077 end
5913: END IF;
5923: x_msg_data => x_msg_data);
5924:
5925: --Added by kthiruva for Debugging
5926: write_to_log('After the call to OKL_STREAM_GENERATOR_PUB.GEN_VAR_INT_SCHEDULE, return status is :'||x_return_status);
5927: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
5928: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5929: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
5930: raise OKL_API.G_EXCEPTION_ERROR;
5931: END IF;
5924:
5925: --Added by kthiruva for Debugging
5926: write_to_log('After the call to OKL_STREAM_GENERATOR_PUB.GEN_VAR_INT_SCHEDULE, return status is :'||x_return_status);
5927: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
5928: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5929: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
5930: raise OKL_API.G_EXCEPTION_ERROR;
5931: END IF;
5932:
5925: --Added by kthiruva for Debugging
5926: write_to_log('After the call to OKL_STREAM_GENERATOR_PUB.GEN_VAR_INT_SCHEDULE, return status is :'||x_return_status);
5927: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
5928: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5929: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
5930: raise OKL_API.G_EXCEPTION_ERROR;
5931: END IF;
5932:
5933: -- Added by HKPATEL for mass rebook fix
5926: write_to_log('After the call to OKL_STREAM_GENERATOR_PUB.GEN_VAR_INT_SCHEDULE, return status is :'||x_return_status);
5927: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
5928: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5929: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
5930: raise OKL_API.G_EXCEPTION_ERROR;
5931: END IF;
5932:
5933: -- Added by HKPATEL for mass rebook fix
5934: /*
5939: x_msg_count => x_msg_count,
5940: x_msg_data => x_msg_data,
5941: p_chr_id => p_chr_id,
5942: p_purpose => p_purpose);
5943: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
5944: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5945: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
5946: raise OKL_API.G_EXCEPTION_ERROR;
5947: END IF;
5940: x_msg_data => x_msg_data,
5941: p_chr_id => p_chr_id,
5942: p_purpose => p_purpose);
5943: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
5944: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5945: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
5946: raise OKL_API.G_EXCEPTION_ERROR;
5947: END IF;
5948: */
5941: p_chr_id => p_chr_id,
5942: p_purpose => p_purpose);
5943: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
5944: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5945: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
5946: raise OKL_API.G_EXCEPTION_ERROR;
5947: END IF;
5948: */
5949:
5942: p_purpose => p_purpose);
5943: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
5944: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5945: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
5946: raise OKL_API.G_EXCEPTION_ERROR;
5947: END IF;
5948: */
5949:
5950: -- Code for rebook enhancement - HKPATEL - 4212626
5961:
5962: --Added by kthiruva for Debugging
5963: write_to_log('After the call to create_advance_rental_streams, return status is :'||x_return_status);
5964:
5965: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
5966: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5967: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
5968: raise OKL_API.G_EXCEPTION_ERROR;
5969: END IF;
5962: --Added by kthiruva for Debugging
5963: write_to_log('After the call to create_advance_rental_streams, return status is :'||x_return_status);
5964:
5965: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
5966: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5967: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
5968: raise OKL_API.G_EXCEPTION_ERROR;
5969: END IF;
5970:
5963: write_to_log('After the call to create_advance_rental_streams, return status is :'||x_return_status);
5964:
5965: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
5966: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5967: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
5968: raise OKL_API.G_EXCEPTION_ERROR;
5969: END IF;
5970:
5971: --Added by kthiruva for Debugging
5964:
5965: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
5966: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5967: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
5968: raise OKL_API.G_EXCEPTION_ERROR;
5969: END IF;
5970:
5971: --Added by kthiruva for Debugging
5972: write_to_log('Prior to the call to adjust_passthrough_streams ');
5981:
5982: --Added by kthiruva for Debugging
5983: write_to_log('After the call to adjust_passthrough_streams, return status is :'||x_return_status);
5984:
5985: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5986: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5987: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5988: RAISE OKL_API.G_EXCEPTION_ERROR;
5989: END IF;
5982: --Added by kthiruva for Debugging
5983: write_to_log('After the call to adjust_passthrough_streams, return status is :'||x_return_status);
5984:
5985: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5986: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5987: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5988: RAISE OKL_API.G_EXCEPTION_ERROR;
5989: END IF;
5990:
5983: write_to_log('After the call to adjust_passthrough_streams, return status is :'||x_return_status);
5984:
5985: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5986: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5987: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5988: RAISE OKL_API.G_EXCEPTION_ERROR;
5989: END IF;
5990:
5991: --Added by kthiruva for Debugging
5984:
5985: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5986: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5987: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5988: RAISE OKL_API.G_EXCEPTION_ERROR;
5989: END IF;
5990:
5991: --Added by kthiruva for Debugging
5992: write_to_log('Prior to the call to OKL_CONTRACT_REBOOK_PVT.link_streams');
6000:
6001: --Added by kthiruva for Debugging
6002: write_to_log('After the call to OKL_CONTRACT_REBOOK_PVT.link_streams, return status is :'||x_return_status);
6003:
6004: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6005: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6006: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6007: RAISE OKL_API.G_EXCEPTION_ERROR;
6008: END IF;
6001: --Added by kthiruva for Debugging
6002: write_to_log('After the call to OKL_CONTRACT_REBOOK_PVT.link_streams, return status is :'||x_return_status);
6003:
6004: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6005: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6006: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6007: RAISE OKL_API.G_EXCEPTION_ERROR;
6008: END IF;
6009: -- Code for rebook enhancement ends here - HKPATEL
6002: write_to_log('After the call to OKL_CONTRACT_REBOOK_PVT.link_streams, return status is :'||x_return_status);
6003:
6004: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6005: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6006: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6007: RAISE OKL_API.G_EXCEPTION_ERROR;
6008: END IF;
6009: -- Code for rebook enhancement ends here - HKPATEL
6010:
6003:
6004: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6005: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6006: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6007: RAISE OKL_API.G_EXCEPTION_ERROR;
6008: END IF;
6009: -- Code for rebook enhancement ends here - HKPATEL
6010:
6011: i := 0;
6016: OPEN strm_name_csr ( l_strms_rec.sty_id );
6017: FETCH strm_name_csr into l_strm_name_rec;
6018: IF strm_name_csr%NOTFOUND THEN
6019: CLOSE strm_name_csr;
6020: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6021: ELSIF (l_strm_name_rec.name = 'BILLING ADJUSTMENT') THEN
6022: OPEN bill_strm_hist_csr(l_chr_id,l_strms_rec.sty_id,'CURR',p_purpose);
6023: FETCH bill_strm_hist_csr into l_hist_flag;
6024: IF bill_strm_hist_csr%NOTFOUND THEN
6033: FETCH strm_name_csr into l_strm_name_rec;
6034:
6035: IF strm_name_csr%NOTFOUND THEN
6036: CLOSE strm_name_csr;
6037: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6038:
6039: ELSIF (l_strm_name_rec.stream_type_purpose NOT IN (
6040: 'INVESTOR_CNTRCT_OBLIGATION_PAY', 'INVESTOR_DISB_ADJUSTMENT',
6041: 'INVESTOR_EVERGREEN_RENT_PAY', 'INVESTOR_INTEREST_INCOME',
6081: OPEN strm_name_csr ( l_strms_rec.sty_id );
6082: FETCH strm_name_csr into l_strm_name_rec;
6083: IF strm_name_csr%NOTFOUND THEN
6084: CLOSE strm_name_csr;
6085: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6086: END IF;
6087: CLOSE strm_name_csr;
6088: -- Code commented and added for use defined streams
6089: --l_strm_name := l_strm_name_rec.name;
6144: x_msg_count => x_msg_count,
6145: x_msg_data => x_msg_data,
6146: p_stmv_tbl => l_stmv_tbl,
6147: x_stmv_tbl => x_stmv_tbl);
6148: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
6149: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6150: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
6151: raise OKL_API.G_EXCEPTION_ERROR;
6152: END IF;
6145: x_msg_data => x_msg_data,
6146: p_stmv_tbl => l_stmv_tbl,
6147: x_stmv_tbl => x_stmv_tbl);
6148: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
6149: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6150: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
6151: raise OKL_API.G_EXCEPTION_ERROR;
6152: END IF;
6153: Commented code for Bulk update ends here by HKPATEL -02/18/2005 */
6146: p_stmv_tbl => l_stmv_tbl,
6147: x_stmv_tbl => x_stmv_tbl);
6148: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
6149: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6150: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
6151: raise OKL_API.G_EXCEPTION_ERROR;
6152: END IF;
6153: Commented code for Bulk update ends here by HKPATEL -02/18/2005 */
6154:
6147: x_stmv_tbl => x_stmv_tbl);
6148: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
6149: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6150: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
6151: raise OKL_API.G_EXCEPTION_ERROR;
6152: END IF;
6153: Commented code for Bulk update ends here by HKPATEL -02/18/2005 */
6154:
6155: -- Bulk update
6177: write_to_log('After the call to OKL_BILLING_CONTROLLER_PVT.track_next_bill_date');
6178:
6179: EXCEPTION
6180: WHEN OTHERS THEN
6181: okl_api.set_message (p_app_name => G_APP_NAME,
6182: p_msg_name => G_DB_ERROR,
6183: p_token1 => G_PROG_NAME_TOKEN,
6184: p_token1_value => l_api_name,
6185: p_token2 => G_SQLCODE_TOKEN,
6185: p_token2 => G_SQLCODE_TOKEN,
6186: p_token2_value => sqlcode,
6187: p_token3 => G_SQLERRM_TOKEN,
6188: p_token3_value => sqlerrm);
6189: l_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
6190: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6191: END;
6192:
6193: -- Bulk update ends here
6186: p_token2_value => sqlcode,
6187: p_token3 => G_SQLERRM_TOKEN,
6188: p_token3_value => sqlerrm);
6189: l_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
6190: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6191: END;
6192:
6193: -- Bulk update ends here
6194:
6203: p_chr_id => l_chr_id,
6204: p_purpose => p_purpose);
6205:
6206:
6207: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
6208: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6209: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
6210: raise OKL_API.G_EXCEPTION_ERROR;
6211: END IF;
6204: p_purpose => p_purpose);
6205:
6206:
6207: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
6208: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6209: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
6210: raise OKL_API.G_EXCEPTION_ERROR;
6211: END IF;
6212: */
6205:
6206:
6207: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
6208: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6209: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
6210: raise OKL_API.G_EXCEPTION_ERROR;
6211: END IF;
6212: */
6213: OPEN l_hdr_csr( l_chr_id);
6206:
6207: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
6208: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6209: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
6210: raise OKL_API.G_EXCEPTION_ERROR;
6211: END IF;
6212: */
6213: OPEN l_hdr_csr( l_chr_id);
6214: FETCH l_hdr_csr INTO l_hdr_rec;
6213: OPEN l_hdr_csr( l_chr_id);
6214: FETCH l_hdr_csr INTO l_hdr_rec;
6215:
6216: IF l_hdr_csr%NOTFOUND THEN
6217: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6218: Elsif (l_hdr_rec.orig_system_source_code = 'OKL_REBOOK') Then
6219: NULL;
6220: /* Changed the position of code for bug 4212626
6221: create_interim_rental_streams(
6226: x_msg_data => x_msg_data,
6227: p_chr_id => l_chr_id,
6228: p_purpose => p_purpose);
6229:
6230: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6231: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6232: END IF;
6233: */
6234: END IF;
6227: p_chr_id => l_chr_id,
6228: p_purpose => p_purpose);
6229:
6230: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6231: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6232: END IF;
6233: */
6234: END IF;
6235: CLOSE l_hdr_csr;
6269: x_msg_data => x_msg_data,
6270: p_selv_tbl => l_selv_tbl);
6271:
6272:
6273: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6274: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6275: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6276: RAISE OKL_API.G_EXCEPTION_ERROR;
6277: END IF;
6270: p_selv_tbl => l_selv_tbl);
6271:
6272:
6273: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6274: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6275: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6276: RAISE OKL_API.G_EXCEPTION_ERROR;
6277: END IF;
6278: End If;
6271:
6272:
6273: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6274: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6275: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6276: RAISE OKL_API.G_EXCEPTION_ERROR;
6277: END IF;
6278: End If;
6279: /* Changed the position of code for bug 4212626
6272:
6273: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6274: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6275: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6276: RAISE OKL_API.G_EXCEPTION_ERROR;
6277: END IF;
6278: End If;
6279: /* Changed the position of code for bug 4212626
6280: adjust_passthrough_streams(
6286: p_chr_id => p_chr_id,
6287: p_purpose => p_purpose);
6288:
6289:
6290: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6291: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6292: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6293: RAISE OKL_API.G_EXCEPTION_ERROR;
6294: END IF;
6287: p_purpose => p_purpose);
6288:
6289:
6290: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6291: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6292: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6293: RAISE OKL_API.G_EXCEPTION_ERROR;
6294: END IF;
6295: */
6288:
6289:
6290: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6291: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6292: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6293: RAISE OKL_API.G_EXCEPTION_ERROR;
6294: END IF;
6295: */
6296: x_return_status := l_return_status;
6289:
6290: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6291: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6292: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6293: RAISE OKL_API.G_EXCEPTION_ERROR;
6294: END IF;
6295: */
6296: x_return_status := l_return_status;
6297:
6296: x_return_status := l_return_status;
6297:
6298: print( l_api_name, 'end', x_return_status);
6299:
6300: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
6301:
6302: Exception
6303: when OKL_API.G_EXCEPTION_ERROR THEN
6304: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
6299:
6300: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
6301:
6302: Exception
6303: when OKL_API.G_EXCEPTION_ERROR THEN
6304: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
6305: p_api_name => l_api_name,
6306: p_pkg_name => g_pkg_name,
6307: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
6300: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
6301:
6302: Exception
6303: when OKL_API.G_EXCEPTION_ERROR THEN
6304: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
6305: p_api_name => l_api_name,
6306: p_pkg_name => g_pkg_name,
6307: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
6308: x_msg_count => x_msg_count,
6303: when OKL_API.G_EXCEPTION_ERROR THEN
6304: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
6305: p_api_name => l_api_name,
6306: p_pkg_name => g_pkg_name,
6307: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
6308: x_msg_count => x_msg_count,
6309: x_msg_data => x_msg_data,
6310: p_api_type => g_api_type);
6311: IF l_hdr_csr%ISOPEN THEN
6311: IF l_hdr_csr%ISOPEN THEN
6312: CLOSE l_hdr_csr;
6313: End If;
6314:
6315: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
6316: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
6317: p_api_name => l_api_name,
6318: p_pkg_name => g_pkg_name,
6319: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
6312: CLOSE l_hdr_csr;
6313: End If;
6314:
6315: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
6316: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
6317: p_api_name => l_api_name,
6318: p_pkg_name => g_pkg_name,
6319: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
6320: x_msg_count => x_msg_count,
6315: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
6316: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
6317: p_api_name => l_api_name,
6318: p_pkg_name => g_pkg_name,
6319: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
6320: x_msg_count => x_msg_count,
6321: x_msg_data => x_msg_data,
6322: p_api_type => g_api_type);
6323:
6329: CLOSE l_hdr_csr;
6330: End If;
6331:
6332: when OTHERS THEN
6333: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
6334: p_api_name => l_api_name,
6335: p_pkg_name => g_pkg_name,
6336: p_exc_name => 'OTHERS',
6337: x_msg_count => x_msg_count,
6386: --
6387: -- End of comments
6388: PROCEDURE RECREATE_TMT_LN_STRMS(
6389: p_api_version IN NUMBER,
6390: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
6391: x_return_status OUT NOCOPY VARCHAR2,
6392: x_msg_count OUT NOCOPY NUMBER,
6393: x_msg_data OUT NOCOPY VARCHAR2,
6394: p_chr_id IN VARCHAR2,
6698:
6699:
6700: BEGIN
6701:
6702: x_return_status := OKL_API.G_RET_STS_SUCCESS;
6703:
6704: -- Call start_activity to create savepoint, check compatibility
6705: -- and initialize message list
6706: x_return_status := OKL_API.START_ACTIVITY (
6702: x_return_status := OKL_API.G_RET_STS_SUCCESS;
6703:
6704: -- Call start_activity to create savepoint, check compatibility
6705: -- and initialize message list
6706: x_return_status := OKL_API.START_ACTIVITY (
6707: l_api_name
6708: ,p_init_msg_list
6709: ,'_PVT'
6710: ,x_return_status);
6708: ,p_init_msg_list
6709: ,'_PVT'
6710: ,x_return_status);
6711: -- Check if activity started successfully
6712: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6713: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6714: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6715: RAISE OKL_API.G_EXCEPTION_ERROR;
6716: END IF;
6709: ,'_PVT'
6710: ,x_return_status);
6711: -- Check if activity started successfully
6712: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6713: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6714: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6715: RAISE OKL_API.G_EXCEPTION_ERROR;
6716: END IF;
6717:
6710: ,x_return_status);
6711: -- Check if activity started successfully
6712: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6713: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6714: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6715: RAISE OKL_API.G_EXCEPTION_ERROR;
6716: END IF;
6717:
6718: -- Initialize variables/records
6711: -- Check if activity started successfully
6712: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6713: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6714: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6715: RAISE OKL_API.G_EXCEPTION_ERROR;
6716: END IF;
6717:
6718: -- Initialize variables/records
6719: l_strm_index := 0;
7034: , l_stmv_tbl
7035: , l_selv_tbl
7036: , lx_stmv_tbl
7037: , lx_selv_tbl);
7038: IF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7039: RAISE OKL_API.G_EXCEPTION_ERROR;
7040: ELSIF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
7041: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7042: END IF;
7035: , l_selv_tbl
7036: , lx_stmv_tbl
7037: , lx_selv_tbl);
7038: IF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7039: RAISE OKL_API.G_EXCEPTION_ERROR;
7040: ELSIF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
7041: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7042: END IF;
7043: END IF; -- l_stmv_tbl count check
7036: , lx_stmv_tbl
7037: , lx_selv_tbl);
7038: IF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7039: RAISE OKL_API.G_EXCEPTION_ERROR;
7040: ELSIF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
7041: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7042: END IF;
7043: END IF; -- l_stmv_tbl count check
7044:
7037: , lx_selv_tbl);
7038: IF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7039: RAISE OKL_API.G_EXCEPTION_ERROR;
7040: ELSIF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
7041: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7042: END IF;
7043: END IF; -- l_stmv_tbl count check
7044:
7045: END IF; -- END IF p_source_call check
7044:
7045: END IF; -- END IF p_source_call check
7046:
7047: -- End of API
7048: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
7049: EXCEPTION
7050: WHEN OKL_API.G_EXCEPTION_ERROR THEN
7051: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
7052: p_api_name => l_api_name,
7046:
7047: -- End of API
7048: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
7049: EXCEPTION
7050: WHEN OKL_API.G_EXCEPTION_ERROR THEN
7051: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
7052: p_api_name => l_api_name,
7053: p_pkg_name => g_pkg_name,
7054: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
7047: -- End of API
7048: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
7049: EXCEPTION
7050: WHEN OKL_API.G_EXCEPTION_ERROR THEN
7051: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
7052: p_api_name => l_api_name,
7053: p_pkg_name => g_pkg_name,
7054: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
7055: x_msg_count => x_msg_count,
7050: WHEN OKL_API.G_EXCEPTION_ERROR THEN
7051: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
7052: p_api_name => l_api_name,
7053: p_pkg_name => g_pkg_name,
7054: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
7055: x_msg_count => x_msg_count,
7056: x_msg_data => x_msg_data,
7057: p_api_type => g_api_type);
7058: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
7054: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
7055: x_msg_count => x_msg_count,
7056: x_msg_data => x_msg_data,
7057: p_api_type => g_api_type);
7058: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
7059: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
7060: p_api_name => l_api_name,
7061: p_pkg_name => g_pkg_name,
7062: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
7055: x_msg_count => x_msg_count,
7056: x_msg_data => x_msg_data,
7057: p_api_type => g_api_type);
7058: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
7059: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
7060: p_api_name => l_api_name,
7061: p_pkg_name => g_pkg_name,
7062: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
7063: x_msg_count => x_msg_count,
7058: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
7059: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
7060: p_api_name => l_api_name,
7061: p_pkg_name => g_pkg_name,
7062: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
7063: x_msg_count => x_msg_count,
7064: x_msg_data => x_msg_data,
7065: p_api_type => g_api_type);
7066: WHEN OTHERS THEN
7063: x_msg_count => x_msg_count,
7064: x_msg_data => x_msg_data,
7065: p_api_type => g_api_type);
7066: WHEN OTHERS THEN
7067: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
7068: p_api_name => l_api_name,
7069: p_pkg_name => g_pkg_name,
7070: p_exc_name => 'OTHERS',
7071: x_msg_count => x_msg_count,
7076:
7077: -- Start modification 11i10 bakuchib
7078: Procedure process_streams(
7079: p_api_version IN NUMBER,
7080: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
7081: x_return_status OUT NOCOPY VARCHAR2,
7082: x_msg_count OUT NOCOPY NUMBER,
7083: x_msg_data OUT NOCOPY VARCHAR2,
7084: p_chr_id IN VARCHAR2,
7087: p_source_call IN VARCHAR2) AS
7088:
7089: l_api_name CONSTANT VARCHAR2(30) := 'PROCESS_STREAMS';
7090: l_api_version CONSTANT NUMBER := 1;
7091: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
7092:
7093: pl_chrv_rec okl_okc_migration_pvt.chrv_rec_type;
7094: pl_khrv_rec okl_contract_pvt.khrv_rec_type;
7095: xl_chrv_rec okl_okc_migration_pvt.chrv_rec_type;
7276: --Bug 4541302 - End of Changes
7277:
7278:
7279: BEGIN
7280: x_return_status := OKL_API.G_RET_STS_SUCCESS;
7281: -- Call start_activity to create savepoint, check compatibility
7282: -- and initialize message list
7283: x_return_status := OKL_API.START_ACTIVITY (
7284: l_api_name
7279: BEGIN
7280: x_return_status := OKL_API.G_RET_STS_SUCCESS;
7281: -- Call start_activity to create savepoint, check compatibility
7282: -- and initialize message list
7283: x_return_status := OKL_API.START_ACTIVITY (
7284: l_api_name
7285: ,p_init_msg_list
7286: ,'_PVT'
7287: ,x_return_status);
7285: ,p_init_msg_list
7286: ,'_PVT'
7287: ,x_return_status);
7288: -- Check if activity started successfully
7289: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7290: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7291: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7292: RAISE OKL_API.G_EXCEPTION_ERROR;
7293: END IF;
7286: ,'_PVT'
7287: ,x_return_status);
7288: -- Check if activity started successfully
7289: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7290: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7291: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7292: RAISE OKL_API.G_EXCEPTION_ERROR;
7293: END IF;
7294: IF p_process_yn = OKL_API.G_TRUE Then
7287: ,x_return_status);
7288: -- Check if activity started successfully
7289: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7290: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7291: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7292: RAISE OKL_API.G_EXCEPTION_ERROR;
7293: END IF;
7294: IF p_process_yn = OKL_API.G_TRUE Then
7295: l_process_yn := 'Y';
7288: -- Check if activity started successfully
7289: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7290: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7291: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7292: RAISE OKL_API.G_EXCEPTION_ERROR;
7293: END IF;
7294: IF p_process_yn = OKL_API.G_TRUE Then
7295: l_process_yn := 'Y';
7296: END IF;
7290: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7291: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7292: RAISE OKL_API.G_EXCEPTION_ERROR;
7293: END IF;
7294: IF p_process_yn = OKL_API.G_TRUE Then
7295: l_process_yn := 'Y';
7296: END IF;
7297:
7298: --Added by kthiruva for Debug Logging
7330: x_msg_data => x_msg_data,
7331: p_rulv_rec => l_rulv_rec,
7332: p_edit_mode => 'N',
7333: x_rulv_rec => lx_rulv_rec);
7334: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7335: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
7336: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7337: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_ERROR);
7338: END IF;
7331: p_rulv_rec => l_rulv_rec,
7332: p_edit_mode => 'N',
7333: x_rulv_rec => lx_rulv_rec);
7334: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7335: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
7336: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7337: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_ERROR);
7338: END IF;
7339: END LOOP;
7332: p_edit_mode => 'N',
7333: x_rulv_rec => lx_rulv_rec);
7334: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7335: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
7336: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7337: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_ERROR);
7338: END IF;
7339: END LOOP;
7340: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7333: x_rulv_rec => lx_rulv_rec);
7334: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7335: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
7336: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7337: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_ERROR);
7338: END IF;
7339: END LOOP;
7340: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7341: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
7336: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7337: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_ERROR);
7338: END IF;
7339: END LOOP;
7340: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7341: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
7342: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7343: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_ERROR);
7344: END IF;
7337: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_ERROR);
7338: END IF;
7339: END LOOP;
7340: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7341: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
7342: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7343: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_ERROR);
7344: END IF;
7345: END LOOP;
7338: END IF;
7339: END LOOP;
7340: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7341: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
7342: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7343: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_ERROR);
7344: END IF;
7345: END LOOP;
7346: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7339: END LOOP;
7340: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7341: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
7342: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7343: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_ERROR);
7344: END IF;
7345: END LOOP;
7346: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7347: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7342: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7343: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_ERROR);
7344: END IF;
7345: END LOOP;
7346: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7347: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7348: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7349: RAISE OKL_API.G_EXCEPTION_ERROR;
7350: END IF;
7343: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_ERROR);
7344: END IF;
7345: END LOOP;
7346: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7347: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7348: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7349: RAISE OKL_API.G_EXCEPTION_ERROR;
7350: END IF;
7351: -- getting the header info
7344: END IF;
7345: END LOOP;
7346: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7347: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7348: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7349: RAISE OKL_API.G_EXCEPTION_ERROR;
7350: END IF;
7351: -- getting the header info
7352: OPEN l_hdr_csr( p_chr_id );
7345: END LOOP;
7346: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7347: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7348: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7349: RAISE OKL_API.G_EXCEPTION_ERROR;
7350: END IF;
7351: -- getting the header info
7352: OPEN l_hdr_csr( p_chr_id );
7353: FETCH l_hdr_csr INTO l_hdr_rec;
7410:
7411: --Added by kthiruva for Logging Purposes
7412: write_to_log('After the call to update_contract_yields, the return status is :'||x_return_status);
7413:
7414: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7415: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7416: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7417: RAISE OKL_API.G_EXCEPTION_ERROR;
7418: END IF;
7411: --Added by kthiruva for Logging Purposes
7412: write_to_log('After the call to update_contract_yields, the return status is :'||x_return_status);
7413:
7414: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7415: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7416: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7417: RAISE OKL_API.G_EXCEPTION_ERROR;
7418: END IF;
7419: END IF;
7412: write_to_log('After the call to update_contract_yields, the return status is :'||x_return_status);
7413:
7414: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7415: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7416: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7417: RAISE OKL_API.G_EXCEPTION_ERROR;
7418: END IF;
7419: END IF;
7420: IF p_source_call = 'ESG' THEN
7413:
7414: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7415: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7416: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7417: RAISE OKL_API.G_EXCEPTION_ERROR;
7418: END IF;
7419: END IF;
7420: IF p_source_call = 'ESG' THEN
7421: --Added by kthiruva for Debugging
7447: x_msg_count => x_msg_count,
7448: x_msg_data => x_msg_data,
7449: p_stmv_tbl => l_stmv_tbl);
7450:
7451: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7452: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7453: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7454: RAISE OKL_API.G_EXCEPTION_ERROR;
7455: END IF;
7448: x_msg_data => x_msg_data,
7449: p_stmv_tbl => l_stmv_tbl);
7450:
7451: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7452: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7453: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7454: RAISE OKL_API.G_EXCEPTION_ERROR;
7455: END IF;
7456: END IF;
7449: p_stmv_tbl => l_stmv_tbl);
7450:
7451: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7452: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7453: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7454: RAISE OKL_API.G_EXCEPTION_ERROR;
7455: END IF;
7456: END IF;
7457: RETURN;
7450:
7451: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7452: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7453: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7454: RAISE OKL_API.G_EXCEPTION_ERROR;
7455: END IF;
7456: END IF;
7457: RETURN;
7458: -- Start for bug#3388812 modification - BAKUCHIB
7477:
7478: --Added by kthiruva for Debug Purposes
7479: write_to_log('After the call to adjust_streams, the return status is :'||x_return_status);
7480:
7481: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7482: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7483: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7484: RAISE OKL_API.G_EXCEPTION_ERROR;
7485: END IF;
7478: --Added by kthiruva for Debug Purposes
7479: write_to_log('After the call to adjust_streams, the return status is :'||x_return_status);
7480:
7481: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7482: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7483: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7484: RAISE OKL_API.G_EXCEPTION_ERROR;
7485: END IF;
7486: END IF;
7479: write_to_log('After the call to adjust_streams, the return status is :'||x_return_status);
7480:
7481: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7482: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7483: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7484: RAISE OKL_API.G_EXCEPTION_ERROR;
7485: END IF;
7486: END IF;
7487: END If;
7480:
7481: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7482: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7483: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7484: RAISE OKL_API.G_EXCEPTION_ERROR;
7485: END IF;
7486: END IF;
7487: END If;
7488: IF l_orig_yn = 'Y' THEN
7501:
7502: --Added by kthiruva for Debug Purposes
7503: write_to_log('After the call to adjust_streams, the return status is :'||x_return_status);
7504:
7505: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7506: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7507: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7508: RAISE OKL_API.G_EXCEPTION_ERROR;
7509: END IF;
7502: --Added by kthiruva for Debug Purposes
7503: write_to_log('After the call to adjust_streams, the return status is :'||x_return_status);
7504:
7505: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7506: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7507: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7508: RAISE OKL_API.G_EXCEPTION_ERROR;
7509: END IF;
7510: END IF;
7503: write_to_log('After the call to adjust_streams, the return status is :'||x_return_status);
7504:
7505: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7506: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7507: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7508: RAISE OKL_API.G_EXCEPTION_ERROR;
7509: END IF;
7510: END IF;
7511: ELSIF p_source_call = 'ISG' THEN
7504:
7505: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7506: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7507: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7508: RAISE OKL_API.G_EXCEPTION_ERROR;
7509: END IF;
7510: END IF;
7511: ELSIF p_source_call = 'ISG' THEN
7512: --Added by kthiruva for Debugging
7539: x_msg_count => x_msg_count,
7540: x_msg_data => x_msg_data,
7541: p_stmv_tbl => l_stmv_tbl);
7542:
7543: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7544: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7545: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7546: RAISE OKL_API.G_EXCEPTION_ERROR;
7547: END IF;
7540: x_msg_data => x_msg_data,
7541: p_stmv_tbl => l_stmv_tbl);
7542:
7543: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7544: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7545: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7546: RAISE OKL_API.G_EXCEPTION_ERROR;
7547: END IF;
7548: END IF;
7541: p_stmv_tbl => l_stmv_tbl);
7542:
7543: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7544: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7545: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7546: RAISE OKL_API.G_EXCEPTION_ERROR;
7547: END IF;
7548: END IF;
7549: RETURN;
7542:
7543: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7544: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7545: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7546: RAISE OKL_API.G_EXCEPTION_ERROR;
7547: END IF;
7548: END IF;
7549: RETURN;
7550: -- Start for bug#3388812 modification - BAKUCHIB
7561: p_chr_id => p_chr_id,
7562: p_purpose => 'REPORT',
7563: p_source_call => p_source_call);
7564:
7565: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7566: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7567: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7568: RAISE OKL_API.G_EXCEPTION_ERROR;
7569: END IF;
7562: p_purpose => 'REPORT',
7563: p_source_call => p_source_call);
7564:
7565: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7566: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7567: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7568: RAISE OKL_API.G_EXCEPTION_ERROR;
7569: END IF;
7570: -- gboomina BUG#4508077 passing p_source_call as a parameter
7563: p_source_call => p_source_call);
7564:
7565: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7566: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7567: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7568: RAISE OKL_API.G_EXCEPTION_ERROR;
7569: END IF;
7570: -- gboomina BUG#4508077 passing p_source_call as a parameter
7571: adjust_streams(p_api_version => p_api_version,
7564:
7565: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7566: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7567: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7568: RAISE OKL_API.G_EXCEPTION_ERROR;
7569: END IF;
7570: -- gboomina BUG#4508077 passing p_source_call as a parameter
7571: adjust_streams(p_api_version => p_api_version,
7572: p_init_msg_list => p_init_msg_list,
7576: p_chr_id => p_chr_id,
7577: p_purpose => 'ORIGIN',
7578: p_source_call => p_source_call);
7579:
7580: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7581: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7582: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7583: RAISE OKL_API.G_EXCEPTION_ERROR;
7584: END IF;
7577: p_purpose => 'ORIGIN',
7578: p_source_call => p_source_call);
7579:
7580: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7581: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7582: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7583: RAISE OKL_API.G_EXCEPTION_ERROR;
7584: END IF;
7585: END IF;
7578: p_source_call => p_source_call);
7579:
7580: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7581: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7582: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7583: RAISE OKL_API.G_EXCEPTION_ERROR;
7584: END IF;
7585: END IF;
7586: ELSE
7579:
7580: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7581: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7582: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7583: RAISE OKL_API.G_EXCEPTION_ERROR;
7584: END IF;
7585: END IF;
7586: ELSE
7587: write_to_log('Before the call to Adjust Streams');
7597:
7598: --Added by kthiruva for Debug Purposes
7599: write_to_log('After the call to adjust_streams, the return status is :'||x_return_status);
7600:
7601: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7602: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7603: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7604: RAISE OKL_API.G_EXCEPTION_ERROR;
7605: END IF;
7598: --Added by kthiruva for Debug Purposes
7599: write_to_log('After the call to adjust_streams, the return status is :'||x_return_status);
7600:
7601: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7602: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7603: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7604: RAISE OKL_API.G_EXCEPTION_ERROR;
7605: END IF;
7606: END If;
7599: write_to_log('After the call to adjust_streams, the return status is :'||x_return_status);
7600:
7601: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7602: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7603: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7604: RAISE OKL_API.G_EXCEPTION_ERROR;
7605: END IF;
7606: END If;
7607: END IF;
7600:
7601: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7602: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7603: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7604: RAISE OKL_API.G_EXCEPTION_ERROR;
7605: END IF;
7606: END If;
7607: END IF;
7608: -- Start for bug#3388812 modification - BAKUCHIB
7637: write_to_log('Streams historised successfully');
7638:
7639: EXCEPTION
7640: WHEN OTHERS THEN
7641: okl_api.set_message (p_app_name => G_APP_NAME,
7642: p_msg_name => G_DB_ERROR,
7643: p_token1 => G_PROG_NAME_TOKEN,
7644: p_token1_value => l_api_name,
7645: p_token2 => G_SQLCODE_TOKEN,
7645: p_token2 => G_SQLCODE_TOKEN,
7646: p_token2_value => sqlcode,
7647: p_token3 => G_SQLERRM_TOKEN,
7648: p_token3_value => sqlerrm);
7649: l_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
7650: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7651: END;
7652: /* Commented for Bulk Update - HKPATEL - 02/18/2004
7653: IF (m_stmv_tbl.COUNT > 0) THEN
7646: p_token2_value => sqlcode,
7647: p_token3 => G_SQLERRM_TOKEN,
7648: p_token3_value => sqlerrm);
7649: l_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
7650: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7651: END;
7652: /* Commented for Bulk Update - HKPATEL - 02/18/2004
7653: IF (m_stmv_tbl.COUNT > 0) THEN
7654: okl_streams_pub.update_streams(
7658: x_msg_count => x_msg_count,
7659: x_msg_data => x_msg_data,
7660: p_stmv_tbl => m_stmv_tbl,
7661: x_stmv_tbl => mx_stmv_tbl);
7662: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
7663: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7664: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
7665: raise OKL_API.G_EXCEPTION_ERROR;
7666: END IF;
7659: x_msg_data => x_msg_data,
7660: p_stmv_tbl => m_stmv_tbl,
7661: x_stmv_tbl => mx_stmv_tbl);
7662: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
7663: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7664: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
7665: raise OKL_API.G_EXCEPTION_ERROR;
7666: END IF;
7667: */
7660: p_stmv_tbl => m_stmv_tbl,
7661: x_stmv_tbl => mx_stmv_tbl);
7662: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
7663: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7664: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
7665: raise OKL_API.G_EXCEPTION_ERROR;
7666: END IF;
7667: */
7668: END IF;
7661: x_stmv_tbl => mx_stmv_tbl);
7662: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
7663: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7664: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
7665: raise OKL_API.G_EXCEPTION_ERROR;
7666: END IF;
7667: */
7668: END IF;
7669: END IF;
7674: write_to_log('Value of l_orig_yn = Y');
7675: write_to_log('Prior to the call to update_rvi_amount');
7676:
7677: update_rvi_amount(p_api_version => p_api_version,
7678: p_init_msg_list => OKL_API.G_FALSE,
7679: p_chr_id => p_chr_id,
7680: p_purpose => 'ORIGIN',
7681: x_return_status => x_return_status,
7682: x_msg_count => x_msg_count,
7684:
7685: --Added by kthiruva for Debugging
7686: write_to_log('After the call to Update_rvi_amount, the return status is :'||x_return_status);
7687: -- raise appropriate exceptions depending on the return status
7688: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7689: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7690: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7691: RAISE OKL_API.G_EXCEPTION_ERROR;
7692: END IF;
7685: --Added by kthiruva for Debugging
7686: write_to_log('After the call to Update_rvi_amount, the return status is :'||x_return_status);
7687: -- raise appropriate exceptions depending on the return status
7688: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7689: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7690: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7691: RAISE OKL_API.G_EXCEPTION_ERROR;
7692: END IF;
7693: END IF;
7686: write_to_log('After the call to Update_rvi_amount, the return status is :'||x_return_status);
7687: -- raise appropriate exceptions depending on the return status
7688: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7689: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7690: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7691: RAISE OKL_API.G_EXCEPTION_ERROR;
7692: END IF;
7693: END IF;
7694: -- for reporting product
7687: -- raise appropriate exceptions depending on the return status
7688: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7689: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7690: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7691: RAISE OKL_API.G_EXCEPTION_ERROR;
7692: END IF;
7693: END IF;
7694: -- for reporting product
7695: IF l_rep_yn = 'Y' THEN
7697: write_to_log('Value of l_rep_yn = Y');
7698: write_to_log('Prior to the call to update_rvi_amount');
7699:
7700: update_rvi_amount(p_api_version => p_api_version,
7701: p_init_msg_list => OKL_API.G_FALSE,
7702: p_chr_id => p_chr_id,
7703: p_purpose => 'REPORT',
7704: x_return_status => x_return_status,
7705: x_msg_count => x_msg_count,
7707:
7708: --Added by kthiruva for Debugging
7709: write_to_log('After the call to Update_rvi_amount, the return status is :'||x_return_status);
7710: -- raise appropriate exceptions depending on the return status
7711: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7712: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7713: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7714: RAISE OKL_API.G_EXCEPTION_ERROR;
7715: END IF;
7708: --Added by kthiruva for Debugging
7709: write_to_log('After the call to Update_rvi_amount, the return status is :'||x_return_status);
7710: -- raise appropriate exceptions depending on the return status
7711: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7712: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7713: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7714: RAISE OKL_API.G_EXCEPTION_ERROR;
7715: END IF;
7716: END IF;
7709: write_to_log('After the call to Update_rvi_amount, the return status is :'||x_return_status);
7710: -- raise appropriate exceptions depending on the return status
7711: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7712: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7713: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7714: RAISE OKL_API.G_EXCEPTION_ERROR;
7715: END IF;
7716: END IF;
7717: -- gboomina BUG#4508077 changes end
7710: -- raise appropriate exceptions depending on the return status
7711: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7712: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7713: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7714: RAISE OKL_API.G_EXCEPTION_ERROR;
7715: END IF;
7716: END IF;
7717: -- gboomina BUG#4508077 changes end
7718: -- End for bug#3388812 modification - BAKUCHIB
7715: END IF;
7716: END IF;
7717: -- gboomina BUG#4508077 changes end
7718: -- End for bug#3388812 modification - BAKUCHIB
7719: IF (x_return_status = Okl_Api.G_RET_STS_SUCCESS) THEN
7720: --PAGARG 25-Feb-2005 Bug 4037658 starts
7721: IF (p_source_call = 'ESG') THEN
7722: IF not (l_orig_yn='N' AND l_rep_yn='Y') THEN
7723: --Added by kthiruva on 11-Aug-2005
7778: x_msg_count,
7779: x_msg_data,
7780: 'COMPLETE',
7781: p_chr_id );
7782: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7783: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7784: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7785: RAISE OKL_API.G_EXCEPTION_ERROR;
7786: END IF;
7779: x_msg_data,
7780: 'COMPLETE',
7781: p_chr_id );
7782: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7783: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7784: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7785: RAISE OKL_API.G_EXCEPTION_ERROR;
7786: END IF;
7787: --Added by kthiruva for Debugging
7780: 'COMPLETE',
7781: p_chr_id );
7782: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7783: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7784: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7785: RAISE OKL_API.G_EXCEPTION_ERROR;
7786: END IF;
7787: --Added by kthiruva for Debugging
7788: write_to_log('After the call to update_contract_status, return status is :'||x_return_status);
7781: p_chr_id );
7782: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7783: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7784: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7785: RAISE OKL_API.G_EXCEPTION_ERROR;
7786: END IF;
7787: --Added by kthiruva for Debugging
7788: write_to_log('After the call to update_contract_status, return status is :'||x_return_status);
7789:
7797: p_chr_id => l_chr_id);
7798: --Added by kthiruva for Debugging
7799: write_to_log('After the call to cascade_lease_status, return status is :'||x_return_status);
7800:
7801: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7802: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7803: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7804: RAISE OKL_API.G_EXCEPTION_ERROR;
7805: END IF;
7798: --Added by kthiruva for Debugging
7799: write_to_log('After the call to cascade_lease_status, return status is :'||x_return_status);
7800:
7801: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7802: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7803: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7804: RAISE OKL_API.G_EXCEPTION_ERROR;
7805: END IF;
7806: --srsreeni Bug6011651 starts
7799: write_to_log('After the call to cascade_lease_status, return status is :'||x_return_status);
7800:
7801: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7802: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7803: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7804: RAISE OKL_API.G_EXCEPTION_ERROR;
7805: END IF;
7806: --srsreeni Bug6011651 starts
7807: OKL_BOOK_CONTROLLER_PVT.update_book_controller_trx(
7800:
7801: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7802: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7803: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7804: RAISE OKL_API.G_EXCEPTION_ERROR;
7805: END IF;
7806: --srsreeni Bug6011651 starts
7807: OKL_BOOK_CONTROLLER_PVT.update_book_controller_trx(
7808: p_api_version => l_api_version,
7812: x_msg_data => x_msg_data,
7813: p_khr_id => l_chr_id,
7814: p_prog_short_name => OKL_BOOK_CONTROLLER_PVT.G_PRICE_CONTRACT,
7815: p_progress_status => OKL_BOOK_CONTROLLER_PVT.G_PROG_STS_COMPLETE);
7816: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7817: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7818: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7819: RAISE OKL_API.G_EXCEPTION_ERROR;
7820: END IF;
7813: p_khr_id => l_chr_id,
7814: p_prog_short_name => OKL_BOOK_CONTROLLER_PVT.G_PRICE_CONTRACT,
7815: p_progress_status => OKL_BOOK_CONTROLLER_PVT.G_PROG_STS_COMPLETE);
7816: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7817: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7818: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7819: RAISE OKL_API.G_EXCEPTION_ERROR;
7820: END IF;
7821: --srsreeni Bug6011651 ends
7814: p_prog_short_name => OKL_BOOK_CONTROLLER_PVT.G_PRICE_CONTRACT,
7815: p_progress_status => OKL_BOOK_CONTROLLER_PVT.G_PROG_STS_COMPLETE);
7816: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7817: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7818: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7819: RAISE OKL_API.G_EXCEPTION_ERROR;
7820: END IF;
7821: --srsreeni Bug6011651 ends
7822: END IF;
7815: p_progress_status => OKL_BOOK_CONTROLLER_PVT.G_PROG_STS_COMPLETE);
7816: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7817: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7818: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7819: RAISE OKL_API.G_EXCEPTION_ERROR;
7820: END IF;
7821: --srsreeni Bug6011651 ends
7822: END IF;
7823:
7842: x_msg_data,
7843: 'COMPLETE',
7844: p_chr_id );
7845:
7846: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7847: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7848: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7849: RAISE OKL_API.G_EXCEPTION_ERROR;
7850: END IF;
7843: 'COMPLETE',
7844: p_chr_id );
7845:
7846: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7847: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7848: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7849: RAISE OKL_API.G_EXCEPTION_ERROR;
7850: END IF;
7851: --call to cascade status on to lines
7844: p_chr_id );
7845:
7846: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7847: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7848: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7849: RAISE OKL_API.G_EXCEPTION_ERROR;
7850: END IF;
7851: --call to cascade status on to lines
7852: OKL_CONTRACT_STATUS_PVT.cascade_lease_status
7845:
7846: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7847: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7848: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7849: RAISE OKL_API.G_EXCEPTION_ERROR;
7850: END IF;
7851: --call to cascade status on to lines
7852: OKL_CONTRACT_STATUS_PVT.cascade_lease_status
7853: (p_api_version => l_api_version,
7856: x_msg_count => x_msg_count,
7857: x_msg_data => x_msg_data,
7858: p_chr_id => l_chr_id);
7859:
7860: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7861: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7862: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7863: RAISE OKL_API.G_EXCEPTION_ERROR;
7864: END IF;
7857: x_msg_data => x_msg_data,
7858: p_chr_id => l_chr_id);
7859:
7860: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7861: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7862: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7863: RAISE OKL_API.G_EXCEPTION_ERROR;
7864: END IF;
7865: --srsreeni Bug6011651 starts
7858: p_chr_id => l_chr_id);
7859:
7860: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7861: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7862: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7863: RAISE OKL_API.G_EXCEPTION_ERROR;
7864: END IF;
7865: --srsreeni Bug6011651 starts
7866: OKL_BOOK_CONTROLLER_PVT.update_book_controller_trx(
7859:
7860: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7861: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7862: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7863: RAISE OKL_API.G_EXCEPTION_ERROR;
7864: END IF;
7865: --srsreeni Bug6011651 starts
7866: OKL_BOOK_CONTROLLER_PVT.update_book_controller_trx(
7867: p_api_version => l_api_version,
7871: x_msg_data => x_msg_data,
7872: p_khr_id => l_chr_id,
7873: p_prog_short_name => OKL_BOOK_CONTROLLER_PVT.G_PRICE_CONTRACT,
7874: p_progress_status => OKL_BOOK_CONTROLLER_PVT.G_PROG_STS_COMPLETE);
7875: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7876: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7877: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7878: RAISE OKL_API.G_EXCEPTION_ERROR;
7879: END IF;
7872: p_khr_id => l_chr_id,
7873: p_prog_short_name => OKL_BOOK_CONTROLLER_PVT.G_PRICE_CONTRACT,
7874: p_progress_status => OKL_BOOK_CONTROLLER_PVT.G_PROG_STS_COMPLETE);
7875: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7876: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7877: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7878: RAISE OKL_API.G_EXCEPTION_ERROR;
7879: END IF;
7880: --srsreeni Bug6011651 ends
7873: p_prog_short_name => OKL_BOOK_CONTROLLER_PVT.G_PRICE_CONTRACT,
7874: p_progress_status => OKL_BOOK_CONTROLLER_PVT.G_PROG_STS_COMPLETE);
7875: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7876: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7877: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7878: RAISE OKL_API.G_EXCEPTION_ERROR;
7879: END IF;
7880: --srsreeni Bug6011651 ends
7881: END IF;
7874: p_progress_status => OKL_BOOK_CONTROLLER_PVT.G_PROG_STS_COMPLETE);
7875: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7876: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7877: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7878: RAISE OKL_API.G_EXCEPTION_ERROR;
7879: END IF;
7880: --srsreeni Bug6011651 ends
7881: END IF;
7882: --PAGARG 25-Feb-2005 Bug 4037658 starts
7898: ,p_chr_id => l_chr_id);
7899: --Added by kthiruva for Debugging
7900: write_to_log('After the call to mass_rebook_after_yield, return status is '||x_return_status);
7901:
7902: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7903: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7904: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7905: RAISE OKL_API.G_EXCEPTION_ERROR;
7906: END IF;
7899: --Added by kthiruva for Debugging
7900: write_to_log('After the call to mass_rebook_after_yield, return status is '||x_return_status);
7901:
7902: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7903: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7904: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7905: RAISE OKL_API.G_EXCEPTION_ERROR;
7906: END IF;
7907:
7900: write_to_log('After the call to mass_rebook_after_yield, return status is '||x_return_status);
7901:
7902: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7903: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7904: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7905: RAISE OKL_API.G_EXCEPTION_ERROR;
7906: END IF;
7907:
7908: -- after yield processing for an imported contract.
7901:
7902: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7903: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7904: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7905: RAISE OKL_API.G_EXCEPTION_ERROR;
7906: END IF;
7907:
7908: -- after yield processing for an imported contract.
7909: print( l_api_name, 'calling import api');
7920: --Added by kthiruva for Debugging
7921: write_to_log('After the call to contract_after_yield, return status is '||x_return_status);
7922:
7923: print( l_api_name, 'import api', x_return_status);
7924: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7925: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7926: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7927: RAISE OKL_API.G_EXCEPTION_ERROR;
7928: END IF;
7921: write_to_log('After the call to contract_after_yield, return status is '||x_return_status);
7922:
7923: print( l_api_name, 'import api', x_return_status);
7924: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7925: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7926: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7927: RAISE OKL_API.G_EXCEPTION_ERROR;
7928: END IF;
7929: END IF;
7922:
7923: print( l_api_name, 'import api', x_return_status);
7924: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7925: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7926: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7927: RAISE OKL_API.G_EXCEPTION_ERROR;
7928: END IF;
7929: END IF;
7930: ELSE -- For Internal Stream generator
7923: print( l_api_name, 'import api', x_return_status);
7924: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7925: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7926: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7927: RAISE OKL_API.G_EXCEPTION_ERROR;
7928: END IF;
7929: END IF;
7930: ELSE -- For Internal Stream generator
7931: --PAGARG 25-Feb-2005 Bug 4037658 ends
7939: ,x_msg_count => x_msg_count
7940: ,x_msg_data => x_msg_data
7941: ,p_chr_id => l_chr_id);
7942:
7943: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7944: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7945: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7946: RAISE OKL_API.G_EXCEPTION_ERROR;
7947: END IF;
7940: ,x_msg_data => x_msg_data
7941: ,p_chr_id => l_chr_id);
7942:
7943: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7944: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7945: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7946: RAISE OKL_API.G_EXCEPTION_ERROR;
7947: END IF;
7948:
7941: ,p_chr_id => l_chr_id);
7942:
7943: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7944: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7945: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7946: RAISE OKL_API.G_EXCEPTION_ERROR;
7947: END IF;
7948:
7949: -- after yield processing for an imported contract.
7942:
7943: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7944: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7945: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7946: RAISE OKL_API.G_EXCEPTION_ERROR;
7947: END IF;
7948:
7949: -- after yield processing for an imported contract.
7950: print( l_api_name, 'calling import api');
7956: ,x_msg_data => x_msg_data
7957: ,p_chr_id => l_chr_id);
7958:
7959: print( l_api_name, 'import api', x_return_status);
7960: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7961: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7962: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7963: RAISE OKL_API.G_EXCEPTION_ERROR;
7964: END IF;
7957: ,p_chr_id => l_chr_id);
7958:
7959: print( l_api_name, 'import api', x_return_status);
7960: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7961: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7962: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7963: RAISE OKL_API.G_EXCEPTION_ERROR;
7964: END IF;
7965: --PAGARG 25-Feb-2005 Bug 4037658
7958:
7959: print( l_api_name, 'import api', x_return_status);
7960: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7961: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7962: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7963: RAISE OKL_API.G_EXCEPTION_ERROR;
7964: END IF;
7965: --PAGARG 25-Feb-2005 Bug 4037658
7966: END IF; -- for p_source_call = 'ESG' check
7959: print( l_api_name, 'import api', x_return_status);
7960: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7961: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7962: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7963: RAISE OKL_API.G_EXCEPTION_ERROR;
7964: END IF;
7965: --PAGARG 25-Feb-2005 Bug 4037658
7966: END IF; -- for p_source_call = 'ESG' check
7967: --Added by vdamerla for bug 6344223
7971: ,x_return_status => x_return_status
7972: ,x_msg_count => x_msg_count
7973: ,x_msg_data => x_msg_data
7974: ,p_chr_id => l_chr_id);
7975: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7976: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7977: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7978: RAISE OKL_API.G_EXCEPTION_ERROR;
7979: END IF;
7972: ,x_msg_count => x_msg_count
7973: ,x_msg_data => x_msg_data
7974: ,p_chr_id => l_chr_id);
7975: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7976: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7977: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7978: RAISE OKL_API.G_EXCEPTION_ERROR;
7979: END IF;
7980: --end vdamerla for bug 6344223
7973: ,x_msg_data => x_msg_data
7974: ,p_chr_id => l_chr_id);
7975: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7976: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7977: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7978: RAISE OKL_API.G_EXCEPTION_ERROR;
7979: END IF;
7980: --end vdamerla for bug 6344223
7981:
7974: ,p_chr_id => l_chr_id);
7975: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7976: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7977: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7978: RAISE OKL_API.G_EXCEPTION_ERROR;
7979: END IF;
7980: --end vdamerla for bug 6344223
7981:
7982:
7980: --end vdamerla for bug 6344223
7981:
7982:
7983: print( l_api_name, 'end', x_return_status);
7984: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
7985: EXCEPTION
7986: WHEN OKL_API.G_EXCEPTION_ERROR THEN
7987: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
7988: p_api_name => l_api_name,
7982:
7983: print( l_api_name, 'end', x_return_status);
7984: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
7985: EXCEPTION
7986: WHEN OKL_API.G_EXCEPTION_ERROR THEN
7987: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
7988: p_api_name => l_api_name,
7989: p_pkg_name => g_pkg_name,
7990: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
7983: print( l_api_name, 'end', x_return_status);
7984: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
7985: EXCEPTION
7986: WHEN OKL_API.G_EXCEPTION_ERROR THEN
7987: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
7988: p_api_name => l_api_name,
7989: p_pkg_name => g_pkg_name,
7990: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
7991: x_msg_count => x_msg_count,
7986: WHEN OKL_API.G_EXCEPTION_ERROR THEN
7987: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
7988: p_api_name => l_api_name,
7989: p_pkg_name => g_pkg_name,
7990: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
7991: x_msg_count => x_msg_count,
7992: x_msg_data => x_msg_data,
7993: p_api_type => g_api_type);
7994: IF l_hdr_csr%ISOPEN THEN
7996: End If;
7997: IF get_fin_lne_csr%ISOPEN THEN
7998: CLOSE get_fin_lne_csr;
7999: End If;
8000: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
8001: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
8002: p_api_name => l_api_name,
8003: p_pkg_name => g_pkg_name,
8004: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
7997: IF get_fin_lne_csr%ISOPEN THEN
7998: CLOSE get_fin_lne_csr;
7999: End If;
8000: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
8001: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
8002: p_api_name => l_api_name,
8003: p_pkg_name => g_pkg_name,
8004: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
8005: x_msg_count => x_msg_count,
8000: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
8001: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
8002: p_api_name => l_api_name,
8003: p_pkg_name => g_pkg_name,
8004: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
8005: x_msg_count => x_msg_count,
8006: x_msg_data => x_msg_data,
8007: p_api_type => g_api_type);
8008:
8016: IF get_fin_lne_csr%ISOPEN THEN
8017: CLOSE get_fin_lne_csr;
8018: End If;
8019: when OTHERS then
8020: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
8021: p_api_name => l_api_name,
8022: p_pkg_name => g_pkg_name,
8023: p_exc_name => 'OTHERS',
8024: x_msg_count => x_msg_count,
8035: -- End modification 11i10 bakuchib
8036: -- Start modification 11i10 bakuchib
8037: PROCEDURE check_for_mandatory_streams(
8038: p_api_version IN NUMBER,
8039: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
8040: x_return_status OUT NOCOPY VARCHAR2,
8041: x_msg_count OUT NOCOPY NUMBER,
8042: x_msg_data OUT NOCOPY VARCHAR2,
8043: p_chr_id IN OKC_K_HEADERS_B.ID%TYPE,
8051: j NUMBER;
8052: k NUMBER :=0;
8053: ln_dummy NUMBER := 0;
8054: ln_income NUMBER := 0;
8055: l_strm_name VARCHAR2(256) := OKL_API.G_MISS_CHAR;
8056: l_blnInclude VARCHAR2(3) := OKL_API.G_TRUE;
8057: l_blnhasfees VARCHAR2(3) := OKL_API.G_FALSE;
8058: l_blnhasfin VARCHAR2(3) := OKL_API.G_FALSE;
8059: TYPE l_streams_tbl_type IS TABLE OF VARCHAR2(256)
8052: k NUMBER :=0;
8053: ln_dummy NUMBER := 0;
8054: ln_income NUMBER := 0;
8055: l_strm_name VARCHAR2(256) := OKL_API.G_MISS_CHAR;
8056: l_blnInclude VARCHAR2(3) := OKL_API.G_TRUE;
8057: l_blnhasfees VARCHAR2(3) := OKL_API.G_FALSE;
8058: l_blnhasfin VARCHAR2(3) := OKL_API.G_FALSE;
8059: TYPE l_streams_tbl_type IS TABLE OF VARCHAR2(256)
8060: INDEX BY BINARY_INTEGER;
8053: ln_dummy NUMBER := 0;
8054: ln_income NUMBER := 0;
8055: l_strm_name VARCHAR2(256) := OKL_API.G_MISS_CHAR;
8056: l_blnInclude VARCHAR2(3) := OKL_API.G_TRUE;
8057: l_blnhasfees VARCHAR2(3) := OKL_API.G_FALSE;
8058: l_blnhasfin VARCHAR2(3) := OKL_API.G_FALSE;
8059: TYPE l_streams_tbl_type IS TABLE OF VARCHAR2(256)
8060: INDEX BY BINARY_INTEGER;
8061: TYPE fin_id_tbl_type IS TABLE OF NUMBER
8054: ln_income NUMBER := 0;
8055: l_strm_name VARCHAR2(256) := OKL_API.G_MISS_CHAR;
8056: l_blnInclude VARCHAR2(3) := OKL_API.G_TRUE;
8057: l_blnhasfees VARCHAR2(3) := OKL_API.G_FALSE;
8058: l_blnhasfin VARCHAR2(3) := OKL_API.G_FALSE;
8059: TYPE l_streams_tbl_type IS TABLE OF VARCHAR2(256)
8060: INDEX BY BINARY_INTEGER;
8061: TYPE fin_id_tbl_type IS TABLE OF NUMBER
8062: INDEX BY BINARY_INTEGER;
8231: l_pricing_name VARCHAR2(40);
8232: -- end mansrini
8233:
8234: BEGIN
8235: x_return_status := OKL_API.G_RET_STS_SUCCESS;
8236: -- Call start_activity to create savepoint, check compatibility
8237: -- and initialize message list
8238: x_return_status := OKL_API.START_ACTIVITY (
8239: l_api_name
8234: BEGIN
8235: x_return_status := OKL_API.G_RET_STS_SUCCESS;
8236: -- Call start_activity to create savepoint, check compatibility
8237: -- and initialize message list
8238: x_return_status := OKL_API.START_ACTIVITY (
8239: l_api_name
8240: ,p_init_msg_list
8241: ,'_PVT'
8242: ,x_return_status);
8240: ,p_init_msg_list
8241: ,'_PVT'
8242: ,x_return_status);
8243: -- Check if activity started successfully
8244: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8245: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8246: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8247: RAISE OKL_API.G_EXCEPTION_ERROR;
8248: END IF;
8241: ,'_PVT'
8242: ,x_return_status);
8243: -- Check if activity started successfully
8244: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8245: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8246: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8247: RAISE OKL_API.G_EXCEPTION_ERROR;
8248: END IF;
8249: l_streams_tbl(1) := 'RENT';
8242: ,x_return_status);
8243: -- Check if activity started successfully
8244: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8245: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8246: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8247: RAISE OKL_API.G_EXCEPTION_ERROR;
8248: END IF;
8249: l_streams_tbl(1) := 'RENT';
8250: l_streams_tbl(2) := 'PRINCIPAL BALANCE';
8243: -- Check if activity started successfully
8244: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8245: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8246: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8247: RAISE OKL_API.G_EXCEPTION_ERROR;
8248: END IF;
8249: l_streams_tbl(1) := 'RENT';
8250: l_streams_tbl(2) := 'PRINCIPAL BALANCE';
8251: l_streams_tbl(3) := 'RATE PARTICIPATION';
8275: x_stream_types_tbl(i).stream_type_id := p_stream_types_tbl(i).stream_type_id;
8276: x_stream_types_tbl(i).pricing_name := p_stream_types_tbl(i).pricing_name;
8277: x_stream_types_tbl(i).kle_asset_id := p_stream_types_tbl(i).kle_asset_id;
8278: x_stream_types_tbl(i).kle_fee_id := p_stream_types_tbl(i).kle_fee_id;
8279: IF x_stream_types_tbl(i).kle_fee_id <> OKL_API.G_MISS_NUM AND
8280: l_blnhasfees = OKL_API.G_FALSE THEN
8281: l_blnhasfees := OKL_API.G_TRUE;
8282: END IF;
8283: END LOOP;
8276: x_stream_types_tbl(i).pricing_name := p_stream_types_tbl(i).pricing_name;
8277: x_stream_types_tbl(i).kle_asset_id := p_stream_types_tbl(i).kle_asset_id;
8278: x_stream_types_tbl(i).kle_fee_id := p_stream_types_tbl(i).kle_fee_id;
8279: IF x_stream_types_tbl(i).kle_fee_id <> OKL_API.G_MISS_NUM AND
8280: l_blnhasfees = OKL_API.G_FALSE THEN
8281: l_blnhasfees := OKL_API.G_TRUE;
8282: END IF;
8283: END LOOP;
8284: END IF;
8277: x_stream_types_tbl(i).kle_asset_id := p_stream_types_tbl(i).kle_asset_id;
8278: x_stream_types_tbl(i).kle_fee_id := p_stream_types_tbl(i).kle_fee_id;
8279: IF x_stream_types_tbl(i).kle_fee_id <> OKL_API.G_MISS_NUM AND
8280: l_blnhasfees = OKL_API.G_FALSE THEN
8281: l_blnhasfees := OKL_API.G_TRUE;
8282: END IF;
8283: END LOOP;
8284: END IF;
8285:
8292: WHILE (( l_strm_name <> l_streams_tbl(i) ) AND ( j <= x_stream_types_tbl.COUNT)) LOOP
8293: OPEN strm_name_csr ( x_stream_types_tbl(j).stream_type_id );
8294: FETCH strm_name_csr into l_strm_name_rec;
8295: IF strm_name_csr%NOTFOUND THEN
8296: okl_api.set_message(p_app_name => G_APP_NAME,
8297: p_msg_name => G_LLA_NO_MATCHING_RECORD,
8298: p_token1 => G_COL_NAME_TOKEN,
8299: p_token1_value => 'Stream Type id');
8300: x_return_status := OKL_API.G_RET_STS_ERROR;
8296: okl_api.set_message(p_app_name => G_APP_NAME,
8297: p_msg_name => G_LLA_NO_MATCHING_RECORD,
8298: p_token1 => G_COL_NAME_TOKEN,
8299: p_token1_value => 'Stream Type id');
8300: x_return_status := OKL_API.G_RET_STS_ERROR;
8301: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
8302: END IF;
8303: CLOSE strm_name_csr;
8304: l_strm_name := l_strm_name_rec.name;
8297: p_msg_name => G_LLA_NO_MATCHING_RECORD,
8298: p_token1 => G_COL_NAME_TOKEN,
8299: p_token1_value => 'Stream Type id');
8300: x_return_status := OKL_API.G_RET_STS_ERROR;
8301: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
8302: END IF;
8303: CLOSE strm_name_csr;
8304: l_strm_name := l_strm_name_rec.name;
8305: j := j + 1;
8303: CLOSE strm_name_csr;
8304: l_strm_name := l_strm_name_rec.name;
8305: j := j + 1;
8306: END LOOP;
8307: IF x_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
8308: EXIT WHEN (x_return_status <> OKL_API.G_RET_STS_SUCCESS);
8309: END IF;
8310: IF ((j > x_stream_types_tbl.COUNT ) AND ( l_strm_name <> l_streams_tbl(i))) THEN
8311: l_blnInclude := OKL_API.G_FALSE;
8304: l_strm_name := l_strm_name_rec.name;
8305: j := j + 1;
8306: END LOOP;
8307: IF x_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
8308: EXIT WHEN (x_return_status <> OKL_API.G_RET_STS_SUCCESS);
8309: END IF;
8310: IF ((j > x_stream_types_tbl.COUNT ) AND ( l_strm_name <> l_streams_tbl(i))) THEN
8311: l_blnInclude := OKL_API.G_FALSE;
8312: -- If the Deal type Containing Lease
8307: IF x_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
8308: EXIT WHEN (x_return_status <> OKL_API.G_RET_STS_SUCCESS);
8309: END IF;
8310: IF ((j > x_stream_types_tbl.COUNT ) AND ( l_strm_name <> l_streams_tbl(i))) THEN
8311: l_blnInclude := OKL_API.G_FALSE;
8312: -- If the Deal type Containing Lease
8313: IF (INSTR( p_deal_type, 'LEASE') > 0) THEN
8314: -- Then we can include RENT,RENT,RENT,RESIDUAL VALUE INSURANCE PREMIUM
8315: -- RENT,RENT
8314: -- Then we can include RENT,RENT,RENT,RESIDUAL VALUE INSURANCE PREMIUM
8315: -- RENT,RENT
8316: IF l_streams_tbl(i) = 'RENT' OR
8317: l_streams_tbl(i) = 'RESIDUAL VALUE INSURANCE PREMIUM' THEN
8318: l_blnInclude := OKL_API.G_TRUE;
8319: -- then we can include PRE-TAX INCOME if Deal type is Lease Direct finance
8320: -- then we can include PRE-TAX INCOME if Deal type is Lease Sale Type
8321: ELSIF l_streams_tbl(i) = 'PRE-TAX INCOME' AND
8322: trim(p_deal_type) IN ('LEASEDF','LEASEST') THEN
8319: -- then we can include PRE-TAX INCOME if Deal type is Lease Direct finance
8320: -- then we can include PRE-TAX INCOME if Deal type is Lease Sale Type
8321: ELSIF l_streams_tbl(i) = 'PRE-TAX INCOME' AND
8322: trim(p_deal_type) IN ('LEASEDF','LEASEST') THEN
8323: l_blnInclude := OKL_API.G_TRUE;
8324: -- Then we can include FINANCED EXTENSION FEE INCOME if the Lease contract has Fee line
8325: ELSIF l_streams_tbl(i) = 'FINANCED EXTENSION FEE INCOME' AND
8326: l_blnhasfees = OKL_API.G_TRUE THEN
8327: l_blnInclude := OKL_API.G_TRUE;
8322: trim(p_deal_type) IN ('LEASEDF','LEASEST') THEN
8323: l_blnInclude := OKL_API.G_TRUE;
8324: -- Then we can include FINANCED EXTENSION FEE INCOME if the Lease contract has Fee line
8325: ELSIF l_streams_tbl(i) = 'FINANCED EXTENSION FEE INCOME' AND
8326: l_blnhasfees = OKL_API.G_TRUE THEN
8327: l_blnInclude := OKL_API.G_TRUE;
8328: -- then we can include RENTAL ACCRUAL if Deal type is Lease operating
8329: ELSIF l_streams_tbl(i) = 'RENTAL ACCRUAL' AND
8330: trim(p_deal_type) = 'LEASEOP' THEN
8323: l_blnInclude := OKL_API.G_TRUE;
8324: -- Then we can include FINANCED EXTENSION FEE INCOME if the Lease contract has Fee line
8325: ELSIF l_streams_tbl(i) = 'FINANCED EXTENSION FEE INCOME' AND
8326: l_blnhasfees = OKL_API.G_TRUE THEN
8327: l_blnInclude := OKL_API.G_TRUE;
8328: -- then we can include RENTAL ACCRUAL if Deal type is Lease operating
8329: ELSIF l_streams_tbl(i) = 'RENTAL ACCRUAL' AND
8330: trim(p_deal_type) = 'LEASEOP' THEN
8331: l_blnInclude := OKL_API.G_TRUE;
8327: l_blnInclude := OKL_API.G_TRUE;
8328: -- then we can include RENTAL ACCRUAL if Deal type is Lease operating
8329: ELSIF l_streams_tbl(i) = 'RENTAL ACCRUAL' AND
8330: trim(p_deal_type) = 'LEASEOP' THEN
8331: l_blnInclude := OKL_API.G_TRUE;
8332: END IF;
8333: -- If the Deal type Containing Loan
8334: ELSIF (INSTR(p_deal_type, 'LOAN') > 0) THEN
8335: -- Then we can include PRINCIPAL BALANCE,INTEREST PAYMENT,PRINCIPAL PAYMENT,
8338: l_streams_tbl(i) = 'INTEREST PAYMENT' OR
8339: l_streams_tbl(i) = 'PRINCIPAL PAYMENT' OR
8340: l_streams_tbl(i) = 'LOAN PAYMENT' OR
8341: l_streams_tbl(i) = 'PRE-TAX INCOME' THEN
8342: l_blnInclude := OKL_API.G_TRUE;
8343: END IF;
8344: END IF;
8345: -- We include the below streams independent of the Deal type but
8346: -- Conditional basis of weather the contact has Fee line
8346: -- Conditional basis of weather the contact has Fee line
8347: -- RATE PARTICIPATION,FAS 91 FEE INCOME,RATE SUBSIDY,
8348: -- TERMINATION VALUE,STIP LOSS VALUE,FEE INCOME,PERIODIC EXPENSE PAYABLE
8349: IF (l_streams_tbl(i) = 'RATE PARTICIPATION' AND
8350: l_blnhasfees = OKL_API.G_TRUE) OR
8351: (l_streams_tbl(i) = 'RATE SUBSIDY' AND
8352: l_blnhasfees = OKL_API.G_TRUE) OR
8353: (l_streams_tbl(i) = 'FEE INCOME' AND
8354: l_blnhasfees = OKL_API.G_TRUE) OR
8348: -- TERMINATION VALUE,STIP LOSS VALUE,FEE INCOME,PERIODIC EXPENSE PAYABLE
8349: IF (l_streams_tbl(i) = 'RATE PARTICIPATION' AND
8350: l_blnhasfees = OKL_API.G_TRUE) OR
8351: (l_streams_tbl(i) = 'RATE SUBSIDY' AND
8352: l_blnhasfees = OKL_API.G_TRUE) OR
8353: (l_streams_tbl(i) = 'FEE INCOME' AND
8354: l_blnhasfees = OKL_API.G_TRUE) OR
8355: (l_streams_tbl(i) = 'FAS 91 FEE INCOME') OR
8356: (l_streams_tbl(i) = 'TERMINATION VALUE') OR
8350: l_blnhasfees = OKL_API.G_TRUE) OR
8351: (l_streams_tbl(i) = 'RATE SUBSIDY' AND
8352: l_blnhasfees = OKL_API.G_TRUE) OR
8353: (l_streams_tbl(i) = 'FEE INCOME' AND
8354: l_blnhasfees = OKL_API.G_TRUE) OR
8355: (l_streams_tbl(i) = 'FAS 91 FEE INCOME') OR
8356: (l_streams_tbl(i) = 'TERMINATION VALUE') OR
8357: (l_streams_tbl(i) = 'STIP LOSS VALUE') THEN
8358: l_blnInclude := OKL_API.G_TRUE;
8354: l_blnhasfees = OKL_API.G_TRUE) OR
8355: (l_streams_tbl(i) = 'FAS 91 FEE INCOME') OR
8356: (l_streams_tbl(i) = 'TERMINATION VALUE') OR
8357: (l_streams_tbl(i) = 'STIP LOSS VALUE') THEN
8358: l_blnInclude := OKL_API.G_TRUE;
8359: -- Start of BUG#2997914 fix
8360: END IF;
8361: -- End of BUG#2997914 fix
8362: -- Handling only fee receivable Streams
8360: END IF;
8361: -- End of BUG#2997914 fix
8362: -- Handling only fee receivable Streams
8363: IF l_streams_tbl(i) = 'FEE INCOME' AND
8364: l_blnInclude = OKL_API.G_TRUE THEN
8365: FOR k IN p_stream_types_tbl.FIRST..p_stream_types_tbl.LAST LOOP
8366: IF p_stream_types_tbl(k).kle_fee_id <> OKL_API.G_MISS_NUM THEN
8367: OPEN l_fee_type_csr (p_chr_id,
8368: p_stream_types_tbl(k).kle_fee_id);
8362: -- Handling only fee receivable Streams
8363: IF l_streams_tbl(i) = 'FEE INCOME' AND
8364: l_blnInclude = OKL_API.G_TRUE THEN
8365: FOR k IN p_stream_types_tbl.FIRST..p_stream_types_tbl.LAST LOOP
8366: IF p_stream_types_tbl(k).kle_fee_id <> OKL_API.G_MISS_NUM THEN
8367: OPEN l_fee_type_csr (p_chr_id,
8368: p_stream_types_tbl(k).kle_fee_id);
8369: FETCH l_fee_type_csr INTO l_fee_type_rec;
8370: CLOSE l_fee_type_csr;
8368: p_stream_types_tbl(k).kle_fee_id);
8369: FETCH l_fee_type_csr INTO l_fee_type_rec;
8370: CLOSE l_fee_type_csr;
8371: IF l_fee_type_rec.fee_type IN ('PASSTHROUGH','MISCELLANEOUS') THEN
8372: l_blnInclude := OKL_API.G_TRUE;
8373: EXIT;
8374: ELSE
8375: l_blnInclude := OKL_API.G_FALSE;
8376: END IF;
8371: IF l_fee_type_rec.fee_type IN ('PASSTHROUGH','MISCELLANEOUS') THEN
8372: l_blnInclude := OKL_API.G_TRUE;
8373: EXIT;
8374: ELSE
8375: l_blnInclude := OKL_API.G_FALSE;
8376: END IF;
8377: END IF;
8378: END LOOP;
8379: END IF;
8376: END IF;
8377: END IF;
8378: END LOOP;
8379: END IF;
8380: IF (l_blnInclude = OKL_API.G_TRUE) THEN
8381: OPEN l_strmid_csr(l_streams_tbl(i));
8382: FETCH l_strmid_csr into l_strmid_rec;
8383: IF l_strmid_csr%NOTFOUND THEN
8384: okl_api.set_message(p_app_name => G_APP_NAME,
8380: IF (l_blnInclude = OKL_API.G_TRUE) THEN
8381: OPEN l_strmid_csr(l_streams_tbl(i));
8382: FETCH l_strmid_csr into l_strmid_rec;
8383: IF l_strmid_csr%NOTFOUND THEN
8384: okl_api.set_message(p_app_name => G_APP_NAME,
8385: p_msg_name => G_LLA_NO_MATCHING_RECORD,
8386: p_token1 => G_COL_NAME_TOKEN,
8387: p_token1_value => 'Stream Type');
8388: x_return_status := OKL_API.G_RET_STS_ERROR;
8384: okl_api.set_message(p_app_name => G_APP_NAME,
8385: p_msg_name => G_LLA_NO_MATCHING_RECORD,
8386: p_token1 => G_COL_NAME_TOKEN,
8387: p_token1_value => 'Stream Type');
8388: x_return_status := OKL_API.G_RET_STS_ERROR;
8389: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
8390: END IF;
8391: CLOSE l_strmid_csr;
8392: styid := l_strmid_rec.styid;
8385: p_msg_name => G_LLA_NO_MATCHING_RECORD,
8386: p_token1 => G_COL_NAME_TOKEN,
8387: p_token1_value => 'Stream Type');
8388: x_return_status := OKL_API.G_RET_STS_ERROR;
8389: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
8390: END IF;
8391: CLOSE l_strmid_csr;
8392: styid := l_strmid_rec.styid;
8393: -- Then we can include PRINCIPAL BALANCE,INTEREST PAYMENT,PRINCIPAL PAYMENT,
8412: END IF;
8413: END IF;
8414: END IF;
8415: END LOOP;
8416: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8417: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8418: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8419: RAISE OKL_API.G_EXCEPTION_ERROR;
8420: END IF;
8413: END IF;
8414: END IF;
8415: END LOOP;
8416: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8417: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8418: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8419: RAISE OKL_API.G_EXCEPTION_ERROR;
8420: END IF;
8421:
8414: END IF;
8415: END LOOP;
8416: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8417: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8418: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8419: RAISE OKL_API.G_EXCEPTION_ERROR;
8420: END IF;
8421:
8422: --Code commented by HKPATEL for userdefined streams */
8415: END LOOP;
8416: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8417: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8418: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8419: RAISE OKL_API.G_EXCEPTION_ERROR;
8420: END IF;
8421:
8422: --Code commented by HKPATEL for userdefined streams */
8423: /*
8426: FOR r_finance_strm_rec IN c_finance_strm_csr LOOP
8427: x_stream_types_tbl(x_stream_types_tbl.COUNT+1).stream_type_id := r_finance_strm_rec.id;
8428: x_stream_types_tbl(x_stream_types_tbl.COUNT).kle_asset_id := l_fin_type_rec.fin_id;
8429: END LOOP;
8430: l_blnhasfin := OKL_API.G_TRUE;
8431: END LOOP;
8432: -- Now we get the Subsidy Income Accural stream type id , wil be fetched from
8433: -- Subsidy setup
8434: FOR get_sub_line_rec IN get_sub_line_csr (p_dnz_chr_id => p_chr_id) LOOP
8528:
8529: -- Code for user defined streams ends here
8530:
8531:
8532: OKL_API.END_ACTIVITY (x_msg_count,
8533: x_msg_data );
8534:
8535: EXCEPTION
8536: WHEN OKL_API.G_EXCEPTION_ERROR THEN
8532: OKL_API.END_ACTIVITY (x_msg_count,
8533: x_msg_data );
8534:
8535: EXCEPTION
8536: WHEN OKL_API.G_EXCEPTION_ERROR THEN
8537: IF get_sub_line_csr%ISOPEN THEN
8538: CLOSE get_sub_line_csr;
8539: END IF;
8540: IF strm_name_csr%ISOPEN THEN
8552: IF l_fin_type_csr%ISOPEN THEN
8553: CLOSE l_fin_type_csr;
8554: END IF;
8555:
8556: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
8557: l_api_name,
8558: G_PKG_NAME,
8559: 'OKL_API.G_RET_STS_ERROR',
8560: x_msg_count,
8555:
8556: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
8557: l_api_name,
8558: G_PKG_NAME,
8559: 'OKL_API.G_RET_STS_ERROR',
8560: x_msg_count,
8561: x_msg_data,
8562: '_PVT');
8563: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
8559: 'OKL_API.G_RET_STS_ERROR',
8560: x_msg_count,
8561: x_msg_data,
8562: '_PVT');
8563: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
8564: IF get_sub_line_csr%ISOPEN THEN
8565: CLOSE get_sub_line_csr;
8566: END IF;
8567: IF strm_name_csr%ISOPEN THEN
8578: END IF;
8579: IF l_fin_type_csr%ISOPEN THEN
8580: CLOSE l_fin_type_csr;
8581: END IF;
8582: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
8583: l_api_name,
8584: G_PKG_NAME,
8585: 'OKL_API.G_RET_STS_UNEXP_ERROR',
8586: x_msg_count,
8581: END IF;
8582: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
8583: l_api_name,
8584: G_PKG_NAME,
8585: 'OKL_API.G_RET_STS_UNEXP_ERROR',
8586: x_msg_count,
8587: x_msg_data,
8588: '_PVT');
8589: WHEN OTHERS THEN
8605: END IF;
8606: IF l_fin_type_csr%ISOPEN THEN
8607: CLOSE l_fin_type_csr;
8608: END IF;
8609: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
8610: l_api_name,
8611: G_PKG_NAME,
8612: 'OTHERS',
8613: x_msg_count,
8617: -- End modification 11i10 bakuchib
8618: Procedure extract_security_deposit( p_api_version IN NUMBER,
8619: p_chr_id IN NUMBER,
8620: p_deal_type IN VARCHAR2,
8621: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
8622: x_msg_count OUT NOCOPY NUMBER,
8623: x_msg_data OUT NOCOPY VARCHAR2,
8624: x_return_status OUT NOCOPY VARCHAR2,
8625: px_csm_lease_header IN OUT NOCOPY okl_create_streams_pub.csm_lease_rec_type,
8629:
8630: l_api_name CONSTANT VARCHAR2(30) := 'EXTRACT_SECURITY_DEPOSIT';
8631: l_api_version CONSTANT NUMBER := 1;
8632:
8633: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
8634: x NUMBER := 0;
8635:
8636: CURSOR c_deposit_date( chrId NUMBER) IS
8637: SELECT FND_DATE.canonical_to_date(rule_information5) date_returned
8720: Begin
8721:
8722: print( l_api_name, 'begin');
8723:
8724: x_return_status := OKL_API.START_ACTIVITY(
8725: p_api_name => l_api_name,
8726: p_pkg_name => g_pkg_name,
8727: p_init_msg_list => p_init_msg_list,
8728: l_api_version => l_api_version,
8731:
8732: x_return_status => x_return_status);
8733:
8734: -- check if ac1tivity started successfully
8735: If (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
8736: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8737: ElSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
8738: raise OKL_API.G_EXCEPTION_ERROR;
8739: End If;
8732: x_return_status => x_return_status);
8733:
8734: -- check if ac1tivity started successfully
8735: If (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
8736: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8737: ElSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
8738: raise OKL_API.G_EXCEPTION_ERROR;
8739: End If;
8740:
8733:
8734: -- check if ac1tivity started successfully
8735: If (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
8736: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8737: ElSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
8738: raise OKL_API.G_EXCEPTION_ERROR;
8739: End If;
8740:
8741: l := px_csm_one_off_fee_tbl.COUNT;
8734: -- check if ac1tivity started successfully
8735: If (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
8736: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8737: ElSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
8738: raise OKL_API.G_EXCEPTION_ERROR;
8739: End If;
8740:
8741: l := px_csm_one_off_fee_tbl.COUNT;
8742: m := px_csm_stream_types_tbl.COUNT;
8777: OPEN l_rl_csr1 ( 'LALEVL', 'LASLL', TO_NUMBER(p_chr_id), l_lne_rec1.id );
8778: FETCH l_rl_csr1 INTO l_rl_rec1;
8779: CLOSE l_rl_csr1;
8780: px_csm_one_off_fee_tbl(l).amount := FND_NUMBER.canonical_to_number(nvl(l_rl_rec1.RULE_INFORMATION6,'0'));
8781: IF(l_rl_rec1.RULE_INFORMATION2 IS NULL or l_rl_rec1.RULE_INFORMATION2 = OKL_API.G_MISS_CHAR) Then
8782: px_csm_one_off_fee_tbl(l).date_start := l_lne_rec1.start_date ;
8783: ELSE
8784: px_csm_one_off_fee_tbl(l).date_start := FND_DATE.canonical_to_date(l_rl_rec1.RULE_INFORMATION2);
8785: END IF;
8800: End If;
8801: END IF;
8802: END LOOP;
8803:
8804: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
8805:
8806: print( l_api_name, 'end', x_return_status);
8807:
8808: Exception
8806: print( l_api_name, 'end', x_return_status);
8807:
8808: Exception
8809:
8810: when OKL_API.G_EXCEPTION_ERROR then
8811: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
8812: p_api_name => l_api_name,
8813: p_pkg_name => g_pkg_name,
8814: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
8807:
8808: Exception
8809:
8810: when OKL_API.G_EXCEPTION_ERROR then
8811: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
8812: p_api_name => l_api_name,
8813: p_pkg_name => g_pkg_name,
8814: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
8815: x_msg_count => x_msg_count,
8810: when OKL_API.G_EXCEPTION_ERROR then
8811: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
8812: p_api_name => l_api_name,
8813: p_pkg_name => g_pkg_name,
8814: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
8815: x_msg_count => x_msg_count,
8816: x_msg_data => x_msg_data,
8817: p_api_type => g_api_type);
8818:
8819: If (fee_strm_type_csr1%ISOPEN) Then
8820: CLOSE fee_strm_type_csr1;
8821: End If;
8822:
8823: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
8824: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
8825:
8826: p_api_name => l_api_name,
8827:
8820: CLOSE fee_strm_type_csr1;
8821: End If;
8822:
8823: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
8824: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
8825:
8826: p_api_name => l_api_name,
8827:
8828: p_pkg_name => g_pkg_name,
8825:
8826: p_api_name => l_api_name,
8827:
8828: p_pkg_name => g_pkg_name,
8829: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
8830: x_msg_count => x_msg_count,
8831: x_msg_data => x_msg_data,
8832: p_api_type => g_api_type);
8833:
8835: CLOSE fee_strm_type_csr;
8836: End If;
8837:
8838: when OTHERS then
8839: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
8840: p_api_name => l_api_name,
8841: p_pkg_name => g_pkg_name,
8842: p_exc_name => 'OTHERS',
8843: x_msg_count => x_msg_count,
8870: -- : BAKUCHIB 19-MAR-2004
8871: -- End of Commnets
8872: --------------------------------------------------------------------------------
8873: PROCEDURE extract_subsidized_lines(p_api_version IN NUMBER,
8874: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
8875: x_return_status OUT NOCOPY VARCHAR2,
8876: x_msg_count OUT NOCOPY NUMBER,
8877: x_msg_data OUT NOCOPY VARCHAR2,
8878: p_chr_id IN NUMBER,
8994: WHERE id = p_sty_id;
8995:
8996:
8997: BEGIN
8998: x_return_status := OKL_API.G_RET_STS_SUCCESS;
8999: -- Call start_activity to create savepoint, check compatibility
9000: -- and initialize message list
9001: x_return_status := OKL_API.START_ACTIVITY (
9002: l_api_name
8997: BEGIN
8998: x_return_status := OKL_API.G_RET_STS_SUCCESS;
8999: -- Call start_activity to create savepoint, check compatibility
9000: -- and initialize message list
9001: x_return_status := OKL_API.START_ACTIVITY (
9002: l_api_name
9003: ,p_init_msg_list
9004: ,'_PVT'
9005: ,x_return_status);
9003: ,p_init_msg_list
9004: ,'_PVT'
9005: ,x_return_status);
9006: -- check if ac1tivity started successfully
9007: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9008: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9009: ElSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9010: RAISE OKL_API.G_EXCEPTION_ERROR;
9011: END IF;
9004: ,'_PVT'
9005: ,x_return_status);
9006: -- check if ac1tivity started successfully
9007: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9008: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9009: ElSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9010: RAISE OKL_API.G_EXCEPTION_ERROR;
9011: END IF;
9012: OPEN validate_sub_line (p_dnz_chr_id => p_chr_id );
9005: ,x_return_status);
9006: -- check if ac1tivity started successfully
9007: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9008: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9009: ElSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9010: RAISE OKL_API.G_EXCEPTION_ERROR;
9011: END IF;
9012: OPEN validate_sub_line (p_dnz_chr_id => p_chr_id );
9013: FETCH validate_sub_line INTO ln_dummy;
9006: -- check if ac1tivity started successfully
9007: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9008: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9009: ElSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9010: RAISE OKL_API.G_EXCEPTION_ERROR;
9011: END IF;
9012: OPEN validate_sub_line (p_dnz_chr_id => p_chr_id );
9013: FETCH validate_sub_line INTO ln_dummy;
9014: CLOSE validate_sub_line;
9019: -- Now scan thru the CSM line details table for the asset id
9020: -- and then call the OKL_SUBSIDY_PROCESS_PVT to get the total subsidized amount for an asset
9021: FOR get_asset_lines_rec IN get_asset_lines_csr (p_chr_id => p_chr_id) LOOP
9022: IF get_asset_lines_rec.id IS NOT NULL OR
9023: get_asset_lines_rec.id <> OKL_API.G_MISS_NUM THEN
9024: execute_formula(p_api_version => p_api_version,
9025: p_init_msg_list => p_init_msg_list,
9026: x_return_status => x_return_status,
9027: x_msg_count => x_msg_count,
9029: p_formula_name => 'LINE_CAP_AMNT',
9030: p_contract_id => p_chr_id,
9031: p_line_id => get_asset_lines_rec.id,
9032: x_value => ln_cap_amt);
9033: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9034: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
9035: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9036: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
9037: END IF;
9030: p_contract_id => p_chr_id,
9031: p_line_id => get_asset_lines_rec.id,
9032: x_value => ln_cap_amt);
9033: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9034: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
9035: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9036: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
9037: END IF;
9038: execute_formula(p_api_version => p_api_version,
9031: p_line_id => get_asset_lines_rec.id,
9032: x_value => ln_cap_amt);
9033: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9034: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
9035: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9036: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
9037: END IF;
9038: execute_formula(p_api_version => p_api_version,
9039: p_init_msg_list => p_init_msg_list,
9032: x_value => ln_cap_amt);
9033: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9034: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
9035: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9036: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
9037: END IF;
9038: execute_formula(p_api_version => p_api_version,
9039: p_init_msg_list => p_init_msg_list,
9040: x_return_status => x_return_status,
9043: p_formula_name => 'LINE_DISCOUNT',
9044: p_contract_id => p_chr_id,
9045: p_line_id => get_asset_lines_rec.id,
9046: x_value => ln_cap_dis);
9047: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9048: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
9049: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9050: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
9051: END IF;
9044: p_contract_id => p_chr_id,
9045: p_line_id => get_asset_lines_rec.id,
9046: x_value => ln_cap_dis);
9047: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9048: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
9049: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9050: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
9051: END IF;
9052: -- We are doing the above since we need the cap amt for each line
9045: p_line_id => get_asset_lines_rec.id,
9046: x_value => ln_cap_dis);
9047: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9048: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
9049: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9050: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
9051: END IF;
9052: -- We are doing the above since we need the cap amt for each line
9053: -- and since the cap amt is inclusive of the discount then
9046: x_value => ln_cap_dis);
9047: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9048: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
9049: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9050: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
9051: END IF;
9052: -- We are doing the above since we need the cap amt for each line
9053: -- and since the cap amt is inclusive of the discount then
9054: -- we need to exclude the same and then use to send the same to
9070: x_msg_count => x_msg_count,
9071: x_msg_data => x_msg_data,
9072: p_asset_cle_id => get_asset_lines_rec.id,
9073: x_asbv_tbl => l_asbv_tbl);
9074: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9075: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
9076: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9077: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
9078: END IF;
9071: x_msg_data => x_msg_data,
9072: p_asset_cle_id => get_asset_lines_rec.id,
9073: x_asbv_tbl => l_asbv_tbl);
9074: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9075: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
9076: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9077: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
9078: END IF;
9079: IF l_asbv_tbl.COUNT > 0 THEN
9072: p_asset_cle_id => get_asset_lines_rec.id,
9073: x_asbv_tbl => l_asbv_tbl);
9074: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9075: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
9076: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9077: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
9078: END IF;
9079: IF l_asbv_tbl.COUNT > 0 THEN
9080: FOR k IN l_asbv_tbl.FIRST..l_asbv_tbl.LAST LOOP
9073: x_asbv_tbl => l_asbv_tbl);
9074: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9075: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
9076: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9077: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
9078: END IF;
9079: IF l_asbv_tbl.COUNT > 0 THEN
9080: FOR k IN l_asbv_tbl.FIRST..l_asbv_tbl.LAST LOOP
9081: IF get_acc_mth_code_rec.accounting_method_code = 'AMORTIZE' AND
9088: END IF;
9089: END IF;
9090: END LOOP;
9091: ELSE
9092: okl_api.set_message(
9093: p_app_name => G_APP_NAME,
9094: p_msg_name => G_LLA_NO_MATCHING_RECORD,
9095: p_token1 => G_COL_NAME_TOKEN,
9096: p_token1_value => 'Subsidy Records');
9093: p_app_name => G_APP_NAME,
9094: p_msg_name => G_LLA_NO_MATCHING_RECORD,
9095: p_token1 => G_COL_NAME_TOKEN,
9096: p_token1_value => 'Subsidy Records');
9097: x_return_status := OKL_API.G_RET_STS_ERROR;
9098: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
9099: END IF;
9100: l_csm_one_off_fee_tbl(i).income_or_expense := OKL_CREATE_STREAMS_PUB.G_INCOME;
9101: l_csm_one_off_fee_tbl(i).date_paid := get_asset_lines_rec.date_funding;
9094: p_msg_name => G_LLA_NO_MATCHING_RECORD,
9095: p_token1 => G_COL_NAME_TOKEN,
9096: p_token1_value => 'Subsidy Records');
9097: x_return_status := OKL_API.G_RET_STS_ERROR;
9098: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
9099: END IF;
9100: l_csm_one_off_fee_tbl(i).income_or_expense := OKL_CREATE_STREAMS_PUB.G_INCOME;
9101: l_csm_one_off_fee_tbl(i).date_paid := get_asset_lines_rec.date_funding;
9102: l_csm_one_off_fee_tbl(i).kle_asset_id := get_asset_lines_rec.id;
9108: -- Changed for bug 4044089 by HKPATEL 12/02/2004
9109: --FETCH get_sub_income_strm_csr INTO l_csm_one_off_fee_tbl(i).description;
9110: FETCH get_sub_income_strm_csr INTO l_sty_id;
9111: IF get_sub_income_strm_csr%NOTFOUND THEN
9112: OKL_API.set_message(p_app_name => G_APP_NAME,
9113: p_msg_name => G_REQUIRED_VALUE,
9114: p_token1 => G_COL_NAME_TOKEN,
9115: p_token1_value => 'Subsidy Income Stream Description');
9116: x_return_status := OKL_API.G_RET_STS_ERROR;
9112: OKL_API.set_message(p_app_name => G_APP_NAME,
9113: p_msg_name => G_REQUIRED_VALUE,
9114: p_token1 => G_COL_NAME_TOKEN,
9115: p_token1_value => 'Subsidy Income Stream Description');
9116: x_return_status := OKL_API.G_RET_STS_ERROR;
9117: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
9118: END IF;
9119: CLOSE get_sub_income_strm_csr;
9120:
9113: p_msg_name => G_REQUIRED_VALUE,
9114: p_token1 => G_COL_NAME_TOKEN,
9115: p_token1_value => 'Subsidy Income Stream Description');
9116: x_return_status := OKL_API.G_RET_STS_ERROR;
9117: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
9118: END IF;
9119: CLOSE get_sub_income_strm_csr;
9120:
9121: -- New code for bug 4044089 by HKPATEL 12/02/2004
9140: CLOSE get_strm_type_code;
9141: -- New code for bug 4044089 by HKPATEL 12/02/2004 ends here
9142:
9143: END LOOP;
9144: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9145: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
9146: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9147: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
9148: END IF;
9141: -- New code for bug 4044089 by HKPATEL 12/02/2004 ends here
9142:
9143: END LOOP;
9144: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9145: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
9146: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9147: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
9148: END IF;
9149: ELSE
9142:
9143: END LOOP;
9144: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9145: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
9146: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9147: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
9148: END IF;
9149: ELSE
9150: OKL_API.set_message(p_app_name => G_APP_NAME,
9143: END LOOP;
9144: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9145: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
9146: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9147: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
9148: END IF;
9149: ELSE
9150: OKL_API.set_message(p_app_name => G_APP_NAME,
9151: p_msg_name => G_REQUIRED_VALUE,
9146: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9147: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
9148: END IF;
9149: ELSE
9150: OKL_API.set_message(p_app_name => G_APP_NAME,
9151: p_msg_name => G_REQUIRED_VALUE,
9152: p_token1 => G_COL_NAME_TOKEN,
9153: p_token1_value => 'kle_asset_id');
9154: x_return_status := OKL_API.G_RET_STS_ERROR;
9150: OKL_API.set_message(p_app_name => G_APP_NAME,
9151: p_msg_name => G_REQUIRED_VALUE,
9152: p_token1 => G_COL_NAME_TOKEN,
9153: p_token1_value => 'kle_asset_id');
9154: x_return_status := OKL_API.G_RET_STS_ERROR;
9155: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
9156: END IF;
9157: END LOOP;
9158: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
9151: p_msg_name => G_REQUIRED_VALUE,
9152: p_token1 => G_COL_NAME_TOKEN,
9153: p_token1_value => 'kle_asset_id');
9154: x_return_status := OKL_API.G_RET_STS_ERROR;
9155: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
9156: END IF;
9157: END LOOP;
9158: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
9159: RAISE OKL_API.G_EXCEPTION_ERROR;
9154: x_return_status := OKL_API.G_RET_STS_ERROR;
9155: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
9156: END IF;
9157: END LOOP;
9158: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
9159: RAISE OKL_API.G_EXCEPTION_ERROR;
9160: END IF;
9161: ELSE
9162: -- Since there are no One off tbl create one
9155: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
9156: END IF;
9157: END LOOP;
9158: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
9159: RAISE OKL_API.G_EXCEPTION_ERROR;
9160: END IF;
9161: ELSE
9162: -- Since there are no One off tbl create one
9163: -- Now scan thru the CSM line details table for the asset id
9163: -- Now scan thru the CSM line details table for the asset id
9164: -- and then call the OKL_SUBSIDY_PROCESS_PVT to get the total subsidized amount for an asset
9165: FOR get_asset_lines_rec IN get_asset_lines_csr (p_chr_id => p_chr_id) LOOP
9166: IF get_asset_lines_rec.id IS NOT NULL OR
9167: get_asset_lines_rec.id <> OKL_API.G_MISS_NUM THEN
9168: execute_formula(p_api_version => p_api_version,
9169: p_init_msg_list => p_init_msg_list,
9170: x_return_status => x_return_status,
9171: x_msg_count => x_msg_count,
9173: p_formula_name => 'LINE_CAP_AMNT',
9174: p_contract_id => p_chr_id,
9175: p_line_id => get_asset_lines_rec.id,
9176: x_value => ln_cap_amt);
9177: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9178: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
9179: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9180: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
9181: END IF;
9174: p_contract_id => p_chr_id,
9175: p_line_id => get_asset_lines_rec.id,
9176: x_value => ln_cap_amt);
9177: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9178: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
9179: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9180: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
9181: END IF;
9182: execute_formula(p_api_version => p_api_version,
9175: p_line_id => get_asset_lines_rec.id,
9176: x_value => ln_cap_amt);
9177: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9178: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
9179: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9180: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
9181: END IF;
9182: execute_formula(p_api_version => p_api_version,
9183: p_init_msg_list => p_init_msg_list,
9176: x_value => ln_cap_amt);
9177: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9178: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
9179: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9180: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
9181: END IF;
9182: execute_formula(p_api_version => p_api_version,
9183: p_init_msg_list => p_init_msg_list,
9184: x_return_status => x_return_status,
9187: p_formula_name => 'LINE_DISCOUNT',
9188: p_contract_id => p_chr_id,
9189: p_line_id => get_asset_lines_rec.id,
9190: x_value => ln_cap_dis);
9191: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9192: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
9193: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9194: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
9195: END IF;
9188: p_contract_id => p_chr_id,
9189: p_line_id => get_asset_lines_rec.id,
9190: x_value => ln_cap_dis);
9191: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9192: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
9193: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9194: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
9195: END IF;
9196: -- We are doing the above since we need the cap amt for each line
9189: p_line_id => get_asset_lines_rec.id,
9190: x_value => ln_cap_dis);
9191: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9192: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
9193: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9194: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
9195: END IF;
9196: -- We are doing the above since we need the cap amt for each line
9197: -- and since the cap amt is inclusive of the discount then
9190: x_value => ln_cap_dis);
9191: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9192: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
9193: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9194: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
9195: END IF;
9196: -- We are doing the above since we need the cap amt for each line
9197: -- and since the cap amt is inclusive of the discount then
9198: -- we need to exclude the same and then use to send the same to
9215: x_msg_count => x_msg_count,
9216: x_msg_data => x_msg_data,
9217: p_asset_cle_id => get_asset_lines_rec.id,
9218: x_asbv_tbl => l_asbv_tbl);
9219: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9220: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
9221: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9222: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
9223: END IF;
9216: x_msg_data => x_msg_data,
9217: p_asset_cle_id => get_asset_lines_rec.id,
9218: x_asbv_tbl => l_asbv_tbl);
9219: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9220: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
9221: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9222: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
9223: END IF;
9224: IF l_asbv_tbl.COUNT > 0 THEN
9217: p_asset_cle_id => get_asset_lines_rec.id,
9218: x_asbv_tbl => l_asbv_tbl);
9219: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9220: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
9221: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9222: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
9223: END IF;
9224: IF l_asbv_tbl.COUNT > 0 THEN
9225: FOR k IN l_asbv_tbl.FIRST..l_asbv_tbl.LAST LOOP
9218: x_asbv_tbl => l_asbv_tbl);
9219: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9220: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
9221: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9222: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
9223: END IF;
9224: IF l_asbv_tbl.COUNT > 0 THEN
9225: FOR k IN l_asbv_tbl.FIRST..l_asbv_tbl.LAST LOOP
9226: IF get_acc_mth_code_rec.accounting_method_code = 'AMORTIZE' AND
9233: END IF;
9234: END IF;
9235: END LOOP;
9236: ELSE
9237: okl_api.set_message(
9238: p_app_name => G_APP_NAME,
9239: p_msg_name => G_LLA_NO_MATCHING_RECORD,
9240: p_token1 => G_COL_NAME_TOKEN,
9241: p_token1_value => 'Subsidy Records');
9238: p_app_name => G_APP_NAME,
9239: p_msg_name => G_LLA_NO_MATCHING_RECORD,
9240: p_token1 => G_COL_NAME_TOKEN,
9241: p_token1_value => 'Subsidy Records');
9242: x_return_status := OKL_API.G_RET_STS_ERROR;
9243: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
9244: END IF;
9245: l_csm_one_off_fee_tbl(i).income_or_expense := OKL_CREATE_STREAMS_PUB.G_INCOME;
9246: l_csm_one_off_fee_tbl(i).date_paid := get_asset_lines_rec.date_funding;
9239: p_msg_name => G_LLA_NO_MATCHING_RECORD,
9240: p_token1 => G_COL_NAME_TOKEN,
9241: p_token1_value => 'Subsidy Records');
9242: x_return_status := OKL_API.G_RET_STS_ERROR;
9243: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
9244: END IF;
9245: l_csm_one_off_fee_tbl(i).income_or_expense := OKL_CREATE_STREAMS_PUB.G_INCOME;
9246: l_csm_one_off_fee_tbl(i).date_paid := get_asset_lines_rec.date_funding;
9247: l_csm_one_off_fee_tbl(i).kle_asset_id := get_asset_lines_rec.id;
9251: p_sub_cle_id => get_acc_mth_code_rec.id);
9252: --FETCH get_sub_income_strm_csr INTO l_csm_one_off_fee_tbl(i).description;
9253: FETCH get_sub_income_strm_csr INTO l_sty_id;
9254: IF get_sub_income_strm_csr%NOTFOUND THEN
9255: OKL_API.set_message(p_app_name => G_APP_NAME,
9256: p_msg_name => G_REQUIRED_VALUE,
9257: p_token1 => G_COL_NAME_TOKEN,
9258: p_token1_value => 'Subsidy Income Stream Description');
9259: x_return_status := OKL_API.G_RET_STS_ERROR;
9255: OKL_API.set_message(p_app_name => G_APP_NAME,
9256: p_msg_name => G_REQUIRED_VALUE,
9257: p_token1 => G_COL_NAME_TOKEN,
9258: p_token1_value => 'Subsidy Income Stream Description');
9259: x_return_status := OKL_API.G_RET_STS_ERROR;
9260: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
9261: END IF;
9262: CLOSE get_sub_income_strm_csr;
9263: -- New code for bug 4044089 by HKPATEL 12/02/2004
9256: p_msg_name => G_REQUIRED_VALUE,
9257: p_token1 => G_COL_NAME_TOKEN,
9258: p_token1_value => 'Subsidy Income Stream Description');
9259: x_return_status := OKL_API.G_RET_STS_ERROR;
9260: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
9261: END IF;
9262: CLOSE get_sub_income_strm_csr;
9263: -- New code for bug 4044089 by HKPATEL 12/02/2004
9264: OKL_STREAMS_UTIL.get_dependent_stream_type
9282: CLOSE get_strm_type_code;
9283: -- New code for bug 4044089 by HKPATEL 12/02/2004 ends here
9284:
9285: END LOOP;
9286: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9287: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
9288: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9289: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
9290: END IF;
9283: -- New code for bug 4044089 by HKPATEL 12/02/2004 ends here
9284:
9285: END LOOP;
9286: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9287: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
9288: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9289: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
9290: END IF;
9291: ELSE
9284:
9285: END LOOP;
9286: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9287: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
9288: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9289: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
9290: END IF;
9291: ELSE
9292: OKL_API.set_message(p_app_name => G_APP_NAME,
9285: END LOOP;
9286: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9287: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
9288: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9289: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
9290: END IF;
9291: ELSE
9292: OKL_API.set_message(p_app_name => G_APP_NAME,
9293: p_msg_name => G_REQUIRED_VALUE,
9288: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9289: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
9290: END IF;
9291: ELSE
9292: OKL_API.set_message(p_app_name => G_APP_NAME,
9293: p_msg_name => G_REQUIRED_VALUE,
9294: p_token1 => G_COL_NAME_TOKEN,
9295: p_token1_value => 'kle_asset_id');
9296: x_return_status := OKL_API.G_RET_STS_ERROR;
9292: OKL_API.set_message(p_app_name => G_APP_NAME,
9293: p_msg_name => G_REQUIRED_VALUE,
9294: p_token1 => G_COL_NAME_TOKEN,
9295: p_token1_value => 'kle_asset_id');
9296: x_return_status := OKL_API.G_RET_STS_ERROR;
9297: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
9298: END IF;
9299: END LOOP;
9300: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
9293: p_msg_name => G_REQUIRED_VALUE,
9294: p_token1 => G_COL_NAME_TOKEN,
9295: p_token1_value => 'kle_asset_id');
9296: x_return_status := OKL_API.G_RET_STS_ERROR;
9297: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
9298: END IF;
9299: END LOOP;
9300: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
9301: RAISE OKL_API.G_EXCEPTION_ERROR;
9296: x_return_status := OKL_API.G_RET_STS_ERROR;
9297: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
9298: END IF;
9299: END LOOP;
9300: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
9301: RAISE OKL_API.G_EXCEPTION_ERROR;
9302: END IF;
9303: END IF;
9304: END IF;
9297: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
9298: END IF;
9299: END LOOP;
9300: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
9301: RAISE OKL_API.G_EXCEPTION_ERROR;
9302: END IF;
9303: END IF;
9304: END IF;
9305: px_csm_one_off_fee_tbl := l_csm_one_off_fee_tbl;
9302: END IF;
9303: END IF;
9304: END IF;
9305: px_csm_one_off_fee_tbl := l_csm_one_off_fee_tbl;
9306: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
9307: x_msg_data => x_msg_data);
9308: EXCEPTION
9309: WHEN OKL_API.G_EXCEPTION_ERROR THEN
9310: IF get_asset_lines_csr%ISOPEN THEN
9305: px_csm_one_off_fee_tbl := l_csm_one_off_fee_tbl;
9306: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
9307: x_msg_data => x_msg_data);
9308: EXCEPTION
9309: WHEN OKL_API.G_EXCEPTION_ERROR THEN
9310: IF get_asset_lines_csr%ISOPEN THEN
9311: CLOSE get_asset_lines_csr;
9312: END IF;
9313: IF get_sub_income_strm_csr%ISOPEN THEN
9318: END IF;
9319: IF validate_sub_line%ISOPEN THEN
9320: CLOSE validate_sub_line;
9321: END IF;
9322: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
9323: p_api_name => l_api_name,
9324: p_pkg_name => g_pkg_name,
9325: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
9326: x_msg_count => x_msg_count,
9321: END IF;
9322: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
9323: p_api_name => l_api_name,
9324: p_pkg_name => g_pkg_name,
9325: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
9326: x_msg_count => x_msg_count,
9327: x_msg_data => x_msg_data,
9328: p_api_type => g_api_type);
9329: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
9325: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
9326: x_msg_count => x_msg_count,
9327: x_msg_data => x_msg_data,
9328: p_api_type => g_api_type);
9329: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
9330: IF get_asset_lines_csr%ISOPEN THEN
9331: CLOSE get_asset_lines_csr;
9332: END IF;
9333: IF get_sub_income_strm_csr%ISOPEN THEN
9338: END IF;
9339: IF validate_sub_line%ISOPEN THEN
9340: CLOSE validate_sub_line;
9341: END IF;
9342: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
9343: p_api_name => l_api_name,
9344: p_pkg_name => g_pkg_name,
9345: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
9346: x_msg_count => x_msg_count,
9341: END IF;
9342: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
9343: p_api_name => l_api_name,
9344: p_pkg_name => g_pkg_name,
9345: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
9346: x_msg_count => x_msg_count,
9347: x_msg_data => x_msg_data,
9348: p_api_type => g_api_type);
9349: WHEN OTHERS THEN
9358: END IF;
9359: IF validate_sub_line%ISOPEN THEN
9360: CLOSE validate_sub_line;
9361: END IF;
9362: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
9363: p_api_name => l_api_name,
9364: p_pkg_name => g_pkg_name,
9365: p_exc_name => 'OTHERS',
9366: x_msg_count => x_msg_count,
9371: -- Start modification 11i10 bakuchib
9372: Procedure extract_fee_lines( p_api_version IN NUMBER,
9373: p_chr_id IN NUMBER,
9374: p_deal_type IN VARCHAR2,
9375: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
9376: x_msg_count OUT NOCOPY NUMBER,
9377: x_msg_data OUT NOCOPY VARCHAR2,
9378: x_return_status OUT NOCOPY VARCHAR2,
9379: px_csm_one_off_fee_tbl IN OUT NOCOPY okl_create_streams_pub.csm_one_off_fee_tbl_type,
9381: px_csm_stream_types_tbl IN OUT NOCOPY okl_create_streams_pub.csm_stream_types_tbl_type) AS
9382:
9383: l_api_name CONSTANT VARCHAR2(30) := 'EXTRACT_FEE_LINES';
9384: l_api_version CONSTANT NUMBER := 1;
9385: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
9386: ln_level_cnt NUMBER := 0;
9387: l_pdt_id_rec l_hdr_pdt_csr%ROWTYPE;
9388: l_line_rec l_line_rec_csr%ROWTYPE;
9389: l_lne_rec l_line_rec_csr%ROWTYPE;
9628: -- gboomina Bug 4746368 - Added - End
9629:
9630: Begin
9631: print( l_api_name, 'begin');
9632: x_return_status := OKL_API.START_ACTIVITY(
9633: p_api_name => l_api_name,
9634: p_pkg_name => g_pkg_name,
9635: p_init_msg_list => p_init_msg_list,
9636: l_api_version => l_api_version,
9637: p_api_version => p_api_version,
9638: p_api_type => G_API_TYPE,
9639: x_return_status => x_return_status);
9640: -- check if activity started successfully
9641: If (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
9642: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9643: ElSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
9644: raise OKL_API.G_EXCEPTION_ERROR;
9645: End If;
9638: p_api_type => G_API_TYPE,
9639: x_return_status => x_return_status);
9640: -- check if activity started successfully
9641: If (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
9642: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9643: ElSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
9644: raise OKL_API.G_EXCEPTION_ERROR;
9645: End If;
9646:
9639: x_return_status => x_return_status);
9640: -- check if activity started successfully
9641: If (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
9642: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9643: ElSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
9644: raise OKL_API.G_EXCEPTION_ERROR;
9645: End If;
9646:
9647: --get day convention info : mansrini
9640: -- check if activity started successfully
9641: If (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
9642: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9643: ElSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
9644: raise OKL_API.G_EXCEPTION_ERROR;
9645: End If;
9646:
9647: --get day convention info : mansrini
9648: OPEN get_day_conv_on_contrct;
9665:
9666: OPEN l_hdr_csr(p_chr_id);
9667: FETCH l_hdr_csr into l_hdr_rec;
9668: IF l_hdr_csr%NOTFOUND THEN
9669: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9670: END IF;
9671: CLOSE l_hdr_csr;
9672: i := 0; j := 0;
9673: k := px_csm_periodic_expenses_tbl.COUNT;
9683: print( l_api_name, 'Fee Line='||l_strm_name);
9684:
9685: l_fee_type := nvl(l_lne_rec.fee_type, 'NOFEETYPE');
9686: If (( l_fee_type = 'PASSTHROUGH' ) AND (l_passthru_percent < 0.0)) Then
9687: okl_api.set_message(
9688: p_app_name => G_APP_NAME,
9689: p_msg_name => 'OKL_LLA_NEG_PASSTHRU');
9690: raise OKL_API.G_EXCEPTION_ERROR;
9691: End If;
9686: If (( l_fee_type = 'PASSTHROUGH' ) AND (l_passthru_percent < 0.0)) Then
9687: okl_api.set_message(
9688: p_app_name => G_APP_NAME,
9689: p_msg_name => 'OKL_LLA_NEG_PASSTHRU');
9690: raise OKL_API.G_EXCEPTION_ERROR;
9691: End If;
9692:
9693: print( l_api_name, 'fee type'||l_fee_type);
9694: If (( l_fee_strm_type_rec.capitalize_yn = 'Y') OR ( l_fee_type = 'CAPITALIZED' )) Then
9783: -- gboomina Bug 4746189 - End
9784: IF ( l_pass_thru_amount <> NVL(l_rl_rec.RULE_INFORMATION6,0)) Then
9785: -- Start of Bug#2757289 modification
9786: IF (l_rl_rec.rule_information7 IS NOT NULL OR
9787: l_rl_rec.rule_information7 <> OKL_API.G_MISS_CHAR) AND
9788: (l_rl_rec.rule_information8 IS NOT NULL OR
9789: l_rl_rec.rule_information8 <> OKL_API.G_MISS_CHAR) THEN
9790: k := k + 1;
9791: idx := idx + 1;
9785: -- Start of Bug#2757289 modification
9786: IF (l_rl_rec.rule_information7 IS NOT NULL OR
9787: l_rl_rec.rule_information7 <> OKL_API.G_MISS_CHAR) AND
9788: (l_rl_rec.rule_information8 IS NOT NULL OR
9789: l_rl_rec.rule_information8 <> OKL_API.G_MISS_CHAR) THEN
9790: k := k + 1;
9791: idx := idx + 1;
9792: px_csm_periodic_expenses_tbl(k).level_index_number := idx;
9793: px_csm_periodic_expenses_tbl(k).amount := TO_NUMBER(l_rl_rec.rule_information8);
9817: END IF;
9818: -- Bug 4915938 - End of Changes
9819:
9820: ELSIF (l_rl_rec.rule_information7 IS NULL OR
9821: l_rl_rec.rule_information7 = OKL_API.G_MISS_CHAR) AND
9822: (l_rl_rec.rule_information8 IS NULL OR
9823: l_rl_rec.rule_information8 = OKL_API.G_MISS_CHAR) THEN
9824: k := k + 1;
9825: idx := idx + 1;
9819:
9820: ELSIF (l_rl_rec.rule_information7 IS NULL OR
9821: l_rl_rec.rule_information7 = OKL_API.G_MISS_CHAR) AND
9822: (l_rl_rec.rule_information8 IS NULL OR
9823: l_rl_rec.rule_information8 = OKL_API.G_MISS_CHAR) THEN
9824: k := k + 1;
9825: idx := idx + 1;
9826: px_csm_periodic_expenses_tbl(k).level_index_number := idx;
9827: px_csm_periodic_expenses_tbl(k).description := l_strm_name;
9845: px_csm_periodic_expenses_tbl(k).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ARREARS;
9846: ELSE
9847: px_csm_periodic_expenses_tbl(k).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ADVANCE;
9848: END IF;
9849: IF(l_rl_rec.RULE_INFORMATION2 IS NULL or l_rl_rec.RULE_INFORMATION2 = OKL_API.G_MISS_CHAR) THEN
9850: px_csm_periodic_expenses_tbl(k).date_start:=l_hdr_rec.start_date;
9851: ELSE
9852: px_csm_periodic_expenses_tbl(k).date_start:=FND_DATE.canonical_to_date(l_rl_rec.RULE_INFORMATION2);
9853: END IF;
9908: -- gboomina Bug 4746189 - End
9909: IF ( l_pass_thru_amount <> NVL(l_rl_rec.RULE_INFORMATION6,0)) Then
9910: -- Start of Bug#2757289 modification
9911: IF (l_rl_rec.rule_information7 IS NOT NULL OR
9912: l_rl_rec.rule_information7 <> OKL_API.G_MISS_CHAR) AND
9913: (l_rl_rec.rule_information8 IS NOT NULL OR
9914: l_rl_rec.rule_information8 <> OKL_API.G_MISS_CHAR) THEN
9915: k := k + 1;
9916: idx := idx + 1;
9910: -- Start of Bug#2757289 modification
9911: IF (l_rl_rec.rule_information7 IS NOT NULL OR
9912: l_rl_rec.rule_information7 <> OKL_API.G_MISS_CHAR) AND
9913: (l_rl_rec.rule_information8 IS NOT NULL OR
9914: l_rl_rec.rule_information8 <> OKL_API.G_MISS_CHAR) THEN
9915: k := k + 1;
9916: idx := idx + 1;
9917: px_csm_periodic_expenses_tbl(k).level_index_number := idx;
9918: px_csm_periodic_expenses_tbl(k).amount := TO_NUMBER(l_rl_rec.rule_information8);
9942: END IF;
9943: -- Bug 4915938 - End of Changes
9944:
9945: ELSIF (l_rl_rec.rule_information7 IS NULL OR
9946: l_rl_rec.rule_information7 = OKL_API.G_MISS_CHAR) AND
9947: (l_rl_rec.rule_information8 IS NULL OR
9948: l_rl_rec.rule_information8 = OKL_API.G_MISS_CHAR) THEN
9949: k := k + 1;
9950: idx := idx + 1;
9944:
9945: ELSIF (l_rl_rec.rule_information7 IS NULL OR
9946: l_rl_rec.rule_information7 = OKL_API.G_MISS_CHAR) AND
9947: (l_rl_rec.rule_information8 IS NULL OR
9948: l_rl_rec.rule_information8 = OKL_API.G_MISS_CHAR) THEN
9949: k := k + 1;
9950: idx := idx + 1;
9951: px_csm_periodic_expenses_tbl(k).level_index_number := idx;
9952: px_csm_periodic_expenses_tbl(k).description := l_strm_name;
9970: px_csm_periodic_expenses_tbl(k).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ARREARS;
9971: ELSE
9972: px_csm_periodic_expenses_tbl(k).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ADVANCE;
9973: END IF;
9974: IF(l_rl_rec.RULE_INFORMATION2 IS NULL or l_rl_rec.RULE_INFORMATION2 = OKL_API.G_MISS_CHAR) THEN
9975: px_csm_periodic_expenses_tbl(k).date_start:=l_hdr_rec.start_date;
9976: ELSE
9977: px_csm_periodic_expenses_tbl(k).date_start:=FND_DATE.canonical_to_date(l_rl_rec.RULE_INFORMATION2);
9978: END IF;
10281: idx := 0;
10282: FOR l_rl_rec in l_rl_csr (l_rl_rec2.slh_id, 'LALEVL', 'LASLL', p_chr_id, l_linked_asset_line_rec.id ) LOOP
10283: -- Start of Bug#2757289 modification
10284: IF (l_rl_rec.rule_information7 IS NOT NULL OR
10285: l_rl_rec.rule_information7 <> OKL_API.G_MISS_CHAR) AND
10286: (l_rl_rec.rule_information8 IS NOT NULL OR
10287: l_rl_rec.rule_information8 <> OKL_API.G_MISS_CHAR) THEN
10288: k := k + 1;
10289: idx := idx + 1;
10283: -- Start of Bug#2757289 modification
10284: IF (l_rl_rec.rule_information7 IS NOT NULL OR
10285: l_rl_rec.rule_information7 <> OKL_API.G_MISS_CHAR) AND
10286: (l_rl_rec.rule_information8 IS NOT NULL OR
10287: l_rl_rec.rule_information8 <> OKL_API.G_MISS_CHAR) THEN
10288: k := k + 1;
10289: idx := idx + 1;
10290: px_csm_periodic_expenses_tbl(k).level_index_number := idx;
10291: px_csm_periodic_expenses_tbl(k).amount := TO_NUMBER(l_rl_rec.rule_information8);
10313: px_csm_periodic_expenses_tbl(k).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ADVANCE;
10314: END IF;
10315: -- Bug 4915938 - End of Changes
10316: ELSIF (l_rl_rec.rule_information7 IS NULL OR
10317: l_rl_rec.rule_information7 = OKL_API.G_MISS_CHAR) AND
10318: (l_rl_rec.rule_information8 IS NULL OR
10319: l_rl_rec.rule_information8 = OKL_API.G_MISS_CHAR) THEN
10320: -- End of Bug#2757289 modification
10321: k := k + 1;
10315: -- Bug 4915938 - End of Changes
10316: ELSIF (l_rl_rec.rule_information7 IS NULL OR
10317: l_rl_rec.rule_information7 = OKL_API.G_MISS_CHAR) AND
10318: (l_rl_rec.rule_information8 IS NULL OR
10319: l_rl_rec.rule_information8 = OKL_API.G_MISS_CHAR) THEN
10320: -- End of Bug#2757289 modification
10321: k := k + 1;
10322: idx := idx + 1;
10323: px_csm_periodic_expenses_tbl(k).level_index_number := idx;
10339: px_csm_periodic_expenses_tbl(k).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ARREARS;
10340: ELSE
10341: px_csm_periodic_expenses_tbl(k).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ADVANCE;
10342: END IF;
10343: IF(l_rl_rec.RULE_INFORMATION2 IS NULL or l_rl_rec.RULE_INFORMATION2 = OKL_API.G_MISS_CHAR) Then
10344: px_csm_periodic_expenses_tbl(k).date_start:=l_hdr_rec.start_date;
10345: ELSE
10346: px_csm_periodic_expenses_tbl(k).date_start:=FND_DATE.canonical_to_date(l_rl_rec.RULE_INFORMATION2);
10347: END IF;
10621: idx := 0;
10622: FOR l_rl_rec in l_rl_csr (l_rl_rec2.slh_id, 'LALEVL', 'LASLL', p_chr_id, l_lne_rec.id ) LOOP
10623: -- Start of Bug#2757289 modification
10624: IF (l_rl_rec.rule_information7 IS NOT NULL OR
10625: l_rl_rec.rule_information7 <> OKL_API.G_MISS_CHAR) AND
10626: (l_rl_rec.rule_information8 IS NOT NULL OR
10627: l_rl_rec.rule_information8 <> OKL_API.G_MISS_CHAR) THEN
10628: k := k + 1;
10629: idx := idx + 1;
10623: -- Start of Bug#2757289 modification
10624: IF (l_rl_rec.rule_information7 IS NOT NULL OR
10625: l_rl_rec.rule_information7 <> OKL_API.G_MISS_CHAR) AND
10626: (l_rl_rec.rule_information8 IS NOT NULL OR
10627: l_rl_rec.rule_information8 <> OKL_API.G_MISS_CHAR) THEN
10628: k := k + 1;
10629: idx := idx + 1;
10630: px_csm_periodic_expenses_tbl(k).level_index_number := idx;
10631: px_csm_periodic_expenses_tbl(k).amount := TO_NUMBER(l_rl_rec.rule_information8);
10653: px_csm_periodic_expenses_tbl(k).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ADVANCE;
10654: END IF;
10655: -- Bug 4915938 - End of Changes
10656: ELSIF (l_rl_rec.rule_information7 IS NULL OR
10657: l_rl_rec.rule_information7 = OKL_API.G_MISS_CHAR) AND
10658: (l_rl_rec.rule_information8 IS NULL OR
10659: l_rl_rec.rule_information8 = OKL_API.G_MISS_CHAR) THEN
10660: -- End of Bug#2757289 modification
10661: k := k + 1;
10655: -- Bug 4915938 - End of Changes
10656: ELSIF (l_rl_rec.rule_information7 IS NULL OR
10657: l_rl_rec.rule_information7 = OKL_API.G_MISS_CHAR) AND
10658: (l_rl_rec.rule_information8 IS NULL OR
10659: l_rl_rec.rule_information8 = OKL_API.G_MISS_CHAR) THEN
10660: -- End of Bug#2757289 modification
10661: k := k + 1;
10662: idx := idx + 1;
10663: px_csm_periodic_expenses_tbl(k).level_index_number := idx;
10679: px_csm_periodic_expenses_tbl(k).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ARREARS;
10680: ELSE
10681: px_csm_periodic_expenses_tbl(k).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ADVANCE;
10682: END IF;
10683: IF(l_rl_rec.RULE_INFORMATION2 IS NULL or l_rl_rec.RULE_INFORMATION2 = OKL_API.G_MISS_CHAR) Then
10684: px_csm_periodic_expenses_tbl(k).date_start:=l_hdr_rec.start_date;
10685: ELSE
10686: px_csm_periodic_expenses_tbl(k).date_start:=FND_DATE.canonical_to_date(l_rl_rec.RULE_INFORMATION2);
10687: END IF;
10830: idx := 0;
10831: FOR l_rl_rec IN l_rl_csr (l_rl_rec2.slh_id,'LALEVL','LASLL',p_chr_id, l_linked_asset_line_rec.id) LOOP
10832: -- Start of Bug#2757289 modification
10833: IF (l_rl_rec.rule_information7 IS NOT NULL OR
10834: l_rl_rec.rule_information7 <> OKL_API.G_MISS_CHAR) AND
10835: (l_rl_rec.rule_information8 IS NOT NULL OR
10836: l_rl_rec.rule_information8 <> OKL_API.G_MISS_CHAR) THEN
10837: k := k + 1;
10838: idx := idx + 1;
10832: -- Start of Bug#2757289 modification
10833: IF (l_rl_rec.rule_information7 IS NOT NULL OR
10834: l_rl_rec.rule_information7 <> OKL_API.G_MISS_CHAR) AND
10835: (l_rl_rec.rule_information8 IS NOT NULL OR
10836: l_rl_rec.rule_information8 <> OKL_API.G_MISS_CHAR) THEN
10837: k := k + 1;
10838: idx := idx + 1;
10839: px_csm_periodic_expenses_tbl(k).level_index_number := idx;
10840: px_csm_periodic_expenses_tbl(k).amount := TO_NUMBER(l_rl_rec.rule_information8);
10864: END IF;
10865: -- Bug 4915938 - End of Changes
10866:
10867: ELSIF (l_rl_rec.rule_information7 IS NULL OR
10868: l_rl_rec.rule_information7 = OKL_API.G_MISS_CHAR) AND
10869: (l_rl_rec.rule_information8 IS NULL OR
10870: l_rl_rec.rule_information8 = OKL_API.G_MISS_CHAR) THEN
10871: k := k + 1;
10872: idx := idx + 1;
10866:
10867: ELSIF (l_rl_rec.rule_information7 IS NULL OR
10868: l_rl_rec.rule_information7 = OKL_API.G_MISS_CHAR) AND
10869: (l_rl_rec.rule_information8 IS NULL OR
10870: l_rl_rec.rule_information8 = OKL_API.G_MISS_CHAR) THEN
10871: k := k + 1;
10872: idx := idx + 1;
10873: px_csm_periodic_expenses_tbl(k).level_index_number := idx;
10874: px_csm_periodic_expenses_tbl(k).description := l_strm_name;
10890: ELSE
10891: px_csm_periodic_expenses_tbl(k).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ADVANCE;
10892: END IF;
10893: IF(l_rl_rec.rule_information2 IS NULL OR
10894: l_rl_rec.rule_information2 = OKL_API.G_MISS_CHAR) THEN
10895: px_csm_periodic_expenses_tbl(k).date_start:=l_hdr_rec.start_date;
10896: ELSE
10897: px_csm_periodic_expenses_tbl(k).date_start:=FND_DATE.canonical_to_date(l_rl_rec.rule_information2);
10898: END IF;
10966: idx := 0;
10967: FOR l_rl_rec IN l_rl_csr (l_rl_rec2.slh_id,'LALEVL','LASLL',p_chr_id, l_lne_rec.id) LOOP
10968: -- Start of Bug#2757289 modification
10969: IF (l_rl_rec.rule_information7 IS NOT NULL OR
10970: l_rl_rec.rule_information7 <> OKL_API.G_MISS_CHAR) AND
10971: (l_rl_rec.rule_information8 IS NOT NULL OR
10972: l_rl_rec.rule_information8 <> OKL_API.G_MISS_CHAR) THEN
10973: k := k + 1;
10974: idx := idx + 1;
10968: -- Start of Bug#2757289 modification
10969: IF (l_rl_rec.rule_information7 IS NOT NULL OR
10970: l_rl_rec.rule_information7 <> OKL_API.G_MISS_CHAR) AND
10971: (l_rl_rec.rule_information8 IS NOT NULL OR
10972: l_rl_rec.rule_information8 <> OKL_API.G_MISS_CHAR) THEN
10973: k := k + 1;
10974: idx := idx + 1;
10975: px_csm_periodic_expenses_tbl(k).level_index_number := idx;
10976: px_csm_periodic_expenses_tbl(k).amount := TO_NUMBER(l_rl_rec.rule_information8);
11000: END IF;
11001: -- Bug 4915938 - End of Changes
11002:
11003: ELSIF (l_rl_rec.rule_information7 IS NULL OR
11004: l_rl_rec.rule_information7 = OKL_API.G_MISS_CHAR) AND
11005: (l_rl_rec.rule_information8 IS NULL OR
11006: l_rl_rec.rule_information8 = OKL_API.G_MISS_CHAR) THEN
11007: k := k + 1;
11008: idx := idx + 1;
11002:
11003: ELSIF (l_rl_rec.rule_information7 IS NULL OR
11004: l_rl_rec.rule_information7 = OKL_API.G_MISS_CHAR) AND
11005: (l_rl_rec.rule_information8 IS NULL OR
11006: l_rl_rec.rule_information8 = OKL_API.G_MISS_CHAR) THEN
11007: k := k + 1;
11008: idx := idx + 1;
11009: px_csm_periodic_expenses_tbl(k).level_index_number := idx;
11010: px_csm_periodic_expenses_tbl(k).description := l_strm_name;
11026: ELSE
11027: px_csm_periodic_expenses_tbl(k).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ADVANCE;
11028: END IF;
11029: IF(l_rl_rec.rule_information2 IS NULL OR
11030: l_rl_rec.rule_information2 = OKL_API.G_MISS_CHAR) THEN
11031: px_csm_periodic_expenses_tbl(k).date_start:=l_hdr_rec.start_date;
11032: ELSE
11033: px_csm_periodic_expenses_tbl(k).date_start:=FND_DATE.canonical_to_date(l_rl_rec.rule_information2);
11034: END IF;
11138: idx := 0;
11139: FOR l_rl_rec IN l_rl_csr (l_rl_rec2.slh_id,'LALEVL','LASLL',p_chr_id, link_rollover_rec.id) LOOP
11140: -- Start of Bug#2757289 modification
11141: IF (l_rl_rec.rule_information7 IS NOT NULL OR
11142: l_rl_rec.rule_information7 <> OKL_API.G_MISS_CHAR) AND
11143: (l_rl_rec.rule_information8 IS NOT NULL OR
11144: l_rl_rec.rule_information8 <> OKL_API.G_MISS_CHAR) THEN
11145: k := k + 1;
11146: idx := idx + 1;
11140: -- Start of Bug#2757289 modification
11141: IF (l_rl_rec.rule_information7 IS NOT NULL OR
11142: l_rl_rec.rule_information7 <> OKL_API.G_MISS_CHAR) AND
11143: (l_rl_rec.rule_information8 IS NOT NULL OR
11144: l_rl_rec.rule_information8 <> OKL_API.G_MISS_CHAR) THEN
11145: k := k + 1;
11146: idx := idx + 1;
11147: px_csm_periodic_expenses_tbl(k).level_index_number := idx;
11148: px_csm_periodic_expenses_tbl(k).amount := TO_NUMBER(l_rl_rec.rule_information8);
11172: END IF;
11173: -- Bug 4915938 - End of Changes
11174:
11175: ELSIF (l_rl_rec.rule_information7 IS NULL OR
11176: l_rl_rec.rule_information7 = OKL_API.G_MISS_CHAR) AND
11177: (l_rl_rec.rule_information8 IS NULL OR
11178: l_rl_rec.rule_information8 = OKL_API.G_MISS_CHAR) THEN
11179: k := k + 1;
11180: idx := idx + 1;
11174:
11175: ELSIF (l_rl_rec.rule_information7 IS NULL OR
11176: l_rl_rec.rule_information7 = OKL_API.G_MISS_CHAR) AND
11177: (l_rl_rec.rule_information8 IS NULL OR
11178: l_rl_rec.rule_information8 = OKL_API.G_MISS_CHAR) THEN
11179: k := k + 1;
11180: idx := idx + 1;
11181: px_csm_periodic_expenses_tbl(k).level_index_number := idx;
11182: px_csm_periodic_expenses_tbl(k).description := l_strm_name;
11198: ELSE
11199: px_csm_periodic_expenses_tbl(k).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ADVANCE;
11200: END IF;
11201: IF(l_rl_rec.rule_information2 IS NULL OR
11202: l_rl_rec.rule_information2 = OKL_API.G_MISS_CHAR) THEN
11203: px_csm_periodic_expenses_tbl(k).date_start:=l_hdr_rec.start_date;
11204: ELSE
11205: px_csm_periodic_expenses_tbl(k).date_start:=FND_DATE.canonical_to_date(l_rl_rec.rule_information2);
11206: END IF;
11273: idx := 0;
11274: FOR l_rl_rec IN l_rl_csr (l_rl_rec2.slh_id,'LALEVL','LASLL',p_chr_id, l_lne_rec.id) LOOP
11275: -- Start of Bug#2757289 modification
11276: IF (l_rl_rec.rule_information7 IS NOT NULL OR
11277: l_rl_rec.rule_information7 <> OKL_API.G_MISS_CHAR) AND
11278: (l_rl_rec.rule_information8 IS NOT NULL OR
11279: l_rl_rec.rule_information8 <> OKL_API.G_MISS_CHAR) THEN
11280: k := k + 1;
11281: idx := idx + 1;
11275: -- Start of Bug#2757289 modification
11276: IF (l_rl_rec.rule_information7 IS NOT NULL OR
11277: l_rl_rec.rule_information7 <> OKL_API.G_MISS_CHAR) AND
11278: (l_rl_rec.rule_information8 IS NOT NULL OR
11279: l_rl_rec.rule_information8 <> OKL_API.G_MISS_CHAR) THEN
11280: k := k + 1;
11281: idx := idx + 1;
11282: px_csm_periodic_expenses_tbl(k).level_index_number := idx;
11283: px_csm_periodic_expenses_tbl(k).amount := TO_NUMBER(l_rl_rec.rule_information8);
11307: END IF;
11308: -- Bug 4915938 - End of Changes
11309:
11310: ELSIF (l_rl_rec.rule_information7 IS NULL OR
11311: l_rl_rec.rule_information7 = OKL_API.G_MISS_CHAR) AND
11312: (l_rl_rec.rule_information8 IS NULL OR
11313: l_rl_rec.rule_information8 = OKL_API.G_MISS_CHAR) THEN
11314: k := k + 1;
11315: idx := idx + 1;
11309:
11310: ELSIF (l_rl_rec.rule_information7 IS NULL OR
11311: l_rl_rec.rule_information7 = OKL_API.G_MISS_CHAR) AND
11312: (l_rl_rec.rule_information8 IS NULL OR
11313: l_rl_rec.rule_information8 = OKL_API.G_MISS_CHAR) THEN
11314: k := k + 1;
11315: idx := idx + 1;
11316: px_csm_periodic_expenses_tbl(k).level_index_number := idx;
11317: px_csm_periodic_expenses_tbl(k).description := l_strm_name;
11333: ELSE
11334: px_csm_periodic_expenses_tbl(k).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ADVANCE;
11335: END IF;
11336: IF(l_rl_rec.rule_information2 IS NULL OR
11337: l_rl_rec.rule_information2 = OKL_API.G_MISS_CHAR) THEN
11338: px_csm_periodic_expenses_tbl(k).date_start:=l_hdr_rec.start_date;
11339: ELSE
11340: px_csm_periodic_expenses_tbl(k).date_start:=FND_DATE.canonical_to_date(l_rl_rec.rule_information2);
11341: END IF;
11591: /*
11592: OPEN l_strmid_csr('AMORTIZED FEE INCOME');
11593: FETCH l_strmid_csr into l_strmid_rec;
11594: IF l_strmid_csr%NOTFOUND THEN
11595: OKL_API.set_message(p_app_name => G_APP_NAME,
11596: p_msg_name => G_LLA_NO_MATCHING_RECORD,
11597: p_token1 => G_COL_NAME_TOKEN,
11598: p_token1_value => 'AMORTIZED FEE INCOME');
11599: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11595: OKL_API.set_message(p_app_name => G_APP_NAME,
11596: p_msg_name => G_LLA_NO_MATCHING_RECORD,
11597: p_token1 => G_COL_NAME_TOKEN,
11598: p_token1_value => 'AMORTIZED FEE INCOME');
11599: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11600: END IF;
11601: CLOSE l_strmid_csr;
11602: */
11603: -- added and commented code ends here.
11661: /*
11662: OPEN l_strmid_csr('FEE INCOME');
11663: FETCH l_strmid_csr into l_strmid_rec;
11664: IF l_strmid_csr%NOTFOUND THEN
11665: OKL_API.set_message(p_app_name => G_APP_NAME,
11666: p_msg_name => G_LLA_NO_MATCHING_RECORD,
11667: p_token1 => G_COL_NAME_TOKEN,
11668: p_token1_value => 'FEE INCOME');
11669: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11665: OKL_API.set_message(p_app_name => G_APP_NAME,
11666: p_msg_name => G_LLA_NO_MATCHING_RECORD,
11667: p_token1 => G_COL_NAME_TOKEN,
11668: p_token1_value => 'FEE INCOME');
11669: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11670: END IF;
11671: CLOSE l_strmid_csr;
11672: */
11673: IF(l_sty_id.id IS NOT NULL) THEN
11680: idx := 0;
11681: FOR l_rl_rec IN l_rl_csr (l_rl_rec2.slh_id,'LALEVL','LASLL',p_chr_id, l_lne_rec.id) LOOP
11682: -- Start of Bug#2757289 modification
11683: IF (l_rl_rec.rule_information7 IS NOT NULL OR
11684: l_rl_rec.rule_information7 <> OKL_API.G_MISS_CHAR) AND
11685: (l_rl_rec.rule_information8 IS NOT NULL OR
11686: l_rl_rec.rule_information8 <> OKL_API.G_MISS_CHAR) THEN
11687: k := k + 1;
11688: idx := idx + 1;
11682: -- Start of Bug#2757289 modification
11683: IF (l_rl_rec.rule_information7 IS NOT NULL OR
11684: l_rl_rec.rule_information7 <> OKL_API.G_MISS_CHAR) AND
11685: (l_rl_rec.rule_information8 IS NOT NULL OR
11686: l_rl_rec.rule_information8 <> OKL_API.G_MISS_CHAR) THEN
11687: k := k + 1;
11688: idx := idx + 1;
11689: px_csm_periodic_expenses_tbl(k).level_index_number := idx;
11690: px_csm_periodic_expenses_tbl(k).amount := TO_NUMBER(l_rl_rec.rule_information8);
11714: END IF;
11715: -- Bug 4915938 - End of Changes
11716:
11717: ELSIF (l_rl_rec.rule_information7 IS NULL OR
11718: l_rl_rec.rule_information7 = OKL_API.G_MISS_CHAR) AND
11719: (l_rl_rec.rule_information8 IS NULL OR
11720: l_rl_rec.rule_information8 = OKL_API.G_MISS_CHAR) THEN
11721: k := k + 1;
11722: idx := idx + 1;
11716:
11717: ELSIF (l_rl_rec.rule_information7 IS NULL OR
11718: l_rl_rec.rule_information7 = OKL_API.G_MISS_CHAR) AND
11719: (l_rl_rec.rule_information8 IS NULL OR
11720: l_rl_rec.rule_information8 = OKL_API.G_MISS_CHAR) THEN
11721: k := k + 1;
11722: idx := idx + 1;
11723: px_csm_periodic_expenses_tbl(k).level_index_number := idx;
11724: px_csm_periodic_expenses_tbl(k).description := l_strm_name;
11740: ELSE
11741: px_csm_periodic_expenses_tbl(k).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ADVANCE;
11742: END IF;
11743: IF(l_rl_rec.rule_information2 IS NULL OR
11744: l_rl_rec.rule_information2 = OKL_API.G_MISS_CHAR) THEN
11745: px_csm_periodic_expenses_tbl(k).date_start:=l_hdr_rec.start_date;
11746: ELSE
11747: px_csm_periodic_expenses_tbl(k).date_start:=FND_DATE.canonical_to_date(l_rl_rec.rule_information2);
11748: END IF;
11767: px_csm_stream_types_tbl => px_csm_stream_types_tbl,
11768: px_csm_one_off_fee_tbl => px_csm_one_off_fee_tbl,
11769: px_csm_periodic_expenses_tbl => px_csm_periodic_expenses_tbl);
11770:
11771: If (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
11772: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11773: ElSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
11774: raise OKL_API.G_EXCEPTION_ERROR;
11775: End If;
11768: px_csm_one_off_fee_tbl => px_csm_one_off_fee_tbl,
11769: px_csm_periodic_expenses_tbl => px_csm_periodic_expenses_tbl);
11770:
11771: If (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
11772: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11773: ElSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
11774: raise OKL_API.G_EXCEPTION_ERROR;
11775: End If;
11776:
11769: px_csm_periodic_expenses_tbl => px_csm_periodic_expenses_tbl);
11770:
11771: If (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
11772: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11773: ElSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
11774: raise OKL_API.G_EXCEPTION_ERROR;
11775: End If;
11776:
11777: k := px_csm_periodic_expenses_tbl.COUNT;
11770:
11771: If (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
11772: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11773: ElSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
11774: raise OKL_API.G_EXCEPTION_ERROR;
11775: End If;
11776:
11777: k := px_csm_periodic_expenses_tbl.COUNT;
11778: l := px_csm_one_off_fee_tbl.COUNT;
11779: m := px_csm_stream_types_tbl.COUNT;
11780:
11781: Else
11782:
11783: okl_api.set_message(
11784: p_app_name => G_APP_NAME,
11785: p_msg_name => 'OKL_LLA_NO_FEETYPE');
11786: raise OKL_API.G_EXCEPTION_ERROR;
11787:
11782:
11783: okl_api.set_message(
11784: p_app_name => G_APP_NAME,
11785: p_msg_name => 'OKL_LLA_NO_FEETYPE');
11786: raise OKL_API.G_EXCEPTION_ERROR;
11787:
11788: End If;
11789:
11790: END LOOP;
11790: END LOOP;
11791:
11792: print( l_api_name, 'end', x_return_status);
11793:
11794: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
11795:
11796: Exception
11797:
11798: when OKL_API.G_EXCEPTION_ERROR THEN
11794: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
11795:
11796: Exception
11797:
11798: when OKL_API.G_EXCEPTION_ERROR THEN
11799:
11800: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
11801:
11802: p_api_name => l_api_name,
11796: Exception
11797:
11798: when OKL_API.G_EXCEPTION_ERROR THEN
11799:
11800: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
11801:
11802: p_api_name => l_api_name,
11803: p_pkg_name => g_pkg_name,
11804: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
11800: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
11801:
11802: p_api_name => l_api_name,
11803: p_pkg_name => g_pkg_name,
11804: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
11805: x_msg_count => x_msg_count,
11806: x_msg_data => x_msg_data,
11807: p_api_type => g_api_type);
11808:
11812: If(l_rl_csr2%ISOPEN) Then
11813: CLOSE l_rl_csr2;
11814: End If;
11815:
11816: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
11817:
11818: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
11819: p_api_name => l_api_name,
11820: p_pkg_name => g_pkg_name,
11814: End If;
11815:
11816: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
11817:
11818: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
11819: p_api_name => l_api_name,
11820: p_pkg_name => g_pkg_name,
11821: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
11822: x_msg_count => x_msg_count,
11817:
11818: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
11819: p_api_name => l_api_name,
11820: p_pkg_name => g_pkg_name,
11821: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
11822: x_msg_count => x_msg_count,
11823: x_msg_data => x_msg_data,
11824: p_api_type => g_api_type);
11825: If(l_rl_csr1%ISOPEN) Then
11830: End If;
11831:
11832: when OTHERS THEN
11833:
11834: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
11835: p_api_name => l_api_name,
11836: p_pkg_name => g_pkg_name,
11837: p_exc_name => 'OTHERS',
11838: x_msg_count => x_msg_count,
11849: -- End modification 11i10 bakuchib
11850: -- Start modification 11i10 bakuchib
11851: PROCEDURE extract_params_loan_deal(
11852: p_api_version IN NUMBER,
11853: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
11854: p_chr_id IN VARCHAR2,
11855: p_deal_type IN VARCHAR2,
11856: x_return_status OUT NOCOPY VARCHAR2,
11857: x_msg_count OUT NOCOPY NUMBER,
11865: x_csm_stream_types_tbl OUT NOCOPY okl_create_streams_pub.csm_stream_types_tbl_type) AS
11866:
11867: l_api_name CONSTANT VARCHAR2(30) := 'EXTRACT_PARAMS_LOAN_DEAL';
11868: l_api_version CONSTANT NUMBER := 1;
11869: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
11870: l_level_type NUMBER;
11871: l_strm_name VARCHAR2(200);
11872: i BINARY_INTEGER := 0;
11873: j BINARY_INTEGER := 0;
11990: BEGIN
11991: --Added by kthiruva for Debugging
11992: write_to_log('Inside procedure extract_params_loan_deal');
11993:
11994: x_return_status := OKL_API.G_RET_STS_SUCCESS;
11995: -- Call start_activity to create savepoint, check compatibility
11996: -- and initialize message list
11997: x_return_status := OKL_API.START_ACTIVITY (
11998: l_api_name
11993:
11994: x_return_status := OKL_API.G_RET_STS_SUCCESS;
11995: -- Call start_activity to create savepoint, check compatibility
11996: -- and initialize message list
11997: x_return_status := OKL_API.START_ACTIVITY (
11998: l_api_name
11999: ,p_init_msg_list
12000: ,'_PVT'
12001: ,x_return_status);
11999: ,p_init_msg_list
12000: ,'_PVT'
12001: ,x_return_status);
12002: -- Check if activity started successfully
12003: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
12004: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
12005: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
12006: RAISE OKL_API.G_EXCEPTION_ERROR;
12007: END IF;
12000: ,'_PVT'
12001: ,x_return_status);
12002: -- Check if activity started successfully
12003: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
12004: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
12005: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
12006: RAISE OKL_API.G_EXCEPTION_ERROR;
12007: END IF;
12008:
12001: ,x_return_status);
12002: -- Check if activity started successfully
12003: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
12004: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
12005: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
12006: RAISE OKL_API.G_EXCEPTION_ERROR;
12007: END IF;
12008:
12009: OPEN l_hdr_pdt_csr(p_chr_id);
12002: -- Check if activity started successfully
12003: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
12004: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
12005: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
12006: RAISE OKL_API.G_EXCEPTION_ERROR;
12007: END IF;
12008:
12009: OPEN l_hdr_pdt_csr(p_chr_id);
12010: FETCH l_hdr_pdt_csr INTO l_pdt_id_rec;
12036: p_khr_id => p_chr_id,
12037: p_paym_tbl => l_pay_tbl);
12038: --Added by kthiruva for Debugging
12039: write_to_log('After the call to validate_payments, the return status is :'|| x_return_status);
12040: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
12041: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
12042: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
12043: RAISE OKL_API.G_EXCEPTION_ERROR;
12044: END IF;
12037: p_paym_tbl => l_pay_tbl);
12038: --Added by kthiruva for Debugging
12039: write_to_log('After the call to validate_payments, the return status is :'|| x_return_status);
12040: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
12041: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
12042: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
12043: RAISE OKL_API.G_EXCEPTION_ERROR;
12044: END IF;
12045: i := 0; j := 0; k := 0; l := 0; m := 0;
12038: --Added by kthiruva for Debugging
12039: write_to_log('After the call to validate_payments, the return status is :'|| x_return_status);
12040: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
12041: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
12042: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
12043: RAISE OKL_API.G_EXCEPTION_ERROR;
12044: END IF;
12045: i := 0; j := 0; k := 0; l := 0; m := 0;
12046:
12039: write_to_log('After the call to validate_payments, the return status is :'|| x_return_status);
12040: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
12041: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
12042: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
12043: RAISE OKL_API.G_EXCEPTION_ERROR;
12044: END IF;
12045: i := 0; j := 0; k := 0; l := 0; m := 0;
12046:
12047: -- Header infro
12049: FETCH l_hdr_csr into l_hdr_rec;
12050: IF l_hdr_csr%NOTFOUND THEN
12051: --Added by kthiruva for Debugging
12052: write_to_log('Cursor l_hdr_csr not found ');
12053: okl_api.set_message(p_app_name => G_APP_NAME,
12054: p_msg_name => G_LLA_NO_MATCHING_RECORD,
12055: p_token1 => G_COL_NAME_TOKEN,
12056: p_token1_value => 'Contract id');
12057: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
12053: okl_api.set_message(p_app_name => G_APP_NAME,
12054: p_msg_name => G_LLA_NO_MATCHING_RECORD,
12055: p_token1 => G_COL_NAME_TOKEN,
12056: p_token1_value => 'Contract id');
12057: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
12058: END IF;
12059: CLOSE l_hdr_csr;
12060: l_csm_loan_header.khr_id := p_chr_id;
12061: l_csm_loan_header.date_payments_commencement := l_hdr_rec.start_date;
12071: FETCH ib_csr into l_ib_rec;
12072: IF ib_csr%NOTFOUND THEN
12073: --Added by kthiruva for Debugging
12074: write_to_log('Cursor ib_csr not found ');
12075: okl_api.set_message(p_app_name => G_APP_NAME,
12076: p_msg_name => G_LLA_NO_MATCHING_RECORD,
12077: p_token1 => G_COL_NAME_TOKEN,
12078: p_token1_value => 'Contract id');
12079: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
12075: okl_api.set_message(p_app_name => G_APP_NAME,
12076: p_msg_name => G_LLA_NO_MATCHING_RECORD,
12077: p_token1 => G_COL_NAME_TOKEN,
12078: p_token1_value => 'Contract id');
12079: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
12080: END IF;
12081: CLOSE ib_csr;
12082: l_csm_loan_header.country := l_ib_rec.country;
12083: l_csm_loan_header.orp_code := OKL_CREATE_STREAMS_PUB.G_ORP_CODE_BOOKING;
12101:
12102: --Added by kthiruva for Debugging
12103: write_to_log('After the call to execute_formula, the return status is :'||x_return_status);
12104: --Bug 4738011 - End of Changes
12105: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
12106: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
12107: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
12108: RAISE OKL_API.G_EXCEPTION_ERROR;
12109: END IF;
12102: --Added by kthiruva for Debugging
12103: write_to_log('After the call to execute_formula, the return status is :'||x_return_status);
12104: --Bug 4738011 - End of Changes
12105: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
12106: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
12107: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
12108: RAISE OKL_API.G_EXCEPTION_ERROR;
12109: END IF;
12110: l_csm_loan_header.total_lending := l_total_lending;
12103: write_to_log('After the call to execute_formula, the return status is :'||x_return_status);
12104: --Bug 4738011 - End of Changes
12105: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
12106: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
12107: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
12108: RAISE OKL_API.G_EXCEPTION_ERROR;
12109: END IF;
12110: l_csm_loan_header.total_lending := l_total_lending;
12111: l_csm_loan_header.sif_mode := OKL_CREATE_STREAMS_PUB.G_MODE_LENDER;
12104: --Bug 4738011 - End of Changes
12105: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
12106: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
12107: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
12108: RAISE OKL_API.G_EXCEPTION_ERROR;
12109: END IF;
12110: l_csm_loan_header.total_lending := l_total_lending;
12111: l_csm_loan_header.sif_mode := OKL_CREATE_STREAMS_PUB.G_MODE_LENDER;
12112: -- asset infor
12129:
12130: OPEN strm_name_csr ( l_level_type );
12131: FETCH strm_name_csr into l_strm_name_rec;
12132: IF strm_name_csr%NOTFOUND THEN
12133: okl_api.set_message(p_app_name => G_APP_NAME,
12134: p_msg_name => G_LLA_NO_MATCHING_RECORD,
12135: p_token1 => G_COL_NAME_TOKEN,
12136: p_token1_value => 'Contract id');
12137: x_return_status := OKL_API.G_RET_STS_ERROR;
12133: okl_api.set_message(p_app_name => G_APP_NAME,
12134: p_msg_name => G_LLA_NO_MATCHING_RECORD,
12135: p_token1 => G_COL_NAME_TOKEN,
12136: p_token1_value => 'Contract id');
12137: x_return_status := OKL_API.G_RET_STS_ERROR;
12138: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_ERROR);
12139: END IF;
12140: CLOSE strm_name_csr;
12141: --l_strm_name := l_strm_name_rec.name;
12134: p_msg_name => G_LLA_NO_MATCHING_RECORD,
12135: p_token1 => G_COL_NAME_TOKEN,
12136: p_token1_value => 'Contract id');
12137: x_return_status := OKL_API.G_RET_STS_ERROR;
12138: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_ERROR);
12139: END IF;
12140: CLOSE strm_name_csr;
12141: --l_strm_name := l_strm_name_rec.name;
12142: l_strm_name := l_strm_name_rec.stream_type_purpose;
12255: p_contract_id => p_chr_id,
12256: p_line_id => l_line_rec.id,
12257: x_value => l_total_lending);
12258: --Bug 4738011 - End of Changes
12259: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
12260: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
12261: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
12262: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_ERROR);
12263: END IF;
12256: p_line_id => l_line_rec.id,
12257: x_value => l_total_lending);
12258: --Bug 4738011 - End of Changes
12259: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
12260: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
12261: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
12262: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_ERROR);
12263: END IF;
12264: l_csm_line_details_tbl(j).amount := l_total_lending;
12257: x_value => l_total_lending);
12258: --Bug 4738011 - End of Changes
12259: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
12260: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
12261: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
12262: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_ERROR);
12263: END IF;
12264: l_csm_line_details_tbl(j).amount := l_total_lending;
12265: --Modified by kthiruva on 2-Sep-2005 for Pricing Enhancements
12258: --Bug 4738011 - End of Changes
12259: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
12260: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
12261: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
12262: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_ERROR);
12263: END IF;
12264: l_csm_line_details_tbl(j).amount := l_total_lending;
12265: --Modified by kthiruva on 2-Sep-2005 for Pricing Enhancements
12266: --Bug 4576794 - Start of Changes
12320:
12321: FOR l_rl_rec in l_rl_csr ( l_rl_rec1.slh_id, 'LALEVL', 'LASLL', TO_NUMBER(p_chr_id), l_line_rec.id ) LOOP
12322: -- Start of Bug#2757289 modification
12323: IF (l_rl_rec.rule_information7 IS NOT NULL OR
12324: l_rl_rec.rule_information7 <> OKL_API.G_MISS_CHAR) AND
12325: (l_rl_rec.rule_information8 IS NOT NULL OR
12326: l_rl_rec.rule_information8 <> OKL_API.G_MISS_CHAR) THEN
12327: j := j + 1;
12328: idx := idx + 1;
12322: -- Start of Bug#2757289 modification
12323: IF (l_rl_rec.rule_information7 IS NOT NULL OR
12324: l_rl_rec.rule_information7 <> OKL_API.G_MISS_CHAR) AND
12325: (l_rl_rec.rule_information8 IS NOT NULL OR
12326: l_rl_rec.rule_information8 <> OKL_API.G_MISS_CHAR) THEN
12327: j := j + 1;
12328: idx := idx + 1;
12329: l_csm_line_details_tbl(j).level_index_number := idx;
12330: l_csm_line_details_tbl(j).amount := TO_NUMBER(l_rl_rec.rule_information8);
12363: END IF;
12364: -- Bug 4915938 - End of Changes
12365:
12366: ELSIF (l_rl_rec.rule_information7 IS NULL OR
12367: l_rl_rec.rule_information7 = OKL_API.G_MISS_CHAR) AND
12368: (l_rl_rec.rule_information8 IS NULL OR
12369: l_rl_rec.rule_information8 = OKL_API.G_MISS_CHAR) THEN
12370: j := j + 1;
12371: idx := idx + 1;
12365:
12366: ELSIF (l_rl_rec.rule_information7 IS NULL OR
12367: l_rl_rec.rule_information7 = OKL_API.G_MISS_CHAR) AND
12368: (l_rl_rec.rule_information8 IS NULL OR
12369: l_rl_rec.rule_information8 = OKL_API.G_MISS_CHAR) THEN
12370: j := j + 1;
12371: idx := idx + 1;
12372: l_csm_line_details_tbl(j).kle_loan_id := l_line_rec.id;
12373: l_csm_line_details_tbl(j).description := l_strm_name;
12461: OPEN get_base_rate_csr(p_chr_id => p_chr_id,
12462: p_date => l_hdr_rec.start_date);
12463: FETCH get_base_rate_csr INTO l_base_rate;
12464: IF get_base_rate_csr%NOTFOUND THEN
12465: Okl_Api.SET_MESSAGE(p_app_name => g_app_name,
12466: p_msg_name => 'OKL_LLAP_BASE_RATE_NOT_DEF');
12467: RAISE Okl_Api.G_EXCEPTION_ERROR;
12468: END IF;
12469: CLOSE get_base_rate_csr;
12463: FETCH get_base_rate_csr INTO l_base_rate;
12464: IF get_base_rate_csr%NOTFOUND THEN
12465: Okl_Api.SET_MESSAGE(p_app_name => g_app_name,
12466: p_msg_name => 'OKL_LLAP_BASE_RATE_NOT_DEF');
12467: RAISE Okl_Api.G_EXCEPTION_ERROR;
12468: END IF;
12469: CLOSE get_base_rate_csr;
12470: -- srsreeni - Bug#5699923 - Added - Start
12471: -- DONOT request SuperTrump to generate streams
12497: p_contract_id => p_chr_id,
12498: p_line_id => l_line_rec.id,
12499: x_value => l_total_lending);
12500: --Bug 4738011 - End of Changes
12501: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
12502: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
12503: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
12504: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_ERROR);
12505: END IF;
12498: p_line_id => l_line_rec.id,
12499: x_value => l_total_lending);
12500: --Bug 4738011 - End of Changes
12501: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
12502: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
12503: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
12504: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_ERROR);
12505: END IF;
12506: l_csm_line_details_tbl(j).amount := l_total_lending;
12499: x_value => l_total_lending);
12500: --Bug 4738011 - End of Changes
12501: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
12502: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
12503: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
12504: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_ERROR);
12505: END IF;
12506: l_csm_line_details_tbl(j).amount := l_total_lending;
12507: --Modified by kthiruva on 2-Sep-2005 for Pricing Enhancements
12500: --Bug 4738011 - End of Changes
12501: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
12502: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
12503: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
12504: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_ERROR);
12505: END IF;
12506: l_csm_line_details_tbl(j).amount := l_total_lending;
12507: --Modified by kthiruva on 2-Sep-2005 for Pricing Enhancements
12508: --Bug 4576794 - Start of Changes
12562:
12563: FOR l_rl_rec in l_rl_csr ( l_rl_rec1.slh_id, 'LALEVL', 'LASLL', TO_NUMBER(p_chr_id), l_line_rec.id ) LOOP
12564: -- Start of Bug#2757289 modification
12565: IF (l_rl_rec.rule_information7 IS NOT NULL OR
12566: l_rl_rec.rule_information7 <> OKL_API.G_MISS_CHAR) AND
12567: (l_rl_rec.rule_information8 IS NOT NULL OR
12568: l_rl_rec.rule_information8 <> OKL_API.G_MISS_CHAR) THEN
12569: j := j + 1;
12570: idx := idx + 1;
12564: -- Start of Bug#2757289 modification
12565: IF (l_rl_rec.rule_information7 IS NOT NULL OR
12566: l_rl_rec.rule_information7 <> OKL_API.G_MISS_CHAR) AND
12567: (l_rl_rec.rule_information8 IS NOT NULL OR
12568: l_rl_rec.rule_information8 <> OKL_API.G_MISS_CHAR) THEN
12569: j := j + 1;
12570: idx := idx + 1;
12571: l_csm_line_details_tbl(j).level_index_number := idx;
12572: l_csm_line_details_tbl(j).amount := TO_NUMBER(l_rl_rec.rule_information8);
12609: END IF;
12610: -- Bug 4915938 - End of Changes
12611:
12612: ELSIF (l_rl_rec.rule_information7 IS NULL OR
12613: l_rl_rec.rule_information7 = OKL_API.G_MISS_CHAR) AND
12614: (l_rl_rec.rule_information8 IS NULL OR
12615: l_rl_rec.rule_information8 = OKL_API.G_MISS_CHAR) THEN
12616: j := j + 1;
12617: idx := idx + 1;
12611:
12612: ELSIF (l_rl_rec.rule_information7 IS NULL OR
12613: l_rl_rec.rule_information7 = OKL_API.G_MISS_CHAR) AND
12614: (l_rl_rec.rule_information8 IS NULL OR
12615: l_rl_rec.rule_information8 = OKL_API.G_MISS_CHAR) THEN
12616: j := j + 1;
12617: idx := idx + 1;
12618: l_csm_line_details_tbl(j).kle_loan_id := l_line_rec.id;
12619: l_csm_line_details_tbl(j).description := l_strm_name;
12713: end if;
12714: --srsreeni Bug6245602 end
12715: FOR l_rl_rec in l_rl_csr(l_rl_rec1.slh_id, 'LALEVL', 'LASLL', TO_NUMBER(p_chr_id), l_line_rec.id ) LOOP
12716: IF (l_rl_rec.rule_information7 IS NOT NULL OR
12717: l_rl_rec.rule_information7 <> OKL_API.G_MISS_CHAR) AND
12718: (l_rl_rec.rule_information8 IS NOT NULL OR
12719: l_rl_rec.rule_information8 <> OKL_API.G_MISS_CHAR) THEN
12720: k := k + 1;
12721: -- idx := idx + 1; bug6245602
12715: FOR l_rl_rec in l_rl_csr(l_rl_rec1.slh_id, 'LALEVL', 'LASLL', TO_NUMBER(p_chr_id), l_line_rec.id ) LOOP
12716: IF (l_rl_rec.rule_information7 IS NOT NULL OR
12717: l_rl_rec.rule_information7 <> OKL_API.G_MISS_CHAR) AND
12718: (l_rl_rec.rule_information8 IS NOT NULL OR
12719: l_rl_rec.rule_information8 <> OKL_API.G_MISS_CHAR) THEN
12720: k := k + 1;
12721: -- idx := idx + 1; bug6245602
12722: idx_exp := idx_exp + 1; -- bug6245602
12723: l_csm_periodic_expenses_tbl(k).level_index_number := idx_exp; -- bug6245602
12748: END IF;
12749: -- Bug 4915938 - End of Changes
12750:
12751: ELSIF (l_rl_rec.rule_information7 IS NULL OR
12752: l_rl_rec.rule_information7 = OKL_API.G_MISS_CHAR) AND
12753: (l_rl_rec.rule_information8 IS NULL OR
12754: l_rl_rec.rule_information8 = OKL_API.G_MISS_CHAR) THEN
12755: k := k + 1;
12756: -- idx := idx + 1; bug6245602
12750:
12751: ELSIF (l_rl_rec.rule_information7 IS NULL OR
12752: l_rl_rec.rule_information7 = OKL_API.G_MISS_CHAR) AND
12753: (l_rl_rec.rule_information8 IS NULL OR
12754: l_rl_rec.rule_information8 = OKL_API.G_MISS_CHAR) THEN
12755: k := k + 1;
12756: -- idx := idx + 1; bug6245602
12757: idx_exp := idx_exp + 1; -- bug6245602
12758: l_csm_periodic_expenses_tbl(k).level_index_number := idx_exp; -- bug6245602
12775: l_csm_periodic_expenses_tbl(k).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ARREARS;
12776: ELSE
12777: l_csm_periodic_expenses_tbl(k).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ADVANCE;
12778: END IF;
12779: IF(l_rl_rec.RULE_INFORMATION2 IS NULL or l_rl_rec.RULE_INFORMATION2 = OKL_API.G_MISS_CHAR) THEN
12780: l_csm_periodic_expenses_tbl(k).date_start := l_hdr_rec.start_date;
12781: ELSE
12782: l_csm_periodic_expenses_tbl(k).date_start := FND_DATE.canonical_to_date(l_rl_rec.RULE_INFORMATION2);
12783: END IF;
12782: l_csm_periodic_expenses_tbl(k).date_start := FND_DATE.canonical_to_date(l_rl_rec.RULE_INFORMATION2);
12783: END IF;
12784: END IF;
12785: END LOOP;
12786: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
12787: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
12788: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
12789: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_ERROR);
12790: END IF;
12783: END IF;
12784: END IF;
12785: END LOOP;
12786: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
12787: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
12788: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
12789: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_ERROR);
12790: END IF;
12791:
12784: END IF;
12785: END LOOP;
12786: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
12787: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
12788: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
12789: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_ERROR);
12790: END IF;
12791:
12792: -- Code for Estimated Property Tax Ends Here
12785: END LOOP;
12786: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
12787: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
12788: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
12789: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_ERROR);
12790: END IF;
12791:
12792: -- Code for Estimated Property Tax Ends Here
12793:
12801: -- code for use defined streams ends here
12802: FOR l_rl_rec in l_rl_csr (l_rl_rec1.slh_id, 'LALEVL', 'LASLL', TO_NUMBER(p_chr_id), l_line_rec.id ) LOOP
12803: -- Start of Bug#2757289 modification
12804: IF (l_rl_rec.rule_information7 IS NOT NULL OR
12805: l_rl_rec.rule_information7 <> OKL_API.G_MISS_CHAR) AND
12806: (l_rl_rec.rule_information8 IS NOT NULL OR
12807: l_rl_rec.rule_information8 <> OKL_API.G_MISS_CHAR) THEN
12808: k := k + 1;
12809: -- idx := idx + 1; bug6245602
12803: -- Start of Bug#2757289 modification
12804: IF (l_rl_rec.rule_information7 IS NOT NULL OR
12805: l_rl_rec.rule_information7 <> OKL_API.G_MISS_CHAR) AND
12806: (l_rl_rec.rule_information8 IS NOT NULL OR
12807: l_rl_rec.rule_information8 <> OKL_API.G_MISS_CHAR) THEN
12808: k := k + 1;
12809: -- idx := idx + 1; bug6245602
12810: idx_exp := idx_exp + 1; -- bug6245602
12811: l_csm_periodic_expenses_tbl(k).level_index_number := idx_exp;
12850: END IF;
12851: -- Bug 4915938 - End of Changes
12852:
12853: ELSIF (l_rl_rec.rule_information7 IS NULL OR
12854: l_rl_rec.rule_information7 = OKL_API.G_MISS_CHAR) AND
12855: (l_rl_rec.rule_information8 IS NULL OR
12856: l_rl_rec.rule_information8 = OKL_API.G_MISS_CHAR) THEN
12857: k := k + 1;
12858: -- idx := idx + 1; bug6245602
12852:
12853: ELSIF (l_rl_rec.rule_information7 IS NULL OR
12854: l_rl_rec.rule_information7 = OKL_API.G_MISS_CHAR) AND
12855: (l_rl_rec.rule_information8 IS NULL OR
12856: l_rl_rec.rule_information8 = OKL_API.G_MISS_CHAR) THEN
12857: k := k + 1;
12858: -- idx := idx + 1; bug6245602
12859: idx_exp := idx_exp + 1; -- bug6245602
12860: l_csm_periodic_expenses_tbl(k).level_index_number := idx_exp;
12873: l_csm_periodic_expenses_tbl(k).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ARREARS;
12874: ELSE
12875: l_csm_periodic_expenses_tbl(k).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ADVANCE;
12876: END IF;
12877: IF (l_rl_rec.RULE_INFORMATION2 IS NULL or l_rl_rec.RULE_INFORMATION2 = OKL_API.G_MISS_CHAR) THEN
12878: l_csm_periodic_expenses_tbl(k).date_start := l_hdr_rec.start_date;
12879: ELSE
12880: l_csm_periodic_expenses_tbl(k).date_start := FND_DATE.canonical_to_date(l_rl_rec.RULE_INFORMATION2);
12881: END IF;
12900: l := l + 1;
12901: l_csm_one_off_fee_tbl(l).description := l_strm_name_rec.name;
12902: l_csm_one_off_fee_tbl(l).income_or_expense := OKL_CREATE_STREAMS_PUB.G_INCOME;
12903: l_csm_one_off_fee_tbl(l).amount := FND_NUMBER.canonical_to_number(nvl(l_rl_rec.RULE_INFORMATION6,'0'));
12904: If(l_rl_rec.RULE_INFORMATION2 IS NULL or l_rl_rec.RULE_INFORMATION2 = OKL_API.G_MISS_CHAR) Then
12905: l_csm_one_off_fee_tbl(l).date_paid := l_hdr_rec.start_date;
12906: Else
12907: l_csm_one_off_fee_tbl(l).date_paid := FND_DATE.canonical_to_date(l_rl_rec.RULE_INFORMATION2);
12908: End If;
12910: END LOOP;
12911: END IF;
12912: END LOOP;
12913: END LOOP;
12914: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
12915: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
12916: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
12917: RAISE OKL_API.G_EXCEPTION_ERROR;
12918: End If;
12911: END IF;
12912: END LOOP;
12913: END LOOP;
12914: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
12915: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
12916: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
12917: RAISE OKL_API.G_EXCEPTION_ERROR;
12918: End If;
12919: -- Extract fee line
12912: END LOOP;
12913: END LOOP;
12914: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
12915: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
12916: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
12917: RAISE OKL_API.G_EXCEPTION_ERROR;
12918: End If;
12919: -- Extract fee line
12920: -- Added by kthiruva for Debugging
12913: END LOOP;
12914: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
12915: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
12916: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
12917: RAISE OKL_API.G_EXCEPTION_ERROR;
12918: End If;
12919: -- Extract fee line
12920: -- Added by kthiruva for Debugging
12921: write_to_log('Before the call to extract_fee_lines');
12931: px_csm_periodic_expenses_tbl => l_csm_periodic_expenses_tbl);
12932: --Added by kthiruva for Debugging
12933: write_to_log('After the call to extract_fee_lines, the return status is :'||x_return_status);
12934:
12935: If (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
12936: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
12937: ElSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
12938: raise OKL_API.G_EXCEPTION_ERROR;
12939: End If;
12932: --Added by kthiruva for Debugging
12933: write_to_log('After the call to extract_fee_lines, the return status is :'||x_return_status);
12934:
12935: If (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
12936: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
12937: ElSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
12938: raise OKL_API.G_EXCEPTION_ERROR;
12939: End If;
12940: extract_subsidized_lines(p_api_version => p_api_version,
12933: write_to_log('After the call to extract_fee_lines, the return status is :'||x_return_status);
12934:
12935: If (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
12936: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
12937: ElSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
12938: raise OKL_API.G_EXCEPTION_ERROR;
12939: End If;
12940: extract_subsidized_lines(p_api_version => p_api_version,
12941: p_init_msg_list => p_init_msg_list,
12934:
12935: If (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
12936: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
12937: ElSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
12938: raise OKL_API.G_EXCEPTION_ERROR;
12939: End If;
12940: extract_subsidized_lines(p_api_version => p_api_version,
12941: p_init_msg_list => p_init_msg_list,
12942: x_return_status => x_return_status,
12945: p_chr_id => TO_NUMBER(p_chr_id),
12946: px_csm_one_off_fee_tbl => l_csm_one_off_fee_tbl);
12947: --Added by kthiruva for Debugging
12948: write_to_log('After the call to extract_subsidized_lines, the return status is :'||x_return_status);
12949: If (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
12950: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
12951: ElSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
12952: raise OKL_API.G_EXCEPTION_ERROR;
12953: End If;
12946: px_csm_one_off_fee_tbl => l_csm_one_off_fee_tbl);
12947: --Added by kthiruva for Debugging
12948: write_to_log('After the call to extract_subsidized_lines, the return status is :'||x_return_status);
12949: If (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
12950: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
12951: ElSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
12952: raise OKL_API.G_EXCEPTION_ERROR;
12953: End If;
12954: check_for_mandatory_streams(
12947: --Added by kthiruva for Debugging
12948: write_to_log('After the call to extract_subsidized_lines, the return status is :'||x_return_status);
12949: If (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
12950: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
12951: ElSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
12952: raise OKL_API.G_EXCEPTION_ERROR;
12953: End If;
12954: check_for_mandatory_streams(
12955: p_api_version => p_api_version,
12948: write_to_log('After the call to extract_subsidized_lines, the return status is :'||x_return_status);
12949: If (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
12950: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
12951: ElSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
12952: raise OKL_API.G_EXCEPTION_ERROR;
12953: End If;
12954: check_for_mandatory_streams(
12955: p_api_version => p_api_version,
12956: p_init_msg_list => p_init_msg_list,
12963: x_stream_types_tbl => l_req_stream_types_tbl);
12964: --Added by kthiruva for Debugging
12965: write_to_log('After the call to check_for_mandatory_streams, the return status is :'||x_return_status);
12966:
12967: If (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
12968: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
12969: ElSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
12970: raise OKL_API.G_EXCEPTION_ERROR;
12971: End If;
12964: --Added by kthiruva for Debugging
12965: write_to_log('After the call to check_for_mandatory_streams, the return status is :'||x_return_status);
12966:
12967: If (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
12968: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
12969: ElSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
12970: raise OKL_API.G_EXCEPTION_ERROR;
12971: End If;
12972: -- Requesting for yields
12965: write_to_log('After the call to check_for_mandatory_streams, the return status is :'||x_return_status);
12966:
12967: If (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
12968: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
12969: ElSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
12970: raise OKL_API.G_EXCEPTION_ERROR;
12971: End If;
12972: -- Requesting for yields
12973: x_return_status := yield_request(x_csm_yields_tbl => l_csm_yields_tbl);
12966:
12967: If (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
12968: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
12969: ElSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
12970: raise OKL_API.G_EXCEPTION_ERROR;
12971: End If;
12972: -- Requesting for yields
12973: x_return_status := yield_request(x_csm_yields_tbl => l_csm_yields_tbl);
12974: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
12970: raise OKL_API.G_EXCEPTION_ERROR;
12971: End If;
12972: -- Requesting for yields
12973: x_return_status := yield_request(x_csm_yields_tbl => l_csm_yields_tbl);
12974: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
12975: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
12976: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
12977: RAISE OKL_API.G_EXCEPTION_ERROR;
12978: END IF;
12971: End If;
12972: -- Requesting for yields
12973: x_return_status := yield_request(x_csm_yields_tbl => l_csm_yields_tbl);
12974: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
12975: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
12976: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
12977: RAISE OKL_API.G_EXCEPTION_ERROR;
12978: END IF;
12979:
12972: -- Requesting for yields
12973: x_return_status := yield_request(x_csm_yields_tbl => l_csm_yields_tbl);
12974: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
12975: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
12976: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
12977: RAISE OKL_API.G_EXCEPTION_ERROR;
12978: END IF;
12979:
12980: If (x_return_status <> OKL_API.G_RET_STS_SUCCESS) then
12973: x_return_status := yield_request(x_csm_yields_tbl => l_csm_yields_tbl);
12974: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
12975: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
12976: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
12977: RAISE OKL_API.G_EXCEPTION_ERROR;
12978: END IF;
12979:
12980: If (x_return_status <> OKL_API.G_RET_STS_SUCCESS) then
12981: okl_api.set_message(
12976: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
12977: RAISE OKL_API.G_EXCEPTION_ERROR;
12978: END IF;
12979:
12980: If (x_return_status <> OKL_API.G_RET_STS_SUCCESS) then
12981: okl_api.set_message(
12982: p_app_name => G_APP_NAME,
12983: p_msg_name => 'OKL_LLA_REPSTRMS_EXTR_FAILED');
12984: raise OKL_API.G_EXCEPTION_ERROR;
12977: RAISE OKL_API.G_EXCEPTION_ERROR;
12978: END IF;
12979:
12980: If (x_return_status <> OKL_API.G_RET_STS_SUCCESS) then
12981: okl_api.set_message(
12982: p_app_name => G_APP_NAME,
12983: p_msg_name => 'OKL_LLA_REPSTRMS_EXTR_FAILED');
12984: raise OKL_API.G_EXCEPTION_ERROR;
12985: End If;
12980: If (x_return_status <> OKL_API.G_RET_STS_SUCCESS) then
12981: okl_api.set_message(
12982: p_app_name => G_APP_NAME,
12983: p_msg_name => 'OKL_LLA_REPSTRMS_EXTR_FAILED');
12984: raise OKL_API.G_EXCEPTION_ERROR;
12985: End If;
12986:
12987: x_csm_loan_header := l_csm_loan_header;
12988: x_csm_loan_lines_tbl := l_csm_loan_levels_tbl;
12990: x_csm_one_off_fee_tbl := l_csm_one_off_fee_tbl;
12991: x_csm_periodic_expenses_tbl := l_csm_periodic_expenses_tbl;
12992: x_csm_yields_tbl := l_csm_yields_tbl;
12993: x_csm_stream_types_tbl := l_req_stream_types_tbl;
12994: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
12995: x_msg_data => x_msg_data);
12996: EXCEPTION
12997: WHEN OKL_API.G_EXCEPTION_ERROR THEN
12998: IF l_hdr_csr%ISOPEN THEN
12993: x_csm_stream_types_tbl := l_req_stream_types_tbl;
12994: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
12995: x_msg_data => x_msg_data);
12996: EXCEPTION
12997: WHEN OKL_API.G_EXCEPTION_ERROR THEN
12998: IF l_hdr_csr%ISOPEN THEN
12999: CLOSE l_hdr_csr;
13000: END IF;
13001: IF ib_csr%ISOPEN THEN
13012: END IF;
13013: IF l_rl_csr%ISOPEN THEN
13014: CLOSE l_rl_csr;
13015: END IF;
13016: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
13017: l_api_name,
13018: G_PKG_NAME,
13019: 'OKL_API.G_RET_STS_ERROR',
13020: x_msg_count,
13015: END IF;
13016: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
13017: l_api_name,
13018: G_PKG_NAME,
13019: 'OKL_API.G_RET_STS_ERROR',
13020: x_msg_count,
13021: x_msg_data,
13022: '_PVT');
13023: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
13019: 'OKL_API.G_RET_STS_ERROR',
13020: x_msg_count,
13021: x_msg_data,
13022: '_PVT');
13023: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
13024: IF l_hdr_csr%ISOPEN THEN
13025: CLOSE l_hdr_csr;
13026: END IF;
13027: IF ib_csr%ISOPEN THEN
13038: END IF;
13039: IF l_rl_csr%ISOPEN THEN
13040: CLOSE l_rl_csr;
13041: END IF;
13042: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
13043: l_api_name,
13044: G_PKG_NAME,
13045: 'OKL_API.G_RET_STS_UNEXP_ERROR',
13046: x_msg_count,
13041: END IF;
13042: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
13043: l_api_name,
13044: G_PKG_NAME,
13045: 'OKL_API.G_RET_STS_UNEXP_ERROR',
13046: x_msg_count,
13047: x_msg_data,
13048: '_PVT');
13049: WHEN OTHERS then
13064: END IF;
13065: IF l_rl_csr%ISOPEN THEN
13066: CLOSE l_rl_csr;
13067: END IF;
13068: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
13069: l_api_name,
13070: G_PKG_NAME,
13071: 'OTHERS',
13072: x_msg_count,
13075: END extract_params_loan_deal;
13076: -- End modification 11i10 bakuchib
13077: PROCEDURE extract_params_loan_paydown(
13078: p_api_version IN NUMBER,
13079: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
13080: p_chr_id IN VARCHAR2,
13081: p_deal_type IN VARCHAR2,
13082: p_paydown_type IN VARCHAR2,
13083: p_paydown_date IN DATE,
13095: x_csm_stream_types_tbl OUT NOCOPY okl_create_streams_pub.csm_stream_types_tbl_type) AS
13096:
13097: l_api_name CONSTANT VARCHAR2(30) := 'EXTRACT_PARAMS_LOAN_PPD';
13098: l_api_version CONSTANT NUMBER := 1;
13099: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
13100: l_level_type NUMBER;
13101: l_strm_name VARCHAR2(200);
13102: i BINARY_INTEGER := 0;
13103: j BINARY_INTEGER := 0;
13296: RETURN null;
13297: END get_end_date;
13298:
13299: BEGIN
13300: x_return_status := OKL_API.G_RET_STS_SUCCESS;
13301: -- Call start_activity to create savepoint, check compatibility
13302: -- and initialize message list
13303: x_return_status := OKL_API.START_ACTIVITY (
13304: l_api_name
13299: BEGIN
13300: x_return_status := OKL_API.G_RET_STS_SUCCESS;
13301: -- Call start_activity to create savepoint, check compatibility
13302: -- and initialize message list
13303: x_return_status := OKL_API.START_ACTIVITY (
13304: l_api_name
13305: ,p_init_msg_list
13306: ,'_PVT'
13307: ,x_return_status);
13305: ,p_init_msg_list
13306: ,'_PVT'
13307: ,x_return_status);
13308: -- Check if activity started successfully
13309: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
13310: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
13311: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
13312: RAISE OKL_API.G_EXCEPTION_ERROR;
13313: END IF;
13306: ,'_PVT'
13307: ,x_return_status);
13308: -- Check if activity started successfully
13309: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
13310: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
13311: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
13312: RAISE OKL_API.G_EXCEPTION_ERROR;
13313: END IF;
13314:
13307: ,x_return_status);
13308: -- Check if activity started successfully
13309: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
13310: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
13311: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
13312: RAISE OKL_API.G_EXCEPTION_ERROR;
13313: END IF;
13314:
13315: OPEN l_hdr_pdt_csr(p_chr_id);
13308: -- Check if activity started successfully
13309: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
13310: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
13311: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
13312: RAISE OKL_API.G_EXCEPTION_ERROR;
13313: END IF;
13314:
13315: OPEN l_hdr_pdt_csr(p_chr_id);
13316: FETCH l_hdr_pdt_csr INTO l_pdt_id_rec;
13337: x_msg_count => x_msg_count,
13338: x_msg_data => x_msg_data,
13339: p_khr_id => p_chr_id,
13340: p_paym_tbl => l_pay_tbl);
13341: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
13342: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
13343: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
13344: RAISE OKL_API.G_EXCEPTION_ERROR;
13345: END IF;
13338: x_msg_data => x_msg_data,
13339: p_khr_id => p_chr_id,
13340: p_paym_tbl => l_pay_tbl);
13341: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
13342: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
13343: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
13344: RAISE OKL_API.G_EXCEPTION_ERROR;
13345: END IF;
13346: i := 0; j := 0; k := 0; l := 0; m := 0;
13339: p_khr_id => p_chr_id,
13340: p_paym_tbl => l_pay_tbl);
13341: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
13342: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
13343: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
13344: RAISE OKL_API.G_EXCEPTION_ERROR;
13345: END IF;
13346: i := 0; j := 0; k := 0; l := 0; m := 0;
13347: /*
13340: p_paym_tbl => l_pay_tbl);
13341: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
13342: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
13343: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
13344: RAISE OKL_API.G_EXCEPTION_ERROR;
13345: END IF;
13346: i := 0; j := 0; k := 0; l := 0; m := 0;
13347: /*
13348: OPEN l_hdr_pdt_csr(p_chr_id);
13352: -- Header infro
13353: OPEN l_hdr_csr(p_chr_id);
13354: FETCH l_hdr_csr into l_hdr_rec;
13355: IF l_hdr_csr%NOTFOUND THEN
13356: okl_api.set_message(p_app_name => G_APP_NAME,
13357: p_msg_name => G_LLA_NO_MATCHING_RECORD,
13358: p_token1 => G_COL_NAME_TOKEN,
13359: p_token1_value => 'Contract id');
13360: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
13356: okl_api.set_message(p_app_name => G_APP_NAME,
13357: p_msg_name => G_LLA_NO_MATCHING_RECORD,
13358: p_token1 => G_COL_NAME_TOKEN,
13359: p_token1_value => 'Contract id');
13360: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
13361: END IF;
13362: CLOSE l_hdr_csr;
13363: l_csm_loan_header.khr_id := p_chr_id;
13364: l_csm_loan_header.date_payments_commencement := l_hdr_rec.start_date;
13372: -- Fetching the location of the asset
13373: OPEN ib_csr(TO_NUMBER(p_chr_id));
13374: FETCH ib_csr into l_ib_rec;
13375: IF ib_csr%NOTFOUND THEN
13376: okl_api.set_message(p_app_name => G_APP_NAME,
13377: p_msg_name => G_LLA_NO_MATCHING_RECORD,
13378: p_token1 => G_COL_NAME_TOKEN,
13379: p_token1_value => 'Contract id');
13380: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
13376: okl_api.set_message(p_app_name => G_APP_NAME,
13377: p_msg_name => G_LLA_NO_MATCHING_RECORD,
13378: p_token1 => G_COL_NAME_TOKEN,
13379: p_token1_value => 'Contract id');
13380: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
13381: END IF;
13382: CLOSE ib_csr;
13383: l_csm_loan_header.country := l_ib_rec.country;
13384: --The orp code for the Principal Paydown process is used here.
13396: p_contract_id => p_chr_id,
13397: p_line_id => NULL,
13398: x_value => l_total_lending);
13399: --Bug 4738011 - End of Changes
13400: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
13401: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
13402: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
13403: RAISE OKL_API.G_EXCEPTION_ERROR;
13404: END IF;
13397: p_line_id => NULL,
13398: x_value => l_total_lending);
13399: --Bug 4738011 - End of Changes
13400: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
13401: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
13402: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
13403: RAISE OKL_API.G_EXCEPTION_ERROR;
13404: END IF;
13405: l_csm_loan_header.total_lending := l_total_lending;
13398: x_value => l_total_lending);
13399: --Bug 4738011 - End of Changes
13400: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
13401: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
13402: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
13403: RAISE OKL_API.G_EXCEPTION_ERROR;
13404: END IF;
13405: l_csm_loan_header.total_lending := l_total_lending;
13406: l_csm_loan_header.sif_mode := OKL_CREATE_STREAMS_PUB.G_MODE_LENDER;
13399: --Bug 4738011 - End of Changes
13400: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
13401: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
13402: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
13403: RAISE OKL_API.G_EXCEPTION_ERROR;
13404: END IF;
13405: l_csm_loan_header.total_lending := l_total_lending;
13406: l_csm_loan_header.sif_mode := OKL_CREATE_STREAMS_PUB.G_MODE_LENDER;
13407:
13439:
13440: OPEN strm_name_csr ( l_level_type );
13441: FETCH strm_name_csr into l_strm_name_rec;
13442: IF strm_name_csr%NOTFOUND THEN
13443: okl_api.set_message(p_app_name => G_APP_NAME,
13444: p_msg_name => G_LLA_NO_MATCHING_RECORD,
13445: p_token1 => G_COL_NAME_TOKEN,
13446: p_token1_value => 'Contract id');
13447: x_return_status := OKL_API.G_RET_STS_ERROR;
13443: okl_api.set_message(p_app_name => G_APP_NAME,
13444: p_msg_name => G_LLA_NO_MATCHING_RECORD,
13445: p_token1 => G_COL_NAME_TOKEN,
13446: p_token1_value => 'Contract id');
13447: x_return_status := OKL_API.G_RET_STS_ERROR;
13448: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_ERROR);
13449: END IF;
13450: CLOSE strm_name_csr;
13451:
13444: p_msg_name => G_LLA_NO_MATCHING_RECORD,
13445: p_token1 => G_COL_NAME_TOKEN,
13446: p_token1_value => 'Contract id');
13447: x_return_status := OKL_API.G_RET_STS_ERROR;
13448: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_ERROR);
13449: END IF;
13450: CLOSE strm_name_csr;
13451:
13452: --Bug 5146545 dpsingh start
13466: p_khr_id => p_chr_id,
13467: p_effective_date => p_paydown_date);
13468:
13469:
13470: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
13471: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
13472: ElSIF (l_return_status = OKL_API.G_RET_STS_ERROR) then
13473: raise OKL_API.G_EXCEPTION_ERROR;
13474: End If;
13467: p_effective_date => p_paydown_date);
13468:
13469:
13470: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
13471: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
13472: ElSIF (l_return_status = OKL_API.G_RET_STS_ERROR) then
13473: raise OKL_API.G_EXCEPTION_ERROR;
13474: End If;
13475: END IF;
13468:
13469:
13470: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
13471: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
13472: ElSIF (l_return_status = OKL_API.G_RET_STS_ERROR) then
13473: raise OKL_API.G_EXCEPTION_ERROR;
13474: End If;
13475: END IF;
13476: --Bug 5146545 dpsingh end
13469:
13470: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
13471: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
13472: ElSIF (l_return_status = OKL_API.G_RET_STS_ERROR) then
13473: raise OKL_API.G_EXCEPTION_ERROR;
13474: End If;
13475: END IF;
13476: --Bug 5146545 dpsingh end
13477: --l_strm_name := l_strm_name_rec.name;
13569: p_contract_id => p_chr_id,
13570: p_line_id => l_line_rec.id,
13571: x_value => l_total_lending);
13572: --Bug 4738011 - End of Changes
13573: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
13574: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
13575: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
13576: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_ERROR);
13577: END IF;
13570: p_line_id => l_line_rec.id,
13571: x_value => l_total_lending);
13572: --Bug 4738011 - End of Changes
13573: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
13574: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
13575: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
13576: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_ERROR);
13577: END IF;
13578: --Initialising l_ppd_count for every asset and deleting the existing l_ppd_Tbl
13571: x_value => l_total_lending);
13572: --Bug 4738011 - End of Changes
13573: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
13574: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
13575: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
13576: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_ERROR);
13577: END IF;
13578: --Initialising l_ppd_count for every asset and deleting the existing l_ppd_Tbl
13579: l_ppd_count := 0;
13572: --Bug 4738011 - End of Changes
13573: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
13574: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
13575: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
13576: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_ERROR);
13577: END IF;
13578: --Initialising l_ppd_count for every asset and deleting the existing l_ppd_Tbl
13579: l_ppd_count := 0;
13580: l_ppd_tbl.delete;
13582: --All previous PPDs defined on the contract are fetched and added to a PL/SQL table
13583: FOR get_prev_ppd_rec IN get_prev_ppd_csr('LALEVL', 'LASLH', TO_NUMBER(p_chr_id), l_line_rec.id) LOOP
13584: FOR l_rl_rec in l_rl_csr ( get_prev_ppd_rec.slh_id, 'LALEVL', 'LASLL', TO_NUMBER(p_chr_id), l_line_rec.id ) LOOP
13585: IF (l_rl_rec.rule_information7 IS NOT NULL OR
13586: l_rl_rec.rule_information7 <> OKL_API.G_MISS_CHAR) AND
13587: (l_rl_rec.rule_information8 IS NOT NULL OR
13588: l_rl_rec.rule_information8 <> OKL_API.G_MISS_CHAR) THEN
13589: l_ppd_tbl(l_ppd_count).paydown_date := FND_DATE.canonical_to_date(l_rl_rec.rule_information2);
13590: l_ppd_tbl(l_ppd_count).paydown_amount := FND_NUMBER.canonical_to_number(nvl(l_rl_rec.RULE_INFORMATION8,'0'));
13584: FOR l_rl_rec in l_rl_csr ( get_prev_ppd_rec.slh_id, 'LALEVL', 'LASLL', TO_NUMBER(p_chr_id), l_line_rec.id ) LOOP
13585: IF (l_rl_rec.rule_information7 IS NOT NULL OR
13586: l_rl_rec.rule_information7 <> OKL_API.G_MISS_CHAR) AND
13587: (l_rl_rec.rule_information8 IS NOT NULL OR
13588: l_rl_rec.rule_information8 <> OKL_API.G_MISS_CHAR) THEN
13589: l_ppd_tbl(l_ppd_count).paydown_date := FND_DATE.canonical_to_date(l_rl_rec.rule_information2);
13590: l_ppd_tbl(l_ppd_count).paydown_amount := FND_NUMBER.canonical_to_number(nvl(l_rl_rec.RULE_INFORMATION8,'0'));
13591: l_ppd_tbl(l_ppd_count).curr_paydown := 'N';
13592: l_ppd_count := l_ppd_count + 1;
13654: l_number_periods_completed := 0;
13655: l_number_periods_completed_cpy :=0;
13656: --If the payment is a stub
13657: IF (l_rl_rec.rule_information7 IS NOT NULL OR
13658: l_rl_rec.rule_information7 <> OKL_API.G_MISS_CHAR) AND
13659: (l_rl_rec.rule_information8 IS NOT NULL OR
13660: l_rl_rec.rule_information8 <> OKL_API.G_MISS_CHAR) THEN
13661:
13662: IF p_paydown_type = OKL_CREATE_STREAMS_PVT.G_PAYDOWN_TYPE_PPD THEN
13656: --If the payment is a stub
13657: IF (l_rl_rec.rule_information7 IS NOT NULL OR
13658: l_rl_rec.rule_information7 <> OKL_API.G_MISS_CHAR) AND
13659: (l_rl_rec.rule_information8 IS NOT NULL OR
13660: l_rl_rec.rule_information8 <> OKL_API.G_MISS_CHAR) THEN
13661:
13662: IF p_paydown_type = OKL_CREATE_STREAMS_PVT.G_PAYDOWN_TYPE_PPD THEN
13663: FOR k in l_ppd_tbl.FIRST..l_ppd_tbl.LAST LOOP
13664: --If the paydown date lies inside the stub's start and end date, create a stub for the paydown
13817: END IF;
13818: -- End of Bug#2757289 modification
13819: /*mansrini Handle PPD for non-stub payments here*/
13820: ELSIF (l_rl_rec.rule_information7 IS NULL OR
13821: l_rl_rec.rule_information7 = OKL_API.G_MISS_CHAR) AND
13822: (l_rl_rec.rule_information8 IS NULL OR
13823: l_rl_rec.rule_information8 = OKL_API.G_MISS_CHAR) THEN
13824:
13825: --When there is no PPD in the range of the periodic payment, the payment is retained as is
13819: /*mansrini Handle PPD for non-stub payments here*/
13820: ELSIF (l_rl_rec.rule_information7 IS NULL OR
13821: l_rl_rec.rule_information7 = OKL_API.G_MISS_CHAR) AND
13822: (l_rl_rec.rule_information8 IS NULL OR
13823: l_rl_rec.rule_information8 = OKL_API.G_MISS_CHAR) THEN
13824:
13825: --When there is no PPD in the range of the periodic payment, the payment is retained as is
13826: IF (l_ppd_tbl(l_ppd_tbl.FIRST).paydown_date < FND_DATE.canonical_to_date(l_rl_rec.rule_information2)
13827: OR l_ppd_tbl(l_ppd_tbl.FIRST).paydown_date > get_end_date(FND_DATE.canonical_to_date(l_rl_rec.rule_information2),l_rl_rec.OBJECT1_ID1,l_rl_rec.rule_information3))
14284: p_contract_id => p_chr_id,
14285: p_line_id => l_line_rec.id,
14286: x_value => l_total_lending);
14287: --Bug 4738011 - End of Changes
14288: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
14289: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
14290: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
14291: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_ERROR);
14292: END IF;
14285: p_line_id => l_line_rec.id,
14286: x_value => l_total_lending);
14287: --Bug 4738011 - End of Changes
14288: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
14289: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
14290: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
14291: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_ERROR);
14292: END IF;
14293: --Initialising l_ppd_count for every asset and deleting the existing l_ppd_Tbl
14286: x_value => l_total_lending);
14287: --Bug 4738011 - End of Changes
14288: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
14289: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
14290: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
14291: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_ERROR);
14292: END IF;
14293: --Initialising l_ppd_count for every asset and deleting the existing l_ppd_Tbl
14294: l_ppd_count := 0;
14287: --Bug 4738011 - End of Changes
14288: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
14289: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
14290: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
14291: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_ERROR);
14292: END IF;
14293: --Initialising l_ppd_count for every asset and deleting the existing l_ppd_Tbl
14294: l_ppd_count := 0;
14295: l_ppd_tbl.delete;
14297: --All previous PPDs defined on the contract are fetched and added to a PL/SQL table
14298: FOR get_prev_ppd_rec IN get_prev_ppd_csr('LALEVL', 'LASLH', TO_NUMBER(p_chr_id), l_line_rec.id) LOOP
14299: FOR l_rl_rec in l_rl_csr ( get_prev_ppd_rec.slh_id, 'LALEVL', 'LASLL', TO_NUMBER(p_chr_id), l_line_rec.id ) LOOP
14300: IF (l_rl_rec.rule_information7 IS NOT NULL OR
14301: l_rl_rec.rule_information7 <> OKL_API.G_MISS_CHAR) AND
14302: (l_rl_rec.rule_information8 IS NOT NULL OR
14303: l_rl_rec.rule_information8 <> OKL_API.G_MISS_CHAR) THEN
14304: l_ppd_tbl(l_ppd_count).paydown_date := FND_DATE.canonical_to_date(l_rl_rec.rule_information2);
14305: l_ppd_tbl(l_ppd_count).paydown_amount := FND_NUMBER.canonical_to_number(nvl(l_rl_rec.RULE_INFORMATION8,'0'));
14299: FOR l_rl_rec in l_rl_csr ( get_prev_ppd_rec.slh_id, 'LALEVL', 'LASLL', TO_NUMBER(p_chr_id), l_line_rec.id ) LOOP
14300: IF (l_rl_rec.rule_information7 IS NOT NULL OR
14301: l_rl_rec.rule_information7 <> OKL_API.G_MISS_CHAR) AND
14302: (l_rl_rec.rule_information8 IS NOT NULL OR
14303: l_rl_rec.rule_information8 <> OKL_API.G_MISS_CHAR) THEN
14304: l_ppd_tbl(l_ppd_count).paydown_date := FND_DATE.canonical_to_date(l_rl_rec.rule_information2);
14305: l_ppd_tbl(l_ppd_count).paydown_amount := FND_NUMBER.canonical_to_number(nvl(l_rl_rec.RULE_INFORMATION8,'0'));
14306: l_ppd_tbl(l_ppd_count).curr_paydown := 'N';
14307: l_ppd_count := l_ppd_count + 1;
14369: l_number_periods_completed := 0;
14370: l_number_periods_completed_cpy :=0;
14371: --If payment is a stub
14372: IF (l_rl_rec.rule_information7 IS NOT NULL OR
14373: l_rl_rec.rule_information7 <> OKL_API.G_MISS_CHAR) AND
14374: (l_rl_rec.rule_information8 IS NOT NULL OR
14375: l_rl_rec.rule_information8 <> OKL_API.G_MISS_CHAR) THEN
14376: IF p_paydown_type = OKL_CREATE_STREAMS_PVT.G_PAYDOWN_TYPE_PPD THEN
14377: FOR k in l_ppd_tbl.FIRST..l_ppd_tbl.LAST LOOP
14371: --If payment is a stub
14372: IF (l_rl_rec.rule_information7 IS NOT NULL OR
14373: l_rl_rec.rule_information7 <> OKL_API.G_MISS_CHAR) AND
14374: (l_rl_rec.rule_information8 IS NOT NULL OR
14375: l_rl_rec.rule_information8 <> OKL_API.G_MISS_CHAR) THEN
14376: IF p_paydown_type = OKL_CREATE_STREAMS_PVT.G_PAYDOWN_TYPE_PPD THEN
14377: FOR k in l_ppd_tbl.FIRST..l_ppd_tbl.LAST LOOP
14378: --If the paydown date lies inside the stub's start and end date, create a stub for the paydown
14379: --Modified by kthiruva on 13-Feb-2006
14530: END IF;
14531: -- End of Bug#2757289 modification
14532: /*mansrini Handle PPD for non-stub payments here*/
14533: ELSIF (l_rl_rec.rule_information7 IS NULL OR
14534: l_rl_rec.rule_information7 = OKL_API.G_MISS_CHAR) AND
14535: (l_rl_rec.rule_information8 IS NULL OR
14536: l_rl_rec.rule_information8 = OKL_API.G_MISS_CHAR) THEN
14537:
14538: --When there is no PPD in the range of the periodic payment, the payment is retained as is
14532: /*mansrini Handle PPD for non-stub payments here*/
14533: ELSIF (l_rl_rec.rule_information7 IS NULL OR
14534: l_rl_rec.rule_information7 = OKL_API.G_MISS_CHAR) AND
14535: (l_rl_rec.rule_information8 IS NULL OR
14536: l_rl_rec.rule_information8 = OKL_API.G_MISS_CHAR) THEN
14537:
14538: --When there is no PPD in the range of the periodic payment, the payment is retained as is
14539: IF (l_ppd_tbl(l_ppd_tbl.FIRST).paydown_date < FND_DATE.canonical_to_date(l_rl_rec.rule_information2)
14540: OR l_ppd_tbl(l_ppd_tbl.FIRST).paydown_date > get_end_date(FND_DATE.canonical_to_date(l_rl_rec.rule_information2),l_rl_rec.OBJECT1_ID1,l_rl_rec.rule_information3))
14919: -- code for use defined streams ends here
14920: FOR l_rl_rec in l_rl_csr (l_rl_rec1.slh_id, 'LALEVL', 'LASLL', TO_NUMBER(p_chr_id), l_line_rec.id ) LOOP
14921: -- Start of Bug#2757289 modification
14922: IF (l_rl_rec.rule_information7 IS NOT NULL OR
14923: l_rl_rec.rule_information7 <> OKL_API.G_MISS_CHAR) AND
14924: (l_rl_rec.rule_information8 IS NOT NULL OR
14925: l_rl_rec.rule_information8 <> OKL_API.G_MISS_CHAR) THEN
14926: k := k + 1;
14927: idx := idx + 1;
14921: -- Start of Bug#2757289 modification
14922: IF (l_rl_rec.rule_information7 IS NOT NULL OR
14923: l_rl_rec.rule_information7 <> OKL_API.G_MISS_CHAR) AND
14924: (l_rl_rec.rule_information8 IS NOT NULL OR
14925: l_rl_rec.rule_information8 <> OKL_API.G_MISS_CHAR) THEN
14926: k := k + 1;
14927: idx := idx + 1;
14928: l_csm_periodic_expenses_tbl(k).level_index_number := idx;
14929: l_csm_periodic_expenses_tbl(k).amount := TO_NUMBER(l_rl_rec.rule_information8);
14966: END IF;
14967: -- Bug 4915938 - End of Changes
14968:
14969: ELSIF (l_rl_rec.rule_information7 IS NULL OR
14970: l_rl_rec.rule_information7 = OKL_API.G_MISS_CHAR) AND
14971: (l_rl_rec.rule_information8 IS NULL OR
14972: l_rl_rec.rule_information8 = OKL_API.G_MISS_CHAR) THEN
14973: k := k + 1;
14974: idx := idx + 1;
14968:
14969: ELSIF (l_rl_rec.rule_information7 IS NULL OR
14970: l_rl_rec.rule_information7 = OKL_API.G_MISS_CHAR) AND
14971: (l_rl_rec.rule_information8 IS NULL OR
14972: l_rl_rec.rule_information8 = OKL_API.G_MISS_CHAR) THEN
14973: k := k + 1;
14974: idx := idx + 1;
14975: l_csm_periodic_expenses_tbl(k).level_index_number := idx;
14976: l_csm_periodic_expenses_tbl(k).description := l_strm_name;
14988: l_csm_periodic_expenses_tbl(k).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ARREARS;
14989: ELSE
14990: l_csm_periodic_expenses_tbl(k).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ADVANCE;
14991: END IF;
14992: IF (l_rl_rec.RULE_INFORMATION2 IS NULL or l_rl_rec.RULE_INFORMATION2 = OKL_API.G_MISS_CHAR) THEN
14993: l_csm_periodic_expenses_tbl(k).date_start := l_hdr_rec.start_date;
14994: ELSE
14995: l_csm_periodic_expenses_tbl(k).date_start := FND_DATE.canonical_to_date(l_rl_rec.RULE_INFORMATION2);
14996: END IF;
15015: l := l + 1;
15016: l_csm_one_off_fee_tbl(l).description := l_strm_name_rec.name;
15017: l_csm_one_off_fee_tbl(l).income_or_expense := OKL_CREATE_STREAMS_PUB.G_INCOME;
15018: l_csm_one_off_fee_tbl(l).amount := FND_NUMBER.canonical_to_number(nvl(l_rl_rec.RULE_INFORMATION6,'0'));
15019: If(l_rl_rec.RULE_INFORMATION2 IS NULL or l_rl_rec.RULE_INFORMATION2 = OKL_API.G_MISS_CHAR) Then
15020: l_csm_one_off_fee_tbl(l).date_paid := l_hdr_rec.start_date;
15021: Else
15022: l_csm_one_off_fee_tbl(l).date_paid := FND_DATE.canonical_to_date(l_rl_rec.RULE_INFORMATION2);
15023: End If;
15025: END LOOP;
15026: END IF;
15027: END LOOP;
15028: END LOOP;
15029: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15030: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15031: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15032: RAISE OKL_API.G_EXCEPTION_ERROR;
15033: End If;
15026: END IF;
15027: END LOOP;
15028: END LOOP;
15029: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15030: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15031: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15032: RAISE OKL_API.G_EXCEPTION_ERROR;
15033: End If;
15034: -- Extract fee line
15027: END LOOP;
15028: END LOOP;
15029: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15030: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15031: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15032: RAISE OKL_API.G_EXCEPTION_ERROR;
15033: End If;
15034: -- Extract fee line
15035: extract_fee_lines( p_api_version => p_api_version,
15028: END LOOP;
15029: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15030: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15031: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15032: RAISE OKL_API.G_EXCEPTION_ERROR;
15033: End If;
15034: -- Extract fee line
15035: extract_fee_lines( p_api_version => p_api_version,
15036: p_chr_id => TO_NUMBER(p_chr_id),
15041: x_return_status => x_return_status,
15042: px_csm_stream_types_tbl => l_csm_stream_types_tbl,
15043: px_csm_one_off_fee_tbl => l_csm_one_off_fee_tbl,
15044: px_csm_periodic_expenses_tbl => l_csm_periodic_expenses_tbl);
15045: If (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
15046: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15047: ElSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
15048: raise OKL_API.G_EXCEPTION_ERROR;
15049: End If;
15042: px_csm_stream_types_tbl => l_csm_stream_types_tbl,
15043: px_csm_one_off_fee_tbl => l_csm_one_off_fee_tbl,
15044: px_csm_periodic_expenses_tbl => l_csm_periodic_expenses_tbl);
15045: If (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
15046: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15047: ElSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
15048: raise OKL_API.G_EXCEPTION_ERROR;
15049: End If;
15050: extract_subsidized_lines(p_api_version => p_api_version,
15043: px_csm_one_off_fee_tbl => l_csm_one_off_fee_tbl,
15044: px_csm_periodic_expenses_tbl => l_csm_periodic_expenses_tbl);
15045: If (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
15046: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15047: ElSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
15048: raise OKL_API.G_EXCEPTION_ERROR;
15049: End If;
15050: extract_subsidized_lines(p_api_version => p_api_version,
15051: p_init_msg_list => p_init_msg_list,
15044: px_csm_periodic_expenses_tbl => l_csm_periodic_expenses_tbl);
15045: If (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
15046: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15047: ElSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
15048: raise OKL_API.G_EXCEPTION_ERROR;
15049: End If;
15050: extract_subsidized_lines(p_api_version => p_api_version,
15051: p_init_msg_list => p_init_msg_list,
15052: x_return_status => x_return_status,
15053: x_msg_count => x_msg_count,
15054: x_msg_data => x_msg_data,
15055: p_chr_id => TO_NUMBER(p_chr_id),
15056: px_csm_one_off_fee_tbl => l_csm_one_off_fee_tbl);
15057: If (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
15058: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15059: ElSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
15060: raise OKL_API.G_EXCEPTION_ERROR;
15061: End If;
15054: x_msg_data => x_msg_data,
15055: p_chr_id => TO_NUMBER(p_chr_id),
15056: px_csm_one_off_fee_tbl => l_csm_one_off_fee_tbl);
15057: If (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
15058: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15059: ElSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
15060: raise OKL_API.G_EXCEPTION_ERROR;
15061: End If;
15062: check_for_mandatory_streams(
15055: p_chr_id => TO_NUMBER(p_chr_id),
15056: px_csm_one_off_fee_tbl => l_csm_one_off_fee_tbl);
15057: If (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
15058: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15059: ElSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
15060: raise OKL_API.G_EXCEPTION_ERROR;
15061: End If;
15062: check_for_mandatory_streams(
15063: p_api_version => p_api_version,
15056: px_csm_one_off_fee_tbl => l_csm_one_off_fee_tbl);
15057: If (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
15058: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15059: ElSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
15060: raise OKL_API.G_EXCEPTION_ERROR;
15061: End If;
15062: check_for_mandatory_streams(
15063: p_api_version => p_api_version,
15064: p_init_msg_list => p_init_msg_list,
15068: p_chr_id => p_chr_id,
15069: p_deal_type => l_deal_type,
15070: p_stream_types_tbl => l_csm_stream_types_tbl,
15071: x_stream_types_tbl => l_req_stream_types_tbl);
15072: If (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
15073: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15074: ElSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
15075: raise OKL_API.G_EXCEPTION_ERROR;
15076: End If;
15069: p_deal_type => l_deal_type,
15070: p_stream_types_tbl => l_csm_stream_types_tbl,
15071: x_stream_types_tbl => l_req_stream_types_tbl);
15072: If (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
15073: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15074: ElSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
15075: raise OKL_API.G_EXCEPTION_ERROR;
15076: End If;
15077: -- Requesting for yields
15070: p_stream_types_tbl => l_csm_stream_types_tbl,
15071: x_stream_types_tbl => l_req_stream_types_tbl);
15072: If (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
15073: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15074: ElSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
15075: raise OKL_API.G_EXCEPTION_ERROR;
15076: End If;
15077: -- Requesting for yields
15078: x_return_status := yield_request(x_csm_yields_tbl => l_csm_yields_tbl);
15071: x_stream_types_tbl => l_req_stream_types_tbl);
15072: If (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
15073: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15074: ElSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
15075: raise OKL_API.G_EXCEPTION_ERROR;
15076: End If;
15077: -- Requesting for yields
15078: x_return_status := yield_request(x_csm_yields_tbl => l_csm_yields_tbl);
15079: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15075: raise OKL_API.G_EXCEPTION_ERROR;
15076: End If;
15077: -- Requesting for yields
15078: x_return_status := yield_request(x_csm_yields_tbl => l_csm_yields_tbl);
15079: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15080: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15081: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15082: RAISE OKL_API.G_EXCEPTION_ERROR;
15083: END IF;
15076: End If;
15077: -- Requesting for yields
15078: x_return_status := yield_request(x_csm_yields_tbl => l_csm_yields_tbl);
15079: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15080: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15081: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15082: RAISE OKL_API.G_EXCEPTION_ERROR;
15083: END IF;
15084:
15077: -- Requesting for yields
15078: x_return_status := yield_request(x_csm_yields_tbl => l_csm_yields_tbl);
15079: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15080: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15081: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15082: RAISE OKL_API.G_EXCEPTION_ERROR;
15083: END IF;
15084:
15085: If (x_return_status <> OKL_API.G_RET_STS_SUCCESS) then
15078: x_return_status := yield_request(x_csm_yields_tbl => l_csm_yields_tbl);
15079: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15080: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15081: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15082: RAISE OKL_API.G_EXCEPTION_ERROR;
15083: END IF;
15084:
15085: If (x_return_status <> OKL_API.G_RET_STS_SUCCESS) then
15086: okl_api.set_message(
15081: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15082: RAISE OKL_API.G_EXCEPTION_ERROR;
15083: END IF;
15084:
15085: If (x_return_status <> OKL_API.G_RET_STS_SUCCESS) then
15086: okl_api.set_message(
15087: p_app_name => G_APP_NAME,
15088: p_msg_name => 'OKL_LLA_REPSTRMS_EXTR_FAILED');
15089: raise OKL_API.G_EXCEPTION_ERROR;
15082: RAISE OKL_API.G_EXCEPTION_ERROR;
15083: END IF;
15084:
15085: If (x_return_status <> OKL_API.G_RET_STS_SUCCESS) then
15086: okl_api.set_message(
15087: p_app_name => G_APP_NAME,
15088: p_msg_name => 'OKL_LLA_REPSTRMS_EXTR_FAILED');
15089: raise OKL_API.G_EXCEPTION_ERROR;
15090: End If;
15085: If (x_return_status <> OKL_API.G_RET_STS_SUCCESS) then
15086: okl_api.set_message(
15087: p_app_name => G_APP_NAME,
15088: p_msg_name => 'OKL_LLA_REPSTRMS_EXTR_FAILED');
15089: raise OKL_API.G_EXCEPTION_ERROR;
15090: End If;
15091:
15092: x_csm_loan_header := l_csm_loan_header;
15093: x_csm_loan_lines_tbl := l_csm_loan_levels_tbl;
15095: x_csm_one_off_fee_tbl := l_csm_one_off_fee_tbl;
15096: x_csm_periodic_expenses_tbl := l_csm_periodic_expenses_tbl;
15097: x_csm_yields_tbl := l_csm_yields_tbl;
15098: x_csm_stream_types_tbl := l_req_stream_types_tbl;
15099: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
15100: x_msg_data => x_msg_data);
15101: EXCEPTION
15102: WHEN OKL_API.G_EXCEPTION_ERROR THEN
15103: IF l_hdr_csr%ISOPEN THEN
15098: x_csm_stream_types_tbl := l_req_stream_types_tbl;
15099: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
15100: x_msg_data => x_msg_data);
15101: EXCEPTION
15102: WHEN OKL_API.G_EXCEPTION_ERROR THEN
15103: IF l_hdr_csr%ISOPEN THEN
15104: CLOSE l_hdr_csr;
15105: END IF;
15106: IF ib_csr%ISOPEN THEN
15117: END IF;
15118: IF l_rl_csr%ISOPEN THEN
15119: CLOSE l_rl_csr;
15120: END IF;
15121: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
15122: l_api_name,
15123: G_PKG_NAME,
15124: 'OKL_API.G_RET_STS_ERROR',
15125: x_msg_count,
15120: END IF;
15121: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
15122: l_api_name,
15123: G_PKG_NAME,
15124: 'OKL_API.G_RET_STS_ERROR',
15125: x_msg_count,
15126: x_msg_data,
15127: '_PVT');
15128: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
15124: 'OKL_API.G_RET_STS_ERROR',
15125: x_msg_count,
15126: x_msg_data,
15127: '_PVT');
15128: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
15129: IF l_hdr_csr%ISOPEN THEN
15130: CLOSE l_hdr_csr;
15131: END IF;
15132: IF ib_csr%ISOPEN THEN
15143: END IF;
15144: IF l_rl_csr%ISOPEN THEN
15145: CLOSE l_rl_csr;
15146: END IF;
15147: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
15148: l_api_name,
15149: G_PKG_NAME,
15150: 'OKL_API.G_RET_STS_UNEXP_ERROR',
15151: x_msg_count,
15146: END IF;
15147: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
15148: l_api_name,
15149: G_PKG_NAME,
15150: 'OKL_API.G_RET_STS_UNEXP_ERROR',
15151: x_msg_count,
15152: x_msg_data,
15153: '_PVT');
15154: WHEN OTHERS then
15169: END IF;
15170: IF l_rl_csr%ISOPEN THEN
15171: CLOSE l_rl_csr;
15172: END IF;
15173: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
15174: l_api_name,
15175: G_PKG_NAME,
15176: 'OTHERS',
15177: x_msg_count,
15180: END extract_params_loan_paydown;
15181:
15182: PROCEDURE extract_params_ppd_rebook(
15183: p_api_version IN NUMBER,
15184: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
15185: p_chr_id IN VARCHAR2,
15186: x_return_status OUT NOCOPY VARCHAR2,
15187: x_msg_count OUT NOCOPY NUMBER,
15188: x_msg_data OUT NOCOPY VARCHAR2,
15195: x_csm_stream_types_tbl OUT NOCOPY okl_create_streams_pub.csm_stream_types_tbl_type) AS
15196:
15197: l_api_name CONSTANT VARCHAR2(30) := 'EXTRACT_PARAMS_PPD_REBOOK';
15198: l_api_version CONSTANT NUMBER := 1;
15199: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
15200: l_level_type NUMBER;
15201: l_strm_name VARCHAR2(200);
15202: i BINARY_INTEGER := 0;
15203: j BINARY_INTEGER := 0;
15382: RETURN null;
15383: END get_end_date;
15384:
15385: BEGIN
15386: x_return_status := OKL_API.G_RET_STS_SUCCESS;
15387: -- Call start_activity to create savepoint, check compatibility
15388: -- and initialize message list
15389: x_return_status := OKL_API.START_ACTIVITY (
15390: l_api_name
15385: BEGIN
15386: x_return_status := OKL_API.G_RET_STS_SUCCESS;
15387: -- Call start_activity to create savepoint, check compatibility
15388: -- and initialize message list
15389: x_return_status := OKL_API.START_ACTIVITY (
15390: l_api_name
15391: ,p_init_msg_list
15392: ,'_PVT'
15393: ,x_return_status);
15391: ,p_init_msg_list
15392: ,'_PVT'
15393: ,x_return_status);
15394: -- Check if activity started successfully
15395: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15396: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15397: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15398: RAISE OKL_API.G_EXCEPTION_ERROR;
15399: END IF;
15392: ,'_PVT'
15393: ,x_return_status);
15394: -- Check if activity started successfully
15395: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15396: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15397: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15398: RAISE OKL_API.G_EXCEPTION_ERROR;
15399: END IF;
15400:
15393: ,x_return_status);
15394: -- Check if activity started successfully
15395: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15396: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15397: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15398: RAISE OKL_API.G_EXCEPTION_ERROR;
15399: END IF;
15400:
15401: OPEN l_hdr_pdt_csr(p_chr_id);
15394: -- Check if activity started successfully
15395: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15396: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15397: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15398: RAISE OKL_API.G_EXCEPTION_ERROR;
15399: END IF;
15400:
15401: OPEN l_hdr_pdt_csr(p_chr_id);
15402: FETCH l_hdr_pdt_csr INTO l_pdt_id_rec;
15423: x_msg_count => x_msg_count,
15424: x_msg_data => x_msg_data,
15425: p_khr_id => p_chr_id,
15426: p_paym_tbl => l_pay_tbl);
15427: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15428: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15429: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15430: RAISE OKL_API.G_EXCEPTION_ERROR;
15431: END IF;
15424: x_msg_data => x_msg_data,
15425: p_khr_id => p_chr_id,
15426: p_paym_tbl => l_pay_tbl);
15427: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15428: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15429: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15430: RAISE OKL_API.G_EXCEPTION_ERROR;
15431: END IF;
15432: i := 0; j := 0; k := 0; l := 0; m := 0;
15425: p_khr_id => p_chr_id,
15426: p_paym_tbl => l_pay_tbl);
15427: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15428: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15429: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15430: RAISE OKL_API.G_EXCEPTION_ERROR;
15431: END IF;
15432: i := 0; j := 0; k := 0; l := 0; m := 0;
15433: /*
15426: p_paym_tbl => l_pay_tbl);
15427: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15428: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15429: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15430: RAISE OKL_API.G_EXCEPTION_ERROR;
15431: END IF;
15432: i := 0; j := 0; k := 0; l := 0; m := 0;
15433: /*
15434: OPEN l_hdr_pdt_csr(p_chr_id);
15438: -- Header infro
15439: OPEN l_hdr_csr(p_chr_id);
15440: FETCH l_hdr_csr into l_hdr_rec;
15441: IF l_hdr_csr%NOTFOUND THEN
15442: okl_api.set_message(p_app_name => G_APP_NAME,
15443: p_msg_name => G_LLA_NO_MATCHING_RECORD,
15444: p_token1 => G_COL_NAME_TOKEN,
15445: p_token1_value => 'Contract id');
15446: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15442: okl_api.set_message(p_app_name => G_APP_NAME,
15443: p_msg_name => G_LLA_NO_MATCHING_RECORD,
15444: p_token1 => G_COL_NAME_TOKEN,
15445: p_token1_value => 'Contract id');
15446: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15447: END IF;
15448: CLOSE l_hdr_csr;
15449: l_csm_loan_header.khr_id := p_chr_id;
15450: l_csm_loan_header.date_payments_commencement := l_hdr_rec.start_date;
15454: -- Fetching the location of the asset
15455: OPEN ib_csr(TO_NUMBER(p_chr_id));
15456: FETCH ib_csr into l_ib_rec;
15457: IF ib_csr%NOTFOUND THEN
15458: okl_api.set_message(p_app_name => G_APP_NAME,
15459: p_msg_name => G_LLA_NO_MATCHING_RECORD,
15460: p_token1 => G_COL_NAME_TOKEN,
15461: p_token1_value => 'Contract id');
15462: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15458: okl_api.set_message(p_app_name => G_APP_NAME,
15459: p_msg_name => G_LLA_NO_MATCHING_RECORD,
15460: p_token1 => G_COL_NAME_TOKEN,
15461: p_token1_value => 'Contract id');
15462: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15463: END IF;
15464: CLOSE ib_csr;
15465: l_csm_loan_header.country := l_ib_rec.country;
15466: --The orp code for the Principal Paydown process is used here.
15478: p_contract_id => p_chr_id,
15479: p_line_id => NULL,
15480: x_value => l_total_lending);
15481: --Bug 4738011 - End of Changes
15482: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15483: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15484: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15485: RAISE OKL_API.G_EXCEPTION_ERROR;
15486: END IF;
15479: p_line_id => NULL,
15480: x_value => l_total_lending);
15481: --Bug 4738011 - End of Changes
15482: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15483: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15484: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15485: RAISE OKL_API.G_EXCEPTION_ERROR;
15486: END IF;
15487: l_csm_loan_header.total_lending := l_total_lending;
15480: x_value => l_total_lending);
15481: --Bug 4738011 - End of Changes
15482: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15483: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15484: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15485: RAISE OKL_API.G_EXCEPTION_ERROR;
15486: END IF;
15487: l_csm_loan_header.total_lending := l_total_lending;
15488: l_csm_loan_header.sif_mode := OKL_CREATE_STREAMS_PUB.G_MODE_LENDER;
15481: --Bug 4738011 - End of Changes
15482: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15483: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15484: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15485: RAISE OKL_API.G_EXCEPTION_ERROR;
15486: END IF;
15487: l_csm_loan_header.total_lending := l_total_lending;
15488: l_csm_loan_header.sif_mode := OKL_CREATE_STREAMS_PUB.G_MODE_LENDER;
15489:
15520:
15521: OPEN strm_name_csr ( l_level_type );
15522: FETCH strm_name_csr into l_strm_name_rec;
15523: IF strm_name_csr%NOTFOUND THEN
15524: okl_api.set_message(p_app_name => G_APP_NAME,
15525: p_msg_name => G_LLA_NO_MATCHING_RECORD,
15526: p_token1 => G_COL_NAME_TOKEN,
15527: p_token1_value => 'Contract id');
15528: x_return_status := OKL_API.G_RET_STS_ERROR;
15524: okl_api.set_message(p_app_name => G_APP_NAME,
15525: p_msg_name => G_LLA_NO_MATCHING_RECORD,
15526: p_token1 => G_COL_NAME_TOKEN,
15527: p_token1_value => 'Contract id');
15528: x_return_status := OKL_API.G_RET_STS_ERROR;
15529: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_ERROR);
15530: END IF;
15531: CLOSE strm_name_csr;
15532:
15525: p_msg_name => G_LLA_NO_MATCHING_RECORD,
15526: p_token1 => G_COL_NAME_TOKEN,
15527: p_token1_value => 'Contract id');
15528: x_return_status := OKL_API.G_RET_STS_ERROR;
15529: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_ERROR);
15530: END IF;
15531: CLOSE strm_name_csr;
15532:
15533: --l_strm_name := l_strm_name_rec.name;
15626: p_contract_id => p_chr_id,
15627: p_line_id => l_line_rec.id,
15628: x_value => l_total_lending);
15629: --Bug 4738011 - End of Changes
15630: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15631: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
15632: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15633: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_ERROR);
15634: END IF;
15627: p_line_id => l_line_rec.id,
15628: x_value => l_total_lending);
15629: --Bug 4738011 - End of Changes
15630: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15631: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
15632: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15633: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_ERROR);
15634: END IF;
15635: --Initialising l_ppd_count for every asset and deleting the existing l_ppd_Tbl
15628: x_value => l_total_lending);
15629: --Bug 4738011 - End of Changes
15630: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15631: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
15632: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15633: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_ERROR);
15634: END IF;
15635: --Initialising l_ppd_count for every asset and deleting the existing l_ppd_Tbl
15636: l_ppd_count := 0;
15629: --Bug 4738011 - End of Changes
15630: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15631: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
15632: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15633: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_ERROR);
15634: END IF;
15635: --Initialising l_ppd_count for every asset and deleting the existing l_ppd_Tbl
15636: l_ppd_count := 0;
15637: l_ppd_tbl.delete;
15639: --All previous PPDs defined on the contract are fetched and added to a PL/SQL table
15640: FOR get_prev_ppd_rec IN get_prev_ppd_csr('LALEVL', 'LASLH', TO_NUMBER(p_chr_id), l_line_rec.id) LOOP
15641: FOR l_rl_rec in l_rl_csr ( get_prev_ppd_rec.slh_id, 'LALEVL', 'LASLL', TO_NUMBER(p_chr_id), l_line_rec.id ) LOOP
15642: IF (l_rl_rec.rule_information7 IS NOT NULL OR
15643: l_rl_rec.rule_information7 <> OKL_API.G_MISS_CHAR) AND
15644: (l_rl_rec.rule_information8 IS NOT NULL OR
15645: l_rl_rec.rule_information8 <> OKL_API.G_MISS_CHAR) THEN
15646: l_ppd_tbl(l_ppd_count).paydown_date := FND_DATE.canonical_to_date(l_rl_rec.rule_information2);
15647: l_ppd_tbl(l_ppd_count).paydown_amount := FND_NUMBER.canonical_to_number(nvl(l_rl_rec.RULE_INFORMATION8,'0'));
15641: FOR l_rl_rec in l_rl_csr ( get_prev_ppd_rec.slh_id, 'LALEVL', 'LASLL', TO_NUMBER(p_chr_id), l_line_rec.id ) LOOP
15642: IF (l_rl_rec.rule_information7 IS NOT NULL OR
15643: l_rl_rec.rule_information7 <> OKL_API.G_MISS_CHAR) AND
15644: (l_rl_rec.rule_information8 IS NOT NULL OR
15645: l_rl_rec.rule_information8 <> OKL_API.G_MISS_CHAR) THEN
15646: l_ppd_tbl(l_ppd_count).paydown_date := FND_DATE.canonical_to_date(l_rl_rec.rule_information2);
15647: l_ppd_tbl(l_ppd_count).paydown_amount := FND_NUMBER.canonical_to_number(nvl(l_rl_rec.RULE_INFORMATION8,'0'));
15648: l_ppd_tbl(l_ppd_count).curr_paydown := 'N';
15649: l_ppd_count := l_ppd_count + 1;
15704: l_number_periods_completed := 0;
15705: l_number_periods_completed_cpy :=0;
15706: --If the payment is a stub
15707: IF (l_rl_rec.rule_information7 IS NOT NULL OR
15708: l_rl_rec.rule_information7 <> OKL_API.G_MISS_CHAR) AND
15709: (l_rl_rec.rule_information8 IS NOT NULL OR
15710: l_rl_rec.rule_information8 <> OKL_API.G_MISS_CHAR) THEN
15711:
15712: FOR k in l_ppd_tbl.FIRST..l_ppd_tbl.LAST LOOP
15706: --If the payment is a stub
15707: IF (l_rl_rec.rule_information7 IS NOT NULL OR
15708: l_rl_rec.rule_information7 <> OKL_API.G_MISS_CHAR) AND
15709: (l_rl_rec.rule_information8 IS NOT NULL OR
15710: l_rl_rec.rule_information8 <> OKL_API.G_MISS_CHAR) THEN
15711:
15712: FOR k in l_ppd_tbl.FIRST..l_ppd_tbl.LAST LOOP
15713: --If the paydown date lies inside the stub's start and end date, create a stub for the paydown
15714: --Modified by kthiruva on 13-Feb-2006
15854: --Bug 4964710 - End of Changes
15855: -- End of Bug#2757289 modification
15856: /*mansrini Handle PPD for non-stub payments here*/
15857: ELSIF (l_rl_rec.rule_information7 IS NULL OR
15858: l_rl_rec.rule_information7 = OKL_API.G_MISS_CHAR) AND
15859: (l_rl_rec.rule_information8 IS NULL OR
15860: l_rl_rec.rule_information8 = OKL_API.G_MISS_CHAR) THEN
15861:
15862: --When there is no PPD in the range of the periodic payment, the payment is retained as is
15856: /*mansrini Handle PPD for non-stub payments here*/
15857: ELSIF (l_rl_rec.rule_information7 IS NULL OR
15858: l_rl_rec.rule_information7 = OKL_API.G_MISS_CHAR) AND
15859: (l_rl_rec.rule_information8 IS NULL OR
15860: l_rl_rec.rule_information8 = OKL_API.G_MISS_CHAR) THEN
15861:
15862: --When there is no PPD in the range of the periodic payment, the payment is retained as is
15863: IF (l_ppd_tbl(l_ppd_tbl.FIRST).paydown_date < FND_DATE.canonical_to_date(l_rl_rec.rule_information2)
15864: OR l_ppd_tbl(l_ppd_tbl.FIRST).paydown_date > get_end_date(FND_DATE.canonical_to_date(l_rl_rec.rule_information2),l_rl_rec.OBJECT1_ID1,l_rl_rec.rule_information3))
16282: OPEN get_base_rate_csr(p_chr_id => p_chr_id,
16283: p_date => l_hdr_rec.start_date);
16284: FETCH get_base_rate_csr INTO l_base_rate;
16285: IF get_base_rate_csr%NOTFOUND THEN
16286: Okl_Api.SET_MESSAGE(p_app_name => g_app_name,
16287: p_msg_name => 'OKL_LLAP_BASE_RATE_NOT_DEF');
16288: RAISE Okl_Api.G_EXCEPTION_ERROR;
16289: END IF;
16290: CLOSE get_base_rate_csr;
16284: FETCH get_base_rate_csr INTO l_base_rate;
16285: IF get_base_rate_csr%NOTFOUND THEN
16286: Okl_Api.SET_MESSAGE(p_app_name => g_app_name,
16287: p_msg_name => 'OKL_LLAP_BASE_RATE_NOT_DEF');
16288: RAISE Okl_Api.G_EXCEPTION_ERROR;
16289: END IF;
16290: CLOSE get_base_rate_csr;
16291:
16292: j := j + 1;
16305: p_contract_id => p_chr_id,
16306: p_line_id => l_line_rec.id,
16307: x_value => l_total_lending);
16308: --Bug 4738011 - End of Changes
16309: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
16310: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
16311: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
16312: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_ERROR);
16313: END IF;
16306: p_line_id => l_line_rec.id,
16307: x_value => l_total_lending);
16308: --Bug 4738011 - End of Changes
16309: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
16310: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
16311: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
16312: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_ERROR);
16313: END IF;
16314: --Initialising l_ppd_count for every asset and deleting the existing l_ppd_Tbl
16307: x_value => l_total_lending);
16308: --Bug 4738011 - End of Changes
16309: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
16310: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
16311: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
16312: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_ERROR);
16313: END IF;
16314: --Initialising l_ppd_count for every asset and deleting the existing l_ppd_Tbl
16315: l_ppd_count := 0;
16308: --Bug 4738011 - End of Changes
16309: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
16310: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
16311: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
16312: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_ERROR);
16313: END IF;
16314: --Initialising l_ppd_count for every asset and deleting the existing l_ppd_Tbl
16315: l_ppd_count := 0;
16316: l_ppd_tbl.delete;
16318: --All previous PPDs defined on the contract are fetched and added to a PL/SQL table
16319: FOR get_prev_ppd_rec IN get_prev_ppd_csr('LALEVL', 'LASLH', TO_NUMBER(p_chr_id), l_line_rec.id) LOOP
16320: FOR l_rl_rec in l_rl_csr ( get_prev_ppd_rec.slh_id, 'LALEVL', 'LASLL', TO_NUMBER(p_chr_id), l_line_rec.id ) LOOP
16321: IF (l_rl_rec.rule_information7 IS NOT NULL OR
16322: l_rl_rec.rule_information7 <> OKL_API.G_MISS_CHAR) AND
16323: (l_rl_rec.rule_information8 IS NOT NULL OR
16324: l_rl_rec.rule_information8 <> OKL_API.G_MISS_CHAR) THEN
16325: l_ppd_tbl(l_ppd_count).paydown_date := FND_DATE.canonical_to_date(l_rl_rec.rule_information2);
16326: l_ppd_tbl(l_ppd_count).paydown_amount := FND_NUMBER.canonical_to_number(nvl(l_rl_rec.RULE_INFORMATION8,'0'));
16320: FOR l_rl_rec in l_rl_csr ( get_prev_ppd_rec.slh_id, 'LALEVL', 'LASLL', TO_NUMBER(p_chr_id), l_line_rec.id ) LOOP
16321: IF (l_rl_rec.rule_information7 IS NOT NULL OR
16322: l_rl_rec.rule_information7 <> OKL_API.G_MISS_CHAR) AND
16323: (l_rl_rec.rule_information8 IS NOT NULL OR
16324: l_rl_rec.rule_information8 <> OKL_API.G_MISS_CHAR) THEN
16325: l_ppd_tbl(l_ppd_count).paydown_date := FND_DATE.canonical_to_date(l_rl_rec.rule_information2);
16326: l_ppd_tbl(l_ppd_count).paydown_amount := FND_NUMBER.canonical_to_number(nvl(l_rl_rec.RULE_INFORMATION8,'0'));
16327: l_ppd_tbl(l_ppd_count).curr_paydown := 'N';
16328: l_ppd_count := l_ppd_count + 1;
16383: l_number_periods_completed := 0;
16384: l_number_periods_completed_cpy :=0;
16385: --If payment is a stub
16386: IF (l_rl_rec.rule_information7 IS NOT NULL OR
16387: l_rl_rec.rule_information7 <> OKL_API.G_MISS_CHAR) AND
16388: (l_rl_rec.rule_information8 IS NOT NULL OR
16389: l_rl_rec.rule_information8 <> OKL_API.G_MISS_CHAR) THEN
16390: FOR k in l_ppd_tbl.FIRST..l_ppd_tbl.LAST LOOP
16391: --If the paydown date lies inside the stub's start and end date, create a stub for the paydown
16385: --If payment is a stub
16386: IF (l_rl_rec.rule_information7 IS NOT NULL OR
16387: l_rl_rec.rule_information7 <> OKL_API.G_MISS_CHAR) AND
16388: (l_rl_rec.rule_information8 IS NOT NULL OR
16389: l_rl_rec.rule_information8 <> OKL_API.G_MISS_CHAR) THEN
16390: FOR k in l_ppd_tbl.FIRST..l_ppd_tbl.LAST LOOP
16391: --If the paydown date lies inside the stub's start and end date, create a stub for the paydown
16392: --Modified by kthiruva on 13-Feb-2006
16393: --Bug 4964710 - Start of Changes
16538: --Bug 4964710 - End of Changes
16539: -- End of Bug#2757289 modification
16540: /*mansrini Handle PPD for non-stub payments here*/
16541: ELSIF (l_rl_rec.rule_information7 IS NULL OR
16542: l_rl_rec.rule_information7 = OKL_API.G_MISS_CHAR) AND
16543: (l_rl_rec.rule_information8 IS NULL OR
16544: l_rl_rec.rule_information8 = OKL_API.G_MISS_CHAR) THEN
16545:
16546: --When there is no PPD in the range of the periodic payment, the payment is retained as is
16540: /*mansrini Handle PPD for non-stub payments here*/
16541: ELSIF (l_rl_rec.rule_information7 IS NULL OR
16542: l_rl_rec.rule_information7 = OKL_API.G_MISS_CHAR) AND
16543: (l_rl_rec.rule_information8 IS NULL OR
16544: l_rl_rec.rule_information8 = OKL_API.G_MISS_CHAR) THEN
16545:
16546: --When there is no PPD in the range of the periodic payment, the payment is retained as is
16547: IF (l_ppd_tbl(l_ppd_tbl.FIRST).paydown_date < FND_DATE.canonical_to_date(l_rl_rec.rule_information2)
16548: OR l_ppd_tbl(l_ppd_tbl.FIRST).paydown_date > get_end_date(FND_DATE.canonical_to_date(l_rl_rec.rule_information2),l_rl_rec.OBJECT1_ID1,l_rl_rec.rule_information3))
16914: -- code for use defined streams ends here
16915: FOR l_rl_rec in l_rl_csr (l_rl_rec1.slh_id, 'LALEVL', 'LASLL', TO_NUMBER(p_chr_id), l_line_rec.id ) LOOP
16916: -- Start of Bug#2757289 modification
16917: IF (l_rl_rec.rule_information7 IS NOT NULL OR
16918: l_rl_rec.rule_information7 <> OKL_API.G_MISS_CHAR) AND
16919: (l_rl_rec.rule_information8 IS NOT NULL OR
16920: l_rl_rec.rule_information8 <> OKL_API.G_MISS_CHAR) THEN
16921: k := k + 1;
16922: idx := idx + 1;
16916: -- Start of Bug#2757289 modification
16917: IF (l_rl_rec.rule_information7 IS NOT NULL OR
16918: l_rl_rec.rule_information7 <> OKL_API.G_MISS_CHAR) AND
16919: (l_rl_rec.rule_information8 IS NOT NULL OR
16920: l_rl_rec.rule_information8 <> OKL_API.G_MISS_CHAR) THEN
16921: k := k + 1;
16922: idx := idx + 1;
16923: l_csm_periodic_expenses_tbl(k).level_index_number := idx;
16924: l_csm_periodic_expenses_tbl(k).amount := TO_NUMBER(l_rl_rec.rule_information8);
16961: END IF;
16962: -- Bug 4915938 - End of Changes
16963:
16964: ELSIF (l_rl_rec.rule_information7 IS NULL OR
16965: l_rl_rec.rule_information7 = OKL_API.G_MISS_CHAR) AND
16966: (l_rl_rec.rule_information8 IS NULL OR
16967: l_rl_rec.rule_information8 = OKL_API.G_MISS_CHAR) THEN
16968: k := k + 1;
16969: idx := idx + 1;
16963:
16964: ELSIF (l_rl_rec.rule_information7 IS NULL OR
16965: l_rl_rec.rule_information7 = OKL_API.G_MISS_CHAR) AND
16966: (l_rl_rec.rule_information8 IS NULL OR
16967: l_rl_rec.rule_information8 = OKL_API.G_MISS_CHAR) THEN
16968: k := k + 1;
16969: idx := idx + 1;
16970: l_csm_periodic_expenses_tbl(k).level_index_number := idx;
16971: l_csm_periodic_expenses_tbl(k).description := l_strm_name;
16983: l_csm_periodic_expenses_tbl(k).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ARREARS;
16984: ELSE
16985: l_csm_periodic_expenses_tbl(k).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ADVANCE;
16986: END IF;
16987: IF (l_rl_rec.RULE_INFORMATION2 IS NULL or l_rl_rec.RULE_INFORMATION2 = OKL_API.G_MISS_CHAR) THEN
16988: l_csm_periodic_expenses_tbl(k).date_start := l_hdr_rec.start_date;
16989: ELSE
16990: l_csm_periodic_expenses_tbl(k).date_start := FND_DATE.canonical_to_date(l_rl_rec.RULE_INFORMATION2);
16991: END IF;
17010: l := l + 1;
17011: l_csm_one_off_fee_tbl(l).description := l_strm_name_rec.name;
17012: l_csm_one_off_fee_tbl(l).income_or_expense := OKL_CREATE_STREAMS_PUB.G_INCOME;
17013: l_csm_one_off_fee_tbl(l).amount := FND_NUMBER.canonical_to_number(nvl(l_rl_rec.RULE_INFORMATION6,'0'));
17014: If(l_rl_rec.RULE_INFORMATION2 IS NULL or l_rl_rec.RULE_INFORMATION2 = OKL_API.G_MISS_CHAR) Then
17015: l_csm_one_off_fee_tbl(l).date_paid := l_hdr_rec.start_date;
17016: Else
17017: l_csm_one_off_fee_tbl(l).date_paid := FND_DATE.canonical_to_date(l_rl_rec.RULE_INFORMATION2);
17018: End If;
17020: END LOOP;
17021: END IF;
17022: END LOOP;
17023: END LOOP;
17024: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
17025: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
17026: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
17027: RAISE OKL_API.G_EXCEPTION_ERROR;
17028: End If;
17021: END IF;
17022: END LOOP;
17023: END LOOP;
17024: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
17025: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
17026: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
17027: RAISE OKL_API.G_EXCEPTION_ERROR;
17028: End If;
17029: -- Extract fee line
17022: END LOOP;
17023: END LOOP;
17024: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
17025: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
17026: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
17027: RAISE OKL_API.G_EXCEPTION_ERROR;
17028: End If;
17029: -- Extract fee line
17030: extract_fee_lines( p_api_version => p_api_version,
17023: END LOOP;
17024: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
17025: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
17026: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
17027: RAISE OKL_API.G_EXCEPTION_ERROR;
17028: End If;
17029: -- Extract fee line
17030: extract_fee_lines( p_api_version => p_api_version,
17031: p_chr_id => TO_NUMBER(p_chr_id),
17036: x_return_status => x_return_status,
17037: px_csm_stream_types_tbl => l_csm_stream_types_tbl,
17038: px_csm_one_off_fee_tbl => l_csm_one_off_fee_tbl,
17039: px_csm_periodic_expenses_tbl => l_csm_periodic_expenses_tbl);
17040: If (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
17041: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
17042: ElSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
17043: raise OKL_API.G_EXCEPTION_ERROR;
17044: End If;
17037: px_csm_stream_types_tbl => l_csm_stream_types_tbl,
17038: px_csm_one_off_fee_tbl => l_csm_one_off_fee_tbl,
17039: px_csm_periodic_expenses_tbl => l_csm_periodic_expenses_tbl);
17040: If (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
17041: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
17042: ElSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
17043: raise OKL_API.G_EXCEPTION_ERROR;
17044: End If;
17045: extract_subsidized_lines(p_api_version => p_api_version,
17038: px_csm_one_off_fee_tbl => l_csm_one_off_fee_tbl,
17039: px_csm_periodic_expenses_tbl => l_csm_periodic_expenses_tbl);
17040: If (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
17041: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
17042: ElSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
17043: raise OKL_API.G_EXCEPTION_ERROR;
17044: End If;
17045: extract_subsidized_lines(p_api_version => p_api_version,
17046: p_init_msg_list => p_init_msg_list,
17039: px_csm_periodic_expenses_tbl => l_csm_periodic_expenses_tbl);
17040: If (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
17041: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
17042: ElSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
17043: raise OKL_API.G_EXCEPTION_ERROR;
17044: End If;
17045: extract_subsidized_lines(p_api_version => p_api_version,
17046: p_init_msg_list => p_init_msg_list,
17047: x_return_status => x_return_status,
17048: x_msg_count => x_msg_count,
17049: x_msg_data => x_msg_data,
17050: p_chr_id => TO_NUMBER(p_chr_id),
17051: px_csm_one_off_fee_tbl => l_csm_one_off_fee_tbl);
17052: If (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
17053: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
17054: ElSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
17055: raise OKL_API.G_EXCEPTION_ERROR;
17056: End If;
17049: x_msg_data => x_msg_data,
17050: p_chr_id => TO_NUMBER(p_chr_id),
17051: px_csm_one_off_fee_tbl => l_csm_one_off_fee_tbl);
17052: If (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
17053: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
17054: ElSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
17055: raise OKL_API.G_EXCEPTION_ERROR;
17056: End If;
17057: check_for_mandatory_streams(
17050: p_chr_id => TO_NUMBER(p_chr_id),
17051: px_csm_one_off_fee_tbl => l_csm_one_off_fee_tbl);
17052: If (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
17053: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
17054: ElSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
17055: raise OKL_API.G_EXCEPTION_ERROR;
17056: End If;
17057: check_for_mandatory_streams(
17058: p_api_version => p_api_version,
17051: px_csm_one_off_fee_tbl => l_csm_one_off_fee_tbl);
17052: If (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
17053: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
17054: ElSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
17055: raise OKL_API.G_EXCEPTION_ERROR;
17056: End If;
17057: check_for_mandatory_streams(
17058: p_api_version => p_api_version,
17059: p_init_msg_list => p_init_msg_list,
17063: p_chr_id => p_chr_id,
17064: p_deal_type => l_deal_type,
17065: p_stream_types_tbl => l_csm_stream_types_tbl,
17066: x_stream_types_tbl => l_req_stream_types_tbl);
17067: If (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
17068: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
17069: ElSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
17070: raise OKL_API.G_EXCEPTION_ERROR;
17071: End If;
17064: p_deal_type => l_deal_type,
17065: p_stream_types_tbl => l_csm_stream_types_tbl,
17066: x_stream_types_tbl => l_req_stream_types_tbl);
17067: If (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
17068: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
17069: ElSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
17070: raise OKL_API.G_EXCEPTION_ERROR;
17071: End If;
17072: -- Requesting for yields
17065: p_stream_types_tbl => l_csm_stream_types_tbl,
17066: x_stream_types_tbl => l_req_stream_types_tbl);
17067: If (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
17068: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
17069: ElSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
17070: raise OKL_API.G_EXCEPTION_ERROR;
17071: End If;
17072: -- Requesting for yields
17073: x_return_status := yield_request(x_csm_yields_tbl => l_csm_yields_tbl);
17066: x_stream_types_tbl => l_req_stream_types_tbl);
17067: If (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
17068: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
17069: ElSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
17070: raise OKL_API.G_EXCEPTION_ERROR;
17071: End If;
17072: -- Requesting for yields
17073: x_return_status := yield_request(x_csm_yields_tbl => l_csm_yields_tbl);
17074: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
17070: raise OKL_API.G_EXCEPTION_ERROR;
17071: End If;
17072: -- Requesting for yields
17073: x_return_status := yield_request(x_csm_yields_tbl => l_csm_yields_tbl);
17074: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
17075: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
17076: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
17077: RAISE OKL_API.G_EXCEPTION_ERROR;
17078: END IF;
17071: End If;
17072: -- Requesting for yields
17073: x_return_status := yield_request(x_csm_yields_tbl => l_csm_yields_tbl);
17074: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
17075: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
17076: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
17077: RAISE OKL_API.G_EXCEPTION_ERROR;
17078: END IF;
17079:
17072: -- Requesting for yields
17073: x_return_status := yield_request(x_csm_yields_tbl => l_csm_yields_tbl);
17074: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
17075: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
17076: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
17077: RAISE OKL_API.G_EXCEPTION_ERROR;
17078: END IF;
17079:
17080: If (x_return_status <> OKL_API.G_RET_STS_SUCCESS) then
17073: x_return_status := yield_request(x_csm_yields_tbl => l_csm_yields_tbl);
17074: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
17075: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
17076: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
17077: RAISE OKL_API.G_EXCEPTION_ERROR;
17078: END IF;
17079:
17080: If (x_return_status <> OKL_API.G_RET_STS_SUCCESS) then
17081: okl_api.set_message(
17076: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
17077: RAISE OKL_API.G_EXCEPTION_ERROR;
17078: END IF;
17079:
17080: If (x_return_status <> OKL_API.G_RET_STS_SUCCESS) then
17081: okl_api.set_message(
17082: p_app_name => G_APP_NAME,
17083: p_msg_name => 'OKL_LLA_REPSTRMS_EXTR_FAILED');
17084: raise OKL_API.G_EXCEPTION_ERROR;
17077: RAISE OKL_API.G_EXCEPTION_ERROR;
17078: END IF;
17079:
17080: If (x_return_status <> OKL_API.G_RET_STS_SUCCESS) then
17081: okl_api.set_message(
17082: p_app_name => G_APP_NAME,
17083: p_msg_name => 'OKL_LLA_REPSTRMS_EXTR_FAILED');
17084: raise OKL_API.G_EXCEPTION_ERROR;
17085: End If;
17080: If (x_return_status <> OKL_API.G_RET_STS_SUCCESS) then
17081: okl_api.set_message(
17082: p_app_name => G_APP_NAME,
17083: p_msg_name => 'OKL_LLA_REPSTRMS_EXTR_FAILED');
17084: raise OKL_API.G_EXCEPTION_ERROR;
17085: End If;
17086:
17087: x_csm_loan_header := l_csm_loan_header;
17088: x_csm_loan_lines_tbl := l_csm_loan_levels_tbl;
17090: x_csm_one_off_fee_tbl := l_csm_one_off_fee_tbl;
17091: x_csm_periodic_expenses_tbl := l_csm_periodic_expenses_tbl;
17092: x_csm_yields_tbl := l_csm_yields_tbl;
17093: x_csm_stream_types_tbl := l_req_stream_types_tbl;
17094: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
17095: x_msg_data => x_msg_data);
17096: EXCEPTION
17097: WHEN OKL_API.G_EXCEPTION_ERROR THEN
17098: IF l_hdr_csr%ISOPEN THEN
17093: x_csm_stream_types_tbl := l_req_stream_types_tbl;
17094: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
17095: x_msg_data => x_msg_data);
17096: EXCEPTION
17097: WHEN OKL_API.G_EXCEPTION_ERROR THEN
17098: IF l_hdr_csr%ISOPEN THEN
17099: CLOSE l_hdr_csr;
17100: END IF;
17101: IF ib_csr%ISOPEN THEN
17112: END IF;
17113: IF l_rl_csr%ISOPEN THEN
17114: CLOSE l_rl_csr;
17115: END IF;
17116: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
17117: l_api_name,
17118: G_PKG_NAME,
17119: 'OKL_API.G_RET_STS_ERROR',
17120: x_msg_count,
17115: END IF;
17116: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
17117: l_api_name,
17118: G_PKG_NAME,
17119: 'OKL_API.G_RET_STS_ERROR',
17120: x_msg_count,
17121: x_msg_data,
17122: '_PVT');
17123: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
17119: 'OKL_API.G_RET_STS_ERROR',
17120: x_msg_count,
17121: x_msg_data,
17122: '_PVT');
17123: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
17124: IF l_hdr_csr%ISOPEN THEN
17125: CLOSE l_hdr_csr;
17126: END IF;
17127: IF ib_csr%ISOPEN THEN
17138: END IF;
17139: IF l_rl_csr%ISOPEN THEN
17140: CLOSE l_rl_csr;
17141: END IF;
17142: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
17143: l_api_name,
17144: G_PKG_NAME,
17145: 'OKL_API.G_RET_STS_UNEXP_ERROR',
17146: x_msg_count,
17141: END IF;
17142: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
17143: l_api_name,
17144: G_PKG_NAME,
17145: 'OKL_API.G_RET_STS_UNEXP_ERROR',
17146: x_msg_count,
17147: x_msg_data,
17148: '_PVT');
17149: WHEN OTHERS then
17164: END IF;
17165: IF l_rl_csr%ISOPEN THEN
17166: CLOSE l_rl_csr;
17167: END IF;
17168: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
17169: l_api_name,
17170: G_PKG_NAME,
17171: 'OTHERS',
17172: x_msg_count,
17176:
17177:
17178: Procedure extract_params_loan(
17179: p_api_version IN NUMBER,
17180: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
17181: p_chr_id IN VARCHAR2,
17182: x_return_status OUT NOCOPY VARCHAR2,
17183: x_msg_count OUT NOCOPY NUMBER,
17184: x_msg_data OUT NOCOPY VARCHAR2,
17210: l_ppd_cnt NUMBER := 0;
17211:
17212: l_api_name CONSTANT VARCHAR2(30) := 'EXTRACT_PARAMS_LOAN';
17213: l_api_version CONSTANT NUMBER := 1;
17214: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
17215:
17216: Begin
17217:
17218: --Added by kthiruva on 18-Apr-2006
17241: x_csm_stream_types_tbl);
17242:
17243: --Added by kthiruva for Debugging
17244: write_to_log('After the call to extract_params_ppd_rebook, the return status is :'||x_return_status);
17245: If (x_return_status <> OKL_API.G_RET_STS_SUCCESS) then
17246: okl_api.set_message(
17247: p_app_name => G_APP_NAME,
17248: p_msg_name => 'OKL_LLA_GENSTRMS_EXTR_FAILED');
17249: raise OKL_API.G_EXCEPTION_ERROR;
17242:
17243: --Added by kthiruva for Debugging
17244: write_to_log('After the call to extract_params_ppd_rebook, the return status is :'||x_return_status);
17245: If (x_return_status <> OKL_API.G_RET_STS_SUCCESS) then
17246: okl_api.set_message(
17247: p_app_name => G_APP_NAME,
17248: p_msg_name => 'OKL_LLA_GENSTRMS_EXTR_FAILED');
17249: raise OKL_API.G_EXCEPTION_ERROR;
17250: End If;
17245: If (x_return_status <> OKL_API.G_RET_STS_SUCCESS) then
17246: okl_api.set_message(
17247: p_app_name => G_APP_NAME,
17248: p_msg_name => 'OKL_LLA_GENSTRMS_EXTR_FAILED');
17249: raise OKL_API.G_EXCEPTION_ERROR;
17250: End If;
17251:
17252: ELSE
17253: extract_params_loan_deal(
17267: x_csm_stream_types_tbl);
17268:
17269: --Added by kthiruva for Debugging
17270: write_to_log('After the call to extract_params_loan, the return status is :'||x_return_status);
17271: If (x_return_status <> OKL_API.G_RET_STS_SUCCESS) then
17272: okl_api.set_message(
17273: p_app_name => G_APP_NAME,
17274: p_msg_name => 'OKL_LLA_GENSTRMS_EXTR_FAILED');
17275: raise OKL_API.G_EXCEPTION_ERROR;
17268:
17269: --Added by kthiruva for Debugging
17270: write_to_log('After the call to extract_params_loan, the return status is :'||x_return_status);
17271: If (x_return_status <> OKL_API.G_RET_STS_SUCCESS) then
17272: okl_api.set_message(
17273: p_app_name => G_APP_NAME,
17274: p_msg_name => 'OKL_LLA_GENSTRMS_EXTR_FAILED');
17275: raise OKL_API.G_EXCEPTION_ERROR;
17276: End If;
17271: If (x_return_status <> OKL_API.G_RET_STS_SUCCESS) then
17272: okl_api.set_message(
17273: p_app_name => G_APP_NAME,
17274: p_msg_name => 'OKL_LLA_GENSTRMS_EXTR_FAILED');
17275: raise OKL_API.G_EXCEPTION_ERROR;
17276: End If;
17277:
17278: END IF;
17279: print( l_api_name, 'end', x_return_status);
17281:
17282: --Added by kthiruva for Bug 5161075
17283: Procedure extract_params_loan_reamort(
17284: p_api_version IN NUMBER,
17285: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
17286: p_chr_id IN VARCHAR2,
17287: x_return_status OUT NOCOPY VARCHAR2,
17288: x_msg_count OUT NOCOPY NUMBER,
17289: x_msg_data OUT NOCOPY VARCHAR2,
17318:
17319:
17320: l_api_name CONSTANT VARCHAR2(30) := 'EXTRACT_PARAMS_LOAN_REAMORT';
17321: l_api_version CONSTANT NUMBER := 1;
17322: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
17323:
17324: Begin
17325:
17326: --Added by kthiruva on 18-Apr-2006
17359: x_csm_stream_types_tbl);
17360:
17361: --Added by kthiruva for Debugging
17362: write_to_log('After the call to extract_params_loan_deal, the return status is :'||x_return_status);
17363: If (x_return_status <> OKL_API.G_RET_STS_SUCCESS) then
17364: okl_api.set_message(
17365: p_app_name => G_APP_NAME,
17366: p_msg_name => 'OKL_LLA_GENSTRMS_EXTR_FAILED');
17367: raise OKL_API.G_EXCEPTION_ERROR;
17360:
17361: --Added by kthiruva for Debugging
17362: write_to_log('After the call to extract_params_loan_deal, the return status is :'||x_return_status);
17363: If (x_return_status <> OKL_API.G_RET_STS_SUCCESS) then
17364: okl_api.set_message(
17365: p_app_name => G_APP_NAME,
17366: p_msg_name => 'OKL_LLA_GENSTRMS_EXTR_FAILED');
17367: raise OKL_API.G_EXCEPTION_ERROR;
17368: End If;
17363: If (x_return_status <> OKL_API.G_RET_STS_SUCCESS) then
17364: okl_api.set_message(
17365: p_app_name => G_APP_NAME,
17366: p_msg_name => 'OKL_LLA_GENSTRMS_EXTR_FAILED');
17367: raise OKL_API.G_EXCEPTION_ERROR;
17368: End If;
17369: ELSE
17370: --Payment type on the contract is Rent
17371: --IF there is a PPD on the contract then call extract_params_loan_deal
17388: x_csm_stream_types_tbl);
17389:
17390: --Added by kthiruva for Debugging
17391: write_to_log('After the call to extract_params_loan_deal, the return status is :'||x_return_status);
17392: If (x_return_status <> OKL_API.G_RET_STS_SUCCESS) then
17393: okl_api.set_message(
17394: p_app_name => G_APP_NAME,
17395: p_msg_name => 'OKL_LLA_GENSTRMS_EXTR_FAILED');
17396: raise OKL_API.G_EXCEPTION_ERROR;
17389:
17390: --Added by kthiruva for Debugging
17391: write_to_log('After the call to extract_params_loan_deal, the return status is :'||x_return_status);
17392: If (x_return_status <> OKL_API.G_RET_STS_SUCCESS) then
17393: okl_api.set_message(
17394: p_app_name => G_APP_NAME,
17395: p_msg_name => 'OKL_LLA_GENSTRMS_EXTR_FAILED');
17396: raise OKL_API.G_EXCEPTION_ERROR;
17397: End If;
17392: If (x_return_status <> OKL_API.G_RET_STS_SUCCESS) then
17393: okl_api.set_message(
17394: p_app_name => G_APP_NAME,
17395: p_msg_name => 'OKL_LLA_GENSTRMS_EXTR_FAILED');
17396: raise OKL_API.G_EXCEPTION_ERROR;
17397: End If;
17398: ELSIF l_ppd_cnt > 0 THEN
17399:
17400: --Payment on the contract is Rent. Therefore the PPD should also be incorporated
17415: x_csm_stream_types_tbl);
17416:
17417: --Added by kthiruva for Debugging
17418: write_to_log('After the call to extract_params_ppd_rebook, the return status is :'||x_return_status);
17419: If (x_return_status <> OKL_API.G_RET_STS_SUCCESS) then
17420: okl_api.set_message(
17421: p_app_name => G_APP_NAME,
17422: p_msg_name => 'OKL_LLA_GENSTRMS_EXTR_FAILED');
17423: raise OKL_API.G_EXCEPTION_ERROR;
17416:
17417: --Added by kthiruva for Debugging
17418: write_to_log('After the call to extract_params_ppd_rebook, the return status is :'||x_return_status);
17419: If (x_return_status <> OKL_API.G_RET_STS_SUCCESS) then
17420: okl_api.set_message(
17421: p_app_name => G_APP_NAME,
17422: p_msg_name => 'OKL_LLA_GENSTRMS_EXTR_FAILED');
17423: raise OKL_API.G_EXCEPTION_ERROR;
17424: End If;
17419: If (x_return_status <> OKL_API.G_RET_STS_SUCCESS) then
17420: okl_api.set_message(
17421: p_app_name => G_APP_NAME,
17422: p_msg_name => 'OKL_LLA_GENSTRMS_EXTR_FAILED');
17423: raise OKL_API.G_EXCEPTION_ERROR;
17424: End If;
17425: END IF;
17426: END IF;
17427: print( l_api_name, 'end', x_return_status);
17429:
17430: -- Start modification 11i10 bakuchib
17431: PROCEDURE extract_params_lease_deal(
17432: p_api_version IN NUMBER,
17433: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
17434: p_chr_id IN VARCHAR2,
17435: p_deal_type IN VARCHAR2,
17436: x_return_status OUT NOCOPY VARCHAR2,
17437: x_msg_count OUT NOCOPY NUMBER,
17445: x_rents_tbl OUT NOCOPY okl_create_streams_pub.csm_periodic_expenses_tbl_type) AS
17446:
17447: l_api_name CONSTANT VARCHAR2(30) := 'EXTRACT_PARAMS_LEASE_DEAL';
17448: l_api_version CONSTANT NUMBER := 1;
17449: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
17450: lv_fed_only VARCHAR2(3) := 'N';
17451: ln_value NUMBER := 0;
17452: lv_fed_only_tax_book OKL_TXD_ASSETS_B.TAX_BOOK%TYPE := NULL;
17453: lv_mg_tax_yn VARCHAR2(3) := 'N';
17851: BEGIN
17852: --Added by kthiruva for Debugging
17853: write_to_log('Inside procedure extract_params_lease_deal');
17854:
17855: x_return_status := OKL_API.G_RET_STS_SUCCESS;
17856: -- Call start_activity to create savepoint, check compatibility
17857: -- and initialize message list
17858: x_return_status := OKL_API.START_ACTIVITY (
17859: l_api_name
17854:
17855: x_return_status := OKL_API.G_RET_STS_SUCCESS;
17856: -- Call start_activity to create savepoint, check compatibility
17857: -- and initialize message list
17858: x_return_status := OKL_API.START_ACTIVITY (
17859: l_api_name
17860: ,p_init_msg_list
17861: ,'_PVT'
17862: ,x_return_status);
17860: ,p_init_msg_list
17861: ,'_PVT'
17862: ,x_return_status);
17863: -- Check if activity started successfully
17864: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
17865: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
17866: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
17867: RAISE OKL_API.G_EXCEPTION_ERROR;
17868: END IF;
17861: ,'_PVT'
17862: ,x_return_status);
17863: -- Check if activity started successfully
17864: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
17865: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
17866: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
17867: RAISE OKL_API.G_EXCEPTION_ERROR;
17868: END IF;
17869: -- Validate the payments
17862: ,x_return_status);
17863: -- Check if activity started successfully
17864: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
17865: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
17866: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
17867: RAISE OKL_API.G_EXCEPTION_ERROR;
17868: END IF;
17869: -- Validate the payments
17870: --Added by kthiruva for Debugging
17863: -- Check if activity started successfully
17864: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
17865: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
17866: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
17867: RAISE OKL_API.G_EXCEPTION_ERROR;
17868: END IF;
17869: -- Validate the payments
17870: --Added by kthiruva for Debugging
17871: write_to_log('Prior to the call to validate_payments');
17879:
17880: --Added by kthiruva for Debugging
17881: write_to_log('After the call to validate_payments, the return status is :'||x_return_status);
17882:
17883: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
17884: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
17885: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
17886: RAISE OKL_API.G_EXCEPTION_ERROR;
17887: END IF;
17880: --Added by kthiruva for Debugging
17881: write_to_log('After the call to validate_payments, the return status is :'||x_return_status);
17882:
17883: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
17884: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
17885: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
17886: RAISE OKL_API.G_EXCEPTION_ERROR;
17887: END IF;
17888: i := 0; j := 0; k := 0; l := 0; m := 0;
17881: write_to_log('After the call to validate_payments, the return status is :'||x_return_status);
17882:
17883: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
17884: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
17885: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
17886: RAISE OKL_API.G_EXCEPTION_ERROR;
17887: END IF;
17888: i := 0; j := 0; k := 0; l := 0; m := 0;
17889:
17882:
17883: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
17884: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
17885: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
17886: RAISE OKL_API.G_EXCEPTION_ERROR;
17887: END IF;
17888: i := 0; j := 0; k := 0; l := 0; m := 0;
17889:
17890: OPEN l_hdr_pdt_csr(p_chr_id);
17912: FETCH l_hdr_csr_lease into l_hdr_rec;
17913: IF l_hdr_csr_lease%NOTFOUND THEN
17914: --Added by kthiruva for Debugging
17915: write_to_log('Cursor l_hdr_csr_lease not found');
17916: okl_api.set_message(p_app_name => G_APP_NAME,
17917: p_msg_name => G_LLA_NO_MATCHING_RECORD,
17918: p_token1 => G_COL_NAME_TOKEN,
17919: p_token1_value => 'Contract id');
17920: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
17916: okl_api.set_message(p_app_name => G_APP_NAME,
17917: p_msg_name => G_LLA_NO_MATCHING_RECORD,
17918: p_token1 => G_COL_NAME_TOKEN,
17919: p_token1_value => 'Contract id');
17920: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
17921: END IF;
17922: CLOSE l_hdr_csr_lease;
17923: -- get header rule info
17924: OPEN l_hdrrl_csr_lease('LATOWN', 'LATOWN', TO_NUMBER(p_chr_id));
17925: FETCH l_hdrrl_csr_lease into l_hdrrl_rec;
17926: IF l_hdrrl_csr_lease%NOTFOUND THEN
17927: --Added by kthiruva for Debugging
17928: write_to_log('Cursor l_hdrrl_csr_lease not found');
17929: okl_api.set_message(p_app_name => G_APP_NAME,
17930: p_msg_name => G_LLA_NO_MATCHING_RECORD,
17931: p_token1 => G_COL_NAME_TOKEN,
17932: p_token1_value => 'Contract id');
17933: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
17929: okl_api.set_message(p_app_name => G_APP_NAME,
17930: p_msg_name => G_LLA_NO_MATCHING_RECORD,
17931: p_token1 => G_COL_NAME_TOKEN,
17932: p_token1_value => 'Contract id');
17933: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
17934: END IF;
17935: CLOSE l_hdrrl_csr_lease;
17936: l_csm_lease_header.irs_tax_treatment_method := l_hdrrl_rec.RULE_INFORMATION1;
17937: l_lease_tax_owner := l_hdrrl_rec.RULE_INFORMATION1;
17960: FETCH ib_csr_lease into l_ib_rec;
17961: IF ib_csr_lease%NOTFOUND THEN
17962: --Added by kthiruva for Debugging
17963: write_to_log('Cursor ib_csr_lease not found');
17964: okl_api.set_message(p_app_name => G_APP_NAME,
17965: p_msg_name => G_LLA_NO_MATCHING_RECORD,
17966: p_token1 => G_COL_NAME_TOKEN,
17967: p_token1_value => 'Contract id');
17968: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
17964: okl_api.set_message(p_app_name => G_APP_NAME,
17965: p_msg_name => G_LLA_NO_MATCHING_RECORD,
17966: p_token1 => G_COL_NAME_TOKEN,
17967: p_token1_value => 'Contract id');
17968: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
17969: END IF;
17970: CLOSE ib_csr_lease;
17971: l_csm_lease_header.country := l_ib_rec.country;
17972: l_csm_lease_header.orp_code := OKL_CREATE_STREAMS_PUB.G_ORP_CODE_BOOKING;
18015: FETCH l_hdrrl_csr_lease into l_hdrrl_rec;
18016: CLOSE l_hdrrl_csr_lease;
18017: l_purchase_option := l_hdrrl_rec.RULE_INFORMATION11;
18018: IF (l_hdrrl_rec.rule_information1 IS NOT NULL OR
18019: l_hdrrl_rec.rule_information1 <> okl_api.g_miss_char) AND
18020: LTRIM(RTRIM(l_hdrrl_rec.rule_information1)) = 'USE_FORMULA' AND
18021: (l_hdrrl_rec.rule_information3 IS NOT NULL OR
18022: l_hdrrl_rec.rule_information3 <> okl_api.g_miss_char) THEN
18023: -- Executing the formula defined
18018: IF (l_hdrrl_rec.rule_information1 IS NOT NULL OR
18019: l_hdrrl_rec.rule_information1 <> okl_api.g_miss_char) AND
18020: LTRIM(RTRIM(l_hdrrl_rec.rule_information1)) = 'USE_FORMULA' AND
18021: (l_hdrrl_rec.rule_information3 IS NOT NULL OR
18022: l_hdrrl_rec.rule_information3 <> okl_api.g_miss_char) THEN
18023: -- Executing the formula defined
18024: --Added by kthiruva for Debugging
18025: write_to_log('Prior to the call to execute_formula');
18026: execute_formula(p_api_version => l_api_version,
18033: p_line_id => NULL,
18034: x_value => l_purchase_option_amount);
18035: --Added by kthiruva for Debugging
18036: write_to_log('After the call to execute_formula, the return status is :'||l_return_status);
18037: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
18038: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
18039: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
18040: RAISE OKL_API.G_EXCEPTION_ERROR;
18041: END IF;
18034: x_value => l_purchase_option_amount);
18035: --Added by kthiruva for Debugging
18036: write_to_log('After the call to execute_formula, the return status is :'||l_return_status);
18037: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
18038: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
18039: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
18040: RAISE OKL_API.G_EXCEPTION_ERROR;
18041: END IF;
18042: ELSIF (l_hdrrl_rec.rule_information1 IS NOT NULL OR
18035: --Added by kthiruva for Debugging
18036: write_to_log('After the call to execute_formula, the return status is :'||l_return_status);
18037: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
18038: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
18039: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
18040: RAISE OKL_API.G_EXCEPTION_ERROR;
18041: END IF;
18042: ELSIF (l_hdrrl_rec.rule_information1 IS NOT NULL OR
18043: l_hdrrl_rec.rule_information1 <> okl_api.g_miss_char) AND
18036: write_to_log('After the call to execute_formula, the return status is :'||l_return_status);
18037: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
18038: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
18039: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
18040: RAISE OKL_API.G_EXCEPTION_ERROR;
18041: END IF;
18042: ELSIF (l_hdrrl_rec.rule_information1 IS NOT NULL OR
18043: l_hdrrl_rec.rule_information1 <> okl_api.g_miss_char) AND
18044: LTRIM(RTRIM(l_hdrrl_rec.rule_information1)) = 'USE_FIXED_AMOUNT' AND
18039: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
18040: RAISE OKL_API.G_EXCEPTION_ERROR;
18041: END IF;
18042: ELSIF (l_hdrrl_rec.rule_information1 IS NOT NULL OR
18043: l_hdrrl_rec.rule_information1 <> okl_api.g_miss_char) AND
18044: LTRIM(RTRIM(l_hdrrl_rec.rule_information1)) = 'USE_FIXED_AMOUNT' AND
18045: (l_hdrrl_rec.rule_information2 IS NOT NULL OR
18046: l_hdrrl_rec.rule_information2 <> okl_api.g_miss_char) THEN
18047: l_purchase_option_amount := TO_NUMBER(l_hdrrl_rec.RULE_INFORMATION2);
18042: ELSIF (l_hdrrl_rec.rule_information1 IS NOT NULL OR
18043: l_hdrrl_rec.rule_information1 <> okl_api.g_miss_char) AND
18044: LTRIM(RTRIM(l_hdrrl_rec.rule_information1)) = 'USE_FIXED_AMOUNT' AND
18045: (l_hdrrl_rec.rule_information2 IS NOT NULL OR
18046: l_hdrrl_rec.rule_information2 <> okl_api.g_miss_char) THEN
18047: l_purchase_option_amount := TO_NUMBER(l_hdrrl_rec.RULE_INFORMATION2);
18048: ELSE
18049: l_purchase_option := 'NONE';
18050: l_purchase_option_amount := NULL;
18065: lv_currency_code;
18066: IF get_org_id%NOTFOUND THEN
18067: --Added by kthiruva for Debugging
18068: write_to_log('Cursor get_org_id not found');
18069: okl_api.set_message(p_app_name => G_APP_NAME,
18070: p_msg_name => G_LLA_NO_MATCHING_RECORD,
18071: p_token1 => G_COL_NAME_TOKEN,
18072: p_token1_value => 'Contract id');
18073: x_return_status := OKL_API.G_RET_STS_ERROR;
18069: okl_api.set_message(p_app_name => G_APP_NAME,
18070: p_msg_name => G_LLA_NO_MATCHING_RECORD,
18071: p_token1 => G_COL_NAME_TOKEN,
18072: p_token1_value => 'Contract id');
18073: x_return_status := OKL_API.G_RET_STS_ERROR;
18074: END IF;
18075: CLOSE get_org_id;
18076: --Bug 4346646 - End of Changes
18077:
18223: p_cle_id => l_line_rec.id,
18224: x_ast_dtl_tbl => l_ast_dtl_tbl);
18225: --Added by kthiruva for Debugging
18226: write_To_log('After the call to okl_activate_asset_pvt.get_pricing_parameters, return status is :'||x_return_status);
18227: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
18228: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
18229: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
18230: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_ERROR);
18231: END IF;
18224: x_ast_dtl_tbl => l_ast_dtl_tbl);
18225: --Added by kthiruva for Debugging
18226: write_To_log('After the call to okl_activate_asset_pvt.get_pricing_parameters, return status is :'||x_return_status);
18227: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
18228: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
18229: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
18230: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_ERROR);
18231: END IF;
18232: -- bug 4194673 fixed by HKPATEL
18225: --Added by kthiruva for Debugging
18226: write_To_log('After the call to okl_activate_asset_pvt.get_pricing_parameters, return status is :'||x_return_status);
18227: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
18228: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
18229: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
18230: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_ERROR);
18231: END IF;
18232: -- bug 4194673 fixed by HKPATEL
18233: IF l_ast_dtl_tbl.COUNT > 0 THEN
18226: write_To_log('After the call to okl_activate_asset_pvt.get_pricing_parameters, return status is :'||x_return_status);
18227: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
18228: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
18229: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
18230: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_ERROR);
18231: END IF;
18232: -- bug 4194673 fixed by HKPATEL
18233: IF l_ast_dtl_tbl.COUNT > 0 THEN
18234: l_book_type_code := NULL;
18262: p_pdt_parameter_rec => lx_pdt_param_rec);
18263:
18264: --Added by kthiruva for Debugging
18265: write_to_log('After the call to okl_setupproducts_pvt.getpdt_parameters, the return status is :'||x_return_status);
18266: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
18267: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
18268: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
18269: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_ERROR);
18270: END IF;
18263:
18264: --Added by kthiruva for Debugging
18265: write_to_log('After the call to okl_setupproducts_pvt.getpdt_parameters, the return status is :'||x_return_status);
18266: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
18267: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
18268: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
18269: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_ERROR);
18270: END IF;
18271: -- bug 4194673 fixed by HKPATEL
18264: --Added by kthiruva for Debugging
18265: write_to_log('After the call to okl_setupproducts_pvt.getpdt_parameters, the return status is :'||x_return_status);
18266: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
18267: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
18268: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
18269: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_ERROR);
18270: END IF;
18271: -- bug 4194673 fixed by HKPATEL
18272: x_return_status := is_rep_pdt(--p_asset_number => l_line_rec.name,
18265: write_to_log('After the call to okl_setupproducts_pvt.getpdt_parameters, the return status is :'||x_return_status);
18266: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
18267: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
18268: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
18269: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_ERROR);
18270: END IF;
18271: -- bug 4194673 fixed by HKPATEL
18272: x_return_status := is_rep_pdt(--p_asset_number => l_line_rec.name,
18273: p_corp_book => l_book_type_code,
18271: -- bug 4194673 fixed by HKPATEL
18272: x_return_status := is_rep_pdt(--p_asset_number => l_line_rec.name,
18273: p_corp_book => l_book_type_code,
18274: x_mg_tax_yn => lv_mg_tax_yn);
18275: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
18276: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
18277: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
18278: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_ERROR);
18279: END IF;
18272: x_return_status := is_rep_pdt(--p_asset_number => l_line_rec.name,
18273: p_corp_book => l_book_type_code,
18274: x_mg_tax_yn => lv_mg_tax_yn);
18275: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
18276: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
18277: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
18278: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_ERROR);
18279: END IF;
18280: -- If the reporting book is of deal type and if the
18273: p_corp_book => l_book_type_code,
18274: x_mg_tax_yn => lv_mg_tax_yn);
18275: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
18276: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
18277: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
18278: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_ERROR);
18279: END IF;
18280: -- If the reporting book is of deal type and if the
18281: -- if there is multi gaap tax book create in okl_txd_assets_b table
18274: x_mg_tax_yn => lv_mg_tax_yn);
18275: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
18276: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
18277: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
18278: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_ERROR);
18279: END IF;
18280: -- If the reporting book is of deal type and if the
18281: -- if there is multi gaap tax book create in okl_txd_assets_b table
18282: -- then we go and generate the book dep streams for the Mg tax book
18574: END IF;--vdamerla Bug6149951 ends
18575: END IF;
18576: END IF;
18577: END LOOP;
18578: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
18579: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
18580: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
18581: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_ERROR);
18582: END IF;
18575: END IF;
18576: END IF;
18577: END LOOP;
18578: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
18579: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
18580: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
18581: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_ERROR);
18582: END IF;
18583: END IF;
18576: END IF;
18577: END LOOP;
18578: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
18579: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
18580: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
18581: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_ERROR);
18582: END IF;
18583: END IF;
18584: END LOOP;
18577: END LOOP;
18578: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
18579: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
18580: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
18581: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_ERROR);
18582: END IF;
18583: END IF;
18584: END LOOP;
18585: ELSE
18582: END IF;
18583: END IF;
18584: END LOOP;
18585: ELSE
18586: okl_api.set_message(p_app_name => G_APP_NAME,
18587: p_msg_name => G_LLA_NO_MATCHING_RECORD,
18588: p_token1 => G_COL_NAME_TOKEN,
18589: p_token1_value => 'Asset Number : '||l_line_rec.name);
18590: x_return_status := OKL_API.G_RET_STS_ERROR;
18586: okl_api.set_message(p_app_name => G_APP_NAME,
18587: p_msg_name => G_LLA_NO_MATCHING_RECORD,
18588: p_token1 => G_COL_NAME_TOKEN,
18589: p_token1_value => 'Asset Number : '||l_line_rec.name);
18590: x_return_status := OKL_API.G_RET_STS_ERROR;
18591: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_ERROR);
18592: END IF;
18593:
18594:
18587: p_msg_name => G_LLA_NO_MATCHING_RECORD,
18588: p_token1 => G_COL_NAME_TOKEN,
18589: p_token1_value => 'Asset Number : '||l_line_rec.name);
18590: x_return_status := OKL_API.G_RET_STS_ERROR;
18591: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_ERROR);
18592: END IF;
18593:
18594:
18595: -- added by bkatraga for residual streams. Bug 4274539
18643: l_level_type := l_rl_rec1.object1_id1;
18644: OPEN strm_name_csr_lease ( l_level_type );
18645: FETCH strm_name_csr_lease into l_strm_name_rec;
18646: IF strm_name_csr_lease%NOTFOUND THEN
18647: x_return_status := OKL_API.G_RET_STS_ERROR;
18648: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_ERROR);
18649: END IF;
18650: CLOSE strm_name_csr_lease;
18651: l_strm_name := l_strm_name_rec.stream_type_purpose;
18644: OPEN strm_name_csr_lease ( l_level_type );
18645: FETCH strm_name_csr_lease into l_strm_name_rec;
18646: IF strm_name_csr_lease%NOTFOUND THEN
18647: x_return_status := OKL_API.G_RET_STS_ERROR;
18648: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_ERROR);
18649: END IF;
18650: CLOSE strm_name_csr_lease;
18651: l_strm_name := l_strm_name_rec.stream_type_purpose;
18652: --Added by srsreeni for bug5841892
18754: END IF;
18755: -- End of Bug#3401024 modification BAKUCHIB
18756: -- Start of Bug#2757289 modification
18757: IF (l_rl_rec.rule_information7 IS NOT NULL OR
18758: l_rl_rec.rule_information7 <> OKL_API.G_MISS_CHAR) AND
18759: (l_rl_rec.rule_information8 IS NOT NULL OR
18760: l_rl_rec.rule_information8 <> OKL_API.G_MISS_CHAR) THEN
18761: j := j + 1;
18762: idx := idx + 1;
18756: -- Start of Bug#2757289 modification
18757: IF (l_rl_rec.rule_information7 IS NOT NULL OR
18758: l_rl_rec.rule_information7 <> OKL_API.G_MISS_CHAR) AND
18759: (l_rl_rec.rule_information8 IS NOT NULL OR
18760: l_rl_rec.rule_information8 <> OKL_API.G_MISS_CHAR) THEN
18761: j := j + 1;
18762: idx := idx + 1;
18763: l_rents_tbl(j).level_index_number := idx;
18764: l_rents_tbl(j).amount := TO_NUMBER(l_rl_rec.rule_information8);
18794: END IF;
18795: -- Bug 4915938 - End of Changes
18796:
18797: ELSIF (l_rl_rec.rule_information7 IS NULL OR
18798: l_rl_rec.rule_information7 = OKL_API.G_MISS_CHAR) AND
18799: (l_rl_rec.rule_information8 IS NULL OR
18800: l_rl_rec.rule_information8 = OKL_API.G_MISS_CHAR) THEN
18801: j := j + 1;
18802: idx := idx + 1;
18796:
18797: ELSIF (l_rl_rec.rule_information7 IS NULL OR
18798: l_rl_rec.rule_information7 = OKL_API.G_MISS_CHAR) AND
18799: (l_rl_rec.rule_information8 IS NULL OR
18800: l_rl_rec.rule_information8 = OKL_API.G_MISS_CHAR) THEN
18801: j := j + 1;
18802: idx := idx + 1;
18803: l_rents_tbl(j).level_index_number := idx;
18804: l_rents_tbl(j).level_type := OKL_CREATE_STREAMS_PUB.G_SFE_LEVEL_PAYMENT;
18824: l_rents_tbl(j).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ARREARS;
18825: ELSE
18826: l_rents_tbl(j).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ADVANCE;
18827: END IF;
18828: IF(l_rl_rec.RULE_INFORMATION2 IS NULL or l_rl_rec.RULE_INFORMATION2 = OKL_API.G_MISS_CHAR) Then
18829: l_rents_tbl(j).date_start := l_hdr_rec.start_date;
18830: ELSE
18831: l_rents_tbl(j).date_start := FND_DATE.canonical_to_date(l_rl_rec.RULE_INFORMATION2);
18832: END IF;
18832: END IF;
18833: l_rents_tbl(j).rate := l_rl_rec.rule_information13;
18834: END IF;
18835: END LOOP;
18836: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
18837: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
18838: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
18839: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_ERROR);
18840: END IF;
18833: l_rents_tbl(j).rate := l_rl_rec.rule_information13;
18834: END IF;
18835: END LOOP;
18836: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
18837: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
18838: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
18839: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_ERROR);
18840: END IF;
18841: -- Code for Estimated Property Tax Starts Here
18834: END IF;
18835: END LOOP;
18836: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
18837: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
18838: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
18839: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_ERROR);
18840: END IF;
18841: -- Code for Estimated Property Tax Starts Here
18842: ELSIF( UPPER(TRIM(l_strm_name)) = 'ESTIMATED_PROPERTY_TAX' ) THEN
18835: END LOOP;
18836: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
18837: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
18838: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
18839: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_ERROR);
18840: END IF;
18841: -- Code for Estimated Property Tax Starts Here
18842: ELSIF( UPPER(TRIM(l_strm_name)) = 'ESTIMATED_PROPERTY_TAX' ) THEN
18843: FOR l_rl_rec in l_sll_csr_lease (l_rl_rec1.slh_id, 'LALEVL', 'LASLL', TO_NUMBER(p_chr_id), l_line_rec.id ) LOOP
18878: END IF;
18879:
18880:
18881: IF (l_rl_rec.rule_information7 IS NOT NULL OR
18882: l_rl_rec.rule_information7 <> OKL_API.G_MISS_CHAR) AND
18883: (l_rl_rec.rule_information8 IS NOT NULL OR
18884: l_rl_rec.rule_information8 <> OKL_API.G_MISS_CHAR) THEN
18885: k := k + 1;
18886: idx := idx + 1;
18880:
18881: IF (l_rl_rec.rule_information7 IS NOT NULL OR
18882: l_rl_rec.rule_information7 <> OKL_API.G_MISS_CHAR) AND
18883: (l_rl_rec.rule_information8 IS NOT NULL OR
18884: l_rl_rec.rule_information8 <> OKL_API.G_MISS_CHAR) THEN
18885: k := k + 1;
18886: idx := idx + 1;
18887: l_csm_periodic_expenses_tbl(k).level_index_number := idx;
18888: l_csm_periodic_expenses_tbl(k).amount := TO_NUMBER(l_rl_rec.rule_information8);
18912: END IF;
18913: -- Bug 4915938 - End of Changes
18914:
18915: ELSIF (l_rl_rec.rule_information7 IS NULL OR
18916: l_rl_rec.rule_information7 = OKL_API.G_MISS_CHAR) AND
18917: (l_rl_rec.rule_information8 IS NULL OR
18918: l_rl_rec.rule_information8 = OKL_API.G_MISS_CHAR) THEN
18919: k := k + 1;
18920: idx := idx + 1;
18914:
18915: ELSIF (l_rl_rec.rule_information7 IS NULL OR
18916: l_rl_rec.rule_information7 = OKL_API.G_MISS_CHAR) AND
18917: (l_rl_rec.rule_information8 IS NULL OR
18918: l_rl_rec.rule_information8 = OKL_API.G_MISS_CHAR) THEN
18919: k := k + 1;
18920: idx := idx + 1;
18921: l_csm_periodic_expenses_tbl(k).level_index_number := idx;
18922: l_csm_periodic_expenses_tbl(k).level_type := OKL_CREATE_STREAMS_PUB.G_SFE_LEVEL_PAYMENT;
18938: l_csm_periodic_expenses_tbl(k).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ARREARS;
18939: ELSE
18940: l_csm_periodic_expenses_tbl(k).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ADVANCE;
18941: END IF;
18942: IF(l_rl_rec.RULE_INFORMATION2 IS NULL or l_rl_rec.RULE_INFORMATION2 = OKL_API.G_MISS_CHAR) THEN
18943: l_csm_periodic_expenses_tbl(k).date_start := l_hdr_rec.start_date;
18944: ELSE
18945: l_csm_periodic_expenses_tbl(k).date_start := FND_DATE.canonical_to_date(l_rl_rec.RULE_INFORMATION2);
18946: END IF;
18945: l_csm_periodic_expenses_tbl(k).date_start := FND_DATE.canonical_to_date(l_rl_rec.RULE_INFORMATION2);
18946: END IF;
18947: END IF;
18948: END LOOP;
18949: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
18950: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
18951: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
18952: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_ERROR);
18953: END IF;
18946: END IF;
18947: END IF;
18948: END LOOP;
18949: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
18950: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
18951: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
18952: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_ERROR);
18953: END IF;
18954:
18947: END IF;
18948: END LOOP;
18949: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
18950: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
18951: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
18952: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_ERROR);
18953: END IF;
18954:
18955: -- Code for Estimated Property Tax Ends Here
18948: END LOOP;
18949: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
18950: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
18951: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
18952: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_ERROR);
18953: END IF;
18954:
18955: -- Code for Estimated Property Tax Ends Here
18956: ELSIF (((l_strm_name_rec.periodic_yn = 'Y' ) AND
18994: END IF;
18995: -- End of Bug#3401024 modification BAKUCHIB
18996: -- Start of Bug#2757289 modification
18997: IF (l_rl_rec.rule_information7 IS NOT NULL OR
18998: l_rl_rec.rule_information7 <> OKL_API.G_MISS_CHAR) AND
18999: (l_rl_rec.rule_information8 IS NOT NULL OR
19000: l_rl_rec.rule_information8 <> OKL_API.G_MISS_CHAR) THEN
19001: k := k + 1;
19002: idx := idx + 1;
18996: -- Start of Bug#2757289 modification
18997: IF (l_rl_rec.rule_information7 IS NOT NULL OR
18998: l_rl_rec.rule_information7 <> OKL_API.G_MISS_CHAR) AND
18999: (l_rl_rec.rule_information8 IS NOT NULL OR
19000: l_rl_rec.rule_information8 <> OKL_API.G_MISS_CHAR) THEN
19001: k := k + 1;
19002: idx := idx + 1;
19003: l_csm_periodic_expenses_tbl(k).level_index_number := idx;
19004: l_csm_periodic_expenses_tbl(k).amount := TO_NUMBER(l_rl_rec.rule_information8);
19027: END IF;
19028: -- Bug 4915938 - End of Changes
19029:
19030: ELSIF (l_rl_rec.rule_information7 IS NULL OR
19031: l_rl_rec.rule_information7 = OKL_API.G_MISS_CHAR) AND
19032: (l_rl_rec.rule_information8 IS NULL OR
19033: l_rl_rec.rule_information8 = OKL_API.G_MISS_CHAR) THEN
19034: k := k + 1;
19035: idx := idx + 1;
19029:
19030: ELSIF (l_rl_rec.rule_information7 IS NULL OR
19031: l_rl_rec.rule_information7 = OKL_API.G_MISS_CHAR) AND
19032: (l_rl_rec.rule_information8 IS NULL OR
19033: l_rl_rec.rule_information8 = OKL_API.G_MISS_CHAR) THEN
19034: k := k + 1;
19035: idx := idx + 1;
19036: l_csm_periodic_expenses_tbl(k).level_index_number := idx;
19037: l_csm_periodic_expenses_tbl(k).level_type := OKL_CREATE_STREAMS_PUB.G_SFE_LEVEL_PAYMENT;
19051: l_csm_periodic_expenses_tbl(k).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ARREARS;
19052: ELSE
19053: l_csm_periodic_expenses_tbl(k).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ADVANCE;
19054: END IF;
19055: IF(l_rl_rec.RULE_INFORMATION2 IS NULL or l_rl_rec.RULE_INFORMATION2 = OKL_API.G_MISS_CHAR) THEN
19056: l_csm_periodic_expenses_tbl(k).date_start := l_hdr_rec.start_date;
19057: ELSE
19058: l_csm_periodic_expenses_tbl(k).date_start := FND_DATE.canonical_to_date(l_rl_rec.RULE_INFORMATION2);
19059: END IF;
19058: l_csm_periodic_expenses_tbl(k).date_start := FND_DATE.canonical_to_date(l_rl_rec.RULE_INFORMATION2);
19059: END IF;
19060: END IF;
19061: END LOOP;
19062: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
19063: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
19064: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
19065: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_ERROR);
19066: END IF;
19059: END IF;
19060: END IF;
19061: END LOOP;
19062: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
19063: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
19064: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
19065: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_ERROR);
19066: END IF;
19067: ELSIF ((UPPER(TRIM(l_strm_name_rec.periodic_yn)) = 'N' ) AND
19060: END IF;
19061: END LOOP;
19062: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
19063: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
19064: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
19065: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_ERROR);
19066: END IF;
19067: ELSIF ((UPPER(TRIM(l_strm_name_rec.periodic_yn)) = 'N' ) AND
19068: (UPPER(TRIM(l_strm_name)) <> 'DOWN_PAYMENT') ) THEN
19061: END LOOP;
19062: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
19063: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
19064: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
19065: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_ERROR);
19066: END IF;
19067: ELSIF ((UPPER(TRIM(l_strm_name_rec.periodic_yn)) = 'N' ) AND
19068: (UPPER(TRIM(l_strm_name)) <> 'DOWN_PAYMENT') ) THEN
19069: FOR l_rl_rec in l_sll_csr_lease (l_rl_rec1.slh_id, 'LALEVL', 'LASLL', TO_NUMBER(p_chr_id), l_line_rec.id ) LOOP
19070: l := l + 1;
19071: l_csm_one_off_fee_tbl(l).description := l_strm_name_rec.name;
19072: l_csm_one_off_fee_tbl(l).income_or_expense := OKL_CREATE_STREAMS_PUB.G_INCOME;
19073: l_csm_one_off_fee_tbl(l).amount := FND_NUMBER.canonical_to_number(nvl(l_rl_rec.RULE_INFORMATION6,'0'));
19074: IF(l_rl_rec.RULE_INFORMATION2 IS NULL or l_rl_rec.RULE_INFORMATION2 = OKL_API.G_MISS_CHAR) THEN
19075: l_csm_one_off_fee_tbl(l).date_paid := l_hdr_rec.start_date;
19076: ELSE
19077: l_csm_one_off_fee_tbl(l).date_paid := FND_DATE.canonical_to_date(l_rl_rec.RULE_INFORMATION2);
19078: END IF;
19077: l_csm_one_off_fee_tbl(l).date_paid := FND_DATE.canonical_to_date(l_rl_rec.RULE_INFORMATION2);
19078: END IF;
19079: l_csm_one_off_fee_tbl(l).kle_asset_id := l_line_rec.id;
19080: END LOOP;
19081: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
19082: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
19083: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
19084: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_ERROR);
19085: END IF;
19078: END IF;
19079: l_csm_one_off_fee_tbl(l).kle_asset_id := l_line_rec.id;
19080: END LOOP;
19081: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
19082: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
19083: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
19084: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_ERROR);
19085: END IF;
19086: END IF;
19079: l_csm_one_off_fee_tbl(l).kle_asset_id := l_line_rec.id;
19080: END LOOP;
19081: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
19082: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
19083: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
19084: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_ERROR);
19085: END IF;
19086: END IF;
19087: END LOOP;
19080: END LOOP;
19081: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
19082: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
19083: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
19084: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_ERROR);
19085: END IF;
19086: END IF;
19087: END LOOP;
19088: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
19084: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_ERROR);
19085: END IF;
19086: END IF;
19087: END LOOP;
19088: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
19089: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
19090: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
19091: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_ERROR);
19092: END IF;
19085: END IF;
19086: END IF;
19087: END LOOP;
19088: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
19089: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
19090: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
19091: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_ERROR);
19092: END IF;
19093: END LOOP;
19086: END IF;
19087: END LOOP;
19088: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
19089: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
19090: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
19091: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_ERROR);
19092: END IF;
19093: END LOOP;
19094: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
19087: END LOOP;
19088: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
19089: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
19090: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
19091: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_ERROR);
19092: END IF;
19093: END LOOP;
19094: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
19095: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
19090: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
19091: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_ERROR);
19092: END IF;
19093: END LOOP;
19094: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
19095: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
19096: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
19097: RAISE OKL_API.G_EXCEPTION_ERROR;
19098: END IF;
19091: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_ERROR);
19092: END IF;
19093: END LOOP;
19094: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
19095: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
19096: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
19097: RAISE OKL_API.G_EXCEPTION_ERROR;
19098: END IF;
19099: --Added for Debugging
19092: END IF;
19093: END LOOP;
19094: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
19095: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
19096: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
19097: RAISE OKL_API.G_EXCEPTION_ERROR;
19098: END IF;
19099: --Added for Debugging
19100: write_to_log('Prior to the call to extract_fee_lines');
19093: END LOOP;
19094: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
19095: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
19096: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
19097: RAISE OKL_API.G_EXCEPTION_ERROR;
19098: END IF;
19099: --Added for Debugging
19100: write_to_log('Prior to the call to extract_fee_lines');
19101: g_rep_req_yn := 'N';
19111: px_csm_one_off_fee_tbl => l_csm_one_off_fee_tbl,
19112: px_csm_periodic_expenses_tbl => l_csm_periodic_expenses_tbl);
19113: --Added for Debugging
19114: write_to_log('After the call to extract_fee_lines, the return status is :'|| x_return_status);
19115: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
19116: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
19117: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
19118: RAISE OKL_API.G_EXCEPTION_ERROR;
19119: END IF;
19112: px_csm_periodic_expenses_tbl => l_csm_periodic_expenses_tbl);
19113: --Added for Debugging
19114: write_to_log('After the call to extract_fee_lines, the return status is :'|| x_return_status);
19115: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
19116: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
19117: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
19118: RAISE OKL_API.G_EXCEPTION_ERROR;
19119: END IF;
19120: -- Check for mandatory stream for pricing eng
19113: --Added for Debugging
19114: write_to_log('After the call to extract_fee_lines, the return status is :'|| x_return_status);
19115: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
19116: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
19117: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
19118: RAISE OKL_API.G_EXCEPTION_ERROR;
19119: END IF;
19120: -- Check for mandatory stream for pricing eng
19121: check_for_mandatory_streams(
19114: write_to_log('After the call to extract_fee_lines, the return status is :'|| x_return_status);
19115: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
19116: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
19117: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
19118: RAISE OKL_API.G_EXCEPTION_ERROR;
19119: END IF;
19120: -- Check for mandatory stream for pricing eng
19121: check_for_mandatory_streams(
19122: p_api_version => p_api_version,
19129: p_stream_types_tbl => l_csm_stream_types_tbl,
19130: x_stream_types_tbl => l_req_stream_types_tbl);
19131: --Added for Debugging
19132: write_to_log('After the call to check_for_mandatory_streams, the return status is :'||x_return_status);
19133: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
19134: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
19135: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
19136: RAISE OKL_API.G_EXCEPTION_ERROR;
19137: END IF;
19130: x_stream_types_tbl => l_req_stream_types_tbl);
19131: --Added for Debugging
19132: write_to_log('After the call to check_for_mandatory_streams, the return status is :'||x_return_status);
19133: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
19134: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
19135: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
19136: RAISE OKL_API.G_EXCEPTION_ERROR;
19137: END IF;
19138: -- Requesting for yields
19131: --Added for Debugging
19132: write_to_log('After the call to check_for_mandatory_streams, the return status is :'||x_return_status);
19133: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
19134: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
19135: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
19136: RAISE OKL_API.G_EXCEPTION_ERROR;
19137: END IF;
19138: -- Requesting for yields
19139: x_return_status := yield_request(x_csm_yields_tbl => l_csm_yields_tbl);
19132: write_to_log('After the call to check_for_mandatory_streams, the return status is :'||x_return_status);
19133: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
19134: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
19135: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
19136: RAISE OKL_API.G_EXCEPTION_ERROR;
19137: END IF;
19138: -- Requesting for yields
19139: x_return_status := yield_request(x_csm_yields_tbl => l_csm_yields_tbl);
19140: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
19136: RAISE OKL_API.G_EXCEPTION_ERROR;
19137: END IF;
19138: -- Requesting for yields
19139: x_return_status := yield_request(x_csm_yields_tbl => l_csm_yields_tbl);
19140: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
19141: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
19142: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
19143: RAISE OKL_API.G_EXCEPTION_ERROR;
19144: END IF;
19137: END IF;
19138: -- Requesting for yields
19139: x_return_status := yield_request(x_csm_yields_tbl => l_csm_yields_tbl);
19140: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
19141: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
19142: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
19143: RAISE OKL_API.G_EXCEPTION_ERROR;
19144: END IF;
19145: -- Extract Subsidy line
19138: -- Requesting for yields
19139: x_return_status := yield_request(x_csm_yields_tbl => l_csm_yields_tbl);
19140: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
19141: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
19142: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
19143: RAISE OKL_API.G_EXCEPTION_ERROR;
19144: END IF;
19145: -- Extract Subsidy line
19146: extract_subsidized_lines(p_api_version => p_api_version,
19139: x_return_status := yield_request(x_csm_yields_tbl => l_csm_yields_tbl);
19140: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
19141: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
19142: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
19143: RAISE OKL_API.G_EXCEPTION_ERROR;
19144: END IF;
19145: -- Extract Subsidy line
19146: extract_subsidized_lines(p_api_version => p_api_version,
19147: p_init_msg_list => p_init_msg_list,
19152: px_csm_one_off_fee_tbl => l_csm_one_off_fee_tbl);
19153: --Added by kthiruva for debugging
19154: write_to_log('After the call to extract_subsidized_lines, the return status is :'||x_return_status);
19155:
19156: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
19157: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
19158: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
19159: RAISE OKL_API.G_EXCEPTION_ERROR;
19160: END IF;
19153: --Added by kthiruva for debugging
19154: write_to_log('After the call to extract_subsidized_lines, the return status is :'||x_return_status);
19155:
19156: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
19157: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
19158: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
19159: RAISE OKL_API.G_EXCEPTION_ERROR;
19160: END IF;
19161: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
19154: write_to_log('After the call to extract_subsidized_lines, the return status is :'||x_return_status);
19155:
19156: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
19157: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
19158: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
19159: RAISE OKL_API.G_EXCEPTION_ERROR;
19160: END IF;
19161: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
19162: okl_api.set_message(p_app_name => G_APP_NAME,
19155:
19156: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
19157: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
19158: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
19159: RAISE OKL_API.G_EXCEPTION_ERROR;
19160: END IF;
19161: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
19162: okl_api.set_message(p_app_name => G_APP_NAME,
19163: p_msg_name => 'OKL_LLA_REPSTRMS_EXTR_FAILED');
19157: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
19158: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
19159: RAISE OKL_API.G_EXCEPTION_ERROR;
19160: END IF;
19161: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
19162: okl_api.set_message(p_app_name => G_APP_NAME,
19163: p_msg_name => 'OKL_LLA_REPSTRMS_EXTR_FAILED');
19164: RAISE OKL_API.G_EXCEPTION_ERROR;
19165: END IF;
19158: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
19159: RAISE OKL_API.G_EXCEPTION_ERROR;
19160: END IF;
19161: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
19162: okl_api.set_message(p_app_name => G_APP_NAME,
19163: p_msg_name => 'OKL_LLA_REPSTRMS_EXTR_FAILED');
19164: RAISE OKL_API.G_EXCEPTION_ERROR;
19165: END IF;
19166: x_csm_lease_header := l_csm_lease_header;
19160: END IF;
19161: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
19162: okl_api.set_message(p_app_name => G_APP_NAME,
19163: p_msg_name => 'OKL_LLA_REPSTRMS_EXTR_FAILED');
19164: RAISE OKL_API.G_EXCEPTION_ERROR;
19165: END IF;
19166: x_csm_lease_header := l_csm_lease_header;
19167: x_csm_one_off_fee_tbl := l_csm_one_off_fee_tbl;
19168: x_csm_periodic_expenses_tbl := l_csm_periodic_expenses_tbl;
19169: x_csm_yields_tbl := l_csm_yields_tbl;
19170: x_req_stream_types_tbl := l_req_stream_types_tbl;
19171: x_csm_line_details_tbl := l_csm_line_details_tbl;
19172: x_rents_tbl := l_rents_tbl;
19173: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
19174: x_msg_data => x_msg_data);
19175: EXCEPTION
19176: WHEN OKL_API.G_EXCEPTION_ERROR then
19177: IF l_hdr_csr_lease%ISOPEN THEN
19172: x_rents_tbl := l_rents_tbl;
19173: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
19174: x_msg_data => x_msg_data);
19175: EXCEPTION
19176: WHEN OKL_API.G_EXCEPTION_ERROR then
19177: IF l_hdr_csr_lease%ISOPEN THEN
19178: CLOSE l_hdr_csr_lease;
19179: END IF;
19180: IF l_line_rec_csr_lease%ISOPEN THEN
19209: END IF;
19210: IF l_txtrans_csr_lease%ISOPEN THEN
19211: CLOSE l_txtrans_csr_lease;
19212: END IF;
19213: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
19214: l_api_name,
19215: G_PKG_NAME,
19216: 'OKL_API.G_RET_STS_ERROR',
19217: x_msg_count,
19212: END IF;
19213: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
19214: l_api_name,
19215: G_PKG_NAME,
19216: 'OKL_API.G_RET_STS_ERROR',
19217: x_msg_count,
19218: x_msg_data,
19219: '_PVT');
19220: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
19216: 'OKL_API.G_RET_STS_ERROR',
19217: x_msg_count,
19218: x_msg_data,
19219: '_PVT');
19220: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
19221: IF l_hdr_csr_lease%ISOPEN THEN
19222: CLOSE l_hdr_csr_lease;
19223: END IF;
19224: IF l_line_rec_csr_lease%ISOPEN THEN
19253: END IF;
19254: IF l_txtrans_csr_lease%ISOPEN THEN
19255: CLOSE l_txtrans_csr_lease;
19256: END IF;
19257: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
19258: l_api_name,
19259: G_PKG_NAME,
19260: 'OKL_API.G_RET_STS_UNEXP_ERROR',
19261: x_msg_count,
19256: END IF;
19257: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
19258: l_api_name,
19259: G_PKG_NAME,
19260: 'OKL_API.G_RET_STS_UNEXP_ERROR',
19261: x_msg_count,
19262: x_msg_data,
19263: '_PVT');
19264: WHEN OTHERS then
19297: END IF;
19298: IF l_txtrans_csr_lease%ISOPEN THEN
19299: CLOSE l_txtrans_csr_lease;
19300: END IF;
19301: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
19302: l_api_name,
19303: G_PKG_NAME,
19304: 'OTHERS',
19305: x_msg_count,
19308: END extract_params_lease_deal;
19309: -- End modification 11i10 bakuchib
19310: Procedure extract_params_lease(
19311: p_api_version IN NUMBER,
19312: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
19313: p_chr_id IN VARCHAR2,
19314: x_return_status OUT NOCOPY VARCHAR2,
19315: x_msg_count OUT NOCOPY NUMBER,
19316: x_msg_data OUT NOCOPY VARCHAR2,
19323: x_rents_tbl OUT NOCOPY okl_create_streams_pub.csm_periodic_expenses_tbl_type) AS
19324:
19325: l_api_name CONSTANT VARCHAR2(30) := 'EXTRACT_PARAMS_LEASE';
19326: l_api_version CONSTANT NUMBER := 1;
19327: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
19328:
19329: Begin
19330:
19331: print( l_api_name, 'begin');
19348: End extract_params_lease;
19349:
19350: Procedure generate_reporting_streams(
19351: p_api_version IN NUMBER,
19352: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
19353: p_chr_id IN VARCHAR2,
19354: p_report_deal_type IN VARCHAR2,
19355: p_generation_context IN VARCHAR2,
19356: p_skip_prc_engine IN VARCHAR2,
19361: x_trans_status OUT NOCOPY VARCHAR2) AS
19362:
19363: l_api_name CONSTANT VARCHAR2(30) := 'GEN_REPORT_STREAMS';
19364: l_api_version CONSTANT NUMBER := 1;
19365: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
19366: l_fnd_rec fnd_lookups_csr%ROWTYPE;
19367:
19368: l_isStrmGenAllowed BOOLEAN := TRUE;
19369: l_passStatus VARCHAR2(256);
19415:
19416:
19417: print( l_api_name, 'begin');
19418:
19419: x_return_status := OKL_API.G_RET_STS_SUCCESS;
19420:
19421: x_return_status := OKL_API.START_ACTIVITY(
19422: p_api_name => l_api_name,
19423: p_pkg_name => g_pkg_name,
19417: print( l_api_name, 'begin');
19418:
19419: x_return_status := OKL_API.G_RET_STS_SUCCESS;
19420:
19421: x_return_status := OKL_API.START_ACTIVITY(
19422: p_api_name => l_api_name,
19423: p_pkg_name => g_pkg_name,
19424: p_init_msg_list => p_init_msg_list,
19425: l_api_version => l_api_version,
19427: p_api_type => G_API_TYPE,
19428: x_return_status => x_return_status);
19429:
19430: -- check if activity started successfully
19431: If (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
19432: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
19433: ElSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
19434: raise OKL_API.G_EXCEPTION_ERROR;
19435: End If;
19428: x_return_status => x_return_status);
19429:
19430: -- check if activity started successfully
19431: If (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
19432: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
19433: ElSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
19434: raise OKL_API.G_EXCEPTION_ERROR;
19435: End If;
19436:
19429:
19430: -- check if activity started successfully
19431: If (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
19432: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
19433: ElSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
19434: raise OKL_API.G_EXCEPTION_ERROR;
19435: End If;
19436:
19437: print( l_api_name, 'Reporting Deal Type='||p_report_deal_type);
19430: -- check if activity started successfully
19431: If (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
19432: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
19433: ElSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
19434: raise OKL_API.G_EXCEPTION_ERROR;
19435: End If;
19436:
19437: print( l_api_name, 'Reporting Deal Type='||p_report_deal_type);
19438:
19454: x_req_stream_types_tbl,
19455: x_csm_line_details_tbl,
19456: x_rents_tbl);
19457:
19458: If (x_return_status <> OKL_API.G_RET_STS_SUCCESS) then -- Modified 06/14/2002. dedey
19459: okl_api.set_message(
19460: p_app_name => G_APP_NAME,
19461: p_msg_name => 'OKL_LLA_REPSTRMS_EXTR_FAILED');
19462: raise OKL_API.G_EXCEPTION_ERROR;
19455: x_csm_line_details_tbl,
19456: x_rents_tbl);
19457:
19458: If (x_return_status <> OKL_API.G_RET_STS_SUCCESS) then -- Modified 06/14/2002. dedey
19459: okl_api.set_message(
19460: p_app_name => G_APP_NAME,
19461: p_msg_name => 'OKL_LLA_REPSTRMS_EXTR_FAILED');
19462: raise OKL_API.G_EXCEPTION_ERROR;
19463: End If;
19458: If (x_return_status <> OKL_API.G_RET_STS_SUCCESS) then -- Modified 06/14/2002. dedey
19459: okl_api.set_message(
19460: p_app_name => G_APP_NAME,
19461: p_msg_name => 'OKL_LLA_REPSTRMS_EXTR_FAILED');
19462: raise OKL_API.G_EXCEPTION_ERROR;
19463: End If;
19464:
19465: x_csm_lease_header.purpose_code := 'REPORT';
19466: x_csm_lease_header.sif_id := x_request_id;
19481: x_return_status,
19482: x_msg_count,
19483: x_msg_data);
19484: -- rabhupat BUG#4259056 start
19485: If (x_return_status <> OKL_API.G_RET_STS_SUCCESS) then
19486: -- rabhupat BUG#4259056 end
19487: okl_api.set_message(
19488: p_app_name => G_APP_NAME,
19489: p_msg_name => 'OKL_LLA_REPSTRMS_REQ_FLD');
19483: x_msg_data);
19484: -- rabhupat BUG#4259056 start
19485: If (x_return_status <> OKL_API.G_RET_STS_SUCCESS) then
19486: -- rabhupat BUG#4259056 end
19487: okl_api.set_message(
19488: p_app_name => G_APP_NAME,
19489: p_msg_name => 'OKL_LLA_REPSTRMS_REQ_FLD');
19490: raise OKL_API.G_EXCEPTION_ERROR;
19491: End If;
19486: -- rabhupat BUG#4259056 end
19487: okl_api.set_message(
19488: p_app_name => G_APP_NAME,
19489: p_msg_name => 'OKL_LLA_REPSTRMS_REQ_FLD');
19490: raise OKL_API.G_EXCEPTION_ERROR;
19491: End If;
19492:
19493: ELSIF (INSTR(p_report_deal_type, 'LOAN') > 0) THEN
19494: -- Reporting loan streams were not getting generated- hkpatel- Bug 4734085
19511: x_csm_stream_types_tbl);
19512:
19513: --Added by kthiruva for Debugging
19514: write_to_log('After the call to extract_params_loan, the return status is :'||x_return_status);
19515: If (x_return_status <> OKL_API.G_RET_STS_SUCCESS) then
19516: okl_api.set_message(
19517: p_app_name => G_APP_NAME,
19518: p_msg_name => 'OKL_LLA_GENSTRMS_EXTR_FAILED');
19519: raise OKL_API.G_EXCEPTION_ERROR;
19512:
19513: --Added by kthiruva for Debugging
19514: write_to_log('After the call to extract_params_loan, the return status is :'||x_return_status);
19515: If (x_return_status <> OKL_API.G_RET_STS_SUCCESS) then
19516: okl_api.set_message(
19517: p_app_name => G_APP_NAME,
19518: p_msg_name => 'OKL_LLA_GENSTRMS_EXTR_FAILED');
19519: raise OKL_API.G_EXCEPTION_ERROR;
19520: End If;
19515: If (x_return_status <> OKL_API.G_RET_STS_SUCCESS) then
19516: okl_api.set_message(
19517: p_app_name => G_APP_NAME,
19518: p_msg_name => 'OKL_LLA_GENSTRMS_EXTR_FAILED');
19519: raise OKL_API.G_EXCEPTION_ERROR;
19520: End If;
19521:
19522: x_csm_loan_header.purpose_code := 'REPORT';
19523: x_csm_loan_header.sif_id := x_request_id;
19539: x_msg_count => x_msg_count,
19540: x_msg_data => x_msg_data);
19541:
19542: -- rabhupat BUG#4259056 start
19543: If (x_return_status <> OKL_API.G_RET_STS_SUCCESS) then
19544: -- rabhupat BUG#4259056 end
19545: okl_api.set_message(
19546: p_app_name => G_APP_NAME,
19547: p_msg_name => 'OKL_LLA_REPSTRMS_REQ_FLD');
19541:
19542: -- rabhupat BUG#4259056 start
19543: If (x_return_status <> OKL_API.G_RET_STS_SUCCESS) then
19544: -- rabhupat BUG#4259056 end
19545: okl_api.set_message(
19546: p_app_name => G_APP_NAME,
19547: p_msg_name => 'OKL_LLA_REPSTRMS_REQ_FLD');
19548: raise OKL_API.G_EXCEPTION_ERROR;
19549: End If;
19544: -- rabhupat BUG#4259056 end
19545: okl_api.set_message(
19546: p_app_name => G_APP_NAME,
19547: p_msg_name => 'OKL_LLA_REPSTRMS_REQ_FLD');
19548: raise OKL_API.G_EXCEPTION_ERROR;
19549: End If;
19550: ELSE
19551: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
19552: END IF;
19547: p_msg_name => 'OKL_LLA_REPSTRMS_REQ_FLD');
19548: raise OKL_API.G_EXCEPTION_ERROR;
19549: End If;
19550: ELSE
19551: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
19552: END IF;
19553:
19554:
19555: If (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
19551: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
19552: END IF;
19553:
19554:
19555: If (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
19556: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
19557: ElSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
19558: raise OKL_API.G_EXCEPTION_ERROR;
19559: End If;
19552: END IF;
19553:
19554:
19555: If (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
19556: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
19557: ElSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
19558: raise OKL_API.G_EXCEPTION_ERROR;
19559: End If;
19560:
19553:
19554:
19555: If (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
19556: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
19557: ElSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
19558: raise OKL_API.G_EXCEPTION_ERROR;
19559: End If;
19560:
19561: print( l_api_name, 'end', x_return_status);
19554:
19555: If (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
19556: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
19557: ElSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
19558: raise OKL_API.G_EXCEPTION_ERROR;
19559: End If;
19560:
19561: print( l_api_name, 'end', x_return_status);
19562: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
19558: raise OKL_API.G_EXCEPTION_ERROR;
19559: End If;
19560:
19561: print( l_api_name, 'end', x_return_status);
19562: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
19563:
19564: Exception
19565: when OKL_API.G_EXCEPTION_ERROR then
19566: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
19561: print( l_api_name, 'end', x_return_status);
19562: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
19563:
19564: Exception
19565: when OKL_API.G_EXCEPTION_ERROR then
19566: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
19567: p_api_name => l_api_name,
19568: p_pkg_name => g_pkg_name,
19569: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
19562: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
19563:
19564: Exception
19565: when OKL_API.G_EXCEPTION_ERROR then
19566: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
19567: p_api_name => l_api_name,
19568: p_pkg_name => g_pkg_name,
19569: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
19570: x_msg_count => x_msg_count,
19565: when OKL_API.G_EXCEPTION_ERROR then
19566: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
19567: p_api_name => l_api_name,
19568: p_pkg_name => g_pkg_name,
19569: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
19570: x_msg_count => x_msg_count,
19571: x_msg_data => x_msg_data,
19572: p_api_type => g_api_type);
19573:
19570: x_msg_count => x_msg_count,
19571: x_msg_data => x_msg_data,
19572: p_api_type => g_api_type);
19573:
19574: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
19575: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
19576: p_api_name => l_api_name,
19577: p_pkg_name => g_pkg_name,
19578: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
19571: x_msg_data => x_msg_data,
19572: p_api_type => g_api_type);
19573:
19574: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
19575: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
19576: p_api_name => l_api_name,
19577: p_pkg_name => g_pkg_name,
19578: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
19579: x_msg_count => x_msg_count,
19574: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
19575: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
19576: p_api_name => l_api_name,
19577: p_pkg_name => g_pkg_name,
19578: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
19579: x_msg_count => x_msg_count,
19580: x_msg_data => x_msg_data,
19581: p_api_type => g_api_type);
19582:
19580: x_msg_data => x_msg_data,
19581: p_api_type => g_api_type);
19582:
19583: when OTHERS then
19584: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
19585: p_api_name => l_api_name,
19586: p_pkg_name => g_pkg_name,
19587: p_exc_name => 'OTHERS',
19588: x_msg_count => x_msg_count,
19592: END generate_reporting_streams;
19593:
19594: Procedure generate_streams(
19595: p_api_version IN NUMBER,
19596: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
19597: p_chr_id IN VARCHAR2,
19598: p_generation_context IN VARCHAR2,
19599: p_skip_prc_engine IN VARCHAR2,
19600: x_return_status OUT NOCOPY VARCHAR2,
19670: BEGIN
19671: --Added by kthiruva for Debugging
19672: write_to_log('Inside the call to generate_streams');
19673:
19674: x_return_status := OKL_API.G_RET_STS_SUCCESS;
19675: x_return_status := OKL_API.START_ACTIVITY(
19676: p_api_name => l_api_name,
19677: p_pkg_name => g_pkg_name,
19678: p_init_msg_list => p_init_msg_list,
19671: --Added by kthiruva for Debugging
19672: write_to_log('Inside the call to generate_streams');
19673:
19674: x_return_status := OKL_API.G_RET_STS_SUCCESS;
19675: x_return_status := OKL_API.START_ACTIVITY(
19676: p_api_name => l_api_name,
19677: p_pkg_name => g_pkg_name,
19678: p_init_msg_list => p_init_msg_list,
19679: l_api_version => l_api_version,
19680: p_api_version => p_api_version,
19681: p_api_type => G_API_TYPE,
19682: x_return_status => x_return_status);
19683: -- check if activity started successfully
19684: If (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
19685: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
19686: ElSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
19687: raise OKL_API.G_EXCEPTION_ERROR;
19688: End If;
19681: p_api_type => G_API_TYPE,
19682: x_return_status => x_return_status);
19683: -- check if activity started successfully
19684: If (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
19685: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
19686: ElSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
19687: raise OKL_API.G_EXCEPTION_ERROR;
19688: End If;
19689:
19682: x_return_status => x_return_status);
19683: -- check if activity started successfully
19684: If (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
19685: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
19686: ElSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
19687: raise OKL_API.G_EXCEPTION_ERROR;
19688: End If;
19689:
19690: -- 2. type of contract lease/loan
19683: -- check if activity started successfully
19684: If (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
19685: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
19686: ElSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
19687: raise OKL_API.G_EXCEPTION_ERROR;
19688: End If;
19689:
19690: -- 2. type of contract lease/loan
19691: OPEN l_hdr_csr(p_chr_id);
19691: OPEN l_hdr_csr(p_chr_id);
19692: FETCH l_hdr_csr into l_hdr_rec;
19693: IF l_hdr_csr%NOTFOUND THEN
19694: CLOSE l_hdr_csr;
19695: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
19696: END IF;
19697: CLOSE l_hdr_csr;
19698:
19699: IF (l_hdr_rec.template_yn = 'Y') Then
19696: END IF;
19697: CLOSE l_hdr_csr;
19698:
19699: IF (l_hdr_rec.template_yn = 'Y') Then
19700: x_return_status := OKL_API.G_RET_STS_ERROR;
19701: OKL_API.set_message(
19702: p_app_name => G_APP_NAME,
19703: p_msg_name => 'OKL_LLA_NO_STRM_TMPLTC');
19704: return;
19697: CLOSE l_hdr_csr;
19698:
19699: IF (l_hdr_rec.template_yn = 'Y') Then
19700: x_return_status := OKL_API.G_RET_STS_ERROR;
19701: OKL_API.set_message(
19702: p_app_name => G_APP_NAME,
19703: p_msg_name => 'OKL_LLA_NO_STRM_TMPLTC');
19704: return;
19705: END IF;
19713: l_failStatus,
19714: OKL_CONTRACT_STATUS_PUB.G_K_STRMGEN,
19715: p_chr_id);
19716: If ( NOT (l_isStrmGenAllowed )) then
19717: x_return_status := OKL_API.G_RET_STS_ERROR;
19718: okl_api.set_message(
19719: p_app_name => G_APP_NAME,
19720: p_msg_name => OKL_CONTRACT_STATUS_PUB.G_CANNOT_GENSTRMS);
19721: return;
19714: OKL_CONTRACT_STATUS_PUB.G_K_STRMGEN,
19715: p_chr_id);
19716: If ( NOT (l_isStrmGenAllowed )) then
19717: x_return_status := OKL_API.G_RET_STS_ERROR;
19718: okl_api.set_message(
19719: p_app_name => G_APP_NAME,
19720: p_msg_name => OKL_CONTRACT_STATUS_PUB.G_CANNOT_GENSTRMS);
19721: return;
19722: ElsIf (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
19718: okl_api.set_message(
19719: p_app_name => G_APP_NAME,
19720: p_msg_name => OKL_CONTRACT_STATUS_PUB.G_CANNOT_GENSTRMS);
19721: return;
19722: ElsIf (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
19723: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
19724: ElSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
19725: raise OKL_API.G_EXCEPTION_ERROR;
19726: End If;
19719: p_app_name => G_APP_NAME,
19720: p_msg_name => OKL_CONTRACT_STATUS_PUB.G_CANNOT_GENSTRMS);
19721: return;
19722: ElsIf (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
19723: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
19724: ElSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
19725: raise OKL_API.G_EXCEPTION_ERROR;
19726: End If;
19727:
19720: p_msg_name => OKL_CONTRACT_STATUS_PUB.G_CANNOT_GENSTRMS);
19721: return;
19722: ElsIf (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
19723: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
19724: ElSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
19725: raise OKL_API.G_EXCEPTION_ERROR;
19726: End If;
19727:
19728: print( l_api_name, 'Contract Status Check', x_return_status);
19721: return;
19722: ElsIf (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
19723: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
19724: ElSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
19725: raise OKL_API.G_EXCEPTION_ERROR;
19726: End If;
19727:
19728: print( l_api_name, 'Contract Status Check', x_return_status);
19729: FOR l_nullrl_rec in l_nullrl_csr ( 'LALEVL', 'LASLL', p_chr_id )
19756: x_msg_count => x_msg_count,
19757: x_msg_data => x_msg_data,
19758: p_chr_id => p_chr_id);
19759:
19760: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
19761: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
19762: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
19763: raise OKL_API.G_EXCEPTION_ERROR;
19764: END IF;
19757: x_msg_data => x_msg_data,
19758: p_chr_id => p_chr_id);
19759:
19760: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
19761: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
19762: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
19763: raise OKL_API.G_EXCEPTION_ERROR;
19764: END IF;
19765:
19758: p_chr_id => p_chr_id);
19759:
19760: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
19761: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
19762: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
19763: raise OKL_API.G_EXCEPTION_ERROR;
19764: END IF;
19765:
19766: IF (INSTR( l_hdr_rec.deal_type, 'LEASE') > 0) THEN
19759:
19760: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
19761: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
19762: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
19763: raise OKL_API.G_EXCEPTION_ERROR;
19764: END IF;
19765:
19766: IF (INSTR( l_hdr_rec.deal_type, 'LEASE') > 0) THEN
19767: --Added by kthiruva for Debugging
19785:
19786: --Added by kthiruva for Debugging
19787: write_to_log('After the call to extract_params_lease, the return status is :'||x_return_status);
19788:
19789: If (x_return_status <> OKL_API.G_RET_STS_SUCCESS) then -- Modified 06/14/2002. dedey
19790: okl_api.set_message(
19791: p_app_name => G_APP_NAME,
19792: p_msg_name => 'OKL_LLA_GENSTRMS_EXTR_FAILED');
19793: raise OKL_API.G_EXCEPTION_ERROR;
19786: --Added by kthiruva for Debugging
19787: write_to_log('After the call to extract_params_lease, the return status is :'||x_return_status);
19788:
19789: If (x_return_status <> OKL_API.G_RET_STS_SUCCESS) then -- Modified 06/14/2002. dedey
19790: okl_api.set_message(
19791: p_app_name => G_APP_NAME,
19792: p_msg_name => 'OKL_LLA_GENSTRMS_EXTR_FAILED');
19793: raise OKL_API.G_EXCEPTION_ERROR;
19794: End If;
19789: If (x_return_status <> OKL_API.G_RET_STS_SUCCESS) then -- Modified 06/14/2002. dedey
19790: okl_api.set_message(
19791: p_app_name => G_APP_NAME,
19792: p_msg_name => 'OKL_LLA_GENSTRMS_EXTR_FAILED');
19793: raise OKL_API.G_EXCEPTION_ERROR;
19794: End If;
19795:
19796: -- FOR i in 1..x_req_stream_types_tbl.COUNT
19797: -- LOOP
19819:
19820: --Added by kthiruva for Debugging
19821: write_to_log('After the call to create_streams_lease_book, the return status is '||x_return_status);
19822:
19823: If (x_return_status <> OKL_API.G_RET_STS_SUCCESS) then
19824: okl_api.set_message(
19825: p_app_name => G_APP_NAME,
19826: p_msg_name => OKL_CONTRACT_STATUS_PUB.G_GENSTRMS_REQ_FAILED);
19827: raise OKL_API.G_EXCEPTION_ERROR;
19820: --Added by kthiruva for Debugging
19821: write_to_log('After the call to create_streams_lease_book, the return status is '||x_return_status);
19822:
19823: If (x_return_status <> OKL_API.G_RET_STS_SUCCESS) then
19824: okl_api.set_message(
19825: p_app_name => G_APP_NAME,
19826: p_msg_name => OKL_CONTRACT_STATUS_PUB.G_GENSTRMS_REQ_FAILED);
19827: raise OKL_API.G_EXCEPTION_ERROR;
19828: End If;
19823: If (x_return_status <> OKL_API.G_RET_STS_SUCCESS) then
19824: okl_api.set_message(
19825: p_app_name => G_APP_NAME,
19826: p_msg_name => OKL_CONTRACT_STATUS_PUB.G_GENSTRMS_REQ_FAILED);
19827: raise OKL_API.G_EXCEPTION_ERROR;
19828: End If;
19829:
19830: ELSIF (INSTR(l_hdr_rec.deal_type, 'LOAN') > 0) THEN
19831:
19848: x_csm_stream_types_tbl);
19849:
19850: --Added by kthiruva for Debugging
19851: write_to_log('After the call to extract_params_loan, the return status is :'||x_return_status);
19852: If (x_return_status <> OKL_API.G_RET_STS_SUCCESS) then
19853: okl_api.set_message(
19854: p_app_name => G_APP_NAME,
19855: p_msg_name => 'OKL_LLA_GENSTRMS_EXTR_FAILED');
19856: raise OKL_API.G_EXCEPTION_ERROR;
19849:
19850: --Added by kthiruva for Debugging
19851: write_to_log('After the call to extract_params_loan, the return status is :'||x_return_status);
19852: If (x_return_status <> OKL_API.G_RET_STS_SUCCESS) then
19853: okl_api.set_message(
19854: p_app_name => G_APP_NAME,
19855: p_msg_name => 'OKL_LLA_GENSTRMS_EXTR_FAILED');
19856: raise OKL_API.G_EXCEPTION_ERROR;
19857: End If;
19852: If (x_return_status <> OKL_API.G_RET_STS_SUCCESS) then
19853: okl_api.set_message(
19854: p_app_name => G_APP_NAME,
19855: p_msg_name => 'OKL_LLA_GENSTRMS_EXTR_FAILED');
19856: raise OKL_API.G_EXCEPTION_ERROR;
19857: End If;
19858:
19859: okl_create_streams_pub.create_streams_loan_book(
19860: p_api_version => p_api_version,
19875:
19876: --Added by kthiruva for Debugging
19877: write_to_log('After the call to create_streams_loan_book, the return status is '||x_return_status);
19878:
19879: If (x_return_status <> OKL_API.G_RET_STS_SUCCESS) then
19880: okl_api.set_message(
19881: p_app_name => G_APP_NAME,
19882: p_msg_name => OKL_CONTRACT_STATUS_PUB.G_GENSTRMS_REQ_FAILED);
19883: raise OKL_API.G_EXCEPTION_ERROR;
19876: --Added by kthiruva for Debugging
19877: write_to_log('After the call to create_streams_loan_book, the return status is '||x_return_status);
19878:
19879: If (x_return_status <> OKL_API.G_RET_STS_SUCCESS) then
19880: okl_api.set_message(
19881: p_app_name => G_APP_NAME,
19882: p_msg_name => OKL_CONTRACT_STATUS_PUB.G_GENSTRMS_REQ_FAILED);
19883: raise OKL_API.G_EXCEPTION_ERROR;
19884: End If;
19879: If (x_return_status <> OKL_API.G_RET_STS_SUCCESS) then
19880: okl_api.set_message(
19881: p_app_name => G_APP_NAME,
19882: p_msg_name => OKL_CONTRACT_STATUS_PUB.G_GENSTRMS_REQ_FAILED);
19883: raise OKL_API.G_EXCEPTION_ERROR;
19884: End If;
19885: ELSE
19886: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
19887: END IF;
19882: p_msg_name => OKL_CONTRACT_STATUS_PUB.G_GENSTRMS_REQ_FAILED);
19883: raise OKL_API.G_EXCEPTION_ERROR;
19884: End If;
19885: ELSE
19886: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
19887: END IF;
19888: If ( l_hdr_rec.report_pdt_id <> -1 ) Then
19889:
19890: --Added for Debugging
19902: p_pdt_parameter_rec => x_pdt_parameter_rec);
19903: --Added by kthiruva for Debugging
19904: write_to_log('After the call to OKL_SETUPPRODUCTS_PVT.Getpdt_parameters, return status is :'||x_return_status);
19905:
19906: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
19907: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
19908: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
19909: RAISE OKL_API.G_EXCEPTION_ERROR;
19910: END IF;
19903: --Added by kthiruva for Debugging
19904: write_to_log('After the call to OKL_SETUPPRODUCTS_PVT.Getpdt_parameters, return status is :'||x_return_status);
19905:
19906: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
19907: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
19908: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
19909: RAISE OKL_API.G_EXCEPTION_ERROR;
19910: END IF;
19911:
19904: write_to_log('After the call to OKL_SETUPPRODUCTS_PVT.Getpdt_parameters, return status is :'||x_return_status);
19905:
19906: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
19907: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
19908: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
19909: RAISE OKL_API.G_EXCEPTION_ERROR;
19910: END IF;
19911:
19912: --Added by kthiruva for Debugging
19905:
19906: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
19907: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
19908: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
19909: RAISE OKL_API.G_EXCEPTION_ERROR;
19910: END IF;
19911:
19912: --Added by kthiruva for Debugging
19913: write_to_log('Prior to the call to generate_reporting_streams');
19926: x_trans_status => x_trans_status);
19927:
19928: --Added by kthiruva for Debugging
19929: write_to_log('After the call to generate_reporting_streams, return status is :'||x_return_status);
19930: If (x_return_status <> OKL_API.G_RET_STS_SUCCESS) then
19931:
19932: okl_api.set_message(
19933: p_app_name => G_APP_NAME,
19934: p_msg_name => 'OKL_LLA_REPSTRMS_REQ_FAILED');
19928: --Added by kthiruva for Debugging
19929: write_to_log('After the call to generate_reporting_streams, return status is :'||x_return_status);
19930: If (x_return_status <> OKL_API.G_RET_STS_SUCCESS) then
19931:
19932: okl_api.set_message(
19933: p_app_name => G_APP_NAME,
19934: p_msg_name => 'OKL_LLA_REPSTRMS_REQ_FAILED');
19935: raise OKL_API.G_EXCEPTION_ERROR;
19936:
19931:
19932: okl_api.set_message(
19933: p_app_name => G_APP_NAME,
19934: p_msg_name => 'OKL_LLA_REPSTRMS_REQ_FAILED');
19935: raise OKL_API.G_EXCEPTION_ERROR;
19936:
19937: End If;
19938:
19939:
19938:
19939:
19940: End If;
19941:
19942: If (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
19943: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
19944: ElSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
19945: raise OKL_API.G_EXCEPTION_ERROR;
19946: End If;
19939:
19940: End If;
19941:
19942: If (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
19943: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
19944: ElSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
19945: raise OKL_API.G_EXCEPTION_ERROR;
19946: End If;
19947:
19940: End If;
19941:
19942: If (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
19943: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
19944: ElSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
19945: raise OKL_API.G_EXCEPTION_ERROR;
19946: End If;
19947:
19948: print( l_api_name, 'end', x_return_status);
19941:
19942: If (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
19943: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
19944: ElSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
19945: raise OKL_API.G_EXCEPTION_ERROR;
19946: End If;
19947:
19948: print( l_api_name, 'end', x_return_status);
19949: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
19945: raise OKL_API.G_EXCEPTION_ERROR;
19946: End If;
19947:
19948: print( l_api_name, 'end', x_return_status);
19949: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
19950:
19951: Exception
19952: when OKL_API.G_EXCEPTION_ERROR then
19953: --srsreeni bug6011651 starts
19948: print( l_api_name, 'end', x_return_status);
19949: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
19950:
19951: Exception
19952: when OKL_API.G_EXCEPTION_ERROR then
19953: --srsreeni bug6011651 starts
19954: OKL_BOOK_CONTROLLER_PVT.update_book_controller_trx(
19955: p_api_version => p_api_version,
19956: p_init_msg_list => p_init_msg_list,
19960: p_khr_id => p_chr_id,
19961: p_prog_short_name => OKL_BOOK_CONTROLLER_PVT.G_PRICE_CONTRACT,
19962: p_progress_status => OKL_BOOK_CONTROLLER_PVT.G_PROG_STS_ERROR);
19963: --srsreeni bug6011651 ends
19964: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
19965: p_api_name => l_api_name,
19966: p_pkg_name => g_pkg_name,
19967: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
19968: x_msg_count => x_msg_count,
19963: --srsreeni bug6011651 ends
19964: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
19965: p_api_name => l_api_name,
19966: p_pkg_name => g_pkg_name,
19967: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
19968: x_msg_count => x_msg_count,
19969: x_msg_data => x_msg_data,
19970: p_api_type => g_api_type);
19971:
19968: x_msg_count => x_msg_count,
19969: x_msg_data => x_msg_data,
19970: p_api_type => g_api_type);
19971:
19972: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
19973: --srsreeni bug6011651 starts
19974: OKL_BOOK_CONTROLLER_PVT.update_book_controller_trx(
19975: p_api_version => p_api_version,
19976: p_init_msg_list => p_init_msg_list,
19980: p_khr_id => p_chr_id,
19981: p_prog_short_name => OKL_BOOK_CONTROLLER_PVT.G_PRICE_CONTRACT,
19982: p_progress_status => OKL_BOOK_CONTROLLER_PVT.G_PROG_STS_ERROR);
19983: --srsreeni bug6011651 ends
19984: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
19985: p_api_name => l_api_name,
19986: p_pkg_name => g_pkg_name,
19987: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
19988: x_msg_count => x_msg_count,
19983: --srsreeni bug6011651 ends
19984: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
19985: p_api_name => l_api_name,
19986: p_pkg_name => g_pkg_name,
19987: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
19988: x_msg_count => x_msg_count,
19989: x_msg_data => x_msg_data,
19990: p_api_type => g_api_type);
19991:
20000: p_khr_id => p_chr_id,
20001: p_prog_short_name => OKL_BOOK_CONTROLLER_PVT.G_PRICE_CONTRACT,
20002: p_progress_status => OKL_BOOK_CONTROLLER_PVT.G_PROG_STS_ERROR);
20003: --srsreeni bug6011651 ends
20004: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
20005: p_api_name => l_api_name,
20006: p_pkg_name => g_pkg_name,
20007: p_exc_name => 'OTHERS',
20008: x_msg_count => x_msg_count,
20200: ,p_selv_tbl => l_selv_tbl
20201: ,x_stmv_rec => x_stmv_rec
20202: ,x_selv_tbl => x_selv_tbl);
20203:
20204: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
20205: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
20206: ElSIF (l_return_status = OKL_API.G_RET_STS_ERROR) then
20207: raise OKL_API.G_EXCEPTION_ERROR;
20208: End If;
20201: ,x_stmv_rec => x_stmv_rec
20202: ,x_selv_tbl => x_selv_tbl);
20203:
20204: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
20205: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
20206: ElSIF (l_return_status = OKL_API.G_RET_STS_ERROR) then
20207: raise OKL_API.G_EXCEPTION_ERROR;
20208: End If;
20209:
20202: ,x_selv_tbl => x_selv_tbl);
20203:
20204: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
20205: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
20206: ElSIF (l_return_status = OKL_API.G_RET_STS_ERROR) then
20207: raise OKL_API.G_EXCEPTION_ERROR;
20208: End If;
20209:
20210: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
20203:
20204: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
20205: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
20206: ElSIF (l_return_status = OKL_API.G_RET_STS_ERROR) then
20207: raise OKL_API.G_EXCEPTION_ERROR;
20208: End If;
20209:
20210: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
20211:
20206: ElSIF (l_return_status = OKL_API.G_RET_STS_ERROR) then
20207: raise OKL_API.G_EXCEPTION_ERROR;
20208: End If;
20209:
20210: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
20211:
20212: Exception
20213: when OKC_API.G_EXCEPTION_ERROR then
20214: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
20287: x_msg_data,
20288: 'COMPLETE',
20289: p_chr_id );
20290:
20291: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
20292: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
20293: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
20294: RAISE OKL_API.G_EXCEPTION_ERROR;
20295: END IF;
20288: 'COMPLETE',
20289: p_chr_id );
20290:
20291: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
20292: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
20293: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
20294: RAISE OKL_API.G_EXCEPTION_ERROR;
20295: END IF;
20296:
20289: p_chr_id );
20290:
20291: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
20292: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
20293: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
20294: RAISE OKL_API.G_EXCEPTION_ERROR;
20295: END IF;
20296:
20297: OKL_CONTRACT_STATUS_PVT.cascade_lease_status
20290:
20291: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
20292: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
20293: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
20294: RAISE OKL_API.G_EXCEPTION_ERROR;
20295: END IF;
20296:
20297: OKL_CONTRACT_STATUS_PVT.cascade_lease_status
20298: (p_api_version => p_api_version,
20301: x_msg_count => x_msg_count,
20302: x_msg_data => x_msg_data,
20303: p_chr_id => p_chr_id);
20304:
20305: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
20306: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
20307: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
20308: RAISE OKL_API.G_EXCEPTION_ERROR;
20309: END IF;
20302: x_msg_data => x_msg_data,
20303: p_chr_id => p_chr_id);
20304:
20305: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
20306: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
20307: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
20308: RAISE OKL_API.G_EXCEPTION_ERROR;
20309: END IF;
20310: ---
20303: p_chr_id => p_chr_id);
20304:
20305: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
20306: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
20307: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
20308: RAISE OKL_API.G_EXCEPTION_ERROR;
20309: END IF;
20310: ---
20311:
20304:
20305: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
20306: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
20307: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
20308: RAISE OKL_API.G_EXCEPTION_ERROR;
20309: END IF;
20310: ---
20311:
20312: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
20308: RAISE OKL_API.G_EXCEPTION_ERROR;
20309: END IF;
20310: ---
20311:
20312: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
20313:
20314: Exception
20315: when OKC_API.G_EXCEPTION_ERROR then
20316: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
20356:
20357: l_api_name VARCHAR2(35) := 'gen_intr_extr_stream';
20358: l_proc_name VARCHAR2(35) := 'GEN_INTR_EXTR_STREAM';
20359: l_api_version NUMBER := 1.0;
20360: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
20361:
20362: l_pre_tax_irr NUMBER;
20363:
20364: -- TYPE yields IS TABLE OF yields_rec_type INDEX BY BINARY_INTEGER;
20392: L_DEBUG_ENABLED := OKL_DEBUG_PUB.CHECK_LOG_ENABLED;
20393: write_to_log('Start of Debug Logging for ESG');
20394: write_to_log ('=============================');
20395: print( l_api_name, 'begin');
20396: x_return_status := OKL_API.START_ACTIVITY(
20397: p_api_name => l_api_name,
20398: p_pkg_name => G_PKG_NAME,
20399: p_init_msg_list => p_init_msg_list,
20400: l_api_version => l_api_version,
20402: p_api_type => G_API_TYPE,
20403: x_return_status => x_return_status);
20404:
20405: -- check if activity started successfully
20406: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
20407: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
20408: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
20409: raise OKL_API.G_EXCEPTION_ERROR;
20410: END IF;
20403: x_return_status => x_return_status);
20404:
20405: -- check if activity started successfully
20406: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
20407: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
20408: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
20409: raise OKL_API.G_EXCEPTION_ERROR;
20410: END IF;
20411:
20404:
20405: -- check if activity started successfully
20406: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
20407: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
20408: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
20409: raise OKL_API.G_EXCEPTION_ERROR;
20410: END IF;
20411:
20412: print( l_api_name, 'deleting working streams');
20405: -- check if activity started successfully
20406: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
20407: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
20408: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
20409: raise OKL_API.G_EXCEPTION_ERROR;
20410: END IF;
20411:
20412: print( l_api_name, 'deleting working streams');
20413: delete_working_streams(
20417: x_msg_count => x_msg_count,
20418: x_msg_data => x_msg_data,
20419: p_chr_id => p_khr_id);
20420:
20421: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
20422: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
20423: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
20424: raise OKL_API.G_EXCEPTION_ERROR;
20425: END IF;
20418: x_msg_data => x_msg_data,
20419: p_chr_id => p_khr_id);
20420:
20421: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
20422: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
20423: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
20424: raise OKL_API.G_EXCEPTION_ERROR;
20425: END IF;
20426:
20419: p_chr_id => p_khr_id);
20420:
20421: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
20422: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
20423: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
20424: raise OKL_API.G_EXCEPTION_ERROR;
20425: END IF;
20426:
20427: OPEN l_hdr_csr(p_khr_id);
20420:
20421: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
20422: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
20423: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
20424: raise OKL_API.G_EXCEPTION_ERROR;
20425: END IF;
20426:
20427: OPEN l_hdr_csr(p_khr_id);
20428: FETCH l_hdr_csr into l_hdr_rec;
20428: FETCH l_hdr_csr into l_hdr_rec;
20429: IF l_hdr_csr%NOTFOUND THEN
20430: CLOSE l_hdr_csr;
20431: print( l_api_name, 'header curosr unexpected error');
20432: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
20433: END IF;
20434: CLOSE l_hdr_csr;
20435:
20436: IF ( l_hdr_rec.deal_type = 'LOAN-REVOLVING') Then
20450: x_msg_data => x_msg_data);
20451: --Added by kthiruva for Debugging
20452: write_to_log('After the call to OKL_STREAM_GENERATOR_PUB.GEN_VAR_INT_SCHEDULE, return status is :'||x_return_status);
20453:
20454: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
20455: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
20456: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
20457: raise OKL_API.G_EXCEPTION_ERROR;
20458: END IF;
20451: --Added by kthiruva for Debugging
20452: write_to_log('After the call to OKL_STREAM_GENERATOR_PUB.GEN_VAR_INT_SCHEDULE, return status is :'||x_return_status);
20453:
20454: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
20455: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
20456: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
20457: raise OKL_API.G_EXCEPTION_ERROR;
20458: END IF;
20459:
20452: write_to_log('After the call to OKL_STREAM_GENERATOR_PUB.GEN_VAR_INT_SCHEDULE, return status is :'||x_return_status);
20453:
20454: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
20455: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
20456: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
20457: raise OKL_API.G_EXCEPTION_ERROR;
20458: END IF;
20459:
20460: I := 0;
20453:
20454: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
20455: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
20456: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
20457: raise OKL_API.G_EXCEPTION_ERROR;
20458: END IF;
20459:
20460: I := 0;
20461: FOR l_strms_rec in strms_csr ( p_khr_id, 'WORK', 'ORIGIN')
20495:
20496:
20497: EXCEPTION
20498: WHEN OTHERS THEN
20499: okl_api.set_message (p_app_name => G_APP_NAME,
20500: p_msg_name => G_DB_ERROR,
20501: p_token1 => G_PROG_NAME_TOKEN,
20502: p_token1_value => l_api_name,
20503: p_token2 => G_SQLCODE_TOKEN,
20503: p_token2 => G_SQLCODE_TOKEN,
20504: p_token2_value => sqlcode,
20505: p_token3 => G_SQLERRM_TOKEN,
20506: p_token3_value => sqlerrm);
20507: l_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
20508: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
20509: END;
20510: /* Commented for Bulk update by HKPATEL -02/28/2004
20511: If ( l_stmv_tbl.COUNT > 0 ) Then
20504: p_token2_value => sqlcode,
20505: p_token3 => G_SQLERRM_TOKEN,
20506: p_token3_value => sqlerrm);
20507: l_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
20508: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
20509: END;
20510: /* Commented for Bulk update by HKPATEL -02/28/2004
20511: If ( l_stmv_tbl.COUNT > 0 ) Then
20512: Okl_Streams_pub.update_streams(
20517: x_msg_data => x_msg_data,
20518: p_stmv_tbl => l_stmv_tbl,
20519: x_stmv_tbl => x_stmv_tbl);
20520:
20521: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
20522: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
20523: END IF;
20524: */
20525:
20518: p_stmv_tbl => l_stmv_tbl,
20519: x_stmv_tbl => x_stmv_tbl);
20520:
20521: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
20522: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
20523: END IF;
20524: */
20525:
20526: ENd If;
20533: x_msg_count,
20534: x_msg_data,
20535: 'COMPLETE',
20536: p_khr_id );
20537: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
20538: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
20539: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
20540: RAISE OKL_API.G_EXCEPTION_ERROR;
20541: END IF;
20534: x_msg_data,
20535: 'COMPLETE',
20536: p_khr_id );
20537: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
20538: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
20539: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
20540: RAISE OKL_API.G_EXCEPTION_ERROR;
20541: END IF;
20542: --Added by kthiruva for Debugging
20535: 'COMPLETE',
20536: p_khr_id );
20537: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
20538: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
20539: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
20540: RAISE OKL_API.G_EXCEPTION_ERROR;
20541: END IF;
20542: --Added by kthiruva for Debugging
20543: write_to_log('After the call to update_contract_status, return status is :'||x_return_status);
20536: p_khr_id );
20537: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
20538: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
20539: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
20540: RAISE OKL_API.G_EXCEPTION_ERROR;
20541: END IF;
20542: --Added by kthiruva for Debugging
20543: write_to_log('After the call to update_contract_status, return status is :'||x_return_status);
20544:
20552: p_chr_id => p_khr_id);
20553: --Added by kthiruva for Debugging
20554: write_to_log('After the call to cascade_lease_status, return status is :'||x_return_status);
20555:
20556: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
20557: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
20558: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
20559: RAISE OKL_API.G_EXCEPTION_ERROR;
20560: END IF;
20553: --Added by kthiruva for Debugging
20554: write_to_log('After the call to cascade_lease_status, return status is :'||x_return_status);
20555:
20556: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
20557: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
20558: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
20559: RAISE OKL_API.G_EXCEPTION_ERROR;
20560: END IF;
20561:
20554: write_to_log('After the call to cascade_lease_status, return status is :'||x_return_status);
20555:
20556: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
20557: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
20558: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
20559: RAISE OKL_API.G_EXCEPTION_ERROR;
20560: END IF;
20561:
20562: OKL_BOOK_CONTROLLER_PVT.update_book_controller_trx(
20555:
20556: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
20557: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
20558: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
20559: RAISE OKL_API.G_EXCEPTION_ERROR;
20560: END IF;
20561:
20562: OKL_BOOK_CONTROLLER_PVT.update_book_controller_trx(
20563: p_api_version => l_api_version,
20568: p_khr_id => p_khr_id,
20569: p_prog_short_name => OKL_BOOK_CONTROLLER_PVT.G_PRICE_CONTRACT,
20570: p_progress_status => OKL_BOOK_CONTROLLER_PVT.G_PROG_STS_COMPLETE);
20571:
20572: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
20573: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
20574: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
20575: RAISE OKL_API.G_EXCEPTION_ERROR;
20576: END IF;
20569: p_prog_short_name => OKL_BOOK_CONTROLLER_PVT.G_PRICE_CONTRACT,
20570: p_progress_status => OKL_BOOK_CONTROLLER_PVT.G_PROG_STS_COMPLETE);
20571:
20572: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
20573: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
20574: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
20575: RAISE OKL_API.G_EXCEPTION_ERROR;
20576: END IF;
20577: --Bug 6476425 - End of Changes
20570: p_progress_status => OKL_BOOK_CONTROLLER_PVT.G_PROG_STS_COMPLETE);
20571:
20572: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
20573: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
20574: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
20575: RAISE OKL_API.G_EXCEPTION_ERROR;
20576: END IF;
20577: --Bug 6476425 - End of Changes
20578:
20571:
20572: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
20573: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
20574: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
20575: RAISE OKL_API.G_EXCEPTION_ERROR;
20576: END IF;
20577: --Bug 6476425 - End of Changes
20578:
20579:
20586: x_pricing_engine => l_pricing_engine,
20587: x_return_status => x_return_status);
20588: --Added by kthiruva for Debugging
20589: write_to_log('The pricing engine is :'||l_pricing_engine);
20590: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
20591: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
20592: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
20593: raise OKL_API.G_EXCEPTION_ERROR;
20594: END IF;
20587: x_return_status => x_return_status);
20588: --Added by kthiruva for Debugging
20589: write_to_log('The pricing engine is :'||l_pricing_engine);
20590: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
20591: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
20592: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
20593: raise OKL_API.G_EXCEPTION_ERROR;
20594: END IF;
20595:
20588: --Added by kthiruva for Debugging
20589: write_to_log('The pricing engine is :'||l_pricing_engine);
20590: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
20591: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
20592: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
20593: raise OKL_API.G_EXCEPTION_ERROR;
20594: END IF;
20595:
20596:
20589: write_to_log('The pricing engine is :'||l_pricing_engine);
20590: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
20591: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
20592: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
20593: raise OKL_API.G_EXCEPTION_ERROR;
20594: END IF;
20595:
20596:
20597: --IF ( fnd_profile.value('OKL_STREAMS_GEN_PATH') = 'EXTERNAL') THEN
20602: --
20603:
20604: OKL_GENERATE_STREAMS_PUB.GENERATE_STREAMS(
20605: p_api_version => p_api_version,
20606: p_init_msg_list => OKL_API.G_FALSE,
20607: p_khr_id => p_khr_id,
20608: p_generation_ctx_code => p_generation_ctx_code,
20609: x_trx_number => x_trx_number,
20610: x_trx_status => x_trx_status,
20612: x_msg_count => x_msg_count,
20613: x_msg_data => x_msg_data
20614: );
20615:
20616: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
20617: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
20618: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
20619: raise OKL_API.G_EXCEPTION_ERROR;
20620: END IF;
20613: x_msg_data => x_msg_data
20614: );
20615:
20616: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
20617: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
20618: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
20619: raise OKL_API.G_EXCEPTION_ERROR;
20620: END IF;
20621:
20614: );
20615:
20616: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
20617: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
20618: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
20619: raise OKL_API.G_EXCEPTION_ERROR;
20620: END IF;
20621:
20622: --ELSE -- fnd_profile = INTERNAL or NONE
20615:
20616: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
20617: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
20618: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
20619: raise OKL_API.G_EXCEPTION_ERROR;
20620: END IF;
20621:
20622: --ELSE -- fnd_profile = INTERNAL or NONE
20623: ELSIF ( l_pricing_engine = 'INTERNAL') THEN
20644: x_msg_data => x_msg_data,
20645: p_khr_id => p_khr_id,
20646: x_contract_rates => lx_contract_rates) ;
20647: -- check if activity started successfully
20648: If (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
20649: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
20650: ElSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
20651: raise OKL_API.G_EXCEPTION_ERROR;
20652: End If;
20645: p_khr_id => p_khr_id,
20646: x_contract_rates => lx_contract_rates) ;
20647: -- check if activity started successfully
20648: If (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
20649: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
20650: ElSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
20651: raise OKL_API.G_EXCEPTION_ERROR;
20652: End If;
20653: p_chr_yields.pre_tax_yield := lx_contract_rates.pre_tax_yield;
20646: x_contract_rates => lx_contract_rates) ;
20647: -- check if activity started successfully
20648: If (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
20649: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
20650: ElSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
20651: raise OKL_API.G_EXCEPTION_ERROR;
20652: End If;
20653: p_chr_yields.pre_tax_yield := lx_contract_rates.pre_tax_yield;
20654: p_chr_yields.pre_tax_irr := lx_contract_rates.pre_tax_irr;
20647: -- check if activity started successfully
20648: If (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
20649: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
20650: ElSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
20651: raise OKL_API.G_EXCEPTION_ERROR;
20652: End If;
20653: p_chr_yields.pre_tax_yield := lx_contract_rates.pre_tax_yield;
20654: p_chr_yields.pre_tax_irr := lx_contract_rates.pre_tax_irr;
20655: p_chr_yields.implicit_interest_rate := lx_contract_rates.implicit_interest_rate;
20668: x_msg_data => x_msg_data,
20669: p_pdtv_rec => p_pdtv_rec,
20670: x_no_data_found => x_no_data_found,
20671: p_pdt_parameter_rec => x_pdt_parameter_rec);
20672: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
20673: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
20674: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
20675: RAISE OKL_API.G_EXCEPTION_ERROR;
20676: END IF;
20669: p_pdtv_rec => p_pdtv_rec,
20670: x_no_data_found => x_no_data_found,
20671: p_pdt_parameter_rec => x_pdt_parameter_rec);
20672: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
20673: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
20674: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
20675: RAISE OKL_API.G_EXCEPTION_ERROR;
20676: END IF;
20677: OKL_STREAM_GENERATOR_PUB.generate_streams(
20670: x_no_data_found => x_no_data_found,
20671: p_pdt_parameter_rec => x_pdt_parameter_rec);
20672: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
20673: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
20674: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
20675: RAISE OKL_API.G_EXCEPTION_ERROR;
20676: END IF;
20677: OKL_STREAM_GENERATOR_PUB.generate_streams(
20678: p_api_version => l_api_version,
20671: p_pdt_parameter_rec => x_pdt_parameter_rec);
20672: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
20673: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
20674: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
20675: RAISE OKL_API.G_EXCEPTION_ERROR;
20676: END IF;
20677: OKL_STREAM_GENERATOR_PUB.generate_streams(
20678: p_api_version => l_api_version,
20679: p_init_msg_list => p_init_msg_list,
20683: p_khr_id => p_khr_id,
20684: p_reporting_book_class => x_pdt_parameter_rec.deal_type,
20685: x_contract_rates => lx_contract_rates) ;
20686: -- check if activity started successfully
20687: If (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
20688: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
20689: ElSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
20690: raise OKL_API.G_EXCEPTION_ERROR;
20691: End If;
20684: p_reporting_book_class => x_pdt_parameter_rec.deal_type,
20685: x_contract_rates => lx_contract_rates) ;
20686: -- check if activity started successfully
20687: If (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
20688: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
20689: ElSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
20690: raise OKL_API.G_EXCEPTION_ERROR;
20691: End If;
20692: -- p_chr_yields(1).PRE_TAX_IRR := l_pre_tax_irr; -- Not updated though !!! (ssiruvol - 06-FEB-2003)
20685: x_contract_rates => lx_contract_rates) ;
20686: -- check if activity started successfully
20687: If (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
20688: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
20689: ElSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
20690: raise OKL_API.G_EXCEPTION_ERROR;
20691: End If;
20692: -- p_chr_yields(1).PRE_TAX_IRR := l_pre_tax_irr; -- Not updated though !!! (ssiruvol - 06-FEB-2003)
20693: -- Start modification 11i10 bakuchib
20686: -- check if activity started successfully
20687: If (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
20688: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
20689: ElSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
20690: raise OKL_API.G_EXCEPTION_ERROR;
20691: End If;
20692: -- p_chr_yields(1).PRE_TAX_IRR := l_pre_tax_irr; -- Not updated though !!! (ssiruvol - 06-FEB-2003)
20693: -- Start modification 11i10 bakuchib
20694: /* Commented by HKPATEL for bug 4040722 - 01-DEC-2004
20707:
20708: print( l_api_name, 'process streams');
20709: process_streams(
20710: p_api_version => l_api_version,
20711: p_init_msg_list => OKL_API.G_FALSE,
20712: x_return_status => x_return_status,
20713: x_msg_count => x_msg_count,
20714: x_msg_data => x_msg_data,
20715: p_chr_id => p_khr_id,
20712: x_return_status => x_return_status,
20713: x_msg_count => x_msg_count,
20714: x_msg_data => x_msg_data,
20715: p_chr_id => p_khr_id,
20716: p_process_yn => OKL_API.G_TRUE,
20717: p_chr_yields => p_chr_yields,
20718: p_source_call => 'ISG');
20719: -- check if activity started successfully
20720: If (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
20716: p_process_yn => OKL_API.G_TRUE,
20717: p_chr_yields => p_chr_yields,
20718: p_source_call => 'ISG');
20719: -- check if activity started successfully
20720: If (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
20721: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
20722: ElSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
20723: raise OKL_API.G_EXCEPTION_ERROR;
20724: End If;
20717: p_chr_yields => p_chr_yields,
20718: p_source_call => 'ISG');
20719: -- check if activity started successfully
20720: If (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
20721: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
20722: ElSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
20723: raise OKL_API.G_EXCEPTION_ERROR;
20724: End If;
20725:
20718: p_source_call => 'ISG');
20719: -- check if activity started successfully
20720: If (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
20721: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
20722: ElSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
20723: raise OKL_API.G_EXCEPTION_ERROR;
20724: End If;
20725:
20726: END IF; -- fnd_profile
20719: -- check if activity started successfully
20720: If (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
20721: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
20722: ElSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
20723: raise OKL_API.G_EXCEPTION_ERROR;
20724: End If;
20725:
20726: END IF; -- fnd_profile
20727:
20725:
20726: END IF; -- fnd_profile
20727:
20728: print( l_api_name, 'end', x_return_status);
20729: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
20730: x_msg_data => x_msg_data);
20731:
20732: RETURN;
20733:
20731:
20732: RETURN;
20733:
20734: EXCEPTION
20735: when OKL_API.G_EXCEPTION_ERROR then
20736: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
20737: p_api_name => l_api_name,
20738: p_pkg_name => G_PKG_NAME,
20739: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
20732: RETURN;
20733:
20734: EXCEPTION
20735: when OKL_API.G_EXCEPTION_ERROR then
20736: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
20737: p_api_name => l_api_name,
20738: p_pkg_name => G_PKG_NAME,
20739: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
20740: x_msg_count => x_msg_count,
20735: when OKL_API.G_EXCEPTION_ERROR then
20736: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
20737: p_api_name => l_api_name,
20738: p_pkg_name => G_PKG_NAME,
20739: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
20740: x_msg_count => x_msg_count,
20741: x_msg_data => x_msg_data,
20742: p_api_type => G_API_TYPE);
20743:
20740: x_msg_count => x_msg_count,
20741: x_msg_data => x_msg_data,
20742: p_api_type => G_API_TYPE);
20743:
20744: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
20745: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
20746: p_api_name => l_api_name,
20747: p_pkg_name => G_PKG_NAME,
20748: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
20741: x_msg_data => x_msg_data,
20742: p_api_type => G_API_TYPE);
20743:
20744: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
20745: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
20746: p_api_name => l_api_name,
20747: p_pkg_name => G_PKG_NAME,
20748: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
20749: x_msg_count => x_msg_count,
20744: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
20745: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
20746: p_api_name => l_api_name,
20747: p_pkg_name => G_PKG_NAME,
20748: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
20749: x_msg_count => x_msg_count,
20750: x_msg_data => x_msg_data,
20751: p_api_type => G_API_TYPE);
20752:
20750: x_msg_data => x_msg_data,
20751: p_api_type => G_API_TYPE);
20752:
20753: when OTHERS then
20754: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
20755: p_api_name => l_api_name,
20756: p_pkg_name => G_PKG_NAME,
20757: p_exc_name => 'OTHERS',
20758: x_msg_count => x_msg_count,
20780: p_paym_tbl IN OKL_STREAM_GENERATOR_PVT.payment_tbl_type)
20781: IS
20782: l_api_name CONSTANT VARCHAR2(30) := 'VALIDATE_PAYMENTS';
20783: G_APP_NAME VARCHAR2(30) := 'OKL';
20784: l_return_status VARCHAR2(3) := OKL_API.G_RET_STS_SUCCESS;
20785: G_RGD_CODE okc_rule_groups_b.rgd_code%TYPE := 'LALEVL';
20786: G_RUL_SLH_CODE okc_rules_b.rule_information_category%TYPE := 'LASLH';
20787: G_RUL_SLL_CODE okc_rules_b.rule_information_category%TYPE := 'LASLL';
20788: G_FEE_TYPE okl_k_lines.fee_type%TYPE := 'PASSTHROUGH';
20901: WHERE EXISTS (SELECT 1
20902: FROM okc_k_headers_b
20903: WHERE id = p_khr_id);
20904: TYPE sll_date_rec_type IS RECORD (
20905: start_date okc_rules_b.last_update_date%TYPE := okl_api.G_MISS_DATE,
20906: end_date okc_rules_b.last_update_date%TYPE := okl_api.G_MISS_DATE);
20907: TYPE sll_date_tbl_type IS TABLE OF sll_date_rec_type
20908: INDEX BY BINARY_INTEGER;
20909: lt_sll_date_tbl_type sll_date_tbl_type;
20902: FROM okc_k_headers_b
20903: WHERE id = p_khr_id);
20904: TYPE sll_date_rec_type IS RECORD (
20905: start_date okc_rules_b.last_update_date%TYPE := okl_api.G_MISS_DATE,
20906: end_date okc_rules_b.last_update_date%TYPE := okl_api.G_MISS_DATE);
20907: TYPE sll_date_tbl_type IS TABLE OF sll_date_rec_type
20908: INDEX BY BINARY_INTEGER;
20909: lt_sll_date_tbl_type sll_date_tbl_type;
20910: l_paym_tbl OKL_STREAM_GENERATOR_PVT.payment_tbl_type := p_paym_tbl;
20908: INDEX BY BINARY_INTEGER;
20909: lt_sll_date_tbl_type sll_date_tbl_type;
20910: l_paym_tbl OKL_STREAM_GENERATOR_PVT.payment_tbl_type := p_paym_tbl;
20911: BEGIN
20912: l_return_status := OKL_API.START_ACTIVITY (
20913: l_api_name
20914: ,p_init_msg_list
20915: ,'_PVT'
20916: ,l_return_status);
20914: ,p_init_msg_list
20915: ,'_PVT'
20916: ,l_return_status);
20917: -- Check if activity started successfully
20918: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
20919: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
20920: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
20921: RAISE OKL_API.G_EXCEPTION_ERROR;
20922: END IF;
20915: ,'_PVT'
20916: ,l_return_status);
20917: -- Check if activity started successfully
20918: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
20919: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
20920: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
20921: RAISE OKL_API.G_EXCEPTION_ERROR;
20922: END IF;
20923: IF (p_khr_id = OKL_API.G_MISS_NUM OR
20916: ,l_return_status);
20917: -- Check if activity started successfully
20918: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
20919: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
20920: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
20921: RAISE OKL_API.G_EXCEPTION_ERROR;
20922: END IF;
20923: IF (p_khr_id = OKL_API.G_MISS_NUM OR
20924: p_khr_id IS NULL) AND
20917: -- Check if activity started successfully
20918: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
20919: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
20920: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
20921: RAISE OKL_API.G_EXCEPTION_ERROR;
20922: END IF;
20923: IF (p_khr_id = OKL_API.G_MISS_NUM OR
20924: p_khr_id IS NULL) AND
20925: p_paym_tbl.COUNT = 0 THEN
20919: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
20920: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
20921: RAISE OKL_API.G_EXCEPTION_ERROR;
20922: END IF;
20923: IF (p_khr_id = OKL_API.G_MISS_NUM OR
20924: p_khr_id IS NULL) AND
20925: p_paym_tbl.COUNT = 0 THEN
20926: OKL_API.set_message(p_app_name => G_APP_NAME,
20927: p_msg_name => G_REQUIRED_VALUE,
20922: END IF;
20923: IF (p_khr_id = OKL_API.G_MISS_NUM OR
20924: p_khr_id IS NULL) AND
20925: p_paym_tbl.COUNT = 0 THEN
20926: OKL_API.set_message(p_app_name => G_APP_NAME,
20927: p_msg_name => G_REQUIRED_VALUE,
20928: p_token1 => G_COL_NAME_TOKEN,
20929: p_token1_value => 'khr_id/Payment table');
20930: RAISE OKL_API.G_EXCEPTION_ERROR;
20926: OKL_API.set_message(p_app_name => G_APP_NAME,
20927: p_msg_name => G_REQUIRED_VALUE,
20928: p_token1 => G_COL_NAME_TOKEN,
20929: p_token1_value => 'khr_id/Payment table');
20930: RAISE OKL_API.G_EXCEPTION_ERROR;
20931: ELSIF p_khr_id <> OKL_API.G_MISS_NUM OR
20932: p_khr_id IS NOT NULL THEN
20933: -- Validating the khr_id
20934: OPEN c_valid_khr_csr(p_khr_id => p_khr_id);
20927: p_msg_name => G_REQUIRED_VALUE,
20928: p_token1 => G_COL_NAME_TOKEN,
20929: p_token1_value => 'khr_id/Payment table');
20930: RAISE OKL_API.G_EXCEPTION_ERROR;
20931: ELSIF p_khr_id <> OKL_API.G_MISS_NUM OR
20932: p_khr_id IS NOT NULL THEN
20933: -- Validating the khr_id
20934: OPEN c_valid_khr_csr(p_khr_id => p_khr_id);
20935: FETCH c_valid_khr_csr INTO ln_dummy;
20933: -- Validating the khr_id
20934: OPEN c_valid_khr_csr(p_khr_id => p_khr_id);
20935: FETCH c_valid_khr_csr INTO ln_dummy;
20936: IF c_valid_khr_csr%NOTFOUND THEN
20937: OKL_API.set_message(p_app_name => G_APP_NAME,
20938: p_msg_name => G_REQUIRED_VALUE,
20939: p_token1 => G_COL_NAME_TOKEN,
20940: p_token1_value => 'khr_id');
20941: RAISE OKL_API.G_EXCEPTION_ERROR;
20937: OKL_API.set_message(p_app_name => G_APP_NAME,
20938: p_msg_name => G_REQUIRED_VALUE,
20939: p_token1 => G_COL_NAME_TOKEN,
20940: p_token1_value => 'khr_id');
20941: RAISE OKL_API.G_EXCEPTION_ERROR;
20942: END IF;
20943: CLOSE c_valid_khr_csr;
20944: IF ln_dummy <> 1 THEN
20945: OKL_API.set_message(p_app_name => G_APP_NAME,
20941: RAISE OKL_API.G_EXCEPTION_ERROR;
20942: END IF;
20943: CLOSE c_valid_khr_csr;
20944: IF ln_dummy <> 1 THEN
20945: OKL_API.set_message(p_app_name => G_APP_NAME,
20946: p_msg_name => G_INVALID_VALUE,
20947: p_token1 => G_COL_NAME_TOKEN,
20948: p_token1_value => 'khr_id');
20949: RAISE OKL_API.G_EXCEPTION_ERROR;
20945: OKL_API.set_message(p_app_name => G_APP_NAME,
20946: p_msg_name => G_INVALID_VALUE,
20947: p_token1 => G_COL_NAME_TOKEN,
20948: p_token1_value => 'khr_id');
20949: RAISE OKL_API.G_EXCEPTION_ERROR;
20950: END IF;
20951: -- Checking for Passthrough
20952: FOR r_get_psth_rec IN c_get_psth_csr (p_khr_id => p_khr_id) LOOP
20953: OPEN c_get_pay_psth_csr(p_khr_id => p_khr_id,
20954: p_kle_id => r_get_psth_rec.id);
20955: FETCH c_get_pay_psth_csr INTO ln_pasth_cnt;
20956: CLOSE c_get_pay_psth_csr;
20957: IF ln_pasth_cnt > 1 THEN
20958: OKL_API.set_message(p_app_name => G_APP_NAME,
20959: p_msg_name => G_PSTH_PAYMENT_ERROR,
20960: p_token1 => 'FEE_TYPE',
20961: p_token1_value => G_FEE_TYPE);
20962: l_return_status := OKL_API.G_RET_STS_ERROR;
20958: OKL_API.set_message(p_app_name => G_APP_NAME,
20959: p_msg_name => G_PSTH_PAYMENT_ERROR,
20960: p_token1 => 'FEE_TYPE',
20961: p_token1_value => G_FEE_TYPE);
20962: l_return_status := OKL_API.G_RET_STS_ERROR;
20963: EXIT WHEN (l_return_status = OKL_API.G_RET_STS_ERROR);
20964: END IF;
20965: END LOOP;
20966: -- Check if activity started successfully
20959: p_msg_name => G_PSTH_PAYMENT_ERROR,
20960: p_token1 => 'FEE_TYPE',
20961: p_token1_value => G_FEE_TYPE);
20962: l_return_status := OKL_API.G_RET_STS_ERROR;
20963: EXIT WHEN (l_return_status = OKL_API.G_RET_STS_ERROR);
20964: END IF;
20965: END LOOP;
20966: -- Check if activity started successfully
20967: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
20963: EXIT WHEN (l_return_status = OKL_API.G_RET_STS_ERROR);
20964: END IF;
20965: END LOOP;
20966: -- Check if activity started successfully
20967: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
20968: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
20969: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
20970: RAISE OKL_API.G_EXCEPTION_ERROR;
20971: END IF;
20964: END IF;
20965: END LOOP;
20966: -- Check if activity started successfully
20967: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
20968: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
20969: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
20970: RAISE OKL_API.G_EXCEPTION_ERROR;
20971: END IF;
20972: -- Get all the lines
20965: END LOOP;
20966: -- Check if activity started successfully
20967: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
20968: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
20969: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
20970: RAISE OKL_API.G_EXCEPTION_ERROR;
20971: END IF;
20972: -- Get all the lines
20973: FOR r_get_all_lines_rec IN c_get_all_lines_csr(p_khr_id => p_khr_id) LOOP
20966: -- Check if activity started successfully
20967: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
20968: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
20969: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
20970: RAISE OKL_API.G_EXCEPTION_ERROR;
20971: END IF;
20972: -- Get all the lines
20973: FOR r_get_all_lines_rec IN c_get_all_lines_csr(p_khr_id => p_khr_id) LOOP
20974: -- Get all the SLH payment lines for khr_id and each line_id
20991: ELSIF r_get_sll_lines_rec.rate IS NOT NULL THEN
20992: ln_cnt_rte_not_null := ln_cnt_rte_not_null + 1;
20993: END IF;
20994: IF r_get_sll_lines_rec.arrears_yn IS NULL OR
20995: r_get_sll_lines_rec.arrears_yn = OKL_API.G_MISS_CHAR THEN
20996: l_return_status := OKL_API.G_RET_STS_ERROR;
20997: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
20998: OKL_API.set_message(p_app_name => G_APP_NAME,
20999: p_msg_name => G_INVALID_VALUE,
20992: ln_cnt_rte_not_null := ln_cnt_rte_not_null + 1;
20993: END IF;
20994: IF r_get_sll_lines_rec.arrears_yn IS NULL OR
20995: r_get_sll_lines_rec.arrears_yn = OKL_API.G_MISS_CHAR THEN
20996: l_return_status := OKL_API.G_RET_STS_ERROR;
20997: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
20998: OKL_API.set_message(p_app_name => G_APP_NAME,
20999: p_msg_name => G_INVALID_VALUE,
21000: p_token1 => G_COL_NAME_TOKEN,
20993: END IF;
20994: IF r_get_sll_lines_rec.arrears_yn IS NULL OR
20995: r_get_sll_lines_rec.arrears_yn = OKL_API.G_MISS_CHAR THEN
20996: l_return_status := OKL_API.G_RET_STS_ERROR;
20997: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
20998: OKL_API.set_message(p_app_name => G_APP_NAME,
20999: p_msg_name => G_INVALID_VALUE,
21000: p_token1 => G_COL_NAME_TOKEN,
21001: p_token1_value => 'Arrear');
20994: IF r_get_sll_lines_rec.arrears_yn IS NULL OR
20995: r_get_sll_lines_rec.arrears_yn = OKL_API.G_MISS_CHAR THEN
20996: l_return_status := OKL_API.G_RET_STS_ERROR;
20997: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
20998: OKL_API.set_message(p_app_name => G_APP_NAME,
20999: p_msg_name => G_INVALID_VALUE,
21000: p_token1 => G_COL_NAME_TOKEN,
21001: p_token1_value => 'Arrear');
21002: EXIT WHEN(l_return_status <> OKL_API.G_RET_STS_SUCCESS);
20998: OKL_API.set_message(p_app_name => G_APP_NAME,
20999: p_msg_name => G_INVALID_VALUE,
21000: p_token1 => G_COL_NAME_TOKEN,
21001: p_token1_value => 'Arrear');
21002: EXIT WHEN(l_return_status <> OKL_API.G_RET_STS_SUCCESS);
21003: END IF;
21004: ELSIF (r_get_sll_lines_rec.arrears_yn IS NOT NULL OR
21005: r_get_sll_lines_rec.arrears_yn <> OKL_API.G_MISS_CHAR) AND
21006: r_get_sll_lines_rec.arrears_yn = 'N' THEN
21001: p_token1_value => 'Arrear');
21002: EXIT WHEN(l_return_status <> OKL_API.G_RET_STS_SUCCESS);
21003: END IF;
21004: ELSIF (r_get_sll_lines_rec.arrears_yn IS NOT NULL OR
21005: r_get_sll_lines_rec.arrears_yn <> OKL_API.G_MISS_CHAR) AND
21006: r_get_sll_lines_rec.arrears_yn = 'N' THEN
21007: IF r_get_sll_lines_rec.STRUCTURE IS NULL OR
21008: r_get_sll_lines_rec.STRUCTURE = OKL_API.G_MISS_CHAR THEN
21009: l_return_status := OKL_API.G_RET_STS_ERROR;
21004: ELSIF (r_get_sll_lines_rec.arrears_yn IS NOT NULL OR
21005: r_get_sll_lines_rec.arrears_yn <> OKL_API.G_MISS_CHAR) AND
21006: r_get_sll_lines_rec.arrears_yn = 'N' THEN
21007: IF r_get_sll_lines_rec.STRUCTURE IS NULL OR
21008: r_get_sll_lines_rec.STRUCTURE = OKL_API.G_MISS_CHAR THEN
21009: l_return_status := OKL_API.G_RET_STS_ERROR;
21010: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
21011: OKL_API.set_message(p_app_name => G_APP_NAME,
21012: p_msg_name => G_INVALID_VALUE,
21005: r_get_sll_lines_rec.arrears_yn <> OKL_API.G_MISS_CHAR) AND
21006: r_get_sll_lines_rec.arrears_yn = 'N' THEN
21007: IF r_get_sll_lines_rec.STRUCTURE IS NULL OR
21008: r_get_sll_lines_rec.STRUCTURE = OKL_API.G_MISS_CHAR THEN
21009: l_return_status := OKL_API.G_RET_STS_ERROR;
21010: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
21011: OKL_API.set_message(p_app_name => G_APP_NAME,
21012: p_msg_name => G_INVALID_VALUE,
21013: p_token1 => G_COL_NAME_TOKEN,
21006: r_get_sll_lines_rec.arrears_yn = 'N' THEN
21007: IF r_get_sll_lines_rec.STRUCTURE IS NULL OR
21008: r_get_sll_lines_rec.STRUCTURE = OKL_API.G_MISS_CHAR THEN
21009: l_return_status := OKL_API.G_RET_STS_ERROR;
21010: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
21011: OKL_API.set_message(p_app_name => G_APP_NAME,
21012: p_msg_name => G_INVALID_VALUE,
21013: p_token1 => G_COL_NAME_TOKEN,
21014: p_token1_value => 'Structure');
21007: IF r_get_sll_lines_rec.STRUCTURE IS NULL OR
21008: r_get_sll_lines_rec.STRUCTURE = OKL_API.G_MISS_CHAR THEN
21009: l_return_status := OKL_API.G_RET_STS_ERROR;
21010: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
21011: OKL_API.set_message(p_app_name => G_APP_NAME,
21012: p_msg_name => G_INVALID_VALUE,
21013: p_token1 => G_COL_NAME_TOKEN,
21014: p_token1_value => 'Structure');
21015: EXIT WHEN(l_return_status <> OKL_API.G_RET_STS_SUCCESS);
21011: OKL_API.set_message(p_app_name => G_APP_NAME,
21012: p_msg_name => G_INVALID_VALUE,
21013: p_token1 => G_COL_NAME_TOKEN,
21014: p_token1_value => 'Structure');
21015: EXIT WHEN(l_return_status <> OKL_API.G_RET_STS_SUCCESS);
21016: END IF;
21017: END IF;
21018: END IF;
21019: i := i + 1;
21018: END IF;
21019: i := i + 1;
21020: ln_tot_cnt := ln_tot_cnt + 1;
21021: END LOOP;
21022: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
21023: EXIT WHEN(l_return_status <> OKL_API.G_RET_STS_SUCCESS);
21024: END IF;
21025: -- Validating amounts and rates values
21026: IF ln_cnt_rte_not_null = ln_tot_cnt AND
21019: i := i + 1;
21020: ln_tot_cnt := ln_tot_cnt + 1;
21021: END LOOP;
21022: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
21023: EXIT WHEN(l_return_status <> OKL_API.G_RET_STS_SUCCESS);
21024: END IF;
21025: -- Validating amounts and rates values
21026: IF ln_cnt_rte_not_null = ln_tot_cnt AND
21027: ln_cnt_amt_null < ln_tot_cnt AND
21025: -- Validating amounts and rates values
21026: IF ln_cnt_rte_not_null = ln_tot_cnt AND
21027: ln_cnt_amt_null < ln_tot_cnt AND
21028: ln_cnt_amt_null > 1 THEN
21029: l_return_status := OKL_API.G_RET_STS_ERROR;
21030: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
21031: OKL_API.set_message(p_app_name => G_APP_NAME,
21032: p_msg_name => G_INVALID_VALUE,
21033: p_token1 => G_COL_NAME_TOKEN,
21026: IF ln_cnt_rte_not_null = ln_tot_cnt AND
21027: ln_cnt_amt_null < ln_tot_cnt AND
21028: ln_cnt_amt_null > 1 THEN
21029: l_return_status := OKL_API.G_RET_STS_ERROR;
21030: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
21031: OKL_API.set_message(p_app_name => G_APP_NAME,
21032: p_msg_name => G_INVALID_VALUE,
21033: p_token1 => G_COL_NAME_TOKEN,
21034: p_token1_value => 'payment amounts');
21027: ln_cnt_amt_null < ln_tot_cnt AND
21028: ln_cnt_amt_null > 1 THEN
21029: l_return_status := OKL_API.G_RET_STS_ERROR;
21030: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
21031: OKL_API.set_message(p_app_name => G_APP_NAME,
21032: p_msg_name => G_INVALID_VALUE,
21033: p_token1 => G_COL_NAME_TOKEN,
21034: p_token1_value => 'payment amounts');
21035: EXIT WHEN(l_return_status <> OKL_API.G_RET_STS_SUCCESS);
21031: OKL_API.set_message(p_app_name => G_APP_NAME,
21032: p_msg_name => G_INVALID_VALUE,
21033: p_token1 => G_COL_NAME_TOKEN,
21034: p_token1_value => 'payment amounts');
21035: EXIT WHEN(l_return_status <> OKL_API.G_RET_STS_SUCCESS);
21036: END IF;
21037: END IF;
21038: IF ln_cnt_amt_not_null = ln_tot_cnt THEN
21039: IF ln_cnt_rte_not_null < ln_tot_cnt AND
21037: END IF;
21038: IF ln_cnt_amt_not_null = ln_tot_cnt THEN
21039: IF ln_cnt_rte_not_null < ln_tot_cnt AND
21040: ln_cnt_rte_not_null > 0 THEN
21041: l_return_status := OKL_API.G_RET_STS_ERROR;
21042: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
21043: OKL_API.set_message(p_app_name => G_APP_NAME,
21044: p_msg_name => G_INVALID_VALUE,
21045: p_token1 => G_COL_NAME_TOKEN,
21038: IF ln_cnt_amt_not_null = ln_tot_cnt THEN
21039: IF ln_cnt_rte_not_null < ln_tot_cnt AND
21040: ln_cnt_rte_not_null > 0 THEN
21041: l_return_status := OKL_API.G_RET_STS_ERROR;
21042: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
21043: OKL_API.set_message(p_app_name => G_APP_NAME,
21044: p_msg_name => G_INVALID_VALUE,
21045: p_token1 => G_COL_NAME_TOKEN,
21046: p_token1_value => 'payment rates');
21039: IF ln_cnt_rte_not_null < ln_tot_cnt AND
21040: ln_cnt_rte_not_null > 0 THEN
21041: l_return_status := OKL_API.G_RET_STS_ERROR;
21042: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
21043: OKL_API.set_message(p_app_name => G_APP_NAME,
21044: p_msg_name => G_INVALID_VALUE,
21045: p_token1 => G_COL_NAME_TOKEN,
21046: p_token1_value => 'payment rates');
21047: EXIT WHEN(l_return_status <> OKL_API.G_RET_STS_SUCCESS);
21043: OKL_API.set_message(p_app_name => G_APP_NAME,
21044: p_msg_name => G_INVALID_VALUE,
21045: p_token1 => G_COL_NAME_TOKEN,
21046: p_token1_value => 'payment rates');
21047: EXIT WHEN(l_return_status <> OKL_API.G_RET_STS_SUCCESS);
21048: END IF;
21049: END IF;
21050: END IF;
21051: IF ln_cnt_rte_null = ln_tot_cnt AND
21049: END IF;
21050: END IF;
21051: IF ln_cnt_rte_null = ln_tot_cnt AND
21052: ln_cnt_amt_null = ln_tot_cnt THEN
21053: l_return_status := OKL_API.G_RET_STS_ERROR;
21054: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
21055: OKL_API.set_message(p_app_name => G_APP_NAME,
21056: p_msg_name => G_REQUIRED_VALUE,
21057: p_token1 => G_COL_NAME_TOKEN,
21050: END IF;
21051: IF ln_cnt_rte_null = ln_tot_cnt AND
21052: ln_cnt_amt_null = ln_tot_cnt THEN
21053: l_return_status := OKL_API.G_RET_STS_ERROR;
21054: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
21055: OKL_API.set_message(p_app_name => G_APP_NAME,
21056: p_msg_name => G_REQUIRED_VALUE,
21057: p_token1 => G_COL_NAME_TOKEN,
21058: p_token1_value => 'payment rate and payment amount');
21051: IF ln_cnt_rte_null = ln_tot_cnt AND
21052: ln_cnt_amt_null = ln_tot_cnt THEN
21053: l_return_status := OKL_API.G_RET_STS_ERROR;
21054: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
21055: OKL_API.set_message(p_app_name => G_APP_NAME,
21056: p_msg_name => G_REQUIRED_VALUE,
21057: p_token1 => G_COL_NAME_TOKEN,
21058: p_token1_value => 'payment rate and payment amount');
21059: EXIT WHEN(l_return_status <> OKL_API.G_RET_STS_SUCCESS);
21055: OKL_API.set_message(p_app_name => G_APP_NAME,
21056: p_msg_name => G_REQUIRED_VALUE,
21057: p_token1 => G_COL_NAME_TOKEN,
21058: p_token1_value => 'payment rate and payment amount');
21059: EXIT WHEN(l_return_status <> OKL_API.G_RET_STS_SUCCESS);
21060: END IF;
21061: END IF;
21062: IF ln_cnt_rte_not_null <> ln_tot_cnt AND
21063: ln_cnt_amt_not_null <> ln_tot_cnt THEN
21060: END IF;
21061: END IF;
21062: IF ln_cnt_rte_not_null <> ln_tot_cnt AND
21063: ln_cnt_amt_not_null <> ln_tot_cnt THEN
21064: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
21065: OKL_API.set_message(p_app_name => G_APP_NAME,
21066: p_msg_name => G_INVALID_VALUE,
21067: p_token1 => G_COL_NAME_TOKEN,
21068: p_token1_value => 'payment rates and payment amounts');
21061: END IF;
21062: IF ln_cnt_rte_not_null <> ln_tot_cnt AND
21063: ln_cnt_amt_not_null <> ln_tot_cnt THEN
21064: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
21065: OKL_API.set_message(p_app_name => G_APP_NAME,
21066: p_msg_name => G_INVALID_VALUE,
21067: p_token1 => G_COL_NAME_TOKEN,
21068: p_token1_value => 'payment rates and payment amounts');
21069: EXIT WHEN(l_return_status <> OKL_API.G_RET_STS_SUCCESS);
21065: OKL_API.set_message(p_app_name => G_APP_NAME,
21066: p_msg_name => G_INVALID_VALUE,
21067: p_token1 => G_COL_NAME_TOKEN,
21068: p_token1_value => 'payment rates and payment amounts');
21069: EXIT WHEN(l_return_status <> OKL_API.G_RET_STS_SUCCESS);
21070: END IF;
21071: END IF;
21072: ln_cnt_amt_null := 0;
21073: ln_cnt_amt_not_null := 0;
21079: FOR k IN lt_sll_date_tbl_type.FIRST..lt_sll_date_tbl_type.LAST LOOP
21080: EXIT WHEN(k = lt_sll_date_tbl_type.LAST);
21081: IF lt_sll_date_tbl_type(k+1).start_date >= lt_sll_date_tbl_type(k).start_date AND
21082: lt_sll_date_tbl_type(k+1).start_date <= lt_sll_date_tbl_type(k).end_date THEN
21083: OKL_API.set_message(p_app_name => G_APP_NAME,
21084: p_msg_name => G_PAYMENT_OVERLAP_ERROR);
21085: l_return_status := OKL_API.G_RET_STS_ERROR;
21086: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
21087: EXIT WHEN(l_return_status <> OKL_API.G_RET_STS_SUCCESS);
21081: IF lt_sll_date_tbl_type(k+1).start_date >= lt_sll_date_tbl_type(k).start_date AND
21082: lt_sll_date_tbl_type(k+1).start_date <= lt_sll_date_tbl_type(k).end_date THEN
21083: OKL_API.set_message(p_app_name => G_APP_NAME,
21084: p_msg_name => G_PAYMENT_OVERLAP_ERROR);
21085: l_return_status := OKL_API.G_RET_STS_ERROR;
21086: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
21087: EXIT WHEN(l_return_status <> OKL_API.G_RET_STS_SUCCESS);
21088: END IF;
21089: ELSIF lt_sll_date_tbl_type(k+1).start_date > lt_sll_date_tbl_type(k).end_date + 1 THEN
21082: lt_sll_date_tbl_type(k+1).start_date <= lt_sll_date_tbl_type(k).end_date THEN
21083: OKL_API.set_message(p_app_name => G_APP_NAME,
21084: p_msg_name => G_PAYMENT_OVERLAP_ERROR);
21085: l_return_status := OKL_API.G_RET_STS_ERROR;
21086: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
21087: EXIT WHEN(l_return_status <> OKL_API.G_RET_STS_SUCCESS);
21088: END IF;
21089: ELSIF lt_sll_date_tbl_type(k+1).start_date > lt_sll_date_tbl_type(k).end_date + 1 THEN
21090: OKL_API.set_message(p_app_name => G_APP_NAME,
21083: OKL_API.set_message(p_app_name => G_APP_NAME,
21084: p_msg_name => G_PAYMENT_OVERLAP_ERROR);
21085: l_return_status := OKL_API.G_RET_STS_ERROR;
21086: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
21087: EXIT WHEN(l_return_status <> OKL_API.G_RET_STS_SUCCESS);
21088: END IF;
21089: ELSIF lt_sll_date_tbl_type(k+1).start_date > lt_sll_date_tbl_type(k).end_date + 1 THEN
21090: OKL_API.set_message(p_app_name => G_APP_NAME,
21091: p_msg_name => G_PAYMENT_GAP_ERROR);
21086: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
21087: EXIT WHEN(l_return_status <> OKL_API.G_RET_STS_SUCCESS);
21088: END IF;
21089: ELSIF lt_sll_date_tbl_type(k+1).start_date > lt_sll_date_tbl_type(k).end_date + 1 THEN
21090: OKL_API.set_message(p_app_name => G_APP_NAME,
21091: p_msg_name => G_PAYMENT_GAP_ERROR);
21092: l_return_status := OKL_API.G_RET_STS_ERROR;
21093: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
21094: EXIT WHEN(l_return_status <> OKL_API.G_RET_STS_SUCCESS);
21088: END IF;
21089: ELSIF lt_sll_date_tbl_type(k+1).start_date > lt_sll_date_tbl_type(k).end_date + 1 THEN
21090: OKL_API.set_message(p_app_name => G_APP_NAME,
21091: p_msg_name => G_PAYMENT_GAP_ERROR);
21092: l_return_status := OKL_API.G_RET_STS_ERROR;
21093: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
21094: EXIT WHEN(l_return_status <> OKL_API.G_RET_STS_SUCCESS);
21095: END IF;
21096: END IF;
21089: ELSIF lt_sll_date_tbl_type(k+1).start_date > lt_sll_date_tbl_type(k).end_date + 1 THEN
21090: OKL_API.set_message(p_app_name => G_APP_NAME,
21091: p_msg_name => G_PAYMENT_GAP_ERROR);
21092: l_return_status := OKL_API.G_RET_STS_ERROR;
21093: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
21094: EXIT WHEN(l_return_status <> OKL_API.G_RET_STS_SUCCESS);
21095: END IF;
21096: END IF;
21097: END LOOP;
21090: OKL_API.set_message(p_app_name => G_APP_NAME,
21091: p_msg_name => G_PAYMENT_GAP_ERROR);
21092: l_return_status := OKL_API.G_RET_STS_ERROR;
21093: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
21094: EXIT WHEN(l_return_status <> OKL_API.G_RET_STS_SUCCESS);
21095: END IF;
21096: END IF;
21097: END LOOP;
21098: END IF;
21096: END IF;
21097: END LOOP;
21098: END IF;
21099: ELSE
21100: OKL_API.set_message(p_app_name => G_APP_NAME,
21101: p_msg_name => G_REQUIRED_VALUE,
21102: p_token1 => G_COL_NAME_TOKEN,
21103: p_token1_value => 'Payment Line Record');
21104: l_return_status := OKL_API.G_RET_STS_ERROR;
21100: OKL_API.set_message(p_app_name => G_APP_NAME,
21101: p_msg_name => G_REQUIRED_VALUE,
21102: p_token1 => G_COL_NAME_TOKEN,
21103: p_token1_value => 'Payment Line Record');
21104: l_return_status := OKL_API.G_RET_STS_ERROR;
21105: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
21106: EXIT WHEN(l_return_status <> OKL_API.G_RET_STS_SUCCESS);
21107: END IF;
21108: END IF;
21101: p_msg_name => G_REQUIRED_VALUE,
21102: p_token1 => G_COL_NAME_TOKEN,
21103: p_token1_value => 'Payment Line Record');
21104: l_return_status := OKL_API.G_RET_STS_ERROR;
21105: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
21106: EXIT WHEN(l_return_status <> OKL_API.G_RET_STS_SUCCESS);
21107: END IF;
21108: END IF;
21109: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
21102: p_token1 => G_COL_NAME_TOKEN,
21103: p_token1_value => 'Payment Line Record');
21104: l_return_status := OKL_API.G_RET_STS_ERROR;
21105: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
21106: EXIT WHEN(l_return_status <> OKL_API.G_RET_STS_SUCCESS);
21107: END IF;
21108: END IF;
21109: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
21110: EXIT WHEN(l_return_status <> OKL_API.G_RET_STS_SUCCESS);
21105: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
21106: EXIT WHEN(l_return_status <> OKL_API.G_RET_STS_SUCCESS);
21107: END IF;
21108: END IF;
21109: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
21110: EXIT WHEN(l_return_status <> OKL_API.G_RET_STS_SUCCESS);
21111: END IF;
21112: lt_sll_date_tbl_type.DELETE;
21113: i := 0;
21106: EXIT WHEN(l_return_status <> OKL_API.G_RET_STS_SUCCESS);
21107: END IF;
21108: END IF;
21109: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
21110: EXIT WHEN(l_return_status <> OKL_API.G_RET_STS_SUCCESS);
21111: END IF;
21112: lt_sll_date_tbl_type.DELETE;
21113: i := 0;
21114: END LOOP;
21111: END IF;
21112: lt_sll_date_tbl_type.DELETE;
21113: i := 0;
21114: END LOOP;
21115: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
21116: EXIT WHEN(l_return_status <> OKL_API.G_RET_STS_SUCCESS);
21117: END IF;
21118: END LOOP;
21119: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
21112: lt_sll_date_tbl_type.DELETE;
21113: i := 0;
21114: END LOOP;
21115: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
21116: EXIT WHEN(l_return_status <> OKL_API.G_RET_STS_SUCCESS);
21117: END IF;
21118: END LOOP;
21119: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
21120: RAISE OKL_API.G_EXCEPTION_ERROR;
21115: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
21116: EXIT WHEN(l_return_status <> OKL_API.G_RET_STS_SUCCESS);
21117: END IF;
21118: END LOOP;
21119: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
21120: RAISE OKL_API.G_EXCEPTION_ERROR;
21121: END IF;
21122: ELSIF l_paym_tbl.COUNT > 0 THEN
21123: i := l_paym_tbl.FIRST;
21116: EXIT WHEN(l_return_status <> OKL_API.G_RET_STS_SUCCESS);
21117: END IF;
21118: END LOOP;
21119: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
21120: RAISE OKL_API.G_EXCEPTION_ERROR;
21121: END IF;
21122: ELSIF l_paym_tbl.COUNT > 0 THEN
21123: i := l_paym_tbl.FIRST;
21124: LOOP
21122: ELSIF l_paym_tbl.COUNT > 0 THEN
21123: i := l_paym_tbl.FIRST;
21124: LOOP
21125: IF (l_paym_tbl(i).START_DATE IS NULL OR
21126: l_paym_tbl(i).START_DATE = OKL_API.G_MISS_DATE) OR
21127: (l_paym_tbl(i).frequency IS NULL OR
21128: l_paym_tbl(i).frequency = OKL_API.G_MISS_CHAR) OR
21129: l_paym_tbl(i).frequency NOT IN ('A','S','Q','M') THEN
21130: OKL_API.set_message(p_app_name => G_APP_NAME,
21124: LOOP
21125: IF (l_paym_tbl(i).START_DATE IS NULL OR
21126: l_paym_tbl(i).START_DATE = OKL_API.G_MISS_DATE) OR
21127: (l_paym_tbl(i).frequency IS NULL OR
21128: l_paym_tbl(i).frequency = OKL_API.G_MISS_CHAR) OR
21129: l_paym_tbl(i).frequency NOT IN ('A','S','Q','M') THEN
21130: OKL_API.set_message(p_app_name => G_APP_NAME,
21131: p_msg_name => G_REQUIRED_VALUE,
21132: p_token1 => G_COL_NAME_TOKEN,
21126: l_paym_tbl(i).START_DATE = OKL_API.G_MISS_DATE) OR
21127: (l_paym_tbl(i).frequency IS NULL OR
21128: l_paym_tbl(i).frequency = OKL_API.G_MISS_CHAR) OR
21129: l_paym_tbl(i).frequency NOT IN ('A','S','Q','M') THEN
21130: OKL_API.set_message(p_app_name => G_APP_NAME,
21131: p_msg_name => G_REQUIRED_VALUE,
21132: p_token1 => G_COL_NAME_TOKEN,
21133: p_token1_value => 'Start date, Frequency');
21134: l_return_status := OKL_API.G_RET_STS_ERROR;
21130: OKL_API.set_message(p_app_name => G_APP_NAME,
21131: p_msg_name => G_REQUIRED_VALUE,
21132: p_token1 => G_COL_NAME_TOKEN,
21133: p_token1_value => 'Start date, Frequency');
21134: l_return_status := OKL_API.G_RET_STS_ERROR;
21135: EXIT WHEN (l_return_status = OKL_API.G_RET_STS_ERROR);
21136: END IF;
21137: IF l_paym_tbl(i).frequency = 'A' THEN
21138: l_freq := 12;
21131: p_msg_name => G_REQUIRED_VALUE,
21132: p_token1 => G_COL_NAME_TOKEN,
21133: p_token1_value => 'Start date, Frequency');
21134: l_return_status := OKL_API.G_RET_STS_ERROR;
21135: EXIT WHEN (l_return_status = OKL_API.G_RET_STS_ERROR);
21136: END IF;
21137: IF l_paym_tbl(i).frequency = 'A' THEN
21138: l_freq := 12;
21139: ELSIF l_paym_tbl(i).frequency = 'S' THEN
21143: ELSIF l_paym_tbl(i).frequency = 'M' THEN
21144: l_freq := 1;
21145: END IF;
21146: IF (l_paym_tbl(i).stub_days IS NULL OR
21147: l_paym_tbl(i).stub_days = OKL_API.G_MISS_NUM) AND
21148: (l_paym_tbl(i).periods IS NOT NULL OR
21149: l_paym_tbl(i).periods <> OKL_API.G_MISS_NUM) THEN
21150: lt_sll_date_tbl_type(j).START_DATE := l_paym_tbl(i).START_DATE;
21151: lt_sll_date_tbl_type(j).end_date := ADD_MONTHS(l_paym_tbl(i).START_DATE,(l_paym_tbl(i).periods*l_freq))-1;
21145: END IF;
21146: IF (l_paym_tbl(i).stub_days IS NULL OR
21147: l_paym_tbl(i).stub_days = OKL_API.G_MISS_NUM) AND
21148: (l_paym_tbl(i).periods IS NOT NULL OR
21149: l_paym_tbl(i).periods <> OKL_API.G_MISS_NUM) THEN
21150: lt_sll_date_tbl_type(j).START_DATE := l_paym_tbl(i).START_DATE;
21151: lt_sll_date_tbl_type(j).end_date := ADD_MONTHS(l_paym_tbl(i).START_DATE,(l_paym_tbl(i).periods*l_freq))-1;
21152: ELSIF (l_paym_tbl(i).stub_days IS NOT NULL OR
21153: l_paym_tbl(i).stub_days <> OKL_API.G_MISS_NUM) AND
21149: l_paym_tbl(i).periods <> OKL_API.G_MISS_NUM) THEN
21150: lt_sll_date_tbl_type(j).START_DATE := l_paym_tbl(i).START_DATE;
21151: lt_sll_date_tbl_type(j).end_date := ADD_MONTHS(l_paym_tbl(i).START_DATE,(l_paym_tbl(i).periods*l_freq))-1;
21152: ELSIF (l_paym_tbl(i).stub_days IS NOT NULL OR
21153: l_paym_tbl(i).stub_days <> OKL_API.G_MISS_NUM) AND
21154: (l_paym_tbl(i).periods IS NULL OR
21155: l_paym_tbl(i).periods = OKL_API.G_MISS_NUM) THEN
21156: lt_sll_date_tbl_type(j).START_DATE := l_paym_tbl(i).START_DATE;
21157: lt_sll_date_tbl_type(j).end_date := (l_paym_tbl(i).START_DATE+l_paym_tbl(i).stub_days)-1;
21151: lt_sll_date_tbl_type(j).end_date := ADD_MONTHS(l_paym_tbl(i).START_DATE,(l_paym_tbl(i).periods*l_freq))-1;
21152: ELSIF (l_paym_tbl(i).stub_days IS NOT NULL OR
21153: l_paym_tbl(i).stub_days <> OKL_API.G_MISS_NUM) AND
21154: (l_paym_tbl(i).periods IS NULL OR
21155: l_paym_tbl(i).periods = OKL_API.G_MISS_NUM) THEN
21156: lt_sll_date_tbl_type(j).START_DATE := l_paym_tbl(i).START_DATE;
21157: lt_sll_date_tbl_type(j).end_date := (l_paym_tbl(i).START_DATE+l_paym_tbl(i).stub_days)-1;
21158: ELSIF (l_paym_tbl(i).periods IS NULL OR
21159: l_paym_tbl(i).periods = OKL_API.G_MISS_NUM) AND
21155: l_paym_tbl(i).periods = OKL_API.G_MISS_NUM) THEN
21156: lt_sll_date_tbl_type(j).START_DATE := l_paym_tbl(i).START_DATE;
21157: lt_sll_date_tbl_type(j).end_date := (l_paym_tbl(i).START_DATE+l_paym_tbl(i).stub_days)-1;
21158: ELSIF (l_paym_tbl(i).periods IS NULL OR
21159: l_paym_tbl(i).periods = OKL_API.G_MISS_NUM) AND
21160: (l_paym_tbl(i).stub_days IS NULL OR
21161: l_paym_tbl(i).stub_days = OKL_API.G_MISS_NUM) THEN
21162: OKL_API.set_message(p_app_name => G_APP_NAME,
21163: p_msg_name => G_REQUIRED_VALUE,
21157: lt_sll_date_tbl_type(j).end_date := (l_paym_tbl(i).START_DATE+l_paym_tbl(i).stub_days)-1;
21158: ELSIF (l_paym_tbl(i).periods IS NULL OR
21159: l_paym_tbl(i).periods = OKL_API.G_MISS_NUM) AND
21160: (l_paym_tbl(i).stub_days IS NULL OR
21161: l_paym_tbl(i).stub_days = OKL_API.G_MISS_NUM) THEN
21162: OKL_API.set_message(p_app_name => G_APP_NAME,
21163: p_msg_name => G_REQUIRED_VALUE,
21164: p_token1 => G_COL_NAME_TOKEN,
21165: p_token1_value => 'Stub days, Periods');
21158: ELSIF (l_paym_tbl(i).periods IS NULL OR
21159: l_paym_tbl(i).periods = OKL_API.G_MISS_NUM) AND
21160: (l_paym_tbl(i).stub_days IS NULL OR
21161: l_paym_tbl(i).stub_days = OKL_API.G_MISS_NUM) THEN
21162: OKL_API.set_message(p_app_name => G_APP_NAME,
21163: p_msg_name => G_REQUIRED_VALUE,
21164: p_token1 => G_COL_NAME_TOKEN,
21165: p_token1_value => 'Stub days, Periods');
21166: l_return_status := OKL_API.G_RET_STS_ERROR;
21162: OKL_API.set_message(p_app_name => G_APP_NAME,
21163: p_msg_name => G_REQUIRED_VALUE,
21164: p_token1 => G_COL_NAME_TOKEN,
21165: p_token1_value => 'Stub days, Periods');
21166: l_return_status := OKL_API.G_RET_STS_ERROR;
21167: EXIT WHEN (l_return_status = OKL_API.G_RET_STS_ERROR);
21168: END IF;
21169: j := j + 1;
21170: -- Collecting amount and rate info to validate further
21163: p_msg_name => G_REQUIRED_VALUE,
21164: p_token1 => G_COL_NAME_TOKEN,
21165: p_token1_value => 'Stub days, Periods');
21166: l_return_status := OKL_API.G_RET_STS_ERROR;
21167: EXIT WHEN (l_return_status = OKL_API.G_RET_STS_ERROR);
21168: END IF;
21169: j := j + 1;
21170: -- Collecting amount and rate info to validate further
21171: IF l_paym_tbl(i).amount IS NULL THEN
21180: ln_cnt_rte_not_null := ln_cnt_rte_not_null + 1;
21181: END IF;
21182: l_paym_tbl(i).arrears_yn := nvl(l_paym_tbl(i).arrears_yn,'Y');
21183: IF l_paym_tbl(i).arrears_yn IS NULL OR
21184: l_paym_tbl(i).arrears_yn = OKL_API.G_MISS_CHAR THEN
21185: l_return_status := OKL_API.G_RET_STS_ERROR;
21186: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
21187: OKL_API.set_message(p_app_name => G_APP_NAME,
21188: p_msg_name => G_INVALID_VALUE,
21181: END IF;
21182: l_paym_tbl(i).arrears_yn := nvl(l_paym_tbl(i).arrears_yn,'Y');
21183: IF l_paym_tbl(i).arrears_yn IS NULL OR
21184: l_paym_tbl(i).arrears_yn = OKL_API.G_MISS_CHAR THEN
21185: l_return_status := OKL_API.G_RET_STS_ERROR;
21186: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
21187: OKL_API.set_message(p_app_name => G_APP_NAME,
21188: p_msg_name => G_INVALID_VALUE,
21189: p_token1 => G_COL_NAME_TOKEN,
21182: l_paym_tbl(i).arrears_yn := nvl(l_paym_tbl(i).arrears_yn,'Y');
21183: IF l_paym_tbl(i).arrears_yn IS NULL OR
21184: l_paym_tbl(i).arrears_yn = OKL_API.G_MISS_CHAR THEN
21185: l_return_status := OKL_API.G_RET_STS_ERROR;
21186: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
21187: OKL_API.set_message(p_app_name => G_APP_NAME,
21188: p_msg_name => G_INVALID_VALUE,
21189: p_token1 => G_COL_NAME_TOKEN,
21190: p_token1_value => 'Arrear');
21183: IF l_paym_tbl(i).arrears_yn IS NULL OR
21184: l_paym_tbl(i).arrears_yn = OKL_API.G_MISS_CHAR THEN
21185: l_return_status := OKL_API.G_RET_STS_ERROR;
21186: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
21187: OKL_API.set_message(p_app_name => G_APP_NAME,
21188: p_msg_name => G_INVALID_VALUE,
21189: p_token1 => G_COL_NAME_TOKEN,
21190: p_token1_value => 'Arrear');
21191: EXIT WHEN(l_return_status <> OKL_API.G_RET_STS_SUCCESS);
21187: OKL_API.set_message(p_app_name => G_APP_NAME,
21188: p_msg_name => G_INVALID_VALUE,
21189: p_token1 => G_COL_NAME_TOKEN,
21190: p_token1_value => 'Arrear');
21191: EXIT WHEN(l_return_status <> OKL_API.G_RET_STS_SUCCESS);
21192: END IF;
21193: ELSIF (l_paym_tbl(i).arrears_yn IS NOT NULL OR
21194: l_paym_tbl(i).arrears_yn <> OKL_API.G_MISS_CHAR) AND
21195: l_paym_tbl(i).arrears_yn = 'N' THEN
21190: p_token1_value => 'Arrear');
21191: EXIT WHEN(l_return_status <> OKL_API.G_RET_STS_SUCCESS);
21192: END IF;
21193: ELSIF (l_paym_tbl(i).arrears_yn IS NOT NULL OR
21194: l_paym_tbl(i).arrears_yn <> OKL_API.G_MISS_CHAR) AND
21195: l_paym_tbl(i).arrears_yn = 'N' THEN
21196: IF l_paym_tbl(i).STRUCTURE IS NULL OR
21197: l_paym_tbl(i).STRUCTURE = OKL_API.G_MISS_CHAR THEN
21198: l_return_status := OKL_API.G_RET_STS_ERROR;
21193: ELSIF (l_paym_tbl(i).arrears_yn IS NOT NULL OR
21194: l_paym_tbl(i).arrears_yn <> OKL_API.G_MISS_CHAR) AND
21195: l_paym_tbl(i).arrears_yn = 'N' THEN
21196: IF l_paym_tbl(i).STRUCTURE IS NULL OR
21197: l_paym_tbl(i).STRUCTURE = OKL_API.G_MISS_CHAR THEN
21198: l_return_status := OKL_API.G_RET_STS_ERROR;
21199: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
21200: OKL_API.set_message(p_app_name => G_APP_NAME,
21201: p_msg_name => G_INVALID_VALUE,
21194: l_paym_tbl(i).arrears_yn <> OKL_API.G_MISS_CHAR) AND
21195: l_paym_tbl(i).arrears_yn = 'N' THEN
21196: IF l_paym_tbl(i).STRUCTURE IS NULL OR
21197: l_paym_tbl(i).STRUCTURE = OKL_API.G_MISS_CHAR THEN
21198: l_return_status := OKL_API.G_RET_STS_ERROR;
21199: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
21200: OKL_API.set_message(p_app_name => G_APP_NAME,
21201: p_msg_name => G_INVALID_VALUE,
21202: p_token1 => G_COL_NAME_TOKEN,
21195: l_paym_tbl(i).arrears_yn = 'N' THEN
21196: IF l_paym_tbl(i).STRUCTURE IS NULL OR
21197: l_paym_tbl(i).STRUCTURE = OKL_API.G_MISS_CHAR THEN
21198: l_return_status := OKL_API.G_RET_STS_ERROR;
21199: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
21200: OKL_API.set_message(p_app_name => G_APP_NAME,
21201: p_msg_name => G_INVALID_VALUE,
21202: p_token1 => G_COL_NAME_TOKEN,
21203: p_token1_value => 'Structure');
21196: IF l_paym_tbl(i).STRUCTURE IS NULL OR
21197: l_paym_tbl(i).STRUCTURE = OKL_API.G_MISS_CHAR THEN
21198: l_return_status := OKL_API.G_RET_STS_ERROR;
21199: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
21200: OKL_API.set_message(p_app_name => G_APP_NAME,
21201: p_msg_name => G_INVALID_VALUE,
21202: p_token1 => G_COL_NAME_TOKEN,
21203: p_token1_value => 'Structure');
21204: EXIT WHEN(l_return_status <> OKL_API.G_RET_STS_SUCCESS);
21200: OKL_API.set_message(p_app_name => G_APP_NAME,
21201: p_msg_name => G_INVALID_VALUE,
21202: p_token1 => G_COL_NAME_TOKEN,
21203: p_token1_value => 'Structure');
21204: EXIT WHEN(l_return_status <> OKL_API.G_RET_STS_SUCCESS);
21205: END IF;
21206: END IF;
21207: END IF;
21208: EXIT WHEN (i = l_paym_tbl.LAST);
21207: END IF;
21208: EXIT WHEN (i = l_paym_tbl.LAST);
21209: i := l_paym_tbl.NEXT(i);
21210: END LOOP;
21211: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
21212: RAISE OKL_API.G_EXCEPTION_ERROR;
21213: END IF;
21214: -- Validating amounts and rates values
21215: IF ln_cnt_rte_not_null = l_paym_tbl.COUNT AND
21208: EXIT WHEN (i = l_paym_tbl.LAST);
21209: i := l_paym_tbl.NEXT(i);
21210: END LOOP;
21211: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
21212: RAISE OKL_API.G_EXCEPTION_ERROR;
21213: END IF;
21214: -- Validating amounts and rates values
21215: IF ln_cnt_rte_not_null = l_paym_tbl.COUNT AND
21216: ln_cnt_amt_null < l_paym_tbl.COUNT AND
21214: -- Validating amounts and rates values
21215: IF ln_cnt_rte_not_null = l_paym_tbl.COUNT AND
21216: ln_cnt_amt_null < l_paym_tbl.COUNT AND
21217: ln_cnt_amt_null > 1 THEN
21218: OKL_API.set_message(p_app_name => G_APP_NAME,
21219: p_msg_name => G_INVALID_VALUE,
21220: p_token1 => G_COL_NAME_TOKEN,
21221: p_token1_value => 'payment amounts');
21222: RAISE OKL_API.G_EXCEPTION_ERROR;
21218: OKL_API.set_message(p_app_name => G_APP_NAME,
21219: p_msg_name => G_INVALID_VALUE,
21220: p_token1 => G_COL_NAME_TOKEN,
21221: p_token1_value => 'payment amounts');
21222: RAISE OKL_API.G_EXCEPTION_ERROR;
21223: END IF;
21224: IF ln_cnt_amt_not_null = l_paym_tbl.COUNT THEN
21225: IF ln_cnt_rte_not_null < l_paym_tbl.COUNT AND
21226: ln_cnt_rte_not_null > 0 THEN
21223: END IF;
21224: IF ln_cnt_amt_not_null = l_paym_tbl.COUNT THEN
21225: IF ln_cnt_rte_not_null < l_paym_tbl.COUNT AND
21226: ln_cnt_rte_not_null > 0 THEN
21227: OKL_API.set_message(p_app_name => G_APP_NAME,
21228: p_msg_name => G_INVALID_VALUE,
21229: p_token1 => G_COL_NAME_TOKEN,
21230: p_token1_value => 'payment rates');
21231: RAISE OKL_API.G_EXCEPTION_ERROR;
21227: OKL_API.set_message(p_app_name => G_APP_NAME,
21228: p_msg_name => G_INVALID_VALUE,
21229: p_token1 => G_COL_NAME_TOKEN,
21230: p_token1_value => 'payment rates');
21231: RAISE OKL_API.G_EXCEPTION_ERROR;
21232: END IF;
21233: END IF;
21234: IF ln_cnt_rte_null = l_paym_tbl.COUNT AND
21235: ln_cnt_amt_null = l_paym_tbl.COUNT THEN
21232: END IF;
21233: END IF;
21234: IF ln_cnt_rte_null = l_paym_tbl.COUNT AND
21235: ln_cnt_amt_null = l_paym_tbl.COUNT THEN
21236: OKL_API.set_message(p_app_name => G_APP_NAME,
21237: p_msg_name => G_REQUIRED_VALUE,
21238: p_token1 => G_COL_NAME_TOKEN,
21239: p_token1_value => 'payment rate and payment amount');
21240: RAISE OKL_API.G_EXCEPTION_ERROR;
21236: OKL_API.set_message(p_app_name => G_APP_NAME,
21237: p_msg_name => G_REQUIRED_VALUE,
21238: p_token1 => G_COL_NAME_TOKEN,
21239: p_token1_value => 'payment rate and payment amount');
21240: RAISE OKL_API.G_EXCEPTION_ERROR;
21241: END IF;
21242: IF ln_cnt_rte_not_null <> l_paym_tbl.COUNT AND
21243: ln_cnt_amt_not_null <> l_paym_tbl.COUNT THEN
21244: OKL_API.set_message(p_app_name => G_APP_NAME,
21240: RAISE OKL_API.G_EXCEPTION_ERROR;
21241: END IF;
21242: IF ln_cnt_rte_not_null <> l_paym_tbl.COUNT AND
21243: ln_cnt_amt_not_null <> l_paym_tbl.COUNT THEN
21244: OKL_API.set_message(p_app_name => G_APP_NAME,
21245: p_msg_name => G_INVALID_VALUE,
21246: p_token1 => G_COL_NAME_TOKEN,
21247: p_token1_value => 'payment rates and payment amounts');
21248: RAISE OKL_API.G_EXCEPTION_ERROR;
21244: OKL_API.set_message(p_app_name => G_APP_NAME,
21245: p_msg_name => G_INVALID_VALUE,
21246: p_token1 => G_COL_NAME_TOKEN,
21247: p_token1_value => 'payment rates and payment amounts');
21248: RAISE OKL_API.G_EXCEPTION_ERROR;
21249: END IF;
21250: ln_cnt_amt_null := 0;
21251: ln_cnt_amt_not_null := 0;
21252: ln_cnt_rte_null := 0;
21257: FOR k IN lt_sll_date_tbl_type.FIRST..lt_sll_date_tbl_type.LAST LOOP
21258: EXIT WHEN(k = lt_sll_date_tbl_type.LAST);
21259: IF lt_sll_date_tbl_type(k+1).start_date >= lt_sll_date_tbl_type(k).start_date AND
21260: lt_sll_date_tbl_type(k+1).start_date <= lt_sll_date_tbl_type(k).end_date THEN
21261: OKL_API.set_message(p_app_name => G_APP_NAME,
21262: p_msg_name => G_PAYMENT_OVERLAP_ERROR);
21263: l_return_status := OKL_API.G_RET_STS_ERROR;
21264: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
21265: EXIT WHEN(l_return_status <> OKL_API.G_RET_STS_SUCCESS);
21259: IF lt_sll_date_tbl_type(k+1).start_date >= lt_sll_date_tbl_type(k).start_date AND
21260: lt_sll_date_tbl_type(k+1).start_date <= lt_sll_date_tbl_type(k).end_date THEN
21261: OKL_API.set_message(p_app_name => G_APP_NAME,
21262: p_msg_name => G_PAYMENT_OVERLAP_ERROR);
21263: l_return_status := OKL_API.G_RET_STS_ERROR;
21264: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
21265: EXIT WHEN(l_return_status <> OKL_API.G_RET_STS_SUCCESS);
21266: END IF;
21267: ELSIF lt_sll_date_tbl_type(k+1).start_date > lt_sll_date_tbl_type(k).end_date + 1 THEN
21260: lt_sll_date_tbl_type(k+1).start_date <= lt_sll_date_tbl_type(k).end_date THEN
21261: OKL_API.set_message(p_app_name => G_APP_NAME,
21262: p_msg_name => G_PAYMENT_OVERLAP_ERROR);
21263: l_return_status := OKL_API.G_RET_STS_ERROR;
21264: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
21265: EXIT WHEN(l_return_status <> OKL_API.G_RET_STS_SUCCESS);
21266: END IF;
21267: ELSIF lt_sll_date_tbl_type(k+1).start_date > lt_sll_date_tbl_type(k).end_date + 1 THEN
21268: OKL_API.set_message(p_app_name => G_APP_NAME,
21261: OKL_API.set_message(p_app_name => G_APP_NAME,
21262: p_msg_name => G_PAYMENT_OVERLAP_ERROR);
21263: l_return_status := OKL_API.G_RET_STS_ERROR;
21264: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
21265: EXIT WHEN(l_return_status <> OKL_API.G_RET_STS_SUCCESS);
21266: END IF;
21267: ELSIF lt_sll_date_tbl_type(k+1).start_date > lt_sll_date_tbl_type(k).end_date + 1 THEN
21268: OKL_API.set_message(p_app_name => G_APP_NAME,
21269: p_msg_name => G_PAYMENT_GAP_ERROR);
21264: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
21265: EXIT WHEN(l_return_status <> OKL_API.G_RET_STS_SUCCESS);
21266: END IF;
21267: ELSIF lt_sll_date_tbl_type(k+1).start_date > lt_sll_date_tbl_type(k).end_date + 1 THEN
21268: OKL_API.set_message(p_app_name => G_APP_NAME,
21269: p_msg_name => G_PAYMENT_GAP_ERROR);
21270: l_return_status := OKL_API.G_RET_STS_ERROR;
21271: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
21272: EXIT WHEN(l_return_status <> OKL_API.G_RET_STS_SUCCESS);
21266: END IF;
21267: ELSIF lt_sll_date_tbl_type(k+1).start_date > lt_sll_date_tbl_type(k).end_date + 1 THEN
21268: OKL_API.set_message(p_app_name => G_APP_NAME,
21269: p_msg_name => G_PAYMENT_GAP_ERROR);
21270: l_return_status := OKL_API.G_RET_STS_ERROR;
21271: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
21272: EXIT WHEN(l_return_status <> OKL_API.G_RET_STS_SUCCESS);
21273: END IF;
21274: END IF;
21267: ELSIF lt_sll_date_tbl_type(k+1).start_date > lt_sll_date_tbl_type(k).end_date + 1 THEN
21268: OKL_API.set_message(p_app_name => G_APP_NAME,
21269: p_msg_name => G_PAYMENT_GAP_ERROR);
21270: l_return_status := OKL_API.G_RET_STS_ERROR;
21271: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
21272: EXIT WHEN(l_return_status <> OKL_API.G_RET_STS_SUCCESS);
21273: END IF;
21274: END IF;
21275: END LOOP;
21268: OKL_API.set_message(p_app_name => G_APP_NAME,
21269: p_msg_name => G_PAYMENT_GAP_ERROR);
21270: l_return_status := OKL_API.G_RET_STS_ERROR;
21271: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
21272: EXIT WHEN(l_return_status <> OKL_API.G_RET_STS_SUCCESS);
21273: END IF;
21274: END IF;
21275: END LOOP;
21276: END IF;
21275: END LOOP;
21276: END IF;
21277: END IF;
21278: ELSE
21279: OKL_API.set_message(p_app_name => G_APP_NAME,
21280: p_msg_name => G_REQUIRED_VALUE,
21281: p_token1 => G_COL_NAME_TOKEN,
21282: p_token1_value => 'Payment Line Record');
21283: l_return_status := OKL_API.G_RET_STS_ERROR;
21279: OKL_API.set_message(p_app_name => G_APP_NAME,
21280: p_msg_name => G_REQUIRED_VALUE,
21281: p_token1 => G_COL_NAME_TOKEN,
21282: p_token1_value => 'Payment Line Record');
21283: l_return_status := OKL_API.G_RET_STS_ERROR;
21284: END IF;
21285: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
21286: RAISE OKL_API.G_EXCEPTION_ERROR;
21287: END IF;
21281: p_token1 => G_COL_NAME_TOKEN,
21282: p_token1_value => 'Payment Line Record');
21283: l_return_status := OKL_API.G_RET_STS_ERROR;
21284: END IF;
21285: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
21286: RAISE OKL_API.G_EXCEPTION_ERROR;
21287: END IF;
21288: x_return_status := l_return_status;
21289: OKL_API.END_ACTIVITY (x_msg_count,
21282: p_token1_value => 'Payment Line Record');
21283: l_return_status := OKL_API.G_RET_STS_ERROR;
21284: END IF;
21285: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
21286: RAISE OKL_API.G_EXCEPTION_ERROR;
21287: END IF;
21288: x_return_status := l_return_status;
21289: OKL_API.END_ACTIVITY (x_msg_count,
21290: x_msg_data );
21285: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
21286: RAISE OKL_API.G_EXCEPTION_ERROR;
21287: END IF;
21288: x_return_status := l_return_status;
21289: OKL_API.END_ACTIVITY (x_msg_count,
21290: x_msg_data );
21291: EXCEPTION
21292: WHEN OKL_API.G_EXCEPTION_ERROR THEN
21293: IF c_get_sll_lines_csr%ISOPEN THEN
21288: x_return_status := l_return_status;
21289: OKL_API.END_ACTIVITY (x_msg_count,
21290: x_msg_data );
21291: EXCEPTION
21292: WHEN OKL_API.G_EXCEPTION_ERROR THEN
21293: IF c_get_sll_lines_csr%ISOPEN THEN
21294: CLOSE c_get_sll_lines_csr;
21295: END IF;
21296: IF c_get_slh_lines_csr%ISOPEN THEN
21307: END IF;
21308: IF c_get_psth_csr%ISOPEN THEN
21309: CLOSE c_get_psth_csr;
21310: END IF;
21311: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
21312: l_api_name,
21313: G_PKG_NAME,
21314: 'OKL_API.G_RET_STS_ERROR',
21315: x_msg_count,
21310: END IF;
21311: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
21312: l_api_name,
21313: G_PKG_NAME,
21314: 'OKL_API.G_RET_STS_ERROR',
21315: x_msg_count,
21316: x_msg_data,
21317: '_PVT');
21318: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
21314: 'OKL_API.G_RET_STS_ERROR',
21315: x_msg_count,
21316: x_msg_data,
21317: '_PVT');
21318: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
21319: IF c_get_sll_lines_csr%ISOPEN THEN
21320: CLOSE c_get_sll_lines_csr;
21321: END IF;
21322: IF c_get_slh_lines_csr%ISOPEN THEN
21333: END IF;
21334: IF c_get_psth_csr%ISOPEN THEN
21335: CLOSE c_get_psth_csr;
21336: END IF;
21337: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
21338: l_api_name,
21339: G_PKG_NAME,
21340: 'OKL_API.G_RET_STS_UNEXP_ERROR',
21341: x_msg_count,
21336: END IF;
21337: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
21338: l_api_name,
21339: G_PKG_NAME,
21340: 'OKL_API.G_RET_STS_UNEXP_ERROR',
21341: x_msg_count,
21342: x_msg_data,
21343: '_PVT');
21344: WHEN OTHERS THEN
21359: END IF;
21360: IF c_get_psth_csr%ISOPEN THEN
21361: CLOSE c_get_psth_csr;
21362: END IF;
21363: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
21364: l_api_name,
21365: G_PKG_NAME,
21366: 'OTHERS',
21367: x_msg_count,
21385: x_return_status OUT NOCOPY VARCHAR2,
21386: x_asset_oec OUT NOCOPY NUMBER,
21387: x_start_date OUT NOCOPY DATE)
21388: IS
21389: l_return_status VARCHAR2(3):= OKL_API.G_RET_STS_SUCCESS;
21390: l_msg_count NUMBER;
21391: l_msg_data VARCHAR2(32767);
21392: G_FORMULA_DIS OKL_FORMULAE_V.NAME%TYPE := 'LINE_DISCOUNT';
21393: G_AMT_TOKEN CONSTANT VARCHAR2(200) := 'AMOUNT';
21433: AND chr_rv.START_DATE = cle_rv.START_DATE
21434: AND cle_rv.id = kle_rv.id;
21435: BEGIN
21436: IF p_subside_yn NOT IN ('Y','N') THEN
21437: OKL_API.set_message(p_app_name => G_APP_NAME,
21438: p_msg_name => G_INVALID_VALUE,
21439: p_token1 => G_COL_NAME_TOKEN,
21440: p_token1_value => 'p_subside_yn');
21441: RAISE OKL_API.G_EXCEPTION_ERROR;
21437: OKL_API.set_message(p_app_name => G_APP_NAME,
21438: p_msg_name => G_INVALID_VALUE,
21439: p_token1 => G_COL_NAME_TOKEN,
21440: p_token1_value => 'p_subside_yn');
21441: RAISE OKL_API.G_EXCEPTION_ERROR;
21442: END IF;
21443: FOR get_oec_rec IN get_oec_csr(p_khr_id => p_khr_id,
21444: p_kle_id => p_kle_id) LOOP
21445: IF p_subside_yn = 'Y' THEN
21443: FOR get_oec_rec IN get_oec_csr(p_khr_id => p_khr_id,
21444: p_kle_id => p_kle_id) LOOP
21445: IF p_subside_yn = 'Y' THEN
21446: execute_formula(p_api_version => l_api_version,
21447: p_init_msg_list => OKL_API.G_TRUE,
21448: x_return_status => l_return_status,
21449: x_msg_count => l_msg_count,
21450: x_msg_data => l_msg_data,
21451: p_formula_name => G_FORMULA_DIS,
21451: p_formula_name => G_FORMULA_DIS,
21452: p_contract_id => p_khr_id,
21453: p_line_id => get_oec_rec.asset_line_id,
21454: x_value => l_dis_amt);
21455: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
21456: OKL_API.set_message(p_app_name => G_APP_NAME,
21457: p_msg_name => G_CALC_AMOUNT);
21458: EXIT WHEN(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
21459: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
21452: p_contract_id => p_khr_id,
21453: p_line_id => get_oec_rec.asset_line_id,
21454: x_value => l_dis_amt);
21455: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
21456: OKL_API.set_message(p_app_name => G_APP_NAME,
21457: p_msg_name => G_CALC_AMOUNT);
21458: EXIT WHEN(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
21459: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
21460: OKL_API.set_message(p_app_name => G_APP_NAME,
21454: x_value => l_dis_amt);
21455: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
21456: OKL_API.set_message(p_app_name => G_APP_NAME,
21457: p_msg_name => G_CALC_AMOUNT);
21458: EXIT WHEN(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
21459: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
21460: OKL_API.set_message(p_app_name => G_APP_NAME,
21461: p_msg_name => G_CALC_AMOUNT);
21462: EXIT WHEN(l_return_status = OKL_API.G_RET_STS_ERROR);
21455: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
21456: OKL_API.set_message(p_app_name => G_APP_NAME,
21457: p_msg_name => G_CALC_AMOUNT);
21458: EXIT WHEN(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
21459: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
21460: OKL_API.set_message(p_app_name => G_APP_NAME,
21461: p_msg_name => G_CALC_AMOUNT);
21462: EXIT WHEN(l_return_status = OKL_API.G_RET_STS_ERROR);
21463: END IF;
21456: OKL_API.set_message(p_app_name => G_APP_NAME,
21457: p_msg_name => G_CALC_AMOUNT);
21458: EXIT WHEN(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
21459: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
21460: OKL_API.set_message(p_app_name => G_APP_NAME,
21461: p_msg_name => G_CALC_AMOUNT);
21462: EXIT WHEN(l_return_status = OKL_API.G_RET_STS_ERROR);
21463: END IF;
21464: l_tot_oec_amt := l_tot_oec_amt + (get_oec_rec.oec - nvl(l_dis_amt,0));
21458: EXIT WHEN(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
21459: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
21460: OKL_API.set_message(p_app_name => G_APP_NAME,
21461: p_msg_name => G_CALC_AMOUNT);
21462: EXIT WHEN(l_return_status = OKL_API.G_RET_STS_ERROR);
21463: END IF;
21464: l_tot_oec_amt := l_tot_oec_amt + (get_oec_rec.oec - nvl(l_dis_amt,0));
21465: ELSE
21466: l_tot_oec_amt := l_tot_oec_amt + get_oec_rec.oec;
21466: l_tot_oec_amt := l_tot_oec_amt + get_oec_rec.oec;
21467: END IF;
21468: x_start_date := get_oec_rec.START_DATE;
21469: END LOOP;
21470: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
21471: RAISE OKL_API.G_EXCEPTION_ERROR;
21472: END IF;
21473: x_asset_oec := l_tot_oec_amt;
21474: IF NVL(x_asset_oec,0) = 0 THEN
21467: END IF;
21468: x_start_date := get_oec_rec.START_DATE;
21469: END LOOP;
21470: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
21471: RAISE OKL_API.G_EXCEPTION_ERROR;
21472: END IF;
21473: x_asset_oec := l_tot_oec_amt;
21474: IF NVL(x_asset_oec,0) = 0 THEN
21475: OKL_API.set_message(p_app_name => G_APP_NAME,
21471: RAISE OKL_API.G_EXCEPTION_ERROR;
21472: END IF;
21473: x_asset_oec := l_tot_oec_amt;
21474: IF NVL(x_asset_oec,0) = 0 THEN
21475: OKL_API.set_message(p_app_name => G_APP_NAME,
21476: p_msg_name => G_CALC_AMOUNT);
21477: RAISE OKL_API.G_EXCEPTION_ERROR;
21478: END IF;
21479: x_return_status := l_return_status;
21473: x_asset_oec := l_tot_oec_amt;
21474: IF NVL(x_asset_oec,0) = 0 THEN
21475: OKL_API.set_message(p_app_name => G_APP_NAME,
21476: p_msg_name => G_CALC_AMOUNT);
21477: RAISE OKL_API.G_EXCEPTION_ERROR;
21478: END IF;
21479: x_return_status := l_return_status;
21480: EXCEPTION
21481: WHEN OKL_API.G_EXCEPTION_ERROR THEN
21477: RAISE OKL_API.G_EXCEPTION_ERROR;
21478: END IF;
21479: x_return_status := l_return_status;
21480: EXCEPTION
21481: WHEN OKL_API.G_EXCEPTION_ERROR THEN
21482: IF get_oec_csr%ISOPEN THEN
21483: CLOSE get_oec_csr;
21484: END IF;
21485: x_return_status := OKL_API.G_RET_STS_ERROR;
21481: WHEN OKL_API.G_EXCEPTION_ERROR THEN
21482: IF get_oec_csr%ISOPEN THEN
21483: CLOSE get_oec_csr;
21484: END IF;
21485: x_return_status := OKL_API.G_RET_STS_ERROR;
21486: WHEN OTHERS THEN
21487: IF get_oec_csr%ISOPEN THEN
21488: CLOSE get_oec_csr;
21489: END IF;
21486: WHEN OTHERS THEN
21487: IF get_oec_csr%ISOPEN THEN
21488: CLOSE get_oec_csr;
21489: END IF;
21490: x_return_status := OKL_API.G_RET_STS_ERROR;
21491: END get_so_asset_oec1;
21492: -------------------------------------------------------------------------------------------------
21493: -- Start of Commnets
21494: -- Badrinath Kuchibholta
21505: x_return_status OUT NOCOPY VARCHAR2,
21506: x_residual_value OUT NOCOPY NUMBER,
21507: x_start_date OUT NOCOPY DATE)
21508: IS
21509: l_return_status VARCHAR2(3):= OKL_API.G_RET_STS_SUCCESS;
21510: l_msg_count NUMBER;
21511: l_msg_data VARCHAR2(32767);
21512: G_FORMULA_DIS OKL_FORMULAE_V.NAME%TYPE := 'LINE_DISCOUNT';
21513: G_AMT_TOKEN CONSTANT VARCHAR2(200) := 'AMOUNT';
21557: AND cle_rv.id = kle_rv.id;
21558: --end changed by abhsaxen for Bug#6174484
21559: BEGIN
21560: IF p_subside_yn NOT IN ('Y','N') THEN
21561: OKL_API.set_message(p_app_name => G_APP_NAME,
21562: p_msg_name => G_INVALID_VALUE,
21563: p_token1 => G_COL_NAME_TOKEN,
21564: p_token1_value => 'p_subside_yn');
21565: RAISE OKL_API.G_EXCEPTION_ERROR;
21561: OKL_API.set_message(p_app_name => G_APP_NAME,
21562: p_msg_name => G_INVALID_VALUE,
21563: p_token1 => G_COL_NAME_TOKEN,
21564: p_token1_value => 'p_subside_yn');
21565: RAISE OKL_API.G_EXCEPTION_ERROR;
21566: END IF;
21567:
21568: FOR get_rvs_rec IN get_rvs_csr(p_khr_id => p_khr_id,
21569: p_kle_id => p_kle_id) LOOP
21568: FOR get_rvs_rec IN get_rvs_csr(p_khr_id => p_khr_id,
21569: p_kle_id => p_kle_id) LOOP
21570: IF p_subside_yn = 'Y' THEN
21571: execute_formula(p_api_version => l_api_version,
21572: p_init_msg_list => OKL_API.G_TRUE,
21573: x_return_status => l_return_status,
21574: x_msg_count => l_msg_count,
21575: x_msg_data => l_msg_data,
21576: p_formula_name => G_FORMULA_DIS,
21576: p_formula_name => G_FORMULA_DIS,
21577: p_contract_id => p_khr_id,
21578: p_line_id => get_rvs_rec.asset_line_id,
21579: x_value => l_dis_amt);
21580: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
21581: OKL_API.set_message(p_app_name => G_APP_NAME,
21582: p_msg_name => G_CALC_AMOUNT);
21583: EXIT WHEN(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
21584: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
21577: p_contract_id => p_khr_id,
21578: p_line_id => get_rvs_rec.asset_line_id,
21579: x_value => l_dis_amt);
21580: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
21581: OKL_API.set_message(p_app_name => G_APP_NAME,
21582: p_msg_name => G_CALC_AMOUNT);
21583: EXIT WHEN(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
21584: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
21585: OKL_API.set_message(p_app_name => G_APP_NAME,
21579: x_value => l_dis_amt);
21580: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
21581: OKL_API.set_message(p_app_name => G_APP_NAME,
21582: p_msg_name => G_CALC_AMOUNT);
21583: EXIT WHEN(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
21584: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
21585: OKL_API.set_message(p_app_name => G_APP_NAME,
21586: p_msg_name => G_CALC_AMOUNT);
21587: EXIT WHEN(l_return_status = OKL_API.G_RET_STS_ERROR);
21580: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
21581: OKL_API.set_message(p_app_name => G_APP_NAME,
21582: p_msg_name => G_CALC_AMOUNT);
21583: EXIT WHEN(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
21584: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
21585: OKL_API.set_message(p_app_name => G_APP_NAME,
21586: p_msg_name => G_CALC_AMOUNT);
21587: EXIT WHEN(l_return_status = OKL_API.G_RET_STS_ERROR);
21588: END IF;
21581: OKL_API.set_message(p_app_name => G_APP_NAME,
21582: p_msg_name => G_CALC_AMOUNT);
21583: EXIT WHEN(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
21584: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
21585: OKL_API.set_message(p_app_name => G_APP_NAME,
21586: p_msg_name => G_CALC_AMOUNT);
21587: EXIT WHEN(l_return_status = OKL_API.G_RET_STS_ERROR);
21588: END IF;
21589: IF get_rvs_rec.residual_percent IS NOT NULL THEN
21583: EXIT WHEN(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
21584: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
21585: OKL_API.set_message(p_app_name => G_APP_NAME,
21586: p_msg_name => G_CALC_AMOUNT);
21587: EXIT WHEN(l_return_status = OKL_API.G_RET_STS_ERROR);
21588: END IF;
21589: IF get_rvs_rec.residual_percent IS NOT NULL THEN
21590: l_res_val := get_rvs_rec.residual_percent * (get_rvs_rec.oec - nvl(l_dis_amt,0)) /100;
21591: l_tot_res_val := l_tot_res_val + l_res_val;
21603: END IF;
21604: END IF;
21605: x_start_date := get_rvs_rec.START_DATE;
21606: END LOOP;
21607: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
21608: RAISE OKL_API.G_EXCEPTION_ERROR;
21609: END IF;
21610: x_residual_value := l_tot_res_val;
21611: IF (x_residual_value IS NULL) THEN -- bug# 3381546.
21604: END IF;
21605: x_start_date := get_rvs_rec.START_DATE;
21606: END LOOP;
21607: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
21608: RAISE OKL_API.G_EXCEPTION_ERROR;
21609: END IF;
21610: x_residual_value := l_tot_res_val;
21611: IF (x_residual_value IS NULL) THEN -- bug# 3381546.
21612: OKL_API.set_message(p_app_name => G_APP_NAME,
21608: RAISE OKL_API.G_EXCEPTION_ERROR;
21609: END IF;
21610: x_residual_value := l_tot_res_val;
21611: IF (x_residual_value IS NULL) THEN -- bug# 3381546.
21612: OKL_API.set_message(p_app_name => G_APP_NAME,
21613: p_msg_name => G_INVALID_VALUE,
21614: p_token1 => G_COL_NAME_TOKEN,
21615: p_token1_value => 'Residual Value');
21616: RAISE OKL_API.G_EXCEPTION_ERROR;
21612: OKL_API.set_message(p_app_name => G_APP_NAME,
21613: p_msg_name => G_INVALID_VALUE,
21614: p_token1 => G_COL_NAME_TOKEN,
21615: p_token1_value => 'Residual Value');
21616: RAISE OKL_API.G_EXCEPTION_ERROR;
21617: END IF;
21618: x_return_status := l_return_status;
21619: EXCEPTION
21620: WHEN OKL_API.G_EXCEPTION_ERROR THEN
21616: RAISE OKL_API.G_EXCEPTION_ERROR;
21617: END IF;
21618: x_return_status := l_return_status;
21619: EXCEPTION
21620: WHEN OKL_API.G_EXCEPTION_ERROR THEN
21621: IF get_rvs_csr%ISOPEN THEN
21622: CLOSE get_rvs_csr;
21623: END IF;
21624: x_return_status := OKL_API.G_RET_STS_ERROR;
21620: WHEN OKL_API.G_EXCEPTION_ERROR THEN
21621: IF get_rvs_csr%ISOPEN THEN
21622: CLOSE get_rvs_csr;
21623: END IF;
21624: x_return_status := OKL_API.G_RET_STS_ERROR;
21625: WHEN OTHERS THEN
21626: IF get_rvs_csr%ISOPEN THEN
21627: CLOSE get_rvs_csr;
21628: END IF;
21625: WHEN OTHERS THEN
21626: IF get_rvs_csr%ISOPEN THEN
21627: CLOSE get_rvs_csr;
21628: END IF;
21629: x_return_status := OKL_API.G_RET_STS_ERROR;
21630: END get_so_residual_value1;
21631:
21632: -------------------------------------------------------------------------------------------------
21633: -- Start of Commnets
21645: x_return_status OUT NOCOPY VARCHAR2,
21646: x_residual_value OUT NOCOPY NUMBER,
21647: x_start_date OUT NOCOPY DATE)
21648: IS
21649: l_return_status VARCHAR2(3):= OKL_API.G_RET_STS_SUCCESS;
21650: l_msg_count NUMBER;
21651: l_msg_data VARCHAR2(32767);
21652: G_FORMULA_DIS OKL_FORMULAE_V.NAME%TYPE := 'LINE_CAP_AMNT';
21653: G_AMT_TOKEN CONSTANT VARCHAR2(200) := 'AMOUNT';
21669: CLOSE khr_type_csr;
21670:
21671: IF (INSTR( khr_type_rec.scs_code, 'LEASE') > 0) THEN
21672: execute_formula(p_api_version => 1.0,
21673: p_init_msg_list => OKL_API.G_TRUE,
21674: x_return_status => l_return_status,
21675: x_msg_count => l_msg_count,
21676: x_msg_data => l_msg_data,
21677: p_formula_name => 'LINE_RESIDUAL_VALUE',
21677: p_formula_name => 'LINE_RESIDUAL_VALUE',
21678: p_contract_id => p_khr_id,
21679: p_line_id => p_kle_id,
21680: x_value => x_residual_value);
21681: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
21682: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
21683: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
21684: RAISE OKL_API.G_EXCEPTION_ERROR;
21685: END IF;
21678: p_contract_id => p_khr_id,
21679: p_line_id => p_kle_id,
21680: x_value => x_residual_value);
21681: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
21682: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
21683: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
21684: RAISE OKL_API.G_EXCEPTION_ERROR;
21685: END IF;
21686:
21679: p_line_id => p_kle_id,
21680: x_value => x_residual_value);
21681: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
21682: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
21683: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
21684: RAISE OKL_API.G_EXCEPTION_ERROR;
21685: END IF;
21686:
21687: x_start_date := khr_type_rec.start_date;
21680: x_value => x_residual_value);
21681: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
21682: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
21683: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
21684: RAISE OKL_API.G_EXCEPTION_ERROR;
21685: END IF;
21686:
21687: x_start_date := khr_type_rec.start_date;
21688:
21697:
21698: End If;
21699:
21700: EXCEPTION
21701: WHEN OKL_API.G_EXCEPTION_ERROR THEN
21702: IF khr_type_csr%ISOPEN THEN
21703: CLOSE khr_type_csr;
21704: END IF;
21705: x_return_status := OKL_API.G_RET_STS_ERROR;
21701: WHEN OKL_API.G_EXCEPTION_ERROR THEN
21702: IF khr_type_csr%ISOPEN THEN
21703: CLOSE khr_type_csr;
21704: END IF;
21705: x_return_status := OKL_API.G_RET_STS_ERROR;
21706: WHEN OTHERS THEN
21707: IF khr_type_csr%ISOPEN THEN
21708: CLOSE khr_type_csr;
21709: END IF;
21706: WHEN OTHERS THEN
21707: IF khr_type_csr%ISOPEN THEN
21708: CLOSE khr_type_csr;
21709: END IF;
21710: x_return_status := OKL_API.G_RET_STS_ERROR;
21711:
21712: End get_so_residual_value;
21713:
21714: -------------------------------------------------------------------------------------------------
21727: x_return_status OUT NOCOPY VARCHAR2,
21728: x_asset_oec OUT NOCOPY NUMBER,
21729: x_start_date OUT NOCOPY DATE)
21730: IS
21731: l_return_status VARCHAR2(3):= OKL_API.G_RET_STS_SUCCESS;
21732: l_msg_count NUMBER;
21733: l_msg_data VARCHAR2(32767);
21734: G_FORMULA_DIS OKL_FORMULAE_V.NAME%TYPE := 'LINE_CAP_AMNT';
21735: G_AMT_TOKEN CONSTANT VARCHAR2(200) := 'AMOUNT';
21751: CLOSE khr_type_csr;
21752:
21753: IF (INSTR( khr_type_rec.scs_code, 'LEASE') > 0) THEN
21754: execute_formula(p_api_version => 1.0,
21755: p_init_msg_list => OKL_API.G_TRUE,
21756: x_return_status => l_return_status,
21757: x_msg_count => l_msg_count,
21758: x_msg_data => l_msg_data,
21759: p_formula_name => 'LINE_CAP_AMNT',
21759: p_formula_name => 'LINE_CAP_AMNT',
21760: p_contract_id => p_khr_id,
21761: p_line_id => p_kle_id,
21762: x_value => x_asset_oec);
21763: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
21764: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
21765: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
21766: RAISE OKL_API.G_EXCEPTION_ERROR;
21767: END IF;
21760: p_contract_id => p_khr_id,
21761: p_line_id => p_kle_id,
21762: x_value => x_asset_oec);
21763: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
21764: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
21765: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
21766: RAISE OKL_API.G_EXCEPTION_ERROR;
21767: END IF;
21768:
21761: p_line_id => p_kle_id,
21762: x_value => x_asset_oec);
21763: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
21764: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
21765: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
21766: RAISE OKL_API.G_EXCEPTION_ERROR;
21767: END IF;
21768:
21769: x_start_date := khr_type_rec.start_date;
21762: x_value => x_asset_oec);
21763: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
21764: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
21765: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
21766: RAISE OKL_API.G_EXCEPTION_ERROR;
21767: END IF;
21768:
21769: x_start_date := khr_type_rec.start_date;
21770:
21779:
21780: End If;
21781:
21782: EXCEPTION
21783: WHEN OKL_API.G_EXCEPTION_ERROR THEN
21784: IF khr_type_csr%ISOPEN THEN
21785: CLOSE khr_type_csr;
21786: END IF;
21787: x_return_status := OKL_API.G_RET_STS_ERROR;
21783: WHEN OKL_API.G_EXCEPTION_ERROR THEN
21784: IF khr_type_csr%ISOPEN THEN
21785: CLOSE khr_type_csr;
21786: END IF;
21787: x_return_status := OKL_API.G_RET_STS_ERROR;
21788: WHEN OTHERS THEN
21789: IF khr_type_csr%ISOPEN THEN
21790: CLOSE khr_type_csr;
21791: END IF;
21788: WHEN OTHERS THEN
21789: IF khr_type_csr%ISOPEN THEN
21790: CLOSE khr_type_csr;
21791: END IF;
21792: x_return_status := OKL_API.G_RET_STS_ERROR;
21793:
21794: End get_so_asset_oec;
21795:
21796: -------------------------------------------------------------------------------------------------
21804: -- End of Commnets
21805: -------------------------------------------------------------------------------------------------
21806: PROCEDURE extract_params_so(
21807: p_api_version IN NUMBER,
21808: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
21809: p_chr_id IN OKC_K_HEADERS_B.ID%TYPE,
21810: p_cle_id IN OKC_K_LINES_B.ID%TYPE,
21811: x_return_status OUT NOCOPY VARCHAR2,
21812: x_msg_count OUT NOCOPY NUMBER,
22253: l_days_in_month_code OKL_ST_GEN_TMPT_SETS.days_in_month_code%type;
22254: l_days_in_yr_code OKL_ST_GEN_TMPT_SETS.days_in_yr_code%type;
22255:
22256: BEGIN
22257: x_return_status := OKL_API.G_RET_STS_SUCCESS;
22258: -- Call start_activity to create savepoint, check compatibility
22259: -- and initialize message list
22260: x_return_status := OKL_API.START_ACTIVITY (
22261: l_api_name
22256: BEGIN
22257: x_return_status := OKL_API.G_RET_STS_SUCCESS;
22258: -- Call start_activity to create savepoint, check compatibility
22259: -- and initialize message list
22260: x_return_status := OKL_API.START_ACTIVITY (
22261: l_api_name
22262: ,p_init_msg_list
22263: ,'_PVT'
22264: ,x_return_status);
22262: ,p_init_msg_list
22263: ,'_PVT'
22264: ,x_return_status);
22265: -- Check if activity started successfully
22266: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
22267: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
22268: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
22269: RAISE OKL_API.G_EXCEPTION_ERROR;
22270: END IF;
22263: ,'_PVT'
22264: ,x_return_status);
22265: -- Check if activity started successfully
22266: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
22267: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
22268: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
22269: RAISE OKL_API.G_EXCEPTION_ERROR;
22270: END IF;
22271: -- To get product id
22264: ,x_return_status);
22265: -- Check if activity started successfully
22266: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
22267: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
22268: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
22269: RAISE OKL_API.G_EXCEPTION_ERROR;
22270: END IF;
22271: -- To get product id
22272: OPEN l_hdr_pdt_csr(p_chr_id);
22265: -- Check if activity started successfully
22266: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
22267: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
22268: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
22269: RAISE OKL_API.G_EXCEPTION_ERROR;
22270: END IF;
22271: -- To get product id
22272: OPEN l_hdr_pdt_csr(p_chr_id);
22273: FETCH l_hdr_pdt_csr INTO l_pdt_id_rec;
22276: -- get Header info
22277: OPEN l_hdr_csr(p_chr_id);
22278: FETCH l_hdr_csr INTO l_hdr_rec;
22279: IF l_hdr_csr%NOTFOUND THEN
22280: okl_api.set_message(p_app_name => G_APP_NAME,
22281: p_msg_name => G_LLA_NO_MATCHING_RECORD,
22282: p_token1 => G_COL_NAME_TOKEN,
22283: p_token1_value => 'Contract id');
22284: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
22280: okl_api.set_message(p_app_name => G_APP_NAME,
22281: p_msg_name => G_LLA_NO_MATCHING_RECORD,
22282: p_token1 => G_COL_NAME_TOKEN,
22283: p_token1_value => 'Contract id');
22284: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
22285: END IF;
22286: CLOSE l_hdr_csr;
22287:
22288: --get day convention info : mansrini
22301: END IF;
22302:
22303: -- Validating the Deal type
22304: IF l_hdr_rec.deal_type IS NOT NULL OR
22305: l_hdr_rec.deal_type <> OKL_API.G_MISS_CHAR THEN
22306: l_deal_type := l_hdr_rec.deal_type;
22307: ELSE
22308: okl_api.set_message(p_app_name => G_APP_NAME,
22309: p_msg_name => G_REQUIRED_VALUE,
22304: IF l_hdr_rec.deal_type IS NOT NULL OR
22305: l_hdr_rec.deal_type <> OKL_API.G_MISS_CHAR THEN
22306: l_deal_type := l_hdr_rec.deal_type;
22307: ELSE
22308: okl_api.set_message(p_app_name => G_APP_NAME,
22309: p_msg_name => G_REQUIRED_VALUE,
22310: p_token1 => G_COL_NAME_TOKEN,
22311: p_token1_value => 'Deal_type');
22312: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
22308: okl_api.set_message(p_app_name => G_APP_NAME,
22309: p_msg_name => G_REQUIRED_VALUE,
22310: p_token1 => G_COL_NAME_TOKEN,
22311: p_token1_value => 'Deal_type');
22312: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
22313: END IF;
22314: IF l_deal_type IN ('LEASEDF','LEASEOP','LEASEST') THEN
22315: -- Get the Lease owner info
22316: OPEN l_hdrrl_csr('LATOWN', 'LATOWN',p_chr_id);
22315: -- Get the Lease owner info
22316: OPEN l_hdrrl_csr('LATOWN', 'LATOWN',p_chr_id);
22317: FETCH l_hdrrl_csr INTO l_hdrrl_rec;
22318: IF(l_hdrrl_csr%NOTFOUND) THEN
22319: okl_api.set_message(p_app_name => G_APP_NAME,
22320: p_msg_name => G_LLA_NO_MATCHING_RECORD,
22321: p_token1 => G_COL_NAME_TOKEN,
22322: p_token1_value => 'Contract id');
22323: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
22319: okl_api.set_message(p_app_name => G_APP_NAME,
22320: p_msg_name => G_LLA_NO_MATCHING_RECORD,
22321: p_token1 => G_COL_NAME_TOKEN,
22322: p_token1_value => 'Contract id');
22323: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
22324: ELSIF l_hdrrl_csr%FOUND THEN
22325: l_csm_lease_header.irs_tax_treatment_method := l_hdrrl_rec.RULE_INFORMATION1;
22326: -- Start of Bug#3388812 modification - BAKUCHIB
22327: l_lease_tax_owner := l_hdrrl_rec.RULE_INFORMATION1;
22329: END IF;
22330: CLOSE l_hdrrl_csr;
22331: -- Validating the Deal type
22332: IF l_hdr_rec.deal_type IS NOT NULL OR
22333: l_hdr_rec.deal_type <> OKL_API.G_MISS_CHAR THEN
22334: l_deal_type := l_hdr_rec.deal_type;
22335: ELSE
22336: l_csm_lease_header.irs_tax_treatment_method := 'LESSOR';
22337: END IF;
22354: -- Getting the install base location
22355: OPEN ib_csr(p_chr_id);
22356: FETCH ib_csr INTO l_ib_rec;
22357: IF ib_csr%NOTFOUND THEN
22358: okl_api.set_message(p_app_name => G_APP_NAME,
22359: p_msg_name => G_LLA_NO_MATCHING_RECORD,
22360: p_token1 => G_COL_NAME_TOKEN,
22361: p_token1_value => 'Contract id');
22362: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
22358: okl_api.set_message(p_app_name => G_APP_NAME,
22359: p_msg_name => G_LLA_NO_MATCHING_RECORD,
22360: p_token1 => G_COL_NAME_TOKEN,
22361: p_token1_value => 'Contract id');
22362: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
22363: END IF;
22364: CLOSE ib_csr;
22365: l_csm_lease_header.country := l_ib_rec.country;
22366: l_csm_lease_header.orp_code := OKL_CREATE_STREAMS_PUB.G_ORP_CODE_BOOKING;
22399: FROM okl_strm_type_tl
22400: WHERE LANGUAGE = 'US'
22401: AND name = 'RESIDUAL VALUE INSURANCE PREMIUM';
22402: IF styid = -1 THEN
22403: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
22404: END IF;
22405: */
22406: m := m + 1;
22407: l_csm_stream_types_tbl(m).stream_type_id := l_sty_id.id;
22430: OPEN get_org_id(p_chr_id => p_chr_id);
22431: FETCH get_org_id INTO ln_org_id,
22432: lv_currency_code;
22433: IF get_org_id%NOTFOUND THEN
22434: okl_api.set_message(p_app_name => G_APP_NAME,
22435: p_msg_name => G_LLA_NO_MATCHING_RECORD,
22436: p_token1 => G_COL_NAME_TOKEN,
22437: p_token1_value => 'Contract id');
22438: x_return_status := OKL_API.G_RET_STS_ERROR;
22434: okl_api.set_message(p_app_name => G_APP_NAME,
22435: p_msg_name => G_LLA_NO_MATCHING_RECORD,
22436: p_token1 => G_COL_NAME_TOKEN,
22437: p_token1_value => 'Contract id');
22438: x_return_status := OKL_API.G_RET_STS_ERROR;
22439: END IF;
22440: CLOSE get_org_id;
22441: --Bug 4346646 - End of Changes
22442:
22459: p_formula_name => 'LINE_CAP_AMNT',
22460: p_contract_id => p_chr_id,
22461: p_line_id => l_line_rec.id,
22462: x_value => l_value);
22463: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
22464: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
22465: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
22466: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
22467: END IF;
22460: p_contract_id => p_chr_id,
22461: p_line_id => l_line_rec.id,
22462: x_value => l_value);
22463: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
22464: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
22465: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
22466: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
22467: END IF;
22468: -- Get line Trade in
22461: p_line_id => l_line_rec.id,
22462: x_value => l_value);
22463: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
22464: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
22465: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
22466: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
22467: END IF;
22468: -- Get line Trade in
22469: execute_formula(p_api_version => p_api_version,
22462: x_value => l_value);
22463: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
22464: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
22465: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
22466: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
22467: END IF;
22468: -- Get line Trade in
22469: execute_formula(p_api_version => p_api_version,
22470: p_init_msg_list => p_init_msg_list,
22474: p_formula_name => 'LINE_TRADEIN',
22475: p_contract_id => p_chr_id,
22476: p_line_id => l_line_rec.id,
22477: x_value => l_tradein);
22478: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
22479: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
22480: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
22481: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
22482: END IF;
22475: p_contract_id => p_chr_id,
22476: p_line_id => l_line_rec.id,
22477: x_value => l_tradein);
22478: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
22479: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
22480: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
22481: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
22482: END IF;
22483: -- Get line cap Reduction
22476: p_line_id => l_line_rec.id,
22477: x_value => l_tradein);
22478: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
22479: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
22480: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
22481: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
22482: END IF;
22483: -- Get line cap Reduction
22484: execute_formula(p_api_version => p_api_version,
22477: x_value => l_tradein);
22478: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
22479: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
22480: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
22481: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
22482: END IF;
22483: -- Get line cap Reduction
22484: execute_formula(p_api_version => p_api_version,
22485: p_init_msg_list => p_init_msg_list,
22489: p_formula_name => 'LINE_CAPREDUCTION',
22490: p_contract_id => p_chr_id,
22491: p_line_id => l_line_rec.id,
22492: x_value => l_capreduc);
22493: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
22494: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
22495: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
22496: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
22497: END IF;
22490: p_contract_id => p_chr_id,
22491: p_line_id => l_line_rec.id,
22492: x_value => l_capreduc);
22493: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
22494: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
22495: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
22496: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
22497: END IF;
22498: -- Get line Fee Capilitized
22491: p_line_id => l_line_rec.id,
22492: x_value => l_capreduc);
22493: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
22494: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
22495: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
22496: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
22497: END IF;
22498: -- Get line Fee Capilitized
22499: execute_formula(p_api_version => p_api_version,
22492: x_value => l_capreduc);
22493: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
22494: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
22495: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
22496: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
22497: END IF;
22498: -- Get line Fee Capilitized
22499: execute_formula(p_api_version => p_api_version,
22500: p_init_msg_list => p_init_msg_list,
22504: p_formula_name => 'LINE_FEESCAPITALIZED',
22505: p_contract_id => p_chr_id,
22506: p_line_id => l_line_rec.id,
22507: x_value => l_feecap);
22508: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
22509: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
22510: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
22511: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
22512: END IF;
22505: p_contract_id => p_chr_id,
22506: p_line_id => l_line_rec.id,
22507: x_value => l_feecap);
22508: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
22509: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
22510: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
22511: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
22512: END IF;
22513: -- Get line Capitalized Interest
22506: p_line_id => l_line_rec.id,
22507: x_value => l_feecap);
22508: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
22509: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
22510: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
22511: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
22512: END IF;
22513: -- Get line Capitalized Interest
22514: execute_formula(p_api_version => p_api_version,
22507: x_value => l_feecap);
22508: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
22509: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
22510: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
22511: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
22512: END IF;
22513: -- Get line Capitalized Interest
22514: execute_formula(p_api_version => p_api_version,
22515: p_init_msg_list => p_init_msg_list,
22519: p_formula_name => 'LINE_CAPITALIZED_INTEREST',
22520: p_contract_id => p_chr_id,
22521: p_line_id => l_line_rec.id,
22522: x_value => l_capint);
22523: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
22524: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
22525: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
22526: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
22527: END IF;
22520: p_contract_id => p_chr_id,
22521: p_line_id => l_line_rec.id,
22522: x_value => l_capint);
22523: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
22524: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
22525: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
22526: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
22527: END IF;
22528: -- Get line Discount
22521: p_line_id => l_line_rec.id,
22522: x_value => l_capint);
22523: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
22524: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
22525: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
22526: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
22527: END IF;
22528: -- Get line Discount
22529: execute_formula(p_api_version => p_api_version,
22522: x_value => l_capint);
22523: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
22524: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
22525: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
22526: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
22527: END IF;
22528: -- Get line Discount
22529: execute_formula(p_api_version => p_api_version,
22530: p_init_msg_list => p_init_msg_list,
22534: p_formula_name => 'LINE_DISCOUNT',
22535: p_contract_id => p_chr_id,
22536: p_line_id => l_line_rec.id,
22537: x_value => l_discount);
22538: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
22539: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
22540: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
22541: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
22542: END IF;
22535: p_contract_id => p_chr_id,
22536: p_line_id => l_line_rec.id,
22537: x_value => l_discount);
22538: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
22539: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
22540: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
22541: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
22542: END IF;
22543: IF l_line_rec.residual_value IS NULL THEN
22536: p_line_id => l_line_rec.id,
22537: x_value => l_discount);
22538: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
22539: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
22540: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
22541: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
22542: END IF;
22543: IF l_line_rec.residual_value IS NULL THEN
22544: l_csm_line_details_tbl(i).residual_amount := 0;
22537: x_value => l_discount);
22538: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
22539: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
22540: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
22541: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
22542: END IF;
22543: IF l_line_rec.residual_value IS NULL THEN
22544: l_csm_line_details_tbl(i).residual_amount := 0;
22545: ELSE
22551: l_csm_line_details_tbl(i).date_delivery := l_line_rec.delivered_date;
22552: END IF;
22553: l_csm_line_details_tbl(i).residual_guarantee_amount := l_line_rec.residual_grnty_amount;
22554: IF l_line_rec.residual_grnty_amount IS NOT NULL OR
22555: l_line_rec.residual_grnty_amount <> OKL_API.G_MISS_NUM THEN
22556: l_csm_line_details_tbl(i).guarantee_type := l_line_rec.guarantee_type;
22557: END IF;
22558: --smahapat changed 03/13/04
22559: --cannot support until field populated by authoring since field mandatory
22574: -- Book Depreciation Stream info
22575: OPEN l_tx_csr(l_line_rec.name );
22576: FETCH l_tx_csr into l_tx_rec;
22577: IF l_tx_csr%NOTFOUND THEN
22578: OKL_API.set_message(p_app_name => G_APP_NAME,
22579: p_msg_name => G_LLA_NO_MATCHING_RECORD,
22580: p_token1 => G_COL_NAME_TOKEN,
22581: p_token1_value => l_line_rec.name);
22582: x_return_status := OKL_API.G_RET_STS_ERROR;
22578: OKL_API.set_message(p_app_name => G_APP_NAME,
22579: p_msg_name => G_LLA_NO_MATCHING_RECORD,
22580: p_token1 => G_COL_NAME_TOKEN,
22581: p_token1_value => l_line_rec.name);
22582: x_return_status := OKL_API.G_RET_STS_ERROR;
22583: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
22584: END IF;
22585: CLOSE l_tx_csr;
22586: -- Now we are determing the Basis percent for the corp book
22579: p_msg_name => G_LLA_NO_MATCHING_RECORD,
22580: p_token1 => G_COL_NAME_TOKEN,
22581: p_token1_value => l_line_rec.name);
22582: x_return_status := OKL_API.G_RET_STS_ERROR;
22583: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
22584: END IF;
22585: CLOSE l_tx_csr;
22586: -- Now we are determing the Basis percent for the corp book
22587: -- Basis percent = Depreciable Cost (for each asset defined corp book)
22649: /*
22650: OPEN l_strmid_csr('BOOK DEPRECIATION');
22651: FETCH l_strmid_csr into l_strmid_rec;
22652: IF l_strmid_csr%NOTFOUND THEN
22653: OKL_API.set_message(p_app_name => G_APP_NAME,
22654: p_msg_name => G_LLA_NO_MATCHING_RECORD,
22655: p_token1 => G_COL_NAME_TOKEN,
22656: p_token1_value => 'BOOK DEPRECIATION');
22657: x_return_status := OKL_API.G_RET_STS_ERROR;
22653: OKL_API.set_message(p_app_name => G_APP_NAME,
22654: p_msg_name => G_LLA_NO_MATCHING_RECORD,
22655: p_token1 => G_COL_NAME_TOKEN,
22656: p_token1_value => 'BOOK DEPRECIATION');
22657: x_return_status := OKL_API.G_RET_STS_ERROR;
22658: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
22659: END IF;
22660: CLOSE l_strmid_csr;
22661: */
22654: p_msg_name => G_LLA_NO_MATCHING_RECORD,
22655: p_token1 => G_COL_NAME_TOKEN,
22656: p_token1_value => 'BOOK DEPRECIATION');
22657: x_return_status := OKL_API.G_RET_STS_ERROR;
22658: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
22659: END IF;
22660: CLOSE l_strmid_csr;
22661: */
22662: -- Added code ends here - HKPATEL
22748: /*
22749: OPEN l_strmid_csr('FEDERAL DEPRECIATION');
22750: FETCH l_strmid_csr into l_strmid_rec;
22751: IF l_strmid_csr%NOTFOUND THEN
22752: OKL_API.set_message(p_app_name => G_APP_NAME,
22753: p_msg_name => G_LLA_NO_MATCHING_RECORD,
22754: p_token1 => G_COL_NAME_TOKEN,
22755: p_token1_value => 'FEDERAL DEPRECIATION');
22756: x_return_status := OKL_API.G_RET_STS_ERROR;
22752: OKL_API.set_message(p_app_name => G_APP_NAME,
22753: p_msg_name => G_LLA_NO_MATCHING_RECORD,
22754: p_token1 => G_COL_NAME_TOKEN,
22755: p_token1_value => 'FEDERAL DEPRECIATION');
22756: x_return_status := OKL_API.G_RET_STS_ERROR;
22757: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
22758: END IF;
22759: CLOSE l_strmid_csr;
22760: */
22753: p_msg_name => G_LLA_NO_MATCHING_RECORD,
22754: p_token1 => G_COL_NAME_TOKEN,
22755: p_token1_value => 'FEDERAL DEPRECIATION');
22756: x_return_status := OKL_API.G_RET_STS_ERROR;
22757: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
22758: END IF;
22759: CLOSE l_strmid_csr;
22760: */
22761: l_csm_stream_types_tbl(m).stream_type_id := l_sty_id.id;
22801: /*
22802: OPEN l_strmid_csr('STATE DEPRECIATION');
22803: FETCH l_strmid_csr into l_strmid_rec;
22804: IF l_strmid_csr%NOTFOUND THEN
22805: OKL_API.set_message(p_app_name => G_APP_NAME,
22806: p_msg_name => G_LLA_NO_MATCHING_RECORD,
22807: p_token1 => G_COL_NAME_TOKEN,
22808: p_token1_value => 'STATE DEPRECIATION');
22809: x_return_status := OKL_API.G_RET_STS_ERROR;
22805: OKL_API.set_message(p_app_name => G_APP_NAME,
22806: p_msg_name => G_LLA_NO_MATCHING_RECORD,
22807: p_token1 => G_COL_NAME_TOKEN,
22808: p_token1_value => 'STATE DEPRECIATION');
22809: x_return_status := OKL_API.G_RET_STS_ERROR;
22810: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
22811: END IF;
22812: CLOSE l_strmid_csr;
22813: */
22806: p_msg_name => G_LLA_NO_MATCHING_RECORD,
22807: p_token1 => G_COL_NAME_TOKEN,
22808: p_token1_value => 'STATE DEPRECIATION');
22809: x_return_status := OKL_API.G_RET_STS_ERROR;
22810: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
22811: END IF;
22812: CLOSE l_strmid_csr;
22813: */
22814: l_csm_stream_types_tbl(m).stream_type_id := l_sty_id.id;
22816: l_csm_stream_types_tbl(m).kle_asset_id := l_line_rec.id;
22817: END IF;
22818: END IF;
22819: END LOOP;
22820: IF x_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
22821: EXIT WHEN(x_return_status <> OKL_API.G_RET_STS_SUCCESS);
22822: END IF;
22823: END LOOP;
22824: IF x_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
22817: END IF;
22818: END IF;
22819: END LOOP;
22820: IF x_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
22821: EXIT WHEN(x_return_status <> OKL_API.G_RET_STS_SUCCESS);
22822: END IF;
22823: END LOOP;
22824: IF x_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
22825: EXIT WHEN(x_return_status <> OKL_API.G_RET_STS_SUCCESS);
22820: IF x_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
22821: EXIT WHEN(x_return_status <> OKL_API.G_RET_STS_SUCCESS);
22822: END IF;
22823: END LOOP;
22824: IF x_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
22825: EXIT WHEN(x_return_status <> OKL_API.G_RET_STS_SUCCESS);
22826: END IF;
22827: END LOOP;
22828: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
22821: EXIT WHEN(x_return_status <> OKL_API.G_RET_STS_SUCCESS);
22822: END IF;
22823: END LOOP;
22824: IF x_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
22825: EXIT WHEN(x_return_status <> OKL_API.G_RET_STS_SUCCESS);
22826: END IF;
22827: END LOOP;
22828: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
22829: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
22824: IF x_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
22825: EXIT WHEN(x_return_status <> OKL_API.G_RET_STS_SUCCESS);
22826: END IF;
22827: END LOOP;
22828: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
22829: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
22830: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
22831: RAISE OKL_API.G_EXCEPTION_ERROR;
22832: END IF;
22825: EXIT WHEN(x_return_status <> OKL_API.G_RET_STS_SUCCESS);
22826: END IF;
22827: END LOOP;
22828: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
22829: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
22830: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
22831: RAISE OKL_API.G_EXCEPTION_ERROR;
22832: END IF;
22833: -- WE should deal with so Payment line differently
22826: END IF;
22827: END LOOP;
22828: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
22829: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
22830: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
22831: RAISE OKL_API.G_EXCEPTION_ERROR;
22832: END IF;
22833: -- WE should deal with so Payment line differently
22834: -- Getting the payment information of the asset
22827: END LOOP;
22828: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
22829: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
22830: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
22831: RAISE OKL_API.G_EXCEPTION_ERROR;
22832: END IF;
22833: -- WE should deal with so Payment line differently
22834: -- Getting the payment information of the asset
22835: FOR l_so_line_rec IN l_so_line_rec_csr (p_chr_id,p_cle_id) LOOP
22837: l_level_type := l_rl_rec1.object1_id1;
22838: OPEN strm_name_csr ( l_level_type );
22839: FETCH strm_name_csr into l_strm_name_rec;
22840: IF strm_name_csr%NOTFOUND THEN
22841: OKL_API.set_message(p_app_name => G_APP_NAME,
22842: p_msg_name => G_LLA_NO_MATCHING_RECORD,
22843: p_token1 => G_COL_NAME_TOKEN,
22844: p_token1_value => 'Stream Id');
22845: x_return_status := OKL_API.G_RET_STS_ERROR;
22841: OKL_API.set_message(p_app_name => G_APP_NAME,
22842: p_msg_name => G_LLA_NO_MATCHING_RECORD,
22843: p_token1 => G_COL_NAME_TOKEN,
22844: p_token1_value => 'Stream Id');
22845: x_return_status := OKL_API.G_RET_STS_ERROR;
22846: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
22847: END IF;
22848: CLOSE strm_name_csr;
22849: l_strm_name := l_strm_name_rec.stream_type_purpose;
22842: p_msg_name => G_LLA_NO_MATCHING_RECORD,
22843: p_token1 => G_COL_NAME_TOKEN,
22844: p_token1_value => 'Stream Id');
22845: x_return_status := OKL_API.G_RET_STS_ERROR;
22846: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
22847: END IF;
22848: CLOSE strm_name_csr;
22849: l_strm_name := l_strm_name_rec.stream_type_purpose;
22850: m := m + 1;
22853: idx := 0;
22854: IF( UPPER(TRIM(l_strm_name)) = 'RENT' ) THEN
22855: FOR l_rl_rec in l_rl_csr (l_rl_rec1.slh_id, 'LALEVL', 'LASLL', p_chr_id, l_so_line_rec.id ) LOOP
22856: IF (l_rl_rec.rule_information7 IS NOT NULL OR
22857: l_rl_rec.rule_information7 <> OKL_API.G_MISS_CHAR) AND
22858: (l_rl_rec.rule_information8 IS NOT NULL OR
22859: l_rl_rec.rule_information8 <> OKL_API.G_MISS_CHAR) THEN
22860: j := j + 1;
22861: idx := idx + 1;
22855: FOR l_rl_rec in l_rl_csr (l_rl_rec1.slh_id, 'LALEVL', 'LASLL', p_chr_id, l_so_line_rec.id ) LOOP
22856: IF (l_rl_rec.rule_information7 IS NOT NULL OR
22857: l_rl_rec.rule_information7 <> OKL_API.G_MISS_CHAR) AND
22858: (l_rl_rec.rule_information8 IS NOT NULL OR
22859: l_rl_rec.rule_information8 <> OKL_API.G_MISS_CHAR) THEN
22860: j := j + 1;
22861: idx := idx + 1;
22862: l_rents_tbl(j).level_index_number := idx;
22863: l_rents_tbl(j).amount := TO_NUMBER(l_rl_rec.rule_information8);
22885: END IF;
22886: -- Bug 4915938 - End of Changes
22887:
22888: ELSIF (l_rl_rec.rule_information7 IS NULL OR
22889: l_rl_rec.rule_information7 = OKL_API.G_MISS_CHAR) AND
22890: (l_rl_rec.rule_information8 IS NULL OR
22891: l_rl_rec.rule_information8 = OKL_API.G_MISS_CHAR) THEN
22892: j := j + 1;
22893: idx := idx + 1;
22887:
22888: ELSIF (l_rl_rec.rule_information7 IS NULL OR
22889: l_rl_rec.rule_information7 = OKL_API.G_MISS_CHAR) AND
22890: (l_rl_rec.rule_information8 IS NULL OR
22891: l_rl_rec.rule_information8 = OKL_API.G_MISS_CHAR) THEN
22892: j := j + 1;
22893: idx := idx + 1;
22894: l_rents_tbl(j).level_index_number := idx;
22895: l_rents_tbl(j).level_type := OKL_CREATE_STREAMS_PUB.G_SFE_LEVEL_PAYMENT;
22908: l_rents_tbl(j).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ARREARS;
22909: ELSE
22910: l_rents_tbl(j).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ADVANCE;
22911: END IF;
22912: IF(l_rl_rec.RULE_INFORMATION2 IS NULL or l_rl_rec.RULE_INFORMATION2 = OKL_API.G_MISS_CHAR) Then
22913: l_rents_tbl(j).date_start := l_hdr_rec.start_date;
22914: ELSE
22915: l_rents_tbl(j).date_start := FND_DATE.canonical_to_date(l_rl_rec.RULE_INFORMATION2);
22916: END IF;
22928: ln_diff_days := ld_chr_end_date - ld_last_end_date;
22929: END IF;
22930: CLOSE c_diff_days_csr;
22931: IF SIGN(ln_diff_days) = -1 THEN
22932: OKL_API.set_message(p_app_name => G_APP_NAME,
22933: p_msg_name => G_INVALID_VALUE,
22934: p_token1 => G_COL_NAME_TOKEN,
22935: p_token1_value => 'Diffrence End date');
22936: x_return_status := OKL_API.G_RET_STS_ERROR;
22932: OKL_API.set_message(p_app_name => G_APP_NAME,
22933: p_msg_name => G_INVALID_VALUE,
22934: p_token1 => G_COL_NAME_TOKEN,
22935: p_token1_value => 'Diffrence End date');
22936: x_return_status := OKL_API.G_RET_STS_ERROR;
22937: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
22938: END IF;
22939: -- If there is diff in days then an empty stub will be appended
22940: IF ln_diff_days > 0 AND
22933: p_msg_name => G_INVALID_VALUE,
22934: p_token1 => G_COL_NAME_TOKEN,
22935: p_token1_value => 'Diffrence End date');
22936: x_return_status := OKL_API.G_RET_STS_ERROR;
22937: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
22938: END IF;
22939: -- If there is diff in days then an empty stub will be appended
22940: IF ln_diff_days > 0 AND
22941: ld_last_start_date = FND_DATE.canonical_to_date(l_rl_rec.rule_information2) THEN
22974: ((l_strm_name_rec.periodic_yn = 'Y' ) AND
22975: (UPPER(l_strm_name_rec.name) <> 'FEE'))) THEN
22976: FOR l_rl_rec IN l_rl_csr (l_rl_rec1.slh_id, 'LALEVL', 'LASLL', p_chr_id, l_so_line_rec.id) LOOP
22977: IF (l_rl_rec.rule_information7 IS NOT NULL OR
22978: l_rl_rec.rule_information7 <> OKL_API.G_MISS_CHAR) AND
22979: (l_rl_rec.rule_information8 IS NOT NULL OR
22980: l_rl_rec.rule_information8 <> OKL_API.G_MISS_CHAR) THEN
22981: k := k + 1;
22982: idx := idx + 1;
22976: FOR l_rl_rec IN l_rl_csr (l_rl_rec1.slh_id, 'LALEVL', 'LASLL', p_chr_id, l_so_line_rec.id) LOOP
22977: IF (l_rl_rec.rule_information7 IS NOT NULL OR
22978: l_rl_rec.rule_information7 <> OKL_API.G_MISS_CHAR) AND
22979: (l_rl_rec.rule_information8 IS NOT NULL OR
22980: l_rl_rec.rule_information8 <> OKL_API.G_MISS_CHAR) THEN
22981: k := k + 1;
22982: idx := idx + 1;
22983: l_csm_periodic_expenses_tbl(k).level_index_number := idx;
22984: l_csm_periodic_expenses_tbl(k).amount := TO_NUMBER(l_rl_rec.rule_information8);
23006: END IF;
23007: -- Bug 4915938 - End of Changes
23008:
23009: ELSIF (l_rl_rec.rule_information7 IS NULL OR
23010: l_rl_rec.rule_information7 = OKL_API.G_MISS_CHAR) AND
23011: (l_rl_rec.rule_information8 IS NULL OR
23012: l_rl_rec.rule_information8 = OKL_API.G_MISS_CHAR) THEN
23013: k := k + 1;
23014: idx := idx + 1;
23008:
23009: ELSIF (l_rl_rec.rule_information7 IS NULL OR
23010: l_rl_rec.rule_information7 = OKL_API.G_MISS_CHAR) AND
23011: (l_rl_rec.rule_information8 IS NULL OR
23012: l_rl_rec.rule_information8 = OKL_API.G_MISS_CHAR) THEN
23013: k := k + 1;
23014: idx := idx + 1;
23015: l_csm_periodic_expenses_tbl(k).level_index_number := idx;
23016: l_csm_periodic_expenses_tbl(k).level_type := OKL_CREATE_STREAMS_PUB.G_SFE_LEVEL_PAYMENT;
23030: l_csm_periodic_expenses_tbl(k).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ARREARS;
23031: ELSE
23032: l_csm_periodic_expenses_tbl(k).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ADVANCE;
23033: END IF;
23034: IF(l_rl_rec.RULE_INFORMATION2 IS NULL or l_rl_rec.RULE_INFORMATION2 = OKL_API.G_MISS_CHAR) THEN
23035: l_csm_periodic_expenses_tbl(k).date_start := l_hdr_rec.start_date;
23036: ELSE
23037: l_csm_periodic_expenses_tbl(k).date_start := FND_DATE.canonical_to_date(l_rl_rec.RULE_INFORMATION2);
23038: END IF;
23043: l := l + 1;
23044: l_csm_one_off_fee_tbl(l).description := l_strm_name_rec.name;
23045: l_csm_one_off_fee_tbl(l).income_or_expense := OKL_CREATE_STREAMS_PUB.G_INCOME;
23046: l_csm_one_off_fee_tbl(l).amount := FND_NUMBER.canonical_to_number(nvl(l_rl_rec.RULE_INFORMATION6,'0'));
23047: IF (l_rl_rec.RULE_INFORMATION2 IS NULL OR l_rl_rec.RULE_INFORMATION2 = OKL_API.G_MISS_CHAR) THEN
23048: l_csm_one_off_fee_tbl(l).date_paid := l_hdr_rec.start_date;
23049: ELSE
23050: l_csm_one_off_fee_tbl(l).date_paid := FND_DATE.canonical_to_date(l_rl_rec.RULE_INFORMATION2);
23051: END IF;
23053: END LOOP;
23054: END IF;
23055: END LOOP;
23056: END LOOP;
23057: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
23058: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
23059: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
23060: RAISE OKL_API.G_EXCEPTION_ERROR;
23061: END IF;
23054: END IF;
23055: END LOOP;
23056: END LOOP;
23057: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
23058: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
23059: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
23060: RAISE OKL_API.G_EXCEPTION_ERROR;
23061: END IF;
23062: -- Extracting the fee lines
23055: END LOOP;
23056: END LOOP;
23057: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
23058: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
23059: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
23060: RAISE OKL_API.G_EXCEPTION_ERROR;
23061: END IF;
23062: -- Extracting the fee lines
23063: extract_fee_lines( p_api_version => p_api_version,
23056: END LOOP;
23057: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
23058: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
23059: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
23060: RAISE OKL_API.G_EXCEPTION_ERROR;
23061: END IF;
23062: -- Extracting the fee lines
23063: extract_fee_lines( p_api_version => p_api_version,
23064: p_chr_id => p_chr_id,
23069: x_msg_data => x_msg_data,
23070: px_csm_stream_types_tbl => l_csm_stream_types_tbl,
23071: px_csm_one_off_fee_tbl => l_csm_one_off_fee_tbl,
23072: px_csm_periodic_expenses_tbl => l_csm_periodic_expenses_tbl);
23073: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
23074: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
23075: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
23076: RAISE OKL_API.G_EXCEPTION_ERROR;
23077: END IF;
23070: px_csm_stream_types_tbl => l_csm_stream_types_tbl,
23071: px_csm_one_off_fee_tbl => l_csm_one_off_fee_tbl,
23072: px_csm_periodic_expenses_tbl => l_csm_periodic_expenses_tbl);
23073: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
23074: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
23075: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
23076: RAISE OKL_API.G_EXCEPTION_ERROR;
23077: END IF;
23078: -- Check for Mandatory streams
23071: px_csm_one_off_fee_tbl => l_csm_one_off_fee_tbl,
23072: px_csm_periodic_expenses_tbl => l_csm_periodic_expenses_tbl);
23073: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
23074: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
23075: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
23076: RAISE OKL_API.G_EXCEPTION_ERROR;
23077: END IF;
23078: -- Check for Mandatory streams
23079: check_for_mandatory_streams(
23072: px_csm_periodic_expenses_tbl => l_csm_periodic_expenses_tbl);
23073: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
23074: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
23075: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
23076: RAISE OKL_API.G_EXCEPTION_ERROR;
23077: END IF;
23078: -- Check for Mandatory streams
23079: check_for_mandatory_streams(
23080: p_api_version => p_api_version,
23085: p_chr_id => p_chr_id,
23086: p_deal_type => l_deal_type,
23087: p_stream_types_tbl => l_csm_stream_types_tbl,
23088: x_stream_types_tbl => l_req_stream_types_tbl);
23089: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
23090: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
23091: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
23092: RAISE OKL_API.G_EXCEPTION_ERROR;
23093: END IF;
23086: p_deal_type => l_deal_type,
23087: p_stream_types_tbl => l_csm_stream_types_tbl,
23088: x_stream_types_tbl => l_req_stream_types_tbl);
23089: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
23090: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
23091: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
23092: RAISE OKL_API.G_EXCEPTION_ERROR;
23093: END IF;
23094: -- Requesting for yields
23087: p_stream_types_tbl => l_csm_stream_types_tbl,
23088: x_stream_types_tbl => l_req_stream_types_tbl);
23089: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
23090: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
23091: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
23092: RAISE OKL_API.G_EXCEPTION_ERROR;
23093: END IF;
23094: -- Requesting for yields
23095: x_return_status := yield_request(x_csm_yields_tbl => l_csm_yields_tbl);
23088: x_stream_types_tbl => l_req_stream_types_tbl);
23089: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
23090: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
23091: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
23092: RAISE OKL_API.G_EXCEPTION_ERROR;
23093: END IF;
23094: -- Requesting for yields
23095: x_return_status := yield_request(x_csm_yields_tbl => l_csm_yields_tbl);
23096: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
23092: RAISE OKL_API.G_EXCEPTION_ERROR;
23093: END IF;
23094: -- Requesting for yields
23095: x_return_status := yield_request(x_csm_yields_tbl => l_csm_yields_tbl);
23096: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
23097: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
23098: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
23099: RAISE OKL_API.G_EXCEPTION_ERROR;
23100: END IF;
23093: END IF;
23094: -- Requesting for yields
23095: x_return_status := yield_request(x_csm_yields_tbl => l_csm_yields_tbl);
23096: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
23097: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
23098: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
23099: RAISE OKL_API.G_EXCEPTION_ERROR;
23100: END IF;
23101: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
23094: -- Requesting for yields
23095: x_return_status := yield_request(x_csm_yields_tbl => l_csm_yields_tbl);
23096: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
23097: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
23098: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
23099: RAISE OKL_API.G_EXCEPTION_ERROR;
23100: END IF;
23101: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
23102: okl_api.set_message(p_app_name => G_APP_NAME,
23095: x_return_status := yield_request(x_csm_yields_tbl => l_csm_yields_tbl);
23096: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
23097: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
23098: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
23099: RAISE OKL_API.G_EXCEPTION_ERROR;
23100: END IF;
23101: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
23102: okl_api.set_message(p_app_name => G_APP_NAME,
23103: p_msg_name => 'OKL_LLA_REPSTRMS_EXTR_FAILED');
23097: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
23098: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
23099: RAISE OKL_API.G_EXCEPTION_ERROR;
23100: END IF;
23101: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
23102: okl_api.set_message(p_app_name => G_APP_NAME,
23103: p_msg_name => 'OKL_LLA_REPSTRMS_EXTR_FAILED');
23104: RAISE OKL_API.G_EXCEPTION_ERROR;
23105: END IF;
23098: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
23099: RAISE OKL_API.G_EXCEPTION_ERROR;
23100: END IF;
23101: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
23102: okl_api.set_message(p_app_name => G_APP_NAME,
23103: p_msg_name => 'OKL_LLA_REPSTRMS_EXTR_FAILED');
23104: RAISE OKL_API.G_EXCEPTION_ERROR;
23105: END IF;
23106: -- Call to extraction SUBSIDY line API
23100: END IF;
23101: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
23102: okl_api.set_message(p_app_name => G_APP_NAME,
23103: p_msg_name => 'OKL_LLA_REPSTRMS_EXTR_FAILED');
23104: RAISE OKL_API.G_EXCEPTION_ERROR;
23105: END IF;
23106: -- Call to extraction SUBSIDY line API
23107: extract_subsidized_lines(p_api_version => p_api_version,
23108: p_init_msg_list => p_init_msg_list,
23110: x_msg_count => x_msg_count,
23111: x_msg_data => x_msg_data,
23112: p_chr_id => p_chr_id,
23113: px_csm_one_off_fee_tbl => l_csm_one_off_fee_tbl);
23114: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
23115: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
23116: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
23117: RAISE OKL_API.G_EXCEPTION_ERROR;
23118: END IF;
23111: x_msg_data => x_msg_data,
23112: p_chr_id => p_chr_id,
23113: px_csm_one_off_fee_tbl => l_csm_one_off_fee_tbl);
23114: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
23115: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
23116: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
23117: RAISE OKL_API.G_EXCEPTION_ERROR;
23118: END IF;
23119: x_csm_lease_header := l_csm_lease_header;
23112: p_chr_id => p_chr_id,
23113: px_csm_one_off_fee_tbl => l_csm_one_off_fee_tbl);
23114: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
23115: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
23116: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
23117: RAISE OKL_API.G_EXCEPTION_ERROR;
23118: END IF;
23119: x_csm_lease_header := l_csm_lease_header;
23120: x_csm_one_off_fee_tbl := l_csm_one_off_fee_tbl;
23113: px_csm_one_off_fee_tbl => l_csm_one_off_fee_tbl);
23114: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
23115: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
23116: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
23117: RAISE OKL_API.G_EXCEPTION_ERROR;
23118: END IF;
23119: x_csm_lease_header := l_csm_lease_header;
23120: x_csm_one_off_fee_tbl := l_csm_one_off_fee_tbl;
23121: x_csm_periodic_expenses_tbl := l_csm_periodic_expenses_tbl;
23122: x_csm_yields_tbl := l_csm_yields_tbl;
23123: x_req_stream_types_tbl := l_req_stream_types_tbl;
23124: x_csm_line_details_tbl := l_csm_line_details_tbl;
23125: x_rents_tbl := l_rents_tbl;
23126: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
23127: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
23128: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
23129: RAISE OKL_API.G_EXCEPTION_ERROR;
23130: END IF;
23123: x_req_stream_types_tbl := l_req_stream_types_tbl;
23124: x_csm_line_details_tbl := l_csm_line_details_tbl;
23125: x_rents_tbl := l_rents_tbl;
23126: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
23127: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
23128: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
23129: RAISE OKL_API.G_EXCEPTION_ERROR;
23130: END IF;
23131: ELSIF l_deal_type = 'LOAN' THEN
23124: x_csm_line_details_tbl := l_csm_line_details_tbl;
23125: x_rents_tbl := l_rents_tbl;
23126: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
23127: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
23128: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
23129: RAISE OKL_API.G_EXCEPTION_ERROR;
23130: END IF;
23131: ELSIF l_deal_type = 'LOAN' THEN
23132: FOR l_line_rec in l_line_rec_csr ( p_chr_id ,'FREE_FORM1') LOOP
23125: x_rents_tbl := l_rents_tbl;
23126: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
23127: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
23128: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
23129: RAISE OKL_API.G_EXCEPTION_ERROR;
23130: END IF;
23131: ELSIF l_deal_type = 'LOAN' THEN
23132: FOR l_line_rec in l_line_rec_csr ( p_chr_id ,'FREE_FORM1') LOOP
23133: l_tot_asset_oec := l_tot_asset_oec + l_line_rec.oec;
23140: -- Getting the install base location
23141: OPEN ib_csr(p_chr_id);
23142: FETCH ib_csr INTO l_ib_rec;
23143: IF ib_csr%NOTFOUND THEN
23144: okl_api.set_message(p_app_name => G_APP_NAME,
23145: p_msg_name => G_LLA_NO_MATCHING_RECORD,
23146: p_token1 => G_COL_NAME_TOKEN,
23147: p_token1_value => 'Contract id');
23148: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
23144: okl_api.set_message(p_app_name => G_APP_NAME,
23145: p_msg_name => G_LLA_NO_MATCHING_RECORD,
23146: p_token1 => G_COL_NAME_TOKEN,
23147: p_token1_value => 'Contract id');
23148: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
23149: END IF;
23150: CLOSE ib_csr;
23151: l_csm_loan_header.khr_id := p_chr_id;
23152: l_csm_loan_header.date_payments_commencement := l_hdr_rec.start_date;
23165: l_level_type := l_rl_rec1.object1_id1;
23166: OPEN strm_name_csr ( l_level_type );
23167: FETCH strm_name_csr into l_strm_name_rec;
23168: IF strm_name_csr%NOTFOUND THEN
23169: OKL_API.set_message(p_app_name => G_APP_NAME,
23170: p_msg_name => G_LLA_NO_MATCHING_RECORD,
23171: p_token1 => G_COL_NAME_TOKEN,
23172: p_token1_value => 'Stream Id');
23173: x_return_status := OKL_API.G_RET_STS_ERROR;
23169: OKL_API.set_message(p_app_name => G_APP_NAME,
23170: p_msg_name => G_LLA_NO_MATCHING_RECORD,
23171: p_token1 => G_COL_NAME_TOKEN,
23172: p_token1_value => 'Stream Id');
23173: x_return_status := OKL_API.G_RET_STS_ERROR;
23174: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
23175: END IF;
23176: CLOSE strm_name_csr;
23177: l_strm_name := l_strm_name_rec.stream_type_purpose;
23170: p_msg_name => G_LLA_NO_MATCHING_RECORD,
23171: p_token1 => G_COL_NAME_TOKEN,
23172: p_token1_value => 'Stream Id');
23173: x_return_status := OKL_API.G_RET_STS_ERROR;
23174: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
23175: END IF;
23176: CLOSE strm_name_csr;
23177: l_strm_name := l_strm_name_rec.stream_type_purpose;
23178: IF(UPPER(TRIM(l_strm_name)) <> 'RENT') THEN
23194: l_csm_loan_levels_tbl(j).days_in_year := l_days_in_yr_code;
23195:
23196: FOR l_rl_rec in l_rl_csr ( l_rl_rec1.slh_id, 'LALEVL', 'LASLL', TO_NUMBER(p_chr_id), l_so_line_rec.id ) LOOP
23197: IF (l_rl_rec.rule_information7 IS NOT NULL OR
23198: l_rl_rec.rule_information7 <> OKL_API.G_MISS_CHAR) AND
23199: (l_rl_rec.rule_information8 IS NOT NULL OR
23200: l_rl_rec.rule_information8 <> OKL_API.G_MISS_CHAR) THEN
23201: j := j + 1;
23202: idx := idx + 1;
23196: FOR l_rl_rec in l_rl_csr ( l_rl_rec1.slh_id, 'LALEVL', 'LASLL', TO_NUMBER(p_chr_id), l_so_line_rec.id ) LOOP
23197: IF (l_rl_rec.rule_information7 IS NOT NULL OR
23198: l_rl_rec.rule_information7 <> OKL_API.G_MISS_CHAR) AND
23199: (l_rl_rec.rule_information8 IS NOT NULL OR
23200: l_rl_rec.rule_information8 <> OKL_API.G_MISS_CHAR) THEN
23201: j := j + 1;
23202: idx := idx + 1;
23203: l_csm_loan_levels_tbl(j).level_index_number := idx;
23204: l_csm_loan_levels_tbl(j).amount := TO_NUMBER(l_rl_rec.rule_information8);
23230: END IF;
23231: -- Bug 4915938 - End of Changes
23232:
23233: ELSIF (l_rl_rec.rule_information7 IS NULL OR
23234: l_rl_rec.rule_information7 = OKL_API.G_MISS_CHAR) AND
23235: (l_rl_rec.rule_information8 IS NULL OR
23236: l_rl_rec.rule_information8 = OKL_API.G_MISS_CHAR) THEN
23237: j := j + 1;
23238: idx := idx + 1;
23232:
23233: ELSIF (l_rl_rec.rule_information7 IS NULL OR
23234: l_rl_rec.rule_information7 = OKL_API.G_MISS_CHAR) AND
23235: (l_rl_rec.rule_information8 IS NULL OR
23236: l_rl_rec.rule_information8 = OKL_API.G_MISS_CHAR) THEN
23237: j := j + 1;
23238: idx := idx + 1;
23239: --smahapat l_csm_loan_levels_tbl(j).kle_loan_id := l_so_line_rec.id;
23240: l_csm_loan_levels_tbl(j).description := l_strm_name;
23273: ln_diff_days := ld_chr_end_date - ld_last_end_date;
23274: END IF;
23275: CLOSE c_diff_days_csr;
23276: IF SIGN(ln_diff_days) = -1 THEN
23277: OKL_API.set_message(p_app_name => G_APP_NAME,
23278: p_msg_name => G_INVALID_VALUE,
23279: p_token1 => G_COL_NAME_TOKEN,
23280: p_token1_value => 'Diffrence End date');
23281: x_return_status := OKL_API.G_RET_STS_ERROR;
23277: OKL_API.set_message(p_app_name => G_APP_NAME,
23278: p_msg_name => G_INVALID_VALUE,
23279: p_token1 => G_COL_NAME_TOKEN,
23280: p_token1_value => 'Diffrence End date');
23281: x_return_status := OKL_API.G_RET_STS_ERROR;
23282: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
23283: END IF;
23284: -- If there is diff in days then an empty stub will be appended
23285: IF ln_diff_days > 0 AND
23278: p_msg_name => G_INVALID_VALUE,
23279: p_token1 => G_COL_NAME_TOKEN,
23280: p_token1_value => 'Diffrence End date');
23281: x_return_status := OKL_API.G_RET_STS_ERROR;
23282: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
23283: END IF;
23284: -- If there is diff in days then an empty stub will be appended
23285: IF ln_diff_days > 0 AND
23286: ld_last_start_date = FND_DATE.canonical_to_date(l_rl_rec.rule_information2) THEN
23324: ((l_strm_name_rec.periodic_yn = 'Y' ) AND
23325: (UPPER(l_strm_name_rec.name) <> 'FEE'))) THEN
23326: FOR l_rl_rec in l_rl_csr (l_rl_rec1.slh_id, 'LALEVL', 'LASLL', TO_NUMBER(p_chr_id), l_so_line_rec.id ) LOOP
23327: IF (l_rl_rec.rule_information7 IS NOT NULL OR
23328: l_rl_rec.rule_information7 <> OKL_API.G_MISS_CHAR) AND
23329: (l_rl_rec.rule_information8 IS NOT NULL OR
23330: l_rl_rec.rule_information8 <> OKL_API.G_MISS_CHAR) THEN
23331: k := k + 1;
23332: idx := idx + 1;
23326: FOR l_rl_rec in l_rl_csr (l_rl_rec1.slh_id, 'LALEVL', 'LASLL', TO_NUMBER(p_chr_id), l_so_line_rec.id ) LOOP
23327: IF (l_rl_rec.rule_information7 IS NOT NULL OR
23328: l_rl_rec.rule_information7 <> OKL_API.G_MISS_CHAR) AND
23329: (l_rl_rec.rule_information8 IS NOT NULL OR
23330: l_rl_rec.rule_information8 <> OKL_API.G_MISS_CHAR) THEN
23331: k := k + 1;
23332: idx := idx + 1;
23333: l_csm_periodic_expenses_tbl(k).level_index_number := idx;
23334: l_csm_periodic_expenses_tbl(k).amount := TO_NUMBER(l_rl_rec.rule_information8);
23366: END IF;
23367: -- Bug 4915938 - End of Changes
23368:
23369: ELSIF (l_rl_rec.rule_information7 IS NULL OR
23370: l_rl_rec.rule_information7 = OKL_API.G_MISS_CHAR) AND
23371: (l_rl_rec.rule_information8 IS NULL OR
23372: l_rl_rec.rule_information8 = OKL_API.G_MISS_CHAR) THEN
23373: k := k + 1;
23374: idx := idx + 1;
23368:
23369: ELSIF (l_rl_rec.rule_information7 IS NULL OR
23370: l_rl_rec.rule_information7 = OKL_API.G_MISS_CHAR) AND
23371: (l_rl_rec.rule_information8 IS NULL OR
23372: l_rl_rec.rule_information8 = OKL_API.G_MISS_CHAR) THEN
23373: k := k + 1;
23374: idx := idx + 1;
23375: l_csm_periodic_expenses_tbl(k).level_index_number := idx;
23376: l_csm_periodic_expenses_tbl(k).description := l_strm_name;
23388: l_csm_periodic_expenses_tbl(k).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ARREARS;
23389: ELSE
23390: l_csm_periodic_expenses_tbl(k).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ADVANCE;
23391: END IF;
23392: IF (l_rl_rec.RULE_INFORMATION2 IS NULL or l_rl_rec.RULE_INFORMATION2 = OKL_API.G_MISS_CHAR) THEN
23393: l_csm_periodic_expenses_tbl(k).date_start := l_hdr_rec.start_date;
23394: ELSE
23395: l_csm_periodic_expenses_tbl(k).date_start := FND_DATE.canonical_to_date(l_rl_rec.RULE_INFORMATION2);
23396: END IF;
23414: l_csm_one_off_fee_tbl(l).description := l_strm_name_rec.name;
23415: l_csm_one_off_fee_tbl(l).income_or_expense := OKL_CREATE_STREAMS_PUB.G_INCOME;
23416: l_csm_one_off_fee_tbl(l).amount := FND_NUMBER.canonical_to_number(nvl(l_rl_rec.RULE_INFORMATION6,'0'));
23417: IF (l_rl_rec.RULE_INFORMATION2 IS NULL OR
23418: l_rl_rec.RULE_INFORMATION2 = OKL_API.G_MISS_CHAR) THEN
23419: l_csm_one_off_fee_tbl(l).date_paid := l_hdr_rec.start_date;
23420: ELSE
23421: l_csm_one_off_fee_tbl(l).date_paid := FND_DATE.canonical_to_date(l_rl_rec.RULE_INFORMATION2);
23422: END IF;
23434: x_return_status => x_return_status,
23435: px_csm_stream_types_tbl => l_csm_stream_types_tbl,
23436: px_csm_one_off_fee_tbl => l_csm_one_off_fee_tbl,
23437: px_csm_periodic_expenses_tbl => l_csm_periodic_expenses_tbl);
23438: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
23439: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
23440: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
23441: RAISE OKL_API.G_EXCEPTION_ERROR;
23442: END IF;
23435: px_csm_stream_types_tbl => l_csm_stream_types_tbl,
23436: px_csm_one_off_fee_tbl => l_csm_one_off_fee_tbl,
23437: px_csm_periodic_expenses_tbl => l_csm_periodic_expenses_tbl);
23438: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
23439: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
23440: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
23441: RAISE OKL_API.G_EXCEPTION_ERROR;
23442: END IF;
23443: extract_subsidized_lines(p_api_version => p_api_version,
23436: px_csm_one_off_fee_tbl => l_csm_one_off_fee_tbl,
23437: px_csm_periodic_expenses_tbl => l_csm_periodic_expenses_tbl);
23438: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
23439: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
23440: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
23441: RAISE OKL_API.G_EXCEPTION_ERROR;
23442: END IF;
23443: extract_subsidized_lines(p_api_version => p_api_version,
23444: p_init_msg_list => p_init_msg_list,
23437: px_csm_periodic_expenses_tbl => l_csm_periodic_expenses_tbl);
23438: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
23439: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
23440: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
23441: RAISE OKL_API.G_EXCEPTION_ERROR;
23442: END IF;
23443: extract_subsidized_lines(p_api_version => p_api_version,
23444: p_init_msg_list => p_init_msg_list,
23445: x_return_status => x_return_status,
23446: x_msg_count => x_msg_count,
23447: x_msg_data => x_msg_data,
23448: p_chr_id => TO_NUMBER(p_chr_id),
23449: px_csm_one_off_fee_tbl => l_csm_one_off_fee_tbl);
23450: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
23451: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
23452: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
23453: RAISE OKL_API.G_EXCEPTION_ERROR;
23454: END IF;
23447: x_msg_data => x_msg_data,
23448: p_chr_id => TO_NUMBER(p_chr_id),
23449: px_csm_one_off_fee_tbl => l_csm_one_off_fee_tbl);
23450: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
23451: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
23452: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
23453: RAISE OKL_API.G_EXCEPTION_ERROR;
23454: END IF;
23455: check_for_mandatory_streams(
23448: p_chr_id => TO_NUMBER(p_chr_id),
23449: px_csm_one_off_fee_tbl => l_csm_one_off_fee_tbl);
23450: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
23451: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
23452: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
23453: RAISE OKL_API.G_EXCEPTION_ERROR;
23454: END IF;
23455: check_for_mandatory_streams(
23456: p_api_version => p_api_version,
23449: px_csm_one_off_fee_tbl => l_csm_one_off_fee_tbl);
23450: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
23451: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
23452: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
23453: RAISE OKL_API.G_EXCEPTION_ERROR;
23454: END IF;
23455: check_for_mandatory_streams(
23456: p_api_version => p_api_version,
23457: p_init_msg_list => p_init_msg_list,
23461: p_chr_id => p_chr_id,
23462: p_deal_type => l_deal_type,
23463: p_stream_types_tbl => l_csm_stream_types_tbl,
23464: x_stream_types_tbl => l_req_stream_types_tbl);
23465: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
23466: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
23467: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
23468: RAISE OKL_API.G_EXCEPTION_ERROR;
23469: END IF;
23462: p_deal_type => l_deal_type,
23463: p_stream_types_tbl => l_csm_stream_types_tbl,
23464: x_stream_types_tbl => l_req_stream_types_tbl);
23465: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
23466: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
23467: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
23468: RAISE OKL_API.G_EXCEPTION_ERROR;
23469: END IF;
23470: -- Requesting for yields
23463: p_stream_types_tbl => l_csm_stream_types_tbl,
23464: x_stream_types_tbl => l_req_stream_types_tbl);
23465: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
23466: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
23467: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
23468: RAISE OKL_API.G_EXCEPTION_ERROR;
23469: END IF;
23470: -- Requesting for yields
23471: x_return_status := yield_request(x_csm_yields_tbl => l_csm_yields_tbl);
23464: x_stream_types_tbl => l_req_stream_types_tbl);
23465: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
23466: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
23467: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
23468: RAISE OKL_API.G_EXCEPTION_ERROR;
23469: END IF;
23470: -- Requesting for yields
23471: x_return_status := yield_request(x_csm_yields_tbl => l_csm_yields_tbl);
23472: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
23468: RAISE OKL_API.G_EXCEPTION_ERROR;
23469: END IF;
23470: -- Requesting for yields
23471: x_return_status := yield_request(x_csm_yields_tbl => l_csm_yields_tbl);
23472: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
23473: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
23474: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
23475: RAISE OKL_API.G_EXCEPTION_ERROR;
23476: END IF;
23469: END IF;
23470: -- Requesting for yields
23471: x_return_status := yield_request(x_csm_yields_tbl => l_csm_yields_tbl);
23472: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
23473: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
23474: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
23475: RAISE OKL_API.G_EXCEPTION_ERROR;
23476: END IF;
23477: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) then
23470: -- Requesting for yields
23471: x_return_status := yield_request(x_csm_yields_tbl => l_csm_yields_tbl);
23472: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
23473: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
23474: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
23475: RAISE OKL_API.G_EXCEPTION_ERROR;
23476: END IF;
23477: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) then
23478: okl_api.set_message(
23471: x_return_status := yield_request(x_csm_yields_tbl => l_csm_yields_tbl);
23472: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
23473: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
23474: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
23475: RAISE OKL_API.G_EXCEPTION_ERROR;
23476: END IF;
23477: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) then
23478: okl_api.set_message(
23479: p_app_name => G_APP_NAME,
23473: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
23474: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
23475: RAISE OKL_API.G_EXCEPTION_ERROR;
23476: END IF;
23477: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) then
23478: okl_api.set_message(
23479: p_app_name => G_APP_NAME,
23480: p_msg_name => 'OKL_LLA_REPSTRMS_EXTR_FAILED');
23481: RAISE OKL_API.G_EXCEPTION_ERROR;
23474: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
23475: RAISE OKL_API.G_EXCEPTION_ERROR;
23476: END IF;
23477: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) then
23478: okl_api.set_message(
23479: p_app_name => G_APP_NAME,
23480: p_msg_name => 'OKL_LLA_REPSTRMS_EXTR_FAILED');
23481: RAISE OKL_API.G_EXCEPTION_ERROR;
23482: End If;
23477: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) then
23478: okl_api.set_message(
23479: p_app_name => G_APP_NAME,
23480: p_msg_name => 'OKL_LLA_REPSTRMS_EXTR_FAILED');
23481: RAISE OKL_API.G_EXCEPTION_ERROR;
23482: End If;
23483: x_csm_loan_header := l_csm_loan_header;
23484: x_csm_loan_lines_tbl := l_csm_loan_details_tbl;
23485: x_csm_loan_levels_tbl := l_csm_loan_levels_tbl;
23487: x_csm_periodic_expenses_tbl := l_csm_periodic_expenses_tbl;
23488: x_csm_yields_tbl := l_csm_yields_tbl;
23489: x_req_stream_types_tbl := l_req_stream_types_tbl;
23490: ELSE
23491: okl_api.set_message(p_app_name => G_APP_NAME,
23492: p_msg_name => G_INVALID_VALUE,
23493: p_token1 => G_COL_NAME_TOKEN,
23494: p_token1_value => 'Deal_type');
23495: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
23491: okl_api.set_message(p_app_name => G_APP_NAME,
23492: p_msg_name => G_INVALID_VALUE,
23493: p_token1 => G_COL_NAME_TOKEN,
23494: p_token1_value => 'Deal_type');
23495: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
23496: END IF;
23497: OKL_API.END_ACTIVITY (x_msg_count,
23498: x_msg_data );
23499: EXCEPTION
23493: p_token1 => G_COL_NAME_TOKEN,
23494: p_token1_value => 'Deal_type');
23495: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
23496: END IF;
23497: OKL_API.END_ACTIVITY (x_msg_count,
23498: x_msg_data );
23499: EXCEPTION
23500: WHEN OKL_API.G_EXCEPTION_ERROR THEN
23501: IF l_hdr_csr%ISOPEN THEN
23496: END IF;
23497: OKL_API.END_ACTIVITY (x_msg_count,
23498: x_msg_data );
23499: EXCEPTION
23500: WHEN OKL_API.G_EXCEPTION_ERROR THEN
23501: IF l_hdr_csr%ISOPEN THEN
23502: CLOSE l_hdr_csr;
23503: END IF;
23504: IF l_hdrrl_csr%ISOPEN THEN
23545: END IF;
23546: IF c_diff_days_csr%ISOPEN THEN
23547: CLOSE c_diff_days_csr;
23548: END IF;
23549: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
23550: l_api_name,
23551: G_PKG_NAME,
23552: 'OKL_API.G_RET_STS_ERROR',
23553: x_msg_count,
23548: END IF;
23549: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
23550: l_api_name,
23551: G_PKG_NAME,
23552: 'OKL_API.G_RET_STS_ERROR',
23553: x_msg_count,
23554: x_msg_data,
23555: '_PVT');
23556: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
23552: 'OKL_API.G_RET_STS_ERROR',
23553: x_msg_count,
23554: x_msg_data,
23555: '_PVT');
23556: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
23557: IF l_hdr_csr%ISOPEN THEN
23558: CLOSE l_hdr_csr;
23559: END IF;
23560: IF l_hdrrl_csr%ISOPEN THEN
23601: END IF;
23602: IF c_diff_days_csr%ISOPEN THEN
23603: CLOSE c_diff_days_csr;
23604: END IF;
23605: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
23606: l_api_name,
23607: G_PKG_NAME,
23608: 'OKL_API.G_RET_STS_UNEXP_ERROR',
23609: x_msg_count,
23604: END IF;
23605: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
23606: l_api_name,
23607: G_PKG_NAME,
23608: 'OKL_API.G_RET_STS_UNEXP_ERROR',
23609: x_msg_count,
23610: x_msg_data,
23611: '_PVT');
23612: WHEN OTHERS THEN
23657: END IF;
23658: IF c_diff_days_csr%ISOPEN THEN
23659: CLOSE c_diff_days_csr;
23660: END IF;
23661: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
23662: l_api_name,
23663: G_PKG_NAME,
23664: 'OTHERS',
23665: x_msg_count,