38: -- Procedure Name : is_khr_securitized
39: -- Description : Checks if a contract is securitized on the given date
40: -- Business Rules :
41: -- Parameters :
42: -- : return: OKL_API.G_TRUE: true, OKL_API.G_FALSE false,
43: -- OKL_API.G_RET_STS_ERROR, OKL_API.G_RET_STS_UNEXP_ERROR
44: -- Version : 1.0
45: -- End of comments
46: ----------------------------------------------------------------------------------
39: -- Description : Checks if a contract is securitized on the given date
40: -- Business Rules :
41: -- Parameters :
42: -- : return: OKL_API.G_TRUE: true, OKL_API.G_FALSE false,
43: -- OKL_API.G_RET_STS_ERROR, OKL_API.G_RET_STS_UNEXP_ERROR
44: -- Version : 1.0
45: -- End of comments
46: ----------------------------------------------------------------------------------
47: FUNCTION is_khr_securitized(
51: ,p_stream_type_subclass IN okl_strm_type_b.stream_type_subclass%TYPE DEFAULT NULL
52: ) RETURN VARCHAR
53: IS
54: l_dummy VARCHAR2(1);
55: x_value VARCHAR2(1) := Okl_Api.G_FALSE;
56: l_row_found BOOLEAN := FALSE;
57: v_sql VARCHAR2(4000);
58:
59: -- case 1
174: END IF;
175:
176:
177: IF l_row_found THEN
178: x_value := Okl_Api.G_TRUE;
179: ELSE
180: x_value := Okl_Api.G_FALSE;
181: END IF;
182:
176:
177: IF l_row_found THEN
178: x_value := Okl_Api.G_TRUE;
179: ELSE
180: x_value := Okl_Api.G_FALSE;
181: END IF;
182:
183:
184: RETURN x_value;
183:
184: RETURN x_value;
185: EXCEPTION
186: WHEN OTHERS THEN
187: --l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
188: Okl_Api.Set_Message(p_app_name => Okl_Api.G_APP_NAME,
189: p_msg_name => 'OKL_UNEXPECTED_ERROR',
190: p_token1 => 'OKL_SQLCODE',
191: p_token1_value => SQLCODE,
184: RETURN x_value;
185: EXCEPTION
186: WHEN OTHERS THEN
187: --l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
188: Okl_Api.Set_Message(p_app_name => Okl_Api.G_APP_NAME,
189: p_msg_name => 'OKL_UNEXPECTED_ERROR',
190: p_token1 => 'OKL_SQLCODE',
191: p_token1_value => SQLCODE,
192: p_token2 => 'OKL_SQLERRM',
201: -- Procedure Name : check_khr_securitized
202: -- Description : Checks if a contract is securitized on the given date
203: -- Business Rules :
204: -- Parameters :
205: -- : x_value: OKL_API.G_TRUE: true, OKL_API.G_FALSE false,
206: -- Version : 1.0
207: -- End of comments
208: -----------------------------------------------------------------------
209: PROCEDURE check_khr_securitized(
224: IS
225: l_api_name CONSTANT VARCHAR2(30) := 'check_khr_securitized_pvt';
226: l_api_version CONSTANT NUMBER := 1.0;
227: i NUMBER;
228: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
229:
230: CURSOR c_inv_khr(p_khr_id okc_k_headers_b.id%TYPE) IS
231: SELECT ph.khr_id -- inv agreemnet id
232: FROM okl_pools ph
246: p_api_version,
247: l_api_name,
248: G_PKG_NAME ))
249: THEN
250: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
251: END IF;
252:
253: -- Initialize message list if requested
254: IF (Fnd_Api.to_Boolean(p_init_msg_list)) THEN
255: Fnd_Msg_Pub.initialize;
256: END IF;
257:
258: -- Initialize API status to success
259: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
260:
261:
262: /*** Begin API body ****************************************************/
263: -- 1. get flag
290: (p_count => x_msg_count,
291: p_data => x_msg_data);
292:
293: EXCEPTION
294: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
295: ROLLBACK TO check_khr_securitized_pvt;
296: x_return_status := Okl_Api.G_RET_STS_ERROR;
297: Fnd_Msg_Pub.Count_And_Get
298: (p_count => x_msg_count,
292:
293: EXCEPTION
294: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
295: ROLLBACK TO check_khr_securitized_pvt;
296: x_return_status := Okl_Api.G_RET_STS_ERROR;
297: Fnd_Msg_Pub.Count_And_Get
298: (p_count => x_msg_count,
299: p_data => x_msg_data);
300:
297: Fnd_Msg_Pub.Count_And_Get
298: (p_count => x_msg_count,
299: p_data => x_msg_data);
300:
301: WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
302: ROLLBACK TO check_khr_securitized_pvt;
303: x_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
304: Fnd_Msg_Pub.Count_And_Get
305: (p_count => x_msg_count,
299: p_data => x_msg_data);
300:
301: WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
302: ROLLBACK TO check_khr_securitized_pvt;
303: x_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
304: Fnd_Msg_Pub.Count_And_Get
305: (p_count => x_msg_count,
306: p_data => x_msg_data);
307:
306: p_data => x_msg_data);
307:
308: WHEN OTHERS THEN
309: ROLLBACK TO check_khr_securitized_pvt;
310: x_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR ;
311: Okl_Api.Set_Message(p_app_name => G_APP_NAME,
312: p_msg_name => G_UNEXPECTED_ERROR,
313: p_token1 => G_SQLCODE_TOKEN,
314: p_token1_value => SQLCODE,
307:
308: WHEN OTHERS THEN
309: ROLLBACK TO check_khr_securitized_pvt;
310: x_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR ;
311: Okl_Api.Set_Message(p_app_name => G_APP_NAME,
312: p_msg_name => G_UNEXPECTED_ERROR,
313: p_token1 => G_SQLCODE_TOKEN,
314: p_token1_value => SQLCODE,
315: p_token2 => G_SQLERRM_TOKEN,
326: -- Procedure Name : is_kle_securitized
327: -- Description : Checks if an Asset is securitized on the given date
328: -- Business Rules :
329: -- Parameters :
330: -- : return: OKL_API.G_TRUE: true, OKL_API.G_FALSE false,
331: -- OKL_API.G_RET_STS_ERROR, OKL_API.G_RET_STS_UNEXP_ERROR
332: -- Version : 1.0
333: -- End of comments
334: ----------------------------------------------------------------------------------
327: -- Description : Checks if an Asset is securitized on the given date
328: -- Business Rules :
329: -- Parameters :
330: -- : return: OKL_API.G_TRUE: true, OKL_API.G_FALSE false,
331: -- OKL_API.G_RET_STS_ERROR, OKL_API.G_RET_STS_UNEXP_ERROR
332: -- Version : 1.0
333: -- End of comments
334: ----------------------------------------------------------------------------------
335: FUNCTION is_kle_securitized(
341: -- cklee 08-08-2003 11.5.10
342: ) RETURN VARCHAR
343: IS
344: l_dummy VARCHAR2(1);
345: x_value VARCHAR2(1) := Okl_Api.G_FALSE;
346: l_row_found BOOLEAN := FALSE;
347:
348: -- case 1
349: CURSOR c_kle_def(p_kle_id okc_k_lines_b.ID%TYPE, p_effective_date DATE) IS
466:
467: END IF;
468:
469: IF l_row_found THEN
470: x_value := Okl_Api.G_TRUE;
471: ELSE
472: x_value := Okl_Api.G_FALSE;
473: END IF;
474:
468:
469: IF l_row_found THEN
470: x_value := Okl_Api.G_TRUE;
471: ELSE
472: x_value := Okl_Api.G_FALSE;
473: END IF;
474:
475: RETURN x_value;
476: EXCEPTION
474:
475: RETURN x_value;
476: EXCEPTION
477: WHEN OTHERS THEN
478: --l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
479:
480: Okl_Api.Set_Message(p_app_name => Okl_Api.G_APP_NAME,
481: p_msg_name => 'OKL_UNEXPECTED_ERROR',
482: p_token1 => 'OKL_SQLCODE',
476: EXCEPTION
477: WHEN OTHERS THEN
478: --l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
479:
480: Okl_Api.Set_Message(p_app_name => Okl_Api.G_APP_NAME,
481: p_msg_name => 'OKL_UNEXPECTED_ERROR',
482: p_token1 => 'OKL_SQLCODE',
483: p_token1_value => SQLCODE,
484: p_token2 => 'OKL_SQLERRM',
494: -- Procedure Name : check_kle_securitized
495: -- Description : Checks if an Asset is securitized on the given date
496: -- Business Rules :
497: -- Parameters :
498: -- : x_value: OKL_API.G_TRUE: true, OKL_API.G_FALSE false,
499: -- Version : 1.0
500: -- End of comments
501: -----------------------------------------------------------------------
502: PROCEDURE check_kle_securitized(
517: IS
518: l_api_name CONSTANT VARCHAR2(30) := 'check_kle_securitized_pvt';
519: l_api_version CONSTANT NUMBER := 1.0;
520: i NUMBER;
521: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
522:
523: CURSOR c_inv_khr(p_kle_id okc_k_lines_b.id%TYPE) IS
524: SELECT ph.khr_id -- inv agreemnet id
525: FROM okl_pools ph
540: p_api_version,
541: l_api_name,
542: G_PKG_NAME ))
543: THEN
544: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
545: END IF;
546:
547: -- Initialize message list if requested
548: IF (Fnd_Api.to_Boolean(p_init_msg_list)) THEN
549: Fnd_Msg_Pub.initialize;
550: END IF;
551:
552: -- Initialize API status to success
553: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
554:
555:
556: /*** Begin API body ****************************************************/
557:
585: (p_count => x_msg_count,
586: p_data => x_msg_data);
587:
588: EXCEPTION
589: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
590: ROLLBACK TO check_kle_securitized_pvt;
591: x_return_status := Okl_Api.G_RET_STS_ERROR;
592: Fnd_Msg_Pub.Count_And_Get
593: (p_count => x_msg_count,
587:
588: EXCEPTION
589: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
590: ROLLBACK TO check_kle_securitized_pvt;
591: x_return_status := Okl_Api.G_RET_STS_ERROR;
592: Fnd_Msg_Pub.Count_And_Get
593: (p_count => x_msg_count,
594: p_data => x_msg_data);
595:
592: Fnd_Msg_Pub.Count_And_Get
593: (p_count => x_msg_count,
594: p_data => x_msg_data);
595:
596: WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
597: ROLLBACK TO check_kle_securitized_pvt;
598: x_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
599: Fnd_Msg_Pub.Count_And_Get
600: (p_count => x_msg_count,
594: p_data => x_msg_data);
595:
596: WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
597: ROLLBACK TO check_kle_securitized_pvt;
598: x_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
599: Fnd_Msg_Pub.Count_And_Get
600: (p_count => x_msg_count,
601:
602: p_data => x_msg_data);
602: p_data => x_msg_data);
603:
604: WHEN OTHERS THEN
605: ROLLBACK TO check_kle_securitized_pvt;
606: x_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR ;
607: Okl_Api.Set_Message(p_app_name => G_APP_NAME,
608: p_msg_name => G_UNEXPECTED_ERROR,
609: p_token1 => G_SQLCODE_TOKEN,
610: p_token1_value => SQLCODE,
603:
604: WHEN OTHERS THEN
605: ROLLBACK TO check_kle_securitized_pvt;
606: x_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR ;
607: Okl_Api.Set_Message(p_app_name => G_APP_NAME,
608: p_msg_name => G_UNEXPECTED_ERROR,
609: p_token1 => G_SQLCODE_TOKEN,
610: p_token1_value => SQLCODE,
611:
629: -- Procedure Name : check_sty_securitized
630: -- Description : Checks if a StreamType is securitized on the given date
631: -- Business Rules :
632: -- Parameters :
633: -- : x_value: OKL_API.G_TRUE: true, OKL_API.G_FALSE false,
634: -- Version : 1.0
635: -- End of comments
636: -----------------------------------------------------------------------
637: PROCEDURE check_sty_securitized(
710: AND pocb.sty_id = styb.id;
711:
712: l_api_name CONSTANT VARCHAR2(30) := 'check_sty_securitized';
713: l_api_version CONSTANT NUMBER := 1.0;
714: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
715:
716: l_value VARCHAR2(1) := Okl_Api.G_FALSE;
717:
718: BEGIN
712: l_api_name CONSTANT VARCHAR2(30) := 'check_sty_securitized';
713: l_api_version CONSTANT NUMBER := 1.0;
714: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
715:
716: l_value VARCHAR2(1) := Okl_Api.G_FALSE;
717:
718: BEGIN
719:
720: l_return_status := Okl_Api.START_ACTIVITY(p_api_name => l_api_name,
716: l_value VARCHAR2(1) := Okl_Api.G_FALSE;
717:
718: BEGIN
719:
720: l_return_status := Okl_Api.START_ACTIVITY(p_api_name => l_api_name,
721: p_pkg_name => G_PKG_NAME,
722: p_init_msg_list => p_init_msg_list,
723: l_api_version => l_api_version,
724: p_api_version => p_api_version,
733:
734: IF (p_effective_date_operator = G_GREATER_THAN) THEN
735: FOR l_okl_sty_grt_rec IN l_okl_sty_grt_csr
736: LOOP
737: l_value := Okl_Api.G_TRUE;
738: x_inv_agmt_chr_id := l_okl_sty_grt_rec.khr_id;
739: END LOOP;
740: ELSIF (p_effective_date_operator = G_LESS_THAN) THEN
741: FOR l_okl_sty_les_rec IN l_okl_sty_les_csr
739: END LOOP;
740: ELSIF (p_effective_date_operator = G_LESS_THAN) THEN
741: FOR l_okl_sty_les_rec IN l_okl_sty_les_csr
742: LOOP
743: l_value := Okl_Api.G_TRUE;
744: x_inv_agmt_chr_id := l_okl_sty_les_rec.khr_id;
745: END LOOP;
746: ELSIF (p_effective_date_operator = G_EQUAL_TO) THEN
747: FOR l_okl_sty_eql_rec IN l_okl_sty_eql_csr
745: END LOOP;
746: ELSIF (p_effective_date_operator = G_EQUAL_TO) THEN
747: FOR l_okl_sty_eql_rec IN l_okl_sty_eql_csr
748: LOOP
749: l_value := Okl_Api.G_TRUE;
750: x_inv_agmt_chr_id := l_okl_sty_eql_rec.khr_id;
751: END LOOP;
752: ELSIF (p_effective_date_operator = G_GREATER_THAN_EQUAL_TO) THEN
753: FOR l_okl_sty_geq_rec IN l_okl_sty_geq_csr
751: END LOOP;
752: ELSIF (p_effective_date_operator = G_GREATER_THAN_EQUAL_TO) THEN
753: FOR l_okl_sty_geq_rec IN l_okl_sty_geq_csr
754: LOOP
755: l_value := Okl_Api.G_TRUE;
756: x_inv_agmt_chr_id := l_okl_sty_geq_rec.khr_id;
757: END LOOP;
758: END IF; -- p_effective_date_operator
759:
758: END IF; -- p_effective_date_operator
759:
760: x_value := l_value;
761:
762: Okl_Api.END_ACTIVITY(x_msg_count => x_msg_count
763: ,x_msg_data => x_msg_data);
764:
765: x_return_status := l_return_status;
766:
766:
767: EXCEPTION
768: WHEN G_EXCEPTION_ERROR THEN
769:
770: x_return_status := Okl_Api.HANDLE_EXCEPTIONS(p_api_name => l_api_name,
771: p_pkg_name => G_PKG_NAME,
772: p_exc_name => G_EXC_NAME_ERROR,
773: x_msg_count => x_msg_count,
774: x_msg_data => x_msg_data,
775: p_api_type => G_API_TYPE);
776:
777: WHEN G_EXCEPTION_UNEXPECTED_ERROR THEN
778:
779: x_return_status := Okl_Api.HANDLE_EXCEPTIONS(p_api_name => l_api_name,
780: p_pkg_name => G_PKG_NAME,
781: p_exc_name => G_EXC_NAME_UNEXP_ERROR,
782: x_msg_count => x_msg_count,
783: x_msg_data => x_msg_data,
783: x_msg_data => x_msg_data,
784: p_api_type => G_API_TYPE);
785: WHEN OTHERS THEN
786:
787: x_return_status := Okl_Api.HANDLE_EXCEPTIONS(p_api_name => l_api_name,
788: p_pkg_name => G_PKG_NAME,
789: p_exc_name => G_EXC_NAME_OTHERS,
790: x_msg_count => x_msg_count,
791: x_msg_data => x_msg_data,
798: -- Procedure Name : is_stm_securitized
799: -- Description : Checks if any of the Streams Element under a streams header is securitized
800: -- Business Rules :
801: -- Parameters :
802: -- : return: OKL_API.G_TRUE: true, OKL_API.G_FALSE false,
803: -- OKL_API.G_RET_STS_ERROR, OKL_API.G_RET_STS_UNEXP_ERROR
804: -- Version : 1.0
805:
806: -- End of comments
799: -- Description : Checks if any of the Streams Element under a streams header is securitized
800: -- Business Rules :
801: -- Parameters :
802: -- : return: OKL_API.G_TRUE: true, OKL_API.G_FALSE false,
803: -- OKL_API.G_RET_STS_ERROR, OKL_API.G_RET_STS_UNEXP_ERROR
804: -- Version : 1.0
805:
806: -- End of comments
807: ----------------------------------------------------------------------------------
810: ,p_effective_date IN DATE
811: ) RETURN VARCHAR
812: IS
813: l_dummy VARCHAR2(1);
814: x_value VARCHAR2(1) := Okl_Api.G_FALSE;
815: l_row_found BOOLEAN := FALSE;
816:
817: CURSOR c_stm(p_stm_id okl_streams.ID%TYPE, p_effective_date DATE) IS
818: SELECT '1'
847: l_row_found := c_stm%FOUND;
848: CLOSE c_stm;
849:
850: IF l_row_found THEN
851: x_value := Okl_Api.G_TRUE;
852: ELSE
853: x_value := Okl_Api.G_FALSE;
854: END IF;
855:
849:
850: IF l_row_found THEN
851: x_value := Okl_Api.G_TRUE;
852: ELSE
853: x_value := Okl_Api.G_FALSE;
854: END IF;
855:
856: RETURN x_value;
857: EXCEPTION
855:
856: RETURN x_value;
857: EXCEPTION
858: WHEN OTHERS THEN
859: --l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
860: Okl_Api.Set_Message(p_app_name => Okl_Api.G_APP_NAME,
861: p_msg_name => 'OKL_UNEXPECTED_ERROR',
862: p_token1 => 'OKL_SQLCODE',
863: p_token1_value => SQLCODE,
856: RETURN x_value;
857: EXCEPTION
858: WHEN OTHERS THEN
859: --l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
860: Okl_Api.Set_Message(p_app_name => Okl_Api.G_APP_NAME,
861: p_msg_name => 'OKL_UNEXPECTED_ERROR',
862: p_token1 => 'OKL_SQLCODE',
863: p_token1_value => SQLCODE,
864: p_token2 => 'OKL_SQLERRM',
873: -- Procedure Name : check_stm_securitized
874: -- Description : Checks if any of the Streams Element under a streams header is securitized
875: -- Business Rules :
876: -- Parameters :
877: -- : x_value: OKL_API.G_TRUE: true, OKL_API.G_FALSE false,
878: -- Version : 1.0
879: -- End of comments
880: -----------------------------------------------------------------------
881: PROCEDURE check_stm_securitized(
891: IS
892: l_api_name CONSTANT VARCHAR2(30) := 'check_stm_securitized_pvt';
893: l_api_version CONSTANT NUMBER := 1.0;
894: i NUMBER;
895: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
896:
897: BEGIN
898: -- Set API savepoint
899: SAVEPOINT check_stm_securitized_pvt;
903: p_api_version,
904: l_api_name,
905: G_PKG_NAME ))
906: THEN
907: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
908: END IF;
909:
910: -- Initialize message list if requested
911: IF (Fnd_Api.to_Boolean(p_init_msg_list)) THEN
912: Fnd_Msg_Pub.initialize;
913: END IF;
914:
915: -- Initialize API status to success
916: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
917:
918:
919: /*** Begin API body ****************************************************/
920:
928: (p_count => x_msg_count,
929: p_data => x_msg_data);
930:
931: EXCEPTION
932: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
933: ROLLBACK TO check_stm_securitized_pvt;
934: x_return_status := Okl_Api.G_RET_STS_ERROR;
935: Fnd_Msg_Pub.Count_And_Get
936: (p_count => x_msg_count,
930:
931: EXCEPTION
932: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
933: ROLLBACK TO check_stm_securitized_pvt;
934: x_return_status := Okl_Api.G_RET_STS_ERROR;
935: Fnd_Msg_Pub.Count_And_Get
936: (p_count => x_msg_count,
937: p_data => x_msg_data);
938:
935: Fnd_Msg_Pub.Count_And_Get
936: (p_count => x_msg_count,
937: p_data => x_msg_data);
938:
939: WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
940: ROLLBACK TO check_stm_securitized_pvt;
941: x_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
942: Fnd_Msg_Pub.Count_And_Get
943:
937: p_data => x_msg_data);
938:
939: WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
940: ROLLBACK TO check_stm_securitized_pvt;
941: x_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
942: Fnd_Msg_Pub.Count_And_Get
943:
944: (p_count => x_msg_count,
945: p_data => x_msg_data);
945: p_data => x_msg_data);
946:
947: WHEN OTHERS THEN
948: ROLLBACK TO check_stm_securitized_pvt;
949: x_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR ;
950: Okl_Api.Set_Message(p_app_name => G_APP_NAME,
951: p_msg_name => G_UNEXPECTED_ERROR,
952: p_token1 => G_SQLCODE_TOKEN,
953: p_token1_value => SQLCODE,
946:
947: WHEN OTHERS THEN
948: ROLLBACK TO check_stm_securitized_pvt;
949: x_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR ;
950: Okl_Api.Set_Message(p_app_name => G_APP_NAME,
951: p_msg_name => G_UNEXPECTED_ERROR,
952: p_token1 => G_SQLCODE_TOKEN,
953: p_token1_value => SQLCODE,
954: p_token2 => G_SQLERRM_TOKEN,
964: -- Procedure Name : is_sel_securitized
965: -- Description : Checks if passed in entity is securitized
966: -- Business Rules :
967: -- Parameters :
968: -- : return: OKL_API.G_TRUE: true, OKL_API.G_FALSE false,
969: -- OKL_API.G_RET_STS_ERROR, OKL_API.G_RET_STS_UNEXP_ERROR
970: -- Version : 1.0
971: -- End of comments
972: ----------------------------------------------------------------------------------
965: -- Description : Checks if passed in entity is securitized
966: -- Business Rules :
967: -- Parameters :
968: -- : return: OKL_API.G_TRUE: true, OKL_API.G_FALSE false,
969: -- OKL_API.G_RET_STS_ERROR, OKL_API.G_RET_STS_UNEXP_ERROR
970: -- Version : 1.0
971: -- End of comments
972: ----------------------------------------------------------------------------------
973: FUNCTION is_sel_securitized(
975: ,p_effective_date IN DATE
976: ) RETURN VARCHAR
977: IS
978: l_dummy VARCHAR2(1);
979: x_value VARCHAR2(1) := Okl_Api.G_FALSE;
980: l_row_found BOOLEAN := FALSE;
981:
982: CURSOR c_sel(p_sel_id okl_strm_elements.ID%TYPE, p_effective_date DATE) IS
983: SELECT '1'
1014: l_row_found := c_sel%FOUND;
1015: CLOSE c_sel;
1016:
1017: IF l_row_found THEN
1018: x_value := Okl_Api.G_TRUE;
1019: ELSE
1020: x_value := Okl_Api.G_FALSE;
1021: END IF;
1022:
1016:
1017: IF l_row_found THEN
1018: x_value := Okl_Api.G_TRUE;
1019: ELSE
1020: x_value := Okl_Api.G_FALSE;
1021: END IF;
1022:
1023: RETURN x_value;
1024: EXCEPTION
1022:
1023: RETURN x_value;
1024: EXCEPTION
1025: WHEN OTHERS THEN
1026: --l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
1027: Okl_Api.Set_Message(p_app_name => Okl_Api.G_APP_NAME,
1028: p_msg_name => 'OKL_UNEXPECTED_ERROR',
1029: p_token1 => 'OKL_SQLCODE',
1030: p_token1_value => SQLCODE,
1023: RETURN x_value;
1024: EXCEPTION
1025: WHEN OTHERS THEN
1026: --l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
1027: Okl_Api.Set_Message(p_app_name => Okl_Api.G_APP_NAME,
1028: p_msg_name => 'OKL_UNEXPECTED_ERROR',
1029: p_token1 => 'OKL_SQLCODE',
1030: p_token1_value => SQLCODE,
1031: p_token2 => 'OKL_SQLERRM',
1040: -- Procedure Name : check_sel_securitized
1041: -- Description : Checks if a Stream Element is securitized
1042: -- Business Rules :
1043: -- Parameters :
1044: -- : x_value: OKL_API.G_TRUE: true, OKL_API.G_FALSE false,
1045: -- Version : 1.0
1046: -- End of comments
1047: -----------------------------------------------------------------------
1048: PROCEDURE check_sel_securitized(
1058: IS
1059: l_api_name CONSTANT VARCHAR2(30) := 'check_sel_securitized_pvt';
1060: l_api_version CONSTANT NUMBER := 1.0;
1061: i NUMBER;
1062: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
1063:
1064: BEGIN
1065: -- Set API savepoint
1066: SAVEPOINT check_sel_securitized_pvt;
1070: p_api_version,
1071: l_api_name,
1072: G_PKG_NAME ))
1073: THEN
1074: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1075: END IF;
1076:
1077: -- Initialize message list if requested
1078: IF (Fnd_Api.to_Boolean(p_init_msg_list)) THEN
1079: Fnd_Msg_Pub.initialize;
1080: END IF;
1081:
1082: -- Initialize API status to success
1083: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
1084:
1085:
1086: /*** Begin API body ****************************************************/
1087:
1096: (p_count => x_msg_count,
1097: p_data => x_msg_data);
1098:
1099: EXCEPTION
1100: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
1101:
1102: ROLLBACK TO check_sel_securitized_pvt;
1103: x_return_status := Okl_Api.G_RET_STS_ERROR;
1104: Fnd_Msg_Pub.Count_And_Get
1099: EXCEPTION
1100: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
1101:
1102: ROLLBACK TO check_sel_securitized_pvt;
1103: x_return_status := Okl_Api.G_RET_STS_ERROR;
1104: Fnd_Msg_Pub.Count_And_Get
1105: (p_count => x_msg_count,
1106: p_data => x_msg_data);
1107:
1104: Fnd_Msg_Pub.Count_And_Get
1105: (p_count => x_msg_count,
1106: p_data => x_msg_data);
1107:
1108: WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
1109: ROLLBACK TO check_sel_securitized_pvt;
1110: x_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
1111: Fnd_Msg_Pub.Count_And_Get
1112: (p_count => x_msg_count,
1106: p_data => x_msg_data);
1107:
1108: WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
1109: ROLLBACK TO check_sel_securitized_pvt;
1110: x_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
1111: Fnd_Msg_Pub.Count_And_Get
1112: (p_count => x_msg_count,
1113: p_data => x_msg_data);
1114:
1113: p_data => x_msg_data);
1114:
1115: WHEN OTHERS THEN
1116: ROLLBACK TO check_sel_securitized_pvt;
1117: x_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR ;
1118: Okl_Api.Set_Message(p_app_name => G_APP_NAME,
1119: p_msg_name => G_UNEXPECTED_ERROR,
1120: p_token1 => G_SQLCODE_TOKEN,
1121: p_token1_value => SQLCODE,
1114:
1115: WHEN OTHERS THEN
1116: ROLLBACK TO check_sel_securitized_pvt;
1117: x_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR ;
1118: Okl_Api.Set_Message(p_app_name => G_APP_NAME,
1119: p_msg_name => G_UNEXPECTED_ERROR,
1120: p_token1 => G_SQLCODE_TOKEN,
1121: p_token1_value => SQLCODE,
1122: p_token2 => G_SQLERRM_TOKEN,
1138: -- End of comments
1139: ----------------------------------------------------------------------------------
1140: PROCEDURE check_khr_ia_associated(
1141: p_api_version IN NUMBER
1142: ,p_init_msg_list IN VARCHAR2 DEFAULT Okl_Api.G_FALSE
1143: ,x_return_status OUT NOCOPY VARCHAR2
1144: ,x_msg_count OUT NOCOPY NUMBER
1145: ,x_msg_data OUT NOCOPY VARCHAR2
1146: ,p_khr_id IN NUMBER
1152: IS
1153: l_api_name CONSTANT VARCHAR2(30) := 'check_khr_ia_associated';
1154: l_api_version CONSTANT NUMBER := 1.0;
1155: i NUMBER;
1156: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
1157: l_trx_date DATE; -- cklee fixed bug: 7017824(R12)/OKL.H bug#6964174
1158:
1159: CURSOR investor_code (p_ia_chr_id IN NUMBER) IS
1160: SELECT rule_information1
1228: p_api_version,
1229: l_api_name,
1230: G_PKG_NAME ))
1231: THEN
1232: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1233: END IF;
1234:
1235: -- Initialize message list if requested
1236: IF (Fnd_Api.to_Boolean(p_init_msg_list)) THEN
1237: Fnd_Msg_Pub.initialize;
1238: END IF;
1239:
1240: -- Initialize API status to success
1241: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
1242:
1243: /*** Begin API body ****************************************************/
1244:
1245: -- scs_code is INVESTOR, return null
1329: (p_count => x_msg_count,
1330: p_data => x_msg_data);
1331:
1332: EXCEPTION
1333: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
1334: ROLLBACK TO check_khr_ia_associated_pvt;
1335: x_return_status := Okl_Api.G_RET_STS_ERROR;
1336: Fnd_Msg_Pub.Count_And_Get
1337: (p_count => x_msg_count,
1331:
1332: EXCEPTION
1333: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
1334: ROLLBACK TO check_khr_ia_associated_pvt;
1335: x_return_status := Okl_Api.G_RET_STS_ERROR;
1336: Fnd_Msg_Pub.Count_And_Get
1337: (p_count => x_msg_count,
1338: p_data => x_msg_data);
1339:
1336: Fnd_Msg_Pub.Count_And_Get
1337: (p_count => x_msg_count,
1338: p_data => x_msg_data);
1339:
1340: WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
1341: ROLLBACK TO check_khr_ia_associated_pvt;
1342: x_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
1343: Fnd_Msg_Pub.Count_And_Get
1344: (p_count => x_msg_count,
1338: p_data => x_msg_data);
1339:
1340: WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
1341: ROLLBACK TO check_khr_ia_associated_pvt;
1342: x_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
1343: Fnd_Msg_Pub.Count_And_Get
1344: (p_count => x_msg_count,
1345: p_data => x_msg_data);
1346:
1345: p_data => x_msg_data);
1346:
1347: WHEN OTHERS THEN
1348: ROLLBACK TO check_khr_ia_associated_pvt;
1349: x_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR ;
1350: Okl_Api.Set_Message(p_app_name => G_APP_NAME,
1351: p_msg_name => G_UNEXPECTED_ERROR,
1352: p_token1 => G_SQLCODE_TOKEN,
1353: p_token1_value => SQLCODE,
1346:
1347: WHEN OTHERS THEN
1348: ROLLBACK TO check_khr_ia_associated_pvt;
1349: x_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR ;
1350: Okl_Api.Set_Message(p_app_name => G_APP_NAME,
1351: p_msg_name => G_UNEXPECTED_ERROR,
1352: p_token1 => G_SQLCODE_TOKEN,
1353: p_token1_value => SQLCODE,
1354: p_token2 => G_SQLERRM_TOKEN,
1437: IS
1438: l_api_name CONSTANT VARCHAR2(30) := 'process_khr_investor_rules';
1439: l_api_version CONSTANT NUMBER := 1.0;
1440: i NUMBER;
1441: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
1442:
1443: l_flag VARCHAR2(1) := Okl_Api.G_FALSE;
1444: l_action NUMBER;
1445:
1439: l_api_version CONSTANT NUMBER := 1.0;
1440: i NUMBER;
1441: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
1442:
1443: l_flag VARCHAR2(1) := Okl_Api.G_FALSE;
1444: l_action NUMBER;
1445:
1446: CURSOR c_action(p_rgd_code okc_rule_groups_b.rgd_code%TYPE,
1447: p_rdf_code okc_rules_b.RULE_INFORMATION_CATEGORY%TYPE,
1495: p_api_version,
1496: l_api_name,
1497: G_PKG_NAME ))
1498: THEN
1499: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1500: END IF;
1501:
1502: -- Initialize message list if requested
1503: IF (Fnd_Api.to_Boolean(p_init_msg_list)) THEN
1504: Fnd_Msg_Pub.initialize;
1505: END IF;
1506:
1507: -- Initialize API status to success
1508: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
1509:
1510:
1511: /*** Begin API body ****************************************************/
1512: /*
1524: -- 1. get flag
1525: l_flag := is_khr_securitized(p_khr_id => p_khr_id
1526: ,p_effective_date => p_effective_date);
1527:
1528: IF l_flag = Okl_Api.G_TRUE THEN
1529:
1530: OPEN c_action(p_rgd_code
1531: ,NVL(p_rdf_code, G_PROCESS_RULE_CODE)
1532:
1546: x_msg_data => x_msg_data,
1547: p_khr_id => p_khr_id,
1548: p_effective_date => p_effective_date);
1549:
1550: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1551: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1552: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1553: RAISE Okl_Api.G_EXCEPTION_ERROR;
1554: END IF;
1547: p_khr_id => p_khr_id,
1548: p_effective_date => p_effective_date);
1549:
1550: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1551: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1552: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1553: RAISE Okl_Api.G_EXCEPTION_ERROR;
1554: END IF;
1555: -- set message
1548: p_effective_date => p_effective_date);
1549:
1550: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1551: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1552: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1553: RAISE Okl_Api.G_EXCEPTION_ERROR;
1554: END IF;
1555: -- set message
1556:
1549:
1550: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1551: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1552: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1553: RAISE Okl_Api.G_EXCEPTION_ERROR;
1554: END IF;
1555: -- set message
1556:
1557: ELSIF l_action = G_PRIORITY_1 THEN
1555: -- set message
1556:
1557: ELSIF l_action = G_PRIORITY_1 THEN
1558: x_process_code := G_PROCESS_NOT_ALLOWED;
1559: Okl_Api.Set_Message(p_app_name => G_APP_NAME,
1560: p_msg_name => 'OKL_LLA_BUYBACK_NOT_ALLOWED');
1561:
1562: END IF;
1563:
1588: (p_count => x_msg_count,
1589: p_data => x_msg_data);
1590:
1591: EXCEPTION
1592: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
1593: ROLLBACK TO process_khr_investor_rules;
1594: x_return_status := Okl_Api.G_RET_STS_ERROR;
1595: Fnd_Msg_Pub.Count_And_Get
1596: (p_count => x_msg_count,
1590:
1591: EXCEPTION
1592: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
1593: ROLLBACK TO process_khr_investor_rules;
1594: x_return_status := Okl_Api.G_RET_STS_ERROR;
1595: Fnd_Msg_Pub.Count_And_Get
1596: (p_count => x_msg_count,
1597: p_data => x_msg_data);
1598:
1595: Fnd_Msg_Pub.Count_And_Get
1596: (p_count => x_msg_count,
1597: p_data => x_msg_data);
1598:
1599: WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
1600: ROLLBACK TO process_khr_investor_rules;
1601: x_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
1602: Fnd_Msg_Pub.Count_And_Get
1603: (p_count => x_msg_count,
1597: p_data => x_msg_data);
1598:
1599: WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
1600: ROLLBACK TO process_khr_investor_rules;
1601: x_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
1602: Fnd_Msg_Pub.Count_And_Get
1603: (p_count => x_msg_count,
1604: p_data => x_msg_data);
1605:
1604: p_data => x_msg_data);
1605:
1606: WHEN OTHERS THEN
1607: ROLLBACK TO process_khr_investor_rules;
1608: x_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR ;
1609: Okl_Api.Set_Message(p_app_name => G_APP_NAME,
1610: p_msg_name => G_UNEXPECTED_ERROR,
1611: p_token1 => G_SQLCODE_TOKEN,
1612: p_token1_value => SQLCODE,
1605:
1606: WHEN OTHERS THEN
1607: ROLLBACK TO process_khr_investor_rules;
1608: x_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR ;
1609: Okl_Api.Set_Message(p_app_name => G_APP_NAME,
1610: p_msg_name => G_UNEXPECTED_ERROR,
1611: p_token1 => G_SQLCODE_TOKEN,
1612: p_token1_value => SQLCODE,
1613: p_token2 => G_SQLERRM_TOKEN,
1646: IS
1647: l_api_name CONSTANT VARCHAR2(30) := 'process_kle_investor_rules';
1648: l_api_version CONSTANT NUMBER := 1.0;
1649: i NUMBER;
1650: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
1651:
1652: l_flag VARCHAR2(1) := Okl_Api.G_FALSE;
1653: l_action NUMBER;
1654:
1648: l_api_version CONSTANT NUMBER := 1.0;
1649: i NUMBER;
1650: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
1651:
1652: l_flag VARCHAR2(1) := Okl_Api.G_FALSE;
1653: l_action NUMBER;
1654:
1655: CURSOR c_action(p_rgd_code okc_rule_groups_b.rgd_code%TYPE,
1656: p_rdf_code okc_rules_b.RULE_INFORMATION_CATEGORY%TYPE,
1705: p_api_version,
1706: l_api_name,
1707: G_PKG_NAME ))
1708: THEN
1709: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1710: END IF;
1711:
1712: -- Initialize message list if requested
1713: IF (Fnd_Api.to_Boolean(p_init_msg_list)) THEN
1715: END IF;
1716:
1717:
1718: -- Initialize API status to success
1719: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
1720:
1721:
1722: /*** Begin API body ****************************************************/
1723: /*
1735: -- 1. get flag
1736: l_flag := is_kle_securitized(p_kle_id => p_kle_id
1737: ,p_effective_date => p_effective_date);
1738:
1739: IF l_flag = Okl_Api.G_TRUE THEN
1740:
1741: OPEN c_action(p_rgd_code
1742: ,NVL(p_rdf_code, G_PROCESS_RULE_CODE)
1743: ,p_kle_id);
1756: x_msg_data => x_msg_data,
1757: p_kle_id => p_kle_id,
1758: p_effective_date => p_effective_date);
1759:
1760: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1761: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1762: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1763: RAISE Okl_Api.G_EXCEPTION_ERROR;
1764: END IF;
1757: p_kle_id => p_kle_id,
1758: p_effective_date => p_effective_date);
1759:
1760: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1761: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1762: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1763: RAISE Okl_Api.G_EXCEPTION_ERROR;
1764: END IF;
1765: -- set message
1758: p_effective_date => p_effective_date);
1759:
1760: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1761: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1762: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1763: RAISE Okl_Api.G_EXCEPTION_ERROR;
1764: END IF;
1765: -- set message
1766:
1759:
1760: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1761: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1762: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1763: RAISE Okl_Api.G_EXCEPTION_ERROR;
1764: END IF;
1765: -- set message
1766:
1767: ELSIF l_action = G_PRIORITY_1 THEN
1765: -- set message
1766:
1767: ELSIF l_action = G_PRIORITY_1 THEN
1768: x_process_code := G_PROCESS_NOT_ALLOWED;
1769: Okl_Api.Set_Message(p_app_name => G_APP_NAME,
1770: p_msg_name => 'OKL_LLA_BUYBACK_NOT_ALLOWED');
1771:
1772: END IF;
1773:
1796: (p_count => x_msg_count,
1797: p_data => x_msg_data);
1798:
1799: EXCEPTION
1800: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
1801: ROLLBACK TO process_kle_investor_rules;
1802: x_return_status := Okl_Api.G_RET_STS_ERROR;
1803: Fnd_Msg_Pub.Count_And_Get
1804: (p_count => x_msg_count,
1798:
1799: EXCEPTION
1800: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
1801: ROLLBACK TO process_kle_investor_rules;
1802: x_return_status := Okl_Api.G_RET_STS_ERROR;
1803: Fnd_Msg_Pub.Count_And_Get
1804: (p_count => x_msg_count,
1805: p_data => x_msg_data);
1806:
1803: Fnd_Msg_Pub.Count_And_Get
1804: (p_count => x_msg_count,
1805: p_data => x_msg_data);
1806:
1807: WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
1808: ROLLBACK TO process_kle_investor_rules;
1809: x_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
1810: Fnd_Msg_Pub.Count_And_Get
1811: (p_count => x_msg_count,
1805: p_data => x_msg_data);
1806:
1807: WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
1808: ROLLBACK TO process_kle_investor_rules;
1809: x_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
1810: Fnd_Msg_Pub.Count_And_Get
1811: (p_count => x_msg_count,
1812: p_data => x_msg_data);
1813:
1812: p_data => x_msg_data);
1813:
1814: WHEN OTHERS THEN
1815: ROLLBACK TO process_kle_investor_rules;
1816: x_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR ;
1817: Okl_Api.Set_Message(p_app_name => G_APP_NAME,
1818: p_msg_name => G_UNEXPECTED_ERROR,
1819: p_token1 => G_SQLCODE_TOKEN,
1820: p_token1_value => SQLCODE,
1813:
1814: WHEN OTHERS THEN
1815: ROLLBACK TO process_kle_investor_rules;
1816: x_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR ;
1817: Okl_Api.Set_Message(p_app_name => G_APP_NAME,
1818: p_msg_name => G_UNEXPECTED_ERROR,
1819: p_token1 => G_SQLCODE_TOKEN,
1820: p_token1_value => SQLCODE,
1821: p_token2 => G_SQLERRM_TOKEN,
1849: AND styb.stream_type_subclass = p_stream_type_subclass;
1850:
1851: l_api_name CONSTANT VARCHAR2(30) := 'buyback_streams';
1852: l_api_version CONSTANT NUMBER := 1.0;
1853: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1854:
1855: BEGIN
1856:
1857: l_return_status := Okl_Api.START_ACTIVITY(p_api_name => l_api_name,
1853: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1854:
1855: BEGIN
1856:
1857: l_return_status := Okl_Api.START_ACTIVITY(p_api_name => l_api_name,
1858: p_pkg_name => G_PKG_NAME,
1859: p_init_msg_list => p_init_msg_list,
1860: l_api_version => l_api_version,
1861: p_api_version => p_api_version,
1885: END IF;
1886:
1887: END LOOP; -- l_okl_poc_csr
1888:
1889: Okl_Api.END_ACTIVITY(x_msg_count => x_msg_count
1890: ,x_msg_data => x_msg_data);
1891:
1892: x_return_status := l_return_status;
1893:
1894:
1895: EXCEPTION
1896: WHEN G_EXCEPTION_ERROR THEN
1897:
1898: x_return_status := Okl_Api.HANDLE_EXCEPTIONS(p_api_name => l_api_name,
1899: p_pkg_name => G_PKG_NAME,
1900: p_exc_name => G_EXC_NAME_ERROR,
1901: x_msg_count => x_msg_count,
1902: x_msg_data => x_msg_data,
1903: p_api_type => G_API_TYPE);
1904:
1905: WHEN G_EXCEPTION_UNEXPECTED_ERROR THEN
1906:
1907: x_return_status := Okl_Api.HANDLE_EXCEPTIONS(p_api_name => l_api_name,
1908: p_pkg_name => G_PKG_NAME,
1909: p_exc_name => G_EXC_NAME_UNEXP_ERROR,
1910: x_msg_count => x_msg_count,
1911: x_msg_data => x_msg_data,
1911: x_msg_data => x_msg_data,
1912: p_api_type => G_API_TYPE);
1913: WHEN OTHERS THEN
1914:
1915: x_return_status := Okl_Api.HANDLE_EXCEPTIONS(p_api_name => l_api_name,
1916: p_pkg_name => G_PKG_NAME,
1917: p_exc_name => G_EXC_NAME_OTHERS,
1918: x_msg_count => x_msg_count,
1919: x_msg_data => x_msg_data,
1964: lp_add_parameters okl_execute_formula_pub.ctxt_val_tbl_type;
1965:
1966: l_api_name CONSTANT VARCHAR2(30) := 'calculate_buyback_content';
1967: l_api_version CONSTANT NUMBER := 1.0;
1968: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1969:
1970: BEGIN
1971: l_return_status := Okl_Api.START_ACTIVITY(p_api_name => l_api_name,
1972: p_pkg_name => G_PKG_NAME,
1967: l_api_version CONSTANT NUMBER := 1.0;
1968: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1969:
1970: BEGIN
1971: l_return_status := Okl_Api.START_ACTIVITY(p_api_name => l_api_name,
1972: p_pkg_name => G_PKG_NAME,
1973: p_init_msg_list => p_init_msg_list,
1974: l_api_version => l_api_version,
1975: p_api_version => p_api_version,
2001: ,p_additional_parameters => lp_add_parameters
2002: ,x_value => x_buyback_amount);
2003:
2004:
2005: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2006: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2007: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2008: RAISE OKL_API.G_EXCEPTION_ERROR;
2009: END IF;
2002: ,x_value => x_buyback_amount);
2003:
2004:
2005: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2006: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2007: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2008: RAISE OKL_API.G_EXCEPTION_ERROR;
2009: END IF;
2010:
2003:
2004:
2005: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2006: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2007: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2008: RAISE OKL_API.G_EXCEPTION_ERROR;
2009: END IF;
2010:
2011: END LOOP; --l_okl_poc_formula_rec
2004:
2005: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2006: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2007: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2008: RAISE OKL_API.G_EXCEPTION_ERROR;
2009: END IF;
2010:
2011: END LOOP; --l_okl_poc_formula_rec
2012:
2009: END IF;
2010:
2011: END LOOP; --l_okl_poc_formula_rec
2012:
2013: Okl_Api.END_ACTIVITY(x_msg_count => x_msg_count
2014: ,x_msg_data => x_msg_data);
2015:
2016: x_return_status := l_return_status;
2017:
2017:
2018: EXCEPTION
2019: WHEN G_EXCEPTION_ERROR THEN
2020:
2021: x_return_status := Okl_Api.HANDLE_EXCEPTIONS(p_api_name => l_api_name,
2022: p_pkg_name => G_PKG_NAME,
2023: p_exc_name => G_EXC_NAME_ERROR,
2024: x_msg_count => x_msg_count,
2025: x_msg_data => x_msg_data,
2025: x_msg_data => x_msg_data,
2026: p_api_type => G_API_TYPE);
2027: WHEN G_EXCEPTION_UNEXPECTED_ERROR THEN
2028:
2029: x_return_status := Okl_Api.HANDLE_EXCEPTIONS(p_api_name => l_api_name,
2030: p_pkg_name => G_PKG_NAME,
2031: p_exc_name => G_EXC_NAME_UNEXP_ERROR,
2032: x_msg_count => x_msg_count,
2033: x_msg_data => x_msg_data,
2033: x_msg_data => x_msg_data,
2034: p_api_type => G_API_TYPE);
2035: WHEN OTHERS THEN
2036:
2037: x_return_status := Okl_Api.HANDLE_EXCEPTIONS(p_api_name => l_api_name,
2038: p_pkg_name => G_PKG_NAME,
2039: p_exc_name => G_EXC_NAME_OTHERS,
2040: x_msg_count => x_msg_count,
2041: x_msg_data => x_msg_data,
2121: AND kleb.sty_id = p_sty_id;
2122:
2123: l_api_name CONSTANT VARCHAR2(30) := 'calculate_buyback_amount';
2124: l_api_version CONSTANT NUMBER := 1.0;
2125: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
2126:
2127: lp_add_parameters Okl_Execute_Formula_Pub.ctxt_val_tbl_type;
2128: lx_buyback_amount NUMBER := 0;
2129: l_amount NUMBER := 0;
2131: l_formula VARCHAR2(450);
2132:
2133: BEGIN
2134:
2135: l_return_status := Okl_Api.START_ACTIVITY(p_api_name => l_api_name,
2136: p_pkg_name => G_PKG_NAME,
2137: p_init_msg_list => p_init_msg_list,
2138: l_api_version => l_api_version,
2139: p_api_version => p_api_version,
2172: ,p_line_id => l_okl_poc_rec.kle_id
2173: ,p_additional_parameters => lp_add_parameters
2174: ,x_value => l_amount);
2175:
2176: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
2177: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2178: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
2179: RAISE Okl_Api.G_EXCEPTION_ERROR;
2180: END IF;
2173: ,p_additional_parameters => lp_add_parameters
2174: ,x_value => l_amount);
2175:
2176: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
2177: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2178: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
2179: RAISE Okl_Api.G_EXCEPTION_ERROR;
2180: END IF;
2181:
2174: ,x_value => l_amount);
2175:
2176: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
2177: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2178: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
2179: RAISE Okl_Api.G_EXCEPTION_ERROR;
2180: END IF;
2181:
2182: -- calculate the revenue share for each sty
2175:
2176: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
2177: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2178: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
2179: RAISE Okl_Api.G_EXCEPTION_ERROR;
2180: END IF;
2181:
2182: -- calculate the revenue share for each sty
2183: FOR l_okl_rev_shares_rec IN l_okl_rev_shares_csr(l_okl_poc_rec.khr_id,l_okl_poc_rec.sty_id)
2194: END LOOP; -- l_okl_pol_csr
2195:
2196: x_buyback_amount := lx_buyback_amount;
2197:
2198: Okl_Api.END_ACTIVITY(x_msg_count => x_msg_count
2199: ,x_msg_data => x_msg_data);
2200:
2201: x_return_status := l_return_status;
2202:
2203:
2204: EXCEPTION
2205: WHEN G_EXCEPTION_ERROR THEN
2206:
2207: x_return_status := Okl_Api.HANDLE_EXCEPTIONS(p_api_name => l_api_name,
2208: p_pkg_name => G_PKG_NAME,
2209: p_exc_name => G_EXC_NAME_ERROR,
2210: x_msg_count => x_msg_count,
2211: x_msg_data => x_msg_data,
2212: p_api_type => G_API_TYPE);
2213:
2214: WHEN G_EXCEPTION_UNEXPECTED_ERROR THEN
2215:
2216: x_return_status := Okl_Api.HANDLE_EXCEPTIONS(p_api_name => l_api_name,
2217: p_pkg_name => G_PKG_NAME,
2218: p_exc_name => G_EXC_NAME_UNEXP_ERROR,
2219: x_msg_count => x_msg_count,
2220: x_msg_data => x_msg_data,
2220: x_msg_data => x_msg_data,
2221: p_api_type => G_API_TYPE);
2222: WHEN OTHERS THEN
2223:
2224: x_return_status := Okl_Api.HANDLE_EXCEPTIONS(p_api_name => l_api_name,
2225: p_pkg_name => G_PKG_NAME,
2226: p_exc_name => G_EXC_NAME_OTHERS,
2227: x_msg_count => x_msg_count,
2228: x_msg_data => x_msg_data,
2242: -- End of comments
2243: ----------------------------------------------------------------------------------
2244: PROCEDURE adjust_pool_contents(
2245: p_api_version IN NUMBER
2246: ,p_init_msg_list IN VARCHAR2 DEFAULT Okl_Api.G_FALSE
2247: ,x_return_status OUT NOCOPY VARCHAR2
2248: ,x_msg_count OUT NOCOPY NUMBER
2249: ,x_msg_data OUT NOCOPY VARCHAR2
2250: ,p_poxv_rec IN poxv_rec_type
2319:
2320: l_api_name CONSTANT VARCHAR2(30) := 'adjust_pool_contents';
2321: l_api_version CONSTANT NUMBER := 1.0;
2322: i NUMBER;
2323: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
2324:
2325: lp_poxv_rec poxv_rec_type;
2326: lx_poxv_rec poxv_rec_type;
2327: lp_pocv_rec pocv_rec_type;
2335: l_rv_date_updated BOOLEAN := FALSE;
2336:
2337: BEGIN
2338:
2339: l_return_status := Okl_Api.START_ACTIVITY(p_api_name => l_api_name,
2340: p_pkg_name => G_PKG_NAME,
2341: p_init_msg_list => p_init_msg_list,
2342: l_api_version => l_api_version,
2343: p_api_version => p_api_version,
2357: ,x_msg_data => x_msg_data
2358: ,p_poxv_rec => lp_poxv_rec
2359: ,x_poxv_rec => lx_poxv_rec);
2360:
2361: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
2362: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2363: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
2364: RAISE Okl_Api.G_EXCEPTION_ERROR;
2365: END IF;
2358: ,p_poxv_rec => lp_poxv_rec
2359: ,x_poxv_rec => lx_poxv_rec);
2360:
2361: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
2362: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2363: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
2364: RAISE Okl_Api.G_EXCEPTION_ERROR;
2365: END IF;
2366:
2359: ,x_poxv_rec => lx_poxv_rec);
2360:
2361: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
2362: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2363: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
2364: RAISE Okl_Api.G_EXCEPTION_ERROR;
2365: END IF;
2366:
2367: -- Bug# 7590979 - Start
2360:
2361: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
2362: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2363: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
2364: RAISE Okl_Api.G_EXCEPTION_ERROR;
2365: END IF;
2366:
2367: -- Bug# 7590979 - Start
2368: -- Initialize the input stream to date (usually contract end date +1)
2415: ,p_pocv_rec => lp_pocv_rec
2416: ,x_pocv_rec => lx_pocv_rec);
2417:
2418:
2419: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
2420: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2421: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
2422: RAISE Okl_Api.G_EXCEPTION_ERROR;
2423: END IF;
2416: ,x_pocv_rec => lx_pocv_rec);
2417:
2418:
2419: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
2420: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2421: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
2422: RAISE Okl_Api.G_EXCEPTION_ERROR;
2423: END IF;
2424:
2417:
2418:
2419: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
2420: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2421: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
2422: RAISE Okl_Api.G_EXCEPTION_ERROR;
2423: END IF;
2424:
2425: IF ( lp_poxv_rec.transaction_reason = G_TRX_REASON_CONTRACT_REBOOK
2418:
2419: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
2420: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2421: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
2422: RAISE Okl_Api.G_EXCEPTION_ERROR;
2423: END IF;
2424:
2425: IF ( lp_poxv_rec.transaction_reason = G_TRX_REASON_CONTRACT_REBOOK
2426: OR lp_poxv_rec.transaction_reason = G_TRX_REASON_ASSET_SPLIT)
2519: ,x_msg_data => x_msg_data
2520: ,p_pocv_rec => lp_pocv_rec_cre
2521: ,x_pocv_rec => lx_pocv_rec);
2522:
2523: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
2524: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2525: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
2526: RAISE Okl_Api.G_EXCEPTION_ERROR;
2527: END IF;
2520: ,p_pocv_rec => lp_pocv_rec_cre
2521: ,x_pocv_rec => lx_pocv_rec);
2522:
2523: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
2524: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2525: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
2526: RAISE Okl_Api.G_EXCEPTION_ERROR;
2527: END IF;
2528:
2521: ,x_pocv_rec => lx_pocv_rec);
2522:
2523: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
2524: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2525: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
2526: RAISE Okl_Api.G_EXCEPTION_ERROR;
2527: END IF;
2528:
2529: -- Update Status => "Active"
2522:
2523: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
2524: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2525: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
2526: RAISE Okl_Api.G_EXCEPTION_ERROR;
2527: END IF;
2528:
2529: -- Update Status => "Active"
2530: lp_pocv_rec_upd.id := lx_pocv_rec.id;
2539: ,x_msg_data => x_msg_data
2540: ,p_pocv_rec => lp_pocv_rec_upd
2541: ,x_pocv_rec => lx_pocv_rec);
2542:
2543: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
2544: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2545: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
2546: RAISE Okl_Api.G_EXCEPTION_ERROR;
2547: END IF;
2540: ,p_pocv_rec => lp_pocv_rec_upd
2541: ,x_pocv_rec => lx_pocv_rec);
2542:
2543: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
2544: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2545: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
2546: RAISE Okl_Api.G_EXCEPTION_ERROR;
2547: END IF;
2548:
2541: ,x_pocv_rec => lx_pocv_rec);
2542:
2543: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
2544: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2545: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
2546: RAISE Okl_Api.G_EXCEPTION_ERROR;
2547: END IF;
2548:
2549: END IF; -- l_create
2542:
2543: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
2544: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2545: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
2546: RAISE Okl_Api.G_EXCEPTION_ERROR;
2547: END IF;
2548:
2549: END IF; -- l_create
2550:
2549: END IF; -- l_create
2550:
2551: END LOOP; -- l_okl_poc_rec
2552:
2553: Okl_Api.END_ACTIVITY(x_msg_count => x_msg_count
2554: ,x_msg_data => x_msg_data);
2555:
2556: x_return_status := l_return_status;
2557:
2556: x_return_status := l_return_status;
2557:
2558: EXCEPTION
2559: WHEN G_EXCEPTION_ERROR THEN
2560: x_return_status := Okl_Api.HANDLE_EXCEPTIONS(p_api_name => l_api_name,
2561: p_pkg_name => G_PKG_NAME,
2562: p_exc_name => G_EXC_NAME_ERROR,
2563: x_msg_count => x_msg_count,
2564: x_msg_data => x_msg_data,
2564: x_msg_data => x_msg_data,
2565: p_api_type => G_API_TYPE);
2566:
2567: WHEN G_EXCEPTION_UNEXPECTED_ERROR THEN
2568: x_return_status := Okl_Api.HANDLE_EXCEPTIONS(p_api_name => l_api_name,
2569: p_pkg_name => G_PKG_NAME,
2570: p_exc_name => G_EXC_NAME_UNEXP_ERROR,
2571: x_msg_count => x_msg_count,
2572: x_msg_data => x_msg_data,
2571: x_msg_count => x_msg_count,
2572: x_msg_data => x_msg_data,
2573: p_api_type => G_API_TYPE);
2574: WHEN OTHERS THEN
2575: x_return_status := Okl_Api.HANDLE_EXCEPTIONS(p_api_name => l_api_name,
2576: p_pkg_name => G_PKG_NAME,
2577: p_exc_name => G_EXC_NAME_OTHERS,
2578: x_msg_count => x_msg_count,
2579: x_msg_data => x_msg_data,
2638: -- end ankushar Legal Entity changes
2639:
2640: l_api_name CONSTANT VARCHAR2(30) := 'modify_pool_contents';
2641: l_api_version CONSTANT NUMBER := 1.0;
2642: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
2643:
2644:
2645: lp_pocv_rec pocv_rec_type;
2646: lx_pocv_rec pocv_rec_type;
2656: -- end ankushar Legal Entity changes
2657:
2658: BEGIN
2659:
2660: l_return_status := Okl_Api.START_ACTIVITY(p_api_name => l_api_name,
2661: p_pkg_name => G_PKG_NAME,
2662: p_init_msg_list => p_init_msg_list,
2663: l_api_version => l_api_version,
2664: p_api_version => p_api_version,
2713: ,p_stream_type_subclass => p_stream_type_subclass
2714: -- mvasudev, 02/06/2004
2715: ,p_streams_to_date => l_okl_khr_rec.end_date+1);
2716:
2717: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
2718: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2719: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
2720: RAISE Okl_Api.G_EXCEPTION_ERROR;
2721: END IF;
2714: -- mvasudev, 02/06/2004
2715: ,p_streams_to_date => l_okl_khr_rec.end_date+1);
2716:
2717: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
2718: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2719: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
2720: RAISE Okl_Api.G_EXCEPTION_ERROR;
2721: END IF;
2722:
2715: ,p_streams_to_date => l_okl_khr_rec.end_date+1);
2716:
2717: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
2718: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2719: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
2720: RAISE Okl_Api.G_EXCEPTION_ERROR;
2721: END IF;
2722:
2723: END LOOP; -- l_okl_khr_csr
2716:
2717: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
2718: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2719: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
2720: RAISE Okl_Api.G_EXCEPTION_ERROR;
2721: END IF;
2722:
2723: END LOOP; -- l_okl_khr_csr
2724:
2757: ,p_kle_id => p_kle_id
2758: ,p_stream_type_subclass => p_stream_type_subclass
2759: ,p_streams_to_date => p_effective_date);
2760:
2761: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
2762: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2763: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
2764: RAISE Okl_Api.G_EXCEPTION_ERROR;
2765: END IF;
2758: ,p_stream_type_subclass => p_stream_type_subclass
2759: ,p_streams_to_date => p_effective_date);
2760:
2761: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
2762: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2763: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
2764: RAISE Okl_Api.G_EXCEPTION_ERROR;
2765: END IF;
2766:
2759: ,p_streams_to_date => p_effective_date);
2760:
2761: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
2762: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2763: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
2764: RAISE Okl_Api.G_EXCEPTION_ERROR;
2765: END IF;
2766:
2767: END LOOP ; --l_okl_pol_csr
2760:
2761: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
2762: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2763: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
2764: RAISE Okl_Api.G_EXCEPTION_ERROR;
2765: END IF;
2766:
2767: END LOOP ; --l_okl_pol_csr
2768: ELSIF (p_transaction_reason = G_TRX_REASON_ASSET_TERMINATION) THEN
2799: ,p_kle_id => p_kle_id
2800: ,p_stream_type_subclass => p_stream_type_subclass
2801: ,p_streams_to_date => p_effective_date);
2802:
2803: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
2804: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2805: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
2806: RAISE Okl_Api.G_EXCEPTION_ERROR;
2807: END IF;
2800: ,p_stream_type_subclass => p_stream_type_subclass
2801: ,p_streams_to_date => p_effective_date);
2802:
2803: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
2804: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2805: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
2806: RAISE Okl_Api.G_EXCEPTION_ERROR;
2807: END IF;
2808:
2801: ,p_streams_to_date => p_effective_date);
2802:
2803: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
2804: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2805: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
2806: RAISE Okl_Api.G_EXCEPTION_ERROR;
2807: END IF;
2808:
2809: END LOOP ; --l_okl_pol_csr
2802:
2803: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
2804: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2805: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
2806: RAISE Okl_Api.G_EXCEPTION_ERROR;
2807: END IF;
2808:
2809: END LOOP ; --l_okl_pol_csr
2810: ELSE
2807: END IF;
2808:
2809: END LOOP ; --l_okl_pol_csr
2810: ELSE
2811: RAISE Okl_Api.G_EXCEPTION_ERROR;
2812: END IF;
2813: ELSIF(p_transaction_reason = G_TRX_REASON_ASSET_DISPOSAL OR
2814: p_transaction_reason = G_TRX_REASON_PURCHASE OR
2815: p_transaction_reason = G_TRX_REASON_REPURCHASE OR
2820: -- These are residual value streams
2821: --
2822: IF (p_transaction_reason = G_TRX_REASON_ASSET_DISPOSAL
2823: AND p_kle_id IS NULL) THEN
2824: RAISE Okl_Api.G_EXCEPTION_ERROR;
2825: END IF;
2826:
2827: IF(p_effective_date IS NULL) THEN
2828: RAISE Okl_Api.G_EXCEPTION_ERROR;
2824: RAISE Okl_Api.G_EXCEPTION_ERROR;
2825: END IF;
2826:
2827: IF(p_effective_date IS NULL) THEN
2828: RAISE Okl_Api.G_EXCEPTION_ERROR;
2829: ELSE
2830: FOR l_okl_pol_rec IN l_okl_pol_csr
2831: LOOP
2832:
2861: ,p_stream_type_subclass => p_stream_type_subclass
2862: -- mvasudev, 02/06/2004
2863: ,p_streams_to_date => l_okl_khr_rec.end_date+1);
2864:
2865: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
2866: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2867: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
2868: RAISE Okl_Api.G_EXCEPTION_ERROR;
2869: END IF;
2862: -- mvasudev, 02/06/2004
2863: ,p_streams_to_date => l_okl_khr_rec.end_date+1);
2864:
2865: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
2866: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2867: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
2868: RAISE Okl_Api.G_EXCEPTION_ERROR;
2869: END IF;
2870: END LOOP;
2863: ,p_streams_to_date => l_okl_khr_rec.end_date+1);
2864:
2865: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
2866: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2867: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
2868: RAISE Okl_Api.G_EXCEPTION_ERROR;
2869: END IF;
2870: END LOOP;
2871:
2864:
2865: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
2866: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2867: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
2868: RAISE Okl_Api.G_EXCEPTION_ERROR;
2869: END IF;
2870: END LOOP;
2871:
2872: END LOOP ; --l_okl_pol_csr
2875:
2876: END IF; -- p_transaction_reason
2877:
2878:
2879: Okl_Api.END_ACTIVITY(x_msg_count => x_msg_count
2880: ,x_msg_data => x_msg_data);
2881:
2882: x_return_status := l_return_status;
2883:
2883:
2884:
2885: EXCEPTION
2886: WHEN G_EXCEPTION_ERROR THEN
2887: x_return_status := Okl_Api.HANDLE_EXCEPTIONS(p_api_name => l_api_name,
2888: p_pkg_name => G_PKG_NAME,
2889: p_exc_name => G_EXC_NAME_ERROR,
2890: x_msg_count => x_msg_count,
2891: x_msg_data => x_msg_data,
2891: x_msg_data => x_msg_data,
2892: p_api_type => G_API_TYPE);
2893:
2894: WHEN G_EXCEPTION_UNEXPECTED_ERROR THEN
2895: x_return_status := Okl_Api.HANDLE_EXCEPTIONS(p_api_name => l_api_name,
2896: p_pkg_name => G_PKG_NAME,
2897: p_exc_name => G_EXC_NAME_UNEXP_ERROR,
2898: x_msg_count => x_msg_count,
2899: x_msg_data => x_msg_data,
2898: x_msg_count => x_msg_count,
2899: x_msg_data => x_msg_data,
2900: p_api_type => G_API_TYPE);
2901: WHEN OTHERS THEN
2902: x_return_status := Okl_Api.HANDLE_EXCEPTIONS(p_api_name => l_api_name,
2903: p_pkg_name => G_PKG_NAME,
2904: p_exc_name => G_EXC_NAME_OTHERS,
2905: x_msg_count => x_msg_count,
2906: x_msg_data => x_msg_data,
2980: -- end ankushar Legal Entity Changes
2981:
2982: l_api_name CONSTANT VARCHAR2(30) := 'modify_pool_contents';
2983: l_api_version CONSTANT NUMBER := 1.0;
2984: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
2985:
2986: -- begin ankushar 29-11-2006 Legal Entity Changes
2987: -- Attribute to store legal_entity_id
2988: lp_legal_entity_id NUMBER;
2999:
3000:
3001: BEGIN
3002:
3003: l_return_status := Okl_Api.START_ACTIVITY(p_api_name => l_api_name,
3004: p_pkg_name => G_PKG_NAME,
3005: p_init_msg_list => p_init_msg_list,
3006: l_api_version => l_api_version,
3007: p_api_version => p_api_version,
3045: ,x_msg_data => x_msg_data
3046: ,p_poxv_rec => lp_poxv_rec
3047: ,x_poxv_rec => lx_poxv_rec);
3048:
3049: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
3050: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3051: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
3052: RAISE Okl_Api.G_EXCEPTION_ERROR;
3053: END IF;
3046: ,p_poxv_rec => lp_poxv_rec
3047: ,x_poxv_rec => lx_poxv_rec);
3048:
3049: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
3050: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3051: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
3052: RAISE Okl_Api.G_EXCEPTION_ERROR;
3053: END IF;
3054:
3047: ,x_poxv_rec => lx_poxv_rec);
3048:
3049: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
3050: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3051: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
3052: RAISE Okl_Api.G_EXCEPTION_ERROR;
3053: END IF;
3054:
3055: FOR l_okl_poc_rec IN l_okl_poc_csr(l_okl_pol_rec.pol_id)
3048:
3049: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
3050: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3051: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
3052: RAISE Okl_Api.G_EXCEPTION_ERROR;
3053: END IF;
3054:
3055: FOR l_okl_poc_rec IN l_okl_poc_csr(l_okl_pol_rec.pol_id)
3056: LOOP
3068: ,x_msg_data => x_msg_data
3069: ,p_pocv_rec => lp_pocv_rec
3070: ,x_pocv_rec => lx_pocv_rec);
3071:
3072: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
3073: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3074: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
3075: RAISE Okl_Api.G_EXCEPTION_ERROR;
3076: END IF;
3069: ,p_pocv_rec => lp_pocv_rec
3070: ,x_pocv_rec => lx_pocv_rec);
3071:
3072: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
3073: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3074: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
3075: RAISE Okl_Api.G_EXCEPTION_ERROR;
3076: END IF;
3077:
3070: ,x_pocv_rec => lx_pocv_rec);
3071:
3072: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
3073: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3074: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
3075: RAISE Okl_Api.G_EXCEPTION_ERROR;
3076: END IF;
3077:
3078: FOR i IN 1..p_split_kle_ids.COUNT
3071:
3072: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
3073: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3074: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
3075: RAISE Okl_Api.G_EXCEPTION_ERROR;
3076: END IF;
3077:
3078: FOR i IN 1..p_split_kle_ids.COUNT
3079: LOOP
3107: ,x_msg_data => x_msg_data
3108: ,p_pocv_rec => lp_pocv_rec_cre
3109: ,x_pocv_rec => lx_pocv_rec);
3110:
3111: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
3112: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3113: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
3114: RAISE Okl_Api.G_EXCEPTION_ERROR;
3115: END IF;
3108: ,p_pocv_rec => lp_pocv_rec_cre
3109: ,x_pocv_rec => lx_pocv_rec);
3110:
3111: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
3112: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3113: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
3114: RAISE Okl_Api.G_EXCEPTION_ERROR;
3115: END IF;
3116:
3109: ,x_pocv_rec => lx_pocv_rec);
3110:
3111: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
3112: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3113: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
3114: RAISE Okl_Api.G_EXCEPTION_ERROR;
3115: END IF;
3116:
3117: -- Update Status => "Active"
3110:
3111: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
3112: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3113: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
3114: RAISE Okl_Api.G_EXCEPTION_ERROR;
3115: END IF;
3116:
3117: -- Update Status => "Active"
3118: lp_pocv_rec_upd.id := lx_pocv_rec.id;
3127: ,x_msg_data => x_msg_data
3128: ,p_pocv_rec => lp_pocv_rec_upd
3129: ,x_pocv_rec => lx_pocv_rec);
3130:
3131: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
3132: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3133: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
3134: RAISE Okl_Api.G_EXCEPTION_ERROR;
3135: END IF;
3128: ,p_pocv_rec => lp_pocv_rec_upd
3129: ,x_pocv_rec => lx_pocv_rec);
3130:
3131: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
3132: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3133: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
3134: RAISE Okl_Api.G_EXCEPTION_ERROR;
3135: END IF;
3136:
3129: ,x_pocv_rec => lx_pocv_rec);
3130:
3131: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
3132: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3133: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
3134: RAISE Okl_Api.G_EXCEPTION_ERROR;
3135: END IF;
3136:
3137: END LOOP; -- p_split_kle_ids
3130:
3131: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
3132: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3133: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
3134: RAISE Okl_Api.G_EXCEPTION_ERROR;
3135: END IF;
3136:
3137: END LOOP; -- p_split_kle_ids
3138:
3145: ELSE
3146: RAISE G_EXCEPTION_ERROR;
3147: END IF;
3148:
3149: Okl_Api.END_ACTIVITY(x_msg_count => x_msg_count
3150: ,x_msg_data => x_msg_data);
3151:
3152: x_return_status := l_return_status;
3153:
3153:
3154:
3155: EXCEPTION
3156: WHEN G_EXCEPTION_ERROR THEN
3157: x_return_status := Okl_Api.HANDLE_EXCEPTIONS(p_api_name => l_api_name,
3158: p_pkg_name => G_PKG_NAME,
3159: p_exc_name => G_EXC_NAME_ERROR,
3160: x_msg_count => x_msg_count,
3161: x_msg_data => x_msg_data,
3161: x_msg_data => x_msg_data,
3162: p_api_type => G_API_TYPE);
3163:
3164: WHEN G_EXCEPTION_UNEXPECTED_ERROR THEN
3165: x_return_status := Okl_Api.HANDLE_EXCEPTIONS(p_api_name => l_api_name,
3166: p_pkg_name => G_PKG_NAME,
3167: p_exc_name => G_EXC_NAME_UNEXP_ERROR,
3168: x_msg_count => x_msg_count,
3169: x_msg_data => x_msg_data,
3168: x_msg_count => x_msg_count,
3169: x_msg_data => x_msg_data,
3170: p_api_type => G_API_TYPE);
3171: WHEN OTHERS THEN
3172: x_return_status := Okl_Api.HANDLE_EXCEPTIONS(p_api_name => l_api_name,
3173: p_pkg_name => G_PKG_NAME,
3174: p_exc_name => G_EXC_NAME_OTHERS,
3175: x_msg_count => x_msg_count,
3176: x_msg_data => x_msg_data,
3189: -- End of comments
3190: ----------------------------------------------------------------------------------
3191: PROCEDURE create_inv_disb_streams(
3192: p_api_version IN NUMBER
3193: ,p_init_msg_list IN VARCHAR2 DEFAULT Okl_Api.G_FALSE
3194: ,x_return_status OUT NOCOPY VARCHAR2
3195: ,x_msg_count OUT NOCOPY NUMBER
3196: ,x_msg_data OUT NOCOPY VARCHAR2
3197: ,p_khr_id IN NUMBER
3215: lx_selv_tbl Okl_Streams_Pub.selv_tbl_type;
3216:
3217: l_api_name CONSTANT VARCHAR2(30) := 'create_inv_disb_streams';
3218: l_api_version CONSTANT NUMBER := 1.0;
3219: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
3220:
3221: l_sty_purpose VARCHAR2(150);
3222: l_sty_id NUMBER;
3223:
3222: l_sty_id NUMBER;
3223:
3224: BEGIN
3225:
3226: l_return_status := Okl_Api.START_ACTIVITY(p_api_name => l_api_name,
3227: p_pkg_name => G_PKG_NAME,
3228: p_init_msg_list => p_init_msg_list,
3229: l_api_version => l_api_version,
3230: p_api_version => p_api_version,
3288: ,p_selv_tbl => lp_selv_tbl
3289: ,x_stmv_rec => lx_stmv_rec
3290: ,x_selv_tbl => lx_selv_tbl);
3291:
3292: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
3293: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3294: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
3295: RAISE Okl_Api.G_EXCEPTION_ERROR;
3296: END IF;
3289: ,x_stmv_rec => lx_stmv_rec
3290: ,x_selv_tbl => lx_selv_tbl);
3291:
3292: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
3293: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3294: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
3295: RAISE Okl_Api.G_EXCEPTION_ERROR;
3296: END IF;
3297:
3290: ,x_selv_tbl => lx_selv_tbl);
3291:
3292: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
3293: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3294: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
3295: RAISE Okl_Api.G_EXCEPTION_ERROR;
3296: END IF;
3297:
3298: END IF; -- l_sty_id
3291:
3292: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
3293: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3294: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
3295: RAISE Okl_Api.G_EXCEPTION_ERROR;
3296: END IF;
3297:
3298: END IF; -- l_sty_id
3299:
3297:
3298: END IF; -- l_sty_id
3299:
3300:
3301: Okl_Api.END_ACTIVITY(x_msg_count => x_msg_count
3302: ,x_msg_data => x_msg_data);
3303:
3304: x_return_status := l_return_status;
3305:
3304: x_return_status := l_return_status;
3305:
3306: EXCEPTION
3307: WHEN G_EXCEPTION_ERROR THEN
3308: x_return_status := Okl_Api.HANDLE_EXCEPTIONS(p_api_name => l_api_name,
3309: p_pkg_name => G_PKG_NAME,
3310: p_exc_name => G_EXC_NAME_ERROR,
3311: x_msg_count => x_msg_count,
3312: x_msg_data => x_msg_data,
3312: x_msg_data => x_msg_data,
3313: p_api_type => G_API_TYPE);
3314:
3315: WHEN G_EXCEPTION_UNEXPECTED_ERROR THEN
3316: x_return_status := Okl_Api.HANDLE_EXCEPTIONS(p_api_name => l_api_name,
3317: p_pkg_name => G_PKG_NAME,
3318: p_exc_name => G_EXC_NAME_UNEXP_ERROR,
3319: x_msg_count => x_msg_count,
3320: x_msg_data => x_msg_data,
3319: x_msg_count => x_msg_count,
3320: x_msg_data => x_msg_data,
3321: p_api_type => G_API_TYPE);
3322: WHEN OTHERS THEN
3323: x_return_status := Okl_Api.HANDLE_EXCEPTIONS(p_api_name => l_api_name,
3324: p_pkg_name => G_PKG_NAME,
3325: p_exc_name => G_EXC_NAME_OTHERS,
3326: x_msg_count => x_msg_count,
3327: x_msg_data => x_msg_data,
3384: lx_khrv_rec Okl_Contract_Pub.khrv_rec_type;
3385:
3386: l_api_name CONSTANT VARCHAR2(30) := 'buyback_streams';
3387: l_api_version CONSTANT NUMBER := 1.0;
3388: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
3389:
3390: lx_buyback_amount NUMBER;
3391: lp_effective_date DATE;
3392: lp_agreement_id NUMBER;
3401: l_loan_sty_purposes l_loan_sty_purpose_tbl;
3402:
3403: BEGIN
3404:
3405: l_return_status := Okl_Api.START_ACTIVITY(p_api_name => l_api_name,
3406: p_pkg_name => G_PKG_NAME,
3407: p_init_msg_list => p_init_msg_list,
3408: l_api_version => l_api_version,
3409: p_api_version => p_api_version,
3464: ,p_khr_id => p_khr_id
3465: ,p_stream_type_subclass => p_stream_type_subclass
3466: ,p_streams_to_date => lp_effective_date);
3467:
3468: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
3469: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3470: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
3471: RAISE Okl_Api.G_EXCEPTION_ERROR;
3472: END IF;
3465: ,p_stream_type_subclass => p_stream_type_subclass
3466: ,p_streams_to_date => lp_effective_date);
3467:
3468: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
3469: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3470: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
3471: RAISE Okl_Api.G_EXCEPTION_ERROR;
3472: END IF;
3473:
3466: ,p_streams_to_date => lp_effective_date);
3467:
3468: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
3469: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3470: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
3471: RAISE Okl_Api.G_EXCEPTION_ERROR;
3472: END IF;
3473:
3474: IF p_stream_type_subclass = G_STY_SUBCLASS_LOAN_PAYMENT THEN
3467:
3468: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
3469: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3470: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
3471: RAISE Okl_Api.G_EXCEPTION_ERROR;
3472: END IF;
3473:
3474: IF p_stream_type_subclass = G_STY_SUBCLASS_LOAN_PAYMENT THEN
3475: l_loan_sty_purposes(1).l_loan_sty_purpose := G_STY_INV_PRINCIPAL_BUYBACK;
3515: ,p_khr_id => p_khr_id
3516: ,p_cancel_date => lp_effective_date);
3517:
3518:
3519: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
3520: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3521: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
3522: RAISE Okl_Api.G_EXCEPTION_ERROR;
3523: END IF;
3516: ,p_cancel_date => lp_effective_date);
3517:
3518:
3519: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
3520: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3521: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
3522: RAISE Okl_Api.G_EXCEPTION_ERROR;
3523: END IF;
3524:
3517:
3518:
3519: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
3520: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3521: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
3522: RAISE Okl_Api.G_EXCEPTION_ERROR;
3523: END IF;
3524:
3525: END IF; -- p_stream_type_subclass
3518:
3519: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
3520: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3521: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
3522: RAISE Okl_Api.G_EXCEPTION_ERROR;
3523: END IF;
3524:
3525: END IF; -- p_stream_type_subclass
3526:
3547: p_khrv_rec => lp_khrv_rec,
3548: x_chrv_rec => lx_chrv_rec,
3549: x_khrv_rec => lx_khrv_rec);
3550:
3551: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
3552: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3553: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
3554: RAISE Okl_Api.G_EXCEPTION_ERROR;
3555: END IF;
3548: x_chrv_rec => lx_chrv_rec,
3549: x_khrv_rec => lx_khrv_rec);
3550:
3551: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
3552: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3553: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
3554: RAISE Okl_Api.G_EXCEPTION_ERROR;
3555: END IF;
3556:
3549: x_khrv_rec => lx_khrv_rec);
3550:
3551: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
3552: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3553: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
3554: RAISE Okl_Api.G_EXCEPTION_ERROR;
3555: END IF;
3556:
3557: END IF;
3550:
3551: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
3552: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3553: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
3554: RAISE Okl_Api.G_EXCEPTION_ERROR;
3555: END IF;
3556:
3557: END IF;
3558:
3559:
3560: END LOOP; -- l_okl_pol_csr
3561:
3562:
3563: Okl_Api.END_ACTIVITY(x_msg_count => x_msg_count
3564: ,x_msg_data => x_msg_data);
3565:
3566: x_return_status := l_return_status;
3567:
3568:
3569: EXCEPTION
3570: WHEN G_EXCEPTION_ERROR THEN
3571:
3572: x_return_status := Okl_Api.HANDLE_EXCEPTIONS(p_api_name => l_api_name,
3573: p_pkg_name => G_PKG_NAME,
3574: p_exc_name => G_EXC_NAME_ERROR,
3575: x_msg_count => x_msg_count,
3576: x_msg_data => x_msg_data,
3577: p_api_type => G_API_TYPE);
3578:
3579: WHEN G_EXCEPTION_UNEXPECTED_ERROR THEN
3580:
3581: x_return_status := Okl_Api.HANDLE_EXCEPTIONS(p_api_name => l_api_name,
3582: p_pkg_name => G_PKG_NAME,
3583: p_exc_name => G_EXC_NAME_UNEXP_ERROR,
3584: x_msg_count => x_msg_count,
3585: x_msg_data => x_msg_data,
3585: x_msg_data => x_msg_data,
3586: p_api_type => G_API_TYPE);
3587: WHEN OTHERS THEN
3588:
3589: x_return_status := Okl_Api.HANDLE_EXCEPTIONS(p_api_name => l_api_name,
3590: p_pkg_name => G_PKG_NAME,
3591: p_exc_name => G_EXC_NAME_OTHERS,
3592: x_msg_count => x_msg_count,
3593: x_msg_data => x_msg_data,