18: -- End of Comments
19: ---------------------------------------------------------------------------
20: PROCEDURE create_third_prt_ins(
21: p_api_version IN NUMBER,
22: p_init_msg_list IN VARCHAR2 DEFAULT Okc_Api.G_FALSE,
23: x_return_status OUT NOCOPY VARCHAR2,
24: x_msg_count OUT NOCOPY NUMBER,
25: x_msg_data OUT NOCOPY VARCHAR2,
26: p_ipyv_rec IN ipyv_rec_type,
27: x_ipyv_rec OUT NOCOPY ipyv_rec_type
28: ) IS
29: l_api_version CONSTANT NUMBER := 1;
30: l_api_name CONSTANT VARCHAR2(30) := 'create_third_prt_ins';
31: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
32: l_cplv_rec_type okl_okc_migration_pvt.cplv_rec_type;
33: x_cplv_rec_type okl_okc_migration_pvt.cplv_rec_type;
34:
35: --gboomina 26-Oct-05 Bug#4558486 - Added - Start
47: and CPLB.JTOT_OBJECT1_CODE = 'OKX_PARTY'
48: and CPLB.RLE_CODE = 'EXTERNAL_PARTY';
49: l_dummy VARCHAR2(1) := '?';
50: BEGIN
51: x_return_status := OKC_API.START_ACTIVITY(l_api_name,
52: G_PKG_NAME,
53: p_init_msg_list,
54: l_api_version,
55: p_api_version,
54: l_api_version,
55: p_api_version,
56: '_PROCESS',
57: x_return_status);
58: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
59: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
60: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
61: RAISE OKC_API.G_EXCEPTION_ERROR;
62: END IF;
55: p_api_version,
56: '_PROCESS',
57: x_return_status);
58: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
59: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
60: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
61: RAISE OKC_API.G_EXCEPTION_ERROR;
62: END IF;
63:
56: '_PROCESS',
57: x_return_status);
58: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
59: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
60: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
61: RAISE OKC_API.G_EXCEPTION_ERROR;
62: END IF;
63:
64: -- CREATE Role only if vendor is not there
57: x_return_status);
58: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
59: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
60: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
61: RAISE OKC_API.G_EXCEPTION_ERROR;
62: END IF;
63:
64: -- CREATE Role only if vendor is not there
65: OPEN c_vendor_exist(p_ipyv_rec.KHR_ID ,p_ipyv_rec.ISU_ID );
87: END IF;
88: -- gboomina 26-Oct-05 Bug#4558486 Start - Changed okl_okc_migration_pvt.create_k_party_role to okl_k_party_roles_pvt.create_k_party_role
89: okl_k_party_roles_pvt.create_k_party_role(
90: p_api_version =>l_api_version,
91: p_init_msg_list => OKC_API.G_FALSE,
92: x_return_status => l_return_status,
93: x_msg_count => x_msg_count,
94: x_msg_data => x_msg_data ,
95: p_cplv_rec => l_cplv_rec_type,
104: OKL_DEBUG_PUB.LOG_DEBUG(L_LEVEL_PROCEDURE,L_MODULE,'End Debug OKLRINQB.pls call okl_k_party_roles_pvt.create_k_party_role ');
105: END;
106: END IF;
107: -- End of wraper code generated automatically by Debug code generator for okl_k_party_roles_pvt.create_k_party_role
108: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
109:
110: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
111: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
112: RAISE OKC_API.G_EXCEPTION_ERROR;
106: END IF;
107: -- End of wraper code generated automatically by Debug code generator for okl_k_party_roles_pvt.create_k_party_role
108: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
109:
110: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
111: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
112: RAISE OKC_API.G_EXCEPTION_ERROR;
113: END IF;
114:
107: -- End of wraper code generated automatically by Debug code generator for okl_k_party_roles_pvt.create_k_party_role
108: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
109:
110: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
111: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
112: RAISE OKC_API.G_EXCEPTION_ERROR;
113: END IF;
114:
115:
108: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
109:
110: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
111: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
112: RAISE OKC_API.G_EXCEPTION_ERROR;
113: END IF;
114:
115:
116: END IF ;
128: -- Payment Call Temp
129:
130: Okl_Ins_Policies_Pub.insert_ins_policies(
131: p_api_version => l_api_version,
132: p_init_msg_list => OKC_API.G_FALSE,
133: x_return_status => l_return_status,
134: x_msg_count => x_msg_count,
135: x_msg_data => x_msg_data,
136: p_ipyv_rec => p_ipyv_rec,
144: END;
145: END IF;
146:
147:
148: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
149: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
150: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
151: RAISE OKC_API.G_EXCEPTION_ERROR;
152: END IF;
145: END IF;
146:
147:
148: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
149: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
150: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
151: RAISE OKC_API.G_EXCEPTION_ERROR;
152: END IF;
153:
146:
147:
148: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
149: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
150: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
151: RAISE OKC_API.G_EXCEPTION_ERROR;
152: END IF;
153:
154:
147:
148: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
149: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
150: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
151: RAISE OKC_API.G_EXCEPTION_ERROR;
152: END IF;
153:
154:
155:
152: END IF;
153:
154:
155:
156: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
157: EXCEPTION
158: WHEN OKC_API.G_EXCEPTION_ERROR THEN
159: x_return_status := OKC_API.HANDLE_EXCEPTIONS
160: (
154:
155:
156: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
157: EXCEPTION
158: WHEN OKC_API.G_EXCEPTION_ERROR THEN
159: x_return_status := OKC_API.HANDLE_EXCEPTIONS
160: (
161: l_api_name,
162: G_PKG_NAME,
155:
156: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
157: EXCEPTION
158: WHEN OKC_API.G_EXCEPTION_ERROR THEN
159: x_return_status := OKC_API.HANDLE_EXCEPTIONS
160: (
161: l_api_name,
162: G_PKG_NAME,
163: 'OKC_API.G_RET_STS_ERROR',
159: x_return_status := OKC_API.HANDLE_EXCEPTIONS
160: (
161: l_api_name,
162: G_PKG_NAME,
163: 'OKC_API.G_RET_STS_ERROR',
164: x_msg_count,
165: x_msg_data,
166: '_PROCESS'
167: );
164: x_msg_count,
165: x_msg_data,
166: '_PROCESS'
167: );
168: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
169: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
170: (
171: l_api_name,
172: G_PKG_NAME,
165: x_msg_data,
166: '_PROCESS'
167: );
168: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
169: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
170: (
171: l_api_name,
172: G_PKG_NAME,
173: 'OKC_API.G_RET_STS_UNEXP_ERROR',
169: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
170: (
171: l_api_name,
172: G_PKG_NAME,
173: 'OKC_API.G_RET_STS_UNEXP_ERROR',
174: x_msg_count,
175: x_msg_data,
176: '_PROCESS'
177: );
175: x_msg_data,
176: '_PROCESS'
177: );
178: WHEN OTHERS THEN
179: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
180: (
181: l_api_name,
182: G_PKG_NAME,
183: 'OTHERS',
564: FUNCTION get_contract_status (
565: p_khr_id IN NUMBER,
566: x_contract_status OUT NOCOPY VARCHAR2
567: ) RETURN VARCHAR2 IS
568: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
569: CURSOR okc_k_status_csr(p_khr_id IN NUMBER) IS
570: SELECT STE_CODE
571: FROM OKC_K_HEADERS_V KHR , OKC_STATUSES_B OST
572: WHERE KHR.ID = p_khr_id
580: OKL_API.set_message(G_APP_NAME,
581: G_INVALID_CONTRACT
582: );
583: CLOSE okc_k_status_csr ;
584: l_return_status := OKC_API.G_RET_STS_ERROR;
585: -- Change it to
586: RETURN(l_return_status);
587: END IF;
588: CLOSE okc_k_status_csr ;
589: RETURN(l_return_status);
590: EXCEPTION
591: WHEN OTHERS THEN
592: -- store SQL error message on message stack for caller
593: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
594: -- notify caller of an UNEXPECTED error
595: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
596: -- verify that cursor was closed
597: IF okc_k_status_csr%ISOPEN THEN
591: WHEN OTHERS THEN
592: -- store SQL error message on message stack for caller
593: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
594: -- notify caller of an UNEXPECTED error
595: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
596: -- verify that cursor was closed
597: IF okc_k_status_csr%ISOPEN THEN
598: CLOSE okc_k_status_csr;
599: END IF;
612:
613: l_stmv_rec Okl_Streams_Pub.stmv_rec_type;
614: l_api_version CONSTANT NUMBER := 1;
615: l_api_name CONSTANT VARCHAR2(30) := 'payment_stream';
616: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
617: p_stmv_rec Okl_Streams_Pub.stmv_rec_type;
618: x_stmv_rec Okl_Streams_Pub.stmv_rec_type;
619: p_selv_tbl Okl_Streams_Pub.selv_tbl_type;
620: x_selv_tbl Okl_Streams_Pub.selv_tbl_type;
622: l_date DATE;
623:
624: BEGIN
625:
626: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
627: G_PKG_NAME,
628: p_init_msg_list,
629: l_api_version,
630: p_api_version,
629: l_api_version,
630: p_api_version,
631: '_PROCESS',
632: x_return_status);
633: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
634: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
635: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
636: RAISE OKC_API.G_EXCEPTION_ERROR;
637: END IF;
630: p_api_version,
631: '_PROCESS',
632: x_return_status);
633: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
634: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
635: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
636: RAISE OKC_API.G_EXCEPTION_ERROR;
637: END IF;
638:
631: '_PROCESS',
632: x_return_status);
633: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
634: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
635: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
636: RAISE OKC_API.G_EXCEPTION_ERROR;
637: END IF;
638:
639: BEGIN
632: x_return_status);
633: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
634: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
635: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
636: RAISE OKC_API.G_EXCEPTION_ERROR;
637: END IF;
638:
639: BEGIN
640: select OKL_SIF_SEQ.nextval INTO p_stmv_rec.transaction_number from dual;
642:
643: EXCEPTION
644: WHEN NO_DATA_FOUND THEN
645: -- store SQL error message on message stack for caller
646: OKC_API.set_message(G_APP_NAME, 'OKL_NO_SEQUENCE' );
647: RAISE OKC_API.G_EXCEPTION_ERROR;
648: WHEN OTHERS THEN
649: -- store SQL error message on message stack for caller
650: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
643: EXCEPTION
644: WHEN NO_DATA_FOUND THEN
645: -- store SQL error message on message stack for caller
646: OKC_API.set_message(G_APP_NAME, 'OKL_NO_SEQUENCE' );
647: RAISE OKC_API.G_EXCEPTION_ERROR;
648: WHEN OTHERS THEN
649: -- store SQL error message on message stack for caller
650: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
651: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
646: OKC_API.set_message(G_APP_NAME, 'OKL_NO_SEQUENCE' );
647: RAISE OKC_API.G_EXCEPTION_ERROR;
648: WHEN OTHERS THEN
649: -- store SQL error message on message stack for caller
650: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
651: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
652: END ;
653:
654: -- Cursor replaced with the call to get the stream type id, change made for insurance user defined streams, bug 3924300
647: RAISE OKC_API.G_EXCEPTION_ERROR;
648: WHEN OTHERS THEN
649: -- store SQL error message on message stack for caller
650: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
651: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
652: END ;
653:
654: -- Cursor replaced with the call to get the stream type id, change made for insurance user defined streams, bug 3924300
655:
657: 'INSURANCE_PAYABLE',
658: l_return_status,
659: p_stmv_rec.sty_id);
660:
661: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
662: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
663: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
664: Okc_Api.set_message(G_APP_NAME, 'OKL_NO_STREAM_TYPE', G_PURPOSE_TOKEN ,'INSURANCE_PAYABLE'); --bug 4024785
665: x_return_status := OKC_API.G_RET_STS_ERROR ;
658: l_return_status,
659: p_stmv_rec.sty_id);
660:
661: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
662: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
663: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
664: Okc_Api.set_message(G_APP_NAME, 'OKL_NO_STREAM_TYPE', G_PURPOSE_TOKEN ,'INSURANCE_PAYABLE'); --bug 4024785
665: x_return_status := OKC_API.G_RET_STS_ERROR ;
666: RAISE OKC_API.G_EXCEPTION_ERROR;
659: p_stmv_rec.sty_id);
660:
661: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
662: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
663: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
664: Okc_Api.set_message(G_APP_NAME, 'OKL_NO_STREAM_TYPE', G_PURPOSE_TOKEN ,'INSURANCE_PAYABLE'); --bug 4024785
665: x_return_status := OKC_API.G_RET_STS_ERROR ;
666: RAISE OKC_API.G_EXCEPTION_ERROR;
667: END IF;
660:
661: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
662: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
663: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
664: Okc_Api.set_message(G_APP_NAME, 'OKL_NO_STREAM_TYPE', G_PURPOSE_TOKEN ,'INSURANCE_PAYABLE'); --bug 4024785
665: x_return_status := OKC_API.G_RET_STS_ERROR ;
666: RAISE OKC_API.G_EXCEPTION_ERROR;
667: END IF;
668:
661: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
662: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
663: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
664: Okc_Api.set_message(G_APP_NAME, 'OKL_NO_STREAM_TYPE', G_PURPOSE_TOKEN ,'INSURANCE_PAYABLE'); --bug 4024785
665: x_return_status := OKC_API.G_RET_STS_ERROR ;
666: RAISE OKC_API.G_EXCEPTION_ERROR;
667: END IF;
668:
669:
662: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
663: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
664: Okc_Api.set_message(G_APP_NAME, 'OKL_NO_STREAM_TYPE', G_PURPOSE_TOKEN ,'INSURANCE_PAYABLE'); --bug 4024785
665: x_return_status := OKC_API.G_RET_STS_ERROR ;
666: RAISE OKC_API.G_EXCEPTION_ERROR;
667: END IF;
668:
669:
670: p_stmv_rec.sgn_code := 'MANL';
713: ,L_MODULE
714: ,'End Debug OKLRSULB.pls call Okl_Streams_Util.round_streams_amount');
715: END IF;
716:
717: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR)
718: THEN
719: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
720: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR)
721: THEN
715: END IF;
716:
717: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR)
718: THEN
719: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
720: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR)
721: THEN
722: RAISE OKC_API.G_EXCEPTION_ERROR;
723: END IF;
716:
717: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR)
718: THEN
719: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
720: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR)
721: THEN
722: RAISE OKC_API.G_EXCEPTION_ERROR;
723: END IF;
724:
718: THEN
719: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
720: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR)
721: THEN
722: RAISE OKC_API.G_EXCEPTION_ERROR;
723: END IF;
724:
725: -- Store Rounded Streams back into the p_selv_tbl
726: p_selv_tbl:= x_selv_tbl;
748: END;
749: END IF;
750: -- End of wraper code generated automatically by Debug code generator for OKL_STREAMS_PUB.create_streams
751:
752: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
753: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
754: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
755: RAISE OKC_API.G_EXCEPTION_ERROR;
756: END IF;
749: END IF;
750: -- End of wraper code generated automatically by Debug code generator for OKL_STREAMS_PUB.create_streams
751:
752: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
753: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
754: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
755: RAISE OKC_API.G_EXCEPTION_ERROR;
756: END IF;
757: END IF;
750: -- End of wraper code generated automatically by Debug code generator for OKL_STREAMS_PUB.create_streams
751:
752: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
753: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
754: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
755: RAISE OKC_API.G_EXCEPTION_ERROR;
756: END IF;
757: END IF;
758:
751:
752: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
753: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
754: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
755: RAISE OKC_API.G_EXCEPTION_ERROR;
756: END IF;
757: END IF;
758:
759: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
755: RAISE OKC_API.G_EXCEPTION_ERROR;
756: END IF;
757: END IF;
758:
759: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
760: EXCEPTION
761: WHEN OKC_API.G_EXCEPTION_ERROR THEN
762: x_return_status := OKC_API.HANDLE_EXCEPTIONS
763: (
757: END IF;
758:
759: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
760: EXCEPTION
761: WHEN OKC_API.G_EXCEPTION_ERROR THEN
762: x_return_status := OKC_API.HANDLE_EXCEPTIONS
763: (
764: l_api_name,
765: G_PKG_NAME,
758:
759: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
760: EXCEPTION
761: WHEN OKC_API.G_EXCEPTION_ERROR THEN
762: x_return_status := OKC_API.HANDLE_EXCEPTIONS
763: (
764: l_api_name,
765: G_PKG_NAME,
766: 'OKC_API.G_RET_STS_ERROR',
762: x_return_status := OKC_API.HANDLE_EXCEPTIONS
763: (
764: l_api_name,
765: G_PKG_NAME,
766: 'OKC_API.G_RET_STS_ERROR',
767: x_msg_count,
768: x_msg_data,
769: '_PROCESS'
770: );
767: x_msg_count,
768: x_msg_data,
769: '_PROCESS'
770: );
771: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
772: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
773: (
774: l_api_name,
775: G_PKG_NAME,
768: x_msg_data,
769: '_PROCESS'
770: );
771: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
772: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
773: (
774: l_api_name,
775: G_PKG_NAME,
776: 'OKC_API.G_RET_STS_UNEXP_ERROR',
772: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
773: (
774: l_api_name,
775: G_PKG_NAME,
776: 'OKC_API.G_RET_STS_UNEXP_ERROR',
777: x_msg_count,
778: x_msg_data,
779: '_PROCESS'
780: );
778: x_msg_data,
779: '_PROCESS'
780: );
781: WHEN OTHERS THEN
782: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
783: (
784: l_api_name,
785: G_PKG_NAME,
786: 'OTHERS',
805: l_num_days_in_month NUMBER;
806: l_prorated NUMBER;
807: i PLS_INTEGER;
808: j PLS_INTEGER;
809: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
810: l_flag VARCHAR2(1);
811: BEGIN
812: l_date_from := TRUNC(p_ipyv_rec.date_from);
813: l_date_to := TRUNC(p_ipyv_rec.date_to);
906: l_num_days_in_month NUMBER;
907: i PLS_INTEGER;
908: j PLS_INTEGER;
909: k PLS_INTEGER;
910: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
911: l_flag VARCHAR2(1) := 'N';
912: l_date_from DATE ;
913: BEGIN
914:
1003: l_msg_count NUMBER ;
1004: l_msg_data VARCHAR2(2000);
1005: l_api_version CONSTANT NUMBER := 1;
1006: l_api_name CONSTANT VARCHAR2(30) := 'create_insinc_streams';
1007: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
1008: p_stmv_rec Okl_Streams_Pub.stmv_rec_type;
1009: x_stmv_rec Okl_Streams_Pub.stmv_rec_type;
1010: p_selv_tbl Okl_Streams_Pub.selv_tbl_type;
1011: x_selv_tbl Okl_Streams_Pub.selv_tbl_type;
1036: from okl_k_headers
1037: WHERE ID = l_ipyv_rec.khr_id ;
1038: BEGIN
1039:
1040: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
1041: G_PKG_NAME,
1042: p_init_msg_list,
1043: l_api_version,
1044: p_api_version,
1043: l_api_version,
1044: p_api_version,
1045: '_PROCESS',
1046: x_return_status);
1047: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1048: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1049: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1050: RAISE OKC_API.G_EXCEPTION_ERROR;
1051: END IF;
1044: p_api_version,
1045: '_PROCESS',
1046: x_return_status);
1047: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1048: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1049: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1050: RAISE OKC_API.G_EXCEPTION_ERROR;
1051: END IF;
1052:
1045: '_PROCESS',
1046: x_return_status);
1047: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1048: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1049: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1050: RAISE OKC_API.G_EXCEPTION_ERROR;
1051: END IF;
1052:
1053: l_ipyv_rec := p_ipyv_rec;
1046: x_return_status);
1047: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1048: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1049: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1050: RAISE OKC_API.G_EXCEPTION_ERROR;
1051: END IF;
1052:
1053: l_ipyv_rec := p_ipyv_rec;
1054: l_khr_id := l_ipyv_rec.khr_id;
1067: OKL_STREAMS_UTIL.get_primary_stream_type(p_ipyv_rec.khr_id,
1068: 'INSURANCE_INCOME_ACCRUAL',
1069: l_return_status,
1070: p_stmv_rec.sty_id);
1071: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1072: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1073: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1074: Okc_Api.set_message(G_APP_NAME, 'OKL_NO_STREAM_TYPE',G_PURPOSE_TOKEN ,'INSURANCE_INCOME_ACCRUAL'); --bug 4024785
1075: x_return_status := OKC_API.G_RET_STS_ERROR ;
1068: 'INSURANCE_INCOME_ACCRUAL',
1069: l_return_status,
1070: p_stmv_rec.sty_id);
1071: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1072: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1073: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1074: Okc_Api.set_message(G_APP_NAME, 'OKL_NO_STREAM_TYPE',G_PURPOSE_TOKEN ,'INSURANCE_INCOME_ACCRUAL'); --bug 4024785
1075: x_return_status := OKC_API.G_RET_STS_ERROR ;
1076: RAISE OKC_API.G_EXCEPTION_ERROR;
1069: l_return_status,
1070: p_stmv_rec.sty_id);
1071: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1072: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1073: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1074: Okc_Api.set_message(G_APP_NAME, 'OKL_NO_STREAM_TYPE',G_PURPOSE_TOKEN ,'INSURANCE_INCOME_ACCRUAL'); --bug 4024785
1075: x_return_status := OKC_API.G_RET_STS_ERROR ;
1076: RAISE OKC_API.G_EXCEPTION_ERROR;
1077: END IF;
1070: p_stmv_rec.sty_id);
1071: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1072: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1073: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1074: Okc_Api.set_message(G_APP_NAME, 'OKL_NO_STREAM_TYPE',G_PURPOSE_TOKEN ,'INSURANCE_INCOME_ACCRUAL'); --bug 4024785
1075: x_return_status := OKC_API.G_RET_STS_ERROR ;
1076: RAISE OKC_API.G_EXCEPTION_ERROR;
1077: END IF;
1078:
1071: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1072: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1073: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1074: Okc_Api.set_message(G_APP_NAME, 'OKL_NO_STREAM_TYPE',G_PURPOSE_TOKEN ,'INSURANCE_INCOME_ACCRUAL'); --bug 4024785
1075: x_return_status := OKC_API.G_RET_STS_ERROR ;
1076: RAISE OKC_API.G_EXCEPTION_ERROR;
1077: END IF;
1078:
1079: EXCEPTION
1072: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1073: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1074: Okc_Api.set_message(G_APP_NAME, 'OKL_NO_STREAM_TYPE',G_PURPOSE_TOKEN ,'INSURANCE_INCOME_ACCRUAL'); --bug 4024785
1075: x_return_status := OKC_API.G_RET_STS_ERROR ;
1076: RAISE OKC_API.G_EXCEPTION_ERROR;
1077: END IF;
1078:
1079: EXCEPTION
1080: WHEN NO_DATA_FOUND THEN
1078:
1079: EXCEPTION
1080: WHEN NO_DATA_FOUND THEN
1081: -- store SQL error message on message stack for caller
1082: OKC_API.set_message(G_APP_NAME, G_K_NOT_ACTIVE
1083: );
1084: WHEN OTHERS THEN
1085: -- store SQL error message on message stack for caller
1086: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
1082: OKC_API.set_message(G_APP_NAME, G_K_NOT_ACTIVE
1083: );
1084: WHEN OTHERS THEN
1085: -- store SQL error message on message stack for caller
1086: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
1087: -- notify caller of an UNEXPECTED error
1088: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
1089: -- verify that cursor was closed
1090: END ;
1084: WHEN OTHERS THEN
1085: -- store SQL error message on message stack for caller
1086: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
1087: -- notify caller of an UNEXPECTED error
1088: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
1089: -- verify that cursor was closed
1090: END ;
1091:
1092: p_stmv_rec.sgn_code := 'MANL';
1111: l_ipyv_rec.premium := p_premium/12;
1112: l_return_status := genrt_monthly_inc(l_ipyv_rec,x_selv_tbl);
1113: END IF;
1114:
1115: --l_return_status := OKC_API.G_RET_STS_ERROR;
1116: --ELSIF (p_ipyv_rec.ipf_code = 'LEASE_FREQUENCY') THEN
1117: --l_return_status := genrt_lease_frequency(p_ipyv_rec,x_selv_tbl);
1118: --END IF;
1119:
1116: --ELSIF (p_ipyv_rec.ipf_code = 'LEASE_FREQUENCY') THEN
1117: --l_return_status := genrt_lease_frequency(p_ipyv_rec,x_selv_tbl);
1118: --END IF;
1119:
1120: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1121: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1122: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1123: RAISE OKC_API.G_EXCEPTION_ERROR;
1124: END IF;
1117: --l_return_status := genrt_lease_frequency(p_ipyv_rec,x_selv_tbl);
1118: --END IF;
1119:
1120: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1121: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1122: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1123: RAISE OKC_API.G_EXCEPTION_ERROR;
1124: END IF;
1125:
1118: --END IF;
1119:
1120: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1121: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1122: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1123: RAISE OKC_API.G_EXCEPTION_ERROR;
1124: END IF;
1125:
1126: p_selv_tbl:=x_selv_tbl;
1119:
1120: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1121: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1122: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1123: RAISE OKC_API.G_EXCEPTION_ERROR;
1124: END IF;
1125:
1126: p_selv_tbl:=x_selv_tbl;
1127:
1124: END IF;
1125:
1126: p_selv_tbl:=x_selv_tbl;
1127:
1128: IF (l_return_status = Okc_Api.G_RET_STS_SUCCESS) THEN
1129:
1130:
1131: -- Create Stream and Stream Elements
1132: -- Start of wraper code generated automatically by Debug code generator for OKL_STREAMS_PUB.create_streams
1158: ,L_MODULE
1159: ,'End Debug OKLRSULB.pls call Okl_Streams_Util.round_streams_amount');
1160: END IF;
1161:
1162: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR)
1163: THEN
1164: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1165: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR)
1166: THEN
1160: END IF;
1161:
1162: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR)
1163: THEN
1164: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1165: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR)
1166: THEN
1167: RAISE OKC_API.G_EXCEPTION_ERROR;
1168: END IF;
1161:
1162: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR)
1163: THEN
1164: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1165: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR)
1166: THEN
1167: RAISE OKC_API.G_EXCEPTION_ERROR;
1168: END IF;
1169:
1163: THEN
1164: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1165: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR)
1166: THEN
1167: RAISE OKC_API.G_EXCEPTION_ERROR;
1168: END IF;
1169:
1170: -- Store Rounded Streams back into the p_selv_tbl
1171: p_selv_tbl:= x_selv_tbl;
1195: -- End of wraper code generated automatically by Debug code generator for OKL_STREAMS_PUB.create_streams
1196:
1197:
1198: l_return_status := x_return_status ;
1199: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1200: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1201: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1202: RAISE OKC_API.G_EXCEPTION_ERROR;
1203: END IF;
1196:
1197:
1198: l_return_status := x_return_status ;
1199: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1200: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1201: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1202: RAISE OKC_API.G_EXCEPTION_ERROR;
1203: END IF;
1204: -----
1197:
1198: l_return_status := x_return_status ;
1199: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1200: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1201: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1202: RAISE OKC_API.G_EXCEPTION_ERROR;
1203: END IF;
1204: -----
1205:
1198: l_return_status := x_return_status ;
1199: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1200: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1201: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1202: RAISE OKC_API.G_EXCEPTION_ERROR;
1203: END IF;
1204: -----
1205:
1206: ---Create another set of stream, if Multi Gaap is enabled
1205:
1206: ---Create another set of stream, if Multi Gaap is enabled
1207: -- 1. Get status of contract
1208: l_return_status := get_contract_status ( l_ipyv_rec.khr_id ,l_khr_status );
1209: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1210: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1211: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1212: RAISE OKC_API.G_EXCEPTION_ERROR;
1213: END IF;
1206: ---Create another set of stream, if Multi Gaap is enabled
1207: -- 1. Get status of contract
1208: l_return_status := get_contract_status ( l_ipyv_rec.khr_id ,l_khr_status );
1209: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1210: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1211: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1212: RAISE OKC_API.G_EXCEPTION_ERROR;
1213: END IF;
1214: IF (l_khr_status = 'ACTIVE' ) THEN
1207: -- 1. Get status of contract
1208: l_return_status := get_contract_status ( l_ipyv_rec.khr_id ,l_khr_status );
1209: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1210: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1211: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1212: RAISE OKC_API.G_EXCEPTION_ERROR;
1213: END IF;
1214: IF (l_khr_status = 'ACTIVE' ) THEN
1215: --- if active , get multi gaap enabled from contract header table
1208: l_return_status := get_contract_status ( l_ipyv_rec.khr_id ,l_khr_status );
1209: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1210: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1211: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1212: RAISE OKC_API.G_EXCEPTION_ERROR;
1213: END IF;
1214: IF (l_khr_status = 'ACTIVE' ) THEN
1215: --- if active , get multi gaap enabled from contract header table
1216:
1224: CLOSE multi_gaap_flag_cur ;
1225: EXCEPTION
1226: WHEN OTHERS THEN
1227: -- store SQL error message on message stack for caller
1228: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
1229: -- notify caller of an UNEXPECTED error
1230: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
1231: -- verify that cursor was closed
1232: IF multi_gaap_flag_cur%ISOPEN THEN
1226: WHEN OTHERS THEN
1227: -- store SQL error message on message stack for caller
1228: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
1229: -- notify caller of an UNEXPECTED error
1230: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
1231: -- verify that cursor was closed
1232: IF multi_gaap_flag_cur%ISOPEN THEN
1233: CLOSE multi_gaap_flag_cur;
1234: END IF;
1246: CLOSE khr_product_cur ;
1247: EXCEPTION
1248: WHEN OTHERS THEN
1249: -- store SQL error message on message stack for caller
1250: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
1251: -- notify caller of an UNEXPECTED error
1252: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
1253: -- verify that cursor was closed
1254: IF khr_product_cur%ISOPEN THEN
1248: WHEN OTHERS THEN
1249: -- store SQL error message on message stack for caller
1250: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
1251: -- notify caller of an UNEXPECTED error
1252: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
1253: -- verify that cursor was closed
1254: IF khr_product_cur%ISOPEN THEN
1255: CLOSE khr_product_cur;
1256: END IF;
1280: END IF;
1281: -- End of wraper code generated automatically by Debug code generator for OKL_SETUPPRODUCTS_PVT.Getpdt_parameters
1282:
1283:
1284: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1285: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1286: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1287: RAISE OKC_API.G_EXCEPTION_ERROR;
1288: END IF;
1281: -- End of wraper code generated automatically by Debug code generator for OKL_SETUPPRODUCTS_PVT.Getpdt_parameters
1282:
1283:
1284: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1285: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1286: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1287: RAISE OKC_API.G_EXCEPTION_ERROR;
1288: END IF;
1289:
1282:
1283:
1284: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1285: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1286: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1287: RAISE OKC_API.G_EXCEPTION_ERROR;
1288: END IF;
1289:
1290: IF (l_pdt_parameters_rec.reporting_pdt_id is NULL) THEN
1283:
1284: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1285: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1286: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1287: RAISE OKC_API.G_EXCEPTION_ERROR;
1288: END IF;
1289:
1290: IF (l_pdt_parameters_rec.reporting_pdt_id is NULL) THEN
1291: l_multigaap_flag := 'N' ;
1306: OKL_STREAMS_UTIL.get_primary_stream_type(p_ipyv_rec.khr_id,
1307: 'INSURANCE_INCOME_ACCRUAL',
1308: l_return_status,
1309: p_stmv_rec.sty_id);
1310: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1311: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
1312: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1313: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1314: Okc_Api.set_message(G_APP_NAME, 'OKL_NO_STREAM_TYPE',G_PURPOSE_TOKEN,' INSURANCE_INCOME_ACCRUAL'); --bug 4024785
1307: 'INSURANCE_INCOME_ACCRUAL',
1308: l_return_status,
1309: p_stmv_rec.sty_id);
1310: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1311: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
1312: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1313: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1314: Okc_Api.set_message(G_APP_NAME, 'OKL_NO_STREAM_TYPE',G_PURPOSE_TOKEN,' INSURANCE_INCOME_ACCRUAL'); --bug 4024785
1315: RAISE OKC_API.G_EXCEPTION_ERROR;
1308: l_return_status,
1309: p_stmv_rec.sty_id);
1310: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1311: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
1312: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1313: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1314: Okc_Api.set_message(G_APP_NAME, 'OKL_NO_STREAM_TYPE',G_PURPOSE_TOKEN,' INSURANCE_INCOME_ACCRUAL'); --bug 4024785
1315: RAISE OKC_API.G_EXCEPTION_ERROR;
1316: END IF;
1309: p_stmv_rec.sty_id);
1310: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1311: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
1312: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1313: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1314: Okc_Api.set_message(G_APP_NAME, 'OKL_NO_STREAM_TYPE',G_PURPOSE_TOKEN,' INSURANCE_INCOME_ACCRUAL'); --bug 4024785
1315: RAISE OKC_API.G_EXCEPTION_ERROR;
1316: END IF;
1317:
1310: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1311: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
1312: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1313: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1314: Okc_Api.set_message(G_APP_NAME, 'OKL_NO_STREAM_TYPE',G_PURPOSE_TOKEN,' INSURANCE_INCOME_ACCRUAL'); --bug 4024785
1315: RAISE OKC_API.G_EXCEPTION_ERROR;
1316: END IF;
1317:
1318: EXCEPTION
1311: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
1312: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1313: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1314: Okc_Api.set_message(G_APP_NAME, 'OKL_NO_STREAM_TYPE',G_PURPOSE_TOKEN,' INSURANCE_INCOME_ACCRUAL'); --bug 4024785
1315: RAISE OKC_API.G_EXCEPTION_ERROR;
1316: END IF;
1317:
1318: EXCEPTION
1319: WHEN NO_DATA_FOUND THEN
1317:
1318: EXCEPTION
1319: WHEN NO_DATA_FOUND THEN
1320: -- store SQL error message on message stack for caller
1321: OKC_API.set_message(G_APP_NAME, G_K_NOT_ACTIVE
1322: );
1323: WHEN OTHERS THEN
1324: -- store SQL error message on message stack for caller
1325: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
1321: OKC_API.set_message(G_APP_NAME, G_K_NOT_ACTIVE
1322: );
1323: WHEN OTHERS THEN
1324: -- store SQL error message on message stack for caller
1325: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
1326: -- notify caller of an UNEXPECTED error
1327: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
1328: -- verify that cursor was closed
1329: END ;
1323: WHEN OTHERS THEN
1324: -- store SQL error message on message stack for caller
1325: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
1326: -- notify caller of an UNEXPECTED error
1327: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
1328: -- verify that cursor was closed
1329: END ;
1330:
1331: p_stmv_rec.say_code := 'WORK';
1357: ,L_MODULE
1358: ,'End Debug OKLRSULB.pls call Okl_Streams_Util.round_streams_amount');
1359: END IF;
1360:
1361: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR)
1362: THEN
1363: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1364: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR)
1365: THEN
1359: END IF;
1360:
1361: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR)
1362: THEN
1363: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1364: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR)
1365: THEN
1366: RAISE OKC_API.G_EXCEPTION_ERROR;
1367: END IF;
1360:
1361: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR)
1362: THEN
1363: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1364: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR)
1365: THEN
1366: RAISE OKC_API.G_EXCEPTION_ERROR;
1367: END IF;
1368:
1362: THEN
1363: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1364: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR)
1365: THEN
1366: RAISE OKC_API.G_EXCEPTION_ERROR;
1367: END IF;
1368:
1369: -- Store Rounded Streams back into the p_selv_tbl
1370: p_selv_tbl:= x_selv_tbl;
1396: -- End of wraper code generated automatically by Debug code generator for OKL_STREAMS_PUB.create_streams
1397:
1398:
1399:
1400: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1401: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1402: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1403: RAISE OKC_API.G_EXCEPTION_ERROR;
1404: END IF;
1397:
1398:
1399:
1400: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1401: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1402: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1403: RAISE OKC_API.G_EXCEPTION_ERROR;
1404: END IF;
1405:
1398:
1399:
1400: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1401: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1402: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1403: RAISE OKC_API.G_EXCEPTION_ERROR;
1404: END IF;
1405:
1406: END IF;
1399:
1400: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1401: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1402: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1403: RAISE OKC_API.G_EXCEPTION_ERROR;
1404: END IF;
1405:
1406: END IF;
1407: END IF;
1405:
1406: END IF;
1407: END IF;
1408:
1409: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1410:
1411: EXCEPTION
1412: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1413: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1408:
1409: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1410:
1411: EXCEPTION
1412: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1413: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1414: (
1415: l_api_name,
1416: G_PKG_NAME,
1409: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1410:
1411: EXCEPTION
1412: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1413: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1414: (
1415: l_api_name,
1416: G_PKG_NAME,
1417: 'OKC_API.G_RET_STS_ERROR',
1413: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1414: (
1415: l_api_name,
1416: G_PKG_NAME,
1417: 'OKC_API.G_RET_STS_ERROR',
1418: x_msg_count,
1419: x_msg_data,
1420: '_PROCESS'
1421: );
1418: x_msg_count,
1419: x_msg_data,
1420: '_PROCESS'
1421: );
1422: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1423: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1424: (
1425: l_api_name,
1426: G_PKG_NAME,
1419: x_msg_data,
1420: '_PROCESS'
1421: );
1422: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1423: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1424: (
1425: l_api_name,
1426: G_PKG_NAME,
1427: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1423: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1424: (
1425: l_api_name,
1426: G_PKG_NAME,
1427: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1428: x_msg_count,
1429: x_msg_data,
1430: '_PROCESS'
1431: );
1429: x_msg_data,
1430: '_PROCESS'
1431: );
1432: WHEN OTHERS THEN
1433: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1434: (
1435: l_api_name,
1436: G_PKG_NAME,
1437: 'OTHERS',
1467: l_msg_count NUMBER ;
1468: l_msg_data VARCHAR2(2000);
1469: l_api_version CONSTANT NUMBER := 1;
1470: l_api_name CONSTANT VARCHAR2(30) := 'create_insexp_streams';
1471: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
1472: p_stmv_rec Okl_Streams_Pub.stmv_rec_type;
1473: x_stmv_rec Okl_Streams_Pub.stmv_rec_type;
1474: p_selv_tbl Okl_Streams_Pub.selv_tbl_type;
1475: x_selv_tbl Okl_Streams_Pub.selv_tbl_type;
1522: 'INSURANCE_EXPENSE_ACCRUAL',
1523: l_return_status,
1524: p_stmv_rec.sty_id);
1525:
1526: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1527: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
1528: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1529: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1530: Okc_Api.set_message(G_APP_NAME, 'OKL_NO_STREAM_TYPE',G_PURPOSE_TOKEN,'INSURANCE_EXPENSE_ACCRUAL'); --bug 4024785
1523: l_return_status,
1524: p_stmv_rec.sty_id);
1525:
1526: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1527: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
1528: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1529: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1530: Okc_Api.set_message(G_APP_NAME, 'OKL_NO_STREAM_TYPE',G_PURPOSE_TOKEN,'INSURANCE_EXPENSE_ACCRUAL'); --bug 4024785
1531: RAISE OKC_API.G_EXCEPTION_ERROR;
1524: p_stmv_rec.sty_id);
1525:
1526: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1527: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
1528: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1529: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1530: Okc_Api.set_message(G_APP_NAME, 'OKL_NO_STREAM_TYPE',G_PURPOSE_TOKEN,'INSURANCE_EXPENSE_ACCRUAL'); --bug 4024785
1531: RAISE OKC_API.G_EXCEPTION_ERROR;
1532: END IF;
1525:
1526: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1527: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
1528: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1529: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1530: Okc_Api.set_message(G_APP_NAME, 'OKL_NO_STREAM_TYPE',G_PURPOSE_TOKEN,'INSURANCE_EXPENSE_ACCRUAL'); --bug 4024785
1531: RAISE OKC_API.G_EXCEPTION_ERROR;
1532: END IF;
1533:
1526: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1527: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
1528: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1529: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1530: Okc_Api.set_message(G_APP_NAME, 'OKL_NO_STREAM_TYPE',G_PURPOSE_TOKEN,'INSURANCE_EXPENSE_ACCRUAL'); --bug 4024785
1531: RAISE OKC_API.G_EXCEPTION_ERROR;
1532: END IF;
1533:
1534:
1527: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
1528: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1529: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1530: Okc_Api.set_message(G_APP_NAME, 'OKL_NO_STREAM_TYPE',G_PURPOSE_TOKEN,'INSURANCE_EXPENSE_ACCRUAL'); --bug 4024785
1531: RAISE OKC_API.G_EXCEPTION_ERROR;
1532: END IF;
1533:
1534:
1535: -- End : changes for Insurance user defined streams
1536:
1537: EXCEPTION
1538: WHEN NO_DATA_FOUND THEN
1539: -- store SQL error message on message stack for caller
1540: OKC_API.set_message(G_APP_NAME, 'OKL_NO_STREAM_TYPE');
1541: WHEN OTHERS THEN
1542: -- store SQL error message on message stack for caller
1543: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
1544: -- notify caller of an UNEXPECTED error
1539: -- store SQL error message on message stack for caller
1540: OKC_API.set_message(G_APP_NAME, 'OKL_NO_STREAM_TYPE');
1541: WHEN OTHERS THEN
1542: -- store SQL error message on message stack for caller
1543: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
1544: -- notify caller of an UNEXPECTED error
1545: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
1546: END ;
1547:
1541: WHEN OTHERS THEN
1542: -- store SQL error message on message stack for caller
1543: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
1544: -- notify caller of an UNEXPECTED error
1545: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
1546: END ;
1547:
1548: p_stmv_rec.sgn_code := 'MANL';
1549: p_stmv_rec.say_code := 'WORK';
1553:
1554:
1555: l_return_status := genrt_monthly(p_insexp_tbl,p_date_from,x_selv_tbl);
1556:
1557: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1558: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1559: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1560: RAISE OKC_API.G_EXCEPTION_ERROR;
1561: END IF;
1554:
1555: l_return_status := genrt_monthly(p_insexp_tbl,p_date_from,x_selv_tbl);
1556:
1557: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1558: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1559: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1560: RAISE OKC_API.G_EXCEPTION_ERROR;
1561: END IF;
1562: p_selv_tbl:= x_selv_tbl;
1555: l_return_status := genrt_monthly(p_insexp_tbl,p_date_from,x_selv_tbl);
1556:
1557: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1558: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1559: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1560: RAISE OKC_API.G_EXCEPTION_ERROR;
1561: END IF;
1562: p_selv_tbl:= x_selv_tbl;
1563:
1556:
1557: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1558: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1559: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1560: RAISE OKC_API.G_EXCEPTION_ERROR;
1561: END IF;
1562: p_selv_tbl:= x_selv_tbl;
1563:
1564:
1561: END IF;
1562: p_selv_tbl:= x_selv_tbl;
1563:
1564:
1565: IF (l_return_status = Okc_Api.G_RET_STS_SUCCESS) THEN
1566: -- Create Stream and Stream Elements
1567: -- Start of wraper code generated automatically by Debug code generator for OKL_STREAMS_PUB.create_streams
1568: IF(L_DEBUG_ENABLED='Y') THEN
1569: L_LEVEL_PROCEDURE :=FND_LOG.LEVEL_PROCEDURE;
1593: ,L_MODULE
1594: ,'End Debug OKLRSULB.pls call Okl_Streams_Util.round_streams_amount');
1595: END IF;
1596:
1597: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR)
1598: THEN
1599: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1600: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR)
1601: THEN
1595: END IF;
1596:
1597: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR)
1598: THEN
1599: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1600: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR)
1601: THEN
1602: RAISE OKC_API.G_EXCEPTION_ERROR;
1603: END IF;
1596:
1597: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR)
1598: THEN
1599: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1600: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR)
1601: THEN
1602: RAISE OKC_API.G_EXCEPTION_ERROR;
1603: END IF;
1604:
1598: THEN
1599: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1600: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR)
1601: THEN
1602: RAISE OKC_API.G_EXCEPTION_ERROR;
1603: END IF;
1604:
1605: -- Store Rounded Streams back into the p_selv_tbl
1606: p_selv_tbl:= x_selv_tbl;
1630: END IF;
1631: -- End of wraper code generated automatically by Debug code generator for OKL_STREAMS_PUB.create_streams
1632: l_return_status := x_return_status ;
1633:
1634: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1635: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1636: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1637: RAISE OKC_API.G_EXCEPTION_ERROR;
1638: END IF;
1631: -- End of wraper code generated automatically by Debug code generator for OKL_STREAMS_PUB.create_streams
1632: l_return_status := x_return_status ;
1633:
1634: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1635: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1636: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1637: RAISE OKC_API.G_EXCEPTION_ERROR;
1638: END IF;
1639: ---Create another set of stream, if Multi Gaap is enabled
1632: l_return_status := x_return_status ;
1633:
1634: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1635: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1636: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1637: RAISE OKC_API.G_EXCEPTION_ERROR;
1638: END IF;
1639: ---Create another set of stream, if Multi Gaap is enabled
1640: -- 1. Get status of contract
1633:
1634: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1635: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1636: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1637: RAISE OKC_API.G_EXCEPTION_ERROR;
1638: END IF;
1639: ---Create another set of stream, if Multi Gaap is enabled
1640: -- 1. Get status of contract
1641: l_return_status := get_contract_status ( p_khr_id ,l_khr_status );
1638: END IF;
1639: ---Create another set of stream, if Multi Gaap is enabled
1640: -- 1. Get status of contract
1641: l_return_status := get_contract_status ( p_khr_id ,l_khr_status );
1642: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1643: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1644: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1645: RAISE OKC_API.G_EXCEPTION_ERROR;
1646: END IF;
1639: ---Create another set of stream, if Multi Gaap is enabled
1640: -- 1. Get status of contract
1641: l_return_status := get_contract_status ( p_khr_id ,l_khr_status );
1642: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1643: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1644: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1645: RAISE OKC_API.G_EXCEPTION_ERROR;
1646: END IF;
1647: IF (l_khr_status = 'ACTIVE' ) THEN
1640: -- 1. Get status of contract
1641: l_return_status := get_contract_status ( p_khr_id ,l_khr_status );
1642: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1643: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1644: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1645: RAISE OKC_API.G_EXCEPTION_ERROR;
1646: END IF;
1647: IF (l_khr_status = 'ACTIVE' ) THEN
1648: --- if active , get multi gaap enabled from contract header table
1641: l_return_status := get_contract_status ( p_khr_id ,l_khr_status );
1642: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1643: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1644: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1645: RAISE OKC_API.G_EXCEPTION_ERROR;
1646: END IF;
1647: IF (l_khr_status = 'ACTIVE' ) THEN
1648: --- if active , get multi gaap enabled from contract header table
1649:
1658: CLOSE multi_gaap_flag_cur ;
1659: EXCEPTION
1660: WHEN OTHERS THEN
1661: -- store SQL error message on message stack for caller
1662: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
1663: -- notify caller of an UNEXPECTED error
1664: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
1665: -- verify that cursor was closed
1666: IF multi_gaap_flag_cur%ISOPEN THEN
1660: WHEN OTHERS THEN
1661: -- store SQL error message on message stack for caller
1662: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
1663: -- notify caller of an UNEXPECTED error
1664: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
1665: -- verify that cursor was closed
1666: IF multi_gaap_flag_cur%ISOPEN THEN
1667: CLOSE multi_gaap_flag_cur;
1668: END IF;
1682: CLOSE khr_product_cur ;
1683: EXCEPTION
1684: WHEN OTHERS THEN
1685: -- store SQL error message on message stack for caller
1686: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
1687: -- notify caller of an UNEXPECTED error
1688: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
1689: -- verify that cursor was closed
1690: IF khr_product_cur%ISOPEN THEN
1684: WHEN OTHERS THEN
1685: -- store SQL error message on message stack for caller
1686: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
1687: -- notify caller of an UNEXPECTED error
1688: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
1689: -- verify that cursor was closed
1690: IF khr_product_cur%ISOPEN THEN
1691: CLOSE khr_product_cur;
1692: END IF;
1714: END IF;
1715: -- End of wraper code generated automatically by Debug code generator for OKL_SETUPPRODUCTS_PVT.Getpdt_parameters
1716:
1717:
1718: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1719: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1720: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1721: RAISE OKC_API.G_EXCEPTION_ERROR;
1722: END IF;
1715: -- End of wraper code generated automatically by Debug code generator for OKL_SETUPPRODUCTS_PVT.Getpdt_parameters
1716:
1717:
1718: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1719: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1720: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1721: RAISE OKC_API.G_EXCEPTION_ERROR;
1722: END IF;
1723:
1716:
1717:
1718: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1719: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1720: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1721: RAISE OKC_API.G_EXCEPTION_ERROR;
1722: END IF;
1723:
1724: IF (l_pdt_parameter_rec.reporting_pdt_id is NULL) THEN
1717:
1718: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1719: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1720: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1721: RAISE OKC_API.G_EXCEPTION_ERROR;
1722: END IF;
1723:
1724: IF (l_pdt_parameter_rec.reporting_pdt_id is NULL) THEN
1725: l_multigaap_flag := 'N' ;
1743: 'INSURANCE_EXPENSE_ACCRUAL',
1744: l_return_status,
1745: p_stmv_rec.sty_id);
1746:
1747: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1748: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
1749: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1750: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1751: OKC_API.set_message(G_APP_NAME, 'OKL_NO_STREAM_TYPE',G_PURPOSE_TOKEN,'INSURANCE_EXPENSE_ACCRUAL'); --bug 4024785
1744: l_return_status,
1745: p_stmv_rec.sty_id);
1746:
1747: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1748: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
1749: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1750: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1751: OKC_API.set_message(G_APP_NAME, 'OKL_NO_STREAM_TYPE',G_PURPOSE_TOKEN,'INSURANCE_EXPENSE_ACCRUAL'); --bug 4024785
1752: RAISE OKC_API.G_EXCEPTION_ERROR;
1745: p_stmv_rec.sty_id);
1746:
1747: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1748: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
1749: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1750: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1751: OKC_API.set_message(G_APP_NAME, 'OKL_NO_STREAM_TYPE',G_PURPOSE_TOKEN,'INSURANCE_EXPENSE_ACCRUAL'); --bug 4024785
1752: RAISE OKC_API.G_EXCEPTION_ERROR;
1753: END IF;
1746:
1747: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1748: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
1749: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1750: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1751: OKC_API.set_message(G_APP_NAME, 'OKL_NO_STREAM_TYPE',G_PURPOSE_TOKEN,'INSURANCE_EXPENSE_ACCRUAL'); --bug 4024785
1752: RAISE OKC_API.G_EXCEPTION_ERROR;
1753: END IF;
1754:
1747: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1748: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
1749: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1750: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1751: OKC_API.set_message(G_APP_NAME, 'OKL_NO_STREAM_TYPE',G_PURPOSE_TOKEN,'INSURANCE_EXPENSE_ACCRUAL'); --bug 4024785
1752: RAISE OKC_API.G_EXCEPTION_ERROR;
1753: END IF;
1754:
1755: -- End : changes for Insurance user defined streams
1748: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
1749: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1750: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1751: OKC_API.set_message(G_APP_NAME, 'OKL_NO_STREAM_TYPE',G_PURPOSE_TOKEN,'INSURANCE_EXPENSE_ACCRUAL'); --bug 4024785
1752: RAISE OKC_API.G_EXCEPTION_ERROR;
1753: END IF;
1754:
1755: -- End : changes for Insurance user defined streams
1756: -- nEW
1756: -- nEW
1757: EXCEPTION
1758: WHEN NO_DATA_FOUND THEN
1759: -- store SQL error message on message stack for caller
1760: OKC_API.set_message(G_APP_NAME, 'OKL_NO_STREAM_TYPE');
1761: WHEN OTHERS THEN
1762: -- store SQL error message on message stack for caller
1763: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
1764: -- notify caller of an UNEXPECTED error
1759: -- store SQL error message on message stack for caller
1760: OKC_API.set_message(G_APP_NAME, 'OKL_NO_STREAM_TYPE');
1761: WHEN OTHERS THEN
1762: -- store SQL error message on message stack for caller
1763: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
1764: -- notify caller of an UNEXPECTED error
1765: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
1766: END ;
1767:
1761: WHEN OTHERS THEN
1762: -- store SQL error message on message stack for caller
1763: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
1764: -- notify caller of an UNEXPECTED error
1765: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
1766: END ;
1767:
1768: p_stmv_rec.say_code := 'WORK';
1769: p_stmv_rec.active_yn := 'N';
1793: ,L_MODULE
1794: ,'End Debug OKLRSULB.pls call Okl_Streams_Util.round_streams_amount');
1795: END IF;
1796:
1797: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR)
1798: THEN
1799: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1800: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR)
1801: THEN
1795: END IF;
1796:
1797: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR)
1798: THEN
1799: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1800: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR)
1801: THEN
1802: RAISE OKC_API.G_EXCEPTION_ERROR;
1803: END IF;
1796:
1797: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR)
1798: THEN
1799: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1800: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR)
1801: THEN
1802: RAISE OKC_API.G_EXCEPTION_ERROR;
1803: END IF;
1804:
1798: THEN
1799: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1800: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR)
1801: THEN
1802: RAISE OKC_API.G_EXCEPTION_ERROR;
1803: END IF;
1804:
1805: -- Store Rounded Streams back into the p_selv_tbl
1806: p_selv_tbl:= x_selv_tbl;
1831: END IF;
1832: -- End of wraper code generated automatically by Debug code generator for OKL_STREAMS_PUB.create_streams
1833:
1834:
1835: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1836: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1837: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1838: RAISE OKC_API.G_EXCEPTION_ERROR;
1839: END IF;
1832: -- End of wraper code generated automatically by Debug code generator for OKL_STREAMS_PUB.create_streams
1833:
1834:
1835: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1836: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1837: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1838: RAISE OKC_API.G_EXCEPTION_ERROR;
1839: END IF;
1840:
1833:
1834:
1835: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1836: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1837: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1838: RAISE OKC_API.G_EXCEPTION_ERROR;
1839: END IF;
1840:
1841: END IF;
1834:
1835: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1836: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1837: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1838: RAISE OKC_API.G_EXCEPTION_ERROR;
1839: END IF;
1840:
1841: END IF;
1842: ---need to modify activation process
1844: --- need to check credit and other process
1845:
1846: END IF;
1847: EXCEPTION
1848: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1849: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1850: (
1851: l_api_name,
1852: G_PKG_NAME,
1845:
1846: END IF;
1847: EXCEPTION
1848: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1849: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1850: (
1851: l_api_name,
1852: G_PKG_NAME,
1853: 'OKC_API.G_RET_STS_ERROR',
1849: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1850: (
1851: l_api_name,
1852: G_PKG_NAME,
1853: 'OKC_API.G_RET_STS_ERROR',
1854: x_msg_count,
1855: x_msg_data,
1856: '_PROCESS'
1857: );
1854: x_msg_count,
1855: x_msg_data,
1856: '_PROCESS'
1857: );
1858: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1859: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1860: (
1861: l_api_name,
1862: G_PKG_NAME,
1855: x_msg_data,
1856: '_PROCESS'
1857: );
1858: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1859: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1860: (
1861: l_api_name,
1862: G_PKG_NAME,
1863: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1859: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1860: (
1861: l_api_name,
1862: G_PKG_NAME,
1863: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1864: x_msg_count,
1865: x_msg_data,
1866: '_PROCESS'
1867: );
1865: x_msg_data,
1866: '_PROCESS'
1867: );
1868: WHEN OTHERS THEN
1869: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1870: (
1871: l_api_name,
1872: G_PKG_NAME,
1873: 'OTHERS',
1885: --FUNCTION validate_contract_line (
1886: FUNCTION validate_contract_line (
1887: p_ipyv_rec IN ipyv_rec_type
1888: ) RETURN VARCHAR2 IS
1889: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1890: l_kle_id NUMBER := p_ipyv_rec.kle_id;
1891: l_dummy_var VARCHAR2(1) := '?';
1892: CURSOR okc_kle_csr IS
1893: SELECT 'x'
1898: FETCH okc_kle_csr INTO l_dummy_var ;
1899: CLOSE okc_kle_csr ;
1900: -- still set to default means data was not found
1901: IF ( l_dummy_var = '?' ) THEN
1902: OKC_API.set_message(g_app_name,
1903: 'OKL_INVALID_CONTRACT_LINE');
1904: l_return_status := OKC_API.G_RET_STS_ERROR;
1905: END IF;
1906: RETURN(l_return_status);
1900: -- still set to default means data was not found
1901: IF ( l_dummy_var = '?' ) THEN
1902: OKC_API.set_message(g_app_name,
1903: 'OKL_INVALID_CONTRACT_LINE');
1904: l_return_status := OKC_API.G_RET_STS_ERROR;
1905: END IF;
1906: RETURN(l_return_status);
1907: EXCEPTION
1908: WHEN OTHERS THEN
1906: RETURN(l_return_status);
1907: EXCEPTION
1908: WHEN OTHERS THEN
1909: -- store SQL error message on message stack for caller
1910: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
1911: -- notify caller of an UNEXPECTED error
1912: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
1913: -- verify that cursor was closed
1914: IF okc_kle_csr%ISOPEN THEN
1908: WHEN OTHERS THEN
1909: -- store SQL error message on message stack for caller
1910: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
1911: -- notify caller of an UNEXPECTED error
1912: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
1913: -- verify that cursor was closed
1914: IF okc_kle_csr%ISOPEN THEN
1915: CLOSE okc_kle_csr;
1916: END IF;
1922: PROCEDURE validate_amount_due(x_return_status OUT NOCOPY VARCHAR2,
1923: p_ipyv_rec IN ipyv_rec_type) IS
1924: l_amount_due NUMBER;
1925: BEGIN
1926: x_return_status := Okc_Api.G_RET_STS_SUCCESS;
1927: l_amount_due := p_ipyv_rec.premium ;
1928: --data is required
1929: IF (l_amount_due) IS NULL OR (l_amount_due = OKC_API.G_MISS_NUM) THEN
1930: Okc_Api.set_message(p_app_name => G_APP_NAME,
1925: BEGIN
1926: x_return_status := Okc_Api.G_RET_STS_SUCCESS;
1927: l_amount_due := p_ipyv_rec.premium ;
1928: --data is required
1929: IF (l_amount_due) IS NULL OR (l_amount_due = OKC_API.G_MISS_NUM) THEN
1930: Okc_Api.set_message(p_app_name => G_APP_NAME,
1931: p_msg_name => 'OKL_REQUIRED_VALUE',
1932: p_token1 => G_COL_NAME_TOKEN,
1933: p_token1_value => 'Premium');
1926: x_return_status := Okc_Api.G_RET_STS_SUCCESS;
1927: l_amount_due := p_ipyv_rec.premium ;
1928: --data is required
1929: IF (l_amount_due) IS NULL OR (l_amount_due = OKC_API.G_MISS_NUM) THEN
1930: Okc_Api.set_message(p_app_name => G_APP_NAME,
1931: p_msg_name => 'OKL_REQUIRED_VALUE',
1932: p_token1 => G_COL_NAME_TOKEN,
1933: p_token1_value => 'Premium');
1934: -- Notify caller of an error
1931: p_msg_name => 'OKL_REQUIRED_VALUE',
1932: p_token1 => G_COL_NAME_TOKEN,
1933: p_token1_value => 'Premium');
1934: -- Notify caller of an error
1935: x_return_status := Okc_Api.G_RET_STS_ERROR;
1936: ELSE
1937: x_return_status := Okl_Util.check_domain_amount(l_amount_due);
1938: IF (x_return_status = Okc_Api.G_RET_STS_ERROR) THEN
1939: Okc_Api.set_message(p_app_name => G_APP_NAME,
1934: -- Notify caller of an error
1935: x_return_status := Okc_Api.G_RET_STS_ERROR;
1936: ELSE
1937: x_return_status := Okl_Util.check_domain_amount(l_amount_due);
1938: IF (x_return_status = Okc_Api.G_RET_STS_ERROR) THEN
1939: Okc_Api.set_message(p_app_name => G_APP_NAME,
1940: p_msg_name => 'OKL_POSITIVE_NUMBER',
1941: p_token1 => G_COL_NAME_TOKEN,
1942: p_token1_value => 'Premium'
1935: x_return_status := Okc_Api.G_RET_STS_ERROR;
1936: ELSE
1937: x_return_status := Okl_Util.check_domain_amount(l_amount_due);
1938: IF (x_return_status = Okc_Api.G_RET_STS_ERROR) THEN
1939: Okc_Api.set_message(p_app_name => G_APP_NAME,
1940: p_msg_name => 'OKL_POSITIVE_NUMBER',
1941: p_token1 => G_COL_NAME_TOKEN,
1942: p_token1_value => 'Premium'
1943: );
1940: p_msg_name => 'OKL_POSITIVE_NUMBER',
1941: p_token1 => G_COL_NAME_TOKEN,
1942: p_token1_value => 'Premium'
1943: );
1944: ELSIF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1945: RAISE G_EXCEPTION_HALT_VALIDATION;
1946: END IF;
1947: END IF;
1948: EXCEPTION
1947: END IF;
1948: EXCEPTION
1949: WHEN OTHERS THEN
1950: -- store SQL error message on message stack for caller
1951: Okc_Api.set_message(p_app_name => G_APP_NAME,
1952: p_msg_name => G_UNEXPECTED_ERROR,
1953: p_token1 => G_SQLCODE_TOKEN,
1954: p_token1_value => SQLCODE,
1955: p_token2 => G_SQLERRM_TOKEN,
1955: p_token2 => G_SQLERRM_TOKEN,
1956: p_token2_value => SQLERRM
1957: );
1958: -- Notify the caller of an unexpected error
1959: x_return_status := Okc_Api.G_RET_STS_UNEXP_ERROR;
1960: END validate_amount_due;
1961: -------------------------------------------------------------------------------
1962: -- Procedure Generate Lump_Sum
1963: -------------------------------------------------------------------------------
1966: l_date_from DATE;
1967: l_date_to DATE;
1968: l_due_date DATE;
1969: l_ins_term NUMBER;
1970: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
1971: l_amount_due NUMBER;
1972: BEGIN
1973: l_date_from := p_ipyv_rec.date_from;
1974: l_date_to := p_ipyv_rec.date_to;
1979: -- Populate the stream element table type
1980: x_selv_tbl(1).stream_element_date := l_due_date;
1981: x_selv_tbl(1).amount := l_amount_due;
1982: x_selv_tbl(1).se_line_number := 1;
1983: l_return_status := Okc_Api.G_RET_STS_SUCCESS;
1984: RETURN (l_return_status);
1985: END genrt_lump_sum;
1986: -------------------------------------------------------------------------------
1987: -- Procedure Generate Monthly
1996: l_monthly_pmnt NUMBER;
1997: l_due_date DATE;
1998: l_amount_due NUMBER;
1999: i PLS_INTEGER;
2000: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
2001: BEGIN
2002: l_date_from := p_ipyv_rec.date_from;
2003: l_date_to := p_ipyv_rec.date_to;
2004: --Check if date_from and date_to difference is greater than a month
2038:
2039: --EXIT WHEN l_due_date >= l_date_to;
2040:
2041: --- Set message for period less than one month
2042: --l_return_status := Okc_Api.G_RET_STS_ERROR;
2043: END IF;
2044: RETURN(l_return_status);
2045: END genrt_monthly;
2046: -------------------------------------------------------------------------------
2055: l_bimthl_pmnt NUMBER;
2056: l_bill_periods NUMBER;
2057: l_amount_due NUMBER;
2058: i NUMBER;
2059: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
2060: BEGIN
2061: l_date_from := p_ipyv_rec.date_from;
2062: l_date_to := p_ipyv_rec.date_to;
2063: --Check if date_from and date_to difference is greater than a month
2062: l_date_to := p_ipyv_rec.date_to;
2063: --Check if date_from and date_to difference is greater than a month
2064: IF (l_date_to - l_date_from>= 30) THEN
2065: l_ins_term := MONTHS_BETWEEN(l_date_to,l_date_from);
2066: IF (l_ins_term IS NULL) OR (l_ins_term = okc_api.G_MISS_NUM) THEN
2067: l_return_status := Okc_Api.G_RET_STS_ERROR;
2068: Okc_Api.set_message(p_app_name => G_APP_NAME,
2069: p_msg_name => 'OKL_INVALID_VALUE',
2070: p_token1 => 'COL_NAME1',
2063: --Check if date_from and date_to difference is greater than a month
2064: IF (l_date_to - l_date_from>= 30) THEN
2065: l_ins_term := MONTHS_BETWEEN(l_date_to,l_date_from);
2066: IF (l_ins_term IS NULL) OR (l_ins_term = okc_api.G_MISS_NUM) THEN
2067: l_return_status := Okc_Api.G_RET_STS_ERROR;
2068: Okc_Api.set_message(p_app_name => G_APP_NAME,
2069: p_msg_name => 'OKL_INVALID_VALUE',
2070: p_token1 => 'COL_NAME1',
2071: p_token1_Value => 'Payment Frequency'
2064: IF (l_date_to - l_date_from>= 30) THEN
2065: l_ins_term := MONTHS_BETWEEN(l_date_to,l_date_from);
2066: IF (l_ins_term IS NULL) OR (l_ins_term = okc_api.G_MISS_NUM) THEN
2067: l_return_status := Okc_Api.G_RET_STS_ERROR;
2068: Okc_Api.set_message(p_app_name => G_APP_NAME,
2069: p_msg_name => 'OKL_INVALID_VALUE',
2070: p_token1 => 'COL_NAME1',
2071: p_token1_Value => 'Payment Frequency'
2072: );
2070: p_token1 => 'COL_NAME1',
2071: p_token1_Value => 'Payment Frequency'
2072: );
2073: ELSE
2074: l_return_status := Okc_Api.G_RET_STS_ERROR;
2075: l_premium := p_ipyv_rec.premium;
2076: l_bill_periods := l_ins_term / 2;
2077: l_due_date := l_date_from;
2078: l_amount_due :=l_premium;
2093: --END IF;
2094: END IF;
2095: ELSE
2096: --- Set message for period less than one month
2097: l_return_status := Okc_Api.G_RET_STS_ERROR;
2098: END IF;
2099: RETURN(l_return_status);
2100: END genrt_bi_monthly;
2101: -------------------------------------------------------------------------------
2111: l_premium NUMBER;
2112: l_bill_periods NUMBER;
2113: l_hlfyrly_pmnt NUMBER;
2114: i NUMBER;
2115: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
2116: BEGIN
2117: l_date_from := p_ipyv_rec.date_from;
2118: l_date_to := p_ipyv_rec.date_to;
2119: -- Check if the date_to and date _from are greater than six months
2124:
2125: --bug:3945995
2126: /*
2127: IF (round(l_ins_term) < 6) THEN
2128: l_return_status := Okc_Api.G_RET_STS_ERROR;
2129: Okc_Api.set_message(p_app_name => G_APP_NAME,
2130: p_msg_name => 'OKL_INVALID_VALUE',
2131: p_token1 => 'COL_NAME',
2132: p_token1_Value => 'Payment Frequency');
2125: --bug:3945995
2126: /*
2127: IF (round(l_ins_term) < 6) THEN
2128: l_return_status := Okc_Api.G_RET_STS_ERROR;
2129: Okc_Api.set_message(p_app_name => G_APP_NAME,
2130: p_msg_name => 'OKL_INVALID_VALUE',
2131: p_token1 => 'COL_NAME',
2132: p_token1_Value => 'Payment Frequency');
2133: ELSE
2173: l_premium NUMBER;
2174: l_bill_periods NUMBER;
2175: l_qrtrly_pmnt NUMBER;
2176: i NUMBER;
2177: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
2178: BEGIN
2179: l_date_from := p_ipyv_rec.date_from;
2180: l_date_to := p_ipyv_rec.date_to;
2181: -- Check if the date_to and date_from are greater than six months
2187: --bug:3945995
2188: /*
2189: IF(round(l_ins_term) < 3) THEN
2190:
2191: l_return_status := Okc_Api.G_RET_STS_ERROR;
2192: Okc_Api.set_message(p_app_name => G_APP_NAME,
2193: p_msg_name => 'OKL_INVALID_VALUE',
2194: p_token1 => 'COL_NAME',
2195: p_token1_Value => 'Payment Frequency'
2188: /*
2189: IF(round(l_ins_term) < 3) THEN
2190:
2191: l_return_status := Okc_Api.G_RET_STS_ERROR;
2192: Okc_Api.set_message(p_app_name => G_APP_NAME,
2193: p_msg_name => 'OKL_INVALID_VALUE',
2194: p_token1 => 'COL_NAME',
2195: p_token1_Value => 'Payment Frequency'
2196: );
2240: l_premium NUMBER;
2241: l_bill_periods NUMBER;
2242: l_yearly_pmnt NUMBER;
2243: i NUMBER;
2244: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
2245: BEGIN
2246: l_date_from := p_ipyv_rec.date_from;
2247: l_date_to := p_ipyv_rec.date_to;
2248: -- Check if the date_to and date_from are greater than six months
2253:
2254: --bug:3945995
2255: /*
2256: IF(round(l_ins_term) < 12) THEN
2257: l_return_status := Okc_Api.G_RET_STS_ERROR;
2258: Okc_Api.set_message(p_app_name => G_APP_NAME,
2259: p_msg_name => 'OKL_INVALID_VALUE',
2260: p_token1 => 'COL_NAME',
2261: p_token1_Value => 'Payment Frequency'
2254: --bug:3945995
2255: /*
2256: IF(round(l_ins_term) < 12) THEN
2257: l_return_status := Okc_Api.G_RET_STS_ERROR;
2258: Okc_Api.set_message(p_app_name => G_APP_NAME,
2259: p_msg_name => 'OKL_INVALID_VALUE',
2260: p_token1 => 'COL_NAME',
2261: p_token1_Value => 'Payment Frequency'
2262: );
2301: -- Version : 1.0
2302: -- End of Comments
2303: ---------------------------------------------------------------------------
2304: FUNCTION validate_date_from(p_date_from IN DATE )RETURN VARCHAR2 IS
2305: --l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2306: --initialize the return status
2307: x_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
2308: BEGIN
2309: --data is required
2303: ---------------------------------------------------------------------------
2304: FUNCTION validate_date_from(p_date_from IN DATE )RETURN VARCHAR2 IS
2305: --l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2306: --initialize the return status
2307: x_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
2308: BEGIN
2309: --data is required
2310: IF p_date_from = Okc_Api.G_MISS_DATE OR
2311: p_date_from IS NULL
2306: --initialize the return status
2307: x_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
2308: BEGIN
2309: --data is required
2310: IF p_date_from = Okc_Api.G_MISS_DATE OR
2311: p_date_from IS NULL
2312: THEN
2313: Okc_Api.set_message(p_app_name => G_APP_NAME,
2314: p_msg_name => G_REQUIRED_VALUE,
2309: --data is required
2310: IF p_date_from = Okc_Api.G_MISS_DATE OR
2311: p_date_from IS NULL
2312: THEN
2313: Okc_Api.set_message(p_app_name => G_APP_NAME,
2314: p_msg_name => G_REQUIRED_VALUE,
2315: p_token1 => G_COL_NAME_TOKEN,
2316: p_token1_value => 'Policy Effective From');
2317: --Notify caller of an error
2314: p_msg_name => G_REQUIRED_VALUE,
2315: p_token1 => G_COL_NAME_TOKEN,
2316: p_token1_value => 'Policy Effective From');
2317: --Notify caller of an error
2318: x_return_status := Okc_Api.G_RET_STS_ERROR;
2319: END IF;
2320: RETURN(x_return_status);
2321: EXCEPTION
2322: WHEN OTHERS THEN
2320: RETURN(x_return_status);
2321: EXCEPTION
2322: WHEN OTHERS THEN
2323: -- store SQL error message on message stack for caller
2324: Okc_Api.set_message(p_app_name => G_APP_NAME,
2325: p_msg_name => G_UNEXPECTED_ERROR,
2326: p_token1 => G_SQLCODE_TOKEN,
2327: p_token1_value => SQLCODE,
2328: p_token2 => G_SQLERRM_TOKEN,
2328: p_token2 => G_SQLERRM_TOKEN,
2329: p_token2_value => SQLERRM
2330: );
2331: -- Notify the caller of an unexpected error
2332: x_return_status := Okc_Api.G_RET_STS_UNEXP_ERROR;
2333: RETURN(x_return_status);
2334: END validate_date_from;
2335: ---------------------------------------------------------------------------
2336: -- Start of comments
2342: -- Version : 1.0
2343: -- End of Comments
2344: ---------------------------------------------------------------------------
2345: FUNCTION validate_date_to(p_date_to IN DATE) RETURN VARCHAR2 IS
2346: --l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2347: --initialize the return status
2348: x_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
2349: BEGIN
2350: --data is required
2344: ---------------------------------------------------------------------------
2345: FUNCTION validate_date_to(p_date_to IN DATE) RETURN VARCHAR2 IS
2346: --l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2347: --initialize the return status
2348: x_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
2349: BEGIN
2350: --data is required
2351: IF p_date_to = Okc_Api.G_MISS_DATE OR
2352: p_date_to IS NULL
2347: --initialize the return status
2348: x_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
2349: BEGIN
2350: --data is required
2351: IF p_date_to = Okc_Api.G_MISS_DATE OR
2352: p_date_to IS NULL
2353: THEN
2354: Okc_Api.set_message(p_app_name => G_APP_NAME,
2355: p_msg_name => G_REQUIRED_VALUE,
2350: --data is required
2351: IF p_date_to = Okc_Api.G_MISS_DATE OR
2352: p_date_to IS NULL
2353: THEN
2354: Okc_Api.set_message(p_app_name => G_APP_NAME,
2355: p_msg_name => G_REQUIRED_VALUE,
2356: p_token1 => G_COL_NAME_TOKEN,
2357: p_token1_value => 'Policy Effective To');
2358: --Notify caller of an error
2355: p_msg_name => G_REQUIRED_VALUE,
2356: p_token1 => G_COL_NAME_TOKEN,
2357: p_token1_value => 'Policy Effective To');
2358: --Notify caller of an error
2359: x_return_status := Okc_Api.G_RET_STS_ERROR;
2360: END IF;
2361: RETURN(x_return_status);
2362: EXCEPTION
2363: WHEN OTHERS THEN
2361: RETURN(x_return_status);
2362: EXCEPTION
2363: WHEN OTHERS THEN
2364: -- store SQL error message on message stack for caller
2365: Okc_Api.set_message(p_app_name => G_APP_NAME,
2366: p_msg_name => G_UNEXPECTED_ERROR,
2367: p_token1 => G_SQLCODE_TOKEN,
2368: p_token1_value => SQLCODE,
2369: p_token2 => G_SQLERRM_TOKEN,
2369: p_token2 => G_SQLERRM_TOKEN,
2370: p_token2_value => SQLERRM
2371: );
2372: -- Notify the caller of an unexpected error
2373: x_return_status := Okc_Api.G_RET_STS_UNEXP_ERROR;
2374: RETURN(x_return_status);
2375: END validate_date_to;
2376: ---------------------------------------------------------------------------
2377: --Procedure validate_insurance_term
2380: p_date_from IN DATE,
2381: p_date_to IN DATE ,
2382: p_khr_date_from IN DATE,
2383: p_khr_date_to IN DATE ) RETURN VARCHAR2 IS
2384: x_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2385: l_policy_term NUMBER;
2386: l_khr_term NUMBER;
2387: l_ins_term NUMBER;
2388: BEGIN
2388: BEGIN
2389: --first check the validity of dates from Policy
2390: --Validate whether start date is less than the end date
2391: x_return_status:= OKL_UTIL.check_from_to_date_range( p_date_from ,p_date_to );
2392: IF (x_return_status = Okc_Api.G_RET_STS_ERROR) THEN
2393: Okc_Api.set_message(
2394: p_app_name => g_app_name,
2395: p_msg_name => 'OKL_GREATER_THAN',
2396: p_token1 => 'COL_NAME1',
2389: --first check the validity of dates from Policy
2390: --Validate whether start date is less than the end date
2391: x_return_status:= OKL_UTIL.check_from_to_date_range( p_date_from ,p_date_to );
2392: IF (x_return_status = Okc_Api.G_RET_STS_ERROR) THEN
2393: Okc_Api.set_message(
2394: p_app_name => g_app_name,
2395: p_msg_name => 'OKL_GREATER_THAN',
2396: p_token1 => 'COL_NAME1',
2397: p_token1_value => 'Policy Effective To',
2398: p_token2 => 'COL_NAME2',
2399: p_token2_value => 'Policy Effective From'
2400: );
2401: RETURN(x_return_status);
2402: IF(x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
2403: -- store SQL error message on message stack for caller
2404: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,
2405: G_SQLERRM_TOKEN, SQLERRM);
2406: RETURN(x_return_status);
2400: );
2401: RETURN(x_return_status);
2402: IF(x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
2403: -- store SQL error message on message stack for caller
2404: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,
2405: G_SQLERRM_TOKEN, SQLERRM);
2406: RETURN(x_return_status);
2407: END IF;
2408: END IF;
2411: -- Check the contarct term is greater than policy term
2412: l_khr_term := MONTHS_BETWEEN(p_khr_date_to,p_khr_date_from);
2413: x_return_status:= OKL_UTIL.check_from_to_number_range( l_policy_term
2414: , l_khr_term);
2415: IF (x_return_status = Okc_Api.G_RET_STS_ERROR) THEN
2416: Okc_Api.set_message(
2417: p_app_name => g_app_name,
2418: p_msg_name => 'OKL_GREATER_THAN',
2419: p_token1 => 'COL_NAME1',
2412: l_khr_term := MONTHS_BETWEEN(p_khr_date_to,p_khr_date_from);
2413: x_return_status:= OKL_UTIL.check_from_to_number_range( l_policy_term
2414: , l_khr_term);
2415: IF (x_return_status = Okc_Api.G_RET_STS_ERROR) THEN
2416: Okc_Api.set_message(
2417: p_app_name => g_app_name,
2418: p_msg_name => 'OKL_GREATER_THAN',
2419: p_token1 => 'COL_NAME1',
2420: p_token1_value => 'Policy Term',
2421: p_token2 => 'COL_NAME2',
2422: p_token2_value => 'Contract Term'
2423: );
2424: RETURN(x_return_status);
2425: IF(x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
2426: -- store SQL error message on message stack for caller
2427: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,
2428: G_SQLERRM_TOKEN, SQLERRM);
2429: RETURN(x_return_status);
2423: );
2424: RETURN(x_return_status);
2425: IF(x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
2426: -- store SQL error message on message stack for caller
2427: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,
2428: G_SQLERRM_TOKEN, SQLERRM);
2429: RETURN(x_return_status);
2430: END IF;
2431: END IF;
2432: -- check for effective date_to is in between the effective date_from and date-to
2433: -- of the contract
2434: IF (p_date_from < p_khr_date_from) OR (p_date_from >= p_khr_date_to) THEN
2435: -- store SQL error message on message stack for caller
2436: Okc_Api.set_message( p_app_name => g_app_name,
2437: p_msg_name => G_INVALID_INSURANCE_TERM );
2438: x_return_status := Okc_Api.G_RET_STS_ERROR;
2439: RETURN(x_return_status);
2440: ELSIF (p_date_to <= p_khr_date_from) OR (p_date_to > p_khr_date_to)THEN
2434: IF (p_date_from < p_khr_date_from) OR (p_date_from >= p_khr_date_to) THEN
2435: -- store SQL error message on message stack for caller
2436: Okc_Api.set_message( p_app_name => g_app_name,
2437: p_msg_name => G_INVALID_INSURANCE_TERM );
2438: x_return_status := Okc_Api.G_RET_STS_ERROR;
2439: RETURN(x_return_status);
2440: ELSIF (p_date_to <= p_khr_date_from) OR (p_date_to > p_khr_date_to)THEN
2441: Okc_Api.set_message( p_app_name => g_app_name,
2442: p_msg_name => G_INVALID_INSURANCE_TERM );
2437: p_msg_name => G_INVALID_INSURANCE_TERM );
2438: x_return_status := Okc_Api.G_RET_STS_ERROR;
2439: RETURN(x_return_status);
2440: ELSIF (p_date_to <= p_khr_date_from) OR (p_date_to > p_khr_date_to)THEN
2441: Okc_Api.set_message( p_app_name => g_app_name,
2442: p_msg_name => G_INVALID_INSURANCE_TERM );
2443: x_return_status := Okc_Api.G_RET_STS_ERROR;
2444: RETURN(x_return_status);
2445: END IF;
2439: RETURN(x_return_status);
2440: ELSIF (p_date_to <= p_khr_date_from) OR (p_date_to > p_khr_date_to)THEN
2441: Okc_Api.set_message( p_app_name => g_app_name,
2442: p_msg_name => G_INVALID_INSURANCE_TERM );
2443: x_return_status := Okc_Api.G_RET_STS_ERROR;
2444: RETURN(x_return_status);
2445: END IF;
2446: RETURN(x_return_status);
2447: END validate_insurance_term;
2452: x_date_from OUT NOCOPY DATE,
2453: x_date_to OUT NOCOPY DATE,
2454: x_return_status OUT NOCOPY VARCHAR2)
2455: IS
2456: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2457: CURSOR okc_k_term_csr(p_khr_id IN NUMBER) IS
2458: SELECT START_DATE,END_DATE
2459: FROM OKC_K_HEADERS_V
2460: WHERE OKC_K_HEADERS_V.ID = p_khr_id;
2462: x_return_status := l_return_status;
2463: OPEN okc_k_term_csr(p_khr_id);
2464: FETCH okc_k_term_csr INTO x_date_from, x_date_to ;
2465: IF (okc_k_term_csr%NOTFOUND) THEN
2466: OKC_API.set_message(G_APP_NAME, G_INVALID_INSURANCE_TERM );
2467: x_return_status := Okc_Api.G_RET_STS_ERROR;
2468: END IF ;
2469: CLOSE okc_k_term_csr ;
2470: EXCEPTION
2463: OPEN okc_k_term_csr(p_khr_id);
2464: FETCH okc_k_term_csr INTO x_date_from, x_date_to ;
2465: IF (okc_k_term_csr%NOTFOUND) THEN
2466: OKC_API.set_message(G_APP_NAME, G_INVALID_INSURANCE_TERM );
2467: x_return_status := Okc_Api.G_RET_STS_ERROR;
2468: END IF ;
2469: CLOSE okc_k_term_csr ;
2470: EXCEPTION
2471: WHEN OTHERS THEN
2469: CLOSE okc_k_term_csr ;
2470: EXCEPTION
2471: WHEN OTHERS THEN
2472: -- store SQL error message on message stack for caller
2473: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
2474: -- notify caller of an UNEXPECTED error
2475: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
2476: -- verify that cursor was closed
2477: IF okc_k_term_csr%ISOPEN THEN
2471: WHEN OTHERS THEN
2472: -- store SQL error message on message stack for caller
2473: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
2474: -- notify caller of an UNEXPECTED error
2475: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
2476: -- verify that cursor was closed
2477: IF okc_k_term_csr%ISOPEN THEN
2478: CLOSE okc_k_term_csr;
2479: END IF;
2485: p_khr_id IN NUMBER,
2486: x_contract_status OUT NOCOPY VARCHAR2,
2487: x_return_status OUT NOCOPY VARCHAR2
2488: ) IS
2489: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2490: l_contract_number VARCHAR2(120);
2491: l_status VARCHAR2(80);
2492: --p_contract_status VARCHAR2(1):= '?';
2493: CURSOR okc_k_status_csr IS
2503: FETCH okc_k_status_csr INTO x_contract_status ;
2504: -- NEW
2505: IF ( okc_k_status_csr%NOTFOUND) THEN
2506: -- Fix for 3745151
2507: OKC_API.set_message('OKL',
2508: g_no_parent_record,
2509: g_col_name_token,
2510: 'ste_code',
2511: g_child_table_token ,
2516: CLOSE okc_k_status_csr ;
2517: EXCEPTION
2518: WHEN OTHERS THEN
2519: -- store SQL error message on message stack for caller
2520: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,
2521: G_SQLCODE_TOKEN,SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
2522: -- notify caller of an UNEXPECTED error
2523: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
2524: -- verify that cursor was closed
2519: -- store SQL error message on message stack for caller
2520: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,
2521: G_SQLCODE_TOKEN,SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
2522: -- notify caller of an UNEXPECTED error
2523: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
2524: -- verify that cursor was closed
2525: IF okc_k_status_csr%ISOPEN THEN
2526: CLOSE okc_k_status_csr;
2527: END IF;
2532: ---------------------------------------------------------------------------
2533: FUNCTION validate_khr_id (
2534: p_ipyv_rec IN ipyv_rec_type
2535: ) RETURN VARCHAR2 IS
2536: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2537: l_khr_id NUMBER := p_ipyv_rec.khr_id;
2538: l_dummy_var VARCHAR2(1) := '?';
2539: CURSOR okc_khr_csr IS
2540: SELECT 'x'
2545: FETCH okc_khr_csr INTO l_dummy_var ;
2546: CLOSE okc_khr_csr ;
2547: -- still set to default means data was not found
2548: IF ( l_dummy_var = '?' ) THEN
2549: OKC_API.set_message(g_app_name,
2550: p_msg_name => G_REQUIRED_VALUE,
2551: p_token1 => G_COL_NAME_TOKEN,
2552: p_token1_value => 'Contract Number');
2553: l_return_status := OKC_API.G_RET_STS_ERROR;
2549: OKC_API.set_message(g_app_name,
2550: p_msg_name => G_REQUIRED_VALUE,
2551: p_token1 => G_COL_NAME_TOKEN,
2552: p_token1_value => 'Contract Number');
2553: l_return_status := OKC_API.G_RET_STS_ERROR;
2554: END IF;
2555: RETURN(l_return_status);
2556: EXCEPTION
2557: WHEN OTHERS THEN
2555: RETURN(l_return_status);
2556: EXCEPTION
2557: WHEN OTHERS THEN
2558: -- store SQL error message on message stack for caller
2559: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
2560: -- notify caller of an UNEXPECTED error
2561: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
2562: -- verify that cursor was closed
2563: IF okc_khr_csr%ISOPEN THEN
2557: WHEN OTHERS THEN
2558: -- store SQL error message on message stack for caller
2559: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
2560: -- notify caller of an UNEXPECTED error
2561: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
2562: -- verify that cursor was closed
2563: IF okc_khr_csr%ISOPEN THEN
2564: CLOSE okc_khr_csr;
2565: END IF;
2589: l_msg_count NUMBER ;
2590: l_msg_data VARCHAR2(2000);
2591: l_api_version CONSTANT NUMBER := 1;
2592: l_api_name CONSTANT VARCHAR2(30) := 'create_ins_streams';
2593: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
2594: p_stmv_rec Okl_Streams_Pub.stmv_rec_type;
2595: x_stmv_rec Okl_Streams_Pub.stmv_rec_type;
2596: p_selv_tbl Okl_Streams_Pub.selv_tbl_type;
2597: x_selv_tbl Okl_Streams_Pub.selv_tbl_type;
2602: l_khr_id NUMBER;
2603: BEGIN
2604: l_ipyv_rec := p_ipyv_rec;
2605: l_khr_id := l_ipyv_rec.khr_id;
2606: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
2607: G_PKG_NAME,
2608: p_init_msg_list,
2609: l_api_version,
2610: p_api_version,
2609: l_api_version,
2610: p_api_version,
2611: '_PROCESS',
2612: l_return_status);
2613: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2614: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2615: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2616: RAISE OKC_API.G_EXCEPTION_ERROR;
2617: END IF;
2610: p_api_version,
2611: '_PROCESS',
2612: l_return_status);
2613: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2614: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2615: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2616: RAISE OKC_API.G_EXCEPTION_ERROR;
2617: END IF;
2618: ---------------------------------------------------------------------------
2611: '_PROCESS',
2612: l_return_status);
2613: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2614: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2615: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2616: RAISE OKC_API.G_EXCEPTION_ERROR;
2617: END IF;
2618: ---------------------------------------------------------------------------
2619: -- VALIDATE CONTRACT HEADER
2612: l_return_status);
2613: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2614: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2615: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2616: RAISE OKC_API.G_EXCEPTION_ERROR;
2617: END IF;
2618: ---------------------------------------------------------------------------
2619: -- VALIDATE CONTRACT HEADER
2620: ---------------------------------------------------------------------------
2621: l_return_status := validate_khr_id(p_ipyv_rec);
2622: ----------------------
2623:
2624: ---------------------------------
2625: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2626: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2627: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2628: RAISE OKC_API.G_EXCEPTION_ERROR;
2629: END IF;
2622: ----------------------
2623:
2624: ---------------------------------
2625: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2626: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2627: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2628: RAISE OKC_API.G_EXCEPTION_ERROR;
2629: END IF;
2630: -------------------------------------------------------------------------
2623:
2624: ---------------------------------
2625: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2626: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2627: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2628: RAISE OKC_API.G_EXCEPTION_ERROR;
2629: END IF;
2630: -------------------------------------------------------------------------
2631: ---- Check for Status of Contract
2624: ---------------------------------
2625: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2626: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2627: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2628: RAISE OKC_API.G_EXCEPTION_ERROR;
2629: END IF;
2630: -------------------------------------------------------------------------
2631: ---- Check for Status of Contract
2632: ---------------------------------------------------------------------------
2635: l_return_status := x_return_status;
2636: ----------------------
2637:
2638: ---------------------------------
2639: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2640: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2641: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2642: RAISE OKC_API.G_EXCEPTION_ERROR;
2643: END IF;
2636: ----------------------
2637:
2638: ---------------------------------
2639: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2640: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2641: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2642: RAISE OKC_API.G_EXCEPTION_ERROR;
2643: END IF;
2644: IF (x_khr_status = 'CANCELED' ) OR (x_khr_status = 'DELETED' ) OR (x_khr_status = 'EXPIRED' ) THEN
2637:
2638: ---------------------------------
2639: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2640: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2641: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2642: RAISE OKC_API.G_EXCEPTION_ERROR;
2643: END IF;
2644: IF (x_khr_status = 'CANCELED' ) OR (x_khr_status = 'DELETED' ) OR (x_khr_status = 'EXPIRED' ) THEN
2645: OKC_API.set_message(G_APP_NAME,'OKL_INS_K_NOT_ACTIVE' );
2638: ---------------------------------
2639: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2640: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2641: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2642: RAISE OKC_API.G_EXCEPTION_ERROR;
2643: END IF;
2644: IF (x_khr_status = 'CANCELED' ) OR (x_khr_status = 'DELETED' ) OR (x_khr_status = 'EXPIRED' ) THEN
2645: OKC_API.set_message(G_APP_NAME,'OKL_INS_K_NOT_ACTIVE' );
2646: RAISE OKC_API.G_EXCEPTION_ERROR;
2641: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2642: RAISE OKC_API.G_EXCEPTION_ERROR;
2643: END IF;
2644: IF (x_khr_status = 'CANCELED' ) OR (x_khr_status = 'DELETED' ) OR (x_khr_status = 'EXPIRED' ) THEN
2645: OKC_API.set_message(G_APP_NAME,'OKL_INS_K_NOT_ACTIVE' );
2646: RAISE OKC_API.G_EXCEPTION_ERROR;
2647: END IF ;
2648: -- get the contract term duration
2649: l_khr_id := l_ipyv_rec.khr_id;
2642: RAISE OKC_API.G_EXCEPTION_ERROR;
2643: END IF;
2644: IF (x_khr_status = 'CANCELED' ) OR (x_khr_status = 'DELETED' ) OR (x_khr_status = 'EXPIRED' ) THEN
2645: OKC_API.set_message(G_APP_NAME,'OKL_INS_K_NOT_ACTIVE' );
2646: RAISE OKC_API.G_EXCEPTION_ERROR;
2647: END IF ;
2648: -- get the contract term duration
2649: l_khr_id := l_ipyv_rec.khr_id;
2650: --l_return_status := get_insurance_term(l_khr_id,l_khr_date_from,l_khr_date_to,x_return_status);
2652: l_return_status := x_return_status;
2653: ----------------------
2654:
2655: ---------------------------------
2656: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2657: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2658: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2659: RAISE OKC_API.G_EXCEPTION_ERROR;
2660: END IF;
2653: ----------------------
2654:
2655: ---------------------------------
2656: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2657: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2658: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2659: RAISE OKC_API.G_EXCEPTION_ERROR;
2660: END IF;
2661: -------------------------------------------------------------------------
2654:
2655: ---------------------------------
2656: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2657: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2658: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2659: RAISE OKC_API.G_EXCEPTION_ERROR;
2660: END IF;
2661: -------------------------------------------------------------------------
2662: ---- Check for date_to
2655: ---------------------------------
2656: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2657: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2658: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2659: RAISE OKC_API.G_EXCEPTION_ERROR;
2660: END IF;
2661: -------------------------------------------------------------------------
2662: ---- Check for date_to
2663: ---------------------------------------------------------------------------
2664: l_return_status := validate_date_to(l_ipyv_rec.date_to);
2665: ----------------------
2666:
2667: ---------------------------------
2668: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2669: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2670: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2671: RAISE OKC_API.G_EXCEPTION_ERROR;
2672: END IF;
2665: ----------------------
2666:
2667: ---------------------------------
2668: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2669: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2670: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2671: RAISE OKC_API.G_EXCEPTION_ERROR;
2672: END IF;
2673: -------------------------------------------------------------------------
2666:
2667: ---------------------------------
2668: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2669: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2670: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2671: RAISE OKC_API.G_EXCEPTION_ERROR;
2672: END IF;
2673: -------------------------------------------------------------------------
2674: ---- Check for date_from
2667: ---------------------------------
2668: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2669: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2670: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2671: RAISE OKC_API.G_EXCEPTION_ERROR;
2672: END IF;
2673: -------------------------------------------------------------------------
2674: ---- Check for date_from
2675: ---------------------------------------------------------------------------
2674: ---- Check for date_from
2675: ---------------------------------------------------------------------------
2676: l_return_status := validate_date_from(l_ipyv_rec.date_from);
2677:
2678: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2679: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2680: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2681: RAISE OKC_API.G_EXCEPTION_ERROR;
2682: END IF;
2675: ---------------------------------------------------------------------------
2676: l_return_status := validate_date_from(l_ipyv_rec.date_from);
2677:
2678: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2679: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2680: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2681: RAISE OKC_API.G_EXCEPTION_ERROR;
2682: END IF;
2683: -------------------------------------------------------------------------
2676: l_return_status := validate_date_from(l_ipyv_rec.date_from);
2677:
2678: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2679: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2680: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2681: RAISE OKC_API.G_EXCEPTION_ERROR;
2682: END IF;
2683: -------------------------------------------------------------------------
2684: ---- Check for term duration gretaer than or equal to Insurance duration
2677:
2678: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2679: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2680: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2681: RAISE OKC_API.G_EXCEPTION_ERROR;
2682: END IF;
2683: -------------------------------------------------------------------------
2684: ---- Check for term duration gretaer than or equal to Insurance duration
2685: ---------------------------------------------------------------------------
2684: ---- Check for term duration gretaer than or equal to Insurance duration
2685: ---------------------------------------------------------------------------
2686: l_return_status:= validate_insurance_term(l_ipyv_rec.date_from,l_ipyv_rec.date_to,l_khr_date_from,l_khr_date_to);
2687:
2688: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2689: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2690: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2691: RAISE OKC_API.G_EXCEPTION_ERROR;
2692: END IF;
2685: ---------------------------------------------------------------------------
2686: l_return_status:= validate_insurance_term(l_ipyv_rec.date_from,l_ipyv_rec.date_to,l_khr_date_from,l_khr_date_to);
2687:
2688: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2689: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2690: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2691: RAISE OKC_API.G_EXCEPTION_ERROR;
2692: END IF;
2693: -------------------------------------------------------------------------
2686: l_return_status:= validate_insurance_term(l_ipyv_rec.date_from,l_ipyv_rec.date_to,l_khr_date_from,l_khr_date_to);
2687:
2688: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2689: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2690: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2691: RAISE OKC_API.G_EXCEPTION_ERROR;
2692: END IF;
2693: -------------------------------------------------------------------------
2694: ---- Check for Contract Line
2687:
2688: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2689: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2690: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2691: RAISE OKC_API.G_EXCEPTION_ERROR;
2692: END IF;
2693: -------------------------------------------------------------------------
2694: ---- Check for Contract Line
2695: ---------------------------------------------------------------------------
2694: ---- Check for Contract Line
2695: ---------------------------------------------------------------------------
2696: l_return_status := validate_contract_line(p_ipyv_rec);
2697:
2698: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2699: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2700: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2701: RAISE OKC_API.G_EXCEPTION_ERROR;
2702: END IF;
2695: ---------------------------------------------------------------------------
2696: l_return_status := validate_contract_line(p_ipyv_rec);
2697:
2698: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2699: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2700: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2701: RAISE OKC_API.G_EXCEPTION_ERROR;
2702: END IF;
2703: -----------------------------------------------------------------------
2696: l_return_status := validate_contract_line(p_ipyv_rec);
2697:
2698: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2699: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2700: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2701: RAISE OKC_API.G_EXCEPTION_ERROR;
2702: END IF;
2703: -----------------------------------------------------------------------
2704: -- Check for valide Premium
2697:
2698: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2699: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2700: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2701: RAISE OKC_API.G_EXCEPTION_ERROR;
2702: END IF;
2703: -----------------------------------------------------------------------
2704: -- Check for valide Premium
2705: ----------------------------------------------------------------------
2705: ----------------------------------------------------------------------
2706: validate_amount_due(x_return_status => l_return_status,
2707: p_ipyv_rec => p_ipyv_rec);
2708: -- NEW
2709: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2710: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2711: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2712: RAISE OKC_API.G_EXCEPTION_ERROR;
2713: END IF;
2706: validate_amount_due(x_return_status => l_return_status,
2707: p_ipyv_rec => p_ipyv_rec);
2708: -- NEW
2709: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2710: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2711: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2712: RAISE OKC_API.G_EXCEPTION_ERROR;
2713: END IF;
2714: ---------------------------------------------------------------------
2707: p_ipyv_rec => p_ipyv_rec);
2708: -- NEW
2709: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2710: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2711: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2712: RAISE OKC_API.G_EXCEPTION_ERROR;
2713: END IF;
2714: ---------------------------------------------------------------------
2715: ----------- generate stream
2708: -- NEW
2709: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2710: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2711: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2712: RAISE OKC_API.G_EXCEPTION_ERROR;
2713: END IF;
2714: ---------------------------------------------------------------------
2715: ----------- generate stream
2716: -------------------------------------------------------------------
2733: 'INSURANCE_RECEIVABLE',
2734: l_return_status,
2735: p_stmv_rec.sty_id);
2736:
2737: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2738: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
2739: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2740: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2741: OKC_API.set_message(G_APP_NAME,'OKL_NO_STREAM_TYPE',G_PURPOSE_TOKEN,'INSURANCE_RECEIVABLE'); --bug 4024785
2734: l_return_status,
2735: p_stmv_rec.sty_id);
2736:
2737: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2738: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
2739: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2740: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2741: OKC_API.set_message(G_APP_NAME,'OKL_NO_STREAM_TYPE',G_PURPOSE_TOKEN,'INSURANCE_RECEIVABLE'); --bug 4024785
2742: RAISE OKC_API.G_EXCEPTION_ERROR;
2735: p_stmv_rec.sty_id);
2736:
2737: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2738: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
2739: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2740: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2741: OKC_API.set_message(G_APP_NAME,'OKL_NO_STREAM_TYPE',G_PURPOSE_TOKEN,'INSURANCE_RECEIVABLE'); --bug 4024785
2742: RAISE OKC_API.G_EXCEPTION_ERROR;
2743: END IF;
2736:
2737: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2738: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
2739: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2740: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2741: OKC_API.set_message(G_APP_NAME,'OKL_NO_STREAM_TYPE',G_PURPOSE_TOKEN,'INSURANCE_RECEIVABLE'); --bug 4024785
2742: RAISE OKC_API.G_EXCEPTION_ERROR;
2743: END IF;
2744:
2737: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2738: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
2739: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2740: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2741: OKC_API.set_message(G_APP_NAME,'OKL_NO_STREAM_TYPE',G_PURPOSE_TOKEN,'INSURANCE_RECEIVABLE'); --bug 4024785
2742: RAISE OKC_API.G_EXCEPTION_ERROR;
2743: END IF;
2744:
2745:
2738: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
2739: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2740: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2741: OKC_API.set_message(G_APP_NAME,'OKL_NO_STREAM_TYPE',G_PURPOSE_TOKEN,'INSURANCE_RECEIVABLE'); --bug 4024785
2742: RAISE OKC_API.G_EXCEPTION_ERROR;
2743: END IF;
2744:
2745:
2746: -- End : changes for Insurance user defined streams
2748: -- nEW
2749: EXCEPTION
2750: WHEN NO_DATA_FOUND THEN
2751: -- store SQL error message on message stack for caller
2752: OKC_API.set_message(G_APP_NAME, 'OKL_NO_STREAM_TYPE');
2753: WHEN OTHERS THEN
2754: -- store SQL error message on message stack for caller
2755: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
2756: -- notify caller of an UNEXPECTED error
2751: -- store SQL error message on message stack for caller
2752: OKC_API.set_message(G_APP_NAME, 'OKL_NO_STREAM_TYPE');
2753: WHEN OTHERS THEN
2754: -- store SQL error message on message stack for caller
2755: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
2756: -- notify caller of an UNEXPECTED error
2757: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
2758: -- verify that cursor was closed
2759: END ;
2753: WHEN OTHERS THEN
2754: -- store SQL error message on message stack for caller
2755: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
2756: -- notify caller of an UNEXPECTED error
2757: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
2758: -- verify that cursor was closed
2759: END ;
2760:
2761: p_stmv_rec.sgn_code := 'MANL';
2778: --ELSIF (p_ipyv_rec.ipf_code = 'LEASE_FREQUENCY') THEN
2779: --l_return_status := genrt_lease_frequency(p_ipyv_rec,x_selv_tbl);
2780: END IF;
2781:
2782: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2783: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2784: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2785: RAISE OKC_API.G_EXCEPTION_ERROR;
2786: END IF;
2779: --l_return_status := genrt_lease_frequency(p_ipyv_rec,x_selv_tbl);
2780: END IF;
2781:
2782: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2783: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2784: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2785: RAISE OKC_API.G_EXCEPTION_ERROR;
2786: END IF;
2787: p_selv_tbl:=x_selv_tbl;
2780: END IF;
2781:
2782: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2783: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2784: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2785: RAISE OKC_API.G_EXCEPTION_ERROR;
2786: END IF;
2787: p_selv_tbl:=x_selv_tbl;
2788: IF (l_return_status = Okc_Api.G_RET_STS_SUCCESS) THEN
2781:
2782: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2783: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2784: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2785: RAISE OKC_API.G_EXCEPTION_ERROR;
2786: END IF;
2787: p_selv_tbl:=x_selv_tbl;
2788: IF (l_return_status = Okc_Api.G_RET_STS_SUCCESS) THEN
2789: -- Create Stream and Stream Elements
2784: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2785: RAISE OKC_API.G_EXCEPTION_ERROR;
2786: END IF;
2787: p_selv_tbl:=x_selv_tbl;
2788: IF (l_return_status = Okc_Api.G_RET_STS_SUCCESS) THEN
2789: -- Create Stream and Stream Elements
2790: -- Start of wraper code generated automatically by Debug code generator for OKL_STREAMS_PUB.create_streams
2791: IF(L_DEBUG_ENABLED='Y') THEN
2792: L_LEVEL_PROCEDURE :=FND_LOG.LEVEL_PROCEDURE;
2816: ,L_MODULE
2817: ,'End Debug OKLRSULB.pls call Okl_Streams_Util.round_streams_amount');
2818: END IF;
2819:
2820: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR)
2821: THEN
2822: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2823: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR)
2824: THEN
2818: END IF;
2819:
2820: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR)
2821: THEN
2822: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2823: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR)
2824: THEN
2825: RAISE OKC_API.G_EXCEPTION_ERROR;
2826: END IF;
2819:
2820: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR)
2821: THEN
2822: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2823: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR)
2824: THEN
2825: RAISE OKC_API.G_EXCEPTION_ERROR;
2826: END IF;
2827:
2821: THEN
2822: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2823: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR)
2824: THEN
2825: RAISE OKC_API.G_EXCEPTION_ERROR;
2826: END IF;
2827:
2828: -- Store Rounded Streams back into the p_selv_tbl
2829: p_selv_tbl:= x_selv_tbl;
2853: END IF;
2854: -- End of wraper code generated automatically by Debug code generator for OKL_STREAMS_PUB.create_streams
2855: l_return_status := x_return_status ;
2856:
2857: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2858: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2859: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2860: RAISE OKC_API.G_EXCEPTION_ERROR;
2861: END IF;
2854: -- End of wraper code generated automatically by Debug code generator for OKL_STREAMS_PUB.create_streams
2855: l_return_status := x_return_status ;
2856:
2857: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2858: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2859: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2860: RAISE OKC_API.G_EXCEPTION_ERROR;
2861: END IF;
2862: END IF;
2855: l_return_status := x_return_status ;
2856:
2857: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2858: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2859: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2860: RAISE OKC_API.G_EXCEPTION_ERROR;
2861: END IF;
2862: END IF;
2863: EXCEPTION
2856:
2857: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2858: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2859: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2860: RAISE OKC_API.G_EXCEPTION_ERROR;
2861: END IF;
2862: END IF;
2863: EXCEPTION
2864: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2860: RAISE OKC_API.G_EXCEPTION_ERROR;
2861: END IF;
2862: END IF;
2863: EXCEPTION
2864: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2865: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2866: (
2867: l_api_name,
2868: G_PKG_NAME,
2861: END IF;
2862: END IF;
2863: EXCEPTION
2864: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2865: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2866: (
2867: l_api_name,
2868: G_PKG_NAME,
2869: 'OKC_API.G_RET_STS_ERROR',
2865: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2866: (
2867: l_api_name,
2868: G_PKG_NAME,
2869: 'OKC_API.G_RET_STS_ERROR',
2870: x_msg_count,
2871: x_msg_data,
2872: '_PROCESS'
2873: );
2870: x_msg_count,
2871: x_msg_data,
2872: '_PROCESS'
2873: );
2874: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2875: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2876: (
2877: l_api_name,
2878: G_PKG_NAME,
2871: x_msg_data,
2872: '_PROCESS'
2873: );
2874: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2875: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2876: (
2877: l_api_name,
2878: G_PKG_NAME,
2879: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2875: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2876: (
2877: l_api_name,
2878: G_PKG_NAME,
2879: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2880: x_msg_count,
2881: x_msg_data,
2882: '_PROCESS'
2883: );
2881: x_msg_data,
2882: '_PROCESS'
2883: );
2884: WHEN OTHERS THEN
2885: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2886: (
2887: l_api_name,
2888: G_PKG_NAME,
2889: 'OTHERS',
2912: p_ipyv_rec IN ipyv_rec_type,
2913: x_kle_id OUT NOCOPY NUMBER) IS
2914: l_api_version CONSTANT NUMBER := 1;
2915: l_api_name CONSTANT VARCHAR2(30) := 'create_contract_line';
2916: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
2917: l_clev_rec okl_okc_migration_pvt.clev_rec_type;
2918: lx_clev_rec okl_okc_migration_pvt.clev_rec_type;
2919: l_klev_rec Okl_Kle_Pvt.klev_rec_type ;
2920: lx_klev_rec Okl_Kle_Pvt.klev_rec_type ;
2935: WHERE ID = p_khr_id ;
2936:
2937:
2938: BEGIN
2939: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
2940: G_PKG_NAME,
2941: p_init_msg_list,
2942: l_api_version,
2943: p_api_version,
2942: l_api_version,
2943: p_api_version,
2944: '_PROCESS',
2945: x_return_status);
2946: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2947: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2948: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2949: RAISE OKC_API.G_EXCEPTION_ERROR;
2950: END IF;
2943: p_api_version,
2944: '_PROCESS',
2945: x_return_status);
2946: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2947: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2948: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2949: RAISE OKC_API.G_EXCEPTION_ERROR;
2950: END IF;
2951:
2944: '_PROCESS',
2945: x_return_status);
2946: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2947: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2948: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2949: RAISE OKC_API.G_EXCEPTION_ERROR;
2950: END IF;
2951:
2952: --------------------------------------------------
2945: x_return_status);
2946: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2947: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2948: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2949: RAISE OKC_API.G_EXCEPTION_ERROR;
2950: END IF;
2951:
2952: --------------------------------------------------
2953: -- Get Currency Code
2959: -- Removed message for 3745151
2960:
2961: /*
2962: IF( l_currency_code%NOTFOUND) THEN
2963: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
2964: p_msg_name => 'OKL_INVALID_CONTRACT');
2965: END IF;
2966: */
2967:
2974: l_clev_rec.chr_id := p_ipyv_rec.KHR_ID ;
2975: OPEN l_okl_lse_id ;
2976: FETCH l_okl_lse_id INTO l_clev_rec.lse_id ;
2977: IF( l_okl_lse_id%NOTFOUND) THEN
2978: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
2979: p_msg_name => 'OKL_LLA_LSE_ID'); -- Fix for 3745151
2980: END IF;
2981: CLOSE l_okl_lse_id ;
2982:
2984: ---- Check for Status of Contract
2985: ---------------------------------------------------------------------------
2986: l_return_status := get_contract_status(p_ipyv_rec.khr_id, l_khr_status);
2987:
2988: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2989: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2990: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2991: RAISE OKC_API.G_EXCEPTION_ERROR;
2992: END IF;
2985: ---------------------------------------------------------------------------
2986: l_return_status := get_contract_status(p_ipyv_rec.khr_id, l_khr_status);
2987:
2988: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2989: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2990: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2991: RAISE OKC_API.G_EXCEPTION_ERROR;
2992: END IF;
2993: IF (l_khr_status = 'ACTIVE' ) THEN
2986: l_return_status := get_contract_status(p_ipyv_rec.khr_id, l_khr_status);
2987:
2988: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2989: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2990: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2991: RAISE OKC_API.G_EXCEPTION_ERROR;
2992: END IF;
2993: IF (l_khr_status = 'ACTIVE' ) THEN
2994: l_cvmv_rec.chr_id := p_ipyv_rec.khr_id;
2987:
2988: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2989: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2990: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2991: RAISE OKC_API.G_EXCEPTION_ERROR;
2992: END IF;
2993: IF (l_khr_status = 'ACTIVE' ) THEN
2994: l_cvmv_rec.chr_id := p_ipyv_rec.khr_id;
2995: --Procedures pertaining to versioning a contract
3003: OKL_DEBUG_PUB.LOG_DEBUG(L_LEVEL_PROCEDURE,L_MODULE,'Begin Debug OKLRINQB.pls call OKL_VERSION_PUB.version_contract ');
3004: END;
3005: END IF;
3006: OKL_VERSION_PUB.version_contract( p_api_version => l_api_version ,
3007: p_init_msg_list => OKC_API.G_FALSE,
3008: x_return_status => l_return_status ,
3009: x_msg_count => x_msg_count,
3010: x_msg_data => x_msg_data ,
3011: p_cvmv_rec => l_cvmv_rec,
3008: x_return_status => l_return_status ,
3009: x_msg_count => x_msg_count,
3010: x_msg_data => x_msg_data ,
3011: p_cvmv_rec => l_cvmv_rec,
3012: p_commit => OKC_API.G_FALSE,
3013: x_cvmv_rec => lx_cvmv_rec
3014: );
3015: IF(IS_DEBUG_PROCEDURE_ON) THEN
3016: BEGIN
3039:
3040: Okl_Contract_Pub.create_contract_line
3041: (
3042: p_api_version => l_api_version ,
3043: p_init_msg_list => OKC_API.G_FALSE,
3044: x_return_status => l_return_status ,
3045: x_msg_count => x_msg_count,
3046: x_msg_data => x_msg_data ,
3047: p_clev_rec => l_clev_rec ,
3049: x_clev_rec => lx_clev_rec,
3050: x_klev_rec => lx_klev_rec
3051: );
3052:
3053: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3054: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3055: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3056: RAISE OKC_API.G_EXCEPTION_ERROR;
3057: END IF;
3050: x_klev_rec => lx_klev_rec
3051: );
3052:
3053: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3054: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3055: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3056: RAISE OKC_API.G_EXCEPTION_ERROR;
3057: END IF;
3058: l_cimv_rec.object_version_number := 1;
3051: );
3052:
3053: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3054: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3055: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3056: RAISE OKC_API.G_EXCEPTION_ERROR;
3057: END IF;
3058: l_cimv_rec.object_version_number := 1;
3059: l_cimv_rec.cle_id := lx_clev_rec.ID ;
3052:
3053: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3054: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3055: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3056: RAISE OKC_API.G_EXCEPTION_ERROR;
3057: END IF;
3058: l_cimv_rec.object_version_number := 1;
3059: l_cimv_rec.cle_id := lx_clev_rec.ID ;
3060: l_cimv_rec.dnz_chr_id := p_ipyv_rec.KHR_ID ;
3067: ----- Changes by Kanti
3068: ----- Validate the JTOT Object code, ID1 and ID2
3069:
3070: okl_la_validation_util_pvt.VALIDATE_STYLE_JTOT (p_api_version => l_api_version,
3071: p_init_msg_list => OKC_API.G_FALSE,
3072: x_return_status => l_return_status,
3073: x_msg_count => x_msg_count,
3074: x_msg_data => x_msg_data,
3075: p_object_name => l_cimv_rec.jtot_object1_code,
3074: x_msg_data => x_msg_data,
3075: p_object_name => l_cimv_rec.jtot_object1_code,
3076: p_id1 => l_cimv_rec.object1_id1,
3077: p_id2 => l_cimv_rec.object1_id2);
3078: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3079: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3080: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3081: RAISE OKC_API.G_EXCEPTION_ERROR;
3082: END IF;
3075: p_object_name => l_cimv_rec.jtot_object1_code,
3076: p_id1 => l_cimv_rec.object1_id1,
3077: p_id2 => l_cimv_rec.object1_id2);
3078: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3079: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3080: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3081: RAISE OKC_API.G_EXCEPTION_ERROR;
3082: END IF;
3083:
3076: p_id1 => l_cimv_rec.object1_id1,
3077: p_id2 => l_cimv_rec.object1_id2);
3078: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3079: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3080: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3081: RAISE OKC_API.G_EXCEPTION_ERROR;
3082: END IF;
3083:
3084: ---- Changes End
3077: p_id2 => l_cimv_rec.object1_id2);
3078: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3079: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3080: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3081: RAISE OKC_API.G_EXCEPTION_ERROR;
3082: END IF;
3083:
3084: ---- Changes End
3085:
3084: ---- Changes End
3085:
3086:
3087: OKC_CONTRACT_ITEM_PUB.create_contract_item(p_api_version => l_api_version ,
3088: p_init_msg_list => OKC_API.G_FALSE,
3089: x_return_status => l_return_status ,
3090: x_msg_count => x_msg_count,
3091: x_msg_data => x_msg_data ,
3092: p_cimv_rec => l_cimv_rec,
3091: x_msg_data => x_msg_data ,
3092: p_cimv_rec => l_cimv_rec,
3093: x_cimv_rec => lx_cimv_rec
3094: );
3095: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3096: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3097: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3098: RAISE OKC_API.G_EXCEPTION_ERROR;
3099: END IF;
3092: p_cimv_rec => l_cimv_rec,
3093: x_cimv_rec => lx_cimv_rec
3094: );
3095: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3096: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3097: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3098: RAISE OKC_API.G_EXCEPTION_ERROR;
3099: END IF;
3100: x_kle_id := lx_klev_rec.ID ;
3093: x_cimv_rec => lx_cimv_rec
3094: );
3095: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3096: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3097: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3098: RAISE OKC_API.G_EXCEPTION_ERROR;
3099: END IF;
3100: x_kle_id := lx_klev_rec.ID ;
3101: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3094: );
3095: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3096: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3097: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3098: RAISE OKC_API.G_EXCEPTION_ERROR;
3099: END IF;
3100: x_kle_id := lx_klev_rec.ID ;
3101: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3102: EXCEPTION
3097: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3098: RAISE OKC_API.G_EXCEPTION_ERROR;
3099: END IF;
3100: x_kle_id := lx_klev_rec.ID ;
3101: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3102: EXCEPTION
3103: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3104: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3105: (
3099: END IF;
3100: x_kle_id := lx_klev_rec.ID ;
3101: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3102: EXCEPTION
3103: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3104: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3105: (
3106: l_api_name,
3107: G_PKG_NAME,
3100: x_kle_id := lx_klev_rec.ID ;
3101: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3102: EXCEPTION
3103: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3104: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3105: (
3106: l_api_name,
3107: G_PKG_NAME,
3108: 'OKC_API.G_RET_STS_ERROR',
3104: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3105: (
3106: l_api_name,
3107: G_PKG_NAME,
3108: 'OKC_API.G_RET_STS_ERROR',
3109: x_msg_count,
3110: x_msg_data,
3111: '_PROCESS'
3112: );
3109: x_msg_count,
3110: x_msg_data,
3111: '_PROCESS'
3112: );
3113: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3114: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3115: (
3116: l_api_name,
3117: G_PKG_NAME,
3110: x_msg_data,
3111: '_PROCESS'
3112: );
3113: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3114: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3115: (
3116: l_api_name,
3117: G_PKG_NAME,
3118: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3114: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3115: (
3116: l_api_name,
3117: G_PKG_NAME,
3118: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3119: x_msg_count,
3120: x_msg_data,
3121: '_PROCESS'
3122: );
3120: x_msg_data,
3121: '_PROCESS'
3122: );
3123: WHEN OTHERS THEN
3124: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3125: (
3126: l_api_name,
3127: G_PKG_NAME,
3128: 'OTHERS',
3320: p_quote_id IN NUMBER,
3321: x_policy_number OUT NOCOPY VARCHAR2) IS
3322: l_api_version CONSTANT NUMBER := 1;
3323: l_api_name CONSTANT VARCHAR2(30) := 'accept_lease_quote';
3324: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
3325: l_quote_type VARCHAR2(30);
3326: l_ipyv_rec ipyv_rec_type ;
3327: l_inqv_rec ipyv_rec_type ;
3328: lx_inqv_rec ipyv_rec_type ;
3458: END;
3459: END IF;
3460: Okl_Ins_Assets_Pub.insert_ins_assets(
3461: p_api_version => p_api_version,
3462: p_init_msg_list => OKC_API.G_FALSE,
3463: x_return_status => l_return_status,
3464: x_msg_count => x_msg_count,
3465: x_msg_data => x_msg_data,
3466: p_inav_rec => l_inav_rec,
3471: OKL_DEBUG_PUB.LOG_DEBUG(L_LEVEL_PROCEDURE,L_MODULE,'End Debug OKLRINQB.pls call Okl_Ins_Assets_Pub.insert_ins_assets ');
3472: END;
3473: END IF;
3474: -- End of wraper code generated automatically by Debug code generator for Okl_Ins_Assets_Pub.insert_ins_assets
3475: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3476: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3477: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3478: RAISE OKC_API.G_EXCEPTION_ERROR;
3479: END IF;
3472: END;
3473: END IF;
3474: -- End of wraper code generated automatically by Debug code generator for Okl_Ins_Assets_Pub.insert_ins_assets
3475: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3476: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3477: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3478: RAISE OKC_API.G_EXCEPTION_ERROR;
3479: END IF;
3480: END LOOP ;
3473: END IF;
3474: -- End of wraper code generated automatically by Debug code generator for Okl_Ins_Assets_Pub.insert_ins_assets
3475: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3476: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3477: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3478: RAISE OKC_API.G_EXCEPTION_ERROR;
3479: END IF;
3480: END LOOP ;
3481: -- x_no_data_found := okl_inav_pk_csr%NOTFOUND;
3474: -- End of wraper code generated automatically by Debug code generator for Okl_Ins_Assets_Pub.insert_ins_assets
3475: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3476: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3477: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3478: RAISE OKC_API.G_EXCEPTION_ERROR;
3479: END IF;
3480: END LOOP ;
3481: -- x_no_data_found := okl_inav_pk_csr%NOTFOUND;
3482: CLOSE okl_inav_pk_csr;
3498: SELECT OKL_IPY_SEQ.NEXTVAL INTO l_seq FROM dual;
3499: EXCEPTION
3500: WHEN NO_DATA_FOUND THEN
3501: -- store SQL error message on message stack for caller
3502: OKC_API.set_message(G_APP_NAME, 'OKL_NO_SEQUENCE' );
3503: WHEN OTHERS THEN
3504: -- store SQL error message on message stack for caller
3505: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,
3506: G_SQLCODE_TOKEN,SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
3501: -- store SQL error message on message stack for caller
3502: OKC_API.set_message(G_APP_NAME, 'OKL_NO_SEQUENCE' );
3503: WHEN OTHERS THEN
3504: -- store SQL error message on message stack for caller
3505: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,
3506: G_SQLCODE_TOKEN,SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
3507: -- notify caller of an UNEXPECTED error
3508: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
3509: -- verify that cursor was closed
3504: -- store SQL error message on message stack for caller
3505: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,
3506: G_SQLCODE_TOKEN,SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
3507: -- notify caller of an UNEXPECTED error
3508: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
3509: -- verify that cursor was closed
3510: END ;
3511: OPEN c_policy_symbol;
3512: FETCH c_policy_symbol INTO l_policy_symbol ;
3510: END ;
3511: OPEN c_policy_symbol;
3512: FETCH c_policy_symbol INTO l_policy_symbol ;
3513: IF( c_policy_symbol%NOTFOUND) THEN
3514: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
3515: p_msg_name => G_INVALID_VALUE,
3516: p_token1 => g_col_name_token,
3517: p_token1_value => 'Policy Symbol');
3518: END IF;
3520: l_ipyv_rec.POLICY_NUMBER := l_policy_symbol || TO_CHAR(l_seq) ;
3521: l_ipyv_rec.object_version_number := 1 ;
3522: l_ipyv_rec.ISS_CODE := 'ACCEPTED';
3523: l_ipyv_rec.QUOTE_YN := 'N' ;
3524: l_ipyv_rec.DATE_QUOTED := OKC_API.G_MISS_DATE ;
3525: l_ipyv_rec.DATE_QUOTE_EXPIRY := OKC_API.G_MISS_DATE ;
3526: SELECT DECODE(FND_GLOBAL.CONC_REQUEST_ID,-1,NULL,FND_GLOBAL.CONC_REQUEST_ID),
3527: DECODE(FND_GLOBAL.PROG_APPL_ID,-1,NULL,FND_GLOBAL.PROG_APPL_ID),
3528: DECODE(FND_GLOBAL.CONC_PROGRAM_ID,-1,NULL,FND_GLOBAL.CONC_PROGRAM_ID),
3521: l_ipyv_rec.object_version_number := 1 ;
3522: l_ipyv_rec.ISS_CODE := 'ACCEPTED';
3523: l_ipyv_rec.QUOTE_YN := 'N' ;
3524: l_ipyv_rec.DATE_QUOTED := OKC_API.G_MISS_DATE ;
3525: l_ipyv_rec.DATE_QUOTE_EXPIRY := OKC_API.G_MISS_DATE ;
3526: SELECT DECODE(FND_GLOBAL.CONC_REQUEST_ID,-1,NULL,FND_GLOBAL.CONC_REQUEST_ID),
3527: DECODE(FND_GLOBAL.PROG_APPL_ID,-1,NULL,FND_GLOBAL.PROG_APPL_ID),
3528: DECODE(FND_GLOBAL.CONC_PROGRAM_ID,-1,NULL,FND_GLOBAL.CONC_PROGRAM_ID),
3529: DECODE(FND_GLOBAL.CONC_REQUEST_ID,-1,NULL,SYSDATE),
3532: l_ipyv_rec.PROGRAM_APPLICATION_ID,
3533: l_ipyv_rec.PROGRAM_ID,
3534: l_ipyv_rec.PROGRAM_UPDATE_DATE,
3535: l_ipyv_rec.org_id FROM dual;
3536: l_ipyv_rec.created_by := OKC_API.G_MISS_NUM;
3537: l_ipyv_rec.creation_date := OKC_API.G_MISS_DATE ;
3538: l_ipyv_rec.last_updated_by := OKC_API.G_MISS_NUM;
3539: l_ipyv_rec.last_update_date := OKC_API.G_MISS_DATE ;
3540: l_ipyv_rec.last_update_login := OKC_API.G_MISS_NUM;
3533: l_ipyv_rec.PROGRAM_ID,
3534: l_ipyv_rec.PROGRAM_UPDATE_DATE,
3535: l_ipyv_rec.org_id FROM dual;
3536: l_ipyv_rec.created_by := OKC_API.G_MISS_NUM;
3537: l_ipyv_rec.creation_date := OKC_API.G_MISS_DATE ;
3538: l_ipyv_rec.last_updated_by := OKC_API.G_MISS_NUM;
3539: l_ipyv_rec.last_update_date := OKC_API.G_MISS_DATE ;
3540: l_ipyv_rec.last_update_login := OKC_API.G_MISS_NUM;
3541: RETURN(l_ipyv_rec);
3534: l_ipyv_rec.PROGRAM_UPDATE_DATE,
3535: l_ipyv_rec.org_id FROM dual;
3536: l_ipyv_rec.created_by := OKC_API.G_MISS_NUM;
3537: l_ipyv_rec.creation_date := OKC_API.G_MISS_DATE ;
3538: l_ipyv_rec.last_updated_by := OKC_API.G_MISS_NUM;
3539: l_ipyv_rec.last_update_date := OKC_API.G_MISS_DATE ;
3540: l_ipyv_rec.last_update_login := OKC_API.G_MISS_NUM;
3541: RETURN(l_ipyv_rec);
3542: END get_lease_policy;
3535: l_ipyv_rec.org_id FROM dual;
3536: l_ipyv_rec.created_by := OKC_API.G_MISS_NUM;
3537: l_ipyv_rec.creation_date := OKC_API.G_MISS_DATE ;
3538: l_ipyv_rec.last_updated_by := OKC_API.G_MISS_NUM;
3539: l_ipyv_rec.last_update_date := OKC_API.G_MISS_DATE ;
3540: l_ipyv_rec.last_update_login := OKC_API.G_MISS_NUM;
3541: RETURN(l_ipyv_rec);
3542: END get_lease_policy;
3543: BEGIN
3536: l_ipyv_rec.created_by := OKC_API.G_MISS_NUM;
3537: l_ipyv_rec.creation_date := OKC_API.G_MISS_DATE ;
3538: l_ipyv_rec.last_updated_by := OKC_API.G_MISS_NUM;
3539: l_ipyv_rec.last_update_date := OKC_API.G_MISS_DATE ;
3540: l_ipyv_rec.last_update_login := OKC_API.G_MISS_NUM;
3541: RETURN(l_ipyv_rec);
3542: END get_lease_policy;
3543: BEGIN
3544: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
3540: l_ipyv_rec.last_update_login := OKC_API.G_MISS_NUM;
3541: RETURN(l_ipyv_rec);
3542: END get_lease_policy;
3543: BEGIN
3544: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
3545: G_PKG_NAME,
3546: p_init_msg_list,
3547: l_api_version,
3548: p_api_version,
3547: l_api_version,
3548: p_api_version,
3549: '_PROCESS',
3550: x_return_status);
3551: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3552: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3553: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3554: RAISE OKC_API.G_EXCEPTION_ERROR;
3555: END IF;
3548: p_api_version,
3549: '_PROCESS',
3550: x_return_status);
3551: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3552: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3553: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3554: RAISE OKC_API.G_EXCEPTION_ERROR;
3555: END IF;
3556:
3549: '_PROCESS',
3550: x_return_status);
3551: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3552: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3553: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3554: RAISE OKC_API.G_EXCEPTION_ERROR;
3555: END IF;
3556:
3557: -- Assigning ID to record
3550: x_return_status);
3551: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3552: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3553: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3554: RAISE OKC_API.G_EXCEPTION_ERROR;
3555: END IF;
3556:
3557: -- Assigning ID to record
3558: l_inqv_rec.id := p_quote_id ;
3574: CLOSE C_accepted_policy_exist ;
3575: EXCEPTION
3576: WHEN OTHERS THEN
3577: -- store SQL error message on message stack for caller
3578: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
3579: -- notify caller of an UNEXPECTED error
3580: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
3581: RAISE G_EXCEPTION_HALT_VALIDATION ;
3582: -- verify that cursor was closed
3576: WHEN OTHERS THEN
3577: -- store SQL error message on message stack for caller
3578: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
3579: -- notify caller of an UNEXPECTED error
3580: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
3581: RAISE G_EXCEPTION_HALT_VALIDATION ;
3582: -- verify that cursor was closed
3583: END ;
3584: IF ( l_dummy = 'x') THEN
3581: RAISE G_EXCEPTION_HALT_VALIDATION ;
3582: -- verify that cursor was closed
3583: END ;
3584: IF ( l_dummy = 'x') THEN
3585: OKC_API.set_message(G_APP_NAME, 'OKL_ACCEPTED_POLICY_EXIST' );
3586: -- notify caller of an UNEXPECTED error
3587: l_return_status := OKC_API.G_RET_STS_ERROR;
3588: RAISE OKC_API.G_EXCEPTION_ERROR;
3589: END IF;
3583: END ;
3584: IF ( l_dummy = 'x') THEN
3585: OKC_API.set_message(G_APP_NAME, 'OKL_ACCEPTED_POLICY_EXIST' );
3586: -- notify caller of an UNEXPECTED error
3587: l_return_status := OKC_API.G_RET_STS_ERROR;
3588: RAISE OKC_API.G_EXCEPTION_ERROR;
3589: END IF;
3590: -- Validate whether it is accetable quote or not
3591: /*
3584: IF ( l_dummy = 'x') THEN
3585: OKC_API.set_message(G_APP_NAME, 'OKL_ACCEPTED_POLICY_EXIST' );
3586: -- notify caller of an UNEXPECTED error
3587: l_return_status := OKC_API.G_RET_STS_ERROR;
3588: RAISE OKC_API.G_EXCEPTION_ERROR;
3589: END IF;
3590: -- Validate whether it is accetable quote or not
3591: /*
3592: 1. Quote should not be expired
3594: 3. It should not be Third party policy
3595: */
3596: -- Check for Status
3597: IF (l_inqv_rec.ISS_CODE <> 'QUOTE' AND l_inqv_rec.QUOTE_YN <> 'Y' ) THEN
3598: OKC_API.set_message(G_APP_NAME,
3599: G_INVALID_QUOTE );
3600: RAISE OKC_API.G_EXCEPTION_ERROR;
3601: END IF;
3602:
3596: -- Check for Status
3597: IF (l_inqv_rec.ISS_CODE <> 'QUOTE' AND l_inqv_rec.QUOTE_YN <> 'Y' ) THEN
3598: OKC_API.set_message(G_APP_NAME,
3599: G_INVALID_QUOTE );
3600: RAISE OKC_API.G_EXCEPTION_ERROR;
3601: END IF;
3602:
3603: -- Quote should not be expired
3604: IF (l_inqv_rec.DATE_QUOTE_EXPIRY < SYSDATE ) THEN
3601: END IF;
3602:
3603: -- Quote should not be expired
3604: IF (l_inqv_rec.DATE_QUOTE_EXPIRY < SYSDATE ) THEN
3605: OKC_API.set_message(G_APP_NAME,
3606: G_EXPIRED_QUOTE );
3607: RAISE OKC_API.G_EXCEPTION_ERROR;
3608: END IF;
3609: ------------------------------------------------------------------------
3603: -- Quote should not be expired
3604: IF (l_inqv_rec.DATE_QUOTE_EXPIRY < SYSDATE ) THEN
3605: OKC_API.set_message(G_APP_NAME,
3606: G_EXPIRED_QUOTE );
3607: RAISE OKC_API.G_EXCEPTION_ERROR;
3608: END IF;
3609: ------------------------------------------------------------------------
3610: -- Check for Lease Policy
3611: ------------------------------------------------------------------------
3617: CLOSE C_policy_exist ;
3618: EXCEPTION
3619: WHEN OTHERS THEN
3620: -- store SQL error message on message stack for caller
3621: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
3622: -- notify caller of an UNEXPECTED error
3623: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
3624: RAISE G_EXCEPTION_HALT_VALIDATION ;
3625: -- verify that cursor was closed
3619: WHEN OTHERS THEN
3620: -- store SQL error message on message stack for caller
3621: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
3622: -- notify caller of an UNEXPECTED error
3623: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
3624: RAISE G_EXCEPTION_HALT_VALIDATION ;
3625: -- verify that cursor was closed
3626: END ;
3627: IF ( l_dummy = 'x') THEN
3624: RAISE G_EXCEPTION_HALT_VALIDATION ;
3625: -- verify that cursor was closed
3626: END ;
3627: IF ( l_dummy = 'x') THEN
3628: OKC_API.set_message(G_APP_NAME, 'OKL_POLICY_EXIST' );
3629: -- notify caller of an UNEXPECTED error
3630: l_return_status := OKC_API.G_RET_STS_ERROR;
3631: RAISE OKC_API.G_EXCEPTION_ERROR;
3632: END IF;
3626: END ;
3627: IF ( l_dummy = 'x') THEN
3628: OKC_API.set_message(G_APP_NAME, 'OKL_POLICY_EXIST' );
3629: -- notify caller of an UNEXPECTED error
3630: l_return_status := OKC_API.G_RET_STS_ERROR;
3631: RAISE OKC_API.G_EXCEPTION_ERROR;
3632: END IF;
3633:
3634: -- Check for Third Party is taken care in deciding policy type
3627: IF ( l_dummy = 'x') THEN
3628: OKC_API.set_message(G_APP_NAME, 'OKL_POLICY_EXIST' );
3629: -- notify caller of an UNEXPECTED error
3630: l_return_status := OKC_API.G_RET_STS_ERROR;
3631: RAISE OKC_API.G_EXCEPTION_ERROR;
3632: END IF;
3633:
3634: -- Check for Third Party is taken care in deciding policy type
3635: -- Make Policy related changes
3643: END;
3644: END IF;
3645: Okl_Ins_Policies_Pub.insert_ins_policies(
3646: p_api_version => p_api_version,
3647: p_init_msg_list => OKC_API.G_FALSE,
3648: x_return_status => l_return_status,
3649: x_msg_count => x_msg_count,
3650: x_msg_data => x_msg_data,
3651: p_ipyv_rec => l_ipyv_rec,
3657: END;
3658: END IF;
3659: -- End of wraper code generated automatically by Debug code generator for Okl_Ins_Policies_Pub.insert_ins_policies
3660:
3661: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3662: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3663: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3664: RAISE OKC_API.G_EXCEPTION_ERROR;
3665: END IF;
3658: END IF;
3659: -- End of wraper code generated automatically by Debug code generator for Okl_Ins_Policies_Pub.insert_ins_policies
3660:
3661: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3662: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3663: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3664: RAISE OKC_API.G_EXCEPTION_ERROR;
3665: END IF;
3666: l_ipyv_rec.id := lx_ipyv_rec.id ;
3659: -- End of wraper code generated automatically by Debug code generator for Okl_Ins_Policies_Pub.insert_ins_policies
3660:
3661: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3662: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3663: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3664: RAISE OKC_API.G_EXCEPTION_ERROR;
3665: END IF;
3666: l_ipyv_rec.id := lx_ipyv_rec.id ;
3667: -- Insert Assets
3660:
3661: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3662: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3663: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3664: RAISE OKC_API.G_EXCEPTION_ERROR;
3665: END IF;
3666: l_ipyv_rec.id := lx_ipyv_rec.id ;
3667: -- Insert Assets
3668: l_return_status := insert_policy_assets(l_inqv_rec,lx_ipyv_rec.ID );
3666: l_ipyv_rec.id := lx_ipyv_rec.id ;
3667: -- Insert Assets
3668: l_return_status := insert_policy_assets(l_inqv_rec,lx_ipyv_rec.ID );
3669:
3670: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3671: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3672: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3673: RAISE OKC_API.G_EXCEPTION_ERROR;
3674: END IF;
3667: -- Insert Assets
3668: l_return_status := insert_policy_assets(l_inqv_rec,lx_ipyv_rec.ID );
3669:
3670: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3671: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3672: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3673: RAISE OKC_API.G_EXCEPTION_ERROR;
3674: END IF;
3675: -- Create Line
3668: l_return_status := insert_policy_assets(l_inqv_rec,lx_ipyv_rec.ID );
3669:
3670: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3671: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3672: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3673: RAISE OKC_API.G_EXCEPTION_ERROR;
3674: END IF;
3675: -- Create Line
3676: create_contract_line(
3669:
3670: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3671: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3672: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3673: RAISE OKC_API.G_EXCEPTION_ERROR;
3674: END IF;
3675: -- Create Line
3676: create_contract_line(
3677: p_api_version => l_api_version,
3674: END IF;
3675: -- Create Line
3676: create_contract_line(
3677: p_api_version => l_api_version,
3678: p_init_msg_list => Okc_Api.G_FALSE,
3679: x_return_status => l_return_status,
3680: x_msg_count => x_msg_count,
3681: x_msg_data => x_msg_data,
3682: p_ipyv_rec => l_ipyv_rec,
3681: x_msg_data => x_msg_data,
3682: p_ipyv_rec => l_ipyv_rec,
3683: x_kle_id => l_kle_id );
3684:
3685: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3686: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3687: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3688: RAISE OKC_API.G_EXCEPTION_ERROR;
3689: END IF;
3682: p_ipyv_rec => l_ipyv_rec,
3683: x_kle_id => l_kle_id );
3684:
3685: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3686: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3687: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3688: RAISE OKC_API.G_EXCEPTION_ERROR;
3689: END IF;
3690: l_ipyv_rec.KLE_ID := l_kle_id ;
3683: x_kle_id => l_kle_id );
3684:
3685: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3686: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3687: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3688: RAISE OKC_API.G_EXCEPTION_ERROR;
3689: END IF;
3690: l_ipyv_rec.KLE_ID := l_kle_id ;
3691: -- Create Stream
3684:
3685: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3686: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3687: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3688: RAISE OKC_API.G_EXCEPTION_ERROR;
3689: END IF;
3690: l_ipyv_rec.KLE_ID := l_kle_id ;
3691: -- Create Stream
3692: create_ins_streams(
3690: l_ipyv_rec.KLE_ID := l_kle_id ;
3691: -- Create Stream
3692: create_ins_streams(
3693: p_api_version => l_api_version,
3694: p_init_msg_list => Okc_Api.G_FALSE,
3695: x_return_status => l_return_status,
3696: x_msg_count => x_msg_count,
3697: x_msg_data => x_msg_data,
3698: p_ipyv_rec => l_ipyv_rec
3697: x_msg_data => x_msg_data,
3698: p_ipyv_rec => l_ipyv_rec
3699: );
3700:
3701: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3702: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3703: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3704:
3705: RAISE OKC_API.G_EXCEPTION_ERROR;
3698: p_ipyv_rec => l_ipyv_rec
3699: );
3700:
3701: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3702: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3703: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3704:
3705: RAISE OKC_API.G_EXCEPTION_ERROR;
3706: END IF;
3699: );
3700:
3701: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3702: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3703: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3704:
3705: RAISE OKC_API.G_EXCEPTION_ERROR;
3706: END IF;
3707:
3701: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3702: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3703: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3704:
3705: RAISE OKC_API.G_EXCEPTION_ERROR;
3706: END IF;
3707:
3708: create_insinc_streams(
3709: p_api_version => l_api_version,
3706: END IF;
3707:
3708: create_insinc_streams(
3709: p_api_version => l_api_version,
3710: p_init_msg_list => Okc_Api.G_FALSE,
3711: x_return_status => l_return_status,
3712: x_msg_count => x_msg_count,
3713: x_msg_data => x_msg_data,
3714: p_ipyv_rec => l_ipyv_rec
3713: x_msg_data => x_msg_data,
3714: p_ipyv_rec => l_ipyv_rec
3715: );
3716:
3717: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3718: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3719: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3720: RAISE OKC_API.G_EXCEPTION_ERROR;
3721: END IF;
3714: p_ipyv_rec => l_ipyv_rec
3715: );
3716:
3717: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3718: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3719: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3720: RAISE OKC_API.G_EXCEPTION_ERROR;
3721: END IF;
3722:
3715: );
3716:
3717: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3718: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3719: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3720: RAISE OKC_API.G_EXCEPTION_ERROR;
3721: END IF;
3722:
3723: -- Start of wraper code generated automatically by Debug code generator for Okl_Ins_Policies_Pub.update_ins_policies
3716:
3717: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3718: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3719: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3720: RAISE OKC_API.G_EXCEPTION_ERROR;
3721: END IF;
3722:
3723: -- Start of wraper code generated automatically by Debug code generator for Okl_Ins_Policies_Pub.update_ins_policies
3724: IF(IS_DEBUG_PROCEDURE_ON) THEN
3727: END;
3728: END IF;
3729: Okl_Ins_Policies_Pub.update_ins_policies(
3730: p_api_version => p_api_version,
3731: p_init_msg_list => OKC_API.G_FALSE,
3732: x_return_status => l_return_status,
3733: x_msg_count => x_msg_count,
3734: x_msg_data => x_msg_data,
3735: p_ipyv_rec => l_ipyv_rec,
3740: OKL_DEBUG_PUB.LOG_DEBUG(L_LEVEL_PROCEDURE,L_MODULE,'End Debug OKLRINQB.pls call Okl_Ins_Policies_Pub.update_ins_policies ');
3741: END;
3742: END IF;
3743: -- End of wraper code generated automatically by Debug code generator for Okl_Ins_Policies_Pub.update_ins_policies
3744: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3745:
3746: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3747: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3748:
3742: END IF;
3743: -- End of wraper code generated automatically by Debug code generator for Okl_Ins_Policies_Pub.update_ins_policies
3744: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3745:
3746: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3747: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3748:
3749: RAISE OKC_API.G_EXCEPTION_ERROR;
3750: END IF;
3743: -- End of wraper code generated automatically by Debug code generator for Okl_Ins_Policies_Pub.update_ins_policies
3744: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3745:
3746: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3747: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3748:
3749: RAISE OKC_API.G_EXCEPTION_ERROR;
3750: END IF;
3751: l_ipyv_rec := lx_ipyv_rec ;
3745:
3746: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3747: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3748:
3749: RAISE OKC_API.G_EXCEPTION_ERROR;
3750: END IF;
3751: l_ipyv_rec := lx_ipyv_rec ;
3752: -- activate stream
3753: activate_ins_stream(
3751: l_ipyv_rec := lx_ipyv_rec ;
3752: -- activate stream
3753: activate_ins_stream(
3754: p_api_version => l_api_version,
3755: p_init_msg_list => Okc_Api.G_FALSE,
3756: x_return_status => l_return_status,
3757: x_msg_count => x_msg_count,
3758: x_msg_data => x_msg_data,
3759: p_ipyv_rec => l_ipyv_rec
3758: x_msg_data => x_msg_data,
3759: p_ipyv_rec => l_ipyv_rec
3760: );
3761:
3762: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3763:
3764: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3765: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3766:
3760: );
3761:
3762: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3763:
3764: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3765: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3766:
3767: RAISE OKC_API.G_EXCEPTION_ERROR;
3768: ELSIF (l_return_status = G_NOT_ACTIVE) THEN
3761:
3762: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3763:
3764: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3765: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3766:
3767: RAISE OKC_API.G_EXCEPTION_ERROR;
3768: ELSIF (l_return_status = G_NOT_ACTIVE) THEN
3769: -- Need to take care
3763:
3764: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3765: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3766:
3767: RAISE OKC_API.G_EXCEPTION_ERROR;
3768: ELSIF (l_return_status = G_NOT_ACTIVE) THEN
3769: -- Need to take care
3770: NULL;
3771: --ELSE
3782: END;
3783: END IF;
3784: Okl_Ins_Policies_Pub.update_ins_policies(
3785: p_api_version => p_api_version,
3786: p_init_msg_list => OKC_API.G_FALSE,
3787: x_return_status => l_return_status,
3788: x_msg_count => x_msg_count,
3789: x_msg_data => x_msg_data,
3790: p_ipyv_rec => l_inqv_rec,
3795: END;
3796: END IF;
3797: -- End of wraper code generated automatically by Debug code generator for Okl_Ins_Policies_Pub.update_ins_policies
3798:
3799: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3800:
3801: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3802: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3803:
3797: -- End of wraper code generated automatically by Debug code generator for Okl_Ins_Policies_Pub.update_ins_policies
3798:
3799: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3800:
3801: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3802: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3803:
3804: RAISE OKC_API.G_EXCEPTION_ERROR;
3805: END IF;
3798:
3799: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3800:
3801: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3802: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3803:
3804: RAISE OKC_API.G_EXCEPTION_ERROR;
3805: END IF;
3806: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3800:
3801: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3802: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3803:
3804: RAISE OKC_API.G_EXCEPTION_ERROR;
3805: END IF;
3806: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3807: EXCEPTION
3808: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3802: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3803:
3804: RAISE OKC_API.G_EXCEPTION_ERROR;
3805: END IF;
3806: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3807: EXCEPTION
3808: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3809: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3810: (
3804: RAISE OKC_API.G_EXCEPTION_ERROR;
3805: END IF;
3806: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3807: EXCEPTION
3808: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3809: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3810: (
3811: l_api_name,
3812: G_PKG_NAME,
3805: END IF;
3806: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3807: EXCEPTION
3808: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3809: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3810: (
3811: l_api_name,
3812: G_PKG_NAME,
3813: 'OKC_API.G_RET_STS_ERROR',
3809: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3810: (
3811: l_api_name,
3812: G_PKG_NAME,
3813: 'OKC_API.G_RET_STS_ERROR',
3814: x_msg_count,
3815: x_msg_data,
3816: '_PROCESS'
3817: );
3814: x_msg_count,
3815: x_msg_data,
3816: '_PROCESS'
3817: );
3818: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3819: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3820: (
3821: l_api_name,
3822: G_PKG_NAME,
3815: x_msg_data,
3816: '_PROCESS'
3817: );
3818: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3819: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3820: (
3821: l_api_name,
3822: G_PKG_NAME,
3823: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3819: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3820: (
3821: l_api_name,
3822: G_PKG_NAME,
3823: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3824: x_msg_count,
3825: x_msg_data,
3826: '_PROCESS'
3827: );
3825: x_msg_data,
3826: '_PROCESS'
3827: );
3828: WHEN OTHERS THEN
3829: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3830: (
3831: l_api_name,
3832: G_PKG_NAME,
3833: 'OTHERS',
3851: l_msg_count NUMBER ;
3852: l_msg_data VARCHAR2(2000);
3853: l_api_version CONSTANT NUMBER := 1;
3854: l_api_name CONSTANT VARCHAR2(30) := 'save_quote';
3855: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
3856: p_contract_id NUMBER ;
3857: l_ipyv_rec Okl_Ins_Policies_Pub.ipyv_rec_type ;
3858: lx_ipyv_rec Okl_Ins_Policies_Pub.ipyv_rec_type ;
3859: l_iasset_tbl iasset_tbl_type ;
3866: SELECT POLICY_SYMBOL , FACTOR_NAME ,FACTOR_CODE
3867: FROM OKL_INS_PRODUCTS_V
3868: WHERE id = product_id;
3869: BEGIN
3870: x_return_status := Okc_Api.G_RET_STS_SUCCESS;
3871: l_return_status := OKC_API.START_ACTIVITY(l_api_name, G_PKG_NAME,
3872: p_init_msg_list,l_api_version,
3873: p_api_version,'_PROCESS',
3874: l_return_status);
3867: FROM OKL_INS_PRODUCTS_V
3868: WHERE id = product_id;
3869: BEGIN
3870: x_return_status := Okc_Api.G_RET_STS_SUCCESS;
3871: l_return_status := OKC_API.START_ACTIVITY(l_api_name, G_PKG_NAME,
3872: p_init_msg_list,l_api_version,
3873: p_api_version,'_PROCESS',
3874: l_return_status);
3875: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3871: l_return_status := OKC_API.START_ACTIVITY(l_api_name, G_PKG_NAME,
3872: p_init_msg_list,l_api_version,
3873: p_api_version,'_PROCESS',
3874: l_return_status);
3875: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3876: x_return_status := l_return_status ;
3877: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3878: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3879: x_return_status := l_return_status ;
3873: p_api_version,'_PROCESS',
3874: l_return_status);
3875: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3876: x_return_status := l_return_status ;
3877: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3878: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3879: x_return_status := l_return_status ;
3880: RAISE OKC_API.G_EXCEPTION_ERROR;
3881: END IF;
3874: l_return_status);
3875: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3876: x_return_status := l_return_status ;
3877: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3878: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3879: x_return_status := l_return_status ;
3880: RAISE OKC_API.G_EXCEPTION_ERROR;
3881: END IF;
3882: x_message := '1';
3876: x_return_status := l_return_status ;
3877: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3878: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3879: x_return_status := l_return_status ;
3880: RAISE OKC_API.G_EXCEPTION_ERROR;
3881: END IF;
3882: x_message := '1';
3883: l_ipyv_rec := px_ipyv_rec ;
3884:
3881: END IF;
3882: x_message := '1';
3883: l_ipyv_rec := px_ipyv_rec ;
3884:
3885: l_ipyv_rec.date_proof_provided := OKC_API.G_MISS_DATE ;
3886: l_ipyv_rec.date_proof_required := OKC_API.G_MISS_DATE ;
3887: l_ipyv_rec.cancellation_date := OKC_API.G_MISS_DATE ;
3888: l_ipyv_rec.activation_date := OKC_API.G_MISS_DATE ;
3889:
3882: x_message := '1';
3883: l_ipyv_rec := px_ipyv_rec ;
3884:
3885: l_ipyv_rec.date_proof_provided := OKC_API.G_MISS_DATE ;
3886: l_ipyv_rec.date_proof_required := OKC_API.G_MISS_DATE ;
3887: l_ipyv_rec.cancellation_date := OKC_API.G_MISS_DATE ;
3888: l_ipyv_rec.activation_date := OKC_API.G_MISS_DATE ;
3889:
3890:
3883: l_ipyv_rec := px_ipyv_rec ;
3884:
3885: l_ipyv_rec.date_proof_provided := OKC_API.G_MISS_DATE ;
3886: l_ipyv_rec.date_proof_required := OKC_API.G_MISS_DATE ;
3887: l_ipyv_rec.cancellation_date := OKC_API.G_MISS_DATE ;
3888: l_ipyv_rec.activation_date := OKC_API.G_MISS_DATE ;
3889:
3890:
3891: -- For Optional Insurance
3884:
3885: l_ipyv_rec.date_proof_provided := OKC_API.G_MISS_DATE ;
3886: l_ipyv_rec.date_proof_required := OKC_API.G_MISS_DATE ;
3887: l_ipyv_rec.cancellation_date := OKC_API.G_MISS_DATE ;
3888: l_ipyv_rec.activation_date := OKC_API.G_MISS_DATE ;
3889:
3890:
3891: -- For Optional Insurance
3892: IF (l_ipyv_rec.ipy_type = 'OPTIONAL_POLICY' ) THEN
3897: SELECT OKL_IPY_SEQ.NEXTVAL INTO l_seq FROM dual;
3898: EXCEPTION
3899: WHEN NO_DATA_FOUND THEN
3900: -- store SQL error message on message stack for caller
3901: OKC_API.set_message(G_APP_NAME, 'OKL_NO_SEQUENCE' );
3902: WHEN OTHERS THEN
3903: -- store SQL error message on message stack for caller
3904: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
3905: -- notify caller of an UNEXPECTED error
3900: -- store SQL error message on message stack for caller
3901: OKC_API.set_message(G_APP_NAME, 'OKL_NO_SEQUENCE' );
3902: WHEN OTHERS THEN
3903: -- store SQL error message on message stack for caller
3904: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
3905: -- notify caller of an UNEXPECTED error
3906: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
3907: -- verify that cursor was closed
3908: END ;
3902: WHEN OTHERS THEN
3903: -- store SQL error message on message stack for caller
3904: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
3905: -- notify caller of an UNEXPECTED error
3906: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
3907: -- verify that cursor was closed
3908: END ;
3909: OPEN c_policy_symbol (l_ipyv_rec.IPT_ID) ;
3910: FETCH c_policy_symbol INTO l_policy_symbol, l_ipyv_rec.INSURANCE_FACTOR,l_ipyv_rec.FACTOR_CODE ;
3914: close c_policy_symbol ;
3915: l_ipyv_rec.POLICY_NUMBER := l_policy_symbol || TO_CHAR(l_seq) ;
3916: l_ipyv_rec.QUOTE_YN := 'Y' ;
3917: l_ipyv_rec.ISS_CODE := 'QUOTE' ;
3918: IF (l_ipyv_rec.ADJUSTMENT IS NULL OR l_ipyv_rec.ADJUSTMENT = OKC_API.G_MISS_NUM) THEN
3919: l_ipyv_rec.ADJUSTMENT := 0 ;
3920: END IF;
3921: l_ipyv_rec.PREMIUM := l_ipyv_rec.CALCULATED_PREMIUM + l_ipyv_rec.ADJUSTMENT ;
3922: x_message := px_ipyv_rec.ADJUSTMENT;
3931: END;
3932: END IF;
3933: Okl_Ins_Policies_Pub.insert_ins_policies(
3934: p_api_version => l_api_version,
3935: p_init_msg_list => OKC_API.G_FALSE,
3936: x_return_status => l_return_status,
3937: x_msg_count => x_msg_count,
3938: x_msg_data => x_msg_data,
3939: p_ipyv_rec => l_ipyv_rec,
3945: END;
3946: END IF;
3947: -- End of wraper code generated automatically by Debug code generator for Okl_Ins_Policies_Pub.insert_ins_policies
3948:
3949: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3950: x_return_status := l_return_status ;
3951: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3952: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3953: x_return_status := l_return_status ;
3947: -- End of wraper code generated automatically by Debug code generator for Okl_Ins_Policies_Pub.insert_ins_policies
3948:
3949: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3950: x_return_status := l_return_status ;
3951: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3952: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3953: x_return_status := l_return_status ;
3954: RAISE OKC_API.G_EXCEPTION_ERROR;
3955: END IF;
3948:
3949: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3950: x_return_status := l_return_status ;
3951: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3952: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3953: x_return_status := l_return_status ;
3954: RAISE OKC_API.G_EXCEPTION_ERROR;
3955: END IF;
3956: px_ipyv_rec.ID := lx_ipyv_rec.ID;
3950: x_return_status := l_return_status ;
3951: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3952: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3953: x_return_status := l_return_status ;
3954: RAISE OKC_API.G_EXCEPTION_ERROR;
3955: END IF;
3956: px_ipyv_rec.ID := lx_ipyv_rec.ID;
3957: -- For Lease Insurance
3958: ELSIF (l_ipyv_rec.ipy_type = 'LEASE_POLICY' ) THEN
3957: -- For Lease Insurance
3958: ELSIF (l_ipyv_rec.ipy_type = 'LEASE_POLICY' ) THEN
3959: calc_lease_premium(
3960: p_api_version =>l_api_version,
3961: p_init_msg_list => Okc_Api.G_FALSE,
3962: x_return_status => l_return_status,
3963: x_msg_count => x_msg_count,
3964: x_msg_data => x_msg_data,
3965: px_ipyv_rec => l_ipyv_rec,
3966: x_message => l_message,
3967: x_iasset_tbl => l_iasset_tbl );
3968: x_message := '2';
3969:
3970: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3971: x_return_status := l_return_status ;
3972: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3973: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3974: x_return_status := l_return_status ;
3968: x_message := '2';
3969:
3970: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3971: x_return_status := l_return_status ;
3972: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3973: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3974: x_return_status := l_return_status ;
3975: RAISE OKC_API.G_EXCEPTION_ERROR;
3976: END IF;
3969:
3970: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3971: x_return_status := l_return_status ;
3972: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3973: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3974: x_return_status := l_return_status ;
3975: RAISE OKC_API.G_EXCEPTION_ERROR;
3976: END IF;
3977: x_message := '3';
3971: x_return_status := l_return_status ;
3972: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3973: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3974: x_return_status := l_return_status ;
3975: RAISE OKC_API.G_EXCEPTION_ERROR;
3976: END IF;
3977: x_message := '3';
3978: l_ipyv_rec.SFWT_FLAG := 'T' ;
3979: l_ipyv_rec.deductible := 0 ;
3982: SELECT OKL_IPY_SEQ.NEXTVAL INTO l_seq FROM dual;
3983: EXCEPTION
3984: WHEN NO_DATA_FOUND THEN
3985: -- store SQL error message on message stack for caller
3986: OKC_API.set_message(G_APP_NAME, 'OKL_NO_SEQUENCE' );
3987: WHEN OTHERS THEN
3988: -- store SQL error message on message stack for caller
3989: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
3990: -- notify caller of an UNEXPECTED error
3985: -- store SQL error message on message stack for caller
3986: OKC_API.set_message(G_APP_NAME, 'OKL_NO_SEQUENCE' );
3987: WHEN OTHERS THEN
3988: -- store SQL error message on message stack for caller
3989: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
3990: -- notify caller of an UNEXPECTED error
3991: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
3992: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3993: -- verify that cursor was closed
3987: WHEN OTHERS THEN
3988: -- store SQL error message on message stack for caller
3989: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
3990: -- notify caller of an UNEXPECTED error
3991: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
3992: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3993: -- verify that cursor was closed
3994: END ;
3995: OPEN c_policy_symbol (l_ipyv_rec.IPT_ID) ;
3988: -- store SQL error message on message stack for caller
3989: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
3990: -- notify caller of an UNEXPECTED error
3991: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
3992: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3993: -- verify that cursor was closed
3994: END ;
3995: OPEN c_policy_symbol (l_ipyv_rec.IPT_ID) ;
3996: FETCH c_policy_symbol INTO l_policy_symbol , l_ipyv_rec.INSURANCE_FACTOR,l_ipyv_rec.FACTOR_CODE;
3999: l_ipyv_rec.POLICY_NUMBER := l_policy_symbol || TO_CHAR(l_seq) ;
4000: l_ipyv_rec.QUOTE_YN := 'Y' ;
4001: l_ipyv_rec.ISS_CODE := 'QUOTE' ;
4002:
4003: IF (px_ipyv_rec.ADJUSTMENT IS NULL OR px_ipyv_rec.ADJUSTMENT = OKC_API.G_MISS_NUM) THEN
4004: l_ipyv_rec.ADJUSTMENT := 0 ;
4005: ELSE
4006: l_ipyv_rec.ADJUSTMENT := px_ipyv_rec.ADJUSTMENT;
4007: END IF;
4015: END;
4016: END IF;
4017: Okl_Ins_Policies_Pub.insert_ins_policies(
4018: p_api_version => l_api_version,
4019: p_init_msg_list => OKC_API.G_FALSE,
4020: x_return_status => l_return_status,
4021: x_msg_count => x_msg_count,
4022: x_msg_data => x_msg_data,
4023: p_ipyv_rec => l_ipyv_rec,
4029: END;
4030: END IF;
4031: -- End of wraper code generated automatically by Debug code generator for Okl_Ins_Policies_Pub.insert_ins_policies
4032:
4033: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4034: x_return_status := l_return_status ;
4035: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4036: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4037: x_return_status := l_return_status ;
4031: -- End of wraper code generated automatically by Debug code generator for Okl_Ins_Policies_Pub.insert_ins_policies
4032:
4033: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4034: x_return_status := l_return_status ;
4035: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4036: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4037: x_return_status := l_return_status ;
4038: RAISE OKC_API.G_EXCEPTION_ERROR;
4039: END IF;
4032:
4033: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4034: x_return_status := l_return_status ;
4035: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4036: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4037: x_return_status := l_return_status ;
4038: RAISE OKC_API.G_EXCEPTION_ERROR;
4039: END IF;
4040: px_ipyv_rec.ID := lx_ipyv_rec.ID;
4034: x_return_status := l_return_status ;
4035: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4036: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4037: x_return_status := l_return_status ;
4038: RAISE OKC_API.G_EXCEPTION_ERROR;
4039: END IF;
4040: px_ipyv_rec.ID := lx_ipyv_rec.ID;
4041: IF l_iasset_tbl IS NOT NULL THEN
4042: IF l_iasset_tbl.COUNT > 0 THEN
4056: END;
4057: END IF;
4058: Okl_Ins_Assets_Pub.insert_ins_assets(
4059: p_api_version => l_api_version,
4060: p_init_msg_list => OKC_API.G_FALSE,
4061: x_return_status => l_return_status,
4062: x_msg_count => x_msg_count,
4063: x_msg_data => x_msg_data,
4064: p_inav_tbl => l_inav_tbl,
4070: END;
4071: END IF;
4072: -- End of wraper code generated automatically by Debug code generator for Okl_Ins_Assets_Pub.insert_ins_assets
4073:
4074: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4075: x_return_status := l_return_status ;
4076: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4077: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4078: x_return_status := l_return_status ;
4072: -- End of wraper code generated automatically by Debug code generator for Okl_Ins_Assets_Pub.insert_ins_assets
4073:
4074: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4075: x_return_status := l_return_status ;
4076: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4077: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4078: x_return_status := l_return_status ;
4079: RAISE OKC_API.G_EXCEPTION_ERROR;
4080: END IF;
4073:
4074: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4075: x_return_status := l_return_status ;
4076: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4077: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4078: x_return_status := l_return_status ;
4079: RAISE OKC_API.G_EXCEPTION_ERROR;
4080: END IF;
4081: END IF;
4075: x_return_status := l_return_status ;
4076: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4077: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4078: x_return_status := l_return_status ;
4079: RAISE OKC_API.G_EXCEPTION_ERROR;
4080: END IF;
4081: END IF;
4082: END IF;
4083: END IF ;
4080: END IF;
4081: END IF;
4082: END IF;
4083: END IF ;
4084: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
4085: x_message := 'ab2';
4086: EXCEPTION
4087: WHEN OKC_API.G_EXCEPTION_ERROR THEN
4088: x_return_status := OKC_API.HANDLE_EXCEPTIONS
4083: END IF ;
4084: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
4085: x_message := 'ab2';
4086: EXCEPTION
4087: WHEN OKC_API.G_EXCEPTION_ERROR THEN
4088: x_return_status := OKC_API.HANDLE_EXCEPTIONS
4089: (
4090: l_api_name,
4091: G_PKG_NAME,
4084: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
4085: x_message := 'ab2';
4086: EXCEPTION
4087: WHEN OKC_API.G_EXCEPTION_ERROR THEN
4088: x_return_status := OKC_API.HANDLE_EXCEPTIONS
4089: (
4090: l_api_name,
4091: G_PKG_NAME,
4092: 'OKC_API.G_RET_STS_ERROR',
4088: x_return_status := OKC_API.HANDLE_EXCEPTIONS
4089: (
4090: l_api_name,
4091: G_PKG_NAME,
4092: 'OKC_API.G_RET_STS_ERROR',
4093: x_msg_count,
4094: x_msg_data,
4095: '_PROCESS'
4096: );
4093: x_msg_count,
4094: x_msg_data,
4095: '_PROCESS'
4096: );
4097: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4098: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
4099: (
4100: l_api_name,
4101: G_PKG_NAME,
4094: x_msg_data,
4095: '_PROCESS'
4096: );
4097: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4098: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
4099: (
4100: l_api_name,
4101: G_PKG_NAME,
4102: 'OKC_API.G_RET_STS_UNEXP_ERROR',
4098: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
4099: (
4100: l_api_name,
4101: G_PKG_NAME,
4102: 'OKC_API.G_RET_STS_UNEXP_ERROR',
4103: x_msg_count,
4104: x_msg_data,
4105: '_PROCESS'
4106: );
4104: x_msg_data,
4105: '_PROCESS'
4106: );
4107: WHEN OTHERS THEN
4108: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
4109: (
4110: l_api_name,
4111: G_PKG_NAME,
4112: 'OTHERS',
4130: l_msg_count NUMBER ;
4131: l_msg_data VARCHAR2(2000);
4132: l_api_version CONSTANT NUMBER := 1;
4133: l_api_name CONSTANT VARCHAR2(30) := 'save_ACCEPT_quote';
4134: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
4135: p_contract_id NUMBER ;
4136: l_ipyv_rec ipyv_rec_type ;
4137: lx_ipyv_rec ipyv_rec_type ;
4138: l_iaaset_tbl iasset_tbl_type ;
4139: l_message VARCHAR2(200);
4140: l_inav_tbl Okl_Ina_Pvt.inav_tbl_type;
4141: l_policy_number NUMBER;
4142: BEGIN
4143: x_return_status := Okc_Api.G_RET_STS_SUCCESS ;
4144: x_message := 'a' ;
4145: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
4146: G_PKG_NAME,
4147: p_init_msg_list,
4141: l_policy_number NUMBER;
4142: BEGIN
4143: x_return_status := Okc_Api.G_RET_STS_SUCCESS ;
4144: x_message := 'a' ;
4145: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
4146: G_PKG_NAME,
4147: p_init_msg_list,
4148: l_api_version,
4149: p_api_version,
4148: l_api_version,
4149: p_api_version,
4150: '_PROCESS',
4151: l_return_status);
4152: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4153: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4154: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4155: RAISE OKC_API.G_EXCEPTION_ERROR;
4156: END IF;
4149: p_api_version,
4150: '_PROCESS',
4151: l_return_status);
4152: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4153: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4154: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4155: RAISE OKC_API.G_EXCEPTION_ERROR;
4156: END IF;
4157: l_ipyv_rec := P_ipyv_rec ;
4150: '_PROCESS',
4151: l_return_status);
4152: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4153: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4154: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4155: RAISE OKC_API.G_EXCEPTION_ERROR;
4156: END IF;
4157: l_ipyv_rec := P_ipyv_rec ;
4158:
4151: l_return_status);
4152: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4153: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4154: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4155: RAISE OKC_API.G_EXCEPTION_ERROR;
4156: END IF;
4157: l_ipyv_rec := P_ipyv_rec ;
4158:
4159: save_quote(
4157: l_ipyv_rec := P_ipyv_rec ;
4158:
4159: save_quote(
4160: p_api_version =>l_api_version ,
4161: p_init_msg_list => Okc_Api.G_FALSE,
4162: x_return_status => x_return_status,
4163: x_msg_count => x_msg_count,
4164: x_msg_data => x_msg_data,
4165: px_ipyv_rec => l_ipyv_rec,
4164: x_msg_data => x_msg_data,
4165: px_ipyv_rec => l_ipyv_rec,
4166: x_message => x_message );
4167: x_message := TO_CHAR(l_ipyv_rec.ID) ;
4168: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4169: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4170: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4171: RAISE OKC_API.G_EXCEPTION_ERROR;
4172: END IF;
4165: px_ipyv_rec => l_ipyv_rec,
4166: x_message => x_message );
4167: x_message := TO_CHAR(l_ipyv_rec.ID) ;
4168: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4169: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4170: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4171: RAISE OKC_API.G_EXCEPTION_ERROR;
4172: END IF;
4173: accept_quote(p_api_version => l_api_version,
4166: x_message => x_message );
4167: x_message := TO_CHAR(l_ipyv_rec.ID) ;
4168: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4169: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4170: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4171: RAISE OKC_API.G_EXCEPTION_ERROR;
4172: END IF;
4173: accept_quote(p_api_version => l_api_version,
4174: p_init_msg_list => p_init_msg_list ,
4167: x_message := TO_CHAR(l_ipyv_rec.ID) ;
4168: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4169: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4170: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4171: RAISE OKC_API.G_EXCEPTION_ERROR;
4172: END IF;
4173: accept_quote(p_api_version => l_api_version,
4174: p_init_msg_list => p_init_msg_list ,
4175: x_return_status => l_return_status ,
4177: x_msg_data => x_msg_data ,
4178: p_quote_id => l_ipyv_rec.ID
4179: );
4180:
4181: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4182:
4183: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4184: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4185:
4179: );
4180:
4181: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4182:
4183: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4184: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4185:
4186: RAISE OKC_API.G_EXCEPTION_ERROR;
4187: END IF;
4180:
4181: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4182:
4183: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4184: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4185:
4186: RAISE OKC_API.G_EXCEPTION_ERROR;
4187: END IF;
4188: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
4182:
4183: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4184: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4185:
4186: RAISE OKC_API.G_EXCEPTION_ERROR;
4187: END IF;
4188: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
4189: EXCEPTION
4190: WHEN OKC_API.G_EXCEPTION_ERROR THEN
4184: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4185:
4186: RAISE OKC_API.G_EXCEPTION_ERROR;
4187: END IF;
4188: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
4189: EXCEPTION
4190: WHEN OKC_API.G_EXCEPTION_ERROR THEN
4191: x_return_status := OKC_API.HANDLE_EXCEPTIONS
4192: (
4186: RAISE OKC_API.G_EXCEPTION_ERROR;
4187: END IF;
4188: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
4189: EXCEPTION
4190: WHEN OKC_API.G_EXCEPTION_ERROR THEN
4191: x_return_status := OKC_API.HANDLE_EXCEPTIONS
4192: (
4193: l_api_name,
4194: G_PKG_NAME,
4187: END IF;
4188: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
4189: EXCEPTION
4190: WHEN OKC_API.G_EXCEPTION_ERROR THEN
4191: x_return_status := OKC_API.HANDLE_EXCEPTIONS
4192: (
4193: l_api_name,
4194: G_PKG_NAME,
4195: 'OKC_API.G_RET_STS_ERROR',
4191: x_return_status := OKC_API.HANDLE_EXCEPTIONS
4192: (
4193: l_api_name,
4194: G_PKG_NAME,
4195: 'OKC_API.G_RET_STS_ERROR',
4196: x_msg_count,
4197: x_msg_data,
4198: '_PROCESS'
4199: );
4196: x_msg_count,
4197: x_msg_data,
4198: '_PROCESS'
4199: );
4200: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4201: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
4202: (
4203: l_api_name,
4204: G_PKG_NAME,
4197: x_msg_data,
4198: '_PROCESS'
4199: );
4200: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4201: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
4202: (
4203: l_api_name,
4204: G_PKG_NAME,
4205: 'OKC_API.G_RET_STS_UNEXP_ERROR',
4201: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
4202: (
4203: l_api_name,
4204: G_PKG_NAME,
4205: 'OKC_API.G_RET_STS_UNEXP_ERROR',
4206: x_msg_count,
4207: x_msg_data,
4208: '_PROCESS'
4209: );
4207: x_msg_data,
4208: '_PROCESS'
4209: );
4210: WHEN OTHERS THEN
4211: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
4212: (
4213: l_api_name,
4214: G_PKG_NAME,
4215: 'OTHERS',
4246: l_msg_count NUMBER ;
4247: l_msg_data VARCHAR2(2000);
4248: l_api_version CONSTANT NUMBER := 1;
4249: l_api_name CONSTANT VARCHAR2(30) := 'calc_lease_premium';
4250: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
4251: p_contract_id NUMBER ;
4252: -- Cursor to get ASSET information of passed contract
4253: CURSOR okl_k_assets_csr (p_k_id NUMBER) IS -- Bug 4105057
4254: SELECT OTAT.DESCRIPTION ASSET_DESCRIPTION,
4708: l_deal_type VARCHAR2(30);
4709: l_item_category NUMBER;
4710:
4711: BEGIN
4712: x_message := Okc_Api.G_RET_STS_SUCCESS;
4713: x_return_status := OKC_API.START_ACTIVITY(l_api_name,
4714: G_PKG_NAME,
4715: p_init_msg_list,
4716: l_api_version,
4709: l_item_category NUMBER;
4710:
4711: BEGIN
4712: x_message := Okc_Api.G_RET_STS_SUCCESS;
4713: x_return_status := OKC_API.START_ACTIVITY(l_api_name,
4714: G_PKG_NAME,
4715: p_init_msg_list,
4716: l_api_version,
4717: p_api_version,
4716: l_api_version,
4717: p_api_version,
4718: '_PROCESS',
4719: x_return_status);
4720: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4721: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4722: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
4723: RAISE OKC_API.G_EXCEPTION_ERROR;
4724: END IF;
4717: p_api_version,
4718: '_PROCESS',
4719: x_return_status);
4720: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4721: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4722: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
4723: RAISE OKC_API.G_EXCEPTION_ERROR;
4724: END IF;
4725: -- data is required
4718: '_PROCESS',
4719: x_return_status);
4720: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4721: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4722: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
4723: RAISE OKC_API.G_EXCEPTION_ERROR;
4724: END IF;
4725: -- data is required
4726: --- Check for INSURANCE PROVIDER'S VALADITY
4719: x_return_status);
4720: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4721: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4722: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
4723: RAISE OKC_API.G_EXCEPTION_ERROR;
4724: END IF;
4725: -- data is required
4726: --- Check for INSURANCE PROVIDER'S VALADITY
4727: IF ( ( px_ipyv_rec.isu_id IS NULL) OR (px_ipyv_rec.isu_id = OKC_API.G_MISS_NUM)) THEN
4723: RAISE OKC_API.G_EXCEPTION_ERROR;
4724: END IF;
4725: -- data is required
4726: --- Check for INSURANCE PROVIDER'S VALADITY
4727: IF ( ( px_ipyv_rec.isu_id IS NULL) OR (px_ipyv_rec.isu_id = OKC_API.G_MISS_NUM)) THEN
4728: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'isu_id');
4729: -- notify caller of an error
4730: x_return_status := OKC_API.G_RET_STS_ERROR;
4731: RAISE OKC_API.G_EXCEPTION_ERROR;
4724: END IF;
4725: -- data is required
4726: --- Check for INSURANCE PROVIDER'S VALADITY
4727: IF ( ( px_ipyv_rec.isu_id IS NULL) OR (px_ipyv_rec.isu_id = OKC_API.G_MISS_NUM)) THEN
4728: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'isu_id');
4729: -- notify caller of an error
4730: x_return_status := OKC_API.G_RET_STS_ERROR;
4731: RAISE OKC_API.G_EXCEPTION_ERROR;
4732: ELSE
4726: --- Check for INSURANCE PROVIDER'S VALADITY
4727: IF ( ( px_ipyv_rec.isu_id IS NULL) OR (px_ipyv_rec.isu_id = OKC_API.G_MISS_NUM)) THEN
4728: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'isu_id');
4729: -- notify caller of an error
4730: x_return_status := OKC_API.G_RET_STS_ERROR;
4731: RAISE OKC_API.G_EXCEPTION_ERROR;
4732: ELSE
4733: OPEN l_isu_csr(px_ipyv_rec.isu_id) ;
4734: FETCH l_isu_csr INTO l_dummy_var ;
4727: IF ( ( px_ipyv_rec.isu_id IS NULL) OR (px_ipyv_rec.isu_id = OKC_API.G_MISS_NUM)) THEN
4728: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'isu_id');
4729: -- notify caller of an error
4730: x_return_status := OKC_API.G_RET_STS_ERROR;
4731: RAISE OKC_API.G_EXCEPTION_ERROR;
4732: ELSE
4733: OPEN l_isu_csr(px_ipyv_rec.isu_id) ;
4734: FETCH l_isu_csr INTO l_dummy_var ;
4735: CLOSE l_isu_csr ;
4734: FETCH l_isu_csr INTO l_dummy_var ;
4735: CLOSE l_isu_csr ;
4736: -- still set to default means data was not found
4737: IF ( l_dummy_var = '?' ) THEN
4738: OKC_API.set_message(g_app_name,g_no_parent_record,
4739: g_col_name_token,'isu_code',
4740: g_parent_table_token ,
4741: 'OKX_INS_PROVIDER_V');
4742: x_return_status := OKC_API.G_RET_STS_ERROR;
4738: OKC_API.set_message(g_app_name,g_no_parent_record,
4739: g_col_name_token,'isu_code',
4740: g_parent_table_token ,
4741: 'OKX_INS_PROVIDER_V');
4742: x_return_status := OKC_API.G_RET_STS_ERROR;
4743: RAISE OKC_API.G_EXCEPTION_ERROR;
4744: END IF;
4745: END IF;
4746:
4739: g_col_name_token,'isu_code',
4740: g_parent_table_token ,
4741: 'OKX_INS_PROVIDER_V');
4742: x_return_status := OKC_API.G_RET_STS_ERROR;
4743: RAISE OKC_API.G_EXCEPTION_ERROR;
4744: END IF;
4745: END IF;
4746:
4747:
4745: END IF;
4746:
4747:
4748: -- For Payment frequency
4749: IF ((px_ipyv_rec.ipf_code IS NULL ) OR (px_ipyv_rec.ipf_code = OKC_API.G_MISS_CHAR )) THEN
4750: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'ipf_code');
4751: x_return_status := OKC_API.G_RET_STS_ERROR;
4752: RAISE OKC_API.G_EXCEPTION_ERROR;
4753: -- Message --
4746:
4747:
4748: -- For Payment frequency
4749: IF ((px_ipyv_rec.ipf_code IS NULL ) OR (px_ipyv_rec.ipf_code = OKC_API.G_MISS_CHAR )) THEN
4750: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'ipf_code');
4751: x_return_status := OKC_API.G_RET_STS_ERROR;
4752: RAISE OKC_API.G_EXCEPTION_ERROR;
4753: -- Message --
4754: ELSE
4747:
4748: -- For Payment frequency
4749: IF ((px_ipyv_rec.ipf_code IS NULL ) OR (px_ipyv_rec.ipf_code = OKC_API.G_MISS_CHAR )) THEN
4750: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'ipf_code');
4751: x_return_status := OKC_API.G_RET_STS_ERROR;
4752: RAISE OKC_API.G_EXCEPTION_ERROR;
4753: -- Message --
4754: ELSE
4755: l_return_status := Okl_Util.check_lookup_code( G_FND_LOOKUP_PAYMENT_FREQ,px_ipyv_rec.ipf_code);
4748: -- For Payment frequency
4749: IF ((px_ipyv_rec.ipf_code IS NULL ) OR (px_ipyv_rec.ipf_code = OKC_API.G_MISS_CHAR )) THEN
4750: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'ipf_code');
4751: x_return_status := OKC_API.G_RET_STS_ERROR;
4752: RAISE OKC_API.G_EXCEPTION_ERROR;
4753: -- Message --
4754: ELSE
4755: l_return_status := Okl_Util.check_lookup_code( G_FND_LOOKUP_PAYMENT_FREQ,px_ipyv_rec.ipf_code);
4756: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4752: RAISE OKC_API.G_EXCEPTION_ERROR;
4753: -- Message --
4754: ELSE
4755: l_return_status := Okl_Util.check_lookup_code( G_FND_LOOKUP_PAYMENT_FREQ,px_ipyv_rec.ipf_code);
4756: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4757: x_return_status := l_return_status;
4758: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4759: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4760: OKC_API.set_message(g_app_name,G_NO_PARENT_RECORD,g_col_name_token,
4754: ELSE
4755: l_return_status := Okl_Util.check_lookup_code( G_FND_LOOKUP_PAYMENT_FREQ,px_ipyv_rec.ipf_code);
4756: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4757: x_return_status := l_return_status;
4758: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4759: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4760: OKC_API.set_message(g_app_name,G_NO_PARENT_RECORD,g_col_name_token,
4761: 'Payment Frequency' ,g_parent_table_token ,'FND_LOOKUPS');
4762: x_return_status := l_return_status;
4755: l_return_status := Okl_Util.check_lookup_code( G_FND_LOOKUP_PAYMENT_FREQ,px_ipyv_rec.ipf_code);
4756: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4757: x_return_status := l_return_status;
4758: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4759: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4760: OKC_API.set_message(g_app_name,G_NO_PARENT_RECORD,g_col_name_token,
4761: 'Payment Frequency' ,g_parent_table_token ,'FND_LOOKUPS');
4762: x_return_status := l_return_status;
4763: RAISE OKC_API.G_EXCEPTION_ERROR;
4756: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4757: x_return_status := l_return_status;
4758: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4759: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4760: OKC_API.set_message(g_app_name,G_NO_PARENT_RECORD,g_col_name_token,
4761: 'Payment Frequency' ,g_parent_table_token ,'FND_LOOKUPS');
4762: x_return_status := l_return_status;
4763: RAISE OKC_API.G_EXCEPTION_ERROR;
4764: END IF;
4759: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4760: OKC_API.set_message(g_app_name,G_NO_PARENT_RECORD,g_col_name_token,
4761: 'Payment Frequency' ,g_parent_table_token ,'FND_LOOKUPS');
4762: x_return_status := l_return_status;
4763: RAISE OKC_API.G_EXCEPTION_ERROR;
4764: END IF;
4765: END IF;
4766: -- For Contract ID
4767: IF ((px_ipyv_rec.khr_id IS NULL ) OR (px_ipyv_rec.khr_id = OKC_API.G_MISS_NUM )) THEN
4763: RAISE OKC_API.G_EXCEPTION_ERROR;
4764: END IF;
4765: END IF;
4766: -- For Contract ID
4767: IF ((px_ipyv_rec.khr_id IS NULL ) OR (px_ipyv_rec.khr_id = OKC_API.G_MISS_NUM )) THEN
4768: x_return_status := OKC_API.G_RET_STS_ERROR;
4769: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'Contract ID');
4770: RAISE OKC_API.G_EXCEPTION_ERROR;
4771: ELSE
4764: END IF;
4765: END IF;
4766: -- For Contract ID
4767: IF ((px_ipyv_rec.khr_id IS NULL ) OR (px_ipyv_rec.khr_id = OKC_API.G_MISS_NUM )) THEN
4768: x_return_status := OKC_API.G_RET_STS_ERROR;
4769: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'Contract ID');
4770: RAISE OKC_API.G_EXCEPTION_ERROR;
4771: ELSE
4772:
4765: END IF;
4766: -- For Contract ID
4767: IF ((px_ipyv_rec.khr_id IS NULL ) OR (px_ipyv_rec.khr_id = OKC_API.G_MISS_NUM )) THEN
4768: x_return_status := OKC_API.G_RET_STS_ERROR;
4769: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'Contract ID');
4770: RAISE OKC_API.G_EXCEPTION_ERROR;
4771: ELSE
4772:
4773:
4766: -- For Contract ID
4767: IF ((px_ipyv_rec.khr_id IS NULL ) OR (px_ipyv_rec.khr_id = OKC_API.G_MISS_NUM )) THEN
4768: x_return_status := OKC_API.G_RET_STS_ERROR;
4769: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'Contract ID');
4770: RAISE OKC_API.G_EXCEPTION_ERROR;
4771: ELSE
4772:
4773:
4774: OPEN l_contract_currency_csr(px_ipyv_rec.khr_id) ;
4786: FETCH c_asset_category_valid INTO l_dummy_var, l_asset_number ;
4787: CLOSE c_asset_category_valid ;
4788: -- still set to default means data was not found
4789: IF ( l_dummy_var = 'x' ) THEN
4790: OKC_API.set_message(g_app_name,
4791: 'OKL_NO_CATEGORY',
4792: g_col_name_token,
4793: l_asset_number
4794: );
4791: 'OKL_NO_CATEGORY',
4792: g_col_name_token,
4793: l_asset_number
4794: );
4795: x_return_status := OKC_API.G_RET_STS_ERROR;
4796: RAISE OKC_API.G_EXCEPTION_ERROR;
4797: END IF;
4798:
4799: -- Validate Insurance Class
4792: g_col_name_token,
4793: l_asset_number
4794: );
4795: x_return_status := OKC_API.G_RET_STS_ERROR;
4796: RAISE OKC_API.G_EXCEPTION_ERROR;
4797: END IF;
4798:
4799: -- Validate Insurance Class
4800: ELSE
4816: l_item_category,l_item ;
4817: CLOSE c_loan_item_category;
4818: IF (l_item_category IS NULL) THEN -- setup is incomplete
4819: -- otherwise throw an error
4820: OKC_API.set_message(g_app_name,
4821: 'OKL_NO_ITEM_CATEGORY',
4822: 'ITEM',
4823: l_item
4824: );
4821: 'OKL_NO_ITEM_CATEGORY',
4822: 'ITEM',
4823: l_item
4824: );
4825: x_return_status := OKC_API.G_RET_STS_ERROR;
4826: CLOSE c_loan_asset_category ;
4827:
4828: RAISE OKC_API.G_EXCEPTION_ERROR;
4829:
4824: );
4825: x_return_status := OKC_API.G_RET_STS_ERROR;
4826: CLOSE c_loan_asset_category ;
4827:
4828: RAISE OKC_API.G_EXCEPTION_ERROR;
4829:
4830:
4831: ELSE -- need to poplate value in okl_k_lines (financial)
4832: -- If asset_category in inventory setup, populate it in OKL_K_LINES
4835: l_klev_rec.ITEM_INSURANCE_CATEGORY := l_item_category ;
4836: Okl_Contract_Pub.update_contract_line
4837: (
4838: p_api_version => l_api_version ,
4839: p_init_msg_list => OKC_API.G_FALSE,
4840: x_return_status => x_return_status ,
4841: x_msg_count => x_msg_count,
4842: x_msg_data => x_msg_data ,
4843: p_clev_rec => l_clev_rec ,
4844: p_klev_rec => l_klev_rec,
4845: x_clev_rec => lx_clev_rec,
4846: x_klev_rec => lx_klev_rec );
4847:
4848: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4849: CLOSE c_loan_asset_category ;
4850: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4851: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
4852: CLOSE c_loan_asset_category ;
4846: x_klev_rec => lx_klev_rec );
4847:
4848: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4849: CLOSE c_loan_asset_category ;
4850: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4851: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
4852: CLOSE c_loan_asset_category ;
4853: RAISE OKC_API.G_EXCEPTION_ERROR;
4854: END IF;
4847:
4848: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4849: CLOSE c_loan_asset_category ;
4850: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4851: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
4852: CLOSE c_loan_asset_category ;
4853: RAISE OKC_API.G_EXCEPTION_ERROR;
4854: END IF;
4855:
4849: CLOSE c_loan_asset_category ;
4850: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4851: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
4852: CLOSE c_loan_asset_category ;
4853: RAISE OKC_API.G_EXCEPTION_ERROR;
4854: END IF;
4855:
4856:
4857:
4868:
4869:
4870: END IF;
4871: -- For From Date
4872: IF ((px_ipyv_rec.date_from IS NULL ) OR (px_ipyv_rec.date_from = OKC_API.G_MISS_DATE )) THEN
4873: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'Policy Effective From');
4874: x_return_status := OKC_API.G_RET_STS_ERROR;
4875: RAISE OKC_API.G_EXCEPTION_ERROR;
4876: END IF;
4869:
4870: END IF;
4871: -- For From Date
4872: IF ((px_ipyv_rec.date_from IS NULL ) OR (px_ipyv_rec.date_from = OKC_API.G_MISS_DATE )) THEN
4873: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'Policy Effective From');
4874: x_return_status := OKC_API.G_RET_STS_ERROR;
4875: RAISE OKC_API.G_EXCEPTION_ERROR;
4876: END IF;
4877: -- For To date
4870: END IF;
4871: -- For From Date
4872: IF ((px_ipyv_rec.date_from IS NULL ) OR (px_ipyv_rec.date_from = OKC_API.G_MISS_DATE )) THEN
4873: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'Policy Effective From');
4874: x_return_status := OKC_API.G_RET_STS_ERROR;
4875: RAISE OKC_API.G_EXCEPTION_ERROR;
4876: END IF;
4877: -- For To date
4878: IF ((px_ipyv_rec.date_to IS NULL ) OR (px_ipyv_rec.date_to = OKC_API.G_MISS_DATE )) THEN
4871: -- For From Date
4872: IF ((px_ipyv_rec.date_from IS NULL ) OR (px_ipyv_rec.date_from = OKC_API.G_MISS_DATE )) THEN
4873: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'Policy Effective From');
4874: x_return_status := OKC_API.G_RET_STS_ERROR;
4875: RAISE OKC_API.G_EXCEPTION_ERROR;
4876: END IF;
4877: -- For To date
4878: IF ((px_ipyv_rec.date_to IS NULL ) OR (px_ipyv_rec.date_to = OKC_API.G_MISS_DATE )) THEN
4879: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'Policy Effective To');
4874: x_return_status := OKC_API.G_RET_STS_ERROR;
4875: RAISE OKC_API.G_EXCEPTION_ERROR;
4876: END IF;
4877: -- For To date
4878: IF ((px_ipyv_rec.date_to IS NULL ) OR (px_ipyv_rec.date_to = OKC_API.G_MISS_DATE )) THEN
4879: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'Policy Effective To');
4880: x_return_status := OKC_API.G_RET_STS_ERROR;
4881: RAISE OKC_API.G_EXCEPTION_ERROR;
4882: END IF;
4875: RAISE OKC_API.G_EXCEPTION_ERROR;
4876: END IF;
4877: -- For To date
4878: IF ((px_ipyv_rec.date_to IS NULL ) OR (px_ipyv_rec.date_to = OKC_API.G_MISS_DATE )) THEN
4879: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'Policy Effective To');
4880: x_return_status := OKC_API.G_RET_STS_ERROR;
4881: RAISE OKC_API.G_EXCEPTION_ERROR;
4882: END IF;
4883: -- Quote date
4876: END IF;
4877: -- For To date
4878: IF ((px_ipyv_rec.date_to IS NULL ) OR (px_ipyv_rec.date_to = OKC_API.G_MISS_DATE )) THEN
4879: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'Policy Effective To');
4880: x_return_status := OKC_API.G_RET_STS_ERROR;
4881: RAISE OKC_API.G_EXCEPTION_ERROR;
4882: END IF;
4883: -- Quote date
4884: IF ((px_ipyv_rec.DATE_QUOTED IS NULL ) OR (px_ipyv_rec.DATE_QUOTED = OKC_API.G_MISS_DATE )) THEN
4877: -- For To date
4878: IF ((px_ipyv_rec.date_to IS NULL ) OR (px_ipyv_rec.date_to = OKC_API.G_MISS_DATE )) THEN
4879: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'Policy Effective To');
4880: x_return_status := OKC_API.G_RET_STS_ERROR;
4881: RAISE OKC_API.G_EXCEPTION_ERROR;
4882: END IF;
4883: -- Quote date
4884: IF ((px_ipyv_rec.DATE_QUOTED IS NULL ) OR (px_ipyv_rec.DATE_QUOTED = OKC_API.G_MISS_DATE )) THEN
4885: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'Quote Effective From');
4880: x_return_status := OKC_API.G_RET_STS_ERROR;
4881: RAISE OKC_API.G_EXCEPTION_ERROR;
4882: END IF;
4883: -- Quote date
4884: IF ((px_ipyv_rec.DATE_QUOTED IS NULL ) OR (px_ipyv_rec.DATE_QUOTED = OKC_API.G_MISS_DATE )) THEN
4885: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'Quote Effective From');
4886: x_return_status := OKC_API.G_RET_STS_ERROR;
4887: RAISE OKC_API.G_EXCEPTION_ERROR;
4888: END IF;
4881: RAISE OKC_API.G_EXCEPTION_ERROR;
4882: END IF;
4883: -- Quote date
4884: IF ((px_ipyv_rec.DATE_QUOTED IS NULL ) OR (px_ipyv_rec.DATE_QUOTED = OKC_API.G_MISS_DATE )) THEN
4885: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'Quote Effective From');
4886: x_return_status := OKC_API.G_RET_STS_ERROR;
4887: RAISE OKC_API.G_EXCEPTION_ERROR;
4888: END IF;
4889: -- Quote expiry date
4882: END IF;
4883: -- Quote date
4884: IF ((px_ipyv_rec.DATE_QUOTED IS NULL ) OR (px_ipyv_rec.DATE_QUOTED = OKC_API.G_MISS_DATE )) THEN
4885: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'Quote Effective From');
4886: x_return_status := OKC_API.G_RET_STS_ERROR;
4887: RAISE OKC_API.G_EXCEPTION_ERROR;
4888: END IF;
4889: -- Quote expiry date
4890: IF ((px_ipyv_rec.DATE_QUOTE_EXPIRY IS NULL ) OR (px_ipyv_rec.DATE_QUOTE_EXPIRY = OKC_API.G_MISS_DATE )) THEN
4883: -- Quote date
4884: IF ((px_ipyv_rec.DATE_QUOTED IS NULL ) OR (px_ipyv_rec.DATE_QUOTED = OKC_API.G_MISS_DATE )) THEN
4885: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'Quote Effective From');
4886: x_return_status := OKC_API.G_RET_STS_ERROR;
4887: RAISE OKC_API.G_EXCEPTION_ERROR;
4888: END IF;
4889: -- Quote expiry date
4890: IF ((px_ipyv_rec.DATE_QUOTE_EXPIRY IS NULL ) OR (px_ipyv_rec.DATE_QUOTE_EXPIRY = OKC_API.G_MISS_DATE )) THEN
4891: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'Quote Effective To');
4886: x_return_status := OKC_API.G_RET_STS_ERROR;
4887: RAISE OKC_API.G_EXCEPTION_ERROR;
4888: END IF;
4889: -- Quote expiry date
4890: IF ((px_ipyv_rec.DATE_QUOTE_EXPIRY IS NULL ) OR (px_ipyv_rec.DATE_QUOTE_EXPIRY = OKC_API.G_MISS_DATE )) THEN
4891: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'Quote Effective To');
4892: x_return_status := OKC_API.G_RET_STS_ERROR;
4893: RAISE OKC_API.G_EXCEPTION_ERROR;
4894: END IF;
4887: RAISE OKC_API.G_EXCEPTION_ERROR;
4888: END IF;
4889: -- Quote expiry date
4890: IF ((px_ipyv_rec.DATE_QUOTE_EXPIRY IS NULL ) OR (px_ipyv_rec.DATE_QUOTE_EXPIRY = OKC_API.G_MISS_DATE )) THEN
4891: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'Quote Effective To');
4892: x_return_status := OKC_API.G_RET_STS_ERROR;
4893: RAISE OKC_API.G_EXCEPTION_ERROR;
4894: END IF;
4895:
4888: END IF;
4889: -- Quote expiry date
4890: IF ((px_ipyv_rec.DATE_QUOTE_EXPIRY IS NULL ) OR (px_ipyv_rec.DATE_QUOTE_EXPIRY = OKC_API.G_MISS_DATE )) THEN
4891: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'Quote Effective To');
4892: x_return_status := OKC_API.G_RET_STS_ERROR;
4893: RAISE OKC_API.G_EXCEPTION_ERROR;
4894: END IF;
4895:
4896: l_return_status:= Okl_Util.check_from_to_date_range( px_ipyv_rec.date_from
4889: -- Quote expiry date
4890: IF ((px_ipyv_rec.DATE_QUOTE_EXPIRY IS NULL ) OR (px_ipyv_rec.DATE_QUOTE_EXPIRY = OKC_API.G_MISS_DATE )) THEN
4891: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'Quote Effective To');
4892: x_return_status := OKC_API.G_RET_STS_ERROR;
4893: RAISE OKC_API.G_EXCEPTION_ERROR;
4894: END IF;
4895:
4896: l_return_status:= Okl_Util.check_from_to_date_range( px_ipyv_rec.date_from
4897: ,px_ipyv_rec.date_to );
4894: END IF;
4895:
4896: l_return_status:= Okl_Util.check_from_to_date_range( px_ipyv_rec.date_from
4897: ,px_ipyv_rec.date_to );
4898: IF(l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
4899: -- store SQL error message on message stack for caller
4900: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,
4901: SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
4902: x_return_status := Okc_Api.G_RET_STS_UNEXP_ERROR ;
4896: l_return_status:= Okl_Util.check_from_to_date_range( px_ipyv_rec.date_from
4897: ,px_ipyv_rec.date_to );
4898: IF(l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
4899: -- store SQL error message on message stack for caller
4900: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,
4901: SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
4902: x_return_status := Okc_Api.G_RET_STS_UNEXP_ERROR ;
4903: RAISE G_EXCEPTION_HALT_VALIDATION;
4904: ELSIF (l_return_status <> Okc_Api.G_RET_STS_SUCCESS) THEN
4898: IF(l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
4899: -- store SQL error message on message stack for caller
4900: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,
4901: SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
4902: x_return_status := Okc_Api.G_RET_STS_UNEXP_ERROR ;
4903: RAISE G_EXCEPTION_HALT_VALIDATION;
4904: ELSIF (l_return_status <> Okc_Api.G_RET_STS_SUCCESS) THEN
4905: Okc_Api.set_message(p_app_name => g_app_name,
4906: p_msg_name => 'OKL_INVALID_END_DATE', -- 3745151 fix for wrong error message
4900: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,
4901: SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
4902: x_return_status := Okc_Api.G_RET_STS_UNEXP_ERROR ;
4903: RAISE G_EXCEPTION_HALT_VALIDATION;
4904: ELSIF (l_return_status <> Okc_Api.G_RET_STS_SUCCESS) THEN
4905: Okc_Api.set_message(p_app_name => g_app_name,
4906: p_msg_name => 'OKL_INVALID_END_DATE', -- 3745151 fix for wrong error message
4907: p_token1 => 'COL_NAME1',
4908: p_token1_value => 'Effective To',
4901: SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
4902: x_return_status := Okc_Api.G_RET_STS_UNEXP_ERROR ;
4903: RAISE G_EXCEPTION_HALT_VALIDATION;
4904: ELSIF (l_return_status <> Okc_Api.G_RET_STS_SUCCESS) THEN
4905: Okc_Api.set_message(p_app_name => g_app_name,
4906: p_msg_name => 'OKL_INVALID_END_DATE', -- 3745151 fix for wrong error message
4907: p_token1 => 'COL_NAME1',
4908: p_token1_value => 'Effective To',
4909: p_token2 => 'COL_NAME2',
4907: p_token1 => 'COL_NAME1',
4908: p_token1_value => 'Effective To',
4909: p_token2 => 'COL_NAME2',
4910: p_token2_value => 'Effective From');
4911: x_return_status := OKC_API.G_RET_STS_ERROR;
4912: RAISE OKC_API.G_EXCEPTION_ERROR;
4913: END IF;
4914: --- Get Contract Term
4915: BEGIN
4908: p_token1_value => 'Effective To',
4909: p_token2 => 'COL_NAME2',
4910: p_token2_value => 'Effective From');
4911: x_return_status := OKC_API.G_RET_STS_ERROR;
4912: RAISE OKC_API.G_EXCEPTION_ERROR;
4913: END IF;
4914: --- Get Contract Term
4915: BEGIN
4916: get_contract_term(px_ipyv_rec.khr_id ,
4916: get_contract_term(px_ipyv_rec.khr_id ,
4917: l_khr_st_date ,
4918: l_khr_end_date ,
4919: l_return_status );
4920: IF(l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
4921: -- store SQL error message on message stack for caller
4922: x_return_status := Okc_Api.G_RET_STS_UNEXP_ERROR ;
4923: RAISE G_EXCEPTION_HALT_VALIDATION;
4924: ELSIF (l_return_status <> Okc_Api.G_RET_STS_SUCCESS) THEN
4918: l_khr_end_date ,
4919: l_return_status );
4920: IF(l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
4921: -- store SQL error message on message stack for caller
4922: x_return_status := Okc_Api.G_RET_STS_UNEXP_ERROR ;
4923: RAISE G_EXCEPTION_HALT_VALIDATION;
4924: ELSIF (l_return_status <> Okc_Api.G_RET_STS_SUCCESS) THEN
4925: x_return_status := OKC_API.G_RET_STS_ERROR;
4926: RAISE OKC_API.G_EXCEPTION_ERROR;
4920: IF(l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
4921: -- store SQL error message on message stack for caller
4922: x_return_status := Okc_Api.G_RET_STS_UNEXP_ERROR ;
4923: RAISE G_EXCEPTION_HALT_VALIDATION;
4924: ELSIF (l_return_status <> Okc_Api.G_RET_STS_SUCCESS) THEN
4925: x_return_status := OKC_API.G_RET_STS_ERROR;
4926: RAISE OKC_API.G_EXCEPTION_ERROR;
4927: END IF;
4928: -- verify that cursor was closed
4921: -- store SQL error message on message stack for caller
4922: x_return_status := Okc_Api.G_RET_STS_UNEXP_ERROR ;
4923: RAISE G_EXCEPTION_HALT_VALIDATION;
4924: ELSIF (l_return_status <> Okc_Api.G_RET_STS_SUCCESS) THEN
4925: x_return_status := OKC_API.G_RET_STS_ERROR;
4926: RAISE OKC_API.G_EXCEPTION_ERROR;
4927: END IF;
4928: -- verify that cursor was closed
4929: END ;
4922: x_return_status := Okc_Api.G_RET_STS_UNEXP_ERROR ;
4923: RAISE G_EXCEPTION_HALT_VALIDATION;
4924: ELSIF (l_return_status <> Okc_Api.G_RET_STS_SUCCESS) THEN
4925: x_return_status := OKC_API.G_RET_STS_ERROR;
4926: RAISE OKC_API.G_EXCEPTION_ERROR;
4927: END IF;
4928: -- verify that cursor was closed
4929: END ;
4930:
4931: --- To validate with contract term
4932:
4933: IF (px_ipyv_rec.date_from < l_khr_st_date) OR (px_ipyv_rec.date_from > l_khr_end_date) THEN
4934: -- store SQL error message on message stack for caller
4935: Okc_Api.set_message( p_app_name => g_app_name,
4936: p_msg_name => G_INVALID_INSURANCE_TERM );
4937: x_return_status := OKC_API.G_RET_STS_ERROR;
4938: RAISE OKC_API.G_EXCEPTION_ERROR;
4939: ELSIF (px_ipyv_rec.date_to < l_khr_st_date) OR (px_ipyv_rec.date_to > l_khr_end_date) THEN
4933: IF (px_ipyv_rec.date_from < l_khr_st_date) OR (px_ipyv_rec.date_from > l_khr_end_date) THEN
4934: -- store SQL error message on message stack for caller
4935: Okc_Api.set_message( p_app_name => g_app_name,
4936: p_msg_name => G_INVALID_INSURANCE_TERM );
4937: x_return_status := OKC_API.G_RET_STS_ERROR;
4938: RAISE OKC_API.G_EXCEPTION_ERROR;
4939: ELSIF (px_ipyv_rec.date_to < l_khr_st_date) OR (px_ipyv_rec.date_to > l_khr_end_date) THEN
4940: Okc_Api.set_message( p_app_name => g_app_name,
4941: p_msg_name => G_INVALID_INSURANCE_TERM );
4934: -- store SQL error message on message stack for caller
4935: Okc_Api.set_message( p_app_name => g_app_name,
4936: p_msg_name => G_INVALID_INSURANCE_TERM );
4937: x_return_status := OKC_API.G_RET_STS_ERROR;
4938: RAISE OKC_API.G_EXCEPTION_ERROR;
4939: ELSIF (px_ipyv_rec.date_to < l_khr_st_date) OR (px_ipyv_rec.date_to > l_khr_end_date) THEN
4940: Okc_Api.set_message( p_app_name => g_app_name,
4941: p_msg_name => G_INVALID_INSURANCE_TERM );
4942: x_return_status := OKC_API.G_RET_STS_ERROR;
4936: p_msg_name => G_INVALID_INSURANCE_TERM );
4937: x_return_status := OKC_API.G_RET_STS_ERROR;
4938: RAISE OKC_API.G_EXCEPTION_ERROR;
4939: ELSIF (px_ipyv_rec.date_to < l_khr_st_date) OR (px_ipyv_rec.date_to > l_khr_end_date) THEN
4940: Okc_Api.set_message( p_app_name => g_app_name,
4941: p_msg_name => G_INVALID_INSURANCE_TERM );
4942: x_return_status := OKC_API.G_RET_STS_ERROR;
4943: RAISE OKC_API.G_EXCEPTION_ERROR;
4944: END IF;
4938: RAISE OKC_API.G_EXCEPTION_ERROR;
4939: ELSIF (px_ipyv_rec.date_to < l_khr_st_date) OR (px_ipyv_rec.date_to > l_khr_end_date) THEN
4940: Okc_Api.set_message( p_app_name => g_app_name,
4941: p_msg_name => G_INVALID_INSURANCE_TERM );
4942: x_return_status := OKC_API.G_RET_STS_ERROR;
4943: RAISE OKC_API.G_EXCEPTION_ERROR;
4944: END IF;
4945:
4946: -- gboomina Bug 4744724 - Added - Validate Quote's date with Insurance Term - Start
4939: ELSIF (px_ipyv_rec.date_to < l_khr_st_date) OR (px_ipyv_rec.date_to > l_khr_end_date) THEN
4940: Okc_Api.set_message( p_app_name => g_app_name,
4941: p_msg_name => G_INVALID_INSURANCE_TERM );
4942: x_return_status := OKC_API.G_RET_STS_ERROR;
4943: RAISE OKC_API.G_EXCEPTION_ERROR;
4944: END IF;
4945:
4946: -- gboomina Bug 4744724 - Added - Validate Quote's date with Insurance Term - Start
4947: IF (px_ipyv_rec.DATE_QUOTE_EXPIRY > px_ipyv_rec.date_to) THEN
4945:
4946: -- gboomina Bug 4744724 - Added - Validate Quote's date with Insurance Term - Start
4947: IF (px_ipyv_rec.DATE_QUOTE_EXPIRY > px_ipyv_rec.date_to) THEN
4948: -- store SQL error message on message stack for caller
4949: Okc_Api.set_message( p_app_name => g_app_name,
4950: p_msg_name => G_INVALID_QUOTE_TERM );
4951: x_return_status := OKC_API.G_RET_STS_ERROR;
4952: RAISE OKC_API.G_EXCEPTION_ERROR;
4953: END IF;
4947: IF (px_ipyv_rec.DATE_QUOTE_EXPIRY > px_ipyv_rec.date_to) THEN
4948: -- store SQL error message on message stack for caller
4949: Okc_Api.set_message( p_app_name => g_app_name,
4950: p_msg_name => G_INVALID_QUOTE_TERM );
4951: x_return_status := OKC_API.G_RET_STS_ERROR;
4952: RAISE OKC_API.G_EXCEPTION_ERROR;
4953: END IF;
4954: -- gboomina Bug 4744724 - Added - Validate Quote's date with Insurance Term - End
4955:
4948: -- store SQL error message on message stack for caller
4949: Okc_Api.set_message( p_app_name => g_app_name,
4950: p_msg_name => G_INVALID_QUOTE_TERM );
4951: x_return_status := OKC_API.G_RET_STS_ERROR;
4952: RAISE OKC_API.G_EXCEPTION_ERROR;
4953: END IF;
4954: -- gboomina Bug 4744724 - Added - Validate Quote's date with Insurance Term - End
4955:
4956:
4954: -- gboomina Bug 4744724 - Added - Validate Quote's date with Insurance Term - End
4955:
4956:
4957: -- For IPY TYPE
4958: IF ((px_ipyv_rec.ipy_type IS NULL ) OR (px_ipyv_rec.ipy_type = OKC_API.G_MISS_CHAR )) THEN
4959: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'Policy Type');
4960: x_return_status := OKC_API.G_RET_STS_ERROR;
4961: RAISE OKC_API.G_EXCEPTION_ERROR;
4962: ELSE
4955:
4956:
4957: -- For IPY TYPE
4958: IF ((px_ipyv_rec.ipy_type IS NULL ) OR (px_ipyv_rec.ipy_type = OKC_API.G_MISS_CHAR )) THEN
4959: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'Policy Type');
4960: x_return_status := OKC_API.G_RET_STS_ERROR;
4961: RAISE OKC_API.G_EXCEPTION_ERROR;
4962: ELSE
4963: IF( px_ipyv_rec.ipy_type <> 'LEASE_POLICY' )THEN
4956:
4957: -- For IPY TYPE
4958: IF ((px_ipyv_rec.ipy_type IS NULL ) OR (px_ipyv_rec.ipy_type = OKC_API.G_MISS_CHAR )) THEN
4959: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'Policy Type');
4960: x_return_status := OKC_API.G_RET_STS_ERROR;
4961: RAISE OKC_API.G_EXCEPTION_ERROR;
4962: ELSE
4963: IF( px_ipyv_rec.ipy_type <> 'LEASE_POLICY' )THEN
4964: OKC_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'Policy Type',G_COL_VALUE_TOKEN, 'Lease Policy' );
4957: -- For IPY TYPE
4958: IF ((px_ipyv_rec.ipy_type IS NULL ) OR (px_ipyv_rec.ipy_type = OKC_API.G_MISS_CHAR )) THEN
4959: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'Policy Type');
4960: x_return_status := OKC_API.G_RET_STS_ERROR;
4961: RAISE OKC_API.G_EXCEPTION_ERROR;
4962: ELSE
4963: IF( px_ipyv_rec.ipy_type <> 'LEASE_POLICY' )THEN
4964: OKC_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'Policy Type',G_COL_VALUE_TOKEN, 'Lease Policy' );
4965: x_return_status := OKC_API.G_RET_STS_ERROR;
4960: x_return_status := OKC_API.G_RET_STS_ERROR;
4961: RAISE OKC_API.G_EXCEPTION_ERROR;
4962: ELSE
4963: IF( px_ipyv_rec.ipy_type <> 'LEASE_POLICY' )THEN
4964: OKC_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'Policy Type',G_COL_VALUE_TOKEN, 'Lease Policy' );
4965: x_return_status := OKC_API.G_RET_STS_ERROR;
4966: RAISE OKC_API.G_EXCEPTION_ERROR;
4967: END IF ;
4968: END IF;
4961: RAISE OKC_API.G_EXCEPTION_ERROR;
4962: ELSE
4963: IF( px_ipyv_rec.ipy_type <> 'LEASE_POLICY' )THEN
4964: OKC_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'Policy Type',G_COL_VALUE_TOKEN, 'Lease Policy' );
4965: x_return_status := OKC_API.G_RET_STS_ERROR;
4966: RAISE OKC_API.G_EXCEPTION_ERROR;
4967: END IF ;
4968: END IF;
4969: -- For Location
4962: ELSE
4963: IF( px_ipyv_rec.ipy_type <> 'LEASE_POLICY' )THEN
4964: OKC_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'Policy Type',G_COL_VALUE_TOKEN, 'Lease Policy' );
4965: x_return_status := OKC_API.G_RET_STS_ERROR;
4966: RAISE OKC_API.G_EXCEPTION_ERROR;
4967: END IF ;
4968: END IF;
4969: -- For Location
4970: IF ((px_ipyv_rec.territory_code IS NULL ) OR (px_ipyv_rec.territory_code = OKC_API.G_MISS_CHAR )) THEN
4966: RAISE OKC_API.G_EXCEPTION_ERROR;
4967: END IF ;
4968: END IF;
4969: -- For Location
4970: IF ((px_ipyv_rec.territory_code IS NULL ) OR (px_ipyv_rec.territory_code = OKC_API.G_MISS_CHAR )) THEN
4971: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'Location');
4972: x_return_status := OKC_API.G_RET_STS_ERROR;
4973: RAISE OKC_API.G_EXCEPTION_ERROR;
4974: END IF ;
4967: END IF ;
4968: END IF;
4969: -- For Location
4970: IF ((px_ipyv_rec.territory_code IS NULL ) OR (px_ipyv_rec.territory_code = OKC_API.G_MISS_CHAR )) THEN
4971: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'Location');
4972: x_return_status := OKC_API.G_RET_STS_ERROR;
4973: RAISE OKC_API.G_EXCEPTION_ERROR;
4974: END IF ;
4975:
4968: END IF;
4969: -- For Location
4970: IF ((px_ipyv_rec.territory_code IS NULL ) OR (px_ipyv_rec.territory_code = OKC_API.G_MISS_CHAR )) THEN
4971: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'Location');
4972: x_return_status := OKC_API.G_RET_STS_ERROR;
4973: RAISE OKC_API.G_EXCEPTION_ERROR;
4974: END IF ;
4975:
4976: OPEN okl_k_capital_amt_csr(px_ipyv_rec.KHR_ID);
4969: -- For Location
4970: IF ((px_ipyv_rec.territory_code IS NULL ) OR (px_ipyv_rec.territory_code = OKC_API.G_MISS_CHAR )) THEN
4971: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'Location');
4972: x_return_status := OKC_API.G_RET_STS_ERROR;
4973: RAISE OKC_API.G_EXCEPTION_ERROR;
4974: END IF ;
4975:
4976: OPEN okl_k_capital_amt_csr(px_ipyv_rec.KHR_ID);
4977: FETCH okl_k_capital_amt_csr INTO l_con_deal_amount ;
4975:
4976: OPEN okl_k_capital_amt_csr(px_ipyv_rec.KHR_ID);
4977: FETCH okl_k_capital_amt_csr INTO l_con_deal_amount ;
4978: IF( okl_k_capital_amt_csr%NOTFOUND) THEN
4979: OKC_API.set_message(G_APP_NAME, G_NO_CAPITAL_AMOUNT );
4980: IF okl_k_capital_amt_csr%ISOPEN THEN
4981: CLOSE okl_k_capital_amt_csr;
4982: END IF;
4983: x_return_status := OKC_API.G_RET_STS_ERROR;
4979: OKC_API.set_message(G_APP_NAME, G_NO_CAPITAL_AMOUNT );
4980: IF okl_k_capital_amt_csr%ISOPEN THEN
4981: CLOSE okl_k_capital_amt_csr;
4982: END IF;
4983: x_return_status := OKC_API.G_RET_STS_ERROR;
4984: RAISE OKC_API.G_EXCEPTION_ERROR;
4985: END IF;
4986: CLOSE okl_k_capital_amt_csr;
4987:
4980: IF okl_k_capital_amt_csr%ISOPEN THEN
4981: CLOSE okl_k_capital_amt_csr;
4982: END IF;
4983: x_return_status := OKC_API.G_RET_STS_ERROR;
4984: RAISE OKC_API.G_EXCEPTION_ERROR;
4985: END IF;
4986: CLOSE okl_k_capital_amt_csr;
4987:
4988:
4987:
4988:
4989: -- Get System Profile value of maximum deal amount....
4990: l_max_deal := fnd_profile.value('OKLINMAXDEALSIZE');
4991: IF ((l_max_deal IS NULL ) OR (l_max_deal = OKC_API.G_MISS_NUM )) THEN
4992: x_return_status := OKC_API.G_RET_STS_ERROR;
4993: OKC_API.set_message(G_APP_NAME, G_NO_SYSTEM_PROFILE,G_SYS_PROFILE_NAME,'OKLINMAXDEALSIZE' );
4994: x_message := OKL_INS_QUOTE_PVT.G_NO_INS ;
4995: RAISE OKC_API.G_EXCEPTION_ERROR;
4988:
4989: -- Get System Profile value of maximum deal amount....
4990: l_max_deal := fnd_profile.value('OKLINMAXDEALSIZE');
4991: IF ((l_max_deal IS NULL ) OR (l_max_deal = OKC_API.G_MISS_NUM )) THEN
4992: x_return_status := OKC_API.G_RET_STS_ERROR;
4993: OKC_API.set_message(G_APP_NAME, G_NO_SYSTEM_PROFILE,G_SYS_PROFILE_NAME,'OKLINMAXDEALSIZE' );
4994: x_message := OKL_INS_QUOTE_PVT.G_NO_INS ;
4995: RAISE OKC_API.G_EXCEPTION_ERROR;
4996: END IF ;
4989: -- Get System Profile value of maximum deal amount....
4990: l_max_deal := fnd_profile.value('OKLINMAXDEALSIZE');
4991: IF ((l_max_deal IS NULL ) OR (l_max_deal = OKC_API.G_MISS_NUM )) THEN
4992: x_return_status := OKC_API.G_RET_STS_ERROR;
4993: OKC_API.set_message(G_APP_NAME, G_NO_SYSTEM_PROFILE,G_SYS_PROFILE_NAME,'OKLINMAXDEALSIZE' );
4994: x_message := OKL_INS_QUOTE_PVT.G_NO_INS ;
4995: RAISE OKC_API.G_EXCEPTION_ERROR;
4996: END IF ;
4997:
4991: IF ((l_max_deal IS NULL ) OR (l_max_deal = OKC_API.G_MISS_NUM )) THEN
4992: x_return_status := OKC_API.G_RET_STS_ERROR;
4993: OKC_API.set_message(G_APP_NAME, G_NO_SYSTEM_PROFILE,G_SYS_PROFILE_NAME,'OKLINMAXDEALSIZE' );
4994: x_message := OKL_INS_QUOTE_PVT.G_NO_INS ;
4995: RAISE OKC_API.G_EXCEPTION_ERROR;
4996: END IF ;
4997:
4998: ---- Get deal amount in functional Currency
4999: OKL_ACCOUNTING_UTIL.convert_to_functional_currency
5012:
5013: -- Business Rule for Maximum Coverage.
5014: IF ( l_fun_deal_amount >l_max_deal) THEN
5015:
5016: OKC_API.set_message(G_APP_NAME, G_NO_INSURANCE,G_COL_NAME_TOKEN,
5017: l_contract_number,'SYS_VALUE', 'Maximum Deal Amount' );
5018: x_return_status := OKC_API.G_RET_STS_ERROR;
5019: x_message := OKL_INS_QUOTE_PVT.G_NO_INS ;
5020: -- Message --
5014: IF ( l_fun_deal_amount >l_max_deal) THEN
5015:
5016: OKC_API.set_message(G_APP_NAME, G_NO_INSURANCE,G_COL_NAME_TOKEN,
5017: l_contract_number,'SYS_VALUE', 'Maximum Deal Amount' );
5018: x_return_status := OKC_API.G_RET_STS_ERROR;
5019: x_message := OKL_INS_QUOTE_PVT.G_NO_INS ;
5020: -- Message --
5021: RAISE OKC_API.G_EXCEPTION_ERROR;
5022: END IF;
5017: l_contract_number,'SYS_VALUE', 'Maximum Deal Amount' );
5018: x_return_status := OKC_API.G_RET_STS_ERROR;
5019: x_message := OKL_INS_QUOTE_PVT.G_NO_INS ;
5020: -- Message --
5021: RAISE OKC_API.G_EXCEPTION_ERROR;
5022: END IF;
5023: -- Get deal term in months
5024:
5025: OPEN okl_k_deal_size_csr(px_ipyv_rec.KHR_ID);
5025: OPEN okl_k_deal_size_csr(px_ipyv_rec.KHR_ID);
5026: -- Changed Contract ID to Contract Number 05/16/02
5027: FETCH okl_k_deal_size_csr INTO l_deal_size, l_contract_number ;
5028: IF( okl_k_deal_size_csr%NOTFOUND) THEN
5029: OKC_API.set_message(G_APP_NAME, G_NO_K_TERM,G_COL_VALUE_TOKEN,l_contract_number );
5030: IF okl_k_deal_size_csr%ISOPEN THEN
5031: CLOSE okl_k_deal_size_csr;
5032: END IF;
5033: x_return_status := OKC_API.G_RET_STS_ERROR;
5029: OKC_API.set_message(G_APP_NAME, G_NO_K_TERM,G_COL_VALUE_TOKEN,l_contract_number );
5030: IF okl_k_deal_size_csr%ISOPEN THEN
5031: CLOSE okl_k_deal_size_csr;
5032: END IF;
5033: x_return_status := OKC_API.G_RET_STS_ERROR;
5034: RAISE OKC_API.G_EXCEPTION_ERROR;
5035: END IF;
5036: CLOSE okl_k_deal_size_csr;
5037:
5030: IF okl_k_deal_size_csr%ISOPEN THEN
5031: CLOSE okl_k_deal_size_csr;
5032: END IF;
5033: x_return_status := OKC_API.G_RET_STS_ERROR;
5034: RAISE OKC_API.G_EXCEPTION_ERROR;
5035: END IF;
5036: CLOSE okl_k_deal_size_csr;
5037:
5038: -- get max deal term for insurance providing
5036: CLOSE okl_k_deal_size_csr;
5037:
5038: -- get max deal term for insurance providing
5039: l_max_term := fnd_profile.value('OKLINMAXTERMFORINS');
5040: IF ((l_max_term IS NULL ) OR (l_max_term = OKC_API.G_MISS_NUM )) THEN
5041: OKC_API.set_message(G_APP_NAME, G_NO_SYSTEM_PROFILE,G_SYS_PROFILE_NAME,'OKLINMAXTERMFORINS' );
5042: x_return_status := OKC_API.G_RET_STS_ERROR;
5043: RAISE OKC_API.G_EXCEPTION_ERROR;
5044: END IF ;
5037:
5038: -- get max deal term for insurance providing
5039: l_max_term := fnd_profile.value('OKLINMAXTERMFORINS');
5040: IF ((l_max_term IS NULL ) OR (l_max_term = OKC_API.G_MISS_NUM )) THEN
5041: OKC_API.set_message(G_APP_NAME, G_NO_SYSTEM_PROFILE,G_SYS_PROFILE_NAME,'OKLINMAXTERMFORINS' );
5042: x_return_status := OKC_API.G_RET_STS_ERROR;
5043: RAISE OKC_API.G_EXCEPTION_ERROR;
5044: END IF ;
5045: -- get min deal term for insurance providing
5038: -- get max deal term for insurance providing
5039: l_max_term := fnd_profile.value('OKLINMAXTERMFORINS');
5040: IF ((l_max_term IS NULL ) OR (l_max_term = OKC_API.G_MISS_NUM )) THEN
5041: OKC_API.set_message(G_APP_NAME, G_NO_SYSTEM_PROFILE,G_SYS_PROFILE_NAME,'OKLINMAXTERMFORINS' );
5042: x_return_status := OKC_API.G_RET_STS_ERROR;
5043: RAISE OKC_API.G_EXCEPTION_ERROR;
5044: END IF ;
5045: -- get min deal term for insurance providing
5046: l_min_term := fnd_profile.value('OKLINMINTERMFORINS');
5039: l_max_term := fnd_profile.value('OKLINMAXTERMFORINS');
5040: IF ((l_max_term IS NULL ) OR (l_max_term = OKC_API.G_MISS_NUM )) THEN
5041: OKC_API.set_message(G_APP_NAME, G_NO_SYSTEM_PROFILE,G_SYS_PROFILE_NAME,'OKLINMAXTERMFORINS' );
5042: x_return_status := OKC_API.G_RET_STS_ERROR;
5043: RAISE OKC_API.G_EXCEPTION_ERROR;
5044: END IF ;
5045: -- get min deal term for insurance providing
5046: l_min_term := fnd_profile.value('OKLINMINTERMFORINS');
5047: IF ((l_min_term IS NULL ) OR (l_min_term = OKC_API.G_MISS_NUM )) THEN
5043: RAISE OKC_API.G_EXCEPTION_ERROR;
5044: END IF ;
5045: -- get min deal term for insurance providing
5046: l_min_term := fnd_profile.value('OKLINMINTERMFORINS');
5047: IF ((l_min_term IS NULL ) OR (l_min_term = OKC_API.G_MISS_NUM )) THEN
5048: OKC_API.set_message(G_APP_NAME, G_NO_SYSTEM_PROFILE,
5049: G_SYS_PROFILE_NAME,'OKLINMINTERMFORINS' );
5050: x_return_status := OKC_API.G_RET_STS_ERROR;
5051: RAISE OKC_API.G_EXCEPTION_ERROR;
5044: END IF ;
5045: -- get min deal term for insurance providing
5046: l_min_term := fnd_profile.value('OKLINMINTERMFORINS');
5047: IF ((l_min_term IS NULL ) OR (l_min_term = OKC_API.G_MISS_NUM )) THEN
5048: OKC_API.set_message(G_APP_NAME, G_NO_SYSTEM_PROFILE,
5049: G_SYS_PROFILE_NAME,'OKLINMINTERMFORINS' );
5050: x_return_status := OKC_API.G_RET_STS_ERROR;
5051: RAISE OKC_API.G_EXCEPTION_ERROR;
5052: END IF ;
5046: l_min_term := fnd_profile.value('OKLINMINTERMFORINS');
5047: IF ((l_min_term IS NULL ) OR (l_min_term = OKC_API.G_MISS_NUM )) THEN
5048: OKC_API.set_message(G_APP_NAME, G_NO_SYSTEM_PROFILE,
5049: G_SYS_PROFILE_NAME,'OKLINMINTERMFORINS' );
5050: x_return_status := OKC_API.G_RET_STS_ERROR;
5051: RAISE OKC_API.G_EXCEPTION_ERROR;
5052: END IF ;
5053:
5054: -- Business Rule for term for which we can sell insurance
5047: IF ((l_min_term IS NULL ) OR (l_min_term = OKC_API.G_MISS_NUM )) THEN
5048: OKC_API.set_message(G_APP_NAME, G_NO_SYSTEM_PROFILE,
5049: G_SYS_PROFILE_NAME,'OKLINMINTERMFORINS' );
5050: x_return_status := OKC_API.G_RET_STS_ERROR;
5051: RAISE OKC_API.G_EXCEPTION_ERROR;
5052: END IF ;
5053:
5054: -- Business Rule for term for which we can sell insurance
5055: IF ( (l_deal_size >l_max_term) OR (l_deal_size < l_min_term) ) THEN
5054: -- Business Rule for term for which we can sell insurance
5055: IF ( (l_deal_size >l_max_term) OR (l_deal_size < l_min_term) ) THEN
5056: x_message := OKL_INS_QUOTE_PVT.G_NO_INS ;
5057:
5058: OKC_API.set_message(G_APP_NAME, G_NO_INSURANCE,G_COL_NAME_TOKEN,
5059: l_contract_number,'SYS_VALUE', 'Deal Term' );
5060: x_return_status := OKC_API.G_RET_STS_ERROR;
5061: RAISE OKC_API.G_EXCEPTION_ERROR;
5062: END IF;
5056: x_message := OKL_INS_QUOTE_PVT.G_NO_INS ;
5057:
5058: OKC_API.set_message(G_APP_NAME, G_NO_INSURANCE,G_COL_NAME_TOKEN,
5059: l_contract_number,'SYS_VALUE', 'Deal Term' );
5060: x_return_status := OKC_API.G_RET_STS_ERROR;
5061: RAISE OKC_API.G_EXCEPTION_ERROR;
5062: END IF;
5063:
5064: --- To get INSURANCE oec total
5057:
5058: OKC_API.set_message(G_APP_NAME, G_NO_INSURANCE,G_COL_NAME_TOKEN,
5059: l_contract_number,'SYS_VALUE', 'Deal Term' );
5060: x_return_status := OKC_API.G_RET_STS_ERROR;
5061: RAISE OKC_API.G_EXCEPTION_ERROR;
5062: END IF;
5063:
5064: --- To get INSURANCE oec total
5065: OPEN okl_k_total_oec_csr(px_ipyv_rec.KHR_ID);
5064: --- To get INSURANCE oec total
5065: OPEN okl_k_total_oec_csr(px_ipyv_rec.KHR_ID);
5066: FETCH okl_k_total_oec_csr INTO l_con_total_oec ;
5067: IF(okl_k_total_oec_csr%NOTFOUND) THEN
5068: OKC_API.set_message(G_APP_NAME, 'OKL_NO_CAPITAL_AMOUNT' );
5069: IF okl_k_total_oec_csr%ISOPEN THEN
5070: CLOSE okl_k_total_oec_csr;
5071: END IF;
5072: x_return_status := OKC_API.G_RET_STS_ERROR;
5068: OKC_API.set_message(G_APP_NAME, 'OKL_NO_CAPITAL_AMOUNT' );
5069: IF okl_k_total_oec_csr%ISOPEN THEN
5070: CLOSE okl_k_total_oec_csr;
5071: END IF;
5072: x_return_status := OKC_API.G_RET_STS_ERROR;
5073: RAISE OKC_API.G_EXCEPTION_ERROR;
5074: END IF ;
5075: CLOSE okl_k_total_oec_csr;
5076:
5069: IF okl_k_total_oec_csr%ISOPEN THEN
5070: CLOSE okl_k_total_oec_csr;
5071: END IF;
5072: x_return_status := OKC_API.G_RET_STS_ERROR;
5073: RAISE OKC_API.G_EXCEPTION_ERROR;
5074: END IF ;
5075: CLOSE okl_k_total_oec_csr;
5076:
5077:
5075: CLOSE okl_k_total_oec_csr;
5076:
5077:
5078: --- To Check total oec as zero
5079: IF ((l_con_total_oec IS NULL ) OR (l_con_total_oec = OKC_API.G_MISS_NUM ) or (l_con_total_oec = 0 )) THEN
5080: OKC_API.set_message(G_APP_NAME, 'OKL_NO_CAPITAL_AMOUNT' );
5081: x_return_status := OKC_API.G_RET_STS_ERROR;
5082: RAISE OKC_API.G_EXCEPTION_ERROR;
5083: END IF ;
5076:
5077:
5078: --- To Check total oec as zero
5079: IF ((l_con_total_oec IS NULL ) OR (l_con_total_oec = OKC_API.G_MISS_NUM ) or (l_con_total_oec = 0 )) THEN
5080: OKC_API.set_message(G_APP_NAME, 'OKL_NO_CAPITAL_AMOUNT' );
5081: x_return_status := OKC_API.G_RET_STS_ERROR;
5082: RAISE OKC_API.G_EXCEPTION_ERROR;
5083: END IF ;
5084: px_ipyv_rec.covered_amount := l_con_total_oec ;
5077:
5078: --- To Check total oec as zero
5079: IF ((l_con_total_oec IS NULL ) OR (l_con_total_oec = OKC_API.G_MISS_NUM ) or (l_con_total_oec = 0 )) THEN
5080: OKC_API.set_message(G_APP_NAME, 'OKL_NO_CAPITAL_AMOUNT' );
5081: x_return_status := OKC_API.G_RET_STS_ERROR;
5082: RAISE OKC_API.G_EXCEPTION_ERROR;
5083: END IF ;
5084: px_ipyv_rec.covered_amount := l_con_total_oec ;
5085:
5078: --- To Check total oec as zero
5079: IF ((l_con_total_oec IS NULL ) OR (l_con_total_oec = OKC_API.G_MISS_NUM ) or (l_con_total_oec = 0 )) THEN
5080: OKC_API.set_message(G_APP_NAME, 'OKL_NO_CAPITAL_AMOUNT' );
5081: x_return_status := OKC_API.G_RET_STS_ERROR;
5082: RAISE OKC_API.G_EXCEPTION_ERROR;
5083: END IF ;
5084: px_ipyv_rec.covered_amount := l_con_total_oec ;
5085:
5086:
5101: -- changes for Inventory org
5102: --Bug # 6318957 SSDESHPA Changes Start
5103: -- get min deal term for insurance providing
5104: --P1 bug 6318957
5105: IF px_ipyv_rec.ORG_ID IS NULL OR px_ipyv_rec.ORG_ID = OKC_API.G_MISS_NUM THEN
5106: px_ipyv_rec.ORG_ID := l_authoring_org_id;
5107: END IF;
5108: l_inv_org_id := OKL_SYSTEM_PARAMS_ALL_PUB.get_system_param_value(OKL_SYSTEM_PARAMS_ALL_PUB.G_ITEM_INV_ORG_ID,px_ipyv_rec.ORG_ID);
5109: IF ((l_inv_org_id IS NULL ) OR (l_inv_org_id = OKC_API.G_MISS_NUM )) THEN
5105: IF px_ipyv_rec.ORG_ID IS NULL OR px_ipyv_rec.ORG_ID = OKC_API.G_MISS_NUM THEN
5106: px_ipyv_rec.ORG_ID := l_authoring_org_id;
5107: END IF;
5108: l_inv_org_id := OKL_SYSTEM_PARAMS_ALL_PUB.get_system_param_value(OKL_SYSTEM_PARAMS_ALL_PUB.G_ITEM_INV_ORG_ID,px_ipyv_rec.ORG_ID);
5109: IF ((l_inv_org_id IS NULL ) OR (l_inv_org_id = OKC_API.G_MISS_NUM )) THEN
5110: OKC_API.set_message(G_APP_NAME, G_NO_SYSTEM_PROFILE,
5111: G_SYS_PROFILE_NAME,'OKL_K_ITEMS_INVENTORY_ORG' );
5112: x_return_status := OKC_API.G_RET_STS_ERROR;
5113: RAISE OKC_API.G_EXCEPTION_ERROR;
5106: px_ipyv_rec.ORG_ID := l_authoring_org_id;
5107: END IF;
5108: l_inv_org_id := OKL_SYSTEM_PARAMS_ALL_PUB.get_system_param_value(OKL_SYSTEM_PARAMS_ALL_PUB.G_ITEM_INV_ORG_ID,px_ipyv_rec.ORG_ID);
5109: IF ((l_inv_org_id IS NULL ) OR (l_inv_org_id = OKC_API.G_MISS_NUM )) THEN
5110: OKC_API.set_message(G_APP_NAME, G_NO_SYSTEM_PROFILE,
5111: G_SYS_PROFILE_NAME,'OKL_K_ITEMS_INVENTORY_ORG' );
5112: x_return_status := OKC_API.G_RET_STS_ERROR;
5113: RAISE OKC_API.G_EXCEPTION_ERROR;
5114: END IF ;
5108: l_inv_org_id := OKL_SYSTEM_PARAMS_ALL_PUB.get_system_param_value(OKL_SYSTEM_PARAMS_ALL_PUB.G_ITEM_INV_ORG_ID,px_ipyv_rec.ORG_ID);
5109: IF ((l_inv_org_id IS NULL ) OR (l_inv_org_id = OKC_API.G_MISS_NUM )) THEN
5110: OKC_API.set_message(G_APP_NAME, G_NO_SYSTEM_PROFILE,
5111: G_SYS_PROFILE_NAME,'OKL_K_ITEMS_INVENTORY_ORG' );
5112: x_return_status := OKC_API.G_RET_STS_ERROR;
5113: RAISE OKC_API.G_EXCEPTION_ERROR;
5114: END IF ;
5115: --Bug # 6318957 SSDESHPA Changes End
5116: -- inventory org change
5109: IF ((l_inv_org_id IS NULL ) OR (l_inv_org_id = OKC_API.G_MISS_NUM )) THEN
5110: OKC_API.set_message(G_APP_NAME, G_NO_SYSTEM_PROFILE,
5111: G_SYS_PROFILE_NAME,'OKL_K_ITEMS_INVENTORY_ORG' );
5112: x_return_status := OKC_API.G_RET_STS_ERROR;
5113: RAISE OKC_API.G_EXCEPTION_ERROR;
5114: END IF ;
5115: --Bug # 6318957 SSDESHPA Changes End
5116: -- inventory org change
5117: OPEN okl_count_k_product_csr(px_ipyv_rec.ISU_ID,l_fun_total_oec,px_ipyv_rec.date_from,l_inv_org_id );
5123: OPEN okl_k_product_csr(px_ipyv_rec.ISU_ID,l_fun_total_oec,px_ipyv_rec.date_from ,l_inv_org_id );
5124: FETCH okl_k_product_csr INTO l_product, l_product_name ;
5125: IF(okl_k_product_csr%NOTFOUND) THEN
5126: x_message := OKL_INS_QUOTE_PVT.G_NOT_ABLE ;
5127: OKC_API.set_message(G_APP_NAME, 'OKL_NO_INSPRODUCT',
5128: G_COL_NAME_TOKEN,l_contract_number );
5129: IF okl_k_product_csr%ISOPEN THEN
5130: CLOSE okl_k_product_csr;
5131: END IF;
5128: G_COL_NAME_TOKEN,l_contract_number );
5129: IF okl_k_product_csr%ISOPEN THEN
5130: CLOSE okl_k_product_csr;
5131: END IF;
5132: x_return_status := OKC_API.G_RET_STS_ERROR;
5133: RAISE OKC_API.G_EXCEPTION_ERROR;
5134: ELSE
5135:
5136: IF(l_prt_count > 1 ) THEN
5129: IF okl_k_product_csr%ISOPEN THEN
5130: CLOSE okl_k_product_csr;
5131: END IF;
5132: x_return_status := OKC_API.G_RET_STS_ERROR;
5133: RAISE OKC_API.G_EXCEPTION_ERROR;
5134: ELSE
5135:
5136: IF(l_prt_count > 1 ) THEN
5137: x_message := l_product_name ;
5141: x_message := x_message || ',' || l_product_name ;
5142: END LOOP ;
5143:
5144:
5145: OKC_API.set_message(G_APP_NAME, 'OKL_MULTIPLE_LSEINS_PRODUCTS',
5146: G_COL_NAME_TOKEN,x_message );
5147: IF okl_k_product_csr%ISOPEN THEN
5148: CLOSE okl_k_product_csr;
5149: END IF;
5146: G_COL_NAME_TOKEN,x_message );
5147: IF okl_k_product_csr%ISOPEN THEN
5148: CLOSE okl_k_product_csr;
5149: END IF;
5150: x_return_status := OKC_API.G_RET_STS_ERROR;
5151: RAISE OKC_API.G_EXCEPTION_ERROR;
5152: END IF;
5153: END IF;
5154: px_ipyv_rec.IPT_ID := l_product ;
5147: IF okl_k_product_csr%ISOPEN THEN
5148: CLOSE okl_k_product_csr;
5149: END IF;
5150: x_return_status := OKC_API.G_RET_STS_ERROR;
5151: RAISE OKC_API.G_EXCEPTION_ERROR;
5152: END IF;
5153: END IF;
5154: px_ipyv_rec.IPT_ID := l_product ;
5155: CLOSE okl_k_product_csr;
5179: i := i + 1 ;
5180: FETCH okl_k_assets_csr INTO l_okl_k_assets_csr;
5181: EXIT WHEN okl_k_assets_csr%NOTFOUND;
5182: l_con_oec := l_okl_k_assets_csr.OEC ;
5183: IF ((l_con_oec IS NULL ) OR (l_con_oec = OKC_API.G_MISS_NUM )) THEN
5184: OKC_API.set_message(G_APP_NAME, G_NO_OEC,G_COL_NAME_TOKEN , l_okl_k_assets_csr.ASSET_DESCRIPTION);
5185: x_return_status := OKC_API.G_RET_STS_ERROR;
5186: RAISE OKC_API.G_EXCEPTION_ERROR;
5187: END IF ;
5180: FETCH okl_k_assets_csr INTO l_okl_k_assets_csr;
5181: EXIT WHEN okl_k_assets_csr%NOTFOUND;
5182: l_con_oec := l_okl_k_assets_csr.OEC ;
5183: IF ((l_con_oec IS NULL ) OR (l_con_oec = OKC_API.G_MISS_NUM )) THEN
5184: OKC_API.set_message(G_APP_NAME, G_NO_OEC,G_COL_NAME_TOKEN , l_okl_k_assets_csr.ASSET_DESCRIPTION);
5185: x_return_status := OKC_API.G_RET_STS_ERROR;
5186: RAISE OKC_API.G_EXCEPTION_ERROR;
5187: END IF ;
5188: x_iasset_tbl(i).KLE_ID := l_okl_k_assets_csr.KLE_ID ;
5181: EXIT WHEN okl_k_assets_csr%NOTFOUND;
5182: l_con_oec := l_okl_k_assets_csr.OEC ;
5183: IF ((l_con_oec IS NULL ) OR (l_con_oec = OKC_API.G_MISS_NUM )) THEN
5184: OKC_API.set_message(G_APP_NAME, G_NO_OEC,G_COL_NAME_TOKEN , l_okl_k_assets_csr.ASSET_DESCRIPTION);
5185: x_return_status := OKC_API.G_RET_STS_ERROR;
5186: RAISE OKC_API.G_EXCEPTION_ERROR;
5187: END IF ;
5188: x_iasset_tbl(i).KLE_ID := l_okl_k_assets_csr.KLE_ID ;
5189: IF ((x_iasset_tbl(i).KLE_ID IS NULL ) OR (x_iasset_tbl(i).KLE_ID = OKC_API.G_MISS_NUM )) THEN
5182: l_con_oec := l_okl_k_assets_csr.OEC ;
5183: IF ((l_con_oec IS NULL ) OR (l_con_oec = OKC_API.G_MISS_NUM )) THEN
5184: OKC_API.set_message(G_APP_NAME, G_NO_OEC,G_COL_NAME_TOKEN , l_okl_k_assets_csr.ASSET_DESCRIPTION);
5185: x_return_status := OKC_API.G_RET_STS_ERROR;
5186: RAISE OKC_API.G_EXCEPTION_ERROR;
5187: END IF ;
5188: x_iasset_tbl(i).KLE_ID := l_okl_k_assets_csr.KLE_ID ;
5189: IF ((x_iasset_tbl(i).KLE_ID IS NULL ) OR (x_iasset_tbl(i).KLE_ID = OKC_API.G_MISS_NUM )) THEN
5190: OKC_API.set_message(G_APP_NAME, G_NO_KLE ,G_COL_NAME_TOKEN ,l_okl_k_assets_csr.ASSET_DESCRIPTION );
5185: x_return_status := OKC_API.G_RET_STS_ERROR;
5186: RAISE OKC_API.G_EXCEPTION_ERROR;
5187: END IF ;
5188: x_iasset_tbl(i).KLE_ID := l_okl_k_assets_csr.KLE_ID ;
5189: IF ((x_iasset_tbl(i).KLE_ID IS NULL ) OR (x_iasset_tbl(i).KLE_ID = OKC_API.G_MISS_NUM )) THEN
5190: OKC_API.set_message(G_APP_NAME, G_NO_KLE ,G_COL_NAME_TOKEN ,l_okl_k_assets_csr.ASSET_DESCRIPTION );
5191: x_return_status := OKC_API.G_RET_STS_ERROR;
5192: RAISE OKC_API.G_EXCEPTION_ERROR;
5193: END IF ;
5186: RAISE OKC_API.G_EXCEPTION_ERROR;
5187: END IF ;
5188: x_iasset_tbl(i).KLE_ID := l_okl_k_assets_csr.KLE_ID ;
5189: IF ((x_iasset_tbl(i).KLE_ID IS NULL ) OR (x_iasset_tbl(i).KLE_ID = OKC_API.G_MISS_NUM )) THEN
5190: OKC_API.set_message(G_APP_NAME, G_NO_KLE ,G_COL_NAME_TOKEN ,l_okl_k_assets_csr.ASSET_DESCRIPTION );
5191: x_return_status := OKC_API.G_RET_STS_ERROR;
5192: RAISE OKC_API.G_EXCEPTION_ERROR;
5193: END IF ;
5194: l_ins_class := l_okl_k_assets_csr.INSURANCE_CLASS_code ;
5187: END IF ;
5188: x_iasset_tbl(i).KLE_ID := l_okl_k_assets_csr.KLE_ID ;
5189: IF ((x_iasset_tbl(i).KLE_ID IS NULL ) OR (x_iasset_tbl(i).KLE_ID = OKC_API.G_MISS_NUM )) THEN
5190: OKC_API.set_message(G_APP_NAME, G_NO_KLE ,G_COL_NAME_TOKEN ,l_okl_k_assets_csr.ASSET_DESCRIPTION );
5191: x_return_status := OKC_API.G_RET_STS_ERROR;
5192: RAISE OKC_API.G_EXCEPTION_ERROR;
5193: END IF ;
5194: l_ins_class := l_okl_k_assets_csr.INSURANCE_CLASS_code ;
5195: IF ((l_ins_class IS NULL ) OR (l_ins_class = OKC_API.G_MISS_CHAR )) THEN
5188: x_iasset_tbl(i).KLE_ID := l_okl_k_assets_csr.KLE_ID ;
5189: IF ((x_iasset_tbl(i).KLE_ID IS NULL ) OR (x_iasset_tbl(i).KLE_ID = OKC_API.G_MISS_NUM )) THEN
5190: OKC_API.set_message(G_APP_NAME, G_NO_KLE ,G_COL_NAME_TOKEN ,l_okl_k_assets_csr.ASSET_DESCRIPTION );
5191: x_return_status := OKC_API.G_RET_STS_ERROR;
5192: RAISE OKC_API.G_EXCEPTION_ERROR;
5193: END IF ;
5194: l_ins_class := l_okl_k_assets_csr.INSURANCE_CLASS_code ;
5195: IF ((l_ins_class IS NULL ) OR (l_ins_class = OKC_API.G_MISS_CHAR )) THEN
5196: --
5191: x_return_status := OKC_API.G_RET_STS_ERROR;
5192: RAISE OKC_API.G_EXCEPTION_ERROR;
5193: END IF ;
5194: l_ins_class := l_okl_k_assets_csr.INSURANCE_CLASS_code ;
5195: IF ((l_ins_class IS NULL ) OR (l_ins_class = OKC_API.G_MISS_CHAR )) THEN
5196: --
5197: OKC_API.set_message(G_APP_NAME, G_NO_INS_CLASS, 'ASSET_CAT',l_okl_k_assets_csr.ASSET_CATEGORY );
5198: x_return_status := OKC_API.G_RET_STS_ERROR;
5199: RAISE OKC_API.G_EXCEPTION_ERROR;
5193: END IF ;
5194: l_ins_class := l_okl_k_assets_csr.INSURANCE_CLASS_code ;
5195: IF ((l_ins_class IS NULL ) OR (l_ins_class = OKC_API.G_MISS_CHAR )) THEN
5196: --
5197: OKC_API.set_message(G_APP_NAME, G_NO_INS_CLASS, 'ASSET_CAT',l_okl_k_assets_csr.ASSET_CATEGORY );
5198: x_return_status := OKC_API.G_RET_STS_ERROR;
5199: RAISE OKC_API.G_EXCEPTION_ERROR;
5200: END IF ;
5201: BEGIN
5194: l_ins_class := l_okl_k_assets_csr.INSURANCE_CLASS_code ;
5195: IF ((l_ins_class IS NULL ) OR (l_ins_class = OKC_API.G_MISS_CHAR )) THEN
5196: --
5197: OKC_API.set_message(G_APP_NAME, G_NO_INS_CLASS, 'ASSET_CAT',l_okl_k_assets_csr.ASSET_CATEGORY );
5198: x_return_status := OKC_API.G_RET_STS_ERROR;
5199: RAISE OKC_API.G_EXCEPTION_ERROR;
5200: END IF ;
5201: BEGIN
5202: -- Conver to functional OEC
5195: IF ((l_ins_class IS NULL ) OR (l_ins_class = OKC_API.G_MISS_CHAR )) THEN
5196: --
5197: OKC_API.set_message(G_APP_NAME, G_NO_INS_CLASS, 'ASSET_CAT',l_okl_k_assets_csr.ASSET_CATEGORY );
5198: x_return_status := OKC_API.G_RET_STS_ERROR;
5199: RAISE OKC_API.G_EXCEPTION_ERROR;
5200: END IF ;
5201: BEGIN
5202: -- Conver to functional OEC
5203: OKL_ACCOUNTING_UTIL.convert_to_functional_currency
5218: l_ins_class , px_ipyv_rec.DATE_FROM, l_freq_factor );
5219: FETCH okl_ins_rate_csr INTO l_func_premium, l_func_lessor_premium ;
5220: IF(okl_ins_rate_csr%NOTFOUND) THEN
5221: x_message := OKL_INS_QUOTE_PVT.G_NOT_ABLE ;
5222: OKC_API.set_message(G_APP_NAME, 'OKL_NO_INSPRODUCT_RATE',
5223: G_COL_NAME_TOKEN,l_contract_number );
5224: IF okl_ins_rate_csr%ISOPEN THEN
5225: CLOSE okl_ins_rate_csr;
5226: END IF;
5223: G_COL_NAME_TOKEN,l_contract_number );
5224: IF okl_ins_rate_csr%ISOPEN THEN
5225: CLOSE okl_ins_rate_csr;
5226: END IF;
5227: x_return_status := OKC_API.G_RET_STS_ERROR;
5228: RAISE OKC_API.G_EXCEPTION_ERROR;
5229: END IF ;
5230: -- get lessor premium in contract currency
5231:
5224: IF okl_ins_rate_csr%ISOPEN THEN
5225: CLOSE okl_ins_rate_csr;
5226: END IF;
5227: x_return_status := OKC_API.G_RET_STS_ERROR;
5228: RAISE OKC_API.G_EXCEPTION_ERROR;
5229: END IF ;
5230: -- get lessor premium in contract currency
5231:
5232: OKL_ACCOUNTING_UTIL.convert_to_contract_currency
5266:
5267: CLOSE okl_ins_rate_csr;
5268:
5269: EXCEPTION
5270: WHEN OKC_API.G_EXCEPTION_ERROR THEN
5271: RAISE OKC_API.G_EXCEPTION_ERROR;
5272: WHEN OTHERS THEN
5273: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,
5274: SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
5267: CLOSE okl_ins_rate_csr;
5268:
5269: EXCEPTION
5270: WHEN OKC_API.G_EXCEPTION_ERROR THEN
5271: RAISE OKC_API.G_EXCEPTION_ERROR;
5272: WHEN OTHERS THEN
5273: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,
5274: SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
5275: IF okl_ins_rate_csr%ISOPEN THEN
5269: EXCEPTION
5270: WHEN OKC_API.G_EXCEPTION_ERROR THEN
5271: RAISE OKC_API.G_EXCEPTION_ERROR;
5272: WHEN OTHERS THEN
5273: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,
5274: SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
5275: IF okl_ins_rate_csr%ISOPEN THEN
5276: CLOSE okl_ins_rate_csr;
5277: END IF;
5274: SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
5275: IF okl_ins_rate_csr%ISOPEN THEN
5276: CLOSE okl_ins_rate_csr;
5277: END IF;
5278: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR ;
5279: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR ;
5280: END;
5281: px_ipyv_rec.CALCULATED_PREMIUM := px_ipyv_rec.CALCULATED_PREMIUM+ x_iasset_tbl(i).PREMIUM ;
5282: END LOOP ;
5275: IF okl_ins_rate_csr%ISOPEN THEN
5276: CLOSE okl_ins_rate_csr;
5277: END IF;
5278: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR ;
5279: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR ;
5280: END;
5281: px_ipyv_rec.CALCULATED_PREMIUM := px_ipyv_rec.CALCULATED_PREMIUM+ x_iasset_tbl(i).PREMIUM ;
5282: END LOOP ;
5283: CLOSE okl_k_assets_csr ;
5280: END;
5281: px_ipyv_rec.CALCULATED_PREMIUM := px_ipyv_rec.CALCULATED_PREMIUM+ x_iasset_tbl(i).PREMIUM ;
5282: END LOOP ;
5283: CLOSE okl_k_assets_csr ;
5284: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
5285: EXCEPTION
5286: WHEN OKC_API.G_EXCEPTION_ERROR THEN
5287: x_return_status := OKC_API.HANDLE_EXCEPTIONS
5288: (
5282: END LOOP ;
5283: CLOSE okl_k_assets_csr ;
5284: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
5285: EXCEPTION
5286: WHEN OKC_API.G_EXCEPTION_ERROR THEN
5287: x_return_status := OKC_API.HANDLE_EXCEPTIONS
5288: (
5289: l_api_name,
5290: G_PKG_NAME,
5283: CLOSE okl_k_assets_csr ;
5284: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
5285: EXCEPTION
5286: WHEN OKC_API.G_EXCEPTION_ERROR THEN
5287: x_return_status := OKC_API.HANDLE_EXCEPTIONS
5288: (
5289: l_api_name,
5290: G_PKG_NAME,
5291: 'OKC_API.G_RET_STS_ERROR',
5287: x_return_status := OKC_API.HANDLE_EXCEPTIONS
5288: (
5289: l_api_name,
5290: G_PKG_NAME,
5291: 'OKC_API.G_RET_STS_ERROR',
5292: x_msg_count,
5293: x_msg_data,
5294: '_PROCESS'
5295: );
5292: x_msg_count,
5293: x_msg_data,
5294: '_PROCESS'
5295: );
5296: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5297: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
5298: (
5299: l_api_name,
5300: G_PKG_NAME,
5293: x_msg_data,
5294: '_PROCESS'
5295: );
5296: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5297: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
5298: (
5299: l_api_name,
5300: G_PKG_NAME,
5301: 'OKC_API.G_RET_STS_UNEXP_ERROR',
5297: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
5298: (
5299: l_api_name,
5300: G_PKG_NAME,
5301: 'OKC_API.G_RET_STS_UNEXP_ERROR',
5302: x_msg_count,
5303: x_msg_data,
5304: '_PROCESS'
5305: );
5303: x_msg_data,
5304: '_PROCESS'
5305: );
5306: WHEN OTHERS THEN
5307: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
5308: (
5309: l_api_name,
5310: G_PKG_NAME,
5311: 'OTHERS',
5331: l_msg_count NUMBER ;
5332: l_msg_data VARCHAR2(2000);
5333: l_api_version CONSTANT NUMBER := 1;
5334: l_api_name CONSTANT VARCHAR2(30) := 'calc_optional_premium';
5335: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
5336: p_contract_id NUMBER ;
5337:
5338: CURSOR okl_k_deal_size_csr (p_khr_id NUMBER) IS
5339: -- Bug# 4056484 PAGARG removing rounding
5389: BEGIN
5390:
5391: -- x_no_data_found := TRUE;
5392: -- Get current database values
5393: x_message := Okc_Api.G_RET_STS_SUCCESS;
5394: x_return_status := OKC_API.START_ACTIVITY(l_api_name,
5395: G_PKG_NAME,
5396: p_init_msg_list,
5397: l_api_version,
5390:
5391: -- x_no_data_found := TRUE;
5392: -- Get current database values
5393: x_message := Okc_Api.G_RET_STS_SUCCESS;
5394: x_return_status := OKC_API.START_ACTIVITY(l_api_name,
5395: G_PKG_NAME,
5396: p_init_msg_list,
5397: l_api_version,
5398: p_api_version,
5397: l_api_version,
5398: p_api_version,
5399: '_PROCESS',
5400: x_return_status);
5401: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5402: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5403: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
5404: RAISE OKC_API.G_EXCEPTION_ERROR;
5405: END IF;
5398: p_api_version,
5399: '_PROCESS',
5400: x_return_status);
5401: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5402: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5403: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
5404: RAISE OKC_API.G_EXCEPTION_ERROR;
5405: END IF;
5406: ------------------------------------------------------------------
5399: '_PROCESS',
5400: x_return_status);
5401: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5402: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5403: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
5404: RAISE OKC_API.G_EXCEPTION_ERROR;
5405: END IF;
5406: ------------------------------------------------------------------
5407:
5400: x_return_status);
5401: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5402: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5403: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
5404: RAISE OKC_API.G_EXCEPTION_ERROR;
5405: END IF;
5406: ------------------------------------------------------------------
5407:
5408: -- For Factor Value
5405: END IF;
5406: ------------------------------------------------------------------
5407:
5408: -- For Factor Value
5409: IF ((p_ipyv_rec.factor_value IS NULL ) OR (p_ipyv_rec.factor_value = OKC_API.G_MISS_NUM )) THEN
5410: x_return_status := OKC_API.G_RET_STS_ERROR;
5411: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'Factor Value');
5412: RAISE OKC_API.G_EXCEPTION_ERROR;
5413: END IF;
5406: ------------------------------------------------------------------
5407:
5408: -- For Factor Value
5409: IF ((p_ipyv_rec.factor_value IS NULL ) OR (p_ipyv_rec.factor_value = OKC_API.G_MISS_NUM )) THEN
5410: x_return_status := OKC_API.G_RET_STS_ERROR;
5411: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'Factor Value');
5412: RAISE OKC_API.G_EXCEPTION_ERROR;
5413: END IF;
5414:
5407:
5408: -- For Factor Value
5409: IF ((p_ipyv_rec.factor_value IS NULL ) OR (p_ipyv_rec.factor_value = OKC_API.G_MISS_NUM )) THEN
5410: x_return_status := OKC_API.G_RET_STS_ERROR;
5411: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'Factor Value');
5412: RAISE OKC_API.G_EXCEPTION_ERROR;
5413: END IF;
5414:
5415:
5408: -- For Factor Value
5409: IF ((p_ipyv_rec.factor_value IS NULL ) OR (p_ipyv_rec.factor_value = OKC_API.G_MISS_NUM )) THEN
5410: x_return_status := OKC_API.G_RET_STS_ERROR;
5411: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'Factor Value');
5412: RAISE OKC_API.G_EXCEPTION_ERROR;
5413: END IF;
5414:
5415:
5416:
5414:
5415:
5416:
5417: -- For Payment frequency
5418: IF ((p_ipyv_rec.ipf_code IS NULL ) OR (p_ipyv_rec.ipf_code = OKC_API.G_MISS_CHAR )) THEN
5419: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'Payment Frequency');
5420: x_return_status := OKC_API.G_RET_STS_ERROR;
5421: RAISE OKC_API.G_EXCEPTION_ERROR;
5422: -- Message --
5415:
5416:
5417: -- For Payment frequency
5418: IF ((p_ipyv_rec.ipf_code IS NULL ) OR (p_ipyv_rec.ipf_code = OKC_API.G_MISS_CHAR )) THEN
5419: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'Payment Frequency');
5420: x_return_status := OKC_API.G_RET_STS_ERROR;
5421: RAISE OKC_API.G_EXCEPTION_ERROR;
5422: -- Message --
5423: ELSE
5416:
5417: -- For Payment frequency
5418: IF ((p_ipyv_rec.ipf_code IS NULL ) OR (p_ipyv_rec.ipf_code = OKC_API.G_MISS_CHAR )) THEN
5419: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'Payment Frequency');
5420: x_return_status := OKC_API.G_RET_STS_ERROR;
5421: RAISE OKC_API.G_EXCEPTION_ERROR;
5422: -- Message --
5423: ELSE
5424: l_return_status := Okl_Util.check_lookup_code( G_FND_LOOKUP_PAYMENT_FREQ,p_ipyv_rec.ipf_code);
5417: -- For Payment frequency
5418: IF ((p_ipyv_rec.ipf_code IS NULL ) OR (p_ipyv_rec.ipf_code = OKC_API.G_MISS_CHAR )) THEN
5419: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'Payment Frequency');
5420: x_return_status := OKC_API.G_RET_STS_ERROR;
5421: RAISE OKC_API.G_EXCEPTION_ERROR;
5422: -- Message --
5423: ELSE
5424: l_return_status := Okl_Util.check_lookup_code( G_FND_LOOKUP_PAYMENT_FREQ,p_ipyv_rec.ipf_code);
5425: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5421: RAISE OKC_API.G_EXCEPTION_ERROR;
5422: -- Message --
5423: ELSE
5424: l_return_status := Okl_Util.check_lookup_code( G_FND_LOOKUP_PAYMENT_FREQ,p_ipyv_rec.ipf_code);
5425: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5426: x_return_status := l_return_status;
5427: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5428: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5429: OKC_API.set_message(g_app_name,G_NO_PARENT_RECORD,g_col_name_token,
5423: ELSE
5424: l_return_status := Okl_Util.check_lookup_code( G_FND_LOOKUP_PAYMENT_FREQ,p_ipyv_rec.ipf_code);
5425: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5426: x_return_status := l_return_status;
5427: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5428: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5429: OKC_API.set_message(g_app_name,G_NO_PARENT_RECORD,g_col_name_token,
5430: 'Payment Frequency' ,g_parent_table_token ,'FND_LOOKUPS');
5431: x_return_status := l_return_status;
5424: l_return_status := Okl_Util.check_lookup_code( G_FND_LOOKUP_PAYMENT_FREQ,p_ipyv_rec.ipf_code);
5425: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5426: x_return_status := l_return_status;
5427: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5428: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5429: OKC_API.set_message(g_app_name,G_NO_PARENT_RECORD,g_col_name_token,
5430: 'Payment Frequency' ,g_parent_table_token ,'FND_LOOKUPS');
5431: x_return_status := l_return_status;
5432: RAISE OKC_API.G_EXCEPTION_ERROR;
5425: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5426: x_return_status := l_return_status;
5427: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5428: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5429: OKC_API.set_message(g_app_name,G_NO_PARENT_RECORD,g_col_name_token,
5430: 'Payment Frequency' ,g_parent_table_token ,'FND_LOOKUPS');
5431: x_return_status := l_return_status;
5432: RAISE OKC_API.G_EXCEPTION_ERROR;
5433: END IF;
5428: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5429: OKC_API.set_message(g_app_name,G_NO_PARENT_RECORD,g_col_name_token,
5430: 'Payment Frequency' ,g_parent_table_token ,'FND_LOOKUPS');
5431: x_return_status := l_return_status;
5432: RAISE OKC_API.G_EXCEPTION_ERROR;
5433: END IF;
5434: END IF;
5435: -- For Contract ID
5436: IF ((p_ipyv_rec.khr_id IS NULL ) OR (p_ipyv_rec.khr_id = OKC_API.G_MISS_NUM )) THEN
5432: RAISE OKC_API.G_EXCEPTION_ERROR;
5433: END IF;
5434: END IF;
5435: -- For Contract ID
5436: IF ((p_ipyv_rec.khr_id IS NULL ) OR (p_ipyv_rec.khr_id = OKC_API.G_MISS_NUM )) THEN
5437: x_return_status := OKC_API.G_RET_STS_ERROR;
5438: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'Contract ID');
5439: RAISE OKC_API.G_EXCEPTION_ERROR;
5440: ELSE
5433: END IF;
5434: END IF;
5435: -- For Contract ID
5436: IF ((p_ipyv_rec.khr_id IS NULL ) OR (p_ipyv_rec.khr_id = OKC_API.G_MISS_NUM )) THEN
5437: x_return_status := OKC_API.G_RET_STS_ERROR;
5438: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'Contract ID');
5439: RAISE OKC_API.G_EXCEPTION_ERROR;
5440: ELSE
5441: -- TEMP validate contract id
5434: END IF;
5435: -- For Contract ID
5436: IF ((p_ipyv_rec.khr_id IS NULL ) OR (p_ipyv_rec.khr_id = OKC_API.G_MISS_NUM )) THEN
5437: x_return_status := OKC_API.G_RET_STS_ERROR;
5438: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'Contract ID');
5439: RAISE OKC_API.G_EXCEPTION_ERROR;
5440: ELSE
5441: -- TEMP validate contract id
5442: NULL;
5435: -- For Contract ID
5436: IF ((p_ipyv_rec.khr_id IS NULL ) OR (p_ipyv_rec.khr_id = OKC_API.G_MISS_NUM )) THEN
5437: x_return_status := OKC_API.G_RET_STS_ERROR;
5438: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'Contract ID');
5439: RAISE OKC_API.G_EXCEPTION_ERROR;
5440: ELSE
5441: -- TEMP validate contract id
5442: NULL;
5443: END IF;
5442: NULL;
5443: END IF;
5444:
5445: -- For From Date
5446: IF ((p_ipyv_rec.date_from IS NULL ) OR (p_ipyv_rec.date_from = OKC_API.G_MISS_DATE )) THEN
5447: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'Policy Effective From');
5448: x_return_status := OKC_API.G_RET_STS_ERROR;
5449: RAISE OKC_API.G_EXCEPTION_ERROR;
5450: END IF;
5443: END IF;
5444:
5445: -- For From Date
5446: IF ((p_ipyv_rec.date_from IS NULL ) OR (p_ipyv_rec.date_from = OKC_API.G_MISS_DATE )) THEN
5447: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'Policy Effective From');
5448: x_return_status := OKC_API.G_RET_STS_ERROR;
5449: RAISE OKC_API.G_EXCEPTION_ERROR;
5450: END IF;
5451: -- For To date
5444:
5445: -- For From Date
5446: IF ((p_ipyv_rec.date_from IS NULL ) OR (p_ipyv_rec.date_from = OKC_API.G_MISS_DATE )) THEN
5447: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'Policy Effective From');
5448: x_return_status := OKC_API.G_RET_STS_ERROR;
5449: RAISE OKC_API.G_EXCEPTION_ERROR;
5450: END IF;
5451: -- For To date
5452: IF ((p_ipyv_rec.date_to IS NULL ) OR (p_ipyv_rec.date_to = OKC_API.G_MISS_DATE )) THEN
5445: -- For From Date
5446: IF ((p_ipyv_rec.date_from IS NULL ) OR (p_ipyv_rec.date_from = OKC_API.G_MISS_DATE )) THEN
5447: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'Policy Effective From');
5448: x_return_status := OKC_API.G_RET_STS_ERROR;
5449: RAISE OKC_API.G_EXCEPTION_ERROR;
5450: END IF;
5451: -- For To date
5452: IF ((p_ipyv_rec.date_to IS NULL ) OR (p_ipyv_rec.date_to = OKC_API.G_MISS_DATE )) THEN
5453: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'Policy Effective To');
5448: x_return_status := OKC_API.G_RET_STS_ERROR;
5449: RAISE OKC_API.G_EXCEPTION_ERROR;
5450: END IF;
5451: -- For To date
5452: IF ((p_ipyv_rec.date_to IS NULL ) OR (p_ipyv_rec.date_to = OKC_API.G_MISS_DATE )) THEN
5453: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'Policy Effective To');
5454: x_return_status := OKC_API.G_RET_STS_ERROR;
5455: RAISE OKC_API.G_EXCEPTION_ERROR;
5456: END IF;
5449: RAISE OKC_API.G_EXCEPTION_ERROR;
5450: END IF;
5451: -- For To date
5452: IF ((p_ipyv_rec.date_to IS NULL ) OR (p_ipyv_rec.date_to = OKC_API.G_MISS_DATE )) THEN
5453: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'Policy Effective To');
5454: x_return_status := OKC_API.G_RET_STS_ERROR;
5455: RAISE OKC_API.G_EXCEPTION_ERROR;
5456: END IF;
5457:
5450: END IF;
5451: -- For To date
5452: IF ((p_ipyv_rec.date_to IS NULL ) OR (p_ipyv_rec.date_to = OKC_API.G_MISS_DATE )) THEN
5453: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'Policy Effective To');
5454: x_return_status := OKC_API.G_RET_STS_ERROR;
5455: RAISE OKC_API.G_EXCEPTION_ERROR;
5456: END IF;
5457:
5458: -- Quote date
5451: -- For To date
5452: IF ((p_ipyv_rec.date_to IS NULL ) OR (p_ipyv_rec.date_to = OKC_API.G_MISS_DATE )) THEN
5453: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'Policy Effective To');
5454: x_return_status := OKC_API.G_RET_STS_ERROR;
5455: RAISE OKC_API.G_EXCEPTION_ERROR;
5456: END IF;
5457:
5458: -- Quote date
5459: IF ((p_ipyv_rec.DATE_QUOTED IS NULL ) OR (p_ipyv_rec.DATE_QUOTED = OKC_API.G_MISS_DATE )) THEN
5455: RAISE OKC_API.G_EXCEPTION_ERROR;
5456: END IF;
5457:
5458: -- Quote date
5459: IF ((p_ipyv_rec.DATE_QUOTED IS NULL ) OR (p_ipyv_rec.DATE_QUOTED = OKC_API.G_MISS_DATE )) THEN
5460: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'Quote Effective From');
5461: x_return_status := OKC_API.G_RET_STS_ERROR;
5462: RAISE OKC_API.G_EXCEPTION_ERROR;
5463: END IF;
5456: END IF;
5457:
5458: -- Quote date
5459: IF ((p_ipyv_rec.DATE_QUOTED IS NULL ) OR (p_ipyv_rec.DATE_QUOTED = OKC_API.G_MISS_DATE )) THEN
5460: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'Quote Effective From');
5461: x_return_status := OKC_API.G_RET_STS_ERROR;
5462: RAISE OKC_API.G_EXCEPTION_ERROR;
5463: END IF;
5464: -- Quote expiry date
5457:
5458: -- Quote date
5459: IF ((p_ipyv_rec.DATE_QUOTED IS NULL ) OR (p_ipyv_rec.DATE_QUOTED = OKC_API.G_MISS_DATE )) THEN
5460: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'Quote Effective From');
5461: x_return_status := OKC_API.G_RET_STS_ERROR;
5462: RAISE OKC_API.G_EXCEPTION_ERROR;
5463: END IF;
5464: -- Quote expiry date
5465: IF ((p_ipyv_rec.DATE_QUOTE_EXPIRY IS NULL ) OR (p_ipyv_rec.DATE_QUOTE_EXPIRY = OKC_API.G_MISS_DATE )) THEN
5458: -- Quote date
5459: IF ((p_ipyv_rec.DATE_QUOTED IS NULL ) OR (p_ipyv_rec.DATE_QUOTED = OKC_API.G_MISS_DATE )) THEN
5460: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'Quote Effective From');
5461: x_return_status := OKC_API.G_RET_STS_ERROR;
5462: RAISE OKC_API.G_EXCEPTION_ERROR;
5463: END IF;
5464: -- Quote expiry date
5465: IF ((p_ipyv_rec.DATE_QUOTE_EXPIRY IS NULL ) OR (p_ipyv_rec.DATE_QUOTE_EXPIRY = OKC_API.G_MISS_DATE )) THEN
5466: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'Quote Effective To');
5461: x_return_status := OKC_API.G_RET_STS_ERROR;
5462: RAISE OKC_API.G_EXCEPTION_ERROR;
5463: END IF;
5464: -- Quote expiry date
5465: IF ((p_ipyv_rec.DATE_QUOTE_EXPIRY IS NULL ) OR (p_ipyv_rec.DATE_QUOTE_EXPIRY = OKC_API.G_MISS_DATE )) THEN
5466: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'Quote Effective To');
5467: x_return_status := OKC_API.G_RET_STS_ERROR;
5468: RAISE OKC_API.G_EXCEPTION_ERROR;
5469: END IF;
5462: RAISE OKC_API.G_EXCEPTION_ERROR;
5463: END IF;
5464: -- Quote expiry date
5465: IF ((p_ipyv_rec.DATE_QUOTE_EXPIRY IS NULL ) OR (p_ipyv_rec.DATE_QUOTE_EXPIRY = OKC_API.G_MISS_DATE )) THEN
5466: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'Quote Effective To');
5467: x_return_status := OKC_API.G_RET_STS_ERROR;
5468: RAISE OKC_API.G_EXCEPTION_ERROR;
5469: END IF;
5470:
5463: END IF;
5464: -- Quote expiry date
5465: IF ((p_ipyv_rec.DATE_QUOTE_EXPIRY IS NULL ) OR (p_ipyv_rec.DATE_QUOTE_EXPIRY = OKC_API.G_MISS_DATE )) THEN
5466: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'Quote Effective To');
5467: x_return_status := OKC_API.G_RET_STS_ERROR;
5468: RAISE OKC_API.G_EXCEPTION_ERROR;
5469: END IF;
5470:
5471: --- From and To Date
5464: -- Quote expiry date
5465: IF ((p_ipyv_rec.DATE_QUOTE_EXPIRY IS NULL ) OR (p_ipyv_rec.DATE_QUOTE_EXPIRY = OKC_API.G_MISS_DATE )) THEN
5466: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'Quote Effective To');
5467: x_return_status := OKC_API.G_RET_STS_ERROR;
5468: RAISE OKC_API.G_EXCEPTION_ERROR;
5469: END IF;
5470:
5471: --- From and To Date
5472: l_return_status:= Okl_Util.check_from_to_date_range( p_ipyv_rec.date_from ,p_ipyv_rec.date_to );
5469: END IF;
5470:
5471: --- From and To Date
5472: l_return_status:= Okl_Util.check_from_to_date_range( p_ipyv_rec.date_from ,p_ipyv_rec.date_to );
5473: IF(l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
5474: -- store SQL error message on message stack for caller
5475: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,
5476: SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
5477: x_return_status := Okc_Api.G_RET_STS_UNEXP_ERROR ;
5471: --- From and To Date
5472: l_return_status:= Okl_Util.check_from_to_date_range( p_ipyv_rec.date_from ,p_ipyv_rec.date_to );
5473: IF(l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
5474: -- store SQL error message on message stack for caller
5475: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,
5476: SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
5477: x_return_status := Okc_Api.G_RET_STS_UNEXP_ERROR ;
5478: RAISE G_EXCEPTION_HALT_VALIDATION;
5479: ELSIF (l_return_status <> Okc_Api.G_RET_STS_SUCCESS) THEN
5473: IF(l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
5474: -- store SQL error message on message stack for caller
5475: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,
5476: SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
5477: x_return_status := Okc_Api.G_RET_STS_UNEXP_ERROR ;
5478: RAISE G_EXCEPTION_HALT_VALIDATION;
5479: ELSIF (l_return_status <> Okc_Api.G_RET_STS_SUCCESS) THEN
5480: Okc_Api.set_message(
5481: p_app_name => g_app_name,
5475: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,
5476: SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
5477: x_return_status := Okc_Api.G_RET_STS_UNEXP_ERROR ;
5478: RAISE G_EXCEPTION_HALT_VALIDATION;
5479: ELSIF (l_return_status <> Okc_Api.G_RET_STS_SUCCESS) THEN
5480: Okc_Api.set_message(
5481: p_app_name => g_app_name,
5482: p_msg_name => 'OKL_GREATER_THAN',
5483: p_token1 => 'COL_NAME1',
5476: SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
5477: x_return_status := Okc_Api.G_RET_STS_UNEXP_ERROR ;
5478: RAISE G_EXCEPTION_HALT_VALIDATION;
5479: ELSIF (l_return_status <> Okc_Api.G_RET_STS_SUCCESS) THEN
5480: Okc_Api.set_message(
5481: p_app_name => g_app_name,
5482: p_msg_name => 'OKL_GREATER_THAN',
5483: p_token1 => 'COL_NAME1',
5484: p_token1_value => 'End Date',
5484: p_token1_value => 'End Date',
5485: p_token2 => 'COL_NAME2',
5486: p_token2_value => 'Start Date'
5487: );
5488: x_return_status := OKC_API.G_RET_STS_ERROR;
5489: RAISE OKC_API.G_EXCEPTION_ERROR;
5490: END IF;
5491:
5492: -- For Covered Amount Check
5485: p_token2 => 'COL_NAME2',
5486: p_token2_value => 'Start Date'
5487: );
5488: x_return_status := OKC_API.G_RET_STS_ERROR;
5489: RAISE OKC_API.G_EXCEPTION_ERROR;
5490: END IF;
5491:
5492: -- For Covered Amount Check
5493: IF ((p_ipyv_rec.COVERED_AMOUNT IS NULL ) OR (p_ipyv_rec.COVERED_AMOUNT = OKC_API.G_MISS_NUM )) THEN
5489: RAISE OKC_API.G_EXCEPTION_ERROR;
5490: END IF;
5491:
5492: -- For Covered Amount Check
5493: IF ((p_ipyv_rec.COVERED_AMOUNT IS NULL ) OR (p_ipyv_rec.COVERED_AMOUNT = OKC_API.G_MISS_NUM )) THEN
5494: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'Covered Amount');
5495: x_return_status := OKC_API.G_RET_STS_ERROR;
5496: RAISE OKC_API.G_EXCEPTION_ERROR;
5497: END IF;
5490: END IF;
5491:
5492: -- For Covered Amount Check
5493: IF ((p_ipyv_rec.COVERED_AMOUNT IS NULL ) OR (p_ipyv_rec.COVERED_AMOUNT = OKC_API.G_MISS_NUM )) THEN
5494: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'Covered Amount');
5495: x_return_status := OKC_API.G_RET_STS_ERROR;
5496: RAISE OKC_API.G_EXCEPTION_ERROR;
5497: END IF;
5498: ------------------------------------------------------------------
5491:
5492: -- For Covered Amount Check
5493: IF ((p_ipyv_rec.COVERED_AMOUNT IS NULL ) OR (p_ipyv_rec.COVERED_AMOUNT = OKC_API.G_MISS_NUM )) THEN
5494: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'Covered Amount');
5495: x_return_status := OKC_API.G_RET_STS_ERROR;
5496: RAISE OKC_API.G_EXCEPTION_ERROR;
5497: END IF;
5498: ------------------------------------------------------------------
5499: -- For IPY TYPE
5492: -- For Covered Amount Check
5493: IF ((p_ipyv_rec.COVERED_AMOUNT IS NULL ) OR (p_ipyv_rec.COVERED_AMOUNT = OKC_API.G_MISS_NUM )) THEN
5494: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'Covered Amount');
5495: x_return_status := OKC_API.G_RET_STS_ERROR;
5496: RAISE OKC_API.G_EXCEPTION_ERROR;
5497: END IF;
5498: ------------------------------------------------------------------
5499: -- For IPY TYPE
5500: IF ((p_ipyv_rec.ipy_type IS NULL ) OR (p_ipyv_rec.ipy_type = OKC_API.G_MISS_CHAR )) THEN
5496: RAISE OKC_API.G_EXCEPTION_ERROR;
5497: END IF;
5498: ------------------------------------------------------------------
5499: -- For IPY TYPE
5500: IF ((p_ipyv_rec.ipy_type IS NULL ) OR (p_ipyv_rec.ipy_type = OKC_API.G_MISS_CHAR )) THEN
5501: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'Policy Type');
5502: x_return_status := OKC_API.G_RET_STS_ERROR;
5503: RAISE OKC_API.G_EXCEPTION_ERROR;
5504: ELSE
5497: END IF;
5498: ------------------------------------------------------------------
5499: -- For IPY TYPE
5500: IF ((p_ipyv_rec.ipy_type IS NULL ) OR (p_ipyv_rec.ipy_type = OKC_API.G_MISS_CHAR )) THEN
5501: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'Policy Type');
5502: x_return_status := OKC_API.G_RET_STS_ERROR;
5503: RAISE OKC_API.G_EXCEPTION_ERROR;
5504: ELSE
5505: IF( p_ipyv_rec.ipy_type <> 'OPTIONAL_POLICY' )THEN
5498: ------------------------------------------------------------------
5499: -- For IPY TYPE
5500: IF ((p_ipyv_rec.ipy_type IS NULL ) OR (p_ipyv_rec.ipy_type = OKC_API.G_MISS_CHAR )) THEN
5501: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'Policy Type');
5502: x_return_status := OKC_API.G_RET_STS_ERROR;
5503: RAISE OKC_API.G_EXCEPTION_ERROR;
5504: ELSE
5505: IF( p_ipyv_rec.ipy_type <> 'OPTIONAL_POLICY' )THEN
5506: OKC_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'Policy Type',G_COL_VALUE_TOKEN, 'Optional Policy' );
5499: -- For IPY TYPE
5500: IF ((p_ipyv_rec.ipy_type IS NULL ) OR (p_ipyv_rec.ipy_type = OKC_API.G_MISS_CHAR )) THEN
5501: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'Policy Type');
5502: x_return_status := OKC_API.G_RET_STS_ERROR;
5503: RAISE OKC_API.G_EXCEPTION_ERROR;
5504: ELSE
5505: IF( p_ipyv_rec.ipy_type <> 'OPTIONAL_POLICY' )THEN
5506: OKC_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'Policy Type',G_COL_VALUE_TOKEN, 'Optional Policy' );
5507: x_return_status := OKC_API.G_RET_STS_ERROR;
5502: x_return_status := OKC_API.G_RET_STS_ERROR;
5503: RAISE OKC_API.G_EXCEPTION_ERROR;
5504: ELSE
5505: IF( p_ipyv_rec.ipy_type <> 'OPTIONAL_POLICY' )THEN
5506: OKC_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'Policy Type',G_COL_VALUE_TOKEN, 'Optional Policy' );
5507: x_return_status := OKC_API.G_RET_STS_ERROR;
5508: RAISE OKC_API.G_EXCEPTION_ERROR;
5509: END IF ;
5510: END IF;
5503: RAISE OKC_API.G_EXCEPTION_ERROR;
5504: ELSE
5505: IF( p_ipyv_rec.ipy_type <> 'OPTIONAL_POLICY' )THEN
5506: OKC_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'Policy Type',G_COL_VALUE_TOKEN, 'Optional Policy' );
5507: x_return_status := OKC_API.G_RET_STS_ERROR;
5508: RAISE OKC_API.G_EXCEPTION_ERROR;
5509: END IF ;
5510: END IF;
5511:
5504: ELSE
5505: IF( p_ipyv_rec.ipy_type <> 'OPTIONAL_POLICY' )THEN
5506: OKC_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'Policy Type',G_COL_VALUE_TOKEN, 'Optional Policy' );
5507: x_return_status := OKC_API.G_RET_STS_ERROR;
5508: RAISE OKC_API.G_EXCEPTION_ERROR;
5509: END IF ;
5510: END IF;
5511:
5512:
5512:
5513: OPEN okl_k_deal_size_csr(p_ipyv_rec.KHR_ID);
5514: FETCH okl_k_deal_size_csr INTO l_deal_size , l_contract_number ;
5515: IF( okl_k_deal_size_csr%NOTFOUND) THEN
5516: OKC_API.set_message(G_APP_NAME, G_NO_K_TERM,G_COL_VALUE_TOKEN,l_contract_number );
5517: x_return_status := OKC_API.G_RET_STS_ERROR;
5518: IF okl_k_deal_size_csr%ISOPEN THEN
5519: CLOSE okl_k_deal_size_csr;
5520: END IF;
5513: OPEN okl_k_deal_size_csr(p_ipyv_rec.KHR_ID);
5514: FETCH okl_k_deal_size_csr INTO l_deal_size , l_contract_number ;
5515: IF( okl_k_deal_size_csr%NOTFOUND) THEN
5516: OKC_API.set_message(G_APP_NAME, G_NO_K_TERM,G_COL_VALUE_TOKEN,l_contract_number );
5517: x_return_status := OKC_API.G_RET_STS_ERROR;
5518: IF okl_k_deal_size_csr%ISOPEN THEN
5519: CLOSE okl_k_deal_size_csr;
5520: END IF;
5521: RAISE OKC_API.G_EXCEPTION_ERROR;
5517: x_return_status := OKC_API.G_RET_STS_ERROR;
5518: IF okl_k_deal_size_csr%ISOPEN THEN
5519: CLOSE okl_k_deal_size_csr;
5520: END IF;
5521: RAISE OKC_API.G_EXCEPTION_ERROR;
5522: END IF;
5523: CLOSE okl_k_deal_size_csr;
5524:
5525:
5541: ELSIF(p_ipyv_rec.ipf_code = 'LUMP_SUM') THEN
5542: -- To be implement
5543: l_freq_factor := MONTHS_BETWEEN( p_ipyv_rec.date_to,p_ipyv_rec.date_from); --Bug# 4056484 PAGARG removing rounding
5544: ELSE
5545: OKC_API.set_message(G_APP_NAME, G_INVALID_VALUE,
5546: G_COL_VALUE_TOKEN,'Payment Frequency' );
5547: x_return_status := OKC_API.G_RET_STS_ERROR;
5548: RAISE OKC_API.G_EXCEPTION_ERROR;
5549: END IF;
5543: l_freq_factor := MONTHS_BETWEEN( p_ipyv_rec.date_to,p_ipyv_rec.date_from); --Bug# 4056484 PAGARG removing rounding
5544: ELSE
5545: OKC_API.set_message(G_APP_NAME, G_INVALID_VALUE,
5546: G_COL_VALUE_TOKEN,'Payment Frequency' );
5547: x_return_status := OKC_API.G_RET_STS_ERROR;
5548: RAISE OKC_API.G_EXCEPTION_ERROR;
5549: END IF;
5550: x_ipyv_rec.CALCULATED_PREMIUM := 0 ;
5551:
5544: ELSE
5545: OKC_API.set_message(G_APP_NAME, G_INVALID_VALUE,
5546: G_COL_VALUE_TOKEN,'Payment Frequency' );
5547: x_return_status := OKC_API.G_RET_STS_ERROR;
5548: RAISE OKC_API.G_EXCEPTION_ERROR;
5549: END IF;
5550: x_ipyv_rec.CALCULATED_PREMIUM := 0 ;
5551:
5552: -- Convert covered amount to functional currency
5555:
5556: OPEN l_contract_currency_csr(p_ipyv_rec.KHR_ID);
5557: FETCH l_contract_currency_csr INTO p_contract_currency, l_con_start_date;
5558: IF( l_contract_currency_csr%NOTFOUND) THEN
5559: OKC_API.set_message(G_APP_NAME, G_NO_K_TERM,G_COL_VALUE_TOKEN,l_contract_number );
5560: x_return_status := OKC_API.G_RET_STS_ERROR;
5561: IF l_contract_currency_csr%ISOPEN THEN
5562: CLOSE l_contract_currency_csr;
5563: END IF;
5556: OPEN l_contract_currency_csr(p_ipyv_rec.KHR_ID);
5557: FETCH l_contract_currency_csr INTO p_contract_currency, l_con_start_date;
5558: IF( l_contract_currency_csr%NOTFOUND) THEN
5559: OKC_API.set_message(G_APP_NAME, G_NO_K_TERM,G_COL_VALUE_TOKEN,l_contract_number );
5560: x_return_status := OKC_API.G_RET_STS_ERROR;
5561: IF l_contract_currency_csr%ISOPEN THEN
5562: CLOSE l_contract_currency_csr;
5563: END IF;
5564: RAISE OKC_API.G_EXCEPTION_ERROR;
5560: x_return_status := OKC_API.G_RET_STS_ERROR;
5561: IF l_contract_currency_csr%ISOPEN THEN
5562: CLOSE l_contract_currency_csr;
5563: END IF;
5564: RAISE OKC_API.G_EXCEPTION_ERROR;
5565: END IF;
5566: CLOSE l_contract_currency_csr;
5567:
5568:
5584: ,p_ipyv_rec.ipt_id , p_ipyv_rec.DATE_FROM, l_freq_factor,
5585: p_ipyv_rec.factor_value );
5586: FETCH okl_ins_rate_csr INTO x_func_calculated_premium ;
5587: IF(okl_ins_rate_csr%NOTFOUND) THEN
5588: OKC_API.set_message(G_APP_NAME, 'OKL_NO_OPTINSPRODUCT_RATE');
5589: x_return_status := OKC_API.G_RET_STS_ERROR;
5590: IF okl_ins_rate_csr%ISOPEN THEN
5591: CLOSE okl_ins_rate_csr;
5592: END IF;
5585: p_ipyv_rec.factor_value );
5586: FETCH okl_ins_rate_csr INTO x_func_calculated_premium ;
5587: IF(okl_ins_rate_csr%NOTFOUND) THEN
5588: OKC_API.set_message(G_APP_NAME, 'OKL_NO_OPTINSPRODUCT_RATE');
5589: x_return_status := OKC_API.G_RET_STS_ERROR;
5590: IF okl_ins_rate_csr%ISOPEN THEN
5591: CLOSE okl_ins_rate_csr;
5592: END IF;
5593: RAISE OKC_API.G_EXCEPTION_ERROR;
5589: x_return_status := OKC_API.G_RET_STS_ERROR;
5590: IF okl_ins_rate_csr%ISOPEN THEN
5591: CLOSE okl_ins_rate_csr;
5592: END IF;
5593: RAISE OKC_API.G_EXCEPTION_ERROR;
5594: END IF;
5595: CLOSE okl_ins_rate_csr;
5596:
5597: OKL_ACCOUNTING_UTIL.convert_to_contract_currency
5611: x_ipyv_rec.CALCULATED_PREMIUM,
5612: p_currency_code => x_contract_currency);
5613:
5614:
5615: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
5616: EXCEPTION
5617: WHEN OKC_API.G_EXCEPTION_ERROR THEN
5618: x_return_status := OKC_API.HANDLE_EXCEPTIONS
5619: (
5613:
5614:
5615: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
5616: EXCEPTION
5617: WHEN OKC_API.G_EXCEPTION_ERROR THEN
5618: x_return_status := OKC_API.HANDLE_EXCEPTIONS
5619: (
5620: l_api_name,
5621: G_PKG_NAME,
5614:
5615: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
5616: EXCEPTION
5617: WHEN OKC_API.G_EXCEPTION_ERROR THEN
5618: x_return_status := OKC_API.HANDLE_EXCEPTIONS
5619: (
5620: l_api_name,
5621: G_PKG_NAME,
5622: 'OKC_API.G_RET_STS_ERROR',
5618: x_return_status := OKC_API.HANDLE_EXCEPTIONS
5619: (
5620: l_api_name,
5621: G_PKG_NAME,
5622: 'OKC_API.G_RET_STS_ERROR',
5623: x_msg_count,
5624: x_msg_data,
5625: '_PROCESS'
5626: );
5623: x_msg_count,
5624: x_msg_data,
5625: '_PROCESS'
5626: );
5627: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5628: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
5629: (
5630: l_api_name,
5631: G_PKG_NAME,
5624: x_msg_data,
5625: '_PROCESS'
5626: );
5627: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5628: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
5629: (
5630: l_api_name,
5631: G_PKG_NAME,
5632: 'OKC_API.G_RET_STS_UNEXP_ERROR',
5628: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
5629: (
5630: l_api_name,
5631: G_PKG_NAME,
5632: 'OKC_API.G_RET_STS_UNEXP_ERROR',
5633: x_msg_count,
5634: x_msg_data,
5635: '_PROCESS'
5636: );
5634: x_msg_data,
5635: '_PROCESS'
5636: );
5637: WHEN OTHERS THEN
5638: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
5639: (
5640: l_api_name,
5641: G_PKG_NAME,
5642: 'OTHERS',
5670: l_msg_count NUMBER ;
5671: l_msg_data VARCHAR2(2000);
5672: l_api_version CONSTANT NUMBER := 1;
5673: l_api_name CONSTANT VARCHAR2(30) := 'calc_total_premium';
5674: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
5675:
5676: l_ipf_code VARCHAR2(50);
5677: l_freq_factor NUMBER;
5678: l_date_to DATE;
5708: AND TRUNC(NVL(start_date_active, SYSDATE)) <= TRUNC(SYSDATE)
5709: AND TRUNC(NVL(end_date_active, SYSDATE)) >= TRUNC(SYSDATE);
5710: BEGIN
5711:
5712: x_return_status := OKC_API.START_ACTIVITY(l_api_name,
5713: G_PKG_NAME,
5714: p_init_msg_list,
5715: l_api_version,
5716: p_api_version,
5715: l_api_version,
5716: p_api_version,
5717: '_PROCESS',
5718: l_return_status);
5719: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5720: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5721: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
5722: RAISE OKC_API.G_EXCEPTION_ERROR;
5723: END IF;
5716: p_api_version,
5717: '_PROCESS',
5718: l_return_status);
5719: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5720: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5721: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
5722: RAISE OKC_API.G_EXCEPTION_ERROR;
5723: END IF;
5724:
5717: '_PROCESS',
5718: l_return_status);
5719: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5720: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5721: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
5722: RAISE OKC_API.G_EXCEPTION_ERROR;
5723: END IF;
5724:
5725: --Open cursor for QOTE or POLICY
5718: l_return_status);
5719: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5720: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5721: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
5722: RAISE OKC_API.G_EXCEPTION_ERROR;
5723: END IF;
5724:
5725: --Open cursor for QOTE or POLICY
5726: OPEN c_pol_qte_dtl(p_pol_qte_id);
5753: l_freq_factor := 3;
5754: ELSIF(l_ipf_code = 'YEARLY') THEN
5755: l_freq_factor := 12;
5756: ELSE
5757: OKC_API.set_message(G_APP_NAME, G_INVALID_VALUE,
5758: G_COL_VALUE_TOKEN,'Payment Frequency' );
5759: x_return_status := OKC_API.G_RET_STS_ERROR;
5760: RAISE OKC_API.G_EXCEPTION_ERROR;
5761: END IF;
5755: l_freq_factor := 12;
5756: ELSE
5757: OKC_API.set_message(G_APP_NAME, G_INVALID_VALUE,
5758: G_COL_VALUE_TOKEN,'Payment Frequency' );
5759: x_return_status := OKC_API.G_RET_STS_ERROR;
5760: RAISE OKC_API.G_EXCEPTION_ERROR;
5761: END IF;
5762: l_tot_durs := l_pol_durs/l_freq_factor;
5763: -- calculating total premium
5756: ELSE
5757: OKC_API.set_message(G_APP_NAME, G_INVALID_VALUE,
5758: G_COL_VALUE_TOKEN,'Payment Frequency' );
5759: x_return_status := OKC_API.G_RET_STS_ERROR;
5760: RAISE OKC_API.G_EXCEPTION_ERROR;
5761: END IF;
5762: l_tot_durs := l_pol_durs/l_freq_factor;
5763: -- calculating total premium
5764: l_tot_premium := l_premium * l_tot_durs;
5764: l_tot_premium := l_premium * l_tot_durs;
5765: l_tot_premium := TRUNC(l_tot_premium,l_precision); --bug:3967640
5766: x_total_premium := l_tot_premium;
5767:
5768: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
5769: EXCEPTION
5770: WHEN OKC_API.G_EXCEPTION_ERROR THEN
5771: x_return_status := OKC_API.HANDLE_EXCEPTIONS
5772: (
5766: x_total_premium := l_tot_premium;
5767:
5768: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
5769: EXCEPTION
5770: WHEN OKC_API.G_EXCEPTION_ERROR THEN
5771: x_return_status := OKC_API.HANDLE_EXCEPTIONS
5772: (
5773: l_api_name,
5774: G_PKG_NAME,
5767:
5768: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
5769: EXCEPTION
5770: WHEN OKC_API.G_EXCEPTION_ERROR THEN
5771: x_return_status := OKC_API.HANDLE_EXCEPTIONS
5772: (
5773: l_api_name,
5774: G_PKG_NAME,
5775: 'OKC_API.G_RET_STS_ERROR',
5771: x_return_status := OKC_API.HANDLE_EXCEPTIONS
5772: (
5773: l_api_name,
5774: G_PKG_NAME,
5775: 'OKC_API.G_RET_STS_ERROR',
5776: x_msg_count,
5777: x_msg_data,
5778: '_PROCESS'
5779: );
5776: x_msg_count,
5777: x_msg_data,
5778: '_PROCESS'
5779: );
5780: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5781: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
5782: (
5783: l_api_name,
5784: G_PKG_NAME,
5777: x_msg_data,
5778: '_PROCESS'
5779: );
5780: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5781: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
5782: (
5783: l_api_name,
5784: G_PKG_NAME,
5785: 'OKC_API.G_RET_STS_UNEXP_ERROR',
5781: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
5782: (
5783: l_api_name,
5784: G_PKG_NAME,
5785: 'OKC_API.G_RET_STS_UNEXP_ERROR',
5786: x_msg_count,
5787: x_msg_data,
5788: '_PROCESS'
5789: );
5787: x_msg_data,
5788: '_PROCESS'
5789: );
5790: WHEN OTHERS THEN
5791: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
5792: (
5793: l_api_name,
5794: G_PKG_NAME,
5795: 'OTHERS',
5884: l_msg_count NUMBER ;
5885: l_msg_data VARCHAR2(2000);
5886: l_api_version CONSTANT NUMBER := 1;
5887: l_api_name CONSTANT VARCHAR2(30) := 'ACTIVATE_INS_STREAMS';
5888: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
5889: CURSOR okl_ipyv_pk_csr (p_id NUMBER) IS
5890: SELECT
5891: ID,
5892: OBJECT_VERSION_NUMBER,
5902: lx_ipyv_rec ipyv_rec_type;
5903: BEGIN
5904: -- x_no_data_found := TRUE;
5905: -- Get current database values
5906: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
5907: G_PKG_NAME,
5908: p_init_msg_list,
5909: l_api_version,
5910: p_api_version,
5910: p_api_version,
5911: '_PROCESS',
5912: l_return_status);
5913:
5914: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5915: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5916: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5917: RAISE OKC_API.G_EXCEPTION_ERROR;
5918: END IF;
5911: '_PROCESS',
5912: l_return_status);
5913:
5914: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5915: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5916: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5917: RAISE OKC_API.G_EXCEPTION_ERROR;
5918: END IF;
5919:
5912: l_return_status);
5913:
5914: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5915: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5916: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5917: RAISE OKC_API.G_EXCEPTION_ERROR;
5918: END IF;
5919:
5920: OPEN okl_ipyv_pk_csr (p_contract_id) ;
5913:
5914: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5915: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5916: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5917: RAISE OKC_API.G_EXCEPTION_ERROR;
5918: END IF;
5919:
5920: OPEN okl_ipyv_pk_csr (p_contract_id) ;
5921: LOOP
5928: l_ipyv_rec.ISS_CODE := l_okl_ipyv_pk_csr.ISS_CODE ;
5929: l_ipyv_rec.IPY_TYPE := l_okl_ipyv_pk_csr.IPY_TYPE ;
5930: activate_ins_stream(
5931: p_api_version => l_api_version,
5932: p_init_msg_list => Okc_Api.G_FALSE,
5933: x_return_status => l_return_status,
5934: x_msg_count => x_msg_count,
5935: x_msg_data => x_msg_data,
5936: p_ipyv_rec => l_ipyv_rec
5934: x_msg_count => x_msg_count,
5935: x_msg_data => x_msg_data,
5936: p_ipyv_rec => l_ipyv_rec
5937: );
5938: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5939: CLOSE okl_ipyv_pk_csr;
5940: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5941: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5942: CLOSE okl_ipyv_pk_csr;
5936: p_ipyv_rec => l_ipyv_rec
5937: );
5938: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5939: CLOSE okl_ipyv_pk_csr;
5940: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5941: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5942: CLOSE okl_ipyv_pk_csr;
5943: RAISE OKC_API.G_EXCEPTION_ERROR;
5944: END IF;
5937: );
5938: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5939: CLOSE okl_ipyv_pk_csr;
5940: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5941: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5942: CLOSE okl_ipyv_pk_csr;
5943: RAISE OKC_API.G_EXCEPTION_ERROR;
5944: END IF;
5945: l_ipyv_rec.ISS_CODE := 'PENDING' ;
5939: CLOSE okl_ipyv_pk_csr;
5940: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5941: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5942: CLOSE okl_ipyv_pk_csr;
5943: RAISE OKC_API.G_EXCEPTION_ERROR;
5944: END IF;
5945: l_ipyv_rec.ISS_CODE := 'PENDING' ;
5946:
5947: -- Start of wraper code generated automatically by Debug code generator for Okl_Ins_Policies_Pub.update_ins_policies
5951: END;
5952: END IF;
5953: Okl_Ins_Policies_Pub.update_ins_policies(
5954: p_api_version => p_api_version,
5955: p_init_msg_list => OKC_API.G_FALSE,
5956: x_return_status => l_return_status,
5957: x_msg_count => x_msg_count,
5958: x_msg_data => x_msg_data,
5959: p_ipyv_rec => l_ipyv_rec,
5965: END;
5966: END IF;
5967: -- End of wraper code generated automatically by Debug code generator for Okl_Ins_Policies_Pub.update_ins_policies
5968:
5969: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5970: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5971: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5972: RAISE OKC_API.G_EXCEPTION_ERROR;
5973: END IF;
5966: END IF;
5967: -- End of wraper code generated automatically by Debug code generator for Okl_Ins_Policies_Pub.update_ins_policies
5968:
5969: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5970: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5971: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5972: RAISE OKC_API.G_EXCEPTION_ERROR;
5973: END IF;
5974:
5967: -- End of wraper code generated automatically by Debug code generator for Okl_Ins_Policies_Pub.update_ins_policies
5968:
5969: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5970: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5971: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5972: RAISE OKC_API.G_EXCEPTION_ERROR;
5973: END IF;
5974:
5975: END LOOP ;
5968:
5969: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5970: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5971: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
5972: RAISE OKC_API.G_EXCEPTION_ERROR;
5973: END IF;
5974:
5975: END LOOP ;
5976: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
5972: RAISE OKC_API.G_EXCEPTION_ERROR;
5973: END IF;
5974:
5975: END LOOP ;
5976: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
5977: -- x_no_data_found := okl_inav_pk_csr%NOTFOUND;
5978: CLOSE okl_ipyv_pk_csr;
5979: EXCEPTION
5980: WHEN OKC_API.G_EXCEPTION_ERROR THEN
5976: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
5977: -- x_no_data_found := okl_inav_pk_csr%NOTFOUND;
5978: CLOSE okl_ipyv_pk_csr;
5979: EXCEPTION
5980: WHEN OKC_API.G_EXCEPTION_ERROR THEN
5981: x_return_status := OKC_API.HANDLE_EXCEPTIONS
5982: (
5983: l_api_name,
5984: G_PKG_NAME,
5977: -- x_no_data_found := okl_inav_pk_csr%NOTFOUND;
5978: CLOSE okl_ipyv_pk_csr;
5979: EXCEPTION
5980: WHEN OKC_API.G_EXCEPTION_ERROR THEN
5981: x_return_status := OKC_API.HANDLE_EXCEPTIONS
5982: (
5983: l_api_name,
5984: G_PKG_NAME,
5985: 'OKC_API.G_RET_STS_ERROR',
5981: x_return_status := OKC_API.HANDLE_EXCEPTIONS
5982: (
5983: l_api_name,
5984: G_PKG_NAME,
5985: 'OKC_API.G_RET_STS_ERROR',
5986: x_msg_count,
5987: x_msg_data,
5988: '_PROCESS'
5989: );
5986: x_msg_count,
5987: x_msg_data,
5988: '_PROCESS'
5989: );
5990: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5991: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
5992: (
5993: l_api_name,
5994: G_PKG_NAME,
5987: x_msg_data,
5988: '_PROCESS'
5989: );
5990: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5991: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
5992: (
5993: l_api_name,
5994: G_PKG_NAME,
5995: 'OKC_API.G_RET_STS_UNEXP_ERROR',
5991: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
5992: (
5993: l_api_name,
5994: G_PKG_NAME,
5995: 'OKC_API.G_RET_STS_UNEXP_ERROR',
5996: x_msg_count,
5997: x_msg_data,
5998: '_PROCESS'
5999: );
5997: x_msg_data,
5998: '_PROCESS'
5999: );
6000: WHEN OTHERS THEN
6001: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
6002: (
6003: l_api_name,
6004: G_PKG_NAME,
6005: 'OTHERS',
6013: ---------------------------------------------------------------------------
6014: FUNCTION validate_contract_line (
6015: p_kle_id IN NUMBER
6016: ) RETURN VARCHAR2 IS
6017: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
6018: l_dummy_var VARCHAR2(1) := '?' ;
6019: CURSOR okl_k_line_csr(p_kle_id IN NUMBER) IS
6020: SELECT 'x'
6021: FROM OKL_K_LINES
6025: FETCH okl_k_line_csr INTO l_dummy_var ;
6026: CLOSE okl_k_line_csr ;
6027: -- still set to default means data was not found
6028: IF ( l_dummy_var = '?' ) THEN
6029: OKC_API.set_message(g_app_name,
6030: G_INVALID_CONTRACT_LINE);
6031: l_return_status := OKC_API.G_RET_STS_ERROR;
6032: END IF;
6033: RETURN(l_return_status);
6027: -- still set to default means data was not found
6028: IF ( l_dummy_var = '?' ) THEN
6029: OKC_API.set_message(g_app_name,
6030: G_INVALID_CONTRACT_LINE);
6031: l_return_status := OKC_API.G_RET_STS_ERROR;
6032: END IF;
6033: RETURN(l_return_status);
6034: EXCEPTION
6035: WHEN OTHERS THEN
6033: RETURN(l_return_status);
6034: EXCEPTION
6035: WHEN OTHERS THEN
6036: -- store SQL error message on message stack for caller
6037: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
6038: -- notify caller of an UNEXPECTED error
6039: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
6040: -- verify that cursor was closed
6041: IF okl_k_line_csr%ISOPEN THEN
6035: WHEN OTHERS THEN
6036: -- store SQL error message on message stack for caller
6037: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
6038: -- notify caller of an UNEXPECTED error
6039: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
6040: -- verify that cursor was closed
6041: IF okl_k_line_csr%ISOPEN THEN
6042: CLOSE okl_k_line_csr;
6043: END IF;
6047: PROCEDURE activate_ins_streams(
6048: errbuf OUT NOCOPY VARCHAR2,
6049: retcode OUT NOCOPY NUMBER
6050: ) IS
6051: l_init_msg_list VARCHAR2(1) := Okc_Api.G_FALSE ;
6052: l_msg_count NUMBER ;
6053: l_msg_data VARCHAR2(2000);
6054: l_api_version CONSTANT NUMBER := 1;
6055: l_api_name CONSTANT VARCHAR2(30) := 'ACTIVATE_INS_STREAMS';
6052: l_msg_count NUMBER ;
6053: l_msg_data VARCHAR2(2000);
6054: l_api_version CONSTANT NUMBER := 1;
6055: l_api_name CONSTANT VARCHAR2(30) := 'ACTIVATE_INS_STREAMS';
6056: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
6057: l_percentage_criteria NUMBER ;
6058: l_afterlease_criteria NUMBER ;
6059:
6060: l_policy_id NUMBER;
6062: activated_pol_tbl OKL_INS_QUOTE_PVT.policy_tbl_type ;
6063: nonactivated_pol_tbl OKL_INS_QUOTE_PVT.policy_tbl_type;
6064: l_activated_counter NUMBER := 0;
6065: l_notactivated_counter NUMBER := 0;
6066: l_khr_number OKC_K_HEADERS_V.CONTRACT_NUMBER%TYPE := OKC_API.G_MISS_CHAR ;
6067:
6068: -- Bug 3742614 Modified Cursor definition
6069: CURSOR okl_eli_policies_csr(l_afterlease_criteria IN NUMBER,l_percentage_criteria IN NUMBER )
6070: IS
6112: l_afterlease_criteria := fnd_profile.value('OKLINDAYSFORACTIVATION');
6113: -- Bug 3742614 changed the profile name and output message
6114: l_percentage_criteria := fnd_profile.value('OKLINPERCENTFORACTIVATION');
6115: -- Check for NULL values and return if either of these is null
6116: IF l_afterlease_criteria = Okc_Api.G_MISS_NUM OR l_afterlease_criteria IS NULL THEN
6117: Fnd_File.PUT_LINE(Fnd_File.OUTPUT,'SYSTEM PROFILE FOR OKLINDAYSFORACTIVATION IS NOT defined');
6118: RETURN;
6119: END IF;
6120: -- Check for NULL values and return if any of these is null
6117: Fnd_File.PUT_LINE(Fnd_File.OUTPUT,'SYSTEM PROFILE FOR OKLINDAYSFORACTIVATION IS NOT defined');
6118: RETURN;
6119: END IF;
6120: -- Check for NULL values and return if any of these is null
6121: IF l_percentage_criteria = Okc_Api.G_MISS_NUM OR l_percentage_criteria IS NULL THEN
6122: Fnd_File.PUT_LINE(Fnd_File.OUTPUT,'SYSTEM PROFILE FOR OKLINPERCENTFORACTIVATION IS NOT defined');
6123: RETURN;
6124: END IF;
6125: OPEN okl_eli_policies_csr(l_afterlease_criteria ,l_percentage_criteria );
6133:
6134: -- Bug 3742614 Calling different procedure to activate policy
6135: activate_ins_policy(
6136: p_api_version => l_api_version,
6137: p_init_msg_list => Okc_Api.G_TRUE,
6138: x_return_status => l_return_status,
6139: x_msg_count => l_msg_count,
6140: x_msg_data => l_msg_data,
6141: p_ins_policy_id => l_policy_id
6140: x_msg_data => l_msg_data,
6141: p_ins_policy_id => l_policy_id
6142: );
6143:
6144: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6145: -- Bug 3742614 building the table for Formated output for activated and
6146: -- errored policies with reasons
6147: Fnd_File.PUT_LINE(Fnd_File.OUTPUT,'Policy Number : ' ||l_policy_number|| ' Can not be Activated' );
6148: Fnd_File.PUT_LINE(Fnd_File.OUTPUT,'--Reason IS ----' );
6154: l_notactivated_counter := l_notactivated_counter + 1;
6155: nonactivated_pol_tbl(l_notactivated_counter).CONTRACT_NUMBER := l_khr_number;
6156: nonactivated_pol_tbl(l_notactivated_counter).POLICY_NUMBER := l_policy_number;
6157: RETURN;
6158: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR)
6159: THEN
6160: Fnd_File.PUT_LINE(Fnd_File.OUTPUT,'Policy Number : ' ||l_policy_number || ' Can not be Activated' );
6161: Fnd_File.PUT_LINE(Fnd_File.OUTPUT,'--Reason is ----' );
6162: FOR i IN 1..l_msg_count
6229: l_msg_count NUMBER ;
6230: l_msg_data VARCHAR2(2000);
6231: l_api_version CONSTANT NUMBER := 1;
6232: l_api_name CONSTANT VARCHAR2(30) := 'ACTIVATE_INS_STREAM';
6233: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
6234: x_stmv_rec Okl_Streams_Pvt.stmv_rec_type;
6235: l_khr_status VARCHAR2 (30) ;
6236: lx_ipyv_rec ipyv_rec_type ;
6237: l_ipyv_rec ipyv_rec_type ;
6236: lx_ipyv_rec ipyv_rec_type ;
6237: l_ipyv_rec ipyv_rec_type ;
6238: l_contract_number VARCHAR2(120); --3745151 Invalid error message fix.
6239: BEGIN
6240: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
6241: G_PKG_NAME,
6242: p_init_msg_list,
6243: l_api_version,
6244: p_api_version,
6244: p_api_version,
6245: '_PROCESS',
6246: l_return_status);
6247:
6248: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6249: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6250: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
6251: RAISE OKC_API.G_EXCEPTION_ERROR;
6252: END IF;
6245: '_PROCESS',
6246: l_return_status);
6247:
6248: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6249: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6250: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
6251: RAISE OKC_API.G_EXCEPTION_ERROR;
6252: END IF;
6253:
6246: l_return_status);
6247:
6248: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6249: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6250: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
6251: RAISE OKC_API.G_EXCEPTION_ERROR;
6252: END IF;
6253:
6254: -------------------------------------------------------------------------
6247:
6248: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6249: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6250: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
6251: RAISE OKC_API.G_EXCEPTION_ERROR;
6252: END IF;
6253:
6254: -------------------------------------------------------------------------
6255: ---- Check for Status of Contract
6255: ---- Check for Status of Contract
6256: ---------------------------------------------------------------------------
6257: l_return_status := get_contract_status(p_ipyv_rec.khr_id, l_khr_status);
6258:
6259: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6260: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6261: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
6262: RAISE OKC_API.G_EXCEPTION_ERROR;
6263: END IF;
6256: ---------------------------------------------------------------------------
6257: l_return_status := get_contract_status(p_ipyv_rec.khr_id, l_khr_status);
6258:
6259: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6260: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6261: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
6262: RAISE OKC_API.G_EXCEPTION_ERROR;
6263: END IF;
6264:
6257: l_return_status := get_contract_status(p_ipyv_rec.khr_id, l_khr_status);
6258:
6259: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6260: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6261: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
6262: RAISE OKC_API.G_EXCEPTION_ERROR;
6263: END IF;
6264:
6265:
6258:
6259: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6260: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6261: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
6262: RAISE OKC_API.G_EXCEPTION_ERROR;
6263: END IF;
6264:
6265:
6266: -------------------------------------------------------------------------
6267: ---- Check for Policy Statuses
6268: ---------------------------------------------------------------------------
6269:
6270: IF (p_ipyv_rec.ISS_CODE <> 'ACCEPTED' ) THEN
6271: OKC_API.set_message(G_APP_NAME,'OKL_INVALID_POLICY' );
6272: l_return_status := OKC_API.G_RET_STS_ERROR ;
6273: RAISE OKC_API.G_EXCEPTION_ERROR;
6274: END IF ;
6275:
6268: ---------------------------------------------------------------------------
6269:
6270: IF (p_ipyv_rec.ISS_CODE <> 'ACCEPTED' ) THEN
6271: OKC_API.set_message(G_APP_NAME,'OKL_INVALID_POLICY' );
6272: l_return_status := OKC_API.G_RET_STS_ERROR ;
6273: RAISE OKC_API.G_EXCEPTION_ERROR;
6274: END IF ;
6275:
6276:
6269:
6270: IF (p_ipyv_rec.ISS_CODE <> 'ACCEPTED' ) THEN
6271: OKC_API.set_message(G_APP_NAME,'OKL_INVALID_POLICY' );
6272: l_return_status := OKC_API.G_RET_STS_ERROR ;
6273: RAISE OKC_API.G_EXCEPTION_ERROR;
6274: END IF ;
6275:
6276:
6277: -------------------------------------------------------------------------
6278: ---- Check for Contract Line
6279: ---------------------------------------------------------------------------
6280: l_return_status := validate_contract_line(p_ipyv_rec.kle_id);
6281:
6282: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6283: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6284: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
6285: RAISE OKC_API.G_EXCEPTION_ERROR;
6286: END IF;
6279: ---------------------------------------------------------------------------
6280: l_return_status := validate_contract_line(p_ipyv_rec.kle_id);
6281:
6282: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6283: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6284: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
6285: RAISE OKC_API.G_EXCEPTION_ERROR;
6286: END IF;
6287: ---------------------------------------------------------------------
6280: l_return_status := validate_contract_line(p_ipyv_rec.kle_id);
6281:
6282: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6283: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6284: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
6285: RAISE OKC_API.G_EXCEPTION_ERROR;
6286: END IF;
6287: ---------------------------------------------------------------------
6288: ----------- get stream
6281:
6282: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6283: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6284: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
6285: RAISE OKC_API.G_EXCEPTION_ERROR;
6286: END IF;
6287: ---------------------------------------------------------------------
6288: ----------- get stream
6289: -------------------------------------------------------------------
6295: 'INSURANCE_RECEIVABLE',
6296: l_return_status,
6297: p_sty_id);
6298:
6299: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6300: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
6301: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6302: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
6303: OKC_API.set_message(G_APP_NAME, 'OKL_NO_STREAM_TYPE',G_PURPOSE_TOKEN,'INSURANCE RECEIVABLE'); --bug 4024785
6296: l_return_status,
6297: p_sty_id);
6298:
6299: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6300: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
6301: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6302: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
6303: OKC_API.set_message(G_APP_NAME, 'OKL_NO_STREAM_TYPE',G_PURPOSE_TOKEN,'INSURANCE RECEIVABLE'); --bug 4024785
6304: RAISE OKC_API.G_EXCEPTION_ERROR;
6297: p_sty_id);
6298:
6299: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6300: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
6301: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6302: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
6303: OKC_API.set_message(G_APP_NAME, 'OKL_NO_STREAM_TYPE',G_PURPOSE_TOKEN,'INSURANCE RECEIVABLE'); --bug 4024785
6304: RAISE OKC_API.G_EXCEPTION_ERROR;
6305: END IF;
6298:
6299: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6300: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
6301: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6302: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
6303: OKC_API.set_message(G_APP_NAME, 'OKL_NO_STREAM_TYPE',G_PURPOSE_TOKEN,'INSURANCE RECEIVABLE'); --bug 4024785
6304: RAISE OKC_API.G_EXCEPTION_ERROR;
6305: END IF;
6306:
6299: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6300: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
6301: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6302: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
6303: OKC_API.set_message(G_APP_NAME, 'OKL_NO_STREAM_TYPE',G_PURPOSE_TOKEN,'INSURANCE RECEIVABLE'); --bug 4024785
6304: RAISE OKC_API.G_EXCEPTION_ERROR;
6305: END IF;
6306:
6307:
6300: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
6301: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6302: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
6303: OKC_API.set_message(G_APP_NAME, 'OKL_NO_STREAM_TYPE',G_PURPOSE_TOKEN,'INSURANCE RECEIVABLE'); --bug 4024785
6304: RAISE OKC_API.G_EXCEPTION_ERROR;
6305: END IF;
6306:
6307:
6308:
6315: -- get Stream Record
6316: l_stmv_rec := get_stream_header(l_stmv_rec,l_row_notfound );
6317:
6318: IF (l_row_notfound = TRUE ) THEN
6319: OKC_API.set_message(G_APP_NAME,
6320: G_NO_STREAM_REC_FOUND
6321: );
6322: RAISE OKC_API.G_EXCEPTION_ERROR;
6323: END IF;
6318: IF (l_row_notfound = TRUE ) THEN
6319: OKC_API.set_message(G_APP_NAME,
6320: G_NO_STREAM_REC_FOUND
6321: );
6322: RAISE OKC_API.G_EXCEPTION_ERROR;
6323: END IF;
6324:
6325: IF ( UPPER(l_stmv_rec.active_yn)= 'Y' ) THEN
6326: SELECT contract_number INTO l_contract_number
6325: IF ( UPPER(l_stmv_rec.active_yn)= 'Y' ) THEN
6326: SELECT contract_number INTO l_contract_number
6327: from OKC_K_HEADERS_B
6328: WHERE ID = p_ipyv_rec.khr_id;
6329: OKC_API.set_message(G_APP_NAME,
6330: G_STREAM_ALREADY_ACTIVE,'COL_NAME',l_contract_number);
6331:
6332: RAISE OKC_API.G_EXCEPTION_ERROR;
6333: END IF;
6328: WHERE ID = p_ipyv_rec.khr_id;
6329: OKC_API.set_message(G_APP_NAME,
6330: G_STREAM_ALREADY_ACTIVE,'COL_NAME',l_contract_number);
6331:
6332: RAISE OKC_API.G_EXCEPTION_ERROR;
6333: END IF;
6334: l_stmv_rec.active_yn := 'Y' ;
6335: l_stmv_rec.date_current := SYSDATE ;
6336: l_stmv_rec.SAY_CODE := 'CURR' ;
6345: END;
6346: END IF;
6347: Okl_Streams_Pub.update_streams (
6348: p_api_version => l_api_version,
6349: p_init_msg_list => Okc_Api.G_FALSE ,
6350: x_return_status => l_return_status ,
6351: x_msg_count => x_msg_count,
6352: x_msg_data => x_msg_data ,
6353: p_stmv_rec => l_stmv_rec,
6358: END;
6359: END IF;
6360: -- End of wraper code generated automatically by Debug code generator for Okl_Streams_Pub.update_streams
6361:
6362: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6363:
6364: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6365: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
6366:
6360: -- End of wraper code generated automatically by Debug code generator for Okl_Streams_Pub.update_streams
6361:
6362: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6363:
6364: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6365: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
6366:
6367: RAISE OKC_API.G_EXCEPTION_ERROR;
6368: END IF;
6361:
6362: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6363:
6364: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6365: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
6366:
6367: RAISE OKC_API.G_EXCEPTION_ERROR;
6368: END IF;
6369: l_ipyv_rec := p_ipyv_rec ;
6363:
6364: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6365: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
6366:
6367: RAISE OKC_API.G_EXCEPTION_ERROR;
6368: END IF;
6369: l_ipyv_rec := p_ipyv_rec ;
6370: l_ipyv_rec.ISS_CODE := 'PENDING' ;
6371:
6376: END;
6377: END IF;
6378: Okl_Ins_Policies_Pub.update_ins_policies(
6379: p_api_version => p_api_version,
6380: p_init_msg_list => OKC_API.G_FALSE,
6381: x_return_status => l_return_status,
6382: x_msg_count => x_msg_count,
6383: x_msg_data => x_msg_data,
6384: p_ipyv_rec => l_ipyv_rec,
6390: END;
6391: END IF;
6392: -- End of wraper code generated automatically by Debug code generator for Okl_Ins_Policies_Pub.update_ins_policies
6393:
6394: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6395: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6396: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
6397: RAISE OKC_API.G_EXCEPTION_ERROR;
6398: END IF;
6391: END IF;
6392: -- End of wraper code generated automatically by Debug code generator for Okl_Ins_Policies_Pub.update_ins_policies
6393:
6394: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6395: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6396: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
6397: RAISE OKC_API.G_EXCEPTION_ERROR;
6398: END IF;
6399:
6392: -- End of wraper code generated automatically by Debug code generator for Okl_Ins_Policies_Pub.update_ins_policies
6393:
6394: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6395: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6396: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
6397: RAISE OKC_API.G_EXCEPTION_ERROR;
6398: END IF;
6399:
6400: -- gboomina start - Bug 4728636
6393:
6394: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6395: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6396: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
6397: RAISE OKC_API.G_EXCEPTION_ERROR;
6398: END IF;
6399:
6400: -- gboomina start - Bug 4728636
6401: OKL_BILLING_CONTROLLER_PVT.track_next_bill_date ( p_ipyv_rec.khr_id );
6400: -- gboomina start - Bug 4728636
6401: OKL_BILLING_CONTROLLER_PVT.track_next_bill_date ( p_ipyv_rec.khr_id );
6402: -- gboomina end - Bug 4728636
6403:
6404: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
6405: EXCEPTION
6406: WHEN OKC_API.G_EXCEPTION_ERROR THEN
6407: x_return_status := OKC_API.HANDLE_EXCEPTIONS
6408: (
6402: -- gboomina end - Bug 4728636
6403:
6404: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
6405: EXCEPTION
6406: WHEN OKC_API.G_EXCEPTION_ERROR THEN
6407: x_return_status := OKC_API.HANDLE_EXCEPTIONS
6408: (
6409: l_api_name,
6410: G_PKG_NAME,
6403:
6404: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
6405: EXCEPTION
6406: WHEN OKC_API.G_EXCEPTION_ERROR THEN
6407: x_return_status := OKC_API.HANDLE_EXCEPTIONS
6408: (
6409: l_api_name,
6410: G_PKG_NAME,
6411: 'OKC_API.G_RET_STS_ERROR',
6407: x_return_status := OKC_API.HANDLE_EXCEPTIONS
6408: (
6409: l_api_name,
6410: G_PKG_NAME,
6411: 'OKC_API.G_RET_STS_ERROR',
6412: x_msg_count,
6413: x_msg_data,
6414: '_PROCESS'
6415: );
6412: x_msg_count,
6413: x_msg_data,
6414: '_PROCESS'
6415: );
6416: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
6417: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
6418: (
6419: l_api_name,
6420: G_PKG_NAME,
6413: x_msg_data,
6414: '_PROCESS'
6415: );
6416: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
6417: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
6418: (
6419: l_api_name,
6420: G_PKG_NAME,
6421: 'OKC_API.G_RET_STS_UNEXP_ERROR',
6417: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
6418: (
6419: l_api_name,
6420: G_PKG_NAME,
6421: 'OKC_API.G_RET_STS_UNEXP_ERROR',
6422: x_msg_count,
6423: x_msg_data,
6424: '_PROCESS'
6425: );
6423: x_msg_data,
6424: '_PROCESS'
6425: );
6426: WHEN OTHERS THEN
6427: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
6428: (
6429: l_api_name,
6430: G_PKG_NAME,
6431: 'OTHERS',
6447: p_ipyv_rec IN ipyv_rec_type)
6448: IS
6449: l_api_version CONSTANT NUMBER := 1;
6450: l_api_name CONSTANT VARCHAR2(30) := 'policy_payment';
6451: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
6452: l_lessor_premium NUMBER;
6453: l_yearly_payment NUMBER;
6454: CURSOR okl_lessor_premium(p_ipy_id NUMBER) IS
6455: SELECT SUM(LESSOR_PREMIUM)
6495: l_payment_tbl_type payment_tbl_type;
6496:
6497: BEGIN
6498:
6499: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
6500: G_PKG_NAME,
6501: p_init_msg_list,
6502: l_api_version,
6503: p_api_version,
6502: l_api_version,
6503: p_api_version,
6504: '_PROCESS',
6505: x_return_status);
6506: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6507: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6508: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
6509: RAISE OKC_API.G_EXCEPTION_ERROR;
6510: END IF;
6503: p_api_version,
6504: '_PROCESS',
6505: x_return_status);
6506: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6507: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6508: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
6509: RAISE OKC_API.G_EXCEPTION_ERROR;
6510: END IF;
6511:
6504: '_PROCESS',
6505: x_return_status);
6506: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6507: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6508: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
6509: RAISE OKC_API.G_EXCEPTION_ERROR;
6510: END IF;
6511:
6512:
6505: x_return_status);
6506: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6507: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6508: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
6509: RAISE OKC_API.G_EXCEPTION_ERROR;
6510: END IF;
6511:
6512:
6513: -- gboomina starts Bug#4661337 Changed OKLINPERCENTTOTOTALPAYMENT tO OKLINPERCENTTOTALPAYMENT
6512:
6513: -- gboomina starts Bug#4661337 Changed OKLINPERCENTTOTOTALPAYMENT tO OKLINPERCENTTOTALPAYMENT
6514: l_percentage := fnd_profile.value('OKLINPERCENTTOTALPAYMENT');
6515: -- gboomina ends Bug#4661337
6516: IF((l_percentage IS NULL ) OR (l_percentage = OKC_API.G_MISS_NUM )) THEN
6517: l_percentage := 1;
6518: ELSE
6519: l_percentage := l_percentage /100 ;
6520: END IF;
6530: 'INSURANCE_PAYABLE',
6531: l_return_status,
6532: l_strm_type_id);
6533:
6534: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6535: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6536: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
6537: Okc_Api.set_message(G_APP_NAME, 'OKL_NO_STREAM_TYPE', G_PURPOSE_TOKEN,'INSURANCE_PAYABLE'); --bug 4024785
6538: x_return_status := OKC_API.G_RET_STS_ERROR ;
6531: l_return_status,
6532: l_strm_type_id);
6533:
6534: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6535: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6536: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
6537: Okc_Api.set_message(G_APP_NAME, 'OKL_NO_STREAM_TYPE', G_PURPOSE_TOKEN,'INSURANCE_PAYABLE'); --bug 4024785
6538: x_return_status := OKC_API.G_RET_STS_ERROR ;
6539: RAISE OKC_API.G_EXCEPTION_ERROR;
6532: l_strm_type_id);
6533:
6534: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6535: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6536: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
6537: Okc_Api.set_message(G_APP_NAME, 'OKL_NO_STREAM_TYPE', G_PURPOSE_TOKEN,'INSURANCE_PAYABLE'); --bug 4024785
6538: x_return_status := OKC_API.G_RET_STS_ERROR ;
6539: RAISE OKC_API.G_EXCEPTION_ERROR;
6540: END IF;
6533:
6534: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6535: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6536: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
6537: Okc_Api.set_message(G_APP_NAME, 'OKL_NO_STREAM_TYPE', G_PURPOSE_TOKEN,'INSURANCE_PAYABLE'); --bug 4024785
6538: x_return_status := OKC_API.G_RET_STS_ERROR ;
6539: RAISE OKC_API.G_EXCEPTION_ERROR;
6540: END IF;
6541:
6534: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6535: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6536: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
6537: Okc_Api.set_message(G_APP_NAME, 'OKL_NO_STREAM_TYPE', G_PURPOSE_TOKEN,'INSURANCE_PAYABLE'); --bug 4024785
6538: x_return_status := OKC_API.G_RET_STS_ERROR ;
6539: RAISE OKC_API.G_EXCEPTION_ERROR;
6540: END IF;
6541:
6542:
6535: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6536: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
6537: Okc_Api.set_message(G_APP_NAME, 'OKL_NO_STREAM_TYPE', G_PURPOSE_TOKEN,'INSURANCE_PAYABLE'); --bug 4024785
6538: x_return_status := OKC_API.G_RET_STS_ERROR ;
6539: RAISE OKC_API.G_EXCEPTION_ERROR;
6540: END IF;
6541:
6542:
6543: OPEN c_trx_type ('Disbursement', 'US');
6542:
6543: OPEN c_trx_type ('Disbursement', 'US');
6544: FETCH c_trx_type INTO l_trx_type_ID;
6545: IF(c_trx_type%NOTFOUND) THEN
6546: Okc_Api.set_message(G_APP_NAME,'OKL_AM_NO_TRX_TYPE_FOUND',
6547: 'TRY_NAME','Disbursement'); --Changed message code for bug 3745151
6548: x_return_status := OKC_API.G_RET_STS_ERROR ;
6549: CLOSE c_trx_type ;
6550: RAISE OKC_API.G_EXCEPTION_ERROR;
6544: FETCH c_trx_type INTO l_trx_type_ID;
6545: IF(c_trx_type%NOTFOUND) THEN
6546: Okc_Api.set_message(G_APP_NAME,'OKL_AM_NO_TRX_TYPE_FOUND',
6547: 'TRY_NAME','Disbursement'); --Changed message code for bug 3745151
6548: x_return_status := OKC_API.G_RET_STS_ERROR ;
6549: CLOSE c_trx_type ;
6550: RAISE OKC_API.G_EXCEPTION_ERROR;
6551: END if ;
6552: CLOSE c_trx_type ;
6546: Okc_Api.set_message(G_APP_NAME,'OKL_AM_NO_TRX_TYPE_FOUND',
6547: 'TRY_NAME','Disbursement'); --Changed message code for bug 3745151
6548: x_return_status := OKC_API.G_RET_STS_ERROR ;
6549: CLOSE c_trx_type ;
6550: RAISE OKC_API.G_EXCEPTION_ERROR;
6551: END if ;
6552: CLOSE c_trx_type ;
6553:
6554:
6555: IF (p_ipyv_rec.IPY_TYPE = 'LEASE_POLICY' ) THEN
6556: OPEN okl_lessor_premium(p_ipyv_rec.id) ;
6557: FETCH okl_lessor_premium INTO l_lessor_premium ;
6558: IF (okl_lessor_premium%NOTFOUND) THEN
6559: OKC_API.set_message(G_APP_NAME,G_INVALID_VALUE,
6560: G_COL_NAME_TOKEN,'Policy Number' );
6561: CLOSE okl_lessor_premium ;
6562: RAISE OKC_API.G_EXCEPTION_ERROR;
6563: END IF;
6558: IF (okl_lessor_premium%NOTFOUND) THEN
6559: OKC_API.set_message(G_APP_NAME,G_INVALID_VALUE,
6560: G_COL_NAME_TOKEN,'Policy Number' );
6561: CLOSE okl_lessor_premium ;
6562: RAISE OKC_API.G_EXCEPTION_ERROR;
6563: END IF;
6564: CLOSE okl_lessor_premium ;
6565:
6566: IF(p_ipyv_rec.ipf_code = 'MONTHLY') THEN
6579: OPEN okl_ins_rate_csr(p_ipyv_rec.territory_code , p_ipyv_rec.ipt_id ,
6580: p_ipyv_rec.date_from , p_ipyv_rec.factor_value );
6581: FETCH okl_ins_rate_csr INTO l_factor ;
6582: IF(okl_ins_rate_csr%NOTFOUND) THEN
6583: OKC_API.set_message(G_APP_NAME, 'OKL_NO_OPTINSPRODUCT_RATE');
6584: x_return_status := OKC_API.G_RET_STS_ERROR ;
6585: CLOSE okl_ins_rate_csr ;
6586: RAISE OKC_API.G_EXCEPTION_ERROR;
6587: END if ;
6580: p_ipyv_rec.date_from , p_ipyv_rec.factor_value );
6581: FETCH okl_ins_rate_csr INTO l_factor ;
6582: IF(okl_ins_rate_csr%NOTFOUND) THEN
6583: OKC_API.set_message(G_APP_NAME, 'OKL_NO_OPTINSPRODUCT_RATE');
6584: x_return_status := OKC_API.G_RET_STS_ERROR ;
6585: CLOSE okl_ins_rate_csr ;
6586: RAISE OKC_API.G_EXCEPTION_ERROR;
6587: END if ;
6588: CLOSE okl_ins_rate_csr;
6582: IF(okl_ins_rate_csr%NOTFOUND) THEN
6583: OKC_API.set_message(G_APP_NAME, 'OKL_NO_OPTINSPRODUCT_RATE');
6584: x_return_status := OKC_API.G_RET_STS_ERROR ;
6585: CLOSE okl_ins_rate_csr ;
6586: RAISE OKC_API.G_EXCEPTION_ERROR;
6587: END if ;
6588: CLOSE okl_ins_rate_csr;
6589:
6590:
6623: l_payment_tbl := l_payment_tbl + 1;
6624: l_payment_tbl_type(l_payment_tbl).DUE_DATE :=add_months(p_ipyv_rec.date_from, (j )*12) ; -- Bug 4213633
6625: l_payment_tbl_type(l_payment_tbl).AMOUNT :=l_yearly_payment ;
6626:
6627: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6628: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6629: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
6630: RAISE OKC_API.G_EXCEPTION_ERROR;
6631: END IF;
6624: l_payment_tbl_type(l_payment_tbl).DUE_DATE :=add_months(p_ipyv_rec.date_from, (j )*12) ; -- Bug 4213633
6625: l_payment_tbl_type(l_payment_tbl).AMOUNT :=l_yearly_payment ;
6626:
6627: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6628: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6629: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
6630: RAISE OKC_API.G_EXCEPTION_ERROR;
6631: END IF;
6632: END LOOP;
6625: l_payment_tbl_type(l_payment_tbl).AMOUNT :=l_yearly_payment ;
6626:
6627: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6628: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6629: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
6630: RAISE OKC_API.G_EXCEPTION_ERROR;
6631: END IF;
6632: END LOOP;
6633: END IF;
6626:
6627: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6628: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6629: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
6630: RAISE OKC_API.G_EXCEPTION_ERROR;
6631: END IF;
6632: END LOOP;
6633: END IF;
6634:
6647:
6648:
6649: payment_stream(
6650: p_api_version =>l_api_version,
6651: p_init_msg_list => OKC_API.G_FALSE,
6652: x_return_status => l_return_status,
6653: x_msg_count => x_msg_count,
6654: x_msg_data => x_msg_data ,
6655: p_ipyv_rec => p_ipyv_rec,
6654: x_msg_data => x_msg_data ,
6655: p_ipyv_rec => p_ipyv_rec,
6656: p_payment_tbl_type => l_payment_tbl_type );
6657:
6658: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6659: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6660: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
6661: RAISE OKC_API.G_EXCEPTION_ERROR;
6662: END IF;
6655: p_ipyv_rec => p_ipyv_rec,
6656: p_payment_tbl_type => l_payment_tbl_type );
6657:
6658: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6659: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6660: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
6661: RAISE OKC_API.G_EXCEPTION_ERROR;
6662: END IF;
6663:
6656: p_payment_tbl_type => l_payment_tbl_type );
6657:
6658: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6659: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6660: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
6661: RAISE OKC_API.G_EXCEPTION_ERROR;
6662: END IF;
6663:
6664:
6657:
6658: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6659: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6660: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
6661: RAISE OKC_API.G_EXCEPTION_ERROR;
6662: END IF;
6663:
6664:
6665:
6666:
6667: -- Create accrual streams
6668: create_insexp_streams(
6669: p_api_version =>l_api_version,
6670: p_init_msg_list => OKC_API.G_FALSE,
6671: x_return_status => l_return_status,
6672: x_msg_count => x_msg_count,
6673: x_msg_data => x_msg_data ,
6674: p_insexp_tbl => lnsexp_tbl_type,
6676: p_kle_id => p_ipyv_rec.kle_id,
6677: p_date_from => p_ipyv_rec.date_from );
6678:
6679:
6680: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6681: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6682: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
6683: RAISE OKC_API.G_EXCEPTION_ERROR;
6684: END IF;
6677: p_date_from => p_ipyv_rec.date_from );
6678:
6679:
6680: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6681: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6682: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
6683: RAISE OKC_API.G_EXCEPTION_ERROR;
6684: END IF;
6685:
6678:
6679:
6680: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6681: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6682: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
6683: RAISE OKC_API.G_EXCEPTION_ERROR;
6684: END IF;
6685:
6686:
6679:
6680: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6681: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6682: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
6683: RAISE OKC_API.G_EXCEPTION_ERROR;
6684: END IF;
6685:
6686:
6687: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
6683: RAISE OKC_API.G_EXCEPTION_ERROR;
6684: END IF;
6685:
6686:
6687: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
6688: EXCEPTION
6689: WHEN OKC_API.G_EXCEPTION_ERROR THEN
6690: x_return_status := OKC_API.HANDLE_EXCEPTIONS
6691: (
6685:
6686:
6687: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
6688: EXCEPTION
6689: WHEN OKC_API.G_EXCEPTION_ERROR THEN
6690: x_return_status := OKC_API.HANDLE_EXCEPTIONS
6691: (
6692: l_api_name,
6693: G_PKG_NAME,
6686:
6687: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
6688: EXCEPTION
6689: WHEN OKC_API.G_EXCEPTION_ERROR THEN
6690: x_return_status := OKC_API.HANDLE_EXCEPTIONS
6691: (
6692: l_api_name,
6693: G_PKG_NAME,
6694: 'OKC_API.G_RET_STS_ERROR',
6690: x_return_status := OKC_API.HANDLE_EXCEPTIONS
6691: (
6692: l_api_name,
6693: G_PKG_NAME,
6694: 'OKC_API.G_RET_STS_ERROR',
6695: x_msg_count,
6696: x_msg_data,
6697: '_PROCESS'
6698: );
6695: x_msg_count,
6696: x_msg_data,
6697: '_PROCESS'
6698: );
6699: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
6700: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
6701: (
6702: l_api_name,
6703: G_PKG_NAME,
6696: x_msg_data,
6697: '_PROCESS'
6698: );
6699: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
6700: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
6701: (
6702: l_api_name,
6703: G_PKG_NAME,
6704: 'OKC_API.G_RET_STS_UNEXP_ERROR',
6700: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
6701: (
6702: l_api_name,
6703: G_PKG_NAME,
6704: 'OKC_API.G_RET_STS_UNEXP_ERROR',
6705: x_msg_count,
6706: x_msg_data,
6707: '_PROCESS'
6708: );
6706: x_msg_data,
6707: '_PROCESS'
6708: );
6709: WHEN OTHERS THEN
6710: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
6711: (
6712: l_api_name,
6713: G_PKG_NAME,
6714: 'OTHERS',
6785: lx_ipyv_rec ipyv_rec_type ;
6786: l_ipyv_rec ipyv_rec_type ;
6787: l_api_version CONSTANT NUMBER := 1;
6788: l_api_name CONSTANT VARCHAR2(30) := 'activate_ins_policy';
6789: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
6790: l_clev_rec okl_okc_migration_pvt.clev_rec_type;
6791: lx_clev_rec okl_okc_migration_pvt.clev_rec_type;
6792: l_klev_rec Okl_Kle_Pvt.klev_rec_type ;
6793: l_dummy VARCHAR2(1) := '?';
6912: AND KHR.DEAL_TYPE = 'LOAN'
6913: AND CLE.DNZ_CHR_ID = p_khr_id)
6914: GROUP BY CONTRACT_ID;
6915: BEGIN
6916: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
6917: G_PKG_NAME,
6918: p_init_msg_list,
6919: l_api_version,
6920: p_api_version,
6919: l_api_version,
6920: p_api_version,
6921: '_PROCESS',
6922: x_return_status);
6923: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6924: x_return_status := Okc_Api.G_RET_STS_ERROR;
6925: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6926: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
6927: -- Status temp
6920: p_api_version,
6921: '_PROCESS',
6922: x_return_status);
6923: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6924: x_return_status := Okc_Api.G_RET_STS_ERROR;
6925: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6926: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
6927: -- Status temp
6928: RAISE OKC_API.G_EXCEPTION_ERROR;
6921: '_PROCESS',
6922: x_return_status);
6923: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6924: x_return_status := Okc_Api.G_RET_STS_ERROR;
6925: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6926: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
6927: -- Status temp
6928: RAISE OKC_API.G_EXCEPTION_ERROR;
6929: END IF;
6922: x_return_status);
6923: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6924: x_return_status := Okc_Api.G_RET_STS_ERROR;
6925: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6926: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
6927: -- Status temp
6928: RAISE OKC_API.G_EXCEPTION_ERROR;
6929: END IF;
6930:
6924: x_return_status := Okc_Api.G_RET_STS_ERROR;
6925: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6926: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
6927: -- Status temp
6928: RAISE OKC_API.G_EXCEPTION_ERROR;
6929: END IF;
6930:
6931: ----------------------------------------------------------------------
6932: ----------- get Record ---------------------------------------
6938: ------------------------------------------------------------------------
6939:
6940: -- check for Third Party
6941: IF (l_ipyv_rec.IPY_TYPE = 'THIRD_PARTY_POLICY' ) THEN
6942: OKC_API.set_message(G_APP_NAME,G_INVALID_FOR_ACTIVE_TYPE,
6943: G_COL_NAME_TOKEN,l_ipyv_rec.IPY_TYPE );
6944: -- Status temp
6945: RAISE OKC_API.G_EXCEPTION_ERROR;
6946: END IF;
6941: IF (l_ipyv_rec.IPY_TYPE = 'THIRD_PARTY_POLICY' ) THEN
6942: OKC_API.set_message(G_APP_NAME,G_INVALID_FOR_ACTIVE_TYPE,
6943: G_COL_NAME_TOKEN,l_ipyv_rec.IPY_TYPE );
6944: -- Status temp
6945: RAISE OKC_API.G_EXCEPTION_ERROR;
6946: END IF;
6947: -------------------------------------------------------------------------
6948: ------ Check for Policy Status
6949: -------------------------------------------------------------------------
6948: ------ Check for Policy Status
6949: -------------------------------------------------------------------------
6950: -- Check for Status
6951: IF (l_ipyv_rec.ISS_CODE <> 'PENDING' ) THEN
6952: OKC_API.set_message(G_APP_NAME,G_INVALID_FOR_ACTIVE_STATUS ); --3745151 Fix for invalid error message.
6953: RAISE OKC_API.G_EXCEPTION_ERROR;
6954: END IF;
6955:
6956: -------------------------------------------------------------------------
6949: -------------------------------------------------------------------------
6950: -- Check for Status
6951: IF (l_ipyv_rec.ISS_CODE <> 'PENDING' ) THEN
6952: OKC_API.set_message(G_APP_NAME,G_INVALID_FOR_ACTIVE_STATUS ); --3745151 Fix for invalid error message.
6953: RAISE OKC_API.G_EXCEPTION_ERROR;
6954: END IF;
6955:
6956: -------------------------------------------------------------------------
6957: ---- Check for Status of Contract
6956: -------------------------------------------------------------------------
6957: ---- Check for Status of Contract
6958: ---------------------------------------------------------------------------
6959: l_return_status := get_contract_status(l_ipyv_rec.khr_id, l_khr_status);
6960: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6961: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6962: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
6963: RAISE OKC_API.G_EXCEPTION_ERROR;
6964: END IF;
6957: ---- Check for Status of Contract
6958: ---------------------------------------------------------------------------
6959: l_return_status := get_contract_status(l_ipyv_rec.khr_id, l_khr_status);
6960: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6961: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6962: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
6963: RAISE OKC_API.G_EXCEPTION_ERROR;
6964: END IF;
6965:
6958: ---------------------------------------------------------------------------
6959: l_return_status := get_contract_status(l_ipyv_rec.khr_id, l_khr_status);
6960: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6961: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6962: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
6963: RAISE OKC_API.G_EXCEPTION_ERROR;
6964: END IF;
6965:
6966: IF (l_khr_status <> 'ACTIVE' ) THEN
6959: l_return_status := get_contract_status(l_ipyv_rec.khr_id, l_khr_status);
6960: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6961: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6962: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
6963: RAISE OKC_API.G_EXCEPTION_ERROR;
6964: END IF;
6965:
6966: IF (l_khr_status <> 'ACTIVE' ) THEN
6967: OKC_API.set_message(G_APP_NAME,G_K_NOT_ACTIVE );
6963: RAISE OKC_API.G_EXCEPTION_ERROR;
6964: END IF;
6965:
6966: IF (l_khr_status <> 'ACTIVE' ) THEN
6967: OKC_API.set_message(G_APP_NAME,G_K_NOT_ACTIVE );
6968: RAISE OKC_API.G_EXCEPTION_ERROR;
6969: END IF ;
6970:
6971: ------------------------------------------------------------------
6964: END IF;
6965:
6966: IF (l_khr_status <> 'ACTIVE' ) THEN
6967: OKC_API.set_message(G_APP_NAME,G_K_NOT_ACTIVE );
6968: RAISE OKC_API.G_EXCEPTION_ERROR;
6969: END IF ;
6970:
6971: ------------------------------------------------------------------
6972: ---------- Compare OEC
6975:
6976: OPEN okl_k_total_oec_csr(l_ipyv_rec.KHR_ID );
6977: FETCH okl_k_total_oec_csr INTO l_total_oec ;
6978: CLOSE okl_k_total_oec_csr ;
6979: IF ((l_total_oec IS NULL ) OR l_total_oec = OKC_API.G_MISS_NUM ) THEN
6980: OKC_API.set_message(G_APP_NAME,'OKL_INVALID_VALUE',
6981: G_COL_NAME_TOKEN,'OEC' );
6982: RAISE OKC_API.G_EXCEPTION_ERROR;
6983: ELSIF( l_total_oec <> l_ipyv_rec.COVERED_AMOUNT ) THEN
6976: OPEN okl_k_total_oec_csr(l_ipyv_rec.KHR_ID );
6977: FETCH okl_k_total_oec_csr INTO l_total_oec ;
6978: CLOSE okl_k_total_oec_csr ;
6979: IF ((l_total_oec IS NULL ) OR l_total_oec = OKC_API.G_MISS_NUM ) THEN
6980: OKC_API.set_message(G_APP_NAME,'OKL_INVALID_VALUE',
6981: G_COL_NAME_TOKEN,'OEC' );
6982: RAISE OKC_API.G_EXCEPTION_ERROR;
6983: ELSIF( l_total_oec <> l_ipyv_rec.COVERED_AMOUNT ) THEN
6984: OKC_API.set_message(G_APP_NAME,'OKL_STRUCTURE_CHANGED');
6978: CLOSE okl_k_total_oec_csr ;
6979: IF ((l_total_oec IS NULL ) OR l_total_oec = OKC_API.G_MISS_NUM ) THEN
6980: OKC_API.set_message(G_APP_NAME,'OKL_INVALID_VALUE',
6981: G_COL_NAME_TOKEN,'OEC' );
6982: RAISE OKC_API.G_EXCEPTION_ERROR;
6983: ELSIF( l_total_oec <> l_ipyv_rec.COVERED_AMOUNT ) THEN
6984: OKC_API.set_message(G_APP_NAME,'OKL_STRUCTURE_CHANGED');
6985: RAISE OKC_API.G_EXCEPTION_ERROR;
6986: END IF;
6980: OKC_API.set_message(G_APP_NAME,'OKL_INVALID_VALUE',
6981: G_COL_NAME_TOKEN,'OEC' );
6982: RAISE OKC_API.G_EXCEPTION_ERROR;
6983: ELSIF( l_total_oec <> l_ipyv_rec.COVERED_AMOUNT ) THEN
6984: OKC_API.set_message(G_APP_NAME,'OKL_STRUCTURE_CHANGED');
6985: RAISE OKC_API.G_EXCEPTION_ERROR;
6986: END IF;
6987:
6988:
6981: G_COL_NAME_TOKEN,'OEC' );
6982: RAISE OKC_API.G_EXCEPTION_ERROR;
6983: ELSIF( l_total_oec <> l_ipyv_rec.COVERED_AMOUNT ) THEN
6984: OKC_API.set_message(G_APP_NAME,'OKL_STRUCTURE_CHANGED');
6985: RAISE OKC_API.G_EXCEPTION_ERROR;
6986: END IF;
6987:
6988:
6989: END IF ;
6998:
6999: Okl_Contract_Pub.update_contract_line
7000: (
7001: p_api_version => l_api_version ,
7002: p_init_msg_list => OKC_API.G_FALSE,
7003: x_return_status => l_return_status ,
7004: x_msg_count => x_msg_count,
7005: x_msg_data => x_msg_data ,
7006: p_clev_rec => l_clev_rec ,
7008: x_clev_rec => lx_clev_rec,
7009: x_klev_rec => lx_klev_rec
7010: );
7011:
7012: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7013: -- Status temp
7014: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7015: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
7016:
7010: );
7011:
7012: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7013: -- Status temp
7014: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7015: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
7016:
7017: -- Status temp
7018: RAISE OKC_API.G_EXCEPTION_ERROR;
7011:
7012: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7013: -- Status temp
7014: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7015: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
7016:
7017: -- Status temp
7018: RAISE OKC_API.G_EXCEPTION_ERROR;
7019: END IF;
7014: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7015: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
7016:
7017: -- Status temp
7018: RAISE OKC_API.G_EXCEPTION_ERROR;
7019: END IF;
7020: -- CREATE Role only if vendor is not there
7021: OPEN c_vendor_exist(l_ipyv_rec.KHR_ID ,l_ipyv_rec.ISU_ID );
7022: FETCH c_vendor_exist INTO l_dummy ;
7043: END IF;
7044: -- gboomina 26-Oct-05 Bug#4558486 Start - Changed okl_okc_migration_pvt.create_k_party_role to okl_k_party_roles_pvt.create_k_party_role
7045: okl_k_party_roles_pvt.create_k_party_role(
7046: p_api_version =>l_api_version,
7047: p_init_msg_list => OKC_API.G_FALSE,
7048: x_return_status => l_return_status,
7049: x_msg_count => x_msg_count,
7050: x_msg_data => x_msg_data ,
7051: p_cplv_rec => l_cplv_rec_type,
7059: OKL_DEBUG_PUB.LOG_DEBUG(L_LEVEL_PROCEDURE,L_MODULE,'End Debug OKLRINQB.pls call okl_k_party_roles_pvt.create_k_party_role ');
7060: END;
7061: END IF;
7062: -- End of wraper code generated automatically by Debug code generator for okl_k_party_roles_pvt.create_k_party_role
7063: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7064:
7065: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7066: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
7067: RAISE OKC_API.G_EXCEPTION_ERROR;
7061: END IF;
7062: -- End of wraper code generated automatically by Debug code generator for okl_k_party_roles_pvt.create_k_party_role
7063: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7064:
7065: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7066: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
7067: RAISE OKC_API.G_EXCEPTION_ERROR;
7068: END IF;
7069: END IF ;
7062: -- End of wraper code generated automatically by Debug code generator for okl_k_party_roles_pvt.create_k_party_role
7063: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7064:
7065: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7066: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
7067: RAISE OKC_API.G_EXCEPTION_ERROR;
7068: END IF;
7069: END IF ;
7070:
7063: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7064:
7065: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7066: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
7067: RAISE OKC_API.G_EXCEPTION_ERROR;
7068: END IF;
7069: END IF ;
7070:
7071:
7072: -- Payment Call Temp
7073:
7074: policy_payment(
7075: p_api_version => p_api_version,
7076: p_init_msg_list => OKC_API.G_FALSE,
7077: x_return_status => l_return_status,
7078: x_msg_count => x_msg_count,
7079: x_msg_data => x_msg_data,
7080: p_ipyv_rec => l_ipyv_rec );
7079: x_msg_data => x_msg_data,
7080: p_ipyv_rec => l_ipyv_rec );
7081:
7082:
7083: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7084: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7085: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
7086: RAISE OKC_API.G_EXCEPTION_ERROR;
7087: END IF;
7080: p_ipyv_rec => l_ipyv_rec );
7081:
7082:
7083: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7084: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7085: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
7086: RAISE OKC_API.G_EXCEPTION_ERROR;
7087: END IF;
7088:
7081:
7082:
7083: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7084: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7085: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
7086: RAISE OKC_API.G_EXCEPTION_ERROR;
7087: END IF;
7088:
7089:
7082:
7083: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7084: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7085: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
7086: RAISE OKC_API.G_EXCEPTION_ERROR;
7087: END IF;
7088:
7089:
7090: -------- Activate Policy
7097: END;
7098: END IF;
7099: Okl_Ins_Policies_Pub.update_ins_policies(
7100: p_api_version => p_api_version,
7101: p_init_msg_list => OKC_API.G_FALSE,
7102: x_return_status => l_return_status,
7103: x_msg_count => x_msg_count,
7104: x_msg_data => x_msg_data,
7105: p_ipyv_rec => l_ipyv_rec,
7110: END;
7111: END IF;
7112: -- End of wraper code generated automatically by Debug code generator for Okl_Ins_Policies_Pub.update_ins_policies
7113:
7114: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7115: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7116: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
7117: RAISE OKC_API.G_EXCEPTION_ERROR;
7118: END IF;
7111: END IF;
7112: -- End of wraper code generated automatically by Debug code generator for Okl_Ins_Policies_Pub.update_ins_policies
7113:
7114: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7115: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7116: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
7117: RAISE OKC_API.G_EXCEPTION_ERROR;
7118: END IF;
7119:
7112: -- End of wraper code generated automatically by Debug code generator for Okl_Ins_Policies_Pub.update_ins_policies
7113:
7114: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7115: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7116: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
7117: RAISE OKC_API.G_EXCEPTION_ERROR;
7118: END IF;
7119:
7120:
7113:
7114: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7115: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7116: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
7117: RAISE OKC_API.G_EXCEPTION_ERROR;
7118: END IF;
7119:
7120:
7121:
7126: 'INSURANCE_INCOME_ACCRUAL',
7127: l_return_status,
7128: p_sty_id);
7129:
7130: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7131: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
7132: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7133: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
7134: OKC_API.set_message(G_APP_NAME, 'OKL_NO_STREAM_TYPE',G_PURPOSE_TOKEN,'INSURANCE_INCOME_ACCRUAL' ); --bug 4024785
7127: l_return_status,
7128: p_sty_id);
7129:
7130: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7131: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
7132: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7133: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
7134: OKC_API.set_message(G_APP_NAME, 'OKL_NO_STREAM_TYPE',G_PURPOSE_TOKEN,'INSURANCE_INCOME_ACCRUAL' ); --bug 4024785
7135: RAISE OKC_API.G_EXCEPTION_ERROR;
7128: p_sty_id);
7129:
7130: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7131: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
7132: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7133: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
7134: OKC_API.set_message(G_APP_NAME, 'OKL_NO_STREAM_TYPE',G_PURPOSE_TOKEN,'INSURANCE_INCOME_ACCRUAL' ); --bug 4024785
7135: RAISE OKC_API.G_EXCEPTION_ERROR;
7136: END IF;
7129:
7130: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7131: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
7132: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7133: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
7134: OKC_API.set_message(G_APP_NAME, 'OKL_NO_STREAM_TYPE',G_PURPOSE_TOKEN,'INSURANCE_INCOME_ACCRUAL' ); --bug 4024785
7135: RAISE OKC_API.G_EXCEPTION_ERROR;
7136: END IF;
7137:
7130: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7131: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
7132: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7133: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
7134: OKC_API.set_message(G_APP_NAME, 'OKL_NO_STREAM_TYPE',G_PURPOSE_TOKEN,'INSURANCE_INCOME_ACCRUAL' ); --bug 4024785
7135: RAISE OKC_API.G_EXCEPTION_ERROR;
7136: END IF;
7137:
7138:
7131: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
7132: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7133: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
7134: OKC_API.set_message(G_APP_NAME, 'OKL_NO_STREAM_TYPE',G_PURPOSE_TOKEN,'INSURANCE_INCOME_ACCRUAL' ); --bug 4024785
7135: RAISE OKC_API.G_EXCEPTION_ERROR;
7136: END IF;
7137:
7138:
7139:
7142: OPEN c_okl_strem_rec_acc(p_sty_id,
7143: l_ipyv_rec.kle_id,
7144: l_ipyv_rec.khr_id);
7145: FETCH c_okl_strem_rec_acc INTO l_stmv_rec.id, l_stmv_rec.active_yn;
7146: IF(l_stmv_rec.id IS NOT NULL AND l_stmv_rec.id <> OKC_API.G_MISS_NUM) THEN
7147:
7148: IF ( UPPER(l_stmv_rec.active_yn)= 'Y' ) THEN
7149: OKC_API.set_message(G_APP_NAME,
7150: G_STREAM_ALREADY_ACTIVE );
7145: FETCH c_okl_strem_rec_acc INTO l_stmv_rec.id, l_stmv_rec.active_yn;
7146: IF(l_stmv_rec.id IS NOT NULL AND l_stmv_rec.id <> OKC_API.G_MISS_NUM) THEN
7147:
7148: IF ( UPPER(l_stmv_rec.active_yn)= 'Y' ) THEN
7149: OKC_API.set_message(G_APP_NAME,
7150: G_STREAM_ALREADY_ACTIVE );
7151:
7152: RAISE OKC_API.G_EXCEPTION_ERROR;
7153: END IF;
7148: IF ( UPPER(l_stmv_rec.active_yn)= 'Y' ) THEN
7149: OKC_API.set_message(G_APP_NAME,
7150: G_STREAM_ALREADY_ACTIVE );
7151:
7152: RAISE OKC_API.G_EXCEPTION_ERROR;
7153: END IF;
7154:
7155: l_stmv_rec.active_yn := 'Y' ;
7156: l_stmv_rec.date_current := SYSDATE ;
7178: END;
7179: END IF;
7180: -- End of wraper code generated automatically by Debug code generator for OKL_STREAMS_PUB.update_streams
7181:
7182: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7183: CLOSE c_okl_strem_rec_acc ;
7184: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7185: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
7186: CLOSE c_okl_strem_rec_acc ;
7180: -- End of wraper code generated automatically by Debug code generator for OKL_STREAMS_PUB.update_streams
7181:
7182: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7183: CLOSE c_okl_strem_rec_acc ;
7184: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7185: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
7186: CLOSE c_okl_strem_rec_acc ;
7187: RAISE OKC_API.G_EXCEPTION_ERROR;
7188: END IF;
7181:
7182: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7183: CLOSE c_okl_strem_rec_acc ;
7184: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7185: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
7186: CLOSE c_okl_strem_rec_acc ;
7187: RAISE OKC_API.G_EXCEPTION_ERROR;
7188: END IF;
7189: END IF;
7183: CLOSE c_okl_strem_rec_acc ;
7184: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7185: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
7186: CLOSE c_okl_strem_rec_acc ;
7187: RAISE OKC_API.G_EXCEPTION_ERROR;
7188: END IF;
7189: END IF;
7190: CLOSE c_okl_strem_rec_acc ;
7191:
7196: OPEN c_okl_strem_rec_repacc(p_sty_id,
7197: l_ipyv_rec.kle_id,
7198: l_ipyv_rec.khr_id);
7199: FETCH c_okl_strem_rec_repacc INTO l_stmv_rec2.id, l_stmv_rec2.active_yn;
7200: IF(l_stmv_rec2.id IS NOT NULL AND l_stmv_rec2.id <> OKC_API.G_MISS_NUM) THEN
7201:
7202: IF ( UPPER(l_stmv_rec2.SAY_CODE)= 'CURR' ) THEN --3965948
7203: OKC_API.set_message(G_APP_NAME,
7204: G_STREAM_ALREADY_ACTIVE );
7199: FETCH c_okl_strem_rec_repacc INTO l_stmv_rec2.id, l_stmv_rec2.active_yn;
7200: IF(l_stmv_rec2.id IS NOT NULL AND l_stmv_rec2.id <> OKC_API.G_MISS_NUM) THEN
7201:
7202: IF ( UPPER(l_stmv_rec2.SAY_CODE)= 'CURR' ) THEN --3965948
7203: OKC_API.set_message(G_APP_NAME,
7204: G_STREAM_ALREADY_ACTIVE );
7205:
7206: CLOSE c_okl_strem_rec_repacc ;
7207: RAISE OKC_API.G_EXCEPTION_ERROR;
7203: OKC_API.set_message(G_APP_NAME,
7204: G_STREAM_ALREADY_ACTIVE );
7205:
7206: CLOSE c_okl_strem_rec_repacc ;
7207: RAISE OKC_API.G_EXCEPTION_ERROR;
7208: END IF;
7209:
7210: -- Made stream inactive bug 3965948
7211: l_stmv_rec2.active_yn := 'N' ;
7234: END;
7235: END IF;
7236: -- End of wraper code generated automatically by Debug code generator for OKL_STREAMS_PUB.update_streams
7237:
7238: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7239: CLOSE c_okl_strem_rec_repacc ;
7240: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7241: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
7242: CLOSE c_okl_strem_rec_repacc ;
7236: -- End of wraper code generated automatically by Debug code generator for OKL_STREAMS_PUB.update_streams
7237:
7238: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7239: CLOSE c_okl_strem_rec_repacc ;
7240: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7241: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
7242: CLOSE c_okl_strem_rec_repacc ;
7243: RAISE OKC_API.G_EXCEPTION_ERROR;
7244: END IF;
7237:
7238: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7239: CLOSE c_okl_strem_rec_repacc ;
7240: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7241: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
7242: CLOSE c_okl_strem_rec_repacc ;
7243: RAISE OKC_API.G_EXCEPTION_ERROR;
7244: END IF;
7245: END IF;
7239: CLOSE c_okl_strem_rec_repacc ;
7240: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7241: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
7242: CLOSE c_okl_strem_rec_repacc ;
7243: RAISE OKC_API.G_EXCEPTION_ERROR;
7244: END IF;
7245: END IF;
7246: CLOSE c_okl_strem_rec_repacc ;
7247:
7255: 'INSURANCE_EXPENSE_ACCRUAL',
7256: l_return_status,
7257: p_sty_id);
7258:
7259: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7260: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
7261: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7262: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
7263: OKC_API.set_message(G_APP_NAME,'OKL_NO_STREAM_TYPE',G_PURPOSE_TOKEN,'INSURANCE_EXPENSE_ACCRUAL'); --bug 4024785
7256: l_return_status,
7257: p_sty_id);
7258:
7259: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7260: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
7261: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7262: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
7263: OKC_API.set_message(G_APP_NAME,'OKL_NO_STREAM_TYPE',G_PURPOSE_TOKEN,'INSURANCE_EXPENSE_ACCRUAL'); --bug 4024785
7264: RAISE OKC_API.G_EXCEPTION_ERROR;
7257: p_sty_id);
7258:
7259: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7260: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
7261: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7262: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
7263: OKC_API.set_message(G_APP_NAME,'OKL_NO_STREAM_TYPE',G_PURPOSE_TOKEN,'INSURANCE_EXPENSE_ACCRUAL'); --bug 4024785
7264: RAISE OKC_API.G_EXCEPTION_ERROR;
7265: END IF;
7258:
7259: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7260: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
7261: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7262: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
7263: OKC_API.set_message(G_APP_NAME,'OKL_NO_STREAM_TYPE',G_PURPOSE_TOKEN,'INSURANCE_EXPENSE_ACCRUAL'); --bug 4024785
7264: RAISE OKC_API.G_EXCEPTION_ERROR;
7265: END IF;
7266:
7259: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7260: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
7261: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7262: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
7263: OKC_API.set_message(G_APP_NAME,'OKL_NO_STREAM_TYPE',G_PURPOSE_TOKEN,'INSURANCE_EXPENSE_ACCRUAL'); --bug 4024785
7264: RAISE OKC_API.G_EXCEPTION_ERROR;
7265: END IF;
7266:
7267:
7260: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
7261: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7262: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
7263: OKC_API.set_message(G_APP_NAME,'OKL_NO_STREAM_TYPE',G_PURPOSE_TOKEN,'INSURANCE_EXPENSE_ACCRUAL'); --bug 4024785
7264: RAISE OKC_API.G_EXCEPTION_ERROR;
7265: END IF;
7266:
7267:
7268:
7270: OPEN c_okl_strem_rec_acc(p_sty_id,
7271: l_ipyv_rec.kle_id,
7272: l_ipyv_rec.khr_id);
7273: FETCH c_okl_strem_rec_acc INTO l_stmv_rec3.id, l_stmv_rec3.active_yn;
7274: IF(l_stmv_rec3.id IS NOT NULL AND l_stmv_rec3.id <> OKC_API.G_MISS_NUM) THEN
7275:
7276: IF ( UPPER(l_stmv_rec3.active_yn)= 'Y' ) THEN
7277: OKC_API.set_message(G_APP_NAME,
7278: G_STREAM_ALREADY_ACTIVE );
7273: FETCH c_okl_strem_rec_acc INTO l_stmv_rec3.id, l_stmv_rec3.active_yn;
7274: IF(l_stmv_rec3.id IS NOT NULL AND l_stmv_rec3.id <> OKC_API.G_MISS_NUM) THEN
7275:
7276: IF ( UPPER(l_stmv_rec3.active_yn)= 'Y' ) THEN
7277: OKC_API.set_message(G_APP_NAME,
7278: G_STREAM_ALREADY_ACTIVE );
7279:
7280: RAISE OKC_API.G_EXCEPTION_ERROR;
7281: END IF;
7276: IF ( UPPER(l_stmv_rec3.active_yn)= 'Y' ) THEN
7277: OKC_API.set_message(G_APP_NAME,
7278: G_STREAM_ALREADY_ACTIVE );
7279:
7280: RAISE OKC_API.G_EXCEPTION_ERROR;
7281: END IF;
7282:
7283: l_stmv_rec3.active_yn := 'Y' ;
7284: l_stmv_rec3.date_current := SYSDATE ;
7306: END;
7307: END IF;
7308: -- End of wraper code generated automatically by Debug code generator for OKL_STREAMS_PUB.update_streams
7309:
7310: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7311: CLOSE c_okl_strem_rec_acc ;
7312: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7313: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
7314: CLOSE c_okl_strem_rec_acc ;
7308: -- End of wraper code generated automatically by Debug code generator for OKL_STREAMS_PUB.update_streams
7309:
7310: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7311: CLOSE c_okl_strem_rec_acc ;
7312: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7313: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
7314: CLOSE c_okl_strem_rec_acc ;
7315: RAISE OKC_API.G_EXCEPTION_ERROR;
7316: END IF;
7309:
7310: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7311: CLOSE c_okl_strem_rec_acc ;
7312: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7313: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
7314: CLOSE c_okl_strem_rec_acc ;
7315: RAISE OKC_API.G_EXCEPTION_ERROR;
7316: END IF;
7317: END IF;
7311: CLOSE c_okl_strem_rec_acc ;
7312: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7313: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
7314: CLOSE c_okl_strem_rec_acc ;
7315: RAISE OKC_API.G_EXCEPTION_ERROR;
7316: END IF;
7317: END IF;
7318: CLOSE c_okl_strem_rec_acc ;
7319:
7324: OPEN c_okl_strem_rec_repacc(p_sty_id,
7325: l_ipyv_rec.kle_id,
7326: l_ipyv_rec.khr_id);
7327: FETCH c_okl_strem_rec_repacc INTO l_stmv_rec4.id, l_stmv_rec4.active_yn;
7328: IF(l_stmv_rec4.id IS NOT NULL AND l_stmv_rec4.id <> OKC_API.G_MISS_NUM) THEN
7329:
7330: IF ( UPPER(l_stmv_rec4.SAY_CODE)= 'CURR' ) THEN -- 3965948
7331: OKC_API.set_message(G_APP_NAME,
7332: G_STREAM_ALREADY_ACTIVE );
7327: FETCH c_okl_strem_rec_repacc INTO l_stmv_rec4.id, l_stmv_rec4.active_yn;
7328: IF(l_stmv_rec4.id IS NOT NULL AND l_stmv_rec4.id <> OKC_API.G_MISS_NUM) THEN
7329:
7330: IF ( UPPER(l_stmv_rec4.SAY_CODE)= 'CURR' ) THEN -- 3965948
7331: OKC_API.set_message(G_APP_NAME,
7332: G_STREAM_ALREADY_ACTIVE );
7333:
7334: CLOSE c_okl_strem_rec_repacc ;
7335: RAISE OKC_API.G_EXCEPTION_ERROR;
7331: OKC_API.set_message(G_APP_NAME,
7332: G_STREAM_ALREADY_ACTIVE );
7333:
7334: CLOSE c_okl_strem_rec_repacc ;
7335: RAISE OKC_API.G_EXCEPTION_ERROR;
7336: END IF;
7337:
7338: -- Made Stream inactive bug 3965948
7339: l_stmv_rec4.active_yn := 'N' ;
7362: END;
7363: END IF;
7364: -- End of wraper code generated automatically by Debug code generator for OKL_STREAMS_PUB.update_streams
7365:
7366: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7367: CLOSE c_okl_strem_rec_repacc ;
7368: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7369: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
7370: CLOSE c_okl_strem_rec_repacc ;
7364: -- End of wraper code generated automatically by Debug code generator for OKL_STREAMS_PUB.update_streams
7365:
7366: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7367: CLOSE c_okl_strem_rec_repacc ;
7368: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7369: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
7370: CLOSE c_okl_strem_rec_repacc ;
7371: RAISE OKC_API.G_EXCEPTION_ERROR;
7372: END IF;
7365:
7366: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7367: CLOSE c_okl_strem_rec_repacc ;
7368: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7369: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
7370: CLOSE c_okl_strem_rec_repacc ;
7371: RAISE OKC_API.G_EXCEPTION_ERROR;
7372: END IF;
7373: END IF;
7367: CLOSE c_okl_strem_rec_repacc ;
7368: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7369: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
7370: CLOSE c_okl_strem_rec_repacc ;
7371: RAISE OKC_API.G_EXCEPTION_ERROR;
7372: END IF;
7373: END IF;
7374: CLOSE c_okl_strem_rec_repacc ;
7375:
7373: END IF;
7374: CLOSE c_okl_strem_rec_repacc ;
7375:
7376:
7377: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
7378: EXCEPTION
7379: WHEN OKC_API.G_EXCEPTION_ERROR THEN
7380: x_return_status := OKC_API.HANDLE_EXCEPTIONS
7381: (
7375:
7376:
7377: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
7378: EXCEPTION
7379: WHEN OKC_API.G_EXCEPTION_ERROR THEN
7380: x_return_status := OKC_API.HANDLE_EXCEPTIONS
7381: (
7382: l_api_name,
7383: G_PKG_NAME,
7376:
7377: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
7378: EXCEPTION
7379: WHEN OKC_API.G_EXCEPTION_ERROR THEN
7380: x_return_status := OKC_API.HANDLE_EXCEPTIONS
7381: (
7382: l_api_name,
7383: G_PKG_NAME,
7384: 'OKC_API.G_RET_STS_ERROR',
7380: x_return_status := OKC_API.HANDLE_EXCEPTIONS
7381: (
7382: l_api_name,
7383: G_PKG_NAME,
7384: 'OKC_API.G_RET_STS_ERROR',
7385: x_msg_count,
7386: x_msg_data,
7387: '_PROCESS'
7388: );
7385: x_msg_count,
7386: x_msg_data,
7387: '_PROCESS'
7388: );
7389: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
7390: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
7391: (
7392: l_api_name,
7393: G_PKG_NAME,
7386: x_msg_data,
7387: '_PROCESS'
7388: );
7389: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
7390: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
7391: (
7392: l_api_name,
7393: G_PKG_NAME,
7394: 'OKC_API.G_RET_STS_UNEXP_ERROR',
7390: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
7391: (
7392: l_api_name,
7393: G_PKG_NAME,
7394: 'OKC_API.G_RET_STS_UNEXP_ERROR',
7395: x_msg_count,
7396: x_msg_data,
7397: '_PROCESS'
7398: );
7396: x_msg_data,
7397: '_PROCESS'
7398: );
7399: WHEN OTHERS THEN
7400: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
7401: (
7402: l_api_name,
7403: G_PKG_NAME,
7404: 'OTHERS',
7422: x_policy_number OUT NOCOPY VARCHAR2
7423: ) IS
7424: l_api_version CONSTANT NUMBER := 1;
7425: l_api_name CONSTANT VARCHAR2(30) := 'accept_optional_quote';
7426: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
7427: l_quote_type VARCHAR2(30);
7428: l_ipyv_rec ipyv_rec_type ;
7429: l_inqv_rec ipyv_rec_type ;
7430: lx_inqv_rec ipyv_rec_type ;
7457: SELECT OKL_IPY_SEQ.NEXTVAL INTO l_seq FROM dual;
7458: EXCEPTION
7459: WHEN NO_DATA_FOUND THEN
7460: -- store SQL error message on message stack for caller
7461: OKC_API.set_message(G_APP_NAME, 'OKL_NO_SEQUENCE' );
7462: WHEN OTHERS THEN
7463: -- store SQL error message on message stack for caller
7464: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,
7465: G_SQLCODE_TOKEN,SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
7460: -- store SQL error message on message stack for caller
7461: OKC_API.set_message(G_APP_NAME, 'OKL_NO_SEQUENCE' );
7462: WHEN OTHERS THEN
7463: -- store SQL error message on message stack for caller
7464: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,
7465: G_SQLCODE_TOKEN,SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
7466: -- notify caller of an UNEXPECTED error
7467: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
7468: END ;
7463: -- store SQL error message on message stack for caller
7464: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,
7465: G_SQLCODE_TOKEN,SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
7466: -- notify caller of an UNEXPECTED error
7467: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
7468: END ;
7469: OPEN c_policy_symbol;
7470: FETCH c_policy_symbol INTO l_policy_symbol ;
7471: IF( c_policy_symbol%NOTFOUND) THEN
7468: END ;
7469: OPEN c_policy_symbol;
7470: FETCH c_policy_symbol INTO l_policy_symbol ;
7471: IF( c_policy_symbol%NOTFOUND) THEN
7472: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
7473: p_msg_name => G_INVALID_VALUE,
7474: p_token1 => g_col_name_token,
7475: p_token1_value => 'Policy Symbol');
7476: END IF;
7479: l_ipyv_rec.POLICY_NUMBER := l_policy_symbol || TO_CHAR(l_seq) ;
7480:
7481: -- END Smoduga Fix for 3232868 Increment policy number for optional quotes.
7482:
7483: l_ipyv_rec.ID := OKC_API.G_MISS_NUM ;
7484: l_ipyv_rec.object_version_number := 1 ;
7485: l_ipyv_rec.ISS_CODE := 'ACCEPTED'; -- Fix for bug 2522378
7486: l_ipyv_rec.QUOTE_YN := 'N' ;
7487: l_ipyv_rec.DATE_QUOTED := OKC_API.G_MISS_DATE ;
7483: l_ipyv_rec.ID := OKC_API.G_MISS_NUM ;
7484: l_ipyv_rec.object_version_number := 1 ;
7485: l_ipyv_rec.ISS_CODE := 'ACCEPTED'; -- Fix for bug 2522378
7486: l_ipyv_rec.QUOTE_YN := 'N' ;
7487: l_ipyv_rec.DATE_QUOTED := OKC_API.G_MISS_DATE ;
7488: l_ipyv_rec.DATE_QUOTE_EXPIRY := OKC_API.G_MISS_DATE ;
7489: l_ipyv_rec.ORG_ID := OKC_API.G_MISS_NUM;
7490: l_ipyv_rec.REQUEST_ID := OKC_API.G_MISS_NUM;
7491: l_ipyv_rec.PROGRAM_APPLICATION_ID := OKC_API.G_MISS_NUM;
7484: l_ipyv_rec.object_version_number := 1 ;
7485: l_ipyv_rec.ISS_CODE := 'ACCEPTED'; -- Fix for bug 2522378
7486: l_ipyv_rec.QUOTE_YN := 'N' ;
7487: l_ipyv_rec.DATE_QUOTED := OKC_API.G_MISS_DATE ;
7488: l_ipyv_rec.DATE_QUOTE_EXPIRY := OKC_API.G_MISS_DATE ;
7489: l_ipyv_rec.ORG_ID := OKC_API.G_MISS_NUM;
7490: l_ipyv_rec.REQUEST_ID := OKC_API.G_MISS_NUM;
7491: l_ipyv_rec.PROGRAM_APPLICATION_ID := OKC_API.G_MISS_NUM;
7492: l_ipyv_rec.PROGRAM_ID := OKC_API.G_MISS_NUM;
7485: l_ipyv_rec.ISS_CODE := 'ACCEPTED'; -- Fix for bug 2522378
7486: l_ipyv_rec.QUOTE_YN := 'N' ;
7487: l_ipyv_rec.DATE_QUOTED := OKC_API.G_MISS_DATE ;
7488: l_ipyv_rec.DATE_QUOTE_EXPIRY := OKC_API.G_MISS_DATE ;
7489: l_ipyv_rec.ORG_ID := OKC_API.G_MISS_NUM;
7490: l_ipyv_rec.REQUEST_ID := OKC_API.G_MISS_NUM;
7491: l_ipyv_rec.PROGRAM_APPLICATION_ID := OKC_API.G_MISS_NUM;
7492: l_ipyv_rec.PROGRAM_ID := OKC_API.G_MISS_NUM;
7493: l_ipyv_rec.PROGRAM_UPDATE_DATE := OKC_API.G_MISS_DATE ;
7486: l_ipyv_rec.QUOTE_YN := 'N' ;
7487: l_ipyv_rec.DATE_QUOTED := OKC_API.G_MISS_DATE ;
7488: l_ipyv_rec.DATE_QUOTE_EXPIRY := OKC_API.G_MISS_DATE ;
7489: l_ipyv_rec.ORG_ID := OKC_API.G_MISS_NUM;
7490: l_ipyv_rec.REQUEST_ID := OKC_API.G_MISS_NUM;
7491: l_ipyv_rec.PROGRAM_APPLICATION_ID := OKC_API.G_MISS_NUM;
7492: l_ipyv_rec.PROGRAM_ID := OKC_API.G_MISS_NUM;
7493: l_ipyv_rec.PROGRAM_UPDATE_DATE := OKC_API.G_MISS_DATE ;
7494: l_ipyv_rec.created_by := OKC_API.G_MISS_NUM;
7487: l_ipyv_rec.DATE_QUOTED := OKC_API.G_MISS_DATE ;
7488: l_ipyv_rec.DATE_QUOTE_EXPIRY := OKC_API.G_MISS_DATE ;
7489: l_ipyv_rec.ORG_ID := OKC_API.G_MISS_NUM;
7490: l_ipyv_rec.REQUEST_ID := OKC_API.G_MISS_NUM;
7491: l_ipyv_rec.PROGRAM_APPLICATION_ID := OKC_API.G_MISS_NUM;
7492: l_ipyv_rec.PROGRAM_ID := OKC_API.G_MISS_NUM;
7493: l_ipyv_rec.PROGRAM_UPDATE_DATE := OKC_API.G_MISS_DATE ;
7494: l_ipyv_rec.created_by := OKC_API.G_MISS_NUM;
7495: l_ipyv_rec.creation_date := OKC_API.G_MISS_DATE ;
7488: l_ipyv_rec.DATE_QUOTE_EXPIRY := OKC_API.G_MISS_DATE ;
7489: l_ipyv_rec.ORG_ID := OKC_API.G_MISS_NUM;
7490: l_ipyv_rec.REQUEST_ID := OKC_API.G_MISS_NUM;
7491: l_ipyv_rec.PROGRAM_APPLICATION_ID := OKC_API.G_MISS_NUM;
7492: l_ipyv_rec.PROGRAM_ID := OKC_API.G_MISS_NUM;
7493: l_ipyv_rec.PROGRAM_UPDATE_DATE := OKC_API.G_MISS_DATE ;
7494: l_ipyv_rec.created_by := OKC_API.G_MISS_NUM;
7495: l_ipyv_rec.creation_date := OKC_API.G_MISS_DATE ;
7496: l_ipyv_rec.last_updated_by := OKC_API.G_MISS_NUM;
7489: l_ipyv_rec.ORG_ID := OKC_API.G_MISS_NUM;
7490: l_ipyv_rec.REQUEST_ID := OKC_API.G_MISS_NUM;
7491: l_ipyv_rec.PROGRAM_APPLICATION_ID := OKC_API.G_MISS_NUM;
7492: l_ipyv_rec.PROGRAM_ID := OKC_API.G_MISS_NUM;
7493: l_ipyv_rec.PROGRAM_UPDATE_DATE := OKC_API.G_MISS_DATE ;
7494: l_ipyv_rec.created_by := OKC_API.G_MISS_NUM;
7495: l_ipyv_rec.creation_date := OKC_API.G_MISS_DATE ;
7496: l_ipyv_rec.last_updated_by := OKC_API.G_MISS_NUM;
7497: l_ipyv_rec.last_update_date := OKC_API.G_MISS_DATE ;
7490: l_ipyv_rec.REQUEST_ID := OKC_API.G_MISS_NUM;
7491: l_ipyv_rec.PROGRAM_APPLICATION_ID := OKC_API.G_MISS_NUM;
7492: l_ipyv_rec.PROGRAM_ID := OKC_API.G_MISS_NUM;
7493: l_ipyv_rec.PROGRAM_UPDATE_DATE := OKC_API.G_MISS_DATE ;
7494: l_ipyv_rec.created_by := OKC_API.G_MISS_NUM;
7495: l_ipyv_rec.creation_date := OKC_API.G_MISS_DATE ;
7496: l_ipyv_rec.last_updated_by := OKC_API.G_MISS_NUM;
7497: l_ipyv_rec.last_update_date := OKC_API.G_MISS_DATE ;
7498: l_ipyv_rec.last_update_login := OKC_API.G_MISS_NUM;
7491: l_ipyv_rec.PROGRAM_APPLICATION_ID := OKC_API.G_MISS_NUM;
7492: l_ipyv_rec.PROGRAM_ID := OKC_API.G_MISS_NUM;
7493: l_ipyv_rec.PROGRAM_UPDATE_DATE := OKC_API.G_MISS_DATE ;
7494: l_ipyv_rec.created_by := OKC_API.G_MISS_NUM;
7495: l_ipyv_rec.creation_date := OKC_API.G_MISS_DATE ;
7496: l_ipyv_rec.last_updated_by := OKC_API.G_MISS_NUM;
7497: l_ipyv_rec.last_update_date := OKC_API.G_MISS_DATE ;
7498: l_ipyv_rec.last_update_login := OKC_API.G_MISS_NUM;
7499: RETURN(l_ipyv_rec);
7492: l_ipyv_rec.PROGRAM_ID := OKC_API.G_MISS_NUM;
7493: l_ipyv_rec.PROGRAM_UPDATE_DATE := OKC_API.G_MISS_DATE ;
7494: l_ipyv_rec.created_by := OKC_API.G_MISS_NUM;
7495: l_ipyv_rec.creation_date := OKC_API.G_MISS_DATE ;
7496: l_ipyv_rec.last_updated_by := OKC_API.G_MISS_NUM;
7497: l_ipyv_rec.last_update_date := OKC_API.G_MISS_DATE ;
7498: l_ipyv_rec.last_update_login := OKC_API.G_MISS_NUM;
7499: RETURN(l_ipyv_rec);
7500: END get_optional_policy;
7493: l_ipyv_rec.PROGRAM_UPDATE_DATE := OKC_API.G_MISS_DATE ;
7494: l_ipyv_rec.created_by := OKC_API.G_MISS_NUM;
7495: l_ipyv_rec.creation_date := OKC_API.G_MISS_DATE ;
7496: l_ipyv_rec.last_updated_by := OKC_API.G_MISS_NUM;
7497: l_ipyv_rec.last_update_date := OKC_API.G_MISS_DATE ;
7498: l_ipyv_rec.last_update_login := OKC_API.G_MISS_NUM;
7499: RETURN(l_ipyv_rec);
7500: END get_optional_policy;
7501: BEGIN
7494: l_ipyv_rec.created_by := OKC_API.G_MISS_NUM;
7495: l_ipyv_rec.creation_date := OKC_API.G_MISS_DATE ;
7496: l_ipyv_rec.last_updated_by := OKC_API.G_MISS_NUM;
7497: l_ipyv_rec.last_update_date := OKC_API.G_MISS_DATE ;
7498: l_ipyv_rec.last_update_login := OKC_API.G_MISS_NUM;
7499: RETURN(l_ipyv_rec);
7500: END get_optional_policy;
7501: BEGIN
7502: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
7498: l_ipyv_rec.last_update_login := OKC_API.G_MISS_NUM;
7499: RETURN(l_ipyv_rec);
7500: END get_optional_policy;
7501: BEGIN
7502: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
7503: G_PKG_NAME,
7504: p_init_msg_list,
7505: l_api_version,
7506: p_api_version,
7505: l_api_version,
7506: p_api_version,
7507: '_PROCESS',
7508: x_return_status);
7509: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7510: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7511: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
7512: RAISE OKC_API.G_EXCEPTION_ERROR;
7513: END IF;
7506: p_api_version,
7507: '_PROCESS',
7508: x_return_status);
7509: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7510: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7511: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
7512: RAISE OKC_API.G_EXCEPTION_ERROR;
7513: END IF;
7514: -- Assigning ID to record
7507: '_PROCESS',
7508: x_return_status);
7509: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7510: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7511: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
7512: RAISE OKC_API.G_EXCEPTION_ERROR;
7513: END IF;
7514: -- Assigning ID to record
7515: l_inqv_rec.id := p_quote_id ;
7508: x_return_status);
7509: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7510: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7511: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
7512: RAISE OKC_API.G_EXCEPTION_ERROR;
7513: END IF;
7514: -- Assigning ID to record
7515: l_inqv_rec.id := p_quote_id ;
7516: -- Get the current quote from database
7522: 3. It should not be Third party policy
7523: */
7524: -- Check for Status
7525: IF (l_inqv_rec.ISS_CODE <> 'QUOTE' AND l_inqv_rec.QUOTE_YN <> 'YES' ) THEN
7526: OKC_API.set_message(G_APP_NAME,
7527: G_INVALID_QUOTE );
7528: RAISE OKC_API.G_EXCEPTION_ERROR;
7529: END IF;
7530: -- Check for Status
7524: -- Check for Status
7525: IF (l_inqv_rec.ISS_CODE <> 'QUOTE' AND l_inqv_rec.QUOTE_YN <> 'YES' ) THEN
7526: OKC_API.set_message(G_APP_NAME,
7527: G_INVALID_QUOTE );
7528: RAISE OKC_API.G_EXCEPTION_ERROR;
7529: END IF;
7530: -- Check for Status
7531: IF (l_inqv_rec.DATE_QUOTE_EXPIRY < SYSDATE ) THEN
7532: OKC_API.set_message(G_APP_NAME,
7528: RAISE OKC_API.G_EXCEPTION_ERROR;
7529: END IF;
7530: -- Check for Status
7531: IF (l_inqv_rec.DATE_QUOTE_EXPIRY < SYSDATE ) THEN
7532: OKC_API.set_message(G_APP_NAME,
7533: G_EXPIRED_QUOTE );
7534: RAISE OKC_API.G_EXCEPTION_ERROR;
7535: END IF;
7536: -- Check for Third Party is taken care in deciding policy type
7530: -- Check for Status
7531: IF (l_inqv_rec.DATE_QUOTE_EXPIRY < SYSDATE ) THEN
7532: OKC_API.set_message(G_APP_NAME,
7533: G_EXPIRED_QUOTE );
7534: RAISE OKC_API.G_EXCEPTION_ERROR;
7535: END IF;
7536: -- Check for Third Party is taken care in deciding policy type
7537: -- Make Policy related changes
7538: l_ipyv_rec := get_optional_policy(l_inqv_rec);
7548: END;
7549: END IF;
7550: Okl_Ins_Policies_Pub.insert_ins_policies(
7551: p_api_version => p_api_version,
7552: p_init_msg_list => OKC_API.G_FALSE,
7553: x_return_status => l_return_status,
7554: x_msg_count => x_msg_count,
7555: x_msg_data => x_msg_data,
7556: p_ipyv_rec => l_ipyv_rec,
7561: OKL_DEBUG_PUB.LOG_DEBUG(L_LEVEL_PROCEDURE,L_MODULE,'End Debug OKLRINQB.pls call Okl_Ins_Policies_Pub.insert_ins_policies ');
7562: END;
7563: END IF;
7564: -- End of wraper code generated automatically by Debug code generator for Okl_Ins_Policies_Pub.insert_ins_policies
7565: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7566: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7567: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
7568: RAISE OKC_API.G_EXCEPTION_ERROR;
7569: END IF;
7562: END;
7563: END IF;
7564: -- End of wraper code generated automatically by Debug code generator for Okl_Ins_Policies_Pub.insert_ins_policies
7565: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7566: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7567: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
7568: RAISE OKC_API.G_EXCEPTION_ERROR;
7569: END IF;
7570: l_ipyv_rec.id := lx_ipyv_rec.id ;
7563: END IF;
7564: -- End of wraper code generated automatically by Debug code generator for Okl_Ins_Policies_Pub.insert_ins_policies
7565: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7566: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7567: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
7568: RAISE OKC_API.G_EXCEPTION_ERROR;
7569: END IF;
7570: l_ipyv_rec.id := lx_ipyv_rec.id ;
7571: -- Create Line
7564: -- End of wraper code generated automatically by Debug code generator for Okl_Ins_Policies_Pub.insert_ins_policies
7565: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7566: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7567: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
7568: RAISE OKC_API.G_EXCEPTION_ERROR;
7569: END IF;
7570: l_ipyv_rec.id := lx_ipyv_rec.id ;
7571: -- Create Line
7572: create_contract_line(
7570: l_ipyv_rec.id := lx_ipyv_rec.id ;
7571: -- Create Line
7572: create_contract_line(
7573: p_api_version => l_api_version,
7574: p_init_msg_list => Okc_Api.G_FALSE,
7575: x_return_status => l_return_status,
7576: x_msg_count => x_msg_count,
7577: x_msg_data => x_msg_data,
7578: p_ipyv_rec => l_ipyv_rec,
7576: x_msg_count => x_msg_count,
7577: x_msg_data => x_msg_data,
7578: p_ipyv_rec => l_ipyv_rec,
7579: x_kle_id => l_kle_id );
7580: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7581: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7582: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
7583: RAISE OKC_API.G_EXCEPTION_ERROR;
7584: END IF;
7577: x_msg_data => x_msg_data,
7578: p_ipyv_rec => l_ipyv_rec,
7579: x_kle_id => l_kle_id );
7580: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7581: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7582: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
7583: RAISE OKC_API.G_EXCEPTION_ERROR;
7584: END IF;
7585: l_ipyv_rec.KLE_ID := l_kle_id ;
7578: p_ipyv_rec => l_ipyv_rec,
7579: x_kle_id => l_kle_id );
7580: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7581: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7582: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
7583: RAISE OKC_API.G_EXCEPTION_ERROR;
7584: END IF;
7585: l_ipyv_rec.KLE_ID := l_kle_id ;
7586: -- Create Stream
7579: x_kle_id => l_kle_id );
7580: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7581: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7582: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
7583: RAISE OKC_API.G_EXCEPTION_ERROR;
7584: END IF;
7585: l_ipyv_rec.KLE_ID := l_kle_id ;
7586: -- Create Stream
7587: create_ins_streams(
7585: l_ipyv_rec.KLE_ID := l_kle_id ;
7586: -- Create Stream
7587: create_ins_streams(
7588: p_api_version => l_api_version,
7589: p_init_msg_list => Okc_Api.G_FALSE,
7590: x_return_status => l_return_status,
7591: x_msg_count => x_msg_count,
7592: x_msg_data => x_msg_data,
7593: p_ipyv_rec => l_ipyv_rec
7592: x_msg_data => x_msg_data,
7593: p_ipyv_rec => l_ipyv_rec
7594: );
7595:
7596: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7597: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7598: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
7599: RAISE OKC_API.G_EXCEPTION_ERROR;
7600: END IF;
7593: p_ipyv_rec => l_ipyv_rec
7594: );
7595:
7596: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7597: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7598: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
7599: RAISE OKC_API.G_EXCEPTION_ERROR;
7600: END IF;
7601:
7594: );
7595:
7596: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7597: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7598: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
7599: RAISE OKC_API.G_EXCEPTION_ERROR;
7600: END IF;
7601:
7602: create_insinc_streams(
7595:
7596: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7597: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7598: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
7599: RAISE OKC_API.G_EXCEPTION_ERROR;
7600: END IF;
7601:
7602: create_insinc_streams(
7603: p_api_version => l_api_version,
7600: END IF;
7601:
7602: create_insinc_streams(
7603: p_api_version => l_api_version,
7604: p_init_msg_list => Okc_Api.G_FALSE,
7605: x_return_status => l_return_status,
7606: x_msg_count => x_msg_count,
7607: x_msg_data => x_msg_data,
7608: p_ipyv_rec => l_ipyv_rec
7607: x_msg_data => x_msg_data,
7608: p_ipyv_rec => l_ipyv_rec
7609: );
7610:
7611: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7612: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7613: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
7614: RAISE OKC_API.G_EXCEPTION_ERROR;
7615: END IF;
7608: p_ipyv_rec => l_ipyv_rec
7609: );
7610:
7611: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7612: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7613: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
7614: RAISE OKC_API.G_EXCEPTION_ERROR;
7615: END IF;
7616:
7609: );
7610:
7611: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7612: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7613: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
7614: RAISE OKC_API.G_EXCEPTION_ERROR;
7615: END IF;
7616:
7617: -- activate stream
7610:
7611: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7612: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7613: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
7614: RAISE OKC_API.G_EXCEPTION_ERROR;
7615: END IF;
7616:
7617: -- activate stream
7618: -------------------------------------------------------------------------
7618: -------------------------------------------------------------------------
7619: ---- Check for Status of Contract
7620: ---------------------------------------------------------------------------
7621: l_return_status := get_contract_status(l_ipyv_rec.khr_id, l_khr_status);
7622: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7623: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7624: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
7625: RAISE OKC_API.G_EXCEPTION_ERROR;
7626: END IF;
7619: ---- Check for Status of Contract
7620: ---------------------------------------------------------------------------
7621: l_return_status := get_contract_status(l_ipyv_rec.khr_id, l_khr_status);
7622: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7623: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7624: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
7625: RAISE OKC_API.G_EXCEPTION_ERROR;
7626: END IF;
7627:
7620: ---------------------------------------------------------------------------
7621: l_return_status := get_contract_status(l_ipyv_rec.khr_id, l_khr_status);
7622: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7623: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7624: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
7625: RAISE OKC_API.G_EXCEPTION_ERROR;
7626: END IF;
7627:
7628:
7621: l_return_status := get_contract_status(l_ipyv_rec.khr_id, l_khr_status);
7622: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7623: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7624: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
7625: RAISE OKC_API.G_EXCEPTION_ERROR;
7626: END IF;
7627:
7628:
7629: activate_ins_stream(
7627:
7628:
7629: activate_ins_stream(
7630: p_api_version => l_api_version,
7631: p_init_msg_list => Okc_Api.G_FALSE,
7632: x_return_status => l_return_status,
7633: x_msg_count => x_msg_count,
7634: x_msg_data => x_msg_data,
7635: p_ipyv_rec => l_ipyv_rec
7634: x_msg_data => x_msg_data,
7635: p_ipyv_rec => l_ipyv_rec
7636: );
7637:
7638: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7639: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7640: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
7641: RAISE OKC_API.G_EXCEPTION_ERROR;
7642: ELSIF (l_return_status = G_NOT_ACTIVE) THEN
7635: p_ipyv_rec => l_ipyv_rec
7636: );
7637:
7638: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7639: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7640: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
7641: RAISE OKC_API.G_EXCEPTION_ERROR;
7642: ELSIF (l_return_status = G_NOT_ACTIVE) THEN
7643: NULL;
7636: );
7637:
7638: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7639: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7640: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
7641: RAISE OKC_API.G_EXCEPTION_ERROR;
7642: ELSIF (l_return_status = G_NOT_ACTIVE) THEN
7643: NULL;
7644: END IF;
7637:
7638: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7639: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7640: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
7641: RAISE OKC_API.G_EXCEPTION_ERROR;
7642: ELSIF (l_return_status = G_NOT_ACTIVE) THEN
7643: NULL;
7644: END IF;
7645: IF (l_khr_status = 'ACTIVE' ) THEN
7645: IF (l_khr_status = 'ACTIVE' ) THEN
7646: -- activate policy
7647: activate_ins_policy(
7648: p_api_version => l_api_version,
7649: p_init_msg_list => Okc_Api.G_FALSE,
7650: x_return_status => l_return_status,
7651: x_msg_count => x_msg_count,
7652: x_msg_data => x_msg_data,
7653: p_ins_policy_id => l_ipyv_rec.id
7651: x_msg_count => x_msg_count,
7652: x_msg_data => x_msg_data,
7653: p_ins_policy_id => l_ipyv_rec.id
7654: );
7655: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7656: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7657: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
7658: RAISE OKC_API.G_EXCEPTION_ERROR;
7659: END IF;
7652: x_msg_data => x_msg_data,
7653: p_ins_policy_id => l_ipyv_rec.id
7654: );
7655: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7656: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7657: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
7658: RAISE OKC_API.G_EXCEPTION_ERROR;
7659: END IF;
7660: END IF;
7653: p_ins_policy_id => l_ipyv_rec.id
7654: );
7655: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7656: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7657: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
7658: RAISE OKC_API.G_EXCEPTION_ERROR;
7659: END IF;
7660: END IF;
7661: -----
7654: );
7655: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7656: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7657: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
7658: RAISE OKC_API.G_EXCEPTION_ERROR;
7659: END IF;
7660: END IF;
7661: -----
7662: -- update quote
7669: END;
7670: END IF;
7671: Okl_Ins_Policies_Pub.update_ins_policies(
7672: p_api_version => p_api_version,
7673: p_init_msg_list => OKC_API.G_FALSE,
7674: x_return_status => l_return_status,
7675: x_msg_count => x_msg_count,
7676: x_msg_data => x_msg_data,
7677: p_ipyv_rec => l_inqv_rec,
7682: OKL_DEBUG_PUB.LOG_DEBUG(L_LEVEL_PROCEDURE,L_MODULE,'End Debug OKLRINQB.pls call Okl_Ins_Policies_Pub.update_ins_policies ');
7683: END;
7684: END IF;
7685: -- End of wraper code generated automatically by Debug code generator for Okl_Ins_Policies_Pub.update_ins_policies
7686: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7687: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7688: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
7689: RAISE OKC_API.G_EXCEPTION_ERROR;
7690: END IF;
7683: END;
7684: END IF;
7685: -- End of wraper code generated automatically by Debug code generator for Okl_Ins_Policies_Pub.update_ins_policies
7686: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7687: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7688: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
7689: RAISE OKC_API.G_EXCEPTION_ERROR;
7690: END IF;
7691: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
7684: END IF;
7685: -- End of wraper code generated automatically by Debug code generator for Okl_Ins_Policies_Pub.update_ins_policies
7686: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7687: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7688: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
7689: RAISE OKC_API.G_EXCEPTION_ERROR;
7690: END IF;
7691: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
7692: EXCEPTION
7685: -- End of wraper code generated automatically by Debug code generator for Okl_Ins_Policies_Pub.update_ins_policies
7686: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7687: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7688: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
7689: RAISE OKC_API.G_EXCEPTION_ERROR;
7690: END IF;
7691: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
7692: EXCEPTION
7693: WHEN OKC_API.G_EXCEPTION_ERROR THEN
7687: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7688: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
7689: RAISE OKC_API.G_EXCEPTION_ERROR;
7690: END IF;
7691: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
7692: EXCEPTION
7693: WHEN OKC_API.G_EXCEPTION_ERROR THEN
7694: x_return_status := OKC_API.HANDLE_EXCEPTIONS
7695: (
7689: RAISE OKC_API.G_EXCEPTION_ERROR;
7690: END IF;
7691: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
7692: EXCEPTION
7693: WHEN OKC_API.G_EXCEPTION_ERROR THEN
7694: x_return_status := OKC_API.HANDLE_EXCEPTIONS
7695: (
7696: l_api_name,
7697: G_PKG_NAME,
7690: END IF;
7691: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
7692: EXCEPTION
7693: WHEN OKC_API.G_EXCEPTION_ERROR THEN
7694: x_return_status := OKC_API.HANDLE_EXCEPTIONS
7695: (
7696: l_api_name,
7697: G_PKG_NAME,
7698: 'OKC_API.G_RET_STS_ERROR',
7694: x_return_status := OKC_API.HANDLE_EXCEPTIONS
7695: (
7696: l_api_name,
7697: G_PKG_NAME,
7698: 'OKC_API.G_RET_STS_ERROR',
7699: x_msg_count,
7700: x_msg_data,
7701: '_PROCESS'
7702: );
7699: x_msg_count,
7700: x_msg_data,
7701: '_PROCESS'
7702: );
7703: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
7704: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
7705: (
7706: l_api_name,
7707: G_PKG_NAME,
7700: x_msg_data,
7701: '_PROCESS'
7702: );
7703: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
7704: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
7705: (
7706: l_api_name,
7707: G_PKG_NAME,
7708: 'OKC_API.G_RET_STS_UNEXP_ERROR',
7704: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
7705: (
7706: l_api_name,
7707: G_PKG_NAME,
7708: 'OKC_API.G_RET_STS_UNEXP_ERROR',
7709: x_msg_count,
7710: x_msg_data,
7711: '_PROCESS'
7712: );
7710: x_msg_data,
7711: '_PROCESS'
7712: );
7713: WHEN OTHERS THEN
7714: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
7715: (
7716: l_api_name,
7717: G_PKG_NAME,
7718: 'OTHERS',
7730: x_msg_data OUT NOCOPY VARCHAR2,
7731: p_quote_id IN NUMBER ) IS
7732: l_api_version CONSTANT NUMBER := 1;
7733: l_api_name CONSTANT VARCHAR2(30) := 'accept_quote';
7734: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
7735: l_quote_type VARCHAR2(30);
7736: l_policy_number VARCHAR2(20);
7737: l_khr_id NUMBER;
7738: l_missing_streams VARCHAR2(500);
7775: FUNCTION get_quote_type (
7776: p_quote_id IN NUMBER,
7777: x_quote_type OUT NOCOPY VARCHAR2
7778: ) RETURN VARCHAR2 IS
7779: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
7780: CURSOR inq_type_csr (quote_id IN NUMBER) IS
7781: SELECT IPY_TYPE
7782: FROM OKL_INS_POLICIES_V
7783: WHERE OKL_INS_POLICIES_V.ID = quote_id;
7785: OPEN inq_type_csr(p_quote_id);
7786: FETCH inq_type_csr INTO x_quote_type ;
7787: IF (inq_type_csr%NOTFOUND) THEN
7788: -- store SQL error message on message stack for caller
7789: OKC_API.set_message(G_APP_NAME,
7790: G_INVALID_QUOTE
7791: );
7792: CLOSE inq_type_csr;
7793: l_return_status := OKC_API.G_RET_STS_ERROR;
7789: OKC_API.set_message(G_APP_NAME,
7790: G_INVALID_QUOTE
7791: );
7792: CLOSE inq_type_csr;
7793: l_return_status := OKC_API.G_RET_STS_ERROR;
7794: RAISE OKC_API.G_EXCEPTION_ERROR;
7795: END IF;
7796: CLOSE inq_type_csr ;
7797: RETURN(l_return_status);
7790: G_INVALID_QUOTE
7791: );
7792: CLOSE inq_type_csr;
7793: l_return_status := OKC_API.G_RET_STS_ERROR;
7794: RAISE OKC_API.G_EXCEPTION_ERROR;
7795: END IF;
7796: CLOSE inq_type_csr ;
7797: RETURN(l_return_status);
7798: EXCEPTION
7797: RETURN(l_return_status);
7798: EXCEPTION
7799: WHEN OTHERS THEN
7800: -- store SQL error message on message stack for caller
7801: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
7802: -- notify caller of an UNEXPECTED error
7803: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
7804: -- verify that cursor was closed
7805: IF inq_type_csr%ISOPEN THEN
7799: WHEN OTHERS THEN
7800: -- store SQL error message on message stack for caller
7801: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
7802: -- notify caller of an UNEXPECTED error
7803: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
7804: -- verify that cursor was closed
7805: IF inq_type_csr%ISOPEN THEN
7806: CLOSE inq_type_csr;
7807: END IF;
7807: END IF;
7808: RETURN(l_return_status);
7809: END get_quote_type;
7810: BEGIN
7811: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
7812: G_PKG_NAME,
7813: p_init_msg_list,
7814: l_api_version,
7815: p_api_version,
7814: l_api_version,
7815: p_api_version,
7816: '_PROCESS',
7817: x_return_status);
7818: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7819: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7820: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
7821: RAISE OKC_API.G_EXCEPTION_ERROR;
7822: END IF;
7815: p_api_version,
7816: '_PROCESS',
7817: x_return_status);
7818: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7819: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7820: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
7821: RAISE OKC_API.G_EXCEPTION_ERROR;
7822: END IF;
7823:
7816: '_PROCESS',
7817: x_return_status);
7818: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7819: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7820: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
7821: RAISE OKC_API.G_EXCEPTION_ERROR;
7822: END IF;
7823:
7824:
7817: x_return_status);
7818: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7819: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7820: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
7821: RAISE OKC_API.G_EXCEPTION_ERROR;
7822: END IF;
7823:
7824:
7825: -- Check to see if all the insurance stream type purposes are associated with the if
7830: Open get_contract_id(p_quote_id);
7831: Fetch get_contract_id into l_khr_id;
7832: If get_contract_id%NOTFOUND then
7833: close get_contract_id;
7834: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7835: End if;
7836: Close get_contract_id;
7837:
7838: Open get_product_id(l_khr_id);
7838: Open get_product_id(l_khr_id);
7839: Fetch get_product_id into l_pdt_id;
7840: If get_product_id%NOTFOUND then
7841: close get_product_id;
7842: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7843: End if;
7844: Close get_product_id;
7845:
7846: Open get_st_gen_template_set_name(l_pdt_id); --bug 4001494
7846: Open get_st_gen_template_set_name(l_pdt_id); --bug 4001494
7847: Fetch get_st_gen_template_set_name into l_st_gen_tmpt_set;
7848: If get_st_gen_template_set_name%NOTFOUND then
7849: close get_st_gen_template_set_name;
7850: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7851: End if;
7852: Close get_st_gen_template_set_name;
7853:
7854: for streams_rec in check_insurance_streams_csr(l_khr_id) loop
7864: p_token1 => 'STRM_TEM_NAME',
7865: p_token1_value => l_st_gen_tmpt_set,
7866: p_token2 => 'PURPOSES',
7867: p_token2_value => l_missing_streams);
7868: RAISE OKC_API.G_EXCEPTION_ERROR;
7869: end if;
7870:
7871:
7872: -- End the check for insurance stream type purpose existence
7871:
7872: -- End the check for insurance stream type purpose existence
7873:
7874: l_return_status := get_quote_type(p_quote_id, l_quote_type);
7875: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7876: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7877: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
7878: RAISE OKC_API.G_EXCEPTION_ERROR;
7879: END IF;
7872: -- End the check for insurance stream type purpose existence
7873:
7874: l_return_status := get_quote_type(p_quote_id, l_quote_type);
7875: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7876: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7877: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
7878: RAISE OKC_API.G_EXCEPTION_ERROR;
7879: END IF;
7880: IF ((l_quote_type IS NULL ) OR (l_quote_type = OKC_API.G_MISS_CHAR )) THEN
7873:
7874: l_return_status := get_quote_type(p_quote_id, l_quote_type);
7875: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7876: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7877: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
7878: RAISE OKC_API.G_EXCEPTION_ERROR;
7879: END IF;
7880: IF ((l_quote_type IS NULL ) OR (l_quote_type = OKC_API.G_MISS_CHAR )) THEN
7881:
7874: l_return_status := get_quote_type(p_quote_id, l_quote_type);
7875: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7876: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7877: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
7878: RAISE OKC_API.G_EXCEPTION_ERROR;
7879: END IF;
7880: IF ((l_quote_type IS NULL ) OR (l_quote_type = OKC_API.G_MISS_CHAR )) THEN
7881:
7882: OKC_API.set_message(G_APP_NAME,
7876: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7877: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
7878: RAISE OKC_API.G_EXCEPTION_ERROR;
7879: END IF;
7880: IF ((l_quote_type IS NULL ) OR (l_quote_type = OKC_API.G_MISS_CHAR )) THEN
7881:
7882: OKC_API.set_message(G_APP_NAME,
7883: G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'Quote Type' ); -- 3745151 Fix for invalid error message.
7884: RAISE OKC_API.G_EXCEPTION_ERROR;
7878: RAISE OKC_API.G_EXCEPTION_ERROR;
7879: END IF;
7880: IF ((l_quote_type IS NULL ) OR (l_quote_type = OKC_API.G_MISS_CHAR )) THEN
7881:
7882: OKC_API.set_message(G_APP_NAME,
7883: G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'Quote Type' ); -- 3745151 Fix for invalid error message.
7884: RAISE OKC_API.G_EXCEPTION_ERROR;
7885: END IF;
7886: IF (l_quote_type = 'LEASE_POLICY' ) THEN
7880: IF ((l_quote_type IS NULL ) OR (l_quote_type = OKC_API.G_MISS_CHAR )) THEN
7881:
7882: OKC_API.set_message(G_APP_NAME,
7883: G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'Quote Type' ); -- 3745151 Fix for invalid error message.
7884: RAISE OKC_API.G_EXCEPTION_ERROR;
7885: END IF;
7886: IF (l_quote_type = 'LEASE_POLICY' ) THEN
7887:
7888: accept_lease_quote(p_api_version => l_api_version,
7892: x_msg_data => x_msg_data ,
7893: p_quote_id => p_quote_id,
7894: x_policy_number => l_policy_number
7895: );
7896: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7897: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7898: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
7899: RAISE OKC_API.G_EXCEPTION_ERROR;
7900: END IF;
7893: p_quote_id => p_quote_id,
7894: x_policy_number => l_policy_number
7895: );
7896: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7897: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7898: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
7899: RAISE OKC_API.G_EXCEPTION_ERROR;
7900: END IF;
7901: ELSIF (l_quote_type = 'OPTIONAL_POLICY' ) THEN
7894: x_policy_number => l_policy_number
7895: );
7896: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7897: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7898: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
7899: RAISE OKC_API.G_EXCEPTION_ERROR;
7900: END IF;
7901: ELSIF (l_quote_type = 'OPTIONAL_POLICY' ) THEN
7902: accept_optional_quote(p_api_version => l_api_version,
7895: );
7896: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7897: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7898: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
7899: RAISE OKC_API.G_EXCEPTION_ERROR;
7900: END IF;
7901: ELSIF (l_quote_type = 'OPTIONAL_POLICY' ) THEN
7902: accept_optional_quote(p_api_version => l_api_version,
7903: p_init_msg_list => p_init_msg_list ,
7906: x_msg_data => x_msg_data ,
7907: p_quote_id => p_quote_id,
7908: x_policy_number => l_policy_number
7909: );
7910: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7911: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7912: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
7913: RAISE OKC_API.G_EXCEPTION_ERROR;
7914: END IF;
7907: p_quote_id => p_quote_id,
7908: x_policy_number => l_policy_number
7909: );
7910: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7911: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7912: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
7913: RAISE OKC_API.G_EXCEPTION_ERROR;
7914: END IF;
7915: ELSE
7908: x_policy_number => l_policy_number
7909: );
7910: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7911: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7912: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
7913: RAISE OKC_API.G_EXCEPTION_ERROR;
7914: END IF;
7915: ELSE
7916: OKC_API.set_message(G_APP_NAME,
7909: );
7910: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7911: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7912: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
7913: RAISE OKC_API.G_EXCEPTION_ERROR;
7914: END IF;
7915: ELSE
7916: OKC_API.set_message(G_APP_NAME,
7917: G_INVALID_QUOTE_TYPE,G_COL_NAME_TOKEN,l_quote_type ); -- 3745151 Fix for invalid error message.
7912: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
7913: RAISE OKC_API.G_EXCEPTION_ERROR;
7914: END IF;
7915: ELSE
7916: OKC_API.set_message(G_APP_NAME,
7917: G_INVALID_QUOTE_TYPE,G_COL_NAME_TOKEN,l_quote_type ); -- 3745151 Fix for invalid error message.
7918: END IF;
7919: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
7920: EXCEPTION
7915: ELSE
7916: OKC_API.set_message(G_APP_NAME,
7917: G_INVALID_QUOTE_TYPE,G_COL_NAME_TOKEN,l_quote_type ); -- 3745151 Fix for invalid error message.
7918: END IF;
7919: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
7920: EXCEPTION
7921: WHEN OKC_API.G_EXCEPTION_ERROR THEN
7922: x_return_status := OKC_API.HANDLE_EXCEPTIONS
7923: (
7917: G_INVALID_QUOTE_TYPE,G_COL_NAME_TOKEN,l_quote_type ); -- 3745151 Fix for invalid error message.
7918: END IF;
7919: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
7920: EXCEPTION
7921: WHEN OKC_API.G_EXCEPTION_ERROR THEN
7922: x_return_status := OKC_API.HANDLE_EXCEPTIONS
7923: (
7924: l_api_name,
7925: G_PKG_NAME,
7918: END IF;
7919: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
7920: EXCEPTION
7921: WHEN OKC_API.G_EXCEPTION_ERROR THEN
7922: x_return_status := OKC_API.HANDLE_EXCEPTIONS
7923: (
7924: l_api_name,
7925: G_PKG_NAME,
7926: 'OKC_API.G_RET_STS_ERROR',
7922: x_return_status := OKC_API.HANDLE_EXCEPTIONS
7923: (
7924: l_api_name,
7925: G_PKG_NAME,
7926: 'OKC_API.G_RET_STS_ERROR',
7927: x_msg_count,
7928: x_msg_data,
7929: '_PROCESS'
7930: );
7927: x_msg_count,
7928: x_msg_data,
7929: '_PROCESS'
7930: );
7931: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
7932: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
7933: (
7934: l_api_name,
7935: G_PKG_NAME,
7928: x_msg_data,
7929: '_PROCESS'
7930: );
7931: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
7932: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
7933: (
7934: l_api_name,
7935: G_PKG_NAME,
7936: 'OKC_API.G_RET_STS_UNEXP_ERROR',
7932: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
7933: (
7934: l_api_name,
7935: G_PKG_NAME,
7936: 'OKC_API.G_RET_STS_UNEXP_ERROR',
7937: x_msg_count,
7938: x_msg_data,
7939: '_PROCESS'
7940: );
7938: x_msg_data,
7939: '_PROCESS'
7940: );
7941: WHEN OTHERS THEN
7942: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
7943: (
7944: l_api_name,
7945: G_PKG_NAME,
7946: 'OTHERS',