[Home] [Help]
PACKAGE: APPS.OKL_INS_QUOTE_PVT
Source
1 PACKAGE OKL_INS_QUOTE_PVT AS
2 /* $Header: OKLRINQS.pls 120.9 2005/11/24 10:28:53 gboomina noship $ */
3 ---------------------------------------------------------------------------
4 -- GLOBAL DATASTRUCTURES
5 ---------------------------------------------------------------------------
6
7 SUBTYPE ipyv_rec_type IS Okl_Ipy_Pvt.ipyv_rec_type;
8 TYPE ipyv_tbl_type IS TABLE OF ipyv_rec_type INDEX BY BINARY_INTEGER;
9 SUBTYPE inav_rec_type IS Okl_Ina_Pvt.inav_rec_type;
10 TYPE inav_tbl_type IS TABLE OF inav_rec_type INDEX BY BINARY_INTEGER;
11
12
13 TYPE iasset_rec_type IS RECORD (
14 KLE_ID NUMBER := OKC_API.G_MISS_NUM,
15 premium NUMBER := OKC_API.G_MISS_NUM,
16 LESSOR_PREMIUM NUMBER := OKC_API.G_MISS_NUM
17 );
18 TYPE iasset_tbl_type IS TABLE OF iasset_rec_type INDEX BY BINARY_INTEGER;
19
20 TYPE policy_rec_type IS RECORD
21 (
22 POLICY_NUMBER OKL_INS_POLICIES_V.POLICY_NUMBER%TYPE := OKC_API.G_MISS_CHAR,
23 CONTRACT_NUMBER OKC_K_HEADERS_V.CONTRACT_NUMBER%TYPE := OKC_API.G_MISS_CHAR
24 );
25
26 TYPE policy_tbl_type IS TABLE OF policy_rec_type INDEX BY BINARY_INTEGER;
27
28 TYPE payment_rec_type IS RECORD(
29 AMOUNT NUMBER := OKC_API.G_MISS_NUM,
30 DUE_DATE DATE := OKC_API.G_MISS_DATE
31 );
32 TYPE payment_tbl_type IS TABLE OF payment_rec_type INDEX BY BINARY_INTEGER;
33
34
35 TYPE insexp_rec_type IS RECORD(
36 AMOUNT NUMBER := OKC_API.G_MISS_NUM,
37 PERIOD NUMBER := OKC_API.G_MISS_NUM
38 );
39 TYPE insexp_tbl_type IS TABLE OF insexp_rec_type INDEX BY BINARY_INTEGER;
40
41 ---------------------------------------------------------------------------
42 -- GLOBAL MESSAGE CONSTANTS
43 ---------------------------------------------------------------------------
44 G_FND_APP CONSTANT VARCHAR2(200) := Okc_Api.G_FND_APP;
45 G_REQUIRED_VALUE CONSTANT VARCHAR2(200) := 'OKL_REQUIRED_VALUE';
46 G_INVALID_VALUE CONSTANT VARCHAR2(200) := Okc_Api.G_INVALID_VALUE;
47 G_COL_NAME_TOKEN CONSTANT VARCHAR2(200) := 'COL_NAME';
48 G_COL_VALUE_TOKEN CONSTANT VARCHAR2(200) := 'COL_VALUE';
49 G_COL_NAME1_TOKEN CONSTANT VARCHAR2(200) := 'COL_NAME1';
50 G_COL_NAME2_TOKEN CONSTANT VARCHAR2(200) := 'COL_NAME2';
51 G_PARENT_TABLE_TOKEN CONSTANT VARCHAR2(200) := 'PARENT_TABLE';
52 G_CHILD_TABLE_TOKEN CONSTANT VARCHAR2(200) := 'CHILD_TABLE'; --3745151 Fix for invalid error message
53 G_UNEXPECTED_ERROR CONSTANT VARCHAR2(200) := 'OKL_CONTRACTS_UNEXPECTED_ERROR';
54 G_NO_PARENT_RECORD CONSTANT VARCHAR2(200) := 'OKL_NO_PARENT_RECORD';
55 G_SQLERRM_TOKEN CONSTANT VARCHAR2(200) := 'OKL_SQLERRM';
56 G_SQLCODE_TOKEN CONSTANT VARCHAR2(200) := 'OKL_SQLCODE';
57 G_INVALID_QUOTE CONSTANT VARCHAR2(200) := 'OKL_QUOTE_INVALID';
58 G_INVALID_QUOTE_TYPE CONSTANT VARCHAR2(200) := 'OKL_QUOTE_TYPE_INVALID';
59 G_EXPIRED_QUOTE CONSTANT VARCHAR2(200) := 'OKL_QUOTE_EXPIRED';
60 G_NO_STREAM_REC_FOUND CONSTANT VARCHAR2(200) := 'OKL_NO_STREAM_REC_FOUND';
61 G_INVALID_CONTRACT CONSTANT VARCHAR2(200) := 'OKL_INVALID_CONTRACT';
62 G_K_NOT_ACTIVE CONSTANT VARCHAR2(200) := 'OKL_K_NOT_ACTIVE';
63 G_INVALID_FOR_ACTIVE_TYPE CONSTANT VARCHAR2(200) := 'OKL_INVALID_FOR_ACTIVE_TYPE';
64 G_INVALID_FOR_ACTIVE_STATUS CONSTANT VARCHAR2(200) := 'OKL_INVALID_FOR_ACTIVE_STATUS';
65 G_STREAM_ALREADY_ACTIVE CONSTANT VARCHAR2(200) := 'OKL_STREAM_ALREADY_ACTIVE';
66 G_INVALID_CONTRACT_LINE CONSTANT VARCHAR2(200) := 'OKL_INVALID_CONTRACT_LINE';
67 G_FND_LOOKUP_PAYMENT_FREQ CONSTANT VARCHAR2(200) := 'OKL_INS_PAYMENT_FREQUENCY';
68 G_NO_CAPITAL_AMOUNT CONSTANT VARCHAR2(200) := 'OKL_NO_CAPITAL_AMOUNT';
69 G_NO_SYSTEM_PROFILE CONSTANT VARCHAR2(200) := 'OKL_NO_SYSTEM_PROFILE';
70 G_SYS_PROFILE_NAME CONSTANT VARCHAR2(200) := 'OKL_SYS_PROFILE_NAME';
71 G_NO_INSURANCE CONSTANT VARCHAR2(200) := 'OKL_NO_INSURANCE';
72 G_NO_K_TERM CONSTANT VARCHAR2(200) := 'OKL_NO_K_TERM';
73 G_NO_K_OEC CONSTANT VARCHAR2(200) := 'OKL_NO_K_OEC';
74 G_NO_OEC CONSTANT VARCHAR2(200) := 'OKL_NO_OEC';
75 G_NO_KLE CONSTANT VARCHAR2(200) := 'OKL_NO_KLE';
76 G_NO_INS_CLASS CONSTANT VARCHAR2(200) := 'OKL_NO_INS_CLASS';
77 G_NOT_ACTIVE CONSTANT VARCHAR2(1) := 'A' ;
78 G_INVALID_INSURANCE_TERM CONSTANT VARCHAR2(200) := 'OKL_INVALID_INSURANCE_TERM';
79 G_NO_STREAM CONSTANT VARCHAR2(200) := 'OKL_NO_STREAM_TYPE';
80 G_PURPOSE_TOKEN CONSTANT VARCHAR2(200) := 'PURPOSE'; --bug 4024785
81 --gboomina Bug 4744724 - Added - Start
82 G_INVALID_QUOTE_TERM CONSTANT VARCHAR2(200) := 'OKL_INVALID_QUOTE_TERM';
83 --gboomina Bug 4744724 - Added - End
84 ---------------------------------------------------------------------------
85 -- GLOBAL VARIABLES
86 ---------------------------------------------------------------------------
87 G_PKG_NAME CONSTANT VARCHAR2(200) := 'Okl_Ins_Quote_Pvt';
88 G_APP_NAME CONSTANT VARCHAR2(3) := 'OKL';
89 G_NOT_ABLE CONSTANT VARCHAR2(1) := 'N' ;
90 G_NO_INS CONSTANT VARCHAR2(1) := 'I' ;
91 ---------------------------------------------------------------------------
92 -- GLOBAL EXCEPTION
93 ---------------------------------------------------------------------------
94 G_EXCEPTION_HALT_VALIDATION EXCEPTION;
95 ---------------------------------------------------------------------------
96 -- Procedures and Functions
97
98
99 PROCEDURE save_quote(
100 p_api_version IN NUMBER,
101 p_init_msg_list IN VARCHAR2 DEFAULT Okc_Api.G_FALSE,
102 x_return_status OUT NOCOPY VARCHAR2,
103 x_msg_count OUT NOCOPY NUMBER,
104 x_msg_data OUT NOCOPY VARCHAR2,
105 px_ipyv_rec IN OUT NOCOPY ipyv_rec_type,
106 x_message OUT NOCOPY VARCHAR2 );
107 -- Need to have second procedure
108 -- so that we don't need TO recalculate
109 PROCEDURE save_accept_quote(
110 p_api_version IN NUMBER,
111 p_init_msg_list IN VARCHAR2 DEFAULT Okc_Api.G_FALSE,
112 x_return_status OUT NOCOPY VARCHAR2,
113 x_msg_count OUT NOCOPY NUMBER,
114 x_msg_data OUT NOCOPY VARCHAR2,
115 p_ipyv_rec IN ipyv_rec_type,
116 x_message OUT NOCOPY VARCHAR2 );
117
118 -- Need to have second procedure
119 -- so that we don't need to recalculate
120 PROCEDURE accept_quote(
121 p_api_version IN NUMBER,
122 p_init_msg_list IN VARCHAR2 DEFAULT Okc_Api.G_FALSE,
123 x_return_status OUT NOCOPY VARCHAR2,
124 x_msg_count OUT NOCOPY NUMBER,
125 x_msg_data OUT NOCOPY VARCHAR2,
126 p_quote_id IN NUMBER );
127
128
129 PROCEDURE create_ins_streams(
130 p_api_version IN NUMBER,
131 p_init_msg_list IN VARCHAR2 DEFAULT Okc_Api.G_FALSE,
132 x_return_status OUT NOCOPY VARCHAR2,
133 x_msg_count OUT NOCOPY NUMBER,
134 x_msg_data OUT NOCOPY VARCHAR2,
135 p_ipyv_rec IN ipyv_rec_type
136 );
137
138
139 PROCEDURE calc_lease_premium(
140 p_api_version IN NUMBER,
141 p_init_msg_list IN VARCHAR2 DEFAULT Okc_Api.G_FALSE,
142 x_return_status OUT NOCOPY VARCHAR2,
143 x_msg_count OUT NOCOPY NUMBER,
144 x_msg_data OUT NOCOPY VARCHAR2,
145 px_ipyv_rec IN OUT NOCOPY ipyv_rec_type,
146 x_message OUT NOCOPY VARCHAR2,
147 x_iasset_tbl OUT NOCOPY iasset_tbl_type
148 );
149
150 PROCEDURE calc_optional_premium(
151 p_api_version IN NUMBER,
152 p_init_msg_list IN VARCHAR2 DEFAULT Okc_Api.G_FALSE,
153 x_return_status OUT NOCOPY VARCHAR2,
154 x_msg_count OUT NOCOPY NUMBER,
155 x_msg_data OUT NOCOPY VARCHAR2,
156 p_ipyv_rec IN ipyv_rec_type,
157 x_message OUT NOCOPY VARCHAR2,
158 x_ipyv_rec OUT NOCOPY ipyv_rec_type
159 );
160 -- bug:3967640
161 PROCEDURE calc_total_premium(p_api_version IN NUMBER,
162 p_init_msg_list IN VARCHAR2 ,
163 x_return_status OUT NOCOPY VARCHAR2,
164 x_msg_count OUT NOCOPY NUMBER,
165 x_msg_data OUT NOCOPY VARCHAR2,
166 p_pol_qte_id IN VARCHAR2,
167 x_total_premium OUT NOCOPY NUMBER);
168
169 PROCEDURE activate_ins_stream(
170 p_api_version IN NUMBER,
171 p_init_msg_list IN VARCHAR2 DEFAULT Okc_Api.G_FALSE,
172 x_return_status OUT NOCOPY VARCHAR2,
173 x_msg_count OUT NOCOPY NUMBER,
174 x_msg_data OUT NOCOPY VARCHAR2,
175 p_ipyv_rec IN ipyv_rec_type
176 );
177
178 PROCEDURE activate_ins_streams(
179 errbuf OUT NOCOPY VARCHAR2,
180 retcode OUT NOCOPY NUMBER
181 );
182
183 PROCEDURE activate_ins_streams(
184 p_api_version IN NUMBER,
185 p_init_msg_list IN VARCHAR2 DEFAULT Okc_Api.G_FALSE,
186 x_return_status OUT NOCOPY VARCHAR2,
187 x_msg_count OUT NOCOPY NUMBER,
188 x_msg_data OUT NOCOPY VARCHAR2,
189 p_contract_id IN NUMBER
190 );
191
192
193 PROCEDURE activate_ins_policy(
194 p_api_version IN NUMBER,
195 p_init_msg_list IN VARCHAR2 DEFAULT Okc_Api.G_FALSE,
196 x_return_status OUT NOCOPY VARCHAR2,
197 x_msg_count OUT NOCOPY NUMBER,
198 x_msg_data OUT NOCOPY VARCHAR2,
199 p_ins_policy_id IN NUMBER
200 );
201
202 PROCEDURE create_third_prt_ins(
203 p_api_version IN NUMBER,
204 p_init_msg_list IN VARCHAR2 DEFAULT Okc_Api.G_FALSE,
205 x_return_status OUT NOCOPY VARCHAR2,
206 x_msg_count OUT NOCOPY NUMBER,
207 x_msg_data OUT NOCOPY VARCHAR2,
208 p_ipyv_rec IN ipyv_rec_type,
209 x_ipyv_rec OUT NOCOPY ipyv_rec_type
210 );
211 -- Bug: 4567777 PAGARG new procedures for Lease Application Functionality.
212 PROCEDURE crt_lseapp_thrdprt_ins(
213 p_api_version IN NUMBER,
214 p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
215 x_return_status OUT NOCOPY VARCHAR2,
216 x_msg_count OUT NOCOPY NUMBER,
217 x_msg_data OUT NOCOPY VARCHAR2,
218 p_ipyv_rec IN ipyv_rec_type,
219 x_ipyv_rec OUT NOCOPY ipyv_rec_type);
220
221 PROCEDURE lseapp_thrdprty_to_ctrct(
222 p_api_version IN NUMBER,
223 p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
224 x_return_status OUT NOCOPY VARCHAR2,
225 x_msg_count OUT NOCOPY NUMBER,
226 x_msg_data OUT NOCOPY VARCHAR2,
227 p_lakhr_id IN NUMBER,
228 x_ipyv_rec OUT NOCOPY ipyv_rec_type);
229
230 END Okl_Ins_Quote_Pvt;