23: --End of comments
24: --------------------------------------------------------------------------------
25: Procedure cancel_assets
26: (p_api_version IN NUMBER,
27: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
28: x_return_status OUT NOCOPY VARCHAR2,
29: x_msg_count OUT NOCOPY NUMBER,
30: x_msg_data OUT NOCOPY VARCHAR2,
31: p_contract_id IN NUMBER
136: l_adpv_rec OKL_TXD_ASSETS_PUB.adpv_rec_type;
137: lx_adpv_rec OKL_TXD_ASSETS_PUB.adpv_rec_type;
138:
139: BEGIN
140: x_return_status := OKL_API.G_RET_STS_SUCCESS;
141: -- Call start_activity to create savepoint, check compatibility
142: -- and initialize message list
143: x_return_status := OKL_API.START_ACTIVITY (
144: l_api_name,
139: BEGIN
140: x_return_status := OKL_API.G_RET_STS_SUCCESS;
141: -- Call start_activity to create savepoint, check compatibility
142: -- and initialize message list
143: x_return_status := OKL_API.START_ACTIVITY (
144: l_api_name,
145: p_init_msg_list,
146: '_PVT',
147: x_return_status);
145: p_init_msg_list,
146: '_PVT',
147: x_return_status);
148: -- Check if activity started successfully
149: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
150: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
151: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
152: RAISE OKL_API.G_EXCEPTION_ERROR;
153: END IF;
146: '_PVT',
147: x_return_status);
148: -- Check if activity started successfully
149: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
150: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
151: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
152: RAISE OKL_API.G_EXCEPTION_ERROR;
153: END IF;
154:
147: x_return_status);
148: -- Check if activity started successfully
149: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
150: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
151: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
152: RAISE OKL_API.G_EXCEPTION_ERROR;
153: END IF;
154:
155: FOR r_get_k_top_line IN c_get_k_top_line(p_dnz_chr_id => p_contract_id) LOOP
148: -- Check if activity started successfully
149: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
150: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
151: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
152: RAISE OKL_API.G_EXCEPTION_ERROR;
153: END IF;
154:
155: FOR r_get_k_top_line IN c_get_k_top_line(p_dnz_chr_id => p_contract_id) LOOP
156: --initialize variables
205: p_restricted_update => OKC_API.G_FALSE,
206: p_clev_rec => l_clev_rec,
207: x_clev_rec => lx_clev_rec);
208:
209: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
210: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
211: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
212: RAISE Okl_Api.G_EXCEPTION_ERROR;
213: END IF;
206: p_clev_rec => l_clev_rec,
207: x_clev_rec => lx_clev_rec);
208:
209: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
210: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
211: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
212: RAISE Okl_Api.G_EXCEPTION_ERROR;
213: END IF;
214:
207: x_clev_rec => lx_clev_rec);
208:
209: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
210: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
211: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
212: RAISE Okl_Api.G_EXCEPTION_ERROR;
213: END IF;
214:
215: l_txl_id:=null;
208:
209: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
210: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
211: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
212: RAISE Okl_Api.G_EXCEPTION_ERROR;
213: END IF;
214:
215: l_txl_id:=null;
216: l_txl_asset_number:=null;
235: x_msg_data => x_msg_data,
236: p_tlpv_rec => l_tlpv_rec,
237: x_tlpv_rec => lx_tlpv_rec);
238: --dbms_output.put_line('after updating txl assets for asset number'||x_return_status);
239: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
240: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
241: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
242: RAISE Okl_Api.G_EXCEPTION_ERROR;
243: END IF;
236: p_tlpv_rec => l_tlpv_rec,
237: x_tlpv_rec => lx_tlpv_rec);
238: --dbms_output.put_line('after updating txl assets for asset number'||x_return_status);
239: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
240: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
241: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
242: RAISE Okl_Api.G_EXCEPTION_ERROR;
243: END IF;
244:
237: x_tlpv_rec => lx_tlpv_rec);
238: --dbms_output.put_line('after updating txl assets for asset number'||x_return_status);
239: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
240: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
241: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
242: RAISE Okl_Api.G_EXCEPTION_ERROR;
243: END IF;
244:
245: End IF;
238: --dbms_output.put_line('after updating txl assets for asset number'||x_return_status);
239: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
240: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
241: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
242: RAISE Okl_Api.G_EXCEPTION_ERROR;
243: END IF;
244:
245: End IF;
246: End Loop;
267: p_adpv_rec => l_adpv_rec,
268: x_adpv_rec => lx_adpv_rec);
269: -- dbms_output.put_line('After Updating TXD-->update_txd_asset_Def'||x_return_status);
270:
271: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
272: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
273: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
274: RAISE Okl_Api.G_EXCEPTION_ERROR;
275: END IF;
268: x_adpv_rec => lx_adpv_rec);
269: -- dbms_output.put_line('After Updating TXD-->update_txd_asset_Def'||x_return_status);
270:
271: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
272: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
273: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
274: RAISE Okl_Api.G_EXCEPTION_ERROR;
275: END IF;
276:
269: -- dbms_output.put_line('After Updating TXD-->update_txd_asset_Def'||x_return_status);
270:
271: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
272: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
273: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
274: RAISE Okl_Api.G_EXCEPTION_ERROR;
275: END IF;
276:
277: End IF;
270:
271: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
272: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
273: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
274: RAISE Okl_Api.G_EXCEPTION_ERROR;
275: END IF;
276:
277: End IF;
278: End Loop;
278: End Loop;
279: CLOSE l_txdv_csr;
280: END LOOP;
281:
282: OKL_API.END_ACTIVITY (x_msg_count, x_msg_data );
283: EXCEPTION
284: WHEN OKL_API.G_EXCEPTION_ERROR THEN
285: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
286: l_api_name,
280: END LOOP;
281:
282: OKL_API.END_ACTIVITY (x_msg_count, x_msg_data );
283: EXCEPTION
284: WHEN OKL_API.G_EXCEPTION_ERROR THEN
285: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
286: l_api_name,
287: G_PKG_NAME,
288: 'OKL_API.G_RET_STS_ERROR',
281:
282: OKL_API.END_ACTIVITY (x_msg_count, x_msg_data );
283: EXCEPTION
284: WHEN OKL_API.G_EXCEPTION_ERROR THEN
285: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
286: l_api_name,
287: G_PKG_NAME,
288: 'OKL_API.G_RET_STS_ERROR',
289: x_msg_count,
284: WHEN OKL_API.G_EXCEPTION_ERROR THEN
285: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
286: l_api_name,
287: G_PKG_NAME,
288: 'OKL_API.G_RET_STS_ERROR',
289: x_msg_count,
290: x_msg_data,
291: '_PVT');
292: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
288: 'OKL_API.G_RET_STS_ERROR',
289: x_msg_count,
290: x_msg_data,
291: '_PVT');
292: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
293: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
294: l_api_name,
295: G_PKG_NAME,
296: 'OKL_API.G_RET_STS_UNEXP_ERROR',
289: x_msg_count,
290: x_msg_data,
291: '_PVT');
292: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
293: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
294: l_api_name,
295: G_PKG_NAME,
296: 'OKL_API.G_RET_STS_UNEXP_ERROR',
297: x_msg_count,
292: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
293: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
294: l_api_name,
295: G_PKG_NAME,
296: 'OKL_API.G_RET_STS_UNEXP_ERROR',
297: x_msg_count,
298: x_msg_data,
299: '_PVT');
300: WHEN OTHERS THEN
297: x_msg_count,
298: x_msg_data,
299: '_PVT');
300: WHEN OTHERS THEN
301: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
302: l_api_name,
303: G_PKG_NAME,
304: 'OTHERS',
305: x_msg_count,
316: --End of comments
317: --------------------------------------------------------------------------------
318: Procedure Validate_Cancel_Contract
319: (p_api_version IN NUMBER,
320: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
321: x_return_status OUT NOCOPY VARCHAR2,
322: x_msg_count OUT NOCOPY NUMBER,
323: x_msg_data OUT NOCOPY VARCHAR2,
324: p_contract_id IN NUMBER) is
371: WHERE otcr.id = otra.rct_id_details
372: AND otcr.receipt_type = 'ADV'
373: AND otra.khr_id = p_contract_id;
374:
375: l_return_status VARCHAR2(1) default OKL_API.G_RET_STS_SUCCESS;
376: l_api_name CONSTANT varchar2(30) := 'VALIDATE_CANCEL_CONTRACTS';
377: l_api_version CONSTANT NUMBER := 1.0;
378: l_contract_number OKC_K_HEADERS_V.CONTRACT_NUMBER%TYPE;
379: l_sts_code OKC_K_HEADERS_V.sts_code%TYPE := NULL;
384: l_billing_invoice_status VARCHAR2(1) := '?';
385: l_advance_receipt_status VARCHAR2(1) := '?';
386:
387: begin
388: x_return_status := OKL_API.G_RET_STS_SUCCESS;
389: -- Call start_activity to create savepoint, check compatibility
390: -- and initialize message list
391: x_return_status := OKL_API.START_ACTIVITY (
392: l_api_name
387: begin
388: x_return_status := OKL_API.G_RET_STS_SUCCESS;
389: -- Call start_activity to create savepoint, check compatibility
390: -- and initialize message list
391: x_return_status := OKL_API.START_ACTIVITY (
392: l_api_name
393: ,p_init_msg_list
394: ,'_PVT'
395: ,x_return_status);
393: ,p_init_msg_list
394: ,'_PVT'
395: ,x_return_status);
396: -- Check if activity started successfully
397: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
398: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
399: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
400: RAISE OKL_API.G_EXCEPTION_ERROR;
401: END IF;
394: ,'_PVT'
395: ,x_return_status);
396: -- Check if activity started successfully
397: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
398: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
399: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
400: RAISE OKL_API.G_EXCEPTION_ERROR;
401: END IF;
402:
395: ,x_return_status);
396: -- Check if activity started successfully
397: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
398: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
399: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
400: RAISE OKL_API.G_EXCEPTION_ERROR;
401: END IF;
402:
403: -- Get Contract Number from Original Contract
396: -- Check if activity started successfully
397: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
398: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
399: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
400: RAISE OKL_API.G_EXCEPTION_ERROR;
401: END IF;
402:
403: -- Get Contract Number from Original Contract
404: OPEN contract_csr(p_contract_id);
404: OPEN contract_csr(p_contract_id);
405: FETCH contract_csr INTO l_contract_number;
406:
407: IF contract_csr%NOTFOUND THEN
408: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
409: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
410: p_msg_name => G_LLA_CHR_ID);
411: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
412: END IF;
405: FETCH contract_csr INTO l_contract_number;
406:
407: IF contract_csr%NOTFOUND THEN
408: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
409: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
410: p_msg_name => G_LLA_CHR_ID);
411: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
412: END IF;
413:
425: p_token1 => G_CONTRACT_NUMBER_TOKEN,
426: p_token1_value => l_contract_number,
427: p_token2 => G_STATUS_CODE_TOKEN,
428: p_token2_value => l_sts_code);
429: x_return_status := OKL_API.G_RET_STS_ERROR;
430: RAISE OKL_API.G_EXCEPTION_ERROR;
431: END IF;
432:
433: OPEN contract_status_csr(p_contract_id);
426: p_token1_value => l_contract_number,
427: p_token2 => G_STATUS_CODE_TOKEN,
428: p_token2_value => l_sts_code);
429: x_return_status := OKL_API.G_RET_STS_ERROR;
430: RAISE OKL_API.G_EXCEPTION_ERROR;
431: END IF;
432:
433: OPEN contract_status_csr(p_contract_id);
434: FETCH contract_status_csr INTO l_sts_code;
445: p_token1 => G_CONTRACT_NUMBER_TOKEN,
446: p_token1_value => l_contract_number,
447: p_token2 => G_STATUS_CODE_TOKEN,
448: p_token2_value => l_sts_code);
449: x_return_status := OKL_API.G_RET_STS_ERROR;
450: RAISE OKL_API.G_EXCEPTION_ERROR;
451: END IF;
452:
453: OPEN funding_disb_txn_csr(p_contract_id);
446: p_token1_value => l_contract_number,
447: p_token2 => G_STATUS_CODE_TOKEN,
448: p_token2_value => l_sts_code);
449: x_return_status := OKL_API.G_RET_STS_ERROR;
450: RAISE OKL_API.G_EXCEPTION_ERROR;
451: END IF;
452:
453: OPEN funding_disb_txn_csr(p_contract_id);
454: FETCH funding_disb_txn_csr INTO l_funding_type_code;
470: p_token2 => G_CONTRACT_NUMBER_TOKEN,
471: p_token2_value => l_contract_number);
472:
473: x_return_status := OKC_API.G_RET_STS_ERROR;
474: RAISE OKL_API.G_EXCEPTION_ERROR;
475: END IF;
476:
477: OPEN Billing_invoice_status_csr(p_contract_id);
478: FETCH Billing_invoice_status_csr INTO l_Billing_invoice_status;
488: p_token1 => G_CONTRACT_NUMBER_TOKEN,
489: p_token1_value => l_contract_number);
490:
491: x_return_status := OKC_API.G_RET_STS_ERROR;
492: RAISE OKL_API.G_EXCEPTION_ERROR;
493: END IF;
494:
495: OPEN Advance_receipt_csr(p_contract_id);
496: FETCH Advance_receipt_csr INTO l_advance_receipt_status;
506: p_token1 => G_CONTRACT_NUMBER_TOKEN,
507: p_token1_value => l_contract_number);
508:
509: x_return_status := OKC_API.G_RET_STS_ERROR;
510: RAISE OKL_API.G_EXCEPTION_ERROR;
511: END IF;
512: OKL_API.END_ACTIVITY (x_msg_count,x_msg_data );
513: EXCEPTION
514: WHEN OKL_API.G_EXCEPTION_ERROR THEN
508:
509: x_return_status := OKC_API.G_RET_STS_ERROR;
510: RAISE OKL_API.G_EXCEPTION_ERROR;
511: END IF;
512: OKL_API.END_ACTIVITY (x_msg_count,x_msg_data );
513: EXCEPTION
514: WHEN OKL_API.G_EXCEPTION_ERROR THEN
515: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
516: l_api_name,
510: RAISE OKL_API.G_EXCEPTION_ERROR;
511: END IF;
512: OKL_API.END_ACTIVITY (x_msg_count,x_msg_data );
513: EXCEPTION
514: WHEN OKL_API.G_EXCEPTION_ERROR THEN
515: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
516: l_api_name,
517: G_PKG_NAME,
518: 'OKL_API.G_RET_STS_ERROR',
511: END IF;
512: OKL_API.END_ACTIVITY (x_msg_count,x_msg_data );
513: EXCEPTION
514: WHEN OKL_API.G_EXCEPTION_ERROR THEN
515: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
516: l_api_name,
517: G_PKG_NAME,
518: 'OKL_API.G_RET_STS_ERROR',
519: x_msg_count,
514: WHEN OKL_API.G_EXCEPTION_ERROR THEN
515: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
516: l_api_name,
517: G_PKG_NAME,
518: 'OKL_API.G_RET_STS_ERROR',
519: x_msg_count,
520: x_msg_data,
521: '_PVT');
522: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
518: 'OKL_API.G_RET_STS_ERROR',
519: x_msg_count,
520: x_msg_data,
521: '_PVT');
522: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
523: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
524: l_api_name,
525: G_PKG_NAME,
526: 'OKL_API.G_RET_STS_UNEXP_ERROR',
519: x_msg_count,
520: x_msg_data,
521: '_PVT');
522: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
523: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
524: l_api_name,
525: G_PKG_NAME,
526: 'OKL_API.G_RET_STS_UNEXP_ERROR',
527: x_msg_count,
522: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
523: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
524: l_api_name,
525: G_PKG_NAME,
526: 'OKL_API.G_RET_STS_UNEXP_ERROR',
527: x_msg_count,
528: x_msg_data,
529: '_PVT');
530: WHEN OTHERS THEN
527: x_msg_count,
528: x_msg_data,
529: '_PVT');
530: WHEN OTHERS THEN
531: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
532: l_api_name,
533: G_PKG_NAME,
534: 'OTHERS',
535: x_msg_count,
538: end validate_cancel_contract;
539:
540: -- Added for bug #5944260/5981076(Forward R12 cklee) -- start
541: PROCEDURE cancel_funding_request(p_api_version IN NUMBER,
542: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
543: x_return_status OUT NOCOPY VARCHAR2,
544: x_msg_count OUT NOCOPY NUMBER,
545: x_msg_data OUT NOCOPY VARCHAR2,
546: p_funding_id IN OKL_TRX_AP_INVOICES_B.ID%TYPE) IS
563: r_tap c_tap%ROWTYPE;
564:
565: BEGIN
566:
567: x_return_status := OKL_API.G_RET_STS_SUCCESS;
568: -- Call start_activity to create savepoint, check compatibility
569: -- and initialize message list
570: x_return_status := OKL_API.START_ACTIVITY (
571: l_api_name,
566:
567: x_return_status := OKL_API.G_RET_STS_SUCCESS;
568: -- Call start_activity to create savepoint, check compatibility
569: -- and initialize message list
570: x_return_status := OKL_API.START_ACTIVITY (
571: l_api_name,
572: p_init_msg_list,
573: '_PVT',
574: x_return_status);
572: p_init_msg_list,
573: '_PVT',
574: x_return_status);
575: -- Check if activity started successfully
576: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
577: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
578: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
579: RAISE OKL_API.G_EXCEPTION_ERROR;
580: END IF;
573: '_PVT',
574: x_return_status);
575: -- Check if activity started successfully
576: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
577: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
578: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
579: RAISE OKL_API.G_EXCEPTION_ERROR;
580: END IF;
581:
574: x_return_status);
575: -- Check if activity started successfully
576: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
577: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
578: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
579: RAISE OKL_API.G_EXCEPTION_ERROR;
580: END IF;
581:
582: -- Get the internal invoice Details
575: -- Check if activity started successfully
576: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
577: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
578: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
579: RAISE OKL_API.G_EXCEPTION_ERROR;
580: END IF;
581:
582: -- Get the internal invoice Details
583: OPEN c_tap(p_funding_id);
600: x_msg_data => x_msg_data,
601: p_tapv_rec => l_tapv_rec,
602: x_tapv_rec => x_tapv_rec);
603:
604: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
605: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
606: ELSIF (x_return_Status = OKL_API.G_RET_STS_ERROR) THEN
607: RAISE OKL_API.G_EXCEPTION_ERROR;
608: END IF;
601: p_tapv_rec => l_tapv_rec,
602: x_tapv_rec => x_tapv_rec);
603:
604: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
605: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
606: ELSIF (x_return_Status = OKL_API.G_RET_STS_ERROR) THEN
607: RAISE OKL_API.G_EXCEPTION_ERROR;
608: END IF;
609:
602: x_tapv_rec => x_tapv_rec);
603:
604: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
605: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
606: ELSIF (x_return_Status = OKL_API.G_RET_STS_ERROR) THEN
607: RAISE OKL_API.G_EXCEPTION_ERROR;
608: END IF;
609:
610:
603:
604: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
605: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
606: ELSIF (x_return_Status = OKL_API.G_RET_STS_ERROR) THEN
607: RAISE OKL_API.G_EXCEPTION_ERROR;
608: END IF;
609:
610:
611: OKL_API.END_ACTIVITY (x_msg_count,
607: RAISE OKL_API.G_EXCEPTION_ERROR;
608: END IF;
609:
610:
611: OKL_API.END_ACTIVITY (x_msg_count,
612: x_msg_data );
613:
614:
615:
613:
614:
615:
616: EXCEPTION
617: WHEN OKL_API.G_EXCEPTION_ERROR THEN
618: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
619: l_api_name,
620: G_PKG_NAME,
621: 'OKL_API.G_RET_STS_ERROR',
614:
615:
616: EXCEPTION
617: WHEN OKL_API.G_EXCEPTION_ERROR THEN
618: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
619: l_api_name,
620: G_PKG_NAME,
621: 'OKL_API.G_RET_STS_ERROR',
622: x_msg_count,
617: WHEN OKL_API.G_EXCEPTION_ERROR THEN
618: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
619: l_api_name,
620: G_PKG_NAME,
621: 'OKL_API.G_RET_STS_ERROR',
622: x_msg_count,
623: x_msg_data,
624: '_PVT');
625: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
621: 'OKL_API.G_RET_STS_ERROR',
622: x_msg_count,
623: x_msg_data,
624: '_PVT');
625: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
626: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
627: l_api_name,
628: G_PKG_NAME,
629: 'OKL_API.G_RET_STS_UNEXP_ERROR',
622: x_msg_count,
623: x_msg_data,
624: '_PVT');
625: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
626: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
627: l_api_name,
628: G_PKG_NAME,
629: 'OKL_API.G_RET_STS_UNEXP_ERROR',
630: x_msg_count,
625: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
626: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
627: l_api_name,
628: G_PKG_NAME,
629: 'OKL_API.G_RET_STS_UNEXP_ERROR',
630: x_msg_count,
631: x_msg_data,
632: '_PVT');
633: WHEN OTHERS THEN
630: x_msg_count,
631: x_msg_data,
632: '_PVT');
633: WHEN OTHERS THEN
634: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
635: l_api_name,
636: G_PKG_NAME,
637: 'OTHERS',
638: x_msg_count,
648: --End of comments
649: --------------------------------------------------------------------------------
650: Procedure confirm_cancel_contract
651: (p_api_version IN NUMBER,
652: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
653: x_return_status OUT NOCOPY VARCHAR2,
654: x_msg_count OUT NOCOPY NUMBER,
655: x_msg_data OUT NOCOPY VARCHAR2,
656: p_contract_id IN NUMBER,
655: x_msg_data OUT NOCOPY VARCHAR2,
656: p_contract_id IN NUMBER,
657: p_new_contract_number IN VARCHAR2) is
658:
659: l_return_status VARCHAR2(1) default OKL_API.G_RET_STS_SUCCESS;
660: l_api_name CONSTANT varchar2(30) := 'CONVERT_FA_AMOUNTS';
661: l_api_version CONSTANT NUMBER := 1.0;
662: l_seq_no NUMBER;
663: l_orig_contract_number OKC_K_HEADERS_V.CONTRACT_NUMBER%TYPE;
678: WHERE khr_id = p_contract_id
679: AND trx_status_code not in ('CANCELED','SUBMITTED', 'APPROVED', 'PROCESSED');
680: -- Added for bug #5944260/5981076(Forward R12 cklee) -- End
681: Begin
682: x_return_status := OKL_API.G_RET_STS_SUCCESS;
683: -- Call start_activity to create savepoint, check compatibility
684: -- and initialize message list
685: x_return_status := OKL_API.START_ACTIVITY (
686: l_api_name
681: Begin
682: x_return_status := OKL_API.G_RET_STS_SUCCESS;
683: -- Call start_activity to create savepoint, check compatibility
684: -- and initialize message list
685: x_return_status := OKL_API.START_ACTIVITY (
686: l_api_name
687: ,p_init_msg_list
688: ,'_PVT'
689: ,x_return_status);
687: ,p_init_msg_list
688: ,'_PVT'
689: ,x_return_status);
690: -- Check if activity started successfully
691: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
692: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
693: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
694: RAISE OKL_API.G_EXCEPTION_ERROR;
695: END IF;
688: ,'_PVT'
689: ,x_return_status);
690: -- Check if activity started successfully
691: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
692: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
693: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
694: RAISE OKL_API.G_EXCEPTION_ERROR;
695: END IF;
696:
689: ,x_return_status);
690: -- Check if activity started successfully
691: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
692: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
693: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
694: RAISE OKL_API.G_EXCEPTION_ERROR;
695: END IF;
696:
697: Validate_Cancel_Contract
690: -- Check if activity started successfully
691: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
692: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
693: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
694: RAISE OKL_API.G_EXCEPTION_ERROR;
695: END IF;
696:
697: Validate_Cancel_Contract
698: (p_api_version => 1.0,
700: x_msg_count => x_msg_count,
701: x_msg_data => x_msg_data,
702: p_contract_id => p_contract_id);
703:
704: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
705: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
706: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
707: RAISE Okl_Api.G_EXCEPTION_ERROR;
708: END IF;
701: x_msg_data => x_msg_data,
702: p_contract_id => p_contract_id);
703:
704: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
705: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
706: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
707: RAISE Okl_Api.G_EXCEPTION_ERROR;
708: END IF;
709:
702: p_contract_id => p_contract_id);
703:
704: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
705: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
706: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
707: RAISE Okl_Api.G_EXCEPTION_ERROR;
708: END IF;
709:
710: -- Get Contract Number from Original Contract
703:
704: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
705: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
706: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
707: RAISE Okl_Api.G_EXCEPTION_ERROR;
708: END IF;
709:
710: -- Get Contract Number from Original Contract
711: OPEN orig_csr(p_contract_id);
711: OPEN orig_csr(p_contract_id);
712: FETCH orig_csr INTO l_orig_contract_number, l_orig_system_source_code, l_orig_system_id1;
713:
714: IF orig_csr%NOTFOUND THEN
715: okl_api.set_message(
716: G_APP_NAME,
717: G_LLA_CHR_ID
718: );
719: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
725: IF (l_orig_system_source_code = 'OKL_LEASE_APP') THEN
726:
727: OKL_LEASE_APP_PVT.revert_leaseapp
728: ( p_api_version => 1.0,
729: p_init_msg_list => OKL_API.G_FALSE,
730: p_leaseapp_id => l_orig_system_id1,
731: x_return_status => x_return_status,
732: x_msg_count => x_msg_count,
733: x_msg_data => x_msg_data );
731: x_return_status => x_return_status,
732: x_msg_count => x_msg_count,
733: x_msg_data => x_msg_data );
734:
735: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
736: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
737: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
738: RAISE Okl_Api.G_EXCEPTION_ERROR;
739: END IF;
732: x_msg_count => x_msg_count,
733: x_msg_data => x_msg_data );
734:
735: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
736: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
737: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
738: RAISE Okl_Api.G_EXCEPTION_ERROR;
739: END IF;
740:
733: x_msg_data => x_msg_data );
734:
735: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
736: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
737: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
738: RAISE Okl_Api.G_EXCEPTION_ERROR;
739: END IF;
740:
741: END IF;
734:
735: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
736: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
737: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
738: RAISE Okl_Api.G_EXCEPTION_ERROR;
739: END IF;
740:
741: END IF;
742:
761: x_msg_count => x_msg_count,
762: x_msg_data => x_msg_data,
763: p_funding_id => l_funding_id);
764:
765: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
766: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
767: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
768: RAISE Okl_Api.G_EXCEPTION_ERROR;
769: END IF;
762: x_msg_data => x_msg_data,
763: p_funding_id => l_funding_id);
764:
765: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
766: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
767: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
768: RAISE Okl_Api.G_EXCEPTION_ERROR;
769: END IF;
770: End loop;
763: p_funding_id => l_funding_id);
764:
765: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
766: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
767: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
768: RAISE Okl_Api.G_EXCEPTION_ERROR;
769: END IF;
770: End loop;
771: -- Added for bug #5944260/5981076(Forward R12 cklee) -- End
764:
765: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
766: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
767: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
768: RAISE Okl_Api.G_EXCEPTION_ERROR;
769: END IF;
770: End loop;
771: -- Added for bug #5944260/5981076(Forward R12 cklee) -- End
772: -- Update the status of the header
779:
780: --Bug# 7030390
781: -- Rename assets with CANCEL_XX :
782: cancel_assets(p_api_version =>1.0,
783: p_init_msg_list =>OKL_API.G_FALSE,
784: x_return_status =>x_return_status,
785: x_msg_count =>x_msg_count,
786: x_msg_data =>x_msg_data,
787: p_contract_id =>p_contract_id
792: UPDATE okc_k_lines_b
793: SET sts_code = 'ABANDONED'
794: WHERE dnz_chr_id = p_contract_id;
795:
796: OKL_API.END_ACTIVITY (x_msg_count,x_msg_data );
797: EXCEPTION
798: WHEN OKL_API.G_EXCEPTION_ERROR THEN
799: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
800: l_api_name,
794: WHERE dnz_chr_id = p_contract_id;
795:
796: OKL_API.END_ACTIVITY (x_msg_count,x_msg_data );
797: EXCEPTION
798: WHEN OKL_API.G_EXCEPTION_ERROR THEN
799: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
800: l_api_name,
801: G_PKG_NAME,
802: 'OKL_API.G_RET_STS_ERROR',
795:
796: OKL_API.END_ACTIVITY (x_msg_count,x_msg_data );
797: EXCEPTION
798: WHEN OKL_API.G_EXCEPTION_ERROR THEN
799: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
800: l_api_name,
801: G_PKG_NAME,
802: 'OKL_API.G_RET_STS_ERROR',
803: x_msg_count,
798: WHEN OKL_API.G_EXCEPTION_ERROR THEN
799: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
800: l_api_name,
801: G_PKG_NAME,
802: 'OKL_API.G_RET_STS_ERROR',
803: x_msg_count,
804: x_msg_data,
805: '_PVT');
806: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
802: 'OKL_API.G_RET_STS_ERROR',
803: x_msg_count,
804: x_msg_data,
805: '_PVT');
806: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
807: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
808: l_api_name,
809: G_PKG_NAME,
810: 'OKL_API.G_RET_STS_UNEXP_ERROR',
803: x_msg_count,
804: x_msg_data,
805: '_PVT');
806: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
807: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
808: l_api_name,
809: G_PKG_NAME,
810: 'OKL_API.G_RET_STS_UNEXP_ERROR',
811: x_msg_count,
806: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
807: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
808: l_api_name,
809: G_PKG_NAME,
810: 'OKL_API.G_RET_STS_UNEXP_ERROR',
811: x_msg_count,
812: x_msg_data,
813: '_PVT');
814: WHEN OTHERS THEN
811: x_msg_count,
812: x_msg_data,
813: '_PVT');
814: WHEN OTHERS THEN
815: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
816: l_api_name,
817: G_PKG_NAME,
818: 'OTHERS',
819: x_msg_count,