[Home] [Help]
3: -------------------------------------------------------------------------------------------------
4: -- GLOBAL MESSAGE CONSTANTS
5: -------------------------------------------------------------------------------------------------
6: G_NO_PARENT_RECORD CONSTANT VARCHAR2(200) := 'OKL_NO_PARENT_RECORD';
7: G_FND_APP CONSTANT VARCHAR2(200) := OKL_API.G_FND_APP;
8: g_rep_req_yn VARCHAR2(3) := 'N';
9: G_SFE_TYPE_SUBSIDY CONSTANT VARCHAR2(200) := okl_create_streams_pvt.G_SFE_TYPE_SUBSIDY;
10: G_REQUIRED_VALUE CONSTANT VARCHAR2(200) := OKL_API.G_REQUIRED_VALUE;
11: G_INVALID_VALUE CONSTANT VARCHAR2(200) := OKL_API.G_INVALID_VALUE;
6: G_NO_PARENT_RECORD CONSTANT VARCHAR2(200) := 'OKL_NO_PARENT_RECORD';
7: G_FND_APP CONSTANT VARCHAR2(200) := OKL_API.G_FND_APP;
8: g_rep_req_yn VARCHAR2(3) := 'N';
9: G_SFE_TYPE_SUBSIDY CONSTANT VARCHAR2(200) := okl_create_streams_pvt.G_SFE_TYPE_SUBSIDY;
10: G_REQUIRED_VALUE CONSTANT VARCHAR2(200) := OKL_API.G_REQUIRED_VALUE;
11: G_INVALID_VALUE CONSTANT VARCHAR2(200) := OKL_API.G_INVALID_VALUE;
12: G_UNEXPECTED_ERROR CONSTANT VARCHAR2(200) := 'OKL_CONTRACTS_UNEXP_ERROR';
13: G_DB_ERROR CONSTANT VARCHAR2(12) := 'OKL_DB_ERROR';
14: G_PROG_NAME_TOKEN CONSTANT VARCHAR2(9) := 'PROG_NAME';
7: G_FND_APP CONSTANT VARCHAR2(200) := OKL_API.G_FND_APP;
8: g_rep_req_yn VARCHAR2(3) := 'N';
9: G_SFE_TYPE_SUBSIDY CONSTANT VARCHAR2(200) := okl_create_streams_pvt.G_SFE_TYPE_SUBSIDY;
10: G_REQUIRED_VALUE CONSTANT VARCHAR2(200) := OKL_API.G_REQUIRED_VALUE;
11: G_INVALID_VALUE CONSTANT VARCHAR2(200) := OKL_API.G_INVALID_VALUE;
12: G_UNEXPECTED_ERROR CONSTANT VARCHAR2(200) := 'OKL_CONTRACTS_UNEXP_ERROR';
13: G_DB_ERROR CONSTANT VARCHAR2(12) := 'OKL_DB_ERROR';
14: G_PROG_NAME_TOKEN CONSTANT VARCHAR2(9) := 'PROG_NAME';
15: G_SQLCODE_TOKEN CONSTANT VARCHAR2(7) := 'SQLCODE';
14: G_PROG_NAME_TOKEN CONSTANT VARCHAR2(9) := 'PROG_NAME';
15: G_SQLCODE_TOKEN CONSTANT VARCHAR2(7) := 'SQLCODE';
16: G_SQLERRM_TOKEN CONSTANT VARCHAR2(7) := 'SQLERRM';
17: G_UPPERCASE_REQUIRED CONSTANT VARCHAR2(200) := 'OKL_CONTRACTS_UPPERCASE_REQ';
18: G_COL_NAME_TOKEN CONSTANT VARCHAR2(200) := OKL_API.G_COL_NAME_TOKEN;
19: -- Start modification Bug#3066346 bakuchib
20: G_LLA_NO_MATCHING_RECORD CONSTANT VARCHAR2(200) := 'OKL_LLA_NO_MATCHING_RECORD';
21: l_pay_tbl OKL_STREAM_GENERATOR_PVT.payment_tbl_type;
22: -- 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:
250: l_sty_code okl_strm_type_b.code%TYPE;
251:
252: BEGIN
253:
254: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
255:
256:
257: OPEN cntrct_csr (p_khr_id);
258: FETCH cntrct_csr INTO l_product_id, l_contract_start_date;
271: OPEN sty_csr;
272: FETCH sty_csr INTO l_sty_code;
273: CLOSE sty_csr;
274:
275: Okl_Api.SET_MESSAGE(p_app_name => g_app_name,
276: p_msg_name => 'OKL_DEP_STY_CODE_NOT_FOUND',
277: p_token1 => 'STY_CODE',
278: p_token1_value => l_sty_code);
279:
276: p_msg_name => 'OKL_DEP_STY_CODE_NOT_FOUND',
277: p_token1 => 'STY_CODE',
278: p_token1_value => l_sty_code);
279:
280: RAISE Okl_Api.G_EXCEPTION_ERROR;
281: END IF;
282: CLOSE pry_prc_csr;
283:
284: ELSE
282: CLOSE pry_prc_csr;
283:
284: ELSE
285:
286: Okl_Api.SET_MESSAGE(p_app_name => g_app_name,
287: p_msg_name => 'OKL_NO_PDT_FOUND');
288: RAISE Okl_Api.G_EXCEPTION_ERROR;
289:
290: END IF;
284: ELSE
285:
286: Okl_Api.SET_MESSAGE(p_app_name => g_app_name,
287: p_msg_name => 'OKL_NO_PDT_FOUND');
288: RAISE Okl_Api.G_EXCEPTION_ERROR;
289:
290: END IF;
291:
292: x_dependent_pricing_name := l_dependent_pricing_name;
291:
292: x_dependent_pricing_name := l_dependent_pricing_name;
293:
294: EXCEPTION
295: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
296: IF cntrct_csr%ISOPEN THEN
297: CLOSE cntrct_csr;
298: END IF;
299: IF pry_prc_csr%ISOPEN THEN
298: END IF;
299: IF pry_prc_csr%ISOPEN THEN
300: CLOSE pry_prc_csr;
301: END IF;
302: x_return_status := Okl_Api.G_RET_STS_ERROR ;
303:
304: WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
305: IF cntrct_csr%ISOPEN THEN
306: CLOSE cntrct_csr;
300: CLOSE pry_prc_csr;
301: END IF;
302: x_return_status := Okl_Api.G_RET_STS_ERROR ;
303:
304: WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
305: IF cntrct_csr%ISOPEN THEN
306: CLOSE cntrct_csr;
307: END IF;
308: IF pry_prc_csr%ISOPEN THEN
307: END IF;
308: IF pry_prc_csr%ISOPEN THEN
309: CLOSE pry_prc_csr;
310: END IF;
311: x_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
312:
313: WHEN OTHERS THEN
314: IF cntrct_csr%ISOPEN THEN
315: CLOSE cntrct_csr;
316: END IF;
317: IF pry_prc_csr%ISOPEN THEN
318: CLOSE pry_prc_csr;
319: END IF;
320: x_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
321: --okl_debug_pub.logmessage(SQLERRM);
322:
323: END get_dependent_pricing_name;
324:
354: l_primary_sty_purpose_meaning VARCHAR2(4000);
355:
356: BEGIN
357:
358: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
359:
360:
361: OPEN cntrct_csr (p_khr_id);
362: FETCH cntrct_csr INTO l_product_id, l_contract_start_date;
373:
374: l_primary_sty_purpose_meaning := OKL_ACCOUNTING_UTIL.GET_LOOKUP_MEANING
375: ('OKL_STREAM_TYPE_PURPOSE', p_primary_sty_purpose);
376:
377: Okl_Api.SET_MESSAGE(p_app_name => g_app_name,
378: p_msg_name => 'OKL_NO_PRY_STY_FOUND',
379: p_token1 => 'PURPOSE',
380: p_token1_value => l_primary_sty_purpose_meaning);
381:
378: p_msg_name => 'OKL_NO_PRY_STY_FOUND',
379: p_token1 => 'PURPOSE',
380: p_token1_value => l_primary_sty_purpose_meaning);
381:
382: RAISE Okl_Api.G_EXCEPTION_ERROR;
383: END IF;
384: CLOSE pry_sty_csr;
385:
386: ELSE
384: CLOSE pry_sty_csr;
385:
386: ELSE
387:
388: Okl_Api.SET_MESSAGE(p_app_name => g_app_name,
389: p_msg_name => 'OKL_NO_PDT_FOUND');
390: RAISE Okl_Api.G_EXCEPTION_ERROR;
391:
392: END IF;
386: ELSE
387:
388: Okl_Api.SET_MESSAGE(p_app_name => g_app_name,
389: p_msg_name => 'OKL_NO_PDT_FOUND');
390: RAISE Okl_Api.G_EXCEPTION_ERROR;
391:
392: END IF;
393:
394: x_primary_sty_id := l_strm_rec_type;
393:
394: x_primary_sty_id := l_strm_rec_type;
395:
396: EXCEPTION
397: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
398: IF cntrct_csr%ISOPEN THEN
399: CLOSE cntrct_csr;
400: END IF;
401: IF pry_sty_csr%ISOPEN THEN
400: END IF;
401: IF pry_sty_csr%ISOPEN THEN
402: CLOSE pry_sty_csr;
403: END IF;
404: x_return_status := Okl_Api.G_RET_STS_ERROR ;
405:
406: WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
407: IF cntrct_csr%ISOPEN THEN
408: CLOSE cntrct_csr;
402: CLOSE pry_sty_csr;
403: END IF;
404: x_return_status := Okl_Api.G_RET_STS_ERROR ;
405:
406: WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
407: IF cntrct_csr%ISOPEN THEN
408: CLOSE cntrct_csr;
409: END IF;
410: IF pry_sty_csr%ISOPEN THEN
409: END IF;
410: IF pry_sty_csr%ISOPEN THEN
411: CLOSE pry_sty_csr;
412: END IF;
413: x_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
414:
415: WHEN OTHERS THEN
416: IF cntrct_csr%ISOPEN THEN
417: CLOSE cntrct_csr;
418: END IF;
419: IF pry_sty_csr%ISOPEN THEN
420: CLOSE pry_sty_csr;
421: END IF;
422: x_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
423:
424:
425: END get_primary_stream_type;
426:
458: l_primary_sty_purpose_meaning VARCHAR2(4000);
459:
460: BEGIN
461:
462: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
463:
464:
465: OPEN cntrct_csr (p_khr_id);
466: FETCH cntrct_csr INTO l_product_id, l_contract_start_date;
478:
479: l_primary_sty_purpose_meaning := OKL_ACCOUNTING_UTIL.GET_LOOKUP_MEANING
480: ('OKL_STREAM_TYPE_PURPOSE', p_primary_sty_purpose);
481:
482: Okl_Api.SET_MESSAGE(p_app_name => g_app_name,
483: p_msg_name => 'OKL_NO_PRY_STY_FOUND',
484: p_token1 => 'PURPOSE',
485: p_token1_value => l_primary_sty_purpose_meaning);
486:
483: p_msg_name => 'OKL_NO_PRY_STY_FOUND',
484: p_token1 => 'PURPOSE',
485: p_token1_value => l_primary_sty_purpose_meaning);
486:
487: RAISE Okl_Api.G_EXCEPTION_ERROR;
488: END IF;
489: CLOSE pry_sty_csr;
490:
491: ELSE
489: CLOSE pry_sty_csr;
490:
491: ELSE
492:
493: Okl_Api.SET_MESSAGE(p_app_name => g_app_name,
494: p_msg_name => 'OKL_NO_PDT_FOUND');
495: RAISE Okl_Api.G_EXCEPTION_ERROR;
496:
497: END IF;
491: ELSE
492:
493: Okl_Api.SET_MESSAGE(p_app_name => g_app_name,
494: p_msg_name => 'OKL_NO_PDT_FOUND');
495: RAISE Okl_Api.G_EXCEPTION_ERROR;
496:
497: END IF;
498:
499: x_primary_sty_id := l_strm_rec_type;
498:
499: x_primary_sty_id := l_strm_rec_type;
500:
501: EXCEPTION
502: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
503: IF cntrct_csr%ISOPEN THEN
504: CLOSE cntrct_csr;
505: END IF;
506: IF pry_sty_csr%ISOPEN THEN
505: END IF;
506: IF pry_sty_csr%ISOPEN THEN
507: CLOSE pry_sty_csr;
508: END IF;
509: x_return_status := Okl_Api.G_RET_STS_ERROR ;
510:
511: WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
512: IF cntrct_csr%ISOPEN THEN
513: CLOSE cntrct_csr;
507: CLOSE pry_sty_csr;
508: END IF;
509: x_return_status := Okl_Api.G_RET_STS_ERROR ;
510:
511: WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
512: IF cntrct_csr%ISOPEN THEN
513: CLOSE cntrct_csr;
514: END IF;
515: IF pry_sty_csr%ISOPEN THEN
514: END IF;
515: IF pry_sty_csr%ISOPEN THEN
516: CLOSE pry_sty_csr;
517: END IF;
518: x_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
519:
520: WHEN OTHERS THEN
521: IF cntrct_csr%ISOPEN THEN
522: CLOSE cntrct_csr;
523: END IF;
524: IF pry_sty_csr%ISOPEN THEN
525: CLOSE pry_sty_csr;
526: END IF;
527: x_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
528:
529:
530: END get_primary_no_prc_stream_type;
531:
564: l_dep_sty_purpose_meaning VARCHAR2(4000);
565:
566: BEGIN
567:
568: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
569:
570:
571: OPEN cntrct_csr (p_khr_id);
572: FETCH cntrct_csr INTO l_product_id, l_contract_start_date;
583:
584: l_dep_sty_purpose_meaning := OKL_ACCOUNTING_UTIL.GET_LOOKUP_MEANING
585: ('OKL_STREAM_TYPE_PURPOSE', p_dependent_sty_purpose);
586:
587: Okl_Api.SET_MESSAGE(p_app_name => g_app_name,
588: p_msg_name => 'OKL_NO_DEP_STY_FOUND',
589: p_token1 => 'PURPOSE',
590: p_token1_value => l_dep_sty_purpose_meaning);
591:
588: p_msg_name => 'OKL_NO_DEP_STY_FOUND',
589: p_token1 => 'PURPOSE',
590: p_token1_value => l_dep_sty_purpose_meaning);
591:
592: RAISE Okl_Api.G_EXCEPTION_ERROR;
593: END IF;
594: CLOSE dep_sty_csr;
595:
596: ELSE
594: CLOSE dep_sty_csr;
595:
596: ELSE
597:
598: Okl_Api.SET_MESSAGE(p_app_name => g_app_name,
599: p_msg_name => 'OKL_NO_PDT_FOUND');
600: RAISE Okl_Api.G_EXCEPTION_ERROR;
601:
602: END IF;
596: ELSE
597:
598: Okl_Api.SET_MESSAGE(p_app_name => g_app_name,
599: p_msg_name => 'OKL_NO_PDT_FOUND');
600: RAISE Okl_Api.G_EXCEPTION_ERROR;
601:
602: END IF;
603:
604: x_dependent_sty_id := l_strm_rec_type;
603:
604: x_dependent_sty_id := l_strm_rec_type;
605:
606: EXCEPTION
607: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
608: IF cntrct_csr%ISOPEN THEN
609: CLOSE cntrct_csr;
610: END IF;
611: IF dep_sty_csr%ISOPEN THEN
610: END IF;
611: IF dep_sty_csr%ISOPEN THEN
612: CLOSE dep_sty_csr;
613: END IF;
614: x_return_status := Okl_Api.G_RET_STS_ERROR ;
615:
616: WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
617: IF cntrct_csr%ISOPEN THEN
618: CLOSE cntrct_csr;
612: CLOSE dep_sty_csr;
613: END IF;
614: x_return_status := Okl_Api.G_RET_STS_ERROR ;
615:
616: WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
617: IF cntrct_csr%ISOPEN THEN
618: CLOSE cntrct_csr;
619: END IF;
620: IF dep_sty_csr%ISOPEN THEN
619: END IF;
620: IF dep_sty_csr%ISOPEN THEN
621: CLOSE dep_sty_csr;
622: END IF;
623: x_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
624:
625: WHEN OTHERS THEN
626: IF cntrct_csr%ISOPEN THEN
627: CLOSE cntrct_csr;
628: END IF;
629: IF dep_sty_csr%ISOPEN THEN
630: CLOSE dep_sty_csr;
631: END IF;
632: x_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
633:
634: END get_dep_no_prc_stream_type;
635:
636: PROCEDURE get_dep_no_prc_stream_type
668: l_dep_sty_purpose_meaning VARCHAR2(4000);
669:
670: BEGIN
671:
672: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
673:
674: OPEN cntrct_csr (p_khr_id);
675: FETCH cntrct_csr INTO l_product_id, l_contract_start_date;
676: CLOSE cntrct_csr;
685:
686: l_dep_sty_purpose_meaning := OKL_ACCOUNTING_UTIL.GET_LOOKUP_MEANING
687: ('OKL_STREAM_TYPE_PURPOSE', p_dependent_sty_purpose);
688:
689: Okl_Api.SET_MESSAGE(p_app_name => g_app_name,
690: p_msg_name => 'OKL_NO_DEP_STY_FOUND',
691: p_token1 => 'PURPOSE',
692: p_token1_value => l_dep_sty_purpose_meaning);
693:
690: p_msg_name => 'OKL_NO_DEP_STY_FOUND',
691: p_token1 => 'PURPOSE',
692: p_token1_value => l_dep_sty_purpose_meaning);
693:
694: RAISE Okl_Api.G_EXCEPTION_ERROR;
695: END IF;
696: CLOSE dep_sty_csr;
697:
698: ELSE
696: CLOSE dep_sty_csr;
697:
698: ELSE
699:
700: Okl_Api.SET_MESSAGE(p_app_name => g_app_name,
701: p_msg_name => 'OKL_NO_PDT_FOUND');
702: RAISE Okl_Api.G_EXCEPTION_ERROR;
703:
704: END IF;
698: ELSE
699:
700: Okl_Api.SET_MESSAGE(p_app_name => g_app_name,
701: p_msg_name => 'OKL_NO_PDT_FOUND');
702: RAISE Okl_Api.G_EXCEPTION_ERROR;
703:
704: END IF;
705:
706: x_dependent_sty_id := l_strm_rec_type;
705:
706: x_dependent_sty_id := l_strm_rec_type;
707:
708: EXCEPTION
709: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
710: IF cntrct_csr%ISOPEN THEN
711: CLOSE cntrct_csr;
712: END IF;
713: IF dep_sty_csr%ISOPEN THEN
712: END IF;
713: IF dep_sty_csr%ISOPEN THEN
714: CLOSE dep_sty_csr;
715: END IF;
716: x_return_status := Okl_Api.G_RET_STS_ERROR ;
717:
718: WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
719: IF cntrct_csr%ISOPEN THEN
720: CLOSE cntrct_csr;
714: CLOSE dep_sty_csr;
715: END IF;
716: x_return_status := Okl_Api.G_RET_STS_ERROR ;
717:
718: WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
719: IF cntrct_csr%ISOPEN THEN
720: CLOSE cntrct_csr;
721: END IF;
722: IF dep_sty_csr%ISOPEN THEN
721: END IF;
722: IF dep_sty_csr%ISOPEN THEN
723: CLOSE dep_sty_csr;
724: END IF;
725: x_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
726:
727: WHEN OTHERS THEN
728: IF cntrct_csr%ISOPEN THEN
729: CLOSE cntrct_csr;
730: END IF;
731: IF dep_sty_csr%ISOPEN THEN
732: CLOSE dep_sty_csr;
733: END IF;
734: x_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
735:
736: END get_dep_no_prc_stream_type;
737:
738: PROCEDURE get_dep_no_prc_stream_type
769: l_dep_sty_purpose_meaning VARCHAR2(4000);
770:
771: BEGIN
772:
773: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
774:
775: OPEN cntrct_csr (p_khr_id);
776: FETCH cntrct_csr INTO l_product_id, l_contract_start_date;
777: CLOSE cntrct_csr;
786:
787: l_dep_sty_purpose_meaning := OKL_ACCOUNTING_UTIL.GET_LOOKUP_MEANING
788: ('OKL_STREAM_TYPE_PURPOSE', p_dependent_sty_purpose);
789:
790: Okl_Api.SET_MESSAGE(p_app_name => g_app_name,
791: p_msg_name => 'OKL_NO_DEP_STY_FOUND',
792: p_token1 => 'PURPOSE',
793: p_token1_value => l_dep_sty_purpose_meaning);
794:
791: p_msg_name => 'OKL_NO_DEP_STY_FOUND',
792: p_token1 => 'PURPOSE',
793: p_token1_value => l_dep_sty_purpose_meaning);
794:
795: RAISE Okl_Api.G_EXCEPTION_ERROR;
796: END IF;
797: CLOSE dep_sty_csr;
798:
799: ELSE
797: CLOSE dep_sty_csr;
798:
799: ELSE
800:
801: Okl_Api.SET_MESSAGE(p_app_name => g_app_name,
802: p_msg_name => 'OKL_NO_PDT_FOUND');
803: RAISE Okl_Api.G_EXCEPTION_ERROR;
804:
805: END IF;
799: ELSE
800:
801: Okl_Api.SET_MESSAGE(p_app_name => g_app_name,
802: p_msg_name => 'OKL_NO_PDT_FOUND');
803: RAISE Okl_Api.G_EXCEPTION_ERROR;
804:
805: END IF;
806:
807: x_dependent_sty_id := l_strm_rec_type;
806:
807: x_dependent_sty_id := l_strm_rec_type;
808:
809: EXCEPTION
810: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
811: IF cntrct_csr%ISOPEN THEN
812: CLOSE cntrct_csr;
813: END IF;
814: IF dep_sty_csr%ISOPEN THEN
813: END IF;
814: IF dep_sty_csr%ISOPEN THEN
815: CLOSE dep_sty_csr;
816: END IF;
817: x_return_status := Okl_Api.G_RET_STS_ERROR ;
818:
819: WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
820: IF cntrct_csr%ISOPEN THEN
821: CLOSE cntrct_csr;
815: CLOSE dep_sty_csr;
816: END IF;
817: x_return_status := Okl_Api.G_RET_STS_ERROR ;
818:
819: WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
820: IF cntrct_csr%ISOPEN THEN
821: CLOSE cntrct_csr;
822: END IF;
823: IF dep_sty_csr%ISOPEN THEN
822: END IF;
823: IF dep_sty_csr%ISOPEN THEN
824: CLOSE dep_sty_csr;
825: END IF;
826: x_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
827:
828: WHEN OTHERS THEN
829: IF cntrct_csr%ISOPEN THEN
830: CLOSE cntrct_csr;
831: END IF;
832: IF dep_sty_csr%ISOPEN THEN
833: CLOSE dep_sty_csr;
834: END IF;
835: x_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
836:
837: END get_dep_no_prc_stream_type;
838:
839:
872: l_primary_sty_purpose_meaning VARCHAR2(4000);
873:
874: BEGIN
875:
876: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
877:
878:
879: OPEN cntrct_csr (p_khr_id);
880: FETCH cntrct_csr INTO l_product_id, l_contract_start_date;
898:
899: l_primary_sty_purpose_meaning := OKL_ACCOUNTING_UTIL.GET_LOOKUP_MEANING
900: ('OKL_STREAM_TYPE_PURPOSE', p_primary_sty_purpose);
901:
902: Okl_Api.SET_MESSAGE(p_app_name => g_app_name,
903: p_msg_name => 'OKL_NO_PRY_STY_FOUND',
904: p_token1 => 'PURPOSE',
905: p_token1_value => l_primary_sty_purpose_meaning);
906:
903: p_msg_name => 'OKL_NO_PRY_STY_FOUND',
904: p_token1 => 'PURPOSE',
905: p_token1_value => l_primary_sty_purpose_meaning);
906:
907: RAISE Okl_Api.G_EXCEPTION_ERROR;
908: END IF;
909: CLOSE pry_sty_csr;
910:
911: ELSE
909: CLOSE pry_sty_csr;
910:
911: ELSE
912:
913: Okl_Api.SET_MESSAGE(p_app_name => g_app_name,
914: p_msg_name => 'OKL_NO_PDT_FOUND');
915: RAISE Okl_Api.G_EXCEPTION_ERROR;
916:
917: END IF;
911: ELSE
912:
913: Okl_Api.SET_MESSAGE(p_app_name => g_app_name,
914: p_msg_name => 'OKL_NO_PDT_FOUND');
915: RAISE Okl_Api.G_EXCEPTION_ERROR;
916:
917: END IF;
918:
919: x_primary_sty_id := l_strm_rec_type;
918:
919: x_primary_sty_id := l_strm_rec_type;
920:
921: EXCEPTION
922: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
923: IF cntrct_csr%ISOPEN THEN
924: CLOSE cntrct_csr;
925: END IF;
926: IF pry_sty_csr%ISOPEN THEN
925: END IF;
926: IF pry_sty_csr%ISOPEN THEN
927: CLOSE pry_sty_csr;
928: END IF;
929: x_return_status := Okl_Api.G_RET_STS_ERROR ;
930:
931: WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
932: IF cntrct_csr%ISOPEN THEN
933: CLOSE cntrct_csr;
927: CLOSE pry_sty_csr;
928: END IF;
929: x_return_status := Okl_Api.G_RET_STS_ERROR ;
930:
931: WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
932: IF cntrct_csr%ISOPEN THEN
933: CLOSE cntrct_csr;
934: END IF;
935: IF pry_sty_csr%ISOPEN THEN
934: END IF;
935: IF pry_sty_csr%ISOPEN THEN
936: CLOSE pry_sty_csr;
937: END IF;
938: x_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
939:
940: WHEN OTHERS THEN
941: IF cntrct_csr%ISOPEN THEN
942: CLOSE cntrct_csr;
943: END IF;
944: IF pry_sty_csr%ISOPEN THEN
945: CLOSE pry_sty_csr;
946: END IF;
947: x_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
948:
949:
950: END get_primary_stream_type;
951:
981: l_primary_sty_purpose_meaning VARCHAR2(4000);
982:
983: BEGIN
984:
985: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
986: x_primary_sty_id.delete;
987:
988:
989: OPEN cntrct_csr (p_khr_id);
1002: IF (x_primary_sty_id.count = 0) THEN
1003: l_primary_sty_purpose_meaning := OKL_ACCOUNTING_UTIL.GET_LOOKUP_MEANING
1004: ('OKL_STREAM_TYPE_PURPOSE', p_primary_sty_purpose);
1005:
1006: Okl_Api.SET_MESSAGE(p_app_name => g_app_name,
1007: p_msg_name => 'OKL_NO_PRY_STY_FOUND',
1008: p_token1 => 'PURPOSE',
1009: p_token1_value => l_primary_sty_purpose_meaning);
1010:
1007: p_msg_name => 'OKL_NO_PRY_STY_FOUND',
1008: p_token1 => 'PURPOSE',
1009: p_token1_value => l_primary_sty_purpose_meaning);
1010:
1011: RAISE Okl_Api.G_EXCEPTION_ERROR;
1012: END IF;
1013: ELSE
1014:
1015: Okl_Api.SET_MESSAGE(p_app_name => g_app_name,
1011: RAISE Okl_Api.G_EXCEPTION_ERROR;
1012: END IF;
1013: ELSE
1014:
1015: Okl_Api.SET_MESSAGE(p_app_name => g_app_name,
1016: p_msg_name => 'OKL_NO_PDT_FOUND');
1017: RAISE Okl_Api.G_EXCEPTION_ERROR;
1018:
1019: END IF;
1013: ELSE
1014:
1015: Okl_Api.SET_MESSAGE(p_app_name => g_app_name,
1016: p_msg_name => 'OKL_NO_PDT_FOUND');
1017: RAISE Okl_Api.G_EXCEPTION_ERROR;
1018:
1019: END IF;
1020:
1021: -- x_primary_sty_id := l_primary_sty_id;
1020:
1021: -- x_primary_sty_id := l_primary_sty_id;
1022:
1023: EXCEPTION
1024: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
1025: IF cntrct_csr%ISOPEN THEN
1026: CLOSE cntrct_csr;
1027: END IF;
1028: IF pry_sty_csr%ISOPEN THEN
1027: END IF;
1028: IF pry_sty_csr%ISOPEN THEN
1029: CLOSE pry_sty_csr;
1030: END IF;
1031: x_return_status := Okl_Api.G_RET_STS_ERROR ;
1032:
1033: WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
1034: IF cntrct_csr%ISOPEN THEN
1035: CLOSE cntrct_csr;
1029: CLOSE pry_sty_csr;
1030: END IF;
1031: x_return_status := Okl_Api.G_RET_STS_ERROR ;
1032:
1033: WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
1034: IF cntrct_csr%ISOPEN THEN
1035: CLOSE cntrct_csr;
1036: END IF;
1037: IF pry_sty_csr%ISOPEN THEN
1036: END IF;
1037: IF pry_sty_csr%ISOPEN THEN
1038: CLOSE pry_sty_csr;
1039: END IF;
1040: x_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
1041:
1042: WHEN OTHERS THEN
1043: IF cntrct_csr%ISOPEN THEN
1044: CLOSE cntrct_csr;
1045: END IF;
1046: IF pry_sty_csr%ISOPEN THEN
1047: CLOSE pry_sty_csr;
1048: END IF;
1049: x_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
1050:
1051:
1052: END get_primary_stream_types;
1053:
1084: l_dependetn_sty_id NUMBER;
1085: l_dep_sty_purpose_meaning VARCHAR2(4000);
1086: BEGIN
1087:
1088: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
1089:
1090: OPEN cntrct_csr (p_khr_id);
1091: FETCH cntrct_csr INTO l_product_id, l_contract_start_date;
1092: CLOSE cntrct_csr;
1100:
1101: l_dep_sty_purpose_meaning := OKL_ACCOUNTING_UTIL.GET_LOOKUP_MEANING
1102: ('OKL_STREAM_TYPE_PURPOSE', p_dependent_sty_purpose);
1103:
1104: Okl_Api.SET_MESSAGE(p_app_name => g_app_name,
1105: p_msg_name => 'OKL_NO_DEP_STY_FOUND',
1106: p_token1 => 'PURPOSE',
1107: p_token1_value => l_dep_sty_purpose_meaning);
1108:
1105: p_msg_name => 'OKL_NO_DEP_STY_FOUND',
1106: p_token1 => 'PURPOSE',
1107: p_token1_value => l_dep_sty_purpose_meaning);
1108:
1109: RAISE Okl_Api.G_EXCEPTION_ERROR;
1110: END IF;
1111: CLOSE dep_sty_csr;
1112:
1113: ELSE
1111: CLOSE dep_sty_csr;
1112:
1113: ELSE
1114:
1115: Okl_Api.SET_MESSAGE(p_app_name => g_app_name,
1116: p_msg_name => 'OKL_NO_PDT_FOUND');
1117: RAISE Okl_Api.G_EXCEPTION_ERROR;
1118:
1119: END IF;
1113: ELSE
1114:
1115: Okl_Api.SET_MESSAGE(p_app_name => g_app_name,
1116: p_msg_name => 'OKL_NO_PDT_FOUND');
1117: RAISE Okl_Api.G_EXCEPTION_ERROR;
1118:
1119: END IF;
1120:
1121: x_dependent_sty_id := l_strm_rec_type;
1120:
1121: x_dependent_sty_id := l_strm_rec_type;
1122:
1123: EXCEPTION
1124: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
1125: IF cntrct_csr%ISOPEN THEN
1126: CLOSE cntrct_csr;
1127: END IF;
1128: IF dep_sty_csr%ISOPEN THEN
1127: END IF;
1128: IF dep_sty_csr%ISOPEN THEN
1129: CLOSE dep_sty_csr;
1130: END IF;
1131: x_return_status := Okl_Api.G_RET_STS_ERROR ;
1132:
1133: WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
1134: IF cntrct_csr%ISOPEN THEN
1135: CLOSE cntrct_csr;
1129: CLOSE dep_sty_csr;
1130: END IF;
1131: x_return_status := Okl_Api.G_RET_STS_ERROR ;
1132:
1133: WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
1134: IF cntrct_csr%ISOPEN THEN
1135: CLOSE cntrct_csr;
1136: END IF;
1137: IF dep_sty_csr%ISOPEN THEN
1136: END IF;
1137: IF dep_sty_csr%ISOPEN THEN
1138: CLOSE dep_sty_csr;
1139: END IF;
1140: x_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
1141:
1142: WHEN OTHERS THEN
1143: IF cntrct_csr%ISOPEN THEN
1144: CLOSE cntrct_csr;
1145: END IF;
1146: IF dep_sty_csr%ISOPEN THEN
1147: CLOSE dep_sty_csr;
1148: END IF;
1149: x_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
1150:
1151: END get_dependent_stream_type;
1152:
1153: PROCEDURE get_dependent_stream_type
1183: l_dependetn_sty_id NUMBER;
1184: l_dep_sty_purpose_meaning VARCHAR2(4000);
1185: BEGIN
1186:
1187: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
1188:
1189: OPEN cntrct_csr (p_khr_id);
1190: FETCH cntrct_csr INTO l_product_id, l_contract_start_date;
1191: CLOSE cntrct_csr;
1199:
1200: l_dep_sty_purpose_meaning := OKL_ACCOUNTING_UTIL.GET_LOOKUP_MEANING
1201: ('OKL_STREAM_TYPE_PURPOSE', p_dependent_sty_purpose);
1202:
1203: Okl_Api.SET_MESSAGE(p_app_name => g_app_name,
1204: p_msg_name => 'OKL_NO_DEP_STY_FOUND',
1205: p_token1 => 'PURPOSE',
1206: p_token1_value => l_dep_sty_purpose_meaning);
1207:
1204: p_msg_name => 'OKL_NO_DEP_STY_FOUND',
1205: p_token1 => 'PURPOSE',
1206: p_token1_value => l_dep_sty_purpose_meaning);
1207:
1208: RAISE Okl_Api.G_EXCEPTION_ERROR;
1209: END IF;
1210: CLOSE dep_sty_csr;
1211:
1212: ELSE
1210: CLOSE dep_sty_csr;
1211:
1212: ELSE
1213:
1214: Okl_Api.SET_MESSAGE(p_app_name => g_app_name,
1215: p_msg_name => 'OKL_NO_PDT_FOUND');
1216: RAISE Okl_Api.G_EXCEPTION_ERROR;
1217:
1218: END IF;
1212: ELSE
1213:
1214: Okl_Api.SET_MESSAGE(p_app_name => g_app_name,
1215: p_msg_name => 'OKL_NO_PDT_FOUND');
1216: RAISE Okl_Api.G_EXCEPTION_ERROR;
1217:
1218: END IF;
1219:
1220: x_dependent_sty_id := l_strm_rec_type;
1219:
1220: x_dependent_sty_id := l_strm_rec_type;
1221:
1222: EXCEPTION
1223: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
1224: IF cntrct_csr%ISOPEN THEN
1225: CLOSE cntrct_csr;
1226: END IF;
1227: IF dep_sty_csr%ISOPEN THEN
1226: END IF;
1227: IF dep_sty_csr%ISOPEN THEN
1228: CLOSE dep_sty_csr;
1229: END IF;
1230: x_return_status := Okl_Api.G_RET_STS_ERROR ;
1231:
1232: WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
1233: IF cntrct_csr%ISOPEN THEN
1234: CLOSE cntrct_csr;
1228: CLOSE dep_sty_csr;
1229: END IF;
1230: x_return_status := Okl_Api.G_RET_STS_ERROR ;
1231:
1232: WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
1233: IF cntrct_csr%ISOPEN THEN
1234: CLOSE cntrct_csr;
1235: END IF;
1236: IF dep_sty_csr%ISOPEN THEN
1235: END IF;
1236: IF dep_sty_csr%ISOPEN THEN
1237: CLOSE dep_sty_csr;
1238: END IF;
1239: x_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
1240:
1241: WHEN OTHERS THEN
1242: IF cntrct_csr%ISOPEN THEN
1243: CLOSE cntrct_csr;
1244: END IF;
1245: IF dep_sty_csr%ISOPEN THEN
1246: CLOSE dep_sty_csr;
1247: END IF;
1248: x_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
1249:
1250: END get_dependent_stream_type;
1251: PROCEDURE get_dependent_stream_types
1252: (
1280: l_dep_sty_purpose_meaning VARCHAR2(4000);
1281:
1282: BEGIN
1283:
1284: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
1285:
1286: OPEN cntrct_csr (p_khr_id);
1287: FETCH cntrct_csr INTO l_product_id, l_contract_start_date;
1288: CLOSE cntrct_csr;
1296:
1297: -- Bug 4064253
1298: /*
1299: IF (x_dependent_sty_id.count = 0) THEN
1300: Okl_Api.SET_MESSAGE(p_app_name => g_app_name,
1301: p_msg_name => 'OKL_NO_PDT_FOUND');,
1302:
1303: RAISE Okl_Api.G_EXCEPTION_ERROR;
1304: END IF;
1299: IF (x_dependent_sty_id.count = 0) THEN
1300: Okl_Api.SET_MESSAGE(p_app_name => g_app_name,
1301: p_msg_name => 'OKL_NO_PDT_FOUND');,
1302:
1303: RAISE Okl_Api.G_EXCEPTION_ERROR;
1304: END IF;
1305: */
1306:
1307: ELSE
1304: END IF;
1305: */
1306:
1307: ELSE
1308: Okl_Api.SET_MESSAGE(p_app_name => g_app_name,
1309: p_msg_name => 'OKL_NO_PDT_FOUND');
1310: RAISE Okl_Api.G_EXCEPTION_ERROR;
1311: END IF;
1312:
1306:
1307: ELSE
1308: Okl_Api.SET_MESSAGE(p_app_name => g_app_name,
1309: p_msg_name => 'OKL_NO_PDT_FOUND');
1310: RAISE Okl_Api.G_EXCEPTION_ERROR;
1311: END IF;
1312:
1313: EXCEPTION
1314: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
1310: RAISE Okl_Api.G_EXCEPTION_ERROR;
1311: END IF;
1312:
1313: EXCEPTION
1314: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
1315: IF cntrct_csr%ISOPEN THEN
1316: CLOSE cntrct_csr;
1317: END IF;
1318: IF dep_sty_csr%ISOPEN THEN
1317: END IF;
1318: IF dep_sty_csr%ISOPEN THEN
1319: CLOSE dep_sty_csr;
1320: END IF;
1321: x_return_status := Okl_Api.G_RET_STS_ERROR ;
1322:
1323: WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
1324: IF cntrct_csr%ISOPEN THEN
1325: CLOSE cntrct_csr;
1319: CLOSE dep_sty_csr;
1320: END IF;
1321: x_return_status := Okl_Api.G_RET_STS_ERROR ;
1322:
1323: WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
1324: IF cntrct_csr%ISOPEN THEN
1325: CLOSE cntrct_csr;
1326: END IF;
1327: IF dep_sty_csr%ISOPEN THEN
1326: END IF;
1327: IF dep_sty_csr%ISOPEN THEN
1328: CLOSE dep_sty_csr;
1329: END IF;
1330: x_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
1331:
1332: WHEN OTHERS THEN
1333: IF cntrct_csr%ISOPEN THEN
1334: CLOSE cntrct_csr;
1335: END IF;
1336: IF dep_sty_csr%ISOPEN THEN
1337: CLOSE dep_sty_csr;
1338: END IF;
1339: x_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
1340:
1341: END get_dependent_stream_types;
1342:
1343:
1375: l_dep_sty_purpose_meaning VARCHAR2(4000);
1376:
1377: BEGIN
1378:
1379: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
1380:
1381: OPEN cntrct_csr (p_khr_id);
1382: FETCH cntrct_csr INTO l_product_id, l_contract_start_date;
1383: CLOSE cntrct_csr;
1392:
1393: -- Bug 4064253
1394: /*
1395: IF (x_primary_sty_id.count = 0) THEN
1396: Okl_Api.SET_MESSAGE(p_app_name => g_app_name,
1397: p_msg_name => 'OKL_NO_PDT_FOUND');
1398: RAISE Okl_Api.G_EXCEPTION_ERROR;
1399: END IF;
1400: */
1394: /*
1395: IF (x_primary_sty_id.count = 0) THEN
1396: Okl_Api.SET_MESSAGE(p_app_name => g_app_name,
1397: p_msg_name => 'OKL_NO_PDT_FOUND');
1398: RAISE Okl_Api.G_EXCEPTION_ERROR;
1399: END IF;
1400: */
1401:
1402:
1400: */
1401:
1402:
1403: ELSE
1404: Okl_Api.SET_MESSAGE(p_app_name => g_app_name,
1405: p_msg_name => 'OKL_NO_PDT_FOUND');
1406: RAISE Okl_Api.G_EXCEPTION_ERROR;
1407: END IF;
1408:
1402:
1403: ELSE
1404: Okl_Api.SET_MESSAGE(p_app_name => g_app_name,
1405: p_msg_name => 'OKL_NO_PDT_FOUND');
1406: RAISE Okl_Api.G_EXCEPTION_ERROR;
1407: END IF;
1408:
1409: EXCEPTION
1410: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
1406: RAISE Okl_Api.G_EXCEPTION_ERROR;
1407: END IF;
1408:
1409: EXCEPTION
1410: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
1411: IF cntrct_csr%ISOPEN THEN
1412: CLOSE cntrct_csr;
1413: END IF;
1414: IF dep_sty_csr%ISOPEN THEN
1413: END IF;
1414: IF dep_sty_csr%ISOPEN THEN
1415: CLOSE dep_sty_csr;
1416: END IF;
1417: x_return_status := Okl_Api.G_RET_STS_ERROR ;
1418:
1419: WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
1420: IF cntrct_csr%ISOPEN THEN
1421: CLOSE cntrct_csr;
1415: CLOSE dep_sty_csr;
1416: END IF;
1417: x_return_status := Okl_Api.G_RET_STS_ERROR ;
1418:
1419: WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
1420: IF cntrct_csr%ISOPEN THEN
1421: CLOSE cntrct_csr;
1422: END IF;
1423: IF dep_sty_csr%ISOPEN THEN
1422: END IF;
1423: IF dep_sty_csr%ISOPEN THEN
1424: CLOSE dep_sty_csr;
1425: END IF;
1426: x_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
1427:
1428: WHEN OTHERS THEN
1429: IF cntrct_csr%ISOPEN THEN
1430: CLOSE cntrct_csr;
1431: END IF;
1432: IF dep_sty_csr%ISOPEN THEN
1433: CLOSE dep_sty_csr;
1434: END IF;
1435: x_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
1436:
1437: END get_dependent_stream_types;
1438:
1439: PROCEDURE get_dependent_stream_type
1472: l_dep_sty_purpose_meaning VARCHAR2(4000);
1473:
1474: BEGIN
1475:
1476: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
1477:
1478: OPEN cntrct_csr (p_khr_id);
1479: FETCH cntrct_csr INTO l_product_id, l_contract_start_date;
1480: CLOSE cntrct_csr;
1496:
1497: l_dep_sty_purpose_meaning := OKL_ACCOUNTING_UTIL.GET_LOOKUP_MEANING
1498: ('OKL_STREAM_TYPE_PURPOSE', p_dependent_sty_purpose);
1499:
1500: Okl_Api.SET_MESSAGE(p_app_name => g_app_name,
1501: p_msg_name => 'OKL_NO_DEP_STY_FOUND',
1502: p_token1 => 'PURPOSE',
1503: p_token1_value => l_dep_sty_purpose_meaning);
1504:
1501: p_msg_name => 'OKL_NO_DEP_STY_FOUND',
1502: p_token1 => 'PURPOSE',
1503: p_token1_value => l_dep_sty_purpose_meaning);
1504:
1505: RAISE Okl_Api.G_EXCEPTION_ERROR;
1506: END IF;
1507: CLOSE dep_sty_csr;
1508:
1509: ELSE
1507: CLOSE dep_sty_csr;
1508:
1509: ELSE
1510:
1511: Okl_Api.SET_MESSAGE(p_app_name => g_app_name,
1512: p_msg_name => 'OKL_NO_PDT_FOUND');
1513: RAISE Okl_Api.G_EXCEPTION_ERROR;
1514:
1515: END IF;
1509: ELSE
1510:
1511: Okl_Api.SET_MESSAGE(p_app_name => g_app_name,
1512: p_msg_name => 'OKL_NO_PDT_FOUND');
1513: RAISE Okl_Api.G_EXCEPTION_ERROR;
1514:
1515: END IF;
1516:
1517: x_dependent_sty_id := l_strm_rec_type;
1516:
1517: x_dependent_sty_id := l_strm_rec_type;
1518:
1519: EXCEPTION
1520: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
1521: IF cntrct_csr%ISOPEN THEN
1522: CLOSE cntrct_csr;
1523: END IF;
1524: IF dep_sty_csr%ISOPEN THEN
1523: END IF;
1524: IF dep_sty_csr%ISOPEN THEN
1525: CLOSE dep_sty_csr;
1526: END IF;
1527: x_return_status := Okl_Api.G_RET_STS_ERROR ;
1528:
1529: WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
1530: IF cntrct_csr%ISOPEN THEN
1531: CLOSE cntrct_csr;
1525: CLOSE dep_sty_csr;
1526: END IF;
1527: x_return_status := Okl_Api.G_RET_STS_ERROR ;
1528:
1529: WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
1530: IF cntrct_csr%ISOPEN THEN
1531: CLOSE cntrct_csr;
1532: END IF;
1533: IF dep_sty_csr%ISOPEN THEN
1532: END IF;
1533: IF dep_sty_csr%ISOPEN THEN
1534: CLOSE dep_sty_csr;
1535: END IF;
1536: x_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
1537:
1538: WHEN OTHERS THEN
1539: IF cntrct_csr%ISOPEN THEN
1540: CLOSE cntrct_csr;
1541: END IF;
1542: IF dep_sty_csr%ISOPEN THEN
1543: CLOSE dep_sty_csr;
1544: END IF;
1545: x_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
1546:
1547: END get_dependent_stream_type;
1548:
1549: PROCEDURE get_dependent_stream_type
1582: l_dep_sty_purpose_meaning VARCHAR2(4000);
1583:
1584: BEGIN
1585:
1586: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
1587:
1588: OPEN cntrct_csr (p_khr_id);
1589: FETCH cntrct_csr INTO l_product_id, l_contract_start_date;
1590: CLOSE cntrct_csr;
1606:
1607: l_dep_sty_purpose_meaning := OKL_ACCOUNTING_UTIL.GET_LOOKUP_MEANING
1608: ('OKL_STREAM_TYPE_PURPOSE', p_dependent_sty_purpose);
1609:
1610: Okl_Api.SET_MESSAGE(p_app_name => g_app_name,
1611: p_msg_name => 'OKL_NO_DEP_STY_FOUND',
1612: p_token1 => 'PURPOSE',
1613: p_token1_value => l_dep_sty_purpose_meaning);
1614:
1611: p_msg_name => 'OKL_NO_DEP_STY_FOUND',
1612: p_token1 => 'PURPOSE',
1613: p_token1_value => l_dep_sty_purpose_meaning);
1614:
1615: RAISE Okl_Api.G_EXCEPTION_ERROR;
1616: END IF;
1617: CLOSE dep_sty_csr;
1618:
1619: ELSE
1617: CLOSE dep_sty_csr;
1618:
1619: ELSE
1620:
1621: Okl_Api.SET_MESSAGE(p_app_name => g_app_name,
1622: p_msg_name => 'OKL_NO_PDT_FOUND');
1623: RAISE Okl_Api.G_EXCEPTION_ERROR;
1624:
1625: END IF;
1619: ELSE
1620:
1621: Okl_Api.SET_MESSAGE(p_app_name => g_app_name,
1622: p_msg_name => 'OKL_NO_PDT_FOUND');
1623: RAISE Okl_Api.G_EXCEPTION_ERROR;
1624:
1625: END IF;
1626:
1627: x_dependent_sty_id := l_strm_rec_type;
1626:
1627: x_dependent_sty_id := l_strm_rec_type;
1628:
1629: EXCEPTION
1630: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
1631: IF cntrct_csr%ISOPEN THEN
1632: CLOSE cntrct_csr;
1633: END IF;
1634: IF dep_sty_csr%ISOPEN THEN
1633: END IF;
1634: IF dep_sty_csr%ISOPEN THEN
1635: CLOSE dep_sty_csr;
1636: END IF;
1637: x_return_status := Okl_Api.G_RET_STS_ERROR ;
1638:
1639: WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
1640: IF cntrct_csr%ISOPEN THEN
1641: CLOSE cntrct_csr;
1635: CLOSE dep_sty_csr;
1636: END IF;
1637: x_return_status := Okl_Api.G_RET_STS_ERROR ;
1638:
1639: WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
1640: IF cntrct_csr%ISOPEN THEN
1641: CLOSE cntrct_csr;
1642: END IF;
1643: IF dep_sty_csr%ISOPEN THEN
1642: END IF;
1643: IF dep_sty_csr%ISOPEN THEN
1644: CLOSE dep_sty_csr;
1645: END IF;
1646: x_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
1647:
1648: WHEN OTHERS THEN
1649: IF cntrct_csr%ISOPEN THEN
1650: CLOSE cntrct_csr;
1651: END IF;
1652: IF dep_sty_csr%ISOPEN THEN
1653: CLOSE dep_sty_csr;
1654: END IF;
1655: x_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
1656:
1657: END get_dependent_stream_type;
1658:
1659: -- End code for new procedures of stream type
1660:
1661: -- gboomina BUG#4508077 changes start
1662: -- procedure to update the rvi_amount and delete the primary stream
1663: PROCEDURE update_rvi_amount(p_api_version IN NUMBER,
1664: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
1665: p_chr_id IN NUMBER,
1666: p_purpose IN VARCHAR2,
1667: x_return_status OUT NOCOPY VARCHAR2,
1668: x_msg_count OUT NOCOPY NUMBER,
1702: l_strm_id NUMBER;
1703: l_stmv_rec okl_streams_pub.stmv_rec_type;
1704: l_api_name VARCHAR2(255) := 'update_rvi_amount';
1705: BEGIN
1706: x_return_status := OKL_API.G_RET_STS_SUCCESS;
1707: -- Call start_activity to create savepoint, check compatibility
1708: -- and initialize message list
1709: x_return_status := OKL_API.START_ACTIVITY (
1710: l_api_name
1705: BEGIN
1706: x_return_status := OKL_API.G_RET_STS_SUCCESS;
1707: -- Call start_activity to create savepoint, check compatibility
1708: -- and initialize message list
1709: x_return_status := OKL_API.START_ACTIVITY (
1710: l_api_name
1711: ,p_init_msg_list
1712: ,'_PVT'
1713: ,x_return_status);
1711: ,p_init_msg_list
1712: ,'_PVT'
1713: ,x_return_status);
1714: -- Check if activity started successfully
1715: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1716: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1717: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1718: RAISE OKL_API.G_EXCEPTION_ERROR;
1719: END IF;
1712: ,'_PVT'
1713: ,x_return_status);
1714: -- Check if activity started successfully
1715: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1716: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1717: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1718: RAISE OKL_API.G_EXCEPTION_ERROR;
1719: END IF;
1720: l_line_id := NULL;
1713: ,x_return_status);
1714: -- Check if activity started successfully
1715: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1716: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1717: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1718: RAISE OKL_API.G_EXCEPTION_ERROR;
1719: END IF;
1720: l_line_id := NULL;
1721: l_rvi_amount := NULL;
1714: -- Check if activity started successfully
1715: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1716: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1717: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1718: RAISE OKL_API.G_EXCEPTION_ERROR;
1719: END IF;
1720: l_line_id := NULL;
1721: l_rvi_amount := NULL;
1722: -- get the abosrbed fee line with purpose code as RVI
1758: IF l_rvi_amount IS NOT NULL THEN
1759: l_fee_types_rec.amount := l_rvi_amount;
1760: -- update the fee line
1761: okl_maintain_fee_pvt.update_fee_type(p_api_version => p_api_version,
1762: p_init_msg_list => OKL_API.G_FALSE,
1763: x_return_status => x_return_status,
1764: x_msg_count => x_msg_count,
1765: x_msg_data => x_msg_data,
1766: p_fee_types_rec => l_fee_types_rec,
1764: x_msg_count => x_msg_count,
1765: x_msg_data => x_msg_data,
1766: p_fee_types_rec => l_fee_types_rec,
1767: x_fee_types_rec => lx_fee_types_rec);
1768: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1769: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1770: ElSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1771: RAISE OKL_API.G_EXCEPTION_ERROR;
1772: END IF;
1765: x_msg_data => x_msg_data,
1766: p_fee_types_rec => l_fee_types_rec,
1767: x_fee_types_rec => lx_fee_types_rec);
1768: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1769: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1770: ElSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1771: RAISE OKL_API.G_EXCEPTION_ERROR;
1772: END IF;
1773: END IF; -- end of stream element check
1766: p_fee_types_rec => l_fee_types_rec,
1767: x_fee_types_rec => lx_fee_types_rec);
1768: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1769: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1770: ElSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1771: RAISE OKL_API.G_EXCEPTION_ERROR;
1772: END IF;
1773: END IF; -- end of stream element check
1774: END IF; -- end of main product check
1767: x_fee_types_rec => lx_fee_types_rec);
1768: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1769: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1770: ElSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1771: RAISE OKL_API.G_EXCEPTION_ERROR;
1772: END IF;
1773: END IF; -- end of stream element check
1774: END IF; -- end of main product check
1775: -- delete the primary stream for all products
1773: END IF; -- end of stream element check
1774: END IF; -- end of main product check
1775: -- delete the primary stream for all products
1776: okl_streams_pub.delete_streams(p_api_version => p_api_version,
1777: p_init_msg_list => OKL_API.G_FALSE,
1778: x_return_status => x_return_status,
1779: x_msg_count => x_msg_count,
1780: x_msg_data => x_msg_data,
1781: p_stmv_rec => l_stmv_rec);
1778: x_return_status => x_return_status,
1779: x_msg_count => x_msg_count,
1780: x_msg_data => x_msg_data,
1781: p_stmv_rec => l_stmv_rec);
1782: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1783: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1784: ElSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1785: RAISE OKL_API.G_EXCEPTION_ERROR;
1786: END IF;
1779: x_msg_count => x_msg_count,
1780: x_msg_data => x_msg_data,
1781: p_stmv_rec => l_stmv_rec);
1782: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1783: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1784: ElSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1785: RAISE OKL_API.G_EXCEPTION_ERROR;
1786: END IF;
1787: END IF; -- end of strm id not null check
1780: x_msg_data => x_msg_data,
1781: p_stmv_rec => l_stmv_rec);
1782: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1783: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1784: ElSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1785: RAISE OKL_API.G_EXCEPTION_ERROR;
1786: END IF;
1787: END IF; -- end of strm id not null check
1788: END IF; -- end of line id not null check
1781: p_stmv_rec => l_stmv_rec);
1782: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1783: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1784: ElSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1785: RAISE OKL_API.G_EXCEPTION_ERROR;
1786: END IF;
1787: END IF; -- end of strm id not null check
1788: END IF; -- end of line id not null check
1789: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
1785: RAISE OKL_API.G_EXCEPTION_ERROR;
1786: END IF;
1787: END IF; -- end of strm id not null check
1788: END IF; -- end of line id not null check
1789: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
1790: EXCEPTION
1791: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1792: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1793: p_api_name => l_api_name,
1787: END IF; -- end of strm id not null check
1788: END IF; -- end of line id not null check
1789: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
1790: EXCEPTION
1791: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1792: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1793: p_api_name => l_api_name,
1794: p_pkg_name => g_pkg_name,
1795: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
1788: END IF; -- end of line id not null check
1789: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
1790: EXCEPTION
1791: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1792: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1793: p_api_name => l_api_name,
1794: p_pkg_name => g_pkg_name,
1795: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
1796: x_msg_count => x_msg_count,
1791: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1792: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1793: p_api_name => l_api_name,
1794: p_pkg_name => g_pkg_name,
1795: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
1796: x_msg_count => x_msg_count,
1797: x_msg_data => x_msg_data,
1798: p_api_type => g_api_type);
1799:
1796: x_msg_count => x_msg_count,
1797: x_msg_data => x_msg_data,
1798: p_api_type => g_api_type);
1799:
1800: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
1801: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1802: p_api_name => l_api_name,
1803: p_pkg_name => g_pkg_name,
1804: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
1797: x_msg_data => x_msg_data,
1798: p_api_type => g_api_type);
1799:
1800: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
1801: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1802: p_api_name => l_api_name,
1803: p_pkg_name => g_pkg_name,
1804: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
1805: x_msg_count => x_msg_count,
1800: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
1801: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1802: p_api_name => l_api_name,
1803: p_pkg_name => g_pkg_name,
1804: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
1805: x_msg_count => x_msg_count,
1806: x_msg_data => x_msg_data,
1807: p_api_type => g_api_type);
1808:
1806: x_msg_data => x_msg_data,
1807: p_api_type => g_api_type);
1808:
1809: WHEN OTHERS then
1810: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1811: p_api_name => l_api_name,
1812: p_pkg_name => g_pkg_name,
1813: p_exc_name => 'OTHERS',
1814: x_msg_count => x_msg_count,
1830: -------------------------------------------------------------------------------------------------
1831: FUNCTION yield_request(x_csm_yields_tbl OUT NOCOPY okl_create_streams_pub.csm_yields_tbl_type)
1832: RETURN VARCHAR2 IS
1833: l_prog_name VARCHAR2(100) := 'YIELD_REQUEST';
1834: x_return_status VARCHAR2(3) := okl_api.g_ret_sts_success;
1835: l_csm_yields_tbl okl_create_streams_pub.csm_yields_tbl_type;
1836: BEGIN
1837: -- Pre tax IRR with subsidy
1838: l_csm_yields_tbl(1).yield_name := 'PTIRR';
1886: x_csm_yields_tbl := l_csm_yields_tbl;
1887: RETURN x_return_status;
1888: EXCEPTION
1889: WHEN OTHERS THEN
1890: okl_api.set_message (p_app_name => G_APP_NAME,
1891: p_msg_name => G_DB_ERROR,
1892: p_token1 => G_PROG_NAME_TOKEN,
1893: p_token1_value => l_prog_name,
1894: p_token2 => G_SQLCODE_TOKEN,
1894: p_token2 => G_SQLCODE_TOKEN,
1895: p_token2_value => sqlcode,
1896: p_token3 => G_SQLERRM_TOKEN,
1897: p_token3_value => sqlerrm);
1898: x_return_status := okl_api.g_ret_sts_error;
1899: RETURN x_return_status;
1900: END yield_request;
1901: --------------------------------------------------------------------------------
1902: -- Start modification 11i9 bakuchib
1924: RETURN VARCHAR2 IS
1925: l_prog_name VARCHAR2(100) := 'VAL_TXD_TAX_BOOK';
1926: g_process_error EXCEPTION;
1927: G_NO_SETUP_TAX_BOOK CONSTANT VARCHAR2(200) := 'OKL_LLP_TAX_BOOK_MAP';
1928: x_return_status VARCHAR2(3) := OKL_API.G_RET_STS_SUCCESS;
1929: i NUMBER := 0;
1930: lv_tax_book OKL_TXD_ASSETS_B.TAX_BOOK%TYPE := NULL;
1931: -- Get the OKL_TXD_ASSETS_B info
1932: CURSOR l_txd_csr(p_asset_num VARCHAR2)
1975: FOR j IN lt_tax_book_value_tbl.FIRST..lt_tax_book_value_tbl.LAST LOOP
1976: EXIT WHEN(j = j + 1);
1977: IF lt_tax_book_value_tbl(j).VALUE IS NULL AND
1978: lt_tax_book_value_tbl(j+1).VALUE IS NULL THEN
1979: okl_api.set_message(p_app_name => G_APP_NAME,
1980: p_msg_name => G_NO_SETUP_TAX_BOOK,
1981: p_token1 => 'TAX_BOOK',
1982: p_token1_value => lt_tax_book_value_tbl(j).tax_book);
1983: x_return_status := OKL_API.G_RET_STS_ERROR;
1979: okl_api.set_message(p_app_name => G_APP_NAME,
1980: p_msg_name => G_NO_SETUP_TAX_BOOK,
1981: p_token1 => 'TAX_BOOK',
1982: p_token1_value => lt_tax_book_value_tbl(j).tax_book);
1983: x_return_status := OKL_API.G_RET_STS_ERROR;
1984: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_ERROR);
1985: END IF;
1986: END LOOP;
1987: ELSE
1980: p_msg_name => G_NO_SETUP_TAX_BOOK,
1981: p_token1 => 'TAX_BOOK',
1982: p_token1_value => lt_tax_book_value_tbl(j).tax_book);
1983: x_return_status := OKL_API.G_RET_STS_ERROR;
1984: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_ERROR);
1985: END IF;
1986: END LOOP;
1987: ELSE
1988: x_fed_only := 'N';
1988: x_fed_only := 'N';
1989: x_fed_only_tax_book := NULL;
1990: RETURN x_return_status;
1991: END IF;
1992: IF x_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
1993: RAISE g_process_error;
1994: END IF;
1995: RETURN x_return_status;
1996: EXCEPTION
2000: END IF;
2001: IF l_txd_csr%ISOPEN THEN
2002: CLOSE l_txd_csr;
2003: END IF;
2004: x_return_status := OKL_API.G_RET_STS_ERROR;
2005: RETURN x_return_status;
2006: WHEN OTHERS THEN
2007: IF l_txtrans_csr%ISOPEN THEN
2008: CLOSE l_txtrans_csr;
2009: END IF;
2010: IF l_txd_csr%ISOPEN THEN
2011: CLOSE l_txd_csr;
2012: END IF;
2013: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
2014: p_msg_name => G_DB_ERROR,
2015: p_token1 => G_PROG_NAME_TOKEN,
2016: p_token1_value => l_prog_name,
2017: p_token2 => G_SQLCODE_TOKEN,
2017: p_token2 => G_SQLCODE_TOKEN,
2018: p_token2_value => sqlcode,
2019: p_token3 => G_SQLERRM_TOKEN,
2020: p_token3_value => sqlerrm);
2021: x_return_status := OKL_API.G_RET_STS_ERROR;
2022: RETURN x_return_status;
2023: END validate_txd_tax_book;
2024: -------------------------------------------------------------------------------------------------
2025: -- Start modification 11i10 bakuchib
2043: p_corp_book IN VARCHAR2,
2044: x_mg_tax_yn OUT NOCOPY VARCHAR2)
2045: RETURN VARCHAR2 IS
2046: l_prog_name VARCHAR2(100) := 'IS_REP_PDT';
2047: x_return_status VARCHAR2(3) := OKL_API.G_RET_STS_SUCCESS;
2048: lv_mg_tax_yn VARCHAR2(3) := 'N';
2049: /*
2050: CURSOR get_rep_tax_csr(p_asset_number okl_txd_assets_b.asset_number%TYPE)
2051: IS
2075: WHEN OTHERS THEN
2076: IF get_rep_tax_csr%ISOPEN THEN
2077: CLOSE get_rep_tax_csr;
2078: END IF;
2079: x_return_status := OKL_API.G_RET_STS_ERROR;
2080: RETURN x_return_status;
2081: END is_rep_pdt;
2082: -------------------------------------------------------------------------------------------------
2083: -- Start of Commnets
2134: AND cle.lse_id = lse.id
2135: AND cle.sts_code = 'TERMINATED'
2136: AND lse.lty_code = 'FREE_FORM1');
2137: BEGIN
2138: x_return_status := OKL_API.G_RET_STS_SUCCESS;
2139: -- Call start_activity to create savepoint, check compatibility
2140: -- and initialize message list
2141: x_return_status := OKL_API.START_ACTIVITY (
2142: l_api_name
2137: BEGIN
2138: x_return_status := OKL_API.G_RET_STS_SUCCESS;
2139: -- Call start_activity to create savepoint, check compatibility
2140: -- and initialize message list
2141: x_return_status := OKL_API.START_ACTIVITY (
2142: l_api_name
2143: ,p_init_msg_list
2144: ,'_PVT'
2145: ,x_return_status);
2143: ,p_init_msg_list
2144: ,'_PVT'
2145: ,x_return_status);
2146: -- Check if activity started successfully
2147: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2148: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2149: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2150: RAISE OKL_API.G_EXCEPTION_ERROR;
2151: END IF;
2144: ,'_PVT'
2145: ,x_return_status);
2146: -- Check if activity started successfully
2147: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2148: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2149: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2150: RAISE OKL_API.G_EXCEPTION_ERROR;
2151: END IF;
2152: IF (p_contract_id IS NOT NULL OR
2145: ,x_return_status);
2146: -- Check if activity started successfully
2147: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2148: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2149: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2150: RAISE OKL_API.G_EXCEPTION_ERROR;
2151: END IF;
2152: IF (p_contract_id IS NOT NULL OR
2153: p_contract_id <> okl_api.g_miss_num) AND
2146: -- Check if activity started successfully
2147: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2148: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2149: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2150: RAISE OKL_API.G_EXCEPTION_ERROR;
2151: END IF;
2152: IF (p_contract_id IS NOT NULL OR
2153: p_contract_id <> okl_api.g_miss_num) AND
2154: (p_line_id IS NULL OR
2149: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2150: RAISE OKL_API.G_EXCEPTION_ERROR;
2151: END IF;
2152: IF (p_contract_id IS NOT NULL OR
2153: p_contract_id <> okl_api.g_miss_num) AND
2154: (p_line_id IS NULL OR
2155: p_line_id = okl_api.g_miss_num) THEN
2156: OPEN l_hdr_ter_csr(p_chr_id => p_contract_id);
2157: FETCH l_hdr_ter_csr INTO lv_hdr_ter;
2151: END IF;
2152: IF (p_contract_id IS NOT NULL OR
2153: p_contract_id <> okl_api.g_miss_num) AND
2154: (p_line_id IS NULL OR
2155: p_line_id = okl_api.g_miss_num) THEN
2156: OPEN l_hdr_ter_csr(p_chr_id => p_contract_id);
2157: FETCH l_hdr_ter_csr INTO lv_hdr_ter;
2158: CLOSE l_hdr_ter_csr;
2159: IF lv_hdr_ter = 'Y' THEN
2172: p_contract_id => p_contract_id,
2173: p_line_id => NULL,
2174: p_additional_parameters => l_additional_parameters,
2175: x_value => x_value);
2176: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2177: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2178: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2179: RAISE OKL_API.G_EXCEPTION_ERROR;
2180: END IF;
2173: p_line_id => NULL,
2174: p_additional_parameters => l_additional_parameters,
2175: x_value => x_value);
2176: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2177: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2178: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2179: RAISE OKL_API.G_EXCEPTION_ERROR;
2180: END IF;
2181: -- We need to set the global formula addtional parameter to Y and reset the
2174: p_additional_parameters => l_additional_parameters,
2175: x_value => x_value);
2176: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2177: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2178: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2179: RAISE OKL_API.G_EXCEPTION_ERROR;
2180: END IF;
2181: -- We need to set the global formula addtional parameter to Y and reset the
2182: -- same to N after using the formula since we need to consider TERMINATED lines
2175: x_value => x_value);
2176: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2177: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2178: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2179: RAISE OKL_API.G_EXCEPTION_ERROR;
2180: END IF;
2181: -- We need to set the global formula addtional parameter to Y and reset the
2182: -- same to N after using the formula since we need to consider TERMINATED lines
2183: l_additional_parameters.delete;
2191: p_formula_name => p_formula_name,
2192: p_contract_id => p_contract_id,
2193: p_line_id => NULL,
2194: x_value => x_value);
2195: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2196: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2197: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2198: RAISE OKL_API.G_EXCEPTION_ERROR;
2199: END IF;
2192: p_contract_id => p_contract_id,
2193: p_line_id => NULL,
2194: x_value => x_value);
2195: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2196: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2197: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2198: RAISE OKL_API.G_EXCEPTION_ERROR;
2199: END IF;
2200: END IF;
2193: p_line_id => NULL,
2194: x_value => x_value);
2195: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2196: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2197: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2198: RAISE OKL_API.G_EXCEPTION_ERROR;
2199: END IF;
2200: END IF;
2201: ELSIF (p_contract_id IS NOT NULL OR
2194: x_value => x_value);
2195: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2196: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2197: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2198: RAISE OKL_API.G_EXCEPTION_ERROR;
2199: END IF;
2200: END IF;
2201: ELSIF (p_contract_id IS NOT NULL OR
2202: p_contract_id <> okl_api.g_miss_num) AND
2198: RAISE OKL_API.G_EXCEPTION_ERROR;
2199: END IF;
2200: END IF;
2201: ELSIF (p_contract_id IS NOT NULL OR
2202: p_contract_id <> okl_api.g_miss_num) AND
2203: (p_line_id IS NOT NULL OR
2204: p_line_id <> okl_api.g_miss_num) THEN
2205: OPEN l_lne_ter_csr(p_chr_id => p_contract_id,
2206: p_cle_id => p_line_id);
2200: END IF;
2201: ELSIF (p_contract_id IS NOT NULL OR
2202: p_contract_id <> okl_api.g_miss_num) AND
2203: (p_line_id IS NOT NULL OR
2204: p_line_id <> okl_api.g_miss_num) THEN
2205: OPEN l_lne_ter_csr(p_chr_id => p_contract_id,
2206: p_cle_id => p_line_id);
2207: FETCH l_lne_ter_csr INTO lv_lne_ter;
2208: CLOSE l_lne_ter_csr;
2222: p_contract_id => p_contract_id,
2223: p_line_id => p_line_id,
2224: p_additional_parameters => l_additional_parameters,
2225: x_value => x_value);
2226: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2227: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2228: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2229: RAISE OKL_API.G_EXCEPTION_ERROR;
2230: END IF;
2223: p_line_id => p_line_id,
2224: p_additional_parameters => l_additional_parameters,
2225: x_value => x_value);
2226: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2227: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2228: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2229: RAISE OKL_API.G_EXCEPTION_ERROR;
2230: END IF;
2231: -- We need to set the global formula addtional parameter to Y and reset the
2224: p_additional_parameters => l_additional_parameters,
2225: x_value => x_value);
2226: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2227: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2228: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2229: RAISE OKL_API.G_EXCEPTION_ERROR;
2230: END IF;
2231: -- We need to set the global formula addtional parameter to Y and reset the
2232: -- same to N after using the formula since we need to consider TERMINATED lines
2225: x_value => x_value);
2226: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2227: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2228: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2229: RAISE OKL_API.G_EXCEPTION_ERROR;
2230: END IF;
2231: -- We need to set the global formula addtional parameter to Y and reset the
2232: -- same to N after using the formula since we need to consider TERMINATED lines
2233: l_additional_parameters.delete;
2241: p_formula_name => p_formula_name,
2242: p_contract_id => p_contract_id,
2243: p_line_id => p_line_id,
2244: x_value => x_value);
2245: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2246: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2247: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2248: RAISE OKL_API.G_EXCEPTION_ERROR;
2249: END IF;
2242: p_contract_id => p_contract_id,
2243: p_line_id => p_line_id,
2244: x_value => x_value);
2245: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2246: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2247: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2248: RAISE OKL_API.G_EXCEPTION_ERROR;
2249: END IF;
2250: END IF;
2243: p_line_id => p_line_id,
2244: x_value => x_value);
2245: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2246: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2247: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2248: RAISE OKL_API.G_EXCEPTION_ERROR;
2249: END IF;
2250: END IF;
2251: ELSE
2244: x_value => x_value);
2245: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2246: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2247: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2248: RAISE OKL_API.G_EXCEPTION_ERROR;
2249: END IF;
2250: END IF;
2251: ELSE
2252: okl_api.set_message(p_app_name => G_APP_NAME,
2248: RAISE OKL_API.G_EXCEPTION_ERROR;
2249: END IF;
2250: END IF;
2251: ELSE
2252: okl_api.set_message(p_app_name => G_APP_NAME,
2253: p_msg_name => G_REQUIRED_VALUE,
2254: p_token1 => G_COL_NAME_TOKEN,
2255: p_token1_value => 'Stub days, Periods');
2256: x_return_status := okl_api.g_ret_sts_error;
2252: okl_api.set_message(p_app_name => G_APP_NAME,
2253: p_msg_name => G_REQUIRED_VALUE,
2254: p_token1 => G_COL_NAME_TOKEN,
2255: p_token1_value => 'Stub days, Periods');
2256: x_return_status := okl_api.g_ret_sts_error;
2257: RAISE OKL_API.G_EXCEPTION_ERROR;
2258: END IF;
2259: OKL_API.END_ACTIVITY (x_msg_count,
2260: x_msg_data );
2253: p_msg_name => G_REQUIRED_VALUE,
2254: p_token1 => G_COL_NAME_TOKEN,
2255: p_token1_value => 'Stub days, Periods');
2256: x_return_status := okl_api.g_ret_sts_error;
2257: RAISE OKL_API.G_EXCEPTION_ERROR;
2258: END IF;
2259: OKL_API.END_ACTIVITY (x_msg_count,
2260: x_msg_data );
2261: EXCEPTION
2255: p_token1_value => 'Stub days, Periods');
2256: x_return_status := okl_api.g_ret_sts_error;
2257: RAISE OKL_API.G_EXCEPTION_ERROR;
2258: END IF;
2259: OKL_API.END_ACTIVITY (x_msg_count,
2260: x_msg_data );
2261: EXCEPTION
2262: WHEN OKL_API.G_EXCEPTION_ERROR then
2263: IF l_hdr_ter_csr%ISOPEN THEN
2258: END IF;
2259: OKL_API.END_ACTIVITY (x_msg_count,
2260: x_msg_data );
2261: EXCEPTION
2262: WHEN OKL_API.G_EXCEPTION_ERROR then
2263: IF l_hdr_ter_csr%ISOPEN THEN
2264: CLOSE l_hdr_ter_csr;
2265: END IF;
2266: IF l_lne_ter_csr%ISOPEN THEN
2265: END IF;
2266: IF l_lne_ter_csr%ISOPEN THEN
2267: CLOSE l_lne_ter_csr;
2268: END IF;
2269: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
2270: l_api_name,
2271: G_PKG_NAME,
2272: 'OKL_API.G_RET_STS_ERROR',
2273: x_msg_count,
2268: END IF;
2269: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
2270: l_api_name,
2271: G_PKG_NAME,
2272: 'OKL_API.G_RET_STS_ERROR',
2273: x_msg_count,
2274: x_msg_data,
2275: '_PVT');
2276: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
2272: 'OKL_API.G_RET_STS_ERROR',
2273: x_msg_count,
2274: x_msg_data,
2275: '_PVT');
2276: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
2277: IF l_hdr_ter_csr%ISOPEN THEN
2278: CLOSE l_hdr_ter_csr;
2279: END IF;
2280: IF l_lne_ter_csr%ISOPEN THEN
2279: END IF;
2280: IF l_lne_ter_csr%ISOPEN THEN
2281: CLOSE l_lne_ter_csr;
2282: END IF;
2283: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
2284: l_api_name,
2285: G_PKG_NAME,
2286: 'OKL_API.G_RET_STS_UNEXP_ERROR',
2287: x_msg_count,
2282: END IF;
2283: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
2284: l_api_name,
2285: G_PKG_NAME,
2286: 'OKL_API.G_RET_STS_UNEXP_ERROR',
2287: x_msg_count,
2288: x_msg_data,
2289: '_PVT');
2290: WHEN OTHERS then
2293: END IF;
2294: IF l_lne_ter_csr%ISOPEN THEN
2295: CLOSE l_lne_ter_csr;
2296: END IF;
2297: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
2298: l_api_name,
2299: G_PKG_NAME,
2300: 'OTHERS',
2301: x_msg_count,
2325: m NUMBER := 0;
2326: n NUMBER := 0;
2327: ld_start_date OKC_K_HEADERS_B.START_DATE%TYPE;
2328: g_process_error EXCEPTION;
2329: x_return_status VARCHAR2(3) := OKL_API.G_RET_STS_SUCCESS;
2330: -- Cursor to get the Start of the contract
2331: -- To compare the date Start of the table of Records
2332: CURSOR c_start_date_khr_csr(p_khr_id OKC_K_HEADERS_B.ID%TYPE)
2333: IS
2345: AND cle.lse_id = lse.id
2346: AND lse.lty_code = 'FEE';
2347: BEGIN
2348: IF p_khr_id IS NOT NULL OR
2349: p_khr_id <> OKL_API.G_MISS_NUM THEN
2350: -- Cursor to get the Start of the contract
2351: -- To compare the date Start of the table of Records
2352: OPEN c_start_date_khr_csr(p_khr_id => p_khr_id);
2353: FETCH c_start_date_khr_csr INTO ld_start_date;
2364: FOR i IN l_csm_perd_exp_tbl.FIRST..l_csm_perd_exp_tbl.LAST LOOP
2365: IF l_csm_perd_exp_tbl(i).kle_fee_id = r_fee_line_csr.id AND
2366: l_csm_perd_exp_tbl(i).level_index_number = 1 AND
2367: (ld_start_date IS NOT NULL OR
2368: ld_start_date <> OKL_API.G_MISS_DATE) AND
2369: l_csm_perd_exp_tbl(i).date_start <> ld_start_date THEN
2370: m_csm_perd_exp_tbl(i) := l_csm_perd_exp_tbl(i);
2371: END IF;
2372: END LOOP;
2412: FOR i IN l_csm_perd_exp_tbl.FIRST..l_csm_perd_exp_tbl.LAST LOOP
2413: IF l_csm_perd_exp_tbl(i).kle_fee_id = r_fee_line_csr.id AND
2414: l_csm_perd_exp_tbl(i).level_index_number = n AND
2415: (ld_start_date IS NOT NULL OR
2416: ld_start_date <> OKL_API.G_MISS_DATE) AND
2417: l_csm_perd_exp_tbl(i).date_start <> ld_start_date THEN
2418: n := n + 1;
2419: l_csm_perd_exp_tbl(i).level_index_number := n;
2420: END IF;
2434: END IF;
2435: IF c_fee_line_csr%ISOPEN THEN
2436: CLOSE c_fee_line_csr;
2437: END IF;
2438: x_return_status := OKL_API.G_RET_STS_ERROR;
2439: RETURN x_return_status;
2440: WHEN OTHERS THEN
2441: IF c_start_date_khr_csr%ISOPEN THEN
2442: CLOSE c_start_date_khr_csr;
2443: END IF;
2444: IF c_fee_line_csr%ISOPEN THEN
2445: CLOSE c_fee_line_csr;
2446: END IF;
2447: x_return_status := OKL_API.G_RET_STS_ERROR;
2448: RETURN x_return_status;
2449: END append_perd_exp_tbl;
2450: -- End modification 11i9 bakuchib
2451: PROCEDURE delete_working_streams(
2449: END append_perd_exp_tbl;
2450: -- End modification 11i9 bakuchib
2451: PROCEDURE delete_working_streams(
2452: p_api_version IN NUMBER,
2453: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
2454: x_return_status OUT NOCOPY VARCHAR2,
2455: x_msg_count OUT NOCOPY NUMBER,
2456: x_msg_data OUT NOCOPY VARCHAR2,
2457: p_chr_id IN NUMBER) AS
2455: x_msg_count OUT NOCOPY NUMBER,
2456: x_msg_data OUT NOCOPY VARCHAR2,
2457: p_chr_id IN NUMBER) AS
2458: l_api_name CONSTANT VARCHAR2(30) := 'DELETE_WKG_STRMS';
2459: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2460: l_api_version NUMBER := 1.0;
2461:
2462: l_stmv_tbl okl_streams_pub.stmv_tbl_type;
2463: x_stmv_tbl okl_streams_pub.stmv_tbl_type;
2468:
2469: Begin
2470:
2471: print( l_api_name, 'begin');
2472: l_return_status := OKL_API.START_ACTIVITY(
2473: p_api_name => l_api_name,
2474: p_pkg_name => g_pkg_name,
2475: p_init_msg_list => p_init_msg_list,
2476: l_api_version => l_api_version,
2478: p_api_type => G_API_TYPE,
2479: x_return_status => x_return_status);
2480:
2481: -- check if activity started successfully
2482: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
2483: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2484: ElSIF (l_return_status = OKL_API.G_RET_STS_ERROR) then
2485: raise OKL_API.G_EXCEPTION_ERROR;
2486: End If;
2479: x_return_status => x_return_status);
2480:
2481: -- check if activity started successfully
2482: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
2483: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2484: ElSIF (l_return_status = OKL_API.G_RET_STS_ERROR) then
2485: raise OKL_API.G_EXCEPTION_ERROR;
2486: End If;
2487:
2480:
2481: -- check if activity started successfully
2482: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
2483: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2484: ElSIF (l_return_status = OKL_API.G_RET_STS_ERROR) then
2485: raise OKL_API.G_EXCEPTION_ERROR;
2486: End If;
2487:
2488: i := 0;
2481: -- check if activity started successfully
2482: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
2483: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2484: ElSIF (l_return_status = OKL_API.G_RET_STS_ERROR) then
2485: raise OKL_API.G_EXCEPTION_ERROR;
2486: End If;
2487:
2488: i := 0;
2489: FOR l_strms_orig_rec in strms_csr ( p_chr_id, 'WORK', 'ORIGIN')
2520: x_msg_count => x_msg_count,
2521: x_msg_data => x_msg_data,
2522: p_stmv_tbl => l_stmv_tbl);
2523:
2524: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2525: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2526: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2527: RAISE OKL_API.G_EXCEPTION_ERROR;
2528: END IF;
2521: x_msg_data => x_msg_data,
2522: p_stmv_tbl => l_stmv_tbl);
2523:
2524: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2525: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2526: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2527: RAISE OKL_API.G_EXCEPTION_ERROR;
2528: END IF;
2529:
2522: p_stmv_tbl => l_stmv_tbl);
2523:
2524: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2525: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2526: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2527: RAISE OKL_API.G_EXCEPTION_ERROR;
2528: END IF;
2529:
2530: End If;
2523:
2524: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2525: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2526: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2527: RAISE OKL_API.G_EXCEPTION_ERROR;
2528: END IF;
2529:
2530: End If;
2531:
2530: End If;
2531:
2532: print( l_api_name, 'end');
2533: EXCEPTION
2534: when OKL_API.G_EXCEPTION_ERROR then
2535: l_return_status := OKL_API.HANDLE_EXCEPTIONS(
2536: p_api_name => l_api_name,
2537: p_pkg_name => g_pkg_name,
2538: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
2531:
2532: print( l_api_name, 'end');
2533: EXCEPTION
2534: when OKL_API.G_EXCEPTION_ERROR then
2535: l_return_status := OKL_API.HANDLE_EXCEPTIONS(
2536: p_api_name => l_api_name,
2537: p_pkg_name => g_pkg_name,
2538: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
2539: x_msg_count => x_msg_count,
2534: when OKL_API.G_EXCEPTION_ERROR then
2535: l_return_status := OKL_API.HANDLE_EXCEPTIONS(
2536: p_api_name => l_api_name,
2537: p_pkg_name => g_pkg_name,
2538: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
2539: x_msg_count => x_msg_count,
2540: x_msg_data => x_msg_data,
2541: p_api_type => g_api_type);
2542: x_return_status := l_return_status;
2540: x_msg_data => x_msg_data,
2541: p_api_type => g_api_type);
2542: x_return_status := l_return_status;
2543:
2544: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
2545: l_return_status := OKL_API.HANDLE_EXCEPTIONS(
2546: p_api_name => l_api_name,
2547: p_pkg_name => g_pkg_name,
2548: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
2541: p_api_type => g_api_type);
2542: x_return_status := l_return_status;
2543:
2544: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
2545: l_return_status := OKL_API.HANDLE_EXCEPTIONS(
2546: p_api_name => l_api_name,
2547: p_pkg_name => g_pkg_name,
2548: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
2549: x_msg_count => x_msg_count,
2544: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
2545: l_return_status := OKL_API.HANDLE_EXCEPTIONS(
2546: p_api_name => l_api_name,
2547: p_pkg_name => g_pkg_name,
2548: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
2549: x_msg_count => x_msg_count,
2550: x_msg_data => x_msg_data,
2551: p_api_type => g_api_type);
2552: x_return_status := l_return_status;
2551: p_api_type => g_api_type);
2552: x_return_status := l_return_status;
2553:
2554: when OTHERS then
2555: l_return_status := OKL_API.HANDLE_EXCEPTIONS(
2556: p_api_name => l_api_name,
2557: p_pkg_name => g_pkg_name,
2558: p_exc_name => 'OTHERS',
2559: x_msg_count => x_msg_count,
2600: AND aes.id = pdt.aes_id
2601: AND tst.id = aes.gts_id;
2602:
2603: BEGIN
2604: x_return_status := OKL_API.G_RET_STS_SUCCESS;
2605:
2606: l_recurrence_day := NULL;
2607: OPEN l_rl_csr2 ( 'LALEVL', 'LASLH', TO_NUMBER(p_chr_id), p_kle_id);
2608: FETCH l_rl_csr2 INTO l_rl_rec2;
2629: l_arrears := 'N';
2630: END IF;
2631:
2632: IF (l_rl_rec.rule_information7 IS NOT NULL OR
2633: l_rl_rec.rule_information7 <> OKL_API.G_MISS_CHAR) AND
2634: (l_rl_rec.rule_information8 IS NOT NULL OR
2635: l_rl_rec.rule_information8 <> OKL_API.G_MISS_CHAR) THEN
2636: l_recurrence_day := NULL;
2637: IF(l_arrears = 'Y') THEN
2631:
2632: IF (l_rl_rec.rule_information7 IS NOT NULL OR
2633: l_rl_rec.rule_information7 <> OKL_API.G_MISS_CHAR) AND
2634: (l_rl_rec.rule_information8 IS NOT NULL OR
2635: l_rl_rec.rule_information8 <> OKL_API.G_MISS_CHAR) THEN
2636: l_recurrence_day := NULL;
2637: IF(l_arrears = 'Y') THEN
2638: IF l_arrears_pay_dates_option = 'FIRST_DAY_OF_NEXT_PERIOD' THEN
2639: l_payment_date := TRUNC(FND_DATE.canonical_to_date(l_rl_rec.rule_information2)+TO_NUMBER(l_rl_rec.rule_information7));
2685:
2686: x_bill_amount := l_bill_amount;
2687:
2688: EXCEPTION
2689: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2690: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
2691: p_api_name => l_api_name,
2692: p_pkg_name => g_pkg_name,
2693: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
2686: x_bill_amount := l_bill_amount;
2687:
2688: EXCEPTION
2689: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2690: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
2691: p_api_name => l_api_name,
2692: p_pkg_name => g_pkg_name,
2693: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
2694: x_msg_count => x_msg_count,
2689: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2690: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
2691: p_api_name => l_api_name,
2692: p_pkg_name => g_pkg_name,
2693: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
2694: x_msg_count => x_msg_count,
2695: x_msg_data => x_msg_data,
2696: p_api_type => g_api_type);
2697:
2694: x_msg_count => x_msg_count,
2695: x_msg_data => x_msg_data,
2696: p_api_type => g_api_type);
2697:
2698: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2699: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
2700: p_api_name => l_api_name,
2701: p_pkg_name => g_pkg_name,
2702: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
2695: x_msg_data => x_msg_data,
2696: p_api_type => g_api_type);
2697:
2698: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2699: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
2700: p_api_name => l_api_name,
2701: p_pkg_name => g_pkg_name,
2702: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
2703: x_msg_count => x_msg_count,
2698: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2699: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
2700: p_api_name => l_api_name,
2701: p_pkg_name => g_pkg_name,
2702: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
2703: x_msg_count => x_msg_count,
2704: x_msg_data => x_msg_data,
2705: p_api_type => g_api_type);
2706:
2704: x_msg_data => x_msg_data,
2705: p_api_type => g_api_type);
2706:
2707: WHEN OTHERS THEN
2708: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
2709: p_api_name => l_api_name,
2710: p_pkg_name => g_pkg_name,
2711: p_exc_name => 'OTHERS',
2712: x_msg_count => x_msg_count,
2737: l_next_lowest_date DATE;
2738: l_rec_exists BOOLEAN := FALSE;
2739:
2740: BEGIN
2741: x_return_status := OKL_API.G_RET_STS_SUCCESS;
2742:
2743: l_tmp_selv_tbl := p_selv_tbl;
2744:
2745: -- Start sorting and consolidation
2780: END IF;
2781: -- End sorting and consolidation
2782:
2783: EXCEPTION
2784: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2785: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
2786: p_api_name => l_api_name,
2787: p_pkg_name => g_pkg_name,
2788: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
2781: -- End sorting and consolidation
2782:
2783: EXCEPTION
2784: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2785: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
2786: p_api_name => l_api_name,
2787: p_pkg_name => g_pkg_name,
2788: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
2789: x_msg_count => x_msg_count,
2784: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2785: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
2786: p_api_name => l_api_name,
2787: p_pkg_name => g_pkg_name,
2788: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
2789: x_msg_count => x_msg_count,
2790: x_msg_data => x_msg_data,
2791: p_api_type => g_api_type);
2792:
2789: x_msg_count => x_msg_count,
2790: x_msg_data => x_msg_data,
2791: p_api_type => g_api_type);
2792:
2793: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2794: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
2795: p_api_name => l_api_name,
2796: p_pkg_name => g_pkg_name,
2797: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
2790: x_msg_data => x_msg_data,
2791: p_api_type => g_api_type);
2792:
2793: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2794: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
2795: p_api_name => l_api_name,
2796: p_pkg_name => g_pkg_name,
2797: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
2798: x_msg_count => x_msg_count,
2793: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2794: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
2795: p_api_name => l_api_name,
2796: p_pkg_name => g_pkg_name,
2797: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
2798: x_msg_count => x_msg_count,
2799: x_msg_data => x_msg_data,
2800: p_api_type => g_api_type);
2801:
2799: x_msg_data => x_msg_data,
2800: p_api_type => g_api_type);
2801:
2802: WHEN OTHERS THEN
2803: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
2804: p_api_name => l_api_name,
2805: p_pkg_name => g_pkg_name,
2806: p_exc_name => 'OTHERS',
2807: x_msg_count => x_msg_count,
2847: WHERE ID = p_chr_id;
2848:
2849: BEGIN
2850:
2851: x_return_status := OKL_API.G_RET_STS_SUCCESS;
2852:
2853: --Get the day convention
2854: OKL_PRICING_UTILS_PVT.get_day_convention(
2855: p_id => p_chr_id,
2856: p_source => 'ISG',
2857: x_days_in_month => l_day_convention_month,
2858: x_days_in_year => l_day_convention_year,
2859: x_return_status => x_return_status);
2860: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
2861: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2862: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
2863: RAISE OKL_API.G_EXCEPTION_ERROR;
2864: END IF;
2857: x_days_in_month => l_day_convention_month,
2858: x_days_in_year => l_day_convention_year,
2859: x_return_status => x_return_status);
2860: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
2861: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2862: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
2863: RAISE OKL_API.G_EXCEPTION_ERROR;
2864: END IF;
2865:
2858: x_days_in_year => l_day_convention_year,
2859: x_return_status => x_return_status);
2860: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
2861: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2862: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
2863: RAISE OKL_API.G_EXCEPTION_ERROR;
2864: END IF;
2865:
2866: OPEN get_currency_code;
2859: x_return_status => x_return_status);
2860: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
2861: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2862: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
2863: RAISE OKL_API.G_EXCEPTION_ERROR;
2864: END IF;
2865:
2866: OPEN get_currency_code;
2867: FETCH get_currency_code INTO l_currency_code;
2867: FETCH get_currency_code INTO l_currency_code;
2868: CLOSE get_currency_code;
2869:
2870: okl_accounting_util.round_amount(p_api_version => 1.0,
2871: p_init_msg_list => OKL_API.G_FALSE,
2872: x_return_status => x_return_status,
2873: x_msg_count => x_msg_count,
2874: x_msg_data => x_msg_data,
2875: p_amount => p_disb_amount,
2875: p_amount => p_disb_amount,
2876: p_currency_code => l_currency_code,
2877: p_round_option => 'STM',
2878: x_rounded_amount => l_disb_amt_bal);
2879: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
2880: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2881: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
2882: RAISE OKL_API.G_EXCEPTION_ERROR;
2883: END IF;
2876: p_currency_code => l_currency_code,
2877: p_round_option => 'STM',
2878: x_rounded_amount => l_disb_amt_bal);
2879: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
2880: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2881: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
2882: RAISE OKL_API.G_EXCEPTION_ERROR;
2883: END IF;
2884:
2877: p_round_option => 'STM',
2878: x_rounded_amount => l_disb_amt_bal);
2879: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
2880: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2881: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
2882: RAISE OKL_API.G_EXCEPTION_ERROR;
2883: END IF;
2884:
2885: l_start_date := p_start_date;
2878: x_rounded_amount => l_disb_amt_bal);
2879: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
2880: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2881: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
2882: RAISE OKL_API.G_EXCEPTION_ERROR;
2883: END IF;
2884:
2885: l_start_date := p_start_date;
2886: l_end_date := p_end_date;
2892: p_days_in_year => l_day_convention_year,
2893: p_end_date => l_end_date,
2894: p_arrears => 'Y',
2895: x_return_status => x_return_status);
2896: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
2897: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2898: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
2899: RAISE OKL_API.G_EXCEPTION_ERROR;
2900: END IF;
2893: p_end_date => l_end_date,
2894: p_arrears => 'Y',
2895: x_return_status => x_return_status);
2896: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
2897: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2898: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
2899: RAISE OKL_API.G_EXCEPTION_ERROR;
2900: END IF;
2901:
2894: p_arrears => 'Y',
2895: x_return_status => x_return_status);
2896: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
2897: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2898: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
2899: RAISE OKL_API.G_EXCEPTION_ERROR;
2900: END IF;
2901:
2902: l_daily_amt := p_disb_amount / l_total_days;
2895: x_return_status => x_return_status);
2896: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
2897: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2898: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
2899: RAISE OKL_API.G_EXCEPTION_ERROR;
2900: END IF;
2901:
2902: l_daily_amt := p_disb_amount / l_total_days;
2903:
2912: x_selv_tbl(i).se_line_number := i;
2913:
2914: IF l_month_end >= l_end_date THEN
2915: okl_accounting_util.round_amount(p_api_version => 1.0,
2916: p_init_msg_list => OKL_API.G_FALSE,
2917: x_return_status => x_return_status,
2918: x_msg_count => x_msg_count,
2919: x_msg_data => x_msg_data,
2920: p_amount => l_disb_amt_bal,
2920: p_amount => l_disb_amt_bal,
2921: p_currency_code => l_currency_code,
2922: p_round_option => 'STM',
2923: x_rounded_amount => l_rounded_amount);
2924: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
2925: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2926: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
2927: RAISE OKL_API.G_EXCEPTION_ERROR;
2928: END IF;
2921: p_currency_code => l_currency_code,
2922: p_round_option => 'STM',
2923: x_rounded_amount => l_rounded_amount);
2924: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
2925: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2926: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
2927: RAISE OKL_API.G_EXCEPTION_ERROR;
2928: END IF;
2929:
2922: p_round_option => 'STM',
2923: x_rounded_amount => l_rounded_amount);
2924: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
2925: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2926: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
2927: RAISE OKL_API.G_EXCEPTION_ERROR;
2928: END IF;
2929:
2930: x_selv_tbl(i).amount := l_rounded_amount;
2923: x_rounded_amount => l_rounded_amount);
2924: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
2925: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2926: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
2927: RAISE OKL_API.G_EXCEPTION_ERROR;
2928: END IF;
2929:
2930: x_selv_tbl(i).amount := l_rounded_amount;
2931: EXIT;
2936: p_days_in_year => l_day_convention_year,
2937: p_end_date => l_month_end,
2938: p_arrears => 'Y',
2939: x_return_status => x_return_status);
2940: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
2941: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2942: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
2943: RAISE OKL_API.G_EXCEPTION_ERROR;
2944: END IF;
2937: p_end_date => l_month_end,
2938: p_arrears => 'Y',
2939: x_return_status => x_return_status);
2940: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
2941: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2942: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
2943: RAISE OKL_API.G_EXCEPTION_ERROR;
2944: END IF;
2945:
2938: p_arrears => 'Y',
2939: x_return_status => x_return_status);
2940: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
2941: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2942: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
2943: RAISE OKL_API.G_EXCEPTION_ERROR;
2944: END IF;
2945:
2946: okl_accounting_util.round_amount(p_api_version => 1.0,
2939: x_return_status => x_return_status);
2940: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
2941: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2942: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
2943: RAISE OKL_API.G_EXCEPTION_ERROR;
2944: END IF;
2945:
2946: okl_accounting_util.round_amount(p_api_version => 1.0,
2947: p_init_msg_list => OKL_API.G_FALSE,
2943: RAISE OKL_API.G_EXCEPTION_ERROR;
2944: END IF;
2945:
2946: okl_accounting_util.round_amount(p_api_version => 1.0,
2947: p_init_msg_list => OKL_API.G_FALSE,
2948: x_return_status => x_return_status,
2949: x_msg_count => x_msg_count,
2950: x_msg_data => x_msg_data,
2951: p_amount => l_days * l_daily_amt,
2951: p_amount => l_days * l_daily_amt,
2952: p_currency_code => l_currency_code,
2953: p_round_option => 'STM',
2954: x_rounded_amount => l_rounded_amount);
2955: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
2956: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2957: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
2958: RAISE OKL_API.G_EXCEPTION_ERROR;
2959: END IF;
2952: p_currency_code => l_currency_code,
2953: p_round_option => 'STM',
2954: x_rounded_amount => l_rounded_amount);
2955: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
2956: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2957: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
2958: RAISE OKL_API.G_EXCEPTION_ERROR;
2959: END IF;
2960:
2953: p_round_option => 'STM',
2954: x_rounded_amount => l_rounded_amount);
2955: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
2956: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2957: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
2958: RAISE OKL_API.G_EXCEPTION_ERROR;
2959: END IF;
2960:
2961: x_selv_tbl(i).amount := l_rounded_amount;
2954: x_rounded_amount => l_rounded_amount);
2955: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
2956: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2957: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
2958: RAISE OKL_API.G_EXCEPTION_ERROR;
2959: END IF;
2960:
2961: x_selv_tbl(i).amount := l_rounded_amount;
2962: END IF;
2967:
2968: END LOOP;
2969:
2970: EXCEPTION
2971: when OKL_API.G_EXCEPTION_ERROR then
2972: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
2973: p_api_name => l_api_name,
2974: p_pkg_name => g_pkg_name,
2975: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
2968: END LOOP;
2969:
2970: EXCEPTION
2971: when OKL_API.G_EXCEPTION_ERROR then
2972: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
2973: p_api_name => l_api_name,
2974: p_pkg_name => g_pkg_name,
2975: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
2976: x_msg_count => x_msg_count,
2971: when OKL_API.G_EXCEPTION_ERROR then
2972: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
2973: p_api_name => l_api_name,
2974: p_pkg_name => g_pkg_name,
2975: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
2976: x_msg_count => x_msg_count,
2977: x_msg_data => x_msg_data,
2978: p_api_type => g_api_type);
2979:
2976: x_msg_count => x_msg_count,
2977: x_msg_data => x_msg_data,
2978: p_api_type => g_api_type);
2979:
2980: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
2981: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
2982: p_api_name => l_api_name,
2983: p_pkg_name => g_pkg_name,
2984: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
2977: x_msg_data => x_msg_data,
2978: p_api_type => g_api_type);
2979:
2980: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
2981: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
2982: p_api_name => l_api_name,
2983: p_pkg_name => g_pkg_name,
2984: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
2985: x_msg_count => x_msg_count,
2980: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
2981: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
2982: p_api_name => l_api_name,
2983: p_pkg_name => g_pkg_name,
2984: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
2985: x_msg_count => x_msg_count,
2986: x_msg_data => x_msg_data,
2987: p_api_type => g_api_type);
2988:
2986: x_msg_data => x_msg_data,
2987: p_api_type => g_api_type);
2988:
2989: when OTHERS then
2990: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
2991: p_api_name => l_api_name,
2992: p_pkg_name => g_pkg_name,
2993: p_exc_name => 'OTHERS',
2994: x_msg_count => x_msg_count,
3005: ---------------------------------------------------------------------------------------------
3006: -- 10-Aug-09 sechawla 8677460 PRB ESG Enhancements : Support PRB for Pass Through accrual streams
3007: PROCEDURE adjust_passthrough_streams(
3008: p_api_version IN NUMBER,
3009: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
3010: x_return_status OUT NOCOPY VARCHAR2,
3011: x_msg_count OUT NOCOPY NUMBER,
3012: x_msg_data OUT NOCOPY VARCHAR2,
3013: p_chr_id IN VARCHAR2,
3254: l_prev_pay_start_date DATE;
3255: --end rgooty
3256:
3257: BEGIN
3258: x_return_status := OKL_API.G_RET_STS_SUCCESS;
3259: -- Call start_activity to create savepoint, check compatibility
3260: -- and initialize message list
3261: x_return_status := OKL_API.START_ACTIVITY (
3262: l_api_name
3257: BEGIN
3258: x_return_status := OKL_API.G_RET_STS_SUCCESS;
3259: -- Call start_activity to create savepoint, check compatibility
3260: -- and initialize message list
3261: x_return_status := OKL_API.START_ACTIVITY (
3262: l_api_name
3263: ,p_init_msg_list
3264: ,'_PVT'
3265: ,x_return_status);
3263: ,p_init_msg_list
3264: ,'_PVT'
3265: ,x_return_status);
3266: -- Check if activity started successfully
3267: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3268: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3269: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3270: RAISE OKL_API.G_EXCEPTION_ERROR;
3271: END IF;
3264: ,'_PVT'
3265: ,x_return_status);
3266: -- Check if activity started successfully
3267: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3268: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3269: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3270: RAISE OKL_API.G_EXCEPTION_ERROR;
3271: END IF;
3272: OPEN l_stmp_yn_csr( TO_NUMBER(p_chr_id), p_purpose);
3265: ,x_return_status);
3266: -- Check if activity started successfully
3267: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3268: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3269: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3270: RAISE OKL_API.G_EXCEPTION_ERROR;
3271: END IF;
3272: OPEN l_stmp_yn_csr( TO_NUMBER(p_chr_id), p_purpose);
3273: FETCH l_stmp_yn_csr INTO l_stmp_yn_rec;
3266: -- Check if activity started successfully
3267: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3268: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3269: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3270: RAISE OKL_API.G_EXCEPTION_ERROR;
3271: END IF;
3272: OPEN l_stmp_yn_csr( TO_NUMBER(p_chr_id), p_purpose);
3273: FETCH l_stmp_yn_csr INTO l_stmp_yn_rec;
3274: CLOSE l_stmp_yn_csr;
3296: p_init_msg_list => p_init_msg_list,
3297: x_msg_count => x_msg_count,
3298: x_msg_data => x_msg_data,
3299: p_stmv_tbl => l_stmv_tbl);
3300: IF x_return_status = okl_api.g_ret_sts_unexp_error THEN
3301: EXIT WHEN (x_return_status = okl_api.g_ret_sts_unexp_error);
3302: ELSIF x_return_status = okl_api.g_ret_sts_error THEN
3303: EXIT WHEN (x_return_status = okl_api.g_ret_sts_error);
3304: END IF;
3297: x_msg_count => x_msg_count,
3298: x_msg_data => x_msg_data,
3299: p_stmv_tbl => l_stmv_tbl);
3300: IF x_return_status = okl_api.g_ret_sts_unexp_error THEN
3301: EXIT WHEN (x_return_status = okl_api.g_ret_sts_unexp_error);
3302: ELSIF x_return_status = okl_api.g_ret_sts_error THEN
3303: EXIT WHEN (x_return_status = okl_api.g_ret_sts_error);
3304: END IF;
3305: END IF;
3298: x_msg_data => x_msg_data,
3299: p_stmv_tbl => l_stmv_tbl);
3300: IF x_return_status = okl_api.g_ret_sts_unexp_error THEN
3301: EXIT WHEN (x_return_status = okl_api.g_ret_sts_unexp_error);
3302: ELSIF x_return_status = okl_api.g_ret_sts_error THEN
3303: EXIT WHEN (x_return_status = okl_api.g_ret_sts_error);
3304: END IF;
3305: END IF;
3306: */
3299: p_stmv_tbl => l_stmv_tbl);
3300: IF x_return_status = okl_api.g_ret_sts_unexp_error THEN
3301: EXIT WHEN (x_return_status = okl_api.g_ret_sts_unexp_error);
3302: ELSIF x_return_status = okl_api.g_ret_sts_error THEN
3303: EXIT WHEN (x_return_status = okl_api.g_ret_sts_error);
3304: END IF;
3305: END IF;
3306: */
3307:
3347: x_msg_count => x_msg_count,
3348: x_msg_data => x_msg_data,
3349: p_recurrence_date => l_recurrence_date);
3350: -- gboomina Bug 4746368 - End
3351: IF x_return_status = okl_api.g_ret_sts_unexp_error THEN
3352: EXIT WHEN (x_return_status = okl_api.g_ret_sts_unexp_error);
3353: ELSIF x_return_status = okl_api.g_ret_sts_error THEN
3354: EXIT WHEN (x_return_status = okl_api.g_ret_sts_error);
3355: END IF;
3348: x_msg_data => x_msg_data,
3349: p_recurrence_date => l_recurrence_date);
3350: -- gboomina Bug 4746368 - End
3351: IF x_return_status = okl_api.g_ret_sts_unexp_error THEN
3352: EXIT WHEN (x_return_status = okl_api.g_ret_sts_unexp_error);
3353: ELSIF x_return_status = okl_api.g_ret_sts_error THEN
3354: EXIT WHEN (x_return_status = okl_api.g_ret_sts_error);
3355: END IF;
3356:
3349: p_recurrence_date => l_recurrence_date);
3350: -- gboomina Bug 4746368 - End
3351: IF x_return_status = okl_api.g_ret_sts_unexp_error THEN
3352: EXIT WHEN (x_return_status = okl_api.g_ret_sts_unexp_error);
3353: ELSIF x_return_status = okl_api.g_ret_sts_error THEN
3354: EXIT WHEN (x_return_status = okl_api.g_ret_sts_error);
3355: END IF;
3356:
3357:
3350: -- gboomina Bug 4746368 - End
3351: IF x_return_status = okl_api.g_ret_sts_unexp_error THEN
3352: EXIT WHEN (x_return_status = okl_api.g_ret_sts_unexp_error);
3353: ELSIF x_return_status = okl_api.g_ret_sts_error THEN
3354: EXIT WHEN (x_return_status = okl_api.g_ret_sts_error);
3355: END IF;
3356:
3357:
3358:
3368: p_sty_id => l_inflow.sty_id,
3369: p_purpose_code => l_purpose_code,
3370: x_stmv_rec => l_stmv_rec,
3371: x_return_status => x_return_status);
3372: IF x_return_status = okl_api.g_ret_sts_unexp_error THEN
3373: EXIT WHEN (x_return_status = okl_api.g_ret_sts_unexp_error);
3374: ELSIF x_return_status = okl_api.g_ret_sts_error THEN
3375: EXIT WHEN (x_return_status = okl_api.g_ret_sts_error);
3376: END IF;
3369: p_purpose_code => l_purpose_code,
3370: x_stmv_rec => l_stmv_rec,
3371: x_return_status => x_return_status);
3372: IF x_return_status = okl_api.g_ret_sts_unexp_error THEN
3373: EXIT WHEN (x_return_status = okl_api.g_ret_sts_unexp_error);
3374: ELSIF x_return_status = okl_api.g_ret_sts_error THEN
3375: EXIT WHEN (x_return_status = okl_api.g_ret_sts_error);
3376: END IF;
3377: --l_stmv_rec.say_code := 'CURR';
3370: x_stmv_rec => l_stmv_rec,
3371: x_return_status => x_return_status);
3372: IF x_return_status = okl_api.g_ret_sts_unexp_error THEN
3373: EXIT WHEN (x_return_status = okl_api.g_ret_sts_unexp_error);
3374: ELSIF x_return_status = okl_api.g_ret_sts_error THEN
3375: EXIT WHEN (x_return_status = okl_api.g_ret_sts_error);
3376: END IF;
3377: --l_stmv_rec.say_code := 'CURR';
3378: l_stmv_rec.say_code := 'WORK';
3371: x_return_status => x_return_status);
3372: IF x_return_status = okl_api.g_ret_sts_unexp_error THEN
3373: EXIT WHEN (x_return_status = okl_api.g_ret_sts_unexp_error);
3374: ELSIF x_return_status = okl_api.g_ret_sts_error THEN
3375: EXIT WHEN (x_return_status = okl_api.g_ret_sts_error);
3376: END IF;
3377: --l_stmv_rec.say_code := 'CURR';
3378: l_stmv_rec.say_code := 'WORK';
3379: l_stmv_rec.active_yn := 'Y';
3389: p_stmv_rec => l_stmv_rec,
3390: p_selv_tbl => l_selv_tbl,
3391: x_stmv_rec => lx_stmv_rec,
3392: x_selv_tbl => lx_selv_tbl);
3393: IF x_return_status = okl_api.g_ret_sts_unexp_error THEN
3394: EXIT WHEN (x_return_status = okl_api.g_ret_sts_unexp_error);
3395: ELSIF x_return_status = okl_api.g_ret_sts_error THEN
3396: EXIT WHEN (x_return_status = okl_api.g_ret_sts_error);
3397: END IF;
3390: p_selv_tbl => l_selv_tbl,
3391: x_stmv_rec => lx_stmv_rec,
3392: x_selv_tbl => lx_selv_tbl);
3393: IF x_return_status = okl_api.g_ret_sts_unexp_error THEN
3394: EXIT WHEN (x_return_status = okl_api.g_ret_sts_unexp_error);
3395: ELSIF x_return_status = okl_api.g_ret_sts_error THEN
3396: EXIT WHEN (x_return_status = okl_api.g_ret_sts_error);
3397: END IF;
3398: END IF;
3391: x_stmv_rec => lx_stmv_rec,
3392: x_selv_tbl => lx_selv_tbl);
3393: IF x_return_status = okl_api.g_ret_sts_unexp_error THEN
3394: EXIT WHEN (x_return_status = okl_api.g_ret_sts_unexp_error);
3395: ELSIF x_return_status = okl_api.g_ret_sts_error THEN
3396: EXIT WHEN (x_return_status = okl_api.g_ret_sts_error);
3397: END IF;
3398: END IF;
3399: --Bug 5029161 - End of Changes
3392: x_selv_tbl => lx_selv_tbl);
3393: IF x_return_status = okl_api.g_ret_sts_unexp_error THEN
3394: EXIT WHEN (x_return_status = okl_api.g_ret_sts_unexp_error);
3395: ELSIF x_return_status = okl_api.g_ret_sts_error THEN
3396: EXIT WHEN (x_return_status = okl_api.g_ret_sts_error);
3397: END IF;
3398: END IF;
3399: --Bug 5029161 - End of Changes
3400: --srsreeni bug 5869271 start
3419: ,x_msg_count => x_msg_count
3420: ,x_msg_data => x_msg_data
3421: ,p_selv_tbl => l_selv_tbl
3422: ,x_selv_tbl => lx_selv_tbl);
3423: IF x_return_status = okl_api.g_ret_sts_unexp_error THEN
3424: EXIT WHEN (x_return_status = okl_api.g_ret_sts_unexp_error);
3425: ELSIF x_return_status = okl_api.g_ret_sts_error THEN
3426: EXIT WHEN (x_return_status = okl_api.g_ret_sts_error);
3427: END IF;
3420: ,x_msg_data => x_msg_data
3421: ,p_selv_tbl => l_selv_tbl
3422: ,x_selv_tbl => lx_selv_tbl);
3423: IF x_return_status = okl_api.g_ret_sts_unexp_error THEN
3424: EXIT WHEN (x_return_status = okl_api.g_ret_sts_unexp_error);
3425: ELSIF x_return_status = okl_api.g_ret_sts_error THEN
3426: EXIT WHEN (x_return_status = okl_api.g_ret_sts_error);
3427: END IF;
3428: END IF;
3421: ,p_selv_tbl => l_selv_tbl
3422: ,x_selv_tbl => lx_selv_tbl);
3423: IF x_return_status = okl_api.g_ret_sts_unexp_error THEN
3424: EXIT WHEN (x_return_status = okl_api.g_ret_sts_unexp_error);
3425: ELSIF x_return_status = okl_api.g_ret_sts_error THEN
3426: EXIT WHEN (x_return_status = okl_api.g_ret_sts_error);
3427: END IF;
3428: END IF;
3429: END IF;
3422: ,x_selv_tbl => lx_selv_tbl);
3423: IF x_return_status = okl_api.g_ret_sts_unexp_error THEN
3424: EXIT WHEN (x_return_status = okl_api.g_ret_sts_unexp_error);
3425: ELSIF x_return_status = okl_api.g_ret_sts_error THEN
3426: EXIT WHEN (x_return_status = okl_api.g_ret_sts_error);
3427: END IF;
3428: END IF;
3429: END IF;
3430: --srsreeni bug 5869271 end
3444: --srsreeni Bug 5917582 end
3445: p_currency_code => l_hdr.currency_code,
3446: x_selv_tbl => l_selv_tbl,
3447: x_return_status => x_return_status);
3448: IF x_return_status = okl_api.g_ret_sts_unexp_error THEN
3449: EXIT WHEN (x_return_status = okl_api.g_ret_sts_unexp_error);
3450: ELSIF x_return_status = okl_api.g_ret_sts_error THEN
3451: EXIT WHEN (x_return_status = okl_api.g_ret_sts_error);
3452: END IF;
3445: p_currency_code => l_hdr.currency_code,
3446: x_selv_tbl => l_selv_tbl,
3447: x_return_status => x_return_status);
3448: IF x_return_status = okl_api.g_ret_sts_unexp_error THEN
3449: EXIT WHEN (x_return_status = okl_api.g_ret_sts_unexp_error);
3450: ELSIF x_return_status = okl_api.g_ret_sts_error THEN
3451: EXIT WHEN (x_return_status = okl_api.g_ret_sts_error);
3452: END IF;
3453:
3446: x_selv_tbl => l_selv_tbl,
3447: x_return_status => x_return_status);
3448: IF x_return_status = okl_api.g_ret_sts_unexp_error THEN
3449: EXIT WHEN (x_return_status = okl_api.g_ret_sts_unexp_error);
3450: ELSIF x_return_status = okl_api.g_ret_sts_error THEN
3451: EXIT WHEN (x_return_status = okl_api.g_ret_sts_error);
3452: END IF;
3453:
3454: --srsreeni bug 5869271 start add
3447: x_return_status => x_return_status);
3448: IF x_return_status = okl_api.g_ret_sts_unexp_error THEN
3449: EXIT WHEN (x_return_status = okl_api.g_ret_sts_unexp_error);
3450: ELSIF x_return_status = okl_api.g_ret_sts_error THEN
3451: EXIT WHEN (x_return_status = okl_api.g_ret_sts_error);
3452: END IF;
3453:
3454: --srsreeni bug 5869271 start add
3455: 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
3494: p_sty_name => 'PASS THROUGH REVENUE ACCRUAL',
3495: x_sty_id => l_sty_id,
3496: x_sty_name => l_sty_name,
3497: x_return_status => x_return_status);
3498: IF x_return_status = okl_api.g_ret_sts_unexp_error THEN
3499: EXIT WHEN (x_return_status = okl_api.g_ret_sts_unexp_error);
3500: ELSIF x_return_status = okl_api.g_ret_sts_error THEN
3501: EXIT WHEN (x_return_status = okl_api.g_ret_sts_error);
3502: END IF;
3495: x_sty_id => l_sty_id,
3496: x_sty_name => l_sty_name,
3497: x_return_status => x_return_status);
3498: IF x_return_status = okl_api.g_ret_sts_unexp_error THEN
3499: EXIT WHEN (x_return_status = okl_api.g_ret_sts_unexp_error);
3500: ELSIF x_return_status = okl_api.g_ret_sts_error THEN
3501: EXIT WHEN (x_return_status = okl_api.g_ret_sts_error);
3502: END IF;
3503: */
3496: x_sty_name => l_sty_name,
3497: x_return_status => x_return_status);
3498: IF x_return_status = okl_api.g_ret_sts_unexp_error THEN
3499: EXIT WHEN (x_return_status = okl_api.g_ret_sts_unexp_error);
3500: ELSIF x_return_status = okl_api.g_ret_sts_error THEN
3501: EXIT WHEN (x_return_status = okl_api.g_ret_sts_error);
3502: END IF;
3503: */
3504: -- Code commented and added for user defined streams ends here- HKPATEL
3497: x_return_status => x_return_status);
3498: IF x_return_status = okl_api.g_ret_sts_unexp_error THEN
3499: EXIT WHEN (x_return_status = okl_api.g_ret_sts_unexp_error);
3500: ELSIF x_return_status = okl_api.g_ret_sts_error THEN
3501: EXIT WHEN (x_return_status = okl_api.g_ret_sts_error);
3502: END IF;
3503: */
3504: -- Code commented and added for user defined streams ends here- HKPATEL
3505: IF(l_sty_id.id IS NOT NULL) THEN
3509: p_sty_id => l_sty_id.id,
3510: p_purpose_code => l_purpose_code,
3511: x_stmv_rec => l_stmv_rec,
3512: x_return_status => x_return_status);
3513: IF x_return_status = okl_api.g_ret_sts_unexp_error THEN
3514: EXIT WHEN (x_return_status = okl_api.g_ret_sts_unexp_error);
3515: ELSIF x_return_status = okl_api.g_ret_sts_error THEN
3516: EXIT WHEN (x_return_status = okl_api.g_ret_sts_error);
3517: END IF;
3510: p_purpose_code => l_purpose_code,
3511: x_stmv_rec => l_stmv_rec,
3512: x_return_status => x_return_status);
3513: IF x_return_status = okl_api.g_ret_sts_unexp_error THEN
3514: EXIT WHEN (x_return_status = okl_api.g_ret_sts_unexp_error);
3515: ELSIF x_return_status = okl_api.g_ret_sts_error THEN
3516: EXIT WHEN (x_return_status = okl_api.g_ret_sts_error);
3517: END IF;
3518: --l_stmv_rec.say_code := 'CURR';
3511: x_stmv_rec => l_stmv_rec,
3512: x_return_status => x_return_status);
3513: IF x_return_status = okl_api.g_ret_sts_unexp_error THEN
3514: EXIT WHEN (x_return_status = okl_api.g_ret_sts_unexp_error);
3515: ELSIF x_return_status = okl_api.g_ret_sts_error THEN
3516: EXIT WHEN (x_return_status = okl_api.g_ret_sts_error);
3517: END IF;
3518: --l_stmv_rec.say_code := 'CURR';
3519: l_stmv_rec.say_code := 'WORK';
3512: x_return_status => x_return_status);
3513: IF x_return_status = okl_api.g_ret_sts_unexp_error THEN
3514: EXIT WHEN (x_return_status = okl_api.g_ret_sts_unexp_error);
3515: ELSIF x_return_status = okl_api.g_ret_sts_error THEN
3516: EXIT WHEN (x_return_status = okl_api.g_ret_sts_error);
3517: END IF;
3518: --l_stmv_rec.say_code := 'CURR';
3519: l_stmv_rec.say_code := 'WORK';
3520: l_stmv_rec.active_yn := 'Y';
3530: p_stmv_rec => l_stmv_rec,
3531: p_selv_tbl => l_selv_tbl,
3532: x_stmv_rec => lx_stmv_rec,
3533: x_selv_tbl => lx_selv_tbl);
3534: IF x_return_status = okl_api.g_ret_sts_unexp_error THEN
3535: EXIT WHEN (x_return_status = okl_api.g_ret_sts_unexp_error);
3536: ELSIF x_return_status = okl_api.g_ret_sts_error THEN
3537: EXIT WHEN (x_return_status = okl_api.g_ret_sts_error);
3538: END IF;
3531: p_selv_tbl => l_selv_tbl,
3532: x_stmv_rec => lx_stmv_rec,
3533: x_selv_tbl => lx_selv_tbl);
3534: IF x_return_status = okl_api.g_ret_sts_unexp_error THEN
3535: EXIT WHEN (x_return_status = okl_api.g_ret_sts_unexp_error);
3536: ELSIF x_return_status = okl_api.g_ret_sts_error THEN
3537: EXIT WHEN (x_return_status = okl_api.g_ret_sts_error);
3538: END IF;
3539: END IF;
3532: x_stmv_rec => lx_stmv_rec,
3533: x_selv_tbl => lx_selv_tbl);
3534: IF x_return_status = okl_api.g_ret_sts_unexp_error THEN
3535: EXIT WHEN (x_return_status = okl_api.g_ret_sts_unexp_error);
3536: ELSIF x_return_status = okl_api.g_ret_sts_error THEN
3537: EXIT WHEN (x_return_status = okl_api.g_ret_sts_error);
3538: END IF;
3539: END IF;
3540: --Bug 5029161 - Start of Changes
3533: x_selv_tbl => lx_selv_tbl);
3534: IF x_return_status = okl_api.g_ret_sts_unexp_error THEN
3535: EXIT WHEN (x_return_status = okl_api.g_ret_sts_unexp_error);
3536: ELSIF x_return_status = okl_api.g_ret_sts_error THEN
3537: EXIT WHEN (x_return_status = okl_api.g_ret_sts_error);
3538: END IF;
3539: END IF;
3540: --Bug 5029161 - Start of Changes
3541: --srsreeni bug 5869271 start add
3561: ,x_msg_count => x_msg_count
3562: ,x_msg_data => x_msg_data
3563: ,p_selv_tbl => l_selv_tbl
3564: ,x_selv_tbl => lx_selv_tbl);
3565: IF x_return_status = okl_api.g_ret_sts_unexp_error THEN
3566: EXIT WHEN (x_return_status = okl_api.g_ret_sts_unexp_error);
3567: ELSIF x_return_status = okl_api.g_ret_sts_error THEN
3568: EXIT WHEN (x_return_status = okl_api.g_ret_sts_error);
3569: END IF;
3562: ,x_msg_data => x_msg_data
3563: ,p_selv_tbl => l_selv_tbl
3564: ,x_selv_tbl => lx_selv_tbl);
3565: IF x_return_status = okl_api.g_ret_sts_unexp_error THEN
3566: EXIT WHEN (x_return_status = okl_api.g_ret_sts_unexp_error);
3567: ELSIF x_return_status = okl_api.g_ret_sts_error THEN
3568: EXIT WHEN (x_return_status = okl_api.g_ret_sts_error);
3569: END IF;
3570: END IF;
3563: ,p_selv_tbl => l_selv_tbl
3564: ,x_selv_tbl => lx_selv_tbl);
3565: IF x_return_status = okl_api.g_ret_sts_unexp_error THEN
3566: EXIT WHEN (x_return_status = okl_api.g_ret_sts_unexp_error);
3567: ELSIF x_return_status = okl_api.g_ret_sts_error THEN
3568: EXIT WHEN (x_return_status = okl_api.g_ret_sts_error);
3569: END IF;
3570: END IF;
3571: END IF;
3564: ,x_selv_tbl => lx_selv_tbl);
3565: IF x_return_status = okl_api.g_ret_sts_unexp_error THEN
3566: EXIT WHEN (x_return_status = okl_api.g_ret_sts_unexp_error);
3567: ELSIF x_return_status = okl_api.g_ret_sts_error THEN
3568: EXIT WHEN (x_return_status = okl_api.g_ret_sts_error);
3569: END IF;
3570: END IF;
3571: END IF;
3572: l_old_cle_id := l_inflow.cle_id;
3604: ,x_msg_data => x_msg_data
3605: );
3606:
3607: -- gboomina Bug 4746368 - End
3608: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3609: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3610: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3611: RAISE OKL_API.G_EXCEPTION_ERROR;
3612: END IF;
3605: );
3606:
3607: -- gboomina Bug 4746368 - End
3608: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3609: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3610: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3611: RAISE OKL_API.G_EXCEPTION_ERROR;
3612: END IF;
3613:
3606:
3607: -- gboomina Bug 4746368 - End
3608: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3609: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3610: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3611: RAISE OKL_API.G_EXCEPTION_ERROR;
3612: END IF;
3613:
3614: --sechawla 15-SEP-2010 10045043 : begin
3607: -- gboomina Bug 4746368 - End
3608: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3609: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3610: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3611: RAISE OKL_API.G_EXCEPTION_ERROR;
3612: END IF;
3613:
3614: --sechawla 15-SEP-2010 10045043 : begin
3615: -- Generate passthru service expense accrual streams for ESG
3626: ,x_msg_data => x_msg_data
3627: );
3628:
3629:
3630: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3631: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3632: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3633: RAISE OKL_API.G_EXCEPTION_ERROR;
3634: END IF;
3627: );
3628:
3629:
3630: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3631: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3632: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3633: RAISE OKL_API.G_EXCEPTION_ERROR;
3634: END IF;
3635: --sechawla 15-SEP-2010 10045043 : end
3628:
3629:
3630: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3631: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3632: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3633: RAISE OKL_API.G_EXCEPTION_ERROR;
3634: END IF;
3635: --sechawla 15-SEP-2010 10045043 : end
3636:
3629:
3630: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3631: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3632: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3633: RAISE OKL_API.G_EXCEPTION_ERROR;
3634: END IF;
3635: --sechawla 15-SEP-2010 10045043 : end
3636:
3637: --------------------- sechawla 10-Aug-09 - begin ------------------------
3709: ,x_return_status => x_return_status
3710: ,x_msg_count => x_msg_count
3711: ,x_msg_data => x_msg_data);
3712:
3713: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
3714: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3715: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
3716: RAISE OKL_API.G_EXCEPTION_ERROR;
3717: END IF;
3710: ,x_msg_count => x_msg_count
3711: ,x_msg_data => x_msg_data);
3712:
3713: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
3714: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3715: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
3716: RAISE OKL_API.G_EXCEPTION_ERROR;
3717: END IF;
3718: END IF;
3711: ,x_msg_data => x_msg_data);
3712:
3713: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
3714: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3715: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
3716: RAISE OKL_API.G_EXCEPTION_ERROR;
3717: END IF;
3718: END IF;
3719:
3712:
3713: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
3714: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3715: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
3716: RAISE OKL_API.G_EXCEPTION_ERROR;
3717: END IF;
3718: END IF;
3719:
3720:
3717: END IF;
3718: END IF;
3719:
3720:
3721: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
3722: p_msg_name => 'OKL_STREAM_GENERATION_SUCCESS');
3723:
3724: --------------------- sechawla 10-Aug-09 - end ------------------------
3725:
3722: p_msg_name => 'OKL_STREAM_GENERATION_SUCCESS');
3723:
3724: --------------------- sechawla 10-Aug-09 - end ------------------------
3725:
3726: OKL_API.END_ACTIVITY (x_msg_count,
3727: x_msg_data );
3728: EXCEPTION
3729: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3730: IF c_hdr%ISOPEN THEN
3725:
3726: OKL_API.END_ACTIVITY (x_msg_count,
3727: x_msg_data );
3728: EXCEPTION
3729: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3730: IF c_hdr%ISOPEN THEN
3731: CLOSE c_hdr;
3732: END IF;
3733: IF c_inflows%ISOPEN THEN
3738: END IF;
3739: IF l_stm_csr%ISOPEN THEN
3740: CLOSE l_stm_csr;
3741: END IF;
3742: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
3743: l_api_name,
3744: G_PKG_NAME,
3745: 'OKL_API.G_RET_STS_ERROR',
3746: x_msg_count,
3741: END IF;
3742: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
3743: l_api_name,
3744: G_PKG_NAME,
3745: 'OKL_API.G_RET_STS_ERROR',
3746: x_msg_count,
3747: x_msg_data,
3748: '_PVT');
3749: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3745: 'OKL_API.G_RET_STS_ERROR',
3746: x_msg_count,
3747: x_msg_data,
3748: '_PVT');
3749: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3750: IF c_hdr%ISOPEN THEN
3751: CLOSE c_hdr;
3752: END IF;
3753: IF c_inflows%ISOPEN THEN
3758: END IF;
3759: IF l_stm_csr%ISOPEN THEN
3760: CLOSE l_stm_csr;
3761: END IF;
3762: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
3763: l_api_name,
3764: G_PKG_NAME,
3765: 'OKL_API.G_RET_STS_UNEXP_ERROR',
3766: x_msg_count,
3761: END IF;
3762: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
3763: l_api_name,
3764: G_PKG_NAME,
3765: 'OKL_API.G_RET_STS_UNEXP_ERROR',
3766: x_msg_count,
3767: x_msg_data,
3768: '_PVT');
3769: WHEN OTHERS THEN
3778: END IF;
3779: IF l_stm_csr%ISOPEN THEN
3780: CLOSE l_stm_csr;
3781: END IF;
3782: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
3783: l_api_name,
3784: G_PKG_NAME,
3785: 'OTHERS',
3786: x_msg_count,
3795: ---------------------------------------------------------------------------------------------
3796: PROCEDURE GENERATE_PASSTHRU_EXP_STREAMS
3797: (
3798: p_api_version IN NUMBER,
3799: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
3800: P_CHR_ID IN NUMBER,
3801: P_PURPOSE_CODE IN VARCHAR2,
3802: x_return_status OUT NOCOPY VARCHAR2,
3803: x_msg_count OUT NOCOPY NUMBER,
3909:
3910: l_months_factor := OKL_STREAM_GENERATOR_PVT.get_months_factor(
3911: p_frequency => l_frequency,
3912: x_return_status => x_return_status);
3913: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
3914: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3915: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
3916: RAISE OKL_API.G_EXCEPTION_ERROR;
3917: END IF;
3910: l_months_factor := OKL_STREAM_GENERATOR_PVT.get_months_factor(
3911: p_frequency => l_frequency,
3912: x_return_status => x_return_status);
3913: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
3914: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3915: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
3916: RAISE OKL_API.G_EXCEPTION_ERROR;
3917: END IF;
3918: l_prev_pay_start_date := NULL;
3911: p_frequency => l_frequency,
3912: x_return_status => x_return_status);
3913: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
3914: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3915: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
3916: RAISE OKL_API.G_EXCEPTION_ERROR;
3917: END IF;
3918: l_prev_pay_start_date := NULL;
3919: LOOP
3912: x_return_status => x_return_status);
3913: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
3914: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3915: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
3916: RAISE OKL_API.G_EXCEPTION_ERROR;
3917: END IF;
3918: l_prev_pay_start_date := NULL;
3919: LOOP
3920: IF (r_pass.disbursement_basis = 'PERCENT' ) THEN
3926: p_prev_payout_date => l_prev_pay_start_date,
3927: p_payout_date => l_pay_start_date,
3928: x_bill_amount => l_bill_amount,
3929: x_return_status => x_return_status);
3930: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
3931: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3932: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
3933: RAISE OKL_API.G_EXCEPTION_ERROR;
3934: END IF;
3927: p_payout_date => l_pay_start_date,
3928: x_bill_amount => l_bill_amount,
3929: x_return_status => x_return_status);
3930: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
3931: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3932: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
3933: RAISE OKL_API.G_EXCEPTION_ERROR;
3934: END IF;
3935: l_disb_amount := (l_bill_amount * r_pass.DISBURSEMENT_PERCENT)/100;
3928: x_bill_amount => l_bill_amount,
3929: x_return_status => x_return_status);
3930: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
3931: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3932: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
3933: RAISE OKL_API.G_EXCEPTION_ERROR;
3934: END IF;
3935: l_disb_amount := (l_bill_amount * r_pass.DISBURSEMENT_PERCENT)/100;
3936: ELSE
3929: x_return_status => x_return_status);
3930: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
3931: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3932: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
3933: RAISE OKL_API.G_EXCEPTION_ERROR;
3934: END IF;
3935: l_disb_amount := (l_bill_amount * r_pass.DISBURSEMENT_PERCENT)/100;
3936: ELSE
3937: l_disb_amount := r_pass.disbursement_fixed_amount;
3959: p_start_date => l_payment_period_start_date,
3960: p_end_date => l_payment_period_end_date,
3961: x_selv_tbl => l_pt_tbl_tmp,
3962: x_return_status => x_return_status);
3963: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR
3964: THEN
3965: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3966: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR
3967: THEN
3961: x_selv_tbl => l_pt_tbl_tmp,
3962: x_return_status => x_return_status);
3963: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR
3964: THEN
3965: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3966: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR
3967: THEN
3968: RAISE OKL_API.G_EXCEPTION_ERROR;
3969: END IF;
3962: x_return_status => x_return_status);
3963: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR
3964: THEN
3965: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3966: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR
3967: THEN
3968: RAISE OKL_API.G_EXCEPTION_ERROR;
3969: END IF;
3970:
3964: THEN
3965: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3966: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR
3967: THEN
3968: RAISE OKL_API.G_EXCEPTION_ERROR;
3969: END IF;
3970:
3971: IF (l_pt_tbl_tmp.COUNT > 0)
3972: THEN
3990: consolidate_pth_acc_streams(p_chr_id => p_chr_id,
3991: p_selv_tbl => l_pth_selv_tbl,
3992: x_selv_tbl => l_pth_exp_selv_tbl,
3993: x_return_status => x_return_status);
3994: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
3995: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3996: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
3997: RAISE OKL_API.G_EXCEPTION_ERROR;
3998: END IF;
3991: p_selv_tbl => l_pth_selv_tbl,
3992: x_selv_tbl => l_pth_exp_selv_tbl,
3993: x_return_status => x_return_status);
3994: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
3995: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3996: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
3997: RAISE OKL_API.G_EXCEPTION_ERROR;
3998: END IF;
3999: --end rgooty for bug 8399461
3992: x_selv_tbl => l_pth_exp_selv_tbl,
3993: x_return_status => x_return_status);
3994: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
3995: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3996: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
3997: RAISE OKL_API.G_EXCEPTION_ERROR;
3998: END IF;
3999: --end rgooty for bug 8399461
4000: OPEN fee_strm_type_csr ( l_lne_rec.id, 'FEE' );
3993: x_return_status => x_return_status);
3994: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
3995: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3996: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
3997: RAISE OKL_API.G_EXCEPTION_ERROR;
3998: END IF;
3999: --end rgooty for bug 8399461
4000: OPEN fee_strm_type_csr ( l_lne_rec.id, 'FEE' );
4001: FETCH fee_strm_type_csr into l_fee_strm_type_rec;
4038: p_sty_id => l_sty_id.id,
4039: p_purpose_code => l_purpose_code,
4040: x_stmv_rec => l_stmv_rec,
4041: x_return_status => x_return_status);
4042: IF x_return_status = okl_api.g_ret_sts_unexp_error THEN
4043: EXIT WHEN (x_return_status = okl_api.g_ret_sts_unexp_error);
4044: ELSIF x_return_status = okl_api.g_ret_sts_error THEN
4045: EXIT WHEN (x_return_status = okl_api.g_ret_sts_error);
4046: END IF;
4039: p_purpose_code => l_purpose_code,
4040: x_stmv_rec => l_stmv_rec,
4041: x_return_status => x_return_status);
4042: IF x_return_status = okl_api.g_ret_sts_unexp_error THEN
4043: EXIT WHEN (x_return_status = okl_api.g_ret_sts_unexp_error);
4044: ELSIF x_return_status = okl_api.g_ret_sts_error THEN
4045: EXIT WHEN (x_return_status = okl_api.g_ret_sts_error);
4046: END IF;
4047: l_stmv_rec.say_code := 'WORK';
4040: x_stmv_rec => l_stmv_rec,
4041: x_return_status => x_return_status);
4042: IF x_return_status = okl_api.g_ret_sts_unexp_error THEN
4043: EXIT WHEN (x_return_status = okl_api.g_ret_sts_unexp_error);
4044: ELSIF x_return_status = okl_api.g_ret_sts_error THEN
4045: EXIT WHEN (x_return_status = okl_api.g_ret_sts_error);
4046: END IF;
4047: l_stmv_rec.say_code := 'WORK';
4048: l_stmv_rec.active_yn := 'Y';
4041: x_return_status => x_return_status);
4042: IF x_return_status = okl_api.g_ret_sts_unexp_error THEN
4043: EXIT WHEN (x_return_status = okl_api.g_ret_sts_unexp_error);
4044: ELSIF x_return_status = okl_api.g_ret_sts_error THEN
4045: EXIT WHEN (x_return_status = okl_api.g_ret_sts_error);
4046: END IF;
4047: l_stmv_rec.say_code := 'WORK';
4048: l_stmv_rec.active_yn := 'Y';
4049: l_stmv_rec.date_working := SYSDATE;
4059: p_stmv_rec => l_stmv_rec,
4060: p_selv_tbl => l_pth_exp_selv_tbl, --Changed by rgooty for bug 8399461
4061: x_stmv_rec => lx_stmv_rec,
4062: x_selv_tbl => lx_selv_tbl);
4063: IF x_return_status = okl_api.g_ret_sts_unexp_error THEN
4064: EXIT WHEN (x_return_status = okl_api.g_ret_sts_unexp_error);
4065: ELSIF x_return_status = okl_api.g_ret_sts_error THEN
4066: EXIT WHEN (x_return_status = okl_api.g_ret_sts_error);
4067: END IF;
4060: p_selv_tbl => l_pth_exp_selv_tbl, --Changed by rgooty for bug 8399461
4061: x_stmv_rec => lx_stmv_rec,
4062: x_selv_tbl => lx_selv_tbl);
4063: IF x_return_status = okl_api.g_ret_sts_unexp_error THEN
4064: EXIT WHEN (x_return_status = okl_api.g_ret_sts_unexp_error);
4065: ELSIF x_return_status = okl_api.g_ret_sts_error THEN
4066: EXIT WHEN (x_return_status = okl_api.g_ret_sts_error);
4067: END IF;
4068: END IF;
4061: x_stmv_rec => lx_stmv_rec,
4062: x_selv_tbl => lx_selv_tbl);
4063: IF x_return_status = okl_api.g_ret_sts_unexp_error THEN
4064: EXIT WHEN (x_return_status = okl_api.g_ret_sts_unexp_error);
4065: ELSIF x_return_status = okl_api.g_ret_sts_error THEN
4066: EXIT WHEN (x_return_status = okl_api.g_ret_sts_error);
4067: END IF;
4068: END IF;
4069: --Bug 5029161 - End of Changes
4062: x_selv_tbl => lx_selv_tbl);
4063: IF x_return_status = okl_api.g_ret_sts_unexp_error THEN
4064: EXIT WHEN (x_return_status = okl_api.g_ret_sts_unexp_error);
4065: ELSIF x_return_status = okl_api.g_ret_sts_error THEN
4066: EXIT WHEN (x_return_status = okl_api.g_ret_sts_error);
4067: END IF;
4068: END IF;
4069: --Bug 5029161 - End of Changes
4070: END IF;
4076: END IF;
4077: --Bug 5137824 - End of Changes
4078: END LOOP;
4079: -- gboomina Bug 4746368 - End
4080: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4081: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4082: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4083: RAISE OKL_API.G_EXCEPTION_ERROR;
4084: END IF;
4077: --Bug 5137824 - End of Changes
4078: END LOOP;
4079: -- gboomina Bug 4746368 - End
4080: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4081: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4082: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4083: RAISE OKL_API.G_EXCEPTION_ERROR;
4084: END IF;
4085: EXCEPTION
4078: END LOOP;
4079: -- gboomina Bug 4746368 - End
4080: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4081: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4082: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4083: RAISE OKL_API.G_EXCEPTION_ERROR;
4084: END IF;
4085: EXCEPTION
4086: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4079: -- gboomina Bug 4746368 - End
4080: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4081: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4082: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4083: RAISE OKL_API.G_EXCEPTION_ERROR;
4084: END IF;
4085: EXCEPTION
4086: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4087: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4082: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4083: RAISE OKL_API.G_EXCEPTION_ERROR;
4084: END IF;
4085: EXCEPTION
4086: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4087: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4088: l_api_name,
4089: G_PKG_NAME,
4090: 'OKL_API.G_RET_STS_ERROR',
4083: RAISE OKL_API.G_EXCEPTION_ERROR;
4084: END IF;
4085: EXCEPTION
4086: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4087: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4088: l_api_name,
4089: G_PKG_NAME,
4090: 'OKL_API.G_RET_STS_ERROR',
4091: x_msg_count,
4086: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4087: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4088: l_api_name,
4089: G_PKG_NAME,
4090: 'OKL_API.G_RET_STS_ERROR',
4091: x_msg_count,
4092: x_msg_data,
4093: '_PVT');
4094: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4090: 'OKL_API.G_RET_STS_ERROR',
4091: x_msg_count,
4092: x_msg_data,
4093: '_PVT');
4094: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4095: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
4096: l_api_name,
4097: G_PKG_NAME,
4098: 'OKL_API.G_RET_STS_UNEXP_ERROR',
4091: x_msg_count,
4092: x_msg_data,
4093: '_PVT');
4094: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4095: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
4096: l_api_name,
4097: G_PKG_NAME,
4098: 'OKL_API.G_RET_STS_UNEXP_ERROR',
4099: x_msg_count,
4094: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4095: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
4096: l_api_name,
4097: G_PKG_NAME,
4098: 'OKL_API.G_RET_STS_UNEXP_ERROR',
4099: x_msg_count,
4100: x_msg_data,
4101: '_PVT');
4102: WHEN OTHERS THEN
4099: x_msg_count,
4100: x_msg_data,
4101: '_PVT');
4102: WHEN OTHERS THEN
4103: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
4104: l_api_name,
4105: G_PKG_NAME,
4106: 'OTHERS',
4107: x_msg_count,
4123:
4124: PROCEDURE GEN_PASSTHRU_SERV_EXP_STREAMS
4125: (
4126: p_api_version IN NUMBER,
4127: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
4128: P_CHR_ID IN NUMBER,
4129: P_PURPOSE_CODE IN VARCHAR2,
4130: x_return_status OUT NOCOPY VARCHAR2,
4131: x_msg_count OUT NOCOPY NUMBER,
4238: END IF;
4239: l_months_factor := OKL_STREAM_GENERATOR_PVT.get_months_factor(
4240: p_frequency => l_frequency,
4241: x_return_status => x_return_status);
4242: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
4243: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4244: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
4245: RAISE OKL_API.G_EXCEPTION_ERROR;
4246: END IF;
4239: l_months_factor := OKL_STREAM_GENERATOR_PVT.get_months_factor(
4240: p_frequency => l_frequency,
4241: x_return_status => x_return_status);
4242: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
4243: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4244: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
4245: RAISE OKL_API.G_EXCEPTION_ERROR;
4246: END IF;
4247: l_prev_pay_start_date := NULL;
4240: p_frequency => l_frequency,
4241: x_return_status => x_return_status);
4242: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
4243: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4244: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
4245: RAISE OKL_API.G_EXCEPTION_ERROR;
4246: END IF;
4247: l_prev_pay_start_date := NULL;
4248: LOOP
4241: x_return_status => x_return_status);
4242: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
4243: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4244: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
4245: RAISE OKL_API.G_EXCEPTION_ERROR;
4246: END IF;
4247: l_prev_pay_start_date := NULL;
4248: LOOP
4249: IF (r_pass.disbursement_basis = 'PERCENT' ) THEN
4255: p_prev_payout_date => l_prev_pay_start_date,
4256: p_payout_date => l_pay_start_date,
4257: x_bill_amount => l_bill_amount,
4258: x_return_status => x_return_status);
4259: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
4260: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4261: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
4262: RAISE OKL_API.G_EXCEPTION_ERROR;
4263: END IF;
4256: p_payout_date => l_pay_start_date,
4257: x_bill_amount => l_bill_amount,
4258: x_return_status => x_return_status);
4259: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
4260: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4261: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
4262: RAISE OKL_API.G_EXCEPTION_ERROR;
4263: END IF;
4264: l_disb_amount := (l_bill_amount * r_pass.DISBURSEMENT_PERCENT)/100;
4257: x_bill_amount => l_bill_amount,
4258: x_return_status => x_return_status);
4259: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
4260: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4261: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
4262: RAISE OKL_API.G_EXCEPTION_ERROR;
4263: END IF;
4264: l_disb_amount := (l_bill_amount * r_pass.DISBURSEMENT_PERCENT)/100;
4265: ELSE
4258: x_return_status => x_return_status);
4259: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
4260: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4261: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
4262: RAISE OKL_API.G_EXCEPTION_ERROR;
4263: END IF;
4264: l_disb_amount := (l_bill_amount * r_pass.DISBURSEMENT_PERCENT)/100;
4265: ELSE
4266: l_disb_amount := r_pass.disbursement_fixed_amount;
4286: p_start_date => l_payment_period_start_date,
4287: p_end_date => l_payment_period_end_date,
4288: x_selv_tbl => l_pt_tbl_tmp,
4289: x_return_status => x_return_status);
4290: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR
4291: THEN
4292: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4293: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR
4294: THEN
4288: x_selv_tbl => l_pt_tbl_tmp,
4289: x_return_status => x_return_status);
4290: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR
4291: THEN
4292: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4293: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR
4294: THEN
4295: RAISE OKL_API.G_EXCEPTION_ERROR;
4296: END IF;
4289: x_return_status => x_return_status);
4290: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR
4291: THEN
4292: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4293: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR
4294: THEN
4295: RAISE OKL_API.G_EXCEPTION_ERROR;
4296: END IF;
4297:
4291: THEN
4292: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4293: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR
4294: THEN
4295: RAISE OKL_API.G_EXCEPTION_ERROR;
4296: END IF;
4297:
4298: IF (l_pt_tbl_tmp.COUNT > 0)
4299: THEN
4316: consolidate_pth_acc_streams(p_chr_id => p_chr_id,
4317: p_selv_tbl => l_pth_selv_tbl,
4318: x_selv_tbl => l_pth_exp_selv_tbl,
4319: x_return_status => x_return_status);
4320: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
4321: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4322: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
4323: RAISE OKL_API.G_EXCEPTION_ERROR;
4324: END IF;
4317: p_selv_tbl => l_pth_selv_tbl,
4318: x_selv_tbl => l_pth_exp_selv_tbl,
4319: x_return_status => x_return_status);
4320: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
4321: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4322: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
4323: RAISE OKL_API.G_EXCEPTION_ERROR;
4324: END IF;
4325:
4318: x_selv_tbl => l_pth_exp_selv_tbl,
4319: x_return_status => x_return_status);
4320: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
4321: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4322: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
4323: RAISE OKL_API.G_EXCEPTION_ERROR;
4324: END IF;
4325:
4326: --moved this up to check upfront if this is passthru service
4319: x_return_status => x_return_status);
4320: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
4321: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4322: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
4323: RAISE OKL_API.G_EXCEPTION_ERROR;
4324: END IF;
4325:
4326: --moved this up to check upfront if this is passthru service
4327: /*
4369: p_sty_id => l_sty_id.id,
4370: p_purpose_code => l_purpose_code,
4371: x_stmv_rec => l_stmv_rec,
4372: x_return_status => x_return_status);
4373: IF x_return_status = okl_api.g_ret_sts_unexp_error THEN
4374: EXIT WHEN (x_return_status = okl_api.g_ret_sts_unexp_error);
4375: ELSIF x_return_status = okl_api.g_ret_sts_error THEN
4376: EXIT WHEN (x_return_status = okl_api.g_ret_sts_error);
4377: END IF;
4370: p_purpose_code => l_purpose_code,
4371: x_stmv_rec => l_stmv_rec,
4372: x_return_status => x_return_status);
4373: IF x_return_status = okl_api.g_ret_sts_unexp_error THEN
4374: EXIT WHEN (x_return_status = okl_api.g_ret_sts_unexp_error);
4375: ELSIF x_return_status = okl_api.g_ret_sts_error THEN
4376: EXIT WHEN (x_return_status = okl_api.g_ret_sts_error);
4377: END IF;
4378: l_stmv_rec.say_code := 'WORK';
4371: x_stmv_rec => l_stmv_rec,
4372: x_return_status => x_return_status);
4373: IF x_return_status = okl_api.g_ret_sts_unexp_error THEN
4374: EXIT WHEN (x_return_status = okl_api.g_ret_sts_unexp_error);
4375: ELSIF x_return_status = okl_api.g_ret_sts_error THEN
4376: EXIT WHEN (x_return_status = okl_api.g_ret_sts_error);
4377: END IF;
4378: l_stmv_rec.say_code := 'WORK';
4379: l_stmv_rec.active_yn := 'Y';
4372: x_return_status => x_return_status);
4373: IF x_return_status = okl_api.g_ret_sts_unexp_error THEN
4374: EXIT WHEN (x_return_status = okl_api.g_ret_sts_unexp_error);
4375: ELSIF x_return_status = okl_api.g_ret_sts_error THEN
4376: EXIT WHEN (x_return_status = okl_api.g_ret_sts_error);
4377: END IF;
4378: l_stmv_rec.say_code := 'WORK';
4379: l_stmv_rec.active_yn := 'Y';
4380: l_stmv_rec.date_working := SYSDATE;
4390: p_stmv_rec => l_stmv_rec,
4391: p_selv_tbl => l_pth_exp_selv_tbl,
4392: x_stmv_rec => lx_stmv_rec,
4393: x_selv_tbl => lx_selv_tbl);
4394: IF x_return_status = okl_api.g_ret_sts_unexp_error THEN
4395: EXIT WHEN (x_return_status = okl_api.g_ret_sts_unexp_error);
4396: ELSIF x_return_status = okl_api.g_ret_sts_error THEN
4397: EXIT WHEN (x_return_status = okl_api.g_ret_sts_error);
4398: END IF;
4391: p_selv_tbl => l_pth_exp_selv_tbl,
4392: x_stmv_rec => lx_stmv_rec,
4393: x_selv_tbl => lx_selv_tbl);
4394: IF x_return_status = okl_api.g_ret_sts_unexp_error THEN
4395: EXIT WHEN (x_return_status = okl_api.g_ret_sts_unexp_error);
4396: ELSIF x_return_status = okl_api.g_ret_sts_error THEN
4397: EXIT WHEN (x_return_status = okl_api.g_ret_sts_error);
4398: END IF;
4399: END IF;
4392: x_stmv_rec => lx_stmv_rec,
4393: x_selv_tbl => lx_selv_tbl);
4394: IF x_return_status = okl_api.g_ret_sts_unexp_error THEN
4395: EXIT WHEN (x_return_status = okl_api.g_ret_sts_unexp_error);
4396: ELSIF x_return_status = okl_api.g_ret_sts_error THEN
4397: EXIT WHEN (x_return_status = okl_api.g_ret_sts_error);
4398: END IF;
4399: END IF;
4400: --Bug 5029161 - End of Changes
4393: x_selv_tbl => lx_selv_tbl);
4394: IF x_return_status = okl_api.g_ret_sts_unexp_error THEN
4395: EXIT WHEN (x_return_status = okl_api.g_ret_sts_unexp_error);
4396: ELSIF x_return_status = okl_api.g_ret_sts_error THEN
4397: EXIT WHEN (x_return_status = okl_api.g_ret_sts_error);
4398: END IF;
4399: END IF;
4400: --Bug 5029161 - End of Changes
4401: END IF;
4407: END IF;
4408: --Bug 5137824 - End of Changes
4409: END LOOP;
4410: -- gboomina Bug 4746368 - End
4411: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4412: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4413: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4414: RAISE OKL_API.G_EXCEPTION_ERROR;
4415: END IF;
4408: --Bug 5137824 - End of Changes
4409: END LOOP;
4410: -- gboomina Bug 4746368 - End
4411: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4412: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4413: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4414: RAISE OKL_API.G_EXCEPTION_ERROR;
4415: END IF;
4416: EXCEPTION
4409: END LOOP;
4410: -- gboomina Bug 4746368 - End
4411: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4412: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4413: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4414: RAISE OKL_API.G_EXCEPTION_ERROR;
4415: END IF;
4416: EXCEPTION
4417: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4410: -- gboomina Bug 4746368 - End
4411: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4412: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4413: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4414: RAISE OKL_API.G_EXCEPTION_ERROR;
4415: END IF;
4416: EXCEPTION
4417: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4418: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4413: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4414: RAISE OKL_API.G_EXCEPTION_ERROR;
4415: END IF;
4416: EXCEPTION
4417: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4418: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4419: l_api_name,
4420: G_PKG_NAME,
4421: 'OKL_API.G_RET_STS_ERROR',
4414: RAISE OKL_API.G_EXCEPTION_ERROR;
4415: END IF;
4416: EXCEPTION
4417: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4418: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4419: l_api_name,
4420: G_PKG_NAME,
4421: 'OKL_API.G_RET_STS_ERROR',
4422: x_msg_count,
4417: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4418: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4419: l_api_name,
4420: G_PKG_NAME,
4421: 'OKL_API.G_RET_STS_ERROR',
4422: x_msg_count,
4423: x_msg_data,
4424: '_PVT');
4425: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4421: 'OKL_API.G_RET_STS_ERROR',
4422: x_msg_count,
4423: x_msg_data,
4424: '_PVT');
4425: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4426: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
4427: l_api_name,
4428: G_PKG_NAME,
4429: 'OKL_API.G_RET_STS_UNEXP_ERROR',
4422: x_msg_count,
4423: x_msg_data,
4424: '_PVT');
4425: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4426: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
4427: l_api_name,
4428: G_PKG_NAME,
4429: 'OKL_API.G_RET_STS_UNEXP_ERROR',
4430: x_msg_count,
4425: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4426: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
4427: l_api_name,
4428: G_PKG_NAME,
4429: 'OKL_API.G_RET_STS_UNEXP_ERROR',
4430: x_msg_count,
4431: x_msg_data,
4432: '_PVT');
4433: WHEN OTHERS THEN
4430: x_msg_count,
4431: x_msg_data,
4432: '_PVT');
4433: WHEN OTHERS THEN
4434: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
4435: l_api_name,
4436: G_PKG_NAME,
4437: 'OTHERS',
4438: x_msg_count,
4442:
4443:
4444: Procedure alloc_strms_basis_level(
4445: p_api_version IN NUMBER,
4446: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
4447: x_return_status OUT NOCOPY VARCHAR2,
4448: x_msg_count OUT NOCOPY NUMBER,
4449: x_msg_data OUT NOCOPY VARCHAR2,
4450: p_chr_id IN NUMBER,
4453: p_strmele_tbl IN strmele_tbl_type) AS
4454:
4455: l_api_name CONSTANT VARCHAR2(30) := 'ALLOC_STRMS_BASIS_LEVEL';
4456: l_api_version CONSTANT NUMBER := 1;
4457: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
4458:
4459:
4460: l_ctrt_cap_amnt NUMBER := p_ctrt_cap_amnt;
4461:
4476: l_strmele_tbl strmele_tbl_type := p_strmele_tbl;
4477:
4478: BEGIN
4479:
4480: l_return_status := OKL_API.START_ACTIVITY(
4481: p_api_name => l_api_name,
4482: p_pkg_name => g_pkg_name,
4483: p_init_msg_list => p_init_msg_list,
4484: l_api_version => l_api_version,
4486: p_api_type => G_API_TYPE,
4487: x_return_status => x_return_status);
4488:
4489: -- check if activity started successfully
4490: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
4491: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4492: ElSIF (l_return_status = OKL_API.G_RET_STS_ERROR) then
4493: raise OKL_API.G_EXCEPTION_ERROR;
4494: End If;
4487: x_return_status => x_return_status);
4488:
4489: -- check if activity started successfully
4490: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
4491: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4492: ElSIF (l_return_status = OKL_API.G_RET_STS_ERROR) then
4493: raise OKL_API.G_EXCEPTION_ERROR;
4494: End If;
4495:
4488:
4489: -- check if activity started successfully
4490: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
4491: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4492: ElSIF (l_return_status = OKL_API.G_RET_STS_ERROR) then
4493: raise OKL_API.G_EXCEPTION_ERROR;
4494: End If;
4495:
4496: FOR l_finline_rec in l_line_rec_csr ( p_chr_id, 'FREE_FORM1')
4489: -- check if activity started successfully
4490: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
4491: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4492: ElSIF (l_return_status = OKL_API.G_RET_STS_ERROR) then
4493: raise OKL_API.G_EXCEPTION_ERROR;
4494: End If;
4495:
4496: FOR l_finline_rec in l_line_rec_csr ( p_chr_id, 'FREE_FORM1')
4497: LOOP
4543: ,p_selv_tbl => l_selv_tbl
4544: ,x_stmv_rec => x_stmv_rec
4545: ,x_selv_tbl => x_selv_tbl);
4546:
4547: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
4548: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4549: ElSIF (l_return_status = OKL_API.G_RET_STS_ERROR) then
4550: raise OKL_API.G_EXCEPTION_ERROR;
4551: End If;
4544: ,x_stmv_rec => x_stmv_rec
4545: ,x_selv_tbl => x_selv_tbl);
4546:
4547: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
4548: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4549: ElSIF (l_return_status = OKL_API.G_RET_STS_ERROR) then
4550: raise OKL_API.G_EXCEPTION_ERROR;
4551: End If;
4552:
4545: ,x_selv_tbl => x_selv_tbl);
4546:
4547: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
4548: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4549: ElSIF (l_return_status = OKL_API.G_RET_STS_ERROR) then
4550: raise OKL_API.G_EXCEPTION_ERROR;
4551: End If;
4552:
4553: l_selv_tbl.DELETE(1, l_selv_tbl.COUNT);
4546:
4547: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
4548: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4549: ElSIF (l_return_status = OKL_API.G_RET_STS_ERROR) then
4550: raise OKL_API.G_EXCEPTION_ERROR;
4551: End If;
4552:
4553: l_selv_tbl.DELETE(1, l_selv_tbl.COUNT);
4554: amounts.DELETE(1, amounts.COUNT);
4559:
4560:
4561: x_return_status := l_return_status;
4562:
4563: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
4564:
4565: EXCEPTION
4566: when OKL_API.G_EXCEPTION_ERROR then
4567: l_return_status := OKL_API.HANDLE_EXCEPTIONS(
4562:
4563: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
4564:
4565: EXCEPTION
4566: when OKL_API.G_EXCEPTION_ERROR then
4567: l_return_status := OKL_API.HANDLE_EXCEPTIONS(
4568: p_api_name => l_api_name,
4569: p_pkg_name => g_pkg_name,
4570: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
4563: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
4564:
4565: EXCEPTION
4566: when OKL_API.G_EXCEPTION_ERROR then
4567: l_return_status := OKL_API.HANDLE_EXCEPTIONS(
4568: p_api_name => l_api_name,
4569: p_pkg_name => g_pkg_name,
4570: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
4571: x_msg_count => x_msg_count,
4566: when OKL_API.G_EXCEPTION_ERROR then
4567: l_return_status := OKL_API.HANDLE_EXCEPTIONS(
4568: p_api_name => l_api_name,
4569: p_pkg_name => g_pkg_name,
4570: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
4571: x_msg_count => x_msg_count,
4572: x_msg_data => x_msg_data,
4573: p_api_type => g_api_type);
4574: x_return_status := l_return_status;
4572: x_msg_data => x_msg_data,
4573: p_api_type => g_api_type);
4574: x_return_status := l_return_status;
4575:
4576: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
4577: l_return_status := OKL_API.HANDLE_EXCEPTIONS(
4578: p_api_name => l_api_name,
4579: p_pkg_name => g_pkg_name,
4580: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
4573: p_api_type => g_api_type);
4574: x_return_status := l_return_status;
4575:
4576: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
4577: l_return_status := OKL_API.HANDLE_EXCEPTIONS(
4578: p_api_name => l_api_name,
4579: p_pkg_name => g_pkg_name,
4580: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
4581: x_msg_count => x_msg_count,
4576: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
4577: l_return_status := OKL_API.HANDLE_EXCEPTIONS(
4578: p_api_name => l_api_name,
4579: p_pkg_name => g_pkg_name,
4580: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
4581: x_msg_count => x_msg_count,
4582: x_msg_data => x_msg_data,
4583: p_api_type => g_api_type);
4584: x_return_status := l_return_status;
4587: End If;
4588:
4589:
4590: when OTHERS then
4591: l_return_status := OKL_API.HANDLE_EXCEPTIONS(
4592: p_api_name => l_api_name,
4593: p_pkg_name => g_pkg_name,
4594: p_exc_name => 'OTHERS',
4595: x_msg_count => x_msg_count,
4602:
4603:
4604: Procedure alloc_strms_basis_capital(
4605: p_api_version IN NUMBER,
4606: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
4607: x_return_status OUT NOCOPY VARCHAR2,
4608: x_msg_count OUT NOCOPY NUMBER,
4609: x_msg_data OUT NOCOPY VARCHAR2,
4610: p_chr_id IN NUMBER,
4613: p_strmele_tbl IN strmele_tbl_type) AS
4614:
4615: l_api_name CONSTANT VARCHAR2(30) := 'ALLOC_STRMS_BASIS_CAPITAL';
4616: l_api_version CONSTANT NUMBER := 1;
4617: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
4618:
4619:
4620:
4621: l_finline_rec l_line_rec_csr%ROWTYPE;
4635: x_selv_tbl Okl_Streams_pub.selv_tbl_type;
4636:
4637: BEGIN
4638:
4639: l_return_status := OKL_API.START_ACTIVITY(
4640: p_api_name => l_api_name,
4641: p_pkg_name => g_pkg_name,
4642: p_init_msg_list => p_init_msg_list,
4643: l_api_version => l_api_version,
4646: x_return_status => x_return_status);
4647:
4648:
4649: -- check if activity started successfully
4650: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
4651: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4652: ElSIF (l_return_status = OKL_API.G_RET_STS_ERROR) then
4653: raise OKL_API.G_EXCEPTION_ERROR;
4654: End If;
4647:
4648:
4649: -- check if activity started successfully
4650: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
4651: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4652: ElSIF (l_return_status = OKL_API.G_RET_STS_ERROR) then
4653: raise OKL_API.G_EXCEPTION_ERROR;
4654: End If;
4655:
4648:
4649: -- check if activity started successfully
4650: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
4651: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4652: ElSIF (l_return_status = OKL_API.G_RET_STS_ERROR) then
4653: raise OKL_API.G_EXCEPTION_ERROR;
4654: End If;
4655:
4656:
4649: -- check if activity started successfully
4650: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
4651: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4652: ElSIF (l_return_status = OKL_API.G_RET_STS_ERROR) then
4653: raise OKL_API.G_EXCEPTION_ERROR;
4654: End If;
4655:
4656:
4657: FOR l_finline_rec in l_line_rec_csr ( p_chr_id, 'FREE_FORM1')
4707: ,x_stmv_rec => x_stmv_rec);
4708:
4709:
4710:
4711: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
4712: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4713: ElSIF (l_return_status = OKL_API.G_RET_STS_ERROR) then
4714: raise OKL_API.G_EXCEPTION_ERROR;
4715: End If;
4708:
4709:
4710:
4711: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
4712: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4713: ElSIF (l_return_status = OKL_API.G_RET_STS_ERROR) then
4714: raise OKL_API.G_EXCEPTION_ERROR;
4715: End If;
4716:
4709:
4710:
4711: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
4712: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4713: ElSIF (l_return_status = OKL_API.G_RET_STS_ERROR) then
4714: raise OKL_API.G_EXCEPTION_ERROR;
4715: End If;
4716:
4717:
4710:
4711: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
4712: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4713: ElSIF (l_return_status = OKL_API.G_RET_STS_ERROR) then
4714: raise OKL_API.G_EXCEPTION_ERROR;
4715: End If;
4716:
4717:
4718:
4729: ,x_msg_data => x_msg_data
4730: ,p_selv_tbl => l_selv_tbl
4731: ,x_selv_tbl => x_selv_tbl);
4732:
4733: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
4734: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4735: ElSIF (l_return_status = OKL_API.G_RET_STS_ERROR) then
4736: raise OKL_API.G_EXCEPTION_ERROR;
4737: End If;
4730: ,p_selv_tbl => l_selv_tbl
4731: ,x_selv_tbl => x_selv_tbl);
4732:
4733: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
4734: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4735: ElSIF (l_return_status = OKL_API.G_RET_STS_ERROR) then
4736: raise OKL_API.G_EXCEPTION_ERROR;
4737: End If;
4738:
4731: ,x_selv_tbl => x_selv_tbl);
4732:
4733: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
4734: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4735: ElSIF (l_return_status = OKL_API.G_RET_STS_ERROR) then
4736: raise OKL_API.G_EXCEPTION_ERROR;
4737: End If;
4738:
4739: l_selv_tbl.DELETE(1, l_selv_tbl.COUNT);
4732:
4733: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
4734: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4735: ElSIF (l_return_status = OKL_API.G_RET_STS_ERROR) then
4736: raise OKL_API.G_EXCEPTION_ERROR;
4737: End If;
4738:
4739: l_selv_tbl.DELETE(1, l_selv_tbl.COUNT);
4740: l_stmv_rec := NULL;
4743: END LOOP;
4744:
4745: x_return_status := l_return_status;
4746:
4747: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
4748:
4749: EXCEPTION
4750: when OKL_API.G_EXCEPTION_ERROR then
4751: l_return_status := OKL_API.HANDLE_EXCEPTIONS(
4746:
4747: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
4748:
4749: EXCEPTION
4750: when OKL_API.G_EXCEPTION_ERROR then
4751: l_return_status := OKL_API.HANDLE_EXCEPTIONS(
4752: p_api_name => l_api_name,
4753: p_pkg_name => g_pkg_name,
4754: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
4747: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
4748:
4749: EXCEPTION
4750: when OKL_API.G_EXCEPTION_ERROR then
4751: l_return_status := OKL_API.HANDLE_EXCEPTIONS(
4752: p_api_name => l_api_name,
4753: p_pkg_name => g_pkg_name,
4754: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
4755: x_msg_count => x_msg_count,
4750: when OKL_API.G_EXCEPTION_ERROR then
4751: l_return_status := OKL_API.HANDLE_EXCEPTIONS(
4752: p_api_name => l_api_name,
4753: p_pkg_name => g_pkg_name,
4754: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
4755: x_msg_count => x_msg_count,
4756: x_msg_data => x_msg_data,
4757: p_api_type => g_api_type);
4758: x_return_status := l_return_status;
4756: x_msg_data => x_msg_data,
4757: p_api_type => g_api_type);
4758: x_return_status := l_return_status;
4759:
4760: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
4761: l_return_status := OKL_API.HANDLE_EXCEPTIONS(
4762: p_api_name => l_api_name,
4763: p_pkg_name => g_pkg_name,
4764: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
4757: p_api_type => g_api_type);
4758: x_return_status := l_return_status;
4759:
4760: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
4761: l_return_status := OKL_API.HANDLE_EXCEPTIONS(
4762: p_api_name => l_api_name,
4763: p_pkg_name => g_pkg_name,
4764: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
4765: x_msg_count => x_msg_count,
4760: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
4761: l_return_status := OKL_API.HANDLE_EXCEPTIONS(
4762: p_api_name => l_api_name,
4763: p_pkg_name => g_pkg_name,
4764: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
4765: x_msg_count => x_msg_count,
4766: x_msg_data => x_msg_data,
4767: p_api_type => g_api_type);
4768: x_return_status := l_return_status;
4771: End If;
4772:
4773:
4774: when OTHERS then
4775: l_return_status := OKL_API.HANDLE_EXCEPTIONS(
4776: p_api_name => l_api_name,
4777: p_pkg_name => g_pkg_name,
4778: p_exc_name => 'OTHERS',
4779: x_msg_count => x_msg_count,
4785: END alloc_strms_basis_capital;
4786:
4787: Procedure allocate_streams(
4788: p_api_version IN NUMBER,
4789: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
4790: x_return_status OUT NOCOPY VARCHAR2,
4791: x_msg_count OUT NOCOPY NUMBER,
4792: x_msg_data OUT NOCOPY VARCHAR2,
4793: p_chr_id IN NUMBER) AS
4793: p_chr_id IN NUMBER) AS
4794:
4795: l_api_name CONSTANT VARCHAR2(30) := 'ALLOCATE_STREAMS';
4796: l_api_version CONSTANT NUMBER := 1;
4797: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
4798: l_ctrt_cap_amnt NUMBER;
4799: l_strmele_rec l_strmele_csr%ROWTYPE;
4800: l_strmele_tbl strmele_tbl_type;
4801: i NUMBER;
4816: BEGIN
4817:
4818: print( l_api_name, 'begin');
4819:
4820: l_return_status := OKL_API.START_ACTIVITY(
4821: p_api_name => l_api_name,
4822: p_pkg_name => g_pkg_name,
4823: p_init_msg_list => p_init_msg_list,
4824: l_api_version => l_api_version,
4826: p_api_type => G_API_TYPE,
4827: x_return_status => x_return_status);
4828:
4829: -- check if activity started successfully
4830: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
4831: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4832: ElSIF (l_return_status = OKL_API.G_RET_STS_ERROR) then
4833: raise OKL_API.G_EXCEPTION_ERROR;
4834: End If;
4827: x_return_status => x_return_status);
4828:
4829: -- check if activity started successfully
4830: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
4831: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4832: ElSIF (l_return_status = OKL_API.G_RET_STS_ERROR) then
4833: raise OKL_API.G_EXCEPTION_ERROR;
4834: End If;
4835:
4828:
4829: -- check if activity started successfully
4830: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
4831: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4832: ElSIF (l_return_status = OKL_API.G_RET_STS_ERROR) then
4833: raise OKL_API.G_EXCEPTION_ERROR;
4834: End If;
4835:
4836: execute_formula(p_api_version => l_api_version,
4829: -- check if activity started successfully
4830: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
4831: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4832: ElSIF (l_return_status = OKL_API.G_RET_STS_ERROR) then
4833: raise OKL_API.G_EXCEPTION_ERROR;
4834: End If;
4835:
4836: execute_formula(p_api_version => l_api_version,
4837: p_init_msg_list => p_init_msg_list,
4845: x_value => l_ctrt_cap_amnt);
4846: print( l_api_name, 'execute formula', x_return_status);
4847:
4848: -- check if activity started successfully
4849: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
4850: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4851: ElSIF (l_return_status = OKL_API.G_RET_STS_ERROR) then
4852: raise OKL_API.G_EXCEPTION_ERROR;
4853: End If;
4846: print( l_api_name, 'execute formula', x_return_status);
4847:
4848: -- check if activity started successfully
4849: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
4850: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4851: ElSIF (l_return_status = OKL_API.G_RET_STS_ERROR) then
4852: raise OKL_API.G_EXCEPTION_ERROR;
4853: End If;
4854:
4847:
4848: -- check if activity started successfully
4849: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
4850: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4851: ElSIF (l_return_status = OKL_API.G_RET_STS_ERROR) then
4852: raise OKL_API.G_EXCEPTION_ERROR;
4853: End If;
4854:
4855: If (l_ctrt_cap_amnt <= 0) Then
4848: -- check if activity started successfully
4849: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
4850: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4851: ElSIF (l_return_status = OKL_API.G_RET_STS_ERROR) then
4852: raise OKL_API.G_EXCEPTION_ERROR;
4853: End If;
4854:
4855: If (l_ctrt_cap_amnt <= 0) Then
4856: okl_api.set_message(
4852: raise OKL_API.G_EXCEPTION_ERROR;
4853: End If;
4854:
4855: If (l_ctrt_cap_amnt <= 0) Then
4856: okl_api.set_message(
4857: p_app_name => G_APP_NAME,
4858: p_msg_name => 'G_INVALID_CONTRACT_CAP_AMNT');
4859: raise OKL_API.G_EXCEPTION_ERROR;
4860: End If;
4855: If (l_ctrt_cap_amnt <= 0) Then
4856: okl_api.set_message(
4857: p_app_name => G_APP_NAME,
4858: p_msg_name => 'G_INVALID_CONTRACT_CAP_AMNT');
4859: raise OKL_API.G_EXCEPTION_ERROR;
4860: End If;
4861:
4862: /*
4863: FOR j in 1..n l_strms_csr ( TO_NUMBER(p_chr_id ), 'STREAM TYPE')
4896: p_sty_id => l_strm_rec.sty_id,
4897: p_ctrt_cap_amnt => l_ctrt_cap_amnt,
4898: p_strmele_tbl => l_strmele_tbl );
4899:
4900: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4901: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4902: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4903: RAISE OKL_API.G_EXCEPTION_ERROR;
4904: END IF;
4897: p_ctrt_cap_amnt => l_ctrt_cap_amnt,
4898: p_strmele_tbl => l_strmele_tbl );
4899:
4900: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4901: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4902: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4903: RAISE OKL_API.G_EXCEPTION_ERROR;
4904: END IF;
4905:
4898: p_strmele_tbl => l_strmele_tbl );
4899:
4900: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4901: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4902: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4903: RAISE OKL_API.G_EXCEPTION_ERROR;
4904: END IF;
4905:
4906: l_strmele_tbl.DELETE(1, l_strmele_tbl.COUNT);
4899:
4900: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4901: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4902: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4903: RAISE OKL_API.G_EXCEPTION_ERROR;
4904: END IF;
4905:
4906: l_strmele_tbl.DELETE(1, l_strmele_tbl.COUNT);
4907:
4908: -- END LOOP;
4909:
4910: x_return_status := l_return_status;
4911:
4912: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
4913:
4914: EXCEPTION
4915: when OKL_API.G_EXCEPTION_ERROR then
4916: l_return_status := OKL_API.HANDLE_EXCEPTIONS(
4911:
4912: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
4913:
4914: EXCEPTION
4915: when OKL_API.G_EXCEPTION_ERROR then
4916: l_return_status := OKL_API.HANDLE_EXCEPTIONS(
4917: p_api_name => l_api_name,
4918: p_pkg_name => g_pkg_name,
4919: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
4912: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
4913:
4914: EXCEPTION
4915: when OKL_API.G_EXCEPTION_ERROR then
4916: l_return_status := OKL_API.HANDLE_EXCEPTIONS(
4917: p_api_name => l_api_name,
4918: p_pkg_name => g_pkg_name,
4919: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
4920: x_msg_count => x_msg_count,
4915: when OKL_API.G_EXCEPTION_ERROR then
4916: l_return_status := OKL_API.HANDLE_EXCEPTIONS(
4917: p_api_name => l_api_name,
4918: p_pkg_name => g_pkg_name,
4919: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
4920: x_msg_count => x_msg_count,
4921: x_msg_data => x_msg_data,
4922: p_api_type => g_api_type);
4923: x_return_status := l_return_status;
4921: x_msg_data => x_msg_data,
4922: p_api_type => g_api_type);
4923: x_return_status := l_return_status;
4924:
4925: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
4926: l_return_status := OKL_API.HANDLE_EXCEPTIONS(
4927: p_api_name => l_api_name,
4928: p_pkg_name => g_pkg_name,
4929: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
4922: p_api_type => g_api_type);
4923: x_return_status := l_return_status;
4924:
4925: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
4926: l_return_status := OKL_API.HANDLE_EXCEPTIONS(
4927: p_api_name => l_api_name,
4928: p_pkg_name => g_pkg_name,
4929: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
4930: x_msg_count => x_msg_count,
4925: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
4926: l_return_status := OKL_API.HANDLE_EXCEPTIONS(
4927: p_api_name => l_api_name,
4928: p_pkg_name => g_pkg_name,
4929: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
4930: x_msg_count => x_msg_count,
4931: x_msg_data => x_msg_data,
4932: p_api_type => g_api_type);
4933: x_return_status := l_return_status;
4935: CLOSE strm_name_csr;
4936: End If;
4937:
4938: when OTHERS then
4939: l_return_status := OKL_API.HANDLE_EXCEPTIONS(
4940: p_api_name => l_api_name,
4941: p_pkg_name => g_pkg_name,
4942: p_exc_name => 'OTHERS',
4943: x_msg_count => x_msg_count,
4947:
4948: End allocate_streams;
4949: -- Start modification 11i10 bakuchib
4950: PROCEDURE create_interim_rental_streams(p_api_version IN NUMBER,
4951: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
4952: x_return_status OUT NOCOPY VARCHAR2,
4953: x_msg_count OUT NOCOPY NUMBER,
4954: x_msg_data OUT NOCOPY VARCHAR2,
4955: p_chr_id IN NUMBER,
4954: x_msg_data OUT NOCOPY VARCHAR2,
4955: p_chr_id IN NUMBER,
4956: p_purpose IN VARCHAR2) AS
4957: l_api_name CONSTANT VARCHAR2(256) := 'INTERIM_STREAMS';
4958: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
4959: i NUMBER;
4960: j NUMBER;
4961: l_orig_amount NUMBER;
4962: l_rebook_amount NUMBER;
4964: error VARCHAR2(256);
4965: --styid NUMBER;
4966: styid strm_rec_type;
4967: stream_name VARCHAR2(256);
4968: lv_chr_secure VARCHAR2(3) := OKL_API.G_FALSE;
4969: ln_secure_amt NUMBER := 0;
4970: -- get the transaction number
4971: CURSOR l_strm_csr (chrId NUMBER, pp VARCHAR2 )
4972: IS
5081: lx_stmv_rec_secure Okl_Streams_pub.stmv_rec_type;
5082: lx_selv_tbl_secure Okl_Streams_pub.selv_tbl_type;
5083: lx_inv_agmt_chr_id_tbl okl_securitization_pvt.inv_agmt_chr_id_tbl_type;
5084: BEGIN
5085: x_return_status := OKL_API.G_RET_STS_SUCCESS;
5086: -- Call start_activity to create savepoint, check compatibility
5087: -- and initialize message list
5088: x_return_status := OKL_API.START_ACTIVITY (
5089: l_api_name
5084: BEGIN
5085: x_return_status := OKL_API.G_RET_STS_SUCCESS;
5086: -- Call start_activity to create savepoint, check compatibility
5087: -- and initialize message list
5088: x_return_status := OKL_API.START_ACTIVITY (
5089: l_api_name
5090: ,p_init_msg_list
5091: ,'_PVT'
5092: ,x_return_status);
5090: ,p_init_msg_list
5091: ,'_PVT'
5092: ,x_return_status);
5093: -- Check if activity started successfully
5094: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5095: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5096: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5097: RAISE OKL_API.G_EXCEPTION_ERROR;
5098: END IF;
5091: ,'_PVT'
5092: ,x_return_status);
5093: -- Check if activity started successfully
5094: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5095: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5096: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5097: RAISE OKL_API.G_EXCEPTION_ERROR;
5098: END IF;
5099: -- get the stream id
5092: ,x_return_status);
5093: -- Check if activity started successfully
5094: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5095: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5096: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5097: RAISE OKL_API.G_EXCEPTION_ERROR;
5098: END IF;
5099: -- get the stream id
5100: -- Code added and commented for user defined streams - HKPATEL
5093: -- Check if activity started successfully
5094: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5095: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5096: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5097: RAISE OKL_API.G_EXCEPTION_ERROR;
5098: END IF;
5099: -- get the stream id
5100: -- Code added and commented for user defined streams - HKPATEL
5101: IF(g_rep_req_yn = 'Y') THEN
5136: OPEN primary_sty_name_csr(p_chr_id => p_chr_id,
5137: p_purpose => 'REBOOK_BILLING_ADJUSTMENT');
5138: FETCH primary_sty_name_csr into l_strm_name;
5139: IF primary_sty_name_csr%NOTFOUND THEN
5140: okl_api.set_message(p_app_name => G_APP_NAME,
5141: p_msg_name => G_LLA_NO_MATCHING_RECORD,
5142: p_token1 => G_COL_NAME_TOKEN,
5143: p_token1_value => 'Stream name');
5144: RAISE OKL_API.G_EXCEPTION_ERROR;
5140: okl_api.set_message(p_app_name => G_APP_NAME,
5141: p_msg_name => G_LLA_NO_MATCHING_RECORD,
5142: p_token1 => G_COL_NAME_TOKEN,
5143: p_token1_value => 'Stream name');
5144: RAISE OKL_API.G_EXCEPTION_ERROR;
5145: END IF;
5146: CLOSE primary_sty_name_csr;
5147:
5148:
5148:
5149: OPEN get_styid_csr(p_strm_name => l_strm_name);
5150: FETCH get_styid_csr INTO l_styid_rec;
5151: IF get_styid_csr%NOTFOUND THEN
5152: okl_api.set_message(p_app_name => G_APP_NAME,
5153: p_msg_name => G_LLA_NO_MATCHING_RECORD,
5154: p_token1 => G_COL_NAME_TOKEN,
5155: p_token1_value => 'Stream name');
5156: RAISE OKL_API.G_EXCEPTION_ERROR;
5152: okl_api.set_message(p_app_name => G_APP_NAME,
5153: p_msg_name => G_LLA_NO_MATCHING_RECORD,
5154: p_token1 => G_COL_NAME_TOKEN,
5155: p_token1_value => 'Stream name');
5156: RAISE OKL_API.G_EXCEPTION_ERROR;
5157: END IF;
5158: CLOSE get_styid_csr;
5159:
5160:
5159:
5160:
5161:
5162: IF l_styid_rec.id = -1 THEN
5163: okl_api.set_message(p_app_name => G_APP_NAME,
5164: p_msg_name => G_INVALID_VALUE,
5165: p_token1 => G_COL_NAME_TOKEN,
5166: p_token1_value => 'Stream ID');
5167: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5163: okl_api.set_message(p_app_name => G_APP_NAME,
5164: p_msg_name => G_INVALID_VALUE,
5165: p_token1 => G_COL_NAME_TOKEN,
5166: p_token1_value => 'Stream ID');
5167: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5168: END IF;
5169: -- added code for user defined streams ends here
5170: */
5171: -- get the transaction number
5171: -- get the transaction number
5172: OPEN l_strm_csr (p_chr_id, p_purpose);
5173: FETCH l_strm_csr INTO l_strm_rec;
5174: IF l_strm_csr%NOTFOUND THEN
5175: okl_api.set_message(p_app_name => G_APP_NAME,
5176: p_msg_name => G_LLA_NO_MATCHING_RECORD,
5177: p_token1 => G_COL_NAME_TOKEN,
5178: p_token1_value => 'Chr_id and for '||p_purpose);
5179: RAISE OKL_API.G_EXCEPTION_ERROR;
5175: okl_api.set_message(p_app_name => G_APP_NAME,
5176: p_msg_name => G_LLA_NO_MATCHING_RECORD,
5177: p_token1 => G_COL_NAME_TOKEN,
5178: p_token1_value => 'Chr_id and for '||p_purpose);
5179: RAISE OKL_API.G_EXCEPTION_ERROR;
5180: END IF;
5181: CLOSE l_strm_csr;
5182: -- Get the header info
5183: OPEN l_hdr_csr (p_chr_id);
5182: -- Get the header info
5183: OPEN l_hdr_csr (p_chr_id);
5184: FETCH l_hdr_csr INTO l_hdr_rec;
5185: IF l_hdr_csr%NOTFOUND THEN
5186: okl_api.set_message(p_app_name => G_APP_NAME,
5187: p_msg_name => G_LLA_NO_MATCHING_RECORD,
5188: p_token1 => G_COL_NAME_TOKEN,
5189: p_token1_value => 'Chr_id ');
5190: RAISE OKL_API.G_EXCEPTION_ERROR;
5186: okl_api.set_message(p_app_name => G_APP_NAME,
5187: p_msg_name => G_LLA_NO_MATCHING_RECORD,
5188: p_token1 => G_COL_NAME_TOKEN,
5189: p_token1_value => 'Chr_id ');
5190: RAISE OKL_API.G_EXCEPTION_ERROR;
5191: END IF;
5192: CLOSE l_hdr_csr;
5193: -- Get the line info
5194: FOR l_line_rec IN l_line_csr (p_chr_id) LOOP
5212:
5213: OPEN l_billedrents_csr(l_hdr_rec.orig_system_id1, l_line_rec.orig_system_id1, p_purpose );
5214: FETCH l_billedrents_csr INTO l_orig_amount;
5215: IF l_billedrents_csr%NOTFOUND THEN
5216: okl_api.set_message(p_app_name => G_APP_NAME,
5217: p_msg_name => G_LLA_NO_MATCHING_RECORD,
5218: p_token1 => G_COL_NAME_TOKEN,
5219: p_token1_value => 'Orig System Chr_id/Line id and for '||p_purpose);
5220: x_return_status := OKL_API.G_RET_STS_ERROR;
5216: okl_api.set_message(p_app_name => G_APP_NAME,
5217: p_msg_name => G_LLA_NO_MATCHING_RECORD,
5218: p_token1 => G_COL_NAME_TOKEN,
5219: p_token1_value => 'Orig System Chr_id/Line id and for '||p_purpose);
5220: x_return_status := OKL_API.G_RET_STS_ERROR;
5221: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
5222: END IF;
5223: CLOSE l_billedrents_csr;
5224: -- get Billabel Rentals contract id sent as parameter
5217: p_msg_name => G_LLA_NO_MATCHING_RECORD,
5218: p_token1 => G_COL_NAME_TOKEN,
5219: p_token1_value => 'Orig System Chr_id/Line id and for '||p_purpose);
5220: x_return_status := OKL_API.G_RET_STS_ERROR;
5221: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
5222: END IF;
5223: CLOSE l_billedrents_csr;
5224: -- get Billabel Rentals contract id sent as parameter
5225: OPEN l_billedrents_csr(p_chr_id,l_line_rec.id,p_purpose );
5224: -- get Billabel Rentals contract id sent as parameter
5225: OPEN l_billedrents_csr(p_chr_id,l_line_rec.id,p_purpose );
5226: FETCH l_billedrents_csr INTO l_rebook_amount;
5227: IF l_billedrents_csr%NOTFOUND THEN
5228: okl_api.set_message(p_app_name => G_APP_NAME,
5229: p_msg_name => G_LLA_NO_MATCHING_RECORD,
5230: p_token1 => G_COL_NAME_TOKEN,
5231: p_token1_value => 'Chr_id/Line id and for '||p_purpose);
5232: x_return_status := OKL_API.G_RET_STS_ERROR;
5228: okl_api.set_message(p_app_name => G_APP_NAME,
5229: p_msg_name => G_LLA_NO_MATCHING_RECORD,
5230: p_token1 => G_COL_NAME_TOKEN,
5231: p_token1_value => 'Chr_id/Line id and for '||p_purpose);
5232: x_return_status := OKL_API.G_RET_STS_ERROR;
5233: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
5234: END IF;
5235: CLOSE l_billedrents_csr;
5236:
5229: p_msg_name => G_LLA_NO_MATCHING_RECORD,
5230: p_token1 => G_COL_NAME_TOKEN,
5231: p_token1_value => 'Chr_id/Line id and for '||p_purpose);
5232: x_return_status := OKL_API.G_RET_STS_ERROR;
5233: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
5234: END IF;
5235: CLOSE l_billedrents_csr;
5236:
5237:
5254: p_stmv_rec => l_stmv_rec_intm_rentals,
5255: p_selv_tbl => l_selv_tbl_intm_rentals,
5256: x_stmv_rec => x_stmv_rec,
5257: x_selv_tbl => x_selv_tbl);
5258: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5259: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
5260: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5261: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_ERROR);
5262: END IF;
5255: p_selv_tbl => l_selv_tbl_intm_rentals,
5256: x_stmv_rec => x_stmv_rec,
5257: x_selv_tbl => x_selv_tbl);
5258: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5259: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
5260: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5261: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_ERROR);
5262: END IF;
5263: END IF;
5256: x_stmv_rec => x_stmv_rec,
5257: x_selv_tbl => x_selv_tbl);
5258: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5259: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
5260: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5261: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_ERROR);
5262: END IF;
5263: END IF;
5264: -- Check for Original contract is securitized
5257: x_selv_tbl => x_selv_tbl);
5258: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5259: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
5260: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5261: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_ERROR);
5262: END IF;
5263: END IF;
5264: -- Check for Original contract is securitized
5265: okl_securitization_pvt.check_khr_securitized(
5273: p_effective_date_operator => okl_securitization_pvt.G_GREATER_THAN_EQUAL_TO,
5274: p_stream_type_subclass => l_styid_rec.stream_type_subclass,
5275: x_value => lv_chr_secure,
5276: x_inv_agmt_chr_id_tbl => lx_inv_agmt_chr_id_tbl);
5277: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5278: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
5279: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5280: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_ERROR);
5281: END IF;
5274: p_stream_type_subclass => l_styid_rec.stream_type_subclass,
5275: x_value => lv_chr_secure,
5276: x_inv_agmt_chr_id_tbl => lx_inv_agmt_chr_id_tbl);
5277: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5278: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
5279: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5280: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_ERROR);
5281: END IF;
5282: IF lv_chr_secure = OKL_API.G_TRUE THEN
5275: x_value => lv_chr_secure,
5276: x_inv_agmt_chr_id_tbl => lx_inv_agmt_chr_id_tbl);
5277: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5278: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
5279: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5280: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_ERROR);
5281: END IF;
5282: IF lv_chr_secure = OKL_API.G_TRUE THEN
5283: -- get the stream id
5276: x_inv_agmt_chr_id_tbl => lx_inv_agmt_chr_id_tbl);
5277: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5278: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
5279: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5280: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_ERROR);
5281: END IF;
5282: IF lv_chr_secure = OKL_API.G_TRUE THEN
5283: -- get the stream id
5284: -- code added for user defined stream
5278: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
5279: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5280: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_ERROR);
5281: END IF;
5282: IF lv_chr_secure = OKL_API.G_TRUE THEN
5283: -- get the stream id
5284: -- code added for user defined stream
5285: IF(g_rep_req_yn = 'Y') THEN
5286: get_primary_no_prc_stream_type
5315:
5316:
5317: FETCH get_styid_csr INTO l_styid_rec;
5318: IF get_styid_csr%NOTFOUND THEN
5319: okl_api.set_message(p_app_name => G_APP_NAME,
5320: p_msg_name => G_LLA_NO_MATCHING_RECORD,
5321: p_token1 => G_COL_NAME_TOKEN,
5322: p_token1_value => 'Stream name');
5323: x_return_status := OKL_API.G_RET_STS_ERROR;
5319: okl_api.set_message(p_app_name => G_APP_NAME,
5320: p_msg_name => G_LLA_NO_MATCHING_RECORD,
5321: p_token1 => G_COL_NAME_TOKEN,
5322: p_token1_value => 'Stream name');
5323: x_return_status := OKL_API.G_RET_STS_ERROR;
5324: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
5325: END IF;
5326: CLOSE get_styid_csr;
5327: IF l_styid_rec.id = -1 THEN
5320: p_msg_name => G_LLA_NO_MATCHING_RECORD,
5321: p_token1 => G_COL_NAME_TOKEN,
5322: p_token1_value => 'Stream name');
5323: x_return_status := OKL_API.G_RET_STS_ERROR;
5324: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
5325: END IF;
5326: CLOSE get_styid_csr;
5327: IF l_styid_rec.id = -1 THEN
5328: okl_api.set_message(p_app_name => G_APP_NAME,
5324: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
5325: END IF;
5326: CLOSE get_styid_csr;
5327: IF l_styid_rec.id = -1 THEN
5328: okl_api.set_message(p_app_name => G_APP_NAME,
5329: p_msg_name => G_INVALID_VALUE,
5330: p_token1 => G_COL_NAME_TOKEN,
5331: p_token1_value => 'Stream ID');
5332: x_return_status := OKL_API.G_RET_STS_ERROR;
5328: okl_api.set_message(p_app_name => G_APP_NAME,
5329: p_msg_name => G_INVALID_VALUE,
5330: p_token1 => G_COL_NAME_TOKEN,
5331: p_token1_value => 'Stream ID');
5332: x_return_status := OKL_API.G_RET_STS_ERROR;
5333: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
5334: END IF;
5335: */
5336: -- Added code for user defined stream ends here
5329: p_msg_name => G_INVALID_VALUE,
5330: p_token1 => G_COL_NAME_TOKEN,
5331: p_token1_value => 'Stream ID');
5332: x_return_status := OKL_API.G_RET_STS_ERROR;
5333: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
5334: END IF;
5335: */
5336: -- Added code for user defined stream ends here
5337: -- Get the amount
5347: p_effective_date_operator => okl_securitization_pvt.G_GREATER_THAN_EQUAL_TO,
5348: p_stream_type_subclass => l_styid_rec.stream_type_subclass,
5349: x_value => lv_chr_secure,
5350: x_inv_agmt_chr_id_tbl => lx_inv_agmt_chr_id_tbl);
5351: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5352: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
5353: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5354: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_ERROR);
5355: END IF;
5348: p_stream_type_subclass => l_styid_rec.stream_type_subclass,
5349: x_value => lv_chr_secure,
5350: x_inv_agmt_chr_id_tbl => lx_inv_agmt_chr_id_tbl);
5351: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5352: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
5353: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5354: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_ERROR);
5355: END IF;
5356:
5349: x_value => lv_chr_secure,
5350: x_inv_agmt_chr_id_tbl => lx_inv_agmt_chr_id_tbl);
5351: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5352: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
5353: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5354: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_ERROR);
5355: END IF;
5356:
5357: --Start of modification Bug#3293300 - BAKUCHIB
5350: x_inv_agmt_chr_id_tbl => lx_inv_agmt_chr_id_tbl);
5351: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5352: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
5353: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5354: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_ERROR);
5355: END IF;
5356:
5357: --Start of modification Bug#3293300 - BAKUCHIB
5358: FOR i in lx_inv_agmt_chr_id_tbl.FIRST..lx_inv_agmt_chr_id_tbl.LAST LOOP
5382: p_stmv_rec => l_stmv_rec_secure,
5383: p_selv_tbl => l_selv_tbl_secure,
5384: x_stmv_rec => lx_stmv_rec_secure,
5385: x_selv_tbl => lx_selv_tbl_secure);
5386: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5387: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
5388: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5389: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_ERROR);
5390: END IF;
5383: p_selv_tbl => l_selv_tbl_secure,
5384: x_stmv_rec => lx_stmv_rec_secure,
5385: x_selv_tbl => lx_selv_tbl_secure);
5386: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5387: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
5388: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5389: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_ERROR);
5390: END IF;
5391:
5384: x_stmv_rec => lx_stmv_rec_secure,
5385: x_selv_tbl => lx_selv_tbl_secure);
5386: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5387: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
5388: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5389: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_ERROR);
5390: END IF;
5391:
5392: END IF;
5385: x_selv_tbl => lx_selv_tbl_secure);
5386: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5387: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
5388: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5389: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_ERROR);
5390: END IF;
5391:
5392: END IF;
5393:
5402: l_selv_tbl_intm_rentals.DELETE;
5403: l_selv_tbl_intm_rentals := l_selv_tbl;
5404: l_stmv_rec_intm_rentals := l_stmv_rec;
5405: END LOOP;
5406: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5407: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5408: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5409: RAISE OKL_API.G_EXCEPTION_ERROR;
5410: END IF;
5403: l_selv_tbl_intm_rentals := l_selv_tbl;
5404: l_stmv_rec_intm_rentals := l_stmv_rec;
5405: END LOOP;
5406: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5407: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5408: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5409: RAISE OKL_API.G_EXCEPTION_ERROR;
5410: END IF;
5411: -- for the contract header level.
5404: l_stmv_rec_intm_rentals := l_stmv_rec;
5405: END LOOP;
5406: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5407: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5408: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5409: RAISE OKL_API.G_EXCEPTION_ERROR;
5410: END IF;
5411: -- for the contract header level.
5412: l_stmv_rec_intm_rentals.khr_id := TO_NUMBER(p_chr_id);
5405: END LOOP;
5406: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5407: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5408: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5409: RAISE OKL_API.G_EXCEPTION_ERROR;
5410: END IF;
5411: -- for the contract header level.
5412: l_stmv_rec_intm_rentals.khr_id := TO_NUMBER(p_chr_id);
5413: l_stmv_rec_intm_rentals.kle_id := NULL;
5424:
5425: OPEN l_billedrents_csr(l_hdr_rec.orig_system_id1, -1, p_purpose );
5426: FETCH l_billedrents_csr INTO l_orig_amount;
5427: IF l_billedrents_csr%NOTFOUND THEN
5428: okl_api.set_message(p_app_name => G_APP_NAME,
5429: p_msg_name => G_LLA_NO_MATCHING_RECORD,
5430: p_token1 => G_COL_NAME_TOKEN,
5431: p_token1_value => 'Orig System Chr_id and for '||p_purpose);
5432: RAISE OKL_API.G_EXCEPTION_ERROR;
5428: okl_api.set_message(p_app_name => G_APP_NAME,
5429: p_msg_name => G_LLA_NO_MATCHING_RECORD,
5430: p_token1 => G_COL_NAME_TOKEN,
5431: p_token1_value => 'Orig System Chr_id and for '||p_purpose);
5432: RAISE OKL_API.G_EXCEPTION_ERROR;
5433: END IF;
5434: CLOSE l_billedrents_csr;
5435: -- Get Billabel rentals
5436: OPEN l_billedrents_csr(TO_NUMBER(p_chr_id), -1, p_purpose );
5435: -- Get Billabel rentals
5436: OPEN l_billedrents_csr(TO_NUMBER(p_chr_id), -1, p_purpose );
5437: FETCH l_billedrents_csr INTO l_rebook_amount;
5438: IF l_billedrents_csr%NOTFOUND THEN
5439: okl_api.set_message(p_app_name => G_APP_NAME,
5440: p_msg_name => G_LLA_NO_MATCHING_RECORD,
5441: p_token1 => G_COL_NAME_TOKEN,
5442: p_token1_value => 'Chr_id and for '||p_purpose);
5443: RAISE OKL_API.G_EXCEPTION_ERROR;
5439: okl_api.set_message(p_app_name => G_APP_NAME,
5440: p_msg_name => G_LLA_NO_MATCHING_RECORD,
5441: p_token1 => G_COL_NAME_TOKEN,
5442: p_token1_value => 'Chr_id and for '||p_purpose);
5443: RAISE OKL_API.G_EXCEPTION_ERROR;
5444: END IF;
5445: CLOSE l_billedrents_csr;
5446:
5447: l_selv_tbl_intm_rentals(1).amount := l_rebook_amount - l_orig_amount;
5463: p_stmv_rec => l_stmv_rec_intm_rentals,
5464: p_selv_tbl => l_selv_tbl_intm_rentals,
5465: x_stmv_rec => x_stmv_rec,
5466: x_selv_tbl => x_selv_tbl);
5467: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5468: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5469: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5470: RAISE OKL_API.G_EXCEPTION_ERROR;
5471: END IF;
5464: p_selv_tbl => l_selv_tbl_intm_rentals,
5465: x_stmv_rec => x_stmv_rec,
5466: x_selv_tbl => x_selv_tbl);
5467: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5468: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5469: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5470: RAISE OKL_API.G_EXCEPTION_ERROR;
5471: END IF;
5472: END IF;
5465: x_stmv_rec => x_stmv_rec,
5466: x_selv_tbl => x_selv_tbl);
5467: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5468: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5469: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5470: RAISE OKL_API.G_EXCEPTION_ERROR;
5471: END IF;
5472: END IF;
5473: l_selv_tbl_intm_rentals.DELETE(1, l_selv_tbl_intm_rentals.LAST);
5466: x_selv_tbl => x_selv_tbl);
5467: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5468: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5469: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5470: RAISE OKL_API.G_EXCEPTION_ERROR;
5471: END IF;
5472: END IF;
5473: l_selv_tbl_intm_rentals.DELETE(1, l_selv_tbl_intm_rentals.LAST);
5474: l_stmv_rec_intm_rentals := NULL;
5472: END IF;
5473: l_selv_tbl_intm_rentals.DELETE(1, l_selv_tbl_intm_rentals.LAST);
5474: l_stmv_rec_intm_rentals := NULL;
5475: -- for the contract header level.
5476: OKL_API.END_ACTIVITY (x_msg_count,
5477: x_msg_data );
5478: EXCEPTION
5479: WHEN OKL_API.G_EXCEPTION_ERROR THEN
5480: IF l_strm_csr%ISOPEN THEN
5475: -- for the contract header level.
5476: OKL_API.END_ACTIVITY (x_msg_count,
5477: x_msg_data );
5478: EXCEPTION
5479: WHEN OKL_API.G_EXCEPTION_ERROR THEN
5480: IF l_strm_csr%ISOPEN THEN
5481: CLOSE l_strm_csr;
5482: END IF;
5483: IF l_billedrents_csr%ISOPEN THEN
5491: END IF;
5492: IF get_styid_csr%ISOPEN THEN
5493: CLOSE get_styid_csr;
5494: END IF;
5495: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5496: l_api_name,
5497: G_PKG_NAME,
5498: 'OKL_API.G_RET_STS_ERROR',
5499: x_msg_count,
5494: END IF;
5495: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5496: l_api_name,
5497: G_PKG_NAME,
5498: 'OKL_API.G_RET_STS_ERROR',
5499: x_msg_count,
5500: x_msg_data,
5501: '_PVT');
5502: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5498: 'OKL_API.G_RET_STS_ERROR',
5499: x_msg_count,
5500: x_msg_data,
5501: '_PVT');
5502: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5503: IF l_strm_csr%ISOPEN THEN
5504: CLOSE l_strm_csr;
5505: END IF;
5506: IF l_billedrents_csr%ISOPEN THEN
5514: END IF;
5515: IF get_styid_csr%ISOPEN THEN
5516: CLOSE get_styid_csr;
5517: END IF;
5518: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
5519: l_api_name,
5520: G_PKG_NAME,
5521: 'OKL_API.G_RET_STS_UNEXP_ERROR',
5522: x_msg_count,
5517: END IF;
5518: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
5519: l_api_name,
5520: G_PKG_NAME,
5521: 'OKL_API.G_RET_STS_UNEXP_ERROR',
5522: x_msg_count,
5523: x_msg_data,
5524: '_PVT');
5525: WHEN OTHERS THEN
5537: END IF;
5538: IF get_styid_csr%ISOPEN THEN
5539: CLOSE get_styid_csr;
5540: END IF;
5541: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
5542: l_api_name,
5543: G_PKG_NAME,
5544: 'OTHERS',
5545: x_msg_count,
5549:
5550: -- Added by HKPATEL for mass rebook fix
5551: PROCEDURE adjust_massrebook_streams(
5552: p_api_version IN NUMBER,
5553: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
5554: x_return_status OUT NOCOPY VARCHAR2,
5555: x_msg_count OUT NOCOPY NUMBER,
5556: x_msg_data OUT NOCOPY VARCHAR2,
5557: p_chr_id IN VARCHAR2,
5560: l_api_name CONSTANT VARCHAR2(256) := 'ADJUSTMENT_STREAMS';
5561: --styid NUMBER;
5562: styid strm_rec_type;
5563: stream_name VARCHAR2(256);
5564: lv_chr_secure VARCHAR2(3) := OKL_API.G_FALSE;
5565: ln_secure_amt NUMBER := 0;
5566:
5567: -- To check if the contract is MASS REBOOK candidate
5568: CURSOR c_chk_msrbk_csr(p_chr_id NUMBER)
5678: lx_stmv_rec_secure Okl_Streams_pub.stmv_rec_type;
5679: lx_selv_tbl_secure Okl_Streams_pub.selv_tbl_type;
5680: lx_inv_agmt_chr_id_tbl okl_securitization_pvt.inv_agmt_chr_id_tbl_type;
5681: Begin
5682: x_return_status := OKL_API.G_RET_STS_SUCCESS;
5683: -- Call start_activity to create savepoint, check compatibility
5684: -- and initialize message list
5685: x_return_status := OKL_API.START_ACTIVITY (
5686: l_api_name
5681: Begin
5682: x_return_status := OKL_API.G_RET_STS_SUCCESS;
5683: -- Call start_activity to create savepoint, check compatibility
5684: -- and initialize message list
5685: x_return_status := OKL_API.START_ACTIVITY (
5686: l_api_name
5687: ,p_init_msg_list
5688: ,'_PVT'
5689: ,x_return_status);
5687: ,p_init_msg_list
5688: ,'_PVT'
5689: ,x_return_status);
5690: -- Check if activity started successfully
5691: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5692: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5693: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5694: RAISE OKL_API.G_EXCEPTION_ERROR;
5695: END IF;
5688: ,'_PVT'
5689: ,x_return_status);
5690: -- Check if activity started successfully
5691: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5692: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5693: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5694: RAISE OKL_API.G_EXCEPTION_ERROR;
5695: END IF;
5696:
5689: ,x_return_status);
5690: -- Check if activity started successfully
5691: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5692: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5693: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5694: RAISE OKL_API.G_EXCEPTION_ERROR;
5695: END IF;
5696:
5697: OPEN l_hdr_pdt_csr(p_chr_id);
5690: -- Check if activity started successfully
5691: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5692: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5693: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5694: RAISE OKL_API.G_EXCEPTION_ERROR;
5695: END IF;
5696:
5697: OPEN l_hdr_pdt_csr(p_chr_id);
5698: FETCH l_hdr_pdt_csr INTO l_pdt_id_rec;
5737: --OPEN get_styid_csr(p_strm_name => 'BILLING ADJUSTMENT');
5738:
5739: FETCH get_styid_csr INTO l_styid_rec;
5740: IF get_styid_csr%NOTFOUND THEN
5741: okl_api.set_message(p_app_name => G_APP_NAME,
5742: p_msg_name => G_LLA_NO_MATCHING_RECORD,
5743: p_token1 => G_COL_NAME_TOKEN,
5744: p_token1_value => 'Stream name');
5745: RAISE OKL_API.G_EXCEPTION_ERROR;
5741: okl_api.set_message(p_app_name => G_APP_NAME,
5742: p_msg_name => G_LLA_NO_MATCHING_RECORD,
5743: p_token1 => G_COL_NAME_TOKEN,
5744: p_token1_value => 'Stream name');
5745: RAISE OKL_API.G_EXCEPTION_ERROR;
5746: END IF;
5747: CLOSE get_styid_csr;
5748: IF l_styid_rec.id = -1 THEN
5749: okl_api.set_message(p_app_name => G_APP_NAME,
5745: RAISE OKL_API.G_EXCEPTION_ERROR;
5746: END IF;
5747: CLOSE get_styid_csr;
5748: IF l_styid_rec.id = -1 THEN
5749: okl_api.set_message(p_app_name => G_APP_NAME,
5750: p_msg_name => G_INVALID_VALUE,
5751: p_token1 => G_COL_NAME_TOKEN,
5752: p_token1_value => 'Stream ID');
5753: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5749: okl_api.set_message(p_app_name => G_APP_NAME,
5750: p_msg_name => G_INVALID_VALUE,
5751: p_token1 => G_COL_NAME_TOKEN,
5752: p_token1_value => 'Stream ID');
5753: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5754: END IF;
5755: */
5756: -- Added code for user defined stream ends here
5757: -- Get the line info
5781: p_kle_id => r_line_rec.kle_id,
5782: p_purpose => p_purpose);
5783: FETCH l_bill_adjust_csr INTO ln_billed_adj_amt;
5784: IF l_bill_adjust_csr%NOTFOUND THEN
5785: okl_api.set_message(p_app_name => G_APP_NAME,
5786: p_msg_name => G_LLA_NO_MATCHING_RECORD,
5787: p_token1 => G_COL_NAME_TOKEN,
5788: p_token1_value => 'Chr_id/Line id and for '||p_purpose);
5789: x_return_status := OKL_API.G_RET_STS_ERROR;
5785: okl_api.set_message(p_app_name => G_APP_NAME,
5786: p_msg_name => G_LLA_NO_MATCHING_RECORD,
5787: p_token1 => G_COL_NAME_TOKEN,
5788: p_token1_value => 'Chr_id/Line id and for '||p_purpose);
5789: x_return_status := OKL_API.G_RET_STS_ERROR;
5790: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
5791: END IF;
5792: CLOSE l_bill_adjust_csr;
5793: -- to get the billed amount of all the rent that have been
5786: p_msg_name => G_LLA_NO_MATCHING_RECORD,
5787: p_token1 => G_COL_NAME_TOKEN,
5788: p_token1_value => 'Chr_id/Line id and for '||p_purpose);
5789: x_return_status := OKL_API.G_RET_STS_ERROR;
5790: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
5791: END IF;
5792: CLOSE l_bill_adjust_csr;
5793: -- to get the billed amount of all the rent that have been
5794: -- billed but does not include the billing adjustment stream amount
5796: p_kle_id => r_line_rec.kle_id,
5797: p_purpose => p_purpose);
5798: FETCH l_billedrents_csr INTO lt_bill_rec.billed_amt;
5799: IF l_billedrents_csr%NOTFOUND THEN
5800: okl_api.set_message(p_app_name => G_APP_NAME,
5801: p_msg_name => G_LLA_NO_MATCHING_RECORD,
5802: p_token1 => G_COL_NAME_TOKEN,
5803: p_token1_value => 'Chr_id/Line id and for '||p_purpose);
5804: x_return_status := OKL_API.G_RET_STS_ERROR;
5800: okl_api.set_message(p_app_name => G_APP_NAME,
5801: p_msg_name => G_LLA_NO_MATCHING_RECORD,
5802: p_token1 => G_COL_NAME_TOKEN,
5803: p_token1_value => 'Chr_id/Line id and for '||p_purpose);
5804: x_return_status := OKL_API.G_RET_STS_ERROR;
5805: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
5806: END IF;
5807: CLOSE l_billedrents_csr;
5808:
5801: p_msg_name => G_LLA_NO_MATCHING_RECORD,
5802: p_token1 => G_COL_NAME_TOKEN,
5803: p_token1_value => 'Chr_id/Line id and for '||p_purpose);
5804: x_return_status := OKL_API.G_RET_STS_ERROR;
5805: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
5806: END IF;
5807: CLOSE l_billedrents_csr;
5808:
5809: l_selv_tbl_intm_rentals(1).amount := (lt_bill_rec.billed_amt) * -1 + ln_billed_adj_amt;
5821: p_stmv_rec => l_stmv_rec_intm_rentals,
5822: p_selv_tbl => l_selv_tbl_intm_rentals,
5823: x_stmv_rec => x_stmv_rec,
5824: x_selv_tbl => x_selv_tbl);
5825: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5826: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
5827: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5828: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_ERROR);
5829: END IF;
5822: p_selv_tbl => l_selv_tbl_intm_rentals,
5823: x_stmv_rec => x_stmv_rec,
5824: x_selv_tbl => x_selv_tbl);
5825: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5826: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
5827: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5828: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_ERROR);
5829: END IF;
5830: END IF;
5823: x_stmv_rec => x_stmv_rec,
5824: x_selv_tbl => x_selv_tbl);
5825: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5826: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
5827: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5828: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_ERROR);
5829: END IF;
5830: END IF;
5831: -- Check for Original contract is securitized
5824: x_selv_tbl => x_selv_tbl);
5825: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5826: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
5827: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5828: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_ERROR);
5829: END IF;
5830: END IF;
5831: -- Check for Original contract is securitized
5832: okl_securitization_pvt.check_khr_securitized(
5840: p_effective_date_operator => okl_securitization_pvt.G_GREATER_THAN_EQUAL_TO,
5841: p_stream_type_subclass => l_styid_rec.stream_type_subclass,
5842: x_value => lv_chr_secure,
5843: x_inv_agmt_chr_id_tbl => lx_inv_agmt_chr_id_tbl);
5844: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5845: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
5846: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5847: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_ERROR);
5848: END IF;
5841: p_stream_type_subclass => l_styid_rec.stream_type_subclass,
5842: x_value => lv_chr_secure,
5843: x_inv_agmt_chr_id_tbl => lx_inv_agmt_chr_id_tbl);
5844: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5845: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
5846: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5847: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_ERROR);
5848: END IF;
5849: IF lv_chr_secure = OKL_API.G_TRUE THEN
5842: x_value => lv_chr_secure,
5843: x_inv_agmt_chr_id_tbl => lx_inv_agmt_chr_id_tbl);
5844: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5845: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
5846: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5847: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_ERROR);
5848: END IF;
5849: IF lv_chr_secure = OKL_API.G_TRUE THEN
5850: IF(g_rep_req_yn = 'Y') THEN
5843: x_inv_agmt_chr_id_tbl => lx_inv_agmt_chr_id_tbl);
5844: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5845: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
5846: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5847: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_ERROR);
5848: END IF;
5849: IF lv_chr_secure = OKL_API.G_TRUE THEN
5850: IF(g_rep_req_yn = 'Y') THEN
5851: get_primary_no_prc_stream_type
5845: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
5846: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5847: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_ERROR);
5848: END IF;
5849: IF lv_chr_secure = OKL_API.G_TRUE THEN
5850: IF(g_rep_req_yn = 'Y') THEN
5851: get_primary_no_prc_stream_type
5852: (
5853: p_khr_id =>p_chr_id,
5880: --OPEN get_styid_csr(p_strm_name => 'INVESTOR DISBURSEMENT ADJUSTMENT');
5881: OPEN get_styid_csr(p_strm_name => l_strm_name);
5882: FETCH get_styid_csr INTO l_styid_rec;
5883: IF get_styid_csr%NOTFOUND THEN
5884: okl_api.set_message(p_app_name => G_APP_NAME,
5885: p_msg_name => G_LLA_NO_MATCHING_RECORD,
5886: p_token1 => G_COL_NAME_TOKEN,
5887: p_token1_value => 'Stream name');
5888: x_return_status := OKL_API.G_RET_STS_ERROR;
5884: okl_api.set_message(p_app_name => G_APP_NAME,
5885: p_msg_name => G_LLA_NO_MATCHING_RECORD,
5886: p_token1 => G_COL_NAME_TOKEN,
5887: p_token1_value => 'Stream name');
5888: x_return_status := OKL_API.G_RET_STS_ERROR;
5889: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
5890: END IF;
5891: CLOSE get_styid_csr;
5892: IF l_styid_rec.id = -1 THEN
5885: p_msg_name => G_LLA_NO_MATCHING_RECORD,
5886: p_token1 => G_COL_NAME_TOKEN,
5887: p_token1_value => 'Stream name');
5888: x_return_status := OKL_API.G_RET_STS_ERROR;
5889: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
5890: END IF;
5891: CLOSE get_styid_csr;
5892: IF l_styid_rec.id = -1 THEN
5893: okl_api.set_message(p_app_name => G_APP_NAME,
5889: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
5890: END IF;
5891: CLOSE get_styid_csr;
5892: IF l_styid_rec.id = -1 THEN
5893: okl_api.set_message(p_app_name => G_APP_NAME,
5894: p_msg_name => G_INVALID_VALUE,
5895: p_token1 => G_COL_NAME_TOKEN,
5896: p_token1_value => 'Stream ID');
5897: x_return_status := OKL_API.G_RET_STS_ERROR;
5893: okl_api.set_message(p_app_name => G_APP_NAME,
5894: p_msg_name => G_INVALID_VALUE,
5895: p_token1 => G_COL_NAME_TOKEN,
5896: p_token1_value => 'Stream ID');
5897: x_return_status := OKL_API.G_RET_STS_ERROR;
5898: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
5899: END IF;
5900: */
5901: -- Get the amount
5894: p_msg_name => G_INVALID_VALUE,
5895: p_token1 => G_COL_NAME_TOKEN,
5896: p_token1_value => 'Stream ID');
5897: x_return_status := OKL_API.G_RET_STS_ERROR;
5898: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
5899: END IF;
5900: */
5901: -- Get the amount
5902: -- LOOP start.
5911: p_effective_date_operator => okl_securitization_pvt.G_GREATER_THAN_EQUAL_TO,
5912: p_stream_type_subclass => l_styid_rec.stream_type_subclass,
5913: x_value => lv_chr_secure,
5914: x_inv_agmt_chr_id_tbl => lx_inv_agmt_chr_id_tbl);
5915: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5916: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
5917: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5918: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_ERROR);
5919: END IF;
5912: p_stream_type_subclass => l_styid_rec.stream_type_subclass,
5913: x_value => lv_chr_secure,
5914: x_inv_agmt_chr_id_tbl => lx_inv_agmt_chr_id_tbl);
5915: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5916: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
5917: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5918: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_ERROR);
5919: END IF;
5920: FOR i in lx_inv_agmt_chr_id_tbl.FIRST..lx_inv_agmt_chr_id_tbl.LAST LOOP
5913: x_value => lv_chr_secure,
5914: x_inv_agmt_chr_id_tbl => lx_inv_agmt_chr_id_tbl);
5915: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5916: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
5917: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5918: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_ERROR);
5919: END IF;
5920: FOR i in lx_inv_agmt_chr_id_tbl.FIRST..lx_inv_agmt_chr_id_tbl.LAST LOOP
5921: ln_secure_amt := okl_investor_invoice_disb_pvt.get_disb_amt(
5914: x_inv_agmt_chr_id_tbl => lx_inv_agmt_chr_id_tbl);
5915: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5916: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
5917: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5918: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_ERROR);
5919: END IF;
5920: FOR i in lx_inv_agmt_chr_id_tbl.FIRST..lx_inv_agmt_chr_id_tbl.LAST LOOP
5921: ln_secure_amt := okl_investor_invoice_disb_pvt.get_disb_amt(
5922: p_ia_id => lx_inv_agmt_chr_id_tbl(i).khr_id,
5938: p_stmv_rec => l_stmv_rec_secure,
5939: p_selv_tbl => l_selv_tbl_secure,
5940: x_stmv_rec => lx_stmv_rec_secure,
5941: x_selv_tbl => lx_selv_tbl_secure);
5942: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5943: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
5944: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5945: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_ERROR);
5946: END IF;
5939: p_selv_tbl => l_selv_tbl_secure,
5940: x_stmv_rec => lx_stmv_rec_secure,
5941: x_selv_tbl => lx_selv_tbl_secure);
5942: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5943: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
5944: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5945: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_ERROR);
5946: END IF;
5947: END IF;
5940: x_stmv_rec => lx_stmv_rec_secure,
5941: x_selv_tbl => lx_selv_tbl_secure);
5942: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5943: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
5944: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5945: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_ERROR);
5946: END IF;
5947: END IF;
5948: l_selv_tbl_secure.DELETE;
5941: x_selv_tbl => lx_selv_tbl_secure);
5942: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5943: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
5944: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5945: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_ERROR);
5946: END IF;
5947: END IF;
5948: l_selv_tbl_secure.DELETE;
5949: l_selv_tbl_secure := l_selv_tbl;
5953: l_selv_tbl_intm_rentals.DELETE;
5954: l_selv_tbl_intm_rentals := l_selv_tbl;
5955: l_stmv_rec_intm_rentals := l_stmv_rec;
5956: END LOOP;
5957: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5958: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5959: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5960: RAISE OKL_API.G_EXCEPTION_ERROR;
5961: END IF;
5954: l_selv_tbl_intm_rentals := l_selv_tbl;
5955: l_stmv_rec_intm_rentals := l_stmv_rec;
5956: END LOOP;
5957: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5958: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5959: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5960: RAISE OKL_API.G_EXCEPTION_ERROR;
5961: END IF;
5962: -- generate for the contract lines
5955: l_stmv_rec_intm_rentals := l_stmv_rec;
5956: END LOOP;
5957: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5958: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5959: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5960: RAISE OKL_API.G_EXCEPTION_ERROR;
5961: END IF;
5962: -- generate for the contract lines
5963: l_stmv_rec_intm_rentals.khr_id := p_chr_id;
5956: END LOOP;
5957: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5958: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5959: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5960: RAISE OKL_API.G_EXCEPTION_ERROR;
5961: END IF;
5962: -- generate for the contract lines
5963: l_stmv_rec_intm_rentals.khr_id := p_chr_id;
5964: l_stmv_rec_intm_rentals.kle_id := NULL;
5979: p_kle_id => NULL,
5980: p_purpose => p_purpose);
5981: FETCH l_bill_adjust_csr INTO ln_billed_adj_amt;
5982: IF l_bill_adjust_csr%NOTFOUND THEN
5983: okl_api.set_message(p_app_name => G_APP_NAME,
5984: p_msg_name => G_LLA_NO_MATCHING_RECORD,
5985: p_token1 => G_COL_NAME_TOKEN,
5986: p_token1_value => 'Chr_id/Line id and for '||p_purpose);
5987: x_return_status := OKL_API.G_RET_STS_ERROR;
5983: okl_api.set_message(p_app_name => G_APP_NAME,
5984: p_msg_name => G_LLA_NO_MATCHING_RECORD,
5985: p_token1 => G_COL_NAME_TOKEN,
5986: p_token1_value => 'Chr_id/Line id and for '||p_purpose);
5987: x_return_status := OKL_API.G_RET_STS_ERROR;
5988: RAISE OKL_API.G_EXCEPTION_ERROR;
5989: END IF;
5990: CLOSE l_bill_adjust_csr;
5991: -- to get the billed amount of all the rent that have been
5984: p_msg_name => G_LLA_NO_MATCHING_RECORD,
5985: p_token1 => G_COL_NAME_TOKEN,
5986: p_token1_value => 'Chr_id/Line id and for '||p_purpose);
5987: x_return_status := OKL_API.G_RET_STS_ERROR;
5988: RAISE OKL_API.G_EXCEPTION_ERROR;
5989: END IF;
5990: CLOSE l_bill_adjust_csr;
5991: -- to get the billed amount of all the rent that have been
5992: -- billed but does not include the billing adjustment stream amount
5994: p_kle_id => NULL,
5995: p_purpose => p_purpose);
5996: FETCH l_billedrents_csr INTO lt_bill_rec.billed_amt;
5997: IF l_billedrents_csr%NOTFOUND THEN
5998: okl_api.set_message(p_app_name => G_APP_NAME,
5999: p_msg_name => G_LLA_NO_MATCHING_RECORD,
6000: p_token1 => G_COL_NAME_TOKEN,
6001: p_token1_value => 'Chr_id/Line id and for '||p_purpose);
6002: x_return_status := OKL_API.G_RET_STS_ERROR;
5998: okl_api.set_message(p_app_name => G_APP_NAME,
5999: p_msg_name => G_LLA_NO_MATCHING_RECORD,
6000: p_token1 => G_COL_NAME_TOKEN,
6001: p_token1_value => 'Chr_id/Line id and for '||p_purpose);
6002: x_return_status := OKL_API.G_RET_STS_ERROR;
6003: RAISE OKL_API.G_EXCEPTION_ERROR;
6004: END IF;
6005: CLOSE l_billedrents_csr;
6006:
5999: p_msg_name => G_LLA_NO_MATCHING_RECORD,
6000: p_token1 => G_COL_NAME_TOKEN,
6001: p_token1_value => 'Chr_id/Line id and for '||p_purpose);
6002: x_return_status := OKL_API.G_RET_STS_ERROR;
6003: RAISE OKL_API.G_EXCEPTION_ERROR;
6004: END IF;
6005: CLOSE l_billedrents_csr;
6006:
6007: l_selv_tbl_intm_rentals(1).amount := (lt_bill_rec.billed_amt) * -1 + ln_billed_adj_amt;
6019: p_stmv_rec => l_stmv_rec_intm_rentals,
6020: p_selv_tbl => l_selv_tbl_intm_rentals,
6021: x_stmv_rec => x_stmv_rec,
6022: x_selv_tbl => x_selv_tbl);
6023: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6024: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6025: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6026: RAISE OKL_API.G_EXCEPTION_ERROR;
6027: END IF;
6020: p_selv_tbl => l_selv_tbl_intm_rentals,
6021: x_stmv_rec => x_stmv_rec,
6022: x_selv_tbl => x_selv_tbl);
6023: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6024: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6025: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6026: RAISE OKL_API.G_EXCEPTION_ERROR;
6027: END IF;
6028: END IF;
6021: x_stmv_rec => x_stmv_rec,
6022: x_selv_tbl => x_selv_tbl);
6023: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6024: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6025: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6026: RAISE OKL_API.G_EXCEPTION_ERROR;
6027: END IF;
6028: END IF;
6029: END IF;
6022: x_selv_tbl => x_selv_tbl);
6023: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6024: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6025: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6026: RAISE OKL_API.G_EXCEPTION_ERROR;
6027: END IF;
6028: END IF;
6029: END IF;
6030: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6026: RAISE OKL_API.G_EXCEPTION_ERROR;
6027: END IF;
6028: END IF;
6029: END IF;
6030: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6031: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6032: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6033: RAISE OKL_API.G_EXCEPTION_ERROR;
6034: END IF;
6027: END IF;
6028: END IF;
6029: END IF;
6030: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6031: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6032: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6033: RAISE OKL_API.G_EXCEPTION_ERROR;
6034: END IF;
6035:
6028: END IF;
6029: END IF;
6030: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6031: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6032: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6033: RAISE OKL_API.G_EXCEPTION_ERROR;
6034: END IF;
6035:
6036: OKL_API.END_ACTIVITY (x_msg_count,
6029: END IF;
6030: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6031: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6032: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6033: RAISE OKL_API.G_EXCEPTION_ERROR;
6034: END IF;
6035:
6036: OKL_API.END_ACTIVITY (x_msg_count,
6037: x_msg_data );
6032: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6033: RAISE OKL_API.G_EXCEPTION_ERROR;
6034: END IF;
6035:
6036: OKL_API.END_ACTIVITY (x_msg_count,
6037: x_msg_data );
6038: EXCEPTION
6039: WHEN OKL_API.G_EXCEPTION_ERROR then
6040: IF c_chk_msrbk_csr%ISOPEN THEN
6035:
6036: OKL_API.END_ACTIVITY (x_msg_count,
6037: x_msg_data );
6038: EXCEPTION
6039: WHEN OKL_API.G_EXCEPTION_ERROR then
6040: IF c_chk_msrbk_csr%ISOPEN THEN
6041: CLOSE c_chk_msrbk_csr;
6042: END IF;
6043: IF l_billedrents_csr%ISOPEN THEN
6054: END IF;
6055: IF l_trx_num_csr%ISOPEN THEN
6056: CLOSE l_trx_num_csr;
6057: END IF;
6058: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
6059: l_api_name,
6060: G_PKG_NAME,
6061: 'OKL_API.G_RET_STS_ERROR',
6062: x_msg_count,
6057: END IF;
6058: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
6059: l_api_name,
6060: G_PKG_NAME,
6061: 'OKL_API.G_RET_STS_ERROR',
6062: x_msg_count,
6063: x_msg_data,
6064: '_PVT');
6065: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
6061: 'OKL_API.G_RET_STS_ERROR',
6062: x_msg_count,
6063: x_msg_data,
6064: '_PVT');
6065: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
6066: IF c_chk_msrbk_csr%ISOPEN THEN
6067: CLOSE c_chk_msrbk_csr;
6068: END IF;
6069: IF l_billedrents_csr%ISOPEN THEN
6080: END IF;
6081: IF l_trx_num_csr%ISOPEN THEN
6082: CLOSE l_trx_num_csr;
6083: END IF;
6084: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
6085: l_api_name,
6086: G_PKG_NAME,
6087: 'OKL_API.G_RET_STS_UNEXP_ERROR',
6088: x_msg_count,
6083: END IF;
6084: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
6085: l_api_name,
6086: G_PKG_NAME,
6087: 'OKL_API.G_RET_STS_UNEXP_ERROR',
6088: x_msg_count,
6089: x_msg_data,
6090: '_PVT');
6091: WHEN OTHERS then
6106: END IF;
6107: IF l_trx_num_csr%ISOPEN THEN
6108: CLOSE l_trx_num_csr;
6109: END IF;
6110: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
6111: l_api_name,
6112: G_PKG_NAME,
6113: 'OTHERS',
6114: x_msg_count,
6120: -- End modification 11i10 bakuchib
6121: -- Start modification 11i10 bakuchib
6122: procedure create_advance_rental_streams(
6123: p_api_version IN NUMBER,
6124: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
6125: x_return_status OUT NOCOPY VARCHAR2,
6126: x_msg_count OUT NOCOPY NUMBER,
6127: x_msg_data OUT NOCOPY VARCHAR2,
6128: p_chr_id IN NUMBER,
6273: l_next_position NUMBER;
6274: --Bug 4414441 - End of Changes
6275: BEGIN
6276: print( l_api_name, 'begin');
6277: x_return_status := OKL_API.START_ACTIVITY(
6278: p_api_name => l_api_name,
6279: p_pkg_name => g_pkg_name,
6280: p_init_msg_list => p_init_msg_list,
6281: l_api_version => l_api_version,
6282: p_api_version => p_api_version,
6283: p_api_type => G_API_TYPE,
6284: x_return_status => x_return_status);
6285: -- check if activity started successfully
6286: If (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
6287: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6288: ElSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
6289: RAISE OKL_API.G_EXCEPTION_ERROR;
6290: End If;
6283: p_api_type => G_API_TYPE,
6284: x_return_status => x_return_status);
6285: -- check if activity started successfully
6286: If (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
6287: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6288: ElSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
6289: RAISE OKL_API.G_EXCEPTION_ERROR;
6290: End If;
6291:
6284: x_return_status => x_return_status);
6285: -- check if activity started successfully
6286: If (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
6287: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6288: ElSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
6289: RAISE OKL_API.G_EXCEPTION_ERROR;
6290: End If;
6291:
6292: OPEN l_stmp_yn_csr (TO_NUMBER(p_chr_id), p_purpose);
6285: -- check if activity started successfully
6286: If (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
6287: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6288: ElSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
6289: RAISE OKL_API.G_EXCEPTION_ERROR;
6290: End If;
6291:
6292: OPEN l_stmp_yn_csr (TO_NUMBER(p_chr_id), p_purpose);
6293: FETCH l_stmp_yn_csr INTO l_stmp_yn_rec;
6526: ,p_selv_tbl => l_selv_tbl
6527: ,x_stmv_rec => x_stmv_rec
6528: ,x_selv_tbl => x_selv_tbl);
6529:
6530: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
6531: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6532: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
6533: RAISE OKL_API.G_EXCEPTION_ERROR;
6534: END IF;
6527: ,x_stmv_rec => x_stmv_rec
6528: ,x_selv_tbl => x_selv_tbl);
6529:
6530: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
6531: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6532: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
6533: RAISE OKL_API.G_EXCEPTION_ERROR;
6534: END IF;
6535: ELSE
6528: ,x_selv_tbl => x_selv_tbl);
6529:
6530: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
6531: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6532: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
6533: RAISE OKL_API.G_EXCEPTION_ERROR;
6534: END IF;
6535: ELSE
6536: -- FOR ISG store the value for the first element alone
6529:
6530: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
6531: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6532: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
6533: RAISE OKL_API.G_EXCEPTION_ERROR;
6534: END IF;
6535: ELSE
6536: -- FOR ISG store the value for the first element alone
6537: -- as the sum of all the elements based on the structure (1,2,3)
6549: ,p_selv_tbl => l_selv_tbl_adv_rentals
6550: ,x_stmv_rec => x_stmv_rec
6551: ,x_selv_tbl => x_selv_tbl);
6552:
6553: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
6554: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6555: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
6556: RAISE OKL_API.G_EXCEPTION_ERROR;
6557: END IF;
6550: ,x_stmv_rec => x_stmv_rec
6551: ,x_selv_tbl => x_selv_tbl);
6552:
6553: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
6554: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6555: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
6556: RAISE OKL_API.G_EXCEPTION_ERROR;
6557: END IF;
6558: l_selv_tbl.DELETE(1, l_selv_tbl.COUNT);
6551: ,x_selv_tbl => x_selv_tbl);
6552:
6553: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
6554: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6555: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
6556: RAISE OKL_API.G_EXCEPTION_ERROR;
6557: END IF;
6558: l_selv_tbl.DELETE(1, l_selv_tbl.COUNT);
6559: l_selv_tbl_adv_rentals.DELETE(1, l_selv_tbl_adv_rentals.COUNT);
6552:
6553: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
6554: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6555: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
6556: RAISE OKL_API.G_EXCEPTION_ERROR;
6557: END IF;
6558: l_selv_tbl.DELETE(1, l_selv_tbl.COUNT);
6559: l_selv_tbl_adv_rentals.DELETE(1, l_selv_tbl_adv_rentals.COUNT);
6560: l_stmv_rec := NULL;
6560: l_stmv_rec := NULL;
6561: l_stmv_rec_adv_rentals := NULL;
6562: /* Dont raise any exceptions if you dont find any thing for rent streams ..
6563: ELSE
6564: RAISE OKL_API.G_EXCEPTION_ERROR;
6565: */
6566: END IF;
6567: CLOSE l_Strm_csr;
6568: END IF;
6569: END LOOP;
6570: --Bug 4346646 - End of Changes
6571:
6572: print( l_api_name, 'end', x_return_status);
6573: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
6574: EXCEPTION
6575: WHEN OKL_API.G_EXCEPTION_ERROR THEN
6576: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
6577: p_api_name => l_api_name,
6571:
6572: print( l_api_name, 'end', x_return_status);
6573: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
6574: EXCEPTION
6575: WHEN OKL_API.G_EXCEPTION_ERROR THEN
6576: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
6577: p_api_name => l_api_name,
6578: p_pkg_name => g_pkg_name,
6579: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
6572: print( l_api_name, 'end', x_return_status);
6573: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
6574: EXCEPTION
6575: WHEN OKL_API.G_EXCEPTION_ERROR THEN
6576: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
6577: p_api_name => l_api_name,
6578: p_pkg_name => g_pkg_name,
6579: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
6580: x_msg_count => x_msg_count,
6575: WHEN OKL_API.G_EXCEPTION_ERROR THEN
6576: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
6577: p_api_name => l_api_name,
6578: p_pkg_name => g_pkg_name,
6579: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
6580: x_msg_count => x_msg_count,
6581: x_msg_data => x_msg_data,
6582: p_api_type => g_api_type);
6583: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
6579: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
6580: x_msg_count => x_msg_count,
6581: x_msg_data => x_msg_data,
6582: p_api_type => g_api_type);
6583: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
6584: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
6585: p_api_name => l_api_name,
6586: p_pkg_name => g_pkg_name,
6587: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
6580: x_msg_count => x_msg_count,
6581: x_msg_data => x_msg_data,
6582: p_api_type => g_api_type);
6583: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
6584: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
6585: p_api_name => l_api_name,
6586: p_pkg_name => g_pkg_name,
6587: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
6588: x_msg_count => x_msg_count,
6583: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
6584: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
6585: p_api_name => l_api_name,
6586: p_pkg_name => g_pkg_name,
6587: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
6588: x_msg_count => x_msg_count,
6589: x_msg_data => x_msg_data,
6590: p_api_type => g_api_type);
6591: If( strm_name_csr%ISOPEN ) Then
6591: If( strm_name_csr%ISOPEN ) Then
6592: CLOSE strm_name_csr;
6593: End If;
6594: WHEN OTHERS THEN
6595: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
6596: p_api_name => l_api_name,
6597: p_pkg_name => g_pkg_name,
6598: p_exc_name => 'OTHERS',
6599: x_msg_count => x_msg_count,
6604: -- End modification 11i10 bakuchib
6605: -- Start modification Bug#3121708 bakuchib
6606: Procedure update_contract_yields(
6607: p_api_version IN NUMBER,
6608: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
6609: x_return_status OUT NOCOPY VARCHAR2,
6610: x_msg_count OUT NOCOPY NUMBER,
6611: x_msg_data OUT NOCOPY VARCHAR2,
6612: p_chr_id IN VARCHAR2,
6613: p_chr_yields IN yields_rec_type) AS
6614:
6615: l_api_name CONSTANT VARCHAR2(30) := 'UPDATE_CONTRACT_YIELDS';
6616: l_api_version CONSTANT NUMBER := 1;
6617: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
6618:
6619: pl_chrv_rec okl_okc_migration_pvt.chrv_rec_type;
6620: pl_khrv_rec okl_contract_pvt.khrv_rec_type;
6621: xl_chrv_rec okl_okc_migration_pvt.chrv_rec_type;
6674: begin
6675:
6676: print( l_api_name, 'begin');
6677:
6678: x_return_status := OKL_API.START_ACTIVITY(
6679: p_api_name => l_api_name,
6680: p_pkg_name => g_pkg_name,
6681: p_init_msg_list => p_init_msg_list,
6682: l_api_version => l_api_version,
6684: p_api_type => G_API_TYPE,
6685: x_return_status => x_return_status);
6686:
6687: -- check if activity started successfully
6688: If (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
6689: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6690: ElSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
6691: raise OKL_API.G_EXCEPTION_ERROR;
6692: End If;
6685: x_return_status => x_return_status);
6686:
6687: -- check if activity started successfully
6688: If (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
6689: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6690: ElSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
6691: raise OKL_API.G_EXCEPTION_ERROR;
6692: End If;
6693: OPEN validate_sub_line(p_dnz_chr_id => l_chr_id);
6686:
6687: -- check if activity started successfully
6688: If (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
6689: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6690: ElSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
6691: raise OKL_API.G_EXCEPTION_ERROR;
6692: End If;
6693: OPEN validate_sub_line(p_dnz_chr_id => l_chr_id);
6694: FETCH validate_sub_line INTO ln_sub_exists;
6687: -- check if activity started successfully
6688: If (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
6689: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6690: ElSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
6691: raise OKL_API.G_EXCEPTION_ERROR;
6692: End If;
6693: OPEN validate_sub_line(p_dnz_chr_id => l_chr_id);
6694: FETCH validate_sub_line INTO ln_sub_exists;
6695: CLOSE validate_sub_line;
6753: p_init_msg_list => p_init_msg_list,
6754: x_return_status => x_return_status,
6755: x_msg_count => x_msg_count,
6756: x_msg_data => x_msg_data,
6757: p_restricted_update => OKL_API.G_FALSE,
6758: p_chrv_rec => pl_chrv_rec,
6759: p_khrv_rec => pl_khrv_rec,
6760: p_edit_mode => 'N',
6761: x_chrv_rec => xl_chrv_rec,
6761: x_chrv_rec => xl_chrv_rec,
6762: x_khrv_rec => xl_khrv_rec);
6763:
6764:
6765: If (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
6766: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6767: ElSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
6768: raise OKL_API.G_EXCEPTION_ERROR;
6769: End If;
6762: x_khrv_rec => xl_khrv_rec);
6763:
6764:
6765: If (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
6766: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6767: ElSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
6768: raise OKL_API.G_EXCEPTION_ERROR;
6769: End If;
6770:
6763:
6764:
6765: If (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
6766: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6767: ElSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
6768: raise OKL_API.G_EXCEPTION_ERROR;
6769: End If;
6770:
6771:
6764:
6765: If (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
6766: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6767: ElSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
6768: raise OKL_API.G_EXCEPTION_ERROR;
6769: End If;
6770:
6771:
6772: print( l_api_name, 'end', x_return_status);
6770:
6771:
6772: print( l_api_name, 'end', x_return_status);
6773:
6774: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
6775:
6776: Exception
6777: when OKL_API.G_EXCEPTION_ERROR then
6778: IF validate_sub_line%ISOPEN THEN
6773:
6774: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
6775:
6776: Exception
6777: when OKL_API.G_EXCEPTION_ERROR then
6778: IF validate_sub_line%ISOPEN THEN
6779: CLOSE validate_sub_line;
6780: END IF;
6781: IF validate_esg_isg%ISOPEN THEN
6780: END IF;
6781: IF validate_esg_isg%ISOPEN THEN
6782: CLOSE validate_esg_isg;
6783: END IF;
6784: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
6785: p_api_name => l_api_name,
6786: p_pkg_name => g_pkg_name,
6787: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
6788: x_msg_count => x_msg_count,
6783: END IF;
6784: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
6785: p_api_name => l_api_name,
6786: p_pkg_name => g_pkg_name,
6787: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
6788: x_msg_count => x_msg_count,
6789: x_msg_data => x_msg_data,
6790: p_api_type => g_api_type);
6791: IF l_hdr_csr%ISOPEN THEN
6791: IF l_hdr_csr%ISOPEN THEN
6792: CLOSE l_hdr_csr;
6793: End If;
6794:
6795: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
6796: IF validate_sub_line%ISOPEN THEN
6797: CLOSE validate_sub_line;
6798: END IF;
6799: IF validate_esg_isg%ISOPEN THEN
6798: END IF;
6799: IF validate_esg_isg%ISOPEN THEN
6800: CLOSE validate_esg_isg;
6801: END IF;
6802: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
6803: p_api_name => l_api_name,
6804: p_pkg_name => g_pkg_name,
6805: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
6806: x_msg_count => x_msg_count,
6801: END IF;
6802: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
6803: p_api_name => l_api_name,
6804: p_pkg_name => g_pkg_name,
6805: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
6806: x_msg_count => x_msg_count,
6807: x_msg_data => x_msg_data,
6808: p_api_type => g_api_type);
6809:
6817: END IF;
6818: IF validate_esg_isg%ISOPEN THEN
6819: CLOSE validate_esg_isg;
6820: END IF;
6821: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
6822: p_api_name => l_api_name,
6823: p_pkg_name => g_pkg_name,
6824: p_exc_name => 'OTHERS',
6825: x_msg_count => x_msg_count,
6836: --Added by bkatraga for bug 13447258
6837: -- This procedure will copy the variable rate created streams for terminated assets
6838: PROCEDURE COPY_VARIABLE_RATE_STREAMS(
6839: p_api_version IN NUMBER,
6840: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
6841: x_return_status OUT NOCOPY VARCHAR2,
6842: x_msg_count OUT NOCOPY NUMBER,
6843: x_msg_data OUT NOCOPY VARCHAR2,
6844: p_chr_id IN VARCHAR2,
6901: l_kle_id OKC_K_LINES_B.ID%TYPE;
6902:
6903: BEGIN
6904:
6905: x_return_status := OKL_API.G_RET_STS_SUCCESS;
6906:
6907: -- Call start_activity to create savepoint, check compatibility
6908: -- and initialize message list
6909: x_return_status := OKL_API.START_ACTIVITY (
6905: x_return_status := OKL_API.G_RET_STS_SUCCESS;
6906:
6907: -- Call start_activity to create savepoint, check compatibility
6908: -- and initialize message list
6909: x_return_status := OKL_API.START_ACTIVITY (
6910: l_api_name
6911: ,p_init_msg_list
6912: ,'_PVT'
6913: ,x_return_status);
6911: ,p_init_msg_list
6912: ,'_PVT'
6913: ,x_return_status);
6914: -- Check if activity started successfully
6915: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6916: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6917: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6918: RAISE OKL_API.G_EXCEPTION_ERROR;
6919: END IF;
6912: ,'_PVT'
6913: ,x_return_status);
6914: -- Check if activity started successfully
6915: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6916: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6917: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6918: RAISE OKL_API.G_EXCEPTION_ERROR;
6919: END IF;
6920:
6913: ,x_return_status);
6914: -- Check if activity started successfully
6915: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6916: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6917: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6918: RAISE OKL_API.G_EXCEPTION_ERROR;
6919: END IF;
6920:
6921: l_strm_index := 0;
6914: -- Check if activity started successfully
6915: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6916: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6917: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6918: RAISE OKL_API.G_EXCEPTION_ERROR;
6919: END IF;
6920:
6921: l_strm_index := 0;
6922: l_sel_index := 0;
6964: , l_stmv_tbl
6965: , l_selv_tbl
6966: , lx_stmv_tbl
6967: , lx_selv_tbl);
6968: IF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6969: RAISE OKL_API.G_EXCEPTION_ERROR;
6970: ELSIF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
6971: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6972: END IF;
6965: , l_selv_tbl
6966: , lx_stmv_tbl
6967: , lx_selv_tbl);
6968: IF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6969: RAISE OKL_API.G_EXCEPTION_ERROR;
6970: ELSIF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
6971: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6972: END IF;
6973: END IF;
6966: , lx_stmv_tbl
6967: , lx_selv_tbl);
6968: IF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6969: RAISE OKL_API.G_EXCEPTION_ERROR;
6970: ELSIF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
6971: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6972: END IF;
6973: END IF;
6974:
6967: , lx_selv_tbl);
6968: IF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6969: RAISE OKL_API.G_EXCEPTION_ERROR;
6970: ELSIF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
6971: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6972: END IF;
6973: END IF;
6974:
6975: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
6971: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6972: END IF;
6973: END IF;
6974:
6975: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
6976:
6977: EXCEPTION
6978: WHEN OKL_API.G_EXCEPTION_ERROR THEN
6979: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
6974:
6975: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
6976:
6977: EXCEPTION
6978: WHEN OKL_API.G_EXCEPTION_ERROR THEN
6979: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
6980: p_api_name => l_api_name,
6981: p_pkg_name => g_pkg_name,
6982: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
6975: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
6976:
6977: EXCEPTION
6978: WHEN OKL_API.G_EXCEPTION_ERROR THEN
6979: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
6980: p_api_name => l_api_name,
6981: p_pkg_name => g_pkg_name,
6982: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
6983: x_msg_count => x_msg_count,
6978: WHEN OKL_API.G_EXCEPTION_ERROR THEN
6979: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
6980: p_api_name => l_api_name,
6981: p_pkg_name => g_pkg_name,
6982: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
6983: x_msg_count => x_msg_count,
6984: x_msg_data => x_msg_data,
6985: p_api_type => g_api_type);
6986: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
6982: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
6983: x_msg_count => x_msg_count,
6984: x_msg_data => x_msg_data,
6985: p_api_type => g_api_type);
6986: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
6987: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
6988: p_api_name => l_api_name,
6989: p_pkg_name => g_pkg_name,
6990: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
6983: x_msg_count => x_msg_count,
6984: x_msg_data => x_msg_data,
6985: p_api_type => g_api_type);
6986: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
6987: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
6988: p_api_name => l_api_name,
6989: p_pkg_name => g_pkg_name,
6990: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
6991: x_msg_count => x_msg_count,
6986: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
6987: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
6988: p_api_name => l_api_name,
6989: p_pkg_name => g_pkg_name,
6990: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
6991: x_msg_count => x_msg_count,
6992: x_msg_data => x_msg_data,
6993: p_api_type => g_api_type);
6994: WHEN OTHERS THEN
6991: x_msg_count => x_msg_count,
6992: x_msg_data => x_msg_data,
6993: p_api_type => g_api_type);
6994: WHEN OTHERS THEN
6995: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
6996: p_api_name => l_api_name,
6997: p_pkg_name => g_pkg_name,
6998: p_exc_name => 'OTHERS',
6999: x_msg_count => x_msg_count,
7004:
7005: -- This procedure will historize the variable rate created streams for terminated assets
7006: PROCEDURE HISTORIZE_VAR_RATE_STREAMS(
7007: p_api_version IN NUMBER,
7008: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
7009: x_return_status OUT NOCOPY VARCHAR2,
7010: x_msg_count OUT NOCOPY NUMBER,
7011: x_msg_data OUT NOCOPY VARCHAR2,
7012: p_chr_id IN VARCHAR2,
7066: l_mass_rbk_khr VARCHAR2(1);
7067:
7068: BEGIN
7069:
7070: x_return_status := OKL_API.G_RET_STS_SUCCESS;
7071:
7072: -- Call start_activity to create savepoint, check compatibility
7073: -- and initialize message list
7074: x_return_status := OKL_API.START_ACTIVITY (
7070: x_return_status := OKL_API.G_RET_STS_SUCCESS;
7071:
7072: -- Call start_activity to create savepoint, check compatibility
7073: -- and initialize message list
7074: x_return_status := OKL_API.START_ACTIVITY (
7075: l_api_name
7076: ,p_init_msg_list
7077: ,'_PVT'
7078: ,x_return_status);
7076: ,p_init_msg_list
7077: ,'_PVT'
7078: ,x_return_status);
7079: -- Check if activity started successfully
7080: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7081: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7082: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7083: RAISE OKL_API.G_EXCEPTION_ERROR;
7084: END IF;
7077: ,'_PVT'
7078: ,x_return_status);
7079: -- Check if activity started successfully
7080: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7081: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7082: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7083: RAISE OKL_API.G_EXCEPTION_ERROR;
7084: END IF;
7085:
7078: ,x_return_status);
7079: -- Check if activity started successfully
7080: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7081: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7082: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7083: RAISE OKL_API.G_EXCEPTION_ERROR;
7084: END IF;
7085:
7086:
7079: -- Check if activity started successfully
7080: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7081: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7082: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7083: RAISE OKL_API.G_EXCEPTION_ERROR;
7084: END IF;
7085:
7086:
7087: l_mass_rbk_khr := '?';
7105: END LOOP;
7106: END LOOP;
7107: END IF;
7108:
7109: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
7110:
7111: EXCEPTION
7112: WHEN OKL_API.G_EXCEPTION_ERROR THEN
7113: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
7108:
7109: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
7110:
7111: EXCEPTION
7112: WHEN OKL_API.G_EXCEPTION_ERROR THEN
7113: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
7114: p_api_name => l_api_name,
7115: p_pkg_name => g_pkg_name,
7116: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
7109: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
7110:
7111: EXCEPTION
7112: WHEN OKL_API.G_EXCEPTION_ERROR THEN
7113: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
7114: p_api_name => l_api_name,
7115: p_pkg_name => g_pkg_name,
7116: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
7117: x_msg_count => x_msg_count,
7112: WHEN OKL_API.G_EXCEPTION_ERROR THEN
7113: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
7114: p_api_name => l_api_name,
7115: p_pkg_name => g_pkg_name,
7116: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
7117: x_msg_count => x_msg_count,
7118: x_msg_data => x_msg_data,
7119: p_api_type => g_api_type);
7120: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
7116: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
7117: x_msg_count => x_msg_count,
7118: x_msg_data => x_msg_data,
7119: p_api_type => g_api_type);
7120: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
7121: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
7122: p_api_name => l_api_name,
7123: p_pkg_name => g_pkg_name,
7124: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
7117: x_msg_count => x_msg_count,
7118: x_msg_data => x_msg_data,
7119: p_api_type => g_api_type);
7120: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
7121: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
7122: p_api_name => l_api_name,
7123: p_pkg_name => g_pkg_name,
7124: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
7125: x_msg_count => x_msg_count,
7120: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
7121: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
7122: p_api_name => l_api_name,
7123: p_pkg_name => g_pkg_name,
7124: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
7125: x_msg_count => x_msg_count,
7126: x_msg_data => x_msg_data,
7127: p_api_type => g_api_type);
7128: WHEN OTHERS THEN
7125: x_msg_count => x_msg_count,
7126: x_msg_data => x_msg_data,
7127: p_api_type => g_api_type);
7128: WHEN OTHERS THEN
7129: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
7130: p_api_name => l_api_name,
7131: p_pkg_name => g_pkg_name,
7132: p_exc_name => 'OTHERS',
7133: x_msg_count => x_msg_count,
7140: -- Start modification Bug#3121708 bakuchib
7141: -- gboomina BUG#4508077 added p_source_call as a parameter
7142: Procedure adjust_streams(
7143: p_api_version IN NUMBER,
7144: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
7145: x_return_status OUT NOCOPY VARCHAR2,
7146: x_msg_count OUT NOCOPY NUMBER,
7147: x_msg_data OUT NOCOPY VARCHAR2,
7148: p_chr_id IN VARCHAR2,
7150: p_source_call IN VARCHAR2) AS
7151:
7152: l_api_name CONSTANT VARCHAR2(30) := 'ADJUST_STREAMS';
7153: l_api_version CONSTANT NUMBER := 1;
7154: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
7155:
7156: pl_chrv_rec okl_okc_migration_pvt.chrv_rec_type;
7157: pl_khrv_rec okl_contract_pvt.khrv_rec_type;
7158: xl_chrv_rec okl_okc_migration_pvt.chrv_rec_type;
7268: --Added by kthiruva for Debugging
7269: write_to_log('Inside procedure adjust_Streams');
7270:
7271: print( l_api_name, 'begin');
7272: x_return_status := OKL_API.START_ACTIVITY(
7273: p_api_name => l_api_name,
7274: p_pkg_name => g_pkg_name,
7275: p_init_msg_list => p_init_msg_list,
7276: l_api_version => l_api_version,
7277: p_api_version => p_api_version,
7278: p_api_type => G_API_TYPE,
7279: x_return_status => x_return_status);
7280: -- check if activity started successfully
7281: If (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
7282: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7283: ElSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
7284: raise OKL_API.G_EXCEPTION_ERROR;
7285: End If;
7278: p_api_type => G_API_TYPE,
7279: x_return_status => x_return_status);
7280: -- check if activity started successfully
7281: If (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
7282: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7283: ElSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
7284: raise OKL_API.G_EXCEPTION_ERROR;
7285: End If;
7286: OPEN l_hdr_pdt_csr(p_chr_id);
7279: x_return_status => x_return_status);
7280: -- check if activity started successfully
7281: If (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
7282: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7283: ElSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
7284: raise OKL_API.G_EXCEPTION_ERROR;
7285: End If;
7286: OPEN l_hdr_pdt_csr(p_chr_id);
7287: FETCH l_hdr_pdt_csr INTO l_pdt_id_rec;
7280: -- check if activity started successfully
7281: If (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
7282: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7283: ElSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
7284: raise OKL_API.G_EXCEPTION_ERROR;
7285: End If;
7286: OPEN l_hdr_pdt_csr(p_chr_id);
7287: FETCH l_hdr_pdt_csr INTO l_pdt_id_rec;
7288: CLOSE l_hdr_pdt_csr;
7318: p_start_date => l_hdr_rec.start_date,
7319: p_end_date => l_hdr_rec.end_date,
7320: p_deal_type => l_deal_type,
7321: x_return_status => x_return_status);
7322: If (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
7323: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7324: ElSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
7325: raise OKL_API.G_EXCEPTION_ERROR;
7326: End If;
7319: p_end_date => l_hdr_rec.end_date,
7320: p_deal_type => l_deal_type,
7321: x_return_status => x_return_status);
7322: If (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
7323: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7324: ElSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
7325: raise OKL_API.G_EXCEPTION_ERROR;
7326: End If;
7327: END IF;
7320: p_deal_type => l_deal_type,
7321: x_return_status => x_return_status);
7322: If (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
7323: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7324: ElSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
7325: raise OKL_API.G_EXCEPTION_ERROR;
7326: End If;
7327: END IF;
7328: -- gboomina BUG#4508077 end
7321: x_return_status => x_return_status);
7322: If (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
7323: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7324: ElSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
7325: raise OKL_API.G_EXCEPTION_ERROR;
7326: End If;
7327: END IF;
7328: -- gboomina BUG#4508077 end
7329: END IF;
7339: x_msg_data => x_msg_data);
7340:
7341: --Added by kthiruva for Debugging
7342: write_to_log('After the call to OKL_STREAM_GENERATOR_PUB.GEN_VAR_INT_SCHEDULE, return status is :'||x_return_status);
7343: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
7344: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7345: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
7346: raise OKL_API.G_EXCEPTION_ERROR;
7347: END IF;
7340:
7341: --Added by kthiruva for Debugging
7342: write_to_log('After the call to OKL_STREAM_GENERATOR_PUB.GEN_VAR_INT_SCHEDULE, return status is :'||x_return_status);
7343: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
7344: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7345: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
7346: raise OKL_API.G_EXCEPTION_ERROR;
7347: END IF;
7348:
7341: --Added by kthiruva for Debugging
7342: write_to_log('After the call to OKL_STREAM_GENERATOR_PUB.GEN_VAR_INT_SCHEDULE, return status is :'||x_return_status);
7343: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
7344: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7345: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
7346: raise OKL_API.G_EXCEPTION_ERROR;
7347: END IF;
7348:
7349: -- Added by HKPATEL for mass rebook fix
7342: write_to_log('After the call to OKL_STREAM_GENERATOR_PUB.GEN_VAR_INT_SCHEDULE, return status is :'||x_return_status);
7343: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
7344: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7345: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
7346: raise OKL_API.G_EXCEPTION_ERROR;
7347: END IF;
7348:
7349: -- Added by HKPATEL for mass rebook fix
7350: /*
7355: x_msg_count => x_msg_count,
7356: x_msg_data => x_msg_data,
7357: p_chr_id => p_chr_id,
7358: p_purpose => p_purpose);
7359: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
7360: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7361: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
7362: raise OKL_API.G_EXCEPTION_ERROR;
7363: END IF;
7356: x_msg_data => x_msg_data,
7357: p_chr_id => p_chr_id,
7358: p_purpose => p_purpose);
7359: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
7360: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7361: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
7362: raise OKL_API.G_EXCEPTION_ERROR;
7363: END IF;
7364: */
7357: p_chr_id => p_chr_id,
7358: p_purpose => p_purpose);
7359: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
7360: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7361: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
7362: raise OKL_API.G_EXCEPTION_ERROR;
7363: END IF;
7364: */
7365:
7358: p_purpose => p_purpose);
7359: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
7360: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7361: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
7362: raise OKL_API.G_EXCEPTION_ERROR;
7363: END IF;
7364: */
7365:
7366: -- Code for rebook enhancement - HKPATEL - 4212626
7377:
7378: --Added by kthiruva for Debugging
7379: write_to_log('After the call to create_advance_rental_streams, return status is :'||x_return_status);
7380:
7381: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
7382: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7383: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
7384: raise OKL_API.G_EXCEPTION_ERROR;
7385: END IF;
7378: --Added by kthiruva for Debugging
7379: write_to_log('After the call to create_advance_rental_streams, return status is :'||x_return_status);
7380:
7381: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
7382: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7383: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
7384: raise OKL_API.G_EXCEPTION_ERROR;
7385: END IF;
7386:
7379: write_to_log('After the call to create_advance_rental_streams, return status is :'||x_return_status);
7380:
7381: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
7382: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7383: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
7384: raise OKL_API.G_EXCEPTION_ERROR;
7385: END IF;
7386:
7387: --Added by kthiruva for Debugging
7380:
7381: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
7382: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7383: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
7384: raise OKL_API.G_EXCEPTION_ERROR;
7385: END IF;
7386:
7387: --Added by kthiruva for Debugging
7388: write_to_log('Prior to the call to adjust_passthrough_streams ');
7397:
7398: --Added by kthiruva for Debugging
7399: write_to_log('After the call to adjust_passthrough_streams, return status is :'||x_return_status);
7400:
7401: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7402: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7403: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7404: RAISE OKL_API.G_EXCEPTION_ERROR;
7405: END IF;
7398: --Added by kthiruva for Debugging
7399: write_to_log('After the call to adjust_passthrough_streams, return status is :'||x_return_status);
7400:
7401: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7402: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7403: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7404: RAISE OKL_API.G_EXCEPTION_ERROR;
7405: END IF;
7406:
7399: write_to_log('After the call to adjust_passthrough_streams, return status is :'||x_return_status);
7400:
7401: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7402: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7403: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7404: RAISE OKL_API.G_EXCEPTION_ERROR;
7405: END IF;
7406:
7407: --Added by kthiruva for Debugging
7400:
7401: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7402: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7403: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7404: RAISE OKL_API.G_EXCEPTION_ERROR;
7405: END IF;
7406:
7407: --Added by kthiruva for Debugging
7408: write_to_log('Prior to the call to OKL_CONTRACT_REBOOK_PVT.link_streams');
7416:
7417: --Added by kthiruva for Debugging
7418: write_to_log('After the call to OKL_CONTRACT_REBOOK_PVT.link_streams, return status is :'||x_return_status);
7419:
7420: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7421: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7422: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7423: RAISE OKL_API.G_EXCEPTION_ERROR;
7424: END IF;
7417: --Added by kthiruva for Debugging
7418: write_to_log('After the call to OKL_CONTRACT_REBOOK_PVT.link_streams, return status is :'||x_return_status);
7419:
7420: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7421: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7422: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7423: RAISE OKL_API.G_EXCEPTION_ERROR;
7424: END IF;
7425: -- Code for rebook enhancement ends here - HKPATEL
7418: write_to_log('After the call to OKL_CONTRACT_REBOOK_PVT.link_streams, return status is :'||x_return_status);
7419:
7420: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7421: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7422: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7423: RAISE OKL_API.G_EXCEPTION_ERROR;
7424: END IF;
7425: -- Code for rebook enhancement ends here - HKPATEL
7426:
7419:
7420: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7421: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7422: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7423: RAISE OKL_API.G_EXCEPTION_ERROR;
7424: END IF;
7425: -- Code for rebook enhancement ends here - HKPATEL
7426:
7427: --Added by bkatraga for bug 13447258
7433: x_msg_count => x_msg_count,
7434: x_msg_data => x_msg_data,
7435: p_chr_id => p_chr_id,
7436: p_purpose => p_purpose);
7437: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7438: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7439: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7440: RAISE OKL_API.G_EXCEPTION_ERROR;
7441: END IF;
7434: x_msg_data => x_msg_data,
7435: p_chr_id => p_chr_id,
7436: p_purpose => p_purpose);
7437: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7438: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7439: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7440: RAISE OKL_API.G_EXCEPTION_ERROR;
7441: END IF;
7442: END IF;
7435: p_chr_id => p_chr_id,
7436: p_purpose => p_purpose);
7437: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7438: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7439: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7440: RAISE OKL_API.G_EXCEPTION_ERROR;
7441: END IF;
7442: END IF;
7443: --end bkatraga for bug 13447258
7436: p_purpose => p_purpose);
7437: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7438: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7439: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7440: RAISE OKL_API.G_EXCEPTION_ERROR;
7441: END IF;
7442: END IF;
7443: --end bkatraga for bug 13447258
7444:
7450: OPEN strm_name_csr ( l_strms_rec.sty_id );
7451: FETCH strm_name_csr into l_strm_name_rec;
7452: IF strm_name_csr%NOTFOUND THEN
7453: CLOSE strm_name_csr;
7454: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7455: ELSIF (l_strm_name_rec.name = 'BILLING ADJUSTMENT') THEN
7456: OPEN bill_strm_hist_csr(l_chr_id,l_strms_rec.sty_id,'CURR',p_purpose);
7457: FETCH bill_strm_hist_csr into l_hist_flag;
7458: IF bill_strm_hist_csr%NOTFOUND THEN
7467: FETCH strm_name_csr into l_strm_name_rec;
7468:
7469: IF strm_name_csr%NOTFOUND THEN
7470: CLOSE strm_name_csr;
7471: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7472:
7473: ELSIF (l_strm_name_rec.stream_type_purpose NOT IN (
7474: 'INVESTOR_CNTRCT_OBLIGATION_PAY', 'INVESTOR_DISB_ADJUSTMENT',
7475: 'INVESTOR_EVERGREEN_RENT_PAY', 'INVESTOR_INTEREST_INCOME',
7515: OPEN strm_name_csr ( l_strms_rec.sty_id );
7516: FETCH strm_name_csr into l_strm_name_rec;
7517: IF strm_name_csr%NOTFOUND THEN
7518: CLOSE strm_name_csr;
7519: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7520: END IF;
7521: CLOSE strm_name_csr;
7522: -- Code commented and added for use defined streams
7523: --l_strm_name := l_strm_name_rec.name;
7578: x_msg_count => x_msg_count,
7579: x_msg_data => x_msg_data,
7580: p_stmv_tbl => l_stmv_tbl,
7581: x_stmv_tbl => x_stmv_tbl);
7582: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
7583: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7584: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
7585: raise OKL_API.G_EXCEPTION_ERROR;
7586: END IF;
7579: x_msg_data => x_msg_data,
7580: p_stmv_tbl => l_stmv_tbl,
7581: x_stmv_tbl => x_stmv_tbl);
7582: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
7583: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7584: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
7585: raise OKL_API.G_EXCEPTION_ERROR;
7586: END IF;
7587: Commented code for Bulk update ends here by HKPATEL -02/18/2005 */
7580: p_stmv_tbl => l_stmv_tbl,
7581: x_stmv_tbl => x_stmv_tbl);
7582: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
7583: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7584: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
7585: raise OKL_API.G_EXCEPTION_ERROR;
7586: END IF;
7587: Commented code for Bulk update ends here by HKPATEL -02/18/2005 */
7588:
7581: x_stmv_tbl => x_stmv_tbl);
7582: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
7583: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7584: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
7585: raise OKL_API.G_EXCEPTION_ERROR;
7586: END IF;
7587: Commented code for Bulk update ends here by HKPATEL -02/18/2005 */
7588:
7589: -- Bulk update
7614: write_to_log('After the call to OKL_BILLING_CONTROLLER_PVT.track_next_bill_date');
7615:
7616: EXCEPTION
7617: WHEN OTHERS THEN
7618: okl_api.set_message (p_app_name => G_APP_NAME,
7619: p_msg_name => G_DB_ERROR,
7620: p_token1 => G_PROG_NAME_TOKEN,
7621: p_token1_value => l_api_name,
7622: p_token2 => G_SQLCODE_TOKEN,
7622: p_token2 => G_SQLCODE_TOKEN,
7623: p_token2_value => sqlcode,
7624: p_token3 => G_SQLERRM_TOKEN,
7625: p_token3_value => sqlerrm);
7626: l_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
7627: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7628: END;
7629:
7630: -- Bulk update ends here
7623: p_token2_value => sqlcode,
7624: p_token3 => G_SQLERRM_TOKEN,
7625: p_token3_value => sqlerrm);
7626: l_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
7627: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7628: END;
7629:
7630: -- Bulk update ends here
7631:
7640: p_chr_id => l_chr_id,
7641: p_purpose => p_purpose);
7642:
7643:
7644: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
7645: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7646: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
7647: raise OKL_API.G_EXCEPTION_ERROR;
7648: END IF;
7641: p_purpose => p_purpose);
7642:
7643:
7644: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
7645: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7646: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
7647: raise OKL_API.G_EXCEPTION_ERROR;
7648: END IF;
7649: */
7642:
7643:
7644: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
7645: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7646: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
7647: raise OKL_API.G_EXCEPTION_ERROR;
7648: END IF;
7649: */
7650: OPEN l_hdr_csr( l_chr_id);
7643:
7644: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
7645: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7646: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
7647: raise OKL_API.G_EXCEPTION_ERROR;
7648: END IF;
7649: */
7650: OPEN l_hdr_csr( l_chr_id);
7651: FETCH l_hdr_csr INTO l_hdr_rec;
7650: OPEN l_hdr_csr( l_chr_id);
7651: FETCH l_hdr_csr INTO l_hdr_rec;
7652:
7653: IF l_hdr_csr%NOTFOUND THEN
7654: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7655: Elsif (l_hdr_rec.orig_system_source_code = 'OKL_REBOOK') Then
7656: NULL;
7657: /* Changed the position of code for bug 4212626
7658: create_interim_rental_streams(
7663: x_msg_data => x_msg_data,
7664: p_chr_id => l_chr_id,
7665: p_purpose => p_purpose);
7666:
7667: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7668: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7669: END IF;
7670: */
7671: END IF;
7664: p_chr_id => l_chr_id,
7665: p_purpose => p_purpose);
7666:
7667: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7668: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7669: END IF;
7670: */
7671: END IF;
7672: CLOSE l_hdr_csr;
7706: x_msg_data => x_msg_data,
7707: p_selv_tbl => l_selv_tbl);
7708:
7709:
7710: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7711: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7712: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7713: RAISE OKL_API.G_EXCEPTION_ERROR;
7714: END IF;
7707: p_selv_tbl => l_selv_tbl);
7708:
7709:
7710: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7711: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7712: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7713: RAISE OKL_API.G_EXCEPTION_ERROR;
7714: END IF;
7715: End If;
7708:
7709:
7710: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7711: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7712: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7713: RAISE OKL_API.G_EXCEPTION_ERROR;
7714: END IF;
7715: End If;
7716: /* Changed the position of code for bug 4212626
7709:
7710: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7711: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7712: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7713: RAISE OKL_API.G_EXCEPTION_ERROR;
7714: END IF;
7715: End If;
7716: /* Changed the position of code for bug 4212626
7717: adjust_passthrough_streams(
7723: p_chr_id => p_chr_id,
7724: p_purpose => p_purpose);
7725:
7726:
7727: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7728: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7729: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7730: RAISE OKL_API.G_EXCEPTION_ERROR;
7731: END IF;
7724: p_purpose => p_purpose);
7725:
7726:
7727: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7728: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7729: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7730: RAISE OKL_API.G_EXCEPTION_ERROR;
7731: END IF;
7732: */
7725:
7726:
7727: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7728: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7729: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7730: RAISE OKL_API.G_EXCEPTION_ERROR;
7731: END IF;
7732: */
7733: x_return_status := l_return_status;
7726:
7727: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7728: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7729: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7730: RAISE OKL_API.G_EXCEPTION_ERROR;
7731: END IF;
7732: */
7733: x_return_status := l_return_status;
7734:
7733: x_return_status := l_return_status;
7734:
7735: print( l_api_name, 'end', x_return_status);
7736:
7737: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
7738:
7739: Exception
7740: when OKL_API.G_EXCEPTION_ERROR THEN
7741: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
7736:
7737: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
7738:
7739: Exception
7740: when OKL_API.G_EXCEPTION_ERROR THEN
7741: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
7742: p_api_name => l_api_name,
7743: p_pkg_name => g_pkg_name,
7744: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
7737: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
7738:
7739: Exception
7740: when OKL_API.G_EXCEPTION_ERROR THEN
7741: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
7742: p_api_name => l_api_name,
7743: p_pkg_name => g_pkg_name,
7744: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
7745: x_msg_count => x_msg_count,
7740: when OKL_API.G_EXCEPTION_ERROR THEN
7741: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
7742: p_api_name => l_api_name,
7743: p_pkg_name => g_pkg_name,
7744: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
7745: x_msg_count => x_msg_count,
7746: x_msg_data => x_msg_data,
7747: p_api_type => g_api_type);
7748: IF l_hdr_csr%ISOPEN THEN
7748: IF l_hdr_csr%ISOPEN THEN
7749: CLOSE l_hdr_csr;
7750: End If;
7751:
7752: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
7753: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
7754: p_api_name => l_api_name,
7755: p_pkg_name => g_pkg_name,
7756: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
7749: CLOSE l_hdr_csr;
7750: End If;
7751:
7752: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
7753: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
7754: p_api_name => l_api_name,
7755: p_pkg_name => g_pkg_name,
7756: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
7757: x_msg_count => x_msg_count,
7752: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
7753: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
7754: p_api_name => l_api_name,
7755: p_pkg_name => g_pkg_name,
7756: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
7757: x_msg_count => x_msg_count,
7758: x_msg_data => x_msg_data,
7759: p_api_type => g_api_type);
7760:
7766: CLOSE l_hdr_csr;
7767: End If;
7768:
7769: when OTHERS THEN
7770: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
7771: p_api_name => l_api_name,
7772: p_pkg_name => g_pkg_name,
7773: p_exc_name => 'OTHERS',
7774: x_msg_count => x_msg_count,
7823: --
7824: -- End of comments
7825: PROCEDURE RECREATE_TMT_LN_STRMS(
7826: p_api_version IN NUMBER,
7827: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
7828: x_return_status OUT NOCOPY VARCHAR2,
7829: x_msg_count OUT NOCOPY NUMBER,
7830: x_msg_data OUT NOCOPY VARCHAR2,
7831: p_chr_id IN VARCHAR2,
8168:
8169:
8170: BEGIN
8171:
8172: x_return_status := OKL_API.G_RET_STS_SUCCESS;
8173:
8174: -- Call start_activity to create savepoint, check compatibility
8175: -- and initialize message list
8176: x_return_status := OKL_API.START_ACTIVITY (
8172: x_return_status := OKL_API.G_RET_STS_SUCCESS;
8173:
8174: -- Call start_activity to create savepoint, check compatibility
8175: -- and initialize message list
8176: x_return_status := OKL_API.START_ACTIVITY (
8177: l_api_name
8178: ,p_init_msg_list
8179: ,'_PVT'
8180: ,x_return_status);
8178: ,p_init_msg_list
8179: ,'_PVT'
8180: ,x_return_status);
8181: -- Check if activity started successfully
8182: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8183: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8184: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8185: RAISE OKL_API.G_EXCEPTION_ERROR;
8186: END IF;
8179: ,'_PVT'
8180: ,x_return_status);
8181: -- Check if activity started successfully
8182: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8183: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8184: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8185: RAISE OKL_API.G_EXCEPTION_ERROR;
8186: END IF;
8187:
8180: ,x_return_status);
8181: -- Check if activity started successfully
8182: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8183: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8184: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8185: RAISE OKL_API.G_EXCEPTION_ERROR;
8186: END IF;
8187:
8188: -- Initialize variables/records
8181: -- Check if activity started successfully
8182: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8183: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8184: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8185: RAISE OKL_API.G_EXCEPTION_ERROR;
8186: END IF;
8187:
8188: -- Initialize variables/records
8189: l_strm_index := 0;
8322: x_msg_count => x_msg_count,
8323: x_msg_data => x_msg_data,
8324: p_chr_id => p_chr_id,
8325: p_trx_number => p_trx_number);
8326: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8327: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8328: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8329: RAISE OKL_API.G_EXCEPTION_ERROR;
8330: END IF;
8323: x_msg_data => x_msg_data,
8324: p_chr_id => p_chr_id,
8325: p_trx_number => p_trx_number);
8326: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8327: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8328: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8329: RAISE OKL_API.G_EXCEPTION_ERROR;
8330: END IF;
8331: --end bkatraga for bug 13447258
8324: p_chr_id => p_chr_id,
8325: p_trx_number => p_trx_number);
8326: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8327: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8328: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8329: RAISE OKL_API.G_EXCEPTION_ERROR;
8330: END IF;
8331: --end bkatraga for bug 13447258
8332:
8325: p_trx_number => p_trx_number);
8326: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8327: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8328: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8329: RAISE OKL_API.G_EXCEPTION_ERROR;
8330: END IF;
8331: --end bkatraga for bug 13447258
8332:
8333: ELSE
8528: , l_stmv_tbl
8529: , l_selv_tbl
8530: , lx_stmv_tbl
8531: , lx_selv_tbl);
8532: IF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8533: RAISE OKL_API.G_EXCEPTION_ERROR;
8534: ELSIF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
8535: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8536: END IF;
8529: , l_selv_tbl
8530: , lx_stmv_tbl
8531: , lx_selv_tbl);
8532: IF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8533: RAISE OKL_API.G_EXCEPTION_ERROR;
8534: ELSIF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
8535: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8536: END IF;
8537: END IF; -- l_stmv_tbl count check
8530: , lx_stmv_tbl
8531: , lx_selv_tbl);
8532: IF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8533: RAISE OKL_API.G_EXCEPTION_ERROR;
8534: ELSIF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
8535: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8536: END IF;
8537: END IF; -- l_stmv_tbl count check
8538:
8531: , lx_selv_tbl);
8532: IF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8533: RAISE OKL_API.G_EXCEPTION_ERROR;
8534: ELSIF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
8535: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8536: END IF;
8537: END IF; -- l_stmv_tbl count check
8538:
8539: END IF; -- END IF p_source_call check
8538:
8539: END IF; -- END IF p_source_call check
8540:
8541: -- End of API
8542: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
8543: EXCEPTION
8544: WHEN OKL_API.G_EXCEPTION_ERROR THEN
8545: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
8546: p_api_name => l_api_name,
8540:
8541: -- End of API
8542: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
8543: EXCEPTION
8544: WHEN OKL_API.G_EXCEPTION_ERROR THEN
8545: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
8546: p_api_name => l_api_name,
8547: p_pkg_name => g_pkg_name,
8548: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
8541: -- End of API
8542: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
8543: EXCEPTION
8544: WHEN OKL_API.G_EXCEPTION_ERROR THEN
8545: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
8546: p_api_name => l_api_name,
8547: p_pkg_name => g_pkg_name,
8548: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
8549: x_msg_count => x_msg_count,
8544: WHEN OKL_API.G_EXCEPTION_ERROR THEN
8545: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
8546: p_api_name => l_api_name,
8547: p_pkg_name => g_pkg_name,
8548: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
8549: x_msg_count => x_msg_count,
8550: x_msg_data => x_msg_data,
8551: p_api_type => g_api_type);
8552: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
8548: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
8549: x_msg_count => x_msg_count,
8550: x_msg_data => x_msg_data,
8551: p_api_type => g_api_type);
8552: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
8553: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
8554: p_api_name => l_api_name,
8555: p_pkg_name => g_pkg_name,
8556: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
8549: x_msg_count => x_msg_count,
8550: x_msg_data => x_msg_data,
8551: p_api_type => g_api_type);
8552: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
8553: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
8554: p_api_name => l_api_name,
8555: p_pkg_name => g_pkg_name,
8556: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
8557: x_msg_count => x_msg_count,
8552: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
8553: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
8554: p_api_name => l_api_name,
8555: p_pkg_name => g_pkg_name,
8556: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
8557: x_msg_count => x_msg_count,
8558: x_msg_data => x_msg_data,
8559: p_api_type => g_api_type);
8560: WHEN OTHERS THEN
8557: x_msg_count => x_msg_count,
8558: x_msg_data => x_msg_data,
8559: p_api_type => g_api_type);
8560: WHEN OTHERS THEN
8561: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
8562: p_api_name => l_api_name,
8563: p_pkg_name => g_pkg_name,
8564: p_exc_name => 'OTHERS',
8565: x_msg_count => x_msg_count,
8570:
8571: -- Start modification 11i10 bakuchib
8572: Procedure process_streams(
8573: p_api_version IN NUMBER,
8574: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
8575: x_return_status OUT NOCOPY VARCHAR2,
8576: x_msg_count OUT NOCOPY NUMBER,
8577: x_msg_data OUT NOCOPY VARCHAR2,
8578: p_chr_id IN VARCHAR2,
8581: p_source_call IN VARCHAR2) AS
8582:
8583: l_api_name CONSTANT VARCHAR2(30) := 'PROCESS_STREAMS';
8584: l_api_version CONSTANT NUMBER := 1;
8585: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
8586:
8587: pl_chrv_rec okl_okc_migration_pvt.chrv_rec_type;
8588: pl_khrv_rec okl_contract_pvt.khrv_rec_type;
8589: xl_chrv_rec okl_okc_migration_pvt.chrv_rec_type;
8770: --Bug 4541302 - End of Changes
8771:
8772:
8773: BEGIN
8774: x_return_status := OKL_API.G_RET_STS_SUCCESS;
8775: -- Call start_activity to create savepoint, check compatibility
8776: -- and initialize message list
8777: x_return_status := OKL_API.START_ACTIVITY (
8778: l_api_name
8773: BEGIN
8774: x_return_status := OKL_API.G_RET_STS_SUCCESS;
8775: -- Call start_activity to create savepoint, check compatibility
8776: -- and initialize message list
8777: x_return_status := OKL_API.START_ACTIVITY (
8778: l_api_name
8779: ,p_init_msg_list
8780: ,'_PVT'
8781: ,x_return_status);
8779: ,p_init_msg_list
8780: ,'_PVT'
8781: ,x_return_status);
8782: -- Check if activity started successfully
8783: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8784: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8785: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8786: RAISE OKL_API.G_EXCEPTION_ERROR;
8787: END IF;
8780: ,'_PVT'
8781: ,x_return_status);
8782: -- Check if activity started successfully
8783: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8784: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8785: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8786: RAISE OKL_API.G_EXCEPTION_ERROR;
8787: END IF;
8788: IF p_process_yn = OKL_API.G_TRUE Then
8781: ,x_return_status);
8782: -- Check if activity started successfully
8783: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8784: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8785: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8786: RAISE OKL_API.G_EXCEPTION_ERROR;
8787: END IF;
8788: IF p_process_yn = OKL_API.G_TRUE Then
8789: l_process_yn := 'Y';
8782: -- Check if activity started successfully
8783: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8784: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8785: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8786: RAISE OKL_API.G_EXCEPTION_ERROR;
8787: END IF;
8788: IF p_process_yn = OKL_API.G_TRUE Then
8789: l_process_yn := 'Y';
8790: END IF;
8784: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8785: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8786: RAISE OKL_API.G_EXCEPTION_ERROR;
8787: END IF;
8788: IF p_process_yn = OKL_API.G_TRUE Then
8789: l_process_yn := 'Y';
8790: END IF;
8791:
8792: --Added by kthiruva for Debug Logging
8824: x_msg_data => x_msg_data,
8825: p_rulv_rec => l_rulv_rec,
8826: p_edit_mode => 'N',
8827: x_rulv_rec => lx_rulv_rec);
8828: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8829: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
8830: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8831: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_ERROR);
8832: END IF;
8825: p_rulv_rec => l_rulv_rec,
8826: p_edit_mode => 'N',
8827: x_rulv_rec => lx_rulv_rec);
8828: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8829: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
8830: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8831: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_ERROR);
8832: END IF;
8833: END LOOP;
8826: p_edit_mode => 'N',
8827: x_rulv_rec => lx_rulv_rec);
8828: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8829: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
8830: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8831: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_ERROR);
8832: END IF;
8833: END LOOP;
8834: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8827: x_rulv_rec => lx_rulv_rec);
8828: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8829: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
8830: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8831: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_ERROR);
8832: END IF;
8833: END LOOP;
8834: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8835: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
8830: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8831: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_ERROR);
8832: END IF;
8833: END LOOP;
8834: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8835: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
8836: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8837: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_ERROR);
8838: END IF;
8831: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_ERROR);
8832: END IF;
8833: END LOOP;
8834: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8835: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
8836: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8837: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_ERROR);
8838: END IF;
8839: END LOOP;
8832: END IF;
8833: END LOOP;
8834: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8835: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
8836: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8837: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_ERROR);
8838: END IF;
8839: END LOOP;
8840: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8833: END LOOP;
8834: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8835: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
8836: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8837: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_ERROR);
8838: END IF;
8839: END LOOP;
8840: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8841: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8836: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8837: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_ERROR);
8838: END IF;
8839: END LOOP;
8840: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8841: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8842: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8843: RAISE OKL_API.G_EXCEPTION_ERROR;
8844: END IF;
8837: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_ERROR);
8838: END IF;
8839: END LOOP;
8840: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8841: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8842: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8843: RAISE OKL_API.G_EXCEPTION_ERROR;
8844: END IF;
8845: -- getting the header info
8838: END IF;
8839: END LOOP;
8840: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8841: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8842: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8843: RAISE OKL_API.G_EXCEPTION_ERROR;
8844: END IF;
8845: -- getting the header info
8846: OPEN l_hdr_csr( p_chr_id );
8839: END LOOP;
8840: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8841: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8842: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8843: RAISE OKL_API.G_EXCEPTION_ERROR;
8844: END IF;
8845: -- getting the header info
8846: OPEN l_hdr_csr( p_chr_id );
8847: FETCH l_hdr_csr INTO l_hdr_rec;
8904:
8905: --Added by kthiruva for Logging Purposes
8906: write_to_log('After the call to update_contract_yields, the return status is :'||x_return_status);
8907:
8908: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8909: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8910: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8911: RAISE OKL_API.G_EXCEPTION_ERROR;
8912: END IF;
8905: --Added by kthiruva for Logging Purposes
8906: write_to_log('After the call to update_contract_yields, the return status is :'||x_return_status);
8907:
8908: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8909: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8910: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8911: RAISE OKL_API.G_EXCEPTION_ERROR;
8912: END IF;
8913: END IF;
8906: write_to_log('After the call to update_contract_yields, the return status is :'||x_return_status);
8907:
8908: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8909: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8910: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8911: RAISE OKL_API.G_EXCEPTION_ERROR;
8912: END IF;
8913: END IF;
8914: IF p_source_call = 'ESG' THEN
8907:
8908: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8909: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8910: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8911: RAISE OKL_API.G_EXCEPTION_ERROR;
8912: END IF;
8913: END IF;
8914: IF p_source_call = 'ESG' THEN
8915: --Added by kthiruva for Debugging
8941: x_msg_count => x_msg_count,
8942: x_msg_data => x_msg_data,
8943: p_stmv_tbl => l_stmv_tbl);
8944:
8945: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8946: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8947: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8948: RAISE OKL_API.G_EXCEPTION_ERROR;
8949: END IF;
8942: x_msg_data => x_msg_data,
8943: p_stmv_tbl => l_stmv_tbl);
8944:
8945: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8946: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8947: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8948: RAISE OKL_API.G_EXCEPTION_ERROR;
8949: END IF;
8950: END IF;
8943: p_stmv_tbl => l_stmv_tbl);
8944:
8945: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8946: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8947: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8948: RAISE OKL_API.G_EXCEPTION_ERROR;
8949: END IF;
8950: END IF;
8951: RETURN;
8944:
8945: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8946: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8947: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8948: RAISE OKL_API.G_EXCEPTION_ERROR;
8949: END IF;
8950: END IF;
8951: RETURN;
8952: -- Start for bug#3388812 modification - BAKUCHIB
8971:
8972: --Added by kthiruva for Debug Purposes
8973: write_to_log('After the call to adjust_streams, the return status is :'||x_return_status);
8974:
8975: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8976: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8977: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8978: RAISE OKL_API.G_EXCEPTION_ERROR;
8979: END IF;
8972: --Added by kthiruva for Debug Purposes
8973: write_to_log('After the call to adjust_streams, the return status is :'||x_return_status);
8974:
8975: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8976: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8977: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8978: RAISE OKL_API.G_EXCEPTION_ERROR;
8979: END IF;
8980: END IF;
8973: write_to_log('After the call to adjust_streams, the return status is :'||x_return_status);
8974:
8975: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8976: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8977: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8978: RAISE OKL_API.G_EXCEPTION_ERROR;
8979: END IF;
8980: END IF;
8981: END If;
8974:
8975: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8976: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8977: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8978: RAISE OKL_API.G_EXCEPTION_ERROR;
8979: END IF;
8980: END IF;
8981: END If;
8982: IF l_orig_yn = 'Y' THEN
8995:
8996: --Added by kthiruva for Debug Purposes
8997: write_to_log('After the call to adjust_streams, the return status is :'||x_return_status);
8998:
8999: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9000: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9001: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9002: RAISE OKL_API.G_EXCEPTION_ERROR;
9003: END IF;
8996: --Added by kthiruva for Debug Purposes
8997: write_to_log('After the call to adjust_streams, the return status is :'||x_return_status);
8998:
8999: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9000: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9001: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9002: RAISE OKL_API.G_EXCEPTION_ERROR;
9003: END IF;
9004: END IF;
8997: write_to_log('After the call to adjust_streams, the return status is :'||x_return_status);
8998:
8999: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9000: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9001: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9002: RAISE OKL_API.G_EXCEPTION_ERROR;
9003: END IF;
9004: END IF;
9005: ELSIF p_source_call = 'ISG' THEN
8998:
8999: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9000: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9001: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9002: RAISE OKL_API.G_EXCEPTION_ERROR;
9003: END IF;
9004: END IF;
9005: ELSIF p_source_call = 'ISG' THEN
9006: --Added by kthiruva for Debugging
9032: x_msg_count => x_msg_count,
9033: x_msg_data => x_msg_data,
9034: p_stmv_tbl => l_stmv_tbl);
9035:
9036: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9037: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9038: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9039: RAISE OKL_API.G_EXCEPTION_ERROR;
9040: END IF;
9033: x_msg_data => x_msg_data,
9034: p_stmv_tbl => l_stmv_tbl);
9035:
9036: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9037: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9038: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9039: RAISE OKL_API.G_EXCEPTION_ERROR;
9040: END IF;
9041: END IF;
9034: p_stmv_tbl => l_stmv_tbl);
9035:
9036: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9037: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9038: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9039: RAISE OKL_API.G_EXCEPTION_ERROR;
9040: END IF;
9041: END IF;
9042: RETURN;
9035:
9036: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9037: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9038: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9039: RAISE OKL_API.G_EXCEPTION_ERROR;
9040: END IF;
9041: END IF;
9042: RETURN;
9043: -- Start for bug#3388812 modification - BAKUCHIB
9054: p_chr_id => p_chr_id,
9055: p_purpose => 'REPORT',
9056: p_source_call => p_source_call);
9057:
9058: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9059: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9060: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9061: RAISE OKL_API.G_EXCEPTION_ERROR;
9062: END IF;
9055: p_purpose => 'REPORT',
9056: p_source_call => p_source_call);
9057:
9058: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9059: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9060: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9061: RAISE OKL_API.G_EXCEPTION_ERROR;
9062: END IF;
9063: -- gboomina BUG#4508077 passing p_source_call as a parameter
9056: p_source_call => p_source_call);
9057:
9058: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9059: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9060: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9061: RAISE OKL_API.G_EXCEPTION_ERROR;
9062: END IF;
9063: -- gboomina BUG#4508077 passing p_source_call as a parameter
9064: adjust_streams(p_api_version => p_api_version,
9057:
9058: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9059: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9060: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9061: RAISE OKL_API.G_EXCEPTION_ERROR;
9062: END IF;
9063: -- gboomina BUG#4508077 passing p_source_call as a parameter
9064: adjust_streams(p_api_version => p_api_version,
9065: p_init_msg_list => p_init_msg_list,
9069: p_chr_id => p_chr_id,
9070: p_purpose => 'ORIGIN',
9071: p_source_call => p_source_call);
9072:
9073: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9074: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9075: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9076: RAISE OKL_API.G_EXCEPTION_ERROR;
9077: END IF;
9070: p_purpose => 'ORIGIN',
9071: p_source_call => p_source_call);
9072:
9073: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9074: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9075: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9076: RAISE OKL_API.G_EXCEPTION_ERROR;
9077: END IF;
9078: END IF;
9071: p_source_call => p_source_call);
9072:
9073: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9074: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9075: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9076: RAISE OKL_API.G_EXCEPTION_ERROR;
9077: END IF;
9078: END IF;
9079: ELSE
9072:
9073: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9074: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9075: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9076: RAISE OKL_API.G_EXCEPTION_ERROR;
9077: END IF;
9078: END IF;
9079: ELSE
9080: write_to_log('Before the call to Adjust Streams');
9090:
9091: --Added by kthiruva for Debug Purposes
9092: write_to_log('After the call to adjust_streams, the return status is :'||x_return_status);
9093:
9094: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9095: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9096: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9097: RAISE OKL_API.G_EXCEPTION_ERROR;
9098: END IF;
9091: --Added by kthiruva for Debug Purposes
9092: write_to_log('After the call to adjust_streams, the return status is :'||x_return_status);
9093:
9094: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9095: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9096: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9097: RAISE OKL_API.G_EXCEPTION_ERROR;
9098: END IF;
9099: END If;
9092: write_to_log('After the call to adjust_streams, the return status is :'||x_return_status);
9093:
9094: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9095: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9096: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9097: RAISE OKL_API.G_EXCEPTION_ERROR;
9098: END IF;
9099: END If;
9100: END IF;
9093:
9094: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9095: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9096: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9097: RAISE OKL_API.G_EXCEPTION_ERROR;
9098: END IF;
9099: END If;
9100: END IF;
9101:
9134: write_to_log('Streams historised successfully');
9135:
9136: EXCEPTION
9137: WHEN OTHERS THEN
9138: okl_api.set_message (p_app_name => G_APP_NAME,
9139: p_msg_name => G_DB_ERROR,
9140: p_token1 => G_PROG_NAME_TOKEN,
9141: p_token1_value => l_api_name,
9142: p_token2 => G_SQLCODE_TOKEN,
9142: p_token2 => G_SQLCODE_TOKEN,
9143: p_token2_value => sqlcode,
9144: p_token3 => G_SQLERRM_TOKEN,
9145: p_token3_value => sqlerrm);
9146: l_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
9147: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9148: END;
9149: /* Commented for Bulk Update - HKPATEL - 02/18/2004
9150: IF (m_stmv_tbl.COUNT > 0) THEN
9143: p_token2_value => sqlcode,
9144: p_token3 => G_SQLERRM_TOKEN,
9145: p_token3_value => sqlerrm);
9146: l_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
9147: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9148: END;
9149: /* Commented for Bulk Update - HKPATEL - 02/18/2004
9150: IF (m_stmv_tbl.COUNT > 0) THEN
9151: okl_streams_pub.update_streams(
9155: x_msg_count => x_msg_count,
9156: x_msg_data => x_msg_data,
9157: p_stmv_tbl => m_stmv_tbl,
9158: x_stmv_tbl => mx_stmv_tbl);
9159: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
9160: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9161: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
9162: raise OKL_API.G_EXCEPTION_ERROR;
9163: END IF;
9156: x_msg_data => x_msg_data,
9157: p_stmv_tbl => m_stmv_tbl,
9158: x_stmv_tbl => mx_stmv_tbl);
9159: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
9160: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9161: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
9162: raise OKL_API.G_EXCEPTION_ERROR;
9163: END IF;
9164: */
9157: p_stmv_tbl => m_stmv_tbl,
9158: x_stmv_tbl => mx_stmv_tbl);
9159: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
9160: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9161: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
9162: raise OKL_API.G_EXCEPTION_ERROR;
9163: END IF;
9164: */
9165: END IF;
9158: x_stmv_tbl => mx_stmv_tbl);
9159: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
9160: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9161: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
9162: raise OKL_API.G_EXCEPTION_ERROR;
9163: END IF;
9164: */
9165: END IF;
9166: END IF;
9172: write_to_log('Value of l_orig_yn = Y');
9173: write_to_log('Prior to the call to update_rvi_amount');
9174:
9175: update_rvi_amount(p_api_version => p_api_version,
9176: p_init_msg_list => OKL_API.G_FALSE,
9177: p_chr_id => p_chr_id,
9178: p_purpose => 'ORIGIN',
9179: x_return_status => x_return_status,
9180: x_msg_count => x_msg_count,
9182:
9183: --Added by kthiruva for Debugging
9184: write_to_log('After the call to Update_rvi_amount, the return status is :'||x_return_status);
9185: -- raise appropriate exceptions depending on the return status
9186: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9187: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9188: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9189: RAISE OKL_API.G_EXCEPTION_ERROR;
9190: END IF;
9183: --Added by kthiruva for Debugging
9184: write_to_log('After the call to Update_rvi_amount, the return status is :'||x_return_status);
9185: -- raise appropriate exceptions depending on the return status
9186: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9187: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9188: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9189: RAISE OKL_API.G_EXCEPTION_ERROR;
9190: END IF;
9191: END IF;
9184: write_to_log('After the call to Update_rvi_amount, the return status is :'||x_return_status);
9185: -- raise appropriate exceptions depending on the return status
9186: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9187: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9188: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9189: RAISE OKL_API.G_EXCEPTION_ERROR;
9190: END IF;
9191: END IF;
9192: -- for reporting product
9185: -- raise appropriate exceptions depending on the return status
9186: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9187: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9188: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9189: RAISE OKL_API.G_EXCEPTION_ERROR;
9190: END IF;
9191: END IF;
9192: -- for reporting product
9193: IF l_rep_yn = 'Y' THEN
9195: write_to_log('Value of l_rep_yn = Y');
9196: write_to_log('Prior to the call to update_rvi_amount');
9197:
9198: update_rvi_amount(p_api_version => p_api_version,
9199: p_init_msg_list => OKL_API.G_FALSE,
9200: p_chr_id => p_chr_id,
9201: p_purpose => 'REPORT',
9202: x_return_status => x_return_status,
9203: x_msg_count => x_msg_count,
9205:
9206: --Added by kthiruva for Debugging
9207: write_to_log('After the call to Update_rvi_amount, the return status is :'||x_return_status);
9208: -- raise appropriate exceptions depending on the return status
9209: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9210: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9211: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9212: RAISE OKL_API.G_EXCEPTION_ERROR;
9213: END IF;
9206: --Added by kthiruva for Debugging
9207: write_to_log('After the call to Update_rvi_amount, the return status is :'||x_return_status);
9208: -- raise appropriate exceptions depending on the return status
9209: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9210: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9211: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9212: RAISE OKL_API.G_EXCEPTION_ERROR;
9213: END IF;
9214: END IF;
9207: write_to_log('After the call to Update_rvi_amount, the return status is :'||x_return_status);
9208: -- raise appropriate exceptions depending on the return status
9209: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9210: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9211: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9212: RAISE OKL_API.G_EXCEPTION_ERROR;
9213: END IF;
9214: END IF;
9215: -- gboomina BUG#4508077 changes end
9208: -- raise appropriate exceptions depending on the return status
9209: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9210: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9211: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9212: RAISE OKL_API.G_EXCEPTION_ERROR;
9213: END IF;
9214: END IF;
9215: -- gboomina BUG#4508077 changes end
9216: -- End for bug#3388812 modification - BAKUCHIB
9213: END IF;
9214: END IF;
9215: -- gboomina BUG#4508077 changes end
9216: -- End for bug#3388812 modification - BAKUCHIB
9217: IF (x_return_status = Okl_Api.G_RET_STS_SUCCESS) THEN
9218: --PAGARG 25-Feb-2005 Bug 4037658 starts
9219: IF (p_source_call = 'ESG') THEN
9220: IF not (l_orig_yn='N' AND l_rep_yn='Y') THEN
9221: --Added by kthiruva on 11-Aug-2005
9275: x_msg_count,
9276: x_msg_data,
9277: 'COMPLETE',
9278: p_chr_id );
9279: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9280: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9281: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9282: RAISE OKL_API.G_EXCEPTION_ERROR;
9283: END IF;
9276: x_msg_data,
9277: 'COMPLETE',
9278: p_chr_id );
9279: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9280: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9281: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9282: RAISE OKL_API.G_EXCEPTION_ERROR;
9283: END IF;
9284: --Added by kthiruva for Debugging
9277: 'COMPLETE',
9278: p_chr_id );
9279: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9280: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9281: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9282: RAISE OKL_API.G_EXCEPTION_ERROR;
9283: END IF;
9284: --Added by kthiruva for Debugging
9285: write_to_log('After the call to update_contract_status, return status is :'||x_return_status);
9278: p_chr_id );
9279: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9280: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9281: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9282: RAISE OKL_API.G_EXCEPTION_ERROR;
9283: END IF;
9284: --Added by kthiruva for Debugging
9285: write_to_log('After the call to update_contract_status, return status is :'||x_return_status);
9286:
9294: p_chr_id => l_chr_id);
9295: --Added by kthiruva for Debugging
9296: write_to_log('After the call to cascade_lease_status, return status is :'||x_return_status);
9297:
9298: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9299: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9300: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9301: RAISE OKL_API.G_EXCEPTION_ERROR;
9302: END IF;
9295: --Added by kthiruva for Debugging
9296: write_to_log('After the call to cascade_lease_status, return status is :'||x_return_status);
9297:
9298: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9299: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9300: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9301: RAISE OKL_API.G_EXCEPTION_ERROR;
9302: END IF;
9303: --srsreeni Bug6011651 starts
9296: write_to_log('After the call to cascade_lease_status, return status is :'||x_return_status);
9297:
9298: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9299: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9300: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9301: RAISE OKL_API.G_EXCEPTION_ERROR;
9302: END IF;
9303: --srsreeni Bug6011651 starts
9304: OKL_BOOK_CONTROLLER_PVT.update_book_controller_trx(
9297:
9298: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9299: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9300: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9301: RAISE OKL_API.G_EXCEPTION_ERROR;
9302: END IF;
9303: --srsreeni Bug6011651 starts
9304: OKL_BOOK_CONTROLLER_PVT.update_book_controller_trx(
9305: p_api_version => l_api_version,
9309: x_msg_data => x_msg_data,
9310: p_khr_id => l_chr_id,
9311: p_prog_short_name => OKL_BOOK_CONTROLLER_PVT.G_PRICE_CONTRACT,
9312: p_progress_status => OKL_BOOK_CONTROLLER_PVT.G_PROG_STS_COMPLETE);
9313: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9314: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9315: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9316: RAISE OKL_API.G_EXCEPTION_ERROR;
9317: END IF;
9310: p_khr_id => l_chr_id,
9311: p_prog_short_name => OKL_BOOK_CONTROLLER_PVT.G_PRICE_CONTRACT,
9312: p_progress_status => OKL_BOOK_CONTROLLER_PVT.G_PROG_STS_COMPLETE);
9313: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9314: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9315: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9316: RAISE OKL_API.G_EXCEPTION_ERROR;
9317: END IF;
9318: --srsreeni Bug6011651 ends
9311: p_prog_short_name => OKL_BOOK_CONTROLLER_PVT.G_PRICE_CONTRACT,
9312: p_progress_status => OKL_BOOK_CONTROLLER_PVT.G_PROG_STS_COMPLETE);
9313: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9314: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9315: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9316: RAISE OKL_API.G_EXCEPTION_ERROR;
9317: END IF;
9318: --srsreeni Bug6011651 ends
9319: END IF;
9312: p_progress_status => OKL_BOOK_CONTROLLER_PVT.G_PROG_STS_COMPLETE);
9313: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9314: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9315: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9316: RAISE OKL_API.G_EXCEPTION_ERROR;
9317: END IF;
9318: --srsreeni Bug6011651 ends
9319: END IF;
9320:
9339: x_msg_data,
9340: 'COMPLETE',
9341: p_chr_id );
9342:
9343: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9344: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9345: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9346: RAISE OKL_API.G_EXCEPTION_ERROR;
9347: END IF;
9340: 'COMPLETE',
9341: p_chr_id );
9342:
9343: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9344: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9345: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9346: RAISE OKL_API.G_EXCEPTION_ERROR;
9347: END IF;
9348: --call to cascade status on to lines
9341: p_chr_id );
9342:
9343: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9344: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9345: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9346: RAISE OKL_API.G_EXCEPTION_ERROR;
9347: END IF;
9348: --call to cascade status on to lines
9349: OKL_CONTRACT_STATUS_PVT.cascade_lease_status
9342:
9343: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9344: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9345: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9346: RAISE OKL_API.G_EXCEPTION_ERROR;
9347: END IF;
9348: --call to cascade status on to lines
9349: OKL_CONTRACT_STATUS_PVT.cascade_lease_status
9350: (p_api_version => l_api_version,
9353: x_msg_count => x_msg_count,
9354: x_msg_data => x_msg_data,
9355: p_chr_id => l_chr_id);
9356:
9357: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9358: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9359: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9360: RAISE OKL_API.G_EXCEPTION_ERROR;
9361: END IF;
9354: x_msg_data => x_msg_data,
9355: p_chr_id => l_chr_id);
9356:
9357: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9358: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9359: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9360: RAISE OKL_API.G_EXCEPTION_ERROR;
9361: END IF;
9362: --srsreeni Bug6011651 starts
9355: p_chr_id => l_chr_id);
9356:
9357: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9358: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9359: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9360: RAISE OKL_API.G_EXCEPTION_ERROR;
9361: END IF;
9362: --srsreeni Bug6011651 starts
9363: OKL_BOOK_CONTROLLER_PVT.update_book_controller_trx(
9356:
9357: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9358: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9359: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9360: RAISE OKL_API.G_EXCEPTION_ERROR;
9361: END IF;
9362: --srsreeni Bug6011651 starts
9363: OKL_BOOK_CONTROLLER_PVT.update_book_controller_trx(
9364: p_api_version => l_api_version,
9368: x_msg_data => x_msg_data,
9369: p_khr_id => l_chr_id,
9370: p_prog_short_name => OKL_BOOK_CONTROLLER_PVT.G_PRICE_CONTRACT,
9371: p_progress_status => OKL_BOOK_CONTROLLER_PVT.G_PROG_STS_COMPLETE);
9372: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9373: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9374: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9375: RAISE OKL_API.G_EXCEPTION_ERROR;
9376: END IF;
9369: p_khr_id => l_chr_id,
9370: p_prog_short_name => OKL_BOOK_CONTROLLER_PVT.G_PRICE_CONTRACT,
9371: p_progress_status => OKL_BOOK_CONTROLLER_PVT.G_PROG_STS_COMPLETE);
9372: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9373: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9374: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9375: RAISE OKL_API.G_EXCEPTION_ERROR;
9376: END IF;
9377: --srsreeni Bug6011651 ends
9370: p_prog_short_name => OKL_BOOK_CONTROLLER_PVT.G_PRICE_CONTRACT,
9371: p_progress_status => OKL_BOOK_CONTROLLER_PVT.G_PROG_STS_COMPLETE);
9372: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9373: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9374: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9375: RAISE OKL_API.G_EXCEPTION_ERROR;
9376: END IF;
9377: --srsreeni Bug6011651 ends
9378: END IF;
9371: p_progress_status => OKL_BOOK_CONTROLLER_PVT.G_PROG_STS_COMPLETE);
9372: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9373: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9374: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9375: RAISE OKL_API.G_EXCEPTION_ERROR;
9376: END IF;
9377: --srsreeni Bug6011651 ends
9378: END IF;
9379: --PAGARG 25-Feb-2005 Bug 4037658 starts
9394: ,p_chr_id => l_chr_id);
9395: --Added by kthiruva for Debugging
9396: write_to_log('After the call to mass_rebook_after_yield, return status is '||x_return_status);
9397:
9398: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9399: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9400: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9401: RAISE OKL_API.G_EXCEPTION_ERROR;
9402: END IF;
9395: --Added by kthiruva for Debugging
9396: write_to_log('After the call to mass_rebook_after_yield, return status is '||x_return_status);
9397:
9398: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9399: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9400: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9401: RAISE OKL_API.G_EXCEPTION_ERROR;
9402: END IF;
9403:
9396: write_to_log('After the call to mass_rebook_after_yield, return status is '||x_return_status);
9397:
9398: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9399: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9400: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9401: RAISE OKL_API.G_EXCEPTION_ERROR;
9402: END IF;
9403:
9404: -- after yield processing for an imported contract.
9397:
9398: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9399: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9400: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9401: RAISE OKL_API.G_EXCEPTION_ERROR;
9402: END IF;
9403:
9404: -- after yield processing for an imported contract.
9405: print( l_api_name, 'calling import api');
9416: --Added by kthiruva for Debugging
9417: write_to_log('After the call to contract_after_yield, return status is '||x_return_status);
9418:
9419: print( l_api_name, 'import api', x_return_status);
9420: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9421: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9422: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9423: RAISE OKL_API.G_EXCEPTION_ERROR;
9424: END IF;
9417: write_to_log('After the call to contract_after_yield, return status is '||x_return_status);
9418:
9419: print( l_api_name, 'import api', x_return_status);
9420: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9421: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9422: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9423: RAISE OKL_API.G_EXCEPTION_ERROR;
9424: END IF;
9425: --Bug 8814790: Moved split_asset_after_yield for ESG to be inside the IF condition
9418:
9419: print( l_api_name, 'import api', x_return_status);
9420: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9421: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9422: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9423: RAISE OKL_API.G_EXCEPTION_ERROR;
9424: END IF;
9425: --Bug 8814790: Moved split_asset_after_yield for ESG to be inside the IF condition
9426: --Added by vdamerla for bug 6344223
9419: print( l_api_name, 'import api', x_return_status);
9420: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9421: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9422: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9423: RAISE OKL_API.G_EXCEPTION_ERROR;
9424: END IF;
9425: --Bug 8814790: Moved split_asset_after_yield for ESG to be inside the IF condition
9426: --Added by vdamerla for bug 6344223
9427: print( l_api_name, 'calling split asset api');
9436: ,p_chr_id => l_chr_id);
9437: --Added by kthiruva for Debugging
9438: write_to_log('After the call to split_asset_after_yield, return status is '||x_return_status);
9439: print( l_api_name, 'split asset api', x_return_status);
9440: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9441: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9442: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9443: RAISE OKL_API.G_EXCEPTION_ERROR;
9444: END IF;
9437: --Added by kthiruva for Debugging
9438: write_to_log('After the call to split_asset_after_yield, return status is '||x_return_status);
9439: print( l_api_name, 'split asset api', x_return_status);
9440: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9441: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9442: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9443: RAISE OKL_API.G_EXCEPTION_ERROR;
9444: END IF;
9445: --end vdamerla for bug 6344223
9438: write_to_log('After the call to split_asset_after_yield, return status is '||x_return_status);
9439: print( l_api_name, 'split asset api', x_return_status);
9440: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9441: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9442: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9443: RAISE OKL_API.G_EXCEPTION_ERROR;
9444: END IF;
9445: --end vdamerla for bug 6344223
9446: END IF;
9439: print( l_api_name, 'split asset api', x_return_status);
9440: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9441: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9442: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9443: RAISE OKL_API.G_EXCEPTION_ERROR;
9444: END IF;
9445: --end vdamerla for bug 6344223
9446: END IF;
9447: ELSE -- For Internal Stream generator
9456: ,x_msg_count => x_msg_count
9457: ,x_msg_data => x_msg_data
9458: ,p_chr_id => l_chr_id);
9459:
9460: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9461: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9462: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9463: RAISE OKL_API.G_EXCEPTION_ERROR;
9464: END IF;
9457: ,x_msg_data => x_msg_data
9458: ,p_chr_id => l_chr_id);
9459:
9460: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9461: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9462: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9463: RAISE OKL_API.G_EXCEPTION_ERROR;
9464: END IF;
9465:
9458: ,p_chr_id => l_chr_id);
9459:
9460: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9461: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9462: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9463: RAISE OKL_API.G_EXCEPTION_ERROR;
9464: END IF;
9465:
9466: -- after yield processing for an imported contract.
9459:
9460: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9461: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9462: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9463: RAISE OKL_API.G_EXCEPTION_ERROR;
9464: END IF;
9465:
9466: -- after yield processing for an imported contract.
9467: print( l_api_name, 'calling import api');
9473: ,x_msg_data => x_msg_data
9474: ,p_chr_id => l_chr_id);
9475:
9476: print( l_api_name, 'import api', x_return_status);
9477: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9478: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9479: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9480: RAISE OKL_API.G_EXCEPTION_ERROR;
9481: END IF;
9474: ,p_chr_id => l_chr_id);
9475:
9476: print( l_api_name, 'import api', x_return_status);
9477: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9478: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9479: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9480: RAISE OKL_API.G_EXCEPTION_ERROR;
9481: END IF;
9482:
9475:
9476: print( l_api_name, 'import api', x_return_status);
9477: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9478: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9479: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9480: RAISE OKL_API.G_EXCEPTION_ERROR;
9481: END IF;
9482:
9483: --Bug 8814790: Moved split_asset_after_yield for ISG to be inside the ELSE condition
9476: print( l_api_name, 'import api', x_return_status);
9477: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9478: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9479: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9480: RAISE OKL_API.G_EXCEPTION_ERROR;
9481: END IF;
9482:
9483: --Bug 8814790: Moved split_asset_after_yield for ISG to be inside the ELSE condition
9484: --Added by vdamerla for bug 6344223
9490: ,x_msg_count => x_msg_count
9491: ,x_msg_data => x_msg_data
9492: ,p_chr_id => l_chr_id);
9493: print( l_api_name, 'split asset api', x_return_status);
9494: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9495: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9496: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9497: RAISE OKL_API.G_EXCEPTION_ERROR;
9498: END IF;
9491: ,x_msg_data => x_msg_data
9492: ,p_chr_id => l_chr_id);
9493: print( l_api_name, 'split asset api', x_return_status);
9494: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9495: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9496: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9497: RAISE OKL_API.G_EXCEPTION_ERROR;
9498: END IF;
9499: --end vdamerla for bug 6344223
9492: ,p_chr_id => l_chr_id);
9493: print( l_api_name, 'split asset api', x_return_status);
9494: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9495: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9496: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9497: RAISE OKL_API.G_EXCEPTION_ERROR;
9498: END IF;
9499: --end vdamerla for bug 6344223
9500: --PAGARG 25-Feb-2005 Bug 4037658
9493: print( l_api_name, 'split asset api', x_return_status);
9494: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9495: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9496: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9497: RAISE OKL_API.G_EXCEPTION_ERROR;
9498: END IF;
9499: --end vdamerla for bug 6344223
9500: --PAGARG 25-Feb-2005 Bug 4037658
9501: END IF; -- for p_source_call = 'ESG' check
9500: --PAGARG 25-Feb-2005 Bug 4037658
9501: END IF; -- for p_source_call = 'ESG' check
9502:
9503: print( l_api_name, 'end', x_return_status);
9504: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
9505: EXCEPTION
9506: WHEN OKL_API.G_EXCEPTION_ERROR THEN
9507: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
9508: p_api_name => l_api_name,
9502:
9503: print( l_api_name, 'end', x_return_status);
9504: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
9505: EXCEPTION
9506: WHEN OKL_API.G_EXCEPTION_ERROR THEN
9507: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
9508: p_api_name => l_api_name,
9509: p_pkg_name => g_pkg_name,
9510: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
9503: print( l_api_name, 'end', x_return_status);
9504: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
9505: EXCEPTION
9506: WHEN OKL_API.G_EXCEPTION_ERROR THEN
9507: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
9508: p_api_name => l_api_name,
9509: p_pkg_name => g_pkg_name,
9510: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
9511: x_msg_count => x_msg_count,
9506: WHEN OKL_API.G_EXCEPTION_ERROR THEN
9507: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
9508: p_api_name => l_api_name,
9509: p_pkg_name => g_pkg_name,
9510: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
9511: x_msg_count => x_msg_count,
9512: x_msg_data => x_msg_data,
9513: p_api_type => g_api_type);
9514: IF l_hdr_csr%ISOPEN THEN
9516: End If;
9517: IF get_fin_lne_csr%ISOPEN THEN
9518: CLOSE get_fin_lne_csr;
9519: End If;
9520: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
9521: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
9522: p_api_name => l_api_name,
9523: p_pkg_name => g_pkg_name,
9524: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
9517: IF get_fin_lne_csr%ISOPEN THEN
9518: CLOSE get_fin_lne_csr;
9519: End If;
9520: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
9521: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
9522: p_api_name => l_api_name,
9523: p_pkg_name => g_pkg_name,
9524: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
9525: x_msg_count => x_msg_count,
9520: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
9521: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
9522: p_api_name => l_api_name,
9523: p_pkg_name => g_pkg_name,
9524: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
9525: x_msg_count => x_msg_count,
9526: x_msg_data => x_msg_data,
9527: p_api_type => g_api_type);
9528:
9536: IF get_fin_lne_csr%ISOPEN THEN
9537: CLOSE get_fin_lne_csr;
9538: End If;
9539: when OTHERS then
9540: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
9541: p_api_name => l_api_name,
9542: p_pkg_name => g_pkg_name,
9543: p_exc_name => 'OTHERS',
9544: x_msg_count => x_msg_count,
9555: -- End modification 11i10 bakuchib
9556: -- Start modification 11i10 bakuchib
9557: PROCEDURE check_for_mandatory_streams(
9558: p_api_version IN NUMBER,
9559: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
9560: x_return_status OUT NOCOPY VARCHAR2,
9561: x_msg_count OUT NOCOPY NUMBER,
9562: x_msg_data OUT NOCOPY VARCHAR2,
9563: p_chr_id IN OKC_K_HEADERS_B.ID%TYPE,
9571: j NUMBER;
9572: k NUMBER :=0;
9573: ln_dummy NUMBER := 0;
9574: ln_income NUMBER := 0;
9575: l_strm_name VARCHAR2(256) := OKL_API.G_MISS_CHAR;
9576: l_blnInclude VARCHAR2(3) := OKL_API.G_TRUE;
9577: l_blnhasfees VARCHAR2(3) := OKL_API.G_FALSE;
9578: l_blnhasfin VARCHAR2(3) := OKL_API.G_FALSE;
9579: TYPE l_streams_tbl_type IS TABLE OF VARCHAR2(256)
9572: k NUMBER :=0;
9573: ln_dummy NUMBER := 0;
9574: ln_income NUMBER := 0;
9575: l_strm_name VARCHAR2(256) := OKL_API.G_MISS_CHAR;
9576: l_blnInclude VARCHAR2(3) := OKL_API.G_TRUE;
9577: l_blnhasfees VARCHAR2(3) := OKL_API.G_FALSE;
9578: l_blnhasfin VARCHAR2(3) := OKL_API.G_FALSE;
9579: TYPE l_streams_tbl_type IS TABLE OF VARCHAR2(256)
9580: INDEX BY BINARY_INTEGER;
9573: ln_dummy NUMBER := 0;
9574: ln_income NUMBER := 0;
9575: l_strm_name VARCHAR2(256) := OKL_API.G_MISS_CHAR;
9576: l_blnInclude VARCHAR2(3) := OKL_API.G_TRUE;
9577: l_blnhasfees VARCHAR2(3) := OKL_API.G_FALSE;
9578: l_blnhasfin VARCHAR2(3) := OKL_API.G_FALSE;
9579: TYPE l_streams_tbl_type IS TABLE OF VARCHAR2(256)
9580: INDEX BY BINARY_INTEGER;
9581: TYPE fin_id_tbl_type IS TABLE OF NUMBER
9574: ln_income NUMBER := 0;
9575: l_strm_name VARCHAR2(256) := OKL_API.G_MISS_CHAR;
9576: l_blnInclude VARCHAR2(3) := OKL_API.G_TRUE;
9577: l_blnhasfees VARCHAR2(3) := OKL_API.G_FALSE;
9578: l_blnhasfin VARCHAR2(3) := OKL_API.G_FALSE;
9579: TYPE l_streams_tbl_type IS TABLE OF VARCHAR2(256)
9580: INDEX BY BINARY_INTEGER;
9581: TYPE fin_id_tbl_type IS TABLE OF NUMBER
9582: INDEX BY BINARY_INTEGER;
9752: l_pricing_name VARCHAR2(150); --02-Sep-11 SECHAWLA 12936702
9753: -- end mansrini
9754:
9755: BEGIN
9756: x_return_status := OKL_API.G_RET_STS_SUCCESS;
9757: -- Call start_activity to create savepoint, check compatibility
9758: -- and initialize message list
9759: x_return_status := OKL_API.START_ACTIVITY (
9760: l_api_name
9755: BEGIN
9756: x_return_status := OKL_API.G_RET_STS_SUCCESS;
9757: -- Call start_activity to create savepoint, check compatibility
9758: -- and initialize message list
9759: x_return_status := OKL_API.START_ACTIVITY (
9760: l_api_name
9761: ,p_init_msg_list
9762: ,'_PVT'
9763: ,x_return_status);
9761: ,p_init_msg_list
9762: ,'_PVT'
9763: ,x_return_status);
9764: -- Check if activity started successfully
9765: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9766: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9767: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9768: RAISE OKL_API.G_EXCEPTION_ERROR;
9769: END IF;
9762: ,'_PVT'
9763: ,x_return_status);
9764: -- Check if activity started successfully
9765: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9766: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9767: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9768: RAISE OKL_API.G_EXCEPTION_ERROR;
9769: END IF;
9770: l_streams_tbl(1) := 'RENT';
9763: ,x_return_status);
9764: -- Check if activity started successfully
9765: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9766: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9767: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9768: RAISE OKL_API.G_EXCEPTION_ERROR;
9769: END IF;
9770: l_streams_tbl(1) := 'RENT';
9771: l_streams_tbl(2) := 'PRINCIPAL BALANCE';
9764: -- Check if activity started successfully
9765: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9766: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9767: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9768: RAISE OKL_API.G_EXCEPTION_ERROR;
9769: END IF;
9770: l_streams_tbl(1) := 'RENT';
9771: l_streams_tbl(2) := 'PRINCIPAL BALANCE';
9772: l_streams_tbl(3) := 'RATE PARTICIPATION';
9796: x_stream_types_tbl(i).stream_type_id := p_stream_types_tbl(i).stream_type_id;
9797: x_stream_types_tbl(i).pricing_name := p_stream_types_tbl(i).pricing_name;
9798: x_stream_types_tbl(i).kle_asset_id := p_stream_types_tbl(i).kle_asset_id;
9799: x_stream_types_tbl(i).kle_fee_id := p_stream_types_tbl(i).kle_fee_id;
9800: IF x_stream_types_tbl(i).kle_fee_id <> OKL_API.G_MISS_NUM AND
9801: l_blnhasfees = OKL_API.G_FALSE THEN
9802: l_blnhasfees := OKL_API.G_TRUE;
9803: END IF;
9804: END LOOP;
9797: x_stream_types_tbl(i).pricing_name := p_stream_types_tbl(i).pricing_name;
9798: x_stream_types_tbl(i).kle_asset_id := p_stream_types_tbl(i).kle_asset_id;
9799: x_stream_types_tbl(i).kle_fee_id := p_stream_types_tbl(i).kle_fee_id;
9800: IF x_stream_types_tbl(i).kle_fee_id <> OKL_API.G_MISS_NUM AND
9801: l_blnhasfees = OKL_API.G_FALSE THEN
9802: l_blnhasfees := OKL_API.G_TRUE;
9803: END IF;
9804: END LOOP;
9805: END IF;
9798: x_stream_types_tbl(i).kle_asset_id := p_stream_types_tbl(i).kle_asset_id;
9799: x_stream_types_tbl(i).kle_fee_id := p_stream_types_tbl(i).kle_fee_id;
9800: IF x_stream_types_tbl(i).kle_fee_id <> OKL_API.G_MISS_NUM AND
9801: l_blnhasfees = OKL_API.G_FALSE THEN
9802: l_blnhasfees := OKL_API.G_TRUE;
9803: END IF;
9804: END LOOP;
9805: END IF;
9806:
9813: WHILE (( l_strm_name <> l_streams_tbl(i) ) AND ( j <= x_stream_types_tbl.COUNT)) LOOP
9814: OPEN strm_name_csr ( x_stream_types_tbl(j).stream_type_id );
9815: FETCH strm_name_csr into l_strm_name_rec;
9816: IF strm_name_csr%NOTFOUND THEN
9817: okl_api.set_message(p_app_name => G_APP_NAME,
9818: p_msg_name => G_LLA_NO_MATCHING_RECORD,
9819: p_token1 => G_COL_NAME_TOKEN,
9820: p_token1_value => 'Stream Type id');
9821: x_return_status := OKL_API.G_RET_STS_ERROR;
9817: okl_api.set_message(p_app_name => G_APP_NAME,
9818: p_msg_name => G_LLA_NO_MATCHING_RECORD,
9819: p_token1 => G_COL_NAME_TOKEN,
9820: p_token1_value => 'Stream Type id');
9821: x_return_status := OKL_API.G_RET_STS_ERROR;
9822: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
9823: END IF;
9824: CLOSE strm_name_csr;
9825: l_strm_name := l_strm_name_rec.name;
9818: p_msg_name => G_LLA_NO_MATCHING_RECORD,
9819: p_token1 => G_COL_NAME_TOKEN,
9820: p_token1_value => 'Stream Type id');
9821: x_return_status := OKL_API.G_RET_STS_ERROR;
9822: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
9823: END IF;
9824: CLOSE strm_name_csr;
9825: l_strm_name := l_strm_name_rec.name;
9826: j := j + 1;
9824: CLOSE strm_name_csr;
9825: l_strm_name := l_strm_name_rec.name;
9826: j := j + 1;
9827: END LOOP;
9828: IF x_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
9829: EXIT WHEN (x_return_status <> OKL_API.G_RET_STS_SUCCESS);
9830: END IF;
9831: IF ((j > x_stream_types_tbl.COUNT ) AND ( l_strm_name <> l_streams_tbl(i))) THEN
9832: l_blnInclude := OKL_API.G_FALSE;
9825: l_strm_name := l_strm_name_rec.name;
9826: j := j + 1;
9827: END LOOP;
9828: IF x_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
9829: EXIT WHEN (x_return_status <> OKL_API.G_RET_STS_SUCCESS);
9830: END IF;
9831: IF ((j > x_stream_types_tbl.COUNT ) AND ( l_strm_name <> l_streams_tbl(i))) THEN
9832: l_blnInclude := OKL_API.G_FALSE;
9833: -- If the Deal type Containing Lease
9828: IF x_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
9829: EXIT WHEN (x_return_status <> OKL_API.G_RET_STS_SUCCESS);
9830: END IF;
9831: IF ((j > x_stream_types_tbl.COUNT ) AND ( l_strm_name <> l_streams_tbl(i))) THEN
9832: l_blnInclude := OKL_API.G_FALSE;
9833: -- If the Deal type Containing Lease
9834: IF (INSTR( p_deal_type, 'LEASE') > 0) THEN
9835: -- Then we can include RENT,RENT,RENT,RESIDUAL VALUE INSURANCE PREMIUM
9836: -- RENT,RENT
9835: -- Then we can include RENT,RENT,RENT,RESIDUAL VALUE INSURANCE PREMIUM
9836: -- RENT,RENT
9837: IF l_streams_tbl(i) = 'RENT' OR
9838: l_streams_tbl(i) = 'RESIDUAL VALUE INSURANCE PREMIUM' THEN
9839: l_blnInclude := OKL_API.G_TRUE;
9840: -- then we can include PRE-TAX INCOME if Deal type is Lease Direct finance
9841: -- then we can include PRE-TAX INCOME if Deal type is Lease Sale Type
9842: ELSIF l_streams_tbl(i) = 'PRE-TAX INCOME' AND
9843: trim(p_deal_type) IN ('LEASEDF','LEASEST') THEN
9840: -- then we can include PRE-TAX INCOME if Deal type is Lease Direct finance
9841: -- then we can include PRE-TAX INCOME if Deal type is Lease Sale Type
9842: ELSIF l_streams_tbl(i) = 'PRE-TAX INCOME' AND
9843: trim(p_deal_type) IN ('LEASEDF','LEASEST') THEN
9844: l_blnInclude := OKL_API.G_TRUE;
9845: -- Then we can include FINANCED EXTENSION FEE INCOME if the Lease contract has Fee line
9846: ELSIF l_streams_tbl(i) = 'FINANCED EXTENSION FEE INCOME' AND
9847: l_blnhasfees = OKL_API.G_TRUE THEN
9848: l_blnInclude := OKL_API.G_TRUE;
9843: trim(p_deal_type) IN ('LEASEDF','LEASEST') THEN
9844: l_blnInclude := OKL_API.G_TRUE;
9845: -- Then we can include FINANCED EXTENSION FEE INCOME if the Lease contract has Fee line
9846: ELSIF l_streams_tbl(i) = 'FINANCED EXTENSION FEE INCOME' AND
9847: l_blnhasfees = OKL_API.G_TRUE THEN
9848: l_blnInclude := OKL_API.G_TRUE;
9849: -- then we can include RENTAL ACCRUAL if Deal type is Lease operating
9850: ELSIF l_streams_tbl(i) = 'RENTAL ACCRUAL' AND
9851: trim(p_deal_type) = 'LEASEOP' THEN
9844: l_blnInclude := OKL_API.G_TRUE;
9845: -- Then we can include FINANCED EXTENSION FEE INCOME if the Lease contract has Fee line
9846: ELSIF l_streams_tbl(i) = 'FINANCED EXTENSION FEE INCOME' AND
9847: l_blnhasfees = OKL_API.G_TRUE THEN
9848: l_blnInclude := OKL_API.G_TRUE;
9849: -- then we can include RENTAL ACCRUAL if Deal type is Lease operating
9850: ELSIF l_streams_tbl(i) = 'RENTAL ACCRUAL' AND
9851: trim(p_deal_type) = 'LEASEOP' THEN
9852: l_blnInclude := OKL_API.G_TRUE;
9848: l_blnInclude := OKL_API.G_TRUE;
9849: -- then we can include RENTAL ACCRUAL if Deal type is Lease operating
9850: ELSIF l_streams_tbl(i) = 'RENTAL ACCRUAL' AND
9851: trim(p_deal_type) = 'LEASEOP' THEN
9852: l_blnInclude := OKL_API.G_TRUE;
9853: END IF;
9854: -- If the Deal type Containing Loan
9855: ELSIF (INSTR(p_deal_type, 'LOAN') > 0) THEN
9856: -- Then we can include PRINCIPAL BALANCE,INTEREST PAYMENT,PRINCIPAL PAYMENT,
9859: l_streams_tbl(i) = 'INTEREST PAYMENT' OR
9860: l_streams_tbl(i) = 'PRINCIPAL PAYMENT' OR
9861: l_streams_tbl(i) = 'LOAN PAYMENT' OR
9862: l_streams_tbl(i) = 'PRE-TAX INCOME' THEN
9863: l_blnInclude := OKL_API.G_TRUE;
9864: END IF;
9865: END IF;
9866: -- We include the below streams independent of the Deal type but
9867: -- Conditional basis of weather the contact has Fee line
9867: -- Conditional basis of weather the contact has Fee line
9868: -- RATE PARTICIPATION,FAS 91 FEE INCOME,RATE SUBSIDY,
9869: -- TERMINATION VALUE,STIP LOSS VALUE,FEE INCOME,PERIODIC EXPENSE PAYABLE
9870: IF (l_streams_tbl(i) = 'RATE PARTICIPATION' AND
9871: l_blnhasfees = OKL_API.G_TRUE) OR
9872: (l_streams_tbl(i) = 'RATE SUBSIDY' AND
9873: l_blnhasfees = OKL_API.G_TRUE) OR
9874: (l_streams_tbl(i) = 'FEE INCOME' AND
9875: l_blnhasfees = OKL_API.G_TRUE) OR
9869: -- TERMINATION VALUE,STIP LOSS VALUE,FEE INCOME,PERIODIC EXPENSE PAYABLE
9870: IF (l_streams_tbl(i) = 'RATE PARTICIPATION' AND
9871: l_blnhasfees = OKL_API.G_TRUE) OR
9872: (l_streams_tbl(i) = 'RATE SUBSIDY' AND
9873: l_blnhasfees = OKL_API.G_TRUE) OR
9874: (l_streams_tbl(i) = 'FEE INCOME' AND
9875: l_blnhasfees = OKL_API.G_TRUE) OR
9876: (l_streams_tbl(i) = 'FAS 91 FEE INCOME') OR
9877: (l_streams_tbl(i) = 'TERMINATION VALUE') OR
9871: l_blnhasfees = OKL_API.G_TRUE) OR
9872: (l_streams_tbl(i) = 'RATE SUBSIDY' AND
9873: l_blnhasfees = OKL_API.G_TRUE) OR
9874: (l_streams_tbl(i) = 'FEE INCOME' AND
9875: l_blnhasfees = OKL_API.G_TRUE) OR
9876: (l_streams_tbl(i) = 'FAS 91 FEE INCOME') OR
9877: (l_streams_tbl(i) = 'TERMINATION VALUE') OR
9878: (l_streams_tbl(i) = 'STIP LOSS VALUE') THEN
9879: l_blnInclude := OKL_API.G_TRUE;
9875: l_blnhasfees = OKL_API.G_TRUE) OR
9876: (l_streams_tbl(i) = 'FAS 91 FEE INCOME') OR
9877: (l_streams_tbl(i) = 'TERMINATION VALUE') OR
9878: (l_streams_tbl(i) = 'STIP LOSS VALUE') THEN
9879: l_blnInclude := OKL_API.G_TRUE;
9880: -- Start of BUG#2997914 fix
9881: END IF;
9882: -- End of BUG#2997914 fix
9883: -- Handling only fee receivable Streams
9881: END IF;
9882: -- End of BUG#2997914 fix
9883: -- Handling only fee receivable Streams
9884: IF l_streams_tbl(i) = 'FEE INCOME' AND
9885: l_blnInclude = OKL_API.G_TRUE THEN
9886: FOR k IN p_stream_types_tbl.FIRST..p_stream_types_tbl.LAST LOOP
9887: IF p_stream_types_tbl(k).kle_fee_id <> OKL_API.G_MISS_NUM THEN
9888: OPEN l_fee_type_csr (p_chr_id,
9889: p_stream_types_tbl(k).kle_fee_id);
9883: -- Handling only fee receivable Streams
9884: IF l_streams_tbl(i) = 'FEE INCOME' AND
9885: l_blnInclude = OKL_API.G_TRUE THEN
9886: FOR k IN p_stream_types_tbl.FIRST..p_stream_types_tbl.LAST LOOP
9887: IF p_stream_types_tbl(k).kle_fee_id <> OKL_API.G_MISS_NUM THEN
9888: OPEN l_fee_type_csr (p_chr_id,
9889: p_stream_types_tbl(k).kle_fee_id);
9890: FETCH l_fee_type_csr INTO l_fee_type_rec;
9891: CLOSE l_fee_type_csr;
9889: p_stream_types_tbl(k).kle_fee_id);
9890: FETCH l_fee_type_csr INTO l_fee_type_rec;
9891: CLOSE l_fee_type_csr;
9892: IF l_fee_type_rec.fee_type IN ('PASSTHROUGH','MISCELLANEOUS') THEN
9893: l_blnInclude := OKL_API.G_TRUE;
9894: EXIT;
9895: ELSE
9896: l_blnInclude := OKL_API.G_FALSE;
9897: END IF;
9892: IF l_fee_type_rec.fee_type IN ('PASSTHROUGH','MISCELLANEOUS') THEN
9893: l_blnInclude := OKL_API.G_TRUE;
9894: EXIT;
9895: ELSE
9896: l_blnInclude := OKL_API.G_FALSE;
9897: END IF;
9898: END IF;
9899: END LOOP;
9900: END IF;
9897: END IF;
9898: END IF;
9899: END LOOP;
9900: END IF;
9901: IF (l_blnInclude = OKL_API.G_TRUE) THEN
9902: OPEN l_strmid_csr(l_streams_tbl(i));
9903: FETCH l_strmid_csr into l_strmid_rec;
9904: IF l_strmid_csr%NOTFOUND THEN
9905: okl_api.set_message(p_app_name => G_APP_NAME,
9901: IF (l_blnInclude = OKL_API.G_TRUE) THEN
9902: OPEN l_strmid_csr(l_streams_tbl(i));
9903: FETCH l_strmid_csr into l_strmid_rec;
9904: IF l_strmid_csr%NOTFOUND THEN
9905: okl_api.set_message(p_app_name => G_APP_NAME,
9906: p_msg_name => G_LLA_NO_MATCHING_RECORD,
9907: p_token1 => G_COL_NAME_TOKEN,
9908: p_token1_value => 'Stream Type');
9909: x_return_status := OKL_API.G_RET_STS_ERROR;
9905: okl_api.set_message(p_app_name => G_APP_NAME,
9906: p_msg_name => G_LLA_NO_MATCHING_RECORD,
9907: p_token1 => G_COL_NAME_TOKEN,
9908: p_token1_value => 'Stream Type');
9909: x_return_status := OKL_API.G_RET_STS_ERROR;
9910: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
9911: END IF;
9912: CLOSE l_strmid_csr;
9913: styid := l_strmid_rec.styid;
9906: p_msg_name => G_LLA_NO_MATCHING_RECORD,
9907: p_token1 => G_COL_NAME_TOKEN,
9908: p_token1_value => 'Stream Type');
9909: x_return_status := OKL_API.G_RET_STS_ERROR;
9910: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
9911: END IF;
9912: CLOSE l_strmid_csr;
9913: styid := l_strmid_rec.styid;
9914: -- Then we can include PRINCIPAL BALANCE,INTEREST PAYMENT,PRINCIPAL PAYMENT,
9933: END IF;
9934: END IF;
9935: END IF;
9936: END LOOP;
9937: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9938: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9939: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9940: RAISE OKL_API.G_EXCEPTION_ERROR;
9941: END IF;
9934: END IF;
9935: END IF;
9936: END LOOP;
9937: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9938: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9939: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9940: RAISE OKL_API.G_EXCEPTION_ERROR;
9941: END IF;
9942:
9935: END IF;
9936: END LOOP;
9937: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9938: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9939: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9940: RAISE OKL_API.G_EXCEPTION_ERROR;
9941: END IF;
9942:
9943: --Code commented by HKPATEL for userdefined streams */
9936: END LOOP;
9937: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9938: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9939: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9940: RAISE OKL_API.G_EXCEPTION_ERROR;
9941: END IF;
9942:
9943: --Code commented by HKPATEL for userdefined streams */
9944: /*
9947: FOR r_finance_strm_rec IN c_finance_strm_csr LOOP
9948: x_stream_types_tbl(x_stream_types_tbl.COUNT+1).stream_type_id := r_finance_strm_rec.id;
9949: x_stream_types_tbl(x_stream_types_tbl.COUNT).kle_asset_id := l_fin_type_rec.fin_id;
9950: END LOOP;
9951: l_blnhasfin := OKL_API.G_TRUE;
9952: END LOOP;
9953: -- Now we get the Subsidy Income Accural stream type id , wil be fetched from
9954: -- Subsidy setup
9955: FOR get_sub_line_rec IN get_sub_line_csr (p_dnz_chr_id => p_chr_id) LOOP
10049:
10050: -- Code for user defined streams ends here
10051:
10052:
10053: OKL_API.END_ACTIVITY (x_msg_count,
10054: x_msg_data );
10055:
10056: EXCEPTION
10057: WHEN OKL_API.G_EXCEPTION_ERROR THEN
10053: OKL_API.END_ACTIVITY (x_msg_count,
10054: x_msg_data );
10055:
10056: EXCEPTION
10057: WHEN OKL_API.G_EXCEPTION_ERROR THEN
10058: IF get_sub_line_csr%ISOPEN THEN
10059: CLOSE get_sub_line_csr;
10060: END IF;
10061: IF strm_name_csr%ISOPEN THEN
10073: IF l_fin_type_csr%ISOPEN THEN
10074: CLOSE l_fin_type_csr;
10075: END IF;
10076:
10077: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
10078: l_api_name,
10079: G_PKG_NAME,
10080: 'OKL_API.G_RET_STS_ERROR',
10081: x_msg_count,
10076:
10077: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
10078: l_api_name,
10079: G_PKG_NAME,
10080: 'OKL_API.G_RET_STS_ERROR',
10081: x_msg_count,
10082: x_msg_data,
10083: '_PVT');
10084: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
10080: 'OKL_API.G_RET_STS_ERROR',
10081: x_msg_count,
10082: x_msg_data,
10083: '_PVT');
10084: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
10085: IF get_sub_line_csr%ISOPEN THEN
10086: CLOSE get_sub_line_csr;
10087: END IF;
10088: IF strm_name_csr%ISOPEN THEN
10099: END IF;
10100: IF l_fin_type_csr%ISOPEN THEN
10101: CLOSE l_fin_type_csr;
10102: END IF;
10103: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
10104: l_api_name,
10105: G_PKG_NAME,
10106: 'OKL_API.G_RET_STS_UNEXP_ERROR',
10107: x_msg_count,
10102: END IF;
10103: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
10104: l_api_name,
10105: G_PKG_NAME,
10106: 'OKL_API.G_RET_STS_UNEXP_ERROR',
10107: x_msg_count,
10108: x_msg_data,
10109: '_PVT');
10110: WHEN OTHERS THEN
10126: END IF;
10127: IF l_fin_type_csr%ISOPEN THEN
10128: CLOSE l_fin_type_csr;
10129: END IF;
10130: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
10131: l_api_name,
10132: G_PKG_NAME,
10133: 'OTHERS',
10134: x_msg_count,
10138: -- End modification 11i10 bakuchib
10139: Procedure extract_security_deposit( p_api_version IN NUMBER,
10140: p_chr_id IN NUMBER,
10141: p_deal_type IN VARCHAR2,
10142: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
10143: x_msg_count OUT NOCOPY NUMBER,
10144: x_msg_data OUT NOCOPY VARCHAR2,
10145: x_return_status OUT NOCOPY VARCHAR2,
10146: px_csm_lease_header IN OUT NOCOPY okl_create_streams_pub.csm_lease_rec_type,
10150:
10151: l_api_name CONSTANT VARCHAR2(30) := 'EXTRACT_SECURITY_DEPOSIT';
10152: l_api_version CONSTANT NUMBER := 1;
10153:
10154: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
10155: x NUMBER := 0;
10156:
10157: CURSOR c_deposit_date( chrId NUMBER) IS
10158: SELECT FND_DATE.canonical_to_date(rule_information5) date_returned
10251: Begin
10252:
10253: print( l_api_name, 'begin');
10254:
10255: x_return_status := OKL_API.START_ACTIVITY(
10256: p_api_name => l_api_name,
10257: p_pkg_name => g_pkg_name,
10258: p_init_msg_list => p_init_msg_list,
10259: l_api_version => l_api_version,
10262:
10263: x_return_status => x_return_status);
10264:
10265: -- check if ac1tivity started successfully
10266: If (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
10267: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10268: ElSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
10269: raise OKL_API.G_EXCEPTION_ERROR;
10270: End If;
10263: x_return_status => x_return_status);
10264:
10265: -- check if ac1tivity started successfully
10266: If (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
10267: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10268: ElSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
10269: raise OKL_API.G_EXCEPTION_ERROR;
10270: End If;
10271:
10264:
10265: -- check if ac1tivity started successfully
10266: If (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
10267: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10268: ElSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
10269: raise OKL_API.G_EXCEPTION_ERROR;
10270: End If;
10271:
10272: --sechawla 20-Jul-09 PRB ESG Enhancements : check rebook option
10265: -- check if ac1tivity started successfully
10266: If (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
10267: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10268: ElSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
10269: raise OKL_API.G_EXCEPTION_ERROR;
10270: End If;
10271:
10272: --sechawla 20-Jul-09 PRB ESG Enhancements : check rebook option
10273: open get_rebook_type ;
10318: OPEN l_rl_csr1 ( 'LALEVL', 'LASLL', TO_NUMBER(p_chr_id), l_lne_rec1.id );
10319: FETCH l_rl_csr1 INTO l_rl_rec1;
10320: CLOSE l_rl_csr1;
10321: px_csm_one_off_fee_tbl(l).amount := FND_NUMBER.canonical_to_number(nvl(l_rl_rec1.RULE_INFORMATION6,'0'));
10322: IF(l_rl_rec1.RULE_INFORMATION2 IS NULL or l_rl_rec1.RULE_INFORMATION2 = OKL_API.G_MISS_CHAR) Then
10323: px_csm_one_off_fee_tbl(l).date_start := l_lne_rec1.start_date ;
10324: ELSE
10325: px_csm_one_off_fee_tbl(l).date_start := FND_DATE.canonical_to_date(l_rl_rec1.RULE_INFORMATION2);
10326: END IF;
10341: End If;
10342: END IF;
10343: END LOOP;
10344:
10345: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
10346:
10347: print( l_api_name, 'end', x_return_status);
10348:
10349: Exception
10347: print( l_api_name, 'end', x_return_status);
10348:
10349: Exception
10350:
10351: when OKL_API.G_EXCEPTION_ERROR then
10352: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
10353: p_api_name => l_api_name,
10354: p_pkg_name => g_pkg_name,
10355: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
10348:
10349: Exception
10350:
10351: when OKL_API.G_EXCEPTION_ERROR then
10352: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
10353: p_api_name => l_api_name,
10354: p_pkg_name => g_pkg_name,
10355: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
10356: x_msg_count => x_msg_count,
10351: when OKL_API.G_EXCEPTION_ERROR then
10352: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
10353: p_api_name => l_api_name,
10354: p_pkg_name => g_pkg_name,
10355: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
10356: x_msg_count => x_msg_count,
10357: x_msg_data => x_msg_data,
10358: p_api_type => g_api_type);
10359:
10360: If (fee_strm_type_csr1%ISOPEN) Then
10361: CLOSE fee_strm_type_csr1;
10362: End If;
10363:
10364: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
10365: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
10366:
10367: p_api_name => l_api_name,
10368:
10361: CLOSE fee_strm_type_csr1;
10362: End If;
10363:
10364: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
10365: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
10366:
10367: p_api_name => l_api_name,
10368:
10369: p_pkg_name => g_pkg_name,
10366:
10367: p_api_name => l_api_name,
10368:
10369: p_pkg_name => g_pkg_name,
10370: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
10371: x_msg_count => x_msg_count,
10372: x_msg_data => x_msg_data,
10373: p_api_type => g_api_type);
10374:
10376: CLOSE fee_strm_type_csr;
10377: End If;
10378:
10379: when OTHERS then
10380: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
10381: p_api_name => l_api_name,
10382: p_pkg_name => g_pkg_name,
10383: p_exc_name => 'OTHERS',
10384: x_msg_count => x_msg_count,
10411: -- : BAKUCHIB 19-MAR-2004
10412: -- End of Commnets
10413: --------------------------------------------------------------------------------
10414: PROCEDURE extract_subsidized_lines(p_api_version IN NUMBER,
10415: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
10416: x_return_status OUT NOCOPY VARCHAR2,
10417: x_msg_count OUT NOCOPY NUMBER,
10418: x_msg_data OUT NOCOPY VARCHAR2,
10419: p_chr_id IN NUMBER,
10544: from okl_sys_acct_opts;
10545: l_PROSPECTIVE_REBOOK_YN VARCHAR2(1);
10546:
10547: BEGIN
10548: x_return_status := OKL_API.G_RET_STS_SUCCESS;
10549: -- Call start_activity to create savepoint, check compatibility
10550: -- and initialize message list
10551: x_return_status := OKL_API.START_ACTIVITY (
10552: l_api_name
10547: BEGIN
10548: x_return_status := OKL_API.G_RET_STS_SUCCESS;
10549: -- Call start_activity to create savepoint, check compatibility
10550: -- and initialize message list
10551: x_return_status := OKL_API.START_ACTIVITY (
10552: l_api_name
10553: ,p_init_msg_list
10554: ,'_PVT'
10555: ,x_return_status);
10553: ,p_init_msg_list
10554: ,'_PVT'
10555: ,x_return_status);
10556: -- check if ac1tivity started successfully
10557: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10558: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10559: ElSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10560: RAISE OKL_API.G_EXCEPTION_ERROR;
10561: END IF;
10554: ,'_PVT'
10555: ,x_return_status);
10556: -- check if ac1tivity started successfully
10557: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10558: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10559: ElSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10560: RAISE OKL_API.G_EXCEPTION_ERROR;
10561: END IF;
10562:
10555: ,x_return_status);
10556: -- check if ac1tivity started successfully
10557: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10558: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10559: ElSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10560: RAISE OKL_API.G_EXCEPTION_ERROR;
10561: END IF;
10562:
10563: --sechawla 20-Jul-09 PRB ESG Enhancements : check rebook option
10556: -- check if ac1tivity started successfully
10557: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10558: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10559: ElSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10560: RAISE OKL_API.G_EXCEPTION_ERROR;
10561: END IF;
10562:
10563: --sechawla 20-Jul-09 PRB ESG Enhancements : check rebook option
10564: open get_rebook_type;
10576: -- Now scan thru the CSM line details table for the asset id
10577: -- and then call the OKL_SUBSIDY_PROCESS_PVT to get the total subsidized amount for an asset
10578: FOR get_asset_lines_rec IN get_asset_lines_csr (p_chr_id => p_chr_id) LOOP
10579: IF get_asset_lines_rec.id IS NOT NULL OR
10580: get_asset_lines_rec.id <> OKL_API.G_MISS_NUM THEN
10581: execute_formula(p_api_version => p_api_version,
10582: p_init_msg_list => p_init_msg_list,
10583: x_return_status => x_return_status,
10584: x_msg_count => x_msg_count,
10587: p_formula_name => 'LINE_CAP_AMNT_PRICE',
10588: p_contract_id => p_chr_id,
10589: p_line_id => get_asset_lines_rec.id,
10590: x_value => ln_cap_amt);
10591: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10592: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
10593: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10594: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
10595: END IF;
10588: p_contract_id => p_chr_id,
10589: p_line_id => get_asset_lines_rec.id,
10590: x_value => ln_cap_amt);
10591: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10592: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
10593: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10594: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
10595: END IF;
10596: execute_formula(p_api_version => p_api_version,
10589: p_line_id => get_asset_lines_rec.id,
10590: x_value => ln_cap_amt);
10591: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10592: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
10593: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10594: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
10595: END IF;
10596: execute_formula(p_api_version => p_api_version,
10597: p_init_msg_list => p_init_msg_list,
10590: x_value => ln_cap_amt);
10591: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10592: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
10593: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10594: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
10595: END IF;
10596: execute_formula(p_api_version => p_api_version,
10597: p_init_msg_list => p_init_msg_list,
10598: x_return_status => x_return_status,
10601: p_formula_name => 'LINE_DISCOUNT',
10602: p_contract_id => p_chr_id,
10603: p_line_id => get_asset_lines_rec.id,
10604: x_value => ln_cap_dis);
10605: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10606: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
10607: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10608: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
10609: END IF;
10602: p_contract_id => p_chr_id,
10603: p_line_id => get_asset_lines_rec.id,
10604: x_value => ln_cap_dis);
10605: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10606: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
10607: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10608: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
10609: END IF;
10610: -- We are doing the above since we need the cap amt for each line
10603: p_line_id => get_asset_lines_rec.id,
10604: x_value => ln_cap_dis);
10605: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10606: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
10607: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10608: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
10609: END IF;
10610: -- We are doing the above since we need the cap amt for each line
10611: -- and since the cap amt is inclusive of the discount then
10604: x_value => ln_cap_dis);
10605: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10606: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
10607: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10608: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
10609: END IF;
10610: -- We are doing the above since we need the cap amt for each line
10611: -- and since the cap amt is inclusive of the discount then
10612: -- we need to exclude the same and then use to send the same to
10628: x_msg_count => x_msg_count,
10629: x_msg_data => x_msg_data,
10630: p_asset_cle_id => get_asset_lines_rec.id,
10631: x_asbv_tbl => l_asbv_tbl);
10632: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10633: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
10634: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10635: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
10636: END IF;
10629: x_msg_data => x_msg_data,
10630: p_asset_cle_id => get_asset_lines_rec.id,
10631: x_asbv_tbl => l_asbv_tbl);
10632: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10633: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
10634: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10635: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
10636: END IF;
10637: IF l_asbv_tbl.COUNT > 0 THEN
10630: p_asset_cle_id => get_asset_lines_rec.id,
10631: x_asbv_tbl => l_asbv_tbl);
10632: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10633: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
10634: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10635: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
10636: END IF;
10637: IF l_asbv_tbl.COUNT > 0 THEN
10638: FOR k IN l_asbv_tbl.FIRST..l_asbv_tbl.LAST LOOP
10631: x_asbv_tbl => l_asbv_tbl);
10632: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10633: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
10634: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10635: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
10636: END IF;
10637: IF l_asbv_tbl.COUNT > 0 THEN
10638: FOR k IN l_asbv_tbl.FIRST..l_asbv_tbl.LAST LOOP
10639: /* Bug# 7534196 - Commented
10652: l_csm_one_off_fee_tbl(i).amount := l_asbv_tbl(k).amount;
10653: END IF;
10654: END LOOP;
10655: ELSE
10656: okl_api.set_message(
10657: p_app_name => G_APP_NAME,
10658: p_msg_name => G_LLA_NO_MATCHING_RECORD,
10659: p_token1 => G_COL_NAME_TOKEN,
10660: p_token1_value => 'Subsidy Records');
10657: p_app_name => G_APP_NAME,
10658: p_msg_name => G_LLA_NO_MATCHING_RECORD,
10659: p_token1 => G_COL_NAME_TOKEN,
10660: p_token1_value => 'Subsidy Records');
10661: x_return_status := OKL_API.G_RET_STS_ERROR;
10662: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
10663: END IF;
10664: l_csm_one_off_fee_tbl(i).income_or_expense := OKL_CREATE_STREAMS_PUB.G_INCOME;
10665: l_csm_one_off_fee_tbl(i).date_paid := get_asset_lines_rec.date_funding;
10658: p_msg_name => G_LLA_NO_MATCHING_RECORD,
10659: p_token1 => G_COL_NAME_TOKEN,
10660: p_token1_value => 'Subsidy Records');
10661: x_return_status := OKL_API.G_RET_STS_ERROR;
10662: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
10663: END IF;
10664: l_csm_one_off_fee_tbl(i).income_or_expense := OKL_CREATE_STREAMS_PUB.G_INCOME;
10665: l_csm_one_off_fee_tbl(i).date_paid := get_asset_lines_rec.date_funding;
10666: l_csm_one_off_fee_tbl(i).kle_asset_id := get_asset_lines_rec.id;
10678: -- Changed for bug 4044089 by HKPATEL 12/02/2004
10679: --FETCH get_sub_income_strm_csr INTO l_csm_one_off_fee_tbl(i).description;
10680: FETCH get_sub_income_strm_csr INTO l_sty_id;
10681: IF get_sub_income_strm_csr%NOTFOUND THEN
10682: OKL_API.set_message(p_app_name => G_APP_NAME,
10683: p_msg_name => G_REQUIRED_VALUE,
10684: p_token1 => G_COL_NAME_TOKEN,
10685: p_token1_value => 'Subsidy Income Stream Description');
10686: x_return_status := OKL_API.G_RET_STS_ERROR;
10682: OKL_API.set_message(p_app_name => G_APP_NAME,
10683: p_msg_name => G_REQUIRED_VALUE,
10684: p_token1 => G_COL_NAME_TOKEN,
10685: p_token1_value => 'Subsidy Income Stream Description');
10686: x_return_status := OKL_API.G_RET_STS_ERROR;
10687: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
10688: END IF;
10689: CLOSE get_sub_income_strm_csr;
10690:
10683: p_msg_name => G_REQUIRED_VALUE,
10684: p_token1 => G_COL_NAME_TOKEN,
10685: p_token1_value => 'Subsidy Income Stream Description');
10686: x_return_status := OKL_API.G_RET_STS_ERROR;
10687: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
10688: END IF;
10689: CLOSE get_sub_income_strm_csr;
10690:
10691: -- New code for bug 4044089 by HKPATEL 12/02/2004
10710: CLOSE get_strm_type_code;
10711: -- New code for bug 4044089 by HKPATEL 12/02/2004 ends here
10712:
10713: END LOOP;
10714: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10715: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
10716: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10717: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
10718: END IF;
10711: -- New code for bug 4044089 by HKPATEL 12/02/2004 ends here
10712:
10713: END LOOP;
10714: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10715: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
10716: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10717: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
10718: END IF;
10719: ELSE
10712:
10713: END LOOP;
10714: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10715: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
10716: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10717: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
10718: END IF;
10719: ELSE
10720: OKL_API.set_message(p_app_name => G_APP_NAME,
10713: END LOOP;
10714: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10715: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
10716: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10717: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
10718: END IF;
10719: ELSE
10720: OKL_API.set_message(p_app_name => G_APP_NAME,
10721: p_msg_name => G_REQUIRED_VALUE,
10716: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10717: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
10718: END IF;
10719: ELSE
10720: OKL_API.set_message(p_app_name => G_APP_NAME,
10721: p_msg_name => G_REQUIRED_VALUE,
10722: p_token1 => G_COL_NAME_TOKEN,
10723: p_token1_value => 'kle_asset_id');
10724: x_return_status := OKL_API.G_RET_STS_ERROR;
10720: OKL_API.set_message(p_app_name => G_APP_NAME,
10721: p_msg_name => G_REQUIRED_VALUE,
10722: p_token1 => G_COL_NAME_TOKEN,
10723: p_token1_value => 'kle_asset_id');
10724: x_return_status := OKL_API.G_RET_STS_ERROR;
10725: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
10726: END IF;
10727: END LOOP;
10728: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
10721: p_msg_name => G_REQUIRED_VALUE,
10722: p_token1 => G_COL_NAME_TOKEN,
10723: p_token1_value => 'kle_asset_id');
10724: x_return_status := OKL_API.G_RET_STS_ERROR;
10725: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
10726: END IF;
10727: END LOOP;
10728: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
10729: RAISE OKL_API.G_EXCEPTION_ERROR;
10724: x_return_status := OKL_API.G_RET_STS_ERROR;
10725: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
10726: END IF;
10727: END LOOP;
10728: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
10729: RAISE OKL_API.G_EXCEPTION_ERROR;
10730: END IF;
10731: ELSE
10732: -- Since there are no One off tbl create one
10725: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
10726: END IF;
10727: END LOOP;
10728: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
10729: RAISE OKL_API.G_EXCEPTION_ERROR;
10730: END IF;
10731: ELSE
10732: -- Since there are no One off tbl create one
10733: -- Now scan thru the CSM line details table for the asset id
10733: -- Now scan thru the CSM line details table for the asset id
10734: -- and then call the OKL_SUBSIDY_PROCESS_PVT to get the total subsidized amount for an asset
10735: FOR get_asset_lines_rec IN get_asset_lines_csr (p_chr_id => p_chr_id) LOOP
10736: IF get_asset_lines_rec.id IS NOT NULL OR
10737: get_asset_lines_rec.id <> OKL_API.G_MISS_NUM THEN
10738: execute_formula(p_api_version => p_api_version,
10739: p_init_msg_list => p_init_msg_list,
10740: x_return_status => x_return_status,
10741: x_msg_count => x_msg_count,
10744: p_formula_name => 'LINE_CAP_AMNT_PRICE',
10745: p_contract_id => p_chr_id,
10746: p_line_id => get_asset_lines_rec.id,
10747: x_value => ln_cap_amt);
10748: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10749: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
10750: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10751: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
10752: END IF;
10745: p_contract_id => p_chr_id,
10746: p_line_id => get_asset_lines_rec.id,
10747: x_value => ln_cap_amt);
10748: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10749: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
10750: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10751: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
10752: END IF;
10753: execute_formula(p_api_version => p_api_version,
10746: p_line_id => get_asset_lines_rec.id,
10747: x_value => ln_cap_amt);
10748: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10749: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
10750: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10751: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
10752: END IF;
10753: execute_formula(p_api_version => p_api_version,
10754: p_init_msg_list => p_init_msg_list,
10747: x_value => ln_cap_amt);
10748: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10749: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
10750: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10751: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
10752: END IF;
10753: execute_formula(p_api_version => p_api_version,
10754: p_init_msg_list => p_init_msg_list,
10755: x_return_status => x_return_status,
10758: p_formula_name => 'LINE_DISCOUNT',
10759: p_contract_id => p_chr_id,
10760: p_line_id => get_asset_lines_rec.id,
10761: x_value => ln_cap_dis);
10762: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10763: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
10764: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10765: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
10766: END IF;
10759: p_contract_id => p_chr_id,
10760: p_line_id => get_asset_lines_rec.id,
10761: x_value => ln_cap_dis);
10762: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10763: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
10764: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10765: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
10766: END IF;
10767: -- We are doing the above since we need the cap amt for each line
10760: p_line_id => get_asset_lines_rec.id,
10761: x_value => ln_cap_dis);
10762: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10763: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
10764: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10765: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
10766: END IF;
10767: -- We are doing the above since we need the cap amt for each line
10768: -- and since the cap amt is inclusive of the discount then
10761: x_value => ln_cap_dis);
10762: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10763: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
10764: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10765: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
10766: END IF;
10767: -- We are doing the above since we need the cap amt for each line
10768: -- and since the cap amt is inclusive of the discount then
10769: -- we need to exclude the same and then use to send the same to
10786: x_msg_count => x_msg_count,
10787: x_msg_data => x_msg_data,
10788: p_asset_cle_id => get_asset_lines_rec.id,
10789: x_asbv_tbl => l_asbv_tbl);
10790: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10791: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
10792: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10793: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
10794: END IF;
10787: x_msg_data => x_msg_data,
10788: p_asset_cle_id => get_asset_lines_rec.id,
10789: x_asbv_tbl => l_asbv_tbl);
10790: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10791: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
10792: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10793: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
10794: END IF;
10795: IF l_asbv_tbl.COUNT > 0 THEN
10788: p_asset_cle_id => get_asset_lines_rec.id,
10789: x_asbv_tbl => l_asbv_tbl);
10790: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10791: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
10792: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10793: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
10794: END IF;
10795: IF l_asbv_tbl.COUNT > 0 THEN
10796: FOR k IN l_asbv_tbl.FIRST..l_asbv_tbl.LAST LOOP
10789: x_asbv_tbl => l_asbv_tbl);
10790: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10791: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
10792: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10793: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
10794: END IF;
10795: IF l_asbv_tbl.COUNT > 0 THEN
10796: FOR k IN l_asbv_tbl.FIRST..l_asbv_tbl.LAST LOOP
10797: /* Bug# 7534196 - Commented
10810: l_csm_one_off_fee_tbl(i).amount := l_asbv_tbl(k).amount;
10811: END IF;
10812: END LOOP;
10813: ELSE
10814: okl_api.set_message(
10815: p_app_name => G_APP_NAME,
10816: p_msg_name => G_LLA_NO_MATCHING_RECORD,
10817: p_token1 => G_COL_NAME_TOKEN,
10818: p_token1_value => 'Subsidy Records');
10815: p_app_name => G_APP_NAME,
10816: p_msg_name => G_LLA_NO_MATCHING_RECORD,
10817: p_token1 => G_COL_NAME_TOKEN,
10818: p_token1_value => 'Subsidy Records');
10819: x_return_status := OKL_API.G_RET_STS_ERROR;
10820: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
10821: END IF;
10822: l_csm_one_off_fee_tbl(i).income_or_expense := OKL_CREATE_STREAMS_PUB.G_INCOME;
10823: l_csm_one_off_fee_tbl(i).date_paid := get_asset_lines_rec.date_funding;
10816: p_msg_name => G_LLA_NO_MATCHING_RECORD,
10817: p_token1 => G_COL_NAME_TOKEN,
10818: p_token1_value => 'Subsidy Records');
10819: x_return_status := OKL_API.G_RET_STS_ERROR;
10820: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
10821: END IF;
10822: l_csm_one_off_fee_tbl(i).income_or_expense := OKL_CREATE_STREAMS_PUB.G_INCOME;
10823: l_csm_one_off_fee_tbl(i).date_paid := get_asset_lines_rec.date_funding;
10824: l_csm_one_off_fee_tbl(i).kle_asset_id := get_asset_lines_rec.id;
10834: p_sub_cle_id => get_acc_mth_code_rec.id);
10835: --FETCH get_sub_income_strm_csr INTO l_csm_one_off_fee_tbl(i).description;
10836: FETCH get_sub_income_strm_csr INTO l_sty_id;
10837: IF get_sub_income_strm_csr%NOTFOUND THEN
10838: OKL_API.set_message(p_app_name => G_APP_NAME,
10839: p_msg_name => G_REQUIRED_VALUE,
10840: p_token1 => G_COL_NAME_TOKEN,
10841: p_token1_value => 'Subsidy Income Stream Description');
10842: x_return_status := OKL_API.G_RET_STS_ERROR;
10838: OKL_API.set_message(p_app_name => G_APP_NAME,
10839: p_msg_name => G_REQUIRED_VALUE,
10840: p_token1 => G_COL_NAME_TOKEN,
10841: p_token1_value => 'Subsidy Income Stream Description');
10842: x_return_status := OKL_API.G_RET_STS_ERROR;
10843: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
10844: END IF;
10845: CLOSE get_sub_income_strm_csr;
10846: -- New code for bug 4044089 by HKPATEL 12/02/2004
10839: p_msg_name => G_REQUIRED_VALUE,
10840: p_token1 => G_COL_NAME_TOKEN,
10841: p_token1_value => 'Subsidy Income Stream Description');
10842: x_return_status := OKL_API.G_RET_STS_ERROR;
10843: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
10844: END IF;
10845: CLOSE get_sub_income_strm_csr;
10846: -- New code for bug 4044089 by HKPATEL 12/02/2004
10847: OKL_STREAMS_UTIL.get_dependent_stream_type
10865: CLOSE get_strm_type_code;
10866: -- New code for bug 4044089 by HKPATEL 12/02/2004 ends here
10867:
10868: END LOOP;
10869: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10870: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
10871: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10872: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
10873: END IF;
10866: -- New code for bug 4044089 by HKPATEL 12/02/2004 ends here
10867:
10868: END LOOP;
10869: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10870: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
10871: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10872: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
10873: END IF;
10874: ELSE
10867:
10868: END LOOP;
10869: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10870: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
10871: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10872: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
10873: END IF;
10874: ELSE
10875: OKL_API.set_message(p_app_name => G_APP_NAME,
10868: END LOOP;
10869: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
10870: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
10871: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10872: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
10873: END IF;
10874: ELSE
10875: OKL_API.set_message(p_app_name => G_APP_NAME,
10876: p_msg_name => G_REQUIRED_VALUE,
10871: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10872: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
10873: END IF;
10874: ELSE
10875: OKL_API.set_message(p_app_name => G_APP_NAME,
10876: p_msg_name => G_REQUIRED_VALUE,
10877: p_token1 => G_COL_NAME_TOKEN,
10878: p_token1_value => 'kle_asset_id');
10879: x_return_status := OKL_API.G_RET_STS_ERROR;
10875: OKL_API.set_message(p_app_name => G_APP_NAME,
10876: p_msg_name => G_REQUIRED_VALUE,
10877: p_token1 => G_COL_NAME_TOKEN,
10878: p_token1_value => 'kle_asset_id');
10879: x_return_status := OKL_API.G_RET_STS_ERROR;
10880: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
10881: END IF;
10882: END LOOP;
10883: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
10876: p_msg_name => G_REQUIRED_VALUE,
10877: p_token1 => G_COL_NAME_TOKEN,
10878: p_token1_value => 'kle_asset_id');
10879: x_return_status := OKL_API.G_RET_STS_ERROR;
10880: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
10881: END IF;
10882: END LOOP;
10883: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
10884: RAISE OKL_API.G_EXCEPTION_ERROR;
10879: x_return_status := OKL_API.G_RET_STS_ERROR;
10880: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
10881: END IF;
10882: END LOOP;
10883: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
10884: RAISE OKL_API.G_EXCEPTION_ERROR;
10885: END IF;
10886: END IF;
10887: END IF;
10880: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
10881: END IF;
10882: END LOOP;
10883: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
10884: RAISE OKL_API.G_EXCEPTION_ERROR;
10885: END IF;
10886: END IF;
10887: END IF;
10888: px_csm_one_off_fee_tbl := l_csm_one_off_fee_tbl;
10885: END IF;
10886: END IF;
10887: END IF;
10888: px_csm_one_off_fee_tbl := l_csm_one_off_fee_tbl;
10889: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
10890: x_msg_data => x_msg_data);
10891: EXCEPTION
10892: WHEN OKL_API.G_EXCEPTION_ERROR THEN
10893: IF get_asset_lines_csr%ISOPEN THEN
10888: px_csm_one_off_fee_tbl := l_csm_one_off_fee_tbl;
10889: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
10890: x_msg_data => x_msg_data);
10891: EXCEPTION
10892: WHEN OKL_API.G_EXCEPTION_ERROR THEN
10893: IF get_asset_lines_csr%ISOPEN THEN
10894: CLOSE get_asset_lines_csr;
10895: END IF;
10896: IF get_sub_income_strm_csr%ISOPEN THEN
10901: END IF;
10902: IF validate_sub_line%ISOPEN THEN
10903: CLOSE validate_sub_line;
10904: END IF;
10905: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
10906: p_api_name => l_api_name,
10907: p_pkg_name => g_pkg_name,
10908: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
10909: x_msg_count => x_msg_count,
10904: END IF;
10905: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
10906: p_api_name => l_api_name,
10907: p_pkg_name => g_pkg_name,
10908: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
10909: x_msg_count => x_msg_count,
10910: x_msg_data => x_msg_data,
10911: p_api_type => g_api_type);
10912: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
10908: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
10909: x_msg_count => x_msg_count,
10910: x_msg_data => x_msg_data,
10911: p_api_type => g_api_type);
10912: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
10913: IF get_asset_lines_csr%ISOPEN THEN
10914: CLOSE get_asset_lines_csr;
10915: END IF;
10916: IF get_sub_income_strm_csr%ISOPEN THEN
10921: END IF;
10922: IF validate_sub_line%ISOPEN THEN
10923: CLOSE validate_sub_line;
10924: END IF;
10925: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
10926: p_api_name => l_api_name,
10927: p_pkg_name => g_pkg_name,
10928: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
10929: x_msg_count => x_msg_count,
10924: END IF;
10925: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
10926: p_api_name => l_api_name,
10927: p_pkg_name => g_pkg_name,
10928: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
10929: x_msg_count => x_msg_count,
10930: x_msg_data => x_msg_data,
10931: p_api_type => g_api_type);
10932: WHEN OTHERS THEN
10941: END IF;
10942: IF validate_sub_line%ISOPEN THEN
10943: CLOSE validate_sub_line;
10944: END IF;
10945: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
10946: p_api_name => l_api_name,
10947: p_pkg_name => g_pkg_name,
10948: p_exc_name => 'OTHERS',
10949: x_msg_count => x_msg_count,
10954: -- Start modification 11i10 bakuchib
10955: Procedure extract_fee_lines( p_api_version IN NUMBER,
10956: p_chr_id IN NUMBER,
10957: p_deal_type IN VARCHAR2,
10958: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
10959: x_msg_count OUT NOCOPY NUMBER,
10960: x_msg_data OUT NOCOPY VARCHAR2,
10961: x_return_status OUT NOCOPY VARCHAR2,
10962: px_csm_one_off_fee_tbl IN OUT NOCOPY okl_create_streams_pub.csm_one_off_fee_tbl_type,
10964: px_csm_stream_types_tbl IN OUT NOCOPY okl_create_streams_pub.csm_stream_types_tbl_type) AS
10965:
10966: l_api_name CONSTANT VARCHAR2(30) := 'EXTRACT_FEE_LINES';
10967: l_api_version CONSTANT NUMBER := 1;
10968: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
10969: ln_level_cnt NUMBER := 0;
10970: l_pdt_id_rec l_hdr_pdt_csr%ROWTYPE;
10971: l_line_rec l_line_rec_csr%ROWTYPE;
10972: l_lne_rec l_line_rec_csr%ROWTYPE;
11258:
11259:
11260: Begin
11261: print( l_api_name, 'begin');
11262: x_return_status := OKL_API.START_ACTIVITY(
11263: p_api_name => l_api_name,
11264: p_pkg_name => g_pkg_name,
11265: p_init_msg_list => p_init_msg_list,
11266: l_api_version => l_api_version,
11267: p_api_version => p_api_version,
11268: p_api_type => G_API_TYPE,
11269: x_return_status => x_return_status);
11270: -- check if activity started successfully
11271: If (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
11272: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11273: ElSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
11274: raise OKL_API.G_EXCEPTION_ERROR;
11275: End If;
11268: p_api_type => G_API_TYPE,
11269: x_return_status => x_return_status);
11270: -- check if activity started successfully
11271: If (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
11272: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11273: ElSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
11274: raise OKL_API.G_EXCEPTION_ERROR;
11275: End If;
11276:
11269: x_return_status => x_return_status);
11270: -- check if activity started successfully
11271: If (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
11272: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11273: ElSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
11274: raise OKL_API.G_EXCEPTION_ERROR;
11275: End If;
11276:
11277: --sechawla 20-Jul-09 PRB ESG Enhancements : check rebook option
11270: -- check if activity started successfully
11271: If (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
11272: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11273: ElSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
11274: raise OKL_API.G_EXCEPTION_ERROR;
11275: End If;
11276:
11277: --sechawla 20-Jul-09 PRB ESG Enhancements : check rebook option
11278: open get_rebook_type;
11300:
11301: OPEN l_hdr_csr(p_chr_id);
11302: FETCH l_hdr_csr into l_hdr_rec;
11303: IF l_hdr_csr%NOTFOUND THEN
11304: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11305: END IF;
11306: CLOSE l_hdr_csr;
11307: i := 0; j := 0;
11308: k := px_csm_periodic_expenses_tbl.COUNT;
11318: print( l_api_name, 'Fee Line='||l_strm_name);
11319:
11320: l_fee_type := nvl(l_lne_rec.fee_type, 'NOFEETYPE');
11321: If (( l_fee_type = 'PASSTHROUGH' ) AND (l_passthru_percent < 0.0)) Then
11322: okl_api.set_message(
11323: p_app_name => G_APP_NAME,
11324: p_msg_name => 'OKL_LLA_NEG_PASSTHRU');
11325: raise OKL_API.G_EXCEPTION_ERROR;
11326: End If;
11321: If (( l_fee_type = 'PASSTHROUGH' ) AND (l_passthru_percent < 0.0)) Then
11322: okl_api.set_message(
11323: p_app_name => G_APP_NAME,
11324: p_msg_name => 'OKL_LLA_NEG_PASSTHRU');
11325: raise OKL_API.G_EXCEPTION_ERROR;
11326: End If;
11327:
11328: print( l_api_name, 'fee type'||l_fee_type);
11329: If (( l_fee_strm_type_rec.capitalize_yn = 'Y') OR ( l_fee_type = 'CAPITALIZED' )) Then
11372:
11373: l_months_factor := OKL_STREAM_GENERATOR_PVT.get_months_factor(
11374: p_frequency => l_frequency,
11375: x_return_status => x_return_status);
11376: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
11377: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11378: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
11379: RAISE OKL_API.G_EXCEPTION_ERROR;
11380: END IF;
11373: l_months_factor := OKL_STREAM_GENERATOR_PVT.get_months_factor(
11374: p_frequency => l_frequency,
11375: x_return_status => x_return_status);
11376: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
11377: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11378: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
11379: RAISE OKL_API.G_EXCEPTION_ERROR;
11380: END IF;
11381:
11374: p_frequency => l_frequency,
11375: x_return_status => x_return_status);
11376: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
11377: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11378: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
11379: RAISE OKL_API.G_EXCEPTION_ERROR;
11380: END IF;
11381:
11382: l_pay_start_date := r_pass.PAYMENT_START_DATE;
11375: x_return_status => x_return_status);
11376: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
11377: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11378: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
11379: RAISE OKL_API.G_EXCEPTION_ERROR;
11380: END IF;
11381:
11382: l_pay_start_date := r_pass.PAYMENT_START_DATE;
11383: l_prev_pay_start_date := NULL;
11392: p_prev_payout_date => l_prev_pay_start_date,
11393: p_payout_date => l_pay_start_date,
11394: x_bill_amount => l_bill_amount,
11395: x_return_status => x_return_status);
11396: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
11397: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11398: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
11399: RAISE OKL_API.G_EXCEPTION_ERROR;
11400: END IF;
11393: p_payout_date => l_pay_start_date,
11394: x_bill_amount => l_bill_amount,
11395: x_return_status => x_return_status);
11396: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
11397: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11398: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
11399: RAISE OKL_API.G_EXCEPTION_ERROR;
11400: END IF;
11401:
11394: x_bill_amount => l_bill_amount,
11395: x_return_status => x_return_status);
11396: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
11397: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11398: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
11399: RAISE OKL_API.G_EXCEPTION_ERROR;
11400: END IF;
11401:
11402: l_calc_disb_amount := (l_bill_amount * r_pass.DISBURSEMENT_PERCENT)/100;
11395: x_return_status => x_return_status);
11396: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
11397: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11398: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
11399: RAISE OKL_API.G_EXCEPTION_ERROR;
11400: END IF;
11401:
11402: l_calc_disb_amount := (l_bill_amount * r_pass.DISBURSEMENT_PERCENT)/100;
11403:
11401:
11402: l_calc_disb_amount := (l_bill_amount * r_pass.DISBURSEMENT_PERCENT)/100;
11403:
11404: okl_accounting_util.round_amount(p_api_version => 1.0,
11405: p_init_msg_list => OKL_API.G_FALSE,
11406: x_return_status => x_return_status,
11407: x_msg_count => x_msg_count,
11408: x_msg_data => x_msg_data,
11409: p_amount => l_calc_disb_amount,
11409: p_amount => l_calc_disb_amount,
11410: p_currency_code => l_hdr_rec.currency_code,
11411: p_round_option => 'STM',
11412: x_rounded_amount => l_disb_amount);
11413: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
11414: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11415: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
11416: RAISE OKL_API.G_EXCEPTION_ERROR;
11417: END IF;
11410: p_currency_code => l_hdr_rec.currency_code,
11411: p_round_option => 'STM',
11412: x_rounded_amount => l_disb_amount);
11413: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
11414: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11415: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
11416: RAISE OKL_API.G_EXCEPTION_ERROR;
11417: END IF;
11418:
11411: p_round_option => 'STM',
11412: x_rounded_amount => l_disb_amount);
11413: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
11414: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11415: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
11416: RAISE OKL_API.G_EXCEPTION_ERROR;
11417: END IF;
11418:
11419: IF(l_disb_amount <> 0) THEN
11412: x_rounded_amount => l_disb_amount);
11413: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
11414: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11415: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
11416: RAISE OKL_API.G_EXCEPTION_ERROR;
11417: END IF;
11418:
11419: IF(l_disb_amount <> 0) THEN
11420: k := k + 1;
11501: 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
11502:
11503: -- Start of Bug#2757289 modification
11504: IF (l_rl_rec.rule_information7 IS NOT NULL OR
11505: l_rl_rec.rule_information7 <> OKL_API.G_MISS_CHAR) AND
11506: (l_rl_rec.rule_information8 IS NOT NULL OR
11507: l_rl_rec.rule_information8 <> OKL_API.G_MISS_CHAR) THEN
11508: k := k + 1;
11509: idx := idx + 1;
11503: -- Start of Bug#2757289 modification
11504: IF (l_rl_rec.rule_information7 IS NOT NULL OR
11505: l_rl_rec.rule_information7 <> OKL_API.G_MISS_CHAR) AND
11506: (l_rl_rec.rule_information8 IS NOT NULL OR
11507: l_rl_rec.rule_information8 <> OKL_API.G_MISS_CHAR) THEN
11508: k := k + 1;
11509: idx := idx + 1;
11510: px_csm_periodic_expenses_tbl(k).level_index_number := idx;
11511: px_csm_periodic_expenses_tbl(k).amount := TO_NUMBER(l_rl_rec.rule_information8);
11541: END IF;
11542: -- Bug 4915938 - End of Changes
11543:
11544: ELSIF (l_rl_rec.rule_information7 IS NULL OR
11545: l_rl_rec.rule_information7 = OKL_API.G_MISS_CHAR) AND
11546: (l_rl_rec.rule_information8 IS NULL OR
11547: l_rl_rec.rule_information8 = OKL_API.G_MISS_CHAR) THEN
11548: k := k + 1;
11549: idx := idx + 1;
11543:
11544: ELSIF (l_rl_rec.rule_information7 IS NULL OR
11545: l_rl_rec.rule_information7 = OKL_API.G_MISS_CHAR) AND
11546: (l_rl_rec.rule_information8 IS NULL OR
11547: l_rl_rec.rule_information8 = OKL_API.G_MISS_CHAR) THEN
11548: k := k + 1;
11549: idx := idx + 1;
11550: px_csm_periodic_expenses_tbl(k).level_index_number := idx;
11551: px_csm_periodic_expenses_tbl(k).description := l_strm_name;
11572: px_csm_periodic_expenses_tbl(k).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ARREARS;
11573: ELSE
11574: px_csm_periodic_expenses_tbl(k).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ADVANCE;
11575: END IF;
11576: IF(l_rl_rec.RULE_INFORMATION2 IS NULL or l_rl_rec.RULE_INFORMATION2 = OKL_API.G_MISS_CHAR) THEN
11577: --11-Sep-09 sechawla 8798556
11578: --px_csm_periodic_expenses_tbl(k).date_start:=l_hdr_rec.start_date;
11579: px_csm_periodic_expenses_tbl(k).date_start:= l_linked_asset_line_rec.start_date;
11580: ELSE
11622:
11623:
11624: -- Start of Bug#2757289 modification
11625: IF (l_rl_rec.rule_information7 IS NOT NULL OR
11626: l_rl_rec.rule_information7 <> OKL_API.G_MISS_CHAR) AND
11627: (l_rl_rec.rule_information8 IS NOT NULL OR
11628: l_rl_rec.rule_information8 <> OKL_API.G_MISS_CHAR) THEN
11629: k := k + 1;
11630: idx := idx + 1;
11624: -- Start of Bug#2757289 modification
11625: IF (l_rl_rec.rule_information7 IS NOT NULL OR
11626: l_rl_rec.rule_information7 <> OKL_API.G_MISS_CHAR) AND
11627: (l_rl_rec.rule_information8 IS NOT NULL OR
11628: l_rl_rec.rule_information8 <> OKL_API.G_MISS_CHAR) THEN
11629: k := k + 1;
11630: idx := idx + 1;
11631: px_csm_periodic_expenses_tbl(k).level_index_number := idx;
11632: px_csm_periodic_expenses_tbl(k).amount := TO_NUMBER(l_rl_rec.rule_information8);
11662: END IF;
11663: -- Bug 4915938 - End of Changes
11664:
11665: ELSIF (l_rl_rec.rule_information7 IS NULL OR
11666: l_rl_rec.rule_information7 = OKL_API.G_MISS_CHAR) AND
11667: (l_rl_rec.rule_information8 IS NULL OR
11668: l_rl_rec.rule_information8 = OKL_API.G_MISS_CHAR) THEN
11669: k := k + 1;
11670: idx := idx + 1;
11664:
11665: ELSIF (l_rl_rec.rule_information7 IS NULL OR
11666: l_rl_rec.rule_information7 = OKL_API.G_MISS_CHAR) AND
11667: (l_rl_rec.rule_information8 IS NULL OR
11668: l_rl_rec.rule_information8 = OKL_API.G_MISS_CHAR) THEN
11669: k := k + 1;
11670: idx := idx + 1;
11671: px_csm_periodic_expenses_tbl(k).level_index_number := idx;
11672: px_csm_periodic_expenses_tbl(k).description := l_strm_name;
11693: px_csm_periodic_expenses_tbl(k).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ARREARS;
11694: ELSE
11695: px_csm_periodic_expenses_tbl(k).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ADVANCE;
11696: END IF;
11697: IF(l_rl_rec.RULE_INFORMATION2 IS NULL or l_rl_rec.RULE_INFORMATION2 = OKL_API.G_MISS_CHAR) THEN
11698: --11-Sep-09 sechawla 8798556
11699: --px_csm_periodic_expenses_tbl(k).date_start:=l_hdr_rec.start_date;
11700: px_csm_periodic_expenses_tbl(k).date_start:= l_lne_rec.start_date;
11701: ELSE
12030: idx := 0;
12031: 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
12032: -- Start of Bug#2757289 modification
12033: IF (l_rl_rec.rule_information7 IS NOT NULL OR
12034: l_rl_rec.rule_information7 <> OKL_API.G_MISS_CHAR) AND
12035: (l_rl_rec.rule_information8 IS NOT NULL OR
12036: l_rl_rec.rule_information8 <> OKL_API.G_MISS_CHAR) THEN
12037: k := k + 1;
12038: idx := idx + 1;
12032: -- Start of Bug#2757289 modification
12033: IF (l_rl_rec.rule_information7 IS NOT NULL OR
12034: l_rl_rec.rule_information7 <> OKL_API.G_MISS_CHAR) AND
12035: (l_rl_rec.rule_information8 IS NOT NULL OR
12036: l_rl_rec.rule_information8 <> OKL_API.G_MISS_CHAR) THEN
12037: k := k + 1;
12038: idx := idx + 1;
12039: px_csm_periodic_expenses_tbl(k).level_index_number := idx;
12040: px_csm_periodic_expenses_tbl(k).amount := TO_NUMBER(l_rl_rec.rule_information8);
12068: px_csm_periodic_expenses_tbl(k).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ADVANCE;
12069: END IF;
12070: -- Bug 4915938 - End of Changes
12071: ELSIF (l_rl_rec.rule_information7 IS NULL OR
12072: l_rl_rec.rule_information7 = OKL_API.G_MISS_CHAR) AND
12073: (l_rl_rec.rule_information8 IS NULL OR
12074: l_rl_rec.rule_information8 = OKL_API.G_MISS_CHAR) THEN
12075: -- End of Bug#2757289 modification
12076: k := k + 1;
12070: -- Bug 4915938 - End of Changes
12071: ELSIF (l_rl_rec.rule_information7 IS NULL OR
12072: l_rl_rec.rule_information7 = OKL_API.G_MISS_CHAR) AND
12073: (l_rl_rec.rule_information8 IS NULL OR
12074: l_rl_rec.rule_information8 = OKL_API.G_MISS_CHAR) THEN
12075: -- End of Bug#2757289 modification
12076: k := k + 1;
12077: idx := idx + 1;
12078: px_csm_periodic_expenses_tbl(k).level_index_number := idx;
12100: px_csm_periodic_expenses_tbl(k).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ARREARS;
12101: ELSE
12102: px_csm_periodic_expenses_tbl(k).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ADVANCE;
12103: END IF;
12104: IF(l_rl_rec.RULE_INFORMATION2 IS NULL or l_rl_rec.RULE_INFORMATION2 = OKL_API.G_MISS_CHAR) Then
12105: --11-Sep-09 sechawla 8798556
12106: --px_csm_periodic_expenses_tbl(k).date_start:=l_hdr_rec.start_date;
12107: px_csm_periodic_expenses_tbl(k).date_start:=l_linked_asset_line_rec.start_date;
12108: ELSE
12408: idx := 0;
12409: FOR l_rl_rec in l_rl_csr (l_rl_rec2.slh_id, 'LALEVL', 'LASLL', p_chr_id, l_lne_rec.id ) LOOP
12410: -- Start of Bug#2757289 modification
12411: IF (l_rl_rec.rule_information7 IS NOT NULL OR
12412: l_rl_rec.rule_information7 <> OKL_API.G_MISS_CHAR) AND
12413: (l_rl_rec.rule_information8 IS NOT NULL OR
12414: l_rl_rec.rule_information8 <> OKL_API.G_MISS_CHAR) THEN
12415: k := k + 1;
12416: idx := idx + 1;
12410: -- Start of Bug#2757289 modification
12411: IF (l_rl_rec.rule_information7 IS NOT NULL OR
12412: l_rl_rec.rule_information7 <> OKL_API.G_MISS_CHAR) AND
12413: (l_rl_rec.rule_information8 IS NOT NULL OR
12414: l_rl_rec.rule_information8 <> OKL_API.G_MISS_CHAR) THEN
12415: k := k + 1;
12416: idx := idx + 1;
12417: px_csm_periodic_expenses_tbl(k).level_index_number := idx;
12418: px_csm_periodic_expenses_tbl(k).amount := TO_NUMBER(l_rl_rec.rule_information8);
12446: px_csm_periodic_expenses_tbl(k).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ADVANCE;
12447: END IF;
12448: -- Bug 4915938 - End of Changes
12449: ELSIF (l_rl_rec.rule_information7 IS NULL OR
12450: l_rl_rec.rule_information7 = OKL_API.G_MISS_CHAR) AND
12451: (l_rl_rec.rule_information8 IS NULL OR
12452: l_rl_rec.rule_information8 = OKL_API.G_MISS_CHAR) THEN
12453: -- End of Bug#2757289 modification
12454: k := k + 1;
12448: -- Bug 4915938 - End of Changes
12449: ELSIF (l_rl_rec.rule_information7 IS NULL OR
12450: l_rl_rec.rule_information7 = OKL_API.G_MISS_CHAR) AND
12451: (l_rl_rec.rule_information8 IS NULL OR
12452: l_rl_rec.rule_information8 = OKL_API.G_MISS_CHAR) THEN
12453: -- End of Bug#2757289 modification
12454: k := k + 1;
12455: idx := idx + 1;
12456: px_csm_periodic_expenses_tbl(k).level_index_number := idx;
12478: px_csm_periodic_expenses_tbl(k).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ARREARS;
12479: ELSE
12480: px_csm_periodic_expenses_tbl(k).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ADVANCE;
12481: END IF;
12482: IF(l_rl_rec.RULE_INFORMATION2 IS NULL or l_rl_rec.RULE_INFORMATION2 = OKL_API.G_MISS_CHAR) Then
12483: --11-Sep-09 sechawla 8798556
12484: --px_csm_periodic_expenses_tbl(k).date_start:=l_hdr_rec.start_date;
12485: px_csm_periodic_expenses_tbl(k).date_start:= l_lne_rec.start_date;
12486: ELSE
12642: idx := 0;
12643: 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
12644: -- Start of Bug#2757289 modification
12645: IF (l_rl_rec.rule_information7 IS NOT NULL OR
12646: l_rl_rec.rule_information7 <> OKL_API.G_MISS_CHAR) AND
12647: (l_rl_rec.rule_information8 IS NOT NULL OR
12648: l_rl_rec.rule_information8 <> OKL_API.G_MISS_CHAR) THEN
12649: k := k + 1;
12650: idx := idx + 1;
12644: -- Start of Bug#2757289 modification
12645: IF (l_rl_rec.rule_information7 IS NOT NULL OR
12646: l_rl_rec.rule_information7 <> OKL_API.G_MISS_CHAR) AND
12647: (l_rl_rec.rule_information8 IS NOT NULL OR
12648: l_rl_rec.rule_information8 <> OKL_API.G_MISS_CHAR) THEN
12649: k := k + 1;
12650: idx := idx + 1;
12651: px_csm_periodic_expenses_tbl(k).level_index_number := idx;
12652: px_csm_periodic_expenses_tbl(k).amount := TO_NUMBER(l_rl_rec.rule_information8);
12681: END IF;
12682: -- Bug 4915938 - End of Changes
12683:
12684: ELSIF (l_rl_rec.rule_information7 IS NULL OR
12685: l_rl_rec.rule_information7 = OKL_API.G_MISS_CHAR) AND
12686: (l_rl_rec.rule_information8 IS NULL OR
12687: l_rl_rec.rule_information8 = OKL_API.G_MISS_CHAR) THEN
12688: k := k + 1;
12689: idx := idx + 1;
12683:
12684: ELSIF (l_rl_rec.rule_information7 IS NULL OR
12685: l_rl_rec.rule_information7 = OKL_API.G_MISS_CHAR) AND
12686: (l_rl_rec.rule_information8 IS NULL OR
12687: l_rl_rec.rule_information8 = OKL_API.G_MISS_CHAR) THEN
12688: k := k + 1;
12689: idx := idx + 1;
12690: px_csm_periodic_expenses_tbl(k).level_index_number := idx;
12691: px_csm_periodic_expenses_tbl(k).description := l_strm_name;
12713: ELSE
12714: px_csm_periodic_expenses_tbl(k).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ADVANCE;
12715: END IF;
12716: IF(l_rl_rec.rule_information2 IS NULL OR
12717: l_rl_rec.rule_information2 = OKL_API.G_MISS_CHAR) THEN
12718: --11-Sep-09 sechawla 8798556
12719: --px_csm_periodic_expenses_tbl(k).date_start:=l_hdr_rec.start_date;
12720: px_csm_periodic_expenses_tbl(k).date_start:= l_linked_asset_line_rec.start_date;
12721: ELSE
12796: idx := 0;
12797: FOR l_rl_rec IN l_rl_csr (l_rl_rec2.slh_id,'LALEVL','LASLL',p_chr_id, l_lne_rec.id) LOOP
12798: -- Start of Bug#2757289 modification
12799: IF (l_rl_rec.rule_information7 IS NOT NULL OR
12800: l_rl_rec.rule_information7 <> OKL_API.G_MISS_CHAR) AND
12801: (l_rl_rec.rule_information8 IS NOT NULL OR
12802: l_rl_rec.rule_information8 <> OKL_API.G_MISS_CHAR) THEN
12803: k := k + 1;
12804: idx := idx + 1;
12798: -- Start of Bug#2757289 modification
12799: IF (l_rl_rec.rule_information7 IS NOT NULL OR
12800: l_rl_rec.rule_information7 <> OKL_API.G_MISS_CHAR) AND
12801: (l_rl_rec.rule_information8 IS NOT NULL OR
12802: l_rl_rec.rule_information8 <> OKL_API.G_MISS_CHAR) THEN
12803: k := k + 1;
12804: idx := idx + 1;
12805: px_csm_periodic_expenses_tbl(k).level_index_number := idx;
12806: px_csm_periodic_expenses_tbl(k).amount := TO_NUMBER(l_rl_rec.rule_information8);
12835: END IF;
12836: -- Bug 4915938 - End of Changes
12837:
12838: ELSIF (l_rl_rec.rule_information7 IS NULL OR
12839: l_rl_rec.rule_information7 = OKL_API.G_MISS_CHAR) AND
12840: (l_rl_rec.rule_information8 IS NULL OR
12841: l_rl_rec.rule_information8 = OKL_API.G_MISS_CHAR) THEN
12842: k := k + 1;
12843: idx := idx + 1;
12837:
12838: ELSIF (l_rl_rec.rule_information7 IS NULL OR
12839: l_rl_rec.rule_information7 = OKL_API.G_MISS_CHAR) AND
12840: (l_rl_rec.rule_information8 IS NULL OR
12841: l_rl_rec.rule_information8 = OKL_API.G_MISS_CHAR) THEN
12842: k := k + 1;
12843: idx := idx + 1;
12844: px_csm_periodic_expenses_tbl(k).level_index_number := idx;
12845: px_csm_periodic_expenses_tbl(k).description := l_strm_name;
12867: ELSE
12868: px_csm_periodic_expenses_tbl(k).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ADVANCE;
12869: END IF;
12870: IF(l_rl_rec.rule_information2 IS NULL OR
12871: l_rl_rec.rule_information2 = OKL_API.G_MISS_CHAR) THEN
12872: --11-Sep-09 sechawla 8798556
12873: --px_csm_periodic_expenses_tbl(k).date_start:=l_hdr_rec.start_date;
12874: px_csm_periodic_expenses_tbl(k).date_start:=l_lne_rec.start_date;
12875: ELSE
12986: idx := 0;
12987: FOR l_rl_rec IN l_rl_csr (l_rl_rec2.slh_id,'LALEVL','LASLL',p_chr_id, link_rollover_rec.id) LOOP
12988: -- Start of Bug#2757289 modification
12989: IF (l_rl_rec.rule_information7 IS NOT NULL OR
12990: l_rl_rec.rule_information7 <> OKL_API.G_MISS_CHAR) AND
12991: (l_rl_rec.rule_information8 IS NOT NULL OR
12992: l_rl_rec.rule_information8 <> OKL_API.G_MISS_CHAR) THEN
12993: k := k + 1;
12994: idx := idx + 1;
12988: -- Start of Bug#2757289 modification
12989: IF (l_rl_rec.rule_information7 IS NOT NULL OR
12990: l_rl_rec.rule_information7 <> OKL_API.G_MISS_CHAR) AND
12991: (l_rl_rec.rule_information8 IS NOT NULL OR
12992: l_rl_rec.rule_information8 <> OKL_API.G_MISS_CHAR) THEN
12993: k := k + 1;
12994: idx := idx + 1;
12995: px_csm_periodic_expenses_tbl(k).level_index_number := idx;
12996: px_csm_periodic_expenses_tbl(k).amount := TO_NUMBER(l_rl_rec.rule_information8);
13026: END IF;
13027: -- Bug 4915938 - End of Changes
13028:
13029: ELSIF (l_rl_rec.rule_information7 IS NULL OR
13030: l_rl_rec.rule_information7 = OKL_API.G_MISS_CHAR) AND
13031: (l_rl_rec.rule_information8 IS NULL OR
13032: l_rl_rec.rule_information8 = OKL_API.G_MISS_CHAR) THEN
13033: k := k + 1;
13034: idx := idx + 1;
13028:
13029: ELSIF (l_rl_rec.rule_information7 IS NULL OR
13030: l_rl_rec.rule_information7 = OKL_API.G_MISS_CHAR) AND
13031: (l_rl_rec.rule_information8 IS NULL OR
13032: l_rl_rec.rule_information8 = OKL_API.G_MISS_CHAR) THEN
13033: k := k + 1;
13034: idx := idx + 1;
13035: px_csm_periodic_expenses_tbl(k).level_index_number := idx;
13036: px_csm_periodic_expenses_tbl(k).description := l_strm_name;
13058: ELSE
13059: px_csm_periodic_expenses_tbl(k).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ADVANCE;
13060: END IF;
13061: IF(l_rl_rec.rule_information2 IS NULL OR
13062: l_rl_rec.rule_information2 = OKL_API.G_MISS_CHAR) THEN
13063: --11-Sep-09 sechawla 8798556
13064: --px_csm_periodic_expenses_tbl(k).date_start:=l_hdr_rec.start_date;
13065: px_csm_periodic_expenses_tbl(k).date_start:= link_rollover_rec.start_date;
13066: ELSE
13141: idx := 0;
13142: FOR l_rl_rec IN l_rl_csr (l_rl_rec2.slh_id,'LALEVL','LASLL',p_chr_id, l_lne_rec.id) LOOP
13143: -- Start of Bug#2757289 modification
13144: IF (l_rl_rec.rule_information7 IS NOT NULL OR
13145: l_rl_rec.rule_information7 <> OKL_API.G_MISS_CHAR) AND
13146: (l_rl_rec.rule_information8 IS NOT NULL OR
13147: l_rl_rec.rule_information8 <> OKL_API.G_MISS_CHAR) THEN
13148: k := k + 1;
13149: idx := idx + 1;
13143: -- Start of Bug#2757289 modification
13144: IF (l_rl_rec.rule_information7 IS NOT NULL OR
13145: l_rl_rec.rule_information7 <> OKL_API.G_MISS_CHAR) AND
13146: (l_rl_rec.rule_information8 IS NOT NULL OR
13147: l_rl_rec.rule_information8 <> OKL_API.G_MISS_CHAR) THEN
13148: k := k + 1;
13149: idx := idx + 1;
13150: px_csm_periodic_expenses_tbl(k).level_index_number := idx;
13151: px_csm_periodic_expenses_tbl(k).amount := TO_NUMBER(l_rl_rec.rule_information8);
13181: END IF;
13182: -- Bug 4915938 - End of Changes
13183:
13184: ELSIF (l_rl_rec.rule_information7 IS NULL OR
13185: l_rl_rec.rule_information7 = OKL_API.G_MISS_CHAR) AND
13186: (l_rl_rec.rule_information8 IS NULL OR
13187: l_rl_rec.rule_information8 = OKL_API.G_MISS_CHAR) THEN
13188: k := k + 1;
13189: idx := idx + 1;
13183:
13184: ELSIF (l_rl_rec.rule_information7 IS NULL OR
13185: l_rl_rec.rule_information7 = OKL_API.G_MISS_CHAR) AND
13186: (l_rl_rec.rule_information8 IS NULL OR
13187: l_rl_rec.rule_information8 = OKL_API.G_MISS_CHAR) THEN
13188: k := k + 1;
13189: idx := idx + 1;
13190: px_csm_periodic_expenses_tbl(k).level_index_number := idx;
13191: px_csm_periodic_expenses_tbl(k).description := l_strm_name;
13213: ELSE
13214: px_csm_periodic_expenses_tbl(k).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ADVANCE;
13215: END IF;
13216: IF(l_rl_rec.rule_information2 IS NULL OR
13217: l_rl_rec.rule_information2 = OKL_API.G_MISS_CHAR) THEN
13218: --11-Sep-09 sechawla 8798556
13219: --px_csm_periodic_expenses_tbl(k).date_start:=l_hdr_rec.start_date;
13220: px_csm_periodic_expenses_tbl(k).date_start:= l_lne_rec.start_date;
13221: ELSE
13483: /*
13484: OPEN l_strmid_csr('AMORTIZED FEE INCOME');
13485: FETCH l_strmid_csr into l_strmid_rec;
13486: IF l_strmid_csr%NOTFOUND THEN
13487: OKL_API.set_message(p_app_name => G_APP_NAME,
13488: p_msg_name => G_LLA_NO_MATCHING_RECORD,
13489: p_token1 => G_COL_NAME_TOKEN,
13490: p_token1_value => 'AMORTIZED FEE INCOME');
13491: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
13487: OKL_API.set_message(p_app_name => G_APP_NAME,
13488: p_msg_name => G_LLA_NO_MATCHING_RECORD,
13489: p_token1 => G_COL_NAME_TOKEN,
13490: p_token1_value => 'AMORTIZED FEE INCOME');
13491: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
13492: END IF;
13493: CLOSE l_strmid_csr;
13494: */
13495: -- added and commented code ends here.
13558: /*
13559: OPEN l_strmid_csr('FEE INCOME');
13560: FETCH l_strmid_csr into l_strmid_rec;
13561: IF l_strmid_csr%NOTFOUND THEN
13562: OKL_API.set_message(p_app_name => G_APP_NAME,
13563: p_msg_name => G_LLA_NO_MATCHING_RECORD,
13564: p_token1 => G_COL_NAME_TOKEN,
13565: p_token1_value => 'FEE INCOME');
13566: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
13562: OKL_API.set_message(p_app_name => G_APP_NAME,
13563: p_msg_name => G_LLA_NO_MATCHING_RECORD,
13564: p_token1 => G_COL_NAME_TOKEN,
13565: p_token1_value => 'FEE INCOME');
13566: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
13567: END IF;
13568: CLOSE l_strmid_csr;
13569: */
13570: IF(l_sty_id.id IS NOT NULL) THEN
13577: idx := 0;
13578: FOR l_rl_rec IN l_rl_csr (l_rl_rec2.slh_id,'LALEVL','LASLL',p_chr_id, l_lne_rec.id) LOOP
13579: -- Start of Bug#2757289 modification
13580: IF (l_rl_rec.rule_information7 IS NOT NULL OR
13581: l_rl_rec.rule_information7 <> OKL_API.G_MISS_CHAR) AND
13582: (l_rl_rec.rule_information8 IS NOT NULL OR
13583: l_rl_rec.rule_information8 <> OKL_API.G_MISS_CHAR) THEN
13584: k := k + 1;
13585: idx := idx + 1;
13579: -- Start of Bug#2757289 modification
13580: IF (l_rl_rec.rule_information7 IS NOT NULL OR
13581: l_rl_rec.rule_information7 <> OKL_API.G_MISS_CHAR) AND
13582: (l_rl_rec.rule_information8 IS NOT NULL OR
13583: l_rl_rec.rule_information8 <> OKL_API.G_MISS_CHAR) THEN
13584: k := k + 1;
13585: idx := idx + 1;
13586: px_csm_periodic_expenses_tbl(k).level_index_number := idx;
13587: px_csm_periodic_expenses_tbl(k).amount := TO_NUMBER(l_rl_rec.rule_information8);
13617: END IF;
13618: -- Bug 4915938 - End of Changes
13619:
13620: ELSIF (l_rl_rec.rule_information7 IS NULL OR
13621: l_rl_rec.rule_information7 = OKL_API.G_MISS_CHAR) AND
13622: (l_rl_rec.rule_information8 IS NULL OR
13623: l_rl_rec.rule_information8 = OKL_API.G_MISS_CHAR) THEN
13624: k := k + 1;
13625: idx := idx + 1;
13619:
13620: ELSIF (l_rl_rec.rule_information7 IS NULL OR
13621: l_rl_rec.rule_information7 = OKL_API.G_MISS_CHAR) AND
13622: (l_rl_rec.rule_information8 IS NULL OR
13623: l_rl_rec.rule_information8 = OKL_API.G_MISS_CHAR) THEN
13624: k := k + 1;
13625: idx := idx + 1;
13626: px_csm_periodic_expenses_tbl(k).level_index_number := idx;
13627: px_csm_periodic_expenses_tbl(k).description := l_strm_name;
13649: ELSE
13650: px_csm_periodic_expenses_tbl(k).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ADVANCE;
13651: END IF;
13652: IF(l_rl_rec.rule_information2 IS NULL OR
13653: l_rl_rec.rule_information2 = OKL_API.G_MISS_CHAR) THEN
13654: --11-Sep-09 sechawla 8798556
13655: --px_csm_periodic_expenses_tbl(k).date_start:=l_hdr_rec.start_date;
13656: px_csm_periodic_expenses_tbl(k).date_start:=l_lne_rec.start_date;
13657: ELSE
13665: -- using the StartAccrual tag only for the First Cash flow level
13666: IF idx = 1
13667: THEN
13668: IF(l_rl_rec.rule_information2 IS NULL OR
13669: l_rl_rec.rule_information2 = OKL_API.G_MISS_CHAR) THEN
13670: px_csm_periodic_expenses_tbl(k).date_paid := l_hdr_rec.start_date;
13671: ELSE
13672: px_csm_periodic_expenses_tbl(k).date_paid := FND_DATE.canonical_to_date(l_rl_rec.rule_information2);
13673: END IF;
13694: px_csm_stream_types_tbl => px_csm_stream_types_tbl,
13695: px_csm_one_off_fee_tbl => px_csm_one_off_fee_tbl,
13696: px_csm_periodic_expenses_tbl => px_csm_periodic_expenses_tbl);
13697:
13698: If (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
13699: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
13700: ElSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
13701: raise OKL_API.G_EXCEPTION_ERROR;
13702: End If;
13695: px_csm_one_off_fee_tbl => px_csm_one_off_fee_tbl,
13696: px_csm_periodic_expenses_tbl => px_csm_periodic_expenses_tbl);
13697:
13698: If (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
13699: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
13700: ElSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
13701: raise OKL_API.G_EXCEPTION_ERROR;
13702: End If;
13703:
13696: px_csm_periodic_expenses_tbl => px_csm_periodic_expenses_tbl);
13697:
13698: If (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
13699: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
13700: ElSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
13701: raise OKL_API.G_EXCEPTION_ERROR;
13702: End If;
13703:
13704: k := px_csm_periodic_expenses_tbl.COUNT;
13697:
13698: If (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
13699: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
13700: ElSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
13701: raise OKL_API.G_EXCEPTION_ERROR;
13702: End If;
13703:
13704: k := px_csm_periodic_expenses_tbl.COUNT;
13705: l := px_csm_one_off_fee_tbl.COUNT;
13706: m := px_csm_stream_types_tbl.COUNT;
13707:
13708: Else
13709:
13710: okl_api.set_message(
13711: p_app_name => G_APP_NAME,
13712: p_msg_name => 'OKL_LLA_NO_FEETYPE');
13713: raise OKL_API.G_EXCEPTION_ERROR;
13714:
13709:
13710: okl_api.set_message(
13711: p_app_name => G_APP_NAME,
13712: p_msg_name => 'OKL_LLA_NO_FEETYPE');
13713: raise OKL_API.G_EXCEPTION_ERROR;
13714:
13715: End If;
13716:
13717: END LOOP;
13717: END LOOP;
13718:
13719: print( l_api_name, 'end', x_return_status);
13720:
13721: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
13722:
13723: Exception
13724:
13725: when OKL_API.G_EXCEPTION_ERROR THEN
13721: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
13722:
13723: Exception
13724:
13725: when OKL_API.G_EXCEPTION_ERROR THEN
13726:
13727: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
13728:
13729: p_api_name => l_api_name,
13723: Exception
13724:
13725: when OKL_API.G_EXCEPTION_ERROR THEN
13726:
13727: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
13728:
13729: p_api_name => l_api_name,
13730: p_pkg_name => g_pkg_name,
13731: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
13727: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
13728:
13729: p_api_name => l_api_name,
13730: p_pkg_name => g_pkg_name,
13731: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
13732: x_msg_count => x_msg_count,
13733: x_msg_data => x_msg_data,
13734: p_api_type => g_api_type);
13735:
13739: If(l_rl_csr2%ISOPEN) Then
13740: CLOSE l_rl_csr2;
13741: End If;
13742:
13743: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
13744:
13745: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
13746: p_api_name => l_api_name,
13747: p_pkg_name => g_pkg_name,
13741: End If;
13742:
13743: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
13744:
13745: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
13746: p_api_name => l_api_name,
13747: p_pkg_name => g_pkg_name,
13748: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
13749: x_msg_count => x_msg_count,
13744:
13745: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
13746: p_api_name => l_api_name,
13747: p_pkg_name => g_pkg_name,
13748: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
13749: x_msg_count => x_msg_count,
13750: x_msg_data => x_msg_data,
13751: p_api_type => g_api_type);
13752: If(l_rl_csr1%ISOPEN) Then
13757: End If;
13758:
13759: when OTHERS THEN
13760:
13761: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
13762: p_api_name => l_api_name,
13763: p_pkg_name => g_pkg_name,
13764: p_exc_name => 'OTHERS',
13765: x_msg_count => x_msg_count,
13776: -- End modification 11i10 bakuchib
13777: -- Start modification 11i10 bakuchib
13778: PROCEDURE extract_params_loan_deal(
13779: p_api_version IN NUMBER,
13780: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
13781: p_chr_id IN VARCHAR2,
13782: p_deal_type IN VARCHAR2,
13783: x_return_status OUT NOCOPY VARCHAR2,
13784: x_msg_count OUT NOCOPY NUMBER,
13793: p_orp_code IN VARCHAR2 DEFAULT NULL ) AS
13794:
13795: l_api_name CONSTANT VARCHAR2(30) := 'EXTRACT_PARAMS_LOAN_DEAL';
13796: l_api_version CONSTANT NUMBER := 1;
13797: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
13798: l_level_type NUMBER;
13799: l_strm_name VARCHAR2(200);
13800: i BINARY_INTEGER := 0;
13801: j BINARY_INTEGER := 0;
13928: BEGIN
13929: --Added by kthiruva for Debugging
13930: write_to_log('Inside procedure extract_params_loan_deal');
13931:
13932: x_return_status := OKL_API.G_RET_STS_SUCCESS;
13933: -- Call start_activity to create savepoint, check compatibility
13934: -- and initialize message list
13935: x_return_status := OKL_API.START_ACTIVITY (
13936: l_api_name
13931:
13932: x_return_status := OKL_API.G_RET_STS_SUCCESS;
13933: -- Call start_activity to create savepoint, check compatibility
13934: -- and initialize message list
13935: x_return_status := OKL_API.START_ACTIVITY (
13936: l_api_name
13937: ,p_init_msg_list
13938: ,'_PVT'
13939: ,x_return_status);
13937: ,p_init_msg_list
13938: ,'_PVT'
13939: ,x_return_status);
13940: -- Check if activity started successfully
13941: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
13942: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
13943: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
13944: RAISE OKL_API.G_EXCEPTION_ERROR;
13945: END IF;
13938: ,'_PVT'
13939: ,x_return_status);
13940: -- Check if activity started successfully
13941: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
13942: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
13943: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
13944: RAISE OKL_API.G_EXCEPTION_ERROR;
13945: END IF;
13946:
13939: ,x_return_status);
13940: -- Check if activity started successfully
13941: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
13942: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
13943: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
13944: RAISE OKL_API.G_EXCEPTION_ERROR;
13945: END IF;
13946:
13947: --sechawla 20-Jul-09 PRB ESG Enhancements : check rebook option
13940: -- Check if activity started successfully
13941: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
13942: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
13943: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
13944: RAISE OKL_API.G_EXCEPTION_ERROR;
13945: END IF;
13946:
13947: --sechawla 20-Jul-09 PRB ESG Enhancements : check rebook option
13948: open get_rebook_type ;
13981: p_paym_tbl => l_pay_tbl);
13982: --Added by kthiruva for Debugging
13983: write_to_log('After the call to validate_payments, the return status is :'|| x_return_status);
13984: write_to_log('After the call to validate_payments, the error message is :' || x_msg_data );
13985: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
13986: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
13987: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
13988: RAISE OKL_API.G_EXCEPTION_ERROR;
13989: END IF;
13982: --Added by kthiruva for Debugging
13983: write_to_log('After the call to validate_payments, the return status is :'|| x_return_status);
13984: write_to_log('After the call to validate_payments, the error message is :' || x_msg_data );
13985: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
13986: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
13987: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
13988: RAISE OKL_API.G_EXCEPTION_ERROR;
13989: END IF;
13990: i := 0; j := 0; k := 0; l := 0; m := 0;
13983: write_to_log('After the call to validate_payments, the return status is :'|| x_return_status);
13984: write_to_log('After the call to validate_payments, the error message is :' || x_msg_data );
13985: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
13986: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
13987: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
13988: RAISE OKL_API.G_EXCEPTION_ERROR;
13989: END IF;
13990: i := 0; j := 0; k := 0; l := 0; m := 0;
13991:
13984: write_to_log('After the call to validate_payments, the error message is :' || x_msg_data );
13985: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
13986: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
13987: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
13988: RAISE OKL_API.G_EXCEPTION_ERROR;
13989: END IF;
13990: i := 0; j := 0; k := 0; l := 0; m := 0;
13991:
13992: -- Header infro
13994: FETCH l_hdr_csr into l_hdr_rec;
13995: IF l_hdr_csr%NOTFOUND THEN
13996: --Added by kthiruva for Debugging
13997: write_to_log('Cursor l_hdr_csr not found ');
13998: okl_api.set_message(p_app_name => G_APP_NAME,
13999: p_msg_name => G_LLA_NO_MATCHING_RECORD,
14000: p_token1 => G_COL_NAME_TOKEN,
14001: p_token1_value => 'Contract id');
14002: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
13998: okl_api.set_message(p_app_name => G_APP_NAME,
13999: p_msg_name => G_LLA_NO_MATCHING_RECORD,
14000: p_token1 => G_COL_NAME_TOKEN,
14001: p_token1_value => 'Contract id');
14002: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
14003: END IF;
14004: CLOSE l_hdr_csr;
14005: l_csm_loan_header.khr_id := p_chr_id;
14006: l_csm_loan_header.date_payments_commencement := l_hdr_rec.start_date;
14016: FETCH ib_csr into l_ib_rec;
14017: IF ib_csr%NOTFOUND THEN
14018: --Added by kthiruva for Debugging
14019: write_to_log('Cursor ib_csr not found ');
14020: okl_api.set_message(p_app_name => G_APP_NAME,
14021: p_msg_name => G_LLA_NO_MATCHING_RECORD,
14022: p_token1 => G_COL_NAME_TOKEN,
14023: p_token1_value => 'Contract id');
14024: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
14020: okl_api.set_message(p_app_name => G_APP_NAME,
14021: p_msg_name => G_LLA_NO_MATCHING_RECORD,
14022: p_token1 => G_COL_NAME_TOKEN,
14023: p_token1_value => 'Contract id');
14024: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
14025: END IF;
14026: CLOSE ib_csr;
14027: l_csm_loan_header.country := l_ib_rec.country;
14028: IF p_orp_code IS NOT NULL
14052:
14053: --Added by kthiruva for Debugging
14054: write_to_log('After the call to execute_formula, the return status is :'||x_return_status);
14055: --Bug 4738011 - End of Changes
14056: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
14057: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
14058: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
14059: RAISE OKL_API.G_EXCEPTION_ERROR;
14060: END IF;
14053: --Added by kthiruva for Debugging
14054: write_to_log('After the call to execute_formula, the return status is :'||x_return_status);
14055: --Bug 4738011 - End of Changes
14056: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
14057: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
14058: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
14059: RAISE OKL_API.G_EXCEPTION_ERROR;
14060: END IF;
14061: l_csm_loan_header.total_lending := l_total_lending;
14054: write_to_log('After the call to execute_formula, the return status is :'||x_return_status);
14055: --Bug 4738011 - End of Changes
14056: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
14057: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
14058: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
14059: RAISE OKL_API.G_EXCEPTION_ERROR;
14060: END IF;
14061: l_csm_loan_header.total_lending := l_total_lending;
14062: l_csm_loan_header.sif_mode := OKL_CREATE_STREAMS_PUB.G_MODE_LENDER;
14055: --Bug 4738011 - End of Changes
14056: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
14057: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
14058: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
14059: RAISE OKL_API.G_EXCEPTION_ERROR;
14060: END IF;
14061: l_csm_loan_header.total_lending := l_total_lending;
14062: l_csm_loan_header.sif_mode := OKL_CREATE_STREAMS_PUB.G_MODE_LENDER;
14063: -- asset infor
14098:
14099: OPEN strm_name_csr ( l_level_type );
14100: FETCH strm_name_csr into l_strm_name_rec;
14101: IF strm_name_csr%NOTFOUND THEN
14102: okl_api.set_message(p_app_name => G_APP_NAME,
14103: p_msg_name => G_LLA_NO_MATCHING_RECORD,
14104: p_token1 => G_COL_NAME_TOKEN,
14105: p_token1_value => 'Contract id');
14106: x_return_status := OKL_API.G_RET_STS_ERROR;
14102: okl_api.set_message(p_app_name => G_APP_NAME,
14103: p_msg_name => G_LLA_NO_MATCHING_RECORD,
14104: p_token1 => G_COL_NAME_TOKEN,
14105: p_token1_value => 'Contract id');
14106: x_return_status := OKL_API.G_RET_STS_ERROR;
14107: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_ERROR);
14108: END IF;
14109: CLOSE strm_name_csr;
14110: --l_strm_name := l_strm_name_rec.name;
14103: p_msg_name => G_LLA_NO_MATCHING_RECORD,
14104: p_token1 => G_COL_NAME_TOKEN,
14105: p_token1_value => 'Contract id');
14106: x_return_status := OKL_API.G_RET_STS_ERROR;
14107: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_ERROR);
14108: END IF;
14109: CLOSE strm_name_csr;
14110: --l_strm_name := l_strm_name_rec.name;
14111: l_strm_name := l_strm_name_rec.stream_type_purpose;
14230: p_contract_id => p_chr_id,
14231: p_line_id => l_line_rec.id,
14232: x_value => l_total_lending);
14233: --Bug 4738011 - End of Changes
14234: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
14235: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
14236: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
14237: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_ERROR);
14238: END IF;
14231: p_line_id => l_line_rec.id,
14232: x_value => l_total_lending);
14233: --Bug 4738011 - End of Changes
14234: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
14235: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
14236: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
14237: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_ERROR);
14238: END IF;
14239: l_csm_line_details_tbl(j).amount := l_total_lending;
14232: x_value => l_total_lending);
14233: --Bug 4738011 - End of Changes
14234: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
14235: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
14236: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
14237: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_ERROR);
14238: END IF;
14239: l_csm_line_details_tbl(j).amount := l_total_lending;
14240: --Modified by kthiruva on 2-Sep-2005 for Pricing Enhancements
14233: --Bug 4738011 - End of Changes
14234: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
14235: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
14236: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
14237: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_ERROR);
14238: END IF;
14239: l_csm_line_details_tbl(j).amount := l_total_lending;
14240: --Modified by kthiruva on 2-Sep-2005 for Pricing Enhancements
14241: --Bug 4576794 - Start of Changes
14318:
14319: 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
14320: -- Start of Bug#2757289 modification
14321: IF (l_rl_rec.rule_information7 IS NOT NULL OR
14322: l_rl_rec.rule_information7 <> OKL_API.G_MISS_CHAR) AND
14323: (l_rl_rec.rule_information8 IS NOT NULL OR
14324: l_rl_rec.rule_information8 <> OKL_API.G_MISS_CHAR) THEN
14325: j := j + 1;
14326: idx := idx + 1;
14320: -- Start of Bug#2757289 modification
14321: IF (l_rl_rec.rule_information7 IS NOT NULL OR
14322: l_rl_rec.rule_information7 <> OKL_API.G_MISS_CHAR) AND
14323: (l_rl_rec.rule_information8 IS NOT NULL OR
14324: l_rl_rec.rule_information8 <> OKL_API.G_MISS_CHAR) THEN
14325: j := j + 1;
14326: idx := idx + 1;
14327: l_csm_line_details_tbl(j).level_index_number := idx;
14328: l_csm_line_details_tbl(j).amount := TO_NUMBER(l_rl_rec.rule_information8);
14367: END IF;
14368: -- Bug 4915938 - End of Changes
14369:
14370: ELSIF (l_rl_rec.rule_information7 IS NULL OR
14371: l_rl_rec.rule_information7 = OKL_API.G_MISS_CHAR) AND
14372: (l_rl_rec.rule_information8 IS NULL OR
14373: l_rl_rec.rule_information8 = OKL_API.G_MISS_CHAR) THEN
14374: j := j + 1;
14375: idx := idx + 1;
14369:
14370: ELSIF (l_rl_rec.rule_information7 IS NULL OR
14371: l_rl_rec.rule_information7 = OKL_API.G_MISS_CHAR) AND
14372: (l_rl_rec.rule_information8 IS NULL OR
14373: l_rl_rec.rule_information8 = OKL_API.G_MISS_CHAR) THEN
14374: j := j + 1;
14375: idx := idx + 1;
14376: l_csm_line_details_tbl(j).kle_loan_id := l_line_rec.id;
14377:
14471: OPEN get_base_rate_csr(p_chr_id => p_chr_id,
14472: p_date => l_hdr_rec.start_date);
14473: FETCH get_base_rate_csr INTO l_base_rate;
14474: IF get_base_rate_csr%NOTFOUND THEN
14475: Okl_Api.SET_MESSAGE(p_app_name => g_app_name,
14476: p_msg_name => 'OKL_LLAP_BASE_RATE_NOT_DEF');
14477: RAISE Okl_Api.G_EXCEPTION_ERROR;
14478: END IF;
14479: CLOSE get_base_rate_csr;
14473: FETCH get_base_rate_csr INTO l_base_rate;
14474: IF get_base_rate_csr%NOTFOUND THEN
14475: Okl_Api.SET_MESSAGE(p_app_name => g_app_name,
14476: p_msg_name => 'OKL_LLAP_BASE_RATE_NOT_DEF');
14477: RAISE Okl_Api.G_EXCEPTION_ERROR;
14478: END IF;
14479: CLOSE get_base_rate_csr;
14480: -- srsreeni - Bug#5699923 - Added - Start
14481: -- DONOT request SuperTrump to generate streams
14513: p_contract_id => p_chr_id,
14514: p_line_id => l_line_rec.id,
14515: x_value => l_total_lending);
14516: --Bug 4738011 - End of Changes
14517: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
14518: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
14519: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
14520: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_ERROR);
14521: END IF;
14514: p_line_id => l_line_rec.id,
14515: x_value => l_total_lending);
14516: --Bug 4738011 - End of Changes
14517: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
14518: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
14519: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
14520: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_ERROR);
14521: END IF;
14522: l_csm_line_details_tbl(j).amount := l_total_lending;
14515: x_value => l_total_lending);
14516: --Bug 4738011 - End of Changes
14517: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
14518: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
14519: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
14520: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_ERROR);
14521: END IF;
14522: l_csm_line_details_tbl(j).amount := l_total_lending;
14523: --Modified by kthiruva on 2-Sep-2005 for Pricing Enhancements
14516: --Bug 4738011 - End of Changes
14517: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
14518: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
14519: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
14520: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_ERROR);
14521: END IF;
14522: l_csm_line_details_tbl(j).amount := l_total_lending;
14523: --Modified by kthiruva on 2-Sep-2005 for Pricing Enhancements
14524: --Bug 4576794 - Start of Changes
14602:
14603: 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
14604: -- Start of Bug#2757289 modification
14605: IF (l_rl_rec.rule_information7 IS NOT NULL OR
14606: l_rl_rec.rule_information7 <> OKL_API.G_MISS_CHAR) AND
14607: (l_rl_rec.rule_information8 IS NOT NULL OR
14608: l_rl_rec.rule_information8 <> OKL_API.G_MISS_CHAR) THEN
14609: j := j + 1;
14610: idx := idx + 1;
14604: -- Start of Bug#2757289 modification
14605: IF (l_rl_rec.rule_information7 IS NOT NULL OR
14606: l_rl_rec.rule_information7 <> OKL_API.G_MISS_CHAR) AND
14607: (l_rl_rec.rule_information8 IS NOT NULL OR
14608: l_rl_rec.rule_information8 <> OKL_API.G_MISS_CHAR) THEN
14609: j := j + 1;
14610: idx := idx + 1;
14611: l_csm_line_details_tbl(j).level_index_number := idx;
14612: l_csm_line_details_tbl(j).amount := TO_NUMBER(l_rl_rec.rule_information8);
14655: END IF;
14656: -- Bug 4915938 - End of Changes
14657:
14658: ELSIF (l_rl_rec.rule_information7 IS NULL OR
14659: l_rl_rec.rule_information7 = OKL_API.G_MISS_CHAR) AND
14660: (l_rl_rec.rule_information8 IS NULL OR
14661: l_rl_rec.rule_information8 = OKL_API.G_MISS_CHAR) THEN
14662: j := j + 1;
14663: idx := idx + 1;
14657:
14658: ELSIF (l_rl_rec.rule_information7 IS NULL OR
14659: l_rl_rec.rule_information7 = OKL_API.G_MISS_CHAR) AND
14660: (l_rl_rec.rule_information8 IS NULL OR
14661: l_rl_rec.rule_information8 = OKL_API.G_MISS_CHAR) THEN
14662: j := j + 1;
14663: idx := idx + 1;
14664: l_csm_line_details_tbl(j).kle_loan_id := l_line_rec.id;
14665:
14765: end if;
14766: --srsreeni Bug6245602 end
14767: 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
14768: IF (l_rl_rec.rule_information7 IS NOT NULL OR
14769: l_rl_rec.rule_information7 <> OKL_API.G_MISS_CHAR) AND
14770: (l_rl_rec.rule_information8 IS NOT NULL OR
14771: l_rl_rec.rule_information8 <> OKL_API.G_MISS_CHAR) THEN
14772: k := k + 1;
14773: -- idx := idx + 1; bug6245602
14767: 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
14768: IF (l_rl_rec.rule_information7 IS NOT NULL OR
14769: l_rl_rec.rule_information7 <> OKL_API.G_MISS_CHAR) AND
14770: (l_rl_rec.rule_information8 IS NOT NULL OR
14771: l_rl_rec.rule_information8 <> OKL_API.G_MISS_CHAR) THEN
14772: k := k + 1;
14773: -- idx := idx + 1; bug6245602
14774: idx_exp := idx_exp + 1; -- bug6245602
14775: l_csm_periodic_expenses_tbl(k).level_index_number := idx_exp; -- bug6245602
14806: END IF;
14807: -- Bug 4915938 - End of Changes
14808:
14809: ELSIF (l_rl_rec.rule_information7 IS NULL OR
14810: l_rl_rec.rule_information7 = OKL_API.G_MISS_CHAR) AND
14811: (l_rl_rec.rule_information8 IS NULL OR
14812: l_rl_rec.rule_information8 = OKL_API.G_MISS_CHAR) THEN
14813: k := k + 1;
14814: -- idx := idx + 1; bug6245602
14808:
14809: ELSIF (l_rl_rec.rule_information7 IS NULL OR
14810: l_rl_rec.rule_information7 = OKL_API.G_MISS_CHAR) AND
14811: (l_rl_rec.rule_information8 IS NULL OR
14812: l_rl_rec.rule_information8 = OKL_API.G_MISS_CHAR) THEN
14813: k := k + 1;
14814: -- idx := idx + 1; bug6245602
14815: idx_exp := idx_exp + 1; -- bug6245602
14816: l_csm_periodic_expenses_tbl(k).level_index_number := idx_exp; -- bug6245602
14839: l_csm_periodic_expenses_tbl(k).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ARREARS;
14840: ELSE
14841: l_csm_periodic_expenses_tbl(k).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ADVANCE;
14842: END IF;
14843: IF(l_rl_rec.RULE_INFORMATION2 IS NULL or l_rl_rec.RULE_INFORMATION2 = OKL_API.G_MISS_CHAR) THEN
14844: --sechawla 11-sep-09 8798556
14845: --l_csm_periodic_expenses_tbl(k).date_start := l_hdr_rec.start_date;
14846: l_csm_periodic_expenses_tbl(k).date_start := l_line_rec.start_date;
14847:
14849: l_csm_periodic_expenses_tbl(k).date_start := FND_DATE.canonical_to_date(l_rl_rec.RULE_INFORMATION2);
14850: END IF;
14851: END IF;
14852: END LOOP;
14853: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
14854: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
14855: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
14856: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_ERROR);
14857: END IF;
14850: END IF;
14851: END IF;
14852: END LOOP;
14853: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
14854: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
14855: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
14856: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_ERROR);
14857: END IF;
14858:
14851: END IF;
14852: END LOOP;
14853: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
14854: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
14855: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
14856: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_ERROR);
14857: END IF;
14858:
14859: -- Code for Estimated Property Tax Ends Here
14852: END LOOP;
14853: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
14854: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
14855: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
14856: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_ERROR);
14857: END IF;
14858:
14859: -- Code for Estimated Property Tax Ends Here
14860:
14868: -- code for use defined streams ends here
14869: 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
14870: -- Start of Bug#2757289 modification
14871: IF (l_rl_rec.rule_information7 IS NOT NULL OR
14872: l_rl_rec.rule_information7 <> OKL_API.G_MISS_CHAR) AND
14873: (l_rl_rec.rule_information8 IS NOT NULL OR
14874: l_rl_rec.rule_information8 <> OKL_API.G_MISS_CHAR) THEN
14875: k := k + 1;
14876: -- idx := idx + 1; bug6245602
14870: -- Start of Bug#2757289 modification
14871: IF (l_rl_rec.rule_information7 IS NOT NULL OR
14872: l_rl_rec.rule_information7 <> OKL_API.G_MISS_CHAR) AND
14873: (l_rl_rec.rule_information8 IS NOT NULL OR
14874: l_rl_rec.rule_information8 <> OKL_API.G_MISS_CHAR) THEN
14875: k := k + 1;
14876: -- idx := idx + 1; bug6245602
14877: idx_exp := idx_exp + 1; -- bug6245602
14878: l_csm_periodic_expenses_tbl(k).level_index_number := idx_exp;
14923: END IF;
14924: -- Bug 4915938 - End of Changes
14925:
14926: ELSIF (l_rl_rec.rule_information7 IS NULL OR
14927: l_rl_rec.rule_information7 = OKL_API.G_MISS_CHAR) AND
14928: (l_rl_rec.rule_information8 IS NULL OR
14929: l_rl_rec.rule_information8 = OKL_API.G_MISS_CHAR) THEN
14930: k := k + 1;
14931: -- idx := idx + 1; bug6245602
14925:
14926: ELSIF (l_rl_rec.rule_information7 IS NULL OR
14927: l_rl_rec.rule_information7 = OKL_API.G_MISS_CHAR) AND
14928: (l_rl_rec.rule_information8 IS NULL OR
14929: l_rl_rec.rule_information8 = OKL_API.G_MISS_CHAR) THEN
14930: k := k + 1;
14931: -- idx := idx + 1; bug6245602
14932: idx_exp := idx_exp + 1; -- bug6245602
14933: l_csm_periodic_expenses_tbl(k).level_index_number := idx_exp;
14952: l_csm_periodic_expenses_tbl(k).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ARREARS;
14953: ELSE
14954: l_csm_periodic_expenses_tbl(k).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ADVANCE;
14955: END IF;
14956: IF (l_rl_rec.RULE_INFORMATION2 IS NULL or l_rl_rec.RULE_INFORMATION2 = OKL_API.G_MISS_CHAR) THEN
14957: --sechawla 11-sep-09 8798556
14958: --l_csm_periodic_expenses_tbl(k).date_start := l_hdr_rec.start_date;
14959: l_csm_periodic_expenses_tbl(k).date_start := l_line_rec.start_date;
14960: ELSE
14981: l := l + 1;
14982: l_csm_one_off_fee_tbl(l).description := l_strm_name_rec.name;
14983: l_csm_one_off_fee_tbl(l).income_or_expense := OKL_CREATE_STREAMS_PUB.G_INCOME;
14984: l_csm_one_off_fee_tbl(l).amount := FND_NUMBER.canonical_to_number(nvl(l_rl_rec.RULE_INFORMATION6,'0'));
14985: If(l_rl_rec.RULE_INFORMATION2 IS NULL or l_rl_rec.RULE_INFORMATION2 = OKL_API.G_MISS_CHAR) Then
14986: l_csm_one_off_fee_tbl(l).date_paid := l_hdr_rec.start_date;
14987: Else
14988: l_csm_one_off_fee_tbl(l).date_paid := FND_DATE.canonical_to_date(l_rl_rec.RULE_INFORMATION2);
14989: End If;
15003: i := i - 1;
15004: END IF;
15005: --end bkatraga
15006: END LOOP;
15007: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15008: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15009: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15010: RAISE OKL_API.G_EXCEPTION_ERROR;
15011: End If;
15004: END IF;
15005: --end bkatraga
15006: END LOOP;
15007: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15008: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15009: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15010: RAISE OKL_API.G_EXCEPTION_ERROR;
15011: End If;
15012: -- Extract fee line
15005: --end bkatraga
15006: END LOOP;
15007: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15008: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15009: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15010: RAISE OKL_API.G_EXCEPTION_ERROR;
15011: End If;
15012: -- Extract fee line
15013: -- Added by kthiruva for Debugging
15006: END LOOP;
15007: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15008: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15009: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15010: RAISE OKL_API.G_EXCEPTION_ERROR;
15011: End If;
15012: -- Extract fee line
15013: -- Added by kthiruva for Debugging
15014: write_to_log('Before the call to extract_fee_lines');
15024: px_csm_periodic_expenses_tbl => l_csm_periodic_expenses_tbl);
15025: --Added by kthiruva for Debugging
15026: write_to_log('After the call to extract_fee_lines, the return status is :'||x_return_status);
15027:
15028: If (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
15029: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15030: ElSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
15031: raise OKL_API.G_EXCEPTION_ERROR;
15032: End If;
15025: --Added by kthiruva for Debugging
15026: write_to_log('After the call to extract_fee_lines, the return status is :'||x_return_status);
15027:
15028: If (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
15029: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15030: ElSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
15031: raise OKL_API.G_EXCEPTION_ERROR;
15032: End If;
15033: extract_subsidized_lines(p_api_version => p_api_version,
15026: write_to_log('After the call to extract_fee_lines, the return status is :'||x_return_status);
15027:
15028: If (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
15029: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15030: ElSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
15031: raise OKL_API.G_EXCEPTION_ERROR;
15032: End If;
15033: extract_subsidized_lines(p_api_version => p_api_version,
15034: p_init_msg_list => p_init_msg_list,
15027:
15028: If (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
15029: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15030: ElSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
15031: raise OKL_API.G_EXCEPTION_ERROR;
15032: End If;
15033: extract_subsidized_lines(p_api_version => p_api_version,
15034: p_init_msg_list => p_init_msg_list,
15035: x_return_status => x_return_status,
15038: p_chr_id => TO_NUMBER(p_chr_id),
15039: px_csm_one_off_fee_tbl => l_csm_one_off_fee_tbl);
15040: --Added by kthiruva for Debugging
15041: write_to_log('After the call to extract_subsidized_lines, the return status is :'||x_return_status);
15042: If (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
15043: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15044: ElSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
15045: raise OKL_API.G_EXCEPTION_ERROR;
15046: End If;
15039: px_csm_one_off_fee_tbl => l_csm_one_off_fee_tbl);
15040: --Added by kthiruva for Debugging
15041: write_to_log('After the call to extract_subsidized_lines, the return status is :'||x_return_status);
15042: If (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
15043: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15044: ElSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
15045: raise OKL_API.G_EXCEPTION_ERROR;
15046: End If;
15047: check_for_mandatory_streams(
15040: --Added by kthiruva for Debugging
15041: write_to_log('After the call to extract_subsidized_lines, the return status is :'||x_return_status);
15042: If (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
15043: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15044: ElSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
15045: raise OKL_API.G_EXCEPTION_ERROR;
15046: End If;
15047: check_for_mandatory_streams(
15048: p_api_version => p_api_version,
15041: write_to_log('After the call to extract_subsidized_lines, the return status is :'||x_return_status);
15042: If (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
15043: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15044: ElSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
15045: raise OKL_API.G_EXCEPTION_ERROR;
15046: End If;
15047: check_for_mandatory_streams(
15048: p_api_version => p_api_version,
15049: p_init_msg_list => p_init_msg_list,
15056: x_stream_types_tbl => l_req_stream_types_tbl);
15057: --Added by kthiruva for Debugging
15058: write_to_log('After the call to check_for_mandatory_streams, the return status is :'||x_return_status);
15059:
15060: If (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
15061: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15062: ElSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
15063: raise OKL_API.G_EXCEPTION_ERROR;
15064: End If;
15057: --Added by kthiruva for Debugging
15058: write_to_log('After the call to check_for_mandatory_streams, the return status is :'||x_return_status);
15059:
15060: If (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
15061: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15062: ElSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
15063: raise OKL_API.G_EXCEPTION_ERROR;
15064: End If;
15065: -- Requesting for yields
15058: write_to_log('After the call to check_for_mandatory_streams, the return status is :'||x_return_status);
15059:
15060: If (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
15061: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15062: ElSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
15063: raise OKL_API.G_EXCEPTION_ERROR;
15064: End If;
15065: -- Requesting for yields
15066: x_return_status := yield_request(x_csm_yields_tbl => l_csm_yields_tbl);
15059:
15060: If (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
15061: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15062: ElSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
15063: raise OKL_API.G_EXCEPTION_ERROR;
15064: End If;
15065: -- Requesting for yields
15066: x_return_status := yield_request(x_csm_yields_tbl => l_csm_yields_tbl);
15067: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15063: raise OKL_API.G_EXCEPTION_ERROR;
15064: End If;
15065: -- Requesting for yields
15066: x_return_status := yield_request(x_csm_yields_tbl => l_csm_yields_tbl);
15067: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15068: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15069: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15070: RAISE OKL_API.G_EXCEPTION_ERROR;
15071: END IF;
15064: End If;
15065: -- Requesting for yields
15066: x_return_status := yield_request(x_csm_yields_tbl => l_csm_yields_tbl);
15067: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15068: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15069: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15070: RAISE OKL_API.G_EXCEPTION_ERROR;
15071: END IF;
15072:
15065: -- Requesting for yields
15066: x_return_status := yield_request(x_csm_yields_tbl => l_csm_yields_tbl);
15067: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15068: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15069: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15070: RAISE OKL_API.G_EXCEPTION_ERROR;
15071: END IF;
15072:
15073: If (x_return_status <> OKL_API.G_RET_STS_SUCCESS) then
15066: x_return_status := yield_request(x_csm_yields_tbl => l_csm_yields_tbl);
15067: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15068: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15069: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15070: RAISE OKL_API.G_EXCEPTION_ERROR;
15071: END IF;
15072:
15073: If (x_return_status <> OKL_API.G_RET_STS_SUCCESS) then
15074: okl_api.set_message(
15069: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15070: RAISE OKL_API.G_EXCEPTION_ERROR;
15071: END IF;
15072:
15073: If (x_return_status <> OKL_API.G_RET_STS_SUCCESS) then
15074: okl_api.set_message(
15075: p_app_name => G_APP_NAME,
15076: p_msg_name => 'OKL_LLA_REPSTRMS_EXTR_FAILED');
15077: raise OKL_API.G_EXCEPTION_ERROR;
15070: RAISE OKL_API.G_EXCEPTION_ERROR;
15071: END IF;
15072:
15073: If (x_return_status <> OKL_API.G_RET_STS_SUCCESS) then
15074: okl_api.set_message(
15075: p_app_name => G_APP_NAME,
15076: p_msg_name => 'OKL_LLA_REPSTRMS_EXTR_FAILED');
15077: raise OKL_API.G_EXCEPTION_ERROR;
15078: End If;
15073: If (x_return_status <> OKL_API.G_RET_STS_SUCCESS) then
15074: okl_api.set_message(
15075: p_app_name => G_APP_NAME,
15076: p_msg_name => 'OKL_LLA_REPSTRMS_EXTR_FAILED');
15077: raise OKL_API.G_EXCEPTION_ERROR;
15078: End If;
15079:
15080: g_rep_req_yn := 'N'; --Added by bkatraga for bug 16045077
15081:
15085: x_csm_one_off_fee_tbl := l_csm_one_off_fee_tbl;
15086: x_csm_periodic_expenses_tbl := l_csm_periodic_expenses_tbl;
15087: x_csm_yields_tbl := l_csm_yields_tbl;
15088: x_csm_stream_types_tbl := l_req_stream_types_tbl;
15089: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
15090: x_msg_data => x_msg_data);
15091: EXCEPTION
15092: WHEN OKL_API.G_EXCEPTION_ERROR THEN
15093: IF l_hdr_csr%ISOPEN THEN
15088: x_csm_stream_types_tbl := l_req_stream_types_tbl;
15089: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
15090: x_msg_data => x_msg_data);
15091: EXCEPTION
15092: WHEN OKL_API.G_EXCEPTION_ERROR THEN
15093: IF l_hdr_csr%ISOPEN THEN
15094: CLOSE l_hdr_csr;
15095: END IF;
15096: IF ib_csr%ISOPEN THEN
15107: END IF;
15108: IF l_rl_csr%ISOPEN THEN
15109: CLOSE l_rl_csr;
15110: END IF;
15111: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
15112: l_api_name,
15113: G_PKG_NAME,
15114: 'OKL_API.G_RET_STS_ERROR',
15115: x_msg_count,
15110: END IF;
15111: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
15112: l_api_name,
15113: G_PKG_NAME,
15114: 'OKL_API.G_RET_STS_ERROR',
15115: x_msg_count,
15116: x_msg_data,
15117: '_PVT');
15118: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
15114: 'OKL_API.G_RET_STS_ERROR',
15115: x_msg_count,
15116: x_msg_data,
15117: '_PVT');
15118: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
15119: IF l_hdr_csr%ISOPEN THEN
15120: CLOSE l_hdr_csr;
15121: END IF;
15122: IF ib_csr%ISOPEN THEN
15133: END IF;
15134: IF l_rl_csr%ISOPEN THEN
15135: CLOSE l_rl_csr;
15136: END IF;
15137: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
15138: l_api_name,
15139: G_PKG_NAME,
15140: 'OKL_API.G_RET_STS_UNEXP_ERROR',
15141: x_msg_count,
15136: END IF;
15137: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
15138: l_api_name,
15139: G_PKG_NAME,
15140: 'OKL_API.G_RET_STS_UNEXP_ERROR',
15141: x_msg_count,
15142: x_msg_data,
15143: '_PVT');
15144: WHEN OTHERS then
15159: END IF;
15160: IF l_rl_csr%ISOPEN THEN
15161: CLOSE l_rl_csr;
15162: END IF;
15163: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
15164: l_api_name,
15165: G_PKG_NAME,
15166: 'OTHERS',
15167: x_msg_count,
15170: END extract_params_loan_deal;
15171: -- End modification 11i10 bakuchib
15172: PROCEDURE extract_params_loan_paydown(
15173: p_api_version IN NUMBER,
15174: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
15175: p_chr_id IN VARCHAR2,
15176: p_deal_type IN VARCHAR2,
15177: p_paydown_type IN VARCHAR2,
15178: p_paydown_date IN DATE,
15190: x_csm_stream_types_tbl OUT NOCOPY okl_create_streams_pub.csm_stream_types_tbl_type) AS
15191:
15192: l_api_name CONSTANT VARCHAR2(30) := 'EXTRACT_PARAMS_LOAN_PPD';
15193: l_api_version CONSTANT NUMBER := 1;
15194: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
15195: l_level_type NUMBER;
15196: l_strm_name VARCHAR2(200);
15197: i BINARY_INTEGER := 0;
15198: j BINARY_INTEGER := 0;
15399: RETURN null;
15400: END get_end_date;
15401:
15402: BEGIN
15403: x_return_status := OKL_API.G_RET_STS_SUCCESS;
15404: -- Call start_activity to create savepoint, check compatibility
15405: -- and initialize message list
15406: x_return_status := OKL_API.START_ACTIVITY (
15407: l_api_name
15402: BEGIN
15403: x_return_status := OKL_API.G_RET_STS_SUCCESS;
15404: -- Call start_activity to create savepoint, check compatibility
15405: -- and initialize message list
15406: x_return_status := OKL_API.START_ACTIVITY (
15407: l_api_name
15408: ,p_init_msg_list
15409: ,'_PVT'
15410: ,x_return_status);
15408: ,p_init_msg_list
15409: ,'_PVT'
15410: ,x_return_status);
15411: -- Check if activity started successfully
15412: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15413: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15414: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15415: RAISE OKL_API.G_EXCEPTION_ERROR;
15416: END IF;
15409: ,'_PVT'
15410: ,x_return_status);
15411: -- Check if activity started successfully
15412: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15413: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15414: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15415: RAISE OKL_API.G_EXCEPTION_ERROR;
15416: END IF;
15417:
15410: ,x_return_status);
15411: -- Check if activity started successfully
15412: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15413: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15414: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15415: RAISE OKL_API.G_EXCEPTION_ERROR;
15416: END IF;
15417:
15418: --sechawla 20-Jul-09 PRB ESG Enhancements : check rebook option
15411: -- Check if activity started successfully
15412: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15413: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15414: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15415: RAISE OKL_API.G_EXCEPTION_ERROR;
15416: END IF;
15417:
15418: --sechawla 20-Jul-09 PRB ESG Enhancements : check rebook option
15419: open get_rebook_type;
15446: x_msg_count => x_msg_count,
15447: x_msg_data => x_msg_data,
15448: p_khr_id => p_chr_id,
15449: p_paym_tbl => l_pay_tbl);
15450: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15451: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15452: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15453: RAISE OKL_API.G_EXCEPTION_ERROR;
15454: END IF;
15447: x_msg_data => x_msg_data,
15448: p_khr_id => p_chr_id,
15449: p_paym_tbl => l_pay_tbl);
15450: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15451: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15452: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15453: RAISE OKL_API.G_EXCEPTION_ERROR;
15454: END IF;
15455: i := 0; j := 0; k := 0; l := 0; m := 0;
15448: p_khr_id => p_chr_id,
15449: p_paym_tbl => l_pay_tbl);
15450: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15451: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15452: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15453: RAISE OKL_API.G_EXCEPTION_ERROR;
15454: END IF;
15455: i := 0; j := 0; k := 0; l := 0; m := 0;
15456: /*
15449: p_paym_tbl => l_pay_tbl);
15450: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15451: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15452: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15453: RAISE OKL_API.G_EXCEPTION_ERROR;
15454: END IF;
15455: i := 0; j := 0; k := 0; l := 0; m := 0;
15456: /*
15457: OPEN l_hdr_pdt_csr(p_chr_id);
15461: -- Header infro
15462: OPEN l_hdr_csr(p_chr_id);
15463: FETCH l_hdr_csr into l_hdr_rec;
15464: IF l_hdr_csr%NOTFOUND THEN
15465: okl_api.set_message(p_app_name => G_APP_NAME,
15466: p_msg_name => G_LLA_NO_MATCHING_RECORD,
15467: p_token1 => G_COL_NAME_TOKEN,
15468: p_token1_value => 'Contract id');
15469: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15465: okl_api.set_message(p_app_name => G_APP_NAME,
15466: p_msg_name => G_LLA_NO_MATCHING_RECORD,
15467: p_token1 => G_COL_NAME_TOKEN,
15468: p_token1_value => 'Contract id');
15469: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15470: END IF;
15471: CLOSE l_hdr_csr;
15472: l_csm_loan_header.khr_id := p_chr_id;
15473: l_csm_loan_header.date_payments_commencement := l_hdr_rec.start_date;
15481: -- Fetching the location of the asset
15482: OPEN ib_csr(TO_NUMBER(p_chr_id));
15483: FETCH ib_csr into l_ib_rec;
15484: IF ib_csr%NOTFOUND THEN
15485: okl_api.set_message(p_app_name => G_APP_NAME,
15486: p_msg_name => G_LLA_NO_MATCHING_RECORD,
15487: p_token1 => G_COL_NAME_TOKEN,
15488: p_token1_value => 'Contract id');
15489: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15485: okl_api.set_message(p_app_name => G_APP_NAME,
15486: p_msg_name => G_LLA_NO_MATCHING_RECORD,
15487: p_token1 => G_COL_NAME_TOKEN,
15488: p_token1_value => 'Contract id');
15489: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15490: END IF;
15491: CLOSE ib_csr;
15492: l_csm_loan_header.country := l_ib_rec.country;
15493: --The orp code for the Principal Paydown process is used here.
15505: p_contract_id => p_chr_id,
15506: p_line_id => NULL,
15507: x_value => l_total_lending);
15508: --Bug 4738011 - End of Changes
15509: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15510: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15511: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15512: RAISE OKL_API.G_EXCEPTION_ERROR;
15513: END IF;
15506: p_line_id => NULL,
15507: x_value => l_total_lending);
15508: --Bug 4738011 - End of Changes
15509: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15510: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15511: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15512: RAISE OKL_API.G_EXCEPTION_ERROR;
15513: END IF;
15514: l_csm_loan_header.total_lending := l_total_lending;
15507: x_value => l_total_lending);
15508: --Bug 4738011 - End of Changes
15509: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15510: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15511: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15512: RAISE OKL_API.G_EXCEPTION_ERROR;
15513: END IF;
15514: l_csm_loan_header.total_lending := l_total_lending;
15515: l_csm_loan_header.sif_mode := OKL_CREATE_STREAMS_PUB.G_MODE_LENDER;
15508: --Bug 4738011 - End of Changes
15509: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15510: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15511: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15512: RAISE OKL_API.G_EXCEPTION_ERROR;
15513: END IF;
15514: l_csm_loan_header.total_lending := l_total_lending;
15515: l_csm_loan_header.sif_mode := OKL_CREATE_STREAMS_PUB.G_MODE_LENDER;
15516:
15562:
15563: OPEN strm_name_csr ( l_level_type );
15564: FETCH strm_name_csr into l_strm_name_rec;
15565: IF strm_name_csr%NOTFOUND THEN
15566: okl_api.set_message(p_app_name => G_APP_NAME,
15567: p_msg_name => G_LLA_NO_MATCHING_RECORD,
15568: p_token1 => G_COL_NAME_TOKEN,
15569: p_token1_value => 'Contract id');
15570: x_return_status := OKL_API.G_RET_STS_ERROR;
15566: okl_api.set_message(p_app_name => G_APP_NAME,
15567: p_msg_name => G_LLA_NO_MATCHING_RECORD,
15568: p_token1 => G_COL_NAME_TOKEN,
15569: p_token1_value => 'Contract id');
15570: x_return_status := OKL_API.G_RET_STS_ERROR;
15571: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_ERROR);
15572: END IF;
15573: CLOSE strm_name_csr;
15574:
15567: p_msg_name => G_LLA_NO_MATCHING_RECORD,
15568: p_token1 => G_COL_NAME_TOKEN,
15569: p_token1_value => 'Contract id');
15570: x_return_status := OKL_API.G_RET_STS_ERROR;
15571: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_ERROR);
15572: END IF;
15573: CLOSE strm_name_csr;
15574:
15575: --Bug 5146545 dpsingh start
15589: p_khr_id => p_chr_id,
15590: p_effective_date => p_paydown_date);
15591:
15592:
15593: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
15594: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15595: ElSIF (l_return_status = OKL_API.G_RET_STS_ERROR) then
15596: raise OKL_API.G_EXCEPTION_ERROR;
15597: End If;
15590: p_effective_date => p_paydown_date);
15591:
15592:
15593: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
15594: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15595: ElSIF (l_return_status = OKL_API.G_RET_STS_ERROR) then
15596: raise OKL_API.G_EXCEPTION_ERROR;
15597: End If;
15598: END IF;
15591:
15592:
15593: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
15594: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15595: ElSIF (l_return_status = OKL_API.G_RET_STS_ERROR) then
15596: raise OKL_API.G_EXCEPTION_ERROR;
15597: End If;
15598: END IF;
15599: --Bug 5146545 dpsingh end
15592:
15593: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
15594: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15595: ElSIF (l_return_status = OKL_API.G_RET_STS_ERROR) then
15596: raise OKL_API.G_EXCEPTION_ERROR;
15597: End If;
15598: END IF;
15599: --Bug 5146545 dpsingh end
15600: --l_strm_name := l_strm_name_rec.name;
15699: p_contract_id => p_chr_id,
15700: p_line_id => l_line_rec.id,
15701: x_value => l_total_lending);
15702: --Bug 4738011 - End of Changes
15703: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15704: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
15705: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15706: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_ERROR);
15707: END IF;
15700: p_line_id => l_line_rec.id,
15701: x_value => l_total_lending);
15702: --Bug 4738011 - End of Changes
15703: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15704: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
15705: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15706: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_ERROR);
15707: END IF;
15708: --Initialising l_ppd_count for every asset and deleting the existing l_ppd_Tbl
15701: x_value => l_total_lending);
15702: --Bug 4738011 - End of Changes
15703: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15704: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
15705: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15706: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_ERROR);
15707: END IF;
15708: --Initialising l_ppd_count for every asset and deleting the existing l_ppd_Tbl
15709: l_ppd_count := 0;
15702: --Bug 4738011 - End of Changes
15703: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15704: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
15705: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15706: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_ERROR);
15707: END IF;
15708: --Initialising l_ppd_count for every asset and deleting the existing l_ppd_Tbl
15709: l_ppd_count := 0;
15710: l_ppd_tbl.delete;
15712: --All previous PPDs defined on the contract are fetched and added to a PL/SQL table
15713: FOR get_prev_ppd_rec IN get_prev_ppd_csr('LALEVL', 'LASLH', TO_NUMBER(p_chr_id), l_line_rec.id) LOOP
15714: 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
15715: IF (l_rl_rec.rule_information7 IS NOT NULL OR
15716: l_rl_rec.rule_information7 <> OKL_API.G_MISS_CHAR) AND
15717: (l_rl_rec.rule_information8 IS NOT NULL OR
15718: l_rl_rec.rule_information8 <> OKL_API.G_MISS_CHAR) THEN
15719: l_ppd_tbl(l_ppd_count).paydown_date := FND_DATE.canonical_to_date(l_rl_rec.rule_information2);
15720: l_ppd_tbl(l_ppd_count).paydown_amount := FND_NUMBER.canonical_to_number(nvl(l_rl_rec.RULE_INFORMATION8,'0'));
15714: 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
15715: IF (l_rl_rec.rule_information7 IS NOT NULL OR
15716: l_rl_rec.rule_information7 <> OKL_API.G_MISS_CHAR) AND
15717: (l_rl_rec.rule_information8 IS NOT NULL OR
15718: l_rl_rec.rule_information8 <> OKL_API.G_MISS_CHAR) THEN
15719: l_ppd_tbl(l_ppd_count).paydown_date := FND_DATE.canonical_to_date(l_rl_rec.rule_information2);
15720: l_ppd_tbl(l_ppd_count).paydown_amount := FND_NUMBER.canonical_to_number(nvl(l_rl_rec.RULE_INFORMATION8,'0'));
15721: l_ppd_tbl(l_ppd_count).curr_paydown := 'N';
15722: l_ppd_count := l_ppd_count + 1;
15808: l_number_periods_completed := 0;
15809: l_number_periods_completed_cpy :=0;
15810: --If the payment is a stub
15811: IF (l_rl_rec.rule_information7 IS NOT NULL OR
15812: l_rl_rec.rule_information7 <> OKL_API.G_MISS_CHAR) AND
15813: (l_rl_rec.rule_information8 IS NOT NULL OR
15814: l_rl_rec.rule_information8 <> OKL_API.G_MISS_CHAR) THEN
15815:
15816: IF p_paydown_type = OKL_CREATE_STREAMS_PVT.G_PAYDOWN_TYPE_PPD THEN
15810: --If the payment is a stub
15811: IF (l_rl_rec.rule_information7 IS NOT NULL OR
15812: l_rl_rec.rule_information7 <> OKL_API.G_MISS_CHAR) AND
15813: (l_rl_rec.rule_information8 IS NOT NULL OR
15814: l_rl_rec.rule_information8 <> OKL_API.G_MISS_CHAR) THEN
15815:
15816: IF p_paydown_type = OKL_CREATE_STREAMS_PVT.G_PAYDOWN_TYPE_PPD THEN
15817: FOR k in l_ppd_tbl.FIRST..l_ppd_tbl.LAST LOOP
15818: --If the paydown date lies inside the stub's start and end date, create a stub for the paydown
15989: END IF;
15990: -- End of Bug#2757289 modification
15991: /*mansrini Handle PPD for non-stub payments here*/
15992: ELSIF (l_rl_rec.rule_information7 IS NULL OR
15993: l_rl_rec.rule_information7 = OKL_API.G_MISS_CHAR) AND
15994: (l_rl_rec.rule_information8 IS NULL OR
15995: l_rl_rec.rule_information8 = OKL_API.G_MISS_CHAR) THEN
15996:
15997: --When there is no PPD in the range of the periodic payment, the payment is retained as is
15991: /*mansrini Handle PPD for non-stub payments here*/
15992: ELSIF (l_rl_rec.rule_information7 IS NULL OR
15993: l_rl_rec.rule_information7 = OKL_API.G_MISS_CHAR) AND
15994: (l_rl_rec.rule_information8 IS NULL OR
15995: l_rl_rec.rule_information8 = OKL_API.G_MISS_CHAR) THEN
15996:
15997: --When there is no PPD in the range of the periodic payment, the payment is retained as is
15998: IF (l_ppd_tbl(l_ppd_tbl.FIRST).paydown_date < FND_DATE.canonical_to_date(l_rl_rec.rule_information2)
15999: 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))
16497: p_contract_id => p_chr_id,
16498: p_line_id => l_line_rec.id,
16499: x_value => l_total_lending);
16500: --Bug 4738011 - End of Changes
16501: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
16502: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
16503: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
16504: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_ERROR);
16505: END IF;
16498: p_line_id => l_line_rec.id,
16499: x_value => l_total_lending);
16500: --Bug 4738011 - End of Changes
16501: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
16502: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
16503: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
16504: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_ERROR);
16505: END IF;
16506: --Initialising l_ppd_count for every asset and deleting the existing l_ppd_Tbl
16499: x_value => l_total_lending);
16500: --Bug 4738011 - End of Changes
16501: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
16502: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
16503: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
16504: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_ERROR);
16505: END IF;
16506: --Initialising l_ppd_count for every asset and deleting the existing l_ppd_Tbl
16507: l_ppd_count := 0;
16500: --Bug 4738011 - End of Changes
16501: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
16502: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
16503: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
16504: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_ERROR);
16505: END IF;
16506: --Initialising l_ppd_count for every asset and deleting the existing l_ppd_Tbl
16507: l_ppd_count := 0;
16508: l_ppd_tbl.delete;
16510: --All previous PPDs defined on the contract are fetched and added to a PL/SQL table
16511: FOR get_prev_ppd_rec IN get_prev_ppd_csr('LALEVL', 'LASLH', TO_NUMBER(p_chr_id), l_line_rec.id) LOOP
16512: 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
16513: IF (l_rl_rec.rule_information7 IS NOT NULL OR
16514: l_rl_rec.rule_information7 <> OKL_API.G_MISS_CHAR) AND
16515: (l_rl_rec.rule_information8 IS NOT NULL OR
16516: l_rl_rec.rule_information8 <> OKL_API.G_MISS_CHAR) THEN
16517: l_ppd_tbl(l_ppd_count).paydown_date := FND_DATE.canonical_to_date(l_rl_rec.rule_information2);
16518: l_ppd_tbl(l_ppd_count).paydown_amount := FND_NUMBER.canonical_to_number(nvl(l_rl_rec.RULE_INFORMATION8,'0'));
16512: 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
16513: IF (l_rl_rec.rule_information7 IS NOT NULL OR
16514: l_rl_rec.rule_information7 <> OKL_API.G_MISS_CHAR) AND
16515: (l_rl_rec.rule_information8 IS NOT NULL OR
16516: l_rl_rec.rule_information8 <> OKL_API.G_MISS_CHAR) THEN
16517: l_ppd_tbl(l_ppd_count).paydown_date := FND_DATE.canonical_to_date(l_rl_rec.rule_information2);
16518: l_ppd_tbl(l_ppd_count).paydown_amount := FND_NUMBER.canonical_to_number(nvl(l_rl_rec.RULE_INFORMATION8,'0'));
16519: l_ppd_tbl(l_ppd_count).curr_paydown := 'N';
16520: l_ppd_count := l_ppd_count + 1;
16606: l_number_periods_completed := 0;
16607: l_number_periods_completed_cpy :=0;
16608: --If payment is a stub
16609: IF (l_rl_rec.rule_information7 IS NOT NULL OR
16610: l_rl_rec.rule_information7 <> OKL_API.G_MISS_CHAR) AND
16611: (l_rl_rec.rule_information8 IS NOT NULL OR
16612: l_rl_rec.rule_information8 <> OKL_API.G_MISS_CHAR) THEN
16613: IF p_paydown_type = OKL_CREATE_STREAMS_PVT.G_PAYDOWN_TYPE_PPD THEN
16614: FOR k in l_ppd_tbl.FIRST..l_ppd_tbl.LAST LOOP
16608: --If payment is a stub
16609: IF (l_rl_rec.rule_information7 IS NOT NULL OR
16610: l_rl_rec.rule_information7 <> OKL_API.G_MISS_CHAR) AND
16611: (l_rl_rec.rule_information8 IS NOT NULL OR
16612: l_rl_rec.rule_information8 <> OKL_API.G_MISS_CHAR) THEN
16613: IF p_paydown_type = OKL_CREATE_STREAMS_PVT.G_PAYDOWN_TYPE_PPD THEN
16614: FOR k in l_ppd_tbl.FIRST..l_ppd_tbl.LAST LOOP
16615: --If the paydown date lies inside the stub's start and end date, create a stub for the paydown
16616: --Modified by kthiruva on 13-Feb-2006
16785: END IF;
16786: -- End of Bug#2757289 modification
16787: /*mansrini Handle PPD for non-stub payments here*/
16788: ELSIF (l_rl_rec.rule_information7 IS NULL OR
16789: l_rl_rec.rule_information7 = OKL_API.G_MISS_CHAR) AND
16790: (l_rl_rec.rule_information8 IS NULL OR
16791: l_rl_rec.rule_information8 = OKL_API.G_MISS_CHAR) THEN
16792:
16793: --When there is no PPD in the range of the periodic payment, the payment is retained as is
16787: /*mansrini Handle PPD for non-stub payments here*/
16788: ELSIF (l_rl_rec.rule_information7 IS NULL OR
16789: l_rl_rec.rule_information7 = OKL_API.G_MISS_CHAR) AND
16790: (l_rl_rec.rule_information8 IS NULL OR
16791: l_rl_rec.rule_information8 = OKL_API.G_MISS_CHAR) THEN
16792:
16793: --When there is no PPD in the range of the periodic payment, the payment is retained as is
16794: IF (l_ppd_tbl(l_ppd_tbl.FIRST).paydown_date < FND_DATE.canonical_to_date(l_rl_rec.rule_information2)
16795: 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))
17210: -- code for use defined streams ends here
17211: 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
17212: -- Start of Bug#2757289 modification
17213: IF (l_rl_rec.rule_information7 IS NOT NULL OR
17214: l_rl_rec.rule_information7 <> OKL_API.G_MISS_CHAR) AND
17215: (l_rl_rec.rule_information8 IS NOT NULL OR
17216: l_rl_rec.rule_information8 <> OKL_API.G_MISS_CHAR) THEN
17217: k := k + 1;
17218: idx := idx + 1;
17212: -- Start of Bug#2757289 modification
17213: IF (l_rl_rec.rule_information7 IS NOT NULL OR
17214: l_rl_rec.rule_information7 <> OKL_API.G_MISS_CHAR) AND
17215: (l_rl_rec.rule_information8 IS NOT NULL OR
17216: l_rl_rec.rule_information8 <> OKL_API.G_MISS_CHAR) THEN
17217: k := k + 1;
17218: idx := idx + 1;
17219: l_csm_periodic_expenses_tbl(k).level_index_number := idx;
17220: l_csm_periodic_expenses_tbl(k).amount := TO_NUMBER(l_rl_rec.rule_information8);
17263: END IF;
17264: -- Bug 4915938 - End of Changes
17265:
17266: ELSIF (l_rl_rec.rule_information7 IS NULL OR
17267: l_rl_rec.rule_information7 = OKL_API.G_MISS_CHAR) AND
17268: (l_rl_rec.rule_information8 IS NULL OR
17269: l_rl_rec.rule_information8 = OKL_API.G_MISS_CHAR) THEN
17270: k := k + 1;
17271: idx := idx + 1;
17265:
17266: ELSIF (l_rl_rec.rule_information7 IS NULL OR
17267: l_rl_rec.rule_information7 = OKL_API.G_MISS_CHAR) AND
17268: (l_rl_rec.rule_information8 IS NULL OR
17269: l_rl_rec.rule_information8 = OKL_API.G_MISS_CHAR) THEN
17270: k := k + 1;
17271: idx := idx + 1;
17272: l_csm_periodic_expenses_tbl(k).level_index_number := idx;
17273: l_csm_periodic_expenses_tbl(k).description := l_strm_name;
17291: l_csm_periodic_expenses_tbl(k).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ARREARS;
17292: ELSE
17293: l_csm_periodic_expenses_tbl(k).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ADVANCE;
17294: END IF;
17295: IF (l_rl_rec.RULE_INFORMATION2 IS NULL or l_rl_rec.RULE_INFORMATION2 = OKL_API.G_MISS_CHAR) THEN
17296: --sechawla 11-sep-09 8798556
17297: --l_csm_periodic_expenses_tbl(k).date_start := l_hdr_rec.start_date;
17298: l_csm_periodic_expenses_tbl(k).date_start := l_line_rec.start_date;
17299: ELSE
17320: l := l + 1;
17321: l_csm_one_off_fee_tbl(l).description := l_strm_name_rec.name;
17322: l_csm_one_off_fee_tbl(l).income_or_expense := OKL_CREATE_STREAMS_PUB.G_INCOME;
17323: l_csm_one_off_fee_tbl(l).amount := FND_NUMBER.canonical_to_number(nvl(l_rl_rec.RULE_INFORMATION6,'0'));
17324: If(l_rl_rec.RULE_INFORMATION2 IS NULL or l_rl_rec.RULE_INFORMATION2 = OKL_API.G_MISS_CHAR) Then
17325: l_csm_one_off_fee_tbl(l).date_paid := l_hdr_rec.start_date;
17326: Else
17327: l_csm_one_off_fee_tbl(l).date_paid := FND_DATE.canonical_to_date(l_rl_rec.RULE_INFORMATION2);
17328: End If;
17336: END LOOP;
17337: END IF;
17338: END LOOP;
17339: END LOOP;
17340: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
17341: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
17342: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
17343: RAISE OKL_API.G_EXCEPTION_ERROR;
17344: End If;
17337: END IF;
17338: END LOOP;
17339: END LOOP;
17340: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
17341: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
17342: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
17343: RAISE OKL_API.G_EXCEPTION_ERROR;
17344: End If;
17345: -- Extract fee line
17338: END LOOP;
17339: END LOOP;
17340: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
17341: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
17342: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
17343: RAISE OKL_API.G_EXCEPTION_ERROR;
17344: End If;
17345: -- Extract fee line
17346: extract_fee_lines( p_api_version => p_api_version,
17339: END LOOP;
17340: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
17341: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
17342: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
17343: RAISE OKL_API.G_EXCEPTION_ERROR;
17344: End If;
17345: -- Extract fee line
17346: extract_fee_lines( p_api_version => p_api_version,
17347: p_chr_id => TO_NUMBER(p_chr_id),
17352: x_return_status => x_return_status,
17353: px_csm_stream_types_tbl => l_csm_stream_types_tbl,
17354: px_csm_one_off_fee_tbl => l_csm_one_off_fee_tbl,
17355: px_csm_periodic_expenses_tbl => l_csm_periodic_expenses_tbl);
17356: If (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
17357: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
17358: ElSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
17359: raise OKL_API.G_EXCEPTION_ERROR;
17360: End If;
17353: px_csm_stream_types_tbl => l_csm_stream_types_tbl,
17354: px_csm_one_off_fee_tbl => l_csm_one_off_fee_tbl,
17355: px_csm_periodic_expenses_tbl => l_csm_periodic_expenses_tbl);
17356: If (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
17357: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
17358: ElSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
17359: raise OKL_API.G_EXCEPTION_ERROR;
17360: End If;
17361: extract_subsidized_lines(p_api_version => p_api_version,
17354: px_csm_one_off_fee_tbl => l_csm_one_off_fee_tbl,
17355: px_csm_periodic_expenses_tbl => l_csm_periodic_expenses_tbl);
17356: If (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
17357: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
17358: ElSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
17359: raise OKL_API.G_EXCEPTION_ERROR;
17360: End If;
17361: extract_subsidized_lines(p_api_version => p_api_version,
17362: p_init_msg_list => p_init_msg_list,
17355: px_csm_periodic_expenses_tbl => l_csm_periodic_expenses_tbl);
17356: If (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
17357: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
17358: ElSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
17359: raise OKL_API.G_EXCEPTION_ERROR;
17360: End If;
17361: extract_subsidized_lines(p_api_version => p_api_version,
17362: p_init_msg_list => p_init_msg_list,
17363: x_return_status => x_return_status,
17364: x_msg_count => x_msg_count,
17365: x_msg_data => x_msg_data,
17366: p_chr_id => TO_NUMBER(p_chr_id),
17367: px_csm_one_off_fee_tbl => l_csm_one_off_fee_tbl);
17368: If (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
17369: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
17370: ElSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
17371: raise OKL_API.G_EXCEPTION_ERROR;
17372: End If;
17365: x_msg_data => x_msg_data,
17366: p_chr_id => TO_NUMBER(p_chr_id),
17367: px_csm_one_off_fee_tbl => l_csm_one_off_fee_tbl);
17368: If (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
17369: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
17370: ElSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
17371: raise OKL_API.G_EXCEPTION_ERROR;
17372: End If;
17373: check_for_mandatory_streams(
17366: p_chr_id => TO_NUMBER(p_chr_id),
17367: px_csm_one_off_fee_tbl => l_csm_one_off_fee_tbl);
17368: If (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
17369: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
17370: ElSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
17371: raise OKL_API.G_EXCEPTION_ERROR;
17372: End If;
17373: check_for_mandatory_streams(
17374: p_api_version => p_api_version,
17367: px_csm_one_off_fee_tbl => l_csm_one_off_fee_tbl);
17368: If (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
17369: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
17370: ElSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
17371: raise OKL_API.G_EXCEPTION_ERROR;
17372: End If;
17373: check_for_mandatory_streams(
17374: p_api_version => p_api_version,
17375: p_init_msg_list => p_init_msg_list,
17379: p_chr_id => p_chr_id,
17380: p_deal_type => l_deal_type,
17381: p_stream_types_tbl => l_csm_stream_types_tbl,
17382: x_stream_types_tbl => l_req_stream_types_tbl);
17383: If (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
17384: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
17385: ElSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
17386: raise OKL_API.G_EXCEPTION_ERROR;
17387: End If;
17380: p_deal_type => l_deal_type,
17381: p_stream_types_tbl => l_csm_stream_types_tbl,
17382: x_stream_types_tbl => l_req_stream_types_tbl);
17383: If (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
17384: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
17385: ElSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
17386: raise OKL_API.G_EXCEPTION_ERROR;
17387: End If;
17388: -- Requesting for yields
17381: p_stream_types_tbl => l_csm_stream_types_tbl,
17382: x_stream_types_tbl => l_req_stream_types_tbl);
17383: If (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
17384: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
17385: ElSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
17386: raise OKL_API.G_EXCEPTION_ERROR;
17387: End If;
17388: -- Requesting for yields
17389: x_return_status := yield_request(x_csm_yields_tbl => l_csm_yields_tbl);
17382: x_stream_types_tbl => l_req_stream_types_tbl);
17383: If (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
17384: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
17385: ElSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
17386: raise OKL_API.G_EXCEPTION_ERROR;
17387: End If;
17388: -- Requesting for yields
17389: x_return_status := yield_request(x_csm_yields_tbl => l_csm_yields_tbl);
17390: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
17386: raise OKL_API.G_EXCEPTION_ERROR;
17387: End If;
17388: -- Requesting for yields
17389: x_return_status := yield_request(x_csm_yields_tbl => l_csm_yields_tbl);
17390: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
17391: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
17392: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
17393: RAISE OKL_API.G_EXCEPTION_ERROR;
17394: END IF;
17387: End If;
17388: -- Requesting for yields
17389: x_return_status := yield_request(x_csm_yields_tbl => l_csm_yields_tbl);
17390: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
17391: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
17392: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
17393: RAISE OKL_API.G_EXCEPTION_ERROR;
17394: END IF;
17395:
17388: -- Requesting for yields
17389: x_return_status := yield_request(x_csm_yields_tbl => l_csm_yields_tbl);
17390: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
17391: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
17392: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
17393: RAISE OKL_API.G_EXCEPTION_ERROR;
17394: END IF;
17395:
17396: If (x_return_status <> OKL_API.G_RET_STS_SUCCESS) then
17389: x_return_status := yield_request(x_csm_yields_tbl => l_csm_yields_tbl);
17390: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
17391: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
17392: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
17393: RAISE OKL_API.G_EXCEPTION_ERROR;
17394: END IF;
17395:
17396: If (x_return_status <> OKL_API.G_RET_STS_SUCCESS) then
17397: okl_api.set_message(
17392: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
17393: RAISE OKL_API.G_EXCEPTION_ERROR;
17394: END IF;
17395:
17396: If (x_return_status <> OKL_API.G_RET_STS_SUCCESS) then
17397: okl_api.set_message(
17398: p_app_name => G_APP_NAME,
17399: p_msg_name => 'OKL_LLA_REPSTRMS_EXTR_FAILED');
17400: raise OKL_API.G_EXCEPTION_ERROR;
17393: RAISE OKL_API.G_EXCEPTION_ERROR;
17394: END IF;
17395:
17396: If (x_return_status <> OKL_API.G_RET_STS_SUCCESS) then
17397: okl_api.set_message(
17398: p_app_name => G_APP_NAME,
17399: p_msg_name => 'OKL_LLA_REPSTRMS_EXTR_FAILED');
17400: raise OKL_API.G_EXCEPTION_ERROR;
17401: End If;
17396: If (x_return_status <> OKL_API.G_RET_STS_SUCCESS) then
17397: okl_api.set_message(
17398: p_app_name => G_APP_NAME,
17399: p_msg_name => 'OKL_LLA_REPSTRMS_EXTR_FAILED');
17400: raise OKL_API.G_EXCEPTION_ERROR;
17401: End If;
17402:
17403: x_csm_loan_header := l_csm_loan_header;
17404: x_csm_loan_lines_tbl := l_csm_loan_levels_tbl;
17406: x_csm_one_off_fee_tbl := l_csm_one_off_fee_tbl;
17407: x_csm_periodic_expenses_tbl := l_csm_periodic_expenses_tbl;
17408: x_csm_yields_tbl := l_csm_yields_tbl;
17409: x_csm_stream_types_tbl := l_req_stream_types_tbl;
17410: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
17411: x_msg_data => x_msg_data);
17412: EXCEPTION
17413: WHEN OKL_API.G_EXCEPTION_ERROR THEN
17414: IF l_hdr_csr%ISOPEN THEN
17409: x_csm_stream_types_tbl := l_req_stream_types_tbl;
17410: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
17411: x_msg_data => x_msg_data);
17412: EXCEPTION
17413: WHEN OKL_API.G_EXCEPTION_ERROR THEN
17414: IF l_hdr_csr%ISOPEN THEN
17415: CLOSE l_hdr_csr;
17416: END IF;
17417: IF ib_csr%ISOPEN THEN
17428: END IF;
17429: IF l_rl_csr%ISOPEN THEN
17430: CLOSE l_rl_csr;
17431: END IF;
17432: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
17433: l_api_name,
17434: G_PKG_NAME,
17435: 'OKL_API.G_RET_STS_ERROR',
17436: x_msg_count,
17431: END IF;
17432: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
17433: l_api_name,
17434: G_PKG_NAME,
17435: 'OKL_API.G_RET_STS_ERROR',
17436: x_msg_count,
17437: x_msg_data,
17438: '_PVT');
17439: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
17435: 'OKL_API.G_RET_STS_ERROR',
17436: x_msg_count,
17437: x_msg_data,
17438: '_PVT');
17439: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
17440: IF l_hdr_csr%ISOPEN THEN
17441: CLOSE l_hdr_csr;
17442: END IF;
17443: IF ib_csr%ISOPEN THEN
17454: END IF;
17455: IF l_rl_csr%ISOPEN THEN
17456: CLOSE l_rl_csr;
17457: END IF;
17458: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
17459: l_api_name,
17460: G_PKG_NAME,
17461: 'OKL_API.G_RET_STS_UNEXP_ERROR',
17462: x_msg_count,
17457: END IF;
17458: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
17459: l_api_name,
17460: G_PKG_NAME,
17461: 'OKL_API.G_RET_STS_UNEXP_ERROR',
17462: x_msg_count,
17463: x_msg_data,
17464: '_PVT');
17465: WHEN OTHERS then
17480: END IF;
17481: IF l_rl_csr%ISOPEN THEN
17482: CLOSE l_rl_csr;
17483: END IF;
17484: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
17485: l_api_name,
17486: G_PKG_NAME,
17487: 'OTHERS',
17488: x_msg_count,
17491: END extract_params_loan_paydown;
17492:
17493: PROCEDURE extract_params_ppd_rebook(
17494: p_api_version IN NUMBER,
17495: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
17496: p_chr_id IN VARCHAR2,
17497: x_return_status OUT NOCOPY VARCHAR2,
17498: x_msg_count OUT NOCOPY NUMBER,
17499: x_msg_data OUT NOCOPY VARCHAR2,
17506: x_csm_stream_types_tbl OUT NOCOPY okl_create_streams_pub.csm_stream_types_tbl_type) AS
17507:
17508: l_api_name CONSTANT VARCHAR2(30) := 'EXTRACT_PARAMS_PPD_REBOOK';
17509: l_api_version CONSTANT NUMBER := 1;
17510: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
17511: l_level_type NUMBER;
17512: l_strm_name VARCHAR2(200);
17513: i BINARY_INTEGER := 0;
17514: j BINARY_INTEGER := 0;
17710: RETURN null;
17711: END get_end_date;
17712:
17713: BEGIN
17714: x_return_status := OKL_API.G_RET_STS_SUCCESS;
17715: -- Call start_activity to create savepoint, check compatibility
17716: -- and initialize message list
17717: x_return_status := OKL_API.START_ACTIVITY (
17718: l_api_name
17713: BEGIN
17714: x_return_status := OKL_API.G_RET_STS_SUCCESS;
17715: -- Call start_activity to create savepoint, check compatibility
17716: -- and initialize message list
17717: x_return_status := OKL_API.START_ACTIVITY (
17718: l_api_name
17719: ,p_init_msg_list
17720: ,'_PVT'
17721: ,x_return_status);
17719: ,p_init_msg_list
17720: ,'_PVT'
17721: ,x_return_status);
17722: -- Check if activity started successfully
17723: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
17724: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
17725: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
17726: RAISE OKL_API.G_EXCEPTION_ERROR;
17727: END IF;
17720: ,'_PVT'
17721: ,x_return_status);
17722: -- Check if activity started successfully
17723: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
17724: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
17725: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
17726: RAISE OKL_API.G_EXCEPTION_ERROR;
17727: END IF;
17728:
17721: ,x_return_status);
17722: -- Check if activity started successfully
17723: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
17724: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
17725: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
17726: RAISE OKL_API.G_EXCEPTION_ERROR;
17727: END IF;
17728:
17729:
17722: -- Check if activity started successfully
17723: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
17724: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
17725: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
17726: RAISE OKL_API.G_EXCEPTION_ERROR;
17727: END IF;
17728:
17729:
17730: --sechawla 20-Jul-09 PRB ESG Enhancements : check rebook option
17758: x_msg_count => x_msg_count,
17759: x_msg_data => x_msg_data,
17760: p_khr_id => p_chr_id,
17761: p_paym_tbl => l_pay_tbl);
17762: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
17763: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
17764: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
17765: RAISE OKL_API.G_EXCEPTION_ERROR;
17766: END IF;
17759: x_msg_data => x_msg_data,
17760: p_khr_id => p_chr_id,
17761: p_paym_tbl => l_pay_tbl);
17762: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
17763: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
17764: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
17765: RAISE OKL_API.G_EXCEPTION_ERROR;
17766: END IF;
17767: i := 0; j := 0; k := 0; l := 0; m := 0;
17760: p_khr_id => p_chr_id,
17761: p_paym_tbl => l_pay_tbl);
17762: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
17763: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
17764: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
17765: RAISE OKL_API.G_EXCEPTION_ERROR;
17766: END IF;
17767: i := 0; j := 0; k := 0; l := 0; m := 0;
17768: /*
17761: p_paym_tbl => l_pay_tbl);
17762: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
17763: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
17764: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
17765: RAISE OKL_API.G_EXCEPTION_ERROR;
17766: END IF;
17767: i := 0; j := 0; k := 0; l := 0; m := 0;
17768: /*
17769: OPEN l_hdr_pdt_csr(p_chr_id);
17773: -- Header infro
17774: OPEN l_hdr_csr(p_chr_id);
17775: FETCH l_hdr_csr into l_hdr_rec;
17776: IF l_hdr_csr%NOTFOUND THEN
17777: okl_api.set_message(p_app_name => G_APP_NAME,
17778: p_msg_name => G_LLA_NO_MATCHING_RECORD,
17779: p_token1 => G_COL_NAME_TOKEN,
17780: p_token1_value => 'Contract id');
17781: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
17777: okl_api.set_message(p_app_name => G_APP_NAME,
17778: p_msg_name => G_LLA_NO_MATCHING_RECORD,
17779: p_token1 => G_COL_NAME_TOKEN,
17780: p_token1_value => 'Contract id');
17781: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
17782: END IF;
17783: CLOSE l_hdr_csr;
17784: l_csm_loan_header.khr_id := p_chr_id;
17785: l_csm_loan_header.date_payments_commencement := l_hdr_rec.start_date;
17789: -- Fetching the location of the asset
17790: OPEN ib_csr(TO_NUMBER(p_chr_id));
17791: FETCH ib_csr into l_ib_rec;
17792: IF ib_csr%NOTFOUND THEN
17793: okl_api.set_message(p_app_name => G_APP_NAME,
17794: p_msg_name => G_LLA_NO_MATCHING_RECORD,
17795: p_token1 => G_COL_NAME_TOKEN,
17796: p_token1_value => 'Contract id');
17797: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
17793: okl_api.set_message(p_app_name => G_APP_NAME,
17794: p_msg_name => G_LLA_NO_MATCHING_RECORD,
17795: p_token1 => G_COL_NAME_TOKEN,
17796: p_token1_value => 'Contract id');
17797: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
17798: END IF;
17799: CLOSE ib_csr;
17800: l_csm_loan_header.country := l_ib_rec.country;
17801: --The orp code for the Principal Paydown process is used here.
17813: p_contract_id => p_chr_id,
17814: p_line_id => NULL,
17815: x_value => l_total_lending);
17816: --Bug 4738011 - End of Changes
17817: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
17818: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
17819: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
17820: RAISE OKL_API.G_EXCEPTION_ERROR;
17821: END IF;
17814: p_line_id => NULL,
17815: x_value => l_total_lending);
17816: --Bug 4738011 - End of Changes
17817: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
17818: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
17819: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
17820: RAISE OKL_API.G_EXCEPTION_ERROR;
17821: END IF;
17822: l_csm_loan_header.total_lending := l_total_lending;
17815: x_value => l_total_lending);
17816: --Bug 4738011 - End of Changes
17817: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
17818: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
17819: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
17820: RAISE OKL_API.G_EXCEPTION_ERROR;
17821: END IF;
17822: l_csm_loan_header.total_lending := l_total_lending;
17823: l_csm_loan_header.sif_mode := OKL_CREATE_STREAMS_PUB.G_MODE_LENDER;
17816: --Bug 4738011 - End of Changes
17817: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
17818: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
17819: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
17820: RAISE OKL_API.G_EXCEPTION_ERROR;
17821: END IF;
17822: l_csm_loan_header.total_lending := l_total_lending;
17823: l_csm_loan_header.sif_mode := OKL_CREATE_STREAMS_PUB.G_MODE_LENDER;
17824:
17869:
17870: OPEN strm_name_csr ( l_level_type );
17871: FETCH strm_name_csr into l_strm_name_rec;
17872: IF strm_name_csr%NOTFOUND THEN
17873: okl_api.set_message(p_app_name => G_APP_NAME,
17874: p_msg_name => G_LLA_NO_MATCHING_RECORD,
17875: p_token1 => G_COL_NAME_TOKEN,
17876: p_token1_value => 'Contract id');
17877: x_return_status := OKL_API.G_RET_STS_ERROR;
17873: okl_api.set_message(p_app_name => G_APP_NAME,
17874: p_msg_name => G_LLA_NO_MATCHING_RECORD,
17875: p_token1 => G_COL_NAME_TOKEN,
17876: p_token1_value => 'Contract id');
17877: x_return_status := OKL_API.G_RET_STS_ERROR;
17878: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_ERROR);
17879: END IF;
17880: CLOSE strm_name_csr;
17881:
17874: p_msg_name => G_LLA_NO_MATCHING_RECORD,
17875: p_token1 => G_COL_NAME_TOKEN,
17876: p_token1_value => 'Contract id');
17877: x_return_status := OKL_API.G_RET_STS_ERROR;
17878: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_ERROR);
17879: END IF;
17880: CLOSE strm_name_csr;
17881:
17882: --l_strm_name := l_strm_name_rec.name;
17981: p_contract_id => p_chr_id,
17982: p_line_id => l_line_rec.id,
17983: x_value => l_total_lending);
17984: --Bug 4738011 - End of Changes
17985: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
17986: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
17987: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
17988: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_ERROR);
17989: END IF;
17982: p_line_id => l_line_rec.id,
17983: x_value => l_total_lending);
17984: --Bug 4738011 - End of Changes
17985: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
17986: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
17987: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
17988: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_ERROR);
17989: END IF;
17990: --Initialising l_ppd_count for every asset and deleting the existing l_ppd_Tbl
17983: x_value => l_total_lending);
17984: --Bug 4738011 - End of Changes
17985: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
17986: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
17987: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
17988: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_ERROR);
17989: END IF;
17990: --Initialising l_ppd_count for every asset and deleting the existing l_ppd_Tbl
17991: l_ppd_count := 0;
17984: --Bug 4738011 - End of Changes
17985: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
17986: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
17987: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
17988: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_ERROR);
17989: END IF;
17990: --Initialising l_ppd_count for every asset and deleting the existing l_ppd_Tbl
17991: l_ppd_count := 0;
17992: l_ppd_tbl.delete;
17994: --All previous PPDs defined on the contract are fetched and added to a PL/SQL table
17995: FOR get_prev_ppd_rec IN get_prev_ppd_csr('LALEVL', 'LASLH', TO_NUMBER(p_chr_id), l_line_rec.id) LOOP
17996: 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
17997: IF (l_rl_rec.rule_information7 IS NOT NULL OR
17998: l_rl_rec.rule_information7 <> OKL_API.G_MISS_CHAR) AND
17999: (l_rl_rec.rule_information8 IS NOT NULL OR
18000: l_rl_rec.rule_information8 <> OKL_API.G_MISS_CHAR) THEN
18001: l_ppd_tbl(l_ppd_count).paydown_date := FND_DATE.canonical_to_date(l_rl_rec.rule_information2);
18002: l_ppd_tbl(l_ppd_count).paydown_amount := FND_NUMBER.canonical_to_number(nvl(l_rl_rec.RULE_INFORMATION8,'0'));
17996: 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
17997: IF (l_rl_rec.rule_information7 IS NOT NULL OR
17998: l_rl_rec.rule_information7 <> OKL_API.G_MISS_CHAR) AND
17999: (l_rl_rec.rule_information8 IS NOT NULL OR
18000: l_rl_rec.rule_information8 <> OKL_API.G_MISS_CHAR) THEN
18001: l_ppd_tbl(l_ppd_count).paydown_date := FND_DATE.canonical_to_date(l_rl_rec.rule_information2);
18002: l_ppd_tbl(l_ppd_count).paydown_amount := FND_NUMBER.canonical_to_number(nvl(l_rl_rec.RULE_INFORMATION8,'0'));
18003: l_ppd_tbl(l_ppd_count).curr_paydown := 'N';
18004: l_ppd_count := l_ppd_count + 1;
18083: l_number_periods_completed := 0;
18084: l_number_periods_completed_cpy :=0;
18085: --If the payment is a stub
18086: IF (l_rl_rec.rule_information7 IS NOT NULL OR
18087: l_rl_rec.rule_information7 <> OKL_API.G_MISS_CHAR) AND
18088: (l_rl_rec.rule_information8 IS NOT NULL OR
18089: l_rl_rec.rule_information8 <> OKL_API.G_MISS_CHAR) THEN
18090:
18091: FOR k in l_ppd_tbl.FIRST..l_ppd_tbl.LAST LOOP
18085: --If the payment is a stub
18086: IF (l_rl_rec.rule_information7 IS NOT NULL OR
18087: l_rl_rec.rule_information7 <> OKL_API.G_MISS_CHAR) AND
18088: (l_rl_rec.rule_information8 IS NOT NULL OR
18089: l_rl_rec.rule_information8 <> OKL_API.G_MISS_CHAR) THEN
18090:
18091: FOR k in l_ppd_tbl.FIRST..l_ppd_tbl.LAST LOOP
18092: --If the paydown date lies inside the stub's start and end date, create a stub for the paydown
18093: --Modified by kthiruva on 13-Feb-2006
18251: --Bug 4964710 - End of Changes
18252: -- End of Bug#2757289 modification
18253: /*mansrini Handle PPD for non-stub payments here*/
18254: ELSIF (l_rl_rec.rule_information7 IS NULL OR
18255: l_rl_rec.rule_information7 = OKL_API.G_MISS_CHAR) AND
18256: (l_rl_rec.rule_information8 IS NULL OR
18257: l_rl_rec.rule_information8 = OKL_API.G_MISS_CHAR) THEN
18258:
18259: --When there is no PPD in the range of the periodic payment, the payment is retained as is
18253: /*mansrini Handle PPD for non-stub payments here*/
18254: ELSIF (l_rl_rec.rule_information7 IS NULL OR
18255: l_rl_rec.rule_information7 = OKL_API.G_MISS_CHAR) AND
18256: (l_rl_rec.rule_information8 IS NULL OR
18257: l_rl_rec.rule_information8 = OKL_API.G_MISS_CHAR) THEN
18258:
18259: --When there is no PPD in the range of the periodic payment, the payment is retained as is
18260: IF (l_ppd_tbl(l_ppd_tbl.FIRST).paydown_date < FND_DATE.canonical_to_date(l_rl_rec.rule_information2)
18261: 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))
18715: OPEN get_base_rate_csr(p_chr_id => p_chr_id,
18716: p_date => l_hdr_rec.start_date);
18717: FETCH get_base_rate_csr INTO l_base_rate;
18718: IF get_base_rate_csr%NOTFOUND THEN
18719: Okl_Api.SET_MESSAGE(p_app_name => g_app_name,
18720: p_msg_name => 'OKL_LLAP_BASE_RATE_NOT_DEF');
18721: RAISE Okl_Api.G_EXCEPTION_ERROR;
18722: END IF;
18723: CLOSE get_base_rate_csr;
18717: FETCH get_base_rate_csr INTO l_base_rate;
18718: IF get_base_rate_csr%NOTFOUND THEN
18719: Okl_Api.SET_MESSAGE(p_app_name => g_app_name,
18720: p_msg_name => 'OKL_LLAP_BASE_RATE_NOT_DEF');
18721: RAISE Okl_Api.G_EXCEPTION_ERROR;
18722: END IF;
18723: CLOSE get_base_rate_csr;
18724:
18725: j := j + 1;
18744: p_contract_id => p_chr_id,
18745: p_line_id => l_line_rec.id,
18746: x_value => l_total_lending);
18747: --Bug 4738011 - End of Changes
18748: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
18749: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
18750: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
18751: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_ERROR);
18752: END IF;
18745: p_line_id => l_line_rec.id,
18746: x_value => l_total_lending);
18747: --Bug 4738011 - End of Changes
18748: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
18749: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
18750: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
18751: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_ERROR);
18752: END IF;
18753: --Initialising l_ppd_count for every asset and deleting the existing l_ppd_Tbl
18746: x_value => l_total_lending);
18747: --Bug 4738011 - End of Changes
18748: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
18749: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
18750: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
18751: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_ERROR);
18752: END IF;
18753: --Initialising l_ppd_count for every asset and deleting the existing l_ppd_Tbl
18754: l_ppd_count := 0;
18747: --Bug 4738011 - End of Changes
18748: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
18749: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
18750: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
18751: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_ERROR);
18752: END IF;
18753: --Initialising l_ppd_count for every asset and deleting the existing l_ppd_Tbl
18754: l_ppd_count := 0;
18755: l_ppd_tbl.delete;
18757: --All previous PPDs defined on the contract are fetched and added to a PL/SQL table
18758: FOR get_prev_ppd_rec IN get_prev_ppd_csr('LALEVL', 'LASLH', TO_NUMBER(p_chr_id), l_line_rec.id) LOOP
18759: 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
18760: IF (l_rl_rec.rule_information7 IS NOT NULL OR
18761: l_rl_rec.rule_information7 <> OKL_API.G_MISS_CHAR) AND
18762: (l_rl_rec.rule_information8 IS NOT NULL OR
18763: l_rl_rec.rule_information8 <> OKL_API.G_MISS_CHAR) THEN
18764: l_ppd_tbl(l_ppd_count).paydown_date := FND_DATE.canonical_to_date(l_rl_rec.rule_information2);
18765: l_ppd_tbl(l_ppd_count).paydown_amount := FND_NUMBER.canonical_to_number(nvl(l_rl_rec.RULE_INFORMATION8,'0'));
18759: 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
18760: IF (l_rl_rec.rule_information7 IS NOT NULL OR
18761: l_rl_rec.rule_information7 <> OKL_API.G_MISS_CHAR) AND
18762: (l_rl_rec.rule_information8 IS NOT NULL OR
18763: l_rl_rec.rule_information8 <> OKL_API.G_MISS_CHAR) THEN
18764: l_ppd_tbl(l_ppd_count).paydown_date := FND_DATE.canonical_to_date(l_rl_rec.rule_information2);
18765: l_ppd_tbl(l_ppd_count).paydown_amount := FND_NUMBER.canonical_to_number(nvl(l_rl_rec.RULE_INFORMATION8,'0'));
18766: l_ppd_tbl(l_ppd_count).curr_paydown := 'N';
18767: l_ppd_count := l_ppd_count + 1;
18846: l_number_periods_completed := 0;
18847: l_number_periods_completed_cpy :=0;
18848: --If payment is a stub
18849: IF (l_rl_rec.rule_information7 IS NOT NULL OR
18850: l_rl_rec.rule_information7 <> OKL_API.G_MISS_CHAR) AND
18851: (l_rl_rec.rule_information8 IS NOT NULL OR
18852: l_rl_rec.rule_information8 <> OKL_API.G_MISS_CHAR) THEN
18853: FOR k in l_ppd_tbl.FIRST..l_ppd_tbl.LAST LOOP
18854: --If the paydown date lies inside the stub's start and end date, create a stub for the paydown
18848: --If payment is a stub
18849: IF (l_rl_rec.rule_information7 IS NOT NULL OR
18850: l_rl_rec.rule_information7 <> OKL_API.G_MISS_CHAR) AND
18851: (l_rl_rec.rule_information8 IS NOT NULL OR
18852: l_rl_rec.rule_information8 <> OKL_API.G_MISS_CHAR) THEN
18853: FOR k in l_ppd_tbl.FIRST..l_ppd_tbl.LAST LOOP
18854: --If the paydown date lies inside the stub's start and end date, create a stub for the paydown
18855: --Modified by kthiruva on 13-Feb-2006
18856: --Bug 4964710 - Start of Changes
19020: --Bug 4964710 - End of Changes
19021: -- End of Bug#2757289 modification
19022: /*mansrini Handle PPD for non-stub payments here*/
19023: ELSIF (l_rl_rec.rule_information7 IS NULL OR
19024: l_rl_rec.rule_information7 = OKL_API.G_MISS_CHAR) AND
19025: (l_rl_rec.rule_information8 IS NULL OR
19026: l_rl_rec.rule_information8 = OKL_API.G_MISS_CHAR) THEN
19027:
19028: --When there is no PPD in the range of the periodic payment, the payment is retained as is
19022: /*mansrini Handle PPD for non-stub payments here*/
19023: ELSIF (l_rl_rec.rule_information7 IS NULL OR
19024: l_rl_rec.rule_information7 = OKL_API.G_MISS_CHAR) AND
19025: (l_rl_rec.rule_information8 IS NULL OR
19026: l_rl_rec.rule_information8 = OKL_API.G_MISS_CHAR) THEN
19027:
19028: --When there is no PPD in the range of the periodic payment, the payment is retained as is
19029: IF (l_ppd_tbl(l_ppd_tbl.FIRST).paydown_date < FND_DATE.canonical_to_date(l_rl_rec.rule_information2)
19030: 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))
19433: -- code for use defined streams ends here
19434: 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
19435: -- Start of Bug#2757289 modification
19436: IF (l_rl_rec.rule_information7 IS NOT NULL OR
19437: l_rl_rec.rule_information7 <> OKL_API.G_MISS_CHAR) AND
19438: (l_rl_rec.rule_information8 IS NOT NULL OR
19439: l_rl_rec.rule_information8 <> OKL_API.G_MISS_CHAR) THEN
19440: k := k + 1;
19441: idx := idx + 1;
19435: -- Start of Bug#2757289 modification
19436: IF (l_rl_rec.rule_information7 IS NOT NULL OR
19437: l_rl_rec.rule_information7 <> OKL_API.G_MISS_CHAR) AND
19438: (l_rl_rec.rule_information8 IS NOT NULL OR
19439: l_rl_rec.rule_information8 <> OKL_API.G_MISS_CHAR) THEN
19440: k := k + 1;
19441: idx := idx + 1;
19442: l_csm_periodic_expenses_tbl(k).level_index_number := idx;
19443: l_csm_periodic_expenses_tbl(k).amount := okl_accounting_util.round_amount (p_amount => TO_NUMBER(l_rl_rec.rule_information8) , p_currency_code => l_hdr_rec.currency_code);
19486: END IF;
19487: -- Bug 4915938 - End of Changes
19488:
19489: ELSIF (l_rl_rec.rule_information7 IS NULL OR
19490: l_rl_rec.rule_information7 = OKL_API.G_MISS_CHAR) AND
19491: (l_rl_rec.rule_information8 IS NULL OR
19492: l_rl_rec.rule_information8 = OKL_API.G_MISS_CHAR) THEN
19493: k := k + 1;
19494: idx := idx + 1;
19488:
19489: ELSIF (l_rl_rec.rule_information7 IS NULL OR
19490: l_rl_rec.rule_information7 = OKL_API.G_MISS_CHAR) AND
19491: (l_rl_rec.rule_information8 IS NULL OR
19492: l_rl_rec.rule_information8 = OKL_API.G_MISS_CHAR) THEN
19493: k := k + 1;
19494: idx := idx + 1;
19495: l_csm_periodic_expenses_tbl(k).level_index_number := idx;
19496: l_csm_periodic_expenses_tbl(k).description := l_strm_name;
19514: l_csm_periodic_expenses_tbl(k).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ARREARS;
19515: ELSE
19516: l_csm_periodic_expenses_tbl(k).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ADVANCE;
19517: END IF;
19518: IF (l_rl_rec.RULE_INFORMATION2 IS NULL or l_rl_rec.RULE_INFORMATION2 = OKL_API.G_MISS_CHAR) THEN
19519: --sechawla 11-sep-09 8798556
19520: --l_csm_periodic_expenses_tbl(k).date_start := l_hdr_rec.start_date;
19521: l_csm_periodic_expenses_tbl(k).date_start := l_line_rec.start_date;
19522: ELSE
19543: l := l + 1;
19544: l_csm_one_off_fee_tbl(l).description := l_strm_name_rec.name;
19545: l_csm_one_off_fee_tbl(l).income_or_expense := OKL_CREATE_STREAMS_PUB.G_INCOME;
19546: l_csm_one_off_fee_tbl(l).amount := okl_accounting_util.round_amount (p_amount => FND_NUMBER.canonical_to_number(nvl(l_rl_rec.RULE_INFORMATION6,'0')) , p_currency_code => l_hdr_rec.currency_code);
19547: If(l_rl_rec.RULE_INFORMATION2 IS NULL or l_rl_rec.RULE_INFORMATION2 = OKL_API.G_MISS_CHAR) Then
19548: l_csm_one_off_fee_tbl(l).date_paid := l_hdr_rec.start_date;
19549: Else
19550: l_csm_one_off_fee_tbl(l).date_paid := FND_DATE.canonical_to_date(l_rl_rec.RULE_INFORMATION2);
19551: End If;
19559: END LOOP;
19560: END IF;
19561: END LOOP;
19562: END LOOP;
19563: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
19564: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
19565: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
19566: RAISE OKL_API.G_EXCEPTION_ERROR;
19567: End If;
19560: END IF;
19561: END LOOP;
19562: END LOOP;
19563: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
19564: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
19565: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
19566: RAISE OKL_API.G_EXCEPTION_ERROR;
19567: End If;
19568: -- Extract fee line
19561: END LOOP;
19562: END LOOP;
19563: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
19564: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
19565: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
19566: RAISE OKL_API.G_EXCEPTION_ERROR;
19567: End If;
19568: -- Extract fee line
19569: extract_fee_lines( p_api_version => p_api_version,
19562: END LOOP;
19563: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
19564: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
19565: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
19566: RAISE OKL_API.G_EXCEPTION_ERROR;
19567: End If;
19568: -- Extract fee line
19569: extract_fee_lines( p_api_version => p_api_version,
19570: p_chr_id => TO_NUMBER(p_chr_id),
19575: x_return_status => x_return_status,
19576: px_csm_stream_types_tbl => l_csm_stream_types_tbl,
19577: px_csm_one_off_fee_tbl => l_csm_one_off_fee_tbl,
19578: px_csm_periodic_expenses_tbl => l_csm_periodic_expenses_tbl);
19579: If (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
19580: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
19581: ElSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
19582: raise OKL_API.G_EXCEPTION_ERROR;
19583: End If;
19576: px_csm_stream_types_tbl => l_csm_stream_types_tbl,
19577: px_csm_one_off_fee_tbl => l_csm_one_off_fee_tbl,
19578: px_csm_periodic_expenses_tbl => l_csm_periodic_expenses_tbl);
19579: If (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
19580: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
19581: ElSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
19582: raise OKL_API.G_EXCEPTION_ERROR;
19583: End If;
19584: extract_subsidized_lines(p_api_version => p_api_version,
19577: px_csm_one_off_fee_tbl => l_csm_one_off_fee_tbl,
19578: px_csm_periodic_expenses_tbl => l_csm_periodic_expenses_tbl);
19579: If (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
19580: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
19581: ElSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
19582: raise OKL_API.G_EXCEPTION_ERROR;
19583: End If;
19584: extract_subsidized_lines(p_api_version => p_api_version,
19585: p_init_msg_list => p_init_msg_list,
19578: px_csm_periodic_expenses_tbl => l_csm_periodic_expenses_tbl);
19579: If (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
19580: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
19581: ElSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
19582: raise OKL_API.G_EXCEPTION_ERROR;
19583: End If;
19584: extract_subsidized_lines(p_api_version => p_api_version,
19585: p_init_msg_list => p_init_msg_list,
19586: x_return_status => x_return_status,
19587: x_msg_count => x_msg_count,
19588: x_msg_data => x_msg_data,
19589: p_chr_id => TO_NUMBER(p_chr_id),
19590: px_csm_one_off_fee_tbl => l_csm_one_off_fee_tbl);
19591: If (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
19592: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
19593: ElSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
19594: raise OKL_API.G_EXCEPTION_ERROR;
19595: End If;
19588: x_msg_data => x_msg_data,
19589: p_chr_id => TO_NUMBER(p_chr_id),
19590: px_csm_one_off_fee_tbl => l_csm_one_off_fee_tbl);
19591: If (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
19592: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
19593: ElSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
19594: raise OKL_API.G_EXCEPTION_ERROR;
19595: End If;
19596: check_for_mandatory_streams(
19589: p_chr_id => TO_NUMBER(p_chr_id),
19590: px_csm_one_off_fee_tbl => l_csm_one_off_fee_tbl);
19591: If (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
19592: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
19593: ElSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
19594: raise OKL_API.G_EXCEPTION_ERROR;
19595: End If;
19596: check_for_mandatory_streams(
19597: p_api_version => p_api_version,
19590: px_csm_one_off_fee_tbl => l_csm_one_off_fee_tbl);
19591: If (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
19592: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
19593: ElSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
19594: raise OKL_API.G_EXCEPTION_ERROR;
19595: End If;
19596: check_for_mandatory_streams(
19597: p_api_version => p_api_version,
19598: p_init_msg_list => p_init_msg_list,
19602: p_chr_id => p_chr_id,
19603: p_deal_type => l_deal_type,
19604: p_stream_types_tbl => l_csm_stream_types_tbl,
19605: x_stream_types_tbl => l_req_stream_types_tbl);
19606: If (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
19607: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
19608: ElSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
19609: raise OKL_API.G_EXCEPTION_ERROR;
19610: End If;
19603: p_deal_type => l_deal_type,
19604: p_stream_types_tbl => l_csm_stream_types_tbl,
19605: x_stream_types_tbl => l_req_stream_types_tbl);
19606: If (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
19607: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
19608: ElSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
19609: raise OKL_API.G_EXCEPTION_ERROR;
19610: End If;
19611: -- Requesting for yields
19604: p_stream_types_tbl => l_csm_stream_types_tbl,
19605: x_stream_types_tbl => l_req_stream_types_tbl);
19606: If (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
19607: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
19608: ElSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
19609: raise OKL_API.G_EXCEPTION_ERROR;
19610: End If;
19611: -- Requesting for yields
19612: x_return_status := yield_request(x_csm_yields_tbl => l_csm_yields_tbl);
19605: x_stream_types_tbl => l_req_stream_types_tbl);
19606: If (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
19607: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
19608: ElSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
19609: raise OKL_API.G_EXCEPTION_ERROR;
19610: End If;
19611: -- Requesting for yields
19612: x_return_status := yield_request(x_csm_yields_tbl => l_csm_yields_tbl);
19613: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
19609: raise OKL_API.G_EXCEPTION_ERROR;
19610: End If;
19611: -- Requesting for yields
19612: x_return_status := yield_request(x_csm_yields_tbl => l_csm_yields_tbl);
19613: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
19614: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
19615: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
19616: RAISE OKL_API.G_EXCEPTION_ERROR;
19617: END IF;
19610: End If;
19611: -- Requesting for yields
19612: x_return_status := yield_request(x_csm_yields_tbl => l_csm_yields_tbl);
19613: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
19614: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
19615: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
19616: RAISE OKL_API.G_EXCEPTION_ERROR;
19617: END IF;
19618:
19611: -- Requesting for yields
19612: x_return_status := yield_request(x_csm_yields_tbl => l_csm_yields_tbl);
19613: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
19614: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
19615: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
19616: RAISE OKL_API.G_EXCEPTION_ERROR;
19617: END IF;
19618:
19619: If (x_return_status <> OKL_API.G_RET_STS_SUCCESS) then
19612: x_return_status := yield_request(x_csm_yields_tbl => l_csm_yields_tbl);
19613: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
19614: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
19615: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
19616: RAISE OKL_API.G_EXCEPTION_ERROR;
19617: END IF;
19618:
19619: If (x_return_status <> OKL_API.G_RET_STS_SUCCESS) then
19620: okl_api.set_message(
19615: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
19616: RAISE OKL_API.G_EXCEPTION_ERROR;
19617: END IF;
19618:
19619: If (x_return_status <> OKL_API.G_RET_STS_SUCCESS) then
19620: okl_api.set_message(
19621: p_app_name => G_APP_NAME,
19622: p_msg_name => 'OKL_LLA_REPSTRMS_EXTR_FAILED');
19623: raise OKL_API.G_EXCEPTION_ERROR;
19616: RAISE OKL_API.G_EXCEPTION_ERROR;
19617: END IF;
19618:
19619: If (x_return_status <> OKL_API.G_RET_STS_SUCCESS) then
19620: okl_api.set_message(
19621: p_app_name => G_APP_NAME,
19622: p_msg_name => 'OKL_LLA_REPSTRMS_EXTR_FAILED');
19623: raise OKL_API.G_EXCEPTION_ERROR;
19624: End If;
19619: If (x_return_status <> OKL_API.G_RET_STS_SUCCESS) then
19620: okl_api.set_message(
19621: p_app_name => G_APP_NAME,
19622: p_msg_name => 'OKL_LLA_REPSTRMS_EXTR_FAILED');
19623: raise OKL_API.G_EXCEPTION_ERROR;
19624: End If;
19625:
19626: write_to_log('okl_la_stream_pvt.extract_params_ppd_rebook: Begin(+)');
19627: IF l_csm_line_details_tbl.COUNT > 0 THEN
19694: x_csm_one_off_fee_tbl := l_csm_one_off_fee_tbl;
19695: x_csm_periodic_expenses_tbl := l_csm_periodic_expenses_tbl;
19696: x_csm_yields_tbl := l_csm_yields_tbl;
19697: x_csm_stream_types_tbl := l_req_stream_types_tbl;
19698: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
19699: x_msg_data => x_msg_data);
19700: EXCEPTION
19701: WHEN OKL_API.G_EXCEPTION_ERROR THEN
19702: IF l_hdr_csr%ISOPEN THEN
19697: x_csm_stream_types_tbl := l_req_stream_types_tbl;
19698: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
19699: x_msg_data => x_msg_data);
19700: EXCEPTION
19701: WHEN OKL_API.G_EXCEPTION_ERROR THEN
19702: IF l_hdr_csr%ISOPEN THEN
19703: CLOSE l_hdr_csr;
19704: END IF;
19705: IF ib_csr%ISOPEN THEN
19716: END IF;
19717: IF l_rl_csr%ISOPEN THEN
19718: CLOSE l_rl_csr;
19719: END IF;
19720: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
19721: l_api_name,
19722: G_PKG_NAME,
19723: 'OKL_API.G_RET_STS_ERROR',
19724: x_msg_count,
19719: END IF;
19720: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
19721: l_api_name,
19722: G_PKG_NAME,
19723: 'OKL_API.G_RET_STS_ERROR',
19724: x_msg_count,
19725: x_msg_data,
19726: '_PVT');
19727: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
19723: 'OKL_API.G_RET_STS_ERROR',
19724: x_msg_count,
19725: x_msg_data,
19726: '_PVT');
19727: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
19728: IF l_hdr_csr%ISOPEN THEN
19729: CLOSE l_hdr_csr;
19730: END IF;
19731: IF ib_csr%ISOPEN THEN
19742: END IF;
19743: IF l_rl_csr%ISOPEN THEN
19744: CLOSE l_rl_csr;
19745: END IF;
19746: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
19747: l_api_name,
19748: G_PKG_NAME,
19749: 'OKL_API.G_RET_STS_UNEXP_ERROR',
19750: x_msg_count,
19745: END IF;
19746: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
19747: l_api_name,
19748: G_PKG_NAME,
19749: 'OKL_API.G_RET_STS_UNEXP_ERROR',
19750: x_msg_count,
19751: x_msg_data,
19752: '_PVT');
19753: WHEN OTHERS then
19768: END IF;
19769: IF l_rl_csr%ISOPEN THEN
19770: CLOSE l_rl_csr;
19771: END IF;
19772: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
19773: l_api_name,
19774: G_PKG_NAME,
19775: 'OTHERS',
19776: x_msg_count,
19780:
19781:
19782: Procedure extract_params_loan(
19783: p_api_version IN NUMBER,
19784: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
19785: p_chr_id IN VARCHAR2,
19786: x_return_status OUT NOCOPY VARCHAR2,
19787: x_msg_count OUT NOCOPY NUMBER,
19788: x_msg_data OUT NOCOPY VARCHAR2,
19815: l_ppd_cnt NUMBER := 0;
19816:
19817: l_api_name CONSTANT VARCHAR2(30) := 'EXTRACT_PARAMS_LOAN';
19818: l_api_version CONSTANT NUMBER := 1;
19819: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
19820:
19821: Begin
19822:
19823: --Added by kthiruva on 18-Apr-2006
19846: x_csm_stream_types_tbl);
19847:
19848: --Added by kthiruva for Debugging
19849: write_to_log('After the call to extract_params_ppd_rebook, the return status is :'||x_return_status);
19850: If (x_return_status <> OKL_API.G_RET_STS_SUCCESS) then
19851: okl_api.set_message(
19852: p_app_name => G_APP_NAME,
19853: p_msg_name => 'OKL_LLA_GENSTRMS_EXTR_FAILED');
19854: raise OKL_API.G_EXCEPTION_ERROR;
19847:
19848: --Added by kthiruva for Debugging
19849: write_to_log('After the call to extract_params_ppd_rebook, the return status is :'||x_return_status);
19850: If (x_return_status <> OKL_API.G_RET_STS_SUCCESS) then
19851: okl_api.set_message(
19852: p_app_name => G_APP_NAME,
19853: p_msg_name => 'OKL_LLA_GENSTRMS_EXTR_FAILED');
19854: raise OKL_API.G_EXCEPTION_ERROR;
19855: End If;
19850: If (x_return_status <> OKL_API.G_RET_STS_SUCCESS) then
19851: okl_api.set_message(
19852: p_app_name => G_APP_NAME,
19853: p_msg_name => 'OKL_LLA_GENSTRMS_EXTR_FAILED');
19854: raise OKL_API.G_EXCEPTION_ERROR;
19855: End If;
19856:
19857: ELSE
19858: extract_params_loan_deal(
19873: p_orp_code ); -- p_orp_code -- RG: 11-Aug-2009: PRB Upgrade
19874:
19875: --Added by kthiruva for Debugging
19876: write_to_log('After the call to extract_params_loan, the return status is :'||x_return_status);
19877: If (x_return_status <> OKL_API.G_RET_STS_SUCCESS) then
19878: okl_api.set_message(
19879: p_app_name => G_APP_NAME,
19880: p_msg_name => 'OKL_LLA_GENSTRMS_EXTR_FAILED');
19881: raise OKL_API.G_EXCEPTION_ERROR;
19874:
19875: --Added by kthiruva for Debugging
19876: write_to_log('After the call to extract_params_loan, the return status is :'||x_return_status);
19877: If (x_return_status <> OKL_API.G_RET_STS_SUCCESS) then
19878: okl_api.set_message(
19879: p_app_name => G_APP_NAME,
19880: p_msg_name => 'OKL_LLA_GENSTRMS_EXTR_FAILED');
19881: raise OKL_API.G_EXCEPTION_ERROR;
19882: End If;
19877: If (x_return_status <> OKL_API.G_RET_STS_SUCCESS) then
19878: okl_api.set_message(
19879: p_app_name => G_APP_NAME,
19880: p_msg_name => 'OKL_LLA_GENSTRMS_EXTR_FAILED');
19881: raise OKL_API.G_EXCEPTION_ERROR;
19882: End If;
19883:
19884: END IF;
19885: print( l_api_name, 'end', x_return_status);
19887:
19888: --Added by kthiruva for Bug 5161075
19889: Procedure extract_params_loan_reamort(
19890: p_api_version IN NUMBER,
19891: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
19892: p_chr_id IN VARCHAR2,
19893: x_return_status OUT NOCOPY VARCHAR2,
19894: x_msg_count OUT NOCOPY NUMBER,
19895: x_msg_data OUT NOCOPY VARCHAR2,
19924:
19925:
19926: l_api_name CONSTANT VARCHAR2(30) := 'EXTRACT_PARAMS_LOAN_REAMORT';
19927: l_api_version CONSTANT NUMBER := 1;
19928: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
19929:
19930: Begin
19931:
19932: --Added by kthiruva on 18-Apr-2006
19966: NULL ); -- p_orp_code
19967:
19968: --Added by kthiruva for Debugging
19969: write_to_log('After the call to extract_params_loan_deal, the return status is :'||x_return_status);
19970: If (x_return_status <> OKL_API.G_RET_STS_SUCCESS) then
19971: okl_api.set_message(
19972: p_app_name => G_APP_NAME,
19973: p_msg_name => 'OKL_LLA_GENSTRMS_EXTR_FAILED');
19974: raise OKL_API.G_EXCEPTION_ERROR;
19967:
19968: --Added by kthiruva for Debugging
19969: write_to_log('After the call to extract_params_loan_deal, the return status is :'||x_return_status);
19970: If (x_return_status <> OKL_API.G_RET_STS_SUCCESS) then
19971: okl_api.set_message(
19972: p_app_name => G_APP_NAME,
19973: p_msg_name => 'OKL_LLA_GENSTRMS_EXTR_FAILED');
19974: raise OKL_API.G_EXCEPTION_ERROR;
19975: End If;
19970: If (x_return_status <> OKL_API.G_RET_STS_SUCCESS) then
19971: okl_api.set_message(
19972: p_app_name => G_APP_NAME,
19973: p_msg_name => 'OKL_LLA_GENSTRMS_EXTR_FAILED');
19974: raise OKL_API.G_EXCEPTION_ERROR;
19975: End If;
19976: ELSE
19977: --Payment type on the contract is Rent
19978: --IF there is a PPD on the contract then call extract_params_loan_deal
19996: NULL ); -- p_orp_code
19997:
19998: --Added by kthiruva for Debugging
19999: write_to_log('After the call to extract_params_loan_deal, the return status is :'||x_return_status);
20000: If (x_return_status <> OKL_API.G_RET_STS_SUCCESS) then
20001: okl_api.set_message(
20002: p_app_name => G_APP_NAME,
20003: p_msg_name => 'OKL_LLA_GENSTRMS_EXTR_FAILED');
20004: raise OKL_API.G_EXCEPTION_ERROR;
19997:
19998: --Added by kthiruva for Debugging
19999: write_to_log('After the call to extract_params_loan_deal, the return status is :'||x_return_status);
20000: If (x_return_status <> OKL_API.G_RET_STS_SUCCESS) then
20001: okl_api.set_message(
20002: p_app_name => G_APP_NAME,
20003: p_msg_name => 'OKL_LLA_GENSTRMS_EXTR_FAILED');
20004: raise OKL_API.G_EXCEPTION_ERROR;
20005: End If;
20000: If (x_return_status <> OKL_API.G_RET_STS_SUCCESS) then
20001: okl_api.set_message(
20002: p_app_name => G_APP_NAME,
20003: p_msg_name => 'OKL_LLA_GENSTRMS_EXTR_FAILED');
20004: raise OKL_API.G_EXCEPTION_ERROR;
20005: End If;
20006: ELSIF l_ppd_cnt > 0 THEN
20007:
20008: --Payment on the contract is Rent. Therefore the PPD should also be incorporated
20023: x_csm_stream_types_tbl);
20024:
20025: --Added by kthiruva for Debugging
20026: write_to_log('After the call to extract_params_ppd_rebook, the return status is :'||x_return_status);
20027: If (x_return_status <> OKL_API.G_RET_STS_SUCCESS) then
20028: okl_api.set_message(
20029: p_app_name => G_APP_NAME,
20030: p_msg_name => 'OKL_LLA_GENSTRMS_EXTR_FAILED');
20031: raise OKL_API.G_EXCEPTION_ERROR;
20024:
20025: --Added by kthiruva for Debugging
20026: write_to_log('After the call to extract_params_ppd_rebook, the return status is :'||x_return_status);
20027: If (x_return_status <> OKL_API.G_RET_STS_SUCCESS) then
20028: okl_api.set_message(
20029: p_app_name => G_APP_NAME,
20030: p_msg_name => 'OKL_LLA_GENSTRMS_EXTR_FAILED');
20031: raise OKL_API.G_EXCEPTION_ERROR;
20032: End If;
20027: If (x_return_status <> OKL_API.G_RET_STS_SUCCESS) then
20028: okl_api.set_message(
20029: p_app_name => G_APP_NAME,
20030: p_msg_name => 'OKL_LLA_GENSTRMS_EXTR_FAILED');
20031: raise OKL_API.G_EXCEPTION_ERROR;
20032: End If;
20033: END IF;
20034: END IF;
20035: print( l_api_name, 'end', x_return_status);
20037:
20038: -- Start modification 11i10 bakuchib
20039: PROCEDURE extract_params_lease_deal(
20040: p_api_version IN NUMBER,
20041: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
20042: p_chr_id IN VARCHAR2,
20043: p_deal_type IN VARCHAR2,
20044: x_return_status OUT NOCOPY VARCHAR2,
20045: x_msg_count OUT NOCOPY NUMBER,
20054: p_orp_code IN VARCHAR2 DEFAULT NULL ) AS
20055:
20056: l_api_name CONSTANT VARCHAR2(30) := 'EXTRACT_PARAMS_LEASE_DEAL';
20057: l_api_version CONSTANT NUMBER := 1;
20058: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
20059: lv_fed_only VARCHAR2(3) := 'N';
20060: ln_value NUMBER := 0;
20061: lv_fed_only_tax_book OKL_TXD_ASSETS_B.TAX_BOOK%TYPE := NULL;
20062: lv_mg_tax_yn VARCHAR2(3) := 'N';
20496: BEGIN
20497: --Added by kthiruva for Debugging
20498: write_to_log('Inside procedure extract_params_lease_deal');
20499:
20500: x_return_status := OKL_API.G_RET_STS_SUCCESS;
20501: -- Call start_activity to create savepoint, check compatibility
20502: -- and initialize message list
20503: x_return_status := OKL_API.START_ACTIVITY (
20504: l_api_name
20499:
20500: x_return_status := OKL_API.G_RET_STS_SUCCESS;
20501: -- Call start_activity to create savepoint, check compatibility
20502: -- and initialize message list
20503: x_return_status := OKL_API.START_ACTIVITY (
20504: l_api_name
20505: ,p_init_msg_list
20506: ,'_PVT'
20507: ,x_return_status);
20505: ,p_init_msg_list
20506: ,'_PVT'
20507: ,x_return_status);
20508: -- Check if activity started successfully
20509: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
20510: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
20511: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
20512: RAISE OKL_API.G_EXCEPTION_ERROR;
20513: END IF;
20506: ,'_PVT'
20507: ,x_return_status);
20508: -- Check if activity started successfully
20509: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
20510: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
20511: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
20512: RAISE OKL_API.G_EXCEPTION_ERROR;
20513: END IF;
20514:
20507: ,x_return_status);
20508: -- Check if activity started successfully
20509: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
20510: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
20511: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
20512: RAISE OKL_API.G_EXCEPTION_ERROR;
20513: END IF;
20514:
20515:
20508: -- Check if activity started successfully
20509: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
20510: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
20511: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
20512: RAISE OKL_API.G_EXCEPTION_ERROR;
20513: END IF;
20514:
20515:
20516: --sechawla 20-Jul-09 PRB ESG Enhancements : check rebook option
20531:
20532: --Added by kthiruva for Debugging
20533: write_to_log('After the call to validate_payments, the return status is :'||x_return_status);
20534:
20535: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
20536: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
20537: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
20538: RAISE OKL_API.G_EXCEPTION_ERROR;
20539: END IF;
20532: --Added by kthiruva for Debugging
20533: write_to_log('After the call to validate_payments, the return status is :'||x_return_status);
20534:
20535: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
20536: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
20537: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
20538: RAISE OKL_API.G_EXCEPTION_ERROR;
20539: END IF;
20540: i := 0; j := 0; k := 0; l := 0; m := 0;
20533: write_to_log('After the call to validate_payments, the return status is :'||x_return_status);
20534:
20535: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
20536: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
20537: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
20538: RAISE OKL_API.G_EXCEPTION_ERROR;
20539: END IF;
20540: i := 0; j := 0; k := 0; l := 0; m := 0;
20541:
20534:
20535: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
20536: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
20537: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
20538: RAISE OKL_API.G_EXCEPTION_ERROR;
20539: END IF;
20540: i := 0; j := 0; k := 0; l := 0; m := 0;
20541:
20542: OPEN l_hdr_pdt_csr(p_chr_id);
20564: FETCH l_hdr_csr_lease into l_hdr_rec;
20565: IF l_hdr_csr_lease%NOTFOUND THEN
20566: --Added by kthiruva for Debugging
20567: write_to_log('Cursor l_hdr_csr_lease not found');
20568: okl_api.set_message(p_app_name => G_APP_NAME,
20569: p_msg_name => G_LLA_NO_MATCHING_RECORD,
20570: p_token1 => G_COL_NAME_TOKEN,
20571: p_token1_value => 'Contract id');
20572: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
20568: okl_api.set_message(p_app_name => G_APP_NAME,
20569: p_msg_name => G_LLA_NO_MATCHING_RECORD,
20570: p_token1 => G_COL_NAME_TOKEN,
20571: p_token1_value => 'Contract id');
20572: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
20573: END IF;
20574: CLOSE l_hdr_csr_lease;
20575: -- get header rule info
20576: OPEN l_hdrrl_csr_lease('LATOWN', 'LATOWN', TO_NUMBER(p_chr_id));
20577: FETCH l_hdrrl_csr_lease into l_hdrrl_rec;
20578: IF l_hdrrl_csr_lease%NOTFOUND THEN
20579: --Added by kthiruva for Debugging
20580: write_to_log('Cursor l_hdrrl_csr_lease not found');
20581: okl_api.set_message(p_app_name => G_APP_NAME,
20582: p_msg_name => G_LLA_NO_MATCHING_RECORD,
20583: p_token1 => G_COL_NAME_TOKEN,
20584: p_token1_value => 'Contract id');
20585: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
20581: okl_api.set_message(p_app_name => G_APP_NAME,
20582: p_msg_name => G_LLA_NO_MATCHING_RECORD,
20583: p_token1 => G_COL_NAME_TOKEN,
20584: p_token1_value => 'Contract id');
20585: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
20586: END IF;
20587: CLOSE l_hdrrl_csr_lease;
20588: l_csm_lease_header.irs_tax_treatment_method := l_hdrrl_rec.RULE_INFORMATION1;
20589: l_lease_tax_owner := l_hdrrl_rec.RULE_INFORMATION1;
20612: FETCH ib_csr_lease into l_ib_rec;
20613: IF ib_csr_lease%NOTFOUND THEN
20614: --Added by kthiruva for Debugging
20615: write_to_log('Cursor ib_csr_lease not found');
20616: okl_api.set_message(p_app_name => G_APP_NAME,
20617: p_msg_name => G_LLA_NO_MATCHING_RECORD,
20618: p_token1 => G_COL_NAME_TOKEN,
20619: p_token1_value => 'Contract id');
20620: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
20616: okl_api.set_message(p_app_name => G_APP_NAME,
20617: p_msg_name => G_LLA_NO_MATCHING_RECORD,
20618: p_token1 => G_COL_NAME_TOKEN,
20619: p_token1_value => 'Contract id');
20620: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
20621: END IF;
20622: CLOSE ib_csr_lease;
20623: l_csm_lease_header.country := l_ib_rec.country;
20624: IF p_orp_code IS NOT NULL
20673: FETCH l_hdrrl_csr_lease into l_hdrrl_rec;
20674: CLOSE l_hdrrl_csr_lease;
20675: l_purchase_option := l_hdrrl_rec.RULE_INFORMATION11;
20676: IF (l_hdrrl_rec.rule_information1 IS NOT NULL OR
20677: l_hdrrl_rec.rule_information1 <> okl_api.g_miss_char) AND
20678: LTRIM(RTRIM(l_hdrrl_rec.rule_information1)) = 'USE_FORMULA' AND
20679: (l_hdrrl_rec.rule_information3 IS NOT NULL OR
20680: l_hdrrl_rec.rule_information3 <> okl_api.g_miss_char) THEN
20681: -- Executing the formula defined
20676: IF (l_hdrrl_rec.rule_information1 IS NOT NULL OR
20677: l_hdrrl_rec.rule_information1 <> okl_api.g_miss_char) AND
20678: LTRIM(RTRIM(l_hdrrl_rec.rule_information1)) = 'USE_FORMULA' AND
20679: (l_hdrrl_rec.rule_information3 IS NOT NULL OR
20680: l_hdrrl_rec.rule_information3 <> okl_api.g_miss_char) THEN
20681: -- Executing the formula defined
20682: --Added by kthiruva for Debugging
20683: write_to_log('Prior to the call to execute_formula');
20684: execute_formula(p_api_version => l_api_version,
20693: --Added by kthiruva for Debugging
20694:
20695: --Commented by bkatraga for bug 10649684
20696: --write_to_log('After the call to execute_formula, the return status is :'||l_return_status);
20697: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
20698: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
20699: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
20700: RAISE OKL_API.G_EXCEPTION_ERROR;
20701: END IF;
20694:
20695: --Commented by bkatraga for bug 10649684
20696: --write_to_log('After the call to execute_formula, the return status is :'||l_return_status);
20697: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
20698: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
20699: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
20700: RAISE OKL_API.G_EXCEPTION_ERROR;
20701: END IF;
20702: ELSIF (l_hdrrl_rec.rule_information1 IS NOT NULL OR
20695: --Commented by bkatraga for bug 10649684
20696: --write_to_log('After the call to execute_formula, the return status is :'||l_return_status);
20697: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
20698: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
20699: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
20700: RAISE OKL_API.G_EXCEPTION_ERROR;
20701: END IF;
20702: ELSIF (l_hdrrl_rec.rule_information1 IS NOT NULL OR
20703: l_hdrrl_rec.rule_information1 <> okl_api.g_miss_char) AND
20696: --write_to_log('After the call to execute_formula, the return status is :'||l_return_status);
20697: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
20698: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
20699: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
20700: RAISE OKL_API.G_EXCEPTION_ERROR;
20701: END IF;
20702: ELSIF (l_hdrrl_rec.rule_information1 IS NOT NULL OR
20703: l_hdrrl_rec.rule_information1 <> okl_api.g_miss_char) AND
20704: LTRIM(RTRIM(l_hdrrl_rec.rule_information1)) = 'USE_FIXED_AMOUNT' AND
20699: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
20700: RAISE OKL_API.G_EXCEPTION_ERROR;
20701: END IF;
20702: ELSIF (l_hdrrl_rec.rule_information1 IS NOT NULL OR
20703: l_hdrrl_rec.rule_information1 <> okl_api.g_miss_char) AND
20704: LTRIM(RTRIM(l_hdrrl_rec.rule_information1)) = 'USE_FIXED_AMOUNT' AND
20705: (l_hdrrl_rec.rule_information2 IS NOT NULL OR
20706: l_hdrrl_rec.rule_information2 <> okl_api.g_miss_char) THEN
20707: l_purchase_option_amount := TO_NUMBER(l_hdrrl_rec.RULE_INFORMATION2);
20702: ELSIF (l_hdrrl_rec.rule_information1 IS NOT NULL OR
20703: l_hdrrl_rec.rule_information1 <> okl_api.g_miss_char) AND
20704: LTRIM(RTRIM(l_hdrrl_rec.rule_information1)) = 'USE_FIXED_AMOUNT' AND
20705: (l_hdrrl_rec.rule_information2 IS NOT NULL OR
20706: l_hdrrl_rec.rule_information2 <> okl_api.g_miss_char) THEN
20707: l_purchase_option_amount := TO_NUMBER(l_hdrrl_rec.RULE_INFORMATION2);
20708: ELSE
20709: l_purchase_option := 'NONE';
20710: l_purchase_option_amount := NULL;
20725: lv_currency_code;
20726: IF get_org_id%NOTFOUND THEN
20727: --Added by kthiruva for Debugging
20728: write_to_log('Cursor get_org_id not found');
20729: okl_api.set_message(p_app_name => G_APP_NAME,
20730: p_msg_name => G_LLA_NO_MATCHING_RECORD,
20731: p_token1 => G_COL_NAME_TOKEN,
20732: p_token1_value => 'Contract id');
20733: x_return_status := OKL_API.G_RET_STS_ERROR;
20729: okl_api.set_message(p_app_name => G_APP_NAME,
20730: p_msg_name => G_LLA_NO_MATCHING_RECORD,
20731: p_token1 => G_COL_NAME_TOKEN,
20732: p_token1_value => 'Contract id');
20733: x_return_status := OKL_API.G_RET_STS_ERROR;
20734: END IF;
20735: CLOSE get_org_id;
20736: --Bug 4346646 - End of Changes
20737:
20739: OKL_ISG_UTILS_PVT.get_arrears_pay_dates_option(
20740: p_khr_id => p_chr_id,
20741: x_arrears_pay_dates_option => l_arrears_pay_dates_option,
20742: x_return_status => x_return_status);
20743: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
20744: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
20745: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
20746: RAISE OKL_API.G_EXCEPTION_ERROR;
20747: END IF;
20740: p_khr_id => p_chr_id,
20741: x_arrears_pay_dates_option => l_arrears_pay_dates_option,
20742: x_return_status => x_return_status);
20743: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
20744: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
20745: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
20746: RAISE OKL_API.G_EXCEPTION_ERROR;
20747: END IF;
20748: --end bkatraga for bug 14822974
20741: x_arrears_pay_dates_option => l_arrears_pay_dates_option,
20742: x_return_status => x_return_status);
20743: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
20744: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
20745: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
20746: RAISE OKL_API.G_EXCEPTION_ERROR;
20747: END IF;
20748: --end bkatraga for bug 14822974
20749:
20742: x_return_status => x_return_status);
20743: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
20744: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
20745: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
20746: RAISE OKL_API.G_EXCEPTION_ERROR;
20747: END IF;
20748: --end bkatraga for bug 14822974
20749:
20750: -- fetching the line record
20922: p_cle_id => l_line_rec.id,
20923: x_ast_dtl_tbl => l_ast_dtl_tbl);
20924: --Added by kthiruva for Debugging
20925: write_To_log('After the call to okl_activate_asset_pvt.get_pricing_parameters, return status is :'||x_return_status);
20926: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
20927: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
20928: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
20929: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_ERROR);
20930: END IF;
20923: x_ast_dtl_tbl => l_ast_dtl_tbl);
20924: --Added by kthiruva for Debugging
20925: write_To_log('After the call to okl_activate_asset_pvt.get_pricing_parameters, return status is :'||x_return_status);
20926: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
20927: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
20928: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
20929: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_ERROR);
20930: END IF;
20931: -- bug 4194673 fixed by HKPATEL
20924: --Added by kthiruva for Debugging
20925: write_To_log('After the call to okl_activate_asset_pvt.get_pricing_parameters, return status is :'||x_return_status);
20926: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
20927: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
20928: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
20929: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_ERROR);
20930: END IF;
20931: -- bug 4194673 fixed by HKPATEL
20932: IF l_ast_dtl_tbl.COUNT > 0 THEN
20925: write_To_log('After the call to okl_activate_asset_pvt.get_pricing_parameters, return status is :'||x_return_status);
20926: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
20927: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
20928: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
20929: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_ERROR);
20930: END IF;
20931: -- bug 4194673 fixed by HKPATEL
20932: IF l_ast_dtl_tbl.COUNT > 0 THEN
20933: l_book_type_code := NULL;
20961: p_pdt_parameter_rec => lx_pdt_param_rec);
20962:
20963: --Added by kthiruva for Debugging
20964: write_to_log('After the call to okl_setupproducts_pvt.getpdt_parameters, the return status is :'||x_return_status);
20965: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
20966: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
20967: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
20968: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_ERROR);
20969: END IF;
20962:
20963: --Added by kthiruva for Debugging
20964: write_to_log('After the call to okl_setupproducts_pvt.getpdt_parameters, the return status is :'||x_return_status);
20965: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
20966: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
20967: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
20968: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_ERROR);
20969: END IF;
20970: -- bug 4194673 fixed by HKPATEL
20963: --Added by kthiruva for Debugging
20964: write_to_log('After the call to okl_setupproducts_pvt.getpdt_parameters, the return status is :'||x_return_status);
20965: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
20966: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
20967: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
20968: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_ERROR);
20969: END IF;
20970: -- bug 4194673 fixed by HKPATEL
20971: x_return_status := is_rep_pdt(--p_asset_number => l_line_rec.name,
20964: write_to_log('After the call to okl_setupproducts_pvt.getpdt_parameters, the return status is :'||x_return_status);
20965: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
20966: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
20967: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
20968: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_ERROR);
20969: END IF;
20970: -- bug 4194673 fixed by HKPATEL
20971: x_return_status := is_rep_pdt(--p_asset_number => l_line_rec.name,
20972: p_corp_book => l_book_type_code,
20970: -- bug 4194673 fixed by HKPATEL
20971: x_return_status := is_rep_pdt(--p_asset_number => l_line_rec.name,
20972: p_corp_book => l_book_type_code,
20973: x_mg_tax_yn => lv_mg_tax_yn);
20974: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
20975: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
20976: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
20977: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_ERROR);
20978: END IF;
20971: x_return_status := is_rep_pdt(--p_asset_number => l_line_rec.name,
20972: p_corp_book => l_book_type_code,
20973: x_mg_tax_yn => lv_mg_tax_yn);
20974: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
20975: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
20976: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
20977: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_ERROR);
20978: END IF;
20979: -- If the reporting book is of deal type and if the
20972: p_corp_book => l_book_type_code,
20973: x_mg_tax_yn => lv_mg_tax_yn);
20974: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
20975: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
20976: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
20977: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_ERROR);
20978: END IF;
20979: -- If the reporting book is of deal type and if the
20980: -- if there is multi gaap tax book create in okl_txd_assets_b table
20973: x_mg_tax_yn => lv_mg_tax_yn);
20974: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
20975: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
20976: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
20977: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_ERROR);
20978: END IF;
20979: -- If the reporting book is of deal type and if the
20980: -- if there is multi gaap tax book create in okl_txd_assets_b table
20981: -- then we go and generate the book dep streams for the Mg tax book
21278: END IF;--vdamerla Bug6149951 ends
21279: END IF;
21280: END IF;
21281: END LOOP;
21282: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
21283: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
21284: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
21285: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_ERROR);
21286: END IF;
21279: END IF;
21280: END IF;
21281: END LOOP;
21282: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
21283: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
21284: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
21285: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_ERROR);
21286: END IF;
21287: END IF;
21280: END IF;
21281: END LOOP;
21282: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
21283: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
21284: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
21285: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_ERROR);
21286: END IF;
21287: END IF;
21288: END LOOP;
21281: END LOOP;
21282: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
21283: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
21284: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
21285: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_ERROR);
21286: END IF;
21287: END IF;
21288: END LOOP;
21289: ELSE
21286: END IF;
21287: END IF;
21288: END LOOP;
21289: ELSE
21290: okl_api.set_message(p_app_name => G_APP_NAME,
21291: p_msg_name => G_LLA_NO_MATCHING_RECORD,
21292: p_token1 => G_COL_NAME_TOKEN,
21293: p_token1_value => 'Asset Number : '||l_line_rec.name);
21294: x_return_status := OKL_API.G_RET_STS_ERROR;
21290: okl_api.set_message(p_app_name => G_APP_NAME,
21291: p_msg_name => G_LLA_NO_MATCHING_RECORD,
21292: p_token1 => G_COL_NAME_TOKEN,
21293: p_token1_value => 'Asset Number : '||l_line_rec.name);
21294: x_return_status := OKL_API.G_RET_STS_ERROR;
21295: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_ERROR);
21296: END IF;
21297:
21298:
21291: p_msg_name => G_LLA_NO_MATCHING_RECORD,
21292: p_token1 => G_COL_NAME_TOKEN,
21293: p_token1_value => 'Asset Number : '||l_line_rec.name);
21294: x_return_status := OKL_API.G_RET_STS_ERROR;
21295: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_ERROR);
21296: END IF;
21297:
21298:
21299: -- added by bkatraga for residual streams. Bug 4274539
21347: l_level_type := l_rl_rec1.object1_id1;
21348: OPEN strm_name_csr_lease ( l_level_type );
21349: FETCH strm_name_csr_lease into l_strm_name_rec;
21350: IF strm_name_csr_lease%NOTFOUND THEN
21351: x_return_status := OKL_API.G_RET_STS_ERROR;
21352: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_ERROR);
21353: END IF;
21354: CLOSE strm_name_csr_lease;
21355: l_strm_name := l_strm_name_rec.stream_type_purpose;
21348: OPEN strm_name_csr_lease ( l_level_type );
21349: FETCH strm_name_csr_lease into l_strm_name_rec;
21350: IF strm_name_csr_lease%NOTFOUND THEN
21351: x_return_status := OKL_API.G_RET_STS_ERROR;
21352: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_ERROR);
21353: END IF;
21354: CLOSE strm_name_csr_lease;
21355: l_strm_name := l_strm_name_rec.stream_type_purpose;
21356: --Added by srsreeni for bug5841892
21462: END IF; */
21463: -- End of Bug#3401024 modification BAKUCHIB
21464: -- Start of Bug#2757289 modification
21465: IF (l_rl_rec.rule_information7 IS NOT NULL OR
21466: l_rl_rec.rule_information7 <> OKL_API.G_MISS_CHAR) AND
21467: (l_rl_rec.rule_information8 IS NOT NULL OR
21468: l_rl_rec.rule_information8 <> OKL_API.G_MISS_CHAR) THEN
21469: j := j + 1;
21470: idx := idx + 1;
21464: -- Start of Bug#2757289 modification
21465: IF (l_rl_rec.rule_information7 IS NOT NULL OR
21466: l_rl_rec.rule_information7 <> OKL_API.G_MISS_CHAR) AND
21467: (l_rl_rec.rule_information8 IS NOT NULL OR
21468: l_rl_rec.rule_information8 <> OKL_API.G_MISS_CHAR) THEN
21469: j := j + 1;
21470: idx := idx + 1;
21471: l_rents_tbl(j).level_index_number := idx;
21472: l_rents_tbl(j).amount := TO_NUMBER(l_rl_rec.rule_information8);
21512: --IF l_PROSPECTIVE_REBOOK_YN = 'Y' THEN
21513: l_rents_tbl(j).orig_contract_line_id := l_line_rec.orig_contract_line_id;
21514: --END IF;
21515: ELSIF (l_rl_rec.rule_information7 IS NULL OR
21516: l_rl_rec.rule_information7 = OKL_API.G_MISS_CHAR) AND
21517: (l_rl_rec.rule_information8 IS NULL OR
21518: l_rl_rec.rule_information8 = OKL_API.G_MISS_CHAR) THEN
21519: j := j + 1;
21520: idx := idx + 1;
21514: --END IF;
21515: ELSIF (l_rl_rec.rule_information7 IS NULL OR
21516: l_rl_rec.rule_information7 = OKL_API.G_MISS_CHAR) AND
21517: (l_rl_rec.rule_information8 IS NULL OR
21518: l_rl_rec.rule_information8 = OKL_API.G_MISS_CHAR) THEN
21519: j := j + 1;
21520: idx := idx + 1;
21521: l_rents_tbl(j).level_index_number := idx;
21522: l_rents_tbl(j).level_type := OKL_CREATE_STREAMS_PUB.G_SFE_LEVEL_PAYMENT;
21554: l_rents_tbl(j).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ARREARS;
21555: ELSE
21556: l_rents_tbl(j).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ADVANCE;
21557: END IF;
21558: IF(l_rl_rec.RULE_INFORMATION2 IS NULL or l_rl_rec.RULE_INFORMATION2 = OKL_API.G_MISS_CHAR) Then
21559: --sechawla 11-sep-09 8798556
21560: --l_rents_tbl(j).date_start := l_hdr_rec.start_date;
21561: l_rents_tbl(j).date_start := l_line_rec.start_date;
21562: ELSE
21564: END IF;
21565: l_rents_tbl(j).rate := l_rl_rec.rule_information13;
21566: END IF;
21567: END LOOP;
21568: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
21569: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
21570: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
21571: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_ERROR);
21572: END IF;
21565: l_rents_tbl(j).rate := l_rl_rec.rule_information13;
21566: END IF;
21567: END LOOP;
21568: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
21569: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
21570: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
21571: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_ERROR);
21572: END IF;
21573: -- Code for Estimated Property Tax Starts Here
21566: END IF;
21567: END LOOP;
21568: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
21569: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
21570: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
21571: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_ERROR);
21572: END IF;
21573: -- Code for Estimated Property Tax Starts Here
21574: ELSIF( UPPER(TRIM(l_strm_name)) = 'ESTIMATED_PROPERTY_TAX' ) THEN
21567: END LOOP;
21568: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
21569: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
21570: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
21571: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_ERROR);
21572: END IF;
21573: -- Code for Estimated Property Tax Starts Here
21574: ELSIF( UPPER(TRIM(l_strm_name)) = 'ESTIMATED_PROPERTY_TAX' ) THEN
21575: 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
21616: END IF;
21617: */
21618:
21619: IF (l_rl_rec.rule_information7 IS NOT NULL OR
21620: l_rl_rec.rule_information7 <> OKL_API.G_MISS_CHAR) AND
21621: (l_rl_rec.rule_information8 IS NOT NULL OR
21622: l_rl_rec.rule_information8 <> OKL_API.G_MISS_CHAR) THEN
21623: k := k + 1;
21624: idx := idx + 1;
21618:
21619: IF (l_rl_rec.rule_information7 IS NOT NULL OR
21620: l_rl_rec.rule_information7 <> OKL_API.G_MISS_CHAR) AND
21621: (l_rl_rec.rule_information8 IS NOT NULL OR
21622: l_rl_rec.rule_information8 <> OKL_API.G_MISS_CHAR) THEN
21623: k := k + 1;
21624: idx := idx + 1;
21625: l_csm_periodic_expenses_tbl(k).level_index_number := idx;
21626: l_csm_periodic_expenses_tbl(k).amount := TO_NUMBER(l_rl_rec.rule_information8);
21656: END IF;
21657: -- Bug 4915938 - End of Changes
21658:
21659: ELSIF (l_rl_rec.rule_information7 IS NULL OR
21660: l_rl_rec.rule_information7 = OKL_API.G_MISS_CHAR) AND
21661: (l_rl_rec.rule_information8 IS NULL OR
21662: l_rl_rec.rule_information8 = OKL_API.G_MISS_CHAR) THEN
21663: k := k + 1;
21664: idx := idx + 1;
21658:
21659: ELSIF (l_rl_rec.rule_information7 IS NULL OR
21660: l_rl_rec.rule_information7 = OKL_API.G_MISS_CHAR) AND
21661: (l_rl_rec.rule_information8 IS NULL OR
21662: l_rl_rec.rule_information8 = OKL_API.G_MISS_CHAR) THEN
21663: k := k + 1;
21664: idx := idx + 1;
21665: l_csm_periodic_expenses_tbl(k).level_index_number := idx;
21666: l_csm_periodic_expenses_tbl(k).level_type := OKL_CREATE_STREAMS_PUB.G_SFE_LEVEL_PAYMENT;
21688: l_csm_periodic_expenses_tbl(k).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ARREARS;
21689: ELSE
21690: l_csm_periodic_expenses_tbl(k).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ADVANCE;
21691: END IF;
21692: IF(l_rl_rec.RULE_INFORMATION2 IS NULL or l_rl_rec.RULE_INFORMATION2 = OKL_API.G_MISS_CHAR) THEN
21693: --sechawla 11-sep-09 8798556
21694: --l_csm_periodic_expenses_tbl(k).date_start := l_hdr_rec.start_date;
21695: l_csm_periodic_expenses_tbl(k).date_start := l_line_rec.start_date;
21696:
21698: l_csm_periodic_expenses_tbl(k).date_start := FND_DATE.canonical_to_date(l_rl_rec.RULE_INFORMATION2);
21699: END IF;
21700: END IF;
21701: END LOOP;
21702: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
21703: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
21704: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
21705: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_ERROR);
21706: END IF;
21699: END IF;
21700: END IF;
21701: END LOOP;
21702: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
21703: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
21704: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
21705: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_ERROR);
21706: END IF;
21707:
21700: END IF;
21701: END LOOP;
21702: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
21703: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
21704: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
21705: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_ERROR);
21706: END IF;
21707:
21708: -- Code for Estimated Property Tax Ends Here
21701: END LOOP;
21702: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
21703: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
21704: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
21705: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_ERROR);
21706: END IF;
21707:
21708: -- Code for Estimated Property Tax Ends Here
21709: ELSIF (((l_strm_name_rec.periodic_yn = 'Y' ) AND
21755: */
21756: -- End of Bug#3401024 modification BAKUCHIB
21757: -- Start of Bug#2757289 modification
21758: IF (l_rl_rec.rule_information7 IS NOT NULL OR
21759: l_rl_rec.rule_information7 <> OKL_API.G_MISS_CHAR) AND
21760: (l_rl_rec.rule_information8 IS NOT NULL OR
21761: l_rl_rec.rule_information8 <> OKL_API.G_MISS_CHAR) THEN
21762: k := k + 1;
21763: idx := idx + 1;
21757: -- Start of Bug#2757289 modification
21758: IF (l_rl_rec.rule_information7 IS NOT NULL OR
21759: l_rl_rec.rule_information7 <> OKL_API.G_MISS_CHAR) AND
21760: (l_rl_rec.rule_information8 IS NOT NULL OR
21761: l_rl_rec.rule_information8 <> OKL_API.G_MISS_CHAR) THEN
21762: k := k + 1;
21763: idx := idx + 1;
21764: l_csm_periodic_expenses_tbl(k).level_index_number := idx;
21765: l_csm_periodic_expenses_tbl(k).amount := TO_NUMBER(l_rl_rec.rule_information8);
21794: END IF;
21795: -- Bug 4915938 - End of Changes
21796:
21797: ELSIF (l_rl_rec.rule_information7 IS NULL OR
21798: l_rl_rec.rule_information7 = OKL_API.G_MISS_CHAR) AND
21799: (l_rl_rec.rule_information8 IS NULL OR
21800: l_rl_rec.rule_information8 = OKL_API.G_MISS_CHAR) THEN
21801: k := k + 1;
21802: idx := idx + 1;
21796:
21797: ELSIF (l_rl_rec.rule_information7 IS NULL OR
21798: l_rl_rec.rule_information7 = OKL_API.G_MISS_CHAR) AND
21799: (l_rl_rec.rule_information8 IS NULL OR
21800: l_rl_rec.rule_information8 = OKL_API.G_MISS_CHAR) THEN
21801: k := k + 1;
21802: idx := idx + 1;
21803: l_csm_periodic_expenses_tbl(k).level_index_number := idx;
21804: l_csm_periodic_expenses_tbl(k).level_type := OKL_CREATE_STREAMS_PUB.G_SFE_LEVEL_PAYMENT;
21824: l_csm_periodic_expenses_tbl(k).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ARREARS;
21825: ELSE
21826: l_csm_periodic_expenses_tbl(k).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ADVANCE;
21827: END IF;
21828: IF(l_rl_rec.RULE_INFORMATION2 IS NULL or l_rl_rec.RULE_INFORMATION2 = OKL_API.G_MISS_CHAR) THEN
21829: --sechawla 11-sep-09 8798556
21830: --l_csm_periodic_expenses_tbl(k).date_start := l_hdr_rec.start_date;
21831: l_csm_periodic_expenses_tbl(k).date_start := l_line_rec.start_date;
21832:
21834: l_csm_periodic_expenses_tbl(k).date_start := FND_DATE.canonical_to_date(l_rl_rec.RULE_INFORMATION2);
21835: END IF;
21836: END IF;
21837: END LOOP;
21838: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
21839: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
21840: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
21841: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_ERROR);
21842: END IF;
21835: END IF;
21836: END IF;
21837: END LOOP;
21838: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
21839: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
21840: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
21841: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_ERROR);
21842: END IF;
21843: ELSIF ((UPPER(TRIM(l_strm_name_rec.periodic_yn)) = 'N' ) AND
21836: END IF;
21837: END LOOP;
21838: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
21839: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
21840: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
21841: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_ERROR);
21842: END IF;
21843: ELSIF ((UPPER(TRIM(l_strm_name_rec.periodic_yn)) = 'N' ) AND
21844: (UPPER(TRIM(l_strm_name)) <> 'DOWN_PAYMENT') ) THEN
21837: END LOOP;
21838: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
21839: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
21840: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
21841: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_ERROR);
21842: END IF;
21843: ELSIF ((UPPER(TRIM(l_strm_name_rec.periodic_yn)) = 'N' ) AND
21844: (UPPER(TRIM(l_strm_name)) <> 'DOWN_PAYMENT') ) THEN
21845: 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
21846: l := l + 1;
21847: l_csm_one_off_fee_tbl(l).description := l_strm_name_rec.name;
21848: l_csm_one_off_fee_tbl(l).income_or_expense := OKL_CREATE_STREAMS_PUB.G_INCOME;
21849: l_csm_one_off_fee_tbl(l).amount := FND_NUMBER.canonical_to_number(nvl(l_rl_rec.RULE_INFORMATION6,'0'));
21850: IF(l_rl_rec.RULE_INFORMATION2 IS NULL or l_rl_rec.RULE_INFORMATION2 = OKL_API.G_MISS_CHAR) THEN
21851: l_csm_one_off_fee_tbl(l).date_paid := l_hdr_rec.start_date;
21852: ELSE
21853: l_csm_one_off_fee_tbl(l).date_paid := FND_DATE.canonical_to_date(l_rl_rec.RULE_INFORMATION2);
21854: END IF;
21860: --end if;
21861:
21862:
21863: END LOOP;
21864: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
21865: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
21866: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
21867: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_ERROR);
21868: END IF;
21861:
21862:
21863: END LOOP;
21864: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
21865: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
21866: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
21867: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_ERROR);
21868: END IF;
21869: END IF;
21862:
21863: END LOOP;
21864: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
21865: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
21866: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
21867: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_ERROR);
21868: END IF;
21869: END IF;
21870: END LOOP;
21863: END LOOP;
21864: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
21865: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
21866: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
21867: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_ERROR);
21868: END IF;
21869: END IF;
21870: END LOOP;
21871: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
21867: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_ERROR);
21868: END IF;
21869: END IF;
21870: END LOOP;
21871: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
21872: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
21873: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
21874: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_ERROR);
21875: END IF;
21868: END IF;
21869: END IF;
21870: END LOOP;
21871: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
21872: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
21873: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
21874: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_ERROR);
21875: END IF;
21876: END LOOP;
21869: END IF;
21870: END LOOP;
21871: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
21872: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
21873: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
21874: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_ERROR);
21875: END IF;
21876: END LOOP;
21877: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
21870: END LOOP;
21871: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
21872: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
21873: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
21874: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_ERROR);
21875: END IF;
21876: END LOOP;
21877: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
21878: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
21873: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
21874: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_ERROR);
21875: END IF;
21876: END LOOP;
21877: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
21878: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
21879: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
21880: RAISE OKL_API.G_EXCEPTION_ERROR;
21881: END IF;
21874: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_ERROR);
21875: END IF;
21876: END LOOP;
21877: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
21878: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
21879: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
21880: RAISE OKL_API.G_EXCEPTION_ERROR;
21881: END IF;
21882: --Added for Debugging
21875: END IF;
21876: END LOOP;
21877: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
21878: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
21879: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
21880: RAISE OKL_API.G_EXCEPTION_ERROR;
21881: END IF;
21882: --Added for Debugging
21883: write_to_log('Prior to the call to extract_fee_lines');
21876: END LOOP;
21877: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
21878: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
21879: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
21880: RAISE OKL_API.G_EXCEPTION_ERROR;
21881: END IF;
21882: --Added for Debugging
21883: write_to_log('Prior to the call to extract_fee_lines');
21884: -- g_rep_req_yn := 'N'; --sechawla for bug 9001267
21894: px_csm_one_off_fee_tbl => l_csm_one_off_fee_tbl,
21895: px_csm_periodic_expenses_tbl => l_csm_periodic_expenses_tbl);
21896: --Added for Debugging
21897: write_to_log('After the call to extract_fee_lines, the return status is :'|| x_return_status);
21898: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
21899: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
21900: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
21901: RAISE OKL_API.G_EXCEPTION_ERROR;
21902: END IF;
21895: px_csm_periodic_expenses_tbl => l_csm_periodic_expenses_tbl);
21896: --Added for Debugging
21897: write_to_log('After the call to extract_fee_lines, the return status is :'|| x_return_status);
21898: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
21899: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
21900: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
21901: RAISE OKL_API.G_EXCEPTION_ERROR;
21902: END IF;
21903: -- Check for mandatory stream for pricing eng
21896: --Added for Debugging
21897: write_to_log('After the call to extract_fee_lines, the return status is :'|| x_return_status);
21898: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
21899: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
21900: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
21901: RAISE OKL_API.G_EXCEPTION_ERROR;
21902: END IF;
21903: -- Check for mandatory stream for pricing eng
21904: check_for_mandatory_streams(
21897: write_to_log('After the call to extract_fee_lines, the return status is :'|| x_return_status);
21898: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
21899: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
21900: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
21901: RAISE OKL_API.G_EXCEPTION_ERROR;
21902: END IF;
21903: -- Check for mandatory stream for pricing eng
21904: check_for_mandatory_streams(
21905: p_api_version => p_api_version,
21912: p_stream_types_tbl => l_csm_stream_types_tbl,
21913: x_stream_types_tbl => l_req_stream_types_tbl);
21914: --Added for Debugging
21915: write_to_log('After the call to check_for_mandatory_streams, the return status is :'||x_return_status);
21916: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
21917: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
21918: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
21919: RAISE OKL_API.G_EXCEPTION_ERROR;
21920: END IF;
21913: x_stream_types_tbl => l_req_stream_types_tbl);
21914: --Added for Debugging
21915: write_to_log('After the call to check_for_mandatory_streams, the return status is :'||x_return_status);
21916: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
21917: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
21918: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
21919: RAISE OKL_API.G_EXCEPTION_ERROR;
21920: END IF;
21921: -- Requesting for yields
21914: --Added for Debugging
21915: write_to_log('After the call to check_for_mandatory_streams, the return status is :'||x_return_status);
21916: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
21917: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
21918: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
21919: RAISE OKL_API.G_EXCEPTION_ERROR;
21920: END IF;
21921: -- Requesting for yields
21922: x_return_status := yield_request(x_csm_yields_tbl => l_csm_yields_tbl);
21915: write_to_log('After the call to check_for_mandatory_streams, the return status is :'||x_return_status);
21916: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
21917: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
21918: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
21919: RAISE OKL_API.G_EXCEPTION_ERROR;
21920: END IF;
21921: -- Requesting for yields
21922: x_return_status := yield_request(x_csm_yields_tbl => l_csm_yields_tbl);
21923: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
21919: RAISE OKL_API.G_EXCEPTION_ERROR;
21920: END IF;
21921: -- Requesting for yields
21922: x_return_status := yield_request(x_csm_yields_tbl => l_csm_yields_tbl);
21923: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
21924: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
21925: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
21926: RAISE OKL_API.G_EXCEPTION_ERROR;
21927: END IF;
21920: END IF;
21921: -- Requesting for yields
21922: x_return_status := yield_request(x_csm_yields_tbl => l_csm_yields_tbl);
21923: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
21924: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
21925: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
21926: RAISE OKL_API.G_EXCEPTION_ERROR;
21927: END IF;
21928: -- Extract Subsidy line
21921: -- Requesting for yields
21922: x_return_status := yield_request(x_csm_yields_tbl => l_csm_yields_tbl);
21923: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
21924: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
21925: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
21926: RAISE OKL_API.G_EXCEPTION_ERROR;
21927: END IF;
21928: -- Extract Subsidy line
21929: extract_subsidized_lines(p_api_version => p_api_version,
21922: x_return_status := yield_request(x_csm_yields_tbl => l_csm_yields_tbl);
21923: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
21924: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
21925: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
21926: RAISE OKL_API.G_EXCEPTION_ERROR;
21927: END IF;
21928: -- Extract Subsidy line
21929: extract_subsidized_lines(p_api_version => p_api_version,
21930: p_init_msg_list => p_init_msg_list,
21935: px_csm_one_off_fee_tbl => l_csm_one_off_fee_tbl);
21936: --Added by kthiruva for debugging
21937: write_to_log('After the call to extract_subsidized_lines, the return status is :'||x_return_status);
21938:
21939: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
21940: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
21941: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
21942: RAISE OKL_API.G_EXCEPTION_ERROR;
21943: END IF;
21936: --Added by kthiruva for debugging
21937: write_to_log('After the call to extract_subsidized_lines, the return status is :'||x_return_status);
21938:
21939: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
21940: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
21941: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
21942: RAISE OKL_API.G_EXCEPTION_ERROR;
21943: END IF;
21944: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
21937: write_to_log('After the call to extract_subsidized_lines, the return status is :'||x_return_status);
21938:
21939: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
21940: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
21941: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
21942: RAISE OKL_API.G_EXCEPTION_ERROR;
21943: END IF;
21944: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
21945: okl_api.set_message(p_app_name => G_APP_NAME,
21938:
21939: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
21940: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
21941: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
21942: RAISE OKL_API.G_EXCEPTION_ERROR;
21943: END IF;
21944: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
21945: okl_api.set_message(p_app_name => G_APP_NAME,
21946: p_msg_name => 'OKL_LLA_REPSTRMS_EXTR_FAILED');
21940: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
21941: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
21942: RAISE OKL_API.G_EXCEPTION_ERROR;
21943: END IF;
21944: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
21945: okl_api.set_message(p_app_name => G_APP_NAME,
21946: p_msg_name => 'OKL_LLA_REPSTRMS_EXTR_FAILED');
21947: RAISE OKL_API.G_EXCEPTION_ERROR;
21948: END IF;
21941: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
21942: RAISE OKL_API.G_EXCEPTION_ERROR;
21943: END IF;
21944: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
21945: okl_api.set_message(p_app_name => G_APP_NAME,
21946: p_msg_name => 'OKL_LLA_REPSTRMS_EXTR_FAILED');
21947: RAISE OKL_API.G_EXCEPTION_ERROR;
21948: END IF;
21949:
21943: END IF;
21944: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
21945: okl_api.set_message(p_app_name => G_APP_NAME,
21946: p_msg_name => 'OKL_LLA_REPSTRMS_EXTR_FAILED');
21947: RAISE OKL_API.G_EXCEPTION_ERROR;
21948: END IF;
21949:
21950: g_rep_req_yn := 'N'; --Added by sechawla for bug 9001267
21951:
21955: x_csm_yields_tbl := l_csm_yields_tbl;
21956: x_req_stream_types_tbl := l_req_stream_types_tbl;
21957: x_csm_line_details_tbl := l_csm_line_details_tbl;
21958: x_rents_tbl := l_rents_tbl;
21959: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
21960: x_msg_data => x_msg_data);
21961: EXCEPTION
21962: WHEN OKL_API.G_EXCEPTION_ERROR then
21963: IF l_hdr_csr_lease%ISOPEN THEN
21958: x_rents_tbl := l_rents_tbl;
21959: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
21960: x_msg_data => x_msg_data);
21961: EXCEPTION
21962: WHEN OKL_API.G_EXCEPTION_ERROR then
21963: IF l_hdr_csr_lease%ISOPEN THEN
21964: CLOSE l_hdr_csr_lease;
21965: END IF;
21966: IF l_line_rec_csr_lease%ISOPEN THEN
21995: END IF;
21996: IF l_txtrans_csr_lease%ISOPEN THEN
21997: CLOSE l_txtrans_csr_lease;
21998: END IF;
21999: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
22000: l_api_name,
22001: G_PKG_NAME,
22002: 'OKL_API.G_RET_STS_ERROR',
22003: x_msg_count,
21998: END IF;
21999: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
22000: l_api_name,
22001: G_PKG_NAME,
22002: 'OKL_API.G_RET_STS_ERROR',
22003: x_msg_count,
22004: x_msg_data,
22005: '_PVT');
22006: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
22002: 'OKL_API.G_RET_STS_ERROR',
22003: x_msg_count,
22004: x_msg_data,
22005: '_PVT');
22006: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
22007: IF l_hdr_csr_lease%ISOPEN THEN
22008: CLOSE l_hdr_csr_lease;
22009: END IF;
22010: IF l_line_rec_csr_lease%ISOPEN THEN
22039: END IF;
22040: IF l_txtrans_csr_lease%ISOPEN THEN
22041: CLOSE l_txtrans_csr_lease;
22042: END IF;
22043: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
22044: l_api_name,
22045: G_PKG_NAME,
22046: 'OKL_API.G_RET_STS_UNEXP_ERROR',
22047: x_msg_count,
22042: END IF;
22043: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
22044: l_api_name,
22045: G_PKG_NAME,
22046: 'OKL_API.G_RET_STS_UNEXP_ERROR',
22047: x_msg_count,
22048: x_msg_data,
22049: '_PVT');
22050: WHEN OTHERS then
22083: END IF;
22084: IF l_txtrans_csr_lease%ISOPEN THEN
22085: CLOSE l_txtrans_csr_lease;
22086: END IF;
22087: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
22088: l_api_name,
22089: G_PKG_NAME,
22090: 'OTHERS',
22091: x_msg_count,
22094: END extract_params_lease_deal;
22095: -- End modification 11i10 bakuchib
22096: Procedure extract_params_lease(
22097: p_api_version IN NUMBER,
22098: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
22099: p_chr_id IN VARCHAR2,
22100: x_return_status OUT NOCOPY VARCHAR2,
22101: x_msg_count OUT NOCOPY NUMBER,
22102: x_msg_data OUT NOCOPY VARCHAR2,
22110: p_orp_code IN VARCHAR2 DEFAULT NULL ) AS
22111:
22112: l_api_name CONSTANT VARCHAR2(30) := 'EXTRACT_PARAMS_LEASE';
22113: l_api_version CONSTANT NUMBER := 1;
22114: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
22115:
22116: Begin
22117:
22118: print( l_api_name, 'begin');
22138: End extract_params_lease;
22139:
22140: Procedure generate_reporting_streams(
22141: p_api_version IN NUMBER,
22142: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
22143: p_chr_id IN VARCHAR2,
22144: p_report_deal_type IN VARCHAR2,
22145: p_generation_context IN VARCHAR2,
22146: p_skip_prc_engine IN VARCHAR2,
22152: p_orp_code IN VARCHAR2) AS
22153:
22154: l_api_name CONSTANT VARCHAR2(30) := 'GEN_REPORT_STREAMS';
22155: l_api_version CONSTANT NUMBER := 1;
22156: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
22157: l_fnd_rec fnd_lookups_csr%ROWTYPE;
22158:
22159: l_isStrmGenAllowed BOOLEAN := TRUE;
22160: l_passStatus VARCHAR2(256);
22206:
22207:
22208: print( l_api_name, 'begin');
22209:
22210: x_return_status := OKL_API.G_RET_STS_SUCCESS;
22211:
22212: x_return_status := OKL_API.START_ACTIVITY(
22213: p_api_name => l_api_name,
22214: p_pkg_name => g_pkg_name,
22208: print( l_api_name, 'begin');
22209:
22210: x_return_status := OKL_API.G_RET_STS_SUCCESS;
22211:
22212: x_return_status := OKL_API.START_ACTIVITY(
22213: p_api_name => l_api_name,
22214: p_pkg_name => g_pkg_name,
22215: p_init_msg_list => p_init_msg_list,
22216: l_api_version => l_api_version,
22218: p_api_type => G_API_TYPE,
22219: x_return_status => x_return_status);
22220:
22221: -- check if activity started successfully
22222: If (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
22223: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
22224: ElSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
22225: raise OKL_API.G_EXCEPTION_ERROR;
22226: End If;
22219: x_return_status => x_return_status);
22220:
22221: -- check if activity started successfully
22222: If (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
22223: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
22224: ElSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
22225: raise OKL_API.G_EXCEPTION_ERROR;
22226: End If;
22227:
22220:
22221: -- check if activity started successfully
22222: If (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
22223: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
22224: ElSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
22225: raise OKL_API.G_EXCEPTION_ERROR;
22226: End If;
22227:
22228: print( l_api_name, 'Reporting Deal Type='||p_report_deal_type);
22221: -- check if activity started successfully
22222: If (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
22223: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
22224: ElSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
22225: raise OKL_API.G_EXCEPTION_ERROR;
22226: End If;
22227:
22228: print( l_api_name, 'Reporting Deal Type='||p_report_deal_type);
22229:
22246: x_csm_line_details_tbl,
22247: x_rents_tbl,
22248: p_orp_code);
22249:
22250: If (x_return_status <> OKL_API.G_RET_STS_SUCCESS) then -- Modified 06/14/2002. dedey
22251: okl_api.set_message(
22252: p_app_name => G_APP_NAME,
22253: p_msg_name => 'OKL_LLA_REPSTRMS_EXTR_FAILED');
22254: raise OKL_API.G_EXCEPTION_ERROR;
22247: x_rents_tbl,
22248: p_orp_code);
22249:
22250: If (x_return_status <> OKL_API.G_RET_STS_SUCCESS) then -- Modified 06/14/2002. dedey
22251: okl_api.set_message(
22252: p_app_name => G_APP_NAME,
22253: p_msg_name => 'OKL_LLA_REPSTRMS_EXTR_FAILED');
22254: raise OKL_API.G_EXCEPTION_ERROR;
22255: End If;
22250: If (x_return_status <> OKL_API.G_RET_STS_SUCCESS) then -- Modified 06/14/2002. dedey
22251: okl_api.set_message(
22252: p_app_name => G_APP_NAME,
22253: p_msg_name => 'OKL_LLA_REPSTRMS_EXTR_FAILED');
22254: raise OKL_API.G_EXCEPTION_ERROR;
22255: End If;
22256:
22257: x_csm_lease_header.purpose_code := 'REPORT';
22258: x_csm_lease_header.sif_id := x_request_id;
22273: x_return_status,
22274: x_msg_count,
22275: x_msg_data);
22276: -- rabhupat BUG#4259056 start
22277: If (x_return_status <> OKL_API.G_RET_STS_SUCCESS) then
22278: -- rabhupat BUG#4259056 end
22279: okl_api.set_message(
22280: p_app_name => G_APP_NAME,
22281: p_msg_name => 'OKL_LLA_REPSTRMS_REQ_FLD');
22275: x_msg_data);
22276: -- rabhupat BUG#4259056 start
22277: If (x_return_status <> OKL_API.G_RET_STS_SUCCESS) then
22278: -- rabhupat BUG#4259056 end
22279: okl_api.set_message(
22280: p_app_name => G_APP_NAME,
22281: p_msg_name => 'OKL_LLA_REPSTRMS_REQ_FLD');
22282: raise OKL_API.G_EXCEPTION_ERROR;
22283: End If;
22278: -- rabhupat BUG#4259056 end
22279: okl_api.set_message(
22280: p_app_name => G_APP_NAME,
22281: p_msg_name => 'OKL_LLA_REPSTRMS_REQ_FLD');
22282: raise OKL_API.G_EXCEPTION_ERROR;
22283: End If;
22284:
22285: ELSIF (INSTR(p_report_deal_type, 'LOAN') > 0) THEN
22286: -- Reporting loan streams were not getting generated- hkpatel- Bug 4734085
22304: p_orp_code);
22305:
22306: --Added by kthiruva for Debugging
22307: write_to_log('After the call to extract_params_loan, the return status is :'||x_return_status);
22308: If (x_return_status <> OKL_API.G_RET_STS_SUCCESS) then
22309: okl_api.set_message(
22310: p_app_name => G_APP_NAME,
22311: p_msg_name => 'OKL_LLA_GENSTRMS_EXTR_FAILED');
22312: raise OKL_API.G_EXCEPTION_ERROR;
22305:
22306: --Added by kthiruva for Debugging
22307: write_to_log('After the call to extract_params_loan, the return status is :'||x_return_status);
22308: If (x_return_status <> OKL_API.G_RET_STS_SUCCESS) then
22309: okl_api.set_message(
22310: p_app_name => G_APP_NAME,
22311: p_msg_name => 'OKL_LLA_GENSTRMS_EXTR_FAILED');
22312: raise OKL_API.G_EXCEPTION_ERROR;
22313: End If;
22308: If (x_return_status <> OKL_API.G_RET_STS_SUCCESS) then
22309: okl_api.set_message(
22310: p_app_name => G_APP_NAME,
22311: p_msg_name => 'OKL_LLA_GENSTRMS_EXTR_FAILED');
22312: raise OKL_API.G_EXCEPTION_ERROR;
22313: End If;
22314:
22315: x_csm_loan_header.purpose_code := 'REPORT';
22316: x_csm_loan_header.sif_id := x_request_id;
22332: x_msg_count => x_msg_count,
22333: x_msg_data => x_msg_data);
22334:
22335: -- rabhupat BUG#4259056 start
22336: If (x_return_status <> OKL_API.G_RET_STS_SUCCESS) then
22337: -- rabhupat BUG#4259056 end
22338: okl_api.set_message(
22339: p_app_name => G_APP_NAME,
22340: p_msg_name => 'OKL_LLA_REPSTRMS_REQ_FLD');
22334:
22335: -- rabhupat BUG#4259056 start
22336: If (x_return_status <> OKL_API.G_RET_STS_SUCCESS) then
22337: -- rabhupat BUG#4259056 end
22338: okl_api.set_message(
22339: p_app_name => G_APP_NAME,
22340: p_msg_name => 'OKL_LLA_REPSTRMS_REQ_FLD');
22341: raise OKL_API.G_EXCEPTION_ERROR;
22342: End If;
22337: -- rabhupat BUG#4259056 end
22338: okl_api.set_message(
22339: p_app_name => G_APP_NAME,
22340: p_msg_name => 'OKL_LLA_REPSTRMS_REQ_FLD');
22341: raise OKL_API.G_EXCEPTION_ERROR;
22342: End If;
22343: ELSE
22344: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
22345: END IF;
22340: p_msg_name => 'OKL_LLA_REPSTRMS_REQ_FLD');
22341: raise OKL_API.G_EXCEPTION_ERROR;
22342: End If;
22343: ELSE
22344: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
22345: END IF;
22346:
22347:
22348: If (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
22344: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
22345: END IF;
22346:
22347:
22348: If (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
22349: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
22350: ElSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
22351: raise OKL_API.G_EXCEPTION_ERROR;
22352: End If;
22345: END IF;
22346:
22347:
22348: If (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
22349: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
22350: ElSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
22351: raise OKL_API.G_EXCEPTION_ERROR;
22352: End If;
22353:
22346:
22347:
22348: If (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
22349: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
22350: ElSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
22351: raise OKL_API.G_EXCEPTION_ERROR;
22352: End If;
22353:
22354: print( l_api_name, 'end', x_return_status);
22347:
22348: If (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
22349: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
22350: ElSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
22351: raise OKL_API.G_EXCEPTION_ERROR;
22352: End If;
22353:
22354: print( l_api_name, 'end', x_return_status);
22355: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
22351: raise OKL_API.G_EXCEPTION_ERROR;
22352: End If;
22353:
22354: print( l_api_name, 'end', x_return_status);
22355: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
22356:
22357: Exception
22358: when OKL_API.G_EXCEPTION_ERROR then
22359: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
22354: print( l_api_name, 'end', x_return_status);
22355: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
22356:
22357: Exception
22358: when OKL_API.G_EXCEPTION_ERROR then
22359: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
22360: p_api_name => l_api_name,
22361: p_pkg_name => g_pkg_name,
22362: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
22355: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
22356:
22357: Exception
22358: when OKL_API.G_EXCEPTION_ERROR then
22359: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
22360: p_api_name => l_api_name,
22361: p_pkg_name => g_pkg_name,
22362: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
22363: x_msg_count => x_msg_count,
22358: when OKL_API.G_EXCEPTION_ERROR then
22359: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
22360: p_api_name => l_api_name,
22361: p_pkg_name => g_pkg_name,
22362: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
22363: x_msg_count => x_msg_count,
22364: x_msg_data => x_msg_data,
22365: p_api_type => g_api_type);
22366:
22363: x_msg_count => x_msg_count,
22364: x_msg_data => x_msg_data,
22365: p_api_type => g_api_type);
22366:
22367: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
22368: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
22369: p_api_name => l_api_name,
22370: p_pkg_name => g_pkg_name,
22371: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
22364: x_msg_data => x_msg_data,
22365: p_api_type => g_api_type);
22366:
22367: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
22368: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
22369: p_api_name => l_api_name,
22370: p_pkg_name => g_pkg_name,
22371: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
22372: x_msg_count => x_msg_count,
22367: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
22368: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
22369: p_api_name => l_api_name,
22370: p_pkg_name => g_pkg_name,
22371: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
22372: x_msg_count => x_msg_count,
22373: x_msg_data => x_msg_data,
22374: p_api_type => g_api_type);
22375:
22373: x_msg_data => x_msg_data,
22374: p_api_type => g_api_type);
22375:
22376: when OTHERS then
22377: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
22378: p_api_name => l_api_name,
22379: p_pkg_name => g_pkg_name,
22380: p_exc_name => 'OTHERS',
22381: x_msg_count => x_msg_count,
22385: END generate_reporting_streams;
22386:
22387: Procedure generate_streams(
22388: p_api_version IN NUMBER,
22389: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
22390: p_chr_id IN VARCHAR2,
22391: p_generation_context IN VARCHAR2,
22392: p_skip_prc_engine IN VARCHAR2,
22393: x_return_status OUT NOCOPY VARCHAR2,
22463: BEGIN
22464: --Added by kthiruva for Debugging
22465: write_to_log('Inside the call to generate_streams');
22466:
22467: x_return_status := OKL_API.G_RET_STS_SUCCESS;
22468: x_return_status := OKL_API.START_ACTIVITY(
22469: p_api_name => l_api_name,
22470: p_pkg_name => g_pkg_name,
22471: p_init_msg_list => p_init_msg_list,
22464: --Added by kthiruva for Debugging
22465: write_to_log('Inside the call to generate_streams');
22466:
22467: x_return_status := OKL_API.G_RET_STS_SUCCESS;
22468: x_return_status := OKL_API.START_ACTIVITY(
22469: p_api_name => l_api_name,
22470: p_pkg_name => g_pkg_name,
22471: p_init_msg_list => p_init_msg_list,
22472: l_api_version => l_api_version,
22473: p_api_version => p_api_version,
22474: p_api_type => G_API_TYPE,
22475: x_return_status => x_return_status);
22476: -- check if activity started successfully
22477: If (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
22478: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
22479: ElSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
22480: raise OKL_API.G_EXCEPTION_ERROR;
22481: End If;
22474: p_api_type => G_API_TYPE,
22475: x_return_status => x_return_status);
22476: -- check if activity started successfully
22477: If (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
22478: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
22479: ElSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
22480: raise OKL_API.G_EXCEPTION_ERROR;
22481: End If;
22482:
22475: x_return_status => x_return_status);
22476: -- check if activity started successfully
22477: If (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
22478: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
22479: ElSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
22480: raise OKL_API.G_EXCEPTION_ERROR;
22481: End If;
22482:
22483: -- 2. type of contract lease/loan
22476: -- check if activity started successfully
22477: If (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
22478: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
22479: ElSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
22480: raise OKL_API.G_EXCEPTION_ERROR;
22481: End If;
22482:
22483: -- 2. type of contract lease/loan
22484: OPEN l_hdr_csr(p_chr_id);
22484: OPEN l_hdr_csr(p_chr_id);
22485: FETCH l_hdr_csr into l_hdr_rec;
22486: IF l_hdr_csr%NOTFOUND THEN
22487: CLOSE l_hdr_csr;
22488: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
22489: END IF;
22490: CLOSE l_hdr_csr;
22491:
22492: IF (l_hdr_rec.template_yn = 'Y') Then
22489: END IF;
22490: CLOSE l_hdr_csr;
22491:
22492: IF (l_hdr_rec.template_yn = 'Y') Then
22493: x_return_status := OKL_API.G_RET_STS_ERROR;
22494: OKL_API.set_message(
22495: p_app_name => G_APP_NAME,
22496: p_msg_name => 'OKL_LLA_NO_STRM_TMPLTC');
22497: return;
22490: CLOSE l_hdr_csr;
22491:
22492: IF (l_hdr_rec.template_yn = 'Y') Then
22493: x_return_status := OKL_API.G_RET_STS_ERROR;
22494: OKL_API.set_message(
22495: p_app_name => G_APP_NAME,
22496: p_msg_name => 'OKL_LLA_NO_STRM_TMPLTC');
22497: return;
22498: END IF;
22506: l_failStatus,
22507: OKL_CONTRACT_STATUS_PUB.G_K_STRMGEN,
22508: p_chr_id);
22509: If ( NOT (l_isStrmGenAllowed )) then
22510: x_return_status := OKL_API.G_RET_STS_ERROR;
22511: okl_api.set_message(
22512: p_app_name => G_APP_NAME,
22513: p_msg_name => OKL_CONTRACT_STATUS_PUB.G_CANNOT_GENSTRMS);
22514: return;
22507: OKL_CONTRACT_STATUS_PUB.G_K_STRMGEN,
22508: p_chr_id);
22509: If ( NOT (l_isStrmGenAllowed )) then
22510: x_return_status := OKL_API.G_RET_STS_ERROR;
22511: okl_api.set_message(
22512: p_app_name => G_APP_NAME,
22513: p_msg_name => OKL_CONTRACT_STATUS_PUB.G_CANNOT_GENSTRMS);
22514: return;
22515: ElsIf (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
22511: okl_api.set_message(
22512: p_app_name => G_APP_NAME,
22513: p_msg_name => OKL_CONTRACT_STATUS_PUB.G_CANNOT_GENSTRMS);
22514: return;
22515: ElsIf (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
22516: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
22517: ElSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
22518: raise OKL_API.G_EXCEPTION_ERROR;
22519: End If;
22512: p_app_name => G_APP_NAME,
22513: p_msg_name => OKL_CONTRACT_STATUS_PUB.G_CANNOT_GENSTRMS);
22514: return;
22515: ElsIf (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
22516: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
22517: ElSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
22518: raise OKL_API.G_EXCEPTION_ERROR;
22519: End If;
22520:
22513: p_msg_name => OKL_CONTRACT_STATUS_PUB.G_CANNOT_GENSTRMS);
22514: return;
22515: ElsIf (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
22516: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
22517: ElSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
22518: raise OKL_API.G_EXCEPTION_ERROR;
22519: End If;
22520:
22521: print( l_api_name, 'Contract Status Check', x_return_status);
22514: return;
22515: ElsIf (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
22516: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
22517: ElSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
22518: raise OKL_API.G_EXCEPTION_ERROR;
22519: End If;
22520:
22521: print( l_api_name, 'Contract Status Check', x_return_status);
22522: FOR l_nullrl_rec in l_nullrl_csr ( 'LALEVL', 'LASLL', p_chr_id )
22549: x_msg_count => x_msg_count,
22550: x_msg_data => x_msg_data,
22551: p_chr_id => p_chr_id);
22552:
22553: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
22554: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
22555: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
22556: raise OKL_API.G_EXCEPTION_ERROR;
22557: END IF;
22550: x_msg_data => x_msg_data,
22551: p_chr_id => p_chr_id);
22552:
22553: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
22554: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
22555: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
22556: raise OKL_API.G_EXCEPTION_ERROR;
22557: END IF;
22558:
22551: p_chr_id => p_chr_id);
22552:
22553: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
22554: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
22555: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
22556: raise OKL_API.G_EXCEPTION_ERROR;
22557: END IF;
22558:
22559: -- Reporting stream generation call will be made first bug 8814790.
22552:
22553: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
22554: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
22555: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
22556: raise OKL_API.G_EXCEPTION_ERROR;
22557: END IF;
22558:
22559: -- Reporting stream generation call will be made first bug 8814790.
22560: -- Start
22575: p_pdt_parameter_rec => x_pdt_parameter_rec);
22576: --Added by kthiruva for Debugging
22577: write_to_log('After the call to OKL_SETUPPRODUCTS_PVT.Getpdt_parameters, return status is :'||x_return_status);
22578:
22579: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
22580: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
22581: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
22582: RAISE OKL_API.G_EXCEPTION_ERROR;
22583: END IF;
22576: --Added by kthiruva for Debugging
22577: write_to_log('After the call to OKL_SETUPPRODUCTS_PVT.Getpdt_parameters, return status is :'||x_return_status);
22578:
22579: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
22580: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
22581: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
22582: RAISE OKL_API.G_EXCEPTION_ERROR;
22583: END IF;
22584:
22577: write_to_log('After the call to OKL_SETUPPRODUCTS_PVT.Getpdt_parameters, return status is :'||x_return_status);
22578:
22579: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
22580: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
22581: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
22582: RAISE OKL_API.G_EXCEPTION_ERROR;
22583: END IF;
22584:
22585: --Added by kthiruva for Debugging
22578:
22579: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
22580: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
22581: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
22582: RAISE OKL_API.G_EXCEPTION_ERROR;
22583: END IF;
22584:
22585: --Added by kthiruva for Debugging
22586: write_to_log('Prior to the call to generate_reporting_streams');
22600: p_orp_code => NULL );
22601:
22602: --Added by kthiruva for Debugging
22603: write_to_log('After the call to generate_reporting_streams, return status is :'||x_return_status);
22604: If (x_return_status <> OKL_API.G_RET_STS_SUCCESS) then
22605:
22606: okl_api.set_message(
22607: p_app_name => G_APP_NAME,
22608: p_msg_name => 'OKL_LLA_REPSTRMS_REQ_FAILED');
22602: --Added by kthiruva for Debugging
22603: write_to_log('After the call to generate_reporting_streams, return status is :'||x_return_status);
22604: If (x_return_status <> OKL_API.G_RET_STS_SUCCESS) then
22605:
22606: okl_api.set_message(
22607: p_app_name => G_APP_NAME,
22608: p_msg_name => 'OKL_LLA_REPSTRMS_REQ_FAILED');
22609: raise OKL_API.G_EXCEPTION_ERROR;
22610:
22605:
22606: okl_api.set_message(
22607: p_app_name => G_APP_NAME,
22608: p_msg_name => 'OKL_LLA_REPSTRMS_REQ_FAILED');
22609: raise OKL_API.G_EXCEPTION_ERROR;
22610:
22611: End If;
22612:
22613:
22639:
22640: --Added by kthiruva for Debugging
22641: write_to_log('After the call to extract_params_lease, the return status is :'||x_return_status);
22642:
22643: If (x_return_status <> OKL_API.G_RET_STS_SUCCESS) then -- Modified 06/14/2002. dedey
22644: okl_api.set_message(
22645: p_app_name => G_APP_NAME,
22646: p_msg_name => 'OKL_LLA_GENSTRMS_EXTR_FAILED');
22647: raise OKL_API.G_EXCEPTION_ERROR;
22640: --Added by kthiruva for Debugging
22641: write_to_log('After the call to extract_params_lease, the return status is :'||x_return_status);
22642:
22643: If (x_return_status <> OKL_API.G_RET_STS_SUCCESS) then -- Modified 06/14/2002. dedey
22644: okl_api.set_message(
22645: p_app_name => G_APP_NAME,
22646: p_msg_name => 'OKL_LLA_GENSTRMS_EXTR_FAILED');
22647: raise OKL_API.G_EXCEPTION_ERROR;
22648: End If;
22643: If (x_return_status <> OKL_API.G_RET_STS_SUCCESS) then -- Modified 06/14/2002. dedey
22644: okl_api.set_message(
22645: p_app_name => G_APP_NAME,
22646: p_msg_name => 'OKL_LLA_GENSTRMS_EXTR_FAILED');
22647: raise OKL_API.G_EXCEPTION_ERROR;
22648: End If;
22649:
22650: -- FOR i in 1..x_req_stream_types_tbl.COUNT
22651: -- LOOP
22673:
22674: --Added by kthiruva for Debugging
22675: write_to_log('After the call to create_streams_lease_book, the return status is '||x_return_status);
22676:
22677: If (x_return_status <> OKL_API.G_RET_STS_SUCCESS) then
22678: okl_api.set_message(
22679: p_app_name => G_APP_NAME,
22680: p_msg_name => OKL_CONTRACT_STATUS_PUB.G_GENSTRMS_REQ_FAILED);
22681: raise OKL_API.G_EXCEPTION_ERROR;
22674: --Added by kthiruva for Debugging
22675: write_to_log('After the call to create_streams_lease_book, the return status is '||x_return_status);
22676:
22677: If (x_return_status <> OKL_API.G_RET_STS_SUCCESS) then
22678: okl_api.set_message(
22679: p_app_name => G_APP_NAME,
22680: p_msg_name => OKL_CONTRACT_STATUS_PUB.G_GENSTRMS_REQ_FAILED);
22681: raise OKL_API.G_EXCEPTION_ERROR;
22682: End If;
22677: If (x_return_status <> OKL_API.G_RET_STS_SUCCESS) then
22678: okl_api.set_message(
22679: p_app_name => G_APP_NAME,
22680: p_msg_name => OKL_CONTRACT_STATUS_PUB.G_GENSTRMS_REQ_FAILED);
22681: raise OKL_API.G_EXCEPTION_ERROR;
22682: End If;
22683:
22684: ELSIF (INSTR(l_hdr_rec.deal_type, 'LOAN') > 0) THEN
22685:
22703: NULL ); -- p_orp_code
22704:
22705: --Added by kthiruva for Debugging
22706: write_to_log('After the call to extract_params_loan, the return status is :'||x_return_status);
22707: If (x_return_status <> OKL_API.G_RET_STS_SUCCESS) then
22708: okl_api.set_message(
22709: p_app_name => G_APP_NAME,
22710: p_msg_name => 'OKL_LLA_GENSTRMS_EXTR_FAILED');
22711: raise OKL_API.G_EXCEPTION_ERROR;
22704:
22705: --Added by kthiruva for Debugging
22706: write_to_log('After the call to extract_params_loan, the return status is :'||x_return_status);
22707: If (x_return_status <> OKL_API.G_RET_STS_SUCCESS) then
22708: okl_api.set_message(
22709: p_app_name => G_APP_NAME,
22710: p_msg_name => 'OKL_LLA_GENSTRMS_EXTR_FAILED');
22711: raise OKL_API.G_EXCEPTION_ERROR;
22712: End If;
22707: If (x_return_status <> OKL_API.G_RET_STS_SUCCESS) then
22708: okl_api.set_message(
22709: p_app_name => G_APP_NAME,
22710: p_msg_name => 'OKL_LLA_GENSTRMS_EXTR_FAILED');
22711: raise OKL_API.G_EXCEPTION_ERROR;
22712: End If;
22713:
22714: okl_create_streams_pub.create_streams_loan_book(
22715: p_api_version => p_api_version,
22730:
22731: --Added by kthiruva for Debugging
22732: write_to_log('After the call to create_streams_loan_book, the return status is '||x_return_status);
22733:
22734: If (x_return_status <> OKL_API.G_RET_STS_SUCCESS) then
22735: okl_api.set_message(
22736: p_app_name => G_APP_NAME,
22737: p_msg_name => OKL_CONTRACT_STATUS_PUB.G_GENSTRMS_REQ_FAILED);
22738: raise OKL_API.G_EXCEPTION_ERROR;
22731: --Added by kthiruva for Debugging
22732: write_to_log('After the call to create_streams_loan_book, the return status is '||x_return_status);
22733:
22734: If (x_return_status <> OKL_API.G_RET_STS_SUCCESS) then
22735: okl_api.set_message(
22736: p_app_name => G_APP_NAME,
22737: p_msg_name => OKL_CONTRACT_STATUS_PUB.G_GENSTRMS_REQ_FAILED);
22738: raise OKL_API.G_EXCEPTION_ERROR;
22739: End If;
22734: If (x_return_status <> OKL_API.G_RET_STS_SUCCESS) then
22735: okl_api.set_message(
22736: p_app_name => G_APP_NAME,
22737: p_msg_name => OKL_CONTRACT_STATUS_PUB.G_GENSTRMS_REQ_FAILED);
22738: raise OKL_API.G_EXCEPTION_ERROR;
22739: End If;
22740: ELSE
22741: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
22742: END IF;
22737: p_msg_name => OKL_CONTRACT_STATUS_PUB.G_GENSTRMS_REQ_FAILED);
22738: raise OKL_API.G_EXCEPTION_ERROR;
22739: End If;
22740: ELSE
22741: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
22742: END IF;
22743: -- Reporting stream generation call will be made first Bug 8814790.
22744: -- Start
22745: -- Reporting stream call removed.
22746: -- End
22747: --Reporting stream generation call will be made first Bug 8814790
22748:
22749:
22750: If (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
22751: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
22752: ElSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
22753: raise OKL_API.G_EXCEPTION_ERROR;
22754: End If;
22747: --Reporting stream generation call will be made first Bug 8814790
22748:
22749:
22750: If (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
22751: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
22752: ElSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
22753: raise OKL_API.G_EXCEPTION_ERROR;
22754: End If;
22755:
22748:
22749:
22750: If (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
22751: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
22752: ElSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
22753: raise OKL_API.G_EXCEPTION_ERROR;
22754: End If;
22755:
22756: print( l_api_name, 'end', x_return_status);
22749:
22750: If (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
22751: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
22752: ElSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
22753: raise OKL_API.G_EXCEPTION_ERROR;
22754: End If;
22755:
22756: print( l_api_name, 'end', x_return_status);
22757: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
22753: raise OKL_API.G_EXCEPTION_ERROR;
22754: End If;
22755:
22756: print( l_api_name, 'end', x_return_status);
22757: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
22758:
22759: Exception
22760: when OKL_API.G_EXCEPTION_ERROR then
22761: --srsreeni bug6011651 starts
22756: print( l_api_name, 'end', x_return_status);
22757: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
22758:
22759: Exception
22760: when OKL_API.G_EXCEPTION_ERROR then
22761: --srsreeni bug6011651 starts
22762: OKL_BOOK_CONTROLLER_PVT.update_book_controller_trx(
22763: p_api_version => p_api_version,
22764: p_init_msg_list => p_init_msg_list,
22768: p_khr_id => p_chr_id,
22769: p_prog_short_name => OKL_BOOK_CONTROLLER_PVT.G_PRICE_CONTRACT,
22770: p_progress_status => OKL_BOOK_CONTROLLER_PVT.G_PROG_STS_ERROR);
22771: --srsreeni bug6011651 ends
22772: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
22773: p_api_name => l_api_name,
22774: p_pkg_name => g_pkg_name,
22775: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
22776: x_msg_count => x_msg_count,
22771: --srsreeni bug6011651 ends
22772: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
22773: p_api_name => l_api_name,
22774: p_pkg_name => g_pkg_name,
22775: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
22776: x_msg_count => x_msg_count,
22777: x_msg_data => x_msg_data,
22778: p_api_type => g_api_type);
22779:
22776: x_msg_count => x_msg_count,
22777: x_msg_data => x_msg_data,
22778: p_api_type => g_api_type);
22779:
22780: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
22781: --srsreeni bug6011651 starts
22782: OKL_BOOK_CONTROLLER_PVT.update_book_controller_trx(
22783: p_api_version => p_api_version,
22784: p_init_msg_list => p_init_msg_list,
22788: p_khr_id => p_chr_id,
22789: p_prog_short_name => OKL_BOOK_CONTROLLER_PVT.G_PRICE_CONTRACT,
22790: p_progress_status => OKL_BOOK_CONTROLLER_PVT.G_PROG_STS_ERROR);
22791: --srsreeni bug6011651 ends
22792: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
22793: p_api_name => l_api_name,
22794: p_pkg_name => g_pkg_name,
22795: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
22796: x_msg_count => x_msg_count,
22791: --srsreeni bug6011651 ends
22792: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
22793: p_api_name => l_api_name,
22794: p_pkg_name => g_pkg_name,
22795: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
22796: x_msg_count => x_msg_count,
22797: x_msg_data => x_msg_data,
22798: p_api_type => g_api_type);
22799:
22808: p_khr_id => p_chr_id,
22809: p_prog_short_name => OKL_BOOK_CONTROLLER_PVT.G_PRICE_CONTRACT,
22810: p_progress_status => OKL_BOOK_CONTROLLER_PVT.G_PROG_STS_ERROR);
22811: --srsreeni bug6011651 ends
22812: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
22813: p_api_name => l_api_name,
22814: p_pkg_name => g_pkg_name,
22815: p_exc_name => 'OTHERS',
22816: x_msg_count => x_msg_count,
23008: ,p_selv_tbl => l_selv_tbl
23009: ,x_stmv_rec => x_stmv_rec
23010: ,x_selv_tbl => x_selv_tbl);
23011:
23012: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
23013: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
23014: ElSIF (l_return_status = OKL_API.G_RET_STS_ERROR) then
23015: raise OKL_API.G_EXCEPTION_ERROR;
23016: End If;
23009: ,x_stmv_rec => x_stmv_rec
23010: ,x_selv_tbl => x_selv_tbl);
23011:
23012: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
23013: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
23014: ElSIF (l_return_status = OKL_API.G_RET_STS_ERROR) then
23015: raise OKL_API.G_EXCEPTION_ERROR;
23016: End If;
23017:
23010: ,x_selv_tbl => x_selv_tbl);
23011:
23012: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
23013: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
23014: ElSIF (l_return_status = OKL_API.G_RET_STS_ERROR) then
23015: raise OKL_API.G_EXCEPTION_ERROR;
23016: End If;
23017:
23018: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
23011:
23012: If (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
23013: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
23014: ElSIF (l_return_status = OKL_API.G_RET_STS_ERROR) then
23015: raise OKL_API.G_EXCEPTION_ERROR;
23016: End If;
23017:
23018: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
23019:
23014: ElSIF (l_return_status = OKL_API.G_RET_STS_ERROR) then
23015: raise OKL_API.G_EXCEPTION_ERROR;
23016: End If;
23017:
23018: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
23019:
23020: Exception
23021: when OKC_API.G_EXCEPTION_ERROR then
23022: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
23095: x_msg_data,
23096: 'COMPLETE',
23097: p_chr_id );
23098:
23099: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
23100: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
23101: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
23102: RAISE OKL_API.G_EXCEPTION_ERROR;
23103: END IF;
23096: 'COMPLETE',
23097: p_chr_id );
23098:
23099: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
23100: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
23101: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
23102: RAISE OKL_API.G_EXCEPTION_ERROR;
23103: END IF;
23104:
23097: p_chr_id );
23098:
23099: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
23100: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
23101: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
23102: RAISE OKL_API.G_EXCEPTION_ERROR;
23103: END IF;
23104:
23105: OKL_CONTRACT_STATUS_PVT.cascade_lease_status
23098:
23099: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
23100: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
23101: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
23102: RAISE OKL_API.G_EXCEPTION_ERROR;
23103: END IF;
23104:
23105: OKL_CONTRACT_STATUS_PVT.cascade_lease_status
23106: (p_api_version => p_api_version,
23109: x_msg_count => x_msg_count,
23110: x_msg_data => x_msg_data,
23111: p_chr_id => p_chr_id);
23112:
23113: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
23114: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
23115: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
23116: RAISE OKL_API.G_EXCEPTION_ERROR;
23117: END IF;
23110: x_msg_data => x_msg_data,
23111: p_chr_id => p_chr_id);
23112:
23113: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
23114: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
23115: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
23116: RAISE OKL_API.G_EXCEPTION_ERROR;
23117: END IF;
23118: ---
23111: p_chr_id => p_chr_id);
23112:
23113: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
23114: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
23115: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
23116: RAISE OKL_API.G_EXCEPTION_ERROR;
23117: END IF;
23118: ---
23119:
23112:
23113: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
23114: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
23115: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
23116: RAISE OKL_API.G_EXCEPTION_ERROR;
23117: END IF;
23118: ---
23119:
23120: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
23116: RAISE OKL_API.G_EXCEPTION_ERROR;
23117: END IF;
23118: ---
23119:
23120: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
23121:
23122: Exception
23123: when OKC_API.G_EXCEPTION_ERROR then
23124: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
23164:
23165: l_api_name VARCHAR2(35) := 'gen_intr_extr_stream';
23166: l_proc_name VARCHAR2(35) := 'GEN_INTR_EXTR_STREAM';
23167: l_api_version NUMBER := 1.0;
23168: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
23169:
23170: l_pre_tax_irr NUMBER;
23171:
23172: -- TYPE yields IS TABLE OF yields_rec_type INDEX BY BINARY_INTEGER;
23206: L_DEBUG_ENABLED := OKL_DEBUG_PUB.CHECK_LOG_ENABLED;
23207: write_to_log('Start of Debug Logging for ESG');
23208: write_to_log ('=============================');
23209: print( l_api_name, 'begin');
23210: x_return_status := OKL_API.START_ACTIVITY(
23211: p_api_name => l_api_name,
23212: p_pkg_name => G_PKG_NAME,
23213: p_init_msg_list => p_init_msg_list,
23214: l_api_version => l_api_version,
23216: p_api_type => G_API_TYPE,
23217: x_return_status => x_return_status);
23218:
23219: -- check if activity started successfully
23220: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
23221: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
23222: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
23223: raise OKL_API.G_EXCEPTION_ERROR;
23224: END IF;
23217: x_return_status => x_return_status);
23218:
23219: -- check if activity started successfully
23220: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
23221: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
23222: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
23223: raise OKL_API.G_EXCEPTION_ERROR;
23224: END IF;
23225:
23218:
23219: -- check if activity started successfully
23220: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
23221: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
23222: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
23223: raise OKL_API.G_EXCEPTION_ERROR;
23224: END IF;
23225:
23226: print( l_api_name, 'deleting working streams');
23219: -- check if activity started successfully
23220: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
23221: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
23222: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
23223: raise OKL_API.G_EXCEPTION_ERROR;
23224: END IF;
23225:
23226: print( l_api_name, 'deleting working streams');
23227: delete_working_streams(
23231: x_msg_count => x_msg_count,
23232: x_msg_data => x_msg_data,
23233: p_chr_id => p_khr_id);
23234:
23235: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
23236: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
23237: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
23238: raise OKL_API.G_EXCEPTION_ERROR;
23239: END IF;
23232: x_msg_data => x_msg_data,
23233: p_chr_id => p_khr_id);
23234:
23235: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
23236: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
23237: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
23238: raise OKL_API.G_EXCEPTION_ERROR;
23239: END IF;
23240:
23233: p_chr_id => p_khr_id);
23234:
23235: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
23236: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
23237: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
23238: raise OKL_API.G_EXCEPTION_ERROR;
23239: END IF;
23240:
23241: OPEN l_hdr_csr(p_khr_id);
23234:
23235: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
23236: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
23237: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
23238: raise OKL_API.G_EXCEPTION_ERROR;
23239: END IF;
23240:
23241: OPEN l_hdr_csr(p_khr_id);
23242: FETCH l_hdr_csr into l_hdr_rec;
23242: FETCH l_hdr_csr into l_hdr_rec;
23243: IF l_hdr_csr%NOTFOUND THEN
23244: CLOSE l_hdr_csr;
23245: print( l_api_name, 'header curosr unexpected error');
23246: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
23247: END IF;
23248: CLOSE l_hdr_csr;
23249:
23250: IF ( l_hdr_rec.deal_type = 'LOAN-REVOLVING') Then
23264: x_msg_data => x_msg_data);
23265: --Added by kthiruva for Debugging
23266: write_to_log('After the call to OKL_STREAM_GENERATOR_PUB.GEN_VAR_INT_SCHEDULE, return status is :'||x_return_status);
23267:
23268: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
23269: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
23270: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
23271: raise OKL_API.G_EXCEPTION_ERROR;
23272: END IF;
23265: --Added by kthiruva for Debugging
23266: write_to_log('After the call to OKL_STREAM_GENERATOR_PUB.GEN_VAR_INT_SCHEDULE, return status is :'||x_return_status);
23267:
23268: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
23269: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
23270: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
23271: raise OKL_API.G_EXCEPTION_ERROR;
23272: END IF;
23273:
23266: write_to_log('After the call to OKL_STREAM_GENERATOR_PUB.GEN_VAR_INT_SCHEDULE, return status is :'||x_return_status);
23267:
23268: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
23269: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
23270: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
23271: raise OKL_API.G_EXCEPTION_ERROR;
23272: END IF;
23273:
23274: I := 0;
23267:
23268: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
23269: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
23270: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
23271: raise OKL_API.G_EXCEPTION_ERROR;
23272: END IF;
23273:
23274: I := 0;
23275: FOR l_strms_rec in strms_csr ( p_khr_id, 'WORK', 'ORIGIN')
23312:
23313:
23314: EXCEPTION
23315: WHEN OTHERS THEN
23316: okl_api.set_message (p_app_name => G_APP_NAME,
23317: p_msg_name => G_DB_ERROR,
23318: p_token1 => G_PROG_NAME_TOKEN,
23319: p_token1_value => l_api_name,
23320: p_token2 => G_SQLCODE_TOKEN,
23320: p_token2 => G_SQLCODE_TOKEN,
23321: p_token2_value => sqlcode,
23322: p_token3 => G_SQLERRM_TOKEN,
23323: p_token3_value => sqlerrm);
23324: l_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
23325: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
23326: END;
23327: /* Commented for Bulk update by HKPATEL -02/28/2004
23328: If ( l_stmv_tbl.COUNT > 0 ) Then
23321: p_token2_value => sqlcode,
23322: p_token3 => G_SQLERRM_TOKEN,
23323: p_token3_value => sqlerrm);
23324: l_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
23325: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
23326: END;
23327: /* Commented for Bulk update by HKPATEL -02/28/2004
23328: If ( l_stmv_tbl.COUNT > 0 ) Then
23329: Okl_Streams_pub.update_streams(
23334: x_msg_data => x_msg_data,
23335: p_stmv_tbl => l_stmv_tbl,
23336: x_stmv_tbl => x_stmv_tbl);
23337:
23338: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
23339: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
23340: END IF;
23341: */
23342:
23335: p_stmv_tbl => l_stmv_tbl,
23336: x_stmv_tbl => x_stmv_tbl);
23337:
23338: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
23339: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
23340: END IF;
23341: */
23342:
23343: ENd If;
23350: x_msg_count,
23351: x_msg_data,
23352: 'COMPLETE',
23353: p_khr_id );
23354: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
23355: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
23356: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
23357: RAISE OKL_API.G_EXCEPTION_ERROR;
23358: END IF;
23351: x_msg_data,
23352: 'COMPLETE',
23353: p_khr_id );
23354: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
23355: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
23356: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
23357: RAISE OKL_API.G_EXCEPTION_ERROR;
23358: END IF;
23359: --Added by kthiruva for Debugging
23352: 'COMPLETE',
23353: p_khr_id );
23354: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
23355: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
23356: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
23357: RAISE OKL_API.G_EXCEPTION_ERROR;
23358: END IF;
23359: --Added by kthiruva for Debugging
23360: write_to_log('After the call to update_contract_status, return status is :'||x_return_status);
23353: p_khr_id );
23354: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
23355: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
23356: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
23357: RAISE OKL_API.G_EXCEPTION_ERROR;
23358: END IF;
23359: --Added by kthiruva for Debugging
23360: write_to_log('After the call to update_contract_status, return status is :'||x_return_status);
23361:
23369: p_chr_id => p_khr_id);
23370: --Added by kthiruva for Debugging
23371: write_to_log('After the call to cascade_lease_status, return status is :'||x_return_status);
23372:
23373: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
23374: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
23375: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
23376: RAISE OKL_API.G_EXCEPTION_ERROR;
23377: END IF;
23370: --Added by kthiruva for Debugging
23371: write_to_log('After the call to cascade_lease_status, return status is :'||x_return_status);
23372:
23373: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
23374: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
23375: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
23376: RAISE OKL_API.G_EXCEPTION_ERROR;
23377: END IF;
23378:
23371: write_to_log('After the call to cascade_lease_status, return status is :'||x_return_status);
23372:
23373: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
23374: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
23375: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
23376: RAISE OKL_API.G_EXCEPTION_ERROR;
23377: END IF;
23378:
23379: OKL_BOOK_CONTROLLER_PVT.update_book_controller_trx(
23372:
23373: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
23374: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
23375: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
23376: RAISE OKL_API.G_EXCEPTION_ERROR;
23377: END IF;
23378:
23379: OKL_BOOK_CONTROLLER_PVT.update_book_controller_trx(
23380: p_api_version => l_api_version,
23385: p_khr_id => p_khr_id,
23386: p_prog_short_name => OKL_BOOK_CONTROLLER_PVT.G_PRICE_CONTRACT,
23387: p_progress_status => OKL_BOOK_CONTROLLER_PVT.G_PROG_STS_COMPLETE);
23388:
23389: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
23390: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
23391: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
23392: RAISE OKL_API.G_EXCEPTION_ERROR;
23393: END IF;
23386: p_prog_short_name => OKL_BOOK_CONTROLLER_PVT.G_PRICE_CONTRACT,
23387: p_progress_status => OKL_BOOK_CONTROLLER_PVT.G_PROG_STS_COMPLETE);
23388:
23389: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
23390: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
23391: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
23392: RAISE OKL_API.G_EXCEPTION_ERROR;
23393: END IF;
23394: --Bug 6476425 - End of Changes
23387: p_progress_status => OKL_BOOK_CONTROLLER_PVT.G_PROG_STS_COMPLETE);
23388:
23389: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
23390: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
23391: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
23392: RAISE OKL_API.G_EXCEPTION_ERROR;
23393: END IF;
23394: --Bug 6476425 - End of Changes
23395:
23388:
23389: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
23390: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
23391: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
23392: RAISE OKL_API.G_EXCEPTION_ERROR;
23393: END IF;
23394: --Bug 6476425 - End of Changes
23395:
23396:
23403: x_pricing_engine => l_pricing_engine,
23404: x_return_status => x_return_status);
23405: --Added by kthiruva for Debugging
23406: write_to_log('The pricing engine is :'||l_pricing_engine);
23407: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
23408: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
23409: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
23410: raise OKL_API.G_EXCEPTION_ERROR;
23411: END IF;
23404: x_return_status => x_return_status);
23405: --Added by kthiruva for Debugging
23406: write_to_log('The pricing engine is :'||l_pricing_engine);
23407: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
23408: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
23409: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
23410: raise OKL_API.G_EXCEPTION_ERROR;
23411: END IF;
23412:
23405: --Added by kthiruva for Debugging
23406: write_to_log('The pricing engine is :'||l_pricing_engine);
23407: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
23408: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
23409: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
23410: raise OKL_API.G_EXCEPTION_ERROR;
23411: END IF;
23412:
23413:
23406: write_to_log('The pricing engine is :'||l_pricing_engine);
23407: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
23408: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
23409: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
23410: raise OKL_API.G_EXCEPTION_ERROR;
23411: END IF;
23412:
23413:
23414: --IF ( fnd_profile.value('OKL_STREAMS_GEN_PATH') = 'EXTERNAL') THEN
23427: x_return_status => x_return_status);
23428: --end if;
23429:
23430: write_to_log('Done with populating orig_contract_line_id');
23431: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
23432: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
23433: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
23434: raise OKL_API.G_EXCEPTION_ERROR;
23435: END IF;
23428: --end if;
23429:
23430: write_to_log('Done with populating orig_contract_line_id');
23431: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
23432: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
23433: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
23434: raise OKL_API.G_EXCEPTION_ERROR;
23435: END IF;
23436:
23429:
23430: write_to_log('Done with populating orig_contract_line_id');
23431: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
23432: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
23433: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
23434: raise OKL_API.G_EXCEPTION_ERROR;
23435: END IF;
23436:
23437: --
23430: write_to_log('Done with populating orig_contract_line_id');
23431: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
23432: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
23433: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
23434: raise OKL_API.G_EXCEPTION_ERROR;
23435: END IF;
23436:
23437: --
23438: -- Call EXTERNAL Stream genration process
23438: -- Call EXTERNAL Stream genration process
23439: --
23440: OKL_GENERATE_STREAMS_PUB.GENERATE_STREAMS(
23441: p_api_version => p_api_version,
23442: p_init_msg_list => OKL_API.G_FALSE,
23443: p_khr_id => p_khr_id,
23444: p_generation_ctx_code => p_generation_ctx_code,
23445: x_trx_number => x_trx_number,
23446: x_trx_status => x_trx_status,
23448: x_msg_count => x_msg_count,
23449: x_msg_data => x_msg_data
23450: );
23451:
23452: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
23453: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
23454: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
23455: raise OKL_API.G_EXCEPTION_ERROR;
23456: END IF;
23449: x_msg_data => x_msg_data
23450: );
23451:
23452: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
23453: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
23454: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
23455: raise OKL_API.G_EXCEPTION_ERROR;
23456: END IF;
23457:
23450: );
23451:
23452: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
23453: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
23454: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
23455: raise OKL_API.G_EXCEPTION_ERROR;
23456: END IF;
23457:
23458: --ELSE -- fnd_profile = INTERNAL or NONE
23451:
23452: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
23453: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
23454: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
23455: raise OKL_API.G_EXCEPTION_ERROR;
23456: END IF;
23457:
23458: --ELSE -- fnd_profile = INTERNAL or NONE
23459: ELSIF ( l_pricing_engine = 'INTERNAL') THEN
23480: x_msg_data => x_msg_data,
23481: p_khr_id => p_khr_id,
23482: x_contract_rates => lx_contract_rates) ;
23483: -- check if activity started successfully
23484: If (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
23485: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
23486: ElSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
23487: raise OKL_API.G_EXCEPTION_ERROR;
23488: End If;
23481: p_khr_id => p_khr_id,
23482: x_contract_rates => lx_contract_rates) ;
23483: -- check if activity started successfully
23484: If (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
23485: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
23486: ElSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
23487: raise OKL_API.G_EXCEPTION_ERROR;
23488: End If;
23489:
23482: x_contract_rates => lx_contract_rates) ;
23483: -- check if activity started successfully
23484: If (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
23485: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
23486: ElSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
23487: raise OKL_API.G_EXCEPTION_ERROR;
23488: End If;
23489:
23490: p_chr_yields.pre_tax_yield := lx_contract_rates.pre_tax_yield;
23483: -- check if activity started successfully
23484: If (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
23485: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
23486: ElSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
23487: raise OKL_API.G_EXCEPTION_ERROR;
23488: End If;
23489:
23490: p_chr_yields.pre_tax_yield := lx_contract_rates.pre_tax_yield;
23491: p_chr_yields.pre_tax_irr := lx_contract_rates.pre_tax_irr;
23505: x_msg_data => x_msg_data,
23506: p_pdtv_rec => p_pdtv_rec,
23507: x_no_data_found => x_no_data_found,
23508: p_pdt_parameter_rec => x_pdt_parameter_rec);
23509: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
23510: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
23511: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
23512: RAISE OKL_API.G_EXCEPTION_ERROR;
23513: END IF;
23506: p_pdtv_rec => p_pdtv_rec,
23507: x_no_data_found => x_no_data_found,
23508: p_pdt_parameter_rec => x_pdt_parameter_rec);
23509: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
23510: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
23511: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
23512: RAISE OKL_API.G_EXCEPTION_ERROR;
23513: END IF;
23514: OKL_STREAM_GENERATOR_PUB.generate_streams(
23507: x_no_data_found => x_no_data_found,
23508: p_pdt_parameter_rec => x_pdt_parameter_rec);
23509: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
23510: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
23511: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
23512: RAISE OKL_API.G_EXCEPTION_ERROR;
23513: END IF;
23514: OKL_STREAM_GENERATOR_PUB.generate_streams(
23515: p_api_version => l_api_version,
23508: p_pdt_parameter_rec => x_pdt_parameter_rec);
23509: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
23510: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
23511: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
23512: RAISE OKL_API.G_EXCEPTION_ERROR;
23513: END IF;
23514: OKL_STREAM_GENERATOR_PUB.generate_streams(
23515: p_api_version => l_api_version,
23516: p_init_msg_list => p_init_msg_list,
23520: p_khr_id => p_khr_id,
23521: p_reporting_book_class => x_pdt_parameter_rec.deal_type,
23522: x_contract_rates => lx_contract_rates) ;
23523: -- check if activity started successfully
23524: If (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
23525: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
23526: ElSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
23527: raise OKL_API.G_EXCEPTION_ERROR;
23528: End If;
23521: p_reporting_book_class => x_pdt_parameter_rec.deal_type,
23522: x_contract_rates => lx_contract_rates) ;
23523: -- check if activity started successfully
23524: If (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
23525: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
23526: ElSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
23527: raise OKL_API.G_EXCEPTION_ERROR;
23528: End If;
23529: -- p_chr_yields(1).PRE_TAX_IRR := l_pre_tax_irr; -- Not updated though !!! (ssiruvol - 06-FEB-2003)
23522: x_contract_rates => lx_contract_rates) ;
23523: -- check if activity started successfully
23524: If (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
23525: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
23526: ElSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
23527: raise OKL_API.G_EXCEPTION_ERROR;
23528: End If;
23529: -- p_chr_yields(1).PRE_TAX_IRR := l_pre_tax_irr; -- Not updated though !!! (ssiruvol - 06-FEB-2003)
23530: -- Start modification 11i10 bakuchib
23523: -- check if activity started successfully
23524: If (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
23525: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
23526: ElSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
23527: raise OKL_API.G_EXCEPTION_ERROR;
23528: End If;
23529: -- p_chr_yields(1).PRE_TAX_IRR := l_pre_tax_irr; -- Not updated though !!! (ssiruvol - 06-FEB-2003)
23530: -- Start modification 11i10 bakuchib
23531: /* Commented by HKPATEL for bug 4040722 - 01-DEC-2004
23544:
23545: print( l_api_name, 'process streams');
23546: process_streams(
23547: p_api_version => l_api_version,
23548: p_init_msg_list => OKL_API.G_FALSE,
23549: x_return_status => x_return_status,
23550: x_msg_count => x_msg_count,
23551: x_msg_data => x_msg_data,
23552: p_chr_id => p_khr_id,
23549: x_return_status => x_return_status,
23550: x_msg_count => x_msg_count,
23551: x_msg_data => x_msg_data,
23552: p_chr_id => p_khr_id,
23553: p_process_yn => OKL_API.G_TRUE,
23554: p_chr_yields => p_chr_yields,
23555: p_source_call => 'ISG');
23556: -- check if activity started successfully
23557: If (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
23553: p_process_yn => OKL_API.G_TRUE,
23554: p_chr_yields => p_chr_yields,
23555: p_source_call => 'ISG');
23556: -- check if activity started successfully
23557: If (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
23558: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
23559: ElSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
23560: raise OKL_API.G_EXCEPTION_ERROR;
23561: End If;
23554: p_chr_yields => p_chr_yields,
23555: p_source_call => 'ISG');
23556: -- check if activity started successfully
23557: If (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
23558: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
23559: ElSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
23560: raise OKL_API.G_EXCEPTION_ERROR;
23561: End If;
23562:
23555: p_source_call => 'ISG');
23556: -- check if activity started successfully
23557: If (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
23558: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
23559: ElSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
23560: raise OKL_API.G_EXCEPTION_ERROR;
23561: End If;
23562:
23563: END IF; -- fnd_profile
23556: -- check if activity started successfully
23557: If (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
23558: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
23559: ElSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
23560: raise OKL_API.G_EXCEPTION_ERROR;
23561: End If;
23562:
23563: END IF; -- fnd_profile
23564: print( l_api_name, 'end', x_return_status);
23561: End If;
23562:
23563: END IF; -- fnd_profile
23564: print( l_api_name, 'end', x_return_status);
23565: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
23566: x_msg_data => x_msg_data);
23567:
23568: RETURN;
23569:
23567:
23568: RETURN;
23569:
23570: EXCEPTION
23571: when OKL_API.G_EXCEPTION_ERROR then
23572: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
23573: p_api_name => l_api_name,
23574: p_pkg_name => G_PKG_NAME,
23575: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
23568: RETURN;
23569:
23570: EXCEPTION
23571: when OKL_API.G_EXCEPTION_ERROR then
23572: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
23573: p_api_name => l_api_name,
23574: p_pkg_name => G_PKG_NAME,
23575: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
23576: x_msg_count => x_msg_count,
23571: when OKL_API.G_EXCEPTION_ERROR then
23572: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
23573: p_api_name => l_api_name,
23574: p_pkg_name => G_PKG_NAME,
23575: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
23576: x_msg_count => x_msg_count,
23577: x_msg_data => x_msg_data,
23578: p_api_type => G_API_TYPE);
23579:
23576: x_msg_count => x_msg_count,
23577: x_msg_data => x_msg_data,
23578: p_api_type => G_API_TYPE);
23579:
23580: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
23581: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
23582: p_api_name => l_api_name,
23583: p_pkg_name => G_PKG_NAME,
23584: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
23577: x_msg_data => x_msg_data,
23578: p_api_type => G_API_TYPE);
23579:
23580: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
23581: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
23582: p_api_name => l_api_name,
23583: p_pkg_name => G_PKG_NAME,
23584: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
23585: x_msg_count => x_msg_count,
23580: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
23581: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
23582: p_api_name => l_api_name,
23583: p_pkg_name => G_PKG_NAME,
23584: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
23585: x_msg_count => x_msg_count,
23586: x_msg_data => x_msg_data,
23587: p_api_type => G_API_TYPE);
23588:
23586: x_msg_data => x_msg_data,
23587: p_api_type => G_API_TYPE);
23588:
23589: when OTHERS then
23590: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
23591: p_api_name => l_api_name,
23592: p_pkg_name => G_PKG_NAME,
23593: p_exc_name => 'OTHERS',
23594: x_msg_count => x_msg_count,
23616: p_paym_tbl IN OKL_STREAM_GENERATOR_PVT.payment_tbl_type)
23617: IS
23618: l_api_name CONSTANT VARCHAR2(30) := 'VALIDATE_PAYMENTS';
23619: G_APP_NAME VARCHAR2(30) := 'OKL';
23620: l_return_status VARCHAR2(3) := OKL_API.G_RET_STS_SUCCESS;
23621: G_RGD_CODE okc_rule_groups_b.rgd_code%TYPE := 'LALEVL';
23622: G_RUL_SLH_CODE okc_rules_b.rule_information_category%TYPE := 'LASLH';
23623: G_RUL_SLL_CODE okc_rules_b.rule_information_category%TYPE := 'LASLL';
23624: G_FEE_TYPE okl_k_lines.fee_type%TYPE := 'PASSTHROUGH';
23737: WHERE EXISTS (SELECT 1
23738: FROM okc_k_headers_b
23739: WHERE id = p_khr_id);
23740: TYPE sll_date_rec_type IS RECORD (
23741: start_date okc_rules_b.last_update_date%TYPE := okl_api.G_MISS_DATE,
23742: end_date okc_rules_b.last_update_date%TYPE := okl_api.G_MISS_DATE);
23743: TYPE sll_date_tbl_type IS TABLE OF sll_date_rec_type
23744: INDEX BY BINARY_INTEGER;
23745: lt_sll_date_tbl_type sll_date_tbl_type;
23738: FROM okc_k_headers_b
23739: WHERE id = p_khr_id);
23740: TYPE sll_date_rec_type IS RECORD (
23741: start_date okc_rules_b.last_update_date%TYPE := okl_api.G_MISS_DATE,
23742: end_date okc_rules_b.last_update_date%TYPE := okl_api.G_MISS_DATE);
23743: TYPE sll_date_tbl_type IS TABLE OF sll_date_rec_type
23744: INDEX BY BINARY_INTEGER;
23745: lt_sll_date_tbl_type sll_date_tbl_type;
23746: l_paym_tbl OKL_STREAM_GENERATOR_PVT.payment_tbl_type := p_paym_tbl;
23744: INDEX BY BINARY_INTEGER;
23745: lt_sll_date_tbl_type sll_date_tbl_type;
23746: l_paym_tbl OKL_STREAM_GENERATOR_PVT.payment_tbl_type := p_paym_tbl;
23747: BEGIN
23748: l_return_status := OKL_API.START_ACTIVITY (
23749: l_api_name
23750: ,p_init_msg_list
23751: ,'_PVT'
23752: ,l_return_status);
23750: ,p_init_msg_list
23751: ,'_PVT'
23752: ,l_return_status);
23753: -- Check if activity started successfully
23754: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
23755: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
23756: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
23757: RAISE OKL_API.G_EXCEPTION_ERROR;
23758: END IF;
23751: ,'_PVT'
23752: ,l_return_status);
23753: -- Check if activity started successfully
23754: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
23755: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
23756: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
23757: RAISE OKL_API.G_EXCEPTION_ERROR;
23758: END IF;
23759: IF (p_khr_id = OKL_API.G_MISS_NUM OR
23752: ,l_return_status);
23753: -- Check if activity started successfully
23754: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
23755: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
23756: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
23757: RAISE OKL_API.G_EXCEPTION_ERROR;
23758: END IF;
23759: IF (p_khr_id = OKL_API.G_MISS_NUM OR
23760: p_khr_id IS NULL) AND
23753: -- Check if activity started successfully
23754: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
23755: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
23756: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
23757: RAISE OKL_API.G_EXCEPTION_ERROR;
23758: END IF;
23759: IF (p_khr_id = OKL_API.G_MISS_NUM OR
23760: p_khr_id IS NULL) AND
23761: p_paym_tbl.COUNT = 0 THEN
23755: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
23756: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
23757: RAISE OKL_API.G_EXCEPTION_ERROR;
23758: END IF;
23759: IF (p_khr_id = OKL_API.G_MISS_NUM OR
23760: p_khr_id IS NULL) AND
23761: p_paym_tbl.COUNT = 0 THEN
23762: OKL_API.set_message(p_app_name => G_APP_NAME,
23763: p_msg_name => G_REQUIRED_VALUE,
23758: END IF;
23759: IF (p_khr_id = OKL_API.G_MISS_NUM OR
23760: p_khr_id IS NULL) AND
23761: p_paym_tbl.COUNT = 0 THEN
23762: OKL_API.set_message(p_app_name => G_APP_NAME,
23763: p_msg_name => G_REQUIRED_VALUE,
23764: p_token1 => G_COL_NAME_TOKEN,
23765: p_token1_value => 'khr_id/Payment table');
23766: RAISE OKL_API.G_EXCEPTION_ERROR;
23762: OKL_API.set_message(p_app_name => G_APP_NAME,
23763: p_msg_name => G_REQUIRED_VALUE,
23764: p_token1 => G_COL_NAME_TOKEN,
23765: p_token1_value => 'khr_id/Payment table');
23766: RAISE OKL_API.G_EXCEPTION_ERROR;
23767: ELSIF p_khr_id <> OKL_API.G_MISS_NUM OR
23768: p_khr_id IS NOT NULL THEN
23769: -- Validating the khr_id
23770: OPEN c_valid_khr_csr(p_khr_id => p_khr_id);
23763: p_msg_name => G_REQUIRED_VALUE,
23764: p_token1 => G_COL_NAME_TOKEN,
23765: p_token1_value => 'khr_id/Payment table');
23766: RAISE OKL_API.G_EXCEPTION_ERROR;
23767: ELSIF p_khr_id <> OKL_API.G_MISS_NUM OR
23768: p_khr_id IS NOT NULL THEN
23769: -- Validating the khr_id
23770: OPEN c_valid_khr_csr(p_khr_id => p_khr_id);
23771: FETCH c_valid_khr_csr INTO ln_dummy;
23769: -- Validating the khr_id
23770: OPEN c_valid_khr_csr(p_khr_id => p_khr_id);
23771: FETCH c_valid_khr_csr INTO ln_dummy;
23772: IF c_valid_khr_csr%NOTFOUND THEN
23773: OKL_API.set_message(p_app_name => G_APP_NAME,
23774: p_msg_name => G_REQUIRED_VALUE,
23775: p_token1 => G_COL_NAME_TOKEN,
23776: p_token1_value => 'khr_id');
23777: RAISE OKL_API.G_EXCEPTION_ERROR;
23773: OKL_API.set_message(p_app_name => G_APP_NAME,
23774: p_msg_name => G_REQUIRED_VALUE,
23775: p_token1 => G_COL_NAME_TOKEN,
23776: p_token1_value => 'khr_id');
23777: RAISE OKL_API.G_EXCEPTION_ERROR;
23778: END IF;
23779: CLOSE c_valid_khr_csr;
23780: IF ln_dummy <> 1 THEN
23781: OKL_API.set_message(p_app_name => G_APP_NAME,
23777: RAISE OKL_API.G_EXCEPTION_ERROR;
23778: END IF;
23779: CLOSE c_valid_khr_csr;
23780: IF ln_dummy <> 1 THEN
23781: OKL_API.set_message(p_app_name => G_APP_NAME,
23782: p_msg_name => G_INVALID_VALUE,
23783: p_token1 => G_COL_NAME_TOKEN,
23784: p_token1_value => 'khr_id');
23785: RAISE OKL_API.G_EXCEPTION_ERROR;
23781: OKL_API.set_message(p_app_name => G_APP_NAME,
23782: p_msg_name => G_INVALID_VALUE,
23783: p_token1 => G_COL_NAME_TOKEN,
23784: p_token1_value => 'khr_id');
23785: RAISE OKL_API.G_EXCEPTION_ERROR;
23786: END IF;
23787: -- Checking for Passthrough
23788: FOR r_get_psth_rec IN c_get_psth_csr (p_khr_id => p_khr_id) LOOP
23789: OPEN c_get_pay_psth_csr(p_khr_id => p_khr_id,
23790: p_kle_id => r_get_psth_rec.id);
23791: FETCH c_get_pay_psth_csr INTO ln_pasth_cnt;
23792: CLOSE c_get_pay_psth_csr;
23793: IF ln_pasth_cnt > 1 THEN
23794: OKL_API.set_message(p_app_name => G_APP_NAME,
23795: p_msg_name => G_PSTH_PAYMENT_ERROR,
23796: p_token1 => 'FEE_TYPE',
23797: p_token1_value => G_FEE_TYPE);
23798: l_return_status := OKL_API.G_RET_STS_ERROR;
23794: OKL_API.set_message(p_app_name => G_APP_NAME,
23795: p_msg_name => G_PSTH_PAYMENT_ERROR,
23796: p_token1 => 'FEE_TYPE',
23797: p_token1_value => G_FEE_TYPE);
23798: l_return_status := OKL_API.G_RET_STS_ERROR;
23799: EXIT WHEN (l_return_status = OKL_API.G_RET_STS_ERROR);
23800: END IF;
23801: END LOOP;
23802: -- Check if activity started successfully
23795: p_msg_name => G_PSTH_PAYMENT_ERROR,
23796: p_token1 => 'FEE_TYPE',
23797: p_token1_value => G_FEE_TYPE);
23798: l_return_status := OKL_API.G_RET_STS_ERROR;
23799: EXIT WHEN (l_return_status = OKL_API.G_RET_STS_ERROR);
23800: END IF;
23801: END LOOP;
23802: -- Check if activity started successfully
23803: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
23799: EXIT WHEN (l_return_status = OKL_API.G_RET_STS_ERROR);
23800: END IF;
23801: END LOOP;
23802: -- Check if activity started successfully
23803: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
23804: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
23805: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
23806: RAISE OKL_API.G_EXCEPTION_ERROR;
23807: END IF;
23800: END IF;
23801: END LOOP;
23802: -- Check if activity started successfully
23803: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
23804: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
23805: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
23806: RAISE OKL_API.G_EXCEPTION_ERROR;
23807: END IF;
23808: -- Get all the lines
23801: END LOOP;
23802: -- Check if activity started successfully
23803: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
23804: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
23805: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
23806: RAISE OKL_API.G_EXCEPTION_ERROR;
23807: END IF;
23808: -- Get all the lines
23809: FOR r_get_all_lines_rec IN c_get_all_lines_csr(p_khr_id => p_khr_id) LOOP
23802: -- Check if activity started successfully
23803: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
23804: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
23805: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
23806: RAISE OKL_API.G_EXCEPTION_ERROR;
23807: END IF;
23808: -- Get all the lines
23809: FOR r_get_all_lines_rec IN c_get_all_lines_csr(p_khr_id => p_khr_id) LOOP
23810: -- Get all the SLH payment lines for khr_id and each line_id
23832: ELSIF r_get_sll_lines_rec.rate IS NOT NULL THEN
23833: ln_cnt_rte_not_null := ln_cnt_rte_not_null + 1;
23834: END IF;
23835: IF r_get_sll_lines_rec.arrears_yn IS NULL OR
23836: r_get_sll_lines_rec.arrears_yn = OKL_API.G_MISS_CHAR THEN
23837: l_return_status := OKL_API.G_RET_STS_ERROR;
23838: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
23839: OKL_API.set_message(p_app_name => G_APP_NAME,
23840: p_msg_name => G_INVALID_VALUE,
23833: ln_cnt_rte_not_null := ln_cnt_rte_not_null + 1;
23834: END IF;
23835: IF r_get_sll_lines_rec.arrears_yn IS NULL OR
23836: r_get_sll_lines_rec.arrears_yn = OKL_API.G_MISS_CHAR THEN
23837: l_return_status := OKL_API.G_RET_STS_ERROR;
23838: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
23839: OKL_API.set_message(p_app_name => G_APP_NAME,
23840: p_msg_name => G_INVALID_VALUE,
23841: p_token1 => G_COL_NAME_TOKEN,
23834: END IF;
23835: IF r_get_sll_lines_rec.arrears_yn IS NULL OR
23836: r_get_sll_lines_rec.arrears_yn = OKL_API.G_MISS_CHAR THEN
23837: l_return_status := OKL_API.G_RET_STS_ERROR;
23838: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
23839: OKL_API.set_message(p_app_name => G_APP_NAME,
23840: p_msg_name => G_INVALID_VALUE,
23841: p_token1 => G_COL_NAME_TOKEN,
23842: p_token1_value => 'Arrear');
23835: IF r_get_sll_lines_rec.arrears_yn IS NULL OR
23836: r_get_sll_lines_rec.arrears_yn = OKL_API.G_MISS_CHAR THEN
23837: l_return_status := OKL_API.G_RET_STS_ERROR;
23838: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
23839: OKL_API.set_message(p_app_name => G_APP_NAME,
23840: p_msg_name => G_INVALID_VALUE,
23841: p_token1 => G_COL_NAME_TOKEN,
23842: p_token1_value => 'Arrear');
23843: EXIT WHEN(l_return_status <> OKL_API.G_RET_STS_SUCCESS);
23839: OKL_API.set_message(p_app_name => G_APP_NAME,
23840: p_msg_name => G_INVALID_VALUE,
23841: p_token1 => G_COL_NAME_TOKEN,
23842: p_token1_value => 'Arrear');
23843: EXIT WHEN(l_return_status <> OKL_API.G_RET_STS_SUCCESS);
23844: END IF;
23845: ELSIF (r_get_sll_lines_rec.arrears_yn IS NOT NULL OR
23846: r_get_sll_lines_rec.arrears_yn <> OKL_API.G_MISS_CHAR) AND
23847: r_get_sll_lines_rec.arrears_yn = 'N' THEN
23842: p_token1_value => 'Arrear');
23843: EXIT WHEN(l_return_status <> OKL_API.G_RET_STS_SUCCESS);
23844: END IF;
23845: ELSIF (r_get_sll_lines_rec.arrears_yn IS NOT NULL OR
23846: r_get_sll_lines_rec.arrears_yn <> OKL_API.G_MISS_CHAR) AND
23847: r_get_sll_lines_rec.arrears_yn = 'N' THEN
23848: IF r_get_sll_lines_rec.STRUCTURE IS NULL OR
23849: r_get_sll_lines_rec.STRUCTURE = OKL_API.G_MISS_CHAR THEN
23850: l_return_status := OKL_API.G_RET_STS_ERROR;
23845: ELSIF (r_get_sll_lines_rec.arrears_yn IS NOT NULL OR
23846: r_get_sll_lines_rec.arrears_yn <> OKL_API.G_MISS_CHAR) AND
23847: r_get_sll_lines_rec.arrears_yn = 'N' THEN
23848: IF r_get_sll_lines_rec.STRUCTURE IS NULL OR
23849: r_get_sll_lines_rec.STRUCTURE = OKL_API.G_MISS_CHAR THEN
23850: l_return_status := OKL_API.G_RET_STS_ERROR;
23851: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
23852: OKL_API.set_message(p_app_name => G_APP_NAME,
23853: p_msg_name => G_INVALID_VALUE,
23846: r_get_sll_lines_rec.arrears_yn <> OKL_API.G_MISS_CHAR) AND
23847: r_get_sll_lines_rec.arrears_yn = 'N' THEN
23848: IF r_get_sll_lines_rec.STRUCTURE IS NULL OR
23849: r_get_sll_lines_rec.STRUCTURE = OKL_API.G_MISS_CHAR THEN
23850: l_return_status := OKL_API.G_RET_STS_ERROR;
23851: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
23852: OKL_API.set_message(p_app_name => G_APP_NAME,
23853: p_msg_name => G_INVALID_VALUE,
23854: p_token1 => G_COL_NAME_TOKEN,
23847: r_get_sll_lines_rec.arrears_yn = 'N' THEN
23848: IF r_get_sll_lines_rec.STRUCTURE IS NULL OR
23849: r_get_sll_lines_rec.STRUCTURE = OKL_API.G_MISS_CHAR THEN
23850: l_return_status := OKL_API.G_RET_STS_ERROR;
23851: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
23852: OKL_API.set_message(p_app_name => G_APP_NAME,
23853: p_msg_name => G_INVALID_VALUE,
23854: p_token1 => G_COL_NAME_TOKEN,
23855: p_token1_value => 'Structure');
23848: IF r_get_sll_lines_rec.STRUCTURE IS NULL OR
23849: r_get_sll_lines_rec.STRUCTURE = OKL_API.G_MISS_CHAR THEN
23850: l_return_status := OKL_API.G_RET_STS_ERROR;
23851: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
23852: OKL_API.set_message(p_app_name => G_APP_NAME,
23853: p_msg_name => G_INVALID_VALUE,
23854: p_token1 => G_COL_NAME_TOKEN,
23855: p_token1_value => 'Structure');
23856: EXIT WHEN(l_return_status <> OKL_API.G_RET_STS_SUCCESS);
23852: OKL_API.set_message(p_app_name => G_APP_NAME,
23853: p_msg_name => G_INVALID_VALUE,
23854: p_token1 => G_COL_NAME_TOKEN,
23855: p_token1_value => 'Structure');
23856: EXIT WHEN(l_return_status <> OKL_API.G_RET_STS_SUCCESS);
23857: END IF;
23858: END IF;
23859: END IF;
23860: i := i + 1;
23859: END IF;
23860: i := i + 1;
23861: ln_tot_cnt := ln_tot_cnt + 1;
23862: END LOOP;
23863: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
23864: EXIT WHEN(l_return_status <> OKL_API.G_RET_STS_SUCCESS);
23865: END IF;
23866: -- Validating amounts and rates values
23867: IF ln_cnt_rte_not_null = ln_tot_cnt AND
23860: i := i + 1;
23861: ln_tot_cnt := ln_tot_cnt + 1;
23862: END LOOP;
23863: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
23864: EXIT WHEN(l_return_status <> OKL_API.G_RET_STS_SUCCESS);
23865: END IF;
23866: -- Validating amounts and rates values
23867: IF ln_cnt_rte_not_null = ln_tot_cnt AND
23868: ln_cnt_amt_null < ln_tot_cnt AND
23866: -- Validating amounts and rates values
23867: IF ln_cnt_rte_not_null = ln_tot_cnt AND
23868: ln_cnt_amt_null < ln_tot_cnt AND
23869: ln_cnt_amt_null > 1 THEN
23870: l_return_status := OKL_API.G_RET_STS_ERROR;
23871: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
23872: OKL_API.set_message(p_app_name => G_APP_NAME,
23873: p_msg_name => G_INVALID_VALUE,
23874: p_token1 => G_COL_NAME_TOKEN,
23867: IF ln_cnt_rte_not_null = ln_tot_cnt AND
23868: ln_cnt_amt_null < ln_tot_cnt AND
23869: ln_cnt_amt_null > 1 THEN
23870: l_return_status := OKL_API.G_RET_STS_ERROR;
23871: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
23872: OKL_API.set_message(p_app_name => G_APP_NAME,
23873: p_msg_name => G_INVALID_VALUE,
23874: p_token1 => G_COL_NAME_TOKEN,
23875: p_token1_value => 'payment amounts');
23868: ln_cnt_amt_null < ln_tot_cnt AND
23869: ln_cnt_amt_null > 1 THEN
23870: l_return_status := OKL_API.G_RET_STS_ERROR;
23871: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
23872: OKL_API.set_message(p_app_name => G_APP_NAME,
23873: p_msg_name => G_INVALID_VALUE,
23874: p_token1 => G_COL_NAME_TOKEN,
23875: p_token1_value => 'payment amounts');
23876: EXIT WHEN(l_return_status <> OKL_API.G_RET_STS_SUCCESS);
23872: OKL_API.set_message(p_app_name => G_APP_NAME,
23873: p_msg_name => G_INVALID_VALUE,
23874: p_token1 => G_COL_NAME_TOKEN,
23875: p_token1_value => 'payment amounts');
23876: EXIT WHEN(l_return_status <> OKL_API.G_RET_STS_SUCCESS);
23877: END IF;
23878: END IF;
23879: IF ln_cnt_amt_not_null = ln_tot_cnt THEN
23880: IF ln_cnt_rte_not_null < ln_tot_cnt AND
23878: END IF;
23879: IF ln_cnt_amt_not_null = ln_tot_cnt THEN
23880: IF ln_cnt_rte_not_null < ln_tot_cnt AND
23881: ln_cnt_rte_not_null > 0 THEN
23882: l_return_status := OKL_API.G_RET_STS_ERROR;
23883: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
23884: OKL_API.set_message(p_app_name => G_APP_NAME,
23885: p_msg_name => G_INVALID_VALUE,
23886: p_token1 => G_COL_NAME_TOKEN,
23879: IF ln_cnt_amt_not_null = ln_tot_cnt THEN
23880: IF ln_cnt_rte_not_null < ln_tot_cnt AND
23881: ln_cnt_rte_not_null > 0 THEN
23882: l_return_status := OKL_API.G_RET_STS_ERROR;
23883: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
23884: OKL_API.set_message(p_app_name => G_APP_NAME,
23885: p_msg_name => G_INVALID_VALUE,
23886: p_token1 => G_COL_NAME_TOKEN,
23887: p_token1_value => 'payment rates');
23880: IF ln_cnt_rte_not_null < ln_tot_cnt AND
23881: ln_cnt_rte_not_null > 0 THEN
23882: l_return_status := OKL_API.G_RET_STS_ERROR;
23883: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
23884: OKL_API.set_message(p_app_name => G_APP_NAME,
23885: p_msg_name => G_INVALID_VALUE,
23886: p_token1 => G_COL_NAME_TOKEN,
23887: p_token1_value => 'payment rates');
23888: EXIT WHEN(l_return_status <> OKL_API.G_RET_STS_SUCCESS);
23884: OKL_API.set_message(p_app_name => G_APP_NAME,
23885: p_msg_name => G_INVALID_VALUE,
23886: p_token1 => G_COL_NAME_TOKEN,
23887: p_token1_value => 'payment rates');
23888: EXIT WHEN(l_return_status <> OKL_API.G_RET_STS_SUCCESS);
23889: END IF;
23890: END IF;
23891: END IF;
23892: IF ln_cnt_rte_null = ln_tot_cnt AND
23890: END IF;
23891: END IF;
23892: IF ln_cnt_rte_null = ln_tot_cnt AND
23893: ln_cnt_amt_null = ln_tot_cnt THEN
23894: l_return_status := OKL_API.G_RET_STS_ERROR;
23895: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
23896: OKL_API.set_message(p_app_name => G_APP_NAME,
23897: p_msg_name => G_REQUIRED_VALUE,
23898: p_token1 => G_COL_NAME_TOKEN,
23891: END IF;
23892: IF ln_cnt_rte_null = ln_tot_cnt AND
23893: ln_cnt_amt_null = ln_tot_cnt THEN
23894: l_return_status := OKL_API.G_RET_STS_ERROR;
23895: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
23896: OKL_API.set_message(p_app_name => G_APP_NAME,
23897: p_msg_name => G_REQUIRED_VALUE,
23898: p_token1 => G_COL_NAME_TOKEN,
23899: p_token1_value => 'payment rate and payment amount');
23892: IF ln_cnt_rte_null = ln_tot_cnt AND
23893: ln_cnt_amt_null = ln_tot_cnt THEN
23894: l_return_status := OKL_API.G_RET_STS_ERROR;
23895: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
23896: OKL_API.set_message(p_app_name => G_APP_NAME,
23897: p_msg_name => G_REQUIRED_VALUE,
23898: p_token1 => G_COL_NAME_TOKEN,
23899: p_token1_value => 'payment rate and payment amount');
23900: EXIT WHEN(l_return_status <> OKL_API.G_RET_STS_SUCCESS);
23896: OKL_API.set_message(p_app_name => G_APP_NAME,
23897: p_msg_name => G_REQUIRED_VALUE,
23898: p_token1 => G_COL_NAME_TOKEN,
23899: p_token1_value => 'payment rate and payment amount');
23900: EXIT WHEN(l_return_status <> OKL_API.G_RET_STS_SUCCESS);
23901: END IF;
23902: END IF;
23903: IF ln_cnt_rte_not_null <> ln_tot_cnt AND
23904: ln_cnt_amt_not_null <> ln_tot_cnt THEN
23901: END IF;
23902: END IF;
23903: IF ln_cnt_rte_not_null <> ln_tot_cnt AND
23904: ln_cnt_amt_not_null <> ln_tot_cnt THEN
23905: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
23906: OKL_API.set_message(p_app_name => G_APP_NAME,
23907: p_msg_name => G_INVALID_VALUE,
23908: p_token1 => G_COL_NAME_TOKEN,
23909: p_token1_value => 'payment rates and payment amounts');
23902: END IF;
23903: IF ln_cnt_rte_not_null <> ln_tot_cnt AND
23904: ln_cnt_amt_not_null <> ln_tot_cnt THEN
23905: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
23906: OKL_API.set_message(p_app_name => G_APP_NAME,
23907: p_msg_name => G_INVALID_VALUE,
23908: p_token1 => G_COL_NAME_TOKEN,
23909: p_token1_value => 'payment rates and payment amounts');
23910: EXIT WHEN(l_return_status <> OKL_API.G_RET_STS_SUCCESS);
23906: OKL_API.set_message(p_app_name => G_APP_NAME,
23907: p_msg_name => G_INVALID_VALUE,
23908: p_token1 => G_COL_NAME_TOKEN,
23909: p_token1_value => 'payment rates and payment amounts');
23910: EXIT WHEN(l_return_status <> OKL_API.G_RET_STS_SUCCESS);
23911: END IF;
23912: END IF;
23913: ln_cnt_amt_null := 0;
23914: ln_cnt_amt_not_null := 0;
23922:
23923:
23924: IF lt_sll_date_tbl_type(k+1).start_date >= lt_sll_date_tbl_type(k).start_date AND
23925: lt_sll_date_tbl_type(k+1).start_date <= lt_sll_date_tbl_type(k).end_date THEN
23926: OKL_API.set_message(p_app_name => G_APP_NAME,
23927: p_msg_name => G_PAYMENT_OVERLAP_ERROR);
23928: l_return_status := OKL_API.G_RET_STS_ERROR;
23929: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
23930: EXIT WHEN(l_return_status <> OKL_API.G_RET_STS_SUCCESS);
23924: IF lt_sll_date_tbl_type(k+1).start_date >= lt_sll_date_tbl_type(k).start_date AND
23925: lt_sll_date_tbl_type(k+1).start_date <= lt_sll_date_tbl_type(k).end_date THEN
23926: OKL_API.set_message(p_app_name => G_APP_NAME,
23927: p_msg_name => G_PAYMENT_OVERLAP_ERROR);
23928: l_return_status := OKL_API.G_RET_STS_ERROR;
23929: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
23930: EXIT WHEN(l_return_status <> OKL_API.G_RET_STS_SUCCESS);
23931: END IF;
23932: ELSIF lt_sll_date_tbl_type(k+1).start_date > lt_sll_date_tbl_type(k).end_date + 1 THEN
23925: lt_sll_date_tbl_type(k+1).start_date <= lt_sll_date_tbl_type(k).end_date THEN
23926: OKL_API.set_message(p_app_name => G_APP_NAME,
23927: p_msg_name => G_PAYMENT_OVERLAP_ERROR);
23928: l_return_status := OKL_API.G_RET_STS_ERROR;
23929: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
23930: EXIT WHEN(l_return_status <> OKL_API.G_RET_STS_SUCCESS);
23931: END IF;
23932: ELSIF lt_sll_date_tbl_type(k+1).start_date > lt_sll_date_tbl_type(k).end_date + 1 THEN
23933: OKL_API.set_message(p_app_name => G_APP_NAME,
23926: OKL_API.set_message(p_app_name => G_APP_NAME,
23927: p_msg_name => G_PAYMENT_OVERLAP_ERROR);
23928: l_return_status := OKL_API.G_RET_STS_ERROR;
23929: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
23930: EXIT WHEN(l_return_status <> OKL_API.G_RET_STS_SUCCESS);
23931: END IF;
23932: ELSIF lt_sll_date_tbl_type(k+1).start_date > lt_sll_date_tbl_type(k).end_date + 1 THEN
23933: OKL_API.set_message(p_app_name => G_APP_NAME,
23934: p_msg_name => G_PAYMENT_GAP_ERROR);
23929: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
23930: EXIT WHEN(l_return_status <> OKL_API.G_RET_STS_SUCCESS);
23931: END IF;
23932: ELSIF lt_sll_date_tbl_type(k+1).start_date > lt_sll_date_tbl_type(k).end_date + 1 THEN
23933: OKL_API.set_message(p_app_name => G_APP_NAME,
23934: p_msg_name => G_PAYMENT_GAP_ERROR);
23935: l_return_status := OKL_API.G_RET_STS_ERROR;
23936: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
23937: EXIT WHEN(l_return_status <> OKL_API.G_RET_STS_SUCCESS);
23931: END IF;
23932: ELSIF lt_sll_date_tbl_type(k+1).start_date > lt_sll_date_tbl_type(k).end_date + 1 THEN
23933: OKL_API.set_message(p_app_name => G_APP_NAME,
23934: p_msg_name => G_PAYMENT_GAP_ERROR);
23935: l_return_status := OKL_API.G_RET_STS_ERROR;
23936: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
23937: EXIT WHEN(l_return_status <> OKL_API.G_RET_STS_SUCCESS);
23938: END IF;
23939: END IF;
23932: ELSIF lt_sll_date_tbl_type(k+1).start_date > lt_sll_date_tbl_type(k).end_date + 1 THEN
23933: OKL_API.set_message(p_app_name => G_APP_NAME,
23934: p_msg_name => G_PAYMENT_GAP_ERROR);
23935: l_return_status := OKL_API.G_RET_STS_ERROR;
23936: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
23937: EXIT WHEN(l_return_status <> OKL_API.G_RET_STS_SUCCESS);
23938: END IF;
23939: END IF;
23940: END LOOP;
23933: OKL_API.set_message(p_app_name => G_APP_NAME,
23934: p_msg_name => G_PAYMENT_GAP_ERROR);
23935: l_return_status := OKL_API.G_RET_STS_ERROR;
23936: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
23937: EXIT WHEN(l_return_status <> OKL_API.G_RET_STS_SUCCESS);
23938: END IF;
23939: END IF;
23940: END LOOP;
23941: END IF;
23939: END IF;
23940: END LOOP;
23941: END IF;
23942: ELSE
23943: OKL_API.set_message(p_app_name => G_APP_NAME,
23944: p_msg_name => G_REQUIRED_VALUE,
23945: p_token1 => G_COL_NAME_TOKEN,
23946: p_token1_value => 'Payment Line Record');
23947: l_return_status := OKL_API.G_RET_STS_ERROR;
23943: OKL_API.set_message(p_app_name => G_APP_NAME,
23944: p_msg_name => G_REQUIRED_VALUE,
23945: p_token1 => G_COL_NAME_TOKEN,
23946: p_token1_value => 'Payment Line Record');
23947: l_return_status := OKL_API.G_RET_STS_ERROR;
23948: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
23949: EXIT WHEN(l_return_status <> OKL_API.G_RET_STS_SUCCESS);
23950: END IF;
23951: END IF;
23944: p_msg_name => G_REQUIRED_VALUE,
23945: p_token1 => G_COL_NAME_TOKEN,
23946: p_token1_value => 'Payment Line Record');
23947: l_return_status := OKL_API.G_RET_STS_ERROR;
23948: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
23949: EXIT WHEN(l_return_status <> OKL_API.G_RET_STS_SUCCESS);
23950: END IF;
23951: END IF;
23952: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
23945: p_token1 => G_COL_NAME_TOKEN,
23946: p_token1_value => 'Payment Line Record');
23947: l_return_status := OKL_API.G_RET_STS_ERROR;
23948: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
23949: EXIT WHEN(l_return_status <> OKL_API.G_RET_STS_SUCCESS);
23950: END IF;
23951: END IF;
23952: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
23953: EXIT WHEN(l_return_status <> OKL_API.G_RET_STS_SUCCESS);
23948: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
23949: EXIT WHEN(l_return_status <> OKL_API.G_RET_STS_SUCCESS);
23950: END IF;
23951: END IF;
23952: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
23953: EXIT WHEN(l_return_status <> OKL_API.G_RET_STS_SUCCESS);
23954: END IF;
23955: lt_sll_date_tbl_type.DELETE;
23956: i := 0;
23949: EXIT WHEN(l_return_status <> OKL_API.G_RET_STS_SUCCESS);
23950: END IF;
23951: END IF;
23952: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
23953: EXIT WHEN(l_return_status <> OKL_API.G_RET_STS_SUCCESS);
23954: END IF;
23955: lt_sll_date_tbl_type.DELETE;
23956: i := 0;
23957: END LOOP;
23954: END IF;
23955: lt_sll_date_tbl_type.DELETE;
23956: i := 0;
23957: END LOOP;
23958: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
23959: EXIT WHEN(l_return_status <> OKL_API.G_RET_STS_SUCCESS);
23960: END IF;
23961: END LOOP;
23962: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
23955: lt_sll_date_tbl_type.DELETE;
23956: i := 0;
23957: END LOOP;
23958: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
23959: EXIT WHEN(l_return_status <> OKL_API.G_RET_STS_SUCCESS);
23960: END IF;
23961: END LOOP;
23962: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
23963: RAISE OKL_API.G_EXCEPTION_ERROR;
23958: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
23959: EXIT WHEN(l_return_status <> OKL_API.G_RET_STS_SUCCESS);
23960: END IF;
23961: END LOOP;
23962: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
23963: RAISE OKL_API.G_EXCEPTION_ERROR;
23964: END IF;
23965: ELSIF l_paym_tbl.COUNT > 0 THEN
23966: i := l_paym_tbl.FIRST;
23959: EXIT WHEN(l_return_status <> OKL_API.G_RET_STS_SUCCESS);
23960: END IF;
23961: END LOOP;
23962: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
23963: RAISE OKL_API.G_EXCEPTION_ERROR;
23964: END IF;
23965: ELSIF l_paym_tbl.COUNT > 0 THEN
23966: i := l_paym_tbl.FIRST;
23967: LOOP
23965: ELSIF l_paym_tbl.COUNT > 0 THEN
23966: i := l_paym_tbl.FIRST;
23967: LOOP
23968: IF (l_paym_tbl(i).START_DATE IS NULL OR
23969: l_paym_tbl(i).START_DATE = OKL_API.G_MISS_DATE) OR
23970: (l_paym_tbl(i).frequency IS NULL OR
23971: l_paym_tbl(i).frequency = OKL_API.G_MISS_CHAR) OR
23972: l_paym_tbl(i).frequency NOT IN ('A','S','Q','M') THEN
23973: OKL_API.set_message(p_app_name => G_APP_NAME,
23967: LOOP
23968: IF (l_paym_tbl(i).START_DATE IS NULL OR
23969: l_paym_tbl(i).START_DATE = OKL_API.G_MISS_DATE) OR
23970: (l_paym_tbl(i).frequency IS NULL OR
23971: l_paym_tbl(i).frequency = OKL_API.G_MISS_CHAR) OR
23972: l_paym_tbl(i).frequency NOT IN ('A','S','Q','M') THEN
23973: OKL_API.set_message(p_app_name => G_APP_NAME,
23974: p_msg_name => G_REQUIRED_VALUE,
23975: p_token1 => G_COL_NAME_TOKEN,
23969: l_paym_tbl(i).START_DATE = OKL_API.G_MISS_DATE) OR
23970: (l_paym_tbl(i).frequency IS NULL OR
23971: l_paym_tbl(i).frequency = OKL_API.G_MISS_CHAR) OR
23972: l_paym_tbl(i).frequency NOT IN ('A','S','Q','M') THEN
23973: OKL_API.set_message(p_app_name => G_APP_NAME,
23974: p_msg_name => G_REQUIRED_VALUE,
23975: p_token1 => G_COL_NAME_TOKEN,
23976: p_token1_value => 'Start date, Frequency');
23977: l_return_status := OKL_API.G_RET_STS_ERROR;
23973: OKL_API.set_message(p_app_name => G_APP_NAME,
23974: p_msg_name => G_REQUIRED_VALUE,
23975: p_token1 => G_COL_NAME_TOKEN,
23976: p_token1_value => 'Start date, Frequency');
23977: l_return_status := OKL_API.G_RET_STS_ERROR;
23978: EXIT WHEN (l_return_status = OKL_API.G_RET_STS_ERROR);
23979: END IF;
23980: IF l_paym_tbl(i).frequency = 'A' THEN
23981: l_freq := 12;
23974: p_msg_name => G_REQUIRED_VALUE,
23975: p_token1 => G_COL_NAME_TOKEN,
23976: p_token1_value => 'Start date, Frequency');
23977: l_return_status := OKL_API.G_RET_STS_ERROR;
23978: EXIT WHEN (l_return_status = OKL_API.G_RET_STS_ERROR);
23979: END IF;
23980: IF l_paym_tbl(i).frequency = 'A' THEN
23981: l_freq := 12;
23982: ELSIF l_paym_tbl(i).frequency = 'S' THEN
23986: ELSIF l_paym_tbl(i).frequency = 'M' THEN
23987: l_freq := 1;
23988: END IF;
23989: IF (l_paym_tbl(i).stub_days IS NULL OR
23990: l_paym_tbl(i).stub_days = OKL_API.G_MISS_NUM) AND
23991: (l_paym_tbl(i).periods IS NOT NULL OR
23992: l_paym_tbl(i).periods <> OKL_API.G_MISS_NUM) THEN
23993: lt_sll_date_tbl_type(j).START_DATE := l_paym_tbl(i).START_DATE;
23994: lt_sll_date_tbl_type(j).end_date := ADD_MONTHS(l_paym_tbl(i).START_DATE,(l_paym_tbl(i).periods*l_freq))-1;
23988: END IF;
23989: IF (l_paym_tbl(i).stub_days IS NULL OR
23990: l_paym_tbl(i).stub_days = OKL_API.G_MISS_NUM) AND
23991: (l_paym_tbl(i).periods IS NOT NULL OR
23992: l_paym_tbl(i).periods <> OKL_API.G_MISS_NUM) THEN
23993: lt_sll_date_tbl_type(j).START_DATE := l_paym_tbl(i).START_DATE;
23994: lt_sll_date_tbl_type(j).end_date := ADD_MONTHS(l_paym_tbl(i).START_DATE,(l_paym_tbl(i).periods*l_freq))-1;
23995: ELSIF (l_paym_tbl(i).stub_days IS NOT NULL OR
23996: l_paym_tbl(i).stub_days <> OKL_API.G_MISS_NUM) AND
23992: l_paym_tbl(i).periods <> OKL_API.G_MISS_NUM) THEN
23993: lt_sll_date_tbl_type(j).START_DATE := l_paym_tbl(i).START_DATE;
23994: lt_sll_date_tbl_type(j).end_date := ADD_MONTHS(l_paym_tbl(i).START_DATE,(l_paym_tbl(i).periods*l_freq))-1;
23995: ELSIF (l_paym_tbl(i).stub_days IS NOT NULL OR
23996: l_paym_tbl(i).stub_days <> OKL_API.G_MISS_NUM) AND
23997: (l_paym_tbl(i).periods IS NULL OR
23998: l_paym_tbl(i).periods = OKL_API.G_MISS_NUM) THEN
23999: lt_sll_date_tbl_type(j).START_DATE := l_paym_tbl(i).START_DATE;
24000: lt_sll_date_tbl_type(j).end_date := (l_paym_tbl(i).START_DATE+l_paym_tbl(i).stub_days)-1;
23994: lt_sll_date_tbl_type(j).end_date := ADD_MONTHS(l_paym_tbl(i).START_DATE,(l_paym_tbl(i).periods*l_freq))-1;
23995: ELSIF (l_paym_tbl(i).stub_days IS NOT NULL OR
23996: l_paym_tbl(i).stub_days <> OKL_API.G_MISS_NUM) AND
23997: (l_paym_tbl(i).periods IS NULL OR
23998: l_paym_tbl(i).periods = OKL_API.G_MISS_NUM) THEN
23999: lt_sll_date_tbl_type(j).START_DATE := l_paym_tbl(i).START_DATE;
24000: lt_sll_date_tbl_type(j).end_date := (l_paym_tbl(i).START_DATE+l_paym_tbl(i).stub_days)-1;
24001: ELSIF (l_paym_tbl(i).periods IS NULL OR
24002: l_paym_tbl(i).periods = OKL_API.G_MISS_NUM) AND
23998: l_paym_tbl(i).periods = OKL_API.G_MISS_NUM) THEN
23999: lt_sll_date_tbl_type(j).START_DATE := l_paym_tbl(i).START_DATE;
24000: lt_sll_date_tbl_type(j).end_date := (l_paym_tbl(i).START_DATE+l_paym_tbl(i).stub_days)-1;
24001: ELSIF (l_paym_tbl(i).periods IS NULL OR
24002: l_paym_tbl(i).periods = OKL_API.G_MISS_NUM) AND
24003: (l_paym_tbl(i).stub_days IS NULL OR
24004: l_paym_tbl(i).stub_days = OKL_API.G_MISS_NUM) THEN
24005: OKL_API.set_message(p_app_name => G_APP_NAME,
24006: p_msg_name => G_REQUIRED_VALUE,
24000: lt_sll_date_tbl_type(j).end_date := (l_paym_tbl(i).START_DATE+l_paym_tbl(i).stub_days)-1;
24001: ELSIF (l_paym_tbl(i).periods IS NULL OR
24002: l_paym_tbl(i).periods = OKL_API.G_MISS_NUM) AND
24003: (l_paym_tbl(i).stub_days IS NULL OR
24004: l_paym_tbl(i).stub_days = OKL_API.G_MISS_NUM) THEN
24005: OKL_API.set_message(p_app_name => G_APP_NAME,
24006: p_msg_name => G_REQUIRED_VALUE,
24007: p_token1 => G_COL_NAME_TOKEN,
24008: p_token1_value => 'Stub days, Periods');
24001: ELSIF (l_paym_tbl(i).periods IS NULL OR
24002: l_paym_tbl(i).periods = OKL_API.G_MISS_NUM) AND
24003: (l_paym_tbl(i).stub_days IS NULL OR
24004: l_paym_tbl(i).stub_days = OKL_API.G_MISS_NUM) THEN
24005: OKL_API.set_message(p_app_name => G_APP_NAME,
24006: p_msg_name => G_REQUIRED_VALUE,
24007: p_token1 => G_COL_NAME_TOKEN,
24008: p_token1_value => 'Stub days, Periods');
24009: l_return_status := OKL_API.G_RET_STS_ERROR;
24005: OKL_API.set_message(p_app_name => G_APP_NAME,
24006: p_msg_name => G_REQUIRED_VALUE,
24007: p_token1 => G_COL_NAME_TOKEN,
24008: p_token1_value => 'Stub days, Periods');
24009: l_return_status := OKL_API.G_RET_STS_ERROR;
24010: EXIT WHEN (l_return_status = OKL_API.G_RET_STS_ERROR);
24011: END IF;
24012: j := j + 1;
24013: -- Collecting amount and rate info to validate further
24006: p_msg_name => G_REQUIRED_VALUE,
24007: p_token1 => G_COL_NAME_TOKEN,
24008: p_token1_value => 'Stub days, Periods');
24009: l_return_status := OKL_API.G_RET_STS_ERROR;
24010: EXIT WHEN (l_return_status = OKL_API.G_RET_STS_ERROR);
24011: END IF;
24012: j := j + 1;
24013: -- Collecting amount and rate info to validate further
24014: IF l_paym_tbl(i).amount IS NULL THEN
24023: ln_cnt_rte_not_null := ln_cnt_rte_not_null + 1;
24024: END IF;
24025: l_paym_tbl(i).arrears_yn := nvl(l_paym_tbl(i).arrears_yn,'Y');
24026: IF l_paym_tbl(i).arrears_yn IS NULL OR
24027: l_paym_tbl(i).arrears_yn = OKL_API.G_MISS_CHAR THEN
24028: l_return_status := OKL_API.G_RET_STS_ERROR;
24029: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
24030: OKL_API.set_message(p_app_name => G_APP_NAME,
24031: p_msg_name => G_INVALID_VALUE,
24024: END IF;
24025: l_paym_tbl(i).arrears_yn := nvl(l_paym_tbl(i).arrears_yn,'Y');
24026: IF l_paym_tbl(i).arrears_yn IS NULL OR
24027: l_paym_tbl(i).arrears_yn = OKL_API.G_MISS_CHAR THEN
24028: l_return_status := OKL_API.G_RET_STS_ERROR;
24029: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
24030: OKL_API.set_message(p_app_name => G_APP_NAME,
24031: p_msg_name => G_INVALID_VALUE,
24032: p_token1 => G_COL_NAME_TOKEN,
24025: l_paym_tbl(i).arrears_yn := nvl(l_paym_tbl(i).arrears_yn,'Y');
24026: IF l_paym_tbl(i).arrears_yn IS NULL OR
24027: l_paym_tbl(i).arrears_yn = OKL_API.G_MISS_CHAR THEN
24028: l_return_status := OKL_API.G_RET_STS_ERROR;
24029: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
24030: OKL_API.set_message(p_app_name => G_APP_NAME,
24031: p_msg_name => G_INVALID_VALUE,
24032: p_token1 => G_COL_NAME_TOKEN,
24033: p_token1_value => 'Arrear');
24026: IF l_paym_tbl(i).arrears_yn IS NULL OR
24027: l_paym_tbl(i).arrears_yn = OKL_API.G_MISS_CHAR THEN
24028: l_return_status := OKL_API.G_RET_STS_ERROR;
24029: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
24030: OKL_API.set_message(p_app_name => G_APP_NAME,
24031: p_msg_name => G_INVALID_VALUE,
24032: p_token1 => G_COL_NAME_TOKEN,
24033: p_token1_value => 'Arrear');
24034: EXIT WHEN(l_return_status <> OKL_API.G_RET_STS_SUCCESS);
24030: OKL_API.set_message(p_app_name => G_APP_NAME,
24031: p_msg_name => G_INVALID_VALUE,
24032: p_token1 => G_COL_NAME_TOKEN,
24033: p_token1_value => 'Arrear');
24034: EXIT WHEN(l_return_status <> OKL_API.G_RET_STS_SUCCESS);
24035: END IF;
24036: ELSIF (l_paym_tbl(i).arrears_yn IS NOT NULL OR
24037: l_paym_tbl(i).arrears_yn <> OKL_API.G_MISS_CHAR) AND
24038: l_paym_tbl(i).arrears_yn = 'N' THEN
24033: p_token1_value => 'Arrear');
24034: EXIT WHEN(l_return_status <> OKL_API.G_RET_STS_SUCCESS);
24035: END IF;
24036: ELSIF (l_paym_tbl(i).arrears_yn IS NOT NULL OR
24037: l_paym_tbl(i).arrears_yn <> OKL_API.G_MISS_CHAR) AND
24038: l_paym_tbl(i).arrears_yn = 'N' THEN
24039: IF l_paym_tbl(i).STRUCTURE IS NULL OR
24040: l_paym_tbl(i).STRUCTURE = OKL_API.G_MISS_CHAR THEN
24041: l_return_status := OKL_API.G_RET_STS_ERROR;
24036: ELSIF (l_paym_tbl(i).arrears_yn IS NOT NULL OR
24037: l_paym_tbl(i).arrears_yn <> OKL_API.G_MISS_CHAR) AND
24038: l_paym_tbl(i).arrears_yn = 'N' THEN
24039: IF l_paym_tbl(i).STRUCTURE IS NULL OR
24040: l_paym_tbl(i).STRUCTURE = OKL_API.G_MISS_CHAR THEN
24041: l_return_status := OKL_API.G_RET_STS_ERROR;
24042: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
24043: OKL_API.set_message(p_app_name => G_APP_NAME,
24044: p_msg_name => G_INVALID_VALUE,
24037: l_paym_tbl(i).arrears_yn <> OKL_API.G_MISS_CHAR) AND
24038: l_paym_tbl(i).arrears_yn = 'N' THEN
24039: IF l_paym_tbl(i).STRUCTURE IS NULL OR
24040: l_paym_tbl(i).STRUCTURE = OKL_API.G_MISS_CHAR THEN
24041: l_return_status := OKL_API.G_RET_STS_ERROR;
24042: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
24043: OKL_API.set_message(p_app_name => G_APP_NAME,
24044: p_msg_name => G_INVALID_VALUE,
24045: p_token1 => G_COL_NAME_TOKEN,
24038: l_paym_tbl(i).arrears_yn = 'N' THEN
24039: IF l_paym_tbl(i).STRUCTURE IS NULL OR
24040: l_paym_tbl(i).STRUCTURE = OKL_API.G_MISS_CHAR THEN
24041: l_return_status := OKL_API.G_RET_STS_ERROR;
24042: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
24043: OKL_API.set_message(p_app_name => G_APP_NAME,
24044: p_msg_name => G_INVALID_VALUE,
24045: p_token1 => G_COL_NAME_TOKEN,
24046: p_token1_value => 'Structure');
24039: IF l_paym_tbl(i).STRUCTURE IS NULL OR
24040: l_paym_tbl(i).STRUCTURE = OKL_API.G_MISS_CHAR THEN
24041: l_return_status := OKL_API.G_RET_STS_ERROR;
24042: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
24043: OKL_API.set_message(p_app_name => G_APP_NAME,
24044: p_msg_name => G_INVALID_VALUE,
24045: p_token1 => G_COL_NAME_TOKEN,
24046: p_token1_value => 'Structure');
24047: EXIT WHEN(l_return_status <> OKL_API.G_RET_STS_SUCCESS);
24043: OKL_API.set_message(p_app_name => G_APP_NAME,
24044: p_msg_name => G_INVALID_VALUE,
24045: p_token1 => G_COL_NAME_TOKEN,
24046: p_token1_value => 'Structure');
24047: EXIT WHEN(l_return_status <> OKL_API.G_RET_STS_SUCCESS);
24048: END IF;
24049: END IF;
24050: END IF;
24051: EXIT WHEN (i = l_paym_tbl.LAST);
24050: END IF;
24051: EXIT WHEN (i = l_paym_tbl.LAST);
24052: i := l_paym_tbl.NEXT(i);
24053: END LOOP;
24054: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
24055: RAISE OKL_API.G_EXCEPTION_ERROR;
24056: END IF;
24057: -- Validating amounts and rates values
24058: IF ln_cnt_rte_not_null = l_paym_tbl.COUNT AND
24051: EXIT WHEN (i = l_paym_tbl.LAST);
24052: i := l_paym_tbl.NEXT(i);
24053: END LOOP;
24054: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
24055: RAISE OKL_API.G_EXCEPTION_ERROR;
24056: END IF;
24057: -- Validating amounts and rates values
24058: IF ln_cnt_rte_not_null = l_paym_tbl.COUNT AND
24059: ln_cnt_amt_null < l_paym_tbl.COUNT AND
24057: -- Validating amounts and rates values
24058: IF ln_cnt_rte_not_null = l_paym_tbl.COUNT AND
24059: ln_cnt_amt_null < l_paym_tbl.COUNT AND
24060: ln_cnt_amt_null > 1 THEN
24061: OKL_API.set_message(p_app_name => G_APP_NAME,
24062: p_msg_name => G_INVALID_VALUE,
24063: p_token1 => G_COL_NAME_TOKEN,
24064: p_token1_value => 'payment amounts');
24065: RAISE OKL_API.G_EXCEPTION_ERROR;
24061: OKL_API.set_message(p_app_name => G_APP_NAME,
24062: p_msg_name => G_INVALID_VALUE,
24063: p_token1 => G_COL_NAME_TOKEN,
24064: p_token1_value => 'payment amounts');
24065: RAISE OKL_API.G_EXCEPTION_ERROR;
24066: END IF;
24067: IF ln_cnt_amt_not_null = l_paym_tbl.COUNT THEN
24068: IF ln_cnt_rte_not_null < l_paym_tbl.COUNT AND
24069: ln_cnt_rte_not_null > 0 THEN
24066: END IF;
24067: IF ln_cnt_amt_not_null = l_paym_tbl.COUNT THEN
24068: IF ln_cnt_rte_not_null < l_paym_tbl.COUNT AND
24069: ln_cnt_rte_not_null > 0 THEN
24070: OKL_API.set_message(p_app_name => G_APP_NAME,
24071: p_msg_name => G_INVALID_VALUE,
24072: p_token1 => G_COL_NAME_TOKEN,
24073: p_token1_value => 'payment rates');
24074: RAISE OKL_API.G_EXCEPTION_ERROR;
24070: OKL_API.set_message(p_app_name => G_APP_NAME,
24071: p_msg_name => G_INVALID_VALUE,
24072: p_token1 => G_COL_NAME_TOKEN,
24073: p_token1_value => 'payment rates');
24074: RAISE OKL_API.G_EXCEPTION_ERROR;
24075: END IF;
24076: END IF;
24077: IF ln_cnt_rte_null = l_paym_tbl.COUNT AND
24078: ln_cnt_amt_null = l_paym_tbl.COUNT THEN
24075: END IF;
24076: END IF;
24077: IF ln_cnt_rte_null = l_paym_tbl.COUNT AND
24078: ln_cnt_amt_null = l_paym_tbl.COUNT THEN
24079: OKL_API.set_message(p_app_name => G_APP_NAME,
24080: p_msg_name => G_REQUIRED_VALUE,
24081: p_token1 => G_COL_NAME_TOKEN,
24082: p_token1_value => 'payment rate and payment amount');
24083: RAISE OKL_API.G_EXCEPTION_ERROR;
24079: OKL_API.set_message(p_app_name => G_APP_NAME,
24080: p_msg_name => G_REQUIRED_VALUE,
24081: p_token1 => G_COL_NAME_TOKEN,
24082: p_token1_value => 'payment rate and payment amount');
24083: RAISE OKL_API.G_EXCEPTION_ERROR;
24084: END IF;
24085: IF ln_cnt_rte_not_null <> l_paym_tbl.COUNT AND
24086: ln_cnt_amt_not_null <> l_paym_tbl.COUNT THEN
24087: OKL_API.set_message(p_app_name => G_APP_NAME,
24083: RAISE OKL_API.G_EXCEPTION_ERROR;
24084: END IF;
24085: IF ln_cnt_rte_not_null <> l_paym_tbl.COUNT AND
24086: ln_cnt_amt_not_null <> l_paym_tbl.COUNT THEN
24087: OKL_API.set_message(p_app_name => G_APP_NAME,
24088: p_msg_name => G_INVALID_VALUE,
24089: p_token1 => G_COL_NAME_TOKEN,
24090: p_token1_value => 'payment rates and payment amounts');
24091: RAISE OKL_API.G_EXCEPTION_ERROR;
24087: OKL_API.set_message(p_app_name => G_APP_NAME,
24088: p_msg_name => G_INVALID_VALUE,
24089: p_token1 => G_COL_NAME_TOKEN,
24090: p_token1_value => 'payment rates and payment amounts');
24091: RAISE OKL_API.G_EXCEPTION_ERROR;
24092: END IF;
24093: ln_cnt_amt_null := 0;
24094: ln_cnt_amt_not_null := 0;
24095: ln_cnt_rte_null := 0;
24100: FOR k IN lt_sll_date_tbl_type.FIRST..lt_sll_date_tbl_type.LAST LOOP
24101: EXIT WHEN(k = lt_sll_date_tbl_type.LAST);
24102: IF lt_sll_date_tbl_type(k+1).start_date >= lt_sll_date_tbl_type(k).start_date AND
24103: lt_sll_date_tbl_type(k+1).start_date <= lt_sll_date_tbl_type(k).end_date THEN
24104: OKL_API.set_message(p_app_name => G_APP_NAME,
24105: p_msg_name => G_PAYMENT_OVERLAP_ERROR);
24106: l_return_status := OKL_API.G_RET_STS_ERROR;
24107: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
24108: EXIT WHEN(l_return_status <> OKL_API.G_RET_STS_SUCCESS);
24102: IF lt_sll_date_tbl_type(k+1).start_date >= lt_sll_date_tbl_type(k).start_date AND
24103: lt_sll_date_tbl_type(k+1).start_date <= lt_sll_date_tbl_type(k).end_date THEN
24104: OKL_API.set_message(p_app_name => G_APP_NAME,
24105: p_msg_name => G_PAYMENT_OVERLAP_ERROR);
24106: l_return_status := OKL_API.G_RET_STS_ERROR;
24107: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
24108: EXIT WHEN(l_return_status <> OKL_API.G_RET_STS_SUCCESS);
24109: END IF;
24110: ELSIF lt_sll_date_tbl_type(k+1).start_date > lt_sll_date_tbl_type(k).end_date + 1 THEN
24103: lt_sll_date_tbl_type(k+1).start_date <= lt_sll_date_tbl_type(k).end_date THEN
24104: OKL_API.set_message(p_app_name => G_APP_NAME,
24105: p_msg_name => G_PAYMENT_OVERLAP_ERROR);
24106: l_return_status := OKL_API.G_RET_STS_ERROR;
24107: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
24108: EXIT WHEN(l_return_status <> OKL_API.G_RET_STS_SUCCESS);
24109: END IF;
24110: ELSIF lt_sll_date_tbl_type(k+1).start_date > lt_sll_date_tbl_type(k).end_date + 1 THEN
24111: OKL_API.set_message(p_app_name => G_APP_NAME,
24104: OKL_API.set_message(p_app_name => G_APP_NAME,
24105: p_msg_name => G_PAYMENT_OVERLAP_ERROR);
24106: l_return_status := OKL_API.G_RET_STS_ERROR;
24107: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
24108: EXIT WHEN(l_return_status <> OKL_API.G_RET_STS_SUCCESS);
24109: END IF;
24110: ELSIF lt_sll_date_tbl_type(k+1).start_date > lt_sll_date_tbl_type(k).end_date + 1 THEN
24111: OKL_API.set_message(p_app_name => G_APP_NAME,
24112: p_msg_name => G_PAYMENT_GAP_ERROR);
24107: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
24108: EXIT WHEN(l_return_status <> OKL_API.G_RET_STS_SUCCESS);
24109: END IF;
24110: ELSIF lt_sll_date_tbl_type(k+1).start_date > lt_sll_date_tbl_type(k).end_date + 1 THEN
24111: OKL_API.set_message(p_app_name => G_APP_NAME,
24112: p_msg_name => G_PAYMENT_GAP_ERROR);
24113: l_return_status := OKL_API.G_RET_STS_ERROR;
24114: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
24115: EXIT WHEN(l_return_status <> OKL_API.G_RET_STS_SUCCESS);
24109: END IF;
24110: ELSIF lt_sll_date_tbl_type(k+1).start_date > lt_sll_date_tbl_type(k).end_date + 1 THEN
24111: OKL_API.set_message(p_app_name => G_APP_NAME,
24112: p_msg_name => G_PAYMENT_GAP_ERROR);
24113: l_return_status := OKL_API.G_RET_STS_ERROR;
24114: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
24115: EXIT WHEN(l_return_status <> OKL_API.G_RET_STS_SUCCESS);
24116: END IF;
24117: END IF;
24110: ELSIF lt_sll_date_tbl_type(k+1).start_date > lt_sll_date_tbl_type(k).end_date + 1 THEN
24111: OKL_API.set_message(p_app_name => G_APP_NAME,
24112: p_msg_name => G_PAYMENT_GAP_ERROR);
24113: l_return_status := OKL_API.G_RET_STS_ERROR;
24114: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
24115: EXIT WHEN(l_return_status <> OKL_API.G_RET_STS_SUCCESS);
24116: END IF;
24117: END IF;
24118: END LOOP;
24111: OKL_API.set_message(p_app_name => G_APP_NAME,
24112: p_msg_name => G_PAYMENT_GAP_ERROR);
24113: l_return_status := OKL_API.G_RET_STS_ERROR;
24114: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
24115: EXIT WHEN(l_return_status <> OKL_API.G_RET_STS_SUCCESS);
24116: END IF;
24117: END IF;
24118: END LOOP;
24119: END IF;
24118: END LOOP;
24119: END IF;
24120: END IF;
24121: ELSE
24122: OKL_API.set_message(p_app_name => G_APP_NAME,
24123: p_msg_name => G_REQUIRED_VALUE,
24124: p_token1 => G_COL_NAME_TOKEN,
24125: p_token1_value => 'Payment Line Record');
24126: l_return_status := OKL_API.G_RET_STS_ERROR;
24122: OKL_API.set_message(p_app_name => G_APP_NAME,
24123: p_msg_name => G_REQUIRED_VALUE,
24124: p_token1 => G_COL_NAME_TOKEN,
24125: p_token1_value => 'Payment Line Record');
24126: l_return_status := OKL_API.G_RET_STS_ERROR;
24127: END IF;
24128: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
24129: RAISE OKL_API.G_EXCEPTION_ERROR;
24130: END IF;
24124: p_token1 => G_COL_NAME_TOKEN,
24125: p_token1_value => 'Payment Line Record');
24126: l_return_status := OKL_API.G_RET_STS_ERROR;
24127: END IF;
24128: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
24129: RAISE OKL_API.G_EXCEPTION_ERROR;
24130: END IF;
24131: x_return_status := l_return_status;
24132: OKL_API.END_ACTIVITY (x_msg_count,
24125: p_token1_value => 'Payment Line Record');
24126: l_return_status := OKL_API.G_RET_STS_ERROR;
24127: END IF;
24128: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
24129: RAISE OKL_API.G_EXCEPTION_ERROR;
24130: END IF;
24131: x_return_status := l_return_status;
24132: OKL_API.END_ACTIVITY (x_msg_count,
24133: x_msg_data );
24128: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
24129: RAISE OKL_API.G_EXCEPTION_ERROR;
24130: END IF;
24131: x_return_status := l_return_status;
24132: OKL_API.END_ACTIVITY (x_msg_count,
24133: x_msg_data );
24134: EXCEPTION
24135: WHEN OKL_API.G_EXCEPTION_ERROR THEN
24136: IF c_get_sll_lines_csr%ISOPEN THEN
24131: x_return_status := l_return_status;
24132: OKL_API.END_ACTIVITY (x_msg_count,
24133: x_msg_data );
24134: EXCEPTION
24135: WHEN OKL_API.G_EXCEPTION_ERROR THEN
24136: IF c_get_sll_lines_csr%ISOPEN THEN
24137: CLOSE c_get_sll_lines_csr;
24138: END IF;
24139: IF c_get_slh_lines_csr%ISOPEN THEN
24150: END IF;
24151: IF c_get_psth_csr%ISOPEN THEN
24152: CLOSE c_get_psth_csr;
24153: END IF;
24154: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
24155: l_api_name,
24156: G_PKG_NAME,
24157: 'OKL_API.G_RET_STS_ERROR',
24158: x_msg_count,
24153: END IF;
24154: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
24155: l_api_name,
24156: G_PKG_NAME,
24157: 'OKL_API.G_RET_STS_ERROR',
24158: x_msg_count,
24159: x_msg_data,
24160: '_PVT');
24161: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
24157: 'OKL_API.G_RET_STS_ERROR',
24158: x_msg_count,
24159: x_msg_data,
24160: '_PVT');
24161: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
24162: IF c_get_sll_lines_csr%ISOPEN THEN
24163: CLOSE c_get_sll_lines_csr;
24164: END IF;
24165: IF c_get_slh_lines_csr%ISOPEN THEN
24176: END IF;
24177: IF c_get_psth_csr%ISOPEN THEN
24178: CLOSE c_get_psth_csr;
24179: END IF;
24180: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
24181: l_api_name,
24182: G_PKG_NAME,
24183: 'OKL_API.G_RET_STS_UNEXP_ERROR',
24184: x_msg_count,
24179: END IF;
24180: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
24181: l_api_name,
24182: G_PKG_NAME,
24183: 'OKL_API.G_RET_STS_UNEXP_ERROR',
24184: x_msg_count,
24185: x_msg_data,
24186: '_PVT');
24187: WHEN OTHERS THEN
24202: END IF;
24203: IF c_get_psth_csr%ISOPEN THEN
24204: CLOSE c_get_psth_csr;
24205: END IF;
24206: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
24207: l_api_name,
24208: G_PKG_NAME,
24209: 'OTHERS',
24210: x_msg_count,
24228: x_return_status OUT NOCOPY VARCHAR2,
24229: x_asset_oec OUT NOCOPY NUMBER,
24230: x_start_date OUT NOCOPY DATE)
24231: IS
24232: l_return_status VARCHAR2(3):= OKL_API.G_RET_STS_SUCCESS;
24233: l_msg_count NUMBER;
24234: l_msg_data VARCHAR2(32767);
24235: G_FORMULA_DIS OKL_FORMULAE_V.NAME%TYPE := 'LINE_DISCOUNT';
24236: G_AMT_TOKEN CONSTANT VARCHAR2(200) := 'AMOUNT';
24276: AND chr_rv.START_DATE = cle_rv.START_DATE
24277: AND cle_rv.id = kle_rv.id;
24278: BEGIN
24279: IF p_subside_yn NOT IN ('Y','N') THEN
24280: OKL_API.set_message(p_app_name => G_APP_NAME,
24281: p_msg_name => G_INVALID_VALUE,
24282: p_token1 => G_COL_NAME_TOKEN,
24283: p_token1_value => 'p_subside_yn');
24284: RAISE OKL_API.G_EXCEPTION_ERROR;
24280: OKL_API.set_message(p_app_name => G_APP_NAME,
24281: p_msg_name => G_INVALID_VALUE,
24282: p_token1 => G_COL_NAME_TOKEN,
24283: p_token1_value => 'p_subside_yn');
24284: RAISE OKL_API.G_EXCEPTION_ERROR;
24285: END IF;
24286: FOR get_oec_rec IN get_oec_csr(p_khr_id => p_khr_id,
24287: p_kle_id => p_kle_id) LOOP
24288: IF p_subside_yn = 'Y' THEN
24286: FOR get_oec_rec IN get_oec_csr(p_khr_id => p_khr_id,
24287: p_kle_id => p_kle_id) LOOP
24288: IF p_subside_yn = 'Y' THEN
24289: execute_formula(p_api_version => l_api_version,
24290: p_init_msg_list => OKL_API.G_TRUE,
24291: x_return_status => l_return_status,
24292: x_msg_count => l_msg_count,
24293: x_msg_data => l_msg_data,
24294: p_formula_name => G_FORMULA_DIS,
24294: p_formula_name => G_FORMULA_DIS,
24295: p_contract_id => p_khr_id,
24296: p_line_id => get_oec_rec.asset_line_id,
24297: x_value => l_dis_amt);
24298: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
24299: OKL_API.set_message(p_app_name => G_APP_NAME,
24300: p_msg_name => G_CALC_AMOUNT);
24301: EXIT WHEN(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
24302: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
24295: p_contract_id => p_khr_id,
24296: p_line_id => get_oec_rec.asset_line_id,
24297: x_value => l_dis_amt);
24298: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
24299: OKL_API.set_message(p_app_name => G_APP_NAME,
24300: p_msg_name => G_CALC_AMOUNT);
24301: EXIT WHEN(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
24302: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
24303: OKL_API.set_message(p_app_name => G_APP_NAME,
24297: x_value => l_dis_amt);
24298: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
24299: OKL_API.set_message(p_app_name => G_APP_NAME,
24300: p_msg_name => G_CALC_AMOUNT);
24301: EXIT WHEN(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
24302: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
24303: OKL_API.set_message(p_app_name => G_APP_NAME,
24304: p_msg_name => G_CALC_AMOUNT);
24305: EXIT WHEN(l_return_status = OKL_API.G_RET_STS_ERROR);
24298: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
24299: OKL_API.set_message(p_app_name => G_APP_NAME,
24300: p_msg_name => G_CALC_AMOUNT);
24301: EXIT WHEN(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
24302: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
24303: OKL_API.set_message(p_app_name => G_APP_NAME,
24304: p_msg_name => G_CALC_AMOUNT);
24305: EXIT WHEN(l_return_status = OKL_API.G_RET_STS_ERROR);
24306: END IF;
24299: OKL_API.set_message(p_app_name => G_APP_NAME,
24300: p_msg_name => G_CALC_AMOUNT);
24301: EXIT WHEN(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
24302: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
24303: OKL_API.set_message(p_app_name => G_APP_NAME,
24304: p_msg_name => G_CALC_AMOUNT);
24305: EXIT WHEN(l_return_status = OKL_API.G_RET_STS_ERROR);
24306: END IF;
24307: l_tot_oec_amt := l_tot_oec_amt + (get_oec_rec.oec - nvl(l_dis_amt,0));
24301: EXIT WHEN(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
24302: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
24303: OKL_API.set_message(p_app_name => G_APP_NAME,
24304: p_msg_name => G_CALC_AMOUNT);
24305: EXIT WHEN(l_return_status = OKL_API.G_RET_STS_ERROR);
24306: END IF;
24307: l_tot_oec_amt := l_tot_oec_amt + (get_oec_rec.oec - nvl(l_dis_amt,0));
24308: ELSE
24309: l_tot_oec_amt := l_tot_oec_amt + get_oec_rec.oec;
24309: l_tot_oec_amt := l_tot_oec_amt + get_oec_rec.oec;
24310: END IF;
24311: x_start_date := get_oec_rec.START_DATE;
24312: END LOOP;
24313: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
24314: RAISE OKL_API.G_EXCEPTION_ERROR;
24315: END IF;
24316: x_asset_oec := l_tot_oec_amt;
24317: IF NVL(x_asset_oec,0) = 0 THEN
24310: END IF;
24311: x_start_date := get_oec_rec.START_DATE;
24312: END LOOP;
24313: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
24314: RAISE OKL_API.G_EXCEPTION_ERROR;
24315: END IF;
24316: x_asset_oec := l_tot_oec_amt;
24317: IF NVL(x_asset_oec,0) = 0 THEN
24318: OKL_API.set_message(p_app_name => G_APP_NAME,
24314: RAISE OKL_API.G_EXCEPTION_ERROR;
24315: END IF;
24316: x_asset_oec := l_tot_oec_amt;
24317: IF NVL(x_asset_oec,0) = 0 THEN
24318: OKL_API.set_message(p_app_name => G_APP_NAME,
24319: p_msg_name => G_CALC_AMOUNT);
24320: RAISE OKL_API.G_EXCEPTION_ERROR;
24321: END IF;
24322: x_return_status := l_return_status;
24316: x_asset_oec := l_tot_oec_amt;
24317: IF NVL(x_asset_oec,0) = 0 THEN
24318: OKL_API.set_message(p_app_name => G_APP_NAME,
24319: p_msg_name => G_CALC_AMOUNT);
24320: RAISE OKL_API.G_EXCEPTION_ERROR;
24321: END IF;
24322: x_return_status := l_return_status;
24323: EXCEPTION
24324: WHEN OKL_API.G_EXCEPTION_ERROR THEN
24320: RAISE OKL_API.G_EXCEPTION_ERROR;
24321: END IF;
24322: x_return_status := l_return_status;
24323: EXCEPTION
24324: WHEN OKL_API.G_EXCEPTION_ERROR THEN
24325: IF get_oec_csr%ISOPEN THEN
24326: CLOSE get_oec_csr;
24327: END IF;
24328: x_return_status := OKL_API.G_RET_STS_ERROR;
24324: WHEN OKL_API.G_EXCEPTION_ERROR THEN
24325: IF get_oec_csr%ISOPEN THEN
24326: CLOSE get_oec_csr;
24327: END IF;
24328: x_return_status := OKL_API.G_RET_STS_ERROR;
24329: WHEN OTHERS THEN
24330: IF get_oec_csr%ISOPEN THEN
24331: CLOSE get_oec_csr;
24332: END IF;
24329: WHEN OTHERS THEN
24330: IF get_oec_csr%ISOPEN THEN
24331: CLOSE get_oec_csr;
24332: END IF;
24333: x_return_status := OKL_API.G_RET_STS_ERROR;
24334: END get_so_asset_oec1;
24335: -------------------------------------------------------------------------------------------------
24336: -- Start of Commnets
24337: -- Badrinath Kuchibholta
24348: x_return_status OUT NOCOPY VARCHAR2,
24349: x_residual_value OUT NOCOPY NUMBER,
24350: x_start_date OUT NOCOPY DATE)
24351: IS
24352: l_return_status VARCHAR2(3):= OKL_API.G_RET_STS_SUCCESS;
24353: l_msg_count NUMBER;
24354: l_msg_data VARCHAR2(32767);
24355: G_FORMULA_DIS OKL_FORMULAE_V.NAME%TYPE := 'LINE_DISCOUNT';
24356: G_AMT_TOKEN CONSTANT VARCHAR2(200) := 'AMOUNT';
24400: AND cle_rv.id = kle_rv.id;
24401: --end changed by abhsaxen for Bug#6174484
24402: BEGIN
24403: IF p_subside_yn NOT IN ('Y','N') THEN
24404: OKL_API.set_message(p_app_name => G_APP_NAME,
24405: p_msg_name => G_INVALID_VALUE,
24406: p_token1 => G_COL_NAME_TOKEN,
24407: p_token1_value => 'p_subside_yn');
24408: RAISE OKL_API.G_EXCEPTION_ERROR;
24404: OKL_API.set_message(p_app_name => G_APP_NAME,
24405: p_msg_name => G_INVALID_VALUE,
24406: p_token1 => G_COL_NAME_TOKEN,
24407: p_token1_value => 'p_subside_yn');
24408: RAISE OKL_API.G_EXCEPTION_ERROR;
24409: END IF;
24410:
24411: FOR get_rvs_rec IN get_rvs_csr(p_khr_id => p_khr_id,
24412: p_kle_id => p_kle_id) LOOP
24411: FOR get_rvs_rec IN get_rvs_csr(p_khr_id => p_khr_id,
24412: p_kle_id => p_kle_id) LOOP
24413: IF p_subside_yn = 'Y' THEN
24414: execute_formula(p_api_version => l_api_version,
24415: p_init_msg_list => OKL_API.G_TRUE,
24416: x_return_status => l_return_status,
24417: x_msg_count => l_msg_count,
24418: x_msg_data => l_msg_data,
24419: p_formula_name => G_FORMULA_DIS,
24419: p_formula_name => G_FORMULA_DIS,
24420: p_contract_id => p_khr_id,
24421: p_line_id => get_rvs_rec.asset_line_id,
24422: x_value => l_dis_amt);
24423: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
24424: OKL_API.set_message(p_app_name => G_APP_NAME,
24425: p_msg_name => G_CALC_AMOUNT);
24426: EXIT WHEN(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
24427: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
24420: p_contract_id => p_khr_id,
24421: p_line_id => get_rvs_rec.asset_line_id,
24422: x_value => l_dis_amt);
24423: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
24424: OKL_API.set_message(p_app_name => G_APP_NAME,
24425: p_msg_name => G_CALC_AMOUNT);
24426: EXIT WHEN(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
24427: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
24428: OKL_API.set_message(p_app_name => G_APP_NAME,
24422: x_value => l_dis_amt);
24423: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
24424: OKL_API.set_message(p_app_name => G_APP_NAME,
24425: p_msg_name => G_CALC_AMOUNT);
24426: EXIT WHEN(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
24427: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
24428: OKL_API.set_message(p_app_name => G_APP_NAME,
24429: p_msg_name => G_CALC_AMOUNT);
24430: EXIT WHEN(l_return_status = OKL_API.G_RET_STS_ERROR);
24423: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
24424: OKL_API.set_message(p_app_name => G_APP_NAME,
24425: p_msg_name => G_CALC_AMOUNT);
24426: EXIT WHEN(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
24427: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
24428: OKL_API.set_message(p_app_name => G_APP_NAME,
24429: p_msg_name => G_CALC_AMOUNT);
24430: EXIT WHEN(l_return_status = OKL_API.G_RET_STS_ERROR);
24431: END IF;
24424: OKL_API.set_message(p_app_name => G_APP_NAME,
24425: p_msg_name => G_CALC_AMOUNT);
24426: EXIT WHEN(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
24427: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
24428: OKL_API.set_message(p_app_name => G_APP_NAME,
24429: p_msg_name => G_CALC_AMOUNT);
24430: EXIT WHEN(l_return_status = OKL_API.G_RET_STS_ERROR);
24431: END IF;
24432: IF get_rvs_rec.residual_percent IS NOT NULL THEN
24426: EXIT WHEN(l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
24427: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
24428: OKL_API.set_message(p_app_name => G_APP_NAME,
24429: p_msg_name => G_CALC_AMOUNT);
24430: EXIT WHEN(l_return_status = OKL_API.G_RET_STS_ERROR);
24431: END IF;
24432: IF get_rvs_rec.residual_percent IS NOT NULL THEN
24433: l_res_val := get_rvs_rec.residual_percent * (get_rvs_rec.oec - nvl(l_dis_amt,0)) /100;
24434: l_tot_res_val := l_tot_res_val + l_res_val;
24446: END IF;
24447: END IF;
24448: x_start_date := get_rvs_rec.START_DATE;
24449: END LOOP;
24450: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
24451: RAISE OKL_API.G_EXCEPTION_ERROR;
24452: END IF;
24453: x_residual_value := l_tot_res_val;
24454: IF (x_residual_value IS NULL) THEN -- bug# 3381546.
24447: END IF;
24448: x_start_date := get_rvs_rec.START_DATE;
24449: END LOOP;
24450: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
24451: RAISE OKL_API.G_EXCEPTION_ERROR;
24452: END IF;
24453: x_residual_value := l_tot_res_val;
24454: IF (x_residual_value IS NULL) THEN -- bug# 3381546.
24455: OKL_API.set_message(p_app_name => G_APP_NAME,
24451: RAISE OKL_API.G_EXCEPTION_ERROR;
24452: END IF;
24453: x_residual_value := l_tot_res_val;
24454: IF (x_residual_value IS NULL) THEN -- bug# 3381546.
24455: OKL_API.set_message(p_app_name => G_APP_NAME,
24456: p_msg_name => G_INVALID_VALUE,
24457: p_token1 => G_COL_NAME_TOKEN,
24458: p_token1_value => 'Residual Value');
24459: RAISE OKL_API.G_EXCEPTION_ERROR;
24455: OKL_API.set_message(p_app_name => G_APP_NAME,
24456: p_msg_name => G_INVALID_VALUE,
24457: p_token1 => G_COL_NAME_TOKEN,
24458: p_token1_value => 'Residual Value');
24459: RAISE OKL_API.G_EXCEPTION_ERROR;
24460: END IF;
24461: x_return_status := l_return_status;
24462: EXCEPTION
24463: WHEN OKL_API.G_EXCEPTION_ERROR THEN
24459: RAISE OKL_API.G_EXCEPTION_ERROR;
24460: END IF;
24461: x_return_status := l_return_status;
24462: EXCEPTION
24463: WHEN OKL_API.G_EXCEPTION_ERROR THEN
24464: IF get_rvs_csr%ISOPEN THEN
24465: CLOSE get_rvs_csr;
24466: END IF;
24467: x_return_status := OKL_API.G_RET_STS_ERROR;
24463: WHEN OKL_API.G_EXCEPTION_ERROR THEN
24464: IF get_rvs_csr%ISOPEN THEN
24465: CLOSE get_rvs_csr;
24466: END IF;
24467: x_return_status := OKL_API.G_RET_STS_ERROR;
24468: WHEN OTHERS THEN
24469: IF get_rvs_csr%ISOPEN THEN
24470: CLOSE get_rvs_csr;
24471: END IF;
24468: WHEN OTHERS THEN
24469: IF get_rvs_csr%ISOPEN THEN
24470: CLOSE get_rvs_csr;
24471: END IF;
24472: x_return_status := OKL_API.G_RET_STS_ERROR;
24473: END get_so_residual_value1;
24474:
24475: -------------------------------------------------------------------------------------------------
24476: -- Start of Commnets
24488: x_return_status OUT NOCOPY VARCHAR2,
24489: x_residual_value OUT NOCOPY NUMBER,
24490: x_start_date OUT NOCOPY DATE)
24491: IS
24492: l_return_status VARCHAR2(3):= OKL_API.G_RET_STS_SUCCESS;
24493: l_msg_count NUMBER;
24494: l_msg_data VARCHAR2(32767);
24495: G_FORMULA_DIS OKL_FORMULAE_V.NAME%TYPE := 'LINE_CAP_AMNT';
24496: G_AMT_TOKEN CONSTANT VARCHAR2(200) := 'AMOUNT';
24512: CLOSE khr_type_csr;
24513:
24514: IF (INSTR( khr_type_rec.scs_code, 'LEASE') > 0) THEN
24515: execute_formula(p_api_version => 1.0,
24516: p_init_msg_list => OKL_API.G_TRUE,
24517: x_return_status => l_return_status,
24518: x_msg_count => l_msg_count,
24519: x_msg_data => l_msg_data,
24520: p_formula_name => 'LINE_RESIDUAL_VALUE',
24520: p_formula_name => 'LINE_RESIDUAL_VALUE',
24521: p_contract_id => p_khr_id,
24522: p_line_id => p_kle_id,
24523: x_value => x_residual_value);
24524: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
24525: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
24526: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
24527: RAISE OKL_API.G_EXCEPTION_ERROR;
24528: END IF;
24521: p_contract_id => p_khr_id,
24522: p_line_id => p_kle_id,
24523: x_value => x_residual_value);
24524: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
24525: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
24526: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
24527: RAISE OKL_API.G_EXCEPTION_ERROR;
24528: END IF;
24529:
24522: p_line_id => p_kle_id,
24523: x_value => x_residual_value);
24524: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
24525: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
24526: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
24527: RAISE OKL_API.G_EXCEPTION_ERROR;
24528: END IF;
24529:
24530: x_start_date := khr_type_rec.start_date;
24523: x_value => x_residual_value);
24524: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
24525: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
24526: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
24527: RAISE OKL_API.G_EXCEPTION_ERROR;
24528: END IF;
24529:
24530: x_start_date := khr_type_rec.start_date;
24531:
24540:
24541: End If;
24542:
24543: EXCEPTION
24544: WHEN OKL_API.G_EXCEPTION_ERROR THEN
24545: IF khr_type_csr%ISOPEN THEN
24546: CLOSE khr_type_csr;
24547: END IF;
24548: x_return_status := OKL_API.G_RET_STS_ERROR;
24544: WHEN OKL_API.G_EXCEPTION_ERROR THEN
24545: IF khr_type_csr%ISOPEN THEN
24546: CLOSE khr_type_csr;
24547: END IF;
24548: x_return_status := OKL_API.G_RET_STS_ERROR;
24549: WHEN OTHERS THEN
24550: IF khr_type_csr%ISOPEN THEN
24551: CLOSE khr_type_csr;
24552: END IF;
24549: WHEN OTHERS THEN
24550: IF khr_type_csr%ISOPEN THEN
24551: CLOSE khr_type_csr;
24552: END IF;
24553: x_return_status := OKL_API.G_RET_STS_ERROR;
24554:
24555: End get_so_residual_value;
24556:
24557: -------------------------------------------------------------------------------------------------
24570: x_return_status OUT NOCOPY VARCHAR2,
24571: x_asset_oec OUT NOCOPY NUMBER,
24572: x_start_date OUT NOCOPY DATE)
24573: IS
24574: l_return_status VARCHAR2(3):= OKL_API.G_RET_STS_SUCCESS;
24575: l_msg_count NUMBER;
24576: l_msg_data VARCHAR2(32767);
24577: G_FORMULA_DIS OKL_FORMULAE_V.NAME%TYPE := 'LINE_CAP_AMNT';
24578: G_AMT_TOKEN CONSTANT VARCHAR2(200) := 'AMOUNT';
24594: CLOSE khr_type_csr;
24595:
24596: IF (INSTR( khr_type_rec.scs_code, 'LEASE') > 0) THEN
24597: execute_formula(p_api_version => 1.0,
24598: p_init_msg_list => OKL_API.G_TRUE,
24599: x_return_status => l_return_status,
24600: x_msg_count => l_msg_count,
24601: x_msg_data => l_msg_data,
24602: p_formula_name => 'LINE_CAP_AMNT',
24602: p_formula_name => 'LINE_CAP_AMNT',
24603: p_contract_id => p_khr_id,
24604: p_line_id => p_kle_id,
24605: x_value => x_asset_oec);
24606: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
24607: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
24608: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
24609: RAISE OKL_API.G_EXCEPTION_ERROR;
24610: END IF;
24603: p_contract_id => p_khr_id,
24604: p_line_id => p_kle_id,
24605: x_value => x_asset_oec);
24606: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
24607: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
24608: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
24609: RAISE OKL_API.G_EXCEPTION_ERROR;
24610: END IF;
24611:
24604: p_line_id => p_kle_id,
24605: x_value => x_asset_oec);
24606: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
24607: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
24608: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
24609: RAISE OKL_API.G_EXCEPTION_ERROR;
24610: END IF;
24611:
24612: x_start_date := khr_type_rec.start_date;
24605: x_value => x_asset_oec);
24606: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
24607: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
24608: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
24609: RAISE OKL_API.G_EXCEPTION_ERROR;
24610: END IF;
24611:
24612: x_start_date := khr_type_rec.start_date;
24613:
24622:
24623: End If;
24624:
24625: EXCEPTION
24626: WHEN OKL_API.G_EXCEPTION_ERROR THEN
24627: IF khr_type_csr%ISOPEN THEN
24628: CLOSE khr_type_csr;
24629: END IF;
24630: x_return_status := OKL_API.G_RET_STS_ERROR;
24626: WHEN OKL_API.G_EXCEPTION_ERROR THEN
24627: IF khr_type_csr%ISOPEN THEN
24628: CLOSE khr_type_csr;
24629: END IF;
24630: x_return_status := OKL_API.G_RET_STS_ERROR;
24631: WHEN OTHERS THEN
24632: IF khr_type_csr%ISOPEN THEN
24633: CLOSE khr_type_csr;
24634: END IF;
24631: WHEN OTHERS THEN
24632: IF khr_type_csr%ISOPEN THEN
24633: CLOSE khr_type_csr;
24634: END IF;
24635: x_return_status := OKL_API.G_RET_STS_ERROR;
24636:
24637: End get_so_asset_oec;
24638:
24639: -------------------------------------------------------------------------------------------------
24647: -- End of Commnets
24648: -------------------------------------------------------------------------------------------------
24649: PROCEDURE extract_params_so(
24650: p_api_version IN NUMBER,
24651: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
24652: p_chr_id IN OKC_K_HEADERS_B.ID%TYPE,
24653: p_cle_id IN OKC_K_LINES_B.ID%TYPE,
24654: x_return_status OUT NOCOPY VARCHAR2,
24655: x_msg_count OUT NOCOPY NUMBER,
25096: l_days_in_month_code OKL_ST_GEN_TMPT_SETS.days_in_month_code%type;
25097: l_days_in_yr_code OKL_ST_GEN_TMPT_SETS.days_in_yr_code%type;
25098:
25099: BEGIN
25100: x_return_status := OKL_API.G_RET_STS_SUCCESS;
25101: -- Call start_activity to create savepoint, check compatibility
25102: -- and initialize message list
25103: x_return_status := OKL_API.START_ACTIVITY (
25104: l_api_name
25099: BEGIN
25100: x_return_status := OKL_API.G_RET_STS_SUCCESS;
25101: -- Call start_activity to create savepoint, check compatibility
25102: -- and initialize message list
25103: x_return_status := OKL_API.START_ACTIVITY (
25104: l_api_name
25105: ,p_init_msg_list
25106: ,'_PVT'
25107: ,x_return_status);
25105: ,p_init_msg_list
25106: ,'_PVT'
25107: ,x_return_status);
25108: -- Check if activity started successfully
25109: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
25110: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
25111: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
25112: RAISE OKL_API.G_EXCEPTION_ERROR;
25113: END IF;
25106: ,'_PVT'
25107: ,x_return_status);
25108: -- Check if activity started successfully
25109: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
25110: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
25111: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
25112: RAISE OKL_API.G_EXCEPTION_ERROR;
25113: END IF;
25114: -- To get product id
25107: ,x_return_status);
25108: -- Check if activity started successfully
25109: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
25110: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
25111: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
25112: RAISE OKL_API.G_EXCEPTION_ERROR;
25113: END IF;
25114: -- To get product id
25115: OPEN l_hdr_pdt_csr(p_chr_id);
25108: -- Check if activity started successfully
25109: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
25110: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
25111: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
25112: RAISE OKL_API.G_EXCEPTION_ERROR;
25113: END IF;
25114: -- To get product id
25115: OPEN l_hdr_pdt_csr(p_chr_id);
25116: FETCH l_hdr_pdt_csr INTO l_pdt_id_rec;
25119: -- get Header info
25120: OPEN l_hdr_csr(p_chr_id);
25121: FETCH l_hdr_csr INTO l_hdr_rec;
25122: IF l_hdr_csr%NOTFOUND THEN
25123: okl_api.set_message(p_app_name => G_APP_NAME,
25124: p_msg_name => G_LLA_NO_MATCHING_RECORD,
25125: p_token1 => G_COL_NAME_TOKEN,
25126: p_token1_value => 'Contract id');
25127: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
25123: okl_api.set_message(p_app_name => G_APP_NAME,
25124: p_msg_name => G_LLA_NO_MATCHING_RECORD,
25125: p_token1 => G_COL_NAME_TOKEN,
25126: p_token1_value => 'Contract id');
25127: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
25128: END IF;
25129: CLOSE l_hdr_csr;
25130:
25131: --get day convention info : mansrini
25144: END IF;
25145:
25146: -- Validating the Deal type
25147: IF l_hdr_rec.deal_type IS NOT NULL OR
25148: l_hdr_rec.deal_type <> OKL_API.G_MISS_CHAR THEN
25149: l_deal_type := l_hdr_rec.deal_type;
25150: ELSE
25151: okl_api.set_message(p_app_name => G_APP_NAME,
25152: p_msg_name => G_REQUIRED_VALUE,
25147: IF l_hdr_rec.deal_type IS NOT NULL OR
25148: l_hdr_rec.deal_type <> OKL_API.G_MISS_CHAR THEN
25149: l_deal_type := l_hdr_rec.deal_type;
25150: ELSE
25151: okl_api.set_message(p_app_name => G_APP_NAME,
25152: p_msg_name => G_REQUIRED_VALUE,
25153: p_token1 => G_COL_NAME_TOKEN,
25154: p_token1_value => 'Deal_type');
25155: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
25151: okl_api.set_message(p_app_name => G_APP_NAME,
25152: p_msg_name => G_REQUIRED_VALUE,
25153: p_token1 => G_COL_NAME_TOKEN,
25154: p_token1_value => 'Deal_type');
25155: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
25156: END IF;
25157: IF l_deal_type IN ('LEASEDF','LEASEOP','LEASEST') THEN
25158: -- Get the Lease owner info
25159: OPEN l_hdrrl_csr('LATOWN', 'LATOWN',p_chr_id);
25158: -- Get the Lease owner info
25159: OPEN l_hdrrl_csr('LATOWN', 'LATOWN',p_chr_id);
25160: FETCH l_hdrrl_csr INTO l_hdrrl_rec;
25161: IF(l_hdrrl_csr%NOTFOUND) THEN
25162: okl_api.set_message(p_app_name => G_APP_NAME,
25163: p_msg_name => G_LLA_NO_MATCHING_RECORD,
25164: p_token1 => G_COL_NAME_TOKEN,
25165: p_token1_value => 'Contract id');
25166: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
25162: okl_api.set_message(p_app_name => G_APP_NAME,
25163: p_msg_name => G_LLA_NO_MATCHING_RECORD,
25164: p_token1 => G_COL_NAME_TOKEN,
25165: p_token1_value => 'Contract id');
25166: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
25167: ELSIF l_hdrrl_csr%FOUND THEN
25168: l_csm_lease_header.irs_tax_treatment_method := l_hdrrl_rec.RULE_INFORMATION1;
25169: -- Start of Bug#3388812 modification - BAKUCHIB
25170: l_lease_tax_owner := l_hdrrl_rec.RULE_INFORMATION1;
25172: END IF;
25173: CLOSE l_hdrrl_csr;
25174: -- Validating the Deal type
25175: IF l_hdr_rec.deal_type IS NOT NULL OR
25176: l_hdr_rec.deal_type <> OKL_API.G_MISS_CHAR THEN
25177: l_deal_type := l_hdr_rec.deal_type;
25178: ELSE
25179: l_csm_lease_header.irs_tax_treatment_method := 'LESSOR';
25180: END IF;
25197: -- Getting the install base location
25198: OPEN ib_csr(p_chr_id);
25199: FETCH ib_csr INTO l_ib_rec;
25200: IF ib_csr%NOTFOUND THEN
25201: okl_api.set_message(p_app_name => G_APP_NAME,
25202: p_msg_name => G_LLA_NO_MATCHING_RECORD,
25203: p_token1 => G_COL_NAME_TOKEN,
25204: p_token1_value => 'Contract id');
25205: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
25201: okl_api.set_message(p_app_name => G_APP_NAME,
25202: p_msg_name => G_LLA_NO_MATCHING_RECORD,
25203: p_token1 => G_COL_NAME_TOKEN,
25204: p_token1_value => 'Contract id');
25205: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
25206: END IF;
25207: CLOSE ib_csr;
25208: l_csm_lease_header.country := l_ib_rec.country;
25209: l_csm_lease_header.orp_code := OKL_CREATE_STREAMS_PUB.G_ORP_CODE_BOOKING;
25242: FROM okl_strm_type_tl
25243: WHERE LANGUAGE = 'US'
25244: AND name = 'RESIDUAL VALUE INSURANCE PREMIUM';
25245: IF styid = -1 THEN
25246: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
25247: END IF;
25248: */
25249: m := m + 1;
25250: l_csm_stream_types_tbl(m).stream_type_id := l_sty_id.id;
25273: OPEN get_org_id(p_chr_id => p_chr_id);
25274: FETCH get_org_id INTO ln_org_id,
25275: lv_currency_code;
25276: IF get_org_id%NOTFOUND THEN
25277: okl_api.set_message(p_app_name => G_APP_NAME,
25278: p_msg_name => G_LLA_NO_MATCHING_RECORD,
25279: p_token1 => G_COL_NAME_TOKEN,
25280: p_token1_value => 'Contract id');
25281: x_return_status := OKL_API.G_RET_STS_ERROR;
25277: okl_api.set_message(p_app_name => G_APP_NAME,
25278: p_msg_name => G_LLA_NO_MATCHING_RECORD,
25279: p_token1 => G_COL_NAME_TOKEN,
25280: p_token1_value => 'Contract id');
25281: x_return_status := OKL_API.G_RET_STS_ERROR;
25282: END IF;
25283: CLOSE get_org_id;
25284: --Bug 4346646 - End of Changes
25285:
25302: p_formula_name => 'LINE_CAP_AMNT',
25303: p_contract_id => p_chr_id,
25304: p_line_id => l_line_rec.id,
25305: x_value => l_value);
25306: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
25307: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
25308: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
25309: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
25310: END IF;
25303: p_contract_id => p_chr_id,
25304: p_line_id => l_line_rec.id,
25305: x_value => l_value);
25306: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
25307: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
25308: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
25309: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
25310: END IF;
25311: -- Get line Trade in
25304: p_line_id => l_line_rec.id,
25305: x_value => l_value);
25306: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
25307: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
25308: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
25309: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
25310: END IF;
25311: -- Get line Trade in
25312: execute_formula(p_api_version => p_api_version,
25305: x_value => l_value);
25306: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
25307: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
25308: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
25309: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
25310: END IF;
25311: -- Get line Trade in
25312: execute_formula(p_api_version => p_api_version,
25313: p_init_msg_list => p_init_msg_list,
25317: p_formula_name => 'LINE_TRADEIN',
25318: p_contract_id => p_chr_id,
25319: p_line_id => l_line_rec.id,
25320: x_value => l_tradein);
25321: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
25322: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
25323: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
25324: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
25325: END IF;
25318: p_contract_id => p_chr_id,
25319: p_line_id => l_line_rec.id,
25320: x_value => l_tradein);
25321: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
25322: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
25323: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
25324: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
25325: END IF;
25326: -- Get line cap Reduction
25319: p_line_id => l_line_rec.id,
25320: x_value => l_tradein);
25321: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
25322: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
25323: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
25324: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
25325: END IF;
25326: -- Get line cap Reduction
25327: execute_formula(p_api_version => p_api_version,
25320: x_value => l_tradein);
25321: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
25322: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
25323: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
25324: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
25325: END IF;
25326: -- Get line cap Reduction
25327: execute_formula(p_api_version => p_api_version,
25328: p_init_msg_list => p_init_msg_list,
25332: p_formula_name => 'LINE_CAPREDUCTION',
25333: p_contract_id => p_chr_id,
25334: p_line_id => l_line_rec.id,
25335: x_value => l_capreduc);
25336: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
25337: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
25338: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
25339: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
25340: END IF;
25333: p_contract_id => p_chr_id,
25334: p_line_id => l_line_rec.id,
25335: x_value => l_capreduc);
25336: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
25337: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
25338: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
25339: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
25340: END IF;
25341: -- Get line Fee Capilitized
25334: p_line_id => l_line_rec.id,
25335: x_value => l_capreduc);
25336: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
25337: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
25338: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
25339: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
25340: END IF;
25341: -- Get line Fee Capilitized
25342: execute_formula(p_api_version => p_api_version,
25335: x_value => l_capreduc);
25336: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
25337: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
25338: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
25339: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
25340: END IF;
25341: -- Get line Fee Capilitized
25342: execute_formula(p_api_version => p_api_version,
25343: p_init_msg_list => p_init_msg_list,
25347: p_formula_name => 'LINE_FEESCAPITALIZED',
25348: p_contract_id => p_chr_id,
25349: p_line_id => l_line_rec.id,
25350: x_value => l_feecap);
25351: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
25352: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
25353: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
25354: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
25355: END IF;
25348: p_contract_id => p_chr_id,
25349: p_line_id => l_line_rec.id,
25350: x_value => l_feecap);
25351: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
25352: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
25353: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
25354: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
25355: END IF;
25356: -- Get line Capitalized Interest
25349: p_line_id => l_line_rec.id,
25350: x_value => l_feecap);
25351: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
25352: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
25353: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
25354: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
25355: END IF;
25356: -- Get line Capitalized Interest
25357: execute_formula(p_api_version => p_api_version,
25350: x_value => l_feecap);
25351: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
25352: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
25353: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
25354: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
25355: END IF;
25356: -- Get line Capitalized Interest
25357: execute_formula(p_api_version => p_api_version,
25358: p_init_msg_list => p_init_msg_list,
25362: p_formula_name => 'LINE_CAPITALIZED_INTEREST',
25363: p_contract_id => p_chr_id,
25364: p_line_id => l_line_rec.id,
25365: x_value => l_capint);
25366: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
25367: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
25368: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
25369: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
25370: END IF;
25363: p_contract_id => p_chr_id,
25364: p_line_id => l_line_rec.id,
25365: x_value => l_capint);
25366: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
25367: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
25368: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
25369: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
25370: END IF;
25371: -- Get line Discount
25364: p_line_id => l_line_rec.id,
25365: x_value => l_capint);
25366: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
25367: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
25368: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
25369: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
25370: END IF;
25371: -- Get line Discount
25372: execute_formula(p_api_version => p_api_version,
25365: x_value => l_capint);
25366: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
25367: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
25368: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
25369: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
25370: END IF;
25371: -- Get line Discount
25372: execute_formula(p_api_version => p_api_version,
25373: p_init_msg_list => p_init_msg_list,
25377: p_formula_name => 'LINE_DISCOUNT',
25378: p_contract_id => p_chr_id,
25379: p_line_id => l_line_rec.id,
25380: x_value => l_discount);
25381: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
25382: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
25383: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
25384: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
25385: END IF;
25378: p_contract_id => p_chr_id,
25379: p_line_id => l_line_rec.id,
25380: x_value => l_discount);
25381: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
25382: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
25383: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
25384: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
25385: END IF;
25386: IF l_line_rec.residual_value IS NULL THEN
25379: p_line_id => l_line_rec.id,
25380: x_value => l_discount);
25381: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
25382: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
25383: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
25384: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
25385: END IF;
25386: IF l_line_rec.residual_value IS NULL THEN
25387: l_csm_line_details_tbl(i).residual_amount := 0;
25380: x_value => l_discount);
25381: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
25382: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
25383: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
25384: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
25385: END IF;
25386: IF l_line_rec.residual_value IS NULL THEN
25387: l_csm_line_details_tbl(i).residual_amount := 0;
25388: ELSE
25394: l_csm_line_details_tbl(i).date_delivery := l_line_rec.delivered_date;
25395: END IF;
25396: l_csm_line_details_tbl(i).residual_guarantee_amount := l_line_rec.residual_grnty_amount;
25397: IF l_line_rec.residual_grnty_amount IS NOT NULL OR
25398: l_line_rec.residual_grnty_amount <> OKL_API.G_MISS_NUM THEN
25399: l_csm_line_details_tbl(i).guarantee_type := l_line_rec.guarantee_type;
25400: END IF;
25401: --smahapat changed 03/13/04
25402: --cannot support until field populated by authoring since field mandatory
25417: -- Book Depreciation Stream info
25418: OPEN l_tx_csr(l_line_rec.name );
25419: FETCH l_tx_csr into l_tx_rec;
25420: IF l_tx_csr%NOTFOUND THEN
25421: OKL_API.set_message(p_app_name => G_APP_NAME,
25422: p_msg_name => G_LLA_NO_MATCHING_RECORD,
25423: p_token1 => G_COL_NAME_TOKEN,
25424: p_token1_value => l_line_rec.name);
25425: x_return_status := OKL_API.G_RET_STS_ERROR;
25421: OKL_API.set_message(p_app_name => G_APP_NAME,
25422: p_msg_name => G_LLA_NO_MATCHING_RECORD,
25423: p_token1 => G_COL_NAME_TOKEN,
25424: p_token1_value => l_line_rec.name);
25425: x_return_status := OKL_API.G_RET_STS_ERROR;
25426: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
25427: END IF;
25428: CLOSE l_tx_csr;
25429: -- Now we are determing the Basis percent for the corp book
25422: p_msg_name => G_LLA_NO_MATCHING_RECORD,
25423: p_token1 => G_COL_NAME_TOKEN,
25424: p_token1_value => l_line_rec.name);
25425: x_return_status := OKL_API.G_RET_STS_ERROR;
25426: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
25427: END IF;
25428: CLOSE l_tx_csr;
25429: -- Now we are determing the Basis percent for the corp book
25430: -- Basis percent = Depreciable Cost (for each asset defined corp book)
25492: /*
25493: OPEN l_strmid_csr('BOOK DEPRECIATION');
25494: FETCH l_strmid_csr into l_strmid_rec;
25495: IF l_strmid_csr%NOTFOUND THEN
25496: OKL_API.set_message(p_app_name => G_APP_NAME,
25497: p_msg_name => G_LLA_NO_MATCHING_RECORD,
25498: p_token1 => G_COL_NAME_TOKEN,
25499: p_token1_value => 'BOOK DEPRECIATION');
25500: x_return_status := OKL_API.G_RET_STS_ERROR;
25496: OKL_API.set_message(p_app_name => G_APP_NAME,
25497: p_msg_name => G_LLA_NO_MATCHING_RECORD,
25498: p_token1 => G_COL_NAME_TOKEN,
25499: p_token1_value => 'BOOK DEPRECIATION');
25500: x_return_status := OKL_API.G_RET_STS_ERROR;
25501: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
25502: END IF;
25503: CLOSE l_strmid_csr;
25504: */
25497: p_msg_name => G_LLA_NO_MATCHING_RECORD,
25498: p_token1 => G_COL_NAME_TOKEN,
25499: p_token1_value => 'BOOK DEPRECIATION');
25500: x_return_status := OKL_API.G_RET_STS_ERROR;
25501: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
25502: END IF;
25503: CLOSE l_strmid_csr;
25504: */
25505: -- Added code ends here - HKPATEL
25591: /*
25592: OPEN l_strmid_csr('FEDERAL DEPRECIATION');
25593: FETCH l_strmid_csr into l_strmid_rec;
25594: IF l_strmid_csr%NOTFOUND THEN
25595: OKL_API.set_message(p_app_name => G_APP_NAME,
25596: p_msg_name => G_LLA_NO_MATCHING_RECORD,
25597: p_token1 => G_COL_NAME_TOKEN,
25598: p_token1_value => 'FEDERAL DEPRECIATION');
25599: x_return_status := OKL_API.G_RET_STS_ERROR;
25595: OKL_API.set_message(p_app_name => G_APP_NAME,
25596: p_msg_name => G_LLA_NO_MATCHING_RECORD,
25597: p_token1 => G_COL_NAME_TOKEN,
25598: p_token1_value => 'FEDERAL DEPRECIATION');
25599: x_return_status := OKL_API.G_RET_STS_ERROR;
25600: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
25601: END IF;
25602: CLOSE l_strmid_csr;
25603: */
25596: p_msg_name => G_LLA_NO_MATCHING_RECORD,
25597: p_token1 => G_COL_NAME_TOKEN,
25598: p_token1_value => 'FEDERAL DEPRECIATION');
25599: x_return_status := OKL_API.G_RET_STS_ERROR;
25600: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
25601: END IF;
25602: CLOSE l_strmid_csr;
25603: */
25604: l_csm_stream_types_tbl(m).stream_type_id := l_sty_id.id;
25644: /*
25645: OPEN l_strmid_csr('STATE DEPRECIATION');
25646: FETCH l_strmid_csr into l_strmid_rec;
25647: IF l_strmid_csr%NOTFOUND THEN
25648: OKL_API.set_message(p_app_name => G_APP_NAME,
25649: p_msg_name => G_LLA_NO_MATCHING_RECORD,
25650: p_token1 => G_COL_NAME_TOKEN,
25651: p_token1_value => 'STATE DEPRECIATION');
25652: x_return_status := OKL_API.G_RET_STS_ERROR;
25648: OKL_API.set_message(p_app_name => G_APP_NAME,
25649: p_msg_name => G_LLA_NO_MATCHING_RECORD,
25650: p_token1 => G_COL_NAME_TOKEN,
25651: p_token1_value => 'STATE DEPRECIATION');
25652: x_return_status := OKL_API.G_RET_STS_ERROR;
25653: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
25654: END IF;
25655: CLOSE l_strmid_csr;
25656: */
25649: p_msg_name => G_LLA_NO_MATCHING_RECORD,
25650: p_token1 => G_COL_NAME_TOKEN,
25651: p_token1_value => 'STATE DEPRECIATION');
25652: x_return_status := OKL_API.G_RET_STS_ERROR;
25653: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
25654: END IF;
25655: CLOSE l_strmid_csr;
25656: */
25657: l_csm_stream_types_tbl(m).stream_type_id := l_sty_id.id;
25659: l_csm_stream_types_tbl(m).kle_asset_id := l_line_rec.id;
25660: END IF;
25661: END IF;
25662: END LOOP;
25663: IF x_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
25664: EXIT WHEN(x_return_status <> OKL_API.G_RET_STS_SUCCESS);
25665: END IF;
25666: END LOOP;
25667: IF x_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
25660: END IF;
25661: END IF;
25662: END LOOP;
25663: IF x_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
25664: EXIT WHEN(x_return_status <> OKL_API.G_RET_STS_SUCCESS);
25665: END IF;
25666: END LOOP;
25667: IF x_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
25668: EXIT WHEN(x_return_status <> OKL_API.G_RET_STS_SUCCESS);
25663: IF x_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
25664: EXIT WHEN(x_return_status <> OKL_API.G_RET_STS_SUCCESS);
25665: END IF;
25666: END LOOP;
25667: IF x_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
25668: EXIT WHEN(x_return_status <> OKL_API.G_RET_STS_SUCCESS);
25669: END IF;
25670: END LOOP;
25671: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
25664: EXIT WHEN(x_return_status <> OKL_API.G_RET_STS_SUCCESS);
25665: END IF;
25666: END LOOP;
25667: IF x_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
25668: EXIT WHEN(x_return_status <> OKL_API.G_RET_STS_SUCCESS);
25669: END IF;
25670: END LOOP;
25671: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
25672: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
25667: IF x_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
25668: EXIT WHEN(x_return_status <> OKL_API.G_RET_STS_SUCCESS);
25669: END IF;
25670: END LOOP;
25671: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
25672: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
25673: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
25674: RAISE OKL_API.G_EXCEPTION_ERROR;
25675: END IF;
25668: EXIT WHEN(x_return_status <> OKL_API.G_RET_STS_SUCCESS);
25669: END IF;
25670: END LOOP;
25671: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
25672: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
25673: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
25674: RAISE OKL_API.G_EXCEPTION_ERROR;
25675: END IF;
25676: -- WE should deal with so Payment line differently
25669: END IF;
25670: END LOOP;
25671: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
25672: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
25673: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
25674: RAISE OKL_API.G_EXCEPTION_ERROR;
25675: END IF;
25676: -- WE should deal with so Payment line differently
25677: -- Getting the payment information of the asset
25670: END LOOP;
25671: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
25672: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
25673: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
25674: RAISE OKL_API.G_EXCEPTION_ERROR;
25675: END IF;
25676: -- WE should deal with so Payment line differently
25677: -- Getting the payment information of the asset
25678: FOR l_so_line_rec IN l_so_line_rec_csr (p_chr_id,p_cle_id) LOOP
25680: l_level_type := l_rl_rec1.object1_id1;
25681: OPEN strm_name_csr ( l_level_type );
25682: FETCH strm_name_csr into l_strm_name_rec;
25683: IF strm_name_csr%NOTFOUND THEN
25684: OKL_API.set_message(p_app_name => G_APP_NAME,
25685: p_msg_name => G_LLA_NO_MATCHING_RECORD,
25686: p_token1 => G_COL_NAME_TOKEN,
25687: p_token1_value => 'Stream Id');
25688: x_return_status := OKL_API.G_RET_STS_ERROR;
25684: OKL_API.set_message(p_app_name => G_APP_NAME,
25685: p_msg_name => G_LLA_NO_MATCHING_RECORD,
25686: p_token1 => G_COL_NAME_TOKEN,
25687: p_token1_value => 'Stream Id');
25688: x_return_status := OKL_API.G_RET_STS_ERROR;
25689: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
25690: END IF;
25691: CLOSE strm_name_csr;
25692: l_strm_name := l_strm_name_rec.stream_type_purpose;
25685: p_msg_name => G_LLA_NO_MATCHING_RECORD,
25686: p_token1 => G_COL_NAME_TOKEN,
25687: p_token1_value => 'Stream Id');
25688: x_return_status := OKL_API.G_RET_STS_ERROR;
25689: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
25690: END IF;
25691: CLOSE strm_name_csr;
25692: l_strm_name := l_strm_name_rec.stream_type_purpose;
25693: m := m + 1;
25696: idx := 0;
25697: IF( UPPER(TRIM(l_strm_name)) = 'RENT' ) THEN
25698: FOR l_rl_rec in l_rl_csr (l_rl_rec1.slh_id, 'LALEVL', 'LASLL', p_chr_id, l_so_line_rec.id ) LOOP
25699: IF (l_rl_rec.rule_information7 IS NOT NULL OR
25700: l_rl_rec.rule_information7 <> OKL_API.G_MISS_CHAR) AND
25701: (l_rl_rec.rule_information8 IS NOT NULL OR
25702: l_rl_rec.rule_information8 <> OKL_API.G_MISS_CHAR) THEN
25703: j := j + 1;
25704: idx := idx + 1;
25698: FOR l_rl_rec in l_rl_csr (l_rl_rec1.slh_id, 'LALEVL', 'LASLL', p_chr_id, l_so_line_rec.id ) LOOP
25699: IF (l_rl_rec.rule_information7 IS NOT NULL OR
25700: l_rl_rec.rule_information7 <> OKL_API.G_MISS_CHAR) AND
25701: (l_rl_rec.rule_information8 IS NOT NULL OR
25702: l_rl_rec.rule_information8 <> OKL_API.G_MISS_CHAR) THEN
25703: j := j + 1;
25704: idx := idx + 1;
25705: l_rents_tbl(j).level_index_number := idx;
25706: l_rents_tbl(j).amount := TO_NUMBER(l_rl_rec.rule_information8);
25728: END IF;
25729: -- Bug 4915938 - End of Changes
25730:
25731: ELSIF (l_rl_rec.rule_information7 IS NULL OR
25732: l_rl_rec.rule_information7 = OKL_API.G_MISS_CHAR) AND
25733: (l_rl_rec.rule_information8 IS NULL OR
25734: l_rl_rec.rule_information8 = OKL_API.G_MISS_CHAR) THEN
25735: j := j + 1;
25736: idx := idx + 1;
25730:
25731: ELSIF (l_rl_rec.rule_information7 IS NULL OR
25732: l_rl_rec.rule_information7 = OKL_API.G_MISS_CHAR) AND
25733: (l_rl_rec.rule_information8 IS NULL OR
25734: l_rl_rec.rule_information8 = OKL_API.G_MISS_CHAR) THEN
25735: j := j + 1;
25736: idx := idx + 1;
25737: l_rents_tbl(j).level_index_number := idx;
25738: l_rents_tbl(j).level_type := OKL_CREATE_STREAMS_PUB.G_SFE_LEVEL_PAYMENT;
25751: l_rents_tbl(j).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ARREARS;
25752: ELSE
25753: l_rents_tbl(j).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ADVANCE;
25754: END IF;
25755: IF(l_rl_rec.RULE_INFORMATION2 IS NULL or l_rl_rec.RULE_INFORMATION2 = OKL_API.G_MISS_CHAR) Then
25756: l_rents_tbl(j).date_start := l_hdr_rec.start_date;
25757: ELSE
25758: l_rents_tbl(j).date_start := FND_DATE.canonical_to_date(l_rl_rec.RULE_INFORMATION2);
25759: END IF;
25771: ln_diff_days := ld_chr_end_date - ld_last_end_date;
25772: END IF;
25773: CLOSE c_diff_days_csr;
25774: IF SIGN(ln_diff_days) = -1 THEN
25775: OKL_API.set_message(p_app_name => G_APP_NAME,
25776: p_msg_name => G_INVALID_VALUE,
25777: p_token1 => G_COL_NAME_TOKEN,
25778: p_token1_value => 'Diffrence End date');
25779: x_return_status := OKL_API.G_RET_STS_ERROR;
25775: OKL_API.set_message(p_app_name => G_APP_NAME,
25776: p_msg_name => G_INVALID_VALUE,
25777: p_token1 => G_COL_NAME_TOKEN,
25778: p_token1_value => 'Diffrence End date');
25779: x_return_status := OKL_API.G_RET_STS_ERROR;
25780: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
25781: END IF;
25782: -- If there is diff in days then an empty stub will be appended
25783: IF ln_diff_days > 0 AND
25776: p_msg_name => G_INVALID_VALUE,
25777: p_token1 => G_COL_NAME_TOKEN,
25778: p_token1_value => 'Diffrence End date');
25779: x_return_status := OKL_API.G_RET_STS_ERROR;
25780: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
25781: END IF;
25782: -- If there is diff in days then an empty stub will be appended
25783: IF ln_diff_days > 0 AND
25784: ld_last_start_date = FND_DATE.canonical_to_date(l_rl_rec.rule_information2) THEN
25817: ((l_strm_name_rec.periodic_yn = 'Y' ) AND
25818: (UPPER(l_strm_name_rec.name) <> 'FEE'))) THEN
25819: FOR l_rl_rec IN l_rl_csr (l_rl_rec1.slh_id, 'LALEVL', 'LASLL', p_chr_id, l_so_line_rec.id) LOOP
25820: IF (l_rl_rec.rule_information7 IS NOT NULL OR
25821: l_rl_rec.rule_information7 <> OKL_API.G_MISS_CHAR) AND
25822: (l_rl_rec.rule_information8 IS NOT NULL OR
25823: l_rl_rec.rule_information8 <> OKL_API.G_MISS_CHAR) THEN
25824: k := k + 1;
25825: idx := idx + 1;
25819: FOR l_rl_rec IN l_rl_csr (l_rl_rec1.slh_id, 'LALEVL', 'LASLL', p_chr_id, l_so_line_rec.id) LOOP
25820: IF (l_rl_rec.rule_information7 IS NOT NULL OR
25821: l_rl_rec.rule_information7 <> OKL_API.G_MISS_CHAR) AND
25822: (l_rl_rec.rule_information8 IS NOT NULL OR
25823: l_rl_rec.rule_information8 <> OKL_API.G_MISS_CHAR) THEN
25824: k := k + 1;
25825: idx := idx + 1;
25826: l_csm_periodic_expenses_tbl(k).level_index_number := idx;
25827: l_csm_periodic_expenses_tbl(k).amount := TO_NUMBER(l_rl_rec.rule_information8);
25849: END IF;
25850: -- Bug 4915938 - End of Changes
25851:
25852: ELSIF (l_rl_rec.rule_information7 IS NULL OR
25853: l_rl_rec.rule_information7 = OKL_API.G_MISS_CHAR) AND
25854: (l_rl_rec.rule_information8 IS NULL OR
25855: l_rl_rec.rule_information8 = OKL_API.G_MISS_CHAR) THEN
25856: k := k + 1;
25857: idx := idx + 1;
25851:
25852: ELSIF (l_rl_rec.rule_information7 IS NULL OR
25853: l_rl_rec.rule_information7 = OKL_API.G_MISS_CHAR) AND
25854: (l_rl_rec.rule_information8 IS NULL OR
25855: l_rl_rec.rule_information8 = OKL_API.G_MISS_CHAR) THEN
25856: k := k + 1;
25857: idx := idx + 1;
25858: l_csm_periodic_expenses_tbl(k).level_index_number := idx;
25859: l_csm_periodic_expenses_tbl(k).level_type := OKL_CREATE_STREAMS_PUB.G_SFE_LEVEL_PAYMENT;
25873: l_csm_periodic_expenses_tbl(k).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ARREARS;
25874: ELSE
25875: l_csm_periodic_expenses_tbl(k).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ADVANCE;
25876: END IF;
25877: IF(l_rl_rec.RULE_INFORMATION2 IS NULL or l_rl_rec.RULE_INFORMATION2 = OKL_API.G_MISS_CHAR) THEN
25878: l_csm_periodic_expenses_tbl(k).date_start := l_hdr_rec.start_date;
25879: ELSE
25880: l_csm_periodic_expenses_tbl(k).date_start := FND_DATE.canonical_to_date(l_rl_rec.RULE_INFORMATION2);
25881: END IF;
25886: l := l + 1;
25887: l_csm_one_off_fee_tbl(l).description := l_strm_name_rec.name;
25888: l_csm_one_off_fee_tbl(l).income_or_expense := OKL_CREATE_STREAMS_PUB.G_INCOME;
25889: l_csm_one_off_fee_tbl(l).amount := FND_NUMBER.canonical_to_number(nvl(l_rl_rec.RULE_INFORMATION6,'0'));
25890: IF (l_rl_rec.RULE_INFORMATION2 IS NULL OR l_rl_rec.RULE_INFORMATION2 = OKL_API.G_MISS_CHAR) THEN
25891: l_csm_one_off_fee_tbl(l).date_paid := l_hdr_rec.start_date;
25892: ELSE
25893: l_csm_one_off_fee_tbl(l).date_paid := FND_DATE.canonical_to_date(l_rl_rec.RULE_INFORMATION2);
25894: END IF;
25896: END LOOP;
25897: END IF;
25898: END LOOP;
25899: END LOOP;
25900: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
25901: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
25902: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
25903: RAISE OKL_API.G_EXCEPTION_ERROR;
25904: END IF;
25897: END IF;
25898: END LOOP;
25899: END LOOP;
25900: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
25901: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
25902: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
25903: RAISE OKL_API.G_EXCEPTION_ERROR;
25904: END IF;
25905: -- Extracting the fee lines
25898: END LOOP;
25899: END LOOP;
25900: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
25901: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
25902: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
25903: RAISE OKL_API.G_EXCEPTION_ERROR;
25904: END IF;
25905: -- Extracting the fee lines
25906: extract_fee_lines( p_api_version => p_api_version,
25899: END LOOP;
25900: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
25901: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
25902: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
25903: RAISE OKL_API.G_EXCEPTION_ERROR;
25904: END IF;
25905: -- Extracting the fee lines
25906: extract_fee_lines( p_api_version => p_api_version,
25907: p_chr_id => p_chr_id,
25912: x_msg_data => x_msg_data,
25913: px_csm_stream_types_tbl => l_csm_stream_types_tbl,
25914: px_csm_one_off_fee_tbl => l_csm_one_off_fee_tbl,
25915: px_csm_periodic_expenses_tbl => l_csm_periodic_expenses_tbl);
25916: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
25917: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
25918: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
25919: RAISE OKL_API.G_EXCEPTION_ERROR;
25920: END IF;
25913: px_csm_stream_types_tbl => l_csm_stream_types_tbl,
25914: px_csm_one_off_fee_tbl => l_csm_one_off_fee_tbl,
25915: px_csm_periodic_expenses_tbl => l_csm_periodic_expenses_tbl);
25916: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
25917: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
25918: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
25919: RAISE OKL_API.G_EXCEPTION_ERROR;
25920: END IF;
25921: -- Check for Mandatory streams
25914: px_csm_one_off_fee_tbl => l_csm_one_off_fee_tbl,
25915: px_csm_periodic_expenses_tbl => l_csm_periodic_expenses_tbl);
25916: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
25917: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
25918: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
25919: RAISE OKL_API.G_EXCEPTION_ERROR;
25920: END IF;
25921: -- Check for Mandatory streams
25922: check_for_mandatory_streams(
25915: px_csm_periodic_expenses_tbl => l_csm_periodic_expenses_tbl);
25916: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
25917: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
25918: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
25919: RAISE OKL_API.G_EXCEPTION_ERROR;
25920: END IF;
25921: -- Check for Mandatory streams
25922: check_for_mandatory_streams(
25923: p_api_version => p_api_version,
25928: p_chr_id => p_chr_id,
25929: p_deal_type => l_deal_type,
25930: p_stream_types_tbl => l_csm_stream_types_tbl,
25931: x_stream_types_tbl => l_req_stream_types_tbl);
25932: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
25933: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
25934: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
25935: RAISE OKL_API.G_EXCEPTION_ERROR;
25936: END IF;
25929: p_deal_type => l_deal_type,
25930: p_stream_types_tbl => l_csm_stream_types_tbl,
25931: x_stream_types_tbl => l_req_stream_types_tbl);
25932: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
25933: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
25934: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
25935: RAISE OKL_API.G_EXCEPTION_ERROR;
25936: END IF;
25937: -- Requesting for yields
25930: p_stream_types_tbl => l_csm_stream_types_tbl,
25931: x_stream_types_tbl => l_req_stream_types_tbl);
25932: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
25933: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
25934: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
25935: RAISE OKL_API.G_EXCEPTION_ERROR;
25936: END IF;
25937: -- Requesting for yields
25938: x_return_status := yield_request(x_csm_yields_tbl => l_csm_yields_tbl);
25931: x_stream_types_tbl => l_req_stream_types_tbl);
25932: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
25933: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
25934: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
25935: RAISE OKL_API.G_EXCEPTION_ERROR;
25936: END IF;
25937: -- Requesting for yields
25938: x_return_status := yield_request(x_csm_yields_tbl => l_csm_yields_tbl);
25939: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
25935: RAISE OKL_API.G_EXCEPTION_ERROR;
25936: END IF;
25937: -- Requesting for yields
25938: x_return_status := yield_request(x_csm_yields_tbl => l_csm_yields_tbl);
25939: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
25940: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
25941: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
25942: RAISE OKL_API.G_EXCEPTION_ERROR;
25943: END IF;
25936: END IF;
25937: -- Requesting for yields
25938: x_return_status := yield_request(x_csm_yields_tbl => l_csm_yields_tbl);
25939: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
25940: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
25941: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
25942: RAISE OKL_API.G_EXCEPTION_ERROR;
25943: END IF;
25944: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
25937: -- Requesting for yields
25938: x_return_status := yield_request(x_csm_yields_tbl => l_csm_yields_tbl);
25939: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
25940: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
25941: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
25942: RAISE OKL_API.G_EXCEPTION_ERROR;
25943: END IF;
25944: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
25945: okl_api.set_message(p_app_name => G_APP_NAME,
25938: x_return_status := yield_request(x_csm_yields_tbl => l_csm_yields_tbl);
25939: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
25940: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
25941: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
25942: RAISE OKL_API.G_EXCEPTION_ERROR;
25943: END IF;
25944: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
25945: okl_api.set_message(p_app_name => G_APP_NAME,
25946: p_msg_name => 'OKL_LLA_REPSTRMS_EXTR_FAILED');
25940: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
25941: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
25942: RAISE OKL_API.G_EXCEPTION_ERROR;
25943: END IF;
25944: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
25945: okl_api.set_message(p_app_name => G_APP_NAME,
25946: p_msg_name => 'OKL_LLA_REPSTRMS_EXTR_FAILED');
25947: RAISE OKL_API.G_EXCEPTION_ERROR;
25948: END IF;
25941: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
25942: RAISE OKL_API.G_EXCEPTION_ERROR;
25943: END IF;
25944: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
25945: okl_api.set_message(p_app_name => G_APP_NAME,
25946: p_msg_name => 'OKL_LLA_REPSTRMS_EXTR_FAILED');
25947: RAISE OKL_API.G_EXCEPTION_ERROR;
25948: END IF;
25949: -- Call to extraction SUBSIDY line API
25943: END IF;
25944: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
25945: okl_api.set_message(p_app_name => G_APP_NAME,
25946: p_msg_name => 'OKL_LLA_REPSTRMS_EXTR_FAILED');
25947: RAISE OKL_API.G_EXCEPTION_ERROR;
25948: END IF;
25949: -- Call to extraction SUBSIDY line API
25950: extract_subsidized_lines(p_api_version => p_api_version,
25951: p_init_msg_list => p_init_msg_list,
25953: x_msg_count => x_msg_count,
25954: x_msg_data => x_msg_data,
25955: p_chr_id => p_chr_id,
25956: px_csm_one_off_fee_tbl => l_csm_one_off_fee_tbl);
25957: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
25958: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
25959: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
25960: RAISE OKL_API.G_EXCEPTION_ERROR;
25961: END IF;
25954: x_msg_data => x_msg_data,
25955: p_chr_id => p_chr_id,
25956: px_csm_one_off_fee_tbl => l_csm_one_off_fee_tbl);
25957: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
25958: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
25959: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
25960: RAISE OKL_API.G_EXCEPTION_ERROR;
25961: END IF;
25962: x_csm_lease_header := l_csm_lease_header;
25955: p_chr_id => p_chr_id,
25956: px_csm_one_off_fee_tbl => l_csm_one_off_fee_tbl);
25957: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
25958: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
25959: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
25960: RAISE OKL_API.G_EXCEPTION_ERROR;
25961: END IF;
25962: x_csm_lease_header := l_csm_lease_header;
25963: x_csm_one_off_fee_tbl := l_csm_one_off_fee_tbl;
25956: px_csm_one_off_fee_tbl => l_csm_one_off_fee_tbl);
25957: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
25958: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
25959: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
25960: RAISE OKL_API.G_EXCEPTION_ERROR;
25961: END IF;
25962: x_csm_lease_header := l_csm_lease_header;
25963: x_csm_one_off_fee_tbl := l_csm_one_off_fee_tbl;
25964: x_csm_periodic_expenses_tbl := l_csm_periodic_expenses_tbl;
25965: x_csm_yields_tbl := l_csm_yields_tbl;
25966: x_req_stream_types_tbl := l_req_stream_types_tbl;
25967: x_csm_line_details_tbl := l_csm_line_details_tbl;
25968: x_rents_tbl := l_rents_tbl;
25969: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
25970: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
25971: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
25972: RAISE OKL_API.G_EXCEPTION_ERROR;
25973: END IF;
25966: x_req_stream_types_tbl := l_req_stream_types_tbl;
25967: x_csm_line_details_tbl := l_csm_line_details_tbl;
25968: x_rents_tbl := l_rents_tbl;
25969: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
25970: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
25971: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
25972: RAISE OKL_API.G_EXCEPTION_ERROR;
25973: END IF;
25974: ELSIF l_deal_type = 'LOAN' THEN
25967: x_csm_line_details_tbl := l_csm_line_details_tbl;
25968: x_rents_tbl := l_rents_tbl;
25969: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
25970: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
25971: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
25972: RAISE OKL_API.G_EXCEPTION_ERROR;
25973: END IF;
25974: ELSIF l_deal_type = 'LOAN' THEN
25975: FOR l_line_rec in l_line_rec_csr ( p_chr_id ,'FREE_FORM1') LOOP
25968: x_rents_tbl := l_rents_tbl;
25969: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
25970: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
25971: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
25972: RAISE OKL_API.G_EXCEPTION_ERROR;
25973: END IF;
25974: ELSIF l_deal_type = 'LOAN' THEN
25975: FOR l_line_rec in l_line_rec_csr ( p_chr_id ,'FREE_FORM1') LOOP
25976: l_tot_asset_oec := l_tot_asset_oec + l_line_rec.oec;
25983: -- Getting the install base location
25984: OPEN ib_csr(p_chr_id);
25985: FETCH ib_csr INTO l_ib_rec;
25986: IF ib_csr%NOTFOUND THEN
25987: okl_api.set_message(p_app_name => G_APP_NAME,
25988: p_msg_name => G_LLA_NO_MATCHING_RECORD,
25989: p_token1 => G_COL_NAME_TOKEN,
25990: p_token1_value => 'Contract id');
25991: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
25987: okl_api.set_message(p_app_name => G_APP_NAME,
25988: p_msg_name => G_LLA_NO_MATCHING_RECORD,
25989: p_token1 => G_COL_NAME_TOKEN,
25990: p_token1_value => 'Contract id');
25991: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
25992: END IF;
25993: CLOSE ib_csr;
25994: l_csm_loan_header.khr_id := p_chr_id;
25995: l_csm_loan_header.date_payments_commencement := l_hdr_rec.start_date;
26008: l_level_type := l_rl_rec1.object1_id1;
26009: OPEN strm_name_csr ( l_level_type );
26010: FETCH strm_name_csr into l_strm_name_rec;
26011: IF strm_name_csr%NOTFOUND THEN
26012: OKL_API.set_message(p_app_name => G_APP_NAME,
26013: p_msg_name => G_LLA_NO_MATCHING_RECORD,
26014: p_token1 => G_COL_NAME_TOKEN,
26015: p_token1_value => 'Stream Id');
26016: x_return_status := OKL_API.G_RET_STS_ERROR;
26012: OKL_API.set_message(p_app_name => G_APP_NAME,
26013: p_msg_name => G_LLA_NO_MATCHING_RECORD,
26014: p_token1 => G_COL_NAME_TOKEN,
26015: p_token1_value => 'Stream Id');
26016: x_return_status := OKL_API.G_RET_STS_ERROR;
26017: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
26018: END IF;
26019: CLOSE strm_name_csr;
26020: l_strm_name := l_strm_name_rec.stream_type_purpose;
26013: p_msg_name => G_LLA_NO_MATCHING_RECORD,
26014: p_token1 => G_COL_NAME_TOKEN,
26015: p_token1_value => 'Stream Id');
26016: x_return_status := OKL_API.G_RET_STS_ERROR;
26017: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
26018: END IF;
26019: CLOSE strm_name_csr;
26020: l_strm_name := l_strm_name_rec.stream_type_purpose;
26021: IF(UPPER(TRIM(l_strm_name)) <> 'RENT') THEN
26037: l_csm_loan_levels_tbl(j).days_in_year := l_days_in_yr_code;
26038:
26039: 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
26040: IF (l_rl_rec.rule_information7 IS NOT NULL OR
26041: l_rl_rec.rule_information7 <> OKL_API.G_MISS_CHAR) AND
26042: (l_rl_rec.rule_information8 IS NOT NULL OR
26043: l_rl_rec.rule_information8 <> OKL_API.G_MISS_CHAR) THEN
26044: j := j + 1;
26045: idx := idx + 1;
26039: 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
26040: IF (l_rl_rec.rule_information7 IS NOT NULL OR
26041: l_rl_rec.rule_information7 <> OKL_API.G_MISS_CHAR) AND
26042: (l_rl_rec.rule_information8 IS NOT NULL OR
26043: l_rl_rec.rule_information8 <> OKL_API.G_MISS_CHAR) THEN
26044: j := j + 1;
26045: idx := idx + 1;
26046: l_csm_loan_levels_tbl(j).level_index_number := idx;
26047: l_csm_loan_levels_tbl(j).amount := TO_NUMBER(l_rl_rec.rule_information8);
26073: END IF;
26074: -- Bug 4915938 - End of Changes
26075:
26076: ELSIF (l_rl_rec.rule_information7 IS NULL OR
26077: l_rl_rec.rule_information7 = OKL_API.G_MISS_CHAR) AND
26078: (l_rl_rec.rule_information8 IS NULL OR
26079: l_rl_rec.rule_information8 = OKL_API.G_MISS_CHAR) THEN
26080: j := j + 1;
26081: idx := idx + 1;
26075:
26076: ELSIF (l_rl_rec.rule_information7 IS NULL OR
26077: l_rl_rec.rule_information7 = OKL_API.G_MISS_CHAR) AND
26078: (l_rl_rec.rule_information8 IS NULL OR
26079: l_rl_rec.rule_information8 = OKL_API.G_MISS_CHAR) THEN
26080: j := j + 1;
26081: idx := idx + 1;
26082: --smahapat l_csm_loan_levels_tbl(j).kle_loan_id := l_so_line_rec.id;
26083: l_csm_loan_levels_tbl(j).description := l_strm_name;
26116: ln_diff_days := ld_chr_end_date - ld_last_end_date;
26117: END IF;
26118: CLOSE c_diff_days_csr;
26119: IF SIGN(ln_diff_days) = -1 THEN
26120: OKL_API.set_message(p_app_name => G_APP_NAME,
26121: p_msg_name => G_INVALID_VALUE,
26122: p_token1 => G_COL_NAME_TOKEN,
26123: p_token1_value => 'Diffrence End date');
26124: x_return_status := OKL_API.G_RET_STS_ERROR;
26120: OKL_API.set_message(p_app_name => G_APP_NAME,
26121: p_msg_name => G_INVALID_VALUE,
26122: p_token1 => G_COL_NAME_TOKEN,
26123: p_token1_value => 'Diffrence End date');
26124: x_return_status := OKL_API.G_RET_STS_ERROR;
26125: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
26126: END IF;
26127: -- If there is diff in days then an empty stub will be appended
26128: IF ln_diff_days > 0 AND
26121: p_msg_name => G_INVALID_VALUE,
26122: p_token1 => G_COL_NAME_TOKEN,
26123: p_token1_value => 'Diffrence End date');
26124: x_return_status := OKL_API.G_RET_STS_ERROR;
26125: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
26126: END IF;
26127: -- If there is diff in days then an empty stub will be appended
26128: IF ln_diff_days > 0 AND
26129: ld_last_start_date = FND_DATE.canonical_to_date(l_rl_rec.rule_information2) THEN
26167: ((l_strm_name_rec.periodic_yn = 'Y' ) AND
26168: (UPPER(l_strm_name_rec.name) <> 'FEE'))) THEN
26169: 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
26170: IF (l_rl_rec.rule_information7 IS NOT NULL OR
26171: l_rl_rec.rule_information7 <> OKL_API.G_MISS_CHAR) AND
26172: (l_rl_rec.rule_information8 IS NOT NULL OR
26173: l_rl_rec.rule_information8 <> OKL_API.G_MISS_CHAR) THEN
26174: k := k + 1;
26175: idx := idx + 1;
26169: 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
26170: IF (l_rl_rec.rule_information7 IS NOT NULL OR
26171: l_rl_rec.rule_information7 <> OKL_API.G_MISS_CHAR) AND
26172: (l_rl_rec.rule_information8 IS NOT NULL OR
26173: l_rl_rec.rule_information8 <> OKL_API.G_MISS_CHAR) THEN
26174: k := k + 1;
26175: idx := idx + 1;
26176: l_csm_periodic_expenses_tbl(k).level_index_number := idx;
26177: l_csm_periodic_expenses_tbl(k).amount := TO_NUMBER(l_rl_rec.rule_information8);
26209: END IF;
26210: -- Bug 4915938 - End of Changes
26211:
26212: ELSIF (l_rl_rec.rule_information7 IS NULL OR
26213: l_rl_rec.rule_information7 = OKL_API.G_MISS_CHAR) AND
26214: (l_rl_rec.rule_information8 IS NULL OR
26215: l_rl_rec.rule_information8 = OKL_API.G_MISS_CHAR) THEN
26216: k := k + 1;
26217: idx := idx + 1;
26211:
26212: ELSIF (l_rl_rec.rule_information7 IS NULL OR
26213: l_rl_rec.rule_information7 = OKL_API.G_MISS_CHAR) AND
26214: (l_rl_rec.rule_information8 IS NULL OR
26215: l_rl_rec.rule_information8 = OKL_API.G_MISS_CHAR) THEN
26216: k := k + 1;
26217: idx := idx + 1;
26218: l_csm_periodic_expenses_tbl(k).level_index_number := idx;
26219: l_csm_periodic_expenses_tbl(k).description := l_strm_name;
26231: l_csm_periodic_expenses_tbl(k).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ARREARS;
26232: ELSE
26233: l_csm_periodic_expenses_tbl(k).advance_or_arrears := OKL_CREATE_STREAMS_PUB.G_ADVANCE;
26234: END IF;
26235: IF (l_rl_rec.RULE_INFORMATION2 IS NULL or l_rl_rec.RULE_INFORMATION2 = OKL_API.G_MISS_CHAR) THEN
26236: l_csm_periodic_expenses_tbl(k).date_start := l_hdr_rec.start_date;
26237: ELSE
26238: l_csm_periodic_expenses_tbl(k).date_start := FND_DATE.canonical_to_date(l_rl_rec.RULE_INFORMATION2);
26239: END IF;
26257: l_csm_one_off_fee_tbl(l).description := l_strm_name_rec.name;
26258: l_csm_one_off_fee_tbl(l).income_or_expense := OKL_CREATE_STREAMS_PUB.G_INCOME;
26259: l_csm_one_off_fee_tbl(l).amount := FND_NUMBER.canonical_to_number(nvl(l_rl_rec.RULE_INFORMATION6,'0'));
26260: IF (l_rl_rec.RULE_INFORMATION2 IS NULL OR
26261: l_rl_rec.RULE_INFORMATION2 = OKL_API.G_MISS_CHAR) THEN
26262: l_csm_one_off_fee_tbl(l).date_paid := l_hdr_rec.start_date;
26263: ELSE
26264: l_csm_one_off_fee_tbl(l).date_paid := FND_DATE.canonical_to_date(l_rl_rec.RULE_INFORMATION2);
26265: END IF;
26277: x_return_status => x_return_status,
26278: px_csm_stream_types_tbl => l_csm_stream_types_tbl,
26279: px_csm_one_off_fee_tbl => l_csm_one_off_fee_tbl,
26280: px_csm_periodic_expenses_tbl => l_csm_periodic_expenses_tbl);
26281: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
26282: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
26283: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
26284: RAISE OKL_API.G_EXCEPTION_ERROR;
26285: END IF;
26278: px_csm_stream_types_tbl => l_csm_stream_types_tbl,
26279: px_csm_one_off_fee_tbl => l_csm_one_off_fee_tbl,
26280: px_csm_periodic_expenses_tbl => l_csm_periodic_expenses_tbl);
26281: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
26282: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
26283: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
26284: RAISE OKL_API.G_EXCEPTION_ERROR;
26285: END IF;
26286: extract_subsidized_lines(p_api_version => p_api_version,
26279: px_csm_one_off_fee_tbl => l_csm_one_off_fee_tbl,
26280: px_csm_periodic_expenses_tbl => l_csm_periodic_expenses_tbl);
26281: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
26282: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
26283: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
26284: RAISE OKL_API.G_EXCEPTION_ERROR;
26285: END IF;
26286: extract_subsidized_lines(p_api_version => p_api_version,
26287: p_init_msg_list => p_init_msg_list,
26280: px_csm_periodic_expenses_tbl => l_csm_periodic_expenses_tbl);
26281: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
26282: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
26283: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
26284: RAISE OKL_API.G_EXCEPTION_ERROR;
26285: END IF;
26286: extract_subsidized_lines(p_api_version => p_api_version,
26287: p_init_msg_list => p_init_msg_list,
26288: x_return_status => x_return_status,
26289: x_msg_count => x_msg_count,
26290: x_msg_data => x_msg_data,
26291: p_chr_id => TO_NUMBER(p_chr_id),
26292: px_csm_one_off_fee_tbl => l_csm_one_off_fee_tbl);
26293: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
26294: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
26295: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
26296: RAISE OKL_API.G_EXCEPTION_ERROR;
26297: END IF;
26290: x_msg_data => x_msg_data,
26291: p_chr_id => TO_NUMBER(p_chr_id),
26292: px_csm_one_off_fee_tbl => l_csm_one_off_fee_tbl);
26293: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
26294: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
26295: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
26296: RAISE OKL_API.G_EXCEPTION_ERROR;
26297: END IF;
26298: check_for_mandatory_streams(
26291: p_chr_id => TO_NUMBER(p_chr_id),
26292: px_csm_one_off_fee_tbl => l_csm_one_off_fee_tbl);
26293: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
26294: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
26295: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
26296: RAISE OKL_API.G_EXCEPTION_ERROR;
26297: END IF;
26298: check_for_mandatory_streams(
26299: p_api_version => p_api_version,
26292: px_csm_one_off_fee_tbl => l_csm_one_off_fee_tbl);
26293: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
26294: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
26295: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
26296: RAISE OKL_API.G_EXCEPTION_ERROR;
26297: END IF;
26298: check_for_mandatory_streams(
26299: p_api_version => p_api_version,
26300: p_init_msg_list => p_init_msg_list,
26304: p_chr_id => p_chr_id,
26305: p_deal_type => l_deal_type,
26306: p_stream_types_tbl => l_csm_stream_types_tbl,
26307: x_stream_types_tbl => l_req_stream_types_tbl);
26308: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
26309: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
26310: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
26311: RAISE OKL_API.G_EXCEPTION_ERROR;
26312: END IF;
26305: p_deal_type => l_deal_type,
26306: p_stream_types_tbl => l_csm_stream_types_tbl,
26307: x_stream_types_tbl => l_req_stream_types_tbl);
26308: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
26309: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
26310: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
26311: RAISE OKL_API.G_EXCEPTION_ERROR;
26312: END IF;
26313: -- Requesting for yields
26306: p_stream_types_tbl => l_csm_stream_types_tbl,
26307: x_stream_types_tbl => l_req_stream_types_tbl);
26308: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
26309: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
26310: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
26311: RAISE OKL_API.G_EXCEPTION_ERROR;
26312: END IF;
26313: -- Requesting for yields
26314: x_return_status := yield_request(x_csm_yields_tbl => l_csm_yields_tbl);
26307: x_stream_types_tbl => l_req_stream_types_tbl);
26308: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
26309: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
26310: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
26311: RAISE OKL_API.G_EXCEPTION_ERROR;
26312: END IF;
26313: -- Requesting for yields
26314: x_return_status := yield_request(x_csm_yields_tbl => l_csm_yields_tbl);
26315: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
26311: RAISE OKL_API.G_EXCEPTION_ERROR;
26312: END IF;
26313: -- Requesting for yields
26314: x_return_status := yield_request(x_csm_yields_tbl => l_csm_yields_tbl);
26315: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
26316: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
26317: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
26318: RAISE OKL_API.G_EXCEPTION_ERROR;
26319: END IF;
26312: END IF;
26313: -- Requesting for yields
26314: x_return_status := yield_request(x_csm_yields_tbl => l_csm_yields_tbl);
26315: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
26316: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
26317: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
26318: RAISE OKL_API.G_EXCEPTION_ERROR;
26319: END IF;
26320: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) then
26313: -- Requesting for yields
26314: x_return_status := yield_request(x_csm_yields_tbl => l_csm_yields_tbl);
26315: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
26316: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
26317: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
26318: RAISE OKL_API.G_EXCEPTION_ERROR;
26319: END IF;
26320: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) then
26321: okl_api.set_message(
26314: x_return_status := yield_request(x_csm_yields_tbl => l_csm_yields_tbl);
26315: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
26316: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
26317: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
26318: RAISE OKL_API.G_EXCEPTION_ERROR;
26319: END IF;
26320: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) then
26321: okl_api.set_message(
26322: p_app_name => G_APP_NAME,
26316: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
26317: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
26318: RAISE OKL_API.G_EXCEPTION_ERROR;
26319: END IF;
26320: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) then
26321: okl_api.set_message(
26322: p_app_name => G_APP_NAME,
26323: p_msg_name => 'OKL_LLA_REPSTRMS_EXTR_FAILED');
26324: RAISE OKL_API.G_EXCEPTION_ERROR;
26317: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
26318: RAISE OKL_API.G_EXCEPTION_ERROR;
26319: END IF;
26320: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) then
26321: okl_api.set_message(
26322: p_app_name => G_APP_NAME,
26323: p_msg_name => 'OKL_LLA_REPSTRMS_EXTR_FAILED');
26324: RAISE OKL_API.G_EXCEPTION_ERROR;
26325: End If;
26320: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) then
26321: okl_api.set_message(
26322: p_app_name => G_APP_NAME,
26323: p_msg_name => 'OKL_LLA_REPSTRMS_EXTR_FAILED');
26324: RAISE OKL_API.G_EXCEPTION_ERROR;
26325: End If;
26326: x_csm_loan_header := l_csm_loan_header;
26327: x_csm_loan_lines_tbl := l_csm_loan_details_tbl;
26328: x_csm_loan_levels_tbl := l_csm_loan_levels_tbl;
26330: x_csm_periodic_expenses_tbl := l_csm_periodic_expenses_tbl;
26331: x_csm_yields_tbl := l_csm_yields_tbl;
26332: x_req_stream_types_tbl := l_req_stream_types_tbl;
26333: ELSE
26334: okl_api.set_message(p_app_name => G_APP_NAME,
26335: p_msg_name => G_INVALID_VALUE,
26336: p_token1 => G_COL_NAME_TOKEN,
26337: p_token1_value => 'Deal_type');
26338: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
26334: okl_api.set_message(p_app_name => G_APP_NAME,
26335: p_msg_name => G_INVALID_VALUE,
26336: p_token1 => G_COL_NAME_TOKEN,
26337: p_token1_value => 'Deal_type');
26338: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
26339: END IF;
26340: OKL_API.END_ACTIVITY (x_msg_count,
26341: x_msg_data );
26342: EXCEPTION
26336: p_token1 => G_COL_NAME_TOKEN,
26337: p_token1_value => 'Deal_type');
26338: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
26339: END IF;
26340: OKL_API.END_ACTIVITY (x_msg_count,
26341: x_msg_data );
26342: EXCEPTION
26343: WHEN OKL_API.G_EXCEPTION_ERROR THEN
26344: IF l_hdr_csr%ISOPEN THEN
26339: END IF;
26340: OKL_API.END_ACTIVITY (x_msg_count,
26341: x_msg_data );
26342: EXCEPTION
26343: WHEN OKL_API.G_EXCEPTION_ERROR THEN
26344: IF l_hdr_csr%ISOPEN THEN
26345: CLOSE l_hdr_csr;
26346: END IF;
26347: IF l_hdrrl_csr%ISOPEN THEN
26388: END IF;
26389: IF c_diff_days_csr%ISOPEN THEN
26390: CLOSE c_diff_days_csr;
26391: END IF;
26392: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
26393: l_api_name,
26394: G_PKG_NAME,
26395: 'OKL_API.G_RET_STS_ERROR',
26396: x_msg_count,
26391: END IF;
26392: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
26393: l_api_name,
26394: G_PKG_NAME,
26395: 'OKL_API.G_RET_STS_ERROR',
26396: x_msg_count,
26397: x_msg_data,
26398: '_PVT');
26399: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
26395: 'OKL_API.G_RET_STS_ERROR',
26396: x_msg_count,
26397: x_msg_data,
26398: '_PVT');
26399: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
26400: IF l_hdr_csr%ISOPEN THEN
26401: CLOSE l_hdr_csr;
26402: END IF;
26403: IF l_hdrrl_csr%ISOPEN THEN
26444: END IF;
26445: IF c_diff_days_csr%ISOPEN THEN
26446: CLOSE c_diff_days_csr;
26447: END IF;
26448: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
26449: l_api_name,
26450: G_PKG_NAME,
26451: 'OKL_API.G_RET_STS_UNEXP_ERROR',
26452: x_msg_count,
26447: END IF;
26448: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
26449: l_api_name,
26450: G_PKG_NAME,
26451: 'OKL_API.G_RET_STS_UNEXP_ERROR',
26452: x_msg_count,
26453: x_msg_data,
26454: '_PVT');
26455: WHEN OTHERS THEN
26500: END IF;
26501: IF c_diff_days_csr%ISOPEN THEN
26502: CLOSE c_diff_days_csr;
26503: END IF;
26504: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
26505: l_api_name,
26506: G_PKG_NAME,
26507: 'OTHERS',
26508: x_msg_count,
26526: AS
26527: l_api_name CONSTANT VARCHAR2(30) := 'UPGRADE_ESG_KHR_FOR_PRB';
26528: l_api_version CONSTANT NUMBER := 1;
26529: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
26530: l_init_msg_list VARCHAR2(1) := OKL_API.G_TRUE;
26531:
26532: l_hdr_rec l_hdr_csr%ROWTYPE;
26533: -- Record Structures required for the Lease Contracts
26534: x_csm_lease_header okl_create_streams_pub.csm_lease_rec_type;
26551:
26552: BEGIN
26553: print( l_api_name, 'Start');
26554:
26555: x_return_status := OKL_API.G_RET_STS_SUCCESS;
26556: x_return_status := OKL_API.START_ACTIVITY(
26557: p_api_name => l_api_name,
26558: p_pkg_name => g_pkg_name,
26559: p_init_msg_list => l_init_msg_list,
26552: BEGIN
26553: print( l_api_name, 'Start');
26554:
26555: x_return_status := OKL_API.G_RET_STS_SUCCESS;
26556: x_return_status := OKL_API.START_ACTIVITY(
26557: p_api_name => l_api_name,
26558: p_pkg_name => g_pkg_name,
26559: p_init_msg_list => l_init_msg_list,
26560: l_api_version => l_api_version,
26560: l_api_version => l_api_version,
26561: p_api_version => l_api_version,
26562: p_api_type => G_API_TYPE,
26563: x_return_status => x_return_status);
26564: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
26565: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
26566: ElSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
26567: RAISE OKL_API.G_EXCEPTION_ERROR;
26568: END IF;
26561: p_api_version => l_api_version,
26562: p_api_type => G_API_TYPE,
26563: x_return_status => x_return_status);
26564: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
26565: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
26566: ElSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
26567: RAISE OKL_API.G_EXCEPTION_ERROR;
26568: END IF;
26569:
26562: p_api_type => G_API_TYPE,
26563: x_return_status => x_return_status);
26564: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
26565: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
26566: ElSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
26567: RAISE OKL_API.G_EXCEPTION_ERROR;
26568: END IF;
26569:
26570: -- Fetch preliminary details about the Contract: Deal Type etc
26563: x_return_status => x_return_status);
26564: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
26565: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
26566: ElSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
26567: RAISE OKL_API.G_EXCEPTION_ERROR;
26568: END IF;
26569:
26570: -- Fetch preliminary details about the Contract: Deal Type etc
26571: print( l_api_name, 'Fetching Deal Type of the Contract' );
26573: FETCH l_hdr_csr into l_hdr_rec;
26574: IF l_hdr_csr%NOTFOUND
26575: THEN
26576: CLOSE l_hdr_csr;
26577: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
26578: END IF;
26579: CLOSE l_hdr_csr;
26580:
26581: print( l_api_name, 'Extraction phase. Deal Type = ' || l_hdr_rec.deal_type );
26596: ,x_req_stream_types_tbl => x_req_stream_types_tbl
26597: ,x_csm_line_details_tbl => x_csm_line_details_tbl
26598: ,x_rents_tbl => x_rents_tbl
26599: ,p_orp_code => 'UPGRADE' );
26600: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS)
26601: THEN
26602: OKL_API.set_message(
26603: p_app_name => G_APP_NAME
26604: ,p_msg_name => 'OKL_LLA_GENSTRMS_EXTR_FAILED');
26598: ,x_rents_tbl => x_rents_tbl
26599: ,p_orp_code => 'UPGRADE' );
26600: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS)
26601: THEN
26602: OKL_API.set_message(
26603: p_app_name => G_APP_NAME
26604: ,p_msg_name => 'OKL_LLA_GENSTRMS_EXTR_FAILED');
26605: RAISE OKL_API.G_EXCEPTION_ERROR;
26606: END IF;
26601: THEN
26602: OKL_API.set_message(
26603: p_app_name => G_APP_NAME
26604: ,p_msg_name => 'OKL_LLA_GENSTRMS_EXTR_FAILED');
26605: RAISE OKL_API.G_EXCEPTION_ERROR;
26606: END IF;
26607: print( l_api_name, 'Before Calling the create_streams_lease_book' );
26608: OKL_CREATE_STREAMS_PUB.create_streams_lease_book(
26609: p_api_version => l_api_version
26607: print( l_api_name, 'Before Calling the create_streams_lease_book' );
26608: OKL_CREATE_STREAMS_PUB.create_streams_lease_book(
26609: p_api_version => l_api_version
26610: ,p_init_msg_list => l_init_msg_list
26611: ,p_skip_prc_engine => OKL_API.G_FALSE
26612: ,p_csm_lease_header => x_csm_lease_header
26613: ,p_csm_one_off_fee_tbl => x_csm_one_off_fee_tbl
26614: ,p_csm_periodic_expenses_tbl => x_csm_periodic_expenses_tbl
26615: ,p_csm_yields_tbl => x_csm_yields_tbl
26621: ,x_return_status => x_return_status
26622: ,x_msg_count => x_msg_count
26623: ,x_msg_data => x_msg_data );
26624: print( l_api_name, 'After the call to create_streams_lease_book: ' ||x_return_status);
26625: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
26626: okl_api.set_message(
26627: p_app_name => G_APP_NAME
26628: ,p_msg_name => OKL_CONTRACT_STATUS_PUB.G_GENSTRMS_REQ_FAILED);
26629: RAISE OKL_API.G_EXCEPTION_ERROR;
26622: ,x_msg_count => x_msg_count
26623: ,x_msg_data => x_msg_data );
26624: print( l_api_name, 'After the call to create_streams_lease_book: ' ||x_return_status);
26625: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
26626: okl_api.set_message(
26627: p_app_name => G_APP_NAME
26628: ,p_msg_name => OKL_CONTRACT_STATUS_PUB.G_GENSTRMS_REQ_FAILED);
26629: RAISE OKL_API.G_EXCEPTION_ERROR;
26630: END IF;
26625: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
26626: okl_api.set_message(
26627: p_app_name => G_APP_NAME
26628: ,p_msg_name => OKL_CONTRACT_STATUS_PUB.G_GENSTRMS_REQ_FAILED);
26629: RAISE OKL_API.G_EXCEPTION_ERROR;
26630: END IF;
26631:
26632: -- Handling the Loan Type Contracts
26633: ELSIF (INSTR(l_hdr_rec.deal_type, 'LOAN') > 0)
26649: ,x_csm_yields_tbl => x_csm_yields_tbl
26650: ,x_csm_stream_types_tbl => x_csm_stream_types_tbl
26651: ,p_orp_code => 'UPGRADE' );
26652: print( l_api_name, 'After the call to extract_params_loan: '||x_return_status);
26653: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
26654: okl_api.set_message(
26655: p_app_name => G_APP_NAME,
26656: p_msg_name => 'OKL_LLA_GENSTRMS_EXTR_FAILED');
26657: RAISE OKL_API.G_EXCEPTION_ERROR;
26650: ,x_csm_stream_types_tbl => x_csm_stream_types_tbl
26651: ,p_orp_code => 'UPGRADE' );
26652: print( l_api_name, 'After the call to extract_params_loan: '||x_return_status);
26653: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
26654: okl_api.set_message(
26655: p_app_name => G_APP_NAME,
26656: p_msg_name => 'OKL_LLA_GENSTRMS_EXTR_FAILED');
26657: RAISE OKL_API.G_EXCEPTION_ERROR;
26658: END IF;
26653: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
26654: okl_api.set_message(
26655: p_app_name => G_APP_NAME,
26656: p_msg_name => 'OKL_LLA_GENSTRMS_EXTR_FAILED');
26657: RAISE OKL_API.G_EXCEPTION_ERROR;
26658: END IF;
26659:
26660: print( l_api_name, 'Before calling the Create_stream_loan_book API ' );
26661: OKL_CREATE_STREAMS_PUB.create_streams_loan_book(
26660: print( l_api_name, 'Before calling the Create_stream_loan_book API ' );
26661: OKL_CREATE_STREAMS_PUB.create_streams_loan_book(
26662: p_api_version => l_api_version
26663: ,p_init_msg_list => l_init_msg_list
26664: ,p_skip_prc_engine => OKL_API.G_FALSE
26665: ,p_csm_loan_header => x_csm_loan_header
26666: ,p_csm_loan_lines_tbl => x_csm_loan_lines_tbl
26667: ,p_csm_loan_levels_tbl => x_csm_loan_levels_tbl
26668: ,p_csm_one_off_fee_tbl => x_csm_one_off_fee_tbl
26674: ,x_return_status => x_return_status
26675: ,x_msg_count => x_msg_count
26676: ,x_msg_data => x_msg_data);
26677: print( l_api_name, 'After the call to create_streams_loan_book: '||x_return_status);
26678: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS)
26679: THEN
26680: okl_api.set_message(
26681: p_app_name => G_APP_NAME
26682: ,p_msg_name => OKL_CONTRACT_STATUS_PUB.G_GENSTRMS_REQ_FAILED);
26676: ,x_msg_data => x_msg_data);
26677: print( l_api_name, 'After the call to create_streams_loan_book: '||x_return_status);
26678: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS)
26679: THEN
26680: okl_api.set_message(
26681: p_app_name => G_APP_NAME
26682: ,p_msg_name => OKL_CONTRACT_STATUS_PUB.G_GENSTRMS_REQ_FAILED);
26683: RAISE OKL_API.G_EXCEPTION_ERROR;
26684: END IF;
26679: THEN
26680: okl_api.set_message(
26681: p_app_name => G_APP_NAME
26682: ,p_msg_name => OKL_CONTRACT_STATUS_PUB.G_GENSTRMS_REQ_FAILED);
26683: RAISE OKL_API.G_EXCEPTION_ERROR;
26684: END IF;
26685: ELSE
26686: print( l_api_name, 'Error: Invalid deal Type ' );
26687: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
26683: RAISE OKL_API.G_EXCEPTION_ERROR;
26684: END IF;
26685: ELSE
26686: print( l_api_name, 'Error: Invalid deal Type ' );
26687: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
26688: END IF;
26689:
26690: print( l_api_name, 'Checking if the Reporting Product Exists or not ' );
26691: IF ( l_hdr_rec.report_pdt_id <> -1 )
26701: ,p_pdtv_rec => p_pdtv_rec
26702: ,x_no_data_found => x_no_data_found
26703: ,p_pdt_parameter_rec => x_pdt_parameter_rec);
26704: print( l_api_name, 'After OKL_SETUPPRODUCTS_PVT.Getpdt_parameters: '||x_return_status);
26705: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
26706: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
26707: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
26708: RAISE OKL_API.G_EXCEPTION_ERROR;
26709: END IF;
26702: ,x_no_data_found => x_no_data_found
26703: ,p_pdt_parameter_rec => x_pdt_parameter_rec);
26704: print( l_api_name, 'After OKL_SETUPPRODUCTS_PVT.Getpdt_parameters: '||x_return_status);
26705: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
26706: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
26707: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
26708: RAISE OKL_API.G_EXCEPTION_ERROR;
26709: END IF;
26710:
26703: ,p_pdt_parameter_rec => x_pdt_parameter_rec);
26704: print( l_api_name, 'After OKL_SETUPPRODUCTS_PVT.Getpdt_parameters: '||x_return_status);
26705: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
26706: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
26707: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
26708: RAISE OKL_API.G_EXCEPTION_ERROR;
26709: END IF;
26710:
26711: print( l_api_name, 'Prior to the call to generate_reporting_streams');
26704: print( l_api_name, 'After OKL_SETUPPRODUCTS_PVT.Getpdt_parameters: '||x_return_status);
26705: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
26706: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
26707: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
26708: RAISE OKL_API.G_EXCEPTION_ERROR;
26709: END IF;
26710:
26711: print( l_api_name, 'Prior to the call to generate_reporting_streams');
26712: generate_reporting_streams(
26714: ,p_init_msg_list => l_init_msg_list
26715: ,p_chr_id => p_chr_id
26716: ,p_report_deal_type => x_pdt_parameter_rec.deal_type
26717: ,p_generation_context => 'FULL'
26718: ,p_skip_prc_engine => OKL_API.G_FALSE
26719: ,x_return_status => x_return_status
26720: ,x_msg_count => x_msg_count
26721: ,x_msg_data => x_msg_data
26722: ,x_request_id => x_rep_request_id
26722: ,x_request_id => x_rep_request_id
26723: ,x_trans_status => x_rep_trans_status
26724: ,p_orp_code => 'UPGRADE' );
26725: print( l_api_name, 'After generate_reporting_streams: '||x_return_status);
26726: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS)
26727: THEN
26728: okl_api.set_message(
26729: p_app_name => G_APP_NAME
26730: ,p_msg_name => 'OKL_LLA_REPSTRMS_REQ_FAILED');
26724: ,p_orp_code => 'UPGRADE' );
26725: print( l_api_name, 'After generate_reporting_streams: '||x_return_status);
26726: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS)
26727: THEN
26728: okl_api.set_message(
26729: p_app_name => G_APP_NAME
26730: ,p_msg_name => 'OKL_LLA_REPSTRMS_REQ_FAILED');
26731: RAISE OKL_API.G_EXCEPTION_ERROR;
26732: END IF;
26727: THEN
26728: okl_api.set_message(
26729: p_app_name => G_APP_NAME
26730: ,p_msg_name => 'OKL_LLA_REPSTRMS_REQ_FAILED');
26731: RAISE OKL_API.G_EXCEPTION_ERROR;
26732: END IF;
26733:
26734: END IF;
26735:
26732: END IF;
26733:
26734: END IF;
26735:
26736: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
26737: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
26738: ElSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
26739: RAISE OKL_API.G_EXCEPTION_ERROR;
26740: END IF;
26733:
26734: END IF;
26735:
26736: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
26737: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
26738: ElSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
26739: RAISE OKL_API.G_EXCEPTION_ERROR;
26740: END IF;
26741:
26734: END IF;
26735:
26736: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
26737: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
26738: ElSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
26739: RAISE OKL_API.G_EXCEPTION_ERROR;
26740: END IF;
26741:
26742: print( l_api_name, 'END: ' || x_return_status);
26735:
26736: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
26737: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
26738: ElSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
26739: RAISE OKL_API.G_EXCEPTION_ERROR;
26740: END IF;
26741:
26742: print( l_api_name, 'END: ' || x_return_status);
26743: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
26739: RAISE OKL_API.G_EXCEPTION_ERROR;
26740: END IF;
26741:
26742: print( l_api_name, 'END: ' || x_return_status);
26743: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
26744: print( l_api_name, ': End' );
26745: EXCEPTION
26746: WHEN OKL_API.G_EXCEPTION_ERROR
26747: THEN
26742: print( l_api_name, 'END: ' || x_return_status);
26743: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
26744: print( l_api_name, ': End' );
26745: EXCEPTION
26746: WHEN OKL_API.G_EXCEPTION_ERROR
26747: THEN
26748: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
26749: p_api_name => l_api_name
26750: ,p_pkg_name => g_pkg_name
26744: print( l_api_name, ': End' );
26745: EXCEPTION
26746: WHEN OKL_API.G_EXCEPTION_ERROR
26747: THEN
26748: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
26749: p_api_name => l_api_name
26750: ,p_pkg_name => g_pkg_name
26751: ,p_exc_name => 'OKL_API.G_RET_STS_ERROR'
26752: ,x_msg_count => x_msg_count
26747: THEN
26748: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
26749: p_api_name => l_api_name
26750: ,p_pkg_name => g_pkg_name
26751: ,p_exc_name => 'OKL_API.G_RET_STS_ERROR'
26752: ,x_msg_count => x_msg_count
26753: ,x_msg_data => x_msg_data
26754: ,p_api_type => g_api_type);
26755:
26752: ,x_msg_count => x_msg_count
26753: ,x_msg_data => x_msg_data
26754: ,p_api_type => g_api_type);
26755:
26756: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR
26757: THEN
26758: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
26759: p_api_name => l_api_name
26760: ,p_pkg_name => g_pkg_name
26754: ,p_api_type => g_api_type);
26755:
26756: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR
26757: THEN
26758: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
26759: p_api_name => l_api_name
26760: ,p_pkg_name => g_pkg_name
26761: ,p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR'
26762: ,x_msg_count => x_msg_count
26757: THEN
26758: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
26759: p_api_name => l_api_name
26760: ,p_pkg_name => g_pkg_name
26761: ,p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR'
26762: ,x_msg_count => x_msg_count
26763: ,x_msg_data => x_msg_data
26764: ,p_api_type => g_api_type);
26765:
26764: ,p_api_type => g_api_type);
26765:
26766: WHEN OTHERS
26767: THEN
26768: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
26769: p_api_name => l_api_name
26770: ,p_pkg_name => g_pkg_name
26771: ,p_exc_name => 'OTHERS'
26772: ,x_msg_count => x_msg_count