[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',
916: where sts.code = cle.sts_code);
917: -- bug 5769216 - End
918:
919: BEGIN
920: x_return_status := OKL_API.G_RET_STS_SUCCESS;
921: -- Call start_activity to create savepoint, check compatibility
922: -- and initialize message list
923: x_return_status := OKL_API.START_ACTIVITY (
924: l_api_name
919: BEGIN
920: x_return_status := OKL_API.G_RET_STS_SUCCESS;
921: -- Call start_activity to create savepoint, check compatibility
922: -- and initialize message list
923: x_return_status := OKL_API.START_ACTIVITY (
924: l_api_name
925: ,p_init_msg_list
926: ,'_PVT'
927: ,x_return_status);
925: ,p_init_msg_list
926: ,'_PVT'
927: ,x_return_status);
928: -- Check if activity started successfully
929: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
930: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
931: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
932: RAISE OKL_API.G_EXCEPTION_ERROR;
933: END IF;
926: ,'_PVT'
927: ,x_return_status);
928: -- Check if activity started successfully
929: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
930: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
931: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
932: RAISE OKL_API.G_EXCEPTION_ERROR;
933: END IF;
934:
927: ,x_return_status);
928: -- Check if activity started successfully
929: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
930: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
931: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
932: RAISE OKL_API.G_EXCEPTION_ERROR;
933: END IF;
934:
935: -- Bug 5769216 -- Start
928: -- Check if activity started successfully
929: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
930: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
931: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
932: RAISE OKL_API.G_EXCEPTION_ERROR;
933: END IF;
934:
935: -- Bug 5769216 -- Start
936: Open top_cle_csr(p_chr_id => p_chrv_rec.id);
955: x_msg_data => x_msg_data,
956: p_clev_rec => l_clev_rec,
957: x_clev_rec => lx_clev_rec);
958: -- check return status
959: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
960: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
961: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
962: RAISE OKL_API.G_EXCEPTION_ERROR;
963: END IF;
956: p_clev_rec => l_clev_rec,
957: x_clev_rec => lx_clev_rec);
958: -- check return status
959: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
960: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
961: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
962: RAISE OKL_API.G_EXCEPTION_ERROR;
963: END IF;
964: End Loop;
957: x_clev_rec => lx_clev_rec);
958: -- check return status
959: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
960: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
961: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
962: RAISE OKL_API.G_EXCEPTION_ERROR;
963: END IF;
964: End Loop;
965: Close Cle_Csr;
958: -- check return status
959: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
960: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
961: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
962: RAISE OKL_API.G_EXCEPTION_ERROR;
963: END IF;
964: End Loop;
965: Close Cle_Csr;
966: End Loop;
977: p_chrv_rec => p_chrv_rec,
978: x_chrv_rec => x_chrv_rec);
979:
980: -- check return status
981: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
982: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
983: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
984: raise OKL_API.G_EXCEPTION_ERROR;
985: End If;
978: x_chrv_rec => x_chrv_rec);
979:
980: -- check return status
981: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
982: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
983: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
984: raise OKL_API.G_EXCEPTION_ERROR;
985: End If;
986:
979:
980: -- check return status
981: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
982: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
983: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
984: raise OKL_API.G_EXCEPTION_ERROR;
985: End If;
986:
987: OKL_KHR_PVT.Update_Row(
980: -- check return status
981: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
982: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
983: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
984: raise OKL_API.G_EXCEPTION_ERROR;
985: End If;
986:
987: OKL_KHR_PVT.Update_Row(
988: p_api_version => p_api_version,
992: x_msg_data => x_msg_data,
993: p_khrv_rec => p_khrv_rec,
994: x_khrv_rec => x_khrv_rec);
995:
996: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
997: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
998: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
999: raise OKL_API.G_EXCEPTION_ERROR;
1000: End If;
993: p_khrv_rec => p_khrv_rec,
994: x_khrv_rec => x_khrv_rec);
995:
996: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
997: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
998: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
999: raise OKL_API.G_EXCEPTION_ERROR;
1000: End If;
1001:
994: x_khrv_rec => x_khrv_rec);
995:
996: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
997: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
998: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
999: raise OKL_API.G_EXCEPTION_ERROR;
1000: End If;
1001:
1002: OKL_API.END_ACTIVITY (x_msg_count,
995:
996: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
997: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
998: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
999: raise OKL_API.G_EXCEPTION_ERROR;
1000: End If;
1001:
1002: OKL_API.END_ACTIVITY (x_msg_count,
1003: x_msg_data );
998: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
999: raise OKL_API.G_EXCEPTION_ERROR;
1000: End If;
1001:
1002: OKL_API.END_ACTIVITY (x_msg_count,
1003: x_msg_data );
1004: EXCEPTION
1005: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1006: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1001:
1002: OKL_API.END_ACTIVITY (x_msg_count,
1003: x_msg_data );
1004: EXCEPTION
1005: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1006: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1007: l_api_name,
1008: G_PKG_NAME,
1009: 'OKL_API.G_RET_STS_ERROR',
1002: OKL_API.END_ACTIVITY (x_msg_count,
1003: x_msg_data );
1004: EXCEPTION
1005: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1006: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1007: l_api_name,
1008: G_PKG_NAME,
1009: 'OKL_API.G_RET_STS_ERROR',
1010: x_msg_count,
1005: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1006: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1007: l_api_name,
1008: G_PKG_NAME,
1009: 'OKL_API.G_RET_STS_ERROR',
1010: x_msg_count,
1011: x_msg_data,
1012: '_PVT');
1013: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1009: 'OKL_API.G_RET_STS_ERROR',
1010: x_msg_count,
1011: x_msg_data,
1012: '_PVT');
1013: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1014: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
1015: l_api_name,
1016: G_PKG_NAME,
1017: 'OKL_API.G_RET_STS_UNEXP_ERROR',
1010: x_msg_count,
1011: x_msg_data,
1012: '_PVT');
1013: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1014: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
1015: l_api_name,
1016: G_PKG_NAME,
1017: 'OKL_API.G_RET_STS_UNEXP_ERROR',
1018: x_msg_count,
1013: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1014: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
1015: l_api_name,
1016: G_PKG_NAME,
1017: 'OKL_API.G_RET_STS_UNEXP_ERROR',
1018: x_msg_count,
1019: x_msg_data,
1020: '_PVT');
1021: WHEN OTHERS THEN
1018: x_msg_count,
1019: x_msg_data,
1020: '_PVT');
1021: WHEN OTHERS THEN
1022: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
1023: l_api_name,
1024: G_PKG_NAME,
1025: 'OTHERS',
1026: x_msg_count,
1036: -- Parameters :
1037: -- Version :
1038: -- End of Commnets
1039: PROCEDURE l_copy_contract(p_api_version IN NUMBER,
1040: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
1041: x_return_status OUT NOCOPY VARCHAR2,
1042: x_msg_count OUT NOCOPY NUMBER,
1043: x_msg_data OUT NOCOPY VARCHAR2,
1044: p_commit IN VARCHAR2 DEFAULT 'F',
1089: lp_larles_rulv_rec Okl_Rule_Pub.rulv_rec_type;
1090: lx_larles_rulv_rec Okl_Rule_Pub.rulv_rec_type;
1091:
1092: BEGIN
1093: x_return_status := OKL_API.G_RET_STS_SUCCESS;
1094: -- Call start_activity to create savepoint, check compatibility
1095: -- and initialize message list
1096: x_return_status := OKL_API.START_ACTIVITY (
1097: l_api_name
1092: BEGIN
1093: x_return_status := OKL_API.G_RET_STS_SUCCESS;
1094: -- Call start_activity to create savepoint, check compatibility
1095: -- and initialize message list
1096: x_return_status := OKL_API.START_ACTIVITY (
1097: l_api_name
1098: ,p_init_msg_list
1099: ,'_PVT'
1100: ,x_return_status);
1098: ,p_init_msg_list
1099: ,'_PVT'
1100: ,x_return_status);
1101: -- Check if activity started successfully
1102: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1103: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1104: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1105: RAISE OKL_API.G_EXCEPTION_ERROR;
1106: END IF;
1099: ,'_PVT'
1100: ,x_return_status);
1101: -- Check if activity started successfully
1102: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1103: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1104: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1105: RAISE OKL_API.G_EXCEPTION_ERROR;
1106: END IF;
1107: -- TO copy the Copy the contract first
1100: ,x_return_status);
1101: -- Check if activity started successfully
1102: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1103: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1104: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1105: RAISE OKL_API.G_EXCEPTION_ERROR;
1106: END IF;
1107: -- TO copy the Copy the contract first
1108: OKL_COPY_CONTRACT_PUB.copy_lease_contract_new(
1101: -- Check if activity started successfully
1102: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1103: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1104: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1105: RAISE OKL_API.G_EXCEPTION_ERROR;
1106: END IF;
1107: -- TO copy the Copy the contract first
1108: OKL_COPY_CONTRACT_PUB.copy_lease_contract_new(
1109: p_api_version => p_api_version,
1110: p_init_msg_list => p_init_msg_list,
1111: x_return_status => x_return_status,
1112: x_msg_count => x_msg_count,
1113: x_msg_data => x_msg_data,
1114: p_commit => OKL_API.G_FALSE,
1115: p_chr_id => p_old_chr_id,
1116: p_contract_number => p_new_contract_number,
1117: p_contract_number_modifier => null,
1118: p_to_template_yn => 'N',
1120: p_copy_lines_yn => 'Y',
1121: p_override_org => 'N',
1122: p_trans_type => 'CRL',
1123: x_chr_id => ln_new_chr_id);
1124: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1125: OKL_API.set_message(p_app_name => G_APP_NAME,
1126: p_msg_name => G_COPY_HEADER);
1127: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1128: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1121: p_override_org => 'N',
1122: p_trans_type => 'CRL',
1123: x_chr_id => ln_new_chr_id);
1124: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1125: OKL_API.set_message(p_app_name => G_APP_NAME,
1126: p_msg_name => G_COPY_HEADER);
1127: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1128: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1129: OKL_API.set_message(p_app_name => G_APP_NAME,
1123: x_chr_id => ln_new_chr_id);
1124: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1125: OKL_API.set_message(p_app_name => G_APP_NAME,
1126: p_msg_name => G_COPY_HEADER);
1127: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1128: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1129: OKL_API.set_message(p_app_name => G_APP_NAME,
1130: p_msg_name => G_COPY_HEADER);
1131: RAISE OKL_API.G_EXCEPTION_ERROR;
1124: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1125: OKL_API.set_message(p_app_name => G_APP_NAME,
1126: p_msg_name => G_COPY_HEADER);
1127: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1128: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1129: OKL_API.set_message(p_app_name => G_APP_NAME,
1130: p_msg_name => G_COPY_HEADER);
1131: RAISE OKL_API.G_EXCEPTION_ERROR;
1132: END IF;
1125: OKL_API.set_message(p_app_name => G_APP_NAME,
1126: p_msg_name => G_COPY_HEADER);
1127: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1128: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1129: OKL_API.set_message(p_app_name => G_APP_NAME,
1130: p_msg_name => G_COPY_HEADER);
1131: RAISE OKL_API.G_EXCEPTION_ERROR;
1132: END IF;
1133:
1127: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1128: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1129: OKL_API.set_message(p_app_name => G_APP_NAME,
1130: p_msg_name => G_COPY_HEADER);
1131: RAISE OKL_API.G_EXCEPTION_ERROR;
1132: END IF;
1133:
1134: okc_context.set_okc_org_context(p_chr_id => ln_new_chr_id);
1135:
1147: p_init_msg_list => p_init_msg_list,
1148: x_return_status => x_return_status,
1149: x_msg_count => x_msg_count,
1150: x_msg_data => x_msg_data,
1151: p_restricted_update => OKL_API.G_FALSE,
1152: p_chrv_rec => l_chrv_rec,
1153: p_khrv_rec => l_khrv_rec,
1154: x_chrv_rec => x_new_chrv_rec,
1155: x_khrv_rec => x_new_khrv_rec);
1152: p_chrv_rec => l_chrv_rec,
1153: p_khrv_rec => l_khrv_rec,
1154: x_chrv_rec => x_new_chrv_rec,
1155: x_khrv_rec => x_new_khrv_rec);
1156: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1157: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1158: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1159: RAISE OKL_API.G_EXCEPTION_ERROR;
1160: END IF;
1153: p_khrv_rec => l_khrv_rec,
1154: x_chrv_rec => x_new_chrv_rec,
1155: x_khrv_rec => x_new_khrv_rec);
1156: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1157: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1158: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1159: RAISE OKL_API.G_EXCEPTION_ERROR;
1160: END IF;
1161:
1154: x_chrv_rec => x_new_chrv_rec,
1155: x_khrv_rec => x_new_khrv_rec);
1156: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1157: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1158: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1159: RAISE OKL_API.G_EXCEPTION_ERROR;
1160: END IF;
1161:
1162: -- Set Re-lease Asset flag to 'Y'
1155: x_khrv_rec => x_new_khrv_rec);
1156: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1157: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1158: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1159: RAISE OKL_API.G_EXCEPTION_ERROR;
1160: END IF;
1161:
1162: -- Set Re-lease Asset flag to 'Y'
1163: open larles_csr(p_chr_id => x_new_chrv_rec.id);
1178: x_msg_data => x_msg_data,
1179: p_rgpv_rec => lp_larles_rgpv_rec,
1180: x_rgpv_rec => lx_larles_rgpv_rec);
1181:
1182: If (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
1183: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1184: Elsif (x_return_status = OKL_API.G_RET_STS_ERROR) then
1185: raise OKL_API.G_EXCEPTION_ERROR;
1186: End If;
1179: p_rgpv_rec => lp_larles_rgpv_rec,
1180: x_rgpv_rec => lx_larles_rgpv_rec);
1181:
1182: If (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
1183: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1184: Elsif (x_return_status = OKL_API.G_RET_STS_ERROR) then
1185: raise OKL_API.G_EXCEPTION_ERROR;
1186: End If;
1187:
1180: x_rgpv_rec => lx_larles_rgpv_rec);
1181:
1182: If (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
1183: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1184: Elsif (x_return_status = OKL_API.G_RET_STS_ERROR) then
1185: raise OKL_API.G_EXCEPTION_ERROR;
1186: End If;
1187:
1188: lp_larles_rulv_rec.id := null;
1181:
1182: If (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
1183: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1184: Elsif (x_return_status = OKL_API.G_RET_STS_ERROR) then
1185: raise OKL_API.G_EXCEPTION_ERROR;
1186: End If;
1187:
1188: lp_larles_rulv_rec.id := null;
1189: lp_larles_rulv_rec.rgp_id := lx_larles_rgpv_rec.id;
1201: x_msg_data => x_msg_data,
1202: p_rulv_rec => lp_larles_rulv_rec,
1203: x_rulv_rec => lx_larles_rulv_rec);
1204:
1205: If (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
1206: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1207: Elsif (x_return_status = OKL_API.G_RET_STS_ERROR) then
1208: raise OKL_API.G_EXCEPTION_ERROR;
1209: End If;
1202: p_rulv_rec => lp_larles_rulv_rec,
1203: x_rulv_rec => lx_larles_rulv_rec);
1204:
1205: If (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
1206: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1207: Elsif (x_return_status = OKL_API.G_RET_STS_ERROR) then
1208: raise OKL_API.G_EXCEPTION_ERROR;
1209: End If;
1210:
1203: x_rulv_rec => lx_larles_rulv_rec);
1204:
1205: If (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
1206: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1207: Elsif (x_return_status = OKL_API.G_RET_STS_ERROR) then
1208: raise OKL_API.G_EXCEPTION_ERROR;
1209: End If;
1210:
1211: else
1204:
1205: If (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
1206: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1207: Elsif (x_return_status = OKL_API.G_RET_STS_ERROR) then
1208: raise OKL_API.G_EXCEPTION_ERROR;
1209: End If;
1210:
1211: else
1212: if larles_rec.rule_information1 <> 'Y' then
1227: x_msg_data => x_msg_data,
1228: p_rulv_rec => lp_larles_rulv_rec,
1229: x_rulv_rec => lx_larles_rulv_rec);
1230:
1231: If (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
1232: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1233: Elsif (x_return_status = OKL_API.G_RET_STS_ERROR) then
1234: raise OKL_API.G_EXCEPTION_ERROR;
1235: End If;
1228: p_rulv_rec => lp_larles_rulv_rec,
1229: x_rulv_rec => lx_larles_rulv_rec);
1230:
1231: If (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
1232: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1233: Elsif (x_return_status = OKL_API.G_RET_STS_ERROR) then
1234: raise OKL_API.G_EXCEPTION_ERROR;
1235: End If;
1236: end if;
1229: x_rulv_rec => lx_larles_rulv_rec);
1230:
1231: If (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
1232: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1233: Elsif (x_return_status = OKL_API.G_RET_STS_ERROR) then
1234: raise OKL_API.G_EXCEPTION_ERROR;
1235: End If;
1236: end if;
1237: end if;
1230:
1231: If (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
1232: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1233: Elsif (x_return_status = OKL_API.G_RET_STS_ERROR) then
1234: raise OKL_API.G_EXCEPTION_ERROR;
1235: End If;
1236: end if;
1237: end if;
1238:
1235: End If;
1236: end if;
1237: end if;
1238:
1239: OKL_API.END_ACTIVITY (x_msg_count,
1240: x_msg_data );
1241: EXCEPTION
1242: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1243: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1238:
1239: OKL_API.END_ACTIVITY (x_msg_count,
1240: x_msg_data );
1241: EXCEPTION
1242: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1243: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1244: l_api_name,
1245: G_PKG_NAME,
1246: 'OKL_API.G_RET_STS_ERROR',
1239: OKL_API.END_ACTIVITY (x_msg_count,
1240: x_msg_data );
1241: EXCEPTION
1242: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1243: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1244: l_api_name,
1245: G_PKG_NAME,
1246: 'OKL_API.G_RET_STS_ERROR',
1247: x_msg_count,
1242: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1243: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1244: l_api_name,
1245: G_PKG_NAME,
1246: 'OKL_API.G_RET_STS_ERROR',
1247: x_msg_count,
1248: x_msg_data,
1249: '_PVT');
1250: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1246: 'OKL_API.G_RET_STS_ERROR',
1247: x_msg_count,
1248: x_msg_data,
1249: '_PVT');
1250: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1251: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
1252: l_api_name,
1253: G_PKG_NAME,
1254: 'OKL_API.G_RET_STS_UNEXP_ERROR',
1247: x_msg_count,
1248: x_msg_data,
1249: '_PVT');
1250: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1251: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
1252: l_api_name,
1253: G_PKG_NAME,
1254: 'OKL_API.G_RET_STS_UNEXP_ERROR',
1255: x_msg_count,
1250: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1251: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
1252: l_api_name,
1253: G_PKG_NAME,
1254: 'OKL_API.G_RET_STS_UNEXP_ERROR',
1255: x_msg_count,
1256: x_msg_data,
1257: '_PVT');
1258: WHEN OTHERS THEN
1255: x_msg_count,
1256: x_msg_data,
1257: '_PVT');
1258: WHEN OTHERS THEN
1259: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
1260: l_api_name,
1261: G_PKG_NAME,
1262: 'OTHERS',
1263: x_msg_count,
1264: x_msg_data,
1265: '_PVT');
1266: END l_copy_contract;
1267: -----------------------------------------------------------------------------------------------------------------------
1268: FUNCTION get_k_tls_asset(p_dnz_chr_id IN OKC_K_LINES_B.DNZ_CHR_ID%TYPE DEFAULT OKL_API.G_MISS_NUM,
1269: x_top_line_tbl OUT NOCOPY g_top_line_tbl,
1270: x_asset_num_tbl OUT NOCOPY g_asset_num_tbl)
1271: RETURN VARCHAR2 IS
1272: x_return_status VARCHAR2(3) := OKL_API.G_RET_STS_SUCCESS;
1268: FUNCTION get_k_tls_asset(p_dnz_chr_id IN OKC_K_LINES_B.DNZ_CHR_ID%TYPE DEFAULT OKL_API.G_MISS_NUM,
1269: x_top_line_tbl OUT NOCOPY g_top_line_tbl,
1270: x_asset_num_tbl OUT NOCOPY g_asset_num_tbl)
1271: RETURN VARCHAR2 IS
1272: x_return_status VARCHAR2(3) := OKL_API.G_RET_STS_SUCCESS;
1273: i NUMBER := 0;
1274: j NUMBER := 0;
1275:
1276: CURSOR c_get_old_k_top_line(p_dnz_chr_id OKC_K_LINES_B.DNZ_CHR_ID%TYPE) IS
1309:
1310: BEGIN
1311: -- Getting the TOP Line STS CODE
1312: IF (p_dnz_chr_id IS NOT NULL OR
1313: p_dnz_chr_id <> OKL_API.G_MISS_NUM) THEN
1314: -- Getting the all the top lines
1315: FOR r_get_old_k_top_line IN c_get_old_k_top_line(p_dnz_chr_id) LOOP
1316: x_top_line_tbl(i) := r_get_old_k_top_line.top_line;
1317: IF c_get_old_k_top_line%NOTFOUND THEN
1315: FOR r_get_old_k_top_line IN c_get_old_k_top_line(p_dnz_chr_id) LOOP
1316: x_top_line_tbl(i) := r_get_old_k_top_line.top_line;
1317: IF c_get_old_k_top_line%NOTFOUND THEN
1318: -- store SQL error message on message stack
1319: OKL_API.set_message(p_app_name => G_APP_NAME,
1320: p_msg_name => G_NO_MATCHING_RECORD,
1321: p_token1 => G_COL_NAME_TOKEN,
1322: p_token1_value => 'dnz_chr_id');
1323: x_return_status := OKL_API.G_RET_STS_ERROR;
1319: OKL_API.set_message(p_app_name => G_APP_NAME,
1320: p_msg_name => G_NO_MATCHING_RECORD,
1321: p_token1 => G_COL_NAME_TOKEN,
1322: p_token1_value => 'dnz_chr_id');
1323: x_return_status := OKL_API.G_RET_STS_ERROR;
1324: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
1325: END IF;
1326: i := i + 1;
1327: END LOOP;
1320: p_msg_name => G_NO_MATCHING_RECORD,
1321: p_token1 => G_COL_NAME_TOKEN,
1322: p_token1_value => 'dnz_chr_id');
1323: x_return_status := OKL_API.G_RET_STS_ERROR;
1324: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
1325: END IF;
1326: i := i + 1;
1327: END LOOP;
1328: IF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1324: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
1325: END IF;
1326: i := i + 1;
1327: END LOOP;
1328: IF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1329: RAISE G_EXCEPTION_HALT_VALIDATION;
1330: END IF;
1331: -- Getting the all the asset number
1332: FOR r_get_old_k_asset IN c_get_old_k_asset(p_dnz_chr_id) LOOP
1332: FOR r_get_old_k_asset IN c_get_old_k_asset(p_dnz_chr_id) LOOP
1333: x_asset_num_tbl(j) := r_get_old_k_asset.asset_number;
1334: IF c_get_old_k_asset%NOTFOUND THEN
1335: -- store SQL error message on message stack
1336: OKL_API.set_message(p_app_name => G_APP_NAME,
1337: p_msg_name => G_NO_MATCHING_RECORD,
1338: p_token1 => G_COL_NAME_TOKEN,
1339: p_token1_value => 'Asset Number');
1340: x_return_status := OKL_API.G_RET_STS_ERROR;
1336: OKL_API.set_message(p_app_name => G_APP_NAME,
1337: p_msg_name => G_NO_MATCHING_RECORD,
1338: p_token1 => G_COL_NAME_TOKEN,
1339: p_token1_value => 'Asset Number');
1340: x_return_status := OKL_API.G_RET_STS_ERROR;
1341: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
1342: END IF;
1343: j := j + 1;
1344: END LOOP;
1337: p_msg_name => G_NO_MATCHING_RECORD,
1338: p_token1 => G_COL_NAME_TOKEN,
1339: p_token1_value => 'Asset Number');
1340: x_return_status := OKL_API.G_RET_STS_ERROR;
1341: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
1342: END IF;
1343: j := j + 1;
1344: END LOOP;
1345: IF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1341: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
1342: END IF;
1343: j := j + 1;
1344: END LOOP;
1345: IF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1346: RAISE G_EXCEPTION_HALT_VALIDATION;
1347: END IF;
1348: -- Check we got any record
1349: IF x_top_line_tbl.count = 0 THEN
1347: END IF;
1348: -- Check we got any record
1349: IF x_top_line_tbl.count = 0 THEN
1350: -- store SQL error message on message stack
1351: OKL_API.set_message(p_app_name => G_APP_NAME,
1352: p_msg_name => G_NO_MATCHING_RECORD,
1353: p_token1 => G_COL_NAME_TOKEN,
1354: p_token1_value => 'Top Line id');
1355: RAISE G_EXCEPTION_HALT_VALIDATION;
1355: RAISE G_EXCEPTION_HALT_VALIDATION;
1356: END IF;
1357: IF x_asset_num_tbl.count = 0 THEN
1358: -- store SQL error message on message stack
1359: OKL_API.set_message(p_app_name => G_APP_NAME,
1360: p_msg_name => G_NO_MATCHING_RECORD,
1361: p_token1 => G_COL_NAME_TOKEN,
1362: p_token1_value => 'Asset Number');
1363: RAISE G_EXCEPTION_HALT_VALIDATION;
1364: END IF;
1365: ELSE
1366: -- store SQL error message on message stack
1367: -- Notify Error
1368: OKL_API.set_message(p_app_name => G_APP_NAME,
1369: p_msg_name => G_REQUIRED_VALUE,
1370: p_token1 => G_COL_NAME_TOKEN,
1371: p_token1_value => 'Dnz_chr_id');
1372: RAISE G_EXCEPTION_STOP_VALIDATION;
1383: IF c_get_old_k_asset%ISOPEN THEN
1384: CLOSE c_get_old_k_asset;
1385: END IF;
1386: -- notify caller of an error
1387: x_return_status := OKL_API.G_RET_STS_ERROR;
1388: RETURN(x_return_status);
1389: WHEN OTHERS THEN
1390: -- store SQL error message on message stack for caller
1391: OKL_API.set_message(
1387: x_return_status := OKL_API.G_RET_STS_ERROR;
1388: RETURN(x_return_status);
1389: WHEN OTHERS THEN
1390: -- store SQL error message on message stack for caller
1391: OKL_API.set_message(
1392: G_APP_NAME,
1393: G_UNEXPECTED_ERROR,
1394: G_SQLCODE_TOKEN,
1395: SQLCODE,
1395: SQLCODE,
1396: G_SQLERRM_TOKEN,
1397: SQLERRM);
1398: -- notify caller of an UNEXPECTED error
1399: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
1400: IF c_get_old_k_top_line%ISOPEN THEN
1401: CLOSE c_get_old_k_top_line;
1402: END IF;
1403: -- if the cursor is open
1429: i NUMBER := 0;
1430: j NUMBER := 0;
1431: ln_top_present NUMBER := 0;
1432: ln_asset_present NUMBER := 0;
1433: x_return_status VARCHAR2(3) := OKL_API.G_RET_STS_SUCCESS;
1434: CURSOR c_validate_top_line(p_cle_id OKC_K_LINES_V.ID%TYPE) IS
1435: SELECT 1
1436: FROM DUAL
1437: WHERE EXISTS (SELECT '1'
1449: AND line_status not in ('EXPIRED','TERMINATED','ABANDONED'));
1450:
1451: BEGIN
1452: -- data is required
1453: IF (p_dnz_chr_id = OKL_API.G_MISS_NUM) OR
1454: (p_dnz_chr_id IS NULL) THEN
1455: -- halt validation
1456: RAISE G_EXCEPTION_HALT_VALIDATION;
1457: END IF;
1457: END IF;
1458: x_return_status := get_k_tls_asset(p_dnz_chr_id => p_dnz_chr_id,
1459: x_top_line_tbl => lt_top_line_tbl,
1460: x_asset_num_tbl => lt_asset_num_tbl);
1461: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1462: RAISE G_EXCEPTION_HALT_VALIDATION;
1463: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1464: RAISE G_EXCEPTION_HALT_VALIDATION;
1465: END IF;
1459: x_top_line_tbl => lt_top_line_tbl,
1460: x_asset_num_tbl => lt_asset_num_tbl);
1461: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1462: RAISE G_EXCEPTION_HALT_VALIDATION;
1463: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1464: RAISE G_EXCEPTION_HALT_VALIDATION;
1465: END IF;
1466: IF (lt_top_line_tbl.COUNT > 0) THEN
1467: i := lt_top_line_tbl.FIRST;
1467: i := lt_top_line_tbl.FIRST;
1468: LOOP
1469: OPEN c_validate_top_line(lt_top_line_tbl(i));
1470: IF c_validate_top_line%NOTFOUND THEN
1471: OKL_API.set_message(p_app_name => G_APP_NAME,
1472: p_msg_name => G_NO_MATCHING_RECORD,
1473: p_token1 => G_COL_NAME_TOKEN,
1474: p_token1_value => 'Top Line for Contract Number');
1475: x_return_status := OKL_API.G_RET_STS_ERROR;
1471: OKL_API.set_message(p_app_name => G_APP_NAME,
1472: p_msg_name => G_NO_MATCHING_RECORD,
1473: p_token1 => G_COL_NAME_TOKEN,
1474: p_token1_value => 'Top Line for Contract Number');
1475: x_return_status := OKL_API.G_RET_STS_ERROR;
1476: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
1477: END IF;
1478: FETCH c_validate_top_line INTO ln_top_present;
1479: CLOSE c_validate_top_line;
1472: p_msg_name => G_NO_MATCHING_RECORD,
1473: p_token1 => G_COL_NAME_TOKEN,
1474: p_token1_value => 'Top Line for Contract Number');
1475: x_return_status := OKL_API.G_RET_STS_ERROR;
1476: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
1477: END IF;
1478: FETCH c_validate_top_line INTO ln_top_present;
1479: CLOSE c_validate_top_line;
1480: EXIT WHEN (ln_top_present = null);
1481: EXIT WHEN (i = lt_top_line_tbl.LAST);
1482: i := lt_top_line_tbl.NEXT(i);
1483: END LOOP;
1484: END IF;
1485: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1486: RAISE G_EXCEPTION_HALT_VALIDATION;
1487: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1488: RAISE G_EXCEPTION_HALT_VALIDATION;
1489: END IF;
1483: END LOOP;
1484: END IF;
1485: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1486: RAISE G_EXCEPTION_HALT_VALIDATION;
1487: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1488: RAISE G_EXCEPTION_HALT_VALIDATION;
1489: END IF;
1490:
1491: IF (lt_asset_num_tbl.COUNT > 0) THEN
1492: j := lt_asset_num_tbl.FIRST;
1493: LOOP
1494: OPEN c_validate_asset_number(lt_asset_num_tbl(j));
1495: IF c_validate_asset_number%NOTFOUND THEN
1496: OKL_API.set_message(p_app_name => G_APP_NAME,
1497: p_msg_name => G_NO_MATCHING_RECORD,
1498: p_token1 => G_COL_NAME_TOKEN,
1499: p_token1_value => 'Asset Number');
1500: x_return_status := OKL_API.G_RET_STS_ERROR;
1496: OKL_API.set_message(p_app_name => G_APP_NAME,
1497: p_msg_name => G_NO_MATCHING_RECORD,
1498: p_token1 => G_COL_NAME_TOKEN,
1499: p_token1_value => 'Asset Number');
1500: x_return_status := OKL_API.G_RET_STS_ERROR;
1501: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
1502: END IF;
1503: FETCH c_validate_asset_number INTO ln_asset_present;
1504: CLOSE c_validate_asset_number;
1497: p_msg_name => G_NO_MATCHING_RECORD,
1498: p_token1 => G_COL_NAME_TOKEN,
1499: p_token1_value => 'Asset Number');
1500: x_return_status := OKL_API.G_RET_STS_ERROR;
1501: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
1502: END IF;
1503: FETCH c_validate_asset_number INTO ln_asset_present;
1504: CLOSE c_validate_asset_number;
1505: EXIT WHEN (ln_asset_present <> null);
1506: EXIT WHEN (j = lt_asset_num_tbl.LAST);
1507: j := lt_asset_num_tbl.NEXT(j);
1508: END LOOP;
1509: END IF;
1510: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1511: RAISE G_EXCEPTION_HALT_VALIDATION;
1512: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1513: RAISE G_EXCEPTION_HALT_VALIDATION;
1514: END IF;
1508: END LOOP;
1509: END IF;
1510: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1511: RAISE G_EXCEPTION_HALT_VALIDATION;
1512: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1513: RAISE G_EXCEPTION_HALT_VALIDATION;
1514: END IF;
1515: IF ln_asset_present IS NOT NULL AND
1516: ln_top_present IS NULL THEN
1523: EXCEPTION
1524: WHEN G_EXCEPTION_HALT_VALIDATION then
1525: -- We are here b'cause we have no parent record
1526: -- store SQL error message on message stack
1527: OKL_API.set_message(p_app_name => G_APP_NAME,
1528: p_msg_name => G_NO_MATCHING_RECORD,
1529: p_token1 => G_COL_NAME_TOKEN,
1530: p_token1_value => 'Cle_id');
1531: -- If the cursor is open then it has to be closed
1535: IF c_validate_top_line%ISOPEN THEN
1536: CLOSE c_validate_top_line;
1537: END IF;
1538: -- notify caller of an error
1539: x_return_status := OKL_API.G_RET_STS_ERROR;
1540: RETURN(x_return_status);
1541: WHEN OTHERS THEN
1542: -- store SQL error message on message stack
1543: OKL_API.SET_MESSAGE(p_app_name => G_APP_NAME,
1539: x_return_status := OKL_API.G_RET_STS_ERROR;
1540: RETURN(x_return_status);
1541: WHEN OTHERS THEN
1542: -- store SQL error message on message stack
1543: OKL_API.SET_MESSAGE(p_app_name => G_APP_NAME,
1544: p_msg_name => G_UNEXPECTED_ERROR,
1545: p_token1 => G_SQLCODE_TOKEN,
1546: p_token1_value => SQLCODE,
1547: p_token2 => G_SQLERRM_TOKEN,
1553: IF c_validate_top_line%ISOPEN THEN
1554: CLOSE c_validate_top_line;
1555: END IF;
1556: -- notify caller of an error as UNEXPETED error
1557: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
1558: RETURN(x_return_status);
1559: END validate_assets_offlease;
1560:
1561: -----------------------------------------------------------------------------------------------
1588: p_source_trx_id IN NUMBER,
1589: p_source_trx_type IN VARCHAR2,
1590: x_tcnv_rec OUT NOCOPY tcnv_rec_type) IS
1591:
1592: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1593: l_api_name CONSTANT VARCHAR2(30) := 'CREATE_RELEASE_TRANSACTION';
1594: l_api_version CONSTANT NUMBER := 1.0;
1595:
1596: CURSOR con_header_csr (p_chr_id OKC_K_HEADERS_B.ID%TYPE) IS
1621: l_cntrct_number OKC_K_HEADERS_B.CONTRACT_NUMBER%TYPE;
1622: l_legal_entity_id NUMBER;
1623:
1624: BEGIN
1625: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
1626: -- Call start_activity to create savepoint, check compatibility
1627: -- and initialize message list
1628: l_return_status := Okl_Api.START_ACTIVITY(
1629: p_api_name => l_api_name,
1624: BEGIN
1625: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
1626: -- Call start_activity to create savepoint, check compatibility
1627: -- and initialize message list
1628: l_return_status := Okl_Api.START_ACTIVITY(
1629: p_api_name => l_api_name,
1630: p_pkg_name => g_pkg_name,
1631: p_init_msg_list => p_init_msg_list,
1632: l_api_version => l_api_version,
1633: p_api_version => p_api_version,
1634: p_api_type => '_PVT',
1635: x_return_status => x_return_status);
1636: -- Check if activity started successfully
1637: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1638: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1639: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1640: RAISE Okl_Api.G_EXCEPTION_ERROR;
1641: END IF;
1634: p_api_type => '_PVT',
1635: x_return_status => x_return_status);
1636: -- Check if activity started successfully
1637: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1638: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1639: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1640: RAISE Okl_Api.G_EXCEPTION_ERROR;
1641: END IF;
1642:
1635: x_return_status => x_return_status);
1636: -- Check if activity started successfully
1637: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1638: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1639: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1640: RAISE Okl_Api.G_EXCEPTION_ERROR;
1641: END IF;
1642:
1643: -- Validate Re-lease Reason Code
1636: -- Check if activity started successfully
1637: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1638: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1639: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1640: RAISE Okl_Api.G_EXCEPTION_ERROR;
1641: END IF;
1642:
1643: -- Validate Re-lease Reason Code
1644: IF p_reason_code NOT IN ('CUSTOMER_CHANGE','PRODUCT_CHANGE') THEN
1641: END IF;
1642:
1643: -- Validate Re-lease Reason Code
1644: IF p_reason_code NOT IN ('CUSTOMER_CHANGE','PRODUCT_CHANGE') THEN
1645: OKL_API.SET_MESSAGE(G_APP_NAME,
1646: 'OKL_LA_REV_RELCODE');
1647: RAISE OKL_API.G_EXCEPTION_ERROR;
1648: END IF;
1649:
1643: -- Validate Re-lease Reason Code
1644: IF p_reason_code NOT IN ('CUSTOMER_CHANGE','PRODUCT_CHANGE') THEN
1645: OKL_API.SET_MESSAGE(G_APP_NAME,
1646: 'OKL_LA_REV_RELCODE');
1647: RAISE OKL_API.G_EXCEPTION_ERROR;
1648: END IF;
1649:
1650: OPEN con_header_csr(p_chr_id);
1651: FETCH con_header_csr INTO l_currency_code,
1656: OPEN try_csr (p_trx_type_name => 'Release');
1657: FETCH try_csr INTO l_try_id;
1658: IF try_csr%NOTFOUND THEN
1659: CLOSE try_csr;
1660: OKL_API.SET_MESSAGE(G_APP_NAME,
1661: 'OKL_LA_NO_TRY',
1662: 'TRX_TYPE',
1663: 'Release'
1664: );
1661: 'OKL_LA_NO_TRY',
1662: 'TRX_TYPE',
1663: 'Release'
1664: );
1665: RAISE OKL_API.G_EXCEPTION_ERROR;
1666: END IF;
1667: CLOSE try_csr;
1668:
1669: l_tcnv_rec.try_id := l_try_id;
1690: -- get the contract number
1691: OPEN contract_num_csr(p_chr_id);
1692: FETCH contract_num_csr INTO l_cntrct_number;
1693: CLOSE contract_num_csr;
1694: Okl_Api.set_message(p_app_name => g_app_name,
1695: p_msg_name => 'OKL_LE_NOT_EXIST_CNTRCT',
1696: p_token1 => 'CONTRACT_NUMBER',
1697: p_token1_value => l_cntrct_number);
1698: RAISE OKL_API.G_EXCEPTION_ERROR;
1694: Okl_Api.set_message(p_app_name => g_app_name,
1695: p_msg_name => 'OKL_LE_NOT_EXIST_CNTRCT',
1696: p_token1 => 'CONTRACT_NUMBER',
1697: p_token1_value => l_cntrct_number);
1698: RAISE OKL_API.G_EXCEPTION_ERROR;
1699: END IF;
1700: okl_trx_contracts_pub.create_trx_contracts
1701: (p_api_version => p_api_version,
1702: p_init_msg_list => p_init_msg_list,
1706: p_tcnv_rec => l_tcnv_rec,
1707: x_tcnv_rec => l_out_tcnv_rec
1708: );
1709:
1710: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1711: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1712: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1713: RAISE OKL_API.G_EXCEPTION_ERROR;
1714: END IF;
1707: x_tcnv_rec => l_out_tcnv_rec
1708: );
1709:
1710: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1711: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1712: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1713: RAISE OKL_API.G_EXCEPTION_ERROR;
1714: END IF;
1715:
1708: );
1709:
1710: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1711: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1712: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1713: RAISE OKL_API.G_EXCEPTION_ERROR;
1714: END IF;
1715:
1716: x_tcnv_rec := l_out_tcnv_rec;
1709:
1710: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1711: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1712: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1713: RAISE OKL_API.G_EXCEPTION_ERROR;
1714: END IF;
1715:
1716: x_tcnv_rec := l_out_tcnv_rec;
1717:
1714: END IF;
1715:
1716: x_tcnv_rec := l_out_tcnv_rec;
1717:
1718: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
1719: x_msg_data => x_msg_data);
1720:
1721: EXCEPTION
1722: when OKL_API.G_EXCEPTION_ERROR then
1718: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
1719: x_msg_data => x_msg_data);
1720:
1721: EXCEPTION
1722: when OKL_API.G_EXCEPTION_ERROR then
1723:
1724: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1725: p_api_name => l_api_name,
1726: p_pkg_name => G_PKG_NAME,
1720:
1721: EXCEPTION
1722: when OKL_API.G_EXCEPTION_ERROR then
1723:
1724: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1725: p_api_name => l_api_name,
1726: p_pkg_name => G_PKG_NAME,
1727: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
1728: x_msg_count => x_msg_count,
1723:
1724: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1725: p_api_name => l_api_name,
1726: p_pkg_name => G_PKG_NAME,
1727: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
1728: x_msg_count => x_msg_count,
1729: x_msg_data => x_msg_data,
1730: p_api_type => G_API_TYPE);
1731:
1728: x_msg_count => x_msg_count,
1729: x_msg_data => x_msg_data,
1730: p_api_type => G_API_TYPE);
1731:
1732: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
1733:
1734: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1735: p_api_name => l_api_name,
1736: p_pkg_name => G_PKG_NAME,
1730: p_api_type => G_API_TYPE);
1731:
1732: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
1733:
1734: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1735: p_api_name => l_api_name,
1736: p_pkg_name => G_PKG_NAME,
1737: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
1738: x_msg_count => x_msg_count,
1733:
1734: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1735: p_api_name => l_api_name,
1736: p_pkg_name => G_PKG_NAME,
1737: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
1738: x_msg_count => x_msg_count,
1739: x_msg_data => x_msg_data,
1740: p_api_type => G_API_TYPE);
1741:
1740: p_api_type => G_API_TYPE);
1741:
1742: when OTHERS then
1743:
1744: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1745: p_api_name => l_api_name,
1746: p_pkg_name => G_PKG_NAME,
1747: p_exc_name => 'OTHERS',
1748: x_msg_count => x_msg_count,
1778: p_release_date IN DATE,
1779: p_source_trx_id IN NUMBER,
1780: p_currency_code IN VARCHAR2) IS
1781:
1782: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1783: l_api_name CONSTANT VARCHAR2(30) := 'VALIDATE_TAA_REQUEST_INFO';
1784: l_api_version CONSTANT NUMBER := 1.0;
1785:
1786: CURSOR taa_party_info_csr(p_taa_trx_id IN NUMBER) IS
1950:
1951: l_found VARCHAR2(1);
1952:
1953: BEGIN
1954: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
1955: -- Call start_activity to create savepoint, check compatibility
1956: -- and initialize message list
1957: l_return_status := Okl_Api.START_ACTIVITY(
1958: p_api_name => l_api_name,
1953: BEGIN
1954: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
1955: -- Call start_activity to create savepoint, check compatibility
1956: -- and initialize message list
1957: l_return_status := Okl_Api.START_ACTIVITY(
1958: p_api_name => l_api_name,
1959: p_pkg_name => g_pkg_name,
1960: p_init_msg_list => p_init_msg_list,
1961: l_api_version => l_api_version,
1962: p_api_version => p_api_version,
1963: p_api_type => '_PVT',
1964: x_return_status => x_return_status);
1965: -- Check if activity started successfully
1966: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1967: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1968: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1969: RAISE Okl_Api.G_EXCEPTION_ERROR;
1970: END IF;
1963: p_api_type => '_PVT',
1964: x_return_status => x_return_status);
1965: -- Check if activity started successfully
1966: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1967: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1968: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1969: RAISE Okl_Api.G_EXCEPTION_ERROR;
1970: END IF;
1971:
1964: x_return_status => x_return_status);
1965: -- Check if activity started successfully
1966: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1967: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1968: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1969: RAISE Okl_Api.G_EXCEPTION_ERROR;
1970: END IF;
1971:
1972: OPEN taa_party_info_csr(p_taa_trx_id => p_source_trx_id);
1965: -- Check if activity started successfully
1966: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1967: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1968: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1969: RAISE Okl_Api.G_EXCEPTION_ERROR;
1970: END IF;
1971:
1972: OPEN taa_party_info_csr(p_taa_trx_id => p_source_trx_id);
1973: FETCH taa_party_info_csr INTO taa_party_info_rec;
1984: FETCH chk_party_csr INTO l_found;
1985: CLOSE chk_party_csr;
1986:
1987: IF l_found = 'N' THEN
1988: OKL_API.SET_MESSAGE(p_app_name => G_APP_NAME,
1989: p_msg_name => 'OKL_LLA_REL_INVALID_CUST',
1990: p_token1 => 'REQ_NUM',
1991: p_token1_value => taa_party_info_rec.trx_number);
1992: RAISE OKL_API.G_EXCEPTION_ERROR;
1988: OKL_API.SET_MESSAGE(p_app_name => G_APP_NAME,
1989: p_msg_name => 'OKL_LLA_REL_INVALID_CUST',
1990: p_token1 => 'REQ_NUM',
1991: p_token1_value => taa_party_info_rec.trx_number);
1992: RAISE OKL_API.G_EXCEPTION_ERROR;
1993: END IF;
1994: END IF;
1995:
1996: -- Validate Customer Account
2001: FETCH chk_cust_acc_csr INTO l_found;
2002: CLOSE chk_cust_acc_csr;
2003:
2004: IF l_found = 'N' THEN
2005: OKL_API.SET_MESSAGE(p_app_name => G_APP_NAME,
2006: p_msg_name => 'OKL_LLA_REL_INVALID_CUST_ACC',
2007: p_token1 => 'REQ_NUM',
2008: p_token1_value => taa_party_info_rec.trx_number);
2009: RAISE OKL_API.G_EXCEPTION_ERROR;
2005: OKL_API.SET_MESSAGE(p_app_name => G_APP_NAME,
2006: p_msg_name => 'OKL_LLA_REL_INVALID_CUST_ACC',
2007: p_token1 => 'REQ_NUM',
2008: p_token1_value => taa_party_info_rec.trx_number);
2009: RAISE OKL_API.G_EXCEPTION_ERROR;
2010: END IF;
2011: END IF;
2012:
2013: -- Validate Bill-To-Site
2020: FETCH chk_bill_to_csr INTO l_found;
2021: CLOSE chk_bill_to_csr;
2022:
2023: IF l_found = 'N' THEN
2024: OKL_API.SET_MESSAGE(p_app_name => G_APP_NAME,
2025: p_msg_name => 'OKL_LLA_REL_INVALID_BILL_TO',
2026: p_token1 => 'REQ_NUM',
2027: p_token1_value => taa_party_info_rec.trx_number);
2028: RAISE OKL_API.G_EXCEPTION_ERROR;
2024: OKL_API.SET_MESSAGE(p_app_name => G_APP_NAME,
2025: p_msg_name => 'OKL_LLA_REL_INVALID_BILL_TO',
2026: p_token1 => 'REQ_NUM',
2027: p_token1_value => taa_party_info_rec.trx_number);
2028: RAISE OKL_API.G_EXCEPTION_ERROR;
2029: END IF;
2030: END IF;
2031:
2032: -- Validate Bank Account
2039: FETCH chk_bank_acc_csr INTO l_found;
2040: CLOSE chk_bank_acc_csr;
2041:
2042: IF l_found = 'N' THEN
2043: OKL_API.SET_MESSAGE(p_app_name => G_APP_NAME,
2044: p_msg_name => 'OKL_LLA_REL_INVALID_BANK_ACC',
2045: p_token1 => 'REQ_NUM',
2046: p_token1_value => taa_party_info_rec.trx_number);
2047: RAISE OKL_API.G_EXCEPTION_ERROR;
2043: OKL_API.SET_MESSAGE(p_app_name => G_APP_NAME,
2044: p_msg_name => 'OKL_LLA_REL_INVALID_BANK_ACC',
2045: p_token1 => 'REQ_NUM',
2046: p_token1_value => taa_party_info_rec.trx_number);
2047: RAISE OKL_API.G_EXCEPTION_ERROR;
2048: END IF;
2049: END IF;
2050:
2051: -- Validate Payment Method
2057: FETCH chk_pymt_mthd_csr INTO l_found;
2058: CLOSE chk_pymt_mthd_csr;
2059:
2060: IF l_found = 'N' THEN
2061: OKL_API.SET_MESSAGE(p_app_name => G_APP_NAME,
2062: p_msg_name => 'OKL_LLA_REL_INVALID_PYMT_MTHD',
2063: p_token1 => 'REQ_NUM',
2064: p_token1_value => taa_party_info_rec.trx_number);
2065: RAISE OKL_API.G_EXCEPTION_ERROR;
2061: OKL_API.SET_MESSAGE(p_app_name => G_APP_NAME,
2062: p_msg_name => 'OKL_LLA_REL_INVALID_PYMT_MTHD',
2063: p_token1 => 'REQ_NUM',
2064: p_token1_value => taa_party_info_rec.trx_number);
2065: RAISE OKL_API.G_EXCEPTION_ERROR;
2066: END IF;
2067: END IF;
2068:
2069: -- Validate Invoice Format
2073: FETCH chk_inv_format_csr INTO l_found;
2074: CLOSE chk_inv_format_csr;
2075:
2076: IF l_found = 'N' THEN
2077: OKL_API.SET_MESSAGE(p_app_name => G_APP_NAME,
2078: p_msg_name => 'OKL_LLA_REL_INVALID_INV_FMT',
2079: p_token1 => 'REQ_NUM',
2080: p_token1_value => taa_party_info_rec.trx_number);
2081: RAISE OKL_API.G_EXCEPTION_ERROR;
2077: OKL_API.SET_MESSAGE(p_app_name => G_APP_NAME,
2078: p_msg_name => 'OKL_LLA_REL_INVALID_INV_FMT',
2079: p_token1 => 'REQ_NUM',
2080: p_token1_value => taa_party_info_rec.trx_number);
2081: RAISE OKL_API.G_EXCEPTION_ERROR;
2082: END IF;
2083:
2084: END IF;
2085:
2090: FETCH chk_mla_csr INTO l_found;
2091: CLOSE chk_mla_csr;
2092:
2093: IF l_found = 'N' THEN
2094: OKL_API.SET_MESSAGE(p_app_name => G_APP_NAME,
2095: p_msg_name => 'OKL_LLA_REL_INVALID_MLA',
2096: p_token1 => 'REQ_NUM',
2097: p_token1_value => taa_party_info_rec.trx_number);
2098: RAISE OKL_API.G_EXCEPTION_ERROR;
2094: OKL_API.SET_MESSAGE(p_app_name => G_APP_NAME,
2095: p_msg_name => 'OKL_LLA_REL_INVALID_MLA',
2096: p_token1 => 'REQ_NUM',
2097: p_token1_value => taa_party_info_rec.trx_number);
2098: RAISE OKL_API.G_EXCEPTION_ERROR;
2099: END IF;
2100: END IF;
2101:
2102: -- Validate Credit Line
2109: FETCH chk_credit_line_csr INTO l_found;
2110: CLOSE chk_credit_line_csr;
2111:
2112: IF l_found = 'N' THEN
2113: OKL_API.SET_MESSAGE(p_app_name => G_APP_NAME,
2114: p_msg_name => 'OKL_LLA_REL_INVALID_CL',
2115: p_token1 => 'REQ_NUM',
2116: p_token1_value => taa_party_info_rec.trx_number);
2117: RAISE OKL_API.G_EXCEPTION_ERROR;
2113: OKL_API.SET_MESSAGE(p_app_name => G_APP_NAME,
2114: p_msg_name => 'OKL_LLA_REL_INVALID_CL',
2115: p_token1 => 'REQ_NUM',
2116: p_token1_value => taa_party_info_rec.trx_number);
2117: RAISE OKL_API.G_EXCEPTION_ERROR;
2118: END IF;
2119: END IF;
2120:
2121:
2132: FETCH chk_install_site_csr INTO l_found;
2133: CLOSE chk_install_site_csr;
2134:
2135: IF l_found = 'N' THEN
2136: OKL_API.SET_MESSAGE(p_app_name => G_APP_NAME,
2137: p_msg_name => 'OKL_LLA_REL_INVALID_INS_SITE',
2138: p_token1 => 'REQ_NUM',
2139: p_token1_value => taa_party_info_rec.trx_number,
2140: p_token2 => 'ASSET_NUM',
2138: p_token1 => 'REQ_NUM',
2139: p_token1_value => taa_party_info_rec.trx_number,
2140: p_token2 => 'ASSET_NUM',
2141: p_token2_value => taa_lines_rec.name);
2142: RAISE OKL_API.G_EXCEPTION_ERROR;
2143: END IF;
2144: END IF;
2145:
2146: -- Asset Line level Fixed asset location
2151: FETCH chk_fa_loc_csr INTO l_found;
2152: CLOSE chk_fa_loc_csr;
2153:
2154: IF l_found = 'N' THEN
2155: OKL_API.SET_MESSAGE(p_app_name => G_APP_NAME,
2156: p_msg_name => 'OKL_LLA_REL_INVALID_FA_LOC',
2157: p_token1 => 'REQ_NUM',
2158: p_token1_value => taa_party_info_rec.trx_number,
2159: p_token2 => 'ASSET_NUM',
2157: p_token1 => 'REQ_NUM',
2158: p_token1_value => taa_party_info_rec.trx_number,
2159: p_token2 => 'ASSET_NUM',
2160: p_token2_value => taa_lines_rec.name);
2161: RAISE OKL_API.G_EXCEPTION_ERROR;
2162: END IF;
2163: END IF;
2164:
2165: -- Asset Line level Bill-To-Site
2173: FETCH chk_bill_to_csr INTO l_found;
2174: CLOSE chk_bill_to_csr;
2175:
2176: IF l_found = 'N' THEN
2177: OKL_API.SET_MESSAGE(p_app_name => G_APP_NAME,
2178: p_msg_name => 'OKL_LLA_REL_INVALID_AST_BILL',
2179: p_token1 => 'REQ_NUM',
2180: p_token1_value => taa_party_info_rec.trx_number,
2181: p_token2 => 'ASSET_NUM',
2179: p_token1 => 'REQ_NUM',
2180: p_token1_value => taa_party_info_rec.trx_number,
2181: p_token2 => 'ASSET_NUM',
2182: p_token2_value => taa_lines_rec.name);
2183: RAISE OKL_API.G_EXCEPTION_ERROR;
2184: END IF;
2185: END IF;
2186:
2187: END LOOP;
2185: END IF;
2186:
2187: END LOOP;
2188:
2189: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
2190: x_msg_data => x_msg_data);
2191:
2192: EXCEPTION
2193: when OKL_API.G_EXCEPTION_ERROR then
2189: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
2190: x_msg_data => x_msg_data);
2191:
2192: EXCEPTION
2193: when OKL_API.G_EXCEPTION_ERROR then
2194:
2195: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
2196: p_api_name => l_api_name,
2197: p_pkg_name => G_PKG_NAME,
2191:
2192: EXCEPTION
2193: when OKL_API.G_EXCEPTION_ERROR then
2194:
2195: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
2196: p_api_name => l_api_name,
2197: p_pkg_name => G_PKG_NAME,
2198: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
2199: x_msg_count => x_msg_count,
2194:
2195: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
2196: p_api_name => l_api_name,
2197: p_pkg_name => G_PKG_NAME,
2198: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
2199: x_msg_count => x_msg_count,
2200: x_msg_data => x_msg_data,
2201: p_api_type => G_API_TYPE);
2202:
2199: x_msg_count => x_msg_count,
2200: x_msg_data => x_msg_data,
2201: p_api_type => G_API_TYPE);
2202:
2203: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
2204:
2205: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
2206: p_api_name => l_api_name,
2207: p_pkg_name => G_PKG_NAME,
2201: p_api_type => G_API_TYPE);
2202:
2203: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
2204:
2205: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
2206: p_api_name => l_api_name,
2207: p_pkg_name => G_PKG_NAME,
2208: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
2209: x_msg_count => x_msg_count,
2204:
2205: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
2206: p_api_name => l_api_name,
2207: p_pkg_name => G_PKG_NAME,
2208: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
2209: x_msg_count => x_msg_count,
2210: x_msg_data => x_msg_data,
2211: p_api_type => G_API_TYPE);
2212:
2211: p_api_type => G_API_TYPE);
2212:
2213: when OTHERS then
2214:
2215: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
2216: p_api_name => l_api_name,
2217: p_pkg_name => G_PKG_NAME,
2218: p_exc_name => 'OTHERS',
2219: x_msg_count => x_msg_count,
2245: p_release_date IN DATE,
2246: p_source_trx_id IN NUMBER,
2247: p_call_program IN VARCHAR2) IS
2248:
2249: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2250: l_api_name CONSTANT VARCHAR2(30) := 'VALIDATE_REL_CONTRACT';
2251: l_api_version CONSTANT NUMBER := 1.0;
2252:
2253: CURSOR chr_csr(p_chr_id IN NUMBER) IS
2561: l_chk_ubb_terminated_yn varchar2(1):='N';
2562: --rajnisku: Bug 6657564 :End
2563:
2564: BEGIN
2565: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
2566: -- Call start_activity to create savepoint, check compatibility
2567: -- and initialize message list
2568: l_return_status := Okl_Api.START_ACTIVITY(
2569: p_api_name => l_api_name,
2564: BEGIN
2565: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
2566: -- Call start_activity to create savepoint, check compatibility
2567: -- and initialize message list
2568: l_return_status := Okl_Api.START_ACTIVITY(
2569: p_api_name => l_api_name,
2570: p_pkg_name => g_pkg_name,
2571: p_init_msg_list => p_init_msg_list,
2572: l_api_version => l_api_version,
2573: p_api_version => p_api_version,
2574: p_api_type => '_PVT',
2575: x_return_status => x_return_status);
2576: -- Check if activity started successfully
2577: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
2578: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2579: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
2580: RAISE Okl_Api.G_EXCEPTION_ERROR;
2581: END IF;
2574: p_api_type => '_PVT',
2575: x_return_status => x_return_status);
2576: -- Check if activity started successfully
2577: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
2578: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2579: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
2580: RAISE Okl_Api.G_EXCEPTION_ERROR;
2581: END IF;
2582:
2575: x_return_status => x_return_status);
2576: -- Check if activity started successfully
2577: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
2578: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2579: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
2580: RAISE Okl_Api.G_EXCEPTION_ERROR;
2581: END IF;
2582:
2583: open chr_csr(p_chr_id => p_chr_id);
2576: -- Check if activity started successfully
2577: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
2578: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2579: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
2580: RAISE Okl_Api.G_EXCEPTION_ERROR;
2581: END IF;
2582:
2583: open chr_csr(p_chr_id => p_chr_id);
2584: fetch chr_csr into chr_rec;
2588:
2589: -- Validate that Contract status is valid
2590: if chr_rec.sts_code NOT IN ('BOOKED','EVERGREEN','BANKRUPTCY_HOLD',
2591: 'LITIGATION_HOLD') then
2592: OKL_API.SET_MESSAGE(p_app_name => G_APP_NAME,
2593: p_msg_name => 'OKL_LLA_REL_INVALID_STATUS',
2594: p_token1 => 'CONTRACT_NUM',
2595: p_token1_value => chr_rec.contract_number);
2596: RAISE OKL_API.G_EXCEPTION_ERROR;
2592: OKL_API.SET_MESSAGE(p_app_name => G_APP_NAME,
2593: p_msg_name => 'OKL_LLA_REL_INVALID_STATUS',
2594: p_token1 => 'CONTRACT_NUM',
2595: p_token1_value => chr_rec.contract_number);
2596: RAISE OKL_API.G_EXCEPTION_ERROR;
2597: end if;
2598:
2599: -- Validate if Linked Service Contract exists
2600: l_found := 'N';
2601: open chk_linked_serv_chr_csr(p_chr_id => p_chr_id);
2602: fetch chk_linked_serv_chr_csr into l_found;
2603: close chk_linked_serv_chr_csr;
2604: if (l_found = 'Y') then
2605: OKL_API.SET_MESSAGE(G_APP_NAME,
2606: 'OKL_LLA_REL_LINK_SERV_CNTRCT');
2607: RAISE OKL_API.G_EXCEPTION_ERROR;
2608: end if;
2609:
2603: close chk_linked_serv_chr_csr;
2604: if (l_found = 'Y') then
2605: OKL_API.SET_MESSAGE(G_APP_NAME,
2606: 'OKL_LLA_REL_LINK_SERV_CNTRCT');
2607: RAISE OKL_API.G_EXCEPTION_ERROR;
2608: end if;
2609:
2610: -- T and A Validations
2611: -- Validate that T and A request is Approved
2614: open taa_request_csr(p_source_trx_id => p_source_trx_id);
2615: fetch taa_request_csr into taa_request_rec;
2616: close taa_request_csr;
2617: if taa_request_rec.tsu_code <> 'APPROVED' then
2618: OKL_API.SET_MESSAGE(p_app_name => G_APP_NAME,
2619: p_msg_name => 'OKL_LLA_REL_TAA_REQ_NO_APPRVD',
2620: p_token1 => 'REQ_NUM',
2621: p_token1_value => taa_request_rec.trx_number);
2622: RAISE OKL_API.G_EXCEPTION_ERROR;
2618: OKL_API.SET_MESSAGE(p_app_name => G_APP_NAME,
2619: p_msg_name => 'OKL_LLA_REL_TAA_REQ_NO_APPRVD',
2620: p_token1 => 'REQ_NUM',
2621: p_token1_value => taa_request_rec.trx_number);
2622: RAISE OKL_API.G_EXCEPTION_ERROR;
2623: end if;
2624: END IF;
2625:
2626: -- Validations that assets are not a part of any
2645: end if;
2646: end loop;
2647:
2648: if l_found = 'Y' then
2649: OKL_API.SET_MESSAGE(p_app_name => G_APP_NAME,
2650: p_msg_name => 'OKL_LLA_REL_NO_ACCEPT_TQ',
2651: p_token1 => 'ASST_NUM',
2652: p_token1_value => l_asset_num_token);
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_NO_ACCEPT_TQ',
2651: p_token1 => 'ASST_NUM',
2652: p_token1_value => l_asset_num_token);
2653: RAISE OKL_API.G_EXCEPTION_ERROR;
2654: end if;
2655:
2656: l_found := 'N';
2657: l_asset_num_token := null;
2668: end if;
2669: end loop;
2670:
2671: if l_found = 'Y' then
2672: OKL_API.SET_MESSAGE(p_app_name => G_APP_NAME,
2673: p_msg_name => 'OKL_LLA_REL_NO_PROCESSED_EQ',
2674: p_token1 => 'ASSET_NUM',
2675: p_token1_value => l_asset_num_token);
2676: RAISE OKL_API.G_EXCEPTION_ERROR;
2672: OKL_API.SET_MESSAGE(p_app_name => G_APP_NAME,
2673: p_msg_name => 'OKL_LLA_REL_NO_PROCESSED_EQ',
2674: p_token1 => 'ASSET_NUM',
2675: p_token1_value => l_asset_num_token);
2676: RAISE OKL_API.G_EXCEPTION_ERROR;
2677: end if;
2678:
2679: -- Re-lease contract
2680: else
2692: end if;
2693: end loop;
2694:
2695: if l_found = 'Y' then
2696: OKL_API.SET_MESSAGE(p_app_name => G_APP_NAME,
2697: p_msg_name => 'OKL_LLA_REL_NO_ACCEPT_TQ',
2698: p_token1 => 'ASST_NUM',
2699: p_token1_value => l_asset_num_token);
2700: RAISE OKL_API.G_EXCEPTION_ERROR;
2696: OKL_API.SET_MESSAGE(p_app_name => G_APP_NAME,
2697: p_msg_name => 'OKL_LLA_REL_NO_ACCEPT_TQ',
2698: p_token1 => 'ASST_NUM',
2699: p_token1_value => l_asset_num_token);
2700: RAISE OKL_API.G_EXCEPTION_ERROR;
2701: end if;
2702:
2703: l_found := 'N';
2704: l_asset_num_token := null;
2714: end if;
2715: end loop;
2716:
2717: if l_found = 'Y' then
2718: OKL_API.SET_MESSAGE(p_app_name => G_APP_NAME,
2719: p_msg_name => 'OKL_LLA_REL_NO_PROCESSED_EQ',
2720: p_token1 => 'ASSET_NUM',
2721: p_token1_value => l_asset_num_token);
2722: RAISE OKL_API.G_EXCEPTION_ERROR;
2718: OKL_API.SET_MESSAGE(p_app_name => G_APP_NAME,
2719: p_msg_name => 'OKL_LLA_REL_NO_PROCESSED_EQ',
2720: p_token1 => 'ASSET_NUM',
2721: p_token1_value => l_asset_num_token);
2722: RAISE OKL_API.G_EXCEPTION_ERROR;
2723: end if;
2724: end if;
2725:
2726: -- Validate that the Contract is fully funded
2728: l_funding_remaining :=
2729: OKL_FUNDING_PVT.get_chr_canbe_funded_rem(p_contract_id => p_chr_id);
2730: --Bug# 4080102 - Changed to check for Funding remaining > 0
2731: if (l_funding_remaining > 0) then
2732: OKL_API.SET_MESSAGE(G_APP_NAME,
2733: 'OKL_LLA_REL_NOT_FULLY_FUNDED');
2734: RAISE OKL_API.G_EXCEPTION_ERROR;
2735: end if;*/
2736:
2730: --Bug# 4080102 - Changed to check for Funding remaining > 0
2731: if (l_funding_remaining > 0) then
2732: OKL_API.SET_MESSAGE(G_APP_NAME,
2733: 'OKL_LLA_REL_NOT_FULLY_FUNDED');
2734: RAISE OKL_API.G_EXCEPTION_ERROR;
2735: end if;*/
2736:
2737: --Bug# 4151222
2738: l_fully_funded_flag := false;
2738: l_fully_funded_flag := false;
2739:
2740: --Bug# 4173345
2741: -- Re-leased contracts should be treated as fully funded
2742: if NVL(chr_rec.orig_system_source_code,OKL_API.G_MISS_CHAR) = 'OKL_RELEASE' then
2743: l_fully_funded_flag := true;
2744: else
2745: OKL_FUNDING_PVT.is_contract_fully_funded(
2746: p_api_version => p_api_version
2750: ,x_msg_data => x_msg_data
2751: ,x_value => l_fully_funded_flag
2752: ,p_contract_id => p_chr_id);
2753:
2754: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
2755: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2756: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
2757: RAISE Okl_Api.G_EXCEPTION_ERROR;
2758: END IF;
2751: ,x_value => l_fully_funded_flag
2752: ,p_contract_id => p_chr_id);
2753:
2754: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
2755: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2756: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
2757: RAISE Okl_Api.G_EXCEPTION_ERROR;
2758: END IF;
2759: end if;
2752: ,p_contract_id => p_chr_id);
2753:
2754: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
2755: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2756: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
2757: RAISE Okl_Api.G_EXCEPTION_ERROR;
2758: END IF;
2759: end if;
2760: --Bug# 4173345
2753:
2754: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
2755: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2756: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
2757: RAISE Okl_Api.G_EXCEPTION_ERROR;
2758: END IF;
2759: end if;
2760: --Bug# 4173345
2761:
2759: end if;
2760: --Bug# 4173345
2761:
2762: if (l_fully_funded_flag = false) then
2763: OKL_API.SET_MESSAGE(G_APP_NAME,
2764: 'OKL_LLA_REL_NOT_FULLY_FUNDED');
2765: RAISE OKL_API.G_EXCEPTION_ERROR;
2766: end if;
2767:
2761:
2762: if (l_fully_funded_flag = false) then
2763: OKL_API.SET_MESSAGE(G_APP_NAME,
2764: 'OKL_LLA_REL_NOT_FULLY_FUNDED');
2765: RAISE OKL_API.G_EXCEPTION_ERROR;
2766: end if;
2767:
2768: -- Validate whether the release date is after
2769: -- last Receipt Date, last Credit Memo Date and
2793: close last_credit_date_csr;
2794:
2795: -- Bug# 4072796
2796: if (l_receipt_date IS NOT NULL) and (p_release_date <= l_receipt_date ) then
2797: OKL_API.SET_MESSAGE(p_app_name => G_APP_NAME,
2798: p_msg_name => 'OKL_CS_TF_RECEIPT_DATE',
2799: p_token1 => 'INVOICE_DATE',
2800: p_token1_value => l_receipt_date);
2801: RAISE OKL_API.G_EXCEPTION_ERROR;
2797: OKL_API.SET_MESSAGE(p_app_name => G_APP_NAME,
2798: p_msg_name => 'OKL_CS_TF_RECEIPT_DATE',
2799: p_token1 => 'INVOICE_DATE',
2800: p_token1_value => l_receipt_date);
2801: RAISE OKL_API.G_EXCEPTION_ERROR;
2802: elsif (l_acceptance_date IS NOT NULL) and (p_release_date <= l_acceptance_date ) then
2803: OKL_API.SET_MESSAGE(p_app_name => G_APP_NAME,
2804: p_msg_name => 'OKL_CS_TF_QUOTE_DATE',
2805: p_token1 => 'QUOTE_DATE',
2799: p_token1 => 'INVOICE_DATE',
2800: p_token1_value => l_receipt_date);
2801: RAISE OKL_API.G_EXCEPTION_ERROR;
2802: elsif (l_acceptance_date IS NOT NULL) and (p_release_date <= l_acceptance_date ) then
2803: OKL_API.SET_MESSAGE(p_app_name => G_APP_NAME,
2804: p_msg_name => 'OKL_CS_TF_QUOTE_DATE',
2805: p_token1 => 'QUOTE_DATE',
2806: p_token1_value => l_acceptance_date);
2807: RAISE OKL_API.G_EXCEPTION_ERROR;
2803: OKL_API.SET_MESSAGE(p_app_name => G_APP_NAME,
2804: p_msg_name => 'OKL_CS_TF_QUOTE_DATE',
2805: p_token1 => 'QUOTE_DATE',
2806: p_token1_value => l_acceptance_date);
2807: RAISE OKL_API.G_EXCEPTION_ERROR;
2808: elsif (l_invoice_date IS NOT NULL) and (p_release_date <= l_invoice_date) then
2809: OKL_API.SET_MESSAGE(p_app_name => G_APP_NAME,
2810: p_msg_name => 'OKL_CS_TF_CREDITMEMO_DATE',
2811: p_token1 => 'CREDIT_MEMO',
2805: p_token1 => 'QUOTE_DATE',
2806: p_token1_value => l_acceptance_date);
2807: RAISE OKL_API.G_EXCEPTION_ERROR;
2808: elsif (l_invoice_date IS NOT NULL) and (p_release_date <= l_invoice_date) then
2809: OKL_API.SET_MESSAGE(p_app_name => G_APP_NAME,
2810: p_msg_name => 'OKL_CS_TF_CREDITMEMO_DATE',
2811: p_token1 => 'CREDIT_MEMO',
2812: p_token1_value => l_invoice_date);
2813: RAISE OKL_API.G_EXCEPTION_ERROR;
2809: OKL_API.SET_MESSAGE(p_app_name => G_APP_NAME,
2810: p_msg_name => 'OKL_CS_TF_CREDITMEMO_DATE',
2811: p_token1 => 'CREDIT_MEMO',
2812: p_token1_value => l_invoice_date);
2813: RAISE OKL_API.G_EXCEPTION_ERROR;
2814: end if;
2815: end if;
2816: -- T and A Validations
2817: --rajnisku: Bug 6657564 : Added validation to block TNA
2833: AND NVL(taa_request_rec.complete_transfer_yn,'X')='N' THEN
2834: --set message
2835: --The transfer is not permitted because one of the transferred
2836: --asset is associated to a usage line.
2837: OKL_API.SET_MESSAGE(G_APP_NAME,
2838: 'OKL_CS_TA_ASSET_WITH_UBB_NA');
2839: RAISE OKL_API.G_EXCEPTION_ERROR;
2840: END IF;
2841:
2835: --The transfer is not permitted because one of the transferred
2836: --asset is associated to a usage line.
2837: OKL_API.SET_MESSAGE(G_APP_NAME,
2838: 'OKL_CS_TA_ASSET_WITH_UBB_NA');
2839: RAISE OKL_API.G_EXCEPTION_ERROR;
2840: END IF;
2841:
2842: IF l_link_usage = '!' AND
2843: NVL(taa_request_rec.complete_transfer_yn,'X')='Y' THEN
2860: IF NVL(l_ubb_contract_rec.ste_code,'X')<>'TERMINATED' THEN
2861: --set message
2862: --You must terminate the associated service contract before
2863: --release is permitted.
2864: OKL_API.SET_MESSAGE(G_APP_NAME,
2865: 'OKL_LLA_REL_TERM_SERV_CNTRCT');
2866: RAISE OKL_API.G_EXCEPTION_ERROR;
2867: END IF;
2868: END IF;
2862: --You must terminate the associated service contract before
2863: --release is permitted.
2864: OKL_API.SET_MESSAGE(G_APP_NAME,
2865: 'OKL_LLA_REL_TERM_SERV_CNTRCT');
2866: RAISE OKL_API.G_EXCEPTION_ERROR;
2867: END IF;
2868: END IF;
2869: CLOSE l_ubb_contract_csr;
2870: END IF; --check
2873: -- Validation at activation --
2874: -- Bug# 4072796
2875: if (p_call_program = 'ACTIVATE') then
2876: if (p_release_date > TRUNC(sysdate)) then
2877: OKL_API.SET_MESSAGE(G_APP_NAME,
2878: 'OKL_CS_NO_TF_FUTURE_DATE');
2879: RAISE OKL_API.G_EXCEPTION_ERROR;
2880: end if;
2881:
2875: if (p_call_program = 'ACTIVATE') then
2876: if (p_release_date > TRUNC(sysdate)) then
2877: OKL_API.SET_MESSAGE(G_APP_NAME,
2878: 'OKL_CS_NO_TF_FUTURE_DATE');
2879: RAISE OKL_API.G_EXCEPTION_ERROR;
2880: end if;
2881:
2882: -- Validate if Contract is undergoing Revision
2883: l_found := 'N';
2884: open pending_trx_act_csr(p_chr_id => p_chr_id);
2885: fetch pending_trx_act_csr into l_found;
2886: close pending_trx_act_csr;
2887: if (l_found = 'Y') then
2888: OKL_API.SET_MESSAGE(G_APP_NAME,
2889: 'OKL_LLA_REV_IN_PROGRESS');
2890: RAISE OKL_API.G_EXCEPTION_ERROR;
2891: end if;
2892: end if;
2886: close pending_trx_act_csr;
2887: if (l_found = 'Y') then
2888: OKL_API.SET_MESSAGE(G_APP_NAME,
2889: 'OKL_LLA_REV_IN_PROGRESS');
2890: RAISE OKL_API.G_EXCEPTION_ERROR;
2891: end if;
2892: end if;
2893:
2894: --Bug# 4631549
2918: --x_msg_data => x_msg_data,
2919: --p_book_type_code => l_fa_rec.book_type_code,
2920: --p_release_date => p_release_date);
2921:
2922: --IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2923: --RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2924: --ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2925: --RAISE OKL_API.G_EXCEPTION_ERROR;
2926: --END IF;
2919: --p_book_type_code => l_fa_rec.book_type_code,
2920: --p_release_date => p_release_date);
2921:
2922: --IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2923: --RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2924: --ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2925: --RAISE OKL_API.G_EXCEPTION_ERROR;
2926: --END IF;
2927:
2920: --p_release_date => p_release_date);
2921:
2922: --IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2923: --RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2924: --ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2925: --RAISE OKL_API.G_EXCEPTION_ERROR;
2926: --END IF;
2927:
2928: -- Calculate Expected asset cost (cost of the asset expected after re-lease)
2921:
2922: --IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2923: --RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2924: --ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2925: --RAISE OKL_API.G_EXCEPTION_ERROR;
2926: --END IF;
2927:
2928: -- Calculate Expected asset cost (cost of the asset expected after re-lease)
2929: Calculate_Expected_Cost
2940: p_release_date => p_release_date,
2941: p_nbv => l_corp_net_book_value,
2942: x_expected_cost => l_expected_cost);
2943:
2944: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2945: RAISE OKL_API.G_EXCEPTION_ERROR;
2946: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2947: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2948: END IF;
2941: p_nbv => l_corp_net_book_value,
2942: x_expected_cost => l_expected_cost);
2943:
2944: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2945: RAISE OKL_API.G_EXCEPTION_ERROR;
2946: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2947: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2948: END IF;
2949:
2942: x_expected_cost => l_expected_cost);
2943:
2944: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2945: RAISE OKL_API.G_EXCEPTION_ERROR;
2946: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2947: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2948: END IF;
2949:
2950: If nvl(l_expected_cost,0) <> nvl(l_exp_cost_rec.expected_Asset_cost,0) then
2943:
2944: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2945: RAISE OKL_API.G_EXCEPTION_ERROR;
2946: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2947: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2948: END IF;
2949:
2950: If nvl(l_expected_cost,0) <> nvl(l_exp_cost_rec.expected_Asset_cost,0) then
2951: l_exp_cost_mismatch_yn := 'Y';
2951: l_exp_cost_mismatch_yn := 'Y';
2952: open l_asset_num_csr(p_asset_id => l_fa_rec.asset_id);
2953: fetch l_asset_num_csr into l_asset_num_rec;
2954: close l_asset_num_csr;
2955: OKL_API.set_message(p_app_name => G_APP_NAME,
2956: p_msg_name => 'OKL_LA_EXPECTED_ASSET_COST_MOD',
2957: p_token1 => 'ASSET_NUMBER',
2958: p_token1_value => l_asset_num_rec.asset_number);
2959: Elsif nvl(l_expected_cost,0) = nvl(l_exp_cost_rec.expected_asset_cost,0) then
2965: Null;
2966: End If;
2967: close l_units_csr;
2968:
2969: If nvl(l_units_rec.number_of_items,OKL_API.G_MISS_NUM) <> OKL_API.G_MISS_NUM then
2970: --modify the model line
2971: l_model_clev_rec.id := l_units_rec.model_cle_id;
2972: l_model_clev_rec.price_unit := (l_expected_cost/l_units_rec.number_of_items);
2973:
2988: x_msg_data => x_msg_data,
2989: p_clev_rec => l_model_clev_rec,
2990: x_clev_rec => lx_model_clev_rec
2991: );
2992: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2993: RAISE OKL_API.G_EXCEPTION_ERROR;
2994: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2995: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2996: END IF;
2989: p_clev_rec => l_model_clev_rec,
2990: x_clev_rec => lx_model_clev_rec
2991: );
2992: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2993: RAISE OKL_API.G_EXCEPTION_ERROR;
2994: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2995: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2996: END IF;
2997: --modify the OEC on financial asset line
2990: x_clev_rec => lx_model_clev_rec
2991: );
2992: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2993: RAISE OKL_API.G_EXCEPTION_ERROR;
2994: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2995: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2996: END IF;
2997: --modify the OEC on financial asset line
2998:
2991: );
2992: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2993: RAISE OKL_API.G_EXCEPTION_ERROR;
2994: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2995: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2996: END IF;
2997: --modify the OEC on financial asset line
2998:
2999: l_finast_clev_rec.id := l_exp_cost_rec.new_cle_id;
3011: p_edit_mode => 'N',
3012: x_clev_rec => lx_finast_clev_rec,
3013: x_klev_rec => lx_finast_klev_rec);
3014:
3015: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3016: RAISE OKL_API.G_EXCEPTION_ERROR;
3017: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3018: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3019: END IF;
3012: x_clev_rec => lx_finast_clev_rec,
3013: x_klev_rec => lx_finast_klev_rec);
3014:
3015: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3016: RAISE OKL_API.G_EXCEPTION_ERROR;
3017: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3018: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3019: END IF;
3020:
3013: x_klev_rec => lx_finast_klev_rec);
3014:
3015: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3016: RAISE OKL_API.G_EXCEPTION_ERROR;
3017: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3018: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3019: END IF;
3020:
3021: --modify the capital amount on financial assrt line
3014:
3015: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3016: RAISE OKL_API.G_EXCEPTION_ERROR;
3017: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3018: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3019: END IF;
3020:
3021: --modify the capital amount on financial assrt line
3022: OKL_EXECUTE_FORMULA_PUB.EXECUTE(p_api_version => p_api_version,
3028: p_contract_id => l_exp_cost_rec.new_chr_id,
3029: p_line_id => l_exp_cost_rec.new_cle_id,
3030: x_value => l_capital_amount);
3031:
3032: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3033: RAISE OKL_API.G_EXCEPTION_ERROR;
3034: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3035: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3036: END IF;
3029: p_line_id => l_exp_cost_rec.new_cle_id,
3030: x_value => l_capital_amount);
3031:
3032: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3033: RAISE OKL_API.G_EXCEPTION_ERROR;
3034: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3035: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3036: END IF;
3037:
3030: x_value => l_capital_amount);
3031:
3032: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3033: RAISE OKL_API.G_EXCEPTION_ERROR;
3034: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3035: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3036: END IF;
3037:
3038: OKL_EXECUTE_FORMULA_PUB.EXECUTE(p_api_version => p_api_version,
3031:
3032: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3033: RAISE OKL_API.G_EXCEPTION_ERROR;
3034: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3035: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3036: END IF;
3037:
3038: OKL_EXECUTE_FORMULA_PUB.EXECUTE(p_api_version => p_api_version,
3039: p_init_msg_list => p_init_msg_list,
3044: p_contract_id => l_exp_cost_rec.new_chr_id,
3045: p_line_id => l_exp_cost_rec.new_cle_id,
3046: x_value => l_capitalized_interest);
3047:
3048: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3049: RAISE OKL_API.G_EXCEPTION_ERROR;
3050: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3051: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3052: END IF;
3045: p_line_id => l_exp_cost_rec.new_cle_id,
3046: x_value => l_capitalized_interest);
3047:
3048: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3049: RAISE OKL_API.G_EXCEPTION_ERROR;
3050: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3051: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3052: END IF;
3053:
3046: x_value => l_capitalized_interest);
3047:
3048: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3049: RAISE OKL_API.G_EXCEPTION_ERROR;
3050: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3051: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3052: END IF;
3053:
3054: l_finast_klev_rec2.capital_amount := (l_capital_amount - l_capitalized_interest);
3047:
3048: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3049: RAISE OKL_API.G_EXCEPTION_ERROR;
3050: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3051: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3052: END IF;
3053:
3054: l_finast_klev_rec2.capital_amount := (l_capital_amount - l_capitalized_interest);
3055: l_finast_klev_rec2.id := l_exp_cost_rec.new_cle_id;
3066: p_edit_mode => 'N',
3067: x_clev_rec => lx_finast_clev_rec2,
3068: x_klev_rec => lx_finast_klev_rec2);
3069:
3070: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3071: RAISE OKL_API.G_EXCEPTION_ERROR;
3072: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3073: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3074: END IF;
3067: x_clev_rec => lx_finast_clev_rec2,
3068: x_klev_rec => lx_finast_klev_rec2);
3069:
3070: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3071: RAISE OKL_API.G_EXCEPTION_ERROR;
3072: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3073: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3074: END IF;
3075:
3068: x_klev_rec => lx_finast_klev_rec2);
3069:
3070: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3071: RAISE OKL_API.G_EXCEPTION_ERROR;
3072: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3073: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3074: END IF;
3075:
3076: End If;
3069:
3070: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3071: RAISE OKL_API.G_EXCEPTION_ERROR;
3072: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3073: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3074: END IF;
3075:
3076: End If;
3077: End If;
3077: End If;
3078: End Loop;
3079: Close l_exp_cost_csr;
3080: If l_exp_cost_mismatch_yn = 'Y' then
3081: OKL_API.set_message(p_app_name => G_APP_NAME,
3082: p_msg_name => 'OKL_LA_UPDATE_ASSET');
3083: RAISE OKL_API.G_EXCEPTION_ERROR;
3084: End If;
3085: End If;
3079: Close l_exp_cost_csr;
3080: If l_exp_cost_mismatch_yn = 'Y' then
3081: OKL_API.set_message(p_app_name => G_APP_NAME,
3082: p_msg_name => 'OKL_LA_UPDATE_ASSET');
3083: RAISE OKL_API.G_EXCEPTION_ERROR;
3084: End If;
3085: End If;
3086: --End Bug# 4631549
3087:
3088:
3089:
3090: --End Bug# 4631549
3091:
3092: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
3093: x_msg_data => x_msg_data);
3094:
3095: EXCEPTION
3096: when OKL_API.G_EXCEPTION_ERROR then
3092: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
3093: x_msg_data => x_msg_data);
3094:
3095: EXCEPTION
3096: when OKL_API.G_EXCEPTION_ERROR then
3097:
3098: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
3099: p_api_name => l_api_name,
3100: p_pkg_name => G_PKG_NAME,
3094:
3095: EXCEPTION
3096: when OKL_API.G_EXCEPTION_ERROR then
3097:
3098: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
3099: p_api_name => l_api_name,
3100: p_pkg_name => G_PKG_NAME,
3101: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
3102: x_msg_count => x_msg_count,
3097:
3098: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
3099: p_api_name => l_api_name,
3100: p_pkg_name => G_PKG_NAME,
3101: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
3102: x_msg_count => x_msg_count,
3103: x_msg_data => x_msg_data,
3104: p_api_type => G_API_TYPE);
3105:
3102: x_msg_count => x_msg_count,
3103: x_msg_data => x_msg_data,
3104: p_api_type => G_API_TYPE);
3105:
3106: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
3107:
3108: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
3109: p_api_name => l_api_name,
3110: p_pkg_name => G_PKG_NAME,
3104: p_api_type => G_API_TYPE);
3105:
3106: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
3107:
3108: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
3109: p_api_name => l_api_name,
3110: p_pkg_name => G_PKG_NAME,
3111: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
3112: x_msg_count => x_msg_count,
3107:
3108: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
3109: p_api_name => l_api_name,
3110: p_pkg_name => G_PKG_NAME,
3111: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
3112: x_msg_count => x_msg_count,
3113: x_msg_data => x_msg_data,
3114: p_api_type => G_API_TYPE);
3115:
3114: p_api_type => G_API_TYPE);
3115:
3116: when OTHERS then
3117:
3118: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
3119: p_api_name => l_api_name,
3120: p_pkg_name => G_PKG_NAME,
3121: p_exc_name => 'OTHERS',
3122: x_msg_count => x_msg_count,
3150: p_release_date IN DATE,
3151: p_source_trx_id IN NUMBER,
3152: p_release_reason_code IN VARCHAR2) IS
3153:
3154: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
3155: l_api_name CONSTANT VARCHAR2(30) := 'VALIDATE_RELEASE_CONTRACT';
3156: l_api_version CONSTANT NUMBER := 1.0;
3157:
3158: CURSOR chr_csr(p_chr_id IN NUMBER) IS
3276: l_term_duration NUMBER;
3277: l_asset_num_token VARCHAR2(2000);
3278:
3279: BEGIN
3280: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
3281: -- Call start_activity to create savepoint, check compatibility
3282: -- and initialize message list
3283: l_return_status := Okl_Api.START_ACTIVITY(
3284: p_api_name => l_api_name,
3279: BEGIN
3280: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
3281: -- Call start_activity to create savepoint, check compatibility
3282: -- and initialize message list
3283: l_return_status := Okl_Api.START_ACTIVITY(
3284: p_api_name => l_api_name,
3285: p_pkg_name => g_pkg_name,
3286: p_init_msg_list => p_init_msg_list,
3287: l_api_version => l_api_version,
3288: p_api_version => p_api_version,
3289: p_api_type => '_PVT',
3290: x_return_status => x_return_status);
3291: -- Check if activity started successfully
3292: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
3293: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3294: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
3295: RAISE Okl_Api.G_EXCEPTION_ERROR;
3296: END IF;
3289: p_api_type => '_PVT',
3290: x_return_status => x_return_status);
3291: -- Check if activity started successfully
3292: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
3293: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3294: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
3295: RAISE Okl_Api.G_EXCEPTION_ERROR;
3296: END IF;
3297:
3290: x_return_status => x_return_status);
3291: -- Check if activity started successfully
3292: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
3293: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3294: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
3295: RAISE Okl_Api.G_EXCEPTION_ERROR;
3296: END IF;
3297:
3298: -- Revision date is mandatory
3291: -- Check if activity started successfully
3292: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
3293: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3294: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
3295: RAISE Okl_Api.G_EXCEPTION_ERROR;
3296: END IF;
3297:
3298: -- Revision date is mandatory
3299: if (p_release_date IS NULL) then
3296: END IF;
3297:
3298: -- Revision date is mandatory
3299: if (p_release_date IS NULL) then
3300: OKL_API.SET_MESSAGE(G_APP_NAME,
3301: 'OKL_LLA_MISSING_TRX_DATE');
3302: RAISE OKL_API.G_EXCEPTION_ERROR;
3303: end if;
3304:
3298: -- Revision date is mandatory
3299: if (p_release_date IS NULL) then
3300: OKL_API.SET_MESSAGE(G_APP_NAME,
3301: 'OKL_LLA_MISSING_TRX_DATE');
3302: RAISE OKL_API.G_EXCEPTION_ERROR;
3303: end if;
3304:
3305: -- Revision Date should be between Contract Start and End dates
3306: open chr_csr(p_chr_id => p_chr_id);
3309: -- Bug# 4072796
3310: if NOT (p_release_date BETWEEN (chr_rec.start_date + 1) AND chr_rec.end_date) then
3311: l_icx_date_format := nvl(fnd_profile.value('ICX_DATE_FORMAT_MASK'),'DD-MON-RRRR');
3312:
3313: OKL_API.SET_MESSAGE(G_APP_NAME,
3314: 'OKL_LLA_WRONG_TRX_DATE',
3315: 'START_DATE',
3316: TO_CHAR(chr_rec.start_date,l_icx_date_format),
3317: 'END_DATE',
3316: TO_CHAR(chr_rec.start_date,l_icx_date_format),
3317: 'END_DATE',
3318: TO_CHAR(chr_rec.end_date,l_icx_date_format)
3319: );
3320: RAISE OKL_API.G_EXCEPTION_ERROR;
3321: end if;
3322:
3323: -- The new Term duration (Re-lease Date to Contract end date)
3324: -- must be a whole number of months
3323: -- The new Term duration (Re-lease Date to Contract end date)
3324: -- must be a whole number of months
3325: l_term_duration := MONTHS_BETWEEN(chr_rec.end_date + 1,p_release_date);
3326: if (MOD(l_term_duration,1) <> 0) then
3327: OKL_API.SET_MESSAGE(G_APP_NAME,
3328: 'OKL_LLA_REL_INVALID_DURATION');
3329: RAISE OKL_API.G_EXCEPTION_ERROR;
3330: end if;
3331:
3325: l_term_duration := MONTHS_BETWEEN(chr_rec.end_date + 1,p_release_date);
3326: if (MOD(l_term_duration,1) <> 0) then
3327: OKL_API.SET_MESSAGE(G_APP_NAME,
3328: 'OKL_LLA_REL_INVALID_DURATION');
3329: RAISE OKL_API.G_EXCEPTION_ERROR;
3330: end if;
3331:
3332: -- Validate if Deal Type is Loan or Revolving Loan
3333: if chr_rec.deal_type IN ('LOAN','LOAN-REVOLVING') then
3330: end if;
3331:
3332: -- Validate if Deal Type is Loan or Revolving Loan
3333: if chr_rec.deal_type IN ('LOAN','LOAN-REVOLVING') then
3334: OKL_API.SET_MESSAGE(G_APP_NAME,
3335: 'OKL_LLA_REL_NOT_ALLOW_LOAN');
3336: RAISE OKL_API.G_EXCEPTION_ERROR;
3337: end if;
3338:
3332: -- Validate if Deal Type is Loan or Revolving Loan
3333: if chr_rec.deal_type IN ('LOAN','LOAN-REVOLVING') then
3334: OKL_API.SET_MESSAGE(G_APP_NAME,
3335: 'OKL_LLA_REL_NOT_ALLOW_LOAN');
3336: RAISE OKL_API.G_EXCEPTION_ERROR;
3337: end if;
3338:
3339: -- Validate if Contract has Variable Interest Rate
3340: open rul_csr(p_chr_id => p_chr_id
3343: fetch rul_csr into rul_rec;
3344: close rul_csr;
3345:
3346: if (rul_rec.rule_information1 = 'Y') then
3347: OKL_API.SET_MESSAGE(G_APP_NAME,
3348: 'OKL_LLA_REL_NOT_ALLOW_VAR_RT');
3349: RAISE OKL_API.G_EXCEPTION_ERROR;
3350: end if;
3351: --rajnisku: Bug 6657564
3345:
3346: if (rul_rec.rule_information1 = 'Y') then
3347: OKL_API.SET_MESSAGE(G_APP_NAME,
3348: 'OKL_LLA_REL_NOT_ALLOW_VAR_RT');
3349: RAISE OKL_API.G_EXCEPTION_ERROR;
3350: end if;
3351: --rajnisku: Bug 6657564
3352: --added if condition to allow TnA for contract with Usage line
3353: if NVL(p_release_reason_code,'X') <> 'CUSTOMER_CHANGE' THEN
3356: open chk_usage_csr(p_chr_id => p_chr_id);
3357: fetch chk_usage_csr into l_found;
3358: close chk_usage_csr;
3359: if (l_found = 'Y') then
3360: OKL_API.SET_MESSAGE(G_APP_NAME,
3361: 'OKL_LLA_REL_NO_USAGE_LINES');
3362: RAISE OKL_API.G_EXCEPTION_ERROR;
3363: end if;
3364: end if;
3358: close chk_usage_csr;
3359: if (l_found = 'Y') then
3360: OKL_API.SET_MESSAGE(G_APP_NAME,
3361: 'OKL_LLA_REL_NO_USAGE_LINES');
3362: RAISE OKL_API.G_EXCEPTION_ERROR;
3363: end if;
3364: end if;
3365: --rajnisku: Bug 6657564 : end
3366:
3370: open pending_trx_csr(p_chr_id => p_chr_id);
3371: fetch pending_trx_csr into l_found;
3372: close pending_trx_csr;
3373: if (l_found = 'Y') then
3374: OKL_API.SET_MESSAGE(G_APP_NAME,
3375: 'OKL_LLA_REV_IN_PROGRESS');
3376: RAISE OKL_API.G_EXCEPTION_ERROR;
3377: end if;
3378:
3372: close pending_trx_csr;
3373: if (l_found = 'Y') then
3374: OKL_API.SET_MESSAGE(G_APP_NAME,
3375: 'OKL_LLA_REV_IN_PROGRESS');
3376: RAISE OKL_API.G_EXCEPTION_ERROR;
3377: end if;
3378:
3379: --Bug# 4905732
3380: -- Validation that assets selected for Re-lease
3409: end loop;
3410:
3411: if l_asset_num_token IS NOT NULL then
3412: l_icx_date_format := nvl(fnd_profile.value('ICX_DATE_FORMAT_MASK'),'DD-MON-RRRR');
3413: OKL_API.SET_MESSAGE(p_app_name => G_APP_NAME,
3414: p_msg_name => 'OKL_LLA_REL_ASSET_NO_PYMT',
3415: p_token1 => 'ASSET_NUMBER',
3416: p_token1_value => l_asset_num_token,
3417: p_token2 => 'RELEASE_DATE',
3415: p_token1 => 'ASSET_NUMBER',
3416: p_token1_value => l_asset_num_token,
3417: p_token2 => 'RELEASE_DATE',
3418: p_token2_value => to_char(p_release_date,l_icx_date_format));
3419: RAISE OKL_API.G_EXCEPTION_ERROR;
3420: end if;
3421:
3422: -- Re-lease contract
3423: else
3447: end loop;
3448:
3449: if l_asset_num_token IS NOT NULL then
3450: l_icx_date_format := nvl(fnd_profile.value('ICX_DATE_FORMAT_MASK'),'DD-MON-RRRR');
3451: OKL_API.SET_MESSAGE(p_app_name => G_APP_NAME,
3452: p_msg_name => 'OKL_LLA_REL_ASSET_NO_PYMT',
3453: p_token1 => 'ASSET_NUMBER',
3454: p_token1_value => l_asset_num_token,
3455: p_token2 => 'RELEASE_DATE',
3453: p_token1 => 'ASSET_NUMBER',
3454: p_token1_value => l_asset_num_token,
3455: p_token2 => 'RELEASE_DATE',
3456: p_token2_value => to_char(p_release_date,l_icx_date_format));
3457: RAISE OKL_API.G_EXCEPTION_ERROR;
3458: end if;
3459:
3460: end if;
3461: --Bug# 4905732
3475: p_release_date => p_release_date,
3476: p_source_trx_id => p_source_trx_id,
3477: p_currency_code => chr_rec.currency_code);
3478:
3479: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
3480: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3481: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
3482: RAISE OKL_API.G_EXCEPTION_ERROR;
3483: END IF;
3476: p_source_trx_id => p_source_trx_id,
3477: p_currency_code => chr_rec.currency_code);
3478:
3479: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
3480: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3481: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
3482: RAISE OKL_API.G_EXCEPTION_ERROR;
3483: END IF;
3484:
3477: p_currency_code => chr_rec.currency_code);
3478:
3479: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
3480: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3481: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
3482: RAISE OKL_API.G_EXCEPTION_ERROR;
3483: END IF;
3484:
3485: end if;
3478:
3479: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
3480: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3481: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
3482: RAISE OKL_API.G_EXCEPTION_ERROR;
3483: END IF;
3484:
3485: end if;
3486: --Bug# 5005869
3498: p_call_program => 'RELEASE');
3499: -- End change fmiao 19-NOV-04 for release date check --
3500:
3501: -- Bug# 4072796
3502: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3503: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3504: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3505: RAISE OKL_API.G_EXCEPTION_ERROR;
3506: END IF;
3499: -- End change fmiao 19-NOV-04 for release date check --
3500:
3501: -- Bug# 4072796
3502: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3503: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3504: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3505: RAISE OKL_API.G_EXCEPTION_ERROR;
3506: END IF;
3507:
3500:
3501: -- Bug# 4072796
3502: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3503: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3504: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3505: RAISE OKL_API.G_EXCEPTION_ERROR;
3506: END IF;
3507:
3508: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
3501: -- Bug# 4072796
3502: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3503: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3504: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3505: RAISE OKL_API.G_EXCEPTION_ERROR;
3506: END IF;
3507:
3508: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
3509: x_msg_data => x_msg_data);
3504: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3505: RAISE OKL_API.G_EXCEPTION_ERROR;
3506: END IF;
3507:
3508: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
3509: x_msg_data => x_msg_data);
3510:
3511: EXCEPTION
3512: when OKL_API.G_EXCEPTION_ERROR then
3508: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
3509: x_msg_data => x_msg_data);
3510:
3511: EXCEPTION
3512: when OKL_API.G_EXCEPTION_ERROR then
3513:
3514: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
3515: p_api_name => l_api_name,
3516: p_pkg_name => G_PKG_NAME,
3510:
3511: EXCEPTION
3512: when OKL_API.G_EXCEPTION_ERROR then
3513:
3514: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
3515: p_api_name => l_api_name,
3516: p_pkg_name => G_PKG_NAME,
3517: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
3518: x_msg_count => x_msg_count,
3513:
3514: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
3515: p_api_name => l_api_name,
3516: p_pkg_name => G_PKG_NAME,
3517: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
3518: x_msg_count => x_msg_count,
3519: x_msg_data => x_msg_data,
3520: p_api_type => G_API_TYPE);
3521:
3518: x_msg_count => x_msg_count,
3519: x_msg_data => x_msg_data,
3520: p_api_type => G_API_TYPE);
3521:
3522: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
3523:
3524: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
3525: p_api_name => l_api_name,
3526: p_pkg_name => G_PKG_NAME,
3520: p_api_type => G_API_TYPE);
3521:
3522: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
3523:
3524: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
3525: p_api_name => l_api_name,
3526: p_pkg_name => G_PKG_NAME,
3527: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
3528: x_msg_count => x_msg_count,
3523:
3524: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
3525: p_api_name => l_api_name,
3526: p_pkg_name => G_PKG_NAME,
3527: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
3528: x_msg_count => x_msg_count,
3529: x_msg_data => x_msg_data,
3530: p_api_type => G_API_TYPE);
3531:
3530: p_api_type => G_API_TYPE);
3531:
3532: when OTHERS then
3533:
3534: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
3535: p_api_name => l_api_name,
3536: p_pkg_name => G_PKG_NAME,
3537: p_exc_name => 'OTHERS',
3538: x_msg_count => x_msg_count,
3563: x_msg_data OUT NOCOPY VARCHAR2,
3564: p_chr_id IN NUMBER,
3565: p_release_date IN DATE) IS
3566:
3567: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
3568: l_api_name CONSTANT VARCHAR2(30) := 'ADJUST_PAYMENT_LINES';
3569: l_api_version CONSTANT NUMBER := 1.0;
3570:
3571: CURSOR contract_payment_csr
3635: l_new_start_date DATE;
3636: l_stub_amount NUMBER;
3637: l_stub_days NUMBER;
3638: BEGIN
3639: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
3640: -- Call start_activity to create savepoint, check compatibility
3641: -- and initialize message list
3642: l_return_status := Okl_Api.START_ACTIVITY(
3643: p_api_name => l_api_name,
3638: BEGIN
3639: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
3640: -- Call start_activity to create savepoint, check compatibility
3641: -- and initialize message list
3642: l_return_status := Okl_Api.START_ACTIVITY(
3643: p_api_name => l_api_name,
3644: p_pkg_name => g_pkg_name,
3645: p_init_msg_list => p_init_msg_list,
3646: l_api_version => l_api_version,
3647: p_api_version => p_api_version,
3648: p_api_type => '_PVT',
3649: x_return_status => x_return_status);
3650: -- Check if activity started successfully
3651: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
3652: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3653: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
3654: RAISE Okl_Api.G_EXCEPTION_ERROR;
3655: END IF;
3648: p_api_type => '_PVT',
3649: x_return_status => x_return_status);
3650: -- Check if activity started successfully
3651: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
3652: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3653: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
3654: RAISE Okl_Api.G_EXCEPTION_ERROR;
3655: END IF;
3656:
3649: x_return_status => x_return_status);
3650: -- Check if activity started successfully
3651: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
3652: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3653: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
3654: RAISE Okl_Api.G_EXCEPTION_ERROR;
3655: END IF;
3656:
3657: for contract_payment_rec in contract_payment_csr
3650: -- Check if activity started successfully
3651: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
3652: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3653: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
3654: RAISE Okl_Api.G_EXCEPTION_ERROR;
3655: END IF;
3656:
3657: for contract_payment_rec in contract_payment_csr
3658: (p_chr_id => p_chr_id,
3670: x_msg_count => x_msg_count,
3671: x_msg_data => x_msg_data,
3672: p_rulv_rec => l_rulv_rec
3673: );
3674: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
3675: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3676: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
3677: RAISE OKL_API.G_EXCEPTION_ERROR;
3678: END IF;
3671: x_msg_data => x_msg_data,
3672: p_rulv_rec => l_rulv_rec
3673: );
3674: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
3675: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3676: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
3677: RAISE OKL_API.G_EXCEPTION_ERROR;
3678: END IF;
3679:
3672: p_rulv_rec => l_rulv_rec
3673: );
3674: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
3675: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3676: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
3677: RAISE OKL_API.G_EXCEPTION_ERROR;
3678: END IF;
3679:
3680: -- Update SLL Start Date, Periods and Amount where End Date is greater than
3673: );
3674: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
3675: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3676: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
3677: RAISE OKL_API.G_EXCEPTION_ERROR;
3678: END IF;
3679:
3680: -- Update SLL Start Date, Periods and Amount where End Date is greater than
3681: -- or equal to Re-lease date and Start Date is less than Re-lease date
3712: x_msg_data => x_msg_data,
3713: p_rulv_rec => l_rulv_rec,
3714: x_rulv_rec => lx_rulv_rec);
3715:
3716: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3717: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3718: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3719: RAISE OKL_API.G_EXCEPTION_ERROR;
3720: END IF;
3713: p_rulv_rec => l_rulv_rec,
3714: x_rulv_rec => lx_rulv_rec);
3715:
3716: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3717: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3718: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3719: RAISE OKL_API.G_EXCEPTION_ERROR;
3720: END IF;
3721:
3714: x_rulv_rec => lx_rulv_rec);
3715:
3716: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3717: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3718: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3719: RAISE OKL_API.G_EXCEPTION_ERROR;
3720: END IF;
3721:
3722: elsif (contract_payment_rec.periods > 1) then
3715:
3716: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3717: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3718: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3719: RAISE OKL_API.G_EXCEPTION_ERROR;
3720: END IF;
3721:
3722: elsif (contract_payment_rec.periods > 1) then
3723:
3741: x_msg_count => x_msg_count,
3742: x_msg_data => x_msg_data,
3743: p_rulv_rec => l_rulv_rec
3744: );
3745: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
3746: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3747: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
3748: RAISE OKL_API.G_EXCEPTION_ERROR;
3749: END IF;
3742: x_msg_data => x_msg_data,
3743: p_rulv_rec => l_rulv_rec
3744: );
3745: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
3746: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3747: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
3748: RAISE OKL_API.G_EXCEPTION_ERROR;
3749: END IF;
3750:
3743: p_rulv_rec => l_rulv_rec
3744: );
3745: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
3746: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3747: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
3748: RAISE OKL_API.G_EXCEPTION_ERROR;
3749: END IF;
3750:
3751: else
3744: );
3745: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
3746: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3747: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
3748: RAISE OKL_API.G_EXCEPTION_ERROR;
3749: END IF;
3750:
3751: else
3752:
3763: x_msg_data => x_msg_data,
3764: p_rulv_rec => l_rulv_rec,
3765: x_rulv_rec => lx_rulv_rec);
3766:
3767: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3768: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3769: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3770: RAISE OKL_API.G_EXCEPTION_ERROR;
3771: END IF;
3764: p_rulv_rec => l_rulv_rec,
3765: x_rulv_rec => lx_rulv_rec);
3766:
3767: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3768: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3769: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3770: RAISE OKL_API.G_EXCEPTION_ERROR;
3771: END IF;
3772: end if;
3765: x_rulv_rec => lx_rulv_rec);
3766:
3767: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3768: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3769: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3770: RAISE OKL_API.G_EXCEPTION_ERROR;
3771: END IF;
3772: end if;
3773:
3766:
3767: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3768: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3769: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3770: RAISE OKL_API.G_EXCEPTION_ERROR;
3771: END IF;
3772: end if;
3773:
3774: -- Create Stub payment line for 1st payment
3815: x_msg_data => x_msg_data,
3816: p_rulv_rec => l_rulv_rec,
3817: x_rulv_rec => lx_rulv_rec);
3818:
3819: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3820: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3821: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3822: RAISE OKL_API.G_EXCEPTION_ERROR;
3823: END IF;
3816: p_rulv_rec => l_rulv_rec,
3817: x_rulv_rec => lx_rulv_rec);
3818:
3819: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3820: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3821: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3822: RAISE OKL_API.G_EXCEPTION_ERROR;
3823: END IF;
3824: end if; --Stub days greater than 0
3817: x_rulv_rec => lx_rulv_rec);
3818:
3819: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3820: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3821: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3822: RAISE OKL_API.G_EXCEPTION_ERROR;
3823: END IF;
3824: end if; --Stub days greater than 0
3825: end if; --Factor is not null
3818:
3819: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3820: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3821: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3822: RAISE OKL_API.G_EXCEPTION_ERROR;
3823: END IF;
3824: end if; --Stub days greater than 0
3825: end if; --Factor is not null
3826: end if; --Periods equal/greater than 1
3838: x_msg_count => x_msg_count,
3839: x_msg_data => x_msg_data,
3840: p_rulv_rec => l_rulv_rec
3841: );
3842: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
3843: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3844: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
3845: RAISE OKL_API.G_EXCEPTION_ERROR;
3846: END IF;
3839: x_msg_data => x_msg_data,
3840: p_rulv_rec => l_rulv_rec
3841: );
3842: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
3843: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3844: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
3845: RAISE OKL_API.G_EXCEPTION_ERROR;
3846: END IF;
3847: end loop;
3840: p_rulv_rec => l_rulv_rec
3841: );
3842: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
3843: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3844: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
3845: RAISE OKL_API.G_EXCEPTION_ERROR;
3846: END IF;
3847: end loop;
3848:
3841: );
3842: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
3843: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3844: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
3845: RAISE OKL_API.G_EXCEPTION_ERROR;
3846: END IF;
3847: end loop;
3848:
3849: for rgp_rec in rgp_csr(p_chr_id => p_chr_id) loop
3857: x_msg_count => x_msg_count,
3858: x_msg_data => x_msg_data,
3859: p_rgpv_rec => l_rgpv_rec
3860: );
3861: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
3862: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3863: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
3864: RAISE OKL_API.G_EXCEPTION_ERROR;
3865: END IF;
3858: x_msg_data => x_msg_data,
3859: p_rgpv_rec => l_rgpv_rec
3860: );
3861: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
3862: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3863: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
3864: RAISE OKL_API.G_EXCEPTION_ERROR;
3865: END IF;
3866: end loop;
3859: p_rgpv_rec => l_rgpv_rec
3860: );
3861: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
3862: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3863: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
3864: RAISE OKL_API.G_EXCEPTION_ERROR;
3865: END IF;
3866: end loop;
3867:
3860: );
3861: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
3862: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3863: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
3864: RAISE OKL_API.G_EXCEPTION_ERROR;
3865: END IF;
3866: end loop;
3867:
3868: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
3864: RAISE OKL_API.G_EXCEPTION_ERROR;
3865: END IF;
3866: end loop;
3867:
3868: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
3869: x_msg_data => x_msg_data);
3870:
3871: EXCEPTION
3872: when OKL_API.G_EXCEPTION_ERROR then
3868: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
3869: x_msg_data => x_msg_data);
3870:
3871: EXCEPTION
3872: when OKL_API.G_EXCEPTION_ERROR then
3873:
3874: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
3875: p_api_name => l_api_name,
3876: p_pkg_name => G_PKG_NAME,
3870:
3871: EXCEPTION
3872: when OKL_API.G_EXCEPTION_ERROR then
3873:
3874: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
3875: p_api_name => l_api_name,
3876: p_pkg_name => G_PKG_NAME,
3877: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
3878: x_msg_count => x_msg_count,
3873:
3874: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
3875: p_api_name => l_api_name,
3876: p_pkg_name => G_PKG_NAME,
3877: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
3878: x_msg_count => x_msg_count,
3879: x_msg_data => x_msg_data,
3880: p_api_type => G_API_TYPE);
3881:
3878: x_msg_count => x_msg_count,
3879: x_msg_data => x_msg_data,
3880: p_api_type => G_API_TYPE);
3881:
3882: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
3883:
3884: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
3885: p_api_name => l_api_name,
3886: p_pkg_name => G_PKG_NAME,
3880: p_api_type => G_API_TYPE);
3881:
3882: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
3883:
3884: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
3885: p_api_name => l_api_name,
3886: p_pkg_name => G_PKG_NAME,
3887: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
3888: x_msg_count => x_msg_count,
3883:
3884: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
3885: p_api_name => l_api_name,
3886: p_pkg_name => G_PKG_NAME,
3887: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
3888: x_msg_count => x_msg_count,
3889: x_msg_data => x_msg_data,
3890: p_api_type => G_API_TYPE);
3891:
3890: p_api_type => G_API_TYPE);
3891:
3892: when OTHERS then
3893:
3894: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
3895: p_api_name => l_api_name,
3896: p_pkg_name => G_PKG_NAME,
3897: p_exc_name => 'OTHERS',
3898: x_msg_count => x_msg_count,
3927: x_return_status OUT NOCOPY VARCHAR2,
3928: x_msg_count OUT NOCOPY NUMBER,
3929: x_msg_data OUT NOCOPY VARCHAR2) IS
3930:
3931: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
3932: l_api_name CONSTANT VARCHAR2(30) := 'Get_Principal_Bal';
3933: l_api_version CONSTANT NUMBER := 1.0;
3934:
3935: CURSOR streams_csr(p_chr_id IN NUMBER,
3960: l_principal_bal NUMBER;
3961: l_principal_bal_sty_id NUMBER;
3962:
3963: BEGIN
3964: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
3965: -- Call start_activity to create savepoint, check compatibility
3966: -- and initialize message list
3967: l_return_status := Okl_Api.START_ACTIVITY(
3968: p_api_name => l_api_name,
3963: BEGIN
3964: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
3965: -- Call start_activity to create savepoint, check compatibility
3966: -- and initialize message list
3967: l_return_status := Okl_Api.START_ACTIVITY(
3968: p_api_name => l_api_name,
3969: p_pkg_name => g_pkg_name,
3970: p_init_msg_list => p_init_msg_list,
3971: l_api_version => l_api_version,
3972: p_api_version => p_api_version,
3973: p_api_type => '_PVT',
3974: x_return_status => x_return_status);
3975: -- Check if activity started successfully
3976: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
3977: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3978: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
3979: RAISE Okl_Api.G_EXCEPTION_ERROR;
3980: END IF;
3973: p_api_type => '_PVT',
3974: x_return_status => x_return_status);
3975: -- Check if activity started successfully
3976: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
3977: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3978: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
3979: RAISE Okl_Api.G_EXCEPTION_ERROR;
3980: END IF;
3981:
3974: x_return_status => x_return_status);
3975: -- Check if activity started successfully
3976: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
3977: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3978: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
3979: RAISE Okl_Api.G_EXCEPTION_ERROR;
3980: END IF;
3981:
3982: -- Fetch Stream information from Original Contract
3975: -- Check if activity started successfully
3976: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
3977: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3978: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
3979: RAISE Okl_Api.G_EXCEPTION_ERROR;
3980: END IF;
3981:
3982: -- Fetch Stream information from Original Contract
3983: l_principal_bal_sty_id := null;
3987: p_dependent_sty_purpose => 'PRINCIPAL_BALANCE',
3988: x_return_status => x_return_status,
3989: x_dependent_sty_id => l_principal_bal_sty_id);
3990:
3991: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
3992: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3993: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
3994: RAISE OKL_API.G_EXCEPTION_ERROR;
3995: END IF;
3988: x_return_status => x_return_status,
3989: x_dependent_sty_id => l_principal_bal_sty_id);
3990:
3991: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
3992: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3993: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
3994: RAISE OKL_API.G_EXCEPTION_ERROR;
3995: END IF;
3996:
3989: x_dependent_sty_id => l_principal_bal_sty_id);
3990:
3991: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
3992: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3993: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
3994: RAISE OKL_API.G_EXCEPTION_ERROR;
3995: END IF;
3996:
3997: l_principal_bal := 0;
3990:
3991: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
3992: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3993: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
3994: RAISE OKL_API.G_EXCEPTION_ERROR;
3995: END IF;
3996:
3997: l_principal_bal := 0;
3998: if (l_principal_bal_sty_id IS NOT NULL) then
4016:
4017: x_principal_balance := l_principal_bal;
4018: x_accumulated_int := 0;
4019:
4020: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
4021: x_msg_data => x_msg_data);
4022:
4023: EXCEPTION
4024: when OKL_API.G_EXCEPTION_ERROR then
4020: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
4021: x_msg_data => x_msg_data);
4022:
4023: EXCEPTION
4024: when OKL_API.G_EXCEPTION_ERROR then
4025:
4026: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4027: p_api_name => l_api_name,
4028: p_pkg_name => G_PKG_NAME,
4022:
4023: EXCEPTION
4024: when OKL_API.G_EXCEPTION_ERROR then
4025:
4026: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4027: p_api_name => l_api_name,
4028: p_pkg_name => G_PKG_NAME,
4029: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
4030: x_msg_count => x_msg_count,
4025:
4026: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4027: p_api_name => l_api_name,
4028: p_pkg_name => G_PKG_NAME,
4029: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
4030: x_msg_count => x_msg_count,
4031: x_msg_data => x_msg_data,
4032: p_api_type => G_API_TYPE);
4033:
4030: x_msg_count => x_msg_count,
4031: x_msg_data => x_msg_data,
4032: p_api_type => G_API_TYPE);
4033:
4034: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
4035:
4036: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4037: p_api_name => l_api_name,
4038: p_pkg_name => G_PKG_NAME,
4032: p_api_type => G_API_TYPE);
4033:
4034: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
4035:
4036: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4037: p_api_name => l_api_name,
4038: p_pkg_name => G_PKG_NAME,
4039: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
4040: x_msg_count => x_msg_count,
4035:
4036: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4037: p_api_name => l_api_name,
4038: p_pkg_name => G_PKG_NAME,
4039: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
4040: x_msg_count => x_msg_count,
4041: x_msg_data => x_msg_data,
4042: p_api_type => G_API_TYPE);
4043:
4042: p_api_type => G_API_TYPE);
4043:
4044: when OTHERS then
4045:
4046: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4047: p_api_name => l_api_name,
4048: p_pkg_name => G_PKG_NAME,
4049: p_exc_name => 'OTHERS',
4050: x_msg_count => x_msg_count,
4076: p_chr_id IN NUMBER,
4077: p_orig_chr_id IN NUMBER,
4078: p_release_date IN DATE) IS
4079:
4080: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
4081: l_api_name CONSTANT VARCHAR2(30) := 'ADJUST_FEE_LINES';
4082: l_api_version CONSTANT NUMBER := 1.0;
4083:
4084: CURSOR contract_fee_csr
4293: l_fee_type okl_k_lines.fee_type%TYPE;
4294: -- End change for rollover by fmiao on 12-NOV-2004--
4295:
4296: BEGIN
4297: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
4298: -- Call start_activity to create savepoint, check compatibility
4299: -- and initialize message list
4300: l_return_status := Okl_Api.START_ACTIVITY(
4301: p_api_name => l_api_name,
4296: BEGIN
4297: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
4298: -- Call start_activity to create savepoint, check compatibility
4299: -- and initialize message list
4300: l_return_status := Okl_Api.START_ACTIVITY(
4301: p_api_name => l_api_name,
4302: p_pkg_name => g_pkg_name,
4303: p_init_msg_list => p_init_msg_list,
4304: l_api_version => l_api_version,
4305: p_api_version => p_api_version,
4306: p_api_type => '_PVT',
4307: x_return_status => x_return_status);
4308: -- Check if activity started successfully
4309: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
4310: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
4311: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
4312: RAISE Okl_Api.G_EXCEPTION_ERROR;
4313: END IF;
4306: p_api_type => '_PVT',
4307: x_return_status => x_return_status);
4308: -- Check if activity started successfully
4309: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
4310: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
4311: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
4312: RAISE Okl_Api.G_EXCEPTION_ERROR;
4313: END IF;
4314:
4307: x_return_status => x_return_status);
4308: -- Check if activity started successfully
4309: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
4310: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
4311: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
4312: RAISE Okl_Api.G_EXCEPTION_ERROR;
4313: END IF;
4314:
4315: l_currency_code := '?';
4308: -- Check if activity started successfully
4309: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
4310: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
4311: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
4312: RAISE Okl_Api.G_EXCEPTION_ERROR;
4313: END IF;
4314:
4315: l_currency_code := '?';
4316: open curr_hdr_csr (p_chr_id);
4318: close curr_hdr_csr;
4319:
4320: if (l_currency_code = '?') then
4321:
4322: OKL_API.set_message(p_app_name => G_APP_NAME,
4323: p_msg_name => G_REQUIRED_VALUE,
4324: p_token1 => G_COL_NAME_TOKEN,
4325: p_token1_value => 'Currency Code');
4326: RAISE OKL_API.G_EXCEPTION_ERROR;
4322: OKL_API.set_message(p_app_name => G_APP_NAME,
4323: p_msg_name => G_REQUIRED_VALUE,
4324: p_token1 => G_COL_NAME_TOKEN,
4325: p_token1_value => 'Currency Code');
4326: RAISE OKL_API.G_EXCEPTION_ERROR;
4327: end if;
4328:
4329: for contract_fee_rec in contract_fee_csr
4330: (p_chr_id => p_chr_id) loop
4359: x_msg_data => x_msg_data,
4360: p_line_id => contract_fee_rec.id
4361: );
4362:
4363: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
4364: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4365: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
4366: RAISE OKL_API.G_EXCEPTION_ERROR;
4367: END IF;
4360: p_line_id => contract_fee_rec.id
4361: );
4362:
4363: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
4364: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4365: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
4366: RAISE OKL_API.G_EXCEPTION_ERROR;
4367: END IF;
4368:
4361: );
4362:
4363: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
4364: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4365: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
4366: RAISE OKL_API.G_EXCEPTION_ERROR;
4367: END IF;
4368:
4369: -- If Fee Line Start date is greater than or equal to Re-lease Date
4362:
4363: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
4364: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4365: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
4366: RAISE OKL_API.G_EXCEPTION_ERROR;
4367: END IF;
4368:
4369: -- If Fee Line Start date is greater than or equal to Re-lease Date
4370: -- make updates for Covered assets not moved over
4399: x_msg_data => x_msg_data,
4400: p_line_id => contract_fee_rec.id
4401: );
4402:
4403: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
4404: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4405: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
4406: RAISE OKL_API.G_EXCEPTION_ERROR;
4407: END IF;
4400: p_line_id => contract_fee_rec.id
4401: );
4402:
4403: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
4404: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4405: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
4406: RAISE OKL_API.G_EXCEPTION_ERROR;
4407: END IF;
4408:
4401: );
4402:
4403: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
4404: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4405: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
4406: RAISE OKL_API.G_EXCEPTION_ERROR;
4407: END IF;
4408:
4409: -- Covered assets associated with Fee
4402:
4403: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
4404: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4405: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
4406: RAISE OKL_API.G_EXCEPTION_ERROR;
4407: END IF;
4408:
4409: -- Covered assets associated with Fee
4410: else
4430: x_clev_rec => lx_clev_rec,
4431: x_klev_rec => lx_klev_rec
4432: );
4433:
4434: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
4435: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4436: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
4437: RAISE OKL_API.G_EXCEPTION_ERROR;
4438: END IF;
4431: x_klev_rec => lx_klev_rec
4432: );
4433:
4434: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
4435: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4436: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
4437: RAISE OKL_API.G_EXCEPTION_ERROR;
4438: END IF;
4439: end if;
4432: );
4433:
4434: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
4435: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4436: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
4437: RAISE OKL_API.G_EXCEPTION_ERROR;
4438: END IF;
4439: end if;
4440:
4433:
4434: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
4435: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4436: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
4437: RAISE OKL_API.G_EXCEPTION_ERROR;
4438: END IF;
4439: end if;
4440:
4441: end if; --Subline Present Y/N
4476: x_clev_rec => lx_clev_rec,
4477: x_klev_rec => lx_klev_rec
4478: );
4479:
4480: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
4481: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4482: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
4483: RAISE OKL_API.G_EXCEPTION_ERROR;
4484: END IF;
4477: x_klev_rec => lx_klev_rec
4478: );
4479:
4480: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
4481: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4482: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
4483: RAISE OKL_API.G_EXCEPTION_ERROR;
4484: END IF;
4485: end if; -- Subline exists and Fee Amount <> Sum of Covered asset amounts
4478: );
4479:
4480: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
4481: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4482: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
4483: RAISE OKL_API.G_EXCEPTION_ERROR;
4484: END IF;
4485: end if; -- Subline exists and Fee Amount <> Sum of Covered asset amounts
4486:
4479:
4480: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
4481: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4482: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
4483: RAISE OKL_API.G_EXCEPTION_ERROR;
4484: END IF;
4485: end if; -- Subline exists and Fee Amount <> Sum of Covered asset amounts
4486:
4487: end if; --Capitalized Fee / Rollover fee
4531: x_msg_data => x_msg_data,
4532: p_line_id => contract_fee_rec.id
4533: );
4534:
4535: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
4536: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4537: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
4538: RAISE OKL_API.G_EXCEPTION_ERROR;
4539: END IF;
4532: p_line_id => contract_fee_rec.id
4533: );
4534:
4535: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
4536: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4537: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
4538: RAISE OKL_API.G_EXCEPTION_ERROR;
4539: END IF;
4540:
4533: );
4534:
4535: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
4536: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4537: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
4538: RAISE OKL_API.G_EXCEPTION_ERROR;
4539: END IF;
4540:
4541: -- Covered assets associated with Fee
4534:
4535: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
4536: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4537: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
4538: RAISE OKL_API.G_EXCEPTION_ERROR;
4539: END IF;
4540:
4541: -- Covered assets associated with Fee
4542: else
4566: x_clev_rec => lx_clev_rec,
4567: x_klev_rec => lx_klev_rec
4568: );
4569:
4570: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
4571: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4572: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
4573: RAISE OKL_API.G_EXCEPTION_ERROR;
4574: END IF;
4567: x_klev_rec => lx_klev_rec
4568: );
4569:
4570: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
4571: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4572: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
4573: RAISE OKL_API.G_EXCEPTION_ERROR;
4574: END IF;
4575:
4568: );
4569:
4570: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
4571: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4572: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
4573: RAISE OKL_API.G_EXCEPTION_ERROR;
4574: END IF;
4575:
4576: -- Set Covered Asset line Start Dates equal to Release Date
4569:
4570: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
4571: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4572: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
4573: RAISE OKL_API.G_EXCEPTION_ERROR;
4574: END IF;
4575:
4576: -- Set Covered Asset line Start Dates equal to Release Date
4577: OKL_CONTRACT_PUB.update_contract_line(
4585: x_clev_tbl => lx_sub_clev_tbl,
4586: x_klev_tbl => lx_sub_klev_tbl
4587: );
4588:
4589: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
4590: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4591: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
4592: RAISE OKL_API.G_EXCEPTION_ERROR;
4593: END IF;
4586: x_klev_tbl => lx_sub_klev_tbl
4587: );
4588:
4589: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
4590: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4591: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
4592: RAISE OKL_API.G_EXCEPTION_ERROR;
4593: END IF;
4594:
4587: );
4588:
4589: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
4590: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4591: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
4592: RAISE OKL_API.G_EXCEPTION_ERROR;
4593: END IF;
4594:
4595: end if; --Subline Present Y/N
4588:
4589: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
4590: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4591: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
4592: RAISE OKL_API.G_EXCEPTION_ERROR;
4593: END IF;
4594:
4595: end if; --Subline Present Y/N
4596:
4620: x_msg_data => x_msg_data,
4621: p_line_id => contract_fee_rec.id
4622: );
4623:
4624: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
4625: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4626: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
4627: RAISE OKL_API.G_EXCEPTION_ERROR;
4628: END IF;
4621: p_line_id => contract_fee_rec.id
4622: );
4623:
4624: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
4625: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4626: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
4627: RAISE OKL_API.G_EXCEPTION_ERROR;
4628: END IF;
4629:
4622: );
4623:
4624: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
4625: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4626: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
4627: RAISE OKL_API.G_EXCEPTION_ERROR;
4628: END IF;
4629:
4630: --avsingh : payment may exist at the sub-line level
4623:
4624: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
4625: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4626: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
4627: RAISE OKL_API.G_EXCEPTION_ERROR;
4628: END IF;
4629:
4630: --avsingh : payment may exist at the sub-line level
4631: elsif (l_fee_type = 'ROLLOVER') then
4693: x_clev_tbl => lx_sub_clev_tbl,
4694: x_klev_tbl => lx_sub_klev_tbl
4695: );
4696:
4697: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
4698: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4699: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
4700: RAISE OKL_API.G_EXCEPTION_ERROR;
4701: END IF;
4694: x_klev_tbl => lx_sub_klev_tbl
4695: );
4696:
4697: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
4698: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4699: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
4700: RAISE OKL_API.G_EXCEPTION_ERROR;
4701: END IF;
4702:
4695: );
4696:
4697: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
4698: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4699: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
4700: RAISE OKL_API.G_EXCEPTION_ERROR;
4701: END IF;
4702:
4703: lp_clev_rec.id := contract_fee_rec.id;
4696:
4697: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
4698: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4699: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
4700: RAISE OKL_API.G_EXCEPTION_ERROR;
4701: END IF;
4702:
4703: lp_clev_rec.id := contract_fee_rec.id;
4704: lp_clev_rec.start_date := p_release_date;
4720: x_clev_rec => lx_clev_rec,
4721: x_klev_rec => lx_klev_rec
4722: );
4723:
4724: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
4725: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4726: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
4727: RAISE OKL_API.G_EXCEPTION_ERROR;
4728: END IF;
4721: x_klev_rec => lx_klev_rec
4722: );
4723:
4724: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
4725: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4726: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
4727: RAISE OKL_API.G_EXCEPTION_ERROR;
4728: END IF;
4729:
4722: );
4723:
4724: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
4725: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4726: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
4727: RAISE OKL_API.G_EXCEPTION_ERROR;
4728: END IF;
4729:
4730: else --sublines not found
4723:
4724: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
4725: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4726: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
4727: RAISE OKL_API.G_EXCEPTION_ERROR;
4728: END IF;
4729:
4730: else --sublines not found
4731:
4738: x_msg_data => x_msg_data,
4739: p_line_id => contract_fee_rec.id
4740: );
4741:
4742: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
4743: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4744: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
4745: RAISE OKL_API.G_EXCEPTION_ERROR;
4746: END IF;
4739: p_line_id => contract_fee_rec.id
4740: );
4741:
4742: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
4743: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4744: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
4745: RAISE OKL_API.G_EXCEPTION_ERROR;
4746: END IF;
4747:
4740: );
4741:
4742: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
4743: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4744: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
4745: RAISE OKL_API.G_EXCEPTION_ERROR;
4746: END IF;
4747:
4748: end if; -- Subline exists
4741:
4742: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
4743: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4744: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
4745: RAISE OKL_API.G_EXCEPTION_ERROR;
4746: END IF;
4747:
4748: end if; -- Subline exists
4749: --avsingh : payment may exist at sub-line level
4810: x_msg_data => x_msg_data);
4811:
4812: -- End change for accrued interest by fmiao 09-NOV-04--
4813:
4814: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
4815: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4816: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
4817: RAISE OKL_API.G_EXCEPTION_ERROR;
4818: END IF;
4811:
4812: -- End change for accrued interest by fmiao 09-NOV-04--
4813:
4814: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
4815: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4816: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
4817: RAISE OKL_API.G_EXCEPTION_ERROR;
4818: END IF;
4819:
4812: -- End change for accrued interest by fmiao 09-NOV-04--
4813:
4814: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
4815: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4816: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
4817: RAISE OKL_API.G_EXCEPTION_ERROR;
4818: END IF;
4819:
4820: l_new_fee_amount := l_principal_bal + l_accumulated_int;
4813:
4814: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
4815: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4816: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
4817: RAISE OKL_API.G_EXCEPTION_ERROR;
4818: END IF;
4819:
4820: l_new_fee_amount := l_principal_bal + l_accumulated_int;
4821:
4889: x_clev_tbl => lx_sub_clev_tbl,
4890: x_klev_tbl => lx_sub_klev_tbl
4891: );
4892:
4893: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
4894: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4895: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
4896: RAISE OKL_API.G_EXCEPTION_ERROR;
4897: END IF;
4890: x_klev_tbl => lx_sub_klev_tbl
4891: );
4892:
4893: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
4894: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4895: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
4896: RAISE OKL_API.G_EXCEPTION_ERROR;
4897: END IF;
4898: end if; -- Subline exists
4891: );
4892:
4893: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
4894: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4895: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
4896: RAISE OKL_API.G_EXCEPTION_ERROR;
4897: END IF;
4898: end if; -- Subline exists
4899: end if; -- Fee Type - Income / Passthrough /Rollover
4892:
4893: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
4894: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4895: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
4896: RAISE OKL_API.G_EXCEPTION_ERROR;
4897: END IF;
4898: end if; -- Subline exists
4899: end if; -- Fee Type - Income / Passthrough /Rollover
4900:
4919: x_clev_rec => lx_clev_rec,
4920: x_klev_rec => lx_klev_rec
4921: );
4922:
4923: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
4924: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4925: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
4926: RAISE OKL_API.G_EXCEPTION_ERROR;
4927: END IF;
4920: x_klev_rec => lx_klev_rec
4921: );
4922:
4923: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
4924: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4925: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
4926: RAISE OKL_API.G_EXCEPTION_ERROR;
4927: END IF;
4928:
4921: );
4922:
4923: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
4924: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4925: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
4926: RAISE OKL_API.G_EXCEPTION_ERROR;
4927: END IF;
4928:
4929: end if; --Payment exists Y/N
4922:
4923: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
4924: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4925: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
4926: RAISE OKL_API.G_EXCEPTION_ERROR;
4927: END IF;
4928:
4929: end if; --Payment exists Y/N
4930: end if; --Capitalized Fee Y/N
4967: p_dependent_sty_purpose => 'AMORTIZED_FEE_EXPENSE',
4968: x_return_status => x_return_status,
4969: x_dependent_sty_id => l_idc_sty_id);
4970:
4971: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
4972: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4973: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
4974: RAISE OKL_API.G_EXCEPTION_ERROR;
4975: END IF;
4968: x_return_status => x_return_status,
4969: x_dependent_sty_id => l_idc_sty_id);
4970:
4971: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
4972: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4973: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
4974: RAISE OKL_API.G_EXCEPTION_ERROR;
4975: END IF;
4976:
4969: x_dependent_sty_id => l_idc_sty_id);
4970:
4971: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
4972: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4973: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
4974: RAISE OKL_API.G_EXCEPTION_ERROR;
4975: END IF;
4976:
4977: if (l_idc_sty_id IS NOT NULL) then
4970:
4971: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
4972: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4973: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
4974: RAISE OKL_API.G_EXCEPTION_ERROR;
4975: END IF;
4976:
4977: if (l_idc_sty_id IS NOT NULL) then
4978:
5011: x_msg_data => x_msg_data,
5012: p_rulv_rec => l_rulv_rec,
5013: x_rulv_rec => lx_rulv_rec);
5014:
5015: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5016: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5017: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5018: RAISE OKL_API.G_EXCEPTION_ERROR;
5019: END IF;
5012: p_rulv_rec => l_rulv_rec,
5013: x_rulv_rec => lx_rulv_rec);
5014:
5015: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5016: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5017: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5018: RAISE OKL_API.G_EXCEPTION_ERROR;
5019: END IF;
5020:
5013: x_rulv_rec => lx_rulv_rec);
5014:
5015: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5016: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5017: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5018: RAISE OKL_API.G_EXCEPTION_ERROR;
5019: END IF;
5020:
5021: lp_clev_rec.id := contract_fee_rec.id;
5014:
5015: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5016: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5017: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5018: RAISE OKL_API.G_EXCEPTION_ERROR;
5019: END IF;
5020:
5021: lp_clev_rec.id := contract_fee_rec.id;
5022: lp_clev_rec.start_date := p_release_date;
5053: x_clev_rec => lx_clev_rec,
5054: x_klev_rec => lx_klev_rec
5055: );
5056:
5057: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
5058: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5059: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
5060: RAISE OKL_API.G_EXCEPTION_ERROR;
5061: END IF;
5054: x_klev_rec => lx_klev_rec
5055: );
5056:
5057: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
5058: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5059: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
5060: RAISE OKL_API.G_EXCEPTION_ERROR;
5061: END IF;
5062:
5055: );
5056:
5057: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
5058: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5059: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
5060: RAISE OKL_API.G_EXCEPTION_ERROR;
5061: END IF;
5062:
5063: -- No. of periods <= 0
5056:
5057: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
5058: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5059: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
5060: RAISE OKL_API.G_EXCEPTION_ERROR;
5061: END IF;
5062:
5063: -- No. of periods <= 0
5064: else
5081: x_msg_data => x_msg_data,
5082: p_line_id => contract_fee_rec.id
5083: );
5084:
5085: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
5086: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5087: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
5088: RAISE OKL_API.G_EXCEPTION_ERROR;
5089: END IF;
5082: p_line_id => contract_fee_rec.id
5083: );
5084:
5085: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
5086: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5087: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
5088: RAISE OKL_API.G_EXCEPTION_ERROR;
5089: END IF;
5090:
5083: );
5084:
5085: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
5086: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5087: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
5088: RAISE OKL_API.G_EXCEPTION_ERROR;
5089: END IF;
5090:
5091: elsif (l_pymt_exists = 'Y') then
5084:
5085: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
5086: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5087: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
5088: RAISE OKL_API.G_EXCEPTION_ERROR;
5089: END IF;
5090:
5091: elsif (l_pymt_exists = 'Y') then
5092:
5155: x_msg_count => x_msg_count,
5156: x_msg_data => x_msg_data,
5157: p_cimv_rec => lp_cimv_rec,
5158: x_cimv_rec => lx_cimv_rec);
5159: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5160: RAISE OKL_API.G_EXCEPTION_ERROR;
5161: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5162: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5163: END IF;
5156: x_msg_data => x_msg_data,
5157: p_cimv_rec => lp_cimv_rec,
5158: x_cimv_rec => lx_cimv_rec);
5159: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5160: RAISE OKL_API.G_EXCEPTION_ERROR;
5161: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5162: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5163: END IF;
5164:
5157: p_cimv_rec => lp_cimv_rec,
5158: x_cimv_rec => lx_cimv_rec);
5159: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5160: RAISE OKL_API.G_EXCEPTION_ERROR;
5161: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5162: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5163: END IF;
5164:
5165: end if; --Fee item exists
5158: x_cimv_rec => lx_cimv_rec);
5159: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5160: RAISE OKL_API.G_EXCEPTION_ERROR;
5161: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5162: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5163: END IF;
5164:
5165: end if; --Fee item exists
5166: end if; -- Payment Stream Type exists
5195: x_msg_count => x_msg_count,
5196: x_msg_data => x_msg_data);
5197: -- End change for accrued interest by fmiao 09-NOV-04--
5198:
5199: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
5200: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5201: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
5202: RAISE OKL_API.G_EXCEPTION_ERROR;
5203: END IF;
5196: x_msg_data => x_msg_data);
5197: -- End change for accrued interest by fmiao 09-NOV-04--
5198:
5199: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
5200: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5201: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
5202: RAISE OKL_API.G_EXCEPTION_ERROR;
5203: END IF;
5204:
5197: -- End change for accrued interest by fmiao 09-NOV-04--
5198:
5199: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
5200: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5201: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
5202: RAISE OKL_API.G_EXCEPTION_ERROR;
5203: END IF;
5204:
5205: lp_klev_rec.amount := l_principal_bal + l_accumulated_int;
5198:
5199: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
5200: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5201: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
5202: RAISE OKL_API.G_EXCEPTION_ERROR;
5203: END IF;
5204:
5205: lp_klev_rec.amount := l_principal_bal + l_accumulated_int;
5206:
5224: x_msg_data => x_msg_data,
5225: p_rulv_rec => l_rulv_rec,
5226: x_rulv_rec => lx_rulv_rec);
5227:
5228: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5229: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5230: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5231: RAISE OKL_API.G_EXCEPTION_ERROR;
5232: END IF;
5225: p_rulv_rec => l_rulv_rec,
5226: x_rulv_rec => lx_rulv_rec);
5227:
5228: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5229: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5230: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5231: RAISE OKL_API.G_EXCEPTION_ERROR;
5232: END IF;
5233:
5226: x_rulv_rec => lx_rulv_rec);
5227:
5228: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5229: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5230: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5231: RAISE OKL_API.G_EXCEPTION_ERROR;
5232: END IF;
5233:
5234: end if; -- Fee Type - Miscellaneous / Financed
5227:
5228: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5229: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5230: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5231: RAISE OKL_API.G_EXCEPTION_ERROR;
5232: END IF;
5233:
5234: end if; -- Fee Type - Miscellaneous / Financed
5235:
5246: x_clev_rec => lx_clev_rec,
5247: x_klev_rec => lx_klev_rec
5248: );
5249:
5250: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
5251: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5252: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
5253: RAISE OKL_API.G_EXCEPTION_ERROR;
5254: END IF;
5247: x_klev_rec => lx_klev_rec
5248: );
5249:
5250: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
5251: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5252: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
5253: RAISE OKL_API.G_EXCEPTION_ERROR;
5254: END IF;
5255:
5248: );
5249:
5250: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
5251: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5252: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
5253: RAISE OKL_API.G_EXCEPTION_ERROR;
5254: END IF;
5255:
5256: if (contract_fee_rec.fee_type <> 'FINANCED') then
5249:
5250: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
5251: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5252: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
5253: RAISE OKL_API.G_EXCEPTION_ERROR;
5254: END IF;
5255:
5256: if (contract_fee_rec.fee_type <> 'FINANCED') then
5257: -- Delete Expense Rules as No. of periods is <= 0
5263: x_msg_count => x_msg_count,
5264: x_msg_data => x_msg_data,
5265: p_rgpv_rec => l_rgpv_rec
5266: );
5267: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
5268: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5269: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
5270: RAISE OKL_API.G_EXCEPTION_ERROR;
5271: END IF;
5264: x_msg_data => x_msg_data,
5265: p_rgpv_rec => l_rgpv_rec
5266: );
5267: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
5268: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5269: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
5270: RAISE OKL_API.G_EXCEPTION_ERROR;
5271: END IF;
5272: end if;
5265: p_rgpv_rec => l_rgpv_rec
5266: );
5267: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
5268: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5269: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
5270: RAISE OKL_API.G_EXCEPTION_ERROR;
5271: END IF;
5272: end if;
5273:
5266: );
5267: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
5268: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5269: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
5270: RAISE OKL_API.G_EXCEPTION_ERROR;
5271: END IF;
5272: end if;
5273:
5274: end if; --Payment exists Y/N
5277:
5278: end if; --Fee line End Date >= Release Date
5279: end loop;
5280:
5281: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
5282: x_msg_data => x_msg_data);
5283:
5284: EXCEPTION
5285: when OKL_API.G_EXCEPTION_ERROR then
5281: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
5282: x_msg_data => x_msg_data);
5283:
5284: EXCEPTION
5285: when OKL_API.G_EXCEPTION_ERROR then
5286:
5287: IF fee_expense_csr%ISOPEN THEN
5288: close fee_expense_csr;
5289: END IF;
5287: IF fee_expense_csr%ISOPEN THEN
5288: close fee_expense_csr;
5289: END IF;
5290:
5291: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5292: p_api_name => l_api_name,
5293: p_pkg_name => G_PKG_NAME,
5294: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
5295: x_msg_count => x_msg_count,
5290:
5291: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5292: p_api_name => l_api_name,
5293: p_pkg_name => G_PKG_NAME,
5294: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
5295: x_msg_count => x_msg_count,
5296: x_msg_data => x_msg_data,
5297: p_api_type => G_API_TYPE);
5298:
5295: x_msg_count => x_msg_count,
5296: x_msg_data => x_msg_data,
5297: p_api_type => G_API_TYPE);
5298:
5299: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
5300:
5301: IF fee_expense_csr%ISOPEN THEN
5302: close fee_expense_csr;
5303: END IF;
5301: IF fee_expense_csr%ISOPEN THEN
5302: close fee_expense_csr;
5303: END IF;
5304:
5305: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5306: p_api_name => l_api_name,
5307: p_pkg_name => G_PKG_NAME,
5308: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
5309: x_msg_count => x_msg_count,
5304:
5305: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5306: p_api_name => l_api_name,
5307: p_pkg_name => G_PKG_NAME,
5308: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
5309: x_msg_count => x_msg_count,
5310: x_msg_data => x_msg_data,
5311: p_api_type => G_API_TYPE);
5312:
5315: IF fee_expense_csr%ISOPEN THEN
5316: close fee_expense_csr;
5317: END IF;
5318:
5319: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5320: p_api_name => l_api_name,
5321: p_pkg_name => G_PKG_NAME,
5322: p_exc_name => 'OTHERS',
5323: x_msg_count => x_msg_count,
5349: p_chr_id IN NUMBER,
5350: p_orig_chr_id IN NUMBER,
5351: p_release_date IN DATE) IS
5352:
5353: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
5354: l_api_name CONSTANT VARCHAR2(30) := 'ADJUST_SERVICE_LINES';
5355: l_api_version CONSTANT NUMBER := 1.0;
5356:
5357: CURSOR contract_service_csr
5476: l_sum NUMBER;
5477: i NUMBER;
5478:
5479: BEGIN
5480: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
5481: -- Call start_activity to create savepoint, check compatibility
5482: -- and initialize message list
5483: l_return_status := Okl_Api.START_ACTIVITY(
5484: p_api_name => l_api_name,
5479: BEGIN
5480: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
5481: -- Call start_activity to create savepoint, check compatibility
5482: -- and initialize message list
5483: l_return_status := Okl_Api.START_ACTIVITY(
5484: p_api_name => l_api_name,
5485: p_pkg_name => g_pkg_name,
5486: p_init_msg_list => p_init_msg_list,
5487: l_api_version => l_api_version,
5488: p_api_version => p_api_version,
5489: p_api_type => '_PVT',
5490: x_return_status => x_return_status);
5491: -- Check if activity started successfully
5492: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
5493: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
5494: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
5495: RAISE Okl_Api.G_EXCEPTION_ERROR;
5496: END IF;
5489: p_api_type => '_PVT',
5490: x_return_status => x_return_status);
5491: -- Check if activity started successfully
5492: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
5493: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
5494: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
5495: RAISE Okl_Api.G_EXCEPTION_ERROR;
5496: END IF;
5497:
5490: x_return_status => x_return_status);
5491: -- Check if activity started successfully
5492: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
5493: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
5494: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
5495: RAISE Okl_Api.G_EXCEPTION_ERROR;
5496: END IF;
5497:
5498: l_currency_code := '?';
5491: -- Check if activity started successfully
5492: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
5493: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
5494: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
5495: RAISE Okl_Api.G_EXCEPTION_ERROR;
5496: END IF;
5497:
5498: l_currency_code := '?';
5499: open curr_hdr_csr (p_chr_id);
5501: close curr_hdr_csr;
5502:
5503: if (l_currency_code = '?') then
5504:
5505: OKL_API.set_message(p_app_name => G_APP_NAME,
5506: p_msg_name => G_REQUIRED_VALUE,
5507: p_token1 => G_COL_NAME_TOKEN,
5508: p_token1_value => 'Currency Code');
5509: RAISE OKL_API.G_EXCEPTION_ERROR;
5505: OKL_API.set_message(p_app_name => G_APP_NAME,
5506: p_msg_name => G_REQUIRED_VALUE,
5507: p_token1 => G_COL_NAME_TOKEN,
5508: p_token1_value => 'Currency Code');
5509: RAISE OKL_API.G_EXCEPTION_ERROR;
5510: end if;
5511:
5512: for contract_service_rec in contract_service_csr
5513: (p_chr_id => p_chr_id) loop
5541: x_msg_data => x_msg_data,
5542: p_line_id => contract_service_rec.id
5543: );
5544:
5545: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
5546: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5547: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
5548: RAISE OKL_API.G_EXCEPTION_ERROR;
5549: END IF;
5542: p_line_id => contract_service_rec.id
5543: );
5544:
5545: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
5546: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5547: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
5548: RAISE OKL_API.G_EXCEPTION_ERROR;
5549: END IF;
5550:
5543: );
5544:
5545: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
5546: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5547: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
5548: RAISE OKL_API.G_EXCEPTION_ERROR;
5549: END IF;
5550:
5551: -- If Service Line Start Date is greater than or equal to Re-lease date
5544:
5545: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
5546: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5547: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
5548: RAISE OKL_API.G_EXCEPTION_ERROR;
5549: END IF;
5550:
5551: -- If Service Line Start Date is greater than or equal to Re-lease date
5552: -- Update Service Top line Amount equal to sum of covered assets
5601: x_msg_data => x_msg_data,
5602: p_rulv_rec => l_rulv_rec,
5603: x_rulv_rec => lx_rulv_rec);
5604:
5605: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5606: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5607: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5608: RAISE OKL_API.G_EXCEPTION_ERROR;
5609: END IF;
5602: p_rulv_rec => l_rulv_rec,
5603: x_rulv_rec => lx_rulv_rec);
5604:
5605: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5606: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5607: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5608: RAISE OKL_API.G_EXCEPTION_ERROR;
5609: END IF;
5610: end if; --Periods > 0
5603: x_rulv_rec => lx_rulv_rec);
5604:
5605: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5606: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5607: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5608: RAISE OKL_API.G_EXCEPTION_ERROR;
5609: END IF;
5610: end if; --Periods > 0
5611:
5604:
5605: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5606: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5607: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5608: RAISE OKL_API.G_EXCEPTION_ERROR;
5609: END IF;
5610: end if; --Periods > 0
5611:
5612: -- No Expenses associated with service
5631: x_clev_rec => lx_clev_rec,
5632: x_klev_rec => lx_klev_rec
5633: );
5634:
5635: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
5636: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5637: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
5638: RAISE OKL_API.G_EXCEPTION_ERROR;
5639: END IF;
5632: x_klev_rec => lx_klev_rec
5633: );
5634:
5635: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
5636: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5637: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
5638: RAISE OKL_API.G_EXCEPTION_ERROR;
5639: END IF;
5640:
5633: );
5634:
5635: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
5636: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5637: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
5638: RAISE OKL_API.G_EXCEPTION_ERROR;
5639: END IF;
5640:
5641: end if; --Subline present = 'Y'
5634:
5635: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
5636: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5637: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
5638: RAISE OKL_API.G_EXCEPTION_ERROR;
5639: END IF;
5640:
5641: end if; --Subline present = 'Y'
5642:
5728: x_msg_data => x_msg_data,
5729: p_rulv_rec => l_rulv_rec,
5730: x_rulv_rec => lx_rulv_rec);
5731:
5732: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5733: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5734: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5735: RAISE OKL_API.G_EXCEPTION_ERROR;
5736: END IF;
5729: p_rulv_rec => l_rulv_rec,
5730: x_rulv_rec => lx_rulv_rec);
5731:
5732: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5733: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5734: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5735: RAISE OKL_API.G_EXCEPTION_ERROR;
5736: END IF;
5737:
5730: x_rulv_rec => lx_rulv_rec);
5731:
5732: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5733: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5734: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5735: RAISE OKL_API.G_EXCEPTION_ERROR;
5736: END IF;
5737:
5738: --New No. of periods <= 0
5731:
5732: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5733: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5734: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5735: RAISE OKL_API.G_EXCEPTION_ERROR;
5736: END IF;
5737:
5738: --New No. of periods <= 0
5739: else
5749: x_msg_count => x_msg_count,
5750: x_msg_data => x_msg_data,
5751: p_rgpv_rec => l_rgpv_rec
5752: );
5753: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
5754: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5755: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
5756: RAISE OKL_API.G_EXCEPTION_ERROR;
5757: END IF;
5750: x_msg_data => x_msg_data,
5751: p_rgpv_rec => l_rgpv_rec
5752: );
5753: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
5754: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5755: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
5756: RAISE OKL_API.G_EXCEPTION_ERROR;
5757: END IF;
5758: end if;
5751: p_rgpv_rec => l_rgpv_rec
5752: );
5753: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
5754: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5755: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
5756: RAISE OKL_API.G_EXCEPTION_ERROR;
5757: END IF;
5758: end if;
5759:
5752: );
5753: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
5754: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5755: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
5756: RAISE OKL_API.G_EXCEPTION_ERROR;
5757: END IF;
5758: end if;
5759:
5760: -- No Expense associated with Service
5784: x_clev_rec => lx_clev_rec,
5785: x_klev_rec => lx_klev_rec
5786: );
5787:
5788: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
5789: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5790: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
5791: RAISE OKL_API.G_EXCEPTION_ERROR;
5792: END IF;
5785: x_klev_rec => lx_klev_rec
5786: );
5787:
5788: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
5789: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5790: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
5791: RAISE OKL_API.G_EXCEPTION_ERROR;
5792: END IF;
5793:
5786: );
5787:
5788: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
5789: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5790: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
5791: RAISE OKL_API.G_EXCEPTION_ERROR;
5792: END IF;
5793:
5794: -- Set Covered Asset line Start Dates equal to Release Date
5787:
5788: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
5789: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5790: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
5791: RAISE OKL_API.G_EXCEPTION_ERROR;
5792: END IF;
5793:
5794: -- Set Covered Asset line Start Dates equal to Release Date
5795: OKL_CONTRACT_PUB.update_contract_line(
5803: x_clev_tbl => lx_sub_clev_tbl,
5804: x_klev_tbl => lx_sub_klev_tbl
5805: );
5806:
5807: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
5808: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5809: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
5810: RAISE OKL_API.G_EXCEPTION_ERROR;
5811: END IF;
5804: x_klev_tbl => lx_sub_klev_tbl
5805: );
5806:
5807: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
5808: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5809: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
5810: RAISE OKL_API.G_EXCEPTION_ERROR;
5811: END IF;
5812:
5805: );
5806:
5807: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
5808: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5809: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
5810: RAISE OKL_API.G_EXCEPTION_ERROR;
5811: END IF;
5812:
5813: -- No Covered asset associated with Service
5806:
5807: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
5808: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5809: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
5810: RAISE OKL_API.G_EXCEPTION_ERROR;
5811: END IF;
5812:
5813: -- No Covered asset associated with Service
5814: else
5839: x_clev_rec => lx_clev_rec,
5840: x_klev_rec => lx_klev_rec
5841: );
5842:
5843: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
5844: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5845: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
5846: RAISE OKL_API.G_EXCEPTION_ERROR;
5847: END IF;
5840: x_klev_rec => lx_klev_rec
5841: );
5842:
5843: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
5844: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5845: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
5846: RAISE OKL_API.G_EXCEPTION_ERROR;
5847: END IF;
5848:
5841: );
5842:
5843: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
5844: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5845: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
5846: RAISE OKL_API.G_EXCEPTION_ERROR;
5847: END IF;
5848:
5849: -- Expense is associated with Service
5842:
5843: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
5844: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5845: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
5846: RAISE OKL_API.G_EXCEPTION_ERROR;
5847: END IF;
5848:
5849: -- Expense is associated with Service
5850: else
5870: x_msg_data => x_msg_data,
5871: p_rulv_rec => l_rulv_rec,
5872: x_rulv_rec => lx_rulv_rec);
5873:
5874: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5875: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5876: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5877: RAISE OKL_API.G_EXCEPTION_ERROR;
5878: END IF;
5871: p_rulv_rec => l_rulv_rec,
5872: x_rulv_rec => lx_rulv_rec);
5873:
5874: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5875: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5876: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5877: RAISE OKL_API.G_EXCEPTION_ERROR;
5878: END IF;
5879:
5872: x_rulv_rec => lx_rulv_rec);
5873:
5874: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5875: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5876: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5877: RAISE OKL_API.G_EXCEPTION_ERROR;
5878: END IF;
5879:
5880: lp_clev_rec.id := contract_service_rec.id;
5873:
5874: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5875: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5876: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5877: RAISE OKL_API.G_EXCEPTION_ERROR;
5878: END IF;
5879:
5880: lp_clev_rec.id := contract_service_rec.id;
5881: lp_clev_rec.start_date := p_release_date;
5896: x_clev_rec => lx_clev_rec,
5897: x_klev_rec => lx_klev_rec
5898: );
5899:
5900: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
5901: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5902: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
5903: RAISE OKL_API.G_EXCEPTION_ERROR;
5904: END IF;
5897: x_klev_rec => lx_klev_rec
5898: );
5899:
5900: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
5901: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5902: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
5903: RAISE OKL_API.G_EXCEPTION_ERROR;
5904: END IF;
5905:
5898: );
5899:
5900: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
5901: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5902: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
5903: RAISE OKL_API.G_EXCEPTION_ERROR;
5904: END IF;
5905:
5906: -- No. of periods <= 0
5899:
5900: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
5901: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5902: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
5903: RAISE OKL_API.G_EXCEPTION_ERROR;
5904: END IF;
5905:
5906: -- No. of periods <= 0
5907: else
5927: x_clev_rec => lx_clev_rec,
5928: x_klev_rec => lx_klev_rec
5929: );
5930:
5931: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
5932: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5933: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
5934: RAISE OKL_API.G_EXCEPTION_ERROR;
5935: END IF;
5928: x_klev_rec => lx_klev_rec
5929: );
5930:
5931: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
5932: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5933: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
5934: RAISE OKL_API.G_EXCEPTION_ERROR;
5935: END IF;
5936:
5929: );
5930:
5931: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
5932: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5933: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
5934: RAISE OKL_API.G_EXCEPTION_ERROR;
5935: END IF;
5936:
5937: -- Delete Expense Rules as No. of periods is <= 0
5930:
5931: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
5932: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5933: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
5934: RAISE OKL_API.G_EXCEPTION_ERROR;
5935: END IF;
5936:
5937: -- Delete Expense Rules as No. of periods is <= 0
5938: l_rgpv_rec.id := service_expense_rec.rgp_id; -- LAFEXP Rule Group ID
5943: x_msg_count => x_msg_count,
5944: x_msg_data => x_msg_data,
5945: p_rgpv_rec => l_rgpv_rec
5946: );
5947: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
5948: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5949: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
5950: RAISE OKL_API.G_EXCEPTION_ERROR;
5951: END IF;
5944: x_msg_data => x_msg_data,
5945: p_rgpv_rec => l_rgpv_rec
5946: );
5947: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
5948: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5949: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
5950: RAISE OKL_API.G_EXCEPTION_ERROR;
5951: END IF;
5952:
5945: p_rgpv_rec => l_rgpv_rec
5946: );
5947: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
5948: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5949: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
5950: RAISE OKL_API.G_EXCEPTION_ERROR;
5951: END IF;
5952:
5953: end if; --New No. of periods > 0
5946: );
5947: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
5948: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5949: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
5950: RAISE OKL_API.G_EXCEPTION_ERROR;
5951: END IF;
5952:
5953: end if; --New No. of periods > 0
5954: end if; --Expense associated with Service
5955: end if; --Asset associated with Service
5956: end if; --Service line End Date >= Release Date
5957: end loop;
5958:
5959: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
5960: x_msg_data => x_msg_data);
5961:
5962: EXCEPTION
5963: when OKL_API.G_EXCEPTION_ERROR then
5959: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
5960: x_msg_data => x_msg_data);
5961:
5962: EXCEPTION
5963: when OKL_API.G_EXCEPTION_ERROR then
5964:
5965: IF service_expense_csr%ISOPEN THEN
5966: close service_expense_csr;
5967: END IF;
5969: IF service_subline_csr%ISOPEN THEN
5970: close service_subline_csr;
5971: END IF;
5972:
5973: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5974: p_api_name => l_api_name,
5975: p_pkg_name => G_PKG_NAME,
5976: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
5977: x_msg_count => x_msg_count,
5972:
5973: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5974: p_api_name => l_api_name,
5975: p_pkg_name => G_PKG_NAME,
5976: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
5977: x_msg_count => x_msg_count,
5978: x_msg_data => x_msg_data,
5979: p_api_type => G_API_TYPE);
5980:
5977: x_msg_count => x_msg_count,
5978: x_msg_data => x_msg_data,
5979: p_api_type => G_API_TYPE);
5980:
5981: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
5982:
5983: IF service_expense_csr%ISOPEN THEN
5984: close service_expense_csr;
5985: END IF;
5987: IF service_subline_csr%ISOPEN THEN
5988: close service_subline_csr;
5989: END IF;
5990:
5991: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5992: p_api_name => l_api_name,
5993: p_pkg_name => G_PKG_NAME,
5994: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
5995: x_msg_count => x_msg_count,
5990:
5991: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5992: p_api_name => l_api_name,
5993: p_pkg_name => G_PKG_NAME,
5994: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
5995: x_msg_count => x_msg_count,
5996: x_msg_data => x_msg_data,
5997: p_api_type => G_API_TYPE);
5998:
6005: IF service_subline_csr%ISOPEN THEN
6006: close service_subline_csr;
6007: END IF;
6008:
6009: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
6010: p_api_name => l_api_name,
6011: p_pkg_name => G_PKG_NAME,
6012: p_exc_name => 'OTHERS',
6013: x_msg_count => x_msg_count,
6040: x_msg_count OUT NOCOPY NUMBER,
6041: x_msg_data OUT NOCOPY VARCHAR2,
6042: p_chr_id IN NUMBER) IS
6043:
6044: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
6045: l_api_name CONSTANT VARCHAR2(30) := 'ADJUST_PARTIAL_TAA_PYMT';
6046: l_api_version CONSTANT NUMBER := 1.0;
6047:
6048: CURSOR fee_serv_csr(p_chr_id IN NUMBER)
6096:
6097: l_amount NUMBER;
6098:
6099: BEGIN
6100: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
6101: -- Call start_activity to create savepoint, check compatibility
6102: -- and initialize message list
6103: l_return_status := Okl_Api.START_ACTIVITY(
6104: p_api_name => l_api_name,
6099: BEGIN
6100: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
6101: -- Call start_activity to create savepoint, check compatibility
6102: -- and initialize message list
6103: l_return_status := Okl_Api.START_ACTIVITY(
6104: p_api_name => l_api_name,
6105: p_pkg_name => g_pkg_name,
6106: p_init_msg_list => p_init_msg_list,
6107: l_api_version => l_api_version,
6108: p_api_version => p_api_version,
6109: p_api_type => '_PVT',
6110: x_return_status => x_return_status);
6111: -- Check if activity started successfully
6112: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
6113: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
6114: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
6115: RAISE Okl_Api.G_EXCEPTION_ERROR;
6116: END IF;
6109: p_api_type => '_PVT',
6110: x_return_status => x_return_status);
6111: -- Check if activity started successfully
6112: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
6113: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
6114: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
6115: RAISE Okl_Api.G_EXCEPTION_ERROR;
6116: END IF;
6117:
6110: x_return_status => x_return_status);
6111: -- Check if activity started successfully
6112: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
6113: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
6114: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
6115: RAISE Okl_Api.G_EXCEPTION_ERROR;
6116: END IF;
6117:
6118: l_currency_code := '?';
6111: -- Check if activity started successfully
6112: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
6113: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
6114: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
6115: RAISE Okl_Api.G_EXCEPTION_ERROR;
6116: END IF;
6117:
6118: l_currency_code := '?';
6119: open curr_hdr_csr (p_chr_id);
6121: close curr_hdr_csr;
6122:
6123: if (l_currency_code = '?') then
6124:
6125: OKL_API.set_message(p_app_name => G_APP_NAME,
6126: p_msg_name => G_REQUIRED_VALUE,
6127: p_token1 => G_COL_NAME_TOKEN,
6128: p_token1_value => 'Currency Code');
6129: RAISE OKL_API.G_EXCEPTION_ERROR;
6125: OKL_API.set_message(p_app_name => G_APP_NAME,
6126: p_msg_name => G_REQUIRED_VALUE,
6127: p_token1 => G_COL_NAME_TOKEN,
6128: p_token1_value => 'Currency Code');
6129: RAISE OKL_API.G_EXCEPTION_ERROR;
6130: end if;
6131:
6132: for fee_serv_rec in fee_serv_csr(p_chr_id => p_chr_id)loop
6133:
6165: x_msg_data => x_msg_data,
6166: p_rulv_rec => l_rulv_rec,
6167: x_rulv_rec => lx_rulv_rec);
6168:
6169: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6170: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6171: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6172: RAISE OKL_API.G_EXCEPTION_ERROR;
6173: END IF;
6166: p_rulv_rec => l_rulv_rec,
6167: x_rulv_rec => lx_rulv_rec);
6168:
6169: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6170: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6171: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6172: RAISE OKL_API.G_EXCEPTION_ERROR;
6173: END IF;
6174:
6167: x_rulv_rec => lx_rulv_rec);
6168:
6169: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6170: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6171: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6172: RAISE OKL_API.G_EXCEPTION_ERROR;
6173: END IF;
6174:
6175: end loop;
6168:
6169: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6170: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6171: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6172: RAISE OKL_API.G_EXCEPTION_ERROR;
6173: END IF;
6174:
6175: end loop;
6176: end if;
6176: end if;
6177: end loop;
6178: end loop;
6179:
6180: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
6181: x_msg_data => x_msg_data);
6182:
6183: EXCEPTION
6184: when OKL_API.G_EXCEPTION_ERROR then
6180: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
6181: x_msg_data => x_msg_data);
6182:
6183: EXCEPTION
6184: when OKL_API.G_EXCEPTION_ERROR then
6185:
6186: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
6187: p_api_name => l_api_name,
6188: p_pkg_name => G_PKG_NAME,
6182:
6183: EXCEPTION
6184: when OKL_API.G_EXCEPTION_ERROR then
6185:
6186: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
6187: p_api_name => l_api_name,
6188: p_pkg_name => G_PKG_NAME,
6189: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
6190: x_msg_count => x_msg_count,
6185:
6186: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
6187: p_api_name => l_api_name,
6188: p_pkg_name => G_PKG_NAME,
6189: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
6190: x_msg_count => x_msg_count,
6191: x_msg_data => x_msg_data,
6192: p_api_type => G_API_TYPE);
6193:
6190: x_msg_count => x_msg_count,
6191: x_msg_data => x_msg_data,
6192: p_api_type => G_API_TYPE);
6193:
6194: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
6195:
6196: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
6197: p_api_name => l_api_name,
6198: p_pkg_name => G_PKG_NAME,
6192: p_api_type => G_API_TYPE);
6193:
6194: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
6195:
6196: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
6197: p_api_name => l_api_name,
6198: p_pkg_name => G_PKG_NAME,
6199: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
6200: x_msg_count => x_msg_count,
6195:
6196: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
6197: p_api_name => l_api_name,
6198: p_pkg_name => G_PKG_NAME,
6199: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
6200: x_msg_count => x_msg_count,
6201: x_msg_data => x_msg_data,
6202: p_api_type => G_API_TYPE);
6203:
6202: p_api_type => G_API_TYPE);
6203:
6204: when OTHERS then
6205:
6206: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
6207: p_api_name => l_api_name,
6208: p_pkg_name => G_PKG_NAME,
6209: p_exc_name => 'OTHERS',
6210: x_msg_count => x_msg_count,
6230: p_chr_id IN NUMBER,
6231: p_release_date IN DATE,
6232: x_nbv OUT NOCOPY Number) IS
6233:
6234: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
6235: l_api_name CONSTANT VARCHAR2(30) := 'GET_NBV';
6236: l_api_version CONSTANT NUMBER := 1.0;
6237:
6238: l_asset_hdr_rec FA_API_TYPES.asset_hdr_rec_type;
6247: l_currency_conversion_date OKL_K_HEADERS_FULL_V.currency_conversion_date%TYPE;
6248:
6249: BEGIN
6250: --call start activity to set savepoint
6251: l_return_status := OKL_API.START_ACTIVITY( substr(l_api_name,1,26),
6252: p_init_msg_list,
6253: '_PVT',
6254: x_return_status);
6255: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6251: l_return_status := OKL_API.START_ACTIVITY( substr(l_api_name,1,26),
6252: p_init_msg_list,
6253: '_PVT',
6254: x_return_status);
6255: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6256: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6257: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
6258: RAISE OKL_API.G_EXCEPTION_ERROR;
6259: END IF;
6252: p_init_msg_list,
6253: '_PVT',
6254: x_return_status);
6255: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6256: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6257: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
6258: RAISE OKL_API.G_EXCEPTION_ERROR;
6259: END IF;
6260:
6253: '_PVT',
6254: x_return_status);
6255: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6256: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6257: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
6258: RAISE OKL_API.G_EXCEPTION_ERROR;
6259: END IF;
6260:
6261: l_asset_hdr_rec.asset_id := p_asset_id;
6254: x_return_status);
6255: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6256: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6257: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
6258: RAISE OKL_API.G_EXCEPTION_ERROR;
6259: END IF;
6260:
6261: l_asset_hdr_rec.asset_id := p_asset_id;
6262: l_asset_hdr_rec.book_type_code := p_book_type_code;
6261: l_asset_hdr_rec.asset_id := p_asset_id;
6262: l_asset_hdr_rec.book_type_code := p_book_type_code;
6263:
6264: if NOT fa_cache_pkg.fazcbc(x_book => l_asset_hdr_rec.book_type_code) then
6265: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
6266: p_msg_name => 'OKL_LLA_FA_CACHE_ERROR'
6267: );
6268: Raise OKL_API.G_EXCEPTION_ERROR;
6269: end if;
6264: if NOT fa_cache_pkg.fazcbc(x_book => l_asset_hdr_rec.book_type_code) then
6265: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
6266: p_msg_name => 'OKL_LLA_FA_CACHE_ERROR'
6267: );
6268: Raise OKL_API.G_EXCEPTION_ERROR;
6269: end if;
6270:
6271: -- To fetch Asset Current Cost
6272: if not FA_UTIL_PVT.get_asset_fin_rec
6275: p_transaction_header_id => NULL,
6276: p_mrc_sob_type_code => 'P'
6277: ) then
6278:
6279: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
6280: p_msg_name => 'OKL_LLA_FA_ASSET_FIN_REC_ERROR'
6281: );
6282: Raise OKL_API.G_EXCEPTION_ERROR;
6283: end if;
6278:
6279: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
6280: p_msg_name => 'OKL_LLA_FA_ASSET_FIN_REC_ERROR'
6281: );
6282: Raise OKL_API.G_EXCEPTION_ERROR;
6283: end if;
6284:
6285: -- To fetch Depreciation Reserve
6286: if not FA_UTIL_PVT.get_asset_deprn_rec
6288: px_asset_deprn_rec => l_asset_deprn_rec,
6289: p_period_counter => NULL,
6290: p_mrc_sob_type_code => 'P'
6291: ) then
6292: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
6293: p_msg_name => 'OKL_LLA_FA_DEPRN_REC_ERROR'
6294: );
6295: Raise OKL_API.G_EXCEPTION_ERROR;
6296: end if;
6291: ) then
6292: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
6293: p_msg_name => 'OKL_LLA_FA_DEPRN_REC_ERROR'
6294: );
6295: Raise OKL_API.G_EXCEPTION_ERROR;
6296: end if;
6297:
6298: l_nbv := l_asset_fin_rec.cost - l_asset_deprn_rec.deprn_reserve;
6299:
6309: x_currency_conversion_rate => l_currency_conversion_rate,
6310: x_currency_conversion_date => l_currency_conversion_date,
6311: x_converted_amount => l_converted_amount);
6312:
6313: IF(x_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
6314: Okl_Api.Set_Message(p_app_name => Okl_Api.G_APP_NAME,
6315: p_msg_name => 'OKL_CONV_TO_FUNC_CURRENCY_FAIL');
6316: RAISE Okl_Api.G_EXCEPTION_ERROR;
6317: END IF;
6310: x_currency_conversion_date => l_currency_conversion_date,
6311: x_converted_amount => l_converted_amount);
6312:
6313: IF(x_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
6314: Okl_Api.Set_Message(p_app_name => Okl_Api.G_APP_NAME,
6315: p_msg_name => 'OKL_CONV_TO_FUNC_CURRENCY_FAIL');
6316: RAISE Okl_Api.G_EXCEPTION_ERROR;
6317: END IF;
6318:
6312:
6313: IF(x_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
6314: Okl_Api.Set_Message(p_app_name => Okl_Api.G_APP_NAME,
6315: p_msg_name => 'OKL_CONV_TO_FUNC_CURRENCY_FAIL');
6316: RAISE Okl_Api.G_EXCEPTION_ERROR;
6317: END IF;
6318:
6319: x_nbv := l_converted_amount;
6320:
6318:
6319: x_nbv := l_converted_amount;
6320:
6321: --Call end Activity
6322: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
6323: EXCEPTION
6324: WHEN OKL_API.G_EXCEPTION_ERROR Then
6325: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
6326: (
6320:
6321: --Call end Activity
6322: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
6323: EXCEPTION
6324: WHEN OKL_API.G_EXCEPTION_ERROR Then
6325: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
6326: (
6327: l_api_name,
6328: G_PKG_NAME,
6321: --Call end Activity
6322: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
6323: EXCEPTION
6324: WHEN OKL_API.G_EXCEPTION_ERROR Then
6325: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
6326: (
6327: l_api_name,
6328: G_PKG_NAME,
6329: 'OKL_API.G_RET_STS_ERROR',
6325: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
6326: (
6327: l_api_name,
6328: G_PKG_NAME,
6329: 'OKL_API.G_RET_STS_ERROR',
6330: x_msg_count,
6331: x_msg_data,
6332: '_PVT'
6333: );
6330: x_msg_count,
6331: x_msg_data,
6332: '_PVT'
6333: );
6334: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
6335: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
6336: (
6337: l_api_name,
6338: G_PKG_NAME,
6331: x_msg_data,
6332: '_PVT'
6333: );
6334: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
6335: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
6336: (
6337: l_api_name,
6338: G_PKG_NAME,
6339: 'OKL_API.G_RET_STS_UNEXP_ERROR',
6335: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
6336: (
6337: l_api_name,
6338: G_PKG_NAME,
6339: 'OKL_API.G_RET_STS_UNEXP_ERROR',
6340: x_msg_count,
6341: x_msg_data,
6342: '_PVT'
6343: );
6341: x_msg_data,
6342: '_PVT'
6343: );
6344: WHEN OTHERS THEN
6345: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
6346: (
6347: l_api_name,
6348: G_PKG_NAME,
6349: 'OTHERS',
6386: p_nbv IN NUMBER,
6387: p_release_date IN DATE,
6388: x_expected_cost OUT NOCOPY NUMBER) IS
6389:
6390: l_return_status VARCHAR2(1) DEFAULT Okl_Api.G_RET_STS_SUCCESS;
6391: l_api_name CONSTANT VARCHAR2(30) := 'CALCULATE EXPECTED COST';
6392: l_api_version CONSTANT NUMBER := 1.0;
6393:
6394:
6412: l_currency_conversion_rate OKL_K_HEADERS_FULL_V.currency_conversion_rate%TYPE;
6413: l_currency_conversion_date OKL_K_HEADERS_FULL_V.currency_conversion_date%TYPE;
6414:
6415: BEGIN
6416: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
6417: -- Call start_activity to create savepoint, check compatibility
6418: -- and initialize message list
6419: l_return_status := Okl_Api.START_ACTIVITY(
6420: p_api_name => l_api_name,
6415: BEGIN
6416: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
6417: -- Call start_activity to create savepoint, check compatibility
6418: -- and initialize message list
6419: l_return_status := Okl_Api.START_ACTIVITY(
6420: p_api_name => l_api_name,
6421: p_pkg_name => g_pkg_name,
6422: p_init_msg_list => p_init_msg_list,
6423: l_api_version => l_api_version,
6424: p_api_version => p_api_version,
6425: p_api_type => '_PVT',
6426: x_return_status => x_return_status);
6427: -- Check if activity started successfully
6428: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
6429: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
6430: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
6431: RAISE Okl_Api.G_EXCEPTION_ERROR;
6432: END IF;
6425: p_api_type => '_PVT',
6426: x_return_status => x_return_status);
6427: -- Check if activity started successfully
6428: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
6429: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
6430: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
6431: RAISE Okl_Api.G_EXCEPTION_ERROR;
6432: END IF;
6433:
6426: x_return_status => x_return_status);
6427: -- Check if activity started successfully
6428: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
6429: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
6430: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
6431: RAISE Okl_Api.G_EXCEPTION_ERROR;
6432: END IF;
6433:
6434: Open l_book_class_csr(p_chr_id => p_orig_chr_id);
6427: -- Check if activity started successfully
6428: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
6429: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
6430: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
6431: RAISE Okl_Api.G_EXCEPTION_ERROR;
6432: END IF;
6433:
6434: Open l_book_class_csr(p_chr_id => p_orig_chr_id);
6435: fetch l_book_class_csr into l_book_class_rec;
6450: p_chr_id => p_new_chr_id,
6451: p_release_date => p_release_date,
6452: x_nbv => l_expected_cost);
6453:
6454: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6455: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6456: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6457: RAISE OKL_API.G_EXCEPTION_ERROR;
6458: END IF;
6451: p_release_date => p_release_date,
6452: x_nbv => l_expected_cost);
6453:
6454: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6455: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6456: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6457: RAISE OKL_API.G_EXCEPTION_ERROR;
6458: END IF;
6459:
6452: x_nbv => l_expected_cost);
6453:
6454: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6455: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6456: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6457: RAISE OKL_API.G_EXCEPTION_ERROR;
6458: END IF;
6459:
6460:
6453:
6454: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6455: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6456: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6457: RAISE OKL_API.G_EXCEPTION_ERROR;
6458: END IF;
6459:
6460:
6461: ElsIf nvl(p_nbv,0) <> 0 then
6480: p_line_id => p_orig_cle_id,
6481: p_additional_parameters => l_additional_parameters,
6482: x_value => l_expected_cost);
6483:
6484: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6485: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6486: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
6487: RAISE OKL_API.G_EXCEPTION_ERROR;
6488: END IF;
6481: p_additional_parameters => l_additional_parameters,
6482: x_value => l_expected_cost);
6483:
6484: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6485: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6486: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
6487: RAISE OKL_API.G_EXCEPTION_ERROR;
6488: END IF;
6489:
6482: x_value => l_expected_cost);
6483:
6484: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6485: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6486: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
6487: RAISE OKL_API.G_EXCEPTION_ERROR;
6488: END IF;
6489:
6490: l_converted_amount := 0;
6483:
6484: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6485: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6486: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
6487: RAISE OKL_API.G_EXCEPTION_ERROR;
6488: END IF;
6489:
6490: l_converted_amount := 0;
6491: OKL_ACCOUNTING_UTIL.CONVERT_TO_CONTRACT_CURRENCY(
6499: x_currency_conversion_rate => l_currency_conversion_rate,
6500: x_currency_conversion_date => l_currency_conversion_date,
6501: x_converted_amount => l_converted_amount);
6502:
6503: IF(x_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
6504: Okl_Api.Set_Message(p_app_name => Okl_Api.G_APP_NAME,
6505: p_msg_name => 'OKL_CONV_TO_FUNC_CURRENCY_FAIL');
6506: RAISE Okl_Api.G_EXCEPTION_ERROR;
6507: l_expected_cost := l_converted_Amount;
6500: x_currency_conversion_date => l_currency_conversion_date,
6501: x_converted_amount => l_converted_amount);
6502:
6503: IF(x_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
6504: Okl_Api.Set_Message(p_app_name => Okl_Api.G_APP_NAME,
6505: p_msg_name => 'OKL_CONV_TO_FUNC_CURRENCY_FAIL');
6506: RAISE Okl_Api.G_EXCEPTION_ERROR;
6507: l_expected_cost := l_converted_Amount;
6508: END IF;
6502:
6503: IF(x_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
6504: Okl_Api.Set_Message(p_app_name => Okl_Api.G_APP_NAME,
6505: p_msg_name => 'OKL_CONV_TO_FUNC_CURRENCY_FAIL');
6506: RAISE Okl_Api.G_EXCEPTION_ERROR;
6507: l_expected_cost := l_converted_Amount;
6508: END IF;
6509: END IF;
6510: x_expected_cost := l_expected_cost;
6509: END IF;
6510: x_expected_cost := l_expected_cost;
6511:
6512: --Call end Activity
6513: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
6514: EXCEPTION
6515: WHEN OKL_API.G_EXCEPTION_ERROR Then
6516: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
6517: (
6511:
6512: --Call end Activity
6513: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
6514: EXCEPTION
6515: WHEN OKL_API.G_EXCEPTION_ERROR Then
6516: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
6517: (
6518: l_api_name,
6519: G_PKG_NAME,
6512: --Call end Activity
6513: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
6514: EXCEPTION
6515: WHEN OKL_API.G_EXCEPTION_ERROR Then
6516: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
6517: (
6518: l_api_name,
6519: G_PKG_NAME,
6520: 'OKL_API.G_RET_STS_ERROR',
6516: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
6517: (
6518: l_api_name,
6519: G_PKG_NAME,
6520: 'OKL_API.G_RET_STS_ERROR',
6521: x_msg_count,
6522: x_msg_data,
6523: '_PVT'
6524: );
6521: x_msg_count,
6522: x_msg_data,
6523: '_PVT'
6524: );
6525: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
6526: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
6527: (
6528: l_api_name,
6529: G_PKG_NAME,
6522: x_msg_data,
6523: '_PVT'
6524: );
6525: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
6526: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
6527: (
6528: l_api_name,
6529: G_PKG_NAME,
6530: 'OKL_API.G_RET_STS_UNEXP_ERROR',
6526: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
6527: (
6528: l_api_name,
6529: G_PKG_NAME,
6530: 'OKL_API.G_RET_STS_UNEXP_ERROR',
6531: x_msg_count,
6532: x_msg_data,
6533: '_PVT'
6534: );
6532: x_msg_data,
6533: '_PVT'
6534: );
6535: WHEN OTHERS THEN
6536: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
6537: (
6538: l_api_name,
6539: G_PKG_NAME,
6540: 'OTHERS',
6566: x_msg_data OUT NOCOPY VARCHAR2,
6567: p_chr_id IN NUMBER,
6568: p_release_date IN DATE) IS
6569:
6570: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
6571: l_api_name CONSTANT VARCHAR2(30) := 'ADJUST_ASSET_LINES';
6572: l_api_version CONSTANT NUMBER := 1.0;
6573:
6574: CURSOR contract_fin_asset_csr
6710: l_orig_cle_id NUMBER;
6711: l_expected_cost NUMBER;
6712:
6713: BEGIN
6714: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
6715: -- Call start_activity to create savepoint, check compatibility
6716: -- and initialize message list
6717: l_return_status := Okl_Api.START_ACTIVITY(
6718: p_api_name => l_api_name,
6713: BEGIN
6714: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
6715: -- Call start_activity to create savepoint, check compatibility
6716: -- and initialize message list
6717: l_return_status := Okl_Api.START_ACTIVITY(
6718: p_api_name => l_api_name,
6719: p_pkg_name => g_pkg_name,
6720: p_init_msg_list => p_init_msg_list,
6721: l_api_version => l_api_version,
6722: p_api_version => p_api_version,
6723: p_api_type => '_PVT',
6724: x_return_status => x_return_status);
6725: -- Check if activity started successfully
6726: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
6727: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
6728: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
6729: RAISE Okl_Api.G_EXCEPTION_ERROR;
6730: END IF;
6723: p_api_type => '_PVT',
6724: x_return_status => x_return_status);
6725: -- Check if activity started successfully
6726: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
6727: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
6728: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
6729: RAISE Okl_Api.G_EXCEPTION_ERROR;
6730: END IF;
6731:
6724: x_return_status => x_return_status);
6725: -- Check if activity started successfully
6726: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
6727: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
6728: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
6729: RAISE Okl_Api.G_EXCEPTION_ERROR;
6730: END IF;
6731:
6732: --Bug# 3950089
6725: -- Check if activity started successfully
6726: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
6727: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
6728: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
6729: RAISE Okl_Api.G_EXCEPTION_ERROR;
6730: END IF;
6731:
6732: --Bug# 3950089
6733: l_currency_code := '?';
6736: close curr_hdr_csr;
6737:
6738: if (l_currency_code = '?') then
6739:
6740: OKL_API.set_message(p_app_name => G_APP_NAME,
6741: p_msg_name => G_REQUIRED_VALUE,
6742: p_token1 => G_COL_NAME_TOKEN,
6743: p_token1_value => 'Currency Code');
6744: RAISE OKL_API.G_EXCEPTION_ERROR;
6740: OKL_API.set_message(p_app_name => G_APP_NAME,
6741: p_msg_name => G_REQUIRED_VALUE,
6742: p_token1 => G_COL_NAME_TOKEN,
6743: p_token1_value => 'Currency Code');
6744: RAISE OKL_API.G_EXCEPTION_ERROR;
6745: end if;
6746:
6747: -- Fetch Financial Asset Top line
6748: for contract_fin_asset_rec in contract_fin_asset_csr
6765: x_msg_data => x_msg_data,
6766: p_line_id => contract_fin_asset_rec.id
6767: );
6768:
6769: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
6770: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6771: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
6772: RAISE OKL_API.G_EXCEPTION_ERROR;
6773: END IF;
6766: p_line_id => contract_fin_asset_rec.id
6767: );
6768:
6769: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
6770: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6771: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
6772: RAISE OKL_API.G_EXCEPTION_ERROR;
6773: END IF;
6774:
6767: );
6768:
6769: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
6770: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6771: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
6772: RAISE OKL_API.G_EXCEPTION_ERROR;
6773: END IF;
6774:
6775: else
6768:
6769: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
6770: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6771: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
6772: RAISE OKL_API.G_EXCEPTION_ERROR;
6773: END IF;
6774:
6775: else
6776:
6794: p_chr_id => p_chr_id,
6795: p_release_date => p_release_date,
6796: x_nbv => l_corp_net_book_value);
6797:
6798: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6799: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6800: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6801: RAISE OKL_API.G_EXCEPTION_ERROR;
6802: END IF;
6795: p_release_date => p_release_date,
6796: x_nbv => l_corp_net_book_value);
6797:
6798: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6799: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6800: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6801: RAISE OKL_API.G_EXCEPTION_ERROR;
6802: END IF;
6803:
6796: x_nbv => l_corp_net_book_value);
6797:
6798: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6799: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6800: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6801: RAISE OKL_API.G_EXCEPTION_ERROR;
6802: END IF;
6803:
6804: --Bug# 4670760
6797:
6798: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6799: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6800: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6801: RAISE OKL_API.G_EXCEPTION_ERROR;
6802: END IF;
6803:
6804: --Bug# 4670760
6805: --Get expected asset Cost
6820: p_release_date => p_release_date,
6821: p_nbv => l_corp_net_book_value,
6822: x_expected_cost => l_expected_cost);
6823:
6824: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6825: RAISE OKL_API.G_EXCEPTION_ERROR;
6826: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6827: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6828: END IF;
6821: p_nbv => l_corp_net_book_value,
6822: x_expected_cost => l_expected_cost);
6823:
6824: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6825: RAISE OKL_API.G_EXCEPTION_ERROR;
6826: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6827: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6828: END IF;
6829: --End Bug# 4670760
6822: x_expected_cost => l_expected_cost);
6823:
6824: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6825: RAISE OKL_API.G_EXCEPTION_ERROR;
6826: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6827: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6828: END IF;
6829: --End Bug# 4670760
6830:
6823:
6824: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6825: RAISE OKL_API.G_EXCEPTION_ERROR;
6826: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6827: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6828: END IF;
6829: --End Bug# 4670760
6830:
6831: open txl_asset_csr(p_chr_id => p_chr_id
6849: x_msg_data => x_msg_data,
6850: p_tlpv_rec => l_talv_rec,
6851: x_tlpv_rec => lx_talv_rec);
6852:
6853: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6854: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6855: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6856: RAISE OKL_API.G_EXCEPTION_ERROR;
6857: END IF;
6850: p_tlpv_rec => l_talv_rec,
6851: x_tlpv_rec => lx_talv_rec);
6852:
6853: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6854: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6855: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6856: RAISE OKL_API.G_EXCEPTION_ERROR;
6857: END IF;
6858: end if;
6851: x_tlpv_rec => lx_talv_rec);
6852:
6853: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6854: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6855: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6856: RAISE OKL_API.G_EXCEPTION_ERROR;
6857: END IF;
6858: end if;
6859:
6852:
6853: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6854: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6855: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6856: RAISE OKL_API.G_EXCEPTION_ERROR;
6857: END IF;
6858: end if;
6859:
6860: for txd_asset_rec in txd_asset_csr(p_tal_id => txl_asset_rec.id) loop
6871: p_chr_id => p_chr_id,
6872: p_release_date => p_release_date,
6873: x_nbv => l_tax_net_book_value);
6874:
6875: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6876: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6877: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6878: RAISE OKL_API.G_EXCEPTION_ERROR;
6879: END IF;
6872: p_release_date => p_release_date,
6873: x_nbv => l_tax_net_book_value);
6874:
6875: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6876: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6877: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6878: RAISE OKL_API.G_EXCEPTION_ERROR;
6879: END IF;
6880:
6873: x_nbv => l_tax_net_book_value);
6874:
6875: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6876: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6877: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6878: RAISE OKL_API.G_EXCEPTION_ERROR;
6879: END IF;
6880:
6881: if l_tax_net_book_value IS NOT NULL then
6874:
6875: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6876: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6877: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6878: RAISE OKL_API.G_EXCEPTION_ERROR;
6879: END IF;
6880:
6881: if l_tax_net_book_value IS NOT NULL then
6882:
6892: x_msg_data => x_msg_data,
6893: p_adpv_rec => l_txdv_rec,
6894: x_adpv_rec => lx_txdv_rec);
6895:
6896: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6897: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6898: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6899: RAISE OKL_API.G_EXCEPTION_ERROR;
6900: END IF;
6893: p_adpv_rec => l_txdv_rec,
6894: x_adpv_rec => lx_txdv_rec);
6895:
6896: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6897: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6898: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6899: RAISE OKL_API.G_EXCEPTION_ERROR;
6900: END IF;
6901: end if;
6894: x_adpv_rec => lx_txdv_rec);
6895:
6896: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6897: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6898: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6899: RAISE OKL_API.G_EXCEPTION_ERROR;
6900: END IF;
6901: end if;
6902: end loop;
6895:
6896: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6897: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6898: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6899: RAISE OKL_API.G_EXCEPTION_ERROR;
6900: END IF;
6901: end if;
6902: end loop;
6903:
6925: x_msg_data => x_msg_data,
6926: p_line_id => cle_rec.id
6927: );
6928:
6929: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
6930: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6931: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
6932: RAISE OKL_API.G_EXCEPTION_ERROR;
6933: END IF;
6926: p_line_id => cle_rec.id
6927: );
6928:
6929: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
6930: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6931: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
6932: RAISE OKL_API.G_EXCEPTION_ERROR;
6933: END IF;
6934:
6927: );
6928:
6929: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
6930: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6931: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
6932: RAISE OKL_API.G_EXCEPTION_ERROR;
6933: END IF;
6934:
6935: -- Financial Asset line
6928:
6929: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
6930: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6931: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
6932: RAISE OKL_API.G_EXCEPTION_ERROR;
6933: END IF;
6934:
6935: -- Financial Asset line
6936: elsif lse_rec.lty_code = 'FREE_FORM1' then
6942: lp_clev_rec.start_date := p_release_date;
6943: end if;
6944:
6945: lp_klev_rec.id := cle_rec.id;
6946: -- l_clev_rec.price_unit := OKL_API.G_MISS_NUM;
6947: --Bug# 4631549: Take residual percent and residual value from the previous contract
6948: --lp_klev_rec.residual_percentage := txl_asset_rec.percent_salvage_value;
6949: --lp_klev_rec.residual_value := txl_asset_rec.salvage_value;
6950: lp_klev_rec.oec := NVL(l_corp_net_book_value,0);
6983: p_clev_rec => lp_clev_rec,
6984: p_klev_rec => lp_klev_rec,
6985: x_clev_rec => lx_clev_rec,
6986: x_klev_rec => lx_klev_rec);
6987: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6988: RAISE OKL_API.G_EXCEPTION_ERROR;
6989: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6990: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6991: END IF;
6984: p_klev_rec => lp_klev_rec,
6985: x_clev_rec => lx_clev_rec,
6986: x_klev_rec => lx_klev_rec);
6987: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6988: RAISE OKL_API.G_EXCEPTION_ERROR;
6989: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6990: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6991: END IF;
6992: --End Bug# 4631549
6985: x_clev_rec => lx_clev_rec,
6986: x_klev_rec => lx_klev_rec);
6987: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6988: RAISE OKL_API.G_EXCEPTION_ERROR;
6989: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6990: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6991: END IF;
6992: --End Bug# 4631549
6993:
6986: x_klev_rec => lx_klev_rec);
6987: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6988: RAISE OKL_API.G_EXCEPTION_ERROR;
6989: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6990: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6991: END IF;
6992: --End Bug# 4631549
6993:
6994: -- Model line
7027: p_clev_rec => lp_clev_rec,
7028: p_klev_rec => lp_klev_rec,
7029: x_clev_rec => lx_clev_rec,
7030: x_klev_rec => lx_klev_rec);
7031: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7032: RAISE OKL_API.G_EXCEPTION_ERROR;
7033: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7034: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7035: END IF;
7028: p_klev_rec => lp_klev_rec,
7029: x_clev_rec => lx_clev_rec,
7030: x_klev_rec => lx_klev_rec);
7031: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7032: RAISE OKL_API.G_EXCEPTION_ERROR;
7033: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7034: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7035: END IF;
7036:
7029: x_clev_rec => lx_clev_rec,
7030: x_klev_rec => lx_klev_rec);
7031: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7032: RAISE OKL_API.G_EXCEPTION_ERROR;
7033: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7034: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7035: END IF;
7036:
7037: OKL_OKC_MIGRATION_PVT.update_contract_item
7030: x_klev_rec => lx_klev_rec);
7031: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7032: RAISE OKL_API.G_EXCEPTION_ERROR;
7033: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7034: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7035: END IF;
7036:
7037: OKL_OKC_MIGRATION_PVT.update_contract_item
7038: (p_api_version => p_api_version,
7041: x_msg_count => x_msg_count,
7042: x_msg_data => x_msg_data,
7043: p_cimv_rec => lp_cimv_rec,
7044: x_cimv_rec => lx_cimv_rec);
7045: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7046: RAISE OKL_API.G_EXCEPTION_ERROR;
7047: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7048: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7049: END IF;
7042: x_msg_data => x_msg_data,
7043: p_cimv_rec => lp_cimv_rec,
7044: x_cimv_rec => lx_cimv_rec);
7045: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7046: RAISE OKL_API.G_EXCEPTION_ERROR;
7047: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7048: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7049: END IF;
7050:
7043: p_cimv_rec => lp_cimv_rec,
7044: x_cimv_rec => lx_cimv_rec);
7045: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7046: RAISE OKL_API.G_EXCEPTION_ERROR;
7047: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7048: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7049: END IF;
7050:
7051: -- For all other lines update Start Date to Re-lease date
7044: x_cimv_rec => lx_cimv_rec);
7045: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7046: RAISE OKL_API.G_EXCEPTION_ERROR;
7047: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7048: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7049: END IF;
7050:
7051: -- For all other lines update Start Date to Re-lease date
7052: else
7069: x_clev_rec => lx_clev_rec,
7070: x_klev_rec => lx_klev_rec
7071: );
7072:
7073: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
7074: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7075: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
7076: RAISE OKL_API.G_EXCEPTION_ERROR;
7077: END IF;
7070: x_klev_rec => lx_klev_rec
7071: );
7072:
7073: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
7074: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7075: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
7076: RAISE OKL_API.G_EXCEPTION_ERROR;
7077: END IF;
7078: end if;
7071: );
7072:
7073: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
7074: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7075: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
7076: RAISE OKL_API.G_EXCEPTION_ERROR;
7077: END IF;
7078: end if;
7079: end loop;
7072:
7073: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
7074: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7075: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
7076: RAISE OKL_API.G_EXCEPTION_ERROR;
7077: END IF;
7078: end if;
7079: end loop;
7080:
7080:
7081: end if;
7082: end loop;
7083:
7084: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
7085: x_msg_data => x_msg_data);
7086:
7087: EXCEPTION
7088: when OKL_API.G_EXCEPTION_ERROR then
7084: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
7085: x_msg_data => x_msg_data);
7086:
7087: EXCEPTION
7088: when OKL_API.G_EXCEPTION_ERROR then
7089:
7090: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
7091: p_api_name => l_api_name,
7092: p_pkg_name => G_PKG_NAME,
7086:
7087: EXCEPTION
7088: when OKL_API.G_EXCEPTION_ERROR then
7089:
7090: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
7091: p_api_name => l_api_name,
7092: p_pkg_name => G_PKG_NAME,
7093: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
7094: x_msg_count => x_msg_count,
7089:
7090: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
7091: p_api_name => l_api_name,
7092: p_pkg_name => G_PKG_NAME,
7093: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
7094: x_msg_count => x_msg_count,
7095: x_msg_data => x_msg_data,
7096: p_api_type => G_API_TYPE);
7097:
7094: x_msg_count => x_msg_count,
7095: x_msg_data => x_msg_data,
7096: p_api_type => G_API_TYPE);
7097:
7098: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
7099:
7100: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
7101: p_api_name => l_api_name,
7102: p_pkg_name => G_PKG_NAME,
7096: p_api_type => G_API_TYPE);
7097:
7098: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
7099:
7100: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
7101: p_api_name => l_api_name,
7102: p_pkg_name => G_PKG_NAME,
7103: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
7104: x_msg_count => x_msg_count,
7099:
7100: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
7101: p_api_name => l_api_name,
7102: p_pkg_name => G_PKG_NAME,
7103: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
7104: x_msg_count => x_msg_count,
7105: x_msg_data => x_msg_data,
7106: p_api_type => G_API_TYPE);
7107:
7106: p_api_type => G_API_TYPE);
7107:
7108: when OTHERS then
7109:
7110: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
7111: p_api_name => l_api_name,
7112: p_pkg_name => G_PKG_NAME,
7113: p_exc_name => 'OTHERS',
7114: x_msg_count => x_msg_count,
7142: p_chr_id IN NUMBER,
7143: p_taa_trx_id IN NUMBER,
7144: p_org_id IN NUMBER) IS
7145:
7146: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
7147: l_api_name CONSTANT VARCHAR2(30) := 'UPDATE_TAA_REQUEST_INFO';
7148: l_api_version CONSTANT NUMBER := 1.0;
7149:
7150: CURSOR taa_party_info_csr(p_taa_trx_id IN NUMBER) IS
7326: lp_kplv_rec OKL_K_PARTY_ROLES_PVT.kplv_rec_type;
7327: lx_kplv_rec OKL_K_PARTY_ROLES_PVT.kplv_rec_type;
7328:
7329: BEGIN
7330: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
7331: -- Call start_activity to create savepoint, check compatibility
7332: -- and initialize message list
7333: l_return_status := Okl_Api.START_ACTIVITY(
7334: p_api_name => l_api_name,
7329: BEGIN
7330: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
7331: -- Call start_activity to create savepoint, check compatibility
7332: -- and initialize message list
7333: l_return_status := Okl_Api.START_ACTIVITY(
7334: p_api_name => l_api_name,
7335: p_pkg_name => g_pkg_name,
7336: p_init_msg_list => p_init_msg_list,
7337: l_api_version => l_api_version,
7338: p_api_version => p_api_version,
7339: p_api_type => '_PVT',
7340: x_return_status => x_return_status);
7341: -- Check if activity started successfully
7342: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
7343: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
7344: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
7345: RAISE Okl_Api.G_EXCEPTION_ERROR;
7346: END IF;
7339: p_api_type => '_PVT',
7340: x_return_status => x_return_status);
7341: -- Check if activity started successfully
7342: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
7343: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
7344: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
7345: RAISE Okl_Api.G_EXCEPTION_ERROR;
7346: END IF;
7347:
7340: x_return_status => x_return_status);
7341: -- Check if activity started successfully
7342: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
7343: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
7344: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
7345: RAISE Okl_Api.G_EXCEPTION_ERROR;
7346: END IF;
7347:
7348: OPEN taa_party_info_csr(p_taa_trx_id => p_taa_trx_id);
7341: -- Check if activity started successfully
7342: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
7343: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
7344: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
7345: RAISE Okl_Api.G_EXCEPTION_ERROR;
7346: END IF;
7347:
7348: OPEN taa_party_info_csr(p_taa_trx_id => p_taa_trx_id);
7349: FETCH taa_party_info_csr INTO taa_party_info_rec;
7392: x_cplv_rec => lx_cplv_rec,
7393: p_kplv_rec => lp_kplv_rec,
7394: x_kplv_rec => lx_kplv_rec);
7395:
7396: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7397: RAISE OKL_API.G_EXCEPTION_ERROR;
7398: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7399: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7400: END IF;
7393: p_kplv_rec => lp_kplv_rec,
7394: x_kplv_rec => lx_kplv_rec);
7395:
7396: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7397: RAISE OKL_API.G_EXCEPTION_ERROR;
7398: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7399: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7400: END IF;
7401: END IF;
7394: x_kplv_rec => lx_kplv_rec);
7395:
7396: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7397: RAISE OKL_API.G_EXCEPTION_ERROR;
7398: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7399: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7400: END IF;
7401: END IF;
7402: END IF;
7395:
7396: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7397: RAISE OKL_API.G_EXCEPTION_ERROR;
7398: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7399: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7400: END IF;
7401: END IF;
7402: END IF;
7403:
7416: p_init_msg_list => p_init_msg_list,
7417: x_return_status => x_return_status,
7418: x_msg_count => x_msg_count,
7419: x_msg_data => x_msg_data,
7420: p_restricted_update => OKL_API.G_FALSE,
7421: p_chrv_rec => l_chrv_rec,
7422: x_chrv_rec => lx_chrv_rec);
7423:
7424: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7420: p_restricted_update => OKL_API.G_FALSE,
7421: p_chrv_rec => l_chrv_rec,
7422: x_chrv_rec => lx_chrv_rec);
7423:
7424: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7425: RAISE OKL_API.G_EXCEPTION_ERROR;
7426: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7427: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7428: END IF;
7421: p_chrv_rec => l_chrv_rec,
7422: x_chrv_rec => lx_chrv_rec);
7423:
7424: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7425: RAISE OKL_API.G_EXCEPTION_ERROR;
7426: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7427: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7428: END IF;
7429: END IF;
7422: x_chrv_rec => lx_chrv_rec);
7423:
7424: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7425: RAISE OKL_API.G_EXCEPTION_ERROR;
7426: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7427: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7428: END IF;
7429: END IF;
7430:
7423:
7424: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7425: RAISE OKL_API.G_EXCEPTION_ERROR;
7426: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7427: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7428: END IF;
7429: END IF;
7430:
7431: -- Update Header level Bank Account
7459: x_msg_data => x_msg_data,
7460: p_rulv_rec => lp_rulv_rec,
7461: x_rulv_rec => lx_rulv_rec);
7462:
7463: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7464: RAISE OKL_API.G_EXCEPTION_ERROR;
7465: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7466: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7467: END IF;
7460: p_rulv_rec => lp_rulv_rec,
7461: x_rulv_rec => lx_rulv_rec);
7462:
7463: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7464: RAISE OKL_API.G_EXCEPTION_ERROR;
7465: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7466: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7467: END IF;
7468: END IF;
7461: x_rulv_rec => lx_rulv_rec);
7462:
7463: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7464: RAISE OKL_API.G_EXCEPTION_ERROR;
7465: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7466: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7467: END IF;
7468: END IF;
7469: END IF;
7462:
7463: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7464: RAISE OKL_API.G_EXCEPTION_ERROR;
7465: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7466: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7467: END IF;
7468: END IF;
7469: END IF;
7470:
7499: x_msg_data => x_msg_data,
7500: p_rulv_rec => lp_rulv_rec,
7501: x_rulv_rec => lx_rulv_rec);
7502:
7503: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7504: RAISE OKL_API.G_EXCEPTION_ERROR;
7505: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7506: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7507: END IF;
7500: p_rulv_rec => lp_rulv_rec,
7501: x_rulv_rec => lx_rulv_rec);
7502:
7503: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7504: RAISE OKL_API.G_EXCEPTION_ERROR;
7505: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7506: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7507: END IF;
7508: END IF;
7501: x_rulv_rec => lx_rulv_rec);
7502:
7503: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7504: RAISE OKL_API.G_EXCEPTION_ERROR;
7505: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7506: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7507: END IF;
7508: END IF;
7509: END IF;
7502:
7503: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7504: RAISE OKL_API.G_EXCEPTION_ERROR;
7505: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7506: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7507: END IF;
7508: END IF;
7509: END IF;
7510:
7543: x_msg_data => x_msg_data,
7544: p_rulv_rec => lp_rulv_rec,
7545: x_rulv_rec => lx_rulv_rec);
7546:
7547: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7548: RAISE OKL_API.G_EXCEPTION_ERROR;
7549: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7550: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7551: END IF;
7544: p_rulv_rec => lp_rulv_rec,
7545: x_rulv_rec => lx_rulv_rec);
7546:
7547: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7548: RAISE OKL_API.G_EXCEPTION_ERROR;
7549: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7550: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7551: END IF;
7552: END IF;
7545: x_rulv_rec => lx_rulv_rec);
7546:
7547: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7548: RAISE OKL_API.G_EXCEPTION_ERROR;
7549: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7550: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7551: END IF;
7552: END IF;
7553: END IF;
7546:
7547: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7548: RAISE OKL_API.G_EXCEPTION_ERROR;
7549: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7550: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7551: END IF;
7552: END IF;
7553: END IF;
7554:
7578: x_msg_data => x_msg_data,
7579: p_gvev_rec => lp_gvev_rec,
7580: x_gvev_rec => lx_gvev_rec);
7581:
7582: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7583: RAISE OKL_API.G_EXCEPTION_ERROR;
7584: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7585: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7586: END IF;
7579: p_gvev_rec => lp_gvev_rec,
7580: x_gvev_rec => lx_gvev_rec);
7581:
7582: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7583: RAISE OKL_API.G_EXCEPTION_ERROR;
7584: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7585: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7586: END IF;
7587:
7580: x_gvev_rec => lx_gvev_rec);
7581:
7582: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7583: RAISE OKL_API.G_EXCEPTION_ERROR;
7584: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7585: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7586: END IF;
7587:
7588: ELSE
7581:
7582: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7583: RAISE OKL_API.G_EXCEPTION_ERROR;
7584: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7585: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7586: END IF;
7587:
7588: ELSE
7589:
7597: x_msg_data => x_msg_data,
7598: p_gvev_rec => lp_gvev_rec,
7599: x_gvev_rec => lx_gvev_rec);
7600:
7601: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7602: RAISE OKL_API.G_EXCEPTION_ERROR;
7603: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7604: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7605: END IF;
7598: p_gvev_rec => lp_gvev_rec,
7599: x_gvev_rec => lx_gvev_rec);
7600:
7601: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7602: RAISE OKL_API.G_EXCEPTION_ERROR;
7603: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7604: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7605: END IF;
7606:
7599: x_gvev_rec => lx_gvev_rec);
7600:
7601: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7602: RAISE OKL_API.G_EXCEPTION_ERROR;
7603: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7604: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7605: END IF;
7606:
7607: END IF;
7600:
7601: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7602: RAISE OKL_API.G_EXCEPTION_ERROR;
7603: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7604: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7605: END IF;
7606:
7607: END IF;
7608: END IF;
7633: x_msg_data => x_msg_data,
7634: p_gvev_rec => lp_gvev_rec,
7635: x_gvev_rec => lx_gvev_rec);
7636:
7637: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7638: RAISE OKL_API.G_EXCEPTION_ERROR;
7639: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7640: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7641: END IF;
7634: p_gvev_rec => lp_gvev_rec,
7635: x_gvev_rec => lx_gvev_rec);
7636:
7637: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7638: RAISE OKL_API.G_EXCEPTION_ERROR;
7639: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7640: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7641: END IF;
7642:
7635: x_gvev_rec => lx_gvev_rec);
7636:
7637: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7638: RAISE OKL_API.G_EXCEPTION_ERROR;
7639: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7640: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7641: END IF;
7642:
7643: ELSE
7636:
7637: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7638: RAISE OKL_API.G_EXCEPTION_ERROR;
7639: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7640: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7641: END IF;
7642:
7643: ELSE
7644:
7652: x_msg_data => x_msg_data,
7653: p_gvev_rec => lp_gvev_rec,
7654: x_gvev_rec => lx_gvev_rec);
7655:
7656: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7657: RAISE OKL_API.G_EXCEPTION_ERROR;
7658: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7659: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7660: END IF;
7653: p_gvev_rec => lp_gvev_rec,
7654: x_gvev_rec => lx_gvev_rec);
7655:
7656: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7657: RAISE OKL_API.G_EXCEPTION_ERROR;
7658: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7659: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7660: END IF;
7661:
7654: x_gvev_rec => lx_gvev_rec);
7655:
7656: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7657: RAISE OKL_API.G_EXCEPTION_ERROR;
7658: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7659: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7660: END IF;
7661:
7662: END IF;
7655:
7656: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7657: RAISE OKL_API.G_EXCEPTION_ERROR;
7658: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7659: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7660: END IF;
7661:
7662: END IF;
7663: END IF;
7698: x_msg_data => x_msg_data,
7699: p_iipv_tbl => l_itiv_ib_tbl,
7700: x_iipv_tbl => lx_itiv_ib_tbl);
7701:
7702: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
7703: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
7704: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
7705: RAISE Okl_Api.G_EXCEPTION_ERROR;
7706: END IF;
7699: p_iipv_tbl => l_itiv_ib_tbl,
7700: x_iipv_tbl => lx_itiv_ib_tbl);
7701:
7702: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
7703: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
7704: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
7705: RAISE Okl_Api.G_EXCEPTION_ERROR;
7706: END IF;
7707: END IF;
7700: x_iipv_tbl => lx_itiv_ib_tbl);
7701:
7702: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
7703: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
7704: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
7705: RAISE Okl_Api.G_EXCEPTION_ERROR;
7706: END IF;
7707: END IF;
7708: END IF;
7701:
7702: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
7703: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
7704: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
7705: RAISE Okl_Api.G_EXCEPTION_ERROR;
7706: END IF;
7707: END IF;
7708: END IF;
7709:
7727: x_msg_data => x_msg_data,
7728: p_tlpv_rec => l_talv_rec,
7729: x_tlpv_rec => lx_talv_rec);
7730:
7731: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7732: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7733: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7734: RAISE OKL_API.G_EXCEPTION_ERROR;
7735: END IF;
7728: p_tlpv_rec => l_talv_rec,
7729: x_tlpv_rec => lx_talv_rec);
7730:
7731: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7732: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7733: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7734: RAISE OKL_API.G_EXCEPTION_ERROR;
7735: END IF;
7736: END IF;
7729: x_tlpv_rec => lx_talv_rec);
7730:
7731: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7732: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7733: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7734: RAISE OKL_API.G_EXCEPTION_ERROR;
7735: END IF;
7736: END IF;
7737:
7730:
7731: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7732: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7733: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7734: RAISE OKL_API.G_EXCEPTION_ERROR;
7735: END IF;
7736: END IF;
7737:
7738: -- Asset Line level Bill-To-Site
7755: x_clev_rec => lx_clev_rec,
7756: x_klev_rec => lx_klev_rec
7757: );
7758:
7759: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
7760: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7761: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
7762: RAISE OKL_API.G_EXCEPTION_ERROR;
7763: END IF;
7756: x_klev_rec => lx_klev_rec
7757: );
7758:
7759: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
7760: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7761: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
7762: RAISE OKL_API.G_EXCEPTION_ERROR;
7763: END IF;
7764: END IF;
7757: );
7758:
7759: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
7760: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7761: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
7762: RAISE OKL_API.G_EXCEPTION_ERROR;
7763: END IF;
7764: END IF;
7765:
7758:
7759: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
7760: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7761: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
7762: RAISE OKL_API.G_EXCEPTION_ERROR;
7763: END IF;
7764: END IF;
7765:
7766: END LOOP;
7799: x_msg_data => x_msg_data,
7800: p_ipyv_rec => l_ipyv_rec,
7801: x_ipyv_rec => lx_ipyv_rec);
7802:
7803: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
7804: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7805: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
7806: RAISE OKL_API.G_EXCEPTION_ERROR;
7807: END IF;
7800: p_ipyv_rec => l_ipyv_rec,
7801: x_ipyv_rec => lx_ipyv_rec);
7802:
7803: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
7804: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7805: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
7806: RAISE OKL_API.G_EXCEPTION_ERROR;
7807: END IF;
7808: END IF;
7801: x_ipyv_rec => lx_ipyv_rec);
7802:
7803: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
7804: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7805: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
7806: RAISE OKL_API.G_EXCEPTION_ERROR;
7807: END IF;
7808: END IF;
7809:
7802:
7803: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
7804: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7805: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
7806: RAISE OKL_API.G_EXCEPTION_ERROR;
7807: END IF;
7808: END IF;
7809:
7810: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
7806: RAISE OKL_API.G_EXCEPTION_ERROR;
7807: END IF;
7808: END IF;
7809:
7810: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
7811: x_msg_data => x_msg_data);
7812:
7813: EXCEPTION
7814: when OKL_API.G_EXCEPTION_ERROR then
7810: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
7811: x_msg_data => x_msg_data);
7812:
7813: EXCEPTION
7814: when OKL_API.G_EXCEPTION_ERROR then
7815:
7816: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
7817: p_api_name => l_api_name,
7818: p_pkg_name => G_PKG_NAME,
7812:
7813: EXCEPTION
7814: when OKL_API.G_EXCEPTION_ERROR then
7815:
7816: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
7817: p_api_name => l_api_name,
7818: p_pkg_name => G_PKG_NAME,
7819: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
7820: x_msg_count => x_msg_count,
7815:
7816: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
7817: p_api_name => l_api_name,
7818: p_pkg_name => G_PKG_NAME,
7819: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
7820: x_msg_count => x_msg_count,
7821: x_msg_data => x_msg_data,
7822: p_api_type => G_API_TYPE);
7823:
7820: x_msg_count => x_msg_count,
7821: x_msg_data => x_msg_data,
7822: p_api_type => G_API_TYPE);
7823:
7824: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
7825:
7826: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
7827: p_api_name => l_api_name,
7828: p_pkg_name => G_PKG_NAME,
7822: p_api_type => G_API_TYPE);
7823:
7824: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
7825:
7826: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
7827: p_api_name => l_api_name,
7828: p_pkg_name => G_PKG_NAME,
7829: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
7830: x_msg_count => x_msg_count,
7825:
7826: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
7827: p_api_name => l_api_name,
7828: p_pkg_name => G_PKG_NAME,
7829: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
7830: x_msg_count => x_msg_count,
7831: x_msg_data => x_msg_data,
7832: p_api_type => G_API_TYPE);
7833:
7832: p_api_type => G_API_TYPE);
7833:
7834: when OTHERS then
7835:
7836: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
7837: p_api_name => l_api_name,
7838: p_pkg_name => G_PKG_NAME,
7839: p_exc_name => 'OTHERS',
7840: x_msg_count => x_msg_count,
7870: ld_old_end_date OKC_K_HEADERS_V.END_DATE%TYPE;
7871: ln_old_authoring_org_id OKC_K_HEADERS_V.AUTHORING_ORG_ID%TYPE;
7872: lt_top_line_tbl g_top_line_tbl;
7873: lt_asset_num_tbl g_asset_num_tbl;
7874: l_return_status VARCHAR2(3) := OKL_API.G_RET_STS_SUCCESS;
7875:
7876: CURSOR c_fetch_header_line_id(p_chr_id OKC_K_HEADERS_B.ID%TYPE)
7877: IS
7878: SELECT chr.id,
7959: lx_fin_klev_rec okl_contract_pub.klev_rec_type;
7960: --End Bug# 4631549
7961:
7962: BEGIN
7963: x_return_status := OKL_API.G_RET_STS_SUCCESS;
7964: -- Call start_activity to create savepoint, check compatibility
7965: -- and initialize message list
7966: x_return_status := OKL_API.START_ACTIVITY (
7967: l_api_name
7962: BEGIN
7963: x_return_status := OKL_API.G_RET_STS_SUCCESS;
7964: -- Call start_activity to create savepoint, check compatibility
7965: -- and initialize message list
7966: x_return_status := OKL_API.START_ACTIVITY (
7967: l_api_name
7968: ,p_init_msg_list
7969: ,'_PVT'
7970: ,l_return_status);
7968: ,p_init_msg_list
7969: ,'_PVT'
7970: ,l_return_status);
7971: -- Check if activity started successfully
7972: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7973: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7974: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7975: RAISE OKL_API.G_EXCEPTION_ERROR;
7976: END IF;
7969: ,'_PVT'
7970: ,l_return_status);
7971: -- Check if activity started successfully
7972: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7973: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7974: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7975: RAISE OKL_API.G_EXCEPTION_ERROR;
7976: END IF;
7977:
7970: ,l_return_status);
7971: -- Check if activity started successfully
7972: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7973: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7974: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7975: RAISE OKL_API.G_EXCEPTION_ERROR;
7976: END IF;
7977:
7978: l_release_date := TRUNC(p_trx_date);
7971: -- Check if activity started successfully
7972: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7973: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7974: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7975: RAISE OKL_API.G_EXCEPTION_ERROR;
7976: END IF;
7977:
7978: l_release_date := TRUNC(p_trx_date);
7979:
7997: p_release_date => l_release_date,
7998: p_source_trx_id => p_source_trx_id,
7999: p_release_reason_code=>p_release_reason_code);
8000:
8001: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8002: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8003: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8004: RAISE OKL_API.G_EXCEPTION_ERROR;
8005: END IF;
7998: p_source_trx_id => p_source_trx_id,
7999: p_release_reason_code=>p_release_reason_code);
8000:
8001: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8002: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8003: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8004: RAISE OKL_API.G_EXCEPTION_ERROR;
8005: END IF;
8006:
7999: p_release_reason_code=>p_release_reason_code);
8000:
8001: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8002: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8003: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8004: RAISE OKL_API.G_EXCEPTION_ERROR;
8005: END IF;
8006:
8007: -- Fetch the old contract header id and sts_code
8000:
8001: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8002: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8003: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8004: RAISE OKL_API.G_EXCEPTION_ERROR;
8005: END IF;
8006:
8007: -- Fetch the old contract header id and sts_code
8008: OPEN c_fetch_header_line_id(p_chr_id);
8006:
8007: -- Fetch the old contract header id and sts_code
8008: OPEN c_fetch_header_line_id(p_chr_id);
8009: IF c_fetch_header_line_id%NOTFOUND THEN
8010: OKL_API.set_message(p_app_name => G_APP_NAME,
8011: p_msg_name => G_NO_MATCHING_RECORD,
8012: p_token1 => G_COL_NAME_TOKEN,
8013: p_token1_value => 'OKC_K_HEADERS_V.ID');
8014:
8011: p_msg_name => G_NO_MATCHING_RECORD,
8012: p_token1 => G_COL_NAME_TOKEN,
8013: p_token1_value => 'OKC_K_HEADERS_V.ID');
8014:
8015: RAISE OKL_API.G_EXCEPTION_ERROR;
8016: END IF;
8017: FETCH c_fetch_header_line_id INTO ln_old_chr_id,
8018: lv_old_contract_number,
8019: ld_old_end_date,
8045:
8046: -- Depending on the status of the contract we have to copy the contract
8047: -- or else validate the assets of the contract
8048: IF (lv_old_sts_code IS NOT NULL OR
8049: lv_old_sts_code <> OKL_API.G_MISS_CHAR) AND
8050: lv_old_sts_code IN ('ACTIVE','HOLD') THEN
8051: l_copy_contract(p_api_version => p_api_version,
8052: p_init_msg_list => p_init_msg_list,
8053: x_return_status => x_return_status,
8052: p_init_msg_list => p_init_msg_list,
8053: x_return_status => x_return_status,
8054: x_msg_count => x_msg_count,
8055: x_msg_data => x_msg_data,
8056: p_commit => OKL_API.G_FALSE,
8057: p_old_chr_id => ln_old_chr_id,
8058: p_new_contract_number => l_new_contract_number,
8059: p_release_date => l_release_date,
8060: p_term_duration => l_term_duration,
8059: p_release_date => l_release_date,
8060: p_term_duration => l_term_duration,
8061: x_new_chrv_rec => x_new_chrv_rec,
8062: x_new_khrv_rec => x_new_khrv_rec);
8063: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8064: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8065: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8066: RAISE OKL_API.G_EXCEPTION_ERROR;
8067: END IF;
8060: p_term_duration => l_term_duration,
8061: x_new_chrv_rec => x_new_chrv_rec,
8062: x_new_khrv_rec => x_new_khrv_rec);
8063: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8064: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8065: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8066: RAISE OKL_API.G_EXCEPTION_ERROR;
8067: END IF;
8068: ELSIF (lv_old_sts_code IS NOT NULL OR
8061: x_new_chrv_rec => x_new_chrv_rec,
8062: x_new_khrv_rec => x_new_khrv_rec);
8063: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8064: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8065: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8066: RAISE OKL_API.G_EXCEPTION_ERROR;
8067: END IF;
8068: ELSIF (lv_old_sts_code IS NOT NULL OR
8069: lv_old_sts_code <> OKL_API.G_MISS_CHAR) AND
8062: x_new_khrv_rec => x_new_khrv_rec);
8063: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8064: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8065: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8066: RAISE OKL_API.G_EXCEPTION_ERROR;
8067: END IF;
8068: ELSIF (lv_old_sts_code IS NOT NULL OR
8069: lv_old_sts_code <> OKL_API.G_MISS_CHAR) AND
8070: lv_old_sts_code = 'TERMINATED' THEN
8065: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8066: RAISE OKL_API.G_EXCEPTION_ERROR;
8067: END IF;
8068: ELSIF (lv_old_sts_code IS NOT NULL OR
8069: lv_old_sts_code <> OKL_API.G_MISS_CHAR) AND
8070: lv_old_sts_code = 'TERMINATED' THEN
8071: -- Since we got the new contract in form of x_chr_id
8072: x_return_status := validate_assets_offlease(p_dnz_chr_id => ln_old_chr_id);
8073: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8069: lv_old_sts_code <> OKL_API.G_MISS_CHAR) AND
8070: lv_old_sts_code = 'TERMINATED' THEN
8071: -- Since we got the new contract in form of x_chr_id
8072: x_return_status := validate_assets_offlease(p_dnz_chr_id => ln_old_chr_id);
8073: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8074: OKL_API.set_message(p_app_name => G_APP_NAME,
8075: p_msg_name => 'OKL_LLA_CHR_ID');
8076: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8077: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8070: lv_old_sts_code = 'TERMINATED' THEN
8071: -- Since we got the new contract in form of x_chr_id
8072: x_return_status := validate_assets_offlease(p_dnz_chr_id => ln_old_chr_id);
8073: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8074: OKL_API.set_message(p_app_name => G_APP_NAME,
8075: p_msg_name => 'OKL_LLA_CHR_ID');
8076: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8077: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8078: OKL_API.set_message(p_app_name => G_APP_NAME,
8072: x_return_status := validate_assets_offlease(p_dnz_chr_id => ln_old_chr_id);
8073: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8074: OKL_API.set_message(p_app_name => G_APP_NAME,
8075: p_msg_name => 'OKL_LLA_CHR_ID');
8076: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8077: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8078: OKL_API.set_message(p_app_name => G_APP_NAME,
8079: p_msg_name => 'OKL_LLA_CHR_ID');
8080: RAISE OKL_API.G_EXCEPTION_ERROR;
8073: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8074: OKL_API.set_message(p_app_name => G_APP_NAME,
8075: p_msg_name => 'OKL_LLA_CHR_ID');
8076: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8077: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8078: OKL_API.set_message(p_app_name => G_APP_NAME,
8079: p_msg_name => 'OKL_LLA_CHR_ID');
8080: RAISE OKL_API.G_EXCEPTION_ERROR;
8081: END IF;
8074: OKL_API.set_message(p_app_name => G_APP_NAME,
8075: p_msg_name => 'OKL_LLA_CHR_ID');
8076: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8077: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8078: OKL_API.set_message(p_app_name => G_APP_NAME,
8079: p_msg_name => 'OKL_LLA_CHR_ID');
8080: RAISE OKL_API.G_EXCEPTION_ERROR;
8081: END IF;
8082: l_copy_contract(p_api_version => p_api_version,
8076: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8077: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8078: OKL_API.set_message(p_app_name => G_APP_NAME,
8079: p_msg_name => 'OKL_LLA_CHR_ID');
8080: RAISE OKL_API.G_EXCEPTION_ERROR;
8081: END IF;
8082: l_copy_contract(p_api_version => p_api_version,
8083: p_init_msg_list => p_init_msg_list,
8084: x_return_status => x_return_status,
8083: p_init_msg_list => p_init_msg_list,
8084: x_return_status => x_return_status,
8085: x_msg_count => x_msg_count,
8086: x_msg_data => x_msg_data,
8087: p_commit => OKL_API.G_FALSE,
8088: p_old_chr_id => ln_old_chr_id,
8089: p_new_contract_number => l_new_contract_number,
8090: p_release_date => l_release_date,
8091: p_term_duration => l_term_duration,
8090: p_release_date => l_release_date,
8091: p_term_duration => l_term_duration,
8092: x_new_chrv_rec => x_new_chrv_rec,
8093: x_new_khrv_rec => x_new_khrv_rec);
8094: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8095: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8096: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8097: RAISE OKL_API.G_EXCEPTION_ERROR;
8098: END IF;
8091: p_term_duration => l_term_duration,
8092: x_new_chrv_rec => x_new_chrv_rec,
8093: x_new_khrv_rec => x_new_khrv_rec);
8094: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8095: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8096: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8097: RAISE OKL_API.G_EXCEPTION_ERROR;
8098: END IF;
8099: ELSE
8092: x_new_chrv_rec => x_new_chrv_rec,
8093: x_new_khrv_rec => x_new_khrv_rec);
8094: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8095: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8096: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8097: RAISE OKL_API.G_EXCEPTION_ERROR;
8098: END IF;
8099: ELSE
8100: OKL_API.set_message(p_app_name => G_APP_NAME,
8093: x_new_khrv_rec => x_new_khrv_rec);
8094: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8095: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8096: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8097: RAISE OKL_API.G_EXCEPTION_ERROR;
8098: END IF;
8099: ELSE
8100: OKL_API.set_message(p_app_name => G_APP_NAME,
8101: p_msg_name => 'OKL_LLA_CHR_ID');
8096: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8097: RAISE OKL_API.G_EXCEPTION_ERROR;
8098: END IF;
8099: ELSE
8100: OKL_API.set_message(p_app_name => G_APP_NAME,
8101: p_msg_name => 'OKL_LLA_CHR_ID');
8102: RAISE OKL_API.G_EXCEPTION_ERROR;
8103: END IF;
8104:
8098: END IF;
8099: ELSE
8100: OKL_API.set_message(p_app_name => G_APP_NAME,
8101: p_msg_name => 'OKL_LLA_CHR_ID');
8102: RAISE OKL_API.G_EXCEPTION_ERROR;
8103: END IF;
8104:
8105: -- Create Re-lease contract transaction
8106: create_release_transaction
8117: p_source_trx_id => p_source_trx_id,
8118: p_source_trx_type => p_source_trx_type,
8119: x_tcnv_rec => x_tcnv_rec);
8120:
8121: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8122: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8123: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8124: RAISE OKL_API.G_EXCEPTION_ERROR;
8125: END IF;
8118: p_source_trx_type => p_source_trx_type,
8119: x_tcnv_rec => x_tcnv_rec);
8120:
8121: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8122: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8123: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8124: RAISE OKL_API.G_EXCEPTION_ERROR;
8125: END IF;
8126:
8119: x_tcnv_rec => x_tcnv_rec);
8120:
8121: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8122: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8123: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8124: RAISE OKL_API.G_EXCEPTION_ERROR;
8125: END IF;
8126:
8127: -- Delete contract lines which are not transferred
8120:
8121: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8122: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8123: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8124: RAISE OKL_API.G_EXCEPTION_ERROR;
8125: END IF;
8126:
8127: -- Delete contract lines which are not transferred
8128: -- if the source transaction is Partial T and A
8147: x_msg_data => x_msg_data,
8148: p_line_id => taa_lines_rec.id
8149: );
8150:
8151: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
8152: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8153: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
8154: RAISE OKL_API.G_EXCEPTION_ERROR;
8155: END IF;
8148: p_line_id => taa_lines_rec.id
8149: );
8150:
8151: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
8152: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8153: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
8154: RAISE OKL_API.G_EXCEPTION_ERROR;
8155: END IF;
8156: end loop;
8149: );
8150:
8151: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
8152: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8153: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
8154: RAISE OKL_API.G_EXCEPTION_ERROR;
8155: END IF;
8156: end loop;
8157:
8150:
8151: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
8152: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8153: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
8154: RAISE OKL_API.G_EXCEPTION_ERROR;
8155: END IF;
8156: end loop;
8157:
8158: -- Delete Fee and Service lines not having Covered Assets
8167: x_msg_data => x_msg_data,
8168: p_line_id => taa_fee_serv_rec.id
8169: );
8170:
8171: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
8172: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8173: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
8174: RAISE OKL_API.G_EXCEPTION_ERROR;
8175: END IF;
8168: p_line_id => taa_fee_serv_rec.id
8169: );
8170:
8171: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
8172: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8173: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
8174: RAISE OKL_API.G_EXCEPTION_ERROR;
8175: END IF;
8176: end loop;
8169: );
8170:
8171: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
8172: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8173: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
8174: RAISE OKL_API.G_EXCEPTION_ERROR;
8175: END IF;
8176: end loop;
8177:
8170:
8171: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
8172: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8173: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
8174: RAISE OKL_API.G_EXCEPTION_ERROR;
8175: END IF;
8176: end loop;
8177:
8178: -- Adjust Top line payments for Service and Rollover Fees
8185: x_msg_count => x_msg_count,
8186: x_msg_data => x_msg_data,
8187: p_chr_id => x_new_chrv_rec.id);
8188:
8189: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
8190: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8191: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
8192: RAISE OKL_API.G_EXCEPTION_ERROR;
8193: END IF;
8186: x_msg_data => x_msg_data,
8187: p_chr_id => x_new_chrv_rec.id);
8188:
8189: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
8190: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8191: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
8192: RAISE OKL_API.G_EXCEPTION_ERROR;
8193: END IF;
8194:
8187: p_chr_id => x_new_chrv_rec.id);
8188:
8189: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
8190: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8191: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
8192: RAISE OKL_API.G_EXCEPTION_ERROR;
8193: END IF;
8194:
8195: end if;
8188:
8189: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
8190: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8191: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
8192: RAISE OKL_API.G_EXCEPTION_ERROR;
8193: END IF;
8194:
8195: end if;
8196: end if;
8209: p_chr_id => x_new_chrv_rec.id,
8210: p_taa_trx_id => p_source_trx_id,
8211: p_org_id => ln_old_authoring_org_id);
8212:
8213: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
8214: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8215: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
8216: RAISE OKL_API.G_EXCEPTION_ERROR;
8217: END IF;
8210: p_taa_trx_id => p_source_trx_id,
8211: p_org_id => ln_old_authoring_org_id);
8212:
8213: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
8214: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8215: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
8216: RAISE OKL_API.G_EXCEPTION_ERROR;
8217: END IF;
8218:
8211: p_org_id => ln_old_authoring_org_id);
8212:
8213: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
8214: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8215: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
8216: RAISE OKL_API.G_EXCEPTION_ERROR;
8217: END IF;
8218:
8219: end if;
8212:
8213: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
8214: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8215: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
8216: RAISE OKL_API.G_EXCEPTION_ERROR;
8217: END IF;
8218:
8219: end if;
8220:
8225: x_msg_data => x_msg_data,
8226: p_chr_id => x_new_chrv_rec.id,
8227: p_release_date => l_release_date);
8228:
8229: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
8230: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8231: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
8232: RAISE OKL_API.G_EXCEPTION_ERROR;
8233: END IF;
8226: p_chr_id => x_new_chrv_rec.id,
8227: p_release_date => l_release_date);
8228:
8229: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
8230: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8231: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
8232: RAISE OKL_API.G_EXCEPTION_ERROR;
8233: END IF;
8234:
8227: p_release_date => l_release_date);
8228:
8229: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
8230: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8231: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
8232: RAISE OKL_API.G_EXCEPTION_ERROR;
8233: END IF;
8234:
8235: adjust_payment_lines(p_api_version => p_api_version,
8228:
8229: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
8230: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8231: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
8232: RAISE OKL_API.G_EXCEPTION_ERROR;
8233: END IF;
8234:
8235: adjust_payment_lines(p_api_version => p_api_version,
8236: p_init_msg_list => p_init_msg_list,
8239: x_msg_data => x_msg_data,
8240: p_chr_id => x_new_chrv_rec.id,
8241: p_release_date => l_release_date);
8242:
8243: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
8244: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8245: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
8246: RAISE OKL_API.G_EXCEPTION_ERROR;
8247: END IF;
8240: p_chr_id => x_new_chrv_rec.id,
8241: p_release_date => l_release_date);
8242:
8243: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
8244: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8245: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
8246: RAISE OKL_API.G_EXCEPTION_ERROR;
8247: END IF;
8248:
8241: p_release_date => l_release_date);
8242:
8243: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
8244: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8245: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
8246: RAISE OKL_API.G_EXCEPTION_ERROR;
8247: END IF;
8248:
8249: adjust_fee_lines(p_api_version => p_api_version,
8242:
8243: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
8244: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8245: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
8246: RAISE OKL_API.G_EXCEPTION_ERROR;
8247: END IF;
8248:
8249: adjust_fee_lines(p_api_version => p_api_version,
8250: p_init_msg_list => p_init_msg_list,
8254: p_chr_id => x_new_chrv_rec.id,
8255: p_orig_chr_id => p_chr_id,
8256: p_release_date => l_release_date);
8257:
8258: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
8259: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8260: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
8261: RAISE OKL_API.G_EXCEPTION_ERROR;
8262: END IF;
8255: p_orig_chr_id => p_chr_id,
8256: p_release_date => l_release_date);
8257:
8258: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
8259: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8260: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
8261: RAISE OKL_API.G_EXCEPTION_ERROR;
8262: END IF;
8263:
8256: p_release_date => l_release_date);
8257:
8258: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
8259: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8260: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
8261: RAISE OKL_API.G_EXCEPTION_ERROR;
8262: END IF;
8263:
8264: adjust_service_lines(p_api_version => p_api_version,
8257:
8258: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
8259: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8260: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
8261: RAISE OKL_API.G_EXCEPTION_ERROR;
8262: END IF;
8263:
8264: adjust_service_lines(p_api_version => p_api_version,
8265: p_init_msg_list => p_init_msg_list,
8269: p_chr_id => x_new_chrv_rec.id,
8270: p_orig_chr_id => p_chr_id,
8271: p_release_date => l_release_date);
8272:
8273: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
8274: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8275: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
8276: RAISE OKL_API.G_EXCEPTION_ERROR;
8277: END IF;
8270: p_orig_chr_id => p_chr_id,
8271: p_release_date => l_release_date);
8272:
8273: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
8274: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8275: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
8276: RAISE OKL_API.G_EXCEPTION_ERROR;
8277: END IF;
8278: --Added by rajnisku Bug 6657564
8271: p_release_date => l_release_date);
8272:
8273: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
8274: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8275: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
8276: RAISE OKL_API.G_EXCEPTION_ERROR;
8277: END IF;
8278: --Added by rajnisku Bug 6657564
8279: adjust_usage_lines(p_api_version => p_api_version,
8272:
8273: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
8274: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8275: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
8276: RAISE OKL_API.G_EXCEPTION_ERROR;
8277: END IF;
8278: --Added by rajnisku Bug 6657564
8279: adjust_usage_lines(p_api_version => p_api_version,
8280: p_init_msg_list => p_init_msg_list,
8283: x_msg_data => x_msg_data,
8284: p_chr_id => x_new_chrv_rec.id,
8285: p_release_date => l_release_date);
8286:
8287: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
8288: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8289: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
8290: RAISE OKL_API.G_EXCEPTION_ERROR;
8291: END IF;
8284: p_chr_id => x_new_chrv_rec.id,
8285: p_release_date => l_release_date);
8286:
8287: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
8288: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8289: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
8290: RAISE OKL_API.G_EXCEPTION_ERROR;
8291: END IF;
8292: --Added by rajnisku Bug 6657564 : End
8285: p_release_date => l_release_date);
8286:
8287: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
8288: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8289: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
8290: RAISE OKL_API.G_EXCEPTION_ERROR;
8291: END IF;
8292: --Added by rajnisku Bug 6657564 : End
8293: --Bug# 4631549 : Update line Capital Amounts
8286:
8287: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
8288: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8289: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
8290: RAISE OKL_API.G_EXCEPTION_ERROR;
8291: END IF;
8292: --Added by rajnisku Bug 6657564 : End
8293: --Bug# 4631549 : Update line Capital Amounts
8294: open l_finast_csr (p_chr_id => x_new_chrv_rec.id);
8304: p_contract_id => x_new_chrv_rec.id,
8305: p_line_id => l_finast_rec.id,
8306: x_value => l_fin_klev_rec.capital_amount);
8307:
8308: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8309: RAISE OKL_API.G_EXCEPTION_ERROR;
8310: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8311: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8312: END IF;
8305: p_line_id => l_finast_rec.id,
8306: x_value => l_fin_klev_rec.capital_amount);
8307:
8308: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8309: RAISE OKL_API.G_EXCEPTION_ERROR;
8310: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8311: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8312: END IF;
8313:
8306: x_value => l_fin_klev_rec.capital_amount);
8307:
8308: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8309: RAISE OKL_API.G_EXCEPTION_ERROR;
8310: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8311: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8312: END IF;
8313:
8314: l_fin_clev_rec.id := l_finast_rec.id;
8307:
8308: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8309: RAISE OKL_API.G_EXCEPTION_ERROR;
8310: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8311: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8312: END IF;
8313:
8314: l_fin_clev_rec.id := l_finast_rec.id;
8315: l_fin_klev_rec.id := l_finast_rec.id;
8324: p_klev_rec => l_fin_klev_rec,
8325: x_clev_rec => lx_fin_clev_rec,
8326: x_klev_rec => lx_fin_klev_rec);
8327:
8328: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8329: RAISE OKL_API.G_EXCEPTION_ERROR;
8330: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8331: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8332: END IF;
8325: x_clev_rec => lx_fin_clev_rec,
8326: x_klev_rec => lx_fin_klev_rec);
8327:
8328: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8329: RAISE OKL_API.G_EXCEPTION_ERROR;
8330: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8331: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8332: END IF;
8333: End Loop;
8326: x_klev_rec => lx_fin_klev_rec);
8327:
8328: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8329: RAISE OKL_API.G_EXCEPTION_ERROR;
8330: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8331: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8332: END IF;
8333: End Loop;
8334: Close l_finast_csr;
8327:
8328: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8329: RAISE OKL_API.G_EXCEPTION_ERROR;
8330: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8331: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8332: END IF;
8333: End Loop;
8334: Close l_finast_csr;
8335: --End Bug# 4631549
8336:
8337: -- R12B Authoring OA Migration
8338: x_release_chr_id := x_new_chrv_rec.id;
8339:
8340: OKL_API.END_ACTIVITY (x_msg_count => x_msg_count,
8341: x_msg_data => x_msg_data);
8342:
8343: EXCEPTION
8344: WHEN OKL_API.G_EXCEPTION_ERROR THEN
8340: OKL_API.END_ACTIVITY (x_msg_count => x_msg_count,
8341: x_msg_data => x_msg_data);
8342:
8343: EXCEPTION
8344: WHEN OKL_API.G_EXCEPTION_ERROR THEN
8345: IF c_fetch_header_line_id%ISOPEN THEN
8346: CLOSE c_fetch_header_line_id;
8347: END IF;
8348: l_return_status := OKL_API.HANDLE_EXCEPTIONS(
8344: WHEN OKL_API.G_EXCEPTION_ERROR THEN
8345: IF c_fetch_header_line_id%ISOPEN THEN
8346: CLOSE c_fetch_header_line_id;
8347: END IF;
8348: l_return_status := OKL_API.HANDLE_EXCEPTIONS(
8349: l_api_name,
8350: G_PKG_NAME,
8351: 'OKL_API.G_RET_STS_ERROR',
8352: x_msg_count,
8347: END IF;
8348: l_return_status := OKL_API.HANDLE_EXCEPTIONS(
8349: l_api_name,
8350: G_PKG_NAME,
8351: 'OKL_API.G_RET_STS_ERROR',
8352: x_msg_count,
8353: x_msg_data,
8354: '_PVT');
8355: x_return_status := l_return_status;
8352: x_msg_count,
8353: x_msg_data,
8354: '_PVT');
8355: x_return_status := l_return_status;
8356: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
8357: l_return_status :=OKL_API.HANDLE_EXCEPTIONS(
8358: l_api_name,
8359: G_PKG_NAME,
8360: 'OKL_API.G_RET_STS_UNEXP_ERROR',
8353: x_msg_data,
8354: '_PVT');
8355: x_return_status := l_return_status;
8356: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
8357: l_return_status :=OKL_API.HANDLE_EXCEPTIONS(
8358: l_api_name,
8359: G_PKG_NAME,
8360: 'OKL_API.G_RET_STS_UNEXP_ERROR',
8361: x_msg_count,
8356: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
8357: l_return_status :=OKL_API.HANDLE_EXCEPTIONS(
8358: l_api_name,
8359: G_PKG_NAME,
8360: 'OKL_API.G_RET_STS_UNEXP_ERROR',
8361: x_msg_count,
8362: x_msg_data,
8363: '_PVT');
8364: x_return_status := l_return_status;
8365: WHEN OTHERS THEN
8366: IF c_fetch_header_line_id%ISOPEN THEN
8367: CLOSE c_fetch_header_line_id;
8368: END IF;
8369: l_return_status :=OKL_API.HANDLE_EXCEPTIONS(
8370: l_api_name,
8371: G_PKG_NAME,
8372: 'OTHERS',
8373: x_msg_count,
8379: --------------------------------- Activate Release Contract ----------------------------------
8380: -----------------------------------------------------------------------------------------------
8381: PROCEDURE activate_release_contract(
8382: p_api_version IN NUMBER,
8383: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
8384: x_return_status OUT NOCOPY VARCHAR2,
8385: x_msg_count OUT NOCOPY NUMBER,
8386: x_msg_data OUT NOCOPY VARCHAR2,
8387: p_chr_id IN OKC_K_HEADERS_B.ID%TYPE) IS
8516: l_taav_rec okl_taa_pvt.taav_rec_type;
8517: l_out_taav_rec okl_taa_pvt.taav_rec_type;
8518:
8519: BEGIN
8520: x_return_status := OKL_API.G_RET_STS_SUCCESS;
8521: -- Call start_activity to create savepoint, check compatibility
8522: -- and initialize message list
8523: x_return_status := OKL_API.START_ACTIVITY (
8524: l_api_name
8519: BEGIN
8520: x_return_status := OKL_API.G_RET_STS_SUCCESS;
8521: -- Call start_activity to create savepoint, check compatibility
8522: -- and initialize message list
8523: x_return_status := OKL_API.START_ACTIVITY (
8524: l_api_name
8525: ,p_init_msg_list
8526: ,'_PVT'
8527: ,x_return_status);
8525: ,p_init_msg_list
8526: ,'_PVT'
8527: ,x_return_status);
8528: -- Check if activity started successfully
8529: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8530: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8531: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8532: RAISE OKL_API.G_EXCEPTION_ERROR;
8533: END IF;
8526: ,'_PVT'
8527: ,x_return_status);
8528: -- Check if activity started successfully
8529: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8530: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8531: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8532: RAISE OKL_API.G_EXCEPTION_ERROR;
8533: END IF;
8534:
8527: ,x_return_status);
8528: -- Check if activity started successfully
8529: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8530: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8531: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8532: RAISE OKL_API.G_EXCEPTION_ERROR;
8533: END IF;
8534:
8535: -- To get the orig system id for
8528: -- Check if activity started successfully
8529: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8530: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8531: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8532: RAISE OKL_API.G_EXCEPTION_ERROR;
8533: END IF;
8534:
8535: -- To get the orig system id for
8536: OPEN get_orig_sys_code(p_chr_id => p_chr_id);
8538: ln_orig_system_id1,
8539: ln_orig_contract_number,
8540: ln_new_contract_number; --Bug# 4072796
8541: IF get_orig_sys_code%NOTFOUND THEN
8542: OKL_API.set_message(p_app_name => G_APP_NAME,
8543: p_msg_name => G_NO_MATCHING_RECORD,
8544: p_token1 => G_COL_NAME_TOKEN,
8545: p_token1_value => 'OKC_K_HEADERS_V.ID');
8546: RAISE OKL_API.G_EXCEPTION_ERROR;
8542: OKL_API.set_message(p_app_name => G_APP_NAME,
8543: p_msg_name => G_NO_MATCHING_RECORD,
8544: p_token1 => G_COL_NAME_TOKEN,
8545: p_token1_value => 'OKC_K_HEADERS_V.ID');
8546: RAISE OKL_API.G_EXCEPTION_ERROR;
8547: END IF;
8548: CLOSE get_orig_sys_code;
8549: IF ln_orig_system_source_code = 'OKL_RELEASE' THEN
8550:
8554: -- to get all the new line item information
8555: x_return_status := get_rec_cimv(r_get_orig_fa.id,
8556: p_chr_id,
8557: l_cimv_rec);
8558: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8559: OKL_API.set_message(p_app_name => G_APP_NAME,
8560: p_msg_name => G_NO_MATCHING_RECORD,
8561: p_token1 => G_COL_NAME_TOKEN,
8562: p_token1_value => 'OKC_K_ITEMS_V record');
8555: x_return_status := get_rec_cimv(r_get_orig_fa.id,
8556: p_chr_id,
8557: l_cimv_rec);
8558: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8559: OKL_API.set_message(p_app_name => G_APP_NAME,
8560: p_msg_name => G_NO_MATCHING_RECORD,
8561: p_token1 => G_COL_NAME_TOKEN,
8562: p_token1_value => 'OKC_K_ITEMS_V record');
8563: x_return_status := OKL_API.G_RET_STS_ERROR;
8559: OKL_API.set_message(p_app_name => G_APP_NAME,
8560: p_msg_name => G_NO_MATCHING_RECORD,
8561: p_token1 => G_COL_NAME_TOKEN,
8562: p_token1_value => 'OKC_K_ITEMS_V record');
8563: x_return_status := OKL_API.G_RET_STS_ERROR;
8564: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
8565: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8566: OKL_API.set_message(p_app_name => G_APP_NAME,
8567: p_msg_name => G_NO_MATCHING_RECORD,
8560: p_msg_name => G_NO_MATCHING_RECORD,
8561: p_token1 => G_COL_NAME_TOKEN,
8562: p_token1_value => 'OKC_K_ITEMS_V record');
8563: x_return_status := OKL_API.G_RET_STS_ERROR;
8564: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
8565: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8566: OKL_API.set_message(p_app_name => G_APP_NAME,
8567: p_msg_name => G_NO_MATCHING_RECORD,
8568: p_token1 => G_COL_NAME_TOKEN,
8561: p_token1 => G_COL_NAME_TOKEN,
8562: p_token1_value => 'OKC_K_ITEMS_V record');
8563: x_return_status := OKL_API.G_RET_STS_ERROR;
8564: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
8565: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8566: OKL_API.set_message(p_app_name => G_APP_NAME,
8567: p_msg_name => G_NO_MATCHING_RECORD,
8568: p_token1 => G_COL_NAME_TOKEN,
8569: p_token1_value => 'OKC_K_ITEMS_V record');
8562: p_token1_value => 'OKC_K_ITEMS_V record');
8563: x_return_status := OKL_API.G_RET_STS_ERROR;
8564: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
8565: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8566: OKL_API.set_message(p_app_name => G_APP_NAME,
8567: p_msg_name => G_NO_MATCHING_RECORD,
8568: p_token1 => G_COL_NAME_TOKEN,
8569: p_token1_value => 'OKC_K_ITEMS_V record');
8570: x_return_status := OKL_API.G_RET_STS_ERROR;
8566: OKL_API.set_message(p_app_name => G_APP_NAME,
8567: p_msg_name => G_NO_MATCHING_RECORD,
8568: p_token1 => G_COL_NAME_TOKEN,
8569: p_token1_value => 'OKC_K_ITEMS_V record');
8570: x_return_status := OKL_API.G_RET_STS_ERROR;
8571: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
8572: END IF;
8573: -- To get the old information of the old asset
8574: OPEN get_item_info(p_orig_chr_id => ln_orig_system_id1,
8567: p_msg_name => G_NO_MATCHING_RECORD,
8568: p_token1 => G_COL_NAME_TOKEN,
8569: p_token1_value => 'OKC_K_ITEMS_V record');
8570: x_return_status := OKL_API.G_RET_STS_ERROR;
8571: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
8572: END IF;
8573: -- To get the old information of the old asset
8574: OPEN get_item_info(p_orig_chr_id => ln_orig_system_id1,
8575: p_orig_cle_id => r_get_orig_fa.orig_cle_fa);
8575: p_orig_cle_id => r_get_orig_fa.orig_cle_fa);
8576: FETCH get_item_info INTO l_cimv_rec.object1_id1,
8577: l_cimv_rec.object1_id2;
8578: IF get_item_info%NOTFOUND THEN
8579: x_return_status := OKL_API.G_RET_STS_ERROR;
8580: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
8581: END IF;
8582: CLOSE get_item_info;
8583: OKL_OKC_MIGRATION_PVT.update_contract_item(p_api_version => p_api_version,
8576: FETCH get_item_info INTO l_cimv_rec.object1_id1,
8577: l_cimv_rec.object1_id2;
8578: IF get_item_info%NOTFOUND THEN
8579: x_return_status := OKL_API.G_RET_STS_ERROR;
8580: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
8581: END IF;
8582: CLOSE get_item_info;
8583: OKL_OKC_MIGRATION_PVT.update_contract_item(p_api_version => p_api_version,
8584: p_init_msg_list => p_init_msg_list,
8586: x_msg_count => x_msg_count,
8587: x_msg_data => x_msg_data,
8588: p_cimv_rec => l_cimv_rec,
8589: x_cimv_rec => lx_cimv_rec);
8590: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8591: x_return_status := OKL_API.G_RET_STS_ERROR;
8592: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
8593: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8594: x_return_status := OKL_API.G_RET_STS_ERROR;
8587: x_msg_data => x_msg_data,
8588: p_cimv_rec => l_cimv_rec,
8589: x_cimv_rec => lx_cimv_rec);
8590: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8591: x_return_status := OKL_API.G_RET_STS_ERROR;
8592: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
8593: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8594: x_return_status := OKL_API.G_RET_STS_ERROR;
8595: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
8588: p_cimv_rec => l_cimv_rec,
8589: x_cimv_rec => lx_cimv_rec);
8590: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8591: x_return_status := OKL_API.G_RET_STS_ERROR;
8592: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
8593: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8594: x_return_status := OKL_API.G_RET_STS_ERROR;
8595: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
8596: END IF;
8589: x_cimv_rec => lx_cimv_rec);
8590: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8591: x_return_status := OKL_API.G_RET_STS_ERROR;
8592: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
8593: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8594: x_return_status := OKL_API.G_RET_STS_ERROR;
8595: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
8596: END IF;
8597: END LOOP;
8590: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8591: x_return_status := OKL_API.G_RET_STS_ERROR;
8592: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
8593: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8594: x_return_status := OKL_API.G_RET_STS_ERROR;
8595: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
8596: END IF;
8597: END LOOP;
8598: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8591: x_return_status := OKL_API.G_RET_STS_ERROR;
8592: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
8593: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8594: x_return_status := OKL_API.G_RET_STS_ERROR;
8595: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
8596: END IF;
8597: END LOOP;
8598: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8599: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8594: x_return_status := OKL_API.G_RET_STS_ERROR;
8595: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
8596: END IF;
8597: END LOOP;
8598: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8599: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8600: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8601: RAISE OKL_API.G_EXCEPTION_ERROR;
8602: END IF;
8595: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
8596: END IF;
8597: END LOOP;
8598: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8599: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8600: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8601: RAISE OKL_API.G_EXCEPTION_ERROR;
8602: END IF;
8603:
8596: END IF;
8597: END LOOP;
8598: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8599: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8600: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8601: RAISE OKL_API.G_EXCEPTION_ERROR;
8602: END IF;
8603:
8604: -- To get the Install Base information for the p_chr_id
8597: END LOOP;
8598: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8599: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8600: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8601: RAISE OKL_API.G_EXCEPTION_ERROR;
8602: END IF;
8603:
8604: -- To get the Install Base information for the p_chr_id
8605: FOR r_get_orig_ib IN get_orig_ib(p_chr_id => p_chr_id) LOOP
8606: -- to get all the new line item information
8607: x_return_status := get_rec_cimv(r_get_orig_ib.id,
8608: p_chr_id,
8609: l_cimv_rec);
8610: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8611: OKL_API.set_message(p_app_name => G_APP_NAME,
8612: p_msg_name => G_NO_MATCHING_RECORD,
8613: p_token1 => G_COL_NAME_TOKEN,
8614: p_token1_value => 'OKC_K_ITEMS_V record');
8607: x_return_status := get_rec_cimv(r_get_orig_ib.id,
8608: p_chr_id,
8609: l_cimv_rec);
8610: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8611: OKL_API.set_message(p_app_name => G_APP_NAME,
8612: p_msg_name => G_NO_MATCHING_RECORD,
8613: p_token1 => G_COL_NAME_TOKEN,
8614: p_token1_value => 'OKC_K_ITEMS_V record');
8615: x_return_status := OKL_API.G_RET_STS_ERROR;
8611: OKL_API.set_message(p_app_name => G_APP_NAME,
8612: p_msg_name => G_NO_MATCHING_RECORD,
8613: p_token1 => G_COL_NAME_TOKEN,
8614: p_token1_value => 'OKC_K_ITEMS_V record');
8615: x_return_status := OKL_API.G_RET_STS_ERROR;
8616: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
8617: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8618: OKL_API.set_message(p_app_name => G_APP_NAME,
8619: p_msg_name => G_NO_MATCHING_RECORD,
8612: p_msg_name => G_NO_MATCHING_RECORD,
8613: p_token1 => G_COL_NAME_TOKEN,
8614: p_token1_value => 'OKC_K_ITEMS_V record');
8615: x_return_status := OKL_API.G_RET_STS_ERROR;
8616: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
8617: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8618: OKL_API.set_message(p_app_name => G_APP_NAME,
8619: p_msg_name => G_NO_MATCHING_RECORD,
8620: p_token1 => G_COL_NAME_TOKEN,
8613: p_token1 => G_COL_NAME_TOKEN,
8614: p_token1_value => 'OKC_K_ITEMS_V record');
8615: x_return_status := OKL_API.G_RET_STS_ERROR;
8616: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
8617: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8618: OKL_API.set_message(p_app_name => G_APP_NAME,
8619: p_msg_name => G_NO_MATCHING_RECORD,
8620: p_token1 => G_COL_NAME_TOKEN,
8621: p_token1_value => 'OKC_K_ITEMS_V record');
8614: p_token1_value => 'OKC_K_ITEMS_V record');
8615: x_return_status := OKL_API.G_RET_STS_ERROR;
8616: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
8617: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8618: OKL_API.set_message(p_app_name => G_APP_NAME,
8619: p_msg_name => G_NO_MATCHING_RECORD,
8620: p_token1 => G_COL_NAME_TOKEN,
8621: p_token1_value => 'OKC_K_ITEMS_V record');
8622: x_return_status := OKL_API.G_RET_STS_ERROR;
8618: OKL_API.set_message(p_app_name => G_APP_NAME,
8619: p_msg_name => G_NO_MATCHING_RECORD,
8620: p_token1 => G_COL_NAME_TOKEN,
8621: p_token1_value => 'OKC_K_ITEMS_V record');
8622: x_return_status := OKL_API.G_RET_STS_ERROR;
8623: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
8624: END IF;
8625: -- To get the old information of the old asset
8626: OPEN get_item_info(p_orig_chr_id => ln_orig_system_id1,
8619: p_msg_name => G_NO_MATCHING_RECORD,
8620: p_token1 => G_COL_NAME_TOKEN,
8621: p_token1_value => 'OKC_K_ITEMS_V record');
8622: x_return_status := OKL_API.G_RET_STS_ERROR;
8623: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
8624: END IF;
8625: -- To get the old information of the old asset
8626: OPEN get_item_info(p_orig_chr_id => ln_orig_system_id1,
8627: p_orig_cle_id => r_get_orig_ib.orig_cle_ib);
8627: p_orig_cle_id => r_get_orig_ib.orig_cle_ib);
8628: FETCH get_item_info INTO l_cimv_rec.object1_id1,
8629: l_cimv_rec.object1_id2;
8630: IF get_item_info%NOTFOUND THEN
8631: x_return_status := OKL_API.G_RET_STS_ERROR;
8632: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
8633: END IF;
8634: CLOSE get_item_info;
8635: OKL_OKC_MIGRATION_PVT.update_contract_item(p_api_version => p_api_version,
8628: FETCH get_item_info INTO l_cimv_rec.object1_id1,
8629: l_cimv_rec.object1_id2;
8630: IF get_item_info%NOTFOUND THEN
8631: x_return_status := OKL_API.G_RET_STS_ERROR;
8632: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
8633: END IF;
8634: CLOSE get_item_info;
8635: OKL_OKC_MIGRATION_PVT.update_contract_item(p_api_version => p_api_version,
8636: p_init_msg_list => p_init_msg_list,
8638: x_msg_count => x_msg_count,
8639: x_msg_data => x_msg_data,
8640: p_cimv_rec => l_cimv_rec,
8641: x_cimv_rec => lx_cimv_rec);
8642: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8643: x_return_status := OKL_API.G_RET_STS_ERROR;
8644: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
8645: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8646: x_return_status := OKL_API.G_RET_STS_ERROR;
8639: x_msg_data => x_msg_data,
8640: p_cimv_rec => l_cimv_rec,
8641: x_cimv_rec => lx_cimv_rec);
8642: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8643: x_return_status := OKL_API.G_RET_STS_ERROR;
8644: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
8645: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8646: x_return_status := OKL_API.G_RET_STS_ERROR;
8647: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
8640: p_cimv_rec => l_cimv_rec,
8641: x_cimv_rec => lx_cimv_rec);
8642: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8643: x_return_status := OKL_API.G_RET_STS_ERROR;
8644: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
8645: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8646: x_return_status := OKL_API.G_RET_STS_ERROR;
8647: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
8648: END IF;
8641: x_cimv_rec => lx_cimv_rec);
8642: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8643: x_return_status := OKL_API.G_RET_STS_ERROR;
8644: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
8645: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8646: x_return_status := OKL_API.G_RET_STS_ERROR;
8647: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
8648: END IF;
8649: END LOOP;
8642: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8643: x_return_status := OKL_API.G_RET_STS_ERROR;
8644: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
8645: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8646: x_return_status := OKL_API.G_RET_STS_ERROR;
8647: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
8648: END IF;
8649: END LOOP;
8650: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8643: x_return_status := OKL_API.G_RET_STS_ERROR;
8644: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
8645: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8646: x_return_status := OKL_API.G_RET_STS_ERROR;
8647: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
8648: END IF;
8649: END LOOP;
8650: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8651: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8646: x_return_status := OKL_API.G_RET_STS_ERROR;
8647: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
8648: END IF;
8649: END LOOP;
8650: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8651: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8652: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8653: RAISE OKL_API.G_EXCEPTION_ERROR;
8654: END IF;
8647: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
8648: END IF;
8649: END LOOP;
8650: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8651: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8652: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8653: RAISE OKL_API.G_EXCEPTION_ERROR;
8654: END IF;
8655:
8648: END IF;
8649: END LOOP;
8650: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8651: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8652: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8653: RAISE OKL_API.G_EXCEPTION_ERROR;
8654: END IF;
8655:
8656: -- call the asset release api
8649: END LOOP;
8650: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8651: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8652: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8653: RAISE OKL_API.G_EXCEPTION_ERROR;
8654: END IF;
8655:
8656: -- call the asset release api
8657: okl_activate_asset_pub.RELEASE_ASSET
8661: x_msg_count => x_msg_count,
8662: x_msg_data => x_msg_data,
8663: p_rel_chr_id => p_chr_id);
8664:
8665: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
8666: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
8667: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
8668: RAISE Okl_Api.G_EXCEPTION_ERROR;
8669: END IF;
8662: x_msg_data => x_msg_data,
8663: p_rel_chr_id => p_chr_id);
8664:
8665: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
8666: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
8667: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
8668: RAISE Okl_Api.G_EXCEPTION_ERROR;
8669: END IF;
8670:
8663: p_rel_chr_id => p_chr_id);
8664:
8665: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
8666: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
8667: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
8668: RAISE Okl_Api.G_EXCEPTION_ERROR;
8669: END IF;
8670:
8671: --call the install base instance re_lease API
8664:
8665: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
8666: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
8667: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
8668: RAISE Okl_Api.G_EXCEPTION_ERROR;
8669: END IF;
8670:
8671: --call the install base instance re_lease API
8672: okl_activate_ib_pvt.RELEASE_IB_INSTANCE
8676: x_msg_count => x_msg_count,
8677: x_msg_data => x_msg_data,
8678: p_rel_chr_id => p_chr_id);
8679:
8680: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
8681: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
8682: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
8683: RAISE Okl_Api.G_EXCEPTION_ERROR;
8684: END IF;
8677: x_msg_data => x_msg_data,
8678: p_rel_chr_id => p_chr_id);
8679:
8680: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
8681: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
8682: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
8683: RAISE Okl_Api.G_EXCEPTION_ERROR;
8684: END IF;
8685:
8678: p_rel_chr_id => p_chr_id);
8679:
8680: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
8681: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
8682: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
8683: RAISE Okl_Api.G_EXCEPTION_ERROR;
8684: END IF;
8685:
8686: --code added to update status in OKL_ASSET_RETURNS_B
8679:
8680: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
8681: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
8682: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
8683: RAISE Okl_Api.G_EXCEPTION_ERROR;
8684: END IF;
8685:
8686: --code added to update status in OKL_ASSET_RETURNS_B
8687: --after the release asset transaction has been processed
8701: ,x_msg_data => x_msg_data
8702: ,p_artv_rec => l_artv_rec
8703: ,x_artv_rec => lx_artv_rec);
8704:
8705: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
8706: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
8707: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
8708: RAISE Okl_Api.G_EXCEPTION_ERROR;
8709: END IF;
8702: ,p_artv_rec => l_artv_rec
8703: ,x_artv_rec => lx_artv_rec);
8704:
8705: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
8706: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
8707: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
8708: RAISE Okl_Api.G_EXCEPTION_ERROR;
8709: END IF;
8710: END LOOP;
8703: ,x_artv_rec => lx_artv_rec);
8704:
8705: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
8706: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
8707: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
8708: RAISE Okl_Api.G_EXCEPTION_ERROR;
8709: END IF;
8710: END LOOP;
8711: CLOSE l_asr_csr;
8704:
8705: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
8706: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
8707: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
8708: RAISE Okl_Api.G_EXCEPTION_ERROR;
8709: END IF;
8710: END LOOP;
8711: CLOSE l_asr_csr;
8712:
8718: ,x_msg_count => x_msg_count
8719: ,x_msg_data => x_msg_data
8720: ,p_chr_id => p_chr_id);
8721:
8722: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
8723: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
8724: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
8725: RAISE Okl_Api.G_EXCEPTION_ERROR;
8726: END IF;
8719: ,x_msg_data => x_msg_data
8720: ,p_chr_id => p_chr_id);
8721:
8722: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
8723: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
8724: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
8725: RAISE Okl_Api.G_EXCEPTION_ERROR;
8726: END IF;
8727:
8720: ,p_chr_id => p_chr_id);
8721:
8722: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
8723: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
8724: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
8725: RAISE Okl_Api.G_EXCEPTION_ERROR;
8726: END IF;
8727:
8728: -- We need to change the status of the contract
8721:
8722: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
8723: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
8724: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
8725: RAISE Okl_Api.G_EXCEPTION_ERROR;
8726: END IF;
8727:
8728: -- We need to change the status of the contract
8729: OKL_CONTRACT_STATUS_PUB.update_contract_status(
8733: x_msg_count => x_msg_count,
8734: x_msg_data => x_msg_data,
8735: p_khr_status => 'BOOKED',
8736: p_chr_id => p_chr_id);
8737: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8738: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8739: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8740: RAISE OKL_API.G_EXCEPTION_ERROR;
8741: END IF;
8734: x_msg_data => x_msg_data,
8735: p_khr_status => 'BOOKED',
8736: p_chr_id => p_chr_id);
8737: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8738: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8739: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8740: RAISE OKL_API.G_EXCEPTION_ERROR;
8741: END IF;
8742: -- We need to change the status of the Lines for the contract
8735: p_khr_status => 'BOOKED',
8736: p_chr_id => p_chr_id);
8737: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8738: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8739: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8740: RAISE OKL_API.G_EXCEPTION_ERROR;
8741: END IF;
8742: -- We need to change the status of the Lines for the contract
8743: OKL_CONTRACT_STATUS_PUB.cascade_lease_status(
8736: p_chr_id => p_chr_id);
8737: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8738: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8739: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8740: RAISE OKL_API.G_EXCEPTION_ERROR;
8741: END IF;
8742: -- We need to change the status of the Lines for the contract
8743: OKL_CONTRACT_STATUS_PUB.cascade_lease_status(
8744: p_api_version => p_api_version,
8746: x_return_status => x_return_status,
8747: x_msg_count => x_msg_count,
8748: x_msg_data => x_msg_data,
8749: p_chr_id => p_chr_id);
8750: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8751: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8752: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8753: RAISE OKL_API.G_EXCEPTION_ERROR;
8754: END IF;
8747: x_msg_count => x_msg_count,
8748: x_msg_data => x_msg_data,
8749: p_chr_id => p_chr_id);
8750: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8751: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8752: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8753: RAISE OKL_API.G_EXCEPTION_ERROR;
8754: END IF;
8755:
8748: x_msg_data => x_msg_data,
8749: p_chr_id => p_chr_id);
8750: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8751: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8752: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8753: RAISE OKL_API.G_EXCEPTION_ERROR;
8754: END IF;
8755:
8756: -- Set Re-lease Transaction status to 'PROCESSED'
8749: p_chr_id => p_chr_id);
8750: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8751: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8752: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8753: RAISE OKL_API.G_EXCEPTION_ERROR;
8754: END IF;
8755:
8756: -- Set Re-lease Transaction status to 'PROCESSED'
8757: open taa_trx_csr(p_orig_chr_id => ln_orig_system_id1
8772: p_tcnv_rec => l_tcnv_rec,
8773: x_tcnv_rec => l_out_tcnv_rec
8774: );
8775:
8776: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8777: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8778: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8779: RAISE OKL_API.G_EXCEPTION_ERROR;
8780: END IF;
8773: x_tcnv_rec => l_out_tcnv_rec
8774: );
8775:
8776: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8777: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8778: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8779: RAISE OKL_API.G_EXCEPTION_ERROR;
8780: END IF;
8781: end if;
8774: );
8775:
8776: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8777: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8778: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8779: RAISE OKL_API.G_EXCEPTION_ERROR;
8780: END IF;
8781: end if;
8782:
8775:
8776: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8777: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8778: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8779: RAISE OKL_API.G_EXCEPTION_ERROR;
8780: END IF;
8781: end if;
8782:
8783: --Bug# 4072796
8802: x_msg_data => x_msg_data,
8803: p_taav_rec => l_taav_rec,
8804: x_taav_rec => l_out_taav_rec);
8805:
8806: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8807: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8808: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8809: RAISE OKL_API.G_EXCEPTION_ERROR;
8810: END IF;
8803: p_taav_rec => l_taav_rec,
8804: x_taav_rec => l_out_taav_rec);
8805:
8806: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8807: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8808: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8809: RAISE OKL_API.G_EXCEPTION_ERROR;
8810: END IF;
8811: end if;
8804: x_taav_rec => l_out_taav_rec);
8805:
8806: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8807: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8808: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8809: RAISE OKL_API.G_EXCEPTION_ERROR;
8810: END IF;
8811: end if;
8812:
8805:
8806: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8807: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8808: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8809: RAISE OKL_API.G_EXCEPTION_ERROR;
8810: END IF;
8811: end if;
8812:
8813: l_tcnv_rec.id := taa_trx_rec.source_trx_id;
8823: p_tcnv_rec => l_tcnv_rec,
8824: x_tcnv_rec => l_out_tcnv_rec
8825: );
8826:
8827: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8828: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8829: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8830: RAISE OKL_API.G_EXCEPTION_ERROR;
8831: END IF;
8824: x_tcnv_rec => l_out_tcnv_rec
8825: );
8826:
8827: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8828: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8829: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8830: RAISE OKL_API.G_EXCEPTION_ERROR;
8831: END IF;
8832: end if;
8825: );
8826:
8827: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8828: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8829: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8830: RAISE OKL_API.G_EXCEPTION_ERROR;
8831: END IF;
8832: end if;
8833: --rajnisku Bug 6657564 : Added a call to create usage line
8826:
8827: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8828: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8829: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8830: RAISE OKL_API.G_EXCEPTION_ERROR;
8831: END IF;
8832: end if;
8833: --rajnisku Bug 6657564 : Added a call to create usage line
8834:
8846: END IF;
8847: --rajnisku:End
8848:
8849: ELSE
8850: OKL_API.set_message(p_app_name => G_APP_NAME,
8851: p_msg_name => 'This Contract is not a Re-Lease Contract');
8852: RAISE OKL_API.G_EXCEPTION_ERROR;
8853: END IF;
8854: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
8848:
8849: ELSE
8850: OKL_API.set_message(p_app_name => G_APP_NAME,
8851: p_msg_name => 'This Contract is not a Re-Lease Contract');
8852: RAISE OKL_API.G_EXCEPTION_ERROR;
8853: END IF;
8854: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
8855: x_msg_data => x_msg_data);
8856:
8850: OKL_API.set_message(p_app_name => G_APP_NAME,
8851: p_msg_name => 'This Contract is not a Re-Lease Contract');
8852: RAISE OKL_API.G_EXCEPTION_ERROR;
8853: END IF;
8854: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
8855: x_msg_data => x_msg_data);
8856:
8857: EXCEPTION
8858: when OKL_API.G_EXCEPTION_ERROR then
8854: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
8855: x_msg_data => x_msg_data);
8856:
8857: EXCEPTION
8858: when OKL_API.G_EXCEPTION_ERROR then
8859: IF get_orig_sys_code%ISOPEN THEN
8860: close get_orig_sys_code;
8861: END IF;
8862: IF get_orig_fa%ISOPEN THEN
8867: END IF;
8868: IF get_item_info%ISOPEN THEN
8869: close get_item_info;
8870: END IF;
8871: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
8872: p_api_name => l_api_name,
8873: p_pkg_name => G_PKG_NAME,
8874: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
8875: x_msg_count => x_msg_count,
8870: END IF;
8871: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
8872: p_api_name => l_api_name,
8873: p_pkg_name => G_PKG_NAME,
8874: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
8875: x_msg_count => x_msg_count,
8876: x_msg_data => x_msg_data,
8877: p_api_type => G_API_TYPE);
8878:
8875: x_msg_count => x_msg_count,
8876: x_msg_data => x_msg_data,
8877: p_api_type => G_API_TYPE);
8878:
8879: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
8880: IF get_orig_sys_code%ISOPEN THEN
8881: close get_orig_sys_code;
8882: END IF;
8883: IF get_orig_fa%ISOPEN THEN
8888: END IF;
8889: IF get_item_info%ISOPEN THEN
8890: close get_item_info;
8891: END IF;
8892: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
8893: p_api_name => l_api_name,
8894: p_pkg_name => G_PKG_NAME,
8895: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
8896: x_msg_count => x_msg_count,
8891: END IF;
8892: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
8893: p_api_name => l_api_name,
8894: p_pkg_name => G_PKG_NAME,
8895: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
8896: x_msg_count => x_msg_count,
8897: x_msg_data => x_msg_data,
8898: p_api_type => G_API_TYPE);
8899:
8909: END IF;
8910: IF get_item_info%ISOPEN THEN
8911: close get_item_info;
8912: END IF;
8913: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
8914: p_api_name => l_api_name,
8915: p_pkg_name => G_PKG_NAME,
8916: p_exc_name => 'OTHERS',
8917: x_msg_count => x_msg_count,