[Home] [Help]
5: -------------------------------------------------------------------------------------------------
6: G_NO_MATCHING_RECORD CONSTANT VARCHAR2(200) := 'OKL_LLA_NO_MATCHING_RECORD';
7: G_COPY_HEADER CONSTANT VARCHAR2(200) := 'OKL_LLA_COPY_HEADER';
8: G_COPY_LINE CONSTANT VARCHAR2(200) := 'OKL_LLA_COPY_LINE';
9: G_FND_APP CONSTANT VARCHAR2(200) := OKL_API.G_FND_APP;
10: G_FORM_UNABLE_TO_RESERVE_REC CONSTANT VARCHAR2(200) := OKL_API.G_FORM_UNABLE_TO_RESERVE_REC;
11: G_FORM_RECORD_DELETED CONSTANT VARCHAR2(200) := OKL_API.G_FORM_RECORD_DELETED;
12: G_FORM_RECORD_CHANGED CONSTANT VARCHAR2(200) := OKL_API.G_FORM_RECORD_CHANGED;
13: G_RECORD_LOGICALLY_DELETED CONSTANT VARCHAR2(200) := OKL_API.G_RECORD_LOGICALLY_DELETED;
6: G_NO_MATCHING_RECORD CONSTANT VARCHAR2(200) := 'OKL_LLA_NO_MATCHING_RECORD';
7: G_COPY_HEADER CONSTANT VARCHAR2(200) := 'OKL_LLA_COPY_HEADER';
8: G_COPY_LINE CONSTANT VARCHAR2(200) := 'OKL_LLA_COPY_LINE';
9: G_FND_APP CONSTANT VARCHAR2(200) := OKL_API.G_FND_APP;
10: G_FORM_UNABLE_TO_RESERVE_REC CONSTANT VARCHAR2(200) := OKL_API.G_FORM_UNABLE_TO_RESERVE_REC;
11: G_FORM_RECORD_DELETED CONSTANT VARCHAR2(200) := OKL_API.G_FORM_RECORD_DELETED;
12: G_FORM_RECORD_CHANGED CONSTANT VARCHAR2(200) := OKL_API.G_FORM_RECORD_CHANGED;
13: G_RECORD_LOGICALLY_DELETED CONSTANT VARCHAR2(200) := OKL_API.G_RECORD_LOGICALLY_DELETED;
14: G_REQUIRED_VALUE CONSTANT VARCHAR2(200) := OKL_API.G_REQUIRED_VALUE;
7: G_COPY_HEADER CONSTANT VARCHAR2(200) := 'OKL_LLA_COPY_HEADER';
8: G_COPY_LINE CONSTANT VARCHAR2(200) := 'OKL_LLA_COPY_LINE';
9: G_FND_APP CONSTANT VARCHAR2(200) := OKL_API.G_FND_APP;
10: G_FORM_UNABLE_TO_RESERVE_REC CONSTANT VARCHAR2(200) := OKL_API.G_FORM_UNABLE_TO_RESERVE_REC;
11: G_FORM_RECORD_DELETED CONSTANT VARCHAR2(200) := OKL_API.G_FORM_RECORD_DELETED;
12: G_FORM_RECORD_CHANGED CONSTANT VARCHAR2(200) := OKL_API.G_FORM_RECORD_CHANGED;
13: G_RECORD_LOGICALLY_DELETED CONSTANT VARCHAR2(200) := OKL_API.G_RECORD_LOGICALLY_DELETED;
14: G_REQUIRED_VALUE CONSTANT VARCHAR2(200) := OKL_API.G_REQUIRED_VALUE;
15: G_INVALID_VALUE CONSTANT VARCHAR2(200) := OKL_API.G_INVALID_VALUE;
8: G_COPY_LINE CONSTANT VARCHAR2(200) := 'OKL_LLA_COPY_LINE';
9: G_FND_APP CONSTANT VARCHAR2(200) := OKL_API.G_FND_APP;
10: G_FORM_UNABLE_TO_RESERVE_REC CONSTANT VARCHAR2(200) := OKL_API.G_FORM_UNABLE_TO_RESERVE_REC;
11: G_FORM_RECORD_DELETED CONSTANT VARCHAR2(200) := OKL_API.G_FORM_RECORD_DELETED;
12: G_FORM_RECORD_CHANGED CONSTANT VARCHAR2(200) := OKL_API.G_FORM_RECORD_CHANGED;
13: G_RECORD_LOGICALLY_DELETED CONSTANT VARCHAR2(200) := OKL_API.G_RECORD_LOGICALLY_DELETED;
14: G_REQUIRED_VALUE CONSTANT VARCHAR2(200) := OKL_API.G_REQUIRED_VALUE;
15: G_INVALID_VALUE CONSTANT VARCHAR2(200) := OKL_API.G_INVALID_VALUE;
16: G_COL_NAME_TOKEN CONSTANT VARCHAR2(200) := OKL_API.G_COL_NAME_TOKEN;
9: G_FND_APP CONSTANT VARCHAR2(200) := OKL_API.G_FND_APP;
10: G_FORM_UNABLE_TO_RESERVE_REC CONSTANT VARCHAR2(200) := OKL_API.G_FORM_UNABLE_TO_RESERVE_REC;
11: G_FORM_RECORD_DELETED CONSTANT VARCHAR2(200) := OKL_API.G_FORM_RECORD_DELETED;
12: G_FORM_RECORD_CHANGED CONSTANT VARCHAR2(200) := OKL_API.G_FORM_RECORD_CHANGED;
13: G_RECORD_LOGICALLY_DELETED CONSTANT VARCHAR2(200) := OKL_API.G_RECORD_LOGICALLY_DELETED;
14: G_REQUIRED_VALUE CONSTANT VARCHAR2(200) := OKL_API.G_REQUIRED_VALUE;
15: G_INVALID_VALUE CONSTANT VARCHAR2(200) := OKL_API.G_INVALID_VALUE;
16: G_COL_NAME_TOKEN CONSTANT VARCHAR2(200) := OKL_API.G_COL_NAME_TOKEN;
17: G_PARENT_TABLE_TOKEN CONSTANT VARCHAR2(200) := OKL_API.G_PARENT_TABLE_TOKEN;
10: G_FORM_UNABLE_TO_RESERVE_REC CONSTANT VARCHAR2(200) := OKL_API.G_FORM_UNABLE_TO_RESERVE_REC;
11: G_FORM_RECORD_DELETED CONSTANT VARCHAR2(200) := OKL_API.G_FORM_RECORD_DELETED;
12: G_FORM_RECORD_CHANGED CONSTANT VARCHAR2(200) := OKL_API.G_FORM_RECORD_CHANGED;
13: G_RECORD_LOGICALLY_DELETED CONSTANT VARCHAR2(200) := OKL_API.G_RECORD_LOGICALLY_DELETED;
14: G_REQUIRED_VALUE CONSTANT VARCHAR2(200) := OKL_API.G_REQUIRED_VALUE;
15: G_INVALID_VALUE CONSTANT VARCHAR2(200) := OKL_API.G_INVALID_VALUE;
16: G_COL_NAME_TOKEN CONSTANT VARCHAR2(200) := OKL_API.G_COL_NAME_TOKEN;
17: G_PARENT_TABLE_TOKEN CONSTANT VARCHAR2(200) := OKL_API.G_PARENT_TABLE_TOKEN;
18: G_CHILD_TABLE_TOKEN CONSTANT VARCHAR2(200) := OKL_API.G_CHILD_TABLE_TOKEN;
11: G_FORM_RECORD_DELETED CONSTANT VARCHAR2(200) := OKL_API.G_FORM_RECORD_DELETED;
12: G_FORM_RECORD_CHANGED CONSTANT VARCHAR2(200) := OKL_API.G_FORM_RECORD_CHANGED;
13: G_RECORD_LOGICALLY_DELETED CONSTANT VARCHAR2(200) := OKL_API.G_RECORD_LOGICALLY_DELETED;
14: G_REQUIRED_VALUE CONSTANT VARCHAR2(200) := OKL_API.G_REQUIRED_VALUE;
15: G_INVALID_VALUE CONSTANT VARCHAR2(200) := OKL_API.G_INVALID_VALUE;
16: G_COL_NAME_TOKEN CONSTANT VARCHAR2(200) := OKL_API.G_COL_NAME_TOKEN;
17: G_PARENT_TABLE_TOKEN CONSTANT VARCHAR2(200) := OKL_API.G_PARENT_TABLE_TOKEN;
18: G_CHILD_TABLE_TOKEN CONSTANT VARCHAR2(200) := OKL_API.G_CHILD_TABLE_TOKEN;
19: G_UNEXPECTED_ERROR CONSTANT VARCHAR2(200) := 'OKC_CONTRACTS_UNEXP_ERROR';
12: G_FORM_RECORD_CHANGED CONSTANT VARCHAR2(200) := OKL_API.G_FORM_RECORD_CHANGED;
13: G_RECORD_LOGICALLY_DELETED CONSTANT VARCHAR2(200) := OKL_API.G_RECORD_LOGICALLY_DELETED;
14: G_REQUIRED_VALUE CONSTANT VARCHAR2(200) := OKL_API.G_REQUIRED_VALUE;
15: G_INVALID_VALUE CONSTANT VARCHAR2(200) := OKL_API.G_INVALID_VALUE;
16: G_COL_NAME_TOKEN CONSTANT VARCHAR2(200) := OKL_API.G_COL_NAME_TOKEN;
17: G_PARENT_TABLE_TOKEN CONSTANT VARCHAR2(200) := OKL_API.G_PARENT_TABLE_TOKEN;
18: G_CHILD_TABLE_TOKEN CONSTANT VARCHAR2(200) := OKL_API.G_CHILD_TABLE_TOKEN;
19: G_UNEXPECTED_ERROR CONSTANT VARCHAR2(200) := 'OKC_CONTRACTS_UNEXP_ERROR';
20: G_SQLERRM_TOKEN CONSTANT VARCHAR2(200) := 'SQLerrm';
13: G_RECORD_LOGICALLY_DELETED CONSTANT VARCHAR2(200) := OKL_API.G_RECORD_LOGICALLY_DELETED;
14: G_REQUIRED_VALUE CONSTANT VARCHAR2(200) := OKL_API.G_REQUIRED_VALUE;
15: G_INVALID_VALUE CONSTANT VARCHAR2(200) := OKL_API.G_INVALID_VALUE;
16: G_COL_NAME_TOKEN CONSTANT VARCHAR2(200) := OKL_API.G_COL_NAME_TOKEN;
17: G_PARENT_TABLE_TOKEN CONSTANT VARCHAR2(200) := OKL_API.G_PARENT_TABLE_TOKEN;
18: G_CHILD_TABLE_TOKEN CONSTANT VARCHAR2(200) := OKL_API.G_CHILD_TABLE_TOKEN;
19: G_UNEXPECTED_ERROR CONSTANT VARCHAR2(200) := 'OKC_CONTRACTS_UNEXP_ERROR';
20: G_SQLERRM_TOKEN CONSTANT VARCHAR2(200) := 'SQLerrm';
21: G_SQLCODE_TOKEN CONSTANT VARCHAR2(200) := 'SQLcode';
14: G_REQUIRED_VALUE CONSTANT VARCHAR2(200) := OKL_API.G_REQUIRED_VALUE;
15: G_INVALID_VALUE CONSTANT VARCHAR2(200) := OKL_API.G_INVALID_VALUE;
16: G_COL_NAME_TOKEN CONSTANT VARCHAR2(200) := OKL_API.G_COL_NAME_TOKEN;
17: G_PARENT_TABLE_TOKEN CONSTANT VARCHAR2(200) := OKL_API.G_PARENT_TABLE_TOKEN;
18: G_CHILD_TABLE_TOKEN CONSTANT VARCHAR2(200) := OKL_API.G_CHILD_TABLE_TOKEN;
19: G_UNEXPECTED_ERROR CONSTANT VARCHAR2(200) := 'OKC_CONTRACTS_UNEXP_ERROR';
20: G_SQLERRM_TOKEN CONSTANT VARCHAR2(200) := 'SQLerrm';
21: G_SQLCODE_TOKEN CONSTANT VARCHAR2(200) := 'SQLcode';
22: G_UPPERCASE_REQUIRED CONSTANT VARCHAR2(200) := 'OKL_CONTRACTS_UPPERCASE_REQ';
33: -------------------------------------------------------------------------------------------------
34: -- GLOBAL VARIABLES
35: -------------------------------------------------------------------------------------------------
36: G_PKG_NAME CONSTANT VARCHAR2(200) := 'OKL_RELEASE_PVT';
37: G_APP_NAME CONSTANT VARCHAR2(3) := OKL_API.G_APP_NAME;
38: G_FIN_LINE_LTY_CODE OKC_LINE_STYLES_V.LTY_CODE%TYPE := 'FREE_FORM1';
39: G_FA_LINE_LTY_CODE OKC_LINE_STYLES_V.LTY_CODE%TYPE := 'FIXED_ASSET';
40: G_INST_LINE_LTY_CODE OKC_LINE_STYLES_V.LTY_CODE%TYPE := 'FREE_FORM2';
41: G_IB_LINE_LTY_CODE OKC_LINE_STYLES_V.LTY_CODE%TYPE := 'INST_ITEM';
79: p_chr_id IN NUMBER,
80: p_source_trx_id IN NUMBER
81: ) IS
82:
83: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
84: l_api_name CONSTANT VARCHAR2(30) := 'create_ubb_contract';
85: l_api_version CONSTANT NUMBER := 1.0;
86:
87: --cursor to check if usage line exists on the contract
150: x_msg_data => x_msg_data,
151: p_chr_id => p_chr_id,
152: x_chr_id => l_service_chr_id
153: );
154: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
155: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
156: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
157: RAISE Okl_Api.G_EXCEPTION_ERROR;
158: END IF;
151: p_chr_id => p_chr_id,
152: x_chr_id => l_service_chr_id
153: );
154: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
155: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
156: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
157: RAISE Okl_Api.G_EXCEPTION_ERROR;
158: END IF;
159: END IF;
152: x_chr_id => l_service_chr_id
153: );
154: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
155: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
156: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
157: RAISE Okl_Api.G_EXCEPTION_ERROR;
158: END IF;
159: END IF;
160:
153: );
154: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
155: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
156: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
157: RAISE Okl_Api.G_EXCEPTION_ERROR;
158: END IF;
159: END IF;
160:
161: End If;
160:
161: End If;
162:
163: EXCEPTION
164: when OKL_API.G_EXCEPTION_ERROR then
165:
166: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
167: p_api_name => l_api_name,
168: p_pkg_name => G_PKG_NAME,
162:
163: EXCEPTION
164: when OKL_API.G_EXCEPTION_ERROR then
165:
166: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
167: p_api_name => l_api_name,
168: p_pkg_name => G_PKG_NAME,
169: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
170: x_msg_count => x_msg_count,
165:
166: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
167: p_api_name => l_api_name,
168: p_pkg_name => G_PKG_NAME,
169: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
170: x_msg_count => x_msg_count,
171: x_msg_data => x_msg_data,
172: p_api_type => G_API_TYPE);
173:
170: x_msg_count => x_msg_count,
171: x_msg_data => x_msg_data,
172: p_api_type => G_API_TYPE);
173:
174: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
175:
176: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
177: p_api_name => l_api_name,
178: p_pkg_name => G_PKG_NAME,
172: p_api_type => G_API_TYPE);
173:
174: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
175:
176: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
177: p_api_name => l_api_name,
178: p_pkg_name => G_PKG_NAME,
179: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
180: x_msg_count => x_msg_count,
175:
176: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
177: p_api_name => l_api_name,
178: p_pkg_name => G_PKG_NAME,
179: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
180: x_msg_count => x_msg_count,
181: x_msg_data => x_msg_data,
182: p_api_type => G_API_TYPE);
183:
182: p_api_type => G_API_TYPE);
183:
184: when OTHERS then
185:
186: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
187: p_api_name => l_api_name,
188: p_pkg_name => G_PKG_NAME,
189: p_exc_name => 'OTHERS',
190: x_msg_count => x_msg_count,
213: x_msg_data OUT NOCOPY VARCHAR2,
214: p_chr_id IN NUMBER,
215: p_release_date IN DATE) IS
216:
217: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
218: l_api_name CONSTANT VARCHAR2(30) := 'ADJUST_USAGE_LINES';
219: l_api_version CONSTANT NUMBER := 1.0;
220:
221: --This cursor find usage lines in the release contract which are not
279: lx_clev_rec okl_okc_migration_pvt.clev_rec_type;
280:
281: begin
282:
283: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
284: -- Call start_activity to create savepoint, check compatibility
285: -- and initialize message list
286: l_return_status := Okl_Api.START_ACTIVITY(
287: p_api_name => l_api_name,
282:
283: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
284: -- Call start_activity to create savepoint, check compatibility
285: -- and initialize message list
286: l_return_status := Okl_Api.START_ACTIVITY(
287: p_api_name => l_api_name,
288: p_pkg_name => g_pkg_name,
289: p_init_msg_list => p_init_msg_list,
290: l_api_version => l_api_version,
291: p_api_version => p_api_version,
292: p_api_type => '_PVT',
293: x_return_status => x_return_status);
294: -- Check if activity started successfully
295: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
296: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
297: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
298: RAISE Okl_Api.G_EXCEPTION_ERROR;
299: END IF;
292: p_api_type => '_PVT',
293: x_return_status => x_return_status);
294: -- Check if activity started successfully
295: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
296: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
297: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
298: RAISE Okl_Api.G_EXCEPTION_ERROR;
299: END IF;
300:
293: x_return_status => x_return_status);
294: -- Check if activity started successfully
295: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
296: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
297: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
298: RAISE Okl_Api.G_EXCEPTION_ERROR;
299: END IF;
300:
301: --Remove all the usage lines without any assets associated with it.
294: -- Check if activity started successfully
295: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
296: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
297: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
298: RAISE Okl_Api.G_EXCEPTION_ERROR;
299: END IF;
300:
301: --Remove all the usage lines without any assets associated with it.
302: FOR non_linked_usage_rec In non_linked_usage_csr(p_chr_id) LOOP
309: x_msg_data => x_msg_data,
310: p_line_id => non_linked_usage_rec.usage_line_id
311: );
312:
313: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
314: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
315: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
316: RAISE OKL_API.G_EXCEPTION_ERROR;
317: END IF;
310: p_line_id => non_linked_usage_rec.usage_line_id
311: );
312:
313: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
314: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
315: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
316: RAISE OKL_API.G_EXCEPTION_ERROR;
317: END IF;
318:
311: );
312:
313: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
314: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
315: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
316: RAISE OKL_API.G_EXCEPTION_ERROR;
317: END IF;
318:
319: END LOOP;
312:
313: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
314: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
315: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
316: RAISE OKL_API.G_EXCEPTION_ERROR;
317: END IF;
318:
319: END LOOP;
320:
339: p_klev_rec => lp_klev_rec,
340: x_clev_rec => lx_clev_rec,
341: x_klev_rec => lx_klev_rec
342: );
343: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
344: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
345: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
346: RAISE OKL_API.G_EXCEPTION_ERROR;
347: END IF;
340: x_clev_rec => lx_clev_rec,
341: x_klev_rec => lx_klev_rec
342: );
343: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
344: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
345: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
346: RAISE OKL_API.G_EXCEPTION_ERROR;
347: END IF;
348:
341: x_klev_rec => lx_klev_rec
342: );
343: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
344: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
345: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
346: RAISE OKL_API.G_EXCEPTION_ERROR;
347: END IF;
348:
349: FOR link_asset_rec IN link_asset_csr (p_chr_id,usage_rec.usage_line_id)
342: );
343: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
344: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
345: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
346: RAISE OKL_API.G_EXCEPTION_ERROR;
347: END IF;
348:
349: FOR link_asset_rec IN link_asset_csr (p_chr_id,usage_rec.usage_line_id)
350: LOOP
365: p_klev_rec => lp_klev_rec,
366: x_clev_rec => lx_clev_rec,
367: x_klev_rec => lx_klev_rec
368: );
369: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
370: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
371: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
372: RAISE OKL_API.G_EXCEPTION_ERROR;
373: END IF;
366: x_clev_rec => lx_clev_rec,
367: x_klev_rec => lx_klev_rec
368: );
369: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
370: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
371: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
372: RAISE OKL_API.G_EXCEPTION_ERROR;
373: END IF;
374: END LOOP;
367: x_klev_rec => lx_klev_rec
368: );
369: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
370: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
371: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
372: RAISE OKL_API.G_EXCEPTION_ERROR;
373: END IF;
374: END LOOP;
375:
368: );
369: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
370: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
371: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
372: RAISE OKL_API.G_EXCEPTION_ERROR;
373: END IF;
374: END LOOP;
375:
376: END LOOP;
373: END IF;
374: END LOOP;
375:
376: END LOOP;
377: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
378: x_msg_data => x_msg_data);
379: EXCEPTION
380: when OKL_API.G_EXCEPTION_ERROR then
381:
376: END LOOP;
377: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
378: x_msg_data => x_msg_data);
379: EXCEPTION
380: when OKL_API.G_EXCEPTION_ERROR then
381:
382: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
383: p_api_name => l_api_name,
384: p_pkg_name => G_PKG_NAME,
378: x_msg_data => x_msg_data);
379: EXCEPTION
380: when OKL_API.G_EXCEPTION_ERROR then
381:
382: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
383: p_api_name => l_api_name,
384: p_pkg_name => G_PKG_NAME,
385: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
386: x_msg_count => x_msg_count,
381:
382: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
383: p_api_name => l_api_name,
384: p_pkg_name => G_PKG_NAME,
385: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
386: x_msg_count => x_msg_count,
387: x_msg_data => x_msg_data,
388: p_api_type => G_API_TYPE);
389:
386: x_msg_count => x_msg_count,
387: x_msg_data => x_msg_data,
388: p_api_type => G_API_TYPE);
389:
390: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
391:
392: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
393: p_api_name => l_api_name,
394: p_pkg_name => G_PKG_NAME,
388: p_api_type => G_API_TYPE);
389:
390: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
391:
392: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
393: p_api_name => l_api_name,
394: p_pkg_name => G_PKG_NAME,
395: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
396: x_msg_count => x_msg_count,
391:
392: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
393: p_api_name => l_api_name,
394: p_pkg_name => G_PKG_NAME,
395: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
396: x_msg_count => x_msg_count,
397: x_msg_data => x_msg_data,
398: p_api_type => G_API_TYPE);
399:
398: p_api_type => G_API_TYPE);
399:
400: when OTHERS then
401:
402: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
403: p_api_name => l_api_name,
404: p_pkg_name => G_PKG_NAME,
405: p_exc_name => 'OTHERS',
406: x_msg_count => x_msg_count,
420: FUNCTION get_tasv_rec(p_tas_id IN NUMBER,
421: x_trxv_rec OUT NOCOPY trxv_rec_type)
422: RETURN VARCHAR2
423: IS
424: x_return_status VARCHAR2(3) := OKL_API.G_RET_STS_SUCCESS;
425: CURSOR c_trxv_rec(p_tas_id NUMBER)
426: IS
427: SELECT ID,
428: OBJECT_VERSION_NUMBER,
493: x_trxv_rec.COMMENTS,
494: x_trxv_rec.REQ_ASSET_ID,
495: x_trxv_rec.TOTAL_MATCH_AMOUNT;
496: IF c_trxv_rec%NOTFOUND THEN
497: x_return_status := OKL_API.G_RET_STS_ERROR;
498: END IF;
499: CLOSE c_trxv_rec;
500: RETURN(x_return_status);
501: EXCEPTION
500: RETURN(x_return_status);
501: EXCEPTION
502: WHEN OTHERS THEN
503: -- store SQL error message on message stack for caller
504: OKL_API.set_message(
505: G_APP_NAME,
506: G_UNEXPECTED_ERROR,
507: G_SQLCODE_TOKEN,
508: SQLCODE,
511: IF c_trxv_rec%ISOPEN THEN
512: CLOSE c_trxv_rec;
513: END IF;
514: -- notify caller of an UNEXPECTED error
515: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
516: RETURN(x_return_status);
517: END get_tasv_rec;
518: -------------------------------------------------------------------------------------------------
519: FUNCTION get_rec_chrv (p_id IN OKC_K_HEADERS_V.ID%TYPE,
599: LAST_UPDATE_DATE,
600: LAST_UPDATE_LOGIN
601: FROM okc_k_headers_v chrv
602: WHERE chrv.id = p_id;
603: x_return_status VARCHAR2(3) := OKL_API.G_RET_STS_SUCCESS;
604: BEGIN
605: OPEN okc_chrv_pk_csr (p_id);
606: FETCH okc_chrv_pk_csr INTO
607: x_chrv_rec.ID,
682: x_chrv_rec.LAST_UPDATED_BY,
683: x_chrv_rec.LAST_UPDATE_DATE,
684: x_chrv_rec.LAST_UPDATE_LOGIN;
685: IF okc_chrv_pk_csr%NOTFOUND THEN
686: x_return_status := OKL_API.G_RET_STS_ERROR;
687: END IF;
688: CLOSE okc_chrv_pk_csr;
689: RETURN(x_return_status);
690: EXCEPTION
689: RETURN(x_return_status);
690: EXCEPTION
691: WHEN OTHERS THEN
692: -- store SQL error message on message stack for caller
693: OKL_API.set_message(
694: G_APP_NAME,
695: G_UNEXPECTED_ERROR,
696: G_SQLCODE_TOKEN,
697: SQLCODE,
697: SQLCODE,
698: G_SQLERRM_TOKEN,
699: SQLERRM);
700: -- notify caller of an UNEXPECTED error
701: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
702: -- if the cursor is open
703: IF okc_chrv_pk_csr%ISOPEN THEN
704: CLOSE okc_chrv_pk_csr;
705: END IF;
737: FROM okc_k_items_v cim
738: WHERE cim.dnz_chr_id = p_dnz_chr_id
739: AND cim.cle_id = p_cle_id;
740: l_okc_cimv_pk okc_cimv_pk_csr%ROWTYPE;
741: x_return_status VARCHAR2(3) := OKL_API.G_RET_STS_SUCCESS;
742: BEGIN
743: OPEN okc_cimv_pk_csr(p_cle_id,
744: p_dnz_chr_id);
745: FETCH okc_cimv_pk_csr INTO
763: x_cimv_rec.LAST_UPDATED_BY,
764: x_cimv_rec.LAST_UPDATE_DATE,
765: x_cimv_rec.LAST_UPDATE_LOGIN;
766: IF okc_cimv_pk_csr%NOTFOUND THEN
767: x_return_status := OKL_API.G_RET_STS_ERROR;
768: END IF;
769: IF (okc_cimv_pk_csr%ROWCOUNT > 1) THEN
770: x_return_status := OKL_API.G_RET_STS_ERROR;
771: END IF;
766: IF okc_cimv_pk_csr%NOTFOUND THEN
767: x_return_status := OKL_API.G_RET_STS_ERROR;
768: END IF;
769: IF (okc_cimv_pk_csr%ROWCOUNT > 1) THEN
770: x_return_status := OKL_API.G_RET_STS_ERROR;
771: END IF;
772: CLOSE okc_cimv_pk_csr;
773: RETURN(x_return_status);
774: EXCEPTION
773: RETURN(x_return_status);
774: EXCEPTION
775: WHEN OTHERS THEN
776: -- store SQL error message on message stack for caller
777: OKL_API.set_message(
778: G_APP_NAME,
779: G_UNEXPECTED_ERROR,
780: G_SQLCODE_TOKEN,
781: SQLCODE,
781: SQLCODE,
782: G_SQLERRM_TOKEN,
783: SQLERRM);
784: -- notify caller of an UNEXPECTED error
785: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
786: -- if the cursor is open
787: IF okc_cimv_pk_csr%ISOPEN THEN
788: CLOSE okc_cimv_pk_csr;
789: END IF;
808: x_msg_data OUT NOCOPY VARCHAR2,
809: p_book_type_code IN VARCHAR2,
810: p_release_date IN DATE) IS
811:
812: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
813: l_api_name CONSTANT VARCHAR2(30) := 'validate_release_date';
814: l_api_version CONSTANT NUMBER := 1.0;
815:
816: CURSOR open_period_cur(p_book_type_code IN VARCHAR2) IS
838:
839: l_current_open_period := open_period_rec.period_name||' ('||
840: to_char(open_period_rec.calendar_period_open_date,l_icx_date_format)
841: ||' - '||to_char(open_period_rec.calendar_period_close_date,l_icx_date_format)||')';
842: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
843: p_msg_name => 'OKL_LLA_RELEASE_DATE_INVALID',
844: p_token1 => 'BOOK_TYPE_CODE',
845: p_token1_value => p_book_type_code,
846: p_token2 => 'OPEN_PERIOD',
845: p_token1_value => p_book_type_code,
846: p_token2 => 'OPEN_PERIOD',
847: p_token2_value => l_current_open_period
848: );
849: RAISE OKL_API.G_EXCEPTION_ERROR;
850: END IF;
851:
852: EXCEPTION
853: WHEN OKL_API.G_EXCEPTION_ERROR Then
849: RAISE OKL_API.G_EXCEPTION_ERROR;
850: END IF;
851:
852: EXCEPTION
853: WHEN OKL_API.G_EXCEPTION_ERROR Then
854: x_return_status := OKL_API.G_RET_STS_ERROR;
855:
856: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
857: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
850: END IF;
851:
852: EXCEPTION
853: WHEN OKL_API.G_EXCEPTION_ERROR Then
854: x_return_status := OKL_API.G_RET_STS_ERROR;
855:
856: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
857: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
858:
852: EXCEPTION
853: WHEN OKL_API.G_EXCEPTION_ERROR Then
854: x_return_status := OKL_API.G_RET_STS_ERROR;
855:
856: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
857: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
858:
859: WHEN OTHERS THEN
860: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
853: WHEN OKL_API.G_EXCEPTION_ERROR Then
854: x_return_status := OKL_API.G_RET_STS_ERROR;
855:
856: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
857: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
858:
859: WHEN OTHERS THEN
860: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
861:
856: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
857: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
858:
859: WHEN OTHERS THEN
860: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
861:
862: END validate_release_date;
863:
864: ----------------------------------------------------------------------------
870: -- Parameters :
871: -- Version :
872: -- End of Commnets
873: PROCEDURE l_update_contract_header(p_api_version IN NUMBER,
874: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
875: x_return_status OUT NOCOPY VARCHAR2,
876: x_msg_count OUT NOCOPY NUMBER,
877: x_msg_data OUT NOCOPY VARCHAR2,
878: p_restricted_update IN VARCHAR2 DEFAULT 'F',
919: -- bug 5769216 - End
920: */
921:
922: BEGIN
923: x_return_status := OKL_API.G_RET_STS_SUCCESS;
924: -- Call start_activity to create savepoint, check compatibility
925: -- and initialize message list
926: x_return_status := OKL_API.START_ACTIVITY (
927: l_api_name
922: BEGIN
923: x_return_status := OKL_API.G_RET_STS_SUCCESS;
924: -- Call start_activity to create savepoint, check compatibility
925: -- and initialize message list
926: x_return_status := OKL_API.START_ACTIVITY (
927: l_api_name
928: ,p_init_msg_list
929: ,'_PVT'
930: ,x_return_status);
928: ,p_init_msg_list
929: ,'_PVT'
930: ,x_return_status);
931: -- Check if activity started successfully
932: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
933: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
934: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
935: RAISE OKL_API.G_EXCEPTION_ERROR;
936: END IF;
929: ,'_PVT'
930: ,x_return_status);
931: -- Check if activity started successfully
932: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
933: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
934: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
935: RAISE OKL_API.G_EXCEPTION_ERROR;
936: END IF;
937:
930: ,x_return_status);
931: -- Check if activity started successfully
932: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
933: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
934: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
935: RAISE OKL_API.G_EXCEPTION_ERROR;
936: END IF;
937:
938: --Bug# 9927005: Reverting the below changes as the procedures
931: -- Check if activity started successfully
932: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
933: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
934: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
935: RAISE OKL_API.G_EXCEPTION_ERROR;
936: END IF;
937:
938: --Bug# 9927005: Reverting the below changes as the procedures
939: -- adjust_fee_line and adjust_service_line
967: x_msg_data => x_msg_data,
968: p_clev_rec => l_clev_rec,
969: x_clev_rec => lx_clev_rec);
970: -- check return status
971: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
972: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
973: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
974: RAISE OKL_API.G_EXCEPTION_ERROR;
975: END IF;
968: p_clev_rec => l_clev_rec,
969: x_clev_rec => lx_clev_rec);
970: -- check return status
971: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
972: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
973: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
974: RAISE OKL_API.G_EXCEPTION_ERROR;
975: END IF;
976: End Loop;
969: x_clev_rec => lx_clev_rec);
970: -- check return status
971: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
972: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
973: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
974: RAISE OKL_API.G_EXCEPTION_ERROR;
975: END IF;
976: End Loop;
977: Close Cle_Csr;
970: -- check return status
971: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
972: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
973: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
974: RAISE OKL_API.G_EXCEPTION_ERROR;
975: END IF;
976: End Loop;
977: Close Cle_Csr;
978: End Loop;
991: p_chrv_rec => p_chrv_rec,
992: x_chrv_rec => x_chrv_rec);
993:
994: -- check return status
995: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
996: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
997: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
998: raise OKL_API.G_EXCEPTION_ERROR;
999: End If;
992: x_chrv_rec => x_chrv_rec);
993:
994: -- check return status
995: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
996: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
997: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
998: raise OKL_API.G_EXCEPTION_ERROR;
999: End If;
1000:
993:
994: -- check return status
995: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
996: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
997: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
998: raise OKL_API.G_EXCEPTION_ERROR;
999: End If;
1000:
1001: OKL_KHR_PVT.Update_Row(
994: -- check return status
995: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
996: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
997: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
998: raise OKL_API.G_EXCEPTION_ERROR;
999: End If;
1000:
1001: OKL_KHR_PVT.Update_Row(
1002: p_api_version => p_api_version,
1006: x_msg_data => x_msg_data,
1007: p_khrv_rec => p_khrv_rec,
1008: x_khrv_rec => x_khrv_rec);
1009:
1010: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
1011: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1012: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
1013: raise OKL_API.G_EXCEPTION_ERROR;
1014: End If;
1007: p_khrv_rec => p_khrv_rec,
1008: x_khrv_rec => x_khrv_rec);
1009:
1010: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
1011: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1012: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
1013: raise OKL_API.G_EXCEPTION_ERROR;
1014: End If;
1015:
1008: x_khrv_rec => x_khrv_rec);
1009:
1010: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
1011: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1012: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
1013: raise OKL_API.G_EXCEPTION_ERROR;
1014: End If;
1015:
1016: OKL_API.END_ACTIVITY (x_msg_count,
1009:
1010: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
1011: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1012: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
1013: raise OKL_API.G_EXCEPTION_ERROR;
1014: End If;
1015:
1016: OKL_API.END_ACTIVITY (x_msg_count,
1017: x_msg_data );
1012: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
1013: raise OKL_API.G_EXCEPTION_ERROR;
1014: End If;
1015:
1016: OKL_API.END_ACTIVITY (x_msg_count,
1017: x_msg_data );
1018: EXCEPTION
1019: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1020: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1015:
1016: OKL_API.END_ACTIVITY (x_msg_count,
1017: x_msg_data );
1018: EXCEPTION
1019: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1020: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1021: l_api_name,
1022: G_PKG_NAME,
1023: 'OKL_API.G_RET_STS_ERROR',
1016: OKL_API.END_ACTIVITY (x_msg_count,
1017: x_msg_data );
1018: EXCEPTION
1019: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1020: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1021: l_api_name,
1022: G_PKG_NAME,
1023: 'OKL_API.G_RET_STS_ERROR',
1024: x_msg_count,
1019: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1020: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1021: l_api_name,
1022: G_PKG_NAME,
1023: 'OKL_API.G_RET_STS_ERROR',
1024: x_msg_count,
1025: x_msg_data,
1026: '_PVT');
1027: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1023: 'OKL_API.G_RET_STS_ERROR',
1024: x_msg_count,
1025: x_msg_data,
1026: '_PVT');
1027: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1028: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
1029: l_api_name,
1030: G_PKG_NAME,
1031: 'OKL_API.G_RET_STS_UNEXP_ERROR',
1024: x_msg_count,
1025: x_msg_data,
1026: '_PVT');
1027: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1028: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
1029: l_api_name,
1030: G_PKG_NAME,
1031: 'OKL_API.G_RET_STS_UNEXP_ERROR',
1032: x_msg_count,
1027: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1028: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
1029: l_api_name,
1030: G_PKG_NAME,
1031: 'OKL_API.G_RET_STS_UNEXP_ERROR',
1032: x_msg_count,
1033: x_msg_data,
1034: '_PVT');
1035: WHEN OTHERS THEN
1032: x_msg_count,
1033: x_msg_data,
1034: '_PVT');
1035: WHEN OTHERS THEN
1036: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
1037: l_api_name,
1038: G_PKG_NAME,
1039: 'OTHERS',
1040: x_msg_count,
1050: -- Parameters :
1051: -- Version :
1052: -- End of Commnets
1053: PROCEDURE l_copy_contract(p_api_version IN NUMBER,
1054: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
1055: x_return_status OUT NOCOPY VARCHAR2,
1056: x_msg_count OUT NOCOPY NUMBER,
1057: x_msg_data OUT NOCOPY VARCHAR2,
1058: p_commit IN VARCHAR2 DEFAULT 'F',
1103: lp_larles_rulv_rec Okl_Rule_Pub.rulv_rec_type;
1104: lx_larles_rulv_rec Okl_Rule_Pub.rulv_rec_type;
1105:
1106: BEGIN
1107: x_return_status := OKL_API.G_RET_STS_SUCCESS;
1108: -- Call start_activity to create savepoint, check compatibility
1109: -- and initialize message list
1110: x_return_status := OKL_API.START_ACTIVITY (
1111: l_api_name
1106: BEGIN
1107: x_return_status := OKL_API.G_RET_STS_SUCCESS;
1108: -- Call start_activity to create savepoint, check compatibility
1109: -- and initialize message list
1110: x_return_status := OKL_API.START_ACTIVITY (
1111: l_api_name
1112: ,p_init_msg_list
1113: ,'_PVT'
1114: ,x_return_status);
1112: ,p_init_msg_list
1113: ,'_PVT'
1114: ,x_return_status);
1115: -- Check if activity started successfully
1116: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1117: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1118: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1119: RAISE OKL_API.G_EXCEPTION_ERROR;
1120: END IF;
1113: ,'_PVT'
1114: ,x_return_status);
1115: -- Check if activity started successfully
1116: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1117: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1118: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1119: RAISE OKL_API.G_EXCEPTION_ERROR;
1120: END IF;
1121: -- TO copy the Copy the contract first
1114: ,x_return_status);
1115: -- Check if activity started successfully
1116: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1117: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1118: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1119: RAISE OKL_API.G_EXCEPTION_ERROR;
1120: END IF;
1121: -- TO copy the Copy the contract first
1122: OKL_COPY_CONTRACT_PUB.copy_lease_contract_new(
1115: -- Check if activity started successfully
1116: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1117: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1118: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1119: RAISE OKL_API.G_EXCEPTION_ERROR;
1120: END IF;
1121: -- TO copy the Copy the contract first
1122: OKL_COPY_CONTRACT_PUB.copy_lease_contract_new(
1123: p_api_version => p_api_version,
1124: p_init_msg_list => p_init_msg_list,
1125: x_return_status => x_return_status,
1126: x_msg_count => x_msg_count,
1127: x_msg_data => x_msg_data,
1128: p_commit => OKL_API.G_FALSE,
1129: p_chr_id => p_old_chr_id,
1130: p_contract_number => p_new_contract_number,
1131: p_contract_number_modifier => null,
1132: p_to_template_yn => 'N',
1134: p_copy_lines_yn => 'Y',
1135: p_override_org => 'N',
1136: p_trans_type => 'CRL',
1137: x_chr_id => ln_new_chr_id);
1138: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1139: OKL_API.set_message(p_app_name => G_APP_NAME,
1140: p_msg_name => G_COPY_HEADER);
1141: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1142: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1135: p_override_org => 'N',
1136: p_trans_type => 'CRL',
1137: x_chr_id => ln_new_chr_id);
1138: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1139: OKL_API.set_message(p_app_name => G_APP_NAME,
1140: p_msg_name => G_COPY_HEADER);
1141: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1142: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1143: OKL_API.set_message(p_app_name => G_APP_NAME,
1137: x_chr_id => ln_new_chr_id);
1138: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1139: OKL_API.set_message(p_app_name => G_APP_NAME,
1140: p_msg_name => G_COPY_HEADER);
1141: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1142: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1143: OKL_API.set_message(p_app_name => G_APP_NAME,
1144: p_msg_name => G_COPY_HEADER);
1145: RAISE OKL_API.G_EXCEPTION_ERROR;
1138: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1139: OKL_API.set_message(p_app_name => G_APP_NAME,
1140: p_msg_name => G_COPY_HEADER);
1141: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1142: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1143: OKL_API.set_message(p_app_name => G_APP_NAME,
1144: p_msg_name => G_COPY_HEADER);
1145: RAISE OKL_API.G_EXCEPTION_ERROR;
1146: END IF;
1139: OKL_API.set_message(p_app_name => G_APP_NAME,
1140: p_msg_name => G_COPY_HEADER);
1141: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1142: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1143: OKL_API.set_message(p_app_name => G_APP_NAME,
1144: p_msg_name => G_COPY_HEADER);
1145: RAISE OKL_API.G_EXCEPTION_ERROR;
1146: END IF;
1147:
1141: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1142: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1143: OKL_API.set_message(p_app_name => G_APP_NAME,
1144: p_msg_name => G_COPY_HEADER);
1145: RAISE OKL_API.G_EXCEPTION_ERROR;
1146: END IF;
1147:
1148: okc_context.set_okc_org_context(p_chr_id => ln_new_chr_id);
1149:
1168: p_init_msg_list => p_init_msg_list,
1169: x_return_status => x_return_status,
1170: x_msg_count => x_msg_count,
1171: x_msg_data => x_msg_data,
1172: p_restricted_update => OKL_API.G_FALSE,
1173: p_chrv_rec => l_chrv_rec,
1174: p_khrv_rec => l_khrv_rec,
1175: x_chrv_rec => x_new_chrv_rec,
1176: x_khrv_rec => x_new_khrv_rec);
1173: p_chrv_rec => l_chrv_rec,
1174: p_khrv_rec => l_khrv_rec,
1175: x_chrv_rec => x_new_chrv_rec,
1176: x_khrv_rec => x_new_khrv_rec);
1177: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1178: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1179: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1180: RAISE OKL_API.G_EXCEPTION_ERROR;
1181: END IF;
1174: p_khrv_rec => l_khrv_rec,
1175: x_chrv_rec => x_new_chrv_rec,
1176: x_khrv_rec => x_new_khrv_rec);
1177: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1178: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1179: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1180: RAISE OKL_API.G_EXCEPTION_ERROR;
1181: END IF;
1182:
1175: x_chrv_rec => x_new_chrv_rec,
1176: x_khrv_rec => x_new_khrv_rec);
1177: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1178: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1179: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1180: RAISE OKL_API.G_EXCEPTION_ERROR;
1181: END IF;
1182:
1183: -- Set Re-lease Asset flag to 'Y'
1176: x_khrv_rec => x_new_khrv_rec);
1177: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1178: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1179: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1180: RAISE OKL_API.G_EXCEPTION_ERROR;
1181: END IF;
1182:
1183: -- Set Re-lease Asset flag to 'Y'
1184: open larles_csr(p_chr_id => x_new_chrv_rec.id);
1199: x_msg_data => x_msg_data,
1200: p_rgpv_rec => lp_larles_rgpv_rec,
1201: x_rgpv_rec => lx_larles_rgpv_rec);
1202:
1203: If (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
1204: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1205: Elsif (x_return_status = OKL_API.G_RET_STS_ERROR) then
1206: raise OKL_API.G_EXCEPTION_ERROR;
1207: End If;
1200: p_rgpv_rec => lp_larles_rgpv_rec,
1201: x_rgpv_rec => lx_larles_rgpv_rec);
1202:
1203: If (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
1204: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1205: Elsif (x_return_status = OKL_API.G_RET_STS_ERROR) then
1206: raise OKL_API.G_EXCEPTION_ERROR;
1207: End If;
1208:
1201: x_rgpv_rec => lx_larles_rgpv_rec);
1202:
1203: If (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
1204: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1205: Elsif (x_return_status = OKL_API.G_RET_STS_ERROR) then
1206: raise OKL_API.G_EXCEPTION_ERROR;
1207: End If;
1208:
1209: lp_larles_rulv_rec.id := null;
1202:
1203: If (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
1204: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1205: Elsif (x_return_status = OKL_API.G_RET_STS_ERROR) then
1206: raise OKL_API.G_EXCEPTION_ERROR;
1207: End If;
1208:
1209: lp_larles_rulv_rec.id := null;
1210: lp_larles_rulv_rec.rgp_id := lx_larles_rgpv_rec.id;
1222: x_msg_data => x_msg_data,
1223: p_rulv_rec => lp_larles_rulv_rec,
1224: x_rulv_rec => lx_larles_rulv_rec);
1225:
1226: If (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
1227: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1228: Elsif (x_return_status = OKL_API.G_RET_STS_ERROR) then
1229: raise OKL_API.G_EXCEPTION_ERROR;
1230: End If;
1223: p_rulv_rec => lp_larles_rulv_rec,
1224: x_rulv_rec => lx_larles_rulv_rec);
1225:
1226: If (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
1227: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1228: Elsif (x_return_status = OKL_API.G_RET_STS_ERROR) then
1229: raise OKL_API.G_EXCEPTION_ERROR;
1230: End If;
1231:
1224: x_rulv_rec => lx_larles_rulv_rec);
1225:
1226: If (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
1227: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1228: Elsif (x_return_status = OKL_API.G_RET_STS_ERROR) then
1229: raise OKL_API.G_EXCEPTION_ERROR;
1230: End If;
1231:
1232: else
1225:
1226: If (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
1227: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1228: Elsif (x_return_status = OKL_API.G_RET_STS_ERROR) then
1229: raise OKL_API.G_EXCEPTION_ERROR;
1230: End If;
1231:
1232: else
1233: if larles_rec.rule_information1 <> 'Y' then
1248: x_msg_data => x_msg_data,
1249: p_rulv_rec => lp_larles_rulv_rec,
1250: x_rulv_rec => lx_larles_rulv_rec);
1251:
1252: If (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
1253: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1254: Elsif (x_return_status = OKL_API.G_RET_STS_ERROR) then
1255: raise OKL_API.G_EXCEPTION_ERROR;
1256: End If;
1249: p_rulv_rec => lp_larles_rulv_rec,
1250: x_rulv_rec => lx_larles_rulv_rec);
1251:
1252: If (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
1253: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1254: Elsif (x_return_status = OKL_API.G_RET_STS_ERROR) then
1255: raise OKL_API.G_EXCEPTION_ERROR;
1256: End If;
1257: end if;
1250: x_rulv_rec => lx_larles_rulv_rec);
1251:
1252: If (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
1253: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1254: Elsif (x_return_status = OKL_API.G_RET_STS_ERROR) then
1255: raise OKL_API.G_EXCEPTION_ERROR;
1256: End If;
1257: end if;
1258: end if;
1251:
1252: If (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
1253: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1254: Elsif (x_return_status = OKL_API.G_RET_STS_ERROR) then
1255: raise OKL_API.G_EXCEPTION_ERROR;
1256: End If;
1257: end if;
1258: end if;
1259:
1256: End If;
1257: end if;
1258: end if;
1259:
1260: OKL_API.END_ACTIVITY (x_msg_count,
1261: x_msg_data );
1262: EXCEPTION
1263: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1264: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1259:
1260: OKL_API.END_ACTIVITY (x_msg_count,
1261: x_msg_data );
1262: EXCEPTION
1263: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1264: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1265: l_api_name,
1266: G_PKG_NAME,
1267: 'OKL_API.G_RET_STS_ERROR',
1260: OKL_API.END_ACTIVITY (x_msg_count,
1261: x_msg_data );
1262: EXCEPTION
1263: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1264: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1265: l_api_name,
1266: G_PKG_NAME,
1267: 'OKL_API.G_RET_STS_ERROR',
1268: x_msg_count,
1263: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1264: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1265: l_api_name,
1266: G_PKG_NAME,
1267: 'OKL_API.G_RET_STS_ERROR',
1268: x_msg_count,
1269: x_msg_data,
1270: '_PVT');
1271: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1267: 'OKL_API.G_RET_STS_ERROR',
1268: x_msg_count,
1269: x_msg_data,
1270: '_PVT');
1271: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1272: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
1273: l_api_name,
1274: G_PKG_NAME,
1275: 'OKL_API.G_RET_STS_UNEXP_ERROR',
1268: x_msg_count,
1269: x_msg_data,
1270: '_PVT');
1271: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1272: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
1273: l_api_name,
1274: G_PKG_NAME,
1275: 'OKL_API.G_RET_STS_UNEXP_ERROR',
1276: x_msg_count,
1271: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1272: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
1273: l_api_name,
1274: G_PKG_NAME,
1275: 'OKL_API.G_RET_STS_UNEXP_ERROR',
1276: x_msg_count,
1277: x_msg_data,
1278: '_PVT');
1279: WHEN OTHERS THEN
1276: x_msg_count,
1277: x_msg_data,
1278: '_PVT');
1279: WHEN OTHERS THEN
1280: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
1281: l_api_name,
1282: G_PKG_NAME,
1283: 'OTHERS',
1284: x_msg_count,
1285: x_msg_data,
1286: '_PVT');
1287: END l_copy_contract;
1288: -----------------------------------------------------------------------------------------------------------------------
1289: FUNCTION get_k_tls_asset(p_dnz_chr_id IN OKC_K_LINES_B.DNZ_CHR_ID%TYPE DEFAULT OKL_API.G_MISS_NUM,
1290: x_top_line_tbl OUT NOCOPY g_top_line_tbl,
1291: x_asset_num_tbl OUT NOCOPY g_asset_num_tbl)
1292: RETURN VARCHAR2 IS
1293: x_return_status VARCHAR2(3) := OKL_API.G_RET_STS_SUCCESS;
1289: FUNCTION get_k_tls_asset(p_dnz_chr_id IN OKC_K_LINES_B.DNZ_CHR_ID%TYPE DEFAULT OKL_API.G_MISS_NUM,
1290: x_top_line_tbl OUT NOCOPY g_top_line_tbl,
1291: x_asset_num_tbl OUT NOCOPY g_asset_num_tbl)
1292: RETURN VARCHAR2 IS
1293: x_return_status VARCHAR2(3) := OKL_API.G_RET_STS_SUCCESS;
1294: i NUMBER := 0;
1295: j NUMBER := 0;
1296:
1297: CURSOR c_get_old_k_top_line(p_dnz_chr_id OKC_K_LINES_B.DNZ_CHR_ID%TYPE) IS
1330:
1331: BEGIN
1332: -- Getting the TOP Line STS CODE
1333: IF (p_dnz_chr_id IS NOT NULL OR
1334: p_dnz_chr_id <> OKL_API.G_MISS_NUM) THEN
1335: -- Getting the all the top lines
1336: FOR r_get_old_k_top_line IN c_get_old_k_top_line(p_dnz_chr_id) LOOP
1337: x_top_line_tbl(i) := r_get_old_k_top_line.top_line;
1338: IF c_get_old_k_top_line%NOTFOUND THEN
1336: FOR r_get_old_k_top_line IN c_get_old_k_top_line(p_dnz_chr_id) LOOP
1337: x_top_line_tbl(i) := r_get_old_k_top_line.top_line;
1338: IF c_get_old_k_top_line%NOTFOUND THEN
1339: -- store SQL error message on message stack
1340: OKL_API.set_message(p_app_name => G_APP_NAME,
1341: p_msg_name => G_NO_MATCHING_RECORD,
1342: p_token1 => G_COL_NAME_TOKEN,
1343: p_token1_value => 'dnz_chr_id');
1344: x_return_status := OKL_API.G_RET_STS_ERROR;
1340: OKL_API.set_message(p_app_name => G_APP_NAME,
1341: p_msg_name => G_NO_MATCHING_RECORD,
1342: p_token1 => G_COL_NAME_TOKEN,
1343: p_token1_value => 'dnz_chr_id');
1344: x_return_status := OKL_API.G_RET_STS_ERROR;
1345: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
1346: END IF;
1347: i := i + 1;
1348: END LOOP;
1341: p_msg_name => G_NO_MATCHING_RECORD,
1342: p_token1 => G_COL_NAME_TOKEN,
1343: p_token1_value => 'dnz_chr_id');
1344: x_return_status := OKL_API.G_RET_STS_ERROR;
1345: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
1346: END IF;
1347: i := i + 1;
1348: END LOOP;
1349: IF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1345: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
1346: END IF;
1347: i := i + 1;
1348: END LOOP;
1349: IF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1350: RAISE G_EXCEPTION_HALT_VALIDATION;
1351: END IF;
1352: -- Getting the all the asset number
1353: FOR r_get_old_k_asset IN c_get_old_k_asset(p_dnz_chr_id) LOOP
1353: FOR r_get_old_k_asset IN c_get_old_k_asset(p_dnz_chr_id) LOOP
1354: x_asset_num_tbl(j) := r_get_old_k_asset.asset_number;
1355: IF c_get_old_k_asset%NOTFOUND THEN
1356: -- store SQL error message on message stack
1357: OKL_API.set_message(p_app_name => G_APP_NAME,
1358: p_msg_name => G_NO_MATCHING_RECORD,
1359: p_token1 => G_COL_NAME_TOKEN,
1360: p_token1_value => 'Asset Number');
1361: x_return_status := OKL_API.G_RET_STS_ERROR;
1357: OKL_API.set_message(p_app_name => G_APP_NAME,
1358: p_msg_name => G_NO_MATCHING_RECORD,
1359: p_token1 => G_COL_NAME_TOKEN,
1360: p_token1_value => 'Asset Number');
1361: x_return_status := OKL_API.G_RET_STS_ERROR;
1362: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
1363: END IF;
1364: j := j + 1;
1365: END LOOP;
1358: p_msg_name => G_NO_MATCHING_RECORD,
1359: p_token1 => G_COL_NAME_TOKEN,
1360: p_token1_value => 'Asset Number');
1361: x_return_status := OKL_API.G_RET_STS_ERROR;
1362: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
1363: END IF;
1364: j := j + 1;
1365: END LOOP;
1366: IF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1362: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
1363: END IF;
1364: j := j + 1;
1365: END LOOP;
1366: IF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1367: RAISE G_EXCEPTION_HALT_VALIDATION;
1368: END IF;
1369: -- Check we got any record
1370: IF x_top_line_tbl.count = 0 THEN
1368: END IF;
1369: -- Check we got any record
1370: IF x_top_line_tbl.count = 0 THEN
1371: -- store SQL error message on message stack
1372: OKL_API.set_message(p_app_name => G_APP_NAME,
1373: p_msg_name => G_NO_MATCHING_RECORD,
1374: p_token1 => G_COL_NAME_TOKEN,
1375: p_token1_value => 'Top Line id');
1376: RAISE G_EXCEPTION_HALT_VALIDATION;
1376: RAISE G_EXCEPTION_HALT_VALIDATION;
1377: END IF;
1378: IF x_asset_num_tbl.count = 0 THEN
1379: -- store SQL error message on message stack
1380: OKL_API.set_message(p_app_name => G_APP_NAME,
1381: p_msg_name => G_NO_MATCHING_RECORD,
1382: p_token1 => G_COL_NAME_TOKEN,
1383: p_token1_value => 'Asset Number');
1384: RAISE G_EXCEPTION_HALT_VALIDATION;
1385: END IF;
1386: ELSE
1387: -- store SQL error message on message stack
1388: -- Notify Error
1389: OKL_API.set_message(p_app_name => G_APP_NAME,
1390: p_msg_name => G_REQUIRED_VALUE,
1391: p_token1 => G_COL_NAME_TOKEN,
1392: p_token1_value => 'Dnz_chr_id');
1393: RAISE G_EXCEPTION_STOP_VALIDATION;
1404: IF c_get_old_k_asset%ISOPEN THEN
1405: CLOSE c_get_old_k_asset;
1406: END IF;
1407: -- notify caller of an error
1408: x_return_status := OKL_API.G_RET_STS_ERROR;
1409: RETURN(x_return_status);
1410: WHEN OTHERS THEN
1411: -- store SQL error message on message stack for caller
1412: OKL_API.set_message(
1408: x_return_status := OKL_API.G_RET_STS_ERROR;
1409: RETURN(x_return_status);
1410: WHEN OTHERS THEN
1411: -- store SQL error message on message stack for caller
1412: OKL_API.set_message(
1413: G_APP_NAME,
1414: G_UNEXPECTED_ERROR,
1415: G_SQLCODE_TOKEN,
1416: SQLCODE,
1416: SQLCODE,
1417: G_SQLERRM_TOKEN,
1418: SQLERRM);
1419: -- notify caller of an UNEXPECTED error
1420: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
1421: IF c_get_old_k_top_line%ISOPEN THEN
1422: CLOSE c_get_old_k_top_line;
1423: END IF;
1424: -- if the cursor is open
1450: i NUMBER := 0;
1451: j NUMBER := 0;
1452: ln_top_present NUMBER := 0;
1453: ln_asset_present NUMBER := 0;
1454: x_return_status VARCHAR2(3) := OKL_API.G_RET_STS_SUCCESS;
1455: CURSOR c_validate_top_line(p_cle_id OKC_K_LINES_V.ID%TYPE) IS
1456: SELECT 1
1457: FROM DUAL
1458: WHERE EXISTS (SELECT '1'
1470: AND line_status not in ('EXPIRED','TERMINATED','ABANDONED'));
1471:
1472: BEGIN
1473: -- data is required
1474: IF (p_dnz_chr_id = OKL_API.G_MISS_NUM) OR
1475: (p_dnz_chr_id IS NULL) THEN
1476: -- halt validation
1477: RAISE G_EXCEPTION_HALT_VALIDATION;
1478: END IF;
1478: END IF;
1479: x_return_status := get_k_tls_asset(p_dnz_chr_id => p_dnz_chr_id,
1480: x_top_line_tbl => lt_top_line_tbl,
1481: x_asset_num_tbl => lt_asset_num_tbl);
1482: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1483: RAISE G_EXCEPTION_HALT_VALIDATION;
1484: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1485: RAISE G_EXCEPTION_HALT_VALIDATION;
1486: END IF;
1480: x_top_line_tbl => lt_top_line_tbl,
1481: x_asset_num_tbl => lt_asset_num_tbl);
1482: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1483: RAISE G_EXCEPTION_HALT_VALIDATION;
1484: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1485: RAISE G_EXCEPTION_HALT_VALIDATION;
1486: END IF;
1487: IF (lt_top_line_tbl.COUNT > 0) THEN
1488: i := lt_top_line_tbl.FIRST;
1488: i := lt_top_line_tbl.FIRST;
1489: LOOP
1490: OPEN c_validate_top_line(lt_top_line_tbl(i));
1491: IF c_validate_top_line%NOTFOUND THEN
1492: OKL_API.set_message(p_app_name => G_APP_NAME,
1493: p_msg_name => G_NO_MATCHING_RECORD,
1494: p_token1 => G_COL_NAME_TOKEN,
1495: p_token1_value => 'Top Line for Contract Number');
1496: x_return_status := OKL_API.G_RET_STS_ERROR;
1492: OKL_API.set_message(p_app_name => G_APP_NAME,
1493: p_msg_name => G_NO_MATCHING_RECORD,
1494: p_token1 => G_COL_NAME_TOKEN,
1495: p_token1_value => 'Top Line for Contract Number');
1496: x_return_status := OKL_API.G_RET_STS_ERROR;
1497: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
1498: END IF;
1499: FETCH c_validate_top_line INTO ln_top_present;
1500: CLOSE c_validate_top_line;
1493: p_msg_name => G_NO_MATCHING_RECORD,
1494: p_token1 => G_COL_NAME_TOKEN,
1495: p_token1_value => 'Top Line for Contract Number');
1496: x_return_status := OKL_API.G_RET_STS_ERROR;
1497: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
1498: END IF;
1499: FETCH c_validate_top_line INTO ln_top_present;
1500: CLOSE c_validate_top_line;
1501: EXIT WHEN (ln_top_present = null);
1502: EXIT WHEN (i = lt_top_line_tbl.LAST);
1503: i := lt_top_line_tbl.NEXT(i);
1504: END LOOP;
1505: END IF;
1506: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1507: RAISE G_EXCEPTION_HALT_VALIDATION;
1508: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1509: RAISE G_EXCEPTION_HALT_VALIDATION;
1510: END IF;
1504: END LOOP;
1505: END IF;
1506: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1507: RAISE G_EXCEPTION_HALT_VALIDATION;
1508: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1509: RAISE G_EXCEPTION_HALT_VALIDATION;
1510: END IF;
1511:
1512: IF (lt_asset_num_tbl.COUNT > 0) THEN
1513: j := lt_asset_num_tbl.FIRST;
1514: LOOP
1515: OPEN c_validate_asset_number(lt_asset_num_tbl(j));
1516: IF c_validate_asset_number%NOTFOUND THEN
1517: OKL_API.set_message(p_app_name => G_APP_NAME,
1518: p_msg_name => G_NO_MATCHING_RECORD,
1519: p_token1 => G_COL_NAME_TOKEN,
1520: p_token1_value => 'Asset Number');
1521: x_return_status := OKL_API.G_RET_STS_ERROR;
1517: OKL_API.set_message(p_app_name => G_APP_NAME,
1518: p_msg_name => G_NO_MATCHING_RECORD,
1519: p_token1 => G_COL_NAME_TOKEN,
1520: p_token1_value => 'Asset Number');
1521: x_return_status := OKL_API.G_RET_STS_ERROR;
1522: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
1523: END IF;
1524: FETCH c_validate_asset_number INTO ln_asset_present;
1525: CLOSE c_validate_asset_number;
1518: p_msg_name => G_NO_MATCHING_RECORD,
1519: p_token1 => G_COL_NAME_TOKEN,
1520: p_token1_value => 'Asset Number');
1521: x_return_status := OKL_API.G_RET_STS_ERROR;
1522: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
1523: END IF;
1524: FETCH c_validate_asset_number INTO ln_asset_present;
1525: CLOSE c_validate_asset_number;
1526: EXIT WHEN (ln_asset_present <> null);
1527: EXIT WHEN (j = lt_asset_num_tbl.LAST);
1528: j := lt_asset_num_tbl.NEXT(j);
1529: END LOOP;
1530: END IF;
1531: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1532: RAISE G_EXCEPTION_HALT_VALIDATION;
1533: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1534: RAISE G_EXCEPTION_HALT_VALIDATION;
1535: END IF;
1529: END LOOP;
1530: END IF;
1531: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1532: RAISE G_EXCEPTION_HALT_VALIDATION;
1533: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1534: RAISE G_EXCEPTION_HALT_VALIDATION;
1535: END IF;
1536: IF ln_asset_present IS NOT NULL AND
1537: ln_top_present IS NULL THEN
1544: EXCEPTION
1545: WHEN G_EXCEPTION_HALT_VALIDATION then
1546: -- We are here b'cause we have no parent record
1547: -- store SQL error message on message stack
1548: OKL_API.set_message(p_app_name => G_APP_NAME,
1549: p_msg_name => G_NO_MATCHING_RECORD,
1550: p_token1 => G_COL_NAME_TOKEN,
1551: p_token1_value => 'Cle_id');
1552: -- If the cursor is open then it has to be closed
1556: IF c_validate_top_line%ISOPEN THEN
1557: CLOSE c_validate_top_line;
1558: END IF;
1559: -- notify caller of an error
1560: x_return_status := OKL_API.G_RET_STS_ERROR;
1561: RETURN(x_return_status);
1562: WHEN OTHERS THEN
1563: -- store SQL error message on message stack
1564: OKL_API.SET_MESSAGE(p_app_name => G_APP_NAME,
1560: x_return_status := OKL_API.G_RET_STS_ERROR;
1561: RETURN(x_return_status);
1562: WHEN OTHERS THEN
1563: -- store SQL error message on message stack
1564: OKL_API.SET_MESSAGE(p_app_name => G_APP_NAME,
1565: p_msg_name => G_UNEXPECTED_ERROR,
1566: p_token1 => G_SQLCODE_TOKEN,
1567: p_token1_value => SQLCODE,
1568: p_token2 => G_SQLERRM_TOKEN,
1574: IF c_validate_top_line%ISOPEN THEN
1575: CLOSE c_validate_top_line;
1576: END IF;
1577: -- notify caller of an error as UNEXPETED error
1578: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
1579: RETURN(x_return_status);
1580: END validate_assets_offlease;
1581:
1582: -----------------------------------------------------------------------------------------------
1609: p_source_trx_id IN NUMBER,
1610: p_source_trx_type IN VARCHAR2,
1611: x_tcnv_rec OUT NOCOPY tcnv_rec_type) IS
1612:
1613: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1614: l_api_name CONSTANT VARCHAR2(30) := 'CREATE_RELEASE_TRANSACTION';
1615: l_api_version CONSTANT NUMBER := 1.0;
1616:
1617: CURSOR con_header_csr (p_chr_id OKC_K_HEADERS_B.ID%TYPE) IS
1642: l_cntrct_number OKC_K_HEADERS_B.CONTRACT_NUMBER%TYPE;
1643: l_legal_entity_id NUMBER;
1644:
1645: BEGIN
1646: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
1647: -- Call start_activity to create savepoint, check compatibility
1648: -- and initialize message list
1649: l_return_status := Okl_Api.START_ACTIVITY(
1650: p_api_name => l_api_name,
1645: BEGIN
1646: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
1647: -- Call start_activity to create savepoint, check compatibility
1648: -- and initialize message list
1649: l_return_status := Okl_Api.START_ACTIVITY(
1650: p_api_name => l_api_name,
1651: p_pkg_name => g_pkg_name,
1652: p_init_msg_list => p_init_msg_list,
1653: l_api_version => l_api_version,
1654: p_api_version => p_api_version,
1655: p_api_type => '_PVT',
1656: x_return_status => x_return_status);
1657: -- Check if activity started successfully
1658: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1659: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1660: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1661: RAISE Okl_Api.G_EXCEPTION_ERROR;
1662: END IF;
1655: p_api_type => '_PVT',
1656: x_return_status => x_return_status);
1657: -- Check if activity started successfully
1658: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1659: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1660: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1661: RAISE Okl_Api.G_EXCEPTION_ERROR;
1662: END IF;
1663:
1656: x_return_status => x_return_status);
1657: -- Check if activity started successfully
1658: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1659: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1660: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1661: RAISE Okl_Api.G_EXCEPTION_ERROR;
1662: END IF;
1663:
1664: -- Validate Re-lease Reason Code
1657: -- Check if activity started successfully
1658: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1659: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1660: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1661: RAISE Okl_Api.G_EXCEPTION_ERROR;
1662: END IF;
1663:
1664: -- Validate Re-lease Reason Code
1665: IF p_reason_code NOT IN ('CUSTOMER_CHANGE','PRODUCT_CHANGE') THEN
1662: END IF;
1663:
1664: -- Validate Re-lease Reason Code
1665: IF p_reason_code NOT IN ('CUSTOMER_CHANGE','PRODUCT_CHANGE') THEN
1666: OKL_API.SET_MESSAGE(G_APP_NAME,
1667: 'OKL_LA_REV_RELCODE');
1668: RAISE OKL_API.G_EXCEPTION_ERROR;
1669: END IF;
1670:
1664: -- Validate Re-lease Reason Code
1665: IF p_reason_code NOT IN ('CUSTOMER_CHANGE','PRODUCT_CHANGE') THEN
1666: OKL_API.SET_MESSAGE(G_APP_NAME,
1667: 'OKL_LA_REV_RELCODE');
1668: RAISE OKL_API.G_EXCEPTION_ERROR;
1669: END IF;
1670:
1671: OPEN con_header_csr(p_chr_id);
1672: FETCH con_header_csr INTO l_currency_code,
1677: OPEN try_csr (p_trx_type_name => 'Release');
1678: FETCH try_csr INTO l_try_id;
1679: IF try_csr%NOTFOUND THEN
1680: CLOSE try_csr;
1681: OKL_API.SET_MESSAGE(G_APP_NAME,
1682: 'OKL_LA_NO_TRY',
1683: 'TRX_TYPE',
1684: 'Release'
1685: );
1682: 'OKL_LA_NO_TRY',
1683: 'TRX_TYPE',
1684: 'Release'
1685: );
1686: RAISE OKL_API.G_EXCEPTION_ERROR;
1687: END IF;
1688: CLOSE try_csr;
1689:
1690: l_tcnv_rec.try_id := l_try_id;
1711: -- get the contract number
1712: OPEN contract_num_csr(p_chr_id);
1713: FETCH contract_num_csr INTO l_cntrct_number;
1714: CLOSE contract_num_csr;
1715: Okl_Api.set_message(p_app_name => g_app_name,
1716: p_msg_name => 'OKL_LE_NOT_EXIST_CNTRCT',
1717: p_token1 => 'CONTRACT_NUMBER',
1718: p_token1_value => l_cntrct_number);
1719: RAISE OKL_API.G_EXCEPTION_ERROR;
1715: Okl_Api.set_message(p_app_name => g_app_name,
1716: p_msg_name => 'OKL_LE_NOT_EXIST_CNTRCT',
1717: p_token1 => 'CONTRACT_NUMBER',
1718: p_token1_value => l_cntrct_number);
1719: RAISE OKL_API.G_EXCEPTION_ERROR;
1720: END IF;
1721: okl_trx_contracts_pub.create_trx_contracts
1722: (p_api_version => p_api_version,
1723: p_init_msg_list => p_init_msg_list,
1727: p_tcnv_rec => l_tcnv_rec,
1728: x_tcnv_rec => l_out_tcnv_rec
1729: );
1730:
1731: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1732: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1733: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1734: RAISE OKL_API.G_EXCEPTION_ERROR;
1735: END IF;
1728: x_tcnv_rec => l_out_tcnv_rec
1729: );
1730:
1731: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1732: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1733: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1734: RAISE OKL_API.G_EXCEPTION_ERROR;
1735: END IF;
1736:
1729: );
1730:
1731: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1732: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1733: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1734: RAISE OKL_API.G_EXCEPTION_ERROR;
1735: END IF;
1736:
1737: x_tcnv_rec := l_out_tcnv_rec;
1730:
1731: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1732: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1733: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1734: RAISE OKL_API.G_EXCEPTION_ERROR;
1735: END IF;
1736:
1737: x_tcnv_rec := l_out_tcnv_rec;
1738:
1735: END IF;
1736:
1737: x_tcnv_rec := l_out_tcnv_rec;
1738:
1739: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
1740: x_msg_data => x_msg_data);
1741:
1742: EXCEPTION
1743: when OKL_API.G_EXCEPTION_ERROR then
1739: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
1740: x_msg_data => x_msg_data);
1741:
1742: EXCEPTION
1743: when OKL_API.G_EXCEPTION_ERROR then
1744:
1745: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1746: p_api_name => l_api_name,
1747: p_pkg_name => G_PKG_NAME,
1741:
1742: EXCEPTION
1743: when OKL_API.G_EXCEPTION_ERROR then
1744:
1745: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1746: p_api_name => l_api_name,
1747: p_pkg_name => G_PKG_NAME,
1748: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
1749: x_msg_count => x_msg_count,
1744:
1745: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1746: p_api_name => l_api_name,
1747: p_pkg_name => G_PKG_NAME,
1748: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
1749: x_msg_count => x_msg_count,
1750: x_msg_data => x_msg_data,
1751: p_api_type => G_API_TYPE);
1752:
1749: x_msg_count => x_msg_count,
1750: x_msg_data => x_msg_data,
1751: p_api_type => G_API_TYPE);
1752:
1753: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
1754:
1755: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1756: p_api_name => l_api_name,
1757: p_pkg_name => G_PKG_NAME,
1751: p_api_type => G_API_TYPE);
1752:
1753: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
1754:
1755: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1756: p_api_name => l_api_name,
1757: p_pkg_name => G_PKG_NAME,
1758: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
1759: x_msg_count => x_msg_count,
1754:
1755: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1756: p_api_name => l_api_name,
1757: p_pkg_name => G_PKG_NAME,
1758: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
1759: x_msg_count => x_msg_count,
1760: x_msg_data => x_msg_data,
1761: p_api_type => G_API_TYPE);
1762:
1761: p_api_type => G_API_TYPE);
1762:
1763: when OTHERS then
1764:
1765: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1766: p_api_name => l_api_name,
1767: p_pkg_name => G_PKG_NAME,
1768: p_exc_name => 'OTHERS',
1769: x_msg_count => x_msg_count,
1799: p_release_date IN DATE,
1800: p_source_trx_id IN NUMBER,
1801: p_currency_code IN VARCHAR2) IS
1802:
1803: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1804: l_api_name CONSTANT VARCHAR2(30) := 'VALIDATE_TAA_REQUEST_INFO';
1805: l_api_version CONSTANT NUMBER := 1.0;
1806:
1807: CURSOR taa_party_info_csr(p_taa_trx_id IN NUMBER) IS
1974:
1975: l_found VARCHAR2(1);
1976:
1977: BEGIN
1978: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
1979: -- Call start_activity to create savepoint, check compatibility
1980: -- and initialize message list
1981: l_return_status := Okl_Api.START_ACTIVITY(
1982: p_api_name => l_api_name,
1977: BEGIN
1978: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
1979: -- Call start_activity to create savepoint, check compatibility
1980: -- and initialize message list
1981: l_return_status := Okl_Api.START_ACTIVITY(
1982: p_api_name => l_api_name,
1983: p_pkg_name => g_pkg_name,
1984: p_init_msg_list => p_init_msg_list,
1985: l_api_version => l_api_version,
1986: p_api_version => p_api_version,
1987: p_api_type => '_PVT',
1988: x_return_status => x_return_status);
1989: -- Check if activity started successfully
1990: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1991: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1992: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1993: RAISE Okl_Api.G_EXCEPTION_ERROR;
1994: END IF;
1987: p_api_type => '_PVT',
1988: x_return_status => x_return_status);
1989: -- Check if activity started successfully
1990: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1991: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1992: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1993: RAISE Okl_Api.G_EXCEPTION_ERROR;
1994: END IF;
1995:
1988: x_return_status => x_return_status);
1989: -- Check if activity started successfully
1990: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1991: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1992: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1993: RAISE Okl_Api.G_EXCEPTION_ERROR;
1994: END IF;
1995:
1996: OPEN taa_party_info_csr(p_taa_trx_id => p_source_trx_id);
1989: -- Check if activity started successfully
1990: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1991: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1992: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1993: RAISE Okl_Api.G_EXCEPTION_ERROR;
1994: END IF;
1995:
1996: OPEN taa_party_info_csr(p_taa_trx_id => p_source_trx_id);
1997: FETCH taa_party_info_csr INTO taa_party_info_rec;
2008: FETCH chk_party_csr INTO l_found;
2009: CLOSE chk_party_csr;
2010:
2011: IF l_found = 'N' THEN
2012: OKL_API.SET_MESSAGE(p_app_name => G_APP_NAME,
2013: p_msg_name => 'OKL_LLA_REL_INVALID_CUST',
2014: p_token1 => 'REQ_NUM',
2015: p_token1_value => taa_party_info_rec.trx_number);
2016: RAISE OKL_API.G_EXCEPTION_ERROR;
2012: OKL_API.SET_MESSAGE(p_app_name => G_APP_NAME,
2013: p_msg_name => 'OKL_LLA_REL_INVALID_CUST',
2014: p_token1 => 'REQ_NUM',
2015: p_token1_value => taa_party_info_rec.trx_number);
2016: RAISE OKL_API.G_EXCEPTION_ERROR;
2017: END IF;
2018: END IF;
2019:
2020: -- Validate Customer Account
2025: FETCH chk_cust_acc_csr INTO l_found;
2026: CLOSE chk_cust_acc_csr;
2027:
2028: IF l_found = 'N' THEN
2029: OKL_API.SET_MESSAGE(p_app_name => G_APP_NAME,
2030: p_msg_name => 'OKL_LLA_REL_INVALID_CUST_ACC',
2031: p_token1 => 'REQ_NUM',
2032: p_token1_value => taa_party_info_rec.trx_number);
2033: RAISE OKL_API.G_EXCEPTION_ERROR;
2029: OKL_API.SET_MESSAGE(p_app_name => G_APP_NAME,
2030: p_msg_name => 'OKL_LLA_REL_INVALID_CUST_ACC',
2031: p_token1 => 'REQ_NUM',
2032: p_token1_value => taa_party_info_rec.trx_number);
2033: RAISE OKL_API.G_EXCEPTION_ERROR;
2034: END IF;
2035: END IF;
2036:
2037: -- Validate Bill-To-Site
2044: FETCH chk_bill_to_csr INTO l_found;
2045: CLOSE chk_bill_to_csr;
2046:
2047: IF l_found = 'N' THEN
2048: OKL_API.SET_MESSAGE(p_app_name => G_APP_NAME,
2049: p_msg_name => 'OKL_LLA_REL_INVALID_BILL_TO',
2050: p_token1 => 'REQ_NUM',
2051: p_token1_value => taa_party_info_rec.trx_number);
2052: RAISE OKL_API.G_EXCEPTION_ERROR;
2048: OKL_API.SET_MESSAGE(p_app_name => G_APP_NAME,
2049: p_msg_name => 'OKL_LLA_REL_INVALID_BILL_TO',
2050: p_token1 => 'REQ_NUM',
2051: p_token1_value => taa_party_info_rec.trx_number);
2052: RAISE OKL_API.G_EXCEPTION_ERROR;
2053: END IF;
2054: END IF;
2055:
2056: -- Validate Bank Account
2063: FETCH chk_bank_acc_csr INTO l_found;
2064: CLOSE chk_bank_acc_csr;
2065:
2066: IF l_found = 'N' THEN
2067: OKL_API.SET_MESSAGE(p_app_name => G_APP_NAME,
2068: p_msg_name => 'OKL_LLA_REL_INVALID_BANK_ACC',
2069: p_token1 => 'REQ_NUM',
2070: p_token1_value => taa_party_info_rec.trx_number);
2071: RAISE OKL_API.G_EXCEPTION_ERROR;
2067: OKL_API.SET_MESSAGE(p_app_name => G_APP_NAME,
2068: p_msg_name => 'OKL_LLA_REL_INVALID_BANK_ACC',
2069: p_token1 => 'REQ_NUM',
2070: p_token1_value => taa_party_info_rec.trx_number);
2071: RAISE OKL_API.G_EXCEPTION_ERROR;
2072: END IF;
2073: END IF;
2074:
2075: -- Validate Payment Method
2081: FETCH chk_pymt_mthd_csr INTO l_found;
2082: CLOSE chk_pymt_mthd_csr;
2083:
2084: IF l_found = 'N' THEN
2085: OKL_API.SET_MESSAGE(p_app_name => G_APP_NAME,
2086: p_msg_name => 'OKL_LLA_REL_INVALID_PYMT_MTHD',
2087: p_token1 => 'REQ_NUM',
2088: p_token1_value => taa_party_info_rec.trx_number);
2089: RAISE OKL_API.G_EXCEPTION_ERROR;
2085: OKL_API.SET_MESSAGE(p_app_name => G_APP_NAME,
2086: p_msg_name => 'OKL_LLA_REL_INVALID_PYMT_MTHD',
2087: p_token1 => 'REQ_NUM',
2088: p_token1_value => taa_party_info_rec.trx_number);
2089: RAISE OKL_API.G_EXCEPTION_ERROR;
2090: END IF;
2091: END IF;
2092:
2093: -- Validate Invoice Format
2097: FETCH chk_inv_format_csr INTO l_found;
2098: CLOSE chk_inv_format_csr;
2099:
2100: IF l_found = 'N' THEN
2101: OKL_API.SET_MESSAGE(p_app_name => G_APP_NAME,
2102: p_msg_name => 'OKL_LLA_REL_INVALID_INV_FMT',
2103: p_token1 => 'REQ_NUM',
2104: p_token1_value => taa_party_info_rec.trx_number);
2105: RAISE OKL_API.G_EXCEPTION_ERROR;
2101: OKL_API.SET_MESSAGE(p_app_name => G_APP_NAME,
2102: p_msg_name => 'OKL_LLA_REL_INVALID_INV_FMT',
2103: p_token1 => 'REQ_NUM',
2104: p_token1_value => taa_party_info_rec.trx_number);
2105: RAISE OKL_API.G_EXCEPTION_ERROR;
2106: END IF;
2107:
2108: END IF;
2109:
2114: FETCH chk_mla_csr INTO l_found;
2115: CLOSE chk_mla_csr;
2116:
2117: IF l_found = 'N' THEN
2118: OKL_API.SET_MESSAGE(p_app_name => G_APP_NAME,
2119: p_msg_name => 'OKL_LLA_REL_INVALID_MLA',
2120: p_token1 => 'REQ_NUM',
2121: p_token1_value => taa_party_info_rec.trx_number);
2122: RAISE OKL_API.G_EXCEPTION_ERROR;
2118: OKL_API.SET_MESSAGE(p_app_name => G_APP_NAME,
2119: p_msg_name => 'OKL_LLA_REL_INVALID_MLA',
2120: p_token1 => 'REQ_NUM',
2121: p_token1_value => taa_party_info_rec.trx_number);
2122: RAISE OKL_API.G_EXCEPTION_ERROR;
2123: END IF;
2124: END IF;
2125:
2126: -- Validate Credit Line
2133: FETCH chk_credit_line_csr INTO l_found;
2134: CLOSE chk_credit_line_csr;
2135:
2136: IF l_found = 'N' THEN
2137: OKL_API.SET_MESSAGE(p_app_name => G_APP_NAME,
2138: p_msg_name => 'OKL_LLA_REL_INVALID_CL',
2139: p_token1 => 'REQ_NUM',
2140: p_token1_value => taa_party_info_rec.trx_number);
2141: RAISE OKL_API.G_EXCEPTION_ERROR;
2137: OKL_API.SET_MESSAGE(p_app_name => G_APP_NAME,
2138: p_msg_name => 'OKL_LLA_REL_INVALID_CL',
2139: p_token1 => 'REQ_NUM',
2140: p_token1_value => taa_party_info_rec.trx_number);
2141: RAISE OKL_API.G_EXCEPTION_ERROR;
2142: END IF;
2143: END IF;
2144:
2145:
2156: FETCH chk_install_site_csr INTO l_found;
2157: CLOSE chk_install_site_csr;
2158:
2159: IF l_found = 'N' THEN
2160: OKL_API.SET_MESSAGE(p_app_name => G_APP_NAME,
2161: p_msg_name => 'OKL_LLA_REL_INVALID_INS_SITE',
2162: p_token1 => 'REQ_NUM',
2163: p_token1_value => taa_party_info_rec.trx_number,
2164: p_token2 => 'ASSET_NUM',
2162: p_token1 => 'REQ_NUM',
2163: p_token1_value => taa_party_info_rec.trx_number,
2164: p_token2 => 'ASSET_NUM',
2165: p_token2_value => taa_lines_rec.name);
2166: RAISE OKL_API.G_EXCEPTION_ERROR;
2167: END IF;
2168: END IF;
2169:
2170: -- Asset Line level Fixed asset location
2175: FETCH chk_fa_loc_csr INTO l_found;
2176: CLOSE chk_fa_loc_csr;
2177:
2178: IF l_found = 'N' THEN
2179: OKL_API.SET_MESSAGE(p_app_name => G_APP_NAME,
2180: p_msg_name => 'OKL_LLA_REL_INVALID_FA_LOC',
2181: p_token1 => 'REQ_NUM',
2182: p_token1_value => taa_party_info_rec.trx_number,
2183: p_token2 => 'ASSET_NUM',
2181: p_token1 => 'REQ_NUM',
2182: p_token1_value => taa_party_info_rec.trx_number,
2183: p_token2 => 'ASSET_NUM',
2184: p_token2_value => taa_lines_rec.name);
2185: RAISE OKL_API.G_EXCEPTION_ERROR;
2186: END IF;
2187: END IF;
2188:
2189: -- Asset Line level Bill-To-Site
2197: FETCH chk_bill_to_csr INTO l_found;
2198: CLOSE chk_bill_to_csr;
2199:
2200: IF l_found = 'N' THEN
2201: OKL_API.SET_MESSAGE(p_app_name => G_APP_NAME,
2202: p_msg_name => 'OKL_LLA_REL_INVALID_AST_BILL',
2203: p_token1 => 'REQ_NUM',
2204: p_token1_value => taa_party_info_rec.trx_number,
2205: p_token2 => 'ASSET_NUM',
2203: p_token1 => 'REQ_NUM',
2204: p_token1_value => taa_party_info_rec.trx_number,
2205: p_token2 => 'ASSET_NUM',
2206: p_token2_value => taa_lines_rec.name);
2207: RAISE OKL_API.G_EXCEPTION_ERROR;
2208: END IF;
2209: END IF;
2210:
2211: END LOOP;
2209: END IF;
2210:
2211: END LOOP;
2212:
2213: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
2214: x_msg_data => x_msg_data);
2215:
2216: EXCEPTION
2217: when OKL_API.G_EXCEPTION_ERROR then
2213: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
2214: x_msg_data => x_msg_data);
2215:
2216: EXCEPTION
2217: when OKL_API.G_EXCEPTION_ERROR then
2218:
2219: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
2220: p_api_name => l_api_name,
2221: p_pkg_name => G_PKG_NAME,
2215:
2216: EXCEPTION
2217: when OKL_API.G_EXCEPTION_ERROR then
2218:
2219: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
2220: p_api_name => l_api_name,
2221: p_pkg_name => G_PKG_NAME,
2222: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
2223: x_msg_count => x_msg_count,
2218:
2219: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
2220: p_api_name => l_api_name,
2221: p_pkg_name => G_PKG_NAME,
2222: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
2223: x_msg_count => x_msg_count,
2224: x_msg_data => x_msg_data,
2225: p_api_type => G_API_TYPE);
2226:
2223: x_msg_count => x_msg_count,
2224: x_msg_data => x_msg_data,
2225: p_api_type => G_API_TYPE);
2226:
2227: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
2228:
2229: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
2230: p_api_name => l_api_name,
2231: p_pkg_name => G_PKG_NAME,
2225: p_api_type => G_API_TYPE);
2226:
2227: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
2228:
2229: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
2230: p_api_name => l_api_name,
2231: p_pkg_name => G_PKG_NAME,
2232: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
2233: x_msg_count => x_msg_count,
2228:
2229: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
2230: p_api_name => l_api_name,
2231: p_pkg_name => G_PKG_NAME,
2232: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
2233: x_msg_count => x_msg_count,
2234: x_msg_data => x_msg_data,
2235: p_api_type => G_API_TYPE);
2236:
2235: p_api_type => G_API_TYPE);
2236:
2237: when OTHERS then
2238:
2239: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
2240: p_api_name => l_api_name,
2241: p_pkg_name => G_PKG_NAME,
2242: p_exc_name => 'OTHERS',
2243: x_msg_count => x_msg_count,
2269: p_release_date IN DATE,
2270: p_source_trx_id IN NUMBER,
2271: p_call_program IN VARCHAR2) IS
2272:
2273: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2274: l_api_name CONSTANT VARCHAR2(30) := 'VALIDATE_REL_CONTRACT';
2275: l_api_version CONSTANT NUMBER := 1.0;
2276:
2277: CURSOR chr_csr(p_chr_id IN NUMBER) IS
2618: WHERE INVOICE_DATE IS NOT NULL;
2619: --Bug# 7456516 end
2620:
2621: BEGIN
2622: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
2623: -- Call start_activity to create savepoint, check compatibility
2624: -- and initialize message list
2625: l_return_status := Okl_Api.START_ACTIVITY(
2626: p_api_name => l_api_name,
2621: BEGIN
2622: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
2623: -- Call start_activity to create savepoint, check compatibility
2624: -- and initialize message list
2625: l_return_status := Okl_Api.START_ACTIVITY(
2626: p_api_name => l_api_name,
2627: p_pkg_name => g_pkg_name,
2628: p_init_msg_list => p_init_msg_list,
2629: l_api_version => l_api_version,
2630: p_api_version => p_api_version,
2631: p_api_type => '_PVT',
2632: x_return_status => x_return_status);
2633: -- Check if activity started successfully
2634: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
2635: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2636: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
2637: RAISE Okl_Api.G_EXCEPTION_ERROR;
2638: END IF;
2631: p_api_type => '_PVT',
2632: x_return_status => x_return_status);
2633: -- Check if activity started successfully
2634: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
2635: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2636: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
2637: RAISE Okl_Api.G_EXCEPTION_ERROR;
2638: END IF;
2639:
2632: x_return_status => x_return_status);
2633: -- Check if activity started successfully
2634: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
2635: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2636: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
2637: RAISE Okl_Api.G_EXCEPTION_ERROR;
2638: END IF;
2639:
2640: open chr_csr(p_chr_id => p_chr_id);
2633: -- Check if activity started successfully
2634: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
2635: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2636: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
2637: RAISE Okl_Api.G_EXCEPTION_ERROR;
2638: END IF;
2639:
2640: open chr_csr(p_chr_id => p_chr_id);
2641: fetch chr_csr into chr_rec;
2645:
2646: -- Validate that Contract status is valid
2647: if chr_rec.sts_code NOT IN ('BOOKED','EVERGREEN','BANKRUPTCY_HOLD',
2648: 'LITIGATION_HOLD') then
2649: OKL_API.SET_MESSAGE(p_app_name => G_APP_NAME,
2650: p_msg_name => 'OKL_LLA_REL_INVALID_STATUS',
2651: p_token1 => 'CONTRACT_NUM',
2652: p_token1_value => chr_rec.contract_number);
2653: RAISE OKL_API.G_EXCEPTION_ERROR;
2649: OKL_API.SET_MESSAGE(p_app_name => G_APP_NAME,
2650: p_msg_name => 'OKL_LLA_REL_INVALID_STATUS',
2651: p_token1 => 'CONTRACT_NUM',
2652: p_token1_value => chr_rec.contract_number);
2653: RAISE OKL_API.G_EXCEPTION_ERROR;
2654: end if;
2655:
2656: -- Validate if Linked Service Contract exists
2657: l_found := 'N';
2658: open chk_linked_serv_chr_csr(p_chr_id => p_chr_id);
2659: fetch chk_linked_serv_chr_csr into l_found;
2660: close chk_linked_serv_chr_csr;
2661: if (l_found = 'Y') then
2662: OKL_API.SET_MESSAGE(G_APP_NAME,
2663: 'OKL_LLA_REL_LINK_SERV_CNTRCT');
2664: RAISE OKL_API.G_EXCEPTION_ERROR;
2665: end if;
2666:
2660: close chk_linked_serv_chr_csr;
2661: if (l_found = 'Y') then
2662: OKL_API.SET_MESSAGE(G_APP_NAME,
2663: 'OKL_LLA_REL_LINK_SERV_CNTRCT');
2664: RAISE OKL_API.G_EXCEPTION_ERROR;
2665: end if;
2666:
2667: -- T and A Validations
2668: -- Validate that T and A request is Approved
2671: open taa_request_csr(p_source_trx_id => p_source_trx_id);
2672: fetch taa_request_csr into taa_request_rec;
2673: close taa_request_csr;
2674: if taa_request_rec.tsu_code <> 'APPROVED' then
2675: OKL_API.SET_MESSAGE(p_app_name => G_APP_NAME,
2676: p_msg_name => 'OKL_LLA_REL_TAA_REQ_NO_APPRVD',
2677: p_token1 => 'REQ_NUM',
2678: p_token1_value => taa_request_rec.trx_number);
2679: RAISE OKL_API.G_EXCEPTION_ERROR;
2675: OKL_API.SET_MESSAGE(p_app_name => G_APP_NAME,
2676: p_msg_name => 'OKL_LLA_REL_TAA_REQ_NO_APPRVD',
2677: p_token1 => 'REQ_NUM',
2678: p_token1_value => taa_request_rec.trx_number);
2679: RAISE OKL_API.G_EXCEPTION_ERROR;
2680: end if;
2681: END IF;
2682:
2683: -- Validations that assets are not a part of any
2702: end if;
2703: end loop;
2704:
2705: if l_found = 'Y' then
2706: OKL_API.SET_MESSAGE(p_app_name => G_APP_NAME,
2707: p_msg_name => 'OKL_LLA_REL_NO_ACCEPT_TQ',
2708: p_token1 => 'ASST_NUM',
2709: p_token1_value => l_asset_num_token);
2710: RAISE OKL_API.G_EXCEPTION_ERROR;
2706: OKL_API.SET_MESSAGE(p_app_name => G_APP_NAME,
2707: p_msg_name => 'OKL_LLA_REL_NO_ACCEPT_TQ',
2708: p_token1 => 'ASST_NUM',
2709: p_token1_value => l_asset_num_token);
2710: RAISE OKL_API.G_EXCEPTION_ERROR;
2711: end if;
2712:
2713: l_found := 'N';
2714: l_asset_num_token := null;
2725: end if;
2726: end loop;
2727:
2728: if l_found = 'Y' then
2729: OKL_API.SET_MESSAGE(p_app_name => G_APP_NAME,
2730: p_msg_name => 'OKL_LLA_REL_NO_PROCESSED_EQ',
2731: p_token1 => 'ASSET_NUM',
2732: p_token1_value => l_asset_num_token);
2733: RAISE OKL_API.G_EXCEPTION_ERROR;
2729: OKL_API.SET_MESSAGE(p_app_name => G_APP_NAME,
2730: p_msg_name => 'OKL_LLA_REL_NO_PROCESSED_EQ',
2731: p_token1 => 'ASSET_NUM',
2732: p_token1_value => l_asset_num_token);
2733: RAISE OKL_API.G_EXCEPTION_ERROR;
2734: end if;
2735:
2736: -- Re-lease contract
2737: else
2749: end if;
2750: end loop;
2751:
2752: if l_found = 'Y' then
2753: OKL_API.SET_MESSAGE(p_app_name => G_APP_NAME,
2754: p_msg_name => 'OKL_LLA_REL_NO_ACCEPT_TQ',
2755: p_token1 => 'ASST_NUM',
2756: p_token1_value => l_asset_num_token);
2757: RAISE OKL_API.G_EXCEPTION_ERROR;
2753: OKL_API.SET_MESSAGE(p_app_name => G_APP_NAME,
2754: p_msg_name => 'OKL_LLA_REL_NO_ACCEPT_TQ',
2755: p_token1 => 'ASST_NUM',
2756: p_token1_value => l_asset_num_token);
2757: RAISE OKL_API.G_EXCEPTION_ERROR;
2758: end if;
2759:
2760: l_found := 'N';
2761: l_asset_num_token := null;
2771: end if;
2772: end loop;
2773:
2774: if l_found = 'Y' then
2775: OKL_API.SET_MESSAGE(p_app_name => G_APP_NAME,
2776: p_msg_name => 'OKL_LLA_REL_NO_PROCESSED_EQ',
2777: p_token1 => 'ASSET_NUM',
2778: p_token1_value => l_asset_num_token);
2779: RAISE OKL_API.G_EXCEPTION_ERROR;
2775: OKL_API.SET_MESSAGE(p_app_name => G_APP_NAME,
2776: p_msg_name => 'OKL_LLA_REL_NO_PROCESSED_EQ',
2777: p_token1 => 'ASSET_NUM',
2778: p_token1_value => l_asset_num_token);
2779: RAISE OKL_API.G_EXCEPTION_ERROR;
2780: end if;
2781: end if;
2782:
2783: -- Validate that the Contract is fully funded
2785: l_funding_remaining :=
2786: OKL_FUNDING_PVT.get_chr_canbe_funded_rem(p_contract_id => p_chr_id);
2787: --Bug# 4080102 - Changed to check for Funding remaining > 0
2788: if (l_funding_remaining > 0) then
2789: OKL_API.SET_MESSAGE(G_APP_NAME,
2790: 'OKL_LLA_REL_NOT_FULLY_FUNDED');
2791: RAISE OKL_API.G_EXCEPTION_ERROR;
2792: end if;*/
2793:
2787: --Bug# 4080102 - Changed to check for Funding remaining > 0
2788: if (l_funding_remaining > 0) then
2789: OKL_API.SET_MESSAGE(G_APP_NAME,
2790: 'OKL_LLA_REL_NOT_FULLY_FUNDED');
2791: RAISE OKL_API.G_EXCEPTION_ERROR;
2792: end if;*/
2793:
2794: --Bug# 4151222
2795: --Bug# 7435888: Removed check for contract being fully funded
2796: /*l_fully_funded_flag := false;
2797:
2798: --Bug# 4173345
2799: -- Re-leased contracts should be treated as fully funded
2800: if NVL(chr_rec.orig_system_source_code,OKL_API.G_MISS_CHAR) = 'OKL_RELEASE' then
2801: l_fully_funded_flag := true;
2802: else
2803: OKL_FUNDING_PVT.is_contract_fully_funded(
2804: p_api_version => p_api_version
2808: ,x_msg_data => x_msg_data
2809: ,x_value => l_fully_funded_flag
2810: ,p_contract_id => p_chr_id);
2811:
2812: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
2813: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2814: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
2815: RAISE Okl_Api.G_EXCEPTION_ERROR;
2816: END IF;
2809: ,x_value => l_fully_funded_flag
2810: ,p_contract_id => p_chr_id);
2811:
2812: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
2813: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2814: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
2815: RAISE Okl_Api.G_EXCEPTION_ERROR;
2816: END IF;
2817: end if;
2810: ,p_contract_id => p_chr_id);
2811:
2812: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
2813: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2814: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
2815: RAISE Okl_Api.G_EXCEPTION_ERROR;
2816: END IF;
2817: end if;
2818: --Bug# 4173345
2811:
2812: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
2813: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2814: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
2815: RAISE Okl_Api.G_EXCEPTION_ERROR;
2816: END IF;
2817: end if;
2818: --Bug# 4173345
2819:
2817: end if;
2818: --Bug# 4173345
2819:
2820: if (l_fully_funded_flag = false) then
2821: OKL_API.SET_MESSAGE(G_APP_NAME,
2822: 'OKL_LLA_REL_NOT_FULLY_FUNDED');
2823: RAISE OKL_API.G_EXCEPTION_ERROR;
2824: end if;
2825: */ --Bug# 7435888
2819:
2820: if (l_fully_funded_flag = false) then
2821: OKL_API.SET_MESSAGE(G_APP_NAME,
2822: 'OKL_LLA_REL_NOT_FULLY_FUNDED');
2823: RAISE OKL_API.G_EXCEPTION_ERROR;
2824: end if;
2825: */ --Bug# 7435888
2826:
2827: -- Validate whether the release date is after
2847: close last_credit_date_csr;
2848:
2849: -- Bug# 4072796
2850: if (l_receipt_date IS NOT NULL) and (p_release_date <= l_receipt_date ) then
2851: OKL_API.SET_MESSAGE(p_app_name => G_APP_NAME,
2852: p_msg_name => 'OKL_CS_TF_RECEIPT_DATE',
2853: p_token1 => 'INVOICE_DATE',
2854: p_token1_value => l_receipt_date);
2855: RAISE OKL_API.G_EXCEPTION_ERROR;
2851: OKL_API.SET_MESSAGE(p_app_name => G_APP_NAME,
2852: p_msg_name => 'OKL_CS_TF_RECEIPT_DATE',
2853: p_token1 => 'INVOICE_DATE',
2854: p_token1_value => l_receipt_date);
2855: RAISE OKL_API.G_EXCEPTION_ERROR;
2856: elsif (l_acceptance_date IS NOT NULL) and (p_release_date <= l_acceptance_date ) then
2857: OKL_API.SET_MESSAGE(p_app_name => G_APP_NAME,
2858: p_msg_name => 'OKL_CS_TF_QUOTE_DATE',
2859: p_token1 => 'QUOTE_DATE',
2853: p_token1 => 'INVOICE_DATE',
2854: p_token1_value => l_receipt_date);
2855: RAISE OKL_API.G_EXCEPTION_ERROR;
2856: elsif (l_acceptance_date IS NOT NULL) and (p_release_date <= l_acceptance_date ) then
2857: OKL_API.SET_MESSAGE(p_app_name => G_APP_NAME,
2858: p_msg_name => 'OKL_CS_TF_QUOTE_DATE',
2859: p_token1 => 'QUOTE_DATE',
2860: p_token1_value => l_acceptance_date);
2861: RAISE OKL_API.G_EXCEPTION_ERROR;
2857: OKL_API.SET_MESSAGE(p_app_name => G_APP_NAME,
2858: p_msg_name => 'OKL_CS_TF_QUOTE_DATE',
2859: p_token1 => 'QUOTE_DATE',
2860: p_token1_value => l_acceptance_date);
2861: RAISE OKL_API.G_EXCEPTION_ERROR;
2862: elsif (l_invoice_date IS NOT NULL) and (p_release_date <= l_invoice_date) then
2863: OKL_API.SET_MESSAGE(p_app_name => G_APP_NAME,
2864: p_msg_name => 'OKL_CS_TF_CREDITMEMO_DATE',
2865: p_token1 => 'CREDIT_MEMO',
2859: p_token1 => 'QUOTE_DATE',
2860: p_token1_value => l_acceptance_date);
2861: RAISE OKL_API.G_EXCEPTION_ERROR;
2862: elsif (l_invoice_date IS NOT NULL) and (p_release_date <= l_invoice_date) then
2863: OKL_API.SET_MESSAGE(p_app_name => G_APP_NAME,
2864: p_msg_name => 'OKL_CS_TF_CREDITMEMO_DATE',
2865: p_token1 => 'CREDIT_MEMO',
2866: p_token1_value => l_invoice_date);
2867: RAISE OKL_API.G_EXCEPTION_ERROR;
2863: OKL_API.SET_MESSAGE(p_app_name => G_APP_NAME,
2864: p_msg_name => 'OKL_CS_TF_CREDITMEMO_DATE',
2865: p_token1 => 'CREDIT_MEMO',
2866: p_token1_value => l_invoice_date);
2867: RAISE OKL_API.G_EXCEPTION_ERROR;
2868: end if;
2869: end if;
2870: -- T and A Validations
2871: --rajnisku: Bug 6657564 : Added validation to block TNA
2887: AND NVL(taa_request_rec.complete_transfer_yn,'X')='N' THEN
2888: --set message
2889: --The transfer is not permitted because one of the transferred
2890: --asset is associated to a usage line.
2891: OKL_API.SET_MESSAGE(G_APP_NAME,
2892: 'OKL_CS_TA_ASSET_WITH_UBB_NA');
2893: RAISE OKL_API.G_EXCEPTION_ERROR;
2894: END IF;
2895:
2889: --The transfer is not permitted because one of the transferred
2890: --asset is associated to a usage line.
2891: OKL_API.SET_MESSAGE(G_APP_NAME,
2892: 'OKL_CS_TA_ASSET_WITH_UBB_NA');
2893: RAISE OKL_API.G_EXCEPTION_ERROR;
2894: END IF;
2895:
2896: IF l_link_usage = '!' AND
2897: NVL(taa_request_rec.complete_transfer_yn,'X')='Y' THEN
2914: IF NVL(l_ubb_contract_rec.ste_code,'X')<>'TERMINATED' THEN
2915: --set message
2916: --You must terminate the associated service contract before
2917: --release is permitted.
2918: OKL_API.SET_MESSAGE(G_APP_NAME,
2919: 'OKL_LLA_REL_TERM_SERV_CNTRCT');
2920: RAISE OKL_API.G_EXCEPTION_ERROR;
2921: END IF;
2922: END IF;
2916: --You must terminate the associated service contract before
2917: --release is permitted.
2918: OKL_API.SET_MESSAGE(G_APP_NAME,
2919: 'OKL_LLA_REL_TERM_SERV_CNTRCT');
2920: RAISE OKL_API.G_EXCEPTION_ERROR;
2921: END IF;
2922: END IF;
2923: CLOSE l_ubb_contract_csr;
2924: END IF; --check
2927: -- Validation at activation --
2928: -- Bug# 4072796
2929: if (p_call_program = 'ACTIVATE') then
2930: if (p_release_date > TRUNC(sysdate)) then
2931: OKL_API.SET_MESSAGE(G_APP_NAME,
2932: 'OKL_CS_NO_TF_FUTURE_DATE');
2933: RAISE OKL_API.G_EXCEPTION_ERROR;
2934: end if;
2935:
2929: if (p_call_program = 'ACTIVATE') then
2930: if (p_release_date > TRUNC(sysdate)) then
2931: OKL_API.SET_MESSAGE(G_APP_NAME,
2932: 'OKL_CS_NO_TF_FUTURE_DATE');
2933: RAISE OKL_API.G_EXCEPTION_ERROR;
2934: end if;
2935:
2936: -- Validate if Contract is undergoing Revision
2937: l_found := 'N';
2938: open pending_trx_act_csr(p_chr_id => p_chr_id);
2939: fetch pending_trx_act_csr into l_found;
2940: close pending_trx_act_csr;
2941: if (l_found = 'Y') then
2942: OKL_API.SET_MESSAGE(G_APP_NAME,
2943: 'OKL_LLA_REV_IN_PROGRESS');
2944: RAISE OKL_API.G_EXCEPTION_ERROR;
2945: end if;
2946: end if;
2940: close pending_trx_act_csr;
2941: if (l_found = 'Y') then
2942: OKL_API.SET_MESSAGE(G_APP_NAME,
2943: 'OKL_LLA_REV_IN_PROGRESS');
2944: RAISE OKL_API.G_EXCEPTION_ERROR;
2945: end if;
2946: end if;
2947:
2948: --Bug# 4631549
2972: --x_msg_data => x_msg_data,
2973: --p_book_type_code => l_fa_rec.book_type_code,
2974: --p_release_date => p_release_date);
2975:
2976: --IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2977: --RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2978: --ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2979: --RAISE OKL_API.G_EXCEPTION_ERROR;
2980: --END IF;
2973: --p_book_type_code => l_fa_rec.book_type_code,
2974: --p_release_date => p_release_date);
2975:
2976: --IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2977: --RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2978: --ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2979: --RAISE OKL_API.G_EXCEPTION_ERROR;
2980: --END IF;
2981:
2974: --p_release_date => p_release_date);
2975:
2976: --IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2977: --RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2978: --ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2979: --RAISE OKL_API.G_EXCEPTION_ERROR;
2980: --END IF;
2981:
2982: -- Calculate Expected asset cost (cost of the asset expected after re-lease)
2975:
2976: --IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2977: --RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2978: --ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2979: --RAISE OKL_API.G_EXCEPTION_ERROR;
2980: --END IF;
2981:
2982: -- Calculate Expected asset cost (cost of the asset expected after re-lease)
2983: Calculate_Expected_Cost
2994: p_release_date => p_release_date,
2995: p_nbv => l_corp_net_book_value,
2996: x_expected_cost => l_expected_cost);
2997:
2998: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2999: RAISE OKL_API.G_EXCEPTION_ERROR;
3000: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3001: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3002: END IF;
2995: p_nbv => l_corp_net_book_value,
2996: x_expected_cost => l_expected_cost);
2997:
2998: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2999: RAISE OKL_API.G_EXCEPTION_ERROR;
3000: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3001: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3002: END IF;
3003:
2996: x_expected_cost => l_expected_cost);
2997:
2998: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2999: RAISE OKL_API.G_EXCEPTION_ERROR;
3000: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3001: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3002: END IF;
3003:
3004: If nvl(l_expected_cost,0) <> nvl(l_exp_cost_rec.expected_Asset_cost,0) then
2997:
2998: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2999: RAISE OKL_API.G_EXCEPTION_ERROR;
3000: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3001: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3002: END IF;
3003:
3004: If nvl(l_expected_cost,0) <> nvl(l_exp_cost_rec.expected_Asset_cost,0) then
3005: l_exp_cost_mismatch_yn := 'Y';
3005: l_exp_cost_mismatch_yn := 'Y';
3006: open l_asset_num_csr(p_asset_id => l_fa_rec.asset_id);
3007: fetch l_asset_num_csr into l_asset_num_rec;
3008: close l_asset_num_csr;
3009: OKL_API.set_message(p_app_name => G_APP_NAME,
3010: p_msg_name => 'OKL_LA_EXPECTED_ASSET_COST_MOD',
3011: p_token1 => 'ASSET_NUMBER',
3012: p_token1_value => l_asset_num_rec.asset_number);
3013: Elsif nvl(l_expected_cost,0) = nvl(l_exp_cost_rec.expected_asset_cost,0) then
3019: Null;
3020: End If;
3021: close l_units_csr;
3022:
3023: If nvl(l_units_rec.number_of_items,OKL_API.G_MISS_NUM) <> OKL_API.G_MISS_NUM then
3024: --modify the model line
3025: l_model_clev_rec.id := l_units_rec.model_cle_id;
3026: l_model_clev_rec.price_unit := (l_expected_cost/l_units_rec.number_of_items);
3027:
3042: x_msg_data => x_msg_data,
3043: p_clev_rec => l_model_clev_rec,
3044: x_clev_rec => lx_model_clev_rec
3045: );
3046: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3047: RAISE OKL_API.G_EXCEPTION_ERROR;
3048: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3049: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3050: END IF;
3043: p_clev_rec => l_model_clev_rec,
3044: x_clev_rec => lx_model_clev_rec
3045: );
3046: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3047: RAISE OKL_API.G_EXCEPTION_ERROR;
3048: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3049: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3050: END IF;
3051: --modify the OEC on financial asset line
3044: x_clev_rec => lx_model_clev_rec
3045: );
3046: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3047: RAISE OKL_API.G_EXCEPTION_ERROR;
3048: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3049: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3050: END IF;
3051: --modify the OEC on financial asset line
3052:
3045: );
3046: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3047: RAISE OKL_API.G_EXCEPTION_ERROR;
3048: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3049: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3050: END IF;
3051: --modify the OEC on financial asset line
3052:
3053: l_finast_clev_rec.id := l_exp_cost_rec.new_cle_id;
3065: p_edit_mode => 'N',
3066: x_clev_rec => lx_finast_clev_rec,
3067: x_klev_rec => lx_finast_klev_rec);
3068:
3069: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3070: RAISE OKL_API.G_EXCEPTION_ERROR;
3071: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3072: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3073: END IF;
3066: x_clev_rec => lx_finast_clev_rec,
3067: x_klev_rec => lx_finast_klev_rec);
3068:
3069: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3070: RAISE OKL_API.G_EXCEPTION_ERROR;
3071: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3072: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3073: END IF;
3074:
3067: x_klev_rec => lx_finast_klev_rec);
3068:
3069: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3070: RAISE OKL_API.G_EXCEPTION_ERROR;
3071: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3072: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3073: END IF;
3074:
3075: --modify the capital amount on financial assrt line
3068:
3069: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3070: RAISE OKL_API.G_EXCEPTION_ERROR;
3071: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3072: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3073: END IF;
3074:
3075: --modify the capital amount on financial assrt line
3076: OKL_EXECUTE_FORMULA_PUB.EXECUTE(p_api_version => p_api_version,
3082: p_contract_id => l_exp_cost_rec.new_chr_id,
3083: p_line_id => l_exp_cost_rec.new_cle_id,
3084: x_value => l_capital_amount);
3085:
3086: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3087: RAISE OKL_API.G_EXCEPTION_ERROR;
3088: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3089: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3090: END IF;
3083: p_line_id => l_exp_cost_rec.new_cle_id,
3084: x_value => l_capital_amount);
3085:
3086: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3087: RAISE OKL_API.G_EXCEPTION_ERROR;
3088: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3089: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3090: END IF;
3091:
3084: x_value => l_capital_amount);
3085:
3086: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3087: RAISE OKL_API.G_EXCEPTION_ERROR;
3088: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3089: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3090: END IF;
3091:
3092: OKL_EXECUTE_FORMULA_PUB.EXECUTE(p_api_version => p_api_version,
3085:
3086: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3087: RAISE OKL_API.G_EXCEPTION_ERROR;
3088: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3089: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3090: END IF;
3091:
3092: OKL_EXECUTE_FORMULA_PUB.EXECUTE(p_api_version => p_api_version,
3093: p_init_msg_list => p_init_msg_list,
3098: p_contract_id => l_exp_cost_rec.new_chr_id,
3099: p_line_id => l_exp_cost_rec.new_cle_id,
3100: x_value => l_capitalized_interest);
3101:
3102: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3103: RAISE OKL_API.G_EXCEPTION_ERROR;
3104: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3105: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3106: END IF;
3099: p_line_id => l_exp_cost_rec.new_cle_id,
3100: x_value => l_capitalized_interest);
3101:
3102: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3103: RAISE OKL_API.G_EXCEPTION_ERROR;
3104: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3105: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3106: END IF;
3107:
3100: x_value => l_capitalized_interest);
3101:
3102: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3103: RAISE OKL_API.G_EXCEPTION_ERROR;
3104: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3105: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3106: END IF;
3107:
3108: l_finast_klev_rec2.capital_amount := (l_capital_amount - l_capitalized_interest);
3101:
3102: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3103: RAISE OKL_API.G_EXCEPTION_ERROR;
3104: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3105: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3106: END IF;
3107:
3108: l_finast_klev_rec2.capital_amount := (l_capital_amount - l_capitalized_interest);
3109: l_finast_klev_rec2.id := l_exp_cost_rec.new_cle_id;
3120: p_edit_mode => 'N',
3121: x_clev_rec => lx_finast_clev_rec2,
3122: x_klev_rec => lx_finast_klev_rec2);
3123:
3124: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3125: RAISE OKL_API.G_EXCEPTION_ERROR;
3126: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3127: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3128: END IF;
3121: x_clev_rec => lx_finast_clev_rec2,
3122: x_klev_rec => lx_finast_klev_rec2);
3123:
3124: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3125: RAISE OKL_API.G_EXCEPTION_ERROR;
3126: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3127: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3128: END IF;
3129:
3122: x_klev_rec => lx_finast_klev_rec2);
3123:
3124: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3125: RAISE OKL_API.G_EXCEPTION_ERROR;
3126: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3127: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3128: END IF;
3129:
3130: End If;
3123:
3124: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3125: RAISE OKL_API.G_EXCEPTION_ERROR;
3126: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3127: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3128: END IF;
3129:
3130: End If;
3131: End If;
3131: End If;
3132: End Loop;
3133: Close l_exp_cost_csr;
3134: If l_exp_cost_mismatch_yn = 'Y' then
3135: OKL_API.set_message(p_app_name => G_APP_NAME,
3136: p_msg_name => 'OKL_LA_UPDATE_ASSET');
3137: RAISE OKL_API.G_EXCEPTION_ERROR;
3138: End If;
3139: End If;
3133: Close l_exp_cost_csr;
3134: If l_exp_cost_mismatch_yn = 'Y' then
3135: OKL_API.set_message(p_app_name => G_APP_NAME,
3136: p_msg_name => 'OKL_LA_UPDATE_ASSET');
3137: RAISE OKL_API.G_EXCEPTION_ERROR;
3138: End If;
3139: End If;
3140: --End Bug# 4631549
3141:
3142:
3143:
3144: --End Bug# 4631549
3145:
3146: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
3147: x_msg_data => x_msg_data);
3148:
3149: EXCEPTION
3150: when OKL_API.G_EXCEPTION_ERROR then
3146: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
3147: x_msg_data => x_msg_data);
3148:
3149: EXCEPTION
3150: when OKL_API.G_EXCEPTION_ERROR then
3151:
3152: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
3153: p_api_name => l_api_name,
3154: p_pkg_name => G_PKG_NAME,
3148:
3149: EXCEPTION
3150: when OKL_API.G_EXCEPTION_ERROR then
3151:
3152: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
3153: p_api_name => l_api_name,
3154: p_pkg_name => G_PKG_NAME,
3155: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
3156: x_msg_count => x_msg_count,
3151:
3152: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
3153: p_api_name => l_api_name,
3154: p_pkg_name => G_PKG_NAME,
3155: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
3156: x_msg_count => x_msg_count,
3157: x_msg_data => x_msg_data,
3158: p_api_type => G_API_TYPE);
3159:
3156: x_msg_count => x_msg_count,
3157: x_msg_data => x_msg_data,
3158: p_api_type => G_API_TYPE);
3159:
3160: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
3161:
3162: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
3163: p_api_name => l_api_name,
3164: p_pkg_name => G_PKG_NAME,
3158: p_api_type => G_API_TYPE);
3159:
3160: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
3161:
3162: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
3163: p_api_name => l_api_name,
3164: p_pkg_name => G_PKG_NAME,
3165: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
3166: x_msg_count => x_msg_count,
3161:
3162: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
3163: p_api_name => l_api_name,
3164: p_pkg_name => G_PKG_NAME,
3165: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
3166: x_msg_count => x_msg_count,
3167: x_msg_data => x_msg_data,
3168: p_api_type => G_API_TYPE);
3169:
3168: p_api_type => G_API_TYPE);
3169:
3170: when OTHERS then
3171:
3172: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
3173: p_api_name => l_api_name,
3174: p_pkg_name => G_PKG_NAME,
3175: p_exc_name => 'OTHERS',
3176: x_msg_count => x_msg_count,
3204: p_release_date IN DATE,
3205: p_source_trx_id IN NUMBER,
3206: p_release_reason_code IN VARCHAR2) IS
3207:
3208: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
3209: l_api_name CONSTANT VARCHAR2(30) := 'VALIDATE_RELEASE_CONTRACT';
3210: l_api_version CONSTANT NUMBER := 1.0;
3211:
3212: CURSOR chr_csr(p_chr_id IN NUMBER) IS
3330: l_term_duration NUMBER;
3331: l_asset_num_token VARCHAR2(2000);
3332:
3333: BEGIN
3334: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
3335: -- Call start_activity to create savepoint, check compatibility
3336: -- and initialize message list
3337: l_return_status := Okl_Api.START_ACTIVITY(
3338: p_api_name => l_api_name,
3333: BEGIN
3334: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
3335: -- Call start_activity to create savepoint, check compatibility
3336: -- and initialize message list
3337: l_return_status := Okl_Api.START_ACTIVITY(
3338: p_api_name => l_api_name,
3339: p_pkg_name => g_pkg_name,
3340: p_init_msg_list => p_init_msg_list,
3341: l_api_version => l_api_version,
3342: p_api_version => p_api_version,
3343: p_api_type => '_PVT',
3344: x_return_status => x_return_status);
3345: -- Check if activity started successfully
3346: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
3347: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3348: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
3349: RAISE Okl_Api.G_EXCEPTION_ERROR;
3350: END IF;
3343: p_api_type => '_PVT',
3344: x_return_status => x_return_status);
3345: -- Check if activity started successfully
3346: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
3347: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3348: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
3349: RAISE Okl_Api.G_EXCEPTION_ERROR;
3350: END IF;
3351:
3344: x_return_status => x_return_status);
3345: -- Check if activity started successfully
3346: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
3347: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3348: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
3349: RAISE Okl_Api.G_EXCEPTION_ERROR;
3350: END IF;
3351:
3352: -- Revision date is mandatory
3345: -- Check if activity started successfully
3346: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
3347: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3348: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
3349: RAISE Okl_Api.G_EXCEPTION_ERROR;
3350: END IF;
3351:
3352: -- Revision date is mandatory
3353: if (p_release_date IS NULL) then
3350: END IF;
3351:
3352: -- Revision date is mandatory
3353: if (p_release_date IS NULL) then
3354: OKL_API.SET_MESSAGE(G_APP_NAME,
3355: 'OKL_LLA_MISSING_TRX_DATE');
3356: RAISE OKL_API.G_EXCEPTION_ERROR;
3357: end if;
3358:
3352: -- Revision date is mandatory
3353: if (p_release_date IS NULL) then
3354: OKL_API.SET_MESSAGE(G_APP_NAME,
3355: 'OKL_LLA_MISSING_TRX_DATE');
3356: RAISE OKL_API.G_EXCEPTION_ERROR;
3357: end if;
3358:
3359: -- Revision Date should be between Contract Start and End dates
3360: open chr_csr(p_chr_id => p_chr_id);
3363: -- Bug# 4072796
3364: if NOT (p_release_date BETWEEN (chr_rec.start_date + 1) AND chr_rec.end_date) then
3365: l_icx_date_format := nvl(fnd_profile.value('ICX_DATE_FORMAT_MASK'),'DD-MON-RRRR');
3366:
3367: OKL_API.SET_MESSAGE(G_APP_NAME,
3368: 'OKL_LLA_WRONG_TRX_DATE',
3369: 'START_DATE',
3370: TO_CHAR(chr_rec.start_date,l_icx_date_format),
3371: 'END_DATE',
3370: TO_CHAR(chr_rec.start_date,l_icx_date_format),
3371: 'END_DATE',
3372: TO_CHAR(chr_rec.end_date,l_icx_date_format)
3373: );
3374: RAISE OKL_API.G_EXCEPTION_ERROR;
3375: end if;
3376:
3377: -- The new Term duration (Re-lease Date to Contract end date)
3378: -- must be a whole number of months
3377: -- The new Term duration (Re-lease Date to Contract end date)
3378: -- must be a whole number of months
3379: l_term_duration := MONTHS_BETWEEN(chr_rec.end_date + 1,p_release_date);
3380: if (MOD(l_term_duration,1) <> 0) then
3381: OKL_API.SET_MESSAGE(G_APP_NAME,
3382: 'OKL_LLA_REL_INVALID_DURATION');
3383: RAISE OKL_API.G_EXCEPTION_ERROR;
3384: end if;
3385:
3379: l_term_duration := MONTHS_BETWEEN(chr_rec.end_date + 1,p_release_date);
3380: if (MOD(l_term_duration,1) <> 0) then
3381: OKL_API.SET_MESSAGE(G_APP_NAME,
3382: 'OKL_LLA_REL_INVALID_DURATION');
3383: RAISE OKL_API.G_EXCEPTION_ERROR;
3384: end if;
3385:
3386: -- Validate if Deal Type is Loan or Revolving Loan
3387: if chr_rec.deal_type IN ('LOAN','LOAN-REVOLVING') then
3384: end if;
3385:
3386: -- Validate if Deal Type is Loan or Revolving Loan
3387: if chr_rec.deal_type IN ('LOAN','LOAN-REVOLVING') then
3388: OKL_API.SET_MESSAGE(G_APP_NAME,
3389: 'OKL_LLA_REL_NOT_ALLOW_LOAN');
3390: RAISE OKL_API.G_EXCEPTION_ERROR;
3391: end if;
3392:
3386: -- Validate if Deal Type is Loan or Revolving Loan
3387: if chr_rec.deal_type IN ('LOAN','LOAN-REVOLVING') then
3388: OKL_API.SET_MESSAGE(G_APP_NAME,
3389: 'OKL_LLA_REL_NOT_ALLOW_LOAN');
3390: RAISE OKL_API.G_EXCEPTION_ERROR;
3391: end if;
3392:
3393: -- Validate if Contract has Variable Interest Rate
3394: open rul_csr(p_chr_id => p_chr_id
3397: fetch rul_csr into rul_rec;
3398: close rul_csr;
3399:
3400: if (rul_rec.rule_information1 = 'Y') then
3401: OKL_API.SET_MESSAGE(G_APP_NAME,
3402: 'OKL_LLA_REL_NOT_ALLOW_VAR_RT');
3403: RAISE OKL_API.G_EXCEPTION_ERROR;
3404: end if;
3405: --rajnisku: Bug 6657564
3399:
3400: if (rul_rec.rule_information1 = 'Y') then
3401: OKL_API.SET_MESSAGE(G_APP_NAME,
3402: 'OKL_LLA_REL_NOT_ALLOW_VAR_RT');
3403: RAISE OKL_API.G_EXCEPTION_ERROR;
3404: end if;
3405: --rajnisku: Bug 6657564
3406: --added if condition to allow TnA for contract with Usage line
3407: if NVL(p_release_reason_code,'X') <> 'CUSTOMER_CHANGE' THEN
3410: open chk_usage_csr(p_chr_id => p_chr_id);
3411: fetch chk_usage_csr into l_found;
3412: close chk_usage_csr;
3413: if (l_found = 'Y') then
3414: OKL_API.SET_MESSAGE(G_APP_NAME,
3415: 'OKL_LLA_REL_NO_USAGE_LINES');
3416: RAISE OKL_API.G_EXCEPTION_ERROR;
3417: end if;
3418: end if;
3412: close chk_usage_csr;
3413: if (l_found = 'Y') then
3414: OKL_API.SET_MESSAGE(G_APP_NAME,
3415: 'OKL_LLA_REL_NO_USAGE_LINES');
3416: RAISE OKL_API.G_EXCEPTION_ERROR;
3417: end if;
3418: end if;
3419: --rajnisku: Bug 6657564 : end
3420:
3424: open pending_trx_csr(p_chr_id => p_chr_id);
3425: fetch pending_trx_csr into l_found;
3426: close pending_trx_csr;
3427: if (l_found = 'Y') then
3428: OKL_API.SET_MESSAGE(G_APP_NAME,
3429: 'OKL_LLA_REV_IN_PROGRESS');
3430: RAISE OKL_API.G_EXCEPTION_ERROR;
3431: end if;
3432:
3426: close pending_trx_csr;
3427: if (l_found = 'Y') then
3428: OKL_API.SET_MESSAGE(G_APP_NAME,
3429: 'OKL_LLA_REV_IN_PROGRESS');
3430: RAISE OKL_API.G_EXCEPTION_ERROR;
3431: end if;
3432:
3433: --Bug# 4905732
3434: -- Validation that assets selected for Re-lease
3463: end loop;
3464:
3465: if l_asset_num_token IS NOT NULL then
3466: l_icx_date_format := nvl(fnd_profile.value('ICX_DATE_FORMAT_MASK'),'DD-MON-RRRR');
3467: OKL_API.SET_MESSAGE(p_app_name => G_APP_NAME,
3468: p_msg_name => 'OKL_LLA_REL_ASSET_NO_PYMT',
3469: p_token1 => 'ASSET_NUMBER',
3470: p_token1_value => l_asset_num_token,
3471: p_token2 => 'RELEASE_DATE',
3469: p_token1 => 'ASSET_NUMBER',
3470: p_token1_value => l_asset_num_token,
3471: p_token2 => 'RELEASE_DATE',
3472: p_token2_value => to_char(p_release_date,l_icx_date_format));
3473: RAISE OKL_API.G_EXCEPTION_ERROR;
3474: end if;
3475:
3476: -- Re-lease contract
3477: else
3501: end loop;
3502:
3503: if l_asset_num_token IS NOT NULL then
3504: l_icx_date_format := nvl(fnd_profile.value('ICX_DATE_FORMAT_MASK'),'DD-MON-RRRR');
3505: OKL_API.SET_MESSAGE(p_app_name => G_APP_NAME,
3506: p_msg_name => 'OKL_LLA_REL_ASSET_NO_PYMT',
3507: p_token1 => 'ASSET_NUMBER',
3508: p_token1_value => l_asset_num_token,
3509: p_token2 => 'RELEASE_DATE',
3507: p_token1 => 'ASSET_NUMBER',
3508: p_token1_value => l_asset_num_token,
3509: p_token2 => 'RELEASE_DATE',
3510: p_token2_value => to_char(p_release_date,l_icx_date_format));
3511: RAISE OKL_API.G_EXCEPTION_ERROR;
3512: end if;
3513:
3514: end if;
3515: --Bug# 4905732
3529: p_release_date => p_release_date,
3530: p_source_trx_id => p_source_trx_id,
3531: p_currency_code => chr_rec.currency_code);
3532:
3533: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
3534: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3535: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
3536: RAISE OKL_API.G_EXCEPTION_ERROR;
3537: END IF;
3530: p_source_trx_id => p_source_trx_id,
3531: p_currency_code => chr_rec.currency_code);
3532:
3533: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
3534: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3535: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
3536: RAISE OKL_API.G_EXCEPTION_ERROR;
3537: END IF;
3538:
3531: p_currency_code => chr_rec.currency_code);
3532:
3533: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
3534: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3535: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
3536: RAISE OKL_API.G_EXCEPTION_ERROR;
3537: END IF;
3538:
3539: end if;
3532:
3533: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
3534: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3535: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
3536: RAISE OKL_API.G_EXCEPTION_ERROR;
3537: END IF;
3538:
3539: end if;
3540: --Bug# 5005869
3552: p_call_program => 'RELEASE');
3553: -- End change fmiao 19-NOV-04 for release date check --
3554:
3555: -- Bug# 4072796
3556: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3557: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3558: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3559: RAISE OKL_API.G_EXCEPTION_ERROR;
3560: END IF;
3553: -- End change fmiao 19-NOV-04 for release date check --
3554:
3555: -- Bug# 4072796
3556: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3557: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3558: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3559: RAISE OKL_API.G_EXCEPTION_ERROR;
3560: END IF;
3561:
3554:
3555: -- Bug# 4072796
3556: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3557: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3558: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3559: RAISE OKL_API.G_EXCEPTION_ERROR;
3560: END IF;
3561:
3562: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
3555: -- Bug# 4072796
3556: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3557: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3558: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3559: RAISE OKL_API.G_EXCEPTION_ERROR;
3560: END IF;
3561:
3562: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
3563: x_msg_data => x_msg_data);
3558: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3559: RAISE OKL_API.G_EXCEPTION_ERROR;
3560: END IF;
3561:
3562: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
3563: x_msg_data => x_msg_data);
3564:
3565: EXCEPTION
3566: when OKL_API.G_EXCEPTION_ERROR then
3562: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
3563: x_msg_data => x_msg_data);
3564:
3565: EXCEPTION
3566: when OKL_API.G_EXCEPTION_ERROR then
3567:
3568: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
3569: p_api_name => l_api_name,
3570: p_pkg_name => G_PKG_NAME,
3564:
3565: EXCEPTION
3566: when OKL_API.G_EXCEPTION_ERROR then
3567:
3568: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
3569: p_api_name => l_api_name,
3570: p_pkg_name => G_PKG_NAME,
3571: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
3572: x_msg_count => x_msg_count,
3567:
3568: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
3569: p_api_name => l_api_name,
3570: p_pkg_name => G_PKG_NAME,
3571: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
3572: x_msg_count => x_msg_count,
3573: x_msg_data => x_msg_data,
3574: p_api_type => G_API_TYPE);
3575:
3572: x_msg_count => x_msg_count,
3573: x_msg_data => x_msg_data,
3574: p_api_type => G_API_TYPE);
3575:
3576: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
3577:
3578: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
3579: p_api_name => l_api_name,
3580: p_pkg_name => G_PKG_NAME,
3574: p_api_type => G_API_TYPE);
3575:
3576: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
3577:
3578: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
3579: p_api_name => l_api_name,
3580: p_pkg_name => G_PKG_NAME,
3581: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
3582: x_msg_count => x_msg_count,
3577:
3578: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
3579: p_api_name => l_api_name,
3580: p_pkg_name => G_PKG_NAME,
3581: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
3582: x_msg_count => x_msg_count,
3583: x_msg_data => x_msg_data,
3584: p_api_type => G_API_TYPE);
3585:
3584: p_api_type => G_API_TYPE);
3585:
3586: when OTHERS then
3587:
3588: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
3589: p_api_name => l_api_name,
3590: p_pkg_name => G_PKG_NAME,
3591: p_exc_name => 'OTHERS',
3592: x_msg_count => x_msg_count,
3617: x_msg_data OUT NOCOPY VARCHAR2,
3618: p_chr_id IN NUMBER,
3619: p_release_date IN DATE) IS
3620:
3621: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
3622: l_api_name CONSTANT VARCHAR2(30) := 'ADJUST_PAYMENT_LINES';
3623: l_api_version CONSTANT NUMBER := 1.0;
3624:
3625: --Made changes by bkatraga for bug 9369915 to fetch stream_type_purpose
3693: l_new_start_date DATE;
3694: l_stub_amount NUMBER;
3695: l_stub_days NUMBER;
3696: BEGIN
3697: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
3698: -- Call start_activity to create savepoint, check compatibility
3699: -- and initialize message list
3700: l_return_status := Okl_Api.START_ACTIVITY(
3701: p_api_name => l_api_name,
3696: BEGIN
3697: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
3698: -- Call start_activity to create savepoint, check compatibility
3699: -- and initialize message list
3700: l_return_status := Okl_Api.START_ACTIVITY(
3701: p_api_name => l_api_name,
3702: p_pkg_name => g_pkg_name,
3703: p_init_msg_list => p_init_msg_list,
3704: l_api_version => l_api_version,
3705: p_api_version => p_api_version,
3706: p_api_type => '_PVT',
3707: x_return_status => x_return_status);
3708: -- Check if activity started successfully
3709: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
3710: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3711: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
3712: RAISE Okl_Api.G_EXCEPTION_ERROR;
3713: END IF;
3706: p_api_type => '_PVT',
3707: x_return_status => x_return_status);
3708: -- Check if activity started successfully
3709: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
3710: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3711: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
3712: RAISE Okl_Api.G_EXCEPTION_ERROR;
3713: END IF;
3714:
3707: x_return_status => x_return_status);
3708: -- Check if activity started successfully
3709: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
3710: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3711: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
3712: RAISE Okl_Api.G_EXCEPTION_ERROR;
3713: END IF;
3714:
3715: for contract_payment_rec in contract_payment_csr
3708: -- Check if activity started successfully
3709: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
3710: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3711: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
3712: RAISE Okl_Api.G_EXCEPTION_ERROR;
3713: END IF;
3714:
3715: for contract_payment_rec in contract_payment_csr
3716: (p_chr_id => p_chr_id,
3730: x_msg_count => x_msg_count,
3731: x_msg_data => x_msg_data,
3732: p_rulv_rec => l_rulv_rec
3733: );
3734: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
3735: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3736: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
3737: RAISE OKL_API.G_EXCEPTION_ERROR;
3738: END IF;
3731: x_msg_data => x_msg_data,
3732: p_rulv_rec => l_rulv_rec
3733: );
3734: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
3735: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3736: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
3737: RAISE OKL_API.G_EXCEPTION_ERROR;
3738: END IF;
3739:
3732: p_rulv_rec => l_rulv_rec
3733: );
3734: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
3735: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3736: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
3737: RAISE OKL_API.G_EXCEPTION_ERROR;
3738: END IF;
3739:
3740: -- Update SLL Start Date, Periods and Amount where End Date is greater than
3733: );
3734: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
3735: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3736: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
3737: RAISE OKL_API.G_EXCEPTION_ERROR;
3738: END IF;
3739:
3740: -- Update SLL Start Date, Periods and Amount where End Date is greater than
3741: -- or equal to Re-lease date and Start Date is less than Re-lease date
3772: x_msg_data => x_msg_data,
3773: p_rulv_rec => l_rulv_rec,
3774: x_rulv_rec => lx_rulv_rec);
3775:
3776: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3777: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3778: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3779: RAISE OKL_API.G_EXCEPTION_ERROR;
3780: END IF;
3773: p_rulv_rec => l_rulv_rec,
3774: x_rulv_rec => lx_rulv_rec);
3775:
3776: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3777: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3778: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3779: RAISE OKL_API.G_EXCEPTION_ERROR;
3780: END IF;
3781:
3774: x_rulv_rec => lx_rulv_rec);
3775:
3776: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3777: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3778: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3779: RAISE OKL_API.G_EXCEPTION_ERROR;
3780: END IF;
3781:
3782: elsif (contract_payment_rec.periods > 1) then
3775:
3776: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3777: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3778: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3779: RAISE OKL_API.G_EXCEPTION_ERROR;
3780: END IF;
3781:
3782: elsif (contract_payment_rec.periods > 1) then
3783:
3801: x_msg_count => x_msg_count,
3802: x_msg_data => x_msg_data,
3803: p_rulv_rec => l_rulv_rec
3804: );
3805: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
3806: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3807: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
3808: RAISE OKL_API.G_EXCEPTION_ERROR;
3809: END IF;
3802: x_msg_data => x_msg_data,
3803: p_rulv_rec => l_rulv_rec
3804: );
3805: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
3806: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3807: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
3808: RAISE OKL_API.G_EXCEPTION_ERROR;
3809: END IF;
3810:
3803: p_rulv_rec => l_rulv_rec
3804: );
3805: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
3806: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3807: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
3808: RAISE OKL_API.G_EXCEPTION_ERROR;
3809: END IF;
3810:
3811: else
3804: );
3805: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
3806: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3807: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
3808: RAISE OKL_API.G_EXCEPTION_ERROR;
3809: END IF;
3810:
3811: else
3812:
3823: x_msg_data => x_msg_data,
3824: p_rulv_rec => l_rulv_rec,
3825: x_rulv_rec => lx_rulv_rec);
3826:
3827: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3828: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3829: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3830: RAISE OKL_API.G_EXCEPTION_ERROR;
3831: END IF;
3824: p_rulv_rec => l_rulv_rec,
3825: x_rulv_rec => lx_rulv_rec);
3826:
3827: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3828: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3829: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3830: RAISE OKL_API.G_EXCEPTION_ERROR;
3831: END IF;
3832: end if;
3825: x_rulv_rec => lx_rulv_rec);
3826:
3827: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3828: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3829: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3830: RAISE OKL_API.G_EXCEPTION_ERROR;
3831: END IF;
3832: end if;
3833:
3826:
3827: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3828: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3829: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3830: RAISE OKL_API.G_EXCEPTION_ERROR;
3831: END IF;
3832: end if;
3833:
3834: -- Create Stub payment line for 1st payment
3875: x_msg_data => x_msg_data,
3876: p_rulv_rec => l_rulv_rec,
3877: x_rulv_rec => lx_rulv_rec);
3878:
3879: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3880: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3881: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3882: RAISE OKL_API.G_EXCEPTION_ERROR;
3883: END IF;
3876: p_rulv_rec => l_rulv_rec,
3877: x_rulv_rec => lx_rulv_rec);
3878:
3879: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3880: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3881: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3882: RAISE OKL_API.G_EXCEPTION_ERROR;
3883: END IF;
3884: end if; --Stub days greater than 0
3877: x_rulv_rec => lx_rulv_rec);
3878:
3879: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3880: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3881: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3882: RAISE OKL_API.G_EXCEPTION_ERROR;
3883: END IF;
3884: end if; --Stub days greater than 0
3885: end if; --Factor is not null
3878:
3879: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3880: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3881: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3882: RAISE OKL_API.G_EXCEPTION_ERROR;
3883: END IF;
3884: end if; --Stub days greater than 0
3885: end if; --Factor is not null
3886: end if; --Periods equal/greater than 1
3898: x_msg_count => x_msg_count,
3899: x_msg_data => x_msg_data,
3900: p_rulv_rec => l_rulv_rec
3901: );
3902: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
3903: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3904: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
3905: RAISE OKL_API.G_EXCEPTION_ERROR;
3906: END IF;
3899: x_msg_data => x_msg_data,
3900: p_rulv_rec => l_rulv_rec
3901: );
3902: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
3903: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3904: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
3905: RAISE OKL_API.G_EXCEPTION_ERROR;
3906: END IF;
3907: end loop;
3900: p_rulv_rec => l_rulv_rec
3901: );
3902: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
3903: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3904: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
3905: RAISE OKL_API.G_EXCEPTION_ERROR;
3906: END IF;
3907: end loop;
3908:
3901: );
3902: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
3903: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3904: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
3905: RAISE OKL_API.G_EXCEPTION_ERROR;
3906: END IF;
3907: end loop;
3908:
3909: for rgp_rec in rgp_csr(p_chr_id => p_chr_id) loop
3917: x_msg_count => x_msg_count,
3918: x_msg_data => x_msg_data,
3919: p_rgpv_rec => l_rgpv_rec
3920: );
3921: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
3922: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3923: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
3924: RAISE OKL_API.G_EXCEPTION_ERROR;
3925: END IF;
3918: x_msg_data => x_msg_data,
3919: p_rgpv_rec => l_rgpv_rec
3920: );
3921: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
3922: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3923: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
3924: RAISE OKL_API.G_EXCEPTION_ERROR;
3925: END IF;
3926: end loop;
3919: p_rgpv_rec => l_rgpv_rec
3920: );
3921: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
3922: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3923: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
3924: RAISE OKL_API.G_EXCEPTION_ERROR;
3925: END IF;
3926: end loop;
3927:
3920: );
3921: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
3922: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3923: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
3924: RAISE OKL_API.G_EXCEPTION_ERROR;
3925: END IF;
3926: end loop;
3927:
3928: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
3924: RAISE OKL_API.G_EXCEPTION_ERROR;
3925: END IF;
3926: end loop;
3927:
3928: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
3929: x_msg_data => x_msg_data);
3930:
3931: EXCEPTION
3932: when OKL_API.G_EXCEPTION_ERROR then
3928: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
3929: x_msg_data => x_msg_data);
3930:
3931: EXCEPTION
3932: when OKL_API.G_EXCEPTION_ERROR then
3933:
3934: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
3935: p_api_name => l_api_name,
3936: p_pkg_name => G_PKG_NAME,
3930:
3931: EXCEPTION
3932: when OKL_API.G_EXCEPTION_ERROR then
3933:
3934: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
3935: p_api_name => l_api_name,
3936: p_pkg_name => G_PKG_NAME,
3937: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
3938: x_msg_count => x_msg_count,
3933:
3934: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
3935: p_api_name => l_api_name,
3936: p_pkg_name => G_PKG_NAME,
3937: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
3938: x_msg_count => x_msg_count,
3939: x_msg_data => x_msg_data,
3940: p_api_type => G_API_TYPE);
3941:
3938: x_msg_count => x_msg_count,
3939: x_msg_data => x_msg_data,
3940: p_api_type => G_API_TYPE);
3941:
3942: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
3943:
3944: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
3945: p_api_name => l_api_name,
3946: p_pkg_name => G_PKG_NAME,
3940: p_api_type => G_API_TYPE);
3941:
3942: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
3943:
3944: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
3945: p_api_name => l_api_name,
3946: p_pkg_name => G_PKG_NAME,
3947: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
3948: x_msg_count => x_msg_count,
3943:
3944: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
3945: p_api_name => l_api_name,
3946: p_pkg_name => G_PKG_NAME,
3947: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
3948: x_msg_count => x_msg_count,
3949: x_msg_data => x_msg_data,
3950: p_api_type => G_API_TYPE);
3951:
3950: p_api_type => G_API_TYPE);
3951:
3952: when OTHERS then
3953:
3954: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
3955: p_api_name => l_api_name,
3956: p_pkg_name => G_PKG_NAME,
3957: p_exc_name => 'OTHERS',
3958: x_msg_count => x_msg_count,
3987: x_return_status OUT NOCOPY VARCHAR2,
3988: x_msg_count OUT NOCOPY NUMBER,
3989: x_msg_data OUT NOCOPY VARCHAR2) IS
3990:
3991: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
3992: l_api_name CONSTANT VARCHAR2(30) := 'Get_Principal_Bal';
3993: l_api_version CONSTANT NUMBER := 1.0;
3994:
3995: CURSOR streams_csr(p_chr_id IN NUMBER,
4020: l_principal_bal NUMBER;
4021: l_principal_bal_sty_id NUMBER;
4022:
4023: BEGIN
4024: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
4025: -- Call start_activity to create savepoint, check compatibility
4026: -- and initialize message list
4027: l_return_status := Okl_Api.START_ACTIVITY(
4028: p_api_name => l_api_name,
4023: BEGIN
4024: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
4025: -- Call start_activity to create savepoint, check compatibility
4026: -- and initialize message list
4027: l_return_status := Okl_Api.START_ACTIVITY(
4028: p_api_name => l_api_name,
4029: p_pkg_name => g_pkg_name,
4030: p_init_msg_list => p_init_msg_list,
4031: l_api_version => l_api_version,
4032: p_api_version => p_api_version,
4033: p_api_type => '_PVT',
4034: x_return_status => x_return_status);
4035: -- Check if activity started successfully
4036: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
4037: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
4038: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
4039: RAISE Okl_Api.G_EXCEPTION_ERROR;
4040: END IF;
4033: p_api_type => '_PVT',
4034: x_return_status => x_return_status);
4035: -- Check if activity started successfully
4036: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
4037: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
4038: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
4039: RAISE Okl_Api.G_EXCEPTION_ERROR;
4040: END IF;
4041:
4034: x_return_status => x_return_status);
4035: -- Check if activity started successfully
4036: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
4037: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
4038: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
4039: RAISE Okl_Api.G_EXCEPTION_ERROR;
4040: END IF;
4041:
4042: -- Fetch Stream information from Original Contract
4035: -- Check if activity started successfully
4036: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
4037: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
4038: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
4039: RAISE Okl_Api.G_EXCEPTION_ERROR;
4040: END IF;
4041:
4042: -- Fetch Stream information from Original Contract
4043: l_principal_bal_sty_id := null;
4047: p_dependent_sty_purpose => 'PRINCIPAL_BALANCE',
4048: x_return_status => x_return_status,
4049: x_dependent_sty_id => l_principal_bal_sty_id);
4050:
4051: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
4052: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4053: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
4054: RAISE OKL_API.G_EXCEPTION_ERROR;
4055: END IF;
4048: x_return_status => x_return_status,
4049: x_dependent_sty_id => l_principal_bal_sty_id);
4050:
4051: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
4052: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4053: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
4054: RAISE OKL_API.G_EXCEPTION_ERROR;
4055: END IF;
4056:
4049: x_dependent_sty_id => l_principal_bal_sty_id);
4050:
4051: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
4052: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4053: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
4054: RAISE OKL_API.G_EXCEPTION_ERROR;
4055: END IF;
4056:
4057: l_principal_bal := 0;
4050:
4051: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
4052: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4053: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
4054: RAISE OKL_API.G_EXCEPTION_ERROR;
4055: END IF;
4056:
4057: l_principal_bal := 0;
4058: if (l_principal_bal_sty_id IS NOT NULL) then
4076:
4077: x_principal_balance := l_principal_bal;
4078: x_accumulated_int := 0;
4079:
4080: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
4081: x_msg_data => x_msg_data);
4082:
4083: EXCEPTION
4084: when OKL_API.G_EXCEPTION_ERROR then
4080: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
4081: x_msg_data => x_msg_data);
4082:
4083: EXCEPTION
4084: when OKL_API.G_EXCEPTION_ERROR then
4085:
4086: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4087: p_api_name => l_api_name,
4088: p_pkg_name => G_PKG_NAME,
4082:
4083: EXCEPTION
4084: when OKL_API.G_EXCEPTION_ERROR then
4085:
4086: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4087: p_api_name => l_api_name,
4088: p_pkg_name => G_PKG_NAME,
4089: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
4090: x_msg_count => x_msg_count,
4085:
4086: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4087: p_api_name => l_api_name,
4088: p_pkg_name => G_PKG_NAME,
4089: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
4090: x_msg_count => x_msg_count,
4091: x_msg_data => x_msg_data,
4092: p_api_type => G_API_TYPE);
4093:
4090: x_msg_count => x_msg_count,
4091: x_msg_data => x_msg_data,
4092: p_api_type => G_API_TYPE);
4093:
4094: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
4095:
4096: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4097: p_api_name => l_api_name,
4098: p_pkg_name => G_PKG_NAME,
4092: p_api_type => G_API_TYPE);
4093:
4094: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
4095:
4096: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4097: p_api_name => l_api_name,
4098: p_pkg_name => G_PKG_NAME,
4099: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
4100: x_msg_count => x_msg_count,
4095:
4096: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4097: p_api_name => l_api_name,
4098: p_pkg_name => G_PKG_NAME,
4099: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
4100: x_msg_count => x_msg_count,
4101: x_msg_data => x_msg_data,
4102: p_api_type => G_API_TYPE);
4103:
4102: p_api_type => G_API_TYPE);
4103:
4104: when OTHERS then
4105:
4106: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4107: p_api_name => l_api_name,
4108: p_pkg_name => G_PKG_NAME,
4109: p_exc_name => 'OTHERS',
4110: x_msg_count => x_msg_count,
4136: p_chr_id IN NUMBER,
4137: p_orig_chr_id IN NUMBER,
4138: p_release_date IN DATE) IS
4139:
4140: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
4141: l_api_name CONSTANT VARCHAR2(30) := 'ADJUST_FEE_LINES';
4142: l_api_version CONSTANT NUMBER := 1.0;
4143:
4144: CURSOR contract_fee_csr
4357: l_fin_sub_total NUMBER;
4358: l_fin_sub_amt NUMBER;
4359:
4360: BEGIN
4361: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
4362: -- Call start_activity to create savepoint, check compatibility
4363: -- and initialize message list
4364: l_return_status := Okl_Api.START_ACTIVITY(
4365: p_api_name => l_api_name,
4360: BEGIN
4361: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
4362: -- Call start_activity to create savepoint, check compatibility
4363: -- and initialize message list
4364: l_return_status := Okl_Api.START_ACTIVITY(
4365: p_api_name => l_api_name,
4366: p_pkg_name => g_pkg_name,
4367: p_init_msg_list => p_init_msg_list,
4368: l_api_version => l_api_version,
4369: p_api_version => p_api_version,
4370: p_api_type => '_PVT',
4371: x_return_status => x_return_status);
4372: -- Check if activity started successfully
4373: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
4374: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
4375: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
4376: RAISE Okl_Api.G_EXCEPTION_ERROR;
4377: END IF;
4370: p_api_type => '_PVT',
4371: x_return_status => x_return_status);
4372: -- Check if activity started successfully
4373: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
4374: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
4375: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
4376: RAISE Okl_Api.G_EXCEPTION_ERROR;
4377: END IF;
4378:
4371: x_return_status => x_return_status);
4372: -- Check if activity started successfully
4373: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
4374: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
4375: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
4376: RAISE Okl_Api.G_EXCEPTION_ERROR;
4377: END IF;
4378:
4379: l_currency_code := '?';
4372: -- Check if activity started successfully
4373: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
4374: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
4375: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
4376: RAISE Okl_Api.G_EXCEPTION_ERROR;
4377: END IF;
4378:
4379: l_currency_code := '?';
4380: open curr_hdr_csr (p_chr_id);
4382: close curr_hdr_csr;
4383:
4384: if (l_currency_code = '?') then
4385:
4386: OKL_API.set_message(p_app_name => G_APP_NAME,
4387: p_msg_name => G_REQUIRED_VALUE,
4388: p_token1 => G_COL_NAME_TOKEN,
4389: p_token1_value => 'Currency Code');
4390: RAISE OKL_API.G_EXCEPTION_ERROR;
4386: OKL_API.set_message(p_app_name => G_APP_NAME,
4387: p_msg_name => G_REQUIRED_VALUE,
4388: p_token1 => G_COL_NAME_TOKEN,
4389: p_token1_value => 'Currency Code');
4390: RAISE OKL_API.G_EXCEPTION_ERROR;
4391: end if;
4392:
4393: for contract_fee_rec in contract_fee_csr
4394: (p_chr_id => p_chr_id) loop
4423: x_msg_data => x_msg_data,
4424: p_line_id => contract_fee_rec.id
4425: );
4426:
4427: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
4428: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4429: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
4430: RAISE OKL_API.G_EXCEPTION_ERROR;
4431: END IF;
4424: p_line_id => contract_fee_rec.id
4425: );
4426:
4427: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
4428: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4429: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
4430: RAISE OKL_API.G_EXCEPTION_ERROR;
4431: END IF;
4432:
4425: );
4426:
4427: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
4428: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4429: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
4430: RAISE OKL_API.G_EXCEPTION_ERROR;
4431: END IF;
4432:
4433: -- If Fee Line Start date is greater than or equal to Re-lease Date
4426:
4427: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
4428: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4429: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
4430: RAISE OKL_API.G_EXCEPTION_ERROR;
4431: END IF;
4432:
4433: -- If Fee Line Start date is greater than or equal to Re-lease Date
4434: -- make updates for Covered assets not moved over
4463: x_msg_data => x_msg_data,
4464: p_line_id => contract_fee_rec.id
4465: );
4466:
4467: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
4468: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4469: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
4470: RAISE OKL_API.G_EXCEPTION_ERROR;
4471: END IF;
4464: p_line_id => contract_fee_rec.id
4465: );
4466:
4467: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
4468: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4469: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
4470: RAISE OKL_API.G_EXCEPTION_ERROR;
4471: END IF;
4472:
4465: );
4466:
4467: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
4468: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4469: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
4470: RAISE OKL_API.G_EXCEPTION_ERROR;
4471: END IF;
4472:
4473: -- Covered assets associated with Fee
4466:
4467: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
4468: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4469: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
4470: RAISE OKL_API.G_EXCEPTION_ERROR;
4471: END IF;
4472:
4473: -- Covered assets associated with Fee
4474: else
4494: x_clev_rec => lx_clev_rec,
4495: x_klev_rec => lx_klev_rec
4496: );
4497:
4498: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
4499: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4500: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
4501: RAISE OKL_API.G_EXCEPTION_ERROR;
4502: END IF;
4495: x_klev_rec => lx_klev_rec
4496: );
4497:
4498: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
4499: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4500: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
4501: RAISE OKL_API.G_EXCEPTION_ERROR;
4502: END IF;
4503: end if;
4496: );
4497:
4498: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
4499: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4500: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
4501: RAISE OKL_API.G_EXCEPTION_ERROR;
4502: END IF;
4503: end if;
4504:
4497:
4498: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
4499: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4500: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
4501: RAISE OKL_API.G_EXCEPTION_ERROR;
4502: END IF;
4503: end if;
4504:
4505: end if; --Subline Present Y/N
4540: x_clev_rec => lx_clev_rec,
4541: x_klev_rec => lx_klev_rec
4542: );
4543:
4544: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
4545: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4546: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
4547: RAISE OKL_API.G_EXCEPTION_ERROR;
4548: END IF;
4541: x_klev_rec => lx_klev_rec
4542: );
4543:
4544: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
4545: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4546: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
4547: RAISE OKL_API.G_EXCEPTION_ERROR;
4548: END IF;
4549: end if; -- Subline exists and Fee Amount <> Sum of Covered asset amounts
4542: );
4543:
4544: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
4545: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4546: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
4547: RAISE OKL_API.G_EXCEPTION_ERROR;
4548: END IF;
4549: end if; -- Subline exists and Fee Amount <> Sum of Covered asset amounts
4550:
4543:
4544: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
4545: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4546: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
4547: RAISE OKL_API.G_EXCEPTION_ERROR;
4548: END IF;
4549: end if; -- Subline exists and Fee Amount <> Sum of Covered asset amounts
4550:
4551: end if; --Capitalized Fee / Rollover fee
4595: x_msg_data => x_msg_data,
4596: p_line_id => contract_fee_rec.id
4597: );
4598:
4599: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
4600: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4601: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
4602: RAISE OKL_API.G_EXCEPTION_ERROR;
4603: END IF;
4596: p_line_id => contract_fee_rec.id
4597: );
4598:
4599: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
4600: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4601: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
4602: RAISE OKL_API.G_EXCEPTION_ERROR;
4603: END IF;
4604:
4597: );
4598:
4599: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
4600: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4601: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
4602: RAISE OKL_API.G_EXCEPTION_ERROR;
4603: END IF;
4604:
4605: -- Covered assets associated with Fee
4598:
4599: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
4600: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4601: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
4602: RAISE OKL_API.G_EXCEPTION_ERROR;
4603: END IF;
4604:
4605: -- Covered assets associated with Fee
4606: else
4630: x_clev_rec => lx_clev_rec,
4631: x_klev_rec => lx_klev_rec
4632: );
4633:
4634: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
4635: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4636: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
4637: RAISE OKL_API.G_EXCEPTION_ERROR;
4638: END IF;
4631: x_klev_rec => lx_klev_rec
4632: );
4633:
4634: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
4635: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4636: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
4637: RAISE OKL_API.G_EXCEPTION_ERROR;
4638: END IF;
4639:
4632: );
4633:
4634: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
4635: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4636: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
4637: RAISE OKL_API.G_EXCEPTION_ERROR;
4638: END IF;
4639:
4640: -- Set Covered Asset line Start Dates equal to Release Date
4633:
4634: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
4635: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4636: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
4637: RAISE OKL_API.G_EXCEPTION_ERROR;
4638: END IF;
4639:
4640: -- Set Covered Asset line Start Dates equal to Release Date
4641: OKL_CONTRACT_PUB.update_contract_line(
4649: x_clev_tbl => lx_sub_clev_tbl,
4650: x_klev_tbl => lx_sub_klev_tbl
4651: );
4652:
4653: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
4654: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4655: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
4656: RAISE OKL_API.G_EXCEPTION_ERROR;
4657: END IF;
4650: x_klev_tbl => lx_sub_klev_tbl
4651: );
4652:
4653: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
4654: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4655: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
4656: RAISE OKL_API.G_EXCEPTION_ERROR;
4657: END IF;
4658:
4651: );
4652:
4653: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
4654: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4655: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
4656: RAISE OKL_API.G_EXCEPTION_ERROR;
4657: END IF;
4658:
4659: end if; --Subline Present Y/N
4652:
4653: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
4654: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4655: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
4656: RAISE OKL_API.G_EXCEPTION_ERROR;
4657: END IF;
4658:
4659: end if; --Subline Present Y/N
4660:
4684: x_msg_data => x_msg_data,
4685: p_line_id => contract_fee_rec.id
4686: );
4687:
4688: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
4689: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4690: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
4691: RAISE OKL_API.G_EXCEPTION_ERROR;
4692: END IF;
4685: p_line_id => contract_fee_rec.id
4686: );
4687:
4688: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
4689: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4690: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
4691: RAISE OKL_API.G_EXCEPTION_ERROR;
4692: END IF;
4693:
4686: );
4687:
4688: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
4689: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4690: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
4691: RAISE OKL_API.G_EXCEPTION_ERROR;
4692: END IF;
4693:
4694: --avsingh : payment may exist at the sub-line level
4687:
4688: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
4689: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4690: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
4691: RAISE OKL_API.G_EXCEPTION_ERROR;
4692: END IF;
4693:
4694: --avsingh : payment may exist at the sub-line level
4695: elsif (l_fee_type = 'ROLLOVER') then
4757: x_clev_tbl => lx_sub_clev_tbl,
4758: x_klev_tbl => lx_sub_klev_tbl
4759: );
4760:
4761: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
4762: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4763: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
4764: RAISE OKL_API.G_EXCEPTION_ERROR;
4765: END IF;
4758: x_klev_tbl => lx_sub_klev_tbl
4759: );
4760:
4761: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
4762: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4763: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
4764: RAISE OKL_API.G_EXCEPTION_ERROR;
4765: END IF;
4766:
4759: );
4760:
4761: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
4762: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4763: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
4764: RAISE OKL_API.G_EXCEPTION_ERROR;
4765: END IF;
4766:
4767: lp_clev_rec.id := contract_fee_rec.id;
4760:
4761: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
4762: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4763: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
4764: RAISE OKL_API.G_EXCEPTION_ERROR;
4765: END IF;
4766:
4767: lp_clev_rec.id := contract_fee_rec.id;
4768: lp_clev_rec.start_date := p_release_date;
4784: x_clev_rec => lx_clev_rec,
4785: x_klev_rec => lx_klev_rec
4786: );
4787:
4788: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
4789: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4790: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
4791: RAISE OKL_API.G_EXCEPTION_ERROR;
4792: END IF;
4785: x_klev_rec => lx_klev_rec
4786: );
4787:
4788: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
4789: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4790: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
4791: RAISE OKL_API.G_EXCEPTION_ERROR;
4792: END IF;
4793:
4786: );
4787:
4788: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
4789: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4790: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
4791: RAISE OKL_API.G_EXCEPTION_ERROR;
4792: END IF;
4793:
4794: else --sublines not found
4787:
4788: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
4789: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4790: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
4791: RAISE OKL_API.G_EXCEPTION_ERROR;
4792: END IF;
4793:
4794: else --sublines not found
4795:
4802: x_msg_data => x_msg_data,
4803: p_line_id => contract_fee_rec.id
4804: );
4805:
4806: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
4807: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4808: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
4809: RAISE OKL_API.G_EXCEPTION_ERROR;
4810: END IF;
4803: p_line_id => contract_fee_rec.id
4804: );
4805:
4806: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
4807: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4808: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
4809: RAISE OKL_API.G_EXCEPTION_ERROR;
4810: END IF;
4811:
4804: );
4805:
4806: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
4807: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4808: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
4809: RAISE OKL_API.G_EXCEPTION_ERROR;
4810: END IF;
4811:
4812: end if; -- Subline exists
4805:
4806: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
4807: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4808: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
4809: RAISE OKL_API.G_EXCEPTION_ERROR;
4810: END IF;
4811:
4812: end if; -- Subline exists
4813: --avsingh : payment may exist at sub-line level
4874: x_msg_data => x_msg_data);
4875:
4876: -- End change for accrued interest by fmiao 09-NOV-04--
4877:
4878: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
4879: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4880: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
4881: RAISE OKL_API.G_EXCEPTION_ERROR;
4882: END IF;
4875:
4876: -- End change for accrued interest by fmiao 09-NOV-04--
4877:
4878: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
4879: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4880: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
4881: RAISE OKL_API.G_EXCEPTION_ERROR;
4882: END IF;
4883:
4876: -- End change for accrued interest by fmiao 09-NOV-04--
4877:
4878: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
4879: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4880: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
4881: RAISE OKL_API.G_EXCEPTION_ERROR;
4882: END IF;
4883:
4884: l_new_fee_amount := l_principal_bal + l_accumulated_int;
4877:
4878: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
4879: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4880: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
4881: RAISE OKL_API.G_EXCEPTION_ERROR;
4882: END IF;
4883:
4884: l_new_fee_amount := l_principal_bal + l_accumulated_int;
4885:
4954: x_clev_tbl => lx_sub_clev_tbl,
4955: x_klev_tbl => lx_sub_klev_tbl
4956: );
4957:
4958: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
4959: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4960: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
4961: RAISE OKL_API.G_EXCEPTION_ERROR;
4962: END IF;
4955: x_klev_tbl => lx_sub_klev_tbl
4956: );
4957:
4958: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
4959: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4960: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
4961: RAISE OKL_API.G_EXCEPTION_ERROR;
4962: END IF;
4963: end if; -- Subline exists
4956: );
4957:
4958: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
4959: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4960: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
4961: RAISE OKL_API.G_EXCEPTION_ERROR;
4962: END IF;
4963: end if; -- Subline exists
4964: end if; -- Fee Type - Income / Passthrough /Rollover
4957:
4958: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
4959: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4960: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
4961: RAISE OKL_API.G_EXCEPTION_ERROR;
4962: END IF;
4963: end if; -- Subline exists
4964: end if; -- Fee Type - Income / Passthrough /Rollover
4965:
4984: x_clev_rec => lx_clev_rec,
4985: x_klev_rec => lx_klev_rec
4986: );
4987:
4988: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
4989: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4990: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
4991: RAISE OKL_API.G_EXCEPTION_ERROR;
4992: END IF;
4985: x_klev_rec => lx_klev_rec
4986: );
4987:
4988: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
4989: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4990: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
4991: RAISE OKL_API.G_EXCEPTION_ERROR;
4992: END IF;
4993:
4986: );
4987:
4988: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
4989: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4990: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
4991: RAISE OKL_API.G_EXCEPTION_ERROR;
4992: END IF;
4993:
4994: end if; --Payment exists Y/N
4987:
4988: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
4989: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4990: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
4991: RAISE OKL_API.G_EXCEPTION_ERROR;
4992: END IF;
4993:
4994: end if; --Payment exists Y/N
4995: end if; --Capitalized Fee Y/N
5032: p_dependent_sty_purpose => 'AMORTIZED_FEE_EXPENSE',
5033: x_return_status => x_return_status,
5034: x_dependent_sty_id => l_idc_sty_id);
5035:
5036: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
5037: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5038: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
5039: RAISE OKL_API.G_EXCEPTION_ERROR;
5040: END IF;
5033: x_return_status => x_return_status,
5034: x_dependent_sty_id => l_idc_sty_id);
5035:
5036: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
5037: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5038: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
5039: RAISE OKL_API.G_EXCEPTION_ERROR;
5040: END IF;
5041:
5034: x_dependent_sty_id => l_idc_sty_id);
5035:
5036: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
5037: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5038: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
5039: RAISE OKL_API.G_EXCEPTION_ERROR;
5040: END IF;
5041:
5042: if (l_idc_sty_id IS NOT NULL) then
5035:
5036: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
5037: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5038: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
5039: RAISE OKL_API.G_EXCEPTION_ERROR;
5040: END IF;
5041:
5042: if (l_idc_sty_id IS NOT NULL) then
5043:
5076: x_msg_data => x_msg_data,
5077: p_rulv_rec => l_rulv_rec,
5078: x_rulv_rec => lx_rulv_rec);
5079:
5080: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5081: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5082: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5083: RAISE OKL_API.G_EXCEPTION_ERROR;
5084: END IF;
5077: p_rulv_rec => l_rulv_rec,
5078: x_rulv_rec => lx_rulv_rec);
5079:
5080: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5081: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5082: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5083: RAISE OKL_API.G_EXCEPTION_ERROR;
5084: END IF;
5085:
5078: x_rulv_rec => lx_rulv_rec);
5079:
5080: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5081: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5082: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5083: RAISE OKL_API.G_EXCEPTION_ERROR;
5084: END IF;
5085:
5086: lp_clev_rec.id := contract_fee_rec.id;
5079:
5080: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5081: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5082: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5083: RAISE OKL_API.G_EXCEPTION_ERROR;
5084: END IF;
5085:
5086: lp_clev_rec.id := contract_fee_rec.id;
5087: lp_clev_rec.start_date := p_release_date;
5118: x_clev_rec => lx_clev_rec,
5119: x_klev_rec => lx_klev_rec
5120: );
5121:
5122: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
5123: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5124: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
5125: RAISE OKL_API.G_EXCEPTION_ERROR;
5126: END IF;
5119: x_klev_rec => lx_klev_rec
5120: );
5121:
5122: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
5123: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5124: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
5125: RAISE OKL_API.G_EXCEPTION_ERROR;
5126: END IF;
5127:
5120: );
5121:
5122: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
5123: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5124: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
5125: RAISE OKL_API.G_EXCEPTION_ERROR;
5126: END IF;
5127:
5128: -- No. of periods <= 0
5121:
5122: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
5123: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5124: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
5125: RAISE OKL_API.G_EXCEPTION_ERROR;
5126: END IF;
5127:
5128: -- No. of periods <= 0
5129: else
5151: x_msg_data => x_msg_data,
5152: p_line_id => contract_fee_rec.id
5153: );
5154:
5155: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
5156: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5157: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
5158: RAISE OKL_API.G_EXCEPTION_ERROR;
5159: END IF;
5152: p_line_id => contract_fee_rec.id
5153: );
5154:
5155: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
5156: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5157: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
5158: RAISE OKL_API.G_EXCEPTION_ERROR;
5159: END IF;
5160:
5153: );
5154:
5155: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
5156: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5157: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
5158: RAISE OKL_API.G_EXCEPTION_ERROR;
5159: END IF;
5160:
5161: elsif (contract_fee_rec.fee_type = 'FINANCED') then
5154:
5155: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
5156: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5157: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
5158: RAISE OKL_API.G_EXCEPTION_ERROR;
5159: END IF;
5160:
5161: elsif (contract_fee_rec.fee_type = 'FINANCED') then
5162:
5229: x_clev_tbl => lx_sub_clev_tbl,
5230: x_klev_tbl => lx_sub_klev_tbl
5231: );
5232:
5233: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
5234: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5235: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
5236: RAISE OKL_API.G_EXCEPTION_ERROR;
5237: END IF;
5230: x_klev_tbl => lx_sub_klev_tbl
5231: );
5232:
5233: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
5234: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5235: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
5236: RAISE OKL_API.G_EXCEPTION_ERROR;
5237: END IF;
5238:
5231: );
5232:
5233: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
5234: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5235: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
5236: RAISE OKL_API.G_EXCEPTION_ERROR;
5237: END IF;
5238:
5239: lp_clev_rec.id := contract_fee_rec.id;
5232:
5233: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
5234: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5235: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
5236: RAISE OKL_API.G_EXCEPTION_ERROR;
5237: END IF;
5238:
5239: lp_clev_rec.id := contract_fee_rec.id;
5240: lp_clev_rec.start_date := p_release_date;
5256: x_clev_rec => lx_clev_rec,
5257: x_klev_rec => lx_klev_rec
5258: );
5259:
5260: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
5261: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5262: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
5263: RAISE OKL_API.G_EXCEPTION_ERROR;
5264: END IF;
5257: x_klev_rec => lx_klev_rec
5258: );
5259:
5260: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
5261: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5262: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
5263: RAISE OKL_API.G_EXCEPTION_ERROR;
5264: END IF;
5265:
5258: );
5259:
5260: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
5261: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5262: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
5263: RAISE OKL_API.G_EXCEPTION_ERROR;
5264: END IF;
5265:
5266: l_rulv_rec.id := fee_expense_rec.rul_lafexp_id;
5259:
5260: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
5261: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5262: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
5263: RAISE OKL_API.G_EXCEPTION_ERROR;
5264: END IF;
5265:
5266: l_rulv_rec.id := fee_expense_rec.rul_lafexp_id;
5267: l_rulv_rec.rule_information1 := '1';
5277: x_msg_data => x_msg_data,
5278: p_rulv_rec => l_rulv_rec,
5279: x_rulv_rec => lx_rulv_rec);
5280:
5281: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5282: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5283: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5284: RAISE OKL_API.G_EXCEPTION_ERROR;
5285: END IF;
5278: p_rulv_rec => l_rulv_rec,
5279: x_rulv_rec => lx_rulv_rec);
5280:
5281: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5282: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5283: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5284: RAISE OKL_API.G_EXCEPTION_ERROR;
5285: END IF;
5286:
5279: x_rulv_rec => lx_rulv_rec);
5280:
5281: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5282: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5283: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5284: RAISE OKL_API.G_EXCEPTION_ERROR;
5285: END IF;
5286:
5287: else --sublines not found
5280:
5281: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5282: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5283: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5284: RAISE OKL_API.G_EXCEPTION_ERROR;
5285: END IF;
5286:
5287: else --sublines not found
5288:
5295: x_msg_data => x_msg_data,
5296: p_line_id => contract_fee_rec.id
5297: );
5298:
5299: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
5300: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5301: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
5302: RAISE OKL_API.G_EXCEPTION_ERROR;
5303: END IF;
5296: p_line_id => contract_fee_rec.id
5297: );
5298:
5299: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
5300: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5301: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
5302: RAISE OKL_API.G_EXCEPTION_ERROR;
5303: END IF;
5304:
5297: );
5298:
5299: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
5300: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5301: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
5302: RAISE OKL_API.G_EXCEPTION_ERROR;
5303: END IF;
5304:
5305: end if; -- Subline exists
5298:
5299: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
5300: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5301: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
5302: RAISE OKL_API.G_EXCEPTION_ERROR;
5303: END IF;
5304:
5305: end if; -- Subline exists
5306:
5374: x_msg_count => x_msg_count,
5375: x_msg_data => x_msg_data,
5376: p_cimv_rec => lp_cimv_rec,
5377: x_cimv_rec => lx_cimv_rec);
5378: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5379: RAISE OKL_API.G_EXCEPTION_ERROR;
5380: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5381: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5382: END IF;
5375: x_msg_data => x_msg_data,
5376: p_cimv_rec => lp_cimv_rec,
5377: x_cimv_rec => lx_cimv_rec);
5378: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5379: RAISE OKL_API.G_EXCEPTION_ERROR;
5380: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5381: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5382: END IF;
5383:
5376: p_cimv_rec => lp_cimv_rec,
5377: x_cimv_rec => lx_cimv_rec);
5378: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5379: RAISE OKL_API.G_EXCEPTION_ERROR;
5380: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5381: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5382: END IF;
5383:
5384: end if; --Fee item exists
5377: x_cimv_rec => lx_cimv_rec);
5378: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5379: RAISE OKL_API.G_EXCEPTION_ERROR;
5380: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5381: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5382: END IF;
5383:
5384: end if; --Fee item exists
5385: end if; -- Payment Stream Type exists
5414: x_msg_count => x_msg_count,
5415: x_msg_data => x_msg_data);
5416: -- End change for accrued interest by fmiao 09-NOV-04--
5417:
5418: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
5419: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5420: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
5421: RAISE OKL_API.G_EXCEPTION_ERROR;
5422: END IF;
5415: x_msg_data => x_msg_data);
5416: -- End change for accrued interest by fmiao 09-NOV-04--
5417:
5418: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
5419: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5420: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
5421: RAISE OKL_API.G_EXCEPTION_ERROR;
5422: END IF;
5423:
5416: -- End change for accrued interest by fmiao 09-NOV-04--
5417:
5418: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
5419: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5420: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
5421: RAISE OKL_API.G_EXCEPTION_ERROR;
5422: END IF;
5423:
5424: --Bug# 9927005
5417:
5418: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
5419: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5420: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
5421: RAISE OKL_API.G_EXCEPTION_ERROR;
5422: END IF;
5423:
5424: --Bug# 9927005
5425: -- Exclude accumulated interest from Financed Fee amount
5506: x_clev_tbl => lx_sub_clev_tbl,
5507: x_klev_tbl => lx_sub_klev_tbl
5508: );
5509:
5510: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
5511: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5512: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
5513: RAISE OKL_API.G_EXCEPTION_ERROR;
5514: END IF;
5507: x_klev_tbl => lx_sub_klev_tbl
5508: );
5509:
5510: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
5511: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5512: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
5513: RAISE OKL_API.G_EXCEPTION_ERROR;
5514: END IF;
5515: end if; -- Subline exists
5508: );
5509:
5510: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
5511: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5512: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
5513: RAISE OKL_API.G_EXCEPTION_ERROR;
5514: END IF;
5515: end if; -- Subline exists
5516:
5509:
5510: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
5511: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5512: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
5513: RAISE OKL_API.G_EXCEPTION_ERROR;
5514: END IF;
5515: end if; -- Subline exists
5516:
5517: --Bug# 4080102 - Round Financed Fee amount
5533: x_msg_data => x_msg_data,
5534: p_rulv_rec => l_rulv_rec,
5535: x_rulv_rec => lx_rulv_rec);
5536:
5537: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5538: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5539: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5540: RAISE OKL_API.G_EXCEPTION_ERROR;
5541: END IF;
5534: p_rulv_rec => l_rulv_rec,
5535: x_rulv_rec => lx_rulv_rec);
5536:
5537: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5538: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5539: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5540: RAISE OKL_API.G_EXCEPTION_ERROR;
5541: END IF;
5542:
5535: x_rulv_rec => lx_rulv_rec);
5536:
5537: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5538: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5539: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5540: RAISE OKL_API.G_EXCEPTION_ERROR;
5541: END IF;
5542:
5543: end if; -- Fee Type - Miscellaneous / Financed
5536:
5537: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5538: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5539: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5540: RAISE OKL_API.G_EXCEPTION_ERROR;
5541: END IF;
5542:
5543: end if; -- Fee Type - Miscellaneous / Financed
5544:
5555: x_clev_rec => lx_clev_rec,
5556: x_klev_rec => lx_klev_rec
5557: );
5558:
5559: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
5560: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5561: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
5562: RAISE OKL_API.G_EXCEPTION_ERROR;
5563: END IF;
5556: x_klev_rec => lx_klev_rec
5557: );
5558:
5559: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
5560: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5561: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
5562: RAISE OKL_API.G_EXCEPTION_ERROR;
5563: END IF;
5564:
5557: );
5558:
5559: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
5560: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5561: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
5562: RAISE OKL_API.G_EXCEPTION_ERROR;
5563: END IF;
5564:
5565: if (contract_fee_rec.fee_type <> 'FINANCED') then
5558:
5559: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
5560: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5561: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
5562: RAISE OKL_API.G_EXCEPTION_ERROR;
5563: END IF;
5564:
5565: if (contract_fee_rec.fee_type <> 'FINANCED') then
5566: -- Delete Expense Rules as No. of periods is <= 0
5572: x_msg_count => x_msg_count,
5573: x_msg_data => x_msg_data,
5574: p_rgpv_rec => l_rgpv_rec
5575: );
5576: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
5577: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5578: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
5579: RAISE OKL_API.G_EXCEPTION_ERROR;
5580: END IF;
5573: x_msg_data => x_msg_data,
5574: p_rgpv_rec => l_rgpv_rec
5575: );
5576: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
5577: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5578: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
5579: RAISE OKL_API.G_EXCEPTION_ERROR;
5580: END IF;
5581: end if;
5574: p_rgpv_rec => l_rgpv_rec
5575: );
5576: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
5577: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5578: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
5579: RAISE OKL_API.G_EXCEPTION_ERROR;
5580: END IF;
5581: end if;
5582:
5575: );
5576: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
5577: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5578: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
5579: RAISE OKL_API.G_EXCEPTION_ERROR;
5580: END IF;
5581: end if;
5582:
5583: end if; --Payment exists Y/N
5586:
5587: end if; --Fee line End Date >= Release Date
5588: end loop;
5589:
5590: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
5591: x_msg_data => x_msg_data);
5592:
5593: EXCEPTION
5594: when OKL_API.G_EXCEPTION_ERROR then
5590: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
5591: x_msg_data => x_msg_data);
5592:
5593: EXCEPTION
5594: when OKL_API.G_EXCEPTION_ERROR then
5595:
5596: IF fee_expense_csr%ISOPEN THEN
5597: close fee_expense_csr;
5598: END IF;
5596: IF fee_expense_csr%ISOPEN THEN
5597: close fee_expense_csr;
5598: END IF;
5599:
5600: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5601: p_api_name => l_api_name,
5602: p_pkg_name => G_PKG_NAME,
5603: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
5604: x_msg_count => x_msg_count,
5599:
5600: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5601: p_api_name => l_api_name,
5602: p_pkg_name => G_PKG_NAME,
5603: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
5604: x_msg_count => x_msg_count,
5605: x_msg_data => x_msg_data,
5606: p_api_type => G_API_TYPE);
5607:
5604: x_msg_count => x_msg_count,
5605: x_msg_data => x_msg_data,
5606: p_api_type => G_API_TYPE);
5607:
5608: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
5609:
5610: IF fee_expense_csr%ISOPEN THEN
5611: close fee_expense_csr;
5612: END IF;
5610: IF fee_expense_csr%ISOPEN THEN
5611: close fee_expense_csr;
5612: END IF;
5613:
5614: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5615: p_api_name => l_api_name,
5616: p_pkg_name => G_PKG_NAME,
5617: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
5618: x_msg_count => x_msg_count,
5613:
5614: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5615: p_api_name => l_api_name,
5616: p_pkg_name => G_PKG_NAME,
5617: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
5618: x_msg_count => x_msg_count,
5619: x_msg_data => x_msg_data,
5620: p_api_type => G_API_TYPE);
5621:
5624: IF fee_expense_csr%ISOPEN THEN
5625: close fee_expense_csr;
5626: END IF;
5627:
5628: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5629: p_api_name => l_api_name,
5630: p_pkg_name => G_PKG_NAME,
5631: p_exc_name => 'OTHERS',
5632: x_msg_count => x_msg_count,
5658: p_chr_id IN NUMBER,
5659: p_orig_chr_id IN NUMBER,
5660: p_release_date IN DATE) IS
5661:
5662: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
5663: l_api_name CONSTANT VARCHAR2(30) := 'ADJUST_SERVICE_LINES';
5664: l_api_version CONSTANT NUMBER := 1.0;
5665:
5666: CURSOR contract_service_csr
5785: l_sum NUMBER;
5786: i NUMBER;
5787:
5788: BEGIN
5789: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
5790: -- Call start_activity to create savepoint, check compatibility
5791: -- and initialize message list
5792: l_return_status := Okl_Api.START_ACTIVITY(
5793: p_api_name => l_api_name,
5788: BEGIN
5789: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
5790: -- Call start_activity to create savepoint, check compatibility
5791: -- and initialize message list
5792: l_return_status := Okl_Api.START_ACTIVITY(
5793: p_api_name => l_api_name,
5794: p_pkg_name => g_pkg_name,
5795: p_init_msg_list => p_init_msg_list,
5796: l_api_version => l_api_version,
5797: p_api_version => p_api_version,
5798: p_api_type => '_PVT',
5799: x_return_status => x_return_status);
5800: -- Check if activity started successfully
5801: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
5802: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
5803: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
5804: RAISE Okl_Api.G_EXCEPTION_ERROR;
5805: END IF;
5798: p_api_type => '_PVT',
5799: x_return_status => x_return_status);
5800: -- Check if activity started successfully
5801: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
5802: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
5803: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
5804: RAISE Okl_Api.G_EXCEPTION_ERROR;
5805: END IF;
5806:
5799: x_return_status => x_return_status);
5800: -- Check if activity started successfully
5801: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
5802: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
5803: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
5804: RAISE Okl_Api.G_EXCEPTION_ERROR;
5805: END IF;
5806:
5807: l_currency_code := '?';
5800: -- Check if activity started successfully
5801: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
5802: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
5803: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
5804: RAISE Okl_Api.G_EXCEPTION_ERROR;
5805: END IF;
5806:
5807: l_currency_code := '?';
5808: open curr_hdr_csr (p_chr_id);
5810: close curr_hdr_csr;
5811:
5812: if (l_currency_code = '?') then
5813:
5814: OKL_API.set_message(p_app_name => G_APP_NAME,
5815: p_msg_name => G_REQUIRED_VALUE,
5816: p_token1 => G_COL_NAME_TOKEN,
5817: p_token1_value => 'Currency Code');
5818: RAISE OKL_API.G_EXCEPTION_ERROR;
5814: OKL_API.set_message(p_app_name => G_APP_NAME,
5815: p_msg_name => G_REQUIRED_VALUE,
5816: p_token1 => G_COL_NAME_TOKEN,
5817: p_token1_value => 'Currency Code');
5818: RAISE OKL_API.G_EXCEPTION_ERROR;
5819: end if;
5820:
5821: for contract_service_rec in contract_service_csr
5822: (p_chr_id => p_chr_id) loop
5850: x_msg_data => x_msg_data,
5851: p_line_id => contract_service_rec.id
5852: );
5853:
5854: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
5855: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5856: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
5857: RAISE OKL_API.G_EXCEPTION_ERROR;
5858: END IF;
5851: p_line_id => contract_service_rec.id
5852: );
5853:
5854: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
5855: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5856: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
5857: RAISE OKL_API.G_EXCEPTION_ERROR;
5858: END IF;
5859:
5852: );
5853:
5854: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
5855: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5856: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
5857: RAISE OKL_API.G_EXCEPTION_ERROR;
5858: END IF;
5859:
5860: -- If Service Line Start Date is greater than or equal to Re-lease date
5853:
5854: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
5855: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5856: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
5857: RAISE OKL_API.G_EXCEPTION_ERROR;
5858: END IF;
5859:
5860: -- If Service Line Start Date is greater than or equal to Re-lease date
5861: -- Update Service Top line Amount equal to sum of covered assets
5910: x_msg_data => x_msg_data,
5911: p_rulv_rec => l_rulv_rec,
5912: x_rulv_rec => lx_rulv_rec);
5913:
5914: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5915: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5916: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5917: RAISE OKL_API.G_EXCEPTION_ERROR;
5918: END IF;
5911: p_rulv_rec => l_rulv_rec,
5912: x_rulv_rec => lx_rulv_rec);
5913:
5914: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5915: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5916: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5917: RAISE OKL_API.G_EXCEPTION_ERROR;
5918: END IF;
5919: end if; --Periods > 0
5912: x_rulv_rec => lx_rulv_rec);
5913:
5914: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5915: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5916: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5917: RAISE OKL_API.G_EXCEPTION_ERROR;
5918: END IF;
5919: end if; --Periods > 0
5920:
5913:
5914: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5915: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5916: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5917: RAISE OKL_API.G_EXCEPTION_ERROR;
5918: END IF;
5919: end if; --Periods > 0
5920:
5921: -- No Expenses associated with service
5940: x_clev_rec => lx_clev_rec,
5941: x_klev_rec => lx_klev_rec
5942: );
5943:
5944: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
5945: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5946: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
5947: RAISE OKL_API.G_EXCEPTION_ERROR;
5948: END IF;
5941: x_klev_rec => lx_klev_rec
5942: );
5943:
5944: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
5945: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5946: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
5947: RAISE OKL_API.G_EXCEPTION_ERROR;
5948: END IF;
5949:
5942: );
5943:
5944: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
5945: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5946: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
5947: RAISE OKL_API.G_EXCEPTION_ERROR;
5948: END IF;
5949:
5950: end if; --Subline present = 'Y'
5943:
5944: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
5945: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5946: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
5947: RAISE OKL_API.G_EXCEPTION_ERROR;
5948: END IF;
5949:
5950: end if; --Subline present = 'Y'
5951:
6037: x_msg_data => x_msg_data,
6038: p_rulv_rec => l_rulv_rec,
6039: x_rulv_rec => lx_rulv_rec);
6040:
6041: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6042: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6043: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6044: RAISE OKL_API.G_EXCEPTION_ERROR;
6045: END IF;
6038: p_rulv_rec => l_rulv_rec,
6039: x_rulv_rec => lx_rulv_rec);
6040:
6041: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6042: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6043: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6044: RAISE OKL_API.G_EXCEPTION_ERROR;
6045: END IF;
6046:
6039: x_rulv_rec => lx_rulv_rec);
6040:
6041: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6042: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6043: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6044: RAISE OKL_API.G_EXCEPTION_ERROR;
6045: END IF;
6046:
6047: --New No. of periods <= 0
6040:
6041: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6042: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6043: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6044: RAISE OKL_API.G_EXCEPTION_ERROR;
6045: END IF;
6046:
6047: --New No. of periods <= 0
6048: else
6058: x_msg_count => x_msg_count,
6059: x_msg_data => x_msg_data,
6060: p_rgpv_rec => l_rgpv_rec
6061: );
6062: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
6063: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6064: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
6065: RAISE OKL_API.G_EXCEPTION_ERROR;
6066: END IF;
6059: x_msg_data => x_msg_data,
6060: p_rgpv_rec => l_rgpv_rec
6061: );
6062: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
6063: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6064: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
6065: RAISE OKL_API.G_EXCEPTION_ERROR;
6066: END IF;
6067: end if;
6060: p_rgpv_rec => l_rgpv_rec
6061: );
6062: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
6063: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6064: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
6065: RAISE OKL_API.G_EXCEPTION_ERROR;
6066: END IF;
6067: end if;
6068:
6061: );
6062: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
6063: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6064: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
6065: RAISE OKL_API.G_EXCEPTION_ERROR;
6066: END IF;
6067: end if;
6068:
6069: -- No Expense associated with Service
6093: x_clev_rec => lx_clev_rec,
6094: x_klev_rec => lx_klev_rec
6095: );
6096:
6097: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
6098: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6099: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
6100: RAISE OKL_API.G_EXCEPTION_ERROR;
6101: END IF;
6094: x_klev_rec => lx_klev_rec
6095: );
6096:
6097: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
6098: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6099: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
6100: RAISE OKL_API.G_EXCEPTION_ERROR;
6101: END IF;
6102:
6095: );
6096:
6097: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
6098: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6099: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
6100: RAISE OKL_API.G_EXCEPTION_ERROR;
6101: END IF;
6102:
6103: -- Set Covered Asset line Start Dates equal to Release Date
6096:
6097: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
6098: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6099: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
6100: RAISE OKL_API.G_EXCEPTION_ERROR;
6101: END IF;
6102:
6103: -- Set Covered Asset line Start Dates equal to Release Date
6104: OKL_CONTRACT_PUB.update_contract_line(
6112: x_clev_tbl => lx_sub_clev_tbl,
6113: x_klev_tbl => lx_sub_klev_tbl
6114: );
6115:
6116: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
6117: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6118: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
6119: RAISE OKL_API.G_EXCEPTION_ERROR;
6120: END IF;
6113: x_klev_tbl => lx_sub_klev_tbl
6114: );
6115:
6116: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
6117: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6118: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
6119: RAISE OKL_API.G_EXCEPTION_ERROR;
6120: END IF;
6121:
6114: );
6115:
6116: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
6117: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6118: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
6119: RAISE OKL_API.G_EXCEPTION_ERROR;
6120: END IF;
6121:
6122: -- No Covered asset associated with Service
6115:
6116: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
6117: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6118: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
6119: RAISE OKL_API.G_EXCEPTION_ERROR;
6120: END IF;
6121:
6122: -- No Covered asset associated with Service
6123: else
6148: x_clev_rec => lx_clev_rec,
6149: x_klev_rec => lx_klev_rec
6150: );
6151:
6152: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
6153: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6154: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
6155: RAISE OKL_API.G_EXCEPTION_ERROR;
6156: END IF;
6149: x_klev_rec => lx_klev_rec
6150: );
6151:
6152: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
6153: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6154: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
6155: RAISE OKL_API.G_EXCEPTION_ERROR;
6156: END IF;
6157:
6150: );
6151:
6152: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
6153: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6154: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
6155: RAISE OKL_API.G_EXCEPTION_ERROR;
6156: END IF;
6157:
6158: -- Expense is associated with Service
6151:
6152: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
6153: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6154: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
6155: RAISE OKL_API.G_EXCEPTION_ERROR;
6156: END IF;
6157:
6158: -- Expense is associated with Service
6159: else
6179: x_msg_data => x_msg_data,
6180: p_rulv_rec => l_rulv_rec,
6181: x_rulv_rec => lx_rulv_rec);
6182:
6183: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6184: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6185: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6186: RAISE OKL_API.G_EXCEPTION_ERROR;
6187: END IF;
6180: p_rulv_rec => l_rulv_rec,
6181: x_rulv_rec => lx_rulv_rec);
6182:
6183: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6184: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6185: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6186: RAISE OKL_API.G_EXCEPTION_ERROR;
6187: END IF;
6188:
6181: x_rulv_rec => lx_rulv_rec);
6182:
6183: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6184: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6185: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6186: RAISE OKL_API.G_EXCEPTION_ERROR;
6187: END IF;
6188:
6189: lp_clev_rec.id := contract_service_rec.id;
6182:
6183: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6184: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6185: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6186: RAISE OKL_API.G_EXCEPTION_ERROR;
6187: END IF;
6188:
6189: lp_clev_rec.id := contract_service_rec.id;
6190: lp_clev_rec.start_date := p_release_date;
6205: x_clev_rec => lx_clev_rec,
6206: x_klev_rec => lx_klev_rec
6207: );
6208:
6209: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
6210: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6211: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
6212: RAISE OKL_API.G_EXCEPTION_ERROR;
6213: END IF;
6206: x_klev_rec => lx_klev_rec
6207: );
6208:
6209: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
6210: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6211: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
6212: RAISE OKL_API.G_EXCEPTION_ERROR;
6213: END IF;
6214:
6207: );
6208:
6209: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
6210: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6211: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
6212: RAISE OKL_API.G_EXCEPTION_ERROR;
6213: END IF;
6214:
6215: -- No. of periods <= 0
6208:
6209: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
6210: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6211: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
6212: RAISE OKL_API.G_EXCEPTION_ERROR;
6213: END IF;
6214:
6215: -- No. of periods <= 0
6216: else
6236: x_clev_rec => lx_clev_rec,
6237: x_klev_rec => lx_klev_rec
6238: );
6239:
6240: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
6241: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6242: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
6243: RAISE OKL_API.G_EXCEPTION_ERROR;
6244: END IF;
6237: x_klev_rec => lx_klev_rec
6238: );
6239:
6240: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
6241: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6242: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
6243: RAISE OKL_API.G_EXCEPTION_ERROR;
6244: END IF;
6245:
6238: );
6239:
6240: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
6241: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6242: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
6243: RAISE OKL_API.G_EXCEPTION_ERROR;
6244: END IF;
6245:
6246: -- Delete Expense Rules as No. of periods is <= 0
6239:
6240: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
6241: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6242: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
6243: RAISE OKL_API.G_EXCEPTION_ERROR;
6244: END IF;
6245:
6246: -- Delete Expense Rules as No. of periods is <= 0
6247: l_rgpv_rec.id := service_expense_rec.rgp_id; -- LAFEXP Rule Group ID
6252: x_msg_count => x_msg_count,
6253: x_msg_data => x_msg_data,
6254: p_rgpv_rec => l_rgpv_rec
6255: );
6256: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
6257: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6258: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
6259: RAISE OKL_API.G_EXCEPTION_ERROR;
6260: END IF;
6253: x_msg_data => x_msg_data,
6254: p_rgpv_rec => l_rgpv_rec
6255: );
6256: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
6257: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6258: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
6259: RAISE OKL_API.G_EXCEPTION_ERROR;
6260: END IF;
6261:
6254: p_rgpv_rec => l_rgpv_rec
6255: );
6256: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
6257: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6258: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
6259: RAISE OKL_API.G_EXCEPTION_ERROR;
6260: END IF;
6261:
6262: end if; --New No. of periods > 0
6255: );
6256: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
6257: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6258: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
6259: RAISE OKL_API.G_EXCEPTION_ERROR;
6260: END IF;
6261:
6262: end if; --New No. of periods > 0
6263: end if; --Expense associated with Service
6264: end if; --Asset associated with Service
6265: end if; --Service line End Date >= Release Date
6266: end loop;
6267:
6268: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
6269: x_msg_data => x_msg_data);
6270:
6271: EXCEPTION
6272: when OKL_API.G_EXCEPTION_ERROR then
6268: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
6269: x_msg_data => x_msg_data);
6270:
6271: EXCEPTION
6272: when OKL_API.G_EXCEPTION_ERROR then
6273:
6274: IF service_expense_csr%ISOPEN THEN
6275: close service_expense_csr;
6276: END IF;
6278: IF service_subline_csr%ISOPEN THEN
6279: close service_subline_csr;
6280: END IF;
6281:
6282: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
6283: p_api_name => l_api_name,
6284: p_pkg_name => G_PKG_NAME,
6285: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
6286: x_msg_count => x_msg_count,
6281:
6282: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
6283: p_api_name => l_api_name,
6284: p_pkg_name => G_PKG_NAME,
6285: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
6286: x_msg_count => x_msg_count,
6287: x_msg_data => x_msg_data,
6288: p_api_type => G_API_TYPE);
6289:
6286: x_msg_count => x_msg_count,
6287: x_msg_data => x_msg_data,
6288: p_api_type => G_API_TYPE);
6289:
6290: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
6291:
6292: IF service_expense_csr%ISOPEN THEN
6293: close service_expense_csr;
6294: END IF;
6296: IF service_subline_csr%ISOPEN THEN
6297: close service_subline_csr;
6298: END IF;
6299:
6300: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
6301: p_api_name => l_api_name,
6302: p_pkg_name => G_PKG_NAME,
6303: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
6304: x_msg_count => x_msg_count,
6299:
6300: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
6301: p_api_name => l_api_name,
6302: p_pkg_name => G_PKG_NAME,
6303: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
6304: x_msg_count => x_msg_count,
6305: x_msg_data => x_msg_data,
6306: p_api_type => G_API_TYPE);
6307:
6314: IF service_subline_csr%ISOPEN THEN
6315: close service_subline_csr;
6316: END IF;
6317:
6318: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
6319: p_api_name => l_api_name,
6320: p_pkg_name => G_PKG_NAME,
6321: p_exc_name => 'OTHERS',
6322: x_msg_count => x_msg_count,
6349: x_msg_count OUT NOCOPY NUMBER,
6350: x_msg_data OUT NOCOPY VARCHAR2,
6351: p_chr_id IN NUMBER) IS
6352:
6353: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
6354: l_api_name CONSTANT VARCHAR2(30) := 'ADJUST_PARTIAL_TAA_PYMT';
6355: l_api_version CONSTANT NUMBER := 1.0;
6356:
6357: CURSOR fee_serv_csr(p_chr_id IN NUMBER)
6405:
6406: l_amount NUMBER;
6407:
6408: BEGIN
6409: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
6410: -- Call start_activity to create savepoint, check compatibility
6411: -- and initialize message list
6412: l_return_status := Okl_Api.START_ACTIVITY(
6413: p_api_name => l_api_name,
6408: BEGIN
6409: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
6410: -- Call start_activity to create savepoint, check compatibility
6411: -- and initialize message list
6412: l_return_status := Okl_Api.START_ACTIVITY(
6413: p_api_name => l_api_name,
6414: p_pkg_name => g_pkg_name,
6415: p_init_msg_list => p_init_msg_list,
6416: l_api_version => l_api_version,
6417: p_api_version => p_api_version,
6418: p_api_type => '_PVT',
6419: x_return_status => x_return_status);
6420: -- Check if activity started successfully
6421: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
6422: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
6423: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
6424: RAISE Okl_Api.G_EXCEPTION_ERROR;
6425: END IF;
6418: p_api_type => '_PVT',
6419: x_return_status => x_return_status);
6420: -- Check if activity started successfully
6421: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
6422: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
6423: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
6424: RAISE Okl_Api.G_EXCEPTION_ERROR;
6425: END IF;
6426:
6419: x_return_status => x_return_status);
6420: -- Check if activity started successfully
6421: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
6422: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
6423: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
6424: RAISE Okl_Api.G_EXCEPTION_ERROR;
6425: END IF;
6426:
6427: l_currency_code := '?';
6420: -- Check if activity started successfully
6421: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
6422: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
6423: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
6424: RAISE Okl_Api.G_EXCEPTION_ERROR;
6425: END IF;
6426:
6427: l_currency_code := '?';
6428: open curr_hdr_csr (p_chr_id);
6430: close curr_hdr_csr;
6431:
6432: if (l_currency_code = '?') then
6433:
6434: OKL_API.set_message(p_app_name => G_APP_NAME,
6435: p_msg_name => G_REQUIRED_VALUE,
6436: p_token1 => G_COL_NAME_TOKEN,
6437: p_token1_value => 'Currency Code');
6438: RAISE OKL_API.G_EXCEPTION_ERROR;
6434: OKL_API.set_message(p_app_name => G_APP_NAME,
6435: p_msg_name => G_REQUIRED_VALUE,
6436: p_token1 => G_COL_NAME_TOKEN,
6437: p_token1_value => 'Currency Code');
6438: RAISE OKL_API.G_EXCEPTION_ERROR;
6439: end if;
6440:
6441: for fee_serv_rec in fee_serv_csr(p_chr_id => p_chr_id)loop
6442:
6474: x_msg_data => x_msg_data,
6475: p_rulv_rec => l_rulv_rec,
6476: x_rulv_rec => lx_rulv_rec);
6477:
6478: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6479: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6480: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6481: RAISE OKL_API.G_EXCEPTION_ERROR;
6482: END IF;
6475: p_rulv_rec => l_rulv_rec,
6476: x_rulv_rec => lx_rulv_rec);
6477:
6478: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6479: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6480: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6481: RAISE OKL_API.G_EXCEPTION_ERROR;
6482: END IF;
6483:
6476: x_rulv_rec => lx_rulv_rec);
6477:
6478: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6479: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6480: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6481: RAISE OKL_API.G_EXCEPTION_ERROR;
6482: END IF;
6483:
6484: end loop;
6477:
6478: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6479: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6480: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6481: RAISE OKL_API.G_EXCEPTION_ERROR;
6482: END IF;
6483:
6484: end loop;
6485: end if;
6485: end if;
6486: end loop;
6487: end loop;
6488:
6489: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
6490: x_msg_data => x_msg_data);
6491:
6492: EXCEPTION
6493: when OKL_API.G_EXCEPTION_ERROR then
6489: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
6490: x_msg_data => x_msg_data);
6491:
6492: EXCEPTION
6493: when OKL_API.G_EXCEPTION_ERROR then
6494:
6495: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
6496: p_api_name => l_api_name,
6497: p_pkg_name => G_PKG_NAME,
6491:
6492: EXCEPTION
6493: when OKL_API.G_EXCEPTION_ERROR then
6494:
6495: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
6496: p_api_name => l_api_name,
6497: p_pkg_name => G_PKG_NAME,
6498: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
6499: x_msg_count => x_msg_count,
6494:
6495: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
6496: p_api_name => l_api_name,
6497: p_pkg_name => G_PKG_NAME,
6498: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
6499: x_msg_count => x_msg_count,
6500: x_msg_data => x_msg_data,
6501: p_api_type => G_API_TYPE);
6502:
6499: x_msg_count => x_msg_count,
6500: x_msg_data => x_msg_data,
6501: p_api_type => G_API_TYPE);
6502:
6503: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
6504:
6505: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
6506: p_api_name => l_api_name,
6507: p_pkg_name => G_PKG_NAME,
6501: p_api_type => G_API_TYPE);
6502:
6503: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
6504:
6505: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
6506: p_api_name => l_api_name,
6507: p_pkg_name => G_PKG_NAME,
6508: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
6509: x_msg_count => x_msg_count,
6504:
6505: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
6506: p_api_name => l_api_name,
6507: p_pkg_name => G_PKG_NAME,
6508: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
6509: x_msg_count => x_msg_count,
6510: x_msg_data => x_msg_data,
6511: p_api_type => G_API_TYPE);
6512:
6511: p_api_type => G_API_TYPE);
6512:
6513: when OTHERS then
6514:
6515: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
6516: p_api_name => l_api_name,
6517: p_pkg_name => G_PKG_NAME,
6518: p_exc_name => 'OTHERS',
6519: x_msg_count => x_msg_count,
6539: p_chr_id IN NUMBER,
6540: p_release_date IN DATE,
6541: x_nbv OUT NOCOPY Number) IS
6542:
6543: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
6544: l_api_name CONSTANT VARCHAR2(30) := 'GET_NBV';
6545: l_api_version CONSTANT NUMBER := 1.0;
6546:
6547: l_asset_hdr_rec FA_API_TYPES.asset_hdr_rec_type;
6556: l_currency_conversion_date OKL_K_HEADERS_FULL_V.currency_conversion_date%TYPE;
6557:
6558: BEGIN
6559: --call start activity to set savepoint
6560: l_return_status := OKL_API.START_ACTIVITY( substr(l_api_name,1,26),
6561: p_init_msg_list,
6562: '_PVT',
6563: x_return_status);
6564: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6560: l_return_status := OKL_API.START_ACTIVITY( substr(l_api_name,1,26),
6561: p_init_msg_list,
6562: '_PVT',
6563: x_return_status);
6564: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6565: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6566: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
6567: RAISE OKL_API.G_EXCEPTION_ERROR;
6568: END IF;
6561: p_init_msg_list,
6562: '_PVT',
6563: x_return_status);
6564: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6565: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6566: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
6567: RAISE OKL_API.G_EXCEPTION_ERROR;
6568: END IF;
6569:
6562: '_PVT',
6563: x_return_status);
6564: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6565: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6566: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
6567: RAISE OKL_API.G_EXCEPTION_ERROR;
6568: END IF;
6569:
6570: l_asset_hdr_rec.asset_id := p_asset_id;
6563: x_return_status);
6564: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6565: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6566: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
6567: RAISE OKL_API.G_EXCEPTION_ERROR;
6568: END IF;
6569:
6570: l_asset_hdr_rec.asset_id := p_asset_id;
6571: l_asset_hdr_rec.book_type_code := p_book_type_code;
6570: l_asset_hdr_rec.asset_id := p_asset_id;
6571: l_asset_hdr_rec.book_type_code := p_book_type_code;
6572:
6573: if NOT fa_cache_pkg.fazcbc(x_book => l_asset_hdr_rec.book_type_code) then
6574: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
6575: p_msg_name => 'OKL_LLA_FA_CACHE_ERROR'
6576: );
6577: Raise OKL_API.G_EXCEPTION_ERROR;
6578: end if;
6573: if NOT fa_cache_pkg.fazcbc(x_book => l_asset_hdr_rec.book_type_code) then
6574: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
6575: p_msg_name => 'OKL_LLA_FA_CACHE_ERROR'
6576: );
6577: Raise OKL_API.G_EXCEPTION_ERROR;
6578: end if;
6579:
6580: -- To fetch Asset Current Cost
6581: if not FA_UTIL_PVT.get_asset_fin_rec
6584: p_transaction_header_id => NULL,
6585: p_mrc_sob_type_code => 'P'
6586: ) then
6587:
6588: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
6589: p_msg_name => 'OKL_LLA_FA_ASSET_FIN_REC_ERROR'
6590: );
6591: Raise OKL_API.G_EXCEPTION_ERROR;
6592: end if;
6587:
6588: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
6589: p_msg_name => 'OKL_LLA_FA_ASSET_FIN_REC_ERROR'
6590: );
6591: Raise OKL_API.G_EXCEPTION_ERROR;
6592: end if;
6593:
6594: -- To fetch Depreciation Reserve
6595: if not FA_UTIL_PVT.get_asset_deprn_rec
6597: px_asset_deprn_rec => l_asset_deprn_rec,
6598: p_period_counter => NULL,
6599: p_mrc_sob_type_code => 'P'
6600: ) then
6601: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
6602: p_msg_name => 'OKL_LLA_FA_DEPRN_REC_ERROR'
6603: );
6604: Raise OKL_API.G_EXCEPTION_ERROR;
6605: end if;
6600: ) then
6601: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
6602: p_msg_name => 'OKL_LLA_FA_DEPRN_REC_ERROR'
6603: );
6604: Raise OKL_API.G_EXCEPTION_ERROR;
6605: end if;
6606:
6607: l_nbv := l_asset_fin_rec.cost - l_asset_deprn_rec.deprn_reserve;
6608:
6618: x_currency_conversion_rate => l_currency_conversion_rate,
6619: x_currency_conversion_date => l_currency_conversion_date,
6620: x_converted_amount => l_converted_amount);
6621:
6622: IF(x_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
6623: Okl_Api.Set_Message(p_app_name => Okl_Api.G_APP_NAME,
6624: p_msg_name => 'OKL_CONV_TO_FUNC_CURRENCY_FAIL');
6625: RAISE Okl_Api.G_EXCEPTION_ERROR;
6626: END IF;
6619: x_currency_conversion_date => l_currency_conversion_date,
6620: x_converted_amount => l_converted_amount);
6621:
6622: IF(x_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
6623: Okl_Api.Set_Message(p_app_name => Okl_Api.G_APP_NAME,
6624: p_msg_name => 'OKL_CONV_TO_FUNC_CURRENCY_FAIL');
6625: RAISE Okl_Api.G_EXCEPTION_ERROR;
6626: END IF;
6627:
6621:
6622: IF(x_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
6623: Okl_Api.Set_Message(p_app_name => Okl_Api.G_APP_NAME,
6624: p_msg_name => 'OKL_CONV_TO_FUNC_CURRENCY_FAIL');
6625: RAISE Okl_Api.G_EXCEPTION_ERROR;
6626: END IF;
6627:
6628: x_nbv := l_converted_amount;
6629:
6627:
6628: x_nbv := l_converted_amount;
6629:
6630: --Call end Activity
6631: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
6632: EXCEPTION
6633: WHEN OKL_API.G_EXCEPTION_ERROR Then
6634: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
6635: (
6629:
6630: --Call end Activity
6631: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
6632: EXCEPTION
6633: WHEN OKL_API.G_EXCEPTION_ERROR Then
6634: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
6635: (
6636: l_api_name,
6637: G_PKG_NAME,
6630: --Call end Activity
6631: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
6632: EXCEPTION
6633: WHEN OKL_API.G_EXCEPTION_ERROR Then
6634: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
6635: (
6636: l_api_name,
6637: G_PKG_NAME,
6638: 'OKL_API.G_RET_STS_ERROR',
6634: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
6635: (
6636: l_api_name,
6637: G_PKG_NAME,
6638: 'OKL_API.G_RET_STS_ERROR',
6639: x_msg_count,
6640: x_msg_data,
6641: '_PVT'
6642: );
6639: x_msg_count,
6640: x_msg_data,
6641: '_PVT'
6642: );
6643: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
6644: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
6645: (
6646: l_api_name,
6647: G_PKG_NAME,
6640: x_msg_data,
6641: '_PVT'
6642: );
6643: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
6644: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
6645: (
6646: l_api_name,
6647: G_PKG_NAME,
6648: 'OKL_API.G_RET_STS_UNEXP_ERROR',
6644: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
6645: (
6646: l_api_name,
6647: G_PKG_NAME,
6648: 'OKL_API.G_RET_STS_UNEXP_ERROR',
6649: x_msg_count,
6650: x_msg_data,
6651: '_PVT'
6652: );
6650: x_msg_data,
6651: '_PVT'
6652: );
6653: WHEN OTHERS THEN
6654: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
6655: (
6656: l_api_name,
6657: G_PKG_NAME,
6658: 'OTHERS',
6695: p_nbv IN NUMBER,
6696: p_release_date IN DATE,
6697: x_expected_cost OUT NOCOPY NUMBER) IS
6698:
6699: l_return_status VARCHAR2(1) DEFAULT Okl_Api.G_RET_STS_SUCCESS;
6700: l_api_name CONSTANT VARCHAR2(30) := 'CALCULATE EXPECTED COST';
6701: l_api_version CONSTANT NUMBER := 1.0;
6702:
6703:
6721: l_currency_conversion_rate OKL_K_HEADERS_FULL_V.currency_conversion_rate%TYPE;
6722: l_currency_conversion_date OKL_K_HEADERS_FULL_V.currency_conversion_date%TYPE;
6723:
6724: BEGIN
6725: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
6726: -- Call start_activity to create savepoint, check compatibility
6727: -- and initialize message list
6728: l_return_status := Okl_Api.START_ACTIVITY(
6729: p_api_name => l_api_name,
6724: BEGIN
6725: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
6726: -- Call start_activity to create savepoint, check compatibility
6727: -- and initialize message list
6728: l_return_status := Okl_Api.START_ACTIVITY(
6729: p_api_name => l_api_name,
6730: p_pkg_name => g_pkg_name,
6731: p_init_msg_list => p_init_msg_list,
6732: l_api_version => l_api_version,
6733: p_api_version => p_api_version,
6734: p_api_type => '_PVT',
6735: x_return_status => x_return_status);
6736: -- Check if activity started successfully
6737: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
6738: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
6739: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
6740: RAISE Okl_Api.G_EXCEPTION_ERROR;
6741: END IF;
6734: p_api_type => '_PVT',
6735: x_return_status => x_return_status);
6736: -- Check if activity started successfully
6737: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
6738: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
6739: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
6740: RAISE Okl_Api.G_EXCEPTION_ERROR;
6741: END IF;
6742:
6735: x_return_status => x_return_status);
6736: -- Check if activity started successfully
6737: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
6738: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
6739: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
6740: RAISE Okl_Api.G_EXCEPTION_ERROR;
6741: END IF;
6742:
6743: Open l_book_class_csr(p_chr_id => p_orig_chr_id);
6736: -- Check if activity started successfully
6737: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
6738: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
6739: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
6740: RAISE Okl_Api.G_EXCEPTION_ERROR;
6741: END IF;
6742:
6743: Open l_book_class_csr(p_chr_id => p_orig_chr_id);
6744: fetch l_book_class_csr into l_book_class_rec;
6759: p_chr_id => p_new_chr_id,
6760: p_release_date => p_release_date,
6761: x_nbv => l_expected_cost);
6762:
6763: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6764: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6765: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6766: RAISE OKL_API.G_EXCEPTION_ERROR;
6767: END IF;
6760: p_release_date => p_release_date,
6761: x_nbv => l_expected_cost);
6762:
6763: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6764: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6765: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6766: RAISE OKL_API.G_EXCEPTION_ERROR;
6767: END IF;
6768:
6761: x_nbv => l_expected_cost);
6762:
6763: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6764: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6765: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6766: RAISE OKL_API.G_EXCEPTION_ERROR;
6767: END IF;
6768:
6769:
6762:
6763: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6764: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6765: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6766: RAISE OKL_API.G_EXCEPTION_ERROR;
6767: END IF;
6768:
6769:
6770: ElsIf nvl(p_nbv,0) <> 0 then
6789: p_line_id => p_orig_cle_id,
6790: p_additional_parameters => l_additional_parameters,
6791: x_value => l_expected_cost);
6792:
6793: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6794: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6795: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
6796: RAISE OKL_API.G_EXCEPTION_ERROR;
6797: END IF;
6790: p_additional_parameters => l_additional_parameters,
6791: x_value => l_expected_cost);
6792:
6793: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6794: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6795: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
6796: RAISE OKL_API.G_EXCEPTION_ERROR;
6797: END IF;
6798:
6791: x_value => l_expected_cost);
6792:
6793: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6794: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6795: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
6796: RAISE OKL_API.G_EXCEPTION_ERROR;
6797: END IF;
6798:
6799: l_converted_amount := 0;
6792:
6793: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6794: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6795: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
6796: RAISE OKL_API.G_EXCEPTION_ERROR;
6797: END IF;
6798:
6799: l_converted_amount := 0;
6800: OKL_ACCOUNTING_UTIL.CONVERT_TO_CONTRACT_CURRENCY(
6808: x_currency_conversion_rate => l_currency_conversion_rate,
6809: x_currency_conversion_date => l_currency_conversion_date,
6810: x_converted_amount => l_converted_amount);
6811:
6812: IF(x_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
6813: Okl_Api.Set_Message(p_app_name => Okl_Api.G_APP_NAME,
6814: p_msg_name => 'OKL_CONV_TO_FUNC_CURRENCY_FAIL');
6815: RAISE Okl_Api.G_EXCEPTION_ERROR;
6816: l_expected_cost := l_converted_Amount;
6809: x_currency_conversion_date => l_currency_conversion_date,
6810: x_converted_amount => l_converted_amount);
6811:
6812: IF(x_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
6813: Okl_Api.Set_Message(p_app_name => Okl_Api.G_APP_NAME,
6814: p_msg_name => 'OKL_CONV_TO_FUNC_CURRENCY_FAIL');
6815: RAISE Okl_Api.G_EXCEPTION_ERROR;
6816: l_expected_cost := l_converted_Amount;
6817: END IF;
6811:
6812: IF(x_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
6813: Okl_Api.Set_Message(p_app_name => Okl_Api.G_APP_NAME,
6814: p_msg_name => 'OKL_CONV_TO_FUNC_CURRENCY_FAIL');
6815: RAISE Okl_Api.G_EXCEPTION_ERROR;
6816: l_expected_cost := l_converted_Amount;
6817: END IF;
6818: END IF;
6819: x_expected_cost := l_expected_cost;
6818: END IF;
6819: x_expected_cost := l_expected_cost;
6820:
6821: --Call end Activity
6822: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
6823: EXCEPTION
6824: WHEN OKL_API.G_EXCEPTION_ERROR Then
6825: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
6826: (
6820:
6821: --Call end Activity
6822: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
6823: EXCEPTION
6824: WHEN OKL_API.G_EXCEPTION_ERROR Then
6825: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
6826: (
6827: l_api_name,
6828: G_PKG_NAME,
6821: --Call end Activity
6822: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
6823: EXCEPTION
6824: WHEN OKL_API.G_EXCEPTION_ERROR Then
6825: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
6826: (
6827: l_api_name,
6828: G_PKG_NAME,
6829: 'OKL_API.G_RET_STS_ERROR',
6825: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
6826: (
6827: l_api_name,
6828: G_PKG_NAME,
6829: 'OKL_API.G_RET_STS_ERROR',
6830: x_msg_count,
6831: x_msg_data,
6832: '_PVT'
6833: );
6830: x_msg_count,
6831: x_msg_data,
6832: '_PVT'
6833: );
6834: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
6835: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
6836: (
6837: l_api_name,
6838: G_PKG_NAME,
6831: x_msg_data,
6832: '_PVT'
6833: );
6834: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
6835: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
6836: (
6837: l_api_name,
6838: G_PKG_NAME,
6839: 'OKL_API.G_RET_STS_UNEXP_ERROR',
6835: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
6836: (
6837: l_api_name,
6838: G_PKG_NAME,
6839: 'OKL_API.G_RET_STS_UNEXP_ERROR',
6840: x_msg_count,
6841: x_msg_data,
6842: '_PVT'
6843: );
6841: x_msg_data,
6842: '_PVT'
6843: );
6844: WHEN OTHERS THEN
6845: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
6846: (
6847: l_api_name,
6848: G_PKG_NAME,
6849: 'OTHERS',
6875: x_msg_data OUT NOCOPY VARCHAR2,
6876: p_chr_id IN NUMBER,
6877: p_release_date IN DATE) IS
6878:
6879: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
6880: l_api_name CONSTANT VARCHAR2(30) := 'ADJUST_ASSET_LINES';
6881: l_api_version CONSTANT NUMBER := 1.0;
6882:
6883: CURSOR contract_fin_asset_csr
7019: l_orig_cle_id NUMBER;
7020: l_expected_cost NUMBER;
7021:
7022: BEGIN
7023: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
7024: -- Call start_activity to create savepoint, check compatibility
7025: -- and initialize message list
7026: l_return_status := Okl_Api.START_ACTIVITY(
7027: p_api_name => l_api_name,
7022: BEGIN
7023: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
7024: -- Call start_activity to create savepoint, check compatibility
7025: -- and initialize message list
7026: l_return_status := Okl_Api.START_ACTIVITY(
7027: p_api_name => l_api_name,
7028: p_pkg_name => g_pkg_name,
7029: p_init_msg_list => p_init_msg_list,
7030: l_api_version => l_api_version,
7031: p_api_version => p_api_version,
7032: p_api_type => '_PVT',
7033: x_return_status => x_return_status);
7034: -- Check if activity started successfully
7035: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
7036: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
7037: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
7038: RAISE Okl_Api.G_EXCEPTION_ERROR;
7039: END IF;
7032: p_api_type => '_PVT',
7033: x_return_status => x_return_status);
7034: -- Check if activity started successfully
7035: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
7036: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
7037: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
7038: RAISE Okl_Api.G_EXCEPTION_ERROR;
7039: END IF;
7040:
7033: x_return_status => x_return_status);
7034: -- Check if activity started successfully
7035: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
7036: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
7037: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
7038: RAISE Okl_Api.G_EXCEPTION_ERROR;
7039: END IF;
7040:
7041: --Bug# 3950089
7034: -- Check if activity started successfully
7035: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
7036: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
7037: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
7038: RAISE Okl_Api.G_EXCEPTION_ERROR;
7039: END IF;
7040:
7041: --Bug# 3950089
7042: l_currency_code := '?';
7045: close curr_hdr_csr;
7046:
7047: if (l_currency_code = '?') then
7048:
7049: OKL_API.set_message(p_app_name => G_APP_NAME,
7050: p_msg_name => G_REQUIRED_VALUE,
7051: p_token1 => G_COL_NAME_TOKEN,
7052: p_token1_value => 'Currency Code');
7053: RAISE OKL_API.G_EXCEPTION_ERROR;
7049: OKL_API.set_message(p_app_name => G_APP_NAME,
7050: p_msg_name => G_REQUIRED_VALUE,
7051: p_token1 => G_COL_NAME_TOKEN,
7052: p_token1_value => 'Currency Code');
7053: RAISE OKL_API.G_EXCEPTION_ERROR;
7054: end if;
7055:
7056: -- Fetch Financial Asset Top line
7057: for contract_fin_asset_rec in contract_fin_asset_csr
7074: x_msg_data => x_msg_data,
7075: p_line_id => contract_fin_asset_rec.id
7076: );
7077:
7078: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
7079: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7080: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
7081: RAISE OKL_API.G_EXCEPTION_ERROR;
7082: END IF;
7075: p_line_id => contract_fin_asset_rec.id
7076: );
7077:
7078: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
7079: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7080: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
7081: RAISE OKL_API.G_EXCEPTION_ERROR;
7082: END IF;
7083:
7076: );
7077:
7078: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
7079: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7080: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
7081: RAISE OKL_API.G_EXCEPTION_ERROR;
7082: END IF;
7083:
7084: else
7077:
7078: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
7079: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7080: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
7081: RAISE OKL_API.G_EXCEPTION_ERROR;
7082: END IF;
7083:
7084: else
7085:
7103: p_chr_id => p_chr_id,
7104: p_release_date => p_release_date,
7105: x_nbv => l_corp_net_book_value);
7106:
7107: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7108: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7109: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7110: RAISE OKL_API.G_EXCEPTION_ERROR;
7111: END IF;
7104: p_release_date => p_release_date,
7105: x_nbv => l_corp_net_book_value);
7106:
7107: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7108: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7109: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7110: RAISE OKL_API.G_EXCEPTION_ERROR;
7111: END IF;
7112:
7105: x_nbv => l_corp_net_book_value);
7106:
7107: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7108: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7109: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7110: RAISE OKL_API.G_EXCEPTION_ERROR;
7111: END IF;
7112:
7113: --Bug# 4670760
7106:
7107: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7108: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7109: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7110: RAISE OKL_API.G_EXCEPTION_ERROR;
7111: END IF;
7112:
7113: --Bug# 4670760
7114: --Get expected asset Cost
7129: p_release_date => p_release_date,
7130: p_nbv => l_corp_net_book_value,
7131: x_expected_cost => l_expected_cost);
7132:
7133: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7134: RAISE OKL_API.G_EXCEPTION_ERROR;
7135: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7136: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7137: END IF;
7130: p_nbv => l_corp_net_book_value,
7131: x_expected_cost => l_expected_cost);
7132:
7133: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7134: RAISE OKL_API.G_EXCEPTION_ERROR;
7135: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7136: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7137: END IF;
7138: --End Bug# 4670760
7131: x_expected_cost => l_expected_cost);
7132:
7133: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7134: RAISE OKL_API.G_EXCEPTION_ERROR;
7135: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7136: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7137: END IF;
7138: --End Bug# 4670760
7139:
7132:
7133: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7134: RAISE OKL_API.G_EXCEPTION_ERROR;
7135: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7136: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7137: END IF;
7138: --End Bug# 4670760
7139:
7140: open txl_asset_csr(p_chr_id => p_chr_id
7158: x_msg_data => x_msg_data,
7159: p_tlpv_rec => l_talv_rec,
7160: x_tlpv_rec => lx_talv_rec);
7161:
7162: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7163: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7164: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7165: RAISE OKL_API.G_EXCEPTION_ERROR;
7166: END IF;
7159: p_tlpv_rec => l_talv_rec,
7160: x_tlpv_rec => lx_talv_rec);
7161:
7162: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7163: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7164: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7165: RAISE OKL_API.G_EXCEPTION_ERROR;
7166: END IF;
7167: end if;
7160: x_tlpv_rec => lx_talv_rec);
7161:
7162: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7163: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7164: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7165: RAISE OKL_API.G_EXCEPTION_ERROR;
7166: END IF;
7167: end if;
7168:
7161:
7162: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7163: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7164: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7165: RAISE OKL_API.G_EXCEPTION_ERROR;
7166: END IF;
7167: end if;
7168:
7169: for txd_asset_rec in txd_asset_csr(p_tal_id => txl_asset_rec.id) loop
7180: p_chr_id => p_chr_id,
7181: p_release_date => p_release_date,
7182: x_nbv => l_tax_net_book_value);
7183:
7184: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7185: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7186: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7187: RAISE OKL_API.G_EXCEPTION_ERROR;
7188: END IF;
7181: p_release_date => p_release_date,
7182: x_nbv => l_tax_net_book_value);
7183:
7184: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7185: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7186: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7187: RAISE OKL_API.G_EXCEPTION_ERROR;
7188: END IF;
7189:
7182: x_nbv => l_tax_net_book_value);
7183:
7184: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7185: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7186: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7187: RAISE OKL_API.G_EXCEPTION_ERROR;
7188: END IF;
7189:
7190: if l_tax_net_book_value IS NOT NULL then
7183:
7184: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7185: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7186: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7187: RAISE OKL_API.G_EXCEPTION_ERROR;
7188: END IF;
7189:
7190: if l_tax_net_book_value IS NOT NULL then
7191:
7201: x_msg_data => x_msg_data,
7202: p_adpv_rec => l_txdv_rec,
7203: x_adpv_rec => lx_txdv_rec);
7204:
7205: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7206: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7207: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7208: RAISE OKL_API.G_EXCEPTION_ERROR;
7209: END IF;
7202: p_adpv_rec => l_txdv_rec,
7203: x_adpv_rec => lx_txdv_rec);
7204:
7205: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7206: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7207: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7208: RAISE OKL_API.G_EXCEPTION_ERROR;
7209: END IF;
7210: end if;
7203: x_adpv_rec => lx_txdv_rec);
7204:
7205: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7206: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7207: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7208: RAISE OKL_API.G_EXCEPTION_ERROR;
7209: END IF;
7210: end if;
7211: end loop;
7204:
7205: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7206: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7207: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7208: RAISE OKL_API.G_EXCEPTION_ERROR;
7209: END IF;
7210: end if;
7211: end loop;
7212:
7234: x_msg_data => x_msg_data,
7235: p_line_id => cle_rec.id
7236: );
7237:
7238: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
7239: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7240: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
7241: RAISE OKL_API.G_EXCEPTION_ERROR;
7242: END IF;
7235: p_line_id => cle_rec.id
7236: );
7237:
7238: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
7239: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7240: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
7241: RAISE OKL_API.G_EXCEPTION_ERROR;
7242: END IF;
7243:
7236: );
7237:
7238: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
7239: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7240: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
7241: RAISE OKL_API.G_EXCEPTION_ERROR;
7242: END IF;
7243:
7244: -- Financial Asset line
7237:
7238: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
7239: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7240: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
7241: RAISE OKL_API.G_EXCEPTION_ERROR;
7242: END IF;
7243:
7244: -- Financial Asset line
7245: elsif lse_rec.lty_code = 'FREE_FORM1' then
7251: lp_clev_rec.start_date := p_release_date;
7252: end if;
7253:
7254: lp_klev_rec.id := cle_rec.id;
7255: -- l_clev_rec.price_unit := OKL_API.G_MISS_NUM;
7256: --Bug# 4631549: Take residual percent and residual value from the previous contract
7257: --lp_klev_rec.residual_percentage := txl_asset_rec.percent_salvage_value;
7258: --lp_klev_rec.residual_value := txl_asset_rec.salvage_value;
7259: lp_klev_rec.oec := NVL(l_corp_net_book_value,0);
7301: p_clev_rec => lp_clev_rec,
7302: p_klev_rec => lp_klev_rec,
7303: x_clev_rec => lx_clev_rec,
7304: x_klev_rec => lx_klev_rec);
7305: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7306: RAISE OKL_API.G_EXCEPTION_ERROR;
7307: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7308: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7309: END IF;
7302: p_klev_rec => lp_klev_rec,
7303: x_clev_rec => lx_clev_rec,
7304: x_klev_rec => lx_klev_rec);
7305: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7306: RAISE OKL_API.G_EXCEPTION_ERROR;
7307: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7308: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7309: END IF;
7310: --End Bug# 4631549
7303: x_clev_rec => lx_clev_rec,
7304: x_klev_rec => lx_klev_rec);
7305: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7306: RAISE OKL_API.G_EXCEPTION_ERROR;
7307: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7308: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7309: END IF;
7310: --End Bug# 4631549
7311:
7304: x_klev_rec => lx_klev_rec);
7305: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7306: RAISE OKL_API.G_EXCEPTION_ERROR;
7307: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7308: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7309: END IF;
7310: --End Bug# 4631549
7311:
7312: -- Model line
7345: p_clev_rec => lp_clev_rec,
7346: p_klev_rec => lp_klev_rec,
7347: x_clev_rec => lx_clev_rec,
7348: x_klev_rec => lx_klev_rec);
7349: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7350: RAISE OKL_API.G_EXCEPTION_ERROR;
7351: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7352: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7353: END IF;
7346: p_klev_rec => lp_klev_rec,
7347: x_clev_rec => lx_clev_rec,
7348: x_klev_rec => lx_klev_rec);
7349: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7350: RAISE OKL_API.G_EXCEPTION_ERROR;
7351: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7352: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7353: END IF;
7354:
7347: x_clev_rec => lx_clev_rec,
7348: x_klev_rec => lx_klev_rec);
7349: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7350: RAISE OKL_API.G_EXCEPTION_ERROR;
7351: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7352: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7353: END IF;
7354:
7355: OKL_OKC_MIGRATION_PVT.update_contract_item
7348: x_klev_rec => lx_klev_rec);
7349: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7350: RAISE OKL_API.G_EXCEPTION_ERROR;
7351: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7352: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7353: END IF;
7354:
7355: OKL_OKC_MIGRATION_PVT.update_contract_item
7356: (p_api_version => p_api_version,
7359: x_msg_count => x_msg_count,
7360: x_msg_data => x_msg_data,
7361: p_cimv_rec => lp_cimv_rec,
7362: x_cimv_rec => lx_cimv_rec);
7363: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7364: RAISE OKL_API.G_EXCEPTION_ERROR;
7365: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7366: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7367: END IF;
7360: x_msg_data => x_msg_data,
7361: p_cimv_rec => lp_cimv_rec,
7362: x_cimv_rec => lx_cimv_rec);
7363: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7364: RAISE OKL_API.G_EXCEPTION_ERROR;
7365: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7366: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7367: END IF;
7368:
7361: p_cimv_rec => lp_cimv_rec,
7362: x_cimv_rec => lx_cimv_rec);
7363: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7364: RAISE OKL_API.G_EXCEPTION_ERROR;
7365: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7366: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7367: END IF;
7368:
7369: -- For all other lines update Start Date to Re-lease date
7362: x_cimv_rec => lx_cimv_rec);
7363: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7364: RAISE OKL_API.G_EXCEPTION_ERROR;
7365: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7366: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7367: END IF;
7368:
7369: -- For all other lines update Start Date to Re-lease date
7370: else
7387: x_clev_rec => lx_clev_rec,
7388: x_klev_rec => lx_klev_rec
7389: );
7390:
7391: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
7392: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7393: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
7394: RAISE OKL_API.G_EXCEPTION_ERROR;
7395: END IF;
7388: x_klev_rec => lx_klev_rec
7389: );
7390:
7391: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
7392: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7393: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
7394: RAISE OKL_API.G_EXCEPTION_ERROR;
7395: END IF;
7396: end if;
7389: );
7390:
7391: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
7392: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7393: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
7394: RAISE OKL_API.G_EXCEPTION_ERROR;
7395: END IF;
7396: end if;
7397: end loop;
7390:
7391: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
7392: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7393: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
7394: RAISE OKL_API.G_EXCEPTION_ERROR;
7395: END IF;
7396: end if;
7397: end loop;
7398:
7398:
7399: end if;
7400: end loop;
7401:
7402: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
7403: x_msg_data => x_msg_data);
7404:
7405: EXCEPTION
7406: when OKL_API.G_EXCEPTION_ERROR then
7402: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
7403: x_msg_data => x_msg_data);
7404:
7405: EXCEPTION
7406: when OKL_API.G_EXCEPTION_ERROR then
7407:
7408: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
7409: p_api_name => l_api_name,
7410: p_pkg_name => G_PKG_NAME,
7404:
7405: EXCEPTION
7406: when OKL_API.G_EXCEPTION_ERROR then
7407:
7408: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
7409: p_api_name => l_api_name,
7410: p_pkg_name => G_PKG_NAME,
7411: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
7412: x_msg_count => x_msg_count,
7407:
7408: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
7409: p_api_name => l_api_name,
7410: p_pkg_name => G_PKG_NAME,
7411: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
7412: x_msg_count => x_msg_count,
7413: x_msg_data => x_msg_data,
7414: p_api_type => G_API_TYPE);
7415:
7412: x_msg_count => x_msg_count,
7413: x_msg_data => x_msg_data,
7414: p_api_type => G_API_TYPE);
7415:
7416: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
7417:
7418: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
7419: p_api_name => l_api_name,
7420: p_pkg_name => G_PKG_NAME,
7414: p_api_type => G_API_TYPE);
7415:
7416: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
7417:
7418: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
7419: p_api_name => l_api_name,
7420: p_pkg_name => G_PKG_NAME,
7421: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
7422: x_msg_count => x_msg_count,
7417:
7418: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
7419: p_api_name => l_api_name,
7420: p_pkg_name => G_PKG_NAME,
7421: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
7422: x_msg_count => x_msg_count,
7423: x_msg_data => x_msg_data,
7424: p_api_type => G_API_TYPE);
7425:
7424: p_api_type => G_API_TYPE);
7425:
7426: when OTHERS then
7427:
7428: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
7429: p_api_name => l_api_name,
7430: p_pkg_name => G_PKG_NAME,
7431: p_exc_name => 'OTHERS',
7432: x_msg_count => x_msg_count,
7460: p_chr_id IN NUMBER,
7461: p_taa_trx_id IN NUMBER,
7462: p_org_id IN NUMBER) IS
7463:
7464: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
7465: l_api_name CONSTANT VARCHAR2(30) := 'UPDATE_TAA_REQUEST_INFO';
7466: l_api_version CONSTANT NUMBER := 1.0;
7467:
7468: CURSOR taa_party_info_csr(p_taa_trx_id IN NUMBER) IS
7646: lp_kplv_rec OKL_K_PARTY_ROLES_PVT.kplv_rec_type;
7647: lx_kplv_rec OKL_K_PARTY_ROLES_PVT.kplv_rec_type;
7648:
7649: BEGIN
7650: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
7651: -- Call start_activity to create savepoint, check compatibility
7652: -- and initialize message list
7653: l_return_status := Okl_Api.START_ACTIVITY(
7654: p_api_name => l_api_name,
7649: BEGIN
7650: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
7651: -- Call start_activity to create savepoint, check compatibility
7652: -- and initialize message list
7653: l_return_status := Okl_Api.START_ACTIVITY(
7654: p_api_name => l_api_name,
7655: p_pkg_name => g_pkg_name,
7656: p_init_msg_list => p_init_msg_list,
7657: l_api_version => l_api_version,
7658: p_api_version => p_api_version,
7659: p_api_type => '_PVT',
7660: x_return_status => x_return_status);
7661: -- Check if activity started successfully
7662: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
7663: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
7664: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
7665: RAISE Okl_Api.G_EXCEPTION_ERROR;
7666: END IF;
7659: p_api_type => '_PVT',
7660: x_return_status => x_return_status);
7661: -- Check if activity started successfully
7662: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
7663: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
7664: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
7665: RAISE Okl_Api.G_EXCEPTION_ERROR;
7666: END IF;
7667:
7660: x_return_status => x_return_status);
7661: -- Check if activity started successfully
7662: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
7663: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
7664: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
7665: RAISE Okl_Api.G_EXCEPTION_ERROR;
7666: END IF;
7667:
7668: OPEN taa_party_info_csr(p_taa_trx_id => p_taa_trx_id);
7661: -- Check if activity started successfully
7662: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
7663: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
7664: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
7665: RAISE Okl_Api.G_EXCEPTION_ERROR;
7666: END IF;
7667:
7668: OPEN taa_party_info_csr(p_taa_trx_id => p_taa_trx_id);
7669: FETCH taa_party_info_csr INTO taa_party_info_rec;
7712: x_cplv_rec => lx_cplv_rec,
7713: p_kplv_rec => lp_kplv_rec,
7714: x_kplv_rec => lx_kplv_rec);
7715:
7716: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7717: RAISE OKL_API.G_EXCEPTION_ERROR;
7718: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7719: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7720: END IF;
7713: p_kplv_rec => lp_kplv_rec,
7714: x_kplv_rec => lx_kplv_rec);
7715:
7716: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7717: RAISE OKL_API.G_EXCEPTION_ERROR;
7718: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7719: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7720: END IF;
7721: END IF;
7714: x_kplv_rec => lx_kplv_rec);
7715:
7716: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7717: RAISE OKL_API.G_EXCEPTION_ERROR;
7718: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7719: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7720: END IF;
7721: END IF;
7722: END IF;
7715:
7716: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7717: RAISE OKL_API.G_EXCEPTION_ERROR;
7718: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7719: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7720: END IF;
7721: END IF;
7722: END IF;
7723:
7736: p_init_msg_list => p_init_msg_list,
7737: x_return_status => x_return_status,
7738: x_msg_count => x_msg_count,
7739: x_msg_data => x_msg_data,
7740: p_restricted_update => OKL_API.G_FALSE,
7741: p_chrv_rec => l_chrv_rec,
7742: x_chrv_rec => lx_chrv_rec);
7743:
7744: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7740: p_restricted_update => OKL_API.G_FALSE,
7741: p_chrv_rec => l_chrv_rec,
7742: x_chrv_rec => lx_chrv_rec);
7743:
7744: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7745: RAISE OKL_API.G_EXCEPTION_ERROR;
7746: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7747: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7748: END IF;
7741: p_chrv_rec => l_chrv_rec,
7742: x_chrv_rec => lx_chrv_rec);
7743:
7744: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7745: RAISE OKL_API.G_EXCEPTION_ERROR;
7746: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7747: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7748: END IF;
7749: END IF;
7742: x_chrv_rec => lx_chrv_rec);
7743:
7744: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7745: RAISE OKL_API.G_EXCEPTION_ERROR;
7746: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7747: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7748: END IF;
7749: END IF;
7750:
7743:
7744: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7745: RAISE OKL_API.G_EXCEPTION_ERROR;
7746: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7747: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7748: END IF;
7749: END IF;
7750:
7751: -- Update Header level Bank Account
7779: x_msg_data => x_msg_data,
7780: p_rulv_rec => lp_rulv_rec,
7781: x_rulv_rec => lx_rulv_rec);
7782:
7783: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7784: RAISE OKL_API.G_EXCEPTION_ERROR;
7785: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7786: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7787: END IF;
7780: p_rulv_rec => lp_rulv_rec,
7781: x_rulv_rec => lx_rulv_rec);
7782:
7783: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7784: RAISE OKL_API.G_EXCEPTION_ERROR;
7785: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7786: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7787: END IF;
7788: END IF;
7781: x_rulv_rec => lx_rulv_rec);
7782:
7783: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7784: RAISE OKL_API.G_EXCEPTION_ERROR;
7785: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7786: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7787: END IF;
7788: END IF;
7789: END IF;
7782:
7783: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7784: RAISE OKL_API.G_EXCEPTION_ERROR;
7785: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7786: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7787: END IF;
7788: END IF;
7789: END IF;
7790:
7819: x_msg_data => x_msg_data,
7820: p_rulv_rec => lp_rulv_rec,
7821: x_rulv_rec => lx_rulv_rec);
7822:
7823: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7824: RAISE OKL_API.G_EXCEPTION_ERROR;
7825: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7826: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7827: END IF;
7820: p_rulv_rec => lp_rulv_rec,
7821: x_rulv_rec => lx_rulv_rec);
7822:
7823: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7824: RAISE OKL_API.G_EXCEPTION_ERROR;
7825: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7826: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7827: END IF;
7828: END IF;
7821: x_rulv_rec => lx_rulv_rec);
7822:
7823: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7824: RAISE OKL_API.G_EXCEPTION_ERROR;
7825: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7826: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7827: END IF;
7828: END IF;
7829: END IF;
7822:
7823: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7824: RAISE OKL_API.G_EXCEPTION_ERROR;
7825: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7826: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7827: END IF;
7828: END IF;
7829: END IF;
7830:
7867: x_msg_data => x_msg_data,
7868: p_rulv_rec => lp_rulv_rec,
7869: x_rulv_rec => lx_rulv_rec);
7870:
7871: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7872: RAISE OKL_API.G_EXCEPTION_ERROR;
7873: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7874: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7875: END IF;
7868: p_rulv_rec => lp_rulv_rec,
7869: x_rulv_rec => lx_rulv_rec);
7870:
7871: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7872: RAISE OKL_API.G_EXCEPTION_ERROR;
7873: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7874: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7875: END IF;
7876: END IF;
7869: x_rulv_rec => lx_rulv_rec);
7870:
7871: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7872: RAISE OKL_API.G_EXCEPTION_ERROR;
7873: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7874: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7875: END IF;
7876: END IF;
7877: END IF;
7870:
7871: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7872: RAISE OKL_API.G_EXCEPTION_ERROR;
7873: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7874: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7875: END IF;
7876: END IF;
7877: END IF;
7878:
7902: x_msg_data => x_msg_data,
7903: p_gvev_rec => lp_gvev_rec,
7904: x_gvev_rec => lx_gvev_rec);
7905:
7906: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7907: RAISE OKL_API.G_EXCEPTION_ERROR;
7908: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7909: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7910: END IF;
7903: p_gvev_rec => lp_gvev_rec,
7904: x_gvev_rec => lx_gvev_rec);
7905:
7906: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7907: RAISE OKL_API.G_EXCEPTION_ERROR;
7908: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7909: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7910: END IF;
7911:
7904: x_gvev_rec => lx_gvev_rec);
7905:
7906: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7907: RAISE OKL_API.G_EXCEPTION_ERROR;
7908: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7909: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7910: END IF;
7911:
7912: ELSE
7905:
7906: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7907: RAISE OKL_API.G_EXCEPTION_ERROR;
7908: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7909: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7910: END IF;
7911:
7912: ELSE
7913:
7921: x_msg_data => x_msg_data,
7922: p_gvev_rec => lp_gvev_rec,
7923: x_gvev_rec => lx_gvev_rec);
7924:
7925: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7926: RAISE OKL_API.G_EXCEPTION_ERROR;
7927: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7928: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7929: END IF;
7922: p_gvev_rec => lp_gvev_rec,
7923: x_gvev_rec => lx_gvev_rec);
7924:
7925: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7926: RAISE OKL_API.G_EXCEPTION_ERROR;
7927: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7928: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7929: END IF;
7930:
7923: x_gvev_rec => lx_gvev_rec);
7924:
7925: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7926: RAISE OKL_API.G_EXCEPTION_ERROR;
7927: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7928: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7929: END IF;
7930:
7931: END IF;
7924:
7925: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7926: RAISE OKL_API.G_EXCEPTION_ERROR;
7927: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7928: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7929: END IF;
7930:
7931: END IF;
7932: END IF;
7957: x_msg_data => x_msg_data,
7958: p_gvev_rec => lp_gvev_rec,
7959: x_gvev_rec => lx_gvev_rec);
7960:
7961: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7962: RAISE OKL_API.G_EXCEPTION_ERROR;
7963: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7964: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7965: END IF;
7958: p_gvev_rec => lp_gvev_rec,
7959: x_gvev_rec => lx_gvev_rec);
7960:
7961: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7962: RAISE OKL_API.G_EXCEPTION_ERROR;
7963: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7964: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7965: END IF;
7966:
7959: x_gvev_rec => lx_gvev_rec);
7960:
7961: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7962: RAISE OKL_API.G_EXCEPTION_ERROR;
7963: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7964: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7965: END IF;
7966:
7967: ELSE
7960:
7961: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7962: RAISE OKL_API.G_EXCEPTION_ERROR;
7963: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7964: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7965: END IF;
7966:
7967: ELSE
7968:
7976: x_msg_data => x_msg_data,
7977: p_gvev_rec => lp_gvev_rec,
7978: x_gvev_rec => lx_gvev_rec);
7979:
7980: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7981: RAISE OKL_API.G_EXCEPTION_ERROR;
7982: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7983: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7984: END IF;
7977: p_gvev_rec => lp_gvev_rec,
7978: x_gvev_rec => lx_gvev_rec);
7979:
7980: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7981: RAISE OKL_API.G_EXCEPTION_ERROR;
7982: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7983: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7984: END IF;
7985:
7978: x_gvev_rec => lx_gvev_rec);
7979:
7980: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7981: RAISE OKL_API.G_EXCEPTION_ERROR;
7982: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7983: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7984: END IF;
7985:
7986: END IF;
7979:
7980: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7981: RAISE OKL_API.G_EXCEPTION_ERROR;
7982: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7983: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7984: END IF;
7985:
7986: END IF;
7987: END IF;
8022: x_msg_data => x_msg_data,
8023: p_iipv_tbl => l_itiv_ib_tbl,
8024: x_iipv_tbl => lx_itiv_ib_tbl);
8025:
8026: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
8027: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
8028: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
8029: RAISE Okl_Api.G_EXCEPTION_ERROR;
8030: END IF;
8023: p_iipv_tbl => l_itiv_ib_tbl,
8024: x_iipv_tbl => lx_itiv_ib_tbl);
8025:
8026: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
8027: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
8028: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
8029: RAISE Okl_Api.G_EXCEPTION_ERROR;
8030: END IF;
8031: END IF;
8024: x_iipv_tbl => lx_itiv_ib_tbl);
8025:
8026: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
8027: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
8028: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
8029: RAISE Okl_Api.G_EXCEPTION_ERROR;
8030: END IF;
8031: END IF;
8032: END IF;
8025:
8026: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
8027: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
8028: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
8029: RAISE Okl_Api.G_EXCEPTION_ERROR;
8030: END IF;
8031: END IF;
8032: END IF;
8033:
8051: x_msg_data => x_msg_data,
8052: p_tlpv_rec => l_talv_rec,
8053: x_tlpv_rec => lx_talv_rec);
8054:
8055: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8056: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8057: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8058: RAISE OKL_API.G_EXCEPTION_ERROR;
8059: END IF;
8052: p_tlpv_rec => l_talv_rec,
8053: x_tlpv_rec => lx_talv_rec);
8054:
8055: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8056: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8057: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8058: RAISE OKL_API.G_EXCEPTION_ERROR;
8059: END IF;
8060: END IF;
8053: x_tlpv_rec => lx_talv_rec);
8054:
8055: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8056: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8057: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8058: RAISE OKL_API.G_EXCEPTION_ERROR;
8059: END IF;
8060: END IF;
8061:
8054:
8055: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8056: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8057: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8058: RAISE OKL_API.G_EXCEPTION_ERROR;
8059: END IF;
8060: END IF;
8061:
8062: -- Asset Line level Bill-To-Site
8079: x_clev_rec => lx_clev_rec,
8080: x_klev_rec => lx_klev_rec
8081: );
8082:
8083: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
8084: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8085: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
8086: RAISE OKL_API.G_EXCEPTION_ERROR;
8087: END IF;
8080: x_klev_rec => lx_klev_rec
8081: );
8082:
8083: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
8084: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8085: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
8086: RAISE OKL_API.G_EXCEPTION_ERROR;
8087: END IF;
8088: END IF;
8081: );
8082:
8083: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
8084: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8085: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
8086: RAISE OKL_API.G_EXCEPTION_ERROR;
8087: END IF;
8088: END IF;
8089:
8082:
8083: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
8084: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8085: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
8086: RAISE OKL_API.G_EXCEPTION_ERROR;
8087: END IF;
8088: END IF;
8089:
8090: END LOOP;
8123: x_msg_data => x_msg_data,
8124: p_ipyv_rec => l_ipyv_rec,
8125: x_ipyv_rec => lx_ipyv_rec);
8126:
8127: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
8128: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8129: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
8130: RAISE OKL_API.G_EXCEPTION_ERROR;
8131: END IF;
8124: p_ipyv_rec => l_ipyv_rec,
8125: x_ipyv_rec => lx_ipyv_rec);
8126:
8127: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
8128: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8129: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
8130: RAISE OKL_API.G_EXCEPTION_ERROR;
8131: END IF;
8132: END IF;
8125: x_ipyv_rec => lx_ipyv_rec);
8126:
8127: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
8128: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8129: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
8130: RAISE OKL_API.G_EXCEPTION_ERROR;
8131: END IF;
8132: END IF;
8133:
8126:
8127: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
8128: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8129: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
8130: RAISE OKL_API.G_EXCEPTION_ERROR;
8131: END IF;
8132: END IF;
8133:
8134: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
8130: RAISE OKL_API.G_EXCEPTION_ERROR;
8131: END IF;
8132: END IF;
8133:
8134: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
8135: x_msg_data => x_msg_data);
8136:
8137: EXCEPTION
8138: when OKL_API.G_EXCEPTION_ERROR then
8134: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
8135: x_msg_data => x_msg_data);
8136:
8137: EXCEPTION
8138: when OKL_API.G_EXCEPTION_ERROR then
8139:
8140: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
8141: p_api_name => l_api_name,
8142: p_pkg_name => G_PKG_NAME,
8136:
8137: EXCEPTION
8138: when OKL_API.G_EXCEPTION_ERROR then
8139:
8140: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
8141: p_api_name => l_api_name,
8142: p_pkg_name => G_PKG_NAME,
8143: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
8144: x_msg_count => x_msg_count,
8139:
8140: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
8141: p_api_name => l_api_name,
8142: p_pkg_name => G_PKG_NAME,
8143: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
8144: x_msg_count => x_msg_count,
8145: x_msg_data => x_msg_data,
8146: p_api_type => G_API_TYPE);
8147:
8144: x_msg_count => x_msg_count,
8145: x_msg_data => x_msg_data,
8146: p_api_type => G_API_TYPE);
8147:
8148: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
8149:
8150: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
8151: p_api_name => l_api_name,
8152: p_pkg_name => G_PKG_NAME,
8146: p_api_type => G_API_TYPE);
8147:
8148: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
8149:
8150: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
8151: p_api_name => l_api_name,
8152: p_pkg_name => G_PKG_NAME,
8153: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
8154: x_msg_count => x_msg_count,
8149:
8150: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
8151: p_api_name => l_api_name,
8152: p_pkg_name => G_PKG_NAME,
8153: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
8154: x_msg_count => x_msg_count,
8155: x_msg_data => x_msg_data,
8156: p_api_type => G_API_TYPE);
8157:
8156: p_api_type => G_API_TYPE);
8157:
8158: when OTHERS then
8159:
8160: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
8161: p_api_name => l_api_name,
8162: p_pkg_name => G_PKG_NAME,
8163: p_exc_name => 'OTHERS',
8164: x_msg_count => x_msg_count,
8194: ld_old_end_date OKC_K_HEADERS_V.END_DATE%TYPE;
8195: ln_old_authoring_org_id OKC_K_HEADERS_V.AUTHORING_ORG_ID%TYPE;
8196: lt_top_line_tbl g_top_line_tbl;
8197: lt_asset_num_tbl g_asset_num_tbl;
8198: l_return_status VARCHAR2(3) := OKL_API.G_RET_STS_SUCCESS;
8199:
8200: CURSOR c_fetch_header_line_id(p_chr_id OKC_K_HEADERS_B.ID%TYPE)
8201: IS
8202: SELECT chr.id,
8283: lx_fin_klev_rec okl_contract_pub.klev_rec_type;
8284: --End Bug# 4631549
8285:
8286: BEGIN
8287: x_return_status := OKL_API.G_RET_STS_SUCCESS;
8288: -- Call start_activity to create savepoint, check compatibility
8289: -- and initialize message list
8290: x_return_status := OKL_API.START_ACTIVITY (
8291: l_api_name
8286: BEGIN
8287: x_return_status := OKL_API.G_RET_STS_SUCCESS;
8288: -- Call start_activity to create savepoint, check compatibility
8289: -- and initialize message list
8290: x_return_status := OKL_API.START_ACTIVITY (
8291: l_api_name
8292: ,p_init_msg_list
8293: ,'_PVT'
8294: ,l_return_status);
8292: ,p_init_msg_list
8293: ,'_PVT'
8294: ,l_return_status);
8295: -- Check if activity started successfully
8296: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8297: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8298: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8299: RAISE OKL_API.G_EXCEPTION_ERROR;
8300: END IF;
8293: ,'_PVT'
8294: ,l_return_status);
8295: -- Check if activity started successfully
8296: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8297: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8298: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8299: RAISE OKL_API.G_EXCEPTION_ERROR;
8300: END IF;
8301:
8294: ,l_return_status);
8295: -- Check if activity started successfully
8296: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8297: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8298: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8299: RAISE OKL_API.G_EXCEPTION_ERROR;
8300: END IF;
8301:
8302: l_release_date := TRUNC(p_trx_date);
8295: -- Check if activity started successfully
8296: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8297: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8298: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8299: RAISE OKL_API.G_EXCEPTION_ERROR;
8300: END IF;
8301:
8302: l_release_date := TRUNC(p_trx_date);
8303:
8321: p_release_date => l_release_date,
8322: p_source_trx_id => p_source_trx_id,
8323: p_release_reason_code=>p_release_reason_code);
8324:
8325: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8326: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8327: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8328: RAISE OKL_API.G_EXCEPTION_ERROR;
8329: END IF;
8322: p_source_trx_id => p_source_trx_id,
8323: p_release_reason_code=>p_release_reason_code);
8324:
8325: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8326: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8327: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8328: RAISE OKL_API.G_EXCEPTION_ERROR;
8329: END IF;
8330:
8323: p_release_reason_code=>p_release_reason_code);
8324:
8325: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8326: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8327: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8328: RAISE OKL_API.G_EXCEPTION_ERROR;
8329: END IF;
8330:
8331: -- Fetch the old contract header id and sts_code
8324:
8325: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8326: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8327: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8328: RAISE OKL_API.G_EXCEPTION_ERROR;
8329: END IF;
8330:
8331: -- Fetch the old contract header id and sts_code
8332: OPEN c_fetch_header_line_id(p_chr_id);
8330:
8331: -- Fetch the old contract header id and sts_code
8332: OPEN c_fetch_header_line_id(p_chr_id);
8333: IF c_fetch_header_line_id%NOTFOUND THEN
8334: OKL_API.set_message(p_app_name => G_APP_NAME,
8335: p_msg_name => G_NO_MATCHING_RECORD,
8336: p_token1 => G_COL_NAME_TOKEN,
8337: p_token1_value => 'OKC_K_HEADERS_V.ID');
8338:
8335: p_msg_name => G_NO_MATCHING_RECORD,
8336: p_token1 => G_COL_NAME_TOKEN,
8337: p_token1_value => 'OKC_K_HEADERS_V.ID');
8338:
8339: RAISE OKL_API.G_EXCEPTION_ERROR;
8340: END IF;
8341: FETCH c_fetch_header_line_id INTO ln_old_chr_id,
8342: lv_old_contract_number,
8343: ld_old_end_date,
8369:
8370: -- Depending on the status of the contract we have to copy the contract
8371: -- or else validate the assets of the contract
8372: IF (lv_old_sts_code IS NOT NULL OR
8373: lv_old_sts_code <> OKL_API.G_MISS_CHAR) AND
8374: lv_old_sts_code IN ('ACTIVE','HOLD') THEN
8375: l_copy_contract(p_api_version => p_api_version,
8376: p_init_msg_list => p_init_msg_list,
8377: x_return_status => x_return_status,
8376: p_init_msg_list => p_init_msg_list,
8377: x_return_status => x_return_status,
8378: x_msg_count => x_msg_count,
8379: x_msg_data => x_msg_data,
8380: p_commit => OKL_API.G_FALSE,
8381: p_old_chr_id => ln_old_chr_id,
8382: p_new_contract_number => l_new_contract_number,
8383: p_release_date => l_release_date,
8384: p_term_duration => l_term_duration,
8383: p_release_date => l_release_date,
8384: p_term_duration => l_term_duration,
8385: x_new_chrv_rec => x_new_chrv_rec,
8386: x_new_khrv_rec => x_new_khrv_rec);
8387: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8388: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8389: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8390: RAISE OKL_API.G_EXCEPTION_ERROR;
8391: END IF;
8384: p_term_duration => l_term_duration,
8385: x_new_chrv_rec => x_new_chrv_rec,
8386: x_new_khrv_rec => x_new_khrv_rec);
8387: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8388: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8389: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8390: RAISE OKL_API.G_EXCEPTION_ERROR;
8391: END IF;
8392: ELSIF (lv_old_sts_code IS NOT NULL OR
8385: x_new_chrv_rec => x_new_chrv_rec,
8386: x_new_khrv_rec => x_new_khrv_rec);
8387: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8388: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8389: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8390: RAISE OKL_API.G_EXCEPTION_ERROR;
8391: END IF;
8392: ELSIF (lv_old_sts_code IS NOT NULL OR
8393: lv_old_sts_code <> OKL_API.G_MISS_CHAR) AND
8386: x_new_khrv_rec => x_new_khrv_rec);
8387: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8388: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8389: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8390: RAISE OKL_API.G_EXCEPTION_ERROR;
8391: END IF;
8392: ELSIF (lv_old_sts_code IS NOT NULL OR
8393: lv_old_sts_code <> OKL_API.G_MISS_CHAR) AND
8394: lv_old_sts_code = 'TERMINATED' THEN
8389: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8390: RAISE OKL_API.G_EXCEPTION_ERROR;
8391: END IF;
8392: ELSIF (lv_old_sts_code IS NOT NULL OR
8393: lv_old_sts_code <> OKL_API.G_MISS_CHAR) AND
8394: lv_old_sts_code = 'TERMINATED' THEN
8395: -- Since we got the new contract in form of x_chr_id
8396: x_return_status := validate_assets_offlease(p_dnz_chr_id => ln_old_chr_id);
8397: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8393: lv_old_sts_code <> OKL_API.G_MISS_CHAR) AND
8394: lv_old_sts_code = 'TERMINATED' THEN
8395: -- Since we got the new contract in form of x_chr_id
8396: x_return_status := validate_assets_offlease(p_dnz_chr_id => ln_old_chr_id);
8397: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8398: OKL_API.set_message(p_app_name => G_APP_NAME,
8399: p_msg_name => 'OKL_LLA_CHR_ID');
8400: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8401: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8394: lv_old_sts_code = 'TERMINATED' THEN
8395: -- Since we got the new contract in form of x_chr_id
8396: x_return_status := validate_assets_offlease(p_dnz_chr_id => ln_old_chr_id);
8397: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8398: OKL_API.set_message(p_app_name => G_APP_NAME,
8399: p_msg_name => 'OKL_LLA_CHR_ID');
8400: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8401: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8402: OKL_API.set_message(p_app_name => G_APP_NAME,
8396: x_return_status := validate_assets_offlease(p_dnz_chr_id => ln_old_chr_id);
8397: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8398: OKL_API.set_message(p_app_name => G_APP_NAME,
8399: p_msg_name => 'OKL_LLA_CHR_ID');
8400: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8401: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8402: OKL_API.set_message(p_app_name => G_APP_NAME,
8403: p_msg_name => 'OKL_LLA_CHR_ID');
8404: RAISE OKL_API.G_EXCEPTION_ERROR;
8397: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8398: OKL_API.set_message(p_app_name => G_APP_NAME,
8399: p_msg_name => 'OKL_LLA_CHR_ID');
8400: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8401: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8402: OKL_API.set_message(p_app_name => G_APP_NAME,
8403: p_msg_name => 'OKL_LLA_CHR_ID');
8404: RAISE OKL_API.G_EXCEPTION_ERROR;
8405: END IF;
8398: OKL_API.set_message(p_app_name => G_APP_NAME,
8399: p_msg_name => 'OKL_LLA_CHR_ID');
8400: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8401: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8402: OKL_API.set_message(p_app_name => G_APP_NAME,
8403: p_msg_name => 'OKL_LLA_CHR_ID');
8404: RAISE OKL_API.G_EXCEPTION_ERROR;
8405: END IF;
8406: l_copy_contract(p_api_version => p_api_version,
8400: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8401: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8402: OKL_API.set_message(p_app_name => G_APP_NAME,
8403: p_msg_name => 'OKL_LLA_CHR_ID');
8404: RAISE OKL_API.G_EXCEPTION_ERROR;
8405: END IF;
8406: l_copy_contract(p_api_version => p_api_version,
8407: p_init_msg_list => p_init_msg_list,
8408: x_return_status => x_return_status,
8407: p_init_msg_list => p_init_msg_list,
8408: x_return_status => x_return_status,
8409: x_msg_count => x_msg_count,
8410: x_msg_data => x_msg_data,
8411: p_commit => OKL_API.G_FALSE,
8412: p_old_chr_id => ln_old_chr_id,
8413: p_new_contract_number => l_new_contract_number,
8414: p_release_date => l_release_date,
8415: p_term_duration => l_term_duration,
8414: p_release_date => l_release_date,
8415: p_term_duration => l_term_duration,
8416: x_new_chrv_rec => x_new_chrv_rec,
8417: x_new_khrv_rec => x_new_khrv_rec);
8418: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8419: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8420: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8421: RAISE OKL_API.G_EXCEPTION_ERROR;
8422: END IF;
8415: p_term_duration => l_term_duration,
8416: x_new_chrv_rec => x_new_chrv_rec,
8417: x_new_khrv_rec => x_new_khrv_rec);
8418: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8419: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8420: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8421: RAISE OKL_API.G_EXCEPTION_ERROR;
8422: END IF;
8423: ELSE
8416: x_new_chrv_rec => x_new_chrv_rec,
8417: x_new_khrv_rec => x_new_khrv_rec);
8418: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8419: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8420: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8421: RAISE OKL_API.G_EXCEPTION_ERROR;
8422: END IF;
8423: ELSE
8424: OKL_API.set_message(p_app_name => G_APP_NAME,
8417: x_new_khrv_rec => x_new_khrv_rec);
8418: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8419: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8420: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8421: RAISE OKL_API.G_EXCEPTION_ERROR;
8422: END IF;
8423: ELSE
8424: OKL_API.set_message(p_app_name => G_APP_NAME,
8425: p_msg_name => 'OKL_LLA_CHR_ID');
8420: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8421: RAISE OKL_API.G_EXCEPTION_ERROR;
8422: END IF;
8423: ELSE
8424: OKL_API.set_message(p_app_name => G_APP_NAME,
8425: p_msg_name => 'OKL_LLA_CHR_ID');
8426: RAISE OKL_API.G_EXCEPTION_ERROR;
8427: END IF;
8428:
8422: END IF;
8423: ELSE
8424: OKL_API.set_message(p_app_name => G_APP_NAME,
8425: p_msg_name => 'OKL_LLA_CHR_ID');
8426: RAISE OKL_API.G_EXCEPTION_ERROR;
8427: END IF;
8428:
8429: -- Create Re-lease contract transaction
8430: create_release_transaction
8441: p_source_trx_id => p_source_trx_id,
8442: p_source_trx_type => p_source_trx_type,
8443: x_tcnv_rec => x_tcnv_rec);
8444:
8445: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8446: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8447: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8448: RAISE OKL_API.G_EXCEPTION_ERROR;
8449: END IF;
8442: p_source_trx_type => p_source_trx_type,
8443: x_tcnv_rec => x_tcnv_rec);
8444:
8445: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8446: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8447: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8448: RAISE OKL_API.G_EXCEPTION_ERROR;
8449: END IF;
8450:
8443: x_tcnv_rec => x_tcnv_rec);
8444:
8445: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8446: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8447: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8448: RAISE OKL_API.G_EXCEPTION_ERROR;
8449: END IF;
8450:
8451: -- Delete contract lines which are not transferred
8444:
8445: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8446: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8447: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8448: RAISE OKL_API.G_EXCEPTION_ERROR;
8449: END IF;
8450:
8451: -- Delete contract lines which are not transferred
8452: -- if the source transaction is Partial T and A
8471: x_msg_data => x_msg_data,
8472: p_line_id => taa_lines_rec.id
8473: );
8474:
8475: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
8476: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8477: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
8478: RAISE OKL_API.G_EXCEPTION_ERROR;
8479: END IF;
8472: p_line_id => taa_lines_rec.id
8473: );
8474:
8475: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
8476: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8477: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
8478: RAISE OKL_API.G_EXCEPTION_ERROR;
8479: END IF;
8480: end loop;
8473: );
8474:
8475: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
8476: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8477: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
8478: RAISE OKL_API.G_EXCEPTION_ERROR;
8479: END IF;
8480: end loop;
8481:
8474:
8475: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
8476: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8477: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
8478: RAISE OKL_API.G_EXCEPTION_ERROR;
8479: END IF;
8480: end loop;
8481:
8482: -- Delete Fee and Service lines not having Covered Assets
8491: x_msg_data => x_msg_data,
8492: p_line_id => taa_fee_serv_rec.id
8493: );
8494:
8495: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
8496: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8497: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
8498: RAISE OKL_API.G_EXCEPTION_ERROR;
8499: END IF;
8492: p_line_id => taa_fee_serv_rec.id
8493: );
8494:
8495: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
8496: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8497: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
8498: RAISE OKL_API.G_EXCEPTION_ERROR;
8499: END IF;
8500: end loop;
8493: );
8494:
8495: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
8496: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8497: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
8498: RAISE OKL_API.G_EXCEPTION_ERROR;
8499: END IF;
8500: end loop;
8501:
8494:
8495: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
8496: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8497: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
8498: RAISE OKL_API.G_EXCEPTION_ERROR;
8499: END IF;
8500: end loop;
8501:
8502: -- Adjust Top line payments for Service and Rollover Fees
8509: x_msg_count => x_msg_count,
8510: x_msg_data => x_msg_data,
8511: p_chr_id => x_new_chrv_rec.id);
8512:
8513: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
8514: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8515: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
8516: RAISE OKL_API.G_EXCEPTION_ERROR;
8517: END IF;
8510: x_msg_data => x_msg_data,
8511: p_chr_id => x_new_chrv_rec.id);
8512:
8513: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
8514: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8515: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
8516: RAISE OKL_API.G_EXCEPTION_ERROR;
8517: END IF;
8518:
8511: p_chr_id => x_new_chrv_rec.id);
8512:
8513: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
8514: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8515: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
8516: RAISE OKL_API.G_EXCEPTION_ERROR;
8517: END IF;
8518:
8519: end if;
8512:
8513: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
8514: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8515: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
8516: RAISE OKL_API.G_EXCEPTION_ERROR;
8517: END IF;
8518:
8519: end if;
8520: end if;
8526: x_msg_data => x_msg_data,
8527: p_chr_id => x_new_chrv_rec.id,
8528: p_release_date => l_release_date);
8529:
8530: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
8531: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8532: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
8533: RAISE OKL_API.G_EXCEPTION_ERROR;
8534: END IF;
8527: p_chr_id => x_new_chrv_rec.id,
8528: p_release_date => l_release_date);
8529:
8530: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
8531: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8532: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
8533: RAISE OKL_API.G_EXCEPTION_ERROR;
8534: END IF;
8535:
8528: p_release_date => l_release_date);
8529:
8530: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
8531: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8532: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
8533: RAISE OKL_API.G_EXCEPTION_ERROR;
8534: END IF;
8535:
8536: adjust_payment_lines(p_api_version => p_api_version,
8529:
8530: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
8531: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8532: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
8533: RAISE OKL_API.G_EXCEPTION_ERROR;
8534: END IF;
8535:
8536: adjust_payment_lines(p_api_version => p_api_version,
8537: p_init_msg_list => p_init_msg_list,
8540: x_msg_data => x_msg_data,
8541: p_chr_id => x_new_chrv_rec.id,
8542: p_release_date => l_release_date);
8543:
8544: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
8545: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8546: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
8547: RAISE OKL_API.G_EXCEPTION_ERROR;
8548: END IF;
8541: p_chr_id => x_new_chrv_rec.id,
8542: p_release_date => l_release_date);
8543:
8544: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
8545: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8546: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
8547: RAISE OKL_API.G_EXCEPTION_ERROR;
8548: END IF;
8549:
8542: p_release_date => l_release_date);
8543:
8544: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
8545: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8546: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
8547: RAISE OKL_API.G_EXCEPTION_ERROR;
8548: END IF;
8549:
8550: adjust_fee_lines(p_api_version => p_api_version,
8543:
8544: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
8545: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8546: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
8547: RAISE OKL_API.G_EXCEPTION_ERROR;
8548: END IF;
8549:
8550: adjust_fee_lines(p_api_version => p_api_version,
8551: p_init_msg_list => p_init_msg_list,
8555: p_chr_id => x_new_chrv_rec.id,
8556: p_orig_chr_id => p_chr_id,
8557: p_release_date => l_release_date);
8558:
8559: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
8560: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8561: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
8562: RAISE OKL_API.G_EXCEPTION_ERROR;
8563: END IF;
8556: p_orig_chr_id => p_chr_id,
8557: p_release_date => l_release_date);
8558:
8559: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
8560: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8561: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
8562: RAISE OKL_API.G_EXCEPTION_ERROR;
8563: END IF;
8564:
8557: p_release_date => l_release_date);
8558:
8559: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
8560: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8561: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
8562: RAISE OKL_API.G_EXCEPTION_ERROR;
8563: END IF;
8564:
8565: adjust_service_lines(p_api_version => p_api_version,
8558:
8559: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
8560: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8561: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
8562: RAISE OKL_API.G_EXCEPTION_ERROR;
8563: END IF;
8564:
8565: adjust_service_lines(p_api_version => p_api_version,
8566: p_init_msg_list => p_init_msg_list,
8570: p_chr_id => x_new_chrv_rec.id,
8571: p_orig_chr_id => p_chr_id,
8572: p_release_date => l_release_date);
8573:
8574: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
8575: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8576: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
8577: RAISE OKL_API.G_EXCEPTION_ERROR;
8578: END IF;
8571: p_orig_chr_id => p_chr_id,
8572: p_release_date => l_release_date);
8573:
8574: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
8575: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8576: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
8577: RAISE OKL_API.G_EXCEPTION_ERROR;
8578: END IF;
8579: --Added by rajnisku Bug 6657564
8572: p_release_date => l_release_date);
8573:
8574: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
8575: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8576: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
8577: RAISE OKL_API.G_EXCEPTION_ERROR;
8578: END IF;
8579: --Added by rajnisku Bug 6657564
8580: adjust_usage_lines(p_api_version => p_api_version,
8573:
8574: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
8575: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8576: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
8577: RAISE OKL_API.G_EXCEPTION_ERROR;
8578: END IF;
8579: --Added by rajnisku Bug 6657564
8580: adjust_usage_lines(p_api_version => p_api_version,
8581: p_init_msg_list => p_init_msg_list,
8584: x_msg_data => x_msg_data,
8585: p_chr_id => x_new_chrv_rec.id,
8586: p_release_date => l_release_date);
8587:
8588: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
8589: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8590: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
8591: RAISE OKL_API.G_EXCEPTION_ERROR;
8592: END IF;
8585: p_chr_id => x_new_chrv_rec.id,
8586: p_release_date => l_release_date);
8587:
8588: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
8589: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8590: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
8591: RAISE OKL_API.G_EXCEPTION_ERROR;
8592: END IF;
8593: --Added by rajnisku Bug 6657564 : End
8586: p_release_date => l_release_date);
8587:
8588: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
8589: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8590: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
8591: RAISE OKL_API.G_EXCEPTION_ERROR;
8592: END IF;
8593: --Added by rajnisku Bug 6657564 : End
8594:
8587:
8588: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
8589: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8590: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
8591: RAISE OKL_API.G_EXCEPTION_ERROR;
8592: END IF;
8593: --Added by rajnisku Bug 6657564 : End
8594:
8595: --Bug# 9927005: Moved call to update_taa_request_info after
8610: p_chr_id => x_new_chrv_rec.id,
8611: p_taa_trx_id => p_source_trx_id,
8612: p_org_id => ln_old_authoring_org_id);
8613:
8614: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
8615: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8616: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
8617: RAISE OKL_API.G_EXCEPTION_ERROR;
8618: END IF;
8611: p_taa_trx_id => p_source_trx_id,
8612: p_org_id => ln_old_authoring_org_id);
8613:
8614: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
8615: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8616: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
8617: RAISE OKL_API.G_EXCEPTION_ERROR;
8618: END IF;
8619:
8612: p_org_id => ln_old_authoring_org_id);
8613:
8614: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
8615: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8616: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
8617: RAISE OKL_API.G_EXCEPTION_ERROR;
8618: END IF;
8619:
8620: end if;
8613:
8614: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
8615: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8616: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
8617: RAISE OKL_API.G_EXCEPTION_ERROR;
8618: END IF;
8619:
8620: end if;
8621:
8633: p_contract_id => x_new_chrv_rec.id,
8634: p_line_id => l_finast_rec.id,
8635: x_value => l_fin_klev_rec.capital_amount);
8636:
8637: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8638: RAISE OKL_API.G_EXCEPTION_ERROR;
8639: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8640: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8641: END IF;
8634: p_line_id => l_finast_rec.id,
8635: x_value => l_fin_klev_rec.capital_amount);
8636:
8637: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8638: RAISE OKL_API.G_EXCEPTION_ERROR;
8639: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8640: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8641: END IF;
8642:
8635: x_value => l_fin_klev_rec.capital_amount);
8636:
8637: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8638: RAISE OKL_API.G_EXCEPTION_ERROR;
8639: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8640: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8641: END IF;
8642:
8643: l_fin_clev_rec.id := l_finast_rec.id;
8636:
8637: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8638: RAISE OKL_API.G_EXCEPTION_ERROR;
8639: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8640: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8641: END IF;
8642:
8643: l_fin_clev_rec.id := l_finast_rec.id;
8644: l_fin_klev_rec.id := l_finast_rec.id;
8653: p_klev_rec => l_fin_klev_rec,
8654: x_clev_rec => lx_fin_clev_rec,
8655: x_klev_rec => lx_fin_klev_rec);
8656:
8657: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8658: RAISE OKL_API.G_EXCEPTION_ERROR;
8659: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8660: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8661: END IF;
8654: x_clev_rec => lx_fin_clev_rec,
8655: x_klev_rec => lx_fin_klev_rec);
8656:
8657: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8658: RAISE OKL_API.G_EXCEPTION_ERROR;
8659: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8660: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8661: END IF;
8662: End Loop;
8655: x_klev_rec => lx_fin_klev_rec);
8656:
8657: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8658: RAISE OKL_API.G_EXCEPTION_ERROR;
8659: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8660: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8661: END IF;
8662: End Loop;
8663: Close l_finast_csr;
8656:
8657: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8658: RAISE OKL_API.G_EXCEPTION_ERROR;
8659: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8660: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8661: END IF;
8662: End Loop;
8663: Close l_finast_csr;
8664: --End Bug# 4631549
8665:
8666: -- R12B Authoring OA Migration
8667: x_release_chr_id := x_new_chrv_rec.id;
8668:
8669: OKL_API.END_ACTIVITY (x_msg_count => x_msg_count,
8670: x_msg_data => x_msg_data);
8671:
8672: EXCEPTION
8673: WHEN OKL_API.G_EXCEPTION_ERROR THEN
8669: OKL_API.END_ACTIVITY (x_msg_count => x_msg_count,
8670: x_msg_data => x_msg_data);
8671:
8672: EXCEPTION
8673: WHEN OKL_API.G_EXCEPTION_ERROR THEN
8674: IF c_fetch_header_line_id%ISOPEN THEN
8675: CLOSE c_fetch_header_line_id;
8676: END IF;
8677: l_return_status := OKL_API.HANDLE_EXCEPTIONS(
8673: WHEN OKL_API.G_EXCEPTION_ERROR THEN
8674: IF c_fetch_header_line_id%ISOPEN THEN
8675: CLOSE c_fetch_header_line_id;
8676: END IF;
8677: l_return_status := OKL_API.HANDLE_EXCEPTIONS(
8678: l_api_name,
8679: G_PKG_NAME,
8680: 'OKL_API.G_RET_STS_ERROR',
8681: x_msg_count,
8676: END IF;
8677: l_return_status := OKL_API.HANDLE_EXCEPTIONS(
8678: l_api_name,
8679: G_PKG_NAME,
8680: 'OKL_API.G_RET_STS_ERROR',
8681: x_msg_count,
8682: x_msg_data,
8683: '_PVT');
8684: x_return_status := l_return_status;
8681: x_msg_count,
8682: x_msg_data,
8683: '_PVT');
8684: x_return_status := l_return_status;
8685: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
8686: l_return_status :=OKL_API.HANDLE_EXCEPTIONS(
8687: l_api_name,
8688: G_PKG_NAME,
8689: 'OKL_API.G_RET_STS_UNEXP_ERROR',
8682: x_msg_data,
8683: '_PVT');
8684: x_return_status := l_return_status;
8685: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
8686: l_return_status :=OKL_API.HANDLE_EXCEPTIONS(
8687: l_api_name,
8688: G_PKG_NAME,
8689: 'OKL_API.G_RET_STS_UNEXP_ERROR',
8690: x_msg_count,
8685: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
8686: l_return_status :=OKL_API.HANDLE_EXCEPTIONS(
8687: l_api_name,
8688: G_PKG_NAME,
8689: 'OKL_API.G_RET_STS_UNEXP_ERROR',
8690: x_msg_count,
8691: x_msg_data,
8692: '_PVT');
8693: x_return_status := l_return_status;
8694: WHEN OTHERS THEN
8695: IF c_fetch_header_line_id%ISOPEN THEN
8696: CLOSE c_fetch_header_line_id;
8697: END IF;
8698: l_return_status :=OKL_API.HANDLE_EXCEPTIONS(
8699: l_api_name,
8700: G_PKG_NAME,
8701: 'OTHERS',
8702: x_msg_count,
8708: --------------------------------- Activate Release Contract ----------------------------------
8709: -----------------------------------------------------------------------------------------------
8710: PROCEDURE activate_release_contract(
8711: p_api_version IN NUMBER,
8712: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
8713: x_return_status OUT NOCOPY VARCHAR2,
8714: x_msg_count OUT NOCOPY NUMBER,
8715: x_msg_data OUT NOCOPY VARCHAR2,
8716: p_chr_id IN OKC_K_HEADERS_B.ID%TYPE) IS
8845: l_taav_rec okl_taa_pvt.taav_rec_type;
8846: l_out_taav_rec okl_taa_pvt.taav_rec_type;
8847:
8848: BEGIN
8849: x_return_status := OKL_API.G_RET_STS_SUCCESS;
8850: -- Call start_activity to create savepoint, check compatibility
8851: -- and initialize message list
8852: x_return_status := OKL_API.START_ACTIVITY (
8853: l_api_name
8848: BEGIN
8849: x_return_status := OKL_API.G_RET_STS_SUCCESS;
8850: -- Call start_activity to create savepoint, check compatibility
8851: -- and initialize message list
8852: x_return_status := OKL_API.START_ACTIVITY (
8853: l_api_name
8854: ,p_init_msg_list
8855: ,'_PVT'
8856: ,x_return_status);
8854: ,p_init_msg_list
8855: ,'_PVT'
8856: ,x_return_status);
8857: -- Check if activity started successfully
8858: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8859: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8860: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8861: RAISE OKL_API.G_EXCEPTION_ERROR;
8862: END IF;
8855: ,'_PVT'
8856: ,x_return_status);
8857: -- Check if activity started successfully
8858: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8859: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8860: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8861: RAISE OKL_API.G_EXCEPTION_ERROR;
8862: END IF;
8863:
8856: ,x_return_status);
8857: -- Check if activity started successfully
8858: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8859: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8860: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8861: RAISE OKL_API.G_EXCEPTION_ERROR;
8862: END IF;
8863:
8864: -- To get the orig system id for
8857: -- Check if activity started successfully
8858: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8859: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8860: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8861: RAISE OKL_API.G_EXCEPTION_ERROR;
8862: END IF;
8863:
8864: -- To get the orig system id for
8865: OPEN get_orig_sys_code(p_chr_id => p_chr_id);
8867: ln_orig_system_id1,
8868: ln_orig_contract_number,
8869: ln_new_contract_number; --Bug# 4072796
8870: IF get_orig_sys_code%NOTFOUND THEN
8871: OKL_API.set_message(p_app_name => G_APP_NAME,
8872: p_msg_name => G_NO_MATCHING_RECORD,
8873: p_token1 => G_COL_NAME_TOKEN,
8874: p_token1_value => 'OKC_K_HEADERS_V.ID');
8875: RAISE OKL_API.G_EXCEPTION_ERROR;
8871: OKL_API.set_message(p_app_name => G_APP_NAME,
8872: p_msg_name => G_NO_MATCHING_RECORD,
8873: p_token1 => G_COL_NAME_TOKEN,
8874: p_token1_value => 'OKC_K_HEADERS_V.ID');
8875: RAISE OKL_API.G_EXCEPTION_ERROR;
8876: END IF;
8877: CLOSE get_orig_sys_code;
8878: IF ln_orig_system_source_code = 'OKL_RELEASE' THEN
8879:
8883: -- to get all the new line item information
8884: x_return_status := get_rec_cimv(r_get_orig_fa.id,
8885: p_chr_id,
8886: l_cimv_rec);
8887: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8888: OKL_API.set_message(p_app_name => G_APP_NAME,
8889: p_msg_name => G_NO_MATCHING_RECORD,
8890: p_token1 => G_COL_NAME_TOKEN,
8891: p_token1_value => 'OKC_K_ITEMS_V record');
8884: x_return_status := get_rec_cimv(r_get_orig_fa.id,
8885: p_chr_id,
8886: l_cimv_rec);
8887: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8888: OKL_API.set_message(p_app_name => G_APP_NAME,
8889: p_msg_name => G_NO_MATCHING_RECORD,
8890: p_token1 => G_COL_NAME_TOKEN,
8891: p_token1_value => 'OKC_K_ITEMS_V record');
8892: x_return_status := OKL_API.G_RET_STS_ERROR;
8888: OKL_API.set_message(p_app_name => G_APP_NAME,
8889: p_msg_name => G_NO_MATCHING_RECORD,
8890: p_token1 => G_COL_NAME_TOKEN,
8891: p_token1_value => 'OKC_K_ITEMS_V record');
8892: x_return_status := OKL_API.G_RET_STS_ERROR;
8893: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
8894: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8895: OKL_API.set_message(p_app_name => G_APP_NAME,
8896: p_msg_name => G_NO_MATCHING_RECORD,
8889: p_msg_name => G_NO_MATCHING_RECORD,
8890: p_token1 => G_COL_NAME_TOKEN,
8891: p_token1_value => 'OKC_K_ITEMS_V record');
8892: x_return_status := OKL_API.G_RET_STS_ERROR;
8893: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
8894: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8895: OKL_API.set_message(p_app_name => G_APP_NAME,
8896: p_msg_name => G_NO_MATCHING_RECORD,
8897: p_token1 => G_COL_NAME_TOKEN,
8890: p_token1 => G_COL_NAME_TOKEN,
8891: p_token1_value => 'OKC_K_ITEMS_V record');
8892: x_return_status := OKL_API.G_RET_STS_ERROR;
8893: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
8894: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8895: OKL_API.set_message(p_app_name => G_APP_NAME,
8896: p_msg_name => G_NO_MATCHING_RECORD,
8897: p_token1 => G_COL_NAME_TOKEN,
8898: p_token1_value => 'OKC_K_ITEMS_V record');
8891: p_token1_value => 'OKC_K_ITEMS_V record');
8892: x_return_status := OKL_API.G_RET_STS_ERROR;
8893: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
8894: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8895: OKL_API.set_message(p_app_name => G_APP_NAME,
8896: p_msg_name => G_NO_MATCHING_RECORD,
8897: p_token1 => G_COL_NAME_TOKEN,
8898: p_token1_value => 'OKC_K_ITEMS_V record');
8899: x_return_status := OKL_API.G_RET_STS_ERROR;
8895: OKL_API.set_message(p_app_name => G_APP_NAME,
8896: p_msg_name => G_NO_MATCHING_RECORD,
8897: p_token1 => G_COL_NAME_TOKEN,
8898: p_token1_value => 'OKC_K_ITEMS_V record');
8899: x_return_status := OKL_API.G_RET_STS_ERROR;
8900: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
8901: END IF;
8902: -- To get the old information of the old asset
8903: OPEN get_item_info(p_orig_chr_id => ln_orig_system_id1,
8896: p_msg_name => G_NO_MATCHING_RECORD,
8897: p_token1 => G_COL_NAME_TOKEN,
8898: p_token1_value => 'OKC_K_ITEMS_V record');
8899: x_return_status := OKL_API.G_RET_STS_ERROR;
8900: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
8901: END IF;
8902: -- To get the old information of the old asset
8903: OPEN get_item_info(p_orig_chr_id => ln_orig_system_id1,
8904: p_orig_cle_id => r_get_orig_fa.orig_cle_fa);
8904: p_orig_cle_id => r_get_orig_fa.orig_cle_fa);
8905: FETCH get_item_info INTO l_cimv_rec.object1_id1,
8906: l_cimv_rec.object1_id2;
8907: IF get_item_info%NOTFOUND THEN
8908: x_return_status := OKL_API.G_RET_STS_ERROR;
8909: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
8910: END IF;
8911: CLOSE get_item_info;
8912: OKL_OKC_MIGRATION_PVT.update_contract_item(p_api_version => p_api_version,
8905: FETCH get_item_info INTO l_cimv_rec.object1_id1,
8906: l_cimv_rec.object1_id2;
8907: IF get_item_info%NOTFOUND THEN
8908: x_return_status := OKL_API.G_RET_STS_ERROR;
8909: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
8910: END IF;
8911: CLOSE get_item_info;
8912: OKL_OKC_MIGRATION_PVT.update_contract_item(p_api_version => p_api_version,
8913: p_init_msg_list => p_init_msg_list,
8915: x_msg_count => x_msg_count,
8916: x_msg_data => x_msg_data,
8917: p_cimv_rec => l_cimv_rec,
8918: x_cimv_rec => lx_cimv_rec);
8919: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8920: x_return_status := OKL_API.G_RET_STS_ERROR;
8921: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
8922: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8923: x_return_status := OKL_API.G_RET_STS_ERROR;
8916: x_msg_data => x_msg_data,
8917: p_cimv_rec => l_cimv_rec,
8918: x_cimv_rec => lx_cimv_rec);
8919: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8920: x_return_status := OKL_API.G_RET_STS_ERROR;
8921: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
8922: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8923: x_return_status := OKL_API.G_RET_STS_ERROR;
8924: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
8917: p_cimv_rec => l_cimv_rec,
8918: x_cimv_rec => lx_cimv_rec);
8919: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8920: x_return_status := OKL_API.G_RET_STS_ERROR;
8921: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
8922: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8923: x_return_status := OKL_API.G_RET_STS_ERROR;
8924: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
8925: END IF;
8918: x_cimv_rec => lx_cimv_rec);
8919: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8920: x_return_status := OKL_API.G_RET_STS_ERROR;
8921: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
8922: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8923: x_return_status := OKL_API.G_RET_STS_ERROR;
8924: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
8925: END IF;
8926: END LOOP;
8919: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8920: x_return_status := OKL_API.G_RET_STS_ERROR;
8921: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
8922: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8923: x_return_status := OKL_API.G_RET_STS_ERROR;
8924: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
8925: END IF;
8926: END LOOP;
8927: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8920: x_return_status := OKL_API.G_RET_STS_ERROR;
8921: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
8922: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8923: x_return_status := OKL_API.G_RET_STS_ERROR;
8924: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
8925: END IF;
8926: END LOOP;
8927: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8928: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8923: x_return_status := OKL_API.G_RET_STS_ERROR;
8924: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
8925: END IF;
8926: END LOOP;
8927: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8928: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8929: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8930: RAISE OKL_API.G_EXCEPTION_ERROR;
8931: END IF;
8924: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
8925: END IF;
8926: END LOOP;
8927: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8928: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8929: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8930: RAISE OKL_API.G_EXCEPTION_ERROR;
8931: END IF;
8932:
8925: END IF;
8926: END LOOP;
8927: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8928: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8929: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8930: RAISE OKL_API.G_EXCEPTION_ERROR;
8931: END IF;
8932:
8933: -- To get the Install Base information for the p_chr_id
8926: END LOOP;
8927: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8928: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8929: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8930: RAISE OKL_API.G_EXCEPTION_ERROR;
8931: END IF;
8932:
8933: -- To get the Install Base information for the p_chr_id
8934: FOR r_get_orig_ib IN get_orig_ib(p_chr_id => p_chr_id) LOOP
8935: -- to get all the new line item information
8936: x_return_status := get_rec_cimv(r_get_orig_ib.id,
8937: p_chr_id,
8938: l_cimv_rec);
8939: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8940: OKL_API.set_message(p_app_name => G_APP_NAME,
8941: p_msg_name => G_NO_MATCHING_RECORD,
8942: p_token1 => G_COL_NAME_TOKEN,
8943: p_token1_value => 'OKC_K_ITEMS_V record');
8936: x_return_status := get_rec_cimv(r_get_orig_ib.id,
8937: p_chr_id,
8938: l_cimv_rec);
8939: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8940: OKL_API.set_message(p_app_name => G_APP_NAME,
8941: p_msg_name => G_NO_MATCHING_RECORD,
8942: p_token1 => G_COL_NAME_TOKEN,
8943: p_token1_value => 'OKC_K_ITEMS_V record');
8944: x_return_status := OKL_API.G_RET_STS_ERROR;
8940: OKL_API.set_message(p_app_name => G_APP_NAME,
8941: p_msg_name => G_NO_MATCHING_RECORD,
8942: p_token1 => G_COL_NAME_TOKEN,
8943: p_token1_value => 'OKC_K_ITEMS_V record');
8944: x_return_status := OKL_API.G_RET_STS_ERROR;
8945: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
8946: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8947: OKL_API.set_message(p_app_name => G_APP_NAME,
8948: p_msg_name => G_NO_MATCHING_RECORD,
8941: p_msg_name => G_NO_MATCHING_RECORD,
8942: p_token1 => G_COL_NAME_TOKEN,
8943: p_token1_value => 'OKC_K_ITEMS_V record');
8944: x_return_status := OKL_API.G_RET_STS_ERROR;
8945: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
8946: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8947: OKL_API.set_message(p_app_name => G_APP_NAME,
8948: p_msg_name => G_NO_MATCHING_RECORD,
8949: p_token1 => G_COL_NAME_TOKEN,
8942: p_token1 => G_COL_NAME_TOKEN,
8943: p_token1_value => 'OKC_K_ITEMS_V record');
8944: x_return_status := OKL_API.G_RET_STS_ERROR;
8945: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
8946: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8947: OKL_API.set_message(p_app_name => G_APP_NAME,
8948: p_msg_name => G_NO_MATCHING_RECORD,
8949: p_token1 => G_COL_NAME_TOKEN,
8950: p_token1_value => 'OKC_K_ITEMS_V record');
8943: p_token1_value => 'OKC_K_ITEMS_V record');
8944: x_return_status := OKL_API.G_RET_STS_ERROR;
8945: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
8946: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8947: OKL_API.set_message(p_app_name => G_APP_NAME,
8948: p_msg_name => G_NO_MATCHING_RECORD,
8949: p_token1 => G_COL_NAME_TOKEN,
8950: p_token1_value => 'OKC_K_ITEMS_V record');
8951: x_return_status := OKL_API.G_RET_STS_ERROR;
8947: OKL_API.set_message(p_app_name => G_APP_NAME,
8948: p_msg_name => G_NO_MATCHING_RECORD,
8949: p_token1 => G_COL_NAME_TOKEN,
8950: p_token1_value => 'OKC_K_ITEMS_V record');
8951: x_return_status := OKL_API.G_RET_STS_ERROR;
8952: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
8953: END IF;
8954: -- To get the old information of the old asset
8955: OPEN get_item_info(p_orig_chr_id => ln_orig_system_id1,
8948: p_msg_name => G_NO_MATCHING_RECORD,
8949: p_token1 => G_COL_NAME_TOKEN,
8950: p_token1_value => 'OKC_K_ITEMS_V record');
8951: x_return_status := OKL_API.G_RET_STS_ERROR;
8952: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
8953: END IF;
8954: -- To get the old information of the old asset
8955: OPEN get_item_info(p_orig_chr_id => ln_orig_system_id1,
8956: p_orig_cle_id => r_get_orig_ib.orig_cle_ib);
8956: p_orig_cle_id => r_get_orig_ib.orig_cle_ib);
8957: FETCH get_item_info INTO l_cimv_rec.object1_id1,
8958: l_cimv_rec.object1_id2;
8959: IF get_item_info%NOTFOUND THEN
8960: x_return_status := OKL_API.G_RET_STS_ERROR;
8961: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
8962: END IF;
8963: CLOSE get_item_info;
8964: OKL_OKC_MIGRATION_PVT.update_contract_item(p_api_version => p_api_version,
8957: FETCH get_item_info INTO l_cimv_rec.object1_id1,
8958: l_cimv_rec.object1_id2;
8959: IF get_item_info%NOTFOUND THEN
8960: x_return_status := OKL_API.G_RET_STS_ERROR;
8961: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
8962: END IF;
8963: CLOSE get_item_info;
8964: OKL_OKC_MIGRATION_PVT.update_contract_item(p_api_version => p_api_version,
8965: p_init_msg_list => p_init_msg_list,
8967: x_msg_count => x_msg_count,
8968: x_msg_data => x_msg_data,
8969: p_cimv_rec => l_cimv_rec,
8970: x_cimv_rec => lx_cimv_rec);
8971: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8972: x_return_status := OKL_API.G_RET_STS_ERROR;
8973: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
8974: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8975: x_return_status := OKL_API.G_RET_STS_ERROR;
8968: x_msg_data => x_msg_data,
8969: p_cimv_rec => l_cimv_rec,
8970: x_cimv_rec => lx_cimv_rec);
8971: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8972: x_return_status := OKL_API.G_RET_STS_ERROR;
8973: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
8974: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8975: x_return_status := OKL_API.G_RET_STS_ERROR;
8976: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
8969: p_cimv_rec => l_cimv_rec,
8970: x_cimv_rec => lx_cimv_rec);
8971: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8972: x_return_status := OKL_API.G_RET_STS_ERROR;
8973: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
8974: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8975: x_return_status := OKL_API.G_RET_STS_ERROR;
8976: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
8977: END IF;
8970: x_cimv_rec => lx_cimv_rec);
8971: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8972: x_return_status := OKL_API.G_RET_STS_ERROR;
8973: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
8974: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8975: x_return_status := OKL_API.G_RET_STS_ERROR;
8976: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
8977: END IF;
8978: END LOOP;
8971: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8972: x_return_status := OKL_API.G_RET_STS_ERROR;
8973: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
8974: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8975: x_return_status := OKL_API.G_RET_STS_ERROR;
8976: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
8977: END IF;
8978: END LOOP;
8979: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8972: x_return_status := OKL_API.G_RET_STS_ERROR;
8973: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
8974: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8975: x_return_status := OKL_API.G_RET_STS_ERROR;
8976: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
8977: END IF;
8978: END LOOP;
8979: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8980: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8975: x_return_status := OKL_API.G_RET_STS_ERROR;
8976: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
8977: END IF;
8978: END LOOP;
8979: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8980: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8981: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8982: RAISE OKL_API.G_EXCEPTION_ERROR;
8983: END IF;
8976: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
8977: END IF;
8978: END LOOP;
8979: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8980: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8981: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8982: RAISE OKL_API.G_EXCEPTION_ERROR;
8983: END IF;
8984:
8977: END IF;
8978: END LOOP;
8979: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8980: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8981: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8982: RAISE OKL_API.G_EXCEPTION_ERROR;
8983: END IF;
8984:
8985: -- call the asset release api
8978: END LOOP;
8979: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8980: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8981: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8982: RAISE OKL_API.G_EXCEPTION_ERROR;
8983: END IF;
8984:
8985: -- call the asset release api
8986: okl_activate_asset_pub.RELEASE_ASSET
8990: x_msg_count => x_msg_count,
8991: x_msg_data => x_msg_data,
8992: p_rel_chr_id => p_chr_id);
8993:
8994: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
8995: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
8996: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
8997: RAISE Okl_Api.G_EXCEPTION_ERROR;
8998: END IF;
8991: x_msg_data => x_msg_data,
8992: p_rel_chr_id => p_chr_id);
8993:
8994: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
8995: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
8996: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
8997: RAISE Okl_Api.G_EXCEPTION_ERROR;
8998: END IF;
8999:
8992: p_rel_chr_id => p_chr_id);
8993:
8994: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
8995: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
8996: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
8997: RAISE Okl_Api.G_EXCEPTION_ERROR;
8998: END IF;
8999:
9000: --call the install base instance re_lease API
8993:
8994: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
8995: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
8996: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
8997: RAISE Okl_Api.G_EXCEPTION_ERROR;
8998: END IF;
8999:
9000: --call the install base instance re_lease API
9001: okl_activate_ib_pvt.RELEASE_IB_INSTANCE
9005: x_msg_count => x_msg_count,
9006: x_msg_data => x_msg_data,
9007: p_rel_chr_id => p_chr_id);
9008:
9009: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
9010: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
9011: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
9012: RAISE Okl_Api.G_EXCEPTION_ERROR;
9013: END IF;
9006: x_msg_data => x_msg_data,
9007: p_rel_chr_id => p_chr_id);
9008:
9009: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
9010: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
9011: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
9012: RAISE Okl_Api.G_EXCEPTION_ERROR;
9013: END IF;
9014:
9007: p_rel_chr_id => p_chr_id);
9008:
9009: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
9010: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
9011: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
9012: RAISE Okl_Api.G_EXCEPTION_ERROR;
9013: END IF;
9014:
9015: --code added to update status in OKL_ASSET_RETURNS_B
9008:
9009: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
9010: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
9011: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
9012: RAISE Okl_Api.G_EXCEPTION_ERROR;
9013: END IF;
9014:
9015: --code added to update status in OKL_ASSET_RETURNS_B
9016: --after the release asset transaction has been processed
9030: ,x_msg_data => x_msg_data
9031: ,p_artv_rec => l_artv_rec
9032: ,x_artv_rec => lx_artv_rec);
9033:
9034: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
9035: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
9036: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
9037: RAISE Okl_Api.G_EXCEPTION_ERROR;
9038: END IF;
9031: ,p_artv_rec => l_artv_rec
9032: ,x_artv_rec => lx_artv_rec);
9033:
9034: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
9035: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
9036: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
9037: RAISE Okl_Api.G_EXCEPTION_ERROR;
9038: END IF;
9039: END LOOP;
9032: ,x_artv_rec => lx_artv_rec);
9033:
9034: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
9035: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
9036: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
9037: RAISE Okl_Api.G_EXCEPTION_ERROR;
9038: END IF;
9039: END LOOP;
9040: CLOSE l_asr_csr;
9033:
9034: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
9035: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
9036: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
9037: RAISE Okl_Api.G_EXCEPTION_ERROR;
9038: END IF;
9039: END LOOP;
9040: CLOSE l_asr_csr;
9041:
9047: ,x_msg_count => x_msg_count
9048: ,x_msg_data => x_msg_data
9049: ,p_chr_id => p_chr_id);
9050:
9051: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
9052: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
9053: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
9054: RAISE Okl_Api.G_EXCEPTION_ERROR;
9055: END IF;
9048: ,x_msg_data => x_msg_data
9049: ,p_chr_id => p_chr_id);
9050:
9051: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
9052: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
9053: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
9054: RAISE Okl_Api.G_EXCEPTION_ERROR;
9055: END IF;
9056:
9049: ,p_chr_id => p_chr_id);
9050:
9051: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
9052: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
9053: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
9054: RAISE Okl_Api.G_EXCEPTION_ERROR;
9055: END IF;
9056:
9057: -- We need to change the status of the contract
9050:
9051: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
9052: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
9053: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
9054: RAISE Okl_Api.G_EXCEPTION_ERROR;
9055: END IF;
9056:
9057: -- We need to change the status of the contract
9058: OKL_CONTRACT_STATUS_PUB.update_contract_status(
9062: x_msg_count => x_msg_count,
9063: x_msg_data => x_msg_data,
9064: p_khr_status => 'BOOKED',
9065: p_chr_id => p_chr_id);
9066: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9067: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9068: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9069: RAISE OKL_API.G_EXCEPTION_ERROR;
9070: END IF;
9063: x_msg_data => x_msg_data,
9064: p_khr_status => 'BOOKED',
9065: p_chr_id => p_chr_id);
9066: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9067: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9068: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9069: RAISE OKL_API.G_EXCEPTION_ERROR;
9070: END IF;
9071: -- We need to change the status of the Lines for the contract
9064: p_khr_status => 'BOOKED',
9065: p_chr_id => p_chr_id);
9066: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9067: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9068: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9069: RAISE OKL_API.G_EXCEPTION_ERROR;
9070: END IF;
9071: -- We need to change the status of the Lines for the contract
9072: OKL_CONTRACT_STATUS_PUB.cascade_lease_status(
9065: p_chr_id => p_chr_id);
9066: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9067: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9068: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9069: RAISE OKL_API.G_EXCEPTION_ERROR;
9070: END IF;
9071: -- We need to change the status of the Lines for the contract
9072: OKL_CONTRACT_STATUS_PUB.cascade_lease_status(
9073: p_api_version => p_api_version,
9075: x_return_status => x_return_status,
9076: x_msg_count => x_msg_count,
9077: x_msg_data => x_msg_data,
9078: p_chr_id => p_chr_id);
9079: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9080: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9081: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9082: RAISE OKL_API.G_EXCEPTION_ERROR;
9083: END IF;
9076: x_msg_count => x_msg_count,
9077: x_msg_data => x_msg_data,
9078: p_chr_id => p_chr_id);
9079: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9080: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9081: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9082: RAISE OKL_API.G_EXCEPTION_ERROR;
9083: END IF;
9084:
9077: x_msg_data => x_msg_data,
9078: p_chr_id => p_chr_id);
9079: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9080: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9081: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9082: RAISE OKL_API.G_EXCEPTION_ERROR;
9083: END IF;
9084:
9085: -- Set Re-lease Transaction status to 'PROCESSED'
9078: p_chr_id => p_chr_id);
9079: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9080: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9081: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9082: RAISE OKL_API.G_EXCEPTION_ERROR;
9083: END IF;
9084:
9085: -- Set Re-lease Transaction status to 'PROCESSED'
9086: open taa_trx_csr(p_orig_chr_id => ln_orig_system_id1
9101: p_tcnv_rec => l_tcnv_rec,
9102: x_tcnv_rec => l_out_tcnv_rec
9103: );
9104:
9105: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9106: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9107: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9108: RAISE OKL_API.G_EXCEPTION_ERROR;
9109: END IF;
9102: x_tcnv_rec => l_out_tcnv_rec
9103: );
9104:
9105: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9106: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9107: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9108: RAISE OKL_API.G_EXCEPTION_ERROR;
9109: END IF;
9110: end if;
9103: );
9104:
9105: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9106: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9107: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9108: RAISE OKL_API.G_EXCEPTION_ERROR;
9109: END IF;
9110: end if;
9111:
9104:
9105: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9106: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9107: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9108: RAISE OKL_API.G_EXCEPTION_ERROR;
9109: END IF;
9110: end if;
9111:
9112: --Bug# 4072796
9131: x_msg_data => x_msg_data,
9132: p_taav_rec => l_taav_rec,
9133: x_taav_rec => l_out_taav_rec);
9134:
9135: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9136: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9137: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9138: RAISE OKL_API.G_EXCEPTION_ERROR;
9139: END IF;
9132: p_taav_rec => l_taav_rec,
9133: x_taav_rec => l_out_taav_rec);
9134:
9135: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9136: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9137: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9138: RAISE OKL_API.G_EXCEPTION_ERROR;
9139: END IF;
9140: end if;
9133: x_taav_rec => l_out_taav_rec);
9134:
9135: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9136: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9137: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9138: RAISE OKL_API.G_EXCEPTION_ERROR;
9139: END IF;
9140: end if;
9141:
9134:
9135: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9136: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9137: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9138: RAISE OKL_API.G_EXCEPTION_ERROR;
9139: END IF;
9140: end if;
9141:
9142: l_tcnv_rec.id := taa_trx_rec.source_trx_id;
9152: p_tcnv_rec => l_tcnv_rec,
9153: x_tcnv_rec => l_out_tcnv_rec
9154: );
9155:
9156: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9157: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9158: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9159: RAISE OKL_API.G_EXCEPTION_ERROR;
9160: END IF;
9153: x_tcnv_rec => l_out_tcnv_rec
9154: );
9155:
9156: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9157: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9158: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9159: RAISE OKL_API.G_EXCEPTION_ERROR;
9160: END IF;
9161: end if;
9154: );
9155:
9156: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9157: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9158: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9159: RAISE OKL_API.G_EXCEPTION_ERROR;
9160: END IF;
9161: end if;
9162: --rajnisku Bug 6657564 : Added a call to create usage line
9155:
9156: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9157: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
9158: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9159: RAISE OKL_API.G_EXCEPTION_ERROR;
9160: END IF;
9161: end if;
9162: --rajnisku Bug 6657564 : Added a call to create usage line
9163:
9175: END IF;
9176: --rajnisku:End
9177:
9178: ELSE
9179: OKL_API.set_message(p_app_name => G_APP_NAME,
9180: p_msg_name => 'This Contract is not a Re-Lease Contract');
9181: RAISE OKL_API.G_EXCEPTION_ERROR;
9182: END IF;
9183: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
9177:
9178: ELSE
9179: OKL_API.set_message(p_app_name => G_APP_NAME,
9180: p_msg_name => 'This Contract is not a Re-Lease Contract');
9181: RAISE OKL_API.G_EXCEPTION_ERROR;
9182: END IF;
9183: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
9184: x_msg_data => x_msg_data);
9185:
9179: OKL_API.set_message(p_app_name => G_APP_NAME,
9180: p_msg_name => 'This Contract is not a Re-Lease Contract');
9181: RAISE OKL_API.G_EXCEPTION_ERROR;
9182: END IF;
9183: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
9184: x_msg_data => x_msg_data);
9185:
9186: EXCEPTION
9187: when OKL_API.G_EXCEPTION_ERROR then
9183: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
9184: x_msg_data => x_msg_data);
9185:
9186: EXCEPTION
9187: when OKL_API.G_EXCEPTION_ERROR then
9188: IF get_orig_sys_code%ISOPEN THEN
9189: close get_orig_sys_code;
9190: END IF;
9191: IF get_orig_fa%ISOPEN THEN
9196: END IF;
9197: IF get_item_info%ISOPEN THEN
9198: close get_item_info;
9199: END IF;
9200: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
9201: p_api_name => l_api_name,
9202: p_pkg_name => G_PKG_NAME,
9203: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
9204: x_msg_count => x_msg_count,
9199: END IF;
9200: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
9201: p_api_name => l_api_name,
9202: p_pkg_name => G_PKG_NAME,
9203: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
9204: x_msg_count => x_msg_count,
9205: x_msg_data => x_msg_data,
9206: p_api_type => G_API_TYPE);
9207:
9204: x_msg_count => x_msg_count,
9205: x_msg_data => x_msg_data,
9206: p_api_type => G_API_TYPE);
9207:
9208: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
9209: IF get_orig_sys_code%ISOPEN THEN
9210: close get_orig_sys_code;
9211: END IF;
9212: IF get_orig_fa%ISOPEN THEN
9217: END IF;
9218: IF get_item_info%ISOPEN THEN
9219: close get_item_info;
9220: END IF;
9221: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
9222: p_api_name => l_api_name,
9223: p_pkg_name => G_PKG_NAME,
9224: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
9225: x_msg_count => x_msg_count,
9220: END IF;
9221: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
9222: p_api_name => l_api_name,
9223: p_pkg_name => G_PKG_NAME,
9224: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
9225: x_msg_count => x_msg_count,
9226: x_msg_data => x_msg_data,
9227: p_api_type => G_API_TYPE);
9228:
9238: END IF;
9239: IF get_item_info%ISOPEN THEN
9240: close get_item_info;
9241: END IF;
9242: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
9243: p_api_name => l_api_name,
9244: p_pkg_name => G_PKG_NAME,
9245: p_exc_name => 'OTHERS',
9246: x_msg_count => x_msg_count,