9: G_NOT_FOUND_V2 CONSTANT VARCHAR2(30) := 'VALUE2'; -- token 2
10:
11: G_NOT_UNIQUE CONSTANT VARCHAR2(30) := 'OKL_LLA_NOT_UNIQUE';
12: G_REQUIRED_VALUE CONSTANT VARCHAR2(30) := 'OKL_REQUIRED_VALUE';
13: G_COL_NAME_TOKEN CONSTANT VARCHAR2(30) := OKL_API.G_COL_NAME_TOKEN;
14: G_INVALID_VALUE CONSTANT VARCHAR2(30) := 'OKL_INVALID_VALUE';
15:
16: G_LESSOR_RLE_CODE CONSTANT VARCHAR2(10) := 'LESSOR';
17: G_TRUSTEE_RLE_CODE CONSTANT VARCHAR2(10) := 'TRUSTEE';
96: -- End of comments
97: ----------------------------------------------------------------------------------
98: PROCEDURE generate_journal_entries(
99: p_api_version IN NUMBER
100: ,p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE
101: ,x_return_status OUT NOCOPY VARCHAR2
102: ,x_msg_count OUT NOCOPY NUMBER
103: ,x_msg_data OUT NOCOPY VARCHAR2
104: ,p_contract_id IN NUMBER
107: IS
108: l_api_name CONSTANT VARCHAR2(30) := 'generate_journal_entries';
109: l_api_version CONSTANT NUMBER := 1.0;
110:
111: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
112: --
113: -- Define PL/SQL Records and Tables
114: l_trxH_in_rec Okl_Trx_Contracts_Pvt.tcnv_rec_type;
115: l_trxL_in_rec Okl_Trx_Contracts_Pvt.tclv_rec_type;
122: l_post_to_gl_yn VARCHAR2(1);
123:
124: i NUMBER;
125: l_amount NUMBER;
126: l_init_msg_list VARCHAR2(1) := OKL_API.G_FALSE;
127: l_msg_count NUMBER;
128: l_msg_data VARCHAR2(2000);
129: l_currency_code okl_txl_cntrct_lns.currency_code%TYPE;
130: l_fnd_profile VARCHAR2(256);
291: p_api_version,
292: l_api_name,
293: G_PKG_NAME ))
294: THEN
295: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
296: END IF;
297:
298: -- Initialize message list if requested
299: IF (FND_API.to_Boolean(p_init_msg_list)) THEN
300: FND_MSG_PUB.initialize;
301: END IF;
302:
303: -- Initialize API status to success
304: x_return_status := OKL_API.G_RET_STS_SUCCESS;
305:
306:
307: /*** Begin API body ****************************************************/
308: --------------------------------------------------------------------------
323: -- Get product_id
324: OPEN Product_csr(p_contract_id);
325: FETCH Product_csr INTO l_Product_rec;
326: IF Product_csr%NOTFOUND THEN
327: Okl_Api.SET_MESSAGE(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN, 'Product');
328: CLOSE Product_csr;
329: RAISE Okl_Api.G_EXCEPTION_ERROR;
330: END IF;
331: CLOSE Product_csr;
325: FETCH Product_csr INTO l_Product_rec;
326: IF Product_csr%NOTFOUND THEN
327: Okl_Api.SET_MESSAGE(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN, 'Product');
328: CLOSE Product_csr;
329: RAISE Okl_Api.G_EXCEPTION_ERROR;
330: END IF;
331: CLOSE Product_csr;
332:
333: l_currency_code := l_Product_rec.currency_code;
384: --dbms_output.put_line('Validate passed parameters');
385:
386:
387: -- check contract
388: IF ( p_contract_id = Okl_Api.G_MISS_NUM )
389: OR ( p_contract_id IS NULL ) THEN
390: Okl_Api.Set_Message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN, 'contract');
391: RAISE Okl_Api.G_EXCEPTION_ERROR;
392: END IF;
386:
387: -- check contract
388: IF ( p_contract_id = Okl_Api.G_MISS_NUM )
389: OR ( p_contract_id IS NULL ) THEN
390: Okl_Api.Set_Message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN, 'contract');
391: RAISE Okl_Api.G_EXCEPTION_ERROR;
392: END IF;
393:
394: IF ( l_transaction_type = Okl_Api.G_MISS_CHAR )
387: -- check contract
388: IF ( p_contract_id = Okl_Api.G_MISS_NUM )
389: OR ( p_contract_id IS NULL ) THEN
390: Okl_Api.Set_Message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN, 'contract');
391: RAISE Okl_Api.G_EXCEPTION_ERROR;
392: END IF;
393:
394: IF ( l_transaction_type = Okl_Api.G_MISS_CHAR )
395: OR ( l_transaction_type IS NULL ) THEN
390: Okl_Api.Set_Message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN, 'contract');
391: RAISE Okl_Api.G_EXCEPTION_ERROR;
392: END IF;
393:
394: IF ( l_transaction_type = Okl_Api.G_MISS_CHAR )
395: OR ( l_transaction_type IS NULL ) THEN
396: Okl_Api.Set_Message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN, l_transaction_type);
397: RAISE Okl_Api.G_EXCEPTION_ERROR;
398: END IF;
392: END IF;
393:
394: IF ( l_transaction_type = Okl_Api.G_MISS_CHAR )
395: OR ( l_transaction_type IS NULL ) THEN
396: Okl_Api.Set_Message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN, l_transaction_type);
397: RAISE Okl_Api.G_EXCEPTION_ERROR;
398: END IF;
399:
400: -- Check Transaction_Type
393:
394: IF ( l_transaction_type = Okl_Api.G_MISS_CHAR )
395: OR ( l_transaction_type IS NULL ) THEN
396: Okl_Api.Set_Message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN, l_transaction_type);
397: RAISE Okl_Api.G_EXCEPTION_ERROR;
398: END IF;
399:
400: -- Check Transaction_Type
401: OPEN Transaction_Type_csr(l_transaction_type);
400: -- Check Transaction_Type
401: OPEN Transaction_Type_csr(l_transaction_type);
402: FETCH Transaction_Type_csr INTO l_Trx_Type_rec;
403: IF Transaction_Type_csr%NOTFOUND THEN
404: Okl_Api.SET_MESSAGE(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN, l_transaction_type);
405: CLOSE Transaction_Type_csr;
406: RAISE Okl_Api.G_EXCEPTION_ERROR;
407: END IF;
408: CLOSE Transaction_Type_csr;
402: FETCH Transaction_Type_csr INTO l_Trx_Type_rec;
403: IF Transaction_Type_csr%NOTFOUND THEN
404: Okl_Api.SET_MESSAGE(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN, l_transaction_type);
405: CLOSE Transaction_Type_csr;
406: RAISE Okl_Api.G_EXCEPTION_ERROR;
407: END IF;
408: CLOSE Transaction_Type_csr;
409:
410: OPEN fnd_lookups_csr('OKL_TCN_TYPE', l_transaction_type);
409:
410: OPEN fnd_lookups_csr('OKL_TCN_TYPE', l_transaction_type);
411: FETCH fnd_lookups_csr INTO l_fnd_rec;
412: IF fnd_lookups_csr%NOTFOUND THEN
413: Okl_Api.SET_MESSAGE(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN, l_transaction_type);
414: CLOSE fnd_lookups_csr;
415: RAISE Okl_Api.G_EXCEPTION_ERROR;
416: END IF;
417: CLOSE fnd_lookups_csr;
411: FETCH fnd_lookups_csr INTO l_fnd_rec;
412: IF fnd_lookups_csr%NOTFOUND THEN
413: Okl_Api.SET_MESSAGE(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN, l_transaction_type);
414: CLOSE fnd_lookups_csr;
415: RAISE Okl_Api.G_EXCEPTION_ERROR;
416: END IF;
417: CLOSE fnd_lookups_csr;
418:
419: OPEN trx_csr(p_contract_id,l_fnd_rec.lookup_code);
418:
419: OPEN trx_csr(p_contract_id,l_fnd_rec.lookup_code);
420: FETCH trx_csr INTO l_trx_rec;
421: IF trx_csr%NOTFOUND THEN -- While activation, create a new trans always.
422: l_has_trans := OKL_API.G_FALSE;
423: ELSE
424: l_has_trans := OKL_API.G_TRUE;
425: END IF;
426: CLOSE trx_csr;
420: FETCH trx_csr INTO l_trx_rec;
421: IF trx_csr%NOTFOUND THEN -- While activation, create a new trans always.
422: l_has_trans := OKL_API.G_FALSE;
423: ELSE
424: l_has_trans := OKL_API.G_TRUE;
425: END IF;
426: CLOSE trx_csr;
427:
428: -- Check special accounting code
429: OPEN special_acct_rec_csr(p_contract_id);
430: FETCH special_acct_rec_csr INTO l_special_acct_rec;
431: /* comment out. it's not a required attribute
432: IF special_acct_rec_csr%NOTFOUND THEN
433: OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'Agreement Accounting Code');
434: CLOSE special_acct_rec_csr;
435: RAISE Okl_Api.G_EXCEPTION_ERROR;
436: END IF;
437: */
431: /* comment out. it's not a required attribute
432: IF special_acct_rec_csr%NOTFOUND THEN
433: OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'Agreement Accounting Code');
434: CLOSE special_acct_rec_csr;
435: RAISE Okl_Api.G_EXCEPTION_ERROR;
436: END IF;
437: */
438: CLOSE special_acct_rec_csr;
439:
465:
466: OPEN fnd_lookups_csr('OKL_TCL_TYPE', l_transaction_type);
467: FETCH fnd_lookups_csr INTO l_fnd_rec1;
468: IF fnd_lookups_csr%NOTFOUND THEN
469: Okl_Api.SET_MESSAGE(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN, l_transaction_type);
470: CLOSE fnd_lookups_csr;
471: RAISE Okl_Api.G_EXCEPTION_ERROR;
472: END IF;
473: CLOSE fnd_lookups_csr;
467: FETCH fnd_lookups_csr INTO l_fnd_rec1;
468: IF fnd_lookups_csr%NOTFOUND THEN
469: Okl_Api.SET_MESSAGE(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN, l_transaction_type);
470: CLOSE fnd_lookups_csr;
471: RAISE Okl_Api.G_EXCEPTION_ERROR;
472: END IF;
473: CLOSE fnd_lookups_csr;
474:
475:
480: --------------------------------------------------------------------------
481: --dbms_output.put_line('Create transaction Header and line');
482:
483:
484: -- IF ( l_has_trans = OKL_API.G_FALSE ) THEN
485: -- Commenting the above IF condition to create Accounting Header, Lines and Distributions
486: -- Always while activating an agreement
487:
488: OPEN fnd_lookups_csr('OKL_TRANSACTION_STATUS', 'Submitted');
487:
488: OPEN fnd_lookups_csr('OKL_TRANSACTION_STATUS', 'Submitted');
489: FETCH fnd_lookups_csr INTO l_fnd_rec;
490: IF fnd_lookups_csr%NOTFOUND THEN
491: Okl_Api.SET_MESSAGE(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,l_transaction_type);
492: CLOSE fnd_lookups_csr;
493: RAISE Okl_Api.G_EXCEPTION_ERROR;
494: END IF;
495: CLOSE fnd_lookups_csr;
489: FETCH fnd_lookups_csr INTO l_fnd_rec;
490: IF fnd_lookups_csr%NOTFOUND THEN
491: Okl_Api.SET_MESSAGE(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,l_transaction_type);
492: CLOSE fnd_lookups_csr;
493: RAISE Okl_Api.G_EXCEPTION_ERROR;
494: END IF;
495: CLOSE fnd_lookups_csr;
496:
497: l_trxH_in_rec.tsu_code := l_fnd_rec.lookup_code;
509: ,x_msg_data => l_msg_data
510: ,p_tcnv_rec => l_trxH_in_rec
511: ,x_tcnv_rec => l_trxH_out_rec);
512:
513: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
514: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
515: ELSIF (l_return_Status = Okl_Api.G_RET_STS_ERROR) THEN
516: RAISE Okl_Api.G_EXCEPTION_ERROR;
517: END IF;
510: ,p_tcnv_rec => l_trxH_in_rec
511: ,x_tcnv_rec => l_trxH_out_rec);
512:
513: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
514: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
515: ELSIF (l_return_Status = Okl_Api.G_RET_STS_ERROR) THEN
516: RAISE Okl_Api.G_EXCEPTION_ERROR;
517: END IF;
518:
511: ,x_tcnv_rec => l_trxH_out_rec);
512:
513: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
514: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
515: ELSIF (l_return_Status = Okl_Api.G_RET_STS_ERROR) THEN
516: RAISE Okl_Api.G_EXCEPTION_ERROR;
517: END IF;
518:
519: IF ((l_trxH_out_rec.id = OKL_API.G_MISS_NUM) OR
512:
513: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
514: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
515: ELSIF (l_return_Status = Okl_Api.G_RET_STS_ERROR) THEN
516: RAISE Okl_Api.G_EXCEPTION_ERROR;
517: END IF;
518:
519: IF ((l_trxH_out_rec.id = OKL_API.G_MISS_NUM) OR
520: (l_trxH_out_rec.id IS NULL) ) THEN
515: ELSIF (l_return_Status = Okl_Api.G_RET_STS_ERROR) THEN
516: RAISE Okl_Api.G_EXCEPTION_ERROR;
517: END IF;
518:
519: IF ((l_trxH_out_rec.id = OKL_API.G_MISS_NUM) OR
520: (l_trxH_out_rec.id IS NULL) ) THEN
521: OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'TRANSACTION_ID');
522: RAISE OKL_API.G_EXCEPTION_ERROR;
523: END IF;
517: END IF;
518:
519: IF ((l_trxH_out_rec.id = OKL_API.G_MISS_NUM) OR
520: (l_trxH_out_rec.id IS NULL) ) THEN
521: OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'TRANSACTION_ID');
522: RAISE OKL_API.G_EXCEPTION_ERROR;
523: END IF;
524: l_fnd_rec := NULL;
525:
518:
519: IF ((l_trxH_out_rec.id = OKL_API.G_MISS_NUM) OR
520: (l_trxH_out_rec.id IS NULL) ) THEN
521: OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'TRANSACTION_ID');
522: RAISE OKL_API.G_EXCEPTION_ERROR;
523: END IF;
524: l_fnd_rec := NULL;
525:
526: -------------------------------------------------------------------------
538: x_fact_synd_code => l_fact_synd_code,
539: x_inv_acct_code => l_inv_acct_code
540: );
541:
542: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
543: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
544: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
545: RAISE OKL_API.G_EXCEPTION_ERROR;
546: END IF;
539: x_inv_acct_code => l_inv_acct_code
540: );
541:
542: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
543: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
544: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
545: RAISE OKL_API.G_EXCEPTION_ERROR;
546: END IF;
547:
540: );
541:
542: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
543: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
544: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
545: RAISE OKL_API.G_EXCEPTION_ERROR;
546: END IF;
547:
548: -------------------------------------------------------------------------
541:
542: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
543: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
544: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
545: RAISE OKL_API.G_EXCEPTION_ERROR;
546: END IF;
547:
548: -------------------------------------------------------------------------
549: -- Determine Number of transaction lines to create - accounting template record
566: x_msg_data => l_msg_data,
567: p_tmpl_identify_rec => l_tmpl_identify_rec,
568: x_template_tbl => l_template_tbl,
569: p_validity_date => l_transaction_date);
570: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
571: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
572: ELSIF (l_return_Status = Okl_Api.G_RET_STS_ERROR) THEN
573: RAISE Okl_Api.G_EXCEPTION_ERROR;
574: END IF;
567: p_tmpl_identify_rec => l_tmpl_identify_rec,
568: x_template_tbl => l_template_tbl,
569: p_validity_date => l_transaction_date);
570: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
571: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
572: ELSIF (l_return_Status = Okl_Api.G_RET_STS_ERROR) THEN
573: RAISE Okl_Api.G_EXCEPTION_ERROR;
574: END IF;
575:
568: x_template_tbl => l_template_tbl,
569: p_validity_date => l_transaction_date);
570: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
571: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
572: ELSIF (l_return_Status = Okl_Api.G_RET_STS_ERROR) THEN
573: RAISE Okl_Api.G_EXCEPTION_ERROR;
574: END IF;
575:
576: -------------------------------------------------------------------------
569: p_validity_date => l_transaction_date);
570: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
571: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
572: ELSIF (l_return_Status = Okl_Api.G_RET_STS_ERROR) THEN
573: RAISE Okl_Api.G_EXCEPTION_ERROR;
574: END IF;
575:
576: -------------------------------------------------------------------------
577: -- Build the transaction line table of records
603: x_tclv_tbl => x_tclv_tbl); --l_trxL_out_rec
604:
605:
606:
607: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
608: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
609: ELSIF (l_return_Status = Okl_Api.G_RET_STS_ERROR) THEN
610: RAISE Okl_Api.G_EXCEPTION_ERROR;
611: END IF;
604:
605:
606:
607: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
608: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
609: ELSIF (l_return_Status = Okl_Api.G_RET_STS_ERROR) THEN
610: RAISE Okl_Api.G_EXCEPTION_ERROR;
611: END IF;
612:
605:
606:
607: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
608: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
609: ELSIF (l_return_Status = Okl_Api.G_RET_STS_ERROR) THEN
610: RAISE Okl_Api.G_EXCEPTION_ERROR;
611: END IF;
612:
613: ----------------------------------------------------------------------------------------
606:
607: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
608: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
609: ELSIF (l_return_Status = Okl_Api.G_RET_STS_ERROR) THEN
610: RAISE Okl_Api.G_EXCEPTION_ERROR;
611: END IF;
612:
613: ----------------------------------------------------------------------------------------
614: -- Populating the tmpl_identify_tbl from the template_tbl returned by get_template_info
648: --------------------------------------------------------------------------
649:
650: FOR i in x_tclv_tbl.FIRST..x_tclv_tbl.LAST
651: LOOP
652: IF ((x_tclv_tbl(i).id = OKL_API.G_MISS_NUM) OR
653: (x_tclv_tbl(i).id IS NULL) ) THEN
654: OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'TRANSACTION_ID');
655: RAISE OKL_API.G_EXCEPTION_ERROR;
656: END IF;
650: FOR i in x_tclv_tbl.FIRST..x_tclv_tbl.LAST
651: LOOP
652: IF ((x_tclv_tbl(i).id = OKL_API.G_MISS_NUM) OR
653: (x_tclv_tbl(i).id IS NULL) ) THEN
654: OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'TRANSACTION_ID');
655: RAISE OKL_API.G_EXCEPTION_ERROR;
656: END IF;
657: --Assigning the account generator table
658: l_acc_gen_tbl(i).acc_gen_key_tbl := l_acc_gen_primary_key_tbl;
651: LOOP
652: IF ((x_tclv_tbl(i).id = OKL_API.G_MISS_NUM) OR
653: (x_tclv_tbl(i).id IS NULL) ) THEN
654: OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'TRANSACTION_ID');
655: RAISE OKL_API.G_EXCEPTION_ERROR;
656: END IF;
657: --Assigning the account generator table
658: l_acc_gen_tbl(i).acc_gen_key_tbl := l_acc_gen_primary_key_tbl;
659: l_acc_gen_tbl(i).source_id := x_tclv_tbl(i).id;
710: x_template_tbl => l_template_out_tbl,
711: x_amount_tbl => l_amount_out_tbl,
712: p_trx_header_id => l_tcn_id);
713:
714: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
715: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
716: ELSIF (l_return_Status = Okl_Api.G_RET_STS_ERROR) THEN
717: RAISE Okl_Api.G_EXCEPTION_ERROR;
718: END IF;
711: x_amount_tbl => l_amount_out_tbl,
712: p_trx_header_id => l_tcn_id);
713:
714: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
715: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
716: ELSIF (l_return_Status = Okl_Api.G_RET_STS_ERROR) THEN
717: RAISE Okl_Api.G_EXCEPTION_ERROR;
718: END IF;
719:
712: p_trx_header_id => l_tcn_id);
713:
714: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
715: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
716: ELSIF (l_return_Status = Okl_Api.G_RET_STS_ERROR) THEN
717: RAISE Okl_Api.G_EXCEPTION_ERROR;
718: END IF;
719:
720: --------------------------------------------------------------------------
713:
714: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
715: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
716: ELSIF (l_return_Status = Okl_Api.G_RET_STS_ERROR) THEN
717: RAISE Okl_Api.G_EXCEPTION_ERROR;
718: END IF;
719:
720: --------------------------------------------------------------------------
721: -- Summation amount after accounting API generate transction records from
724: --dbms_output.put_line('Summation amount after accounting API generate transction records from formula functions');
725:
726:
727: -- Check Status
728: IF(l_return_status = Okl_Api.G_RET_STS_SUCCESS) THEN
729:
730: --From the l_amount_out_tbl returned , the transaction line amount and header amount
731: --need to be updated back on the contract
732: l_tclv_tbl := x_tclv_tbl;
737: /*
738: 05-Sep-2007, ankushar Bug# 6391302
739: start changes, added check for NULL and G_MISS_NUM for amount field
740: */
741: IF l_tclv_tbl(i).amount IS NULL OR l_tclv_tbl(i).amount = OKL_API.G_MISS_NUM THEN
742: l_tclv_tbl(i).amount :=0;
743: END IF;
744: /* 05-Sep-2007 ankushar end changes */
745:
754: /*
755: 05-Sep-2007, ankushar Bug# 6391302
756: start changes, added check for NULL and G_MISS_NUM for amount field
757: */
758: IF l_trxH_in_rec.amount IS NULL OR l_trxH_in_rec.amount = OKL_API.G_MISS_NUM THEN
759: l_trxH_in_rec.amount :=0;
760: END IF;
761: /* 05-Sep-2007 ankushar end changes */
762:
768:
769: OPEN fnd_lookups_csr('OKL_TRANSACTION_STATUS', 'Processed');
770: FETCH fnd_lookups_csr INTO l_fnd_rec;
771: IF fnd_lookups_csr%NOTFOUND THEN
772: Okl_Api.SET_MESSAGE(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,l_transaction_type);
773: CLOSE fnd_lookups_csr;
774: RAISE Okl_Api.G_EXCEPTION_ERROR;
775: END IF;
776: CLOSE fnd_lookups_csr;
770: FETCH fnd_lookups_csr INTO l_fnd_rec;
771: IF fnd_lookups_csr%NOTFOUND THEN
772: Okl_Api.SET_MESSAGE(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,l_transaction_type);
773: CLOSE fnd_lookups_csr;
774: RAISE Okl_Api.G_EXCEPTION_ERROR;
775: END IF;
776: CLOSE fnd_lookups_csr;
777: l_trxH_in_rec.tsu_code := l_fnd_rec.lookup_code;
778:
780:
781: OPEN fnd_lookups_csr('OKL_TRANSACTION_STATUS', 'Error');
782: FETCH fnd_lookups_csr INTO l_fnd_rec;
783: IF fnd_lookups_csr%NOTFOUND THEN
784: Okl_Api.SET_MESSAGE(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,l_transaction_type);
785: CLOSE fnd_lookups_csr;
786: RAISE Okl_Api.G_EXCEPTION_ERROR;
787: END IF;
788: CLOSE fnd_lookups_csr;
782: FETCH fnd_lookups_csr INTO l_fnd_rec;
783: IF fnd_lookups_csr%NOTFOUND THEN
784: Okl_Api.SET_MESSAGE(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,l_transaction_type);
785: CLOSE fnd_lookups_csr;
786: RAISE Okl_Api.G_EXCEPTION_ERROR;
787: END IF;
788: CLOSE fnd_lookups_csr;
789: l_trxH_in_rec.tsu_code := l_fnd_rec.lookup_code;
790: l_trxH_in_rec.amount := NULL;
810: ,x_msg_data => l_msg_data
811: ,p_tcnv_rec => l_trxH_in_rec
812: ,x_tcnv_rec => l_trxH_out_rec);
813:
814: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
815: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
816: ELSIF (l_return_Status = Okl_Api.G_RET_STS_ERROR) THEN
817: RAISE Okl_Api.G_EXCEPTION_ERROR;
818: END IF;
811: ,p_tcnv_rec => l_trxH_in_rec
812: ,x_tcnv_rec => l_trxH_out_rec);
813:
814: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
815: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
816: ELSIF (l_return_Status = Okl_Api.G_RET_STS_ERROR) THEN
817: RAISE Okl_Api.G_EXCEPTION_ERROR;
818: END IF;
819:
812: ,x_tcnv_rec => l_trxH_out_rec);
813:
814: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
815: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
816: ELSIF (l_return_Status = Okl_Api.G_RET_STS_ERROR) THEN
817: RAISE Okl_Api.G_EXCEPTION_ERROR;
818: END IF;
819:
820: Okl_Trx_Contracts_Pub.update_trx_cntrct_lines(
813:
814: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
815: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
816: ELSIF (l_return_Status = Okl_Api.G_RET_STS_ERROR) THEN
817: RAISE Okl_Api.G_EXCEPTION_ERROR;
818: END IF;
819:
820: Okl_Trx_Contracts_Pub.update_trx_cntrct_lines(
821: p_api_version => l_api_version
825: ,x_msg_data => l_msg_data
826: ,p_tclv_tbl => l_tclv_tbl
827: ,x_tclv_tbl => x_tclv_tbl);
828:
829: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
830: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
831: ELSIF (l_return_Status = Okl_Api.G_RET_STS_ERROR) THEN
832: RAISE Okl_Api.G_EXCEPTION_ERROR;
833: END IF;
826: ,p_tclv_tbl => l_tclv_tbl
827: ,x_tclv_tbl => x_tclv_tbl);
828:
829: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
830: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
831: ELSIF (l_return_Status = Okl_Api.G_RET_STS_ERROR) THEN
832: RAISE Okl_Api.G_EXCEPTION_ERROR;
833: END IF;
834:
827: ,x_tclv_tbl => x_tclv_tbl);
828:
829: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
830: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
831: ELSIF (l_return_Status = Okl_Api.G_RET_STS_ERROR) THEN
832: RAISE Okl_Api.G_EXCEPTION_ERROR;
833: END IF;
834:
835: OKL_MULTIGAAP_ENGINE_PVT.CREATE_SEC_REP_TRX
828:
829: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
830: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
831: ELSIF (l_return_Status = Okl_Api.G_RET_STS_ERROR) THEN
832: RAISE Okl_Api.G_EXCEPTION_ERROR;
833: END IF;
834:
835: OKL_MULTIGAAP_ENGINE_PVT.CREATE_SEC_REP_TRX
836: (p_api_version => p_api_version
842: ,P_TCLV_TBL => x_tclv_tbl
843: ,p_ctxt_val_tbl => l_ctxt_tbl
844: ,p_acc_gen_primary_key_tbl => l_acc_gen_primary_key_tbl);
845:
846: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
847: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
848: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
849: RAISE Okl_Api.G_EXCEPTION_ERROR;
850: END IF;
843: ,p_ctxt_val_tbl => l_ctxt_tbl
844: ,p_acc_gen_primary_key_tbl => l_acc_gen_primary_key_tbl);
845:
846: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
847: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
848: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
849: RAISE Okl_Api.G_EXCEPTION_ERROR;
850: END IF;
851:
844: ,p_acc_gen_primary_key_tbl => l_acc_gen_primary_key_tbl);
845:
846: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
847: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
848: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
849: RAISE Okl_Api.G_EXCEPTION_ERROR;
850: END IF;
851:
852: /*** End API body ******************************************************/
845:
846: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
847: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
848: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
849: RAISE Okl_Api.G_EXCEPTION_ERROR;
850: END IF;
851:
852: /*** End API body ******************************************************/
853:
856: (p_count => x_msg_count,
857: p_data => x_msg_data);
858:
859: EXCEPTION
860: WHEN OKL_API.G_EXCEPTION_ERROR THEN
861: ROLLBACK TO generate_journal_entries_PVT;
862: x_return_status := OKL_API.G_RET_STS_ERROR;
863: FND_MSG_PUB.Count_And_Get
864: (p_count => x_msg_count,
858:
859: EXCEPTION
860: WHEN OKL_API.G_EXCEPTION_ERROR THEN
861: ROLLBACK TO generate_journal_entries_PVT;
862: x_return_status := OKL_API.G_RET_STS_ERROR;
863: FND_MSG_PUB.Count_And_Get
864: (p_count => x_msg_count,
865: p_data => x_msg_data);
866:
863: FND_MSG_PUB.Count_And_Get
864: (p_count => x_msg_count,
865: p_data => x_msg_data);
866:
867: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
868: ROLLBACK TO generate_journal_entries_PVT;
869: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
870: FND_MSG_PUB.Count_And_Get
871: (p_count => x_msg_count,
865: p_data => x_msg_data);
866:
867: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
868: ROLLBACK TO generate_journal_entries_PVT;
869: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
870: FND_MSG_PUB.Count_And_Get
871: (p_count => x_msg_count,
872: p_data => x_msg_data);
873:
872: p_data => x_msg_data);
873:
874: WHEN OTHERS THEN
875: ROLLBACK TO generate_journal_entries_PVT;
876: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
877: OKL_API.Set_Message(p_app_name => G_APP_NAME,
878: p_msg_name => G_UNEXPECTED_ERROR,
879: p_token1 => G_SQLCODE_TOKEN,
880: p_token1_value => SQLCODE,
873:
874: WHEN OTHERS THEN
875: ROLLBACK TO generate_journal_entries_PVT;
876: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
877: OKL_API.Set_Message(p_app_name => G_APP_NAME,
878: p_msg_name => G_UNEXPECTED_ERROR,
879: p_token1 => G_SQLCODE_TOKEN,
880: p_token1_value => SQLCODE,
881: p_token2 => G_SQLERRM_TOKEN,
893: p_secAgreement_rec IN secAgreement_rec_type
894: ,p_mode VARCHAR2
895: ) RETURN VARCHAR2
896: IS
897: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
898: l_dummy VARCHAR2(1) := '?';
899:
900: CURSOR c (p_contract_number VARCHAR2)
901: IS
915: BEGIN
916:
917: -- check only if contract number exists
918: IF (p_secAgreement_rec.contract_number IS NOT NULL AND
919: p_secAgreement_rec.contract_number <> OKL_API.G_MISS_CHAR)
920: THEN
921:
922: IF (p_mode = 'C') THEN
923: OPEN c(p_secAgreement_rec.contract_number);
930: END IF;
931:
932: IF (l_dummy = 'X')
933: THEN
934: OKL_API.Set_Message(p_app_name => G_APP_NAME,
935: p_msg_name => 'OKL_LLA_NOT_UNIQUE',
936: p_token1 => 'COL_NAME',
937: p_token1_value => 'Agreement Number');
938:
944: RETURN l_return_status;
945:
946: EXCEPTION
947: WHEN G_EXCEPTION_HALT_VALIDATION THEN
948: l_return_status := OKL_API.G_RET_STS_ERROR;
949: RETURN l_return_status;
950: WHEN OTHERS THEN
951: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
952: OKL_API.Set_Message(p_app_name => G_APP_NAME,
947: WHEN G_EXCEPTION_HALT_VALIDATION THEN
948: l_return_status := OKL_API.G_RET_STS_ERROR;
949: RETURN l_return_status;
950: WHEN OTHERS THEN
951: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
952: OKL_API.Set_Message(p_app_name => G_APP_NAME,
953: p_msg_name => G_UNEXPECTED_ERROR,
954: p_token1 => G_SQLCODE_TOKEN,
955: p_token1_value => SQLCODE,
948: l_return_status := OKL_API.G_RET_STS_ERROR;
949: RETURN l_return_status;
950: WHEN OTHERS THEN
951: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
952: OKL_API.Set_Message(p_app_name => G_APP_NAME,
953: p_msg_name => G_UNEXPECTED_ERROR,
954: p_token1 => G_SQLCODE_TOKEN,
955: p_token1_value => SQLCODE,
956: p_token2 => G_SQLERRM_TOKEN,
964: p_secAgreement_rec IN secAgreement_rec_type
965: ,p_mode VARCHAR2
966: ) RETURN VARCHAR2
967: IS
968: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
969: l_dummy VARCHAR2(10);
970: l_row_not_found BOOLEAN := FALSE;
971:
972: CURSOR c_pdt IS
979:
980: IF (p_mode = 'C') THEN
981: -- check required
982: IF (p_secAgreement_rec.pdt_id IS NULL) OR
983: (p_secAgreement_rec.pdt_id = OKL_API.G_MISS_NUM)
984: THEN
985: OKL_API.Set_Message(p_app_name => G_APP_NAME,
986: p_msg_name => G_REQUIRED_VALUE,
987: p_token1 => G_COL_NAME_TOKEN,
981: -- check required
982: IF (p_secAgreement_rec.pdt_id IS NULL) OR
983: (p_secAgreement_rec.pdt_id = OKL_API.G_MISS_NUM)
984: THEN
985: OKL_API.Set_Message(p_app_name => G_APP_NAME,
986: p_msg_name => G_REQUIRED_VALUE,
987: p_token1 => G_COL_NAME_TOKEN,
988: p_token1_value => 'Product');
989: RAISE G_EXCEPTION_HALT_VALIDATION;
990: END IF;
991: END IF;
992:
993: IF (p_secAgreement_rec.pdt_id IS NOT NULL) AND
994: (p_secAgreement_rec.pdt_id <> OKL_API.G_MISS_NUM)
995: THEN
996:
997: -- check FK
998: OPEN c_pdt;
1000: l_row_not_found := c_pdt%NOTFOUND;
1001: CLOSE c_pdt;
1002:
1003: IF l_row_not_found THEN
1004: OKL_API.Set_Message(p_app_name => G_APP_NAME,
1005: p_msg_name => G_INVALID_VALUE,
1006: p_token1 => G_COL_NAME_TOKEN,
1007: p_token1_value => 'pdt_id');
1008: RAISE G_EXCEPTION_HALT_VALIDATION;
1011:
1012: RETURN l_return_status;
1013: EXCEPTION
1014: WHEN G_EXCEPTION_HALT_VALIDATION THEN
1015: l_return_status := OKL_API.G_RET_STS_ERROR;
1016: RETURN l_return_status;
1017: WHEN OTHERS THEN
1018: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
1019: OKL_API.Set_Message(p_app_name => G_APP_NAME,
1014: WHEN G_EXCEPTION_HALT_VALIDATION THEN
1015: l_return_status := OKL_API.G_RET_STS_ERROR;
1016: RETURN l_return_status;
1017: WHEN OTHERS THEN
1018: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
1019: OKL_API.Set_Message(p_app_name => G_APP_NAME,
1020: p_msg_name => G_UNEXPECTED_ERROR,
1021: p_token1 => G_SQLCODE_TOKEN,
1022: p_token1_value => SQLCODE,
1015: l_return_status := OKL_API.G_RET_STS_ERROR;
1016: RETURN l_return_status;
1017: WHEN OTHERS THEN
1018: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
1019: OKL_API.Set_Message(p_app_name => G_APP_NAME,
1020: p_msg_name => G_UNEXPECTED_ERROR,
1021: p_token1 => G_SQLCODE_TOKEN,
1022: p_token1_value => SQLCODE,
1023: p_token2 => G_SQLERRM_TOKEN,
1032: p_secAgreement_rec IN secAgreement_rec_type
1033: ,p_mode VARCHAR2
1034: ) RETURN VARCHAR2
1035: IS
1036: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1037: l_dummy VARCHAR2(10);
1038: l_row_not_found BOOLEAN := FALSE;
1039: l_row_found BOOLEAN := FALSE;
1040:
1046: BEGIN
1047:
1048: IF (p_mode = 'C') THEN
1049: IF (p_secAgreement_rec.pol_id IS NULL) OR
1050: (p_secAgreement_rec.pol_id = OKL_API.G_MISS_NUM)
1051: THEN
1052: OKL_API.Set_Message(p_app_name => G_APP_NAME,
1053: p_msg_name => G_REQUIRED_VALUE,
1054: p_token1 => G_COL_NAME_TOKEN,
1048: IF (p_mode = 'C') THEN
1049: IF (p_secAgreement_rec.pol_id IS NULL) OR
1050: (p_secAgreement_rec.pol_id = OKL_API.G_MISS_NUM)
1051: THEN
1052: OKL_API.Set_Message(p_app_name => G_APP_NAME,
1053: p_msg_name => G_REQUIRED_VALUE,
1054: p_token1 => G_COL_NAME_TOKEN,
1055: p_token1_value => 'Pool Number');
1056: RAISE G_EXCEPTION_HALT_VALIDATION;
1057: END IF;
1058: END IF;
1059:
1060: IF (p_secAgreement_rec.pol_id IS NOT NULL) AND
1061: (p_secAgreement_rec.pol_id <> OKL_API.G_MISS_NUM)
1062: THEN
1063:
1064: -- check FK
1065: OPEN c_pool;
1067: l_row_not_found := c_pool%NOTFOUND;
1068: CLOSE c_pool;
1069:
1070: IF l_row_not_found THEN
1071: OKL_API.Set_Message(p_app_name => 'OKC',
1072: p_msg_name => G_INVALID_VALUE,
1073: p_token1 => G_COL_NAME_TOKEN,
1074: p_token1_value => 'pol_id');
1075: RAISE G_EXCEPTION_HALT_VALIDATION;
1078:
1079: RETURN l_return_status;
1080: EXCEPTION
1081: WHEN G_EXCEPTION_HALT_VALIDATION THEN
1082: l_return_status := OKL_API.G_RET_STS_ERROR;
1083: RETURN l_return_status;
1084: WHEN OTHERS THEN
1085: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
1086: OKL_API.Set_Message(p_app_name => G_APP_NAME,
1081: WHEN G_EXCEPTION_HALT_VALIDATION THEN
1082: l_return_status := OKL_API.G_RET_STS_ERROR;
1083: RETURN l_return_status;
1084: WHEN OTHERS THEN
1085: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
1086: OKL_API.Set_Message(p_app_name => G_APP_NAME,
1087: p_msg_name => G_UNEXPECTED_ERROR,
1088: p_token1 => G_SQLCODE_TOKEN,
1089: p_token1_value => SQLCODE,
1082: l_return_status := OKL_API.G_RET_STS_ERROR;
1083: RETURN l_return_status;
1084: WHEN OTHERS THEN
1085: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
1086: OKL_API.Set_Message(p_app_name => G_APP_NAME,
1087: p_msg_name => G_UNEXPECTED_ERROR,
1088: p_token1 => G_SQLCODE_TOKEN,
1089: p_token1_value => SQLCODE,
1090: p_token2 => G_SQLERRM_TOKEN,
1098: p_secAgreement_rec IN secAgreement_rec_type
1099: ,p_mode VARCHAR2
1100: ) RETURN VARCHAR2
1101: IS
1102: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1103: l_dummy VARCHAR2(10);
1104: l_row_not_found BOOLEAN := FALSE;
1105: l_row_found BOOLEAN := FALSE;
1106:
1122:
1123: BEGIN
1124:
1125: IF (p_secAgreement_rec.pol_id IS NOT NULL) AND
1126: (p_secAgreement_rec.pol_id <> OKL_API.G_MISS_NUM)
1127: THEN
1128:
1129: -- check 1 on 1 relationship between agreement contract and pool
1130: IF (p_mode = 'C') THEN
1139: CLOSE c_pool_upd;
1140: END IF;
1141:
1142: IF l_row_found THEN
1143: OKL_API.Set_Message(p_app_name => G_APP_NAME,
1144: p_msg_name => 'OKL_LLA_INVALID_POOL_NUM');
1145: RAISE G_EXCEPTION_HALT_VALIDATION;
1146: END IF;
1147: END IF;
1148:
1149: RETURN l_return_status;
1150: EXCEPTION
1151: WHEN G_EXCEPTION_HALT_VALIDATION THEN
1152: l_return_status := OKL_API.G_RET_STS_ERROR;
1153: RETURN l_return_status;
1154: WHEN OTHERS THEN
1155: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
1156: OKL_API.Set_Message(p_app_name => G_APP_NAME,
1151: WHEN G_EXCEPTION_HALT_VALIDATION THEN
1152: l_return_status := OKL_API.G_RET_STS_ERROR;
1153: RETURN l_return_status;
1154: WHEN OTHERS THEN
1155: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
1156: OKL_API.Set_Message(p_app_name => G_APP_NAME,
1157: p_msg_name => G_UNEXPECTED_ERROR,
1158: p_token1 => G_SQLCODE_TOKEN,
1159: p_token1_value => SQLCODE,
1152: l_return_status := OKL_API.G_RET_STS_ERROR;
1153: RETURN l_return_status;
1154: WHEN OTHERS THEN
1155: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
1156: OKL_API.Set_Message(p_app_name => G_APP_NAME,
1157: p_msg_name => G_UNEXPECTED_ERROR,
1158: p_token1 => G_SQLCODE_TOKEN,
1159: p_token1_value => SQLCODE,
1160: p_token2 => G_SQLERRM_TOKEN,
1170: FUNCTION validate_description(
1171: p_secAgreement_rec IN secAgreement_rec_type
1172: ) RETURN VARCHAR2
1173: IS
1174: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1175: BEGIN
1176:
1177: IF (p_secAgreement_rec.short_description IS NOT NULL AND
1178: p_secAgreement_rec.short_description <> OKL_API.G_MISS_CHAR)
1174: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1175: BEGIN
1176:
1177: IF (p_secAgreement_rec.short_description IS NOT NULL AND
1178: p_secAgreement_rec.short_description <> OKL_API.G_MISS_CHAR)
1179: THEN
1180:
1181: IF (LENGTH(p_secAgreement_rec.short_description) > 600) THEN
1182:
1179: THEN
1180:
1181: IF (LENGTH(p_secAgreement_rec.short_description) > 600) THEN
1182:
1183: OKL_API.Set_Message(p_app_name => G_APP_NAME,
1184: p_msg_name => 'OKL_LLA_EXCEED_MAXIMUM_LENGTH',
1185: p_token1 => 'MAX_CHARS',
1186: p_token1_value => '600',
1187: p_token2 => 'COL_NAME',
1193:
1194: RETURN l_return_status;
1195: EXCEPTION
1196: WHEN G_EXCEPTION_HALT_VALIDATION THEN
1197: l_return_status := OKL_API.G_RET_STS_ERROR;
1198: RETURN l_return_status;
1199: WHEN OTHERS THEN
1200: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
1201: OKL_API.Set_Message(p_app_name => G_APP_NAME,
1196: WHEN G_EXCEPTION_HALT_VALIDATION THEN
1197: l_return_status := OKL_API.G_RET_STS_ERROR;
1198: RETURN l_return_status;
1199: WHEN OTHERS THEN
1200: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
1201: OKL_API.Set_Message(p_app_name => G_APP_NAME,
1202: p_msg_name => G_UNEXPECTED_ERROR,
1203: p_token1 => G_SQLCODE_TOKEN,
1204: p_token1_value => SQLCODE,
1197: l_return_status := OKL_API.G_RET_STS_ERROR;
1198: RETURN l_return_status;
1199: WHEN OTHERS THEN
1200: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
1201: OKL_API.Set_Message(p_app_name => G_APP_NAME,
1202: p_msg_name => G_UNEXPECTED_ERROR,
1203: p_token1 => G_SQLCODE_TOKEN,
1204: p_token1_value => SQLCODE,
1205: p_token2 => G_SQLERRM_TOKEN,
1213: p_secAgreement_rec IN secAgreement_rec_type
1214: ,p_mode VARCHAR2
1215: ) RETURN VARCHAR2
1216: IS
1217: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1218: BEGIN
1219:
1220: IF (p_mode = 'C') THEN
1221: IF (p_secAgreement_rec.start_date IS NULL) OR
1218: BEGIN
1219:
1220: IF (p_mode = 'C') THEN
1221: IF (p_secAgreement_rec.start_date IS NULL) OR
1222: (p_secAgreement_rec.start_date = OKL_API.G_MISS_DATE)
1223: THEN
1224: OKL_API.Set_Message(p_app_name => G_APP_NAME,
1225: p_msg_name => G_REQUIRED_VALUE,
1226: p_token1 => G_COL_NAME_TOKEN,
1220: IF (p_mode = 'C') THEN
1221: IF (p_secAgreement_rec.start_date IS NULL) OR
1222: (p_secAgreement_rec.start_date = OKL_API.G_MISS_DATE)
1223: THEN
1224: OKL_API.Set_Message(p_app_name => G_APP_NAME,
1225: p_msg_name => G_REQUIRED_VALUE,
1226: p_token1 => G_COL_NAME_TOKEN,
1227: p_token1_value => 'Effective From');
1228: RAISE G_EXCEPTION_HALT_VALIDATION;
1231:
1232: RETURN l_return_status;
1233: EXCEPTION
1234: WHEN G_EXCEPTION_HALT_VALIDATION THEN
1235: l_return_status := OKL_API.G_RET_STS_ERROR;
1236: RETURN l_return_status;
1237: WHEN OTHERS THEN
1238: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
1239: OKL_API.Set_Message(p_app_name => G_APP_NAME,
1234: WHEN G_EXCEPTION_HALT_VALIDATION THEN
1235: l_return_status := OKL_API.G_RET_STS_ERROR;
1236: RETURN l_return_status;
1237: WHEN OTHERS THEN
1238: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
1239: OKL_API.Set_Message(p_app_name => G_APP_NAME,
1240: p_msg_name => G_UNEXPECTED_ERROR,
1241: p_token1 => G_SQLCODE_TOKEN,
1242: p_token1_value => SQLCODE,
1235: l_return_status := OKL_API.G_RET_STS_ERROR;
1236: RETURN l_return_status;
1237: WHEN OTHERS THEN
1238: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
1239: OKL_API.Set_Message(p_app_name => G_APP_NAME,
1240: p_msg_name => G_UNEXPECTED_ERROR,
1241: p_token1 => G_SQLCODE_TOKEN,
1242: p_token1_value => SQLCODE,
1243: p_token2 => G_SQLERRM_TOKEN,
1252: p_secAgreement_rec IN secAgreement_rec_type
1253: ,p_mode VARCHAR2
1254: ) RETURN VARCHAR2
1255: IS
1256: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1257: l_dummy VARCHAR2(10);
1258:
1259: l_row_not_found BOOLEAN := FALSE;
1260: l_row_found BOOLEAN := FALSE;
1269: BEGIN
1270:
1271: IF (p_mode = 'C') THEN
1272: IF (p_secAgreement_rec.securitization_type IS NULL) OR
1273: (p_secAgreement_rec.securitization_type = OKL_API.G_MISS_CHAR)
1274: THEN
1275: OKL_API.Set_Message(p_app_name => G_APP_NAME,
1276: p_msg_name => G_REQUIRED_VALUE,
1277: p_token1 => G_COL_NAME_TOKEN,
1271: IF (p_mode = 'C') THEN
1272: IF (p_secAgreement_rec.securitization_type IS NULL) OR
1273: (p_secAgreement_rec.securitization_type = OKL_API.G_MISS_CHAR)
1274: THEN
1275: OKL_API.Set_Message(p_app_name => G_APP_NAME,
1276: p_msg_name => G_REQUIRED_VALUE,
1277: p_token1 => G_COL_NAME_TOKEN,
1278: p_token1_value => 'Securitization Type');
1279: RAISE G_EXCEPTION_HALT_VALIDATION;
1280: END IF;
1281: END IF;
1282:
1283: IF (p_secAgreement_rec.securitization_type IS NOT NULL) AND
1284: (p_secAgreement_rec.securitization_type <> OKL_API.G_MISS_CHAR)
1285: THEN
1286:
1287: -- check FK
1288: OPEN c_sec_type;
1291: CLOSE c_sec_type;
1292:
1293:
1294: IF l_row_not_found THEN
1295: OKL_API.Set_Message(p_app_name => G_APP_NAME,
1296: p_msg_name => G_INVALID_VALUE,
1297: p_token1 => G_COL_NAME_TOKEN,
1298: p_token1_value => 'Securitization Type');
1299: RAISE G_EXCEPTION_HALT_VALIDATION;
1302:
1303: RETURN l_return_status;
1304: EXCEPTION
1305: WHEN G_EXCEPTION_HALT_VALIDATION THEN
1306: l_return_status := OKL_API.G_RET_STS_ERROR;
1307: RETURN l_return_status;
1308: WHEN OTHERS THEN
1309: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
1310: OKL_API.Set_Message(p_app_name => G_APP_NAME,
1305: WHEN G_EXCEPTION_HALT_VALIDATION THEN
1306: l_return_status := OKL_API.G_RET_STS_ERROR;
1307: RETURN l_return_status;
1308: WHEN OTHERS THEN
1309: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
1310: OKL_API.Set_Message(p_app_name => G_APP_NAME,
1311: p_msg_name => G_UNEXPECTED_ERROR,
1312: p_token1 => G_SQLCODE_TOKEN,
1313: p_token1_value => SQLCODE,
1306: l_return_status := OKL_API.G_RET_STS_ERROR;
1307: RETURN l_return_status;
1308: WHEN OTHERS THEN
1309: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
1310: OKL_API.Set_Message(p_app_name => G_APP_NAME,
1311: p_msg_name => G_UNEXPECTED_ERROR,
1312: p_token1 => G_SQLCODE_TOKEN,
1313: p_token1_value => SQLCODE,
1314: p_token2 => G_SQLERRM_TOKEN,
1323: p_secAgreement_rec IN secAgreement_rec_type
1324: ,p_mode VARCHAR2
1325: ) RETURN VARCHAR2
1326: IS
1327: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1328: l_dummy VARCHAR2(10);
1329: l_row_not_found BOOLEAN := FALSE;
1330:
1331: CURSOR c_rcs IS
1336:
1337: BEGIN
1338:
1339: IF (p_secAgreement_rec.RECOURSE_CODE IS NOT NULL) AND
1340: (p_secAgreement_rec.RECOURSE_CODE <> OKL_API.G_MISS_CHAR)
1341: THEN
1342:
1343: -- check FK
1344: OPEN c_rcs;
1346: l_row_not_found := c_rcs%NOTFOUND;
1347: CLOSE c_rcs;
1348:
1349: IF l_row_not_found THEN
1350: OKL_API.Set_Message(p_app_name => G_APP_NAME,
1351: p_msg_name => G_INVALID_VALUE,
1352: p_token1 => G_COL_NAME_TOKEN,
1353: p_token1_value => 'RECOURSE_CODE');
1354: RAISE G_EXCEPTION_HALT_VALIDATION;
1357:
1358: RETURN l_return_status;
1359: EXCEPTION
1360: WHEN G_EXCEPTION_HALT_VALIDATION THEN
1361: l_return_status := OKL_API.G_RET_STS_ERROR;
1362: RETURN l_return_status;
1363: WHEN OTHERS THEN
1364: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
1365: OKL_API.Set_Message(p_app_name => G_APP_NAME,
1360: WHEN G_EXCEPTION_HALT_VALIDATION THEN
1361: l_return_status := OKL_API.G_RET_STS_ERROR;
1362: RETURN l_return_status;
1363: WHEN OTHERS THEN
1364: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
1365: OKL_API.Set_Message(p_app_name => G_APP_NAME,
1366: p_msg_name => G_UNEXPECTED_ERROR,
1367: p_token1 => G_SQLCODE_TOKEN,
1368: p_token1_value => SQLCODE,
1361: l_return_status := OKL_API.G_RET_STS_ERROR;
1362: RETURN l_return_status;
1363: WHEN OTHERS THEN
1364: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
1365: OKL_API.Set_Message(p_app_name => G_APP_NAME,
1366: p_msg_name => G_UNEXPECTED_ERROR,
1367: p_token1 => G_SQLCODE_TOKEN,
1368: p_token1_value => SQLCODE,
1369: p_token2 => G_SQLERRM_TOKEN,
1377: p_secAgreement_rec IN secAgreement_rec_type
1378: ,p_mode VARCHAR2
1379: ) RETURN VARCHAR2
1380: IS
1381: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1382: l_dummy VARCHAR2(10);
1383: l_row_not_found BOOLEAN := FALSE;
1384:
1385: CURSOR c_serv IS
1390:
1391: BEGIN
1392:
1393: IF (p_secAgreement_rec.LESSOR_SERV_ORG_CODE IS NOT NULL) AND
1394: (p_secAgreement_rec.LESSOR_SERV_ORG_CODE <> OKL_API.G_MISS_CHAR)
1395: THEN
1396:
1397: -- check FK
1398: OPEN c_serv;
1400: l_row_not_found := c_serv%NOTFOUND;
1401: CLOSE c_serv;
1402:
1403: IF l_row_not_found THEN
1404: OKL_API.Set_Message(p_app_name => G_APP_NAME,
1405: p_msg_name => G_INVALID_VALUE,
1406: p_token1 => G_COL_NAME_TOKEN,
1407: p_token1_value => 'LESSOR_SERV_ORG_CODE');
1408: RAISE G_EXCEPTION_HALT_VALIDATION;
1412: RETURN l_return_status;
1413:
1414: EXCEPTION
1415: WHEN G_EXCEPTION_HALT_VALIDATION THEN
1416: l_return_status := OKL_API.G_RET_STS_ERROR;
1417: RETURN l_return_status;
1418: WHEN OTHERS THEN
1419: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
1420: OKL_API.Set_Message(p_app_name => G_APP_NAME,
1415: WHEN G_EXCEPTION_HALT_VALIDATION THEN
1416: l_return_status := OKL_API.G_RET_STS_ERROR;
1417: RETURN l_return_status;
1418: WHEN OTHERS THEN
1419: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
1420: OKL_API.Set_Message(p_app_name => G_APP_NAME,
1421: p_msg_name => G_UNEXPECTED_ERROR,
1422: p_token1 => G_SQLCODE_TOKEN,
1423: p_token1_value => SQLCODE,
1416: l_return_status := OKL_API.G_RET_STS_ERROR;
1417: RETURN l_return_status;
1418: WHEN OTHERS THEN
1419: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
1420: OKL_API.Set_Message(p_app_name => G_APP_NAME,
1421: p_msg_name => G_UNEXPECTED_ERROR,
1422: p_token1 => G_SQLCODE_TOKEN,
1423: p_token1_value => SQLCODE,
1424: p_token2 => G_SQLERRM_TOKEN,
1431: p_secAgreement_rec IN secAgreement_rec_type
1432: ,p_mode VARCHAR2
1433: ) RETURN VARCHAR2
1434: IS
1435: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1436: x_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1437:
1438: BEGIN
1439:
1432: ,p_mode VARCHAR2
1433: ) RETURN VARCHAR2
1434: IS
1435: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1436: x_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1437:
1438: BEGIN
1439:
1440:
1440:
1441: -- Do formal attribute validation:
1442: l_return_status := validate_contract_number(p_secAgreement_rec, p_mode);
1443: --- Store the highest degree of error
1444: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
1445: IF (x_return_status <> OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1446: x_return_status := l_return_status;
1447: END IF;
1448: RAISE G_EXCEPTION_HALT_VALIDATION;
1441: -- Do formal attribute validation:
1442: l_return_status := validate_contract_number(p_secAgreement_rec, p_mode);
1443: --- Store the highest degree of error
1444: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
1445: IF (x_return_status <> OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1446: x_return_status := l_return_status;
1447: END IF;
1448: RAISE G_EXCEPTION_HALT_VALIDATION;
1449: END IF;
1449: END IF;
1450:
1451: l_return_status := validate_product(p_secAgreement_rec, p_mode);
1452: --- Store the highest degree of error
1453: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
1454: IF (x_return_status <> OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1455: x_return_status := l_return_status;
1456: END IF;
1457: RAISE G_EXCEPTION_HALT_VALIDATION;
1450:
1451: l_return_status := validate_product(p_secAgreement_rec, p_mode);
1452: --- Store the highest degree of error
1453: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
1454: IF (x_return_status <> OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1455: x_return_status := l_return_status;
1456: END IF;
1457: RAISE G_EXCEPTION_HALT_VALIDATION;
1458: END IF;
1458: END IF;
1459:
1460: l_return_status := validate_pool_number(p_secAgreement_rec, p_mode);
1461: --- Store the highest degree of error
1462: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
1463: IF (x_return_status <> OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1464: x_return_status := l_return_status;
1465: END IF;
1466: RAISE G_EXCEPTION_HALT_VALIDATION;
1459:
1460: l_return_status := validate_pool_number(p_secAgreement_rec, p_mode);
1461: --- Store the highest degree of error
1462: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
1463: IF (x_return_status <> OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1464: x_return_status := l_return_status;
1465: END IF;
1466: RAISE G_EXCEPTION_HALT_VALIDATION;
1467: END IF;
1467: END IF;
1468:
1469: l_return_status := validate_pool_number_unique(p_secAgreement_rec, p_mode);
1470: --- Store the highest degree of error
1471: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
1472: IF (x_return_status <> OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1473: x_return_status := l_return_status;
1474: END IF;
1475: RAISE G_EXCEPTION_HALT_VALIDATION;
1468:
1469: l_return_status := validate_pool_number_unique(p_secAgreement_rec, p_mode);
1470: --- Store the highest degree of error
1471: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
1472: IF (x_return_status <> OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1473: x_return_status := l_return_status;
1474: END IF;
1475: RAISE G_EXCEPTION_HALT_VALIDATION;
1476: END IF;
1476: END IF;
1477:
1478: l_return_status := validate_description(p_secAgreement_rec);
1479: --- Store the highest degree of error
1480: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
1481: IF (x_return_status <> OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1482: x_return_status := l_return_status;
1483: END IF;
1484: RAISE G_EXCEPTION_HALT_VALIDATION;
1477:
1478: l_return_status := validate_description(p_secAgreement_rec);
1479: --- Store the highest degree of error
1480: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
1481: IF (x_return_status <> OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1482: x_return_status := l_return_status;
1483: END IF;
1484: RAISE G_EXCEPTION_HALT_VALIDATION;
1485: END IF;
1485: END IF;
1486:
1487: l_return_status := validate_effective_from(p_secAgreement_rec, p_mode);
1488: --- Store the highest degree of error
1489: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
1490: IF (x_return_status <> OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1491: x_return_status := l_return_status;
1492: END IF;
1493: RAISE G_EXCEPTION_HALT_VALIDATION;
1486:
1487: l_return_status := validate_effective_from(p_secAgreement_rec, p_mode);
1488: --- Store the highest degree of error
1489: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
1490: IF (x_return_status <> OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1491: x_return_status := l_return_status;
1492: END IF;
1493: RAISE G_EXCEPTION_HALT_VALIDATION;
1494: END IF;
1494: END IF;
1495:
1496: l_return_status := validate_securitization_type(p_secAgreement_rec, p_mode);
1497: --- Store the highest degree of error
1498: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
1499: IF (x_return_status <> OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1500: x_return_status := l_return_status;
1501: END IF;
1502: RAISE G_EXCEPTION_HALT_VALIDATION;
1495:
1496: l_return_status := validate_securitization_type(p_secAgreement_rec, p_mode);
1497: --- Store the highest degree of error
1498: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
1499: IF (x_return_status <> OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1500: x_return_status := l_return_status;
1501: END IF;
1502: RAISE G_EXCEPTION_HALT_VALIDATION;
1503: END IF;
1503: END IF;
1504:
1505: l_return_status := validate_recourse(p_secAgreement_rec, p_mode);
1506: --- Store the highest degree of error
1507: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
1508: IF (x_return_status <> OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1509: x_return_status := l_return_status;
1510: END IF;
1511: RAISE G_EXCEPTION_HALT_VALIDATION;
1504:
1505: l_return_status := validate_recourse(p_secAgreement_rec, p_mode);
1506: --- Store the highest degree of error
1507: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
1508: IF (x_return_status <> OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1509: x_return_status := l_return_status;
1510: END IF;
1511: RAISE G_EXCEPTION_HALT_VALIDATION;
1512: END IF;
1513:
1514: l_return_status := validate_lessor_serv(p_secAgreement_rec, p_mode);
1515: --- Store the highest degree of error
1516:
1517: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
1518: IF (x_return_status <> OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1519: x_return_status := l_return_status;
1520: END IF;
1521: RAISE G_EXCEPTION_HALT_VALIDATION;
1514: l_return_status := validate_lessor_serv(p_secAgreement_rec, p_mode);
1515: --- Store the highest degree of error
1516:
1517: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
1518: IF (x_return_status <> OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1519: x_return_status := l_return_status;
1520: END IF;
1521: RAISE G_EXCEPTION_HALT_VALIDATION;
1522: END IF;
1525: EXCEPTION
1526: WHEN G_EXCEPTION_HALT_VALIDATION THEN
1527: RETURN x_return_status;
1528: WHEN OTHERS THEN
1529: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
1530: OKL_API.Set_Message(p_app_name => G_APP_NAME,
1531: p_msg_name => G_UNEXPECTED_ERROR,
1532: p_token1 => G_SQLCODE_TOKEN,
1533: p_token1_value => SQLCODE,
1526: WHEN G_EXCEPTION_HALT_VALIDATION THEN
1527: RETURN x_return_status;
1528: WHEN OTHERS THEN
1529: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
1530: OKL_API.Set_Message(p_app_name => G_APP_NAME,
1531: p_msg_name => G_UNEXPECTED_ERROR,
1532: p_token1 => G_SQLCODE_TOKEN,
1533: p_token1_value => SQLCODE,
1534: p_token2 => G_SQLERRM_TOKEN,
1557: IS
1558: l_api_name CONSTANT VARCHAR2(30) := 'create_sec_agreement_pvt';
1559: l_api_version CONSTANT NUMBER := 1.0;
1560: i NUMBER;
1561: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1562: l_qcl_id OKC_QA_CHECK_LISTS_TL.ID%TYPE;
1563: l_row_not_found BOOLEAN := FALSE;
1564:
1565: lp_cplv_rec OKC_CONTRACT_PARTY_PUB.cplv_rec_type;
1601: p_api_version,
1602: l_api_name,
1603: G_PKG_NAME ))
1604: THEN
1605: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1606: END IF;
1607:
1608: -- Initialize message list if requested
1609: IF (FND_API.to_Boolean(p_init_msg_list)) THEN
1610: FND_MSG_PUB.initialize;
1611: END IF;
1612:
1613: -- Initialize API status to success
1614: x_return_status := OKL_API.G_RET_STS_SUCCESS;
1615:
1616:
1617: /*** Begin API body ****************************************************/
1618:
1636: -- lp_chrv_rec.sts_code := p_secAgreement_rec.STS_CODE;
1637: lp_chrv_rec.description := p_secAgreement_rec.short_description;
1638: lp_chrv_rec.short_description := p_secAgreement_rec.short_description;
1639: lp_chrv_rec.start_date := p_secAgreement_rec.start_date;
1640: -- IF (p_secAgreement_rec.end_date is null or p_secAgreement_rec.end_date = OKL_API.G_MISS_DATE) THEN
1641: -- lp_chrv_rec.end_date := null;
1642: -- ELSE
1643: lp_chrv_rec.end_date := p_secAgreement_rec.end_date;
1644: -- END IF;
1678: -- racheruv .. R12.1.2 end
1679:
1680: lp_khrv_rec.SECURITIZATION_TYPE := p_secAgreement_rec.SECURITIZATION_TYPE;
1681: IF (p_secAgreement_rec.LESSOR_SERV_ORG_CODE IS NULL OR
1682: p_secAgreement_rec.LESSOR_SERV_ORG_CODE = OKL_API.G_MISS_CHAR) THEN
1683: lp_khrv_rec.LESSOR_SERV_ORG_CODE := 'O';
1684: ELSE
1685: lp_khrv_rec.LESSOR_SERV_ORG_CODE := p_secAgreement_rec.LESSOR_SERV_ORG_CODE;
1686: END IF;
1683: lp_khrv_rec.LESSOR_SERV_ORG_CODE := 'O';
1684: ELSE
1685: lp_khrv_rec.LESSOR_SERV_ORG_CODE := p_secAgreement_rec.LESSOR_SERV_ORG_CODE;
1686: END IF;
1687: IF (p_secAgreement_rec.RECOURSE_CODE IS NULL OR p_secAgreement_rec.RECOURSE_CODE = OKL_API.G_MISS_CHAR) THEN
1688: lp_khrv_rec.RECOURSE_CODE := 'N';
1689: ELSE
1690: lp_khrv_rec.RECOURSE_CODE := p_secAgreement_rec.RECOURSE_CODE;
1691: END IF;
1936: x_msg_data => x_msg_data,
1937: p_polv_rec => l_polv_rec,
1938: x_polv_rec => x_polv_rec);
1939:
1940: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1941: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1942: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1943: RAISE OKL_API.G_EXCEPTION_ERROR;
1944: END IF;
1937: p_polv_rec => l_polv_rec,
1938: x_polv_rec => x_polv_rec);
1939:
1940: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1941: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1942: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1943: RAISE OKL_API.G_EXCEPTION_ERROR;
1944: END IF;
1945:
1938: x_polv_rec => x_polv_rec);
1939:
1940: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1941: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1942: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1943: RAISE OKL_API.G_EXCEPTION_ERROR;
1944: END IF;
1945:
1946: /*** End API body ******************************************************/
1939:
1940: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1941: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1942: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1943: RAISE OKL_API.G_EXCEPTION_ERROR;
1944: END IF;
1945:
1946: /*** End API body ******************************************************/
1947:
1950: (p_count => x_msg_count,
1951: p_data => x_msg_data);
1952:
1953: EXCEPTION
1954: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1955: ROLLBACK TO create_sec_agreement_PVT;
1956: x_return_status := OKL_API.G_RET_STS_ERROR;
1957: FND_MSG_PUB.Count_And_Get
1958: (p_count => x_msg_count,
1952:
1953: EXCEPTION
1954: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1955: ROLLBACK TO create_sec_agreement_PVT;
1956: x_return_status := OKL_API.G_RET_STS_ERROR;
1957: FND_MSG_PUB.Count_And_Get
1958: (p_count => x_msg_count,
1959: p_data => x_msg_data);
1960:
1957: FND_MSG_PUB.Count_And_Get
1958: (p_count => x_msg_count,
1959: p_data => x_msg_data);
1960:
1961: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1962: ROLLBACK TO create_sec_agreement_PVT;
1963: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
1964: FND_MSG_PUB.Count_And_Get
1965: (p_count => x_msg_count,
1959: p_data => x_msg_data);
1960:
1961: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1962: ROLLBACK TO create_sec_agreement_PVT;
1963: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
1964: FND_MSG_PUB.Count_And_Get
1965: (p_count => x_msg_count,
1966: p_data => x_msg_data);
1967:
1966: p_data => x_msg_data);
1967:
1968: WHEN OTHERS THEN
1969: ROLLBACK TO create_sec_agreement_PVT;
1970: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
1971: OKL_API.Set_Message(p_app_name => G_APP_NAME,
1972: p_msg_name => G_UNEXPECTED_ERROR,
1973: p_token1 => G_SQLCODE_TOKEN,
1974: p_token1_value => SQLCODE,
1967:
1968: WHEN OTHERS THEN
1969: ROLLBACK TO create_sec_agreement_PVT;
1970: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
1971: OKL_API.Set_Message(p_app_name => G_APP_NAME,
1972: p_msg_name => G_UNEXPECTED_ERROR,
1973: p_token1 => G_SQLCODE_TOKEN,
1974: p_token1_value => SQLCODE,
1975: p_token2 => G_SQLERRM_TOKEN,
2001: l_api_name CONSTANT VARCHAR2(30) := 'update_sec_agreement_pvt';
2002: l_api_version CONSTANT NUMBER := 1.0;
2003: i NUMBER;
2004: l_pol_id OKL_POOLS.ID%TYPE;
2005: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2006: lp_cplv_rec OKC_CONTRACT_PARTY_PUB.cplv_rec_type;
2007: lx_cplv_rec OKC_CONTRACT_PARTY_PUB.cplv_rec_type;
2008:
2009: lp_chrv_rec OKL_OKC_MIGRATION_PVT.chrv_rec_type;
2069: p_api_version,
2070: l_api_name,
2071: G_PKG_NAME ))
2072: THEN
2073: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2074: END IF;
2075:
2076: -- Initialize message list if requested
2077: IF (FND_API.to_Boolean(p_init_msg_list)) THEN
2078: FND_MSG_PUB.initialize;
2079: END IF;
2080:
2081: -- Initialize API status to success
2082: x_return_status := OKL_API.G_RET_STS_SUCCESS;
2083:
2084:
2085: /*** Begin API body ****************************************************/
2086: lp_chrv_rec.id := p_secAgreement_rec.ID;
2184: --
2185: -- ********************* Trustee ***************************************
2186: --
2187: IF (p_secAgreement_rec.trustee_party_roles_id IS NOT NULL
2188: AND p_secAgreement_rec.trustee_party_roles_id <> OKL_API.G_MISS_NUM) THEN
2189:
2190: -- x_chr_id := lx_chrv_rec.id;
2191:
2192: -- now we attach the party to the header
2274: --
2275: -- update okl_pools
2276: --
2277:
2278: IF (p_secAgreement_rec.pol_id IS NOT NULL AND p_secAgreement_rec.pol_id <> OKL_API.G_MISS_NUM) THEN
2279: -- 1. update khr_id to null if user switch to different pol_id
2280:
2281: OPEN c_pool_upd;
2282: i := 0;
2297: p_polv_rec => l_polv_rec,
2298: x_polv_rec => x_polv_rec);
2299:
2300:
2301: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2302: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2303: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2304: RAISE OKL_API.G_EXCEPTION_ERROR;
2305: END IF;
2298: x_polv_rec => x_polv_rec);
2299:
2300:
2301: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2302: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2303: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2304: RAISE OKL_API.G_EXCEPTION_ERROR;
2305: END IF;
2306:
2299:
2300:
2301: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2302: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2303: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2304: RAISE OKL_API.G_EXCEPTION_ERROR;
2305: END IF;
2306:
2307: i := i + 1;
2300:
2301: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2302: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2303: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2304: RAISE OKL_API.G_EXCEPTION_ERROR;
2305: END IF;
2306:
2307: i := i + 1;
2308: END LOOP;
2321: x_msg_data => x_msg_data,
2322: p_polv_rec => l_polv_rec,
2323: x_polv_rec => x_polv_rec);
2324:
2325: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2326: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2327: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2328: RAISE OKL_API.G_EXCEPTION_ERROR;
2329: END IF;
2322: p_polv_rec => l_polv_rec,
2323: x_polv_rec => x_polv_rec);
2324:
2325: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2326: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2327: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2328: RAISE OKL_API.G_EXCEPTION_ERROR;
2329: END IF;
2330:
2323: x_polv_rec => x_polv_rec);
2324:
2325: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2326: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2327: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2328: RAISE OKL_API.G_EXCEPTION_ERROR;
2329: END IF;
2330:
2331: -- copy back to x_secAgreement_rec
2324:
2325: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2326: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2327: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2328: RAISE OKL_API.G_EXCEPTION_ERROR;
2329: END IF;
2330:
2331: -- copy back to x_secAgreement_rec
2332: x_secAgreement_rec.POL_ID := x_polv_rec.ID;
2365: p_klev_rec => lp_klev_rec,
2366: x_clev_rec => lx_clev_rec,
2367: x_klev_rec => lx_klev_rec);
2368:
2369: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2370: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2371: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2372: RAISE OKL_API.G_EXCEPTION_ERROR;
2373: END IF;
2366: x_clev_rec => lx_clev_rec,
2367: x_klev_rec => lx_klev_rec);
2368:
2369: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2370: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2371: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2372: RAISE OKL_API.G_EXCEPTION_ERROR;
2373: END IF;
2374:
2367: x_klev_rec => lx_klev_rec);
2368:
2369: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2370: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2371: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2372: RAISE OKL_API.G_EXCEPTION_ERROR;
2373: END IF;
2374:
2375: i := i + 1;
2368:
2369: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2370: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2371: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2372: RAISE OKL_API.G_EXCEPTION_ERROR;
2373: END IF;
2374:
2375: i := i + 1;
2376: END LOOP;
2396: p_klev_rec => lp_klev_rec,
2397: x_clev_rec => lx_clev_rec,
2398: x_klev_rec => lx_klev_rec);
2399:
2400: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2401: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2402: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2403: RAISE OKL_API.G_EXCEPTION_ERROR;
2404: END IF;
2397: x_clev_rec => lx_clev_rec,
2398: x_klev_rec => lx_klev_rec);
2399:
2400: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2401: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2402: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2403: RAISE OKL_API.G_EXCEPTION_ERROR;
2404: END IF;
2405:
2398: x_klev_rec => lx_klev_rec);
2399:
2400: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2401: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2402: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2403: RAISE OKL_API.G_EXCEPTION_ERROR;
2404: END IF;
2405:
2406: FOR l_okl_sub_line_rec IN l_okl_sub_lines_csr(p_secAgreement_rec.ID,l_okl_top_line_rec.id)
2399:
2400: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2401: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2402: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2403: RAISE OKL_API.G_EXCEPTION_ERROR;
2404: END IF;
2405:
2406: FOR l_okl_sub_line_rec IN l_okl_sub_lines_csr(p_secAgreement_rec.ID,l_okl_top_line_rec.id)
2407: LOOP
2422: p_klev_rec => lp_klev_rec,
2423: x_clev_rec => lx_clev_rec,
2424: x_klev_rec => lx_klev_rec);
2425:
2426: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2427: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2428: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2429: RAISE OKL_API.G_EXCEPTION_ERROR;
2430: END IF;
2423: x_clev_rec => lx_clev_rec,
2424: x_klev_rec => lx_klev_rec);
2425:
2426: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2427: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2428: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2429: RAISE OKL_API.G_EXCEPTION_ERROR;
2430: END IF;
2431:
2424: x_klev_rec => lx_klev_rec);
2425:
2426: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2427: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2428: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2429: RAISE OKL_API.G_EXCEPTION_ERROR;
2430: END IF;
2431:
2432: END LOOP;
2425:
2426: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2427: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2428: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2429: RAISE OKL_API.G_EXCEPTION_ERROR;
2430: END IF;
2431:
2432: END LOOP;
2433: END LOOP;
2440: (p_count => x_msg_count,
2441: p_data => x_msg_data);
2442:
2443: EXCEPTION
2444: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2445: ROLLBACK TO update_sec_agreement_PVT;
2446: x_return_status := OKL_API.G_RET_STS_ERROR;
2447:
2448: FND_MSG_PUB.Count_And_Get
2442:
2443: EXCEPTION
2444: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2445: ROLLBACK TO update_sec_agreement_PVT;
2446: x_return_status := OKL_API.G_RET_STS_ERROR;
2447:
2448: FND_MSG_PUB.Count_And_Get
2449: (p_count => x_msg_count,
2450: p_data => x_msg_data);
2448: FND_MSG_PUB.Count_And_Get
2449: (p_count => x_msg_count,
2450: p_data => x_msg_data);
2451:
2452: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2453: ROLLBACK TO update_sec_agreement_PVT;
2454: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
2455: FND_MSG_PUB.Count_And_Get
2456: (p_count => x_msg_count,
2450: p_data => x_msg_data);
2451:
2452: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2453: ROLLBACK TO update_sec_agreement_PVT;
2454: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
2455: FND_MSG_PUB.Count_And_Get
2456: (p_count => x_msg_count,
2457: p_data => x_msg_data);
2458:
2457: p_data => x_msg_data);
2458:
2459: WHEN OTHERS THEN
2460: ROLLBACK TO update_sec_agreement_PVT;
2461: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
2462: OKL_API.Set_Message(p_app_name => G_APP_NAME,
2463: p_msg_name => G_UNEXPECTED_ERROR,
2464: p_token1 => G_SQLCODE_TOKEN,
2465: p_token1_value => SQLCODE,
2458:
2459: WHEN OTHERS THEN
2460: ROLLBACK TO update_sec_agreement_PVT;
2461: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
2462: OKL_API.Set_Message(p_app_name => G_APP_NAME,
2463: p_msg_name => G_UNEXPECTED_ERROR,
2464: p_token1 => G_SQLCODE_TOKEN,
2465: p_token1_value => SQLCODE,
2466: p_token2 => G_SQLERRM_TOKEN,
2501: l_chr_id OKC_K_HEADERS_B.ID%TYPE;
2502:
2503: l_pox_id OKL_POOL_CONTENTS.POX_ID%TYPE;
2504: l_poc_id OKL_POOL_CONTENTS.ID%TYPE;
2505: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2506: lp_chrv_rec OKL_OKC_MIGRATION_PVT.chrv_rec_type;
2507: lx_chrv_rec OKL_OKC_MIGRATION_PVT.chrv_rec_type;
2508: lp_khrv_rec OKL_CONTRACT_PUB.khrv_rec_type;
2509: lx_khrv_rec OKL_CONTRACT_PUB.khrv_rec_type;
2579: p_api_version,
2580: l_api_name,
2581: G_PKG_NAME ))
2582: THEN
2583: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2584: END IF;
2585:
2586: -- Initialize message list if requested
2587: IF (FND_API.to_Boolean(p_init_msg_list)) THEN
2588: FND_MSG_PUB.initialize;
2589: END IF;
2590:
2591: -- Initialize API status to success
2592: x_return_status := OKL_API.G_RET_STS_SUCCESS;
2593:
2594: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
2595: fnd_log.STRING(fnd_log.level_statement,'okl.plsql.okl_sec_agreement_pvt.activate_sec_agreement.debug', 'Begin Activating IA');
2596: fnd_log.STRING(fnd_log.level_statement,'okl.plsql.okl_sec_agreement_pvt.activate_sec_agreement.debug','p_khr_id:'|| p_khr_id);
2665: fnd_log.STRING(fnd_log.level_statement,'okl.plsql.okl_sec_agreement_pvt.activate_sec_agreement.debug', 'l_pol_id :' || l_pol_id);
2666: fnd_log.STRING(fnd_log.level_statement,'okl.plsql.okl_sec_agreement_pvt.activate_sec_agreement.debug', 'OKL_POOL_PVT.create_pool_transaction x_return_status :' || x_return_status);
2667: END IF;
2668:
2669: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2670: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2671: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2672: RAISE OKL_API.G_EXCEPTION_ERROR;
2673: END IF;
2666: fnd_log.STRING(fnd_log.level_statement,'okl.plsql.okl_sec_agreement_pvt.activate_sec_agreement.debug', 'OKL_POOL_PVT.create_pool_transaction x_return_status :' || x_return_status);
2667: END IF;
2668:
2669: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2670: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2671: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2672: RAISE OKL_API.G_EXCEPTION_ERROR;
2673: END IF;
2674: END IF;
2667: END IF;
2668:
2669: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2670: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2671: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2672: RAISE OKL_API.G_EXCEPTION_ERROR;
2673: END IF;
2674: END IF;
2675: --dbms_output.put_line('OKL_POOL_PVT.create_pool_transaction END');
2668:
2669: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2670: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2671: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2672: RAISE OKL_API.G_EXCEPTION_ERROR;
2673: END IF;
2674: END IF;
2675: --dbms_output.put_line('OKL_POOL_PVT.create_pool_transaction END');
2676: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
2721: fnd_log.STRING(fnd_log.level_statement,'okl.plsql.okl_sec_agreement_pvt.activate_sec_agreement.debug', 'l_poc_id :' || l_poc_id);
2722: fnd_log.STRING(fnd_log.level_statement,'okl.plsql.okl_sec_agreement_pvt.activate_sec_agreement.debug', 'OKL_POOL_PVT.update_pool_contents x_return_status :' || x_return_status);
2723: END IF;
2724:
2725: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2726: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2727: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2728: RAISE OKL_API.G_EXCEPTION_ERROR;
2729: END IF;
2722: fnd_log.STRING(fnd_log.level_statement,'okl.plsql.okl_sec_agreement_pvt.activate_sec_agreement.debug', 'OKL_POOL_PVT.update_pool_contents x_return_status :' || x_return_status);
2723: END IF;
2724:
2725: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2726: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2727: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2728: RAISE OKL_API.G_EXCEPTION_ERROR;
2729: END IF;
2730:
2723: END IF;
2724:
2725: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2726: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2727: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2728: RAISE OKL_API.G_EXCEPTION_ERROR;
2729: END IF;
2730:
2731: END LOOP;
2724:
2725: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2726: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2727: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2728: RAISE OKL_API.G_EXCEPTION_ERROR;
2729: END IF;
2730:
2731: END LOOP;
2732: CLOSE c_poc;
2775: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
2776: fnd_log.STRING(fnd_log.level_statement,'okl.plsql.okl_sec_agreement_pvt.activate_sec_agreement.debug', 'okl_contract_pub.update_contract_header x_return_status :' || x_return_status);
2777: END IF;
2778:
2779: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2780: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2781: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2782: RAISE OKL_API.G_EXCEPTION_ERROR;
2783: END IF;
2776: fnd_log.STRING(fnd_log.level_statement,'okl.plsql.okl_sec_agreement_pvt.activate_sec_agreement.debug', 'okl_contract_pub.update_contract_header x_return_status :' || x_return_status);
2777: END IF;
2778:
2779: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2780: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2781: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2782: RAISE OKL_API.G_EXCEPTION_ERROR;
2783: END IF;
2784:
2777: END IF;
2778:
2779: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2780: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2781: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2782: RAISE OKL_API.G_EXCEPTION_ERROR;
2783: END IF;
2784:
2785: END LOOP;
2778:
2779: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2780: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2781: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2782: RAISE OKL_API.G_EXCEPTION_ERROR;
2783: END IF;
2784:
2785: END LOOP;
2786: CLOSE c_pool_chr;
2807: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
2808: fnd_log.STRING(fnd_log.level_statement,'okl.plsql.okl_sec_agreement_pvt.activate_sec_agreement.debug', 'okl_stream_generator_pvt.generate_streams_for_IA x_return_status :' || x_return_status);
2809: END IF;
2810:
2811: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2812: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2813: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2814: RAISE OKL_API.G_EXCEPTION_ERROR;
2815: END IF;
2808: fnd_log.STRING(fnd_log.level_statement,'okl.plsql.okl_sec_agreement_pvt.activate_sec_agreement.debug', 'okl_stream_generator_pvt.generate_streams_for_IA x_return_status :' || x_return_status);
2809: END IF;
2810:
2811: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2812: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2813: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2814: RAISE OKL_API.G_EXCEPTION_ERROR;
2815: END IF;
2816: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
2809: END IF;
2810:
2811: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2812: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2813: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2814: RAISE OKL_API.G_EXCEPTION_ERROR;
2815: END IF;
2816: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
2817: fnd_log.STRING(fnd_log.level_statement,'okl.plsql.okl_sec_agreement_pvt.activate_sec_agreement.debug', '4 call Streams Generator API to generate streams for income and expense fees: END');
2810:
2811: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2812: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2813: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2814: RAISE OKL_API.G_EXCEPTION_ERROR;
2815: END IF;
2816: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
2817: fnd_log.STRING(fnd_log.level_statement,'okl.plsql.okl_sec_agreement_pvt.activate_sec_agreement.debug', '4 call Streams Generator API to generate streams for income and expense fees: END');
2818: END IF;
2840: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
2841: fnd_log.STRING(fnd_log.level_statement,'okl.plsql.okl_sec_agreement_pvt.activate_sec_agreement.debug', 'okl_stream_generator_pvt.create_disb_streams x_return_status :' || x_return_status);
2842: END IF;
2843:
2844: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2845: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2846: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2847: RAISE OKL_API.G_EXCEPTION_ERROR;
2848: END IF;
2841: fnd_log.STRING(fnd_log.level_statement,'okl.plsql.okl_sec_agreement_pvt.activate_sec_agreement.debug', 'okl_stream_generator_pvt.create_disb_streams x_return_status :' || x_return_status);
2842: END IF;
2843:
2844: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2845: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2846: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2847: RAISE OKL_API.G_EXCEPTION_ERROR;
2848: END IF;
2849: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
2842: END IF;
2843:
2844: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2845: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2846: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2847: RAISE OKL_API.G_EXCEPTION_ERROR;
2848: END IF;
2849: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
2850: fnd_log.STRING(fnd_log.level_statement,'okl.plsql.okl_sec_agreement_pvt.activate_sec_agreement.debug', '5 call Streams Generator API to generate disbursement basis streams: END');
2843:
2844: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2845: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2846: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2847: RAISE OKL_API.G_EXCEPTION_ERROR;
2848: END IF;
2849: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
2850: fnd_log.STRING(fnd_log.level_statement,'okl.plsql.okl_sec_agreement_pvt.activate_sec_agreement.debug', '5 call Streams Generator API to generate disbursement basis streams: END');
2851: END IF;
2870: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
2871: fnd_log.STRING(fnd_log.level_statement,'okl.plsql.okl_sec_agreement_pvt.activate_sec_agreement.debug', 'okl_stream_generator_pvt.create_pv_streams x_return_status :' || x_return_status);
2872: END IF;
2873:
2874: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2875: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2876: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2877: RAISE OKL_API.G_EXCEPTION_ERROR;
2878: END IF;
2871: fnd_log.STRING(fnd_log.level_statement,'okl.plsql.okl_sec_agreement_pvt.activate_sec_agreement.debug', 'okl_stream_generator_pvt.create_pv_streams x_return_status :' || x_return_status);
2872: END IF;
2873:
2874: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2875: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2876: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2877: RAISE OKL_API.G_EXCEPTION_ERROR;
2878: END IF;
2879: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
2872: END IF;
2873:
2874: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2875: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2876: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2877: RAISE OKL_API.G_EXCEPTION_ERROR;
2878: END IF;
2879: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
2880: fnd_log.STRING(fnd_log.level_statement,'okl.plsql.okl_sec_agreement_pvt.activate_sec_agreement.debug', '6 call Streams Generator API to generate PV Streams of Securitized Streams: END');
2873:
2874: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2875: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2876: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2877: RAISE OKL_API.G_EXCEPTION_ERROR;
2878: END IF;
2879: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
2880: fnd_log.STRING(fnd_log.level_statement,'okl.plsql.okl_sec_agreement_pvt.activate_sec_agreement.debug', '6 call Streams Generator API to generate PV Streams of Securitized Streams: END');
2881: END IF;
2911: fnd_log.STRING(fnd_log.level_statement,'okl.plsql.okl_sec_agreement_pvt.activate_sec_agreement.debug', 'okl_stream_generator_pvt.create_pv_streams p_khr_id:' || p_khr_id);
2912: fnd_log.STRING(fnd_log.level_statement,'okl.plsql.okl_sec_agreement_pvt.activate_sec_agreement.debug', 'okl_stream_generator_pvt.create_pv_streams x_return_status :' || x_return_status);
2913: END IF;
2914:
2915: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2916: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2917: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2918: RAISE OKL_API.G_EXCEPTION_ERROR;
2919: END IF;
2912: fnd_log.STRING(fnd_log.level_statement,'okl.plsql.okl_sec_agreement_pvt.activate_sec_agreement.debug', 'okl_stream_generator_pvt.create_pv_streams x_return_status :' || x_return_status);
2913: END IF;
2914:
2915: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2916: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2917: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2918: RAISE OKL_API.G_EXCEPTION_ERROR;
2919: END IF;
2920: -- Fixed Bug#3386816, mvasudev
2913: END IF;
2914:
2915: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2916: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2917: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2918: RAISE OKL_API.G_EXCEPTION_ERROR;
2919: END IF;
2920: -- Fixed Bug#3386816, mvasudev
2921: EXIT WHEN l_okl_sty_csr%FOUND;
2914:
2915: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2916: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2917: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2918: RAISE OKL_API.G_EXCEPTION_ERROR;
2919: END IF;
2920: -- Fixed Bug#3386816, mvasudev
2921: EXIT WHEN l_okl_sty_csr%FOUND;
2922: END LOOP;
2948: fnd_log.STRING(fnd_log.level_statement,'okl.plsql.okl_sec_agreement_pvt.activate_sec_agreement.debug', 'Okl_Investor_Billing_Pvt.create_investor_bill p_khr_id:' || p_khr_id);
2949: fnd_log.STRING(fnd_log.level_statement,'okl.plsql.okl_sec_agreement_pvt.activate_sec_agreement.debug', 'Okl_Investor_Billing_Pvt.create_investor_bill x_return_status :' || x_return_status);
2950: END IF;
2951:
2952: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2953: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2954: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2955: RAISE OKL_API.G_EXCEPTION_ERROR;
2956: END IF;
2949: fnd_log.STRING(fnd_log.level_statement,'okl.plsql.okl_sec_agreement_pvt.activate_sec_agreement.debug', 'Okl_Investor_Billing_Pvt.create_investor_bill x_return_status :' || x_return_status);
2950: END IF;
2951:
2952: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2953: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2954: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2955: RAISE OKL_API.G_EXCEPTION_ERROR;
2956: END IF;
2957:
2950: END IF;
2951:
2952: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2953: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2954: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2955: RAISE OKL_API.G_EXCEPTION_ERROR;
2956: END IF;
2957:
2958: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
2951:
2952: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2953: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2954: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2955: RAISE OKL_API.G_EXCEPTION_ERROR;
2956: END IF;
2957:
2958: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
2959: fnd_log.STRING(fnd_log.level_statement,'okl.plsql.okl_sec_agreement_pvt.activate_sec_agreement.debug', '8 call BPD Billing API: END');
2983: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
2984: fnd_log.STRING(fnd_log.level_statement,'okl.plsql.okl_sec_agreement_pvt.activate_sec_agreement.debug', 'Okl_Investor_Billing_Pvt.create_investor_bill x_return_status :' || x_return_status);
2985: END IF;
2986:
2987: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2988: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2989: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2990: RAISE OKL_API.G_EXCEPTION_ERROR;
2991: END IF;
2984: fnd_log.STRING(fnd_log.level_statement,'okl.plsql.okl_sec_agreement_pvt.activate_sec_agreement.debug', 'Okl_Investor_Billing_Pvt.create_investor_bill x_return_status :' || x_return_status);
2985: END IF;
2986:
2987: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2988: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2989: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2990: RAISE OKL_API.G_EXCEPTION_ERROR;
2991: END IF;
2992:
2985: END IF;
2986:
2987: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2988: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2989: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2990: RAISE OKL_API.G_EXCEPTION_ERROR;
2991: END IF;
2992:
2993: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
2986:
2987: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2988: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2989: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2990: RAISE OKL_API.G_EXCEPTION_ERROR;
2991: END IF;
2992:
2993: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
2994: fnd_log.STRING(fnd_log.level_statement,'okl.plsql.okl_sec_agreement_pvt.activate_sec_agreement.debug', '9 call to the generate_journal_entries: END');
3018: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
3019: fnd_log.STRING(fnd_log.level_statement,'okl.plsql.okl_sec_agreement_pvt.activate_sec_agreement.debug', 'Okl_Sec_Agreement_Pvt.update_sec_agreement_sts x_return_status :' || x_return_status);
3020: END IF;
3021:
3022: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3023: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3024: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3025: RAISE OKL_API.G_EXCEPTION_ERROR;
3026: END IF;
3019: fnd_log.STRING(fnd_log.level_statement,'okl.plsql.okl_sec_agreement_pvt.activate_sec_agreement.debug', 'Okl_Sec_Agreement_Pvt.update_sec_agreement_sts x_return_status :' || x_return_status);
3020: END IF;
3021:
3022: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3023: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3024: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3025: RAISE OKL_API.G_EXCEPTION_ERROR;
3026: END IF;
3027:
3020: END IF;
3021:
3022: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3023: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3024: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3025: RAISE OKL_API.G_EXCEPTION_ERROR;
3026: END IF;
3027:
3028: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
3021:
3022: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3023: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3024: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3025: RAISE OKL_API.G_EXCEPTION_ERROR;
3026: END IF;
3027:
3028: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
3029: fnd_log.STRING(fnd_log.level_statement,'okl.plsql.okl_sec_agreement_pvt.activate_sec_agreement.debug', '10 call update_sec_agreement_sts to update agreement header, lines: END');
3049: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
3050: fnd_log.STRING(fnd_log.level_statement,'okl.plsql.okl_sec_agreement_pvt.activate_sec_agreement.debug', 'OKL_POOL_PVT.update_pool_status_active x_return_status :' || x_return_status);
3051: END IF;
3052:
3053: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3054: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3055: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3056: RAISE OKL_API.G_EXCEPTION_ERROR;
3057: END IF;
3050: fnd_log.STRING(fnd_log.level_statement,'okl.plsql.okl_sec_agreement_pvt.activate_sec_agreement.debug', 'OKL_POOL_PVT.update_pool_status_active x_return_status :' || x_return_status);
3051: END IF;
3052:
3053: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3054: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3055: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3056: RAISE OKL_API.G_EXCEPTION_ERROR;
3057: END IF;
3058:
3051: END IF;
3052:
3053: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3054: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3055: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3056: RAISE OKL_API.G_EXCEPTION_ERROR;
3057: END IF;
3058:
3059: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
3052:
3053: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3054: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3055: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3056: RAISE OKL_API.G_EXCEPTION_ERROR;
3057: END IF;
3058:
3059: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
3060: fnd_log.STRING(fnd_log.level_statement,'okl.plsql.okl_sec_agreement_pvt.activate_sec_agreement.debug', '11 update pool header and contents status to active: END');
3069: (p_count => x_msg_count,
3070: p_data => x_msg_data);
3071:
3072: EXCEPTION
3073: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3074: ROLLBACK TO activate_sec_agreement_PVT;
3075: x_return_status := OKL_API.G_RET_STS_ERROR;
3076: FND_MSG_PUB.Count_And_Get
3077: (p_count => x_msg_count,
3071:
3072: EXCEPTION
3073: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3074: ROLLBACK TO activate_sec_agreement_PVT;
3075: x_return_status := OKL_API.G_RET_STS_ERROR;
3076: FND_MSG_PUB.Count_And_Get
3077: (p_count => x_msg_count,
3078: p_data => x_msg_data);
3079:
3076: FND_MSG_PUB.Count_And_Get
3077: (p_count => x_msg_count,
3078: p_data => x_msg_data);
3079:
3080: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3081: ROLLBACK TO activate_sec_agreement_PVT;
3082: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
3083: FND_MSG_PUB.Count_And_Get
3084: (p_count => x_msg_count,
3078: p_data => x_msg_data);
3079:
3080: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3081: ROLLBACK TO activate_sec_agreement_PVT;
3082: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
3083: FND_MSG_PUB.Count_And_Get
3084: (p_count => x_msg_count,
3085: p_data => x_msg_data);
3086:
3085: p_data => x_msg_data);
3086:
3087: WHEN OTHERS THEN
3088: ROLLBACK TO activate_sec_agreement_PVT;
3089: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
3090: OKL_API.Set_Message(p_app_name => G_APP_NAME,
3091: p_msg_name => G_UNEXPECTED_ERROR,
3092: p_token1 => G_SQLCODE_TOKEN,
3093: p_token1_value => SQLCODE,
3086:
3087: WHEN OTHERS THEN
3088: ROLLBACK TO activate_sec_agreement_PVT;
3089: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
3090: OKL_API.Set_Message(p_app_name => G_APP_NAME,
3091: p_msg_name => G_UNEXPECTED_ERROR,
3092: p_token1 => G_SQLCODE_TOKEN,
3093: p_token1_value => SQLCODE,
3094: p_token2 => G_SQLERRM_TOKEN,
3110: -- End of comments
3111: ----------------------------------------------------------------------------------
3112: PROCEDURE update_sec_agreement_sts(
3113: p_api_version IN NUMBER
3114: ,p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE
3115: ,x_return_status OUT NOCOPY VARCHAR2
3116: ,x_msg_count OUT NOCOPY NUMBER
3117: ,x_msg_data OUT NOCOPY VARCHAR2
3118: ,p_sec_agreement_status IN okc_k_headers_b.sts_code%TYPE
3123: i NUMBER;
3124: l_kle_id OKC_K_LINES_B.ID%TYPE;
3125: l_chr_id OKC_K_HEADERS_B.ID%TYPE;
3126:
3127: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
3128:
3129: lp_secagreement_rec secagreement_rec_type;
3130: lx_secagreement_rec secagreement_rec_type;
3131: l_row_found BOOLEAN := FALSE;
3163: p_api_version,
3164: l_api_name,
3165: G_PKG_NAME ))
3166: THEN
3167: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3168: END IF;
3169:
3170: -- Initialize message list if requested
3171: IF (FND_API.to_Boolean(p_init_msg_list)) THEN
3172: FND_MSG_PUB.initialize;
3173: END IF;
3174:
3175: -- Initialize API status to success
3176: x_return_status := OKL_API.G_RET_STS_SUCCESS;
3177:
3178:
3179: /*** Begin API body ****************************************************/
3180: ----------------------------------------------------------------------------
3194: x_msg_data => x_msg_data,
3195: p_secagreement_rec => lp_secagreement_rec,
3196: x_secagreement_rec => lx_secagreement_rec);
3197:
3198: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3199: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3200: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3201: RAISE OKL_API.G_EXCEPTION_ERROR;
3202: END IF;
3195: p_secagreement_rec => lp_secagreement_rec,
3196: x_secagreement_rec => lx_secagreement_rec);
3197:
3198: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3199: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3200: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3201: RAISE OKL_API.G_EXCEPTION_ERROR;
3202: END IF;
3203: --dbms_output.put_line('OKL_SEC_AGREEMENT_PVT.update_sec_agreement end');
3196: x_secagreement_rec => lx_secagreement_rec);
3197:
3198: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3199: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3200: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3201: RAISE OKL_API.G_EXCEPTION_ERROR;
3202: END IF;
3203: --dbms_output.put_line('OKL_SEC_AGREEMENT_PVT.update_sec_agreement end');
3204:
3197:
3198: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3199: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3200: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3201: RAISE OKL_API.G_EXCEPTION_ERROR;
3202: END IF;
3203: --dbms_output.put_line('OKL_SEC_AGREEMENT_PVT.update_sec_agreement end');
3204:
3205: ----------------------------------------------------------------------------
3231: p_klev_rec => lp_klev_rec,
3232: x_clev_rec => lx_clev_rec,
3233: x_klev_rec => lx_klev_rec);
3234:
3235: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3236: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3237: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3238: RAISE OKL_API.G_EXCEPTION_ERROR;
3239: END IF;
3232: x_clev_rec => lx_clev_rec,
3233: x_klev_rec => lx_klev_rec);
3234:
3235: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3236: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3237: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3238: RAISE OKL_API.G_EXCEPTION_ERROR;
3239: END IF;
3240:
3233: x_klev_rec => lx_klev_rec);
3234:
3235: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3236: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3237: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3238: RAISE OKL_API.G_EXCEPTION_ERROR;
3239: END IF;
3240:
3241: END LOOP;
3234:
3235: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3236: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3237: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3238: RAISE OKL_API.G_EXCEPTION_ERROR;
3239: END IF;
3240:
3241: END LOOP;
3242: CLOSE c_agr_lns;
3249: (p_count => x_msg_count,
3250: p_data => x_msg_data);
3251:
3252: EXCEPTION
3253: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3254: ROLLBACK TO update_sec_agreement_sts_PVT;
3255: x_return_status := OKL_API.G_RET_STS_ERROR;
3256: FND_MSG_PUB.Count_And_Get
3257: (p_count => x_msg_count,
3251:
3252: EXCEPTION
3253: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3254: ROLLBACK TO update_sec_agreement_sts_PVT;
3255: x_return_status := OKL_API.G_RET_STS_ERROR;
3256: FND_MSG_PUB.Count_And_Get
3257: (p_count => x_msg_count,
3258: p_data => x_msg_data);
3259:
3256: FND_MSG_PUB.Count_And_Get
3257: (p_count => x_msg_count,
3258: p_data => x_msg_data);
3259:
3260: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3261: ROLLBACK TO update_sec_agreement_sts_PVT;
3262: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
3263: FND_MSG_PUB.Count_And_Get
3264: (p_count => x_msg_count,
3258: p_data => x_msg_data);
3259:
3260: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3261: ROLLBACK TO update_sec_agreement_sts_PVT;
3262: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
3263: FND_MSG_PUB.Count_And_Get
3264: (p_count => x_msg_count,
3265: p_data => x_msg_data);
3266:
3265: p_data => x_msg_data);
3266:
3267: WHEN OTHERS THEN
3268: ROLLBACK TO update_sec_agreement_sts_PVT;
3269: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
3270: OKL_API.Set_Message(p_app_name => G_APP_NAME,
3271: p_msg_name => G_UNEXPECTED_ERROR,
3272: p_token1 => G_SQLCODE_TOKEN,
3273: p_token1_value => SQLCODE,
3266:
3267: WHEN OTHERS THEN
3268: ROLLBACK TO update_sec_agreement_sts_PVT;
3269: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
3270: OKL_API.Set_Message(p_app_name => G_APP_NAME,
3271: p_msg_name => G_UNEXPECTED_ERROR,
3272: p_token1 => G_SQLCODE_TOKEN,
3273: p_token1_value => SQLCODE,
3274: p_token2 => G_SQLERRM_TOKEN,
3307: x_reconciled VARCHAR2(1);
3308:
3309: BEGIN
3310: -- initialize return status
3311: x_return_status := OKL_API.G_RET_STS_SUCCESS;
3312:
3313:
3314: x_return_status := OKL_API.START_ACTIVITY(
3315: p_api_name => l_api_name,
3310: -- initialize return status
3311: x_return_status := OKL_API.G_RET_STS_SUCCESS;
3312:
3313:
3314: x_return_status := OKL_API.START_ACTIVITY(
3315: p_api_name => l_api_name,
3316: p_pkg_name => g_pkg_name,
3317: p_init_msg_list => p_init_msg_list,
3318: l_api_version => l_api_version,
3320: p_api_type => G_API_TYPE,
3321: x_return_status => x_return_status);
3322:
3323: -- check if activity started successfully
3324: If (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
3325: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3326: ElSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
3327: raise OKL_API.G_EXCEPTION_ERROR;
3328: End If;
3321: x_return_status => x_return_status);
3322:
3323: -- check if activity started successfully
3324: If (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
3325: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3326: ElSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
3327: raise OKL_API.G_EXCEPTION_ERROR;
3328: End If;
3329:
3322:
3323: -- check if activity started successfully
3324: If (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
3325: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3326: ElSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
3327: raise OKL_API.G_EXCEPTION_ERROR;
3328: End If;
3329:
3330: FOR get_pol_id_rec IN get_pol_id_csr(p_chr_id)
3323: -- check if activity started successfully
3324: If (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
3325: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3326: ElSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
3327: raise OKL_API.G_EXCEPTION_ERROR;
3328: End If;
3329:
3330: FOR get_pol_id_rec IN get_pol_id_csr(p_chr_id)
3331: LOOP
3333: END LOOP;
3334:
3335: IF l_pol_id IS NULL
3336: THEN
3337: Okl_Api.set_message(G_APP_NAME,
3338: G_INVALID_VALUE,
3339: G_COL_NAME_TOKEN,
3340: 'POOL_ID');
3341: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3337: Okl_Api.set_message(G_APP_NAME,
3338: G_INVALID_VALUE,
3339: G_COL_NAME_TOKEN,
3340: 'POOL_ID');
3341: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3342: END IF;
3343:
3344: OKL_POOL_PVT.get_tot_recei_amt_pend(
3345: p_api_version => '1.0',
3350: x_value => l_stream_value,
3351: p_pol_id => l_pol_id );
3352:
3353: If( l_stream_value IS NULL OR l_stream_value = 0 ) Then
3354: OKL_API.set_message(
3355: p_app_name => G_APP_NAME,
3356: p_msg_name => 'OKL_QA_STREAM_VALUE');
3357: -- notify caller of an error but do not raise an exception
3358: x_return_status := OKL_API.G_RET_STS_ERROR;
3354: OKL_API.set_message(
3355: p_app_name => G_APP_NAME,
3356: p_msg_name => 'OKL_QA_STREAM_VALUE');
3357: -- notify caller of an error but do not raise an exception
3358: x_return_status := OKL_API.G_RET_STS_ERROR;
3359: END IF;
3360:
3361: --Check to see if the pool recquires reconcilation
3362: OKL_POOL_PVT.reconcile_contents(
3368: p_pol_id => l_pol_id,
3369: p_mode => 'ACTIVE',
3370: x_reconciled => x_reconciled );
3371:
3372: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3373: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3374: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3375: RAISE OKL_API.G_EXCEPTION_ERROR;
3376: END IF;
3369: p_mode => 'ACTIVE',
3370: x_reconciled => x_reconciled );
3371:
3372: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3373: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3374: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3375: RAISE OKL_API.G_EXCEPTION_ERROR;
3376: END IF;
3377:
3370: x_reconciled => x_reconciled );
3371:
3372: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3373: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3374: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3375: RAISE OKL_API.G_EXCEPTION_ERROR;
3376: END IF;
3377:
3378: IF ( x_reconciled = OKL_API.G_TRUE ) Then
3371:
3372: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3373: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3374: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3375: RAISE OKL_API.G_EXCEPTION_ERROR;
3376: END IF;
3377:
3378: IF ( x_reconciled = OKL_API.G_TRUE ) Then
3379: x_return_status := OKL_API.G_RET_STS_ERROR;
3374: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3375: RAISE OKL_API.G_EXCEPTION_ERROR;
3376: END IF;
3377:
3378: IF ( x_reconciled = OKL_API.G_TRUE ) Then
3379: x_return_status := OKL_API.G_RET_STS_ERROR;
3380: -- OKL_API.set_message(
3381: -- p_app_name => G_APP_NAME,
3382: -- p_msg_name => 'OKL_LLA_RECONCILED');
3375: RAISE OKL_API.G_EXCEPTION_ERROR;
3376: END IF;
3377:
3378: IF ( x_reconciled = OKL_API.G_TRUE ) Then
3379: x_return_status := OKL_API.G_RET_STS_ERROR;
3380: -- OKL_API.set_message(
3381: -- p_app_name => G_APP_NAME,
3382: -- p_msg_name => 'OKL_LLA_RECONCILED');
3383: raise OKL_API.G_EXCEPTION_ERROR;
3376: END IF;
3377:
3378: IF ( x_reconciled = OKL_API.G_TRUE ) Then
3379: x_return_status := OKL_API.G_RET_STS_ERROR;
3380: -- OKL_API.set_message(
3381: -- p_app_name => G_APP_NAME,
3382: -- p_msg_name => 'OKL_LLA_RECONCILED');
3383: raise OKL_API.G_EXCEPTION_ERROR;
3384: End If;
3379: x_return_status := OKL_API.G_RET_STS_ERROR;
3380: -- OKL_API.set_message(
3381: -- p_app_name => G_APP_NAME,
3382: -- p_msg_name => 'OKL_LLA_RECONCILED');
3383: raise OKL_API.G_EXCEPTION_ERROR;
3384: End If;
3385:
3386: x_return_status := OKL_API.G_RET_STS_SUCCESS;
3387:
3382: -- p_msg_name => 'OKL_LLA_RECONCILED');
3383: raise OKL_API.G_EXCEPTION_ERROR;
3384: End If;
3385:
3386: x_return_status := OKL_API.G_RET_STS_SUCCESS;
3387:
3388: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
3389:
3390:
3384: End If;
3385:
3386: x_return_status := OKL_API.G_RET_STS_SUCCESS;
3387:
3388: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
3389:
3390:
3391: EXCEPTION
3392: when OKL_API.G_EXCEPTION_ERROR then
3388: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
3389:
3390:
3391: EXCEPTION
3392: when OKL_API.G_EXCEPTION_ERROR then
3393: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
3394: p_api_name => l_api_name,
3395: p_pkg_name => g_pkg_name,
3396: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
3389:
3390:
3391: EXCEPTION
3392: when OKL_API.G_EXCEPTION_ERROR then
3393: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
3394: p_api_name => l_api_name,
3395: p_pkg_name => g_pkg_name,
3396: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
3397: x_msg_count => x_msg_count,
3392: when OKL_API.G_EXCEPTION_ERROR then
3393: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
3394: p_api_name => l_api_name,
3395: p_pkg_name => g_pkg_name,
3396: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
3397: x_msg_count => x_msg_count,
3398: x_msg_data => x_msg_data,
3399: p_api_type => g_api_type);
3400:
3397: x_msg_count => x_msg_count,
3398: x_msg_data => x_msg_data,
3399: p_api_type => g_api_type);
3400:
3401: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
3402: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
3403: p_api_name => l_api_name,
3404: p_pkg_name => g_pkg_name,
3405: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
3398: x_msg_data => x_msg_data,
3399: p_api_type => g_api_type);
3400:
3401: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
3402: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
3403: p_api_name => l_api_name,
3404: p_pkg_name => g_pkg_name,
3405: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
3406: x_msg_count => x_msg_count,
3401: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
3402: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
3403: p_api_name => l_api_name,
3404: p_pkg_name => g_pkg_name,
3405: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
3406: x_msg_count => x_msg_count,
3407: x_msg_data => x_msg_data,
3408: p_api_type => g_api_type);
3409:
3407: x_msg_data => x_msg_data,
3408: p_api_type => g_api_type);
3409:
3410: when OTHERS then
3411: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
3412: p_api_name => l_api_name,
3413: p_pkg_name => g_pkg_name,
3414: p_exc_name => 'OTHERS',
3415: x_msg_count => x_msg_count,
3439: l_chr_id OKC_K_HEADERS_B.ID%TYPE;
3440:
3441: l_pox_id OKL_POOL_CONTENTS.POX_ID%TYPE;
3442: l_poc_id OKL_POOL_CONTENTS.ID%TYPE;
3443: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
3444:
3445: lp_chrv_rec OKL_OKC_MIGRATION_PVT.chrv_rec_type;
3446: lx_chrv_rec OKL_OKC_MIGRATION_PVT.chrv_rec_type;
3447: lp_khrv_rec OKL_CONTRACT_PUB.khrv_rec_type;
3534: p_api_version,
3535: l_api_name,
3536: G_PKG_NAME ))
3537: THEN
3538: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3539: END IF;
3540:
3541: -- Initialize message list if requested
3542: IF (FND_API.to_Boolean(p_init_msg_list)) THEN
3543: FND_MSG_PUB.initialize;
3544: END IF;
3545:
3546: -- Initialize API status to success
3547: x_return_status := OKL_API.G_RET_STS_SUCCESS;
3548:
3549: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
3550: fnd_log.STRING(fnd_log.level_statement,'okl.plsql.okl_sec_agreement_pvt.activate_add_request.debug', 'Begin Processing Add Request');
3551: fnd_log.STRING(fnd_log.level_statement,'okl.plsql.okl_sec_agreement_pvt.activate_add_request.debug','p_khr_id:'|| p_khr_id);
3580: END LOOP;
3581:
3582: IF l_pol_id IS NULL
3583: THEN
3584: Okl_Api.set_message(G_APP_NAME,
3585: G_INVALID_VALUE,
3586: G_COL_NAME_TOKEN,
3587: 'POOL_ID');
3588: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3584: Okl_Api.set_message(G_APP_NAME,
3585: G_INVALID_VALUE,
3586: G_COL_NAME_TOKEN,
3587: 'POOL_ID');
3588: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3589: END IF;
3590:
3591: --Fetch the transaction id of the Pool Transaction
3592: FOR get_pox_rec IN get_pox_csr(l_pol_id)
3595: END LOOP;
3596:
3597: IF l_pox_id IS NULL
3598: THEN
3599: Okl_Api.set_message(G_APP_NAME,
3600: G_INVALID_VALUE,
3601: G_COL_NAME_TOKEN,
3602: 'POX_ID');
3603: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3599: Okl_Api.set_message(G_APP_NAME,
3600: G_INVALID_VALUE,
3601: G_COL_NAME_TOKEN,
3602: 'POX_ID');
3603: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3604: END IF;
3605:
3606: validate_add_request(
3607: p_api_version => p_api_version,
3614: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
3615: fnd_log.STRING(fnd_log.level_statement,'okl.plsql.okl_sec_agreement_pvt.activate_add_request.debug', 'validate_add_request x_return_status :' || x_return_status);
3616: END IF;
3617:
3618: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
3619: --Update the status of the Pool Transaction to INCOMPLETE and Halt processing
3620: lp_poxv_rec.id := l_pox_id;
3621: lp_poxv_rec.TRANSACTION_STATUS := G_POOL_TRX_STATUS_INCOMPLETE;
3622:
3627: x_msg_data => x_msg_data,
3628: p_poxv_rec => lp_poxv_rec,
3629: x_poxv_rec => lx_poxv_rec);
3630:
3631: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3632: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3633: ELSIF (x_return_Status = OKL_API.G_RET_STS_ERROR) THEN
3634: RAISE OKL_API.G_EXCEPTION_ERROR;
3635: END IF;
3628: p_poxv_rec => lp_poxv_rec,
3629: x_poxv_rec => lx_poxv_rec);
3630:
3631: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3632: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3633: ELSIF (x_return_Status = OKL_API.G_RET_STS_ERROR) THEN
3634: RAISE OKL_API.G_EXCEPTION_ERROR;
3635: END IF;
3636:
3629: x_poxv_rec => lx_poxv_rec);
3630:
3631: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3632: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3633: ELSIF (x_return_Status = OKL_API.G_RET_STS_ERROR) THEN
3634: RAISE OKL_API.G_EXCEPTION_ERROR;
3635: END IF;
3636:
3637: --Stop submit processing
3630:
3631: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3632: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3633: ELSIF (x_return_Status = OKL_API.G_RET_STS_ERROR) THEN
3634: RAISE OKL_API.G_EXCEPTION_ERROR;
3635: END IF;
3636:
3637: --Stop submit processing
3638: RAISE G_HALT_PROCESSING;
3674: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
3675: fnd_log.STRING(fnd_log.level_statement,'okl.plsql.okl_sec_agreement_pvt.activate_add_request.debug', 'okl_contract_pub.update_contract_header x_return_status :' || x_return_status);
3676: END IF;
3677:
3678: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3679: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3680: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3681: RAISE OKL_API.G_EXCEPTION_ERROR;
3682: END IF;
3675: fnd_log.STRING(fnd_log.level_statement,'okl.plsql.okl_sec_agreement_pvt.activate_add_request.debug', 'okl_contract_pub.update_contract_header x_return_status :' || x_return_status);
3676: END IF;
3677:
3678: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3679: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3680: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3681: RAISE OKL_API.G_EXCEPTION_ERROR;
3682: END IF;
3683:
3676: END IF;
3677:
3678: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3679: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3680: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3681: RAISE OKL_API.G_EXCEPTION_ERROR;
3682: END IF;
3683:
3684: END LOOP;
3677:
3678: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3679: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3680: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3681: RAISE OKL_API.G_EXCEPTION_ERROR;
3682: END IF;
3683:
3684: END LOOP;
3685: CLOSE c_pool_chr_csr;
3711: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
3712: fnd_log.STRING(fnd_log.level_statement,'okl.plsql.okl_sec_agreement_pvt.activate_add_request.debug', 'okl_stream_generator_pvt.create_disb_streams x_return_status :' || x_return_status);
3713: END IF;
3714:
3715: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3716: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3717: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3718: RAISE OKL_API.G_EXCEPTION_ERROR;
3719: END IF;
3712: fnd_log.STRING(fnd_log.level_statement,'okl.plsql.okl_sec_agreement_pvt.activate_add_request.debug', 'okl_stream_generator_pvt.create_disb_streams x_return_status :' || x_return_status);
3713: END IF;
3714:
3715: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3716: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3717: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3718: RAISE OKL_API.G_EXCEPTION_ERROR;
3719: END IF;
3720:
3713: END IF;
3714:
3715: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3716: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3717: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3718: RAISE OKL_API.G_EXCEPTION_ERROR;
3719: END IF;
3720:
3721: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
3714:
3715: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3716: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3717: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3718: RAISE OKL_API.G_EXCEPTION_ERROR;
3719: END IF;
3720:
3721: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
3722: fnd_log.STRING(fnd_log.level_statement,'okl.plsql.okl_sec_agreement_pvt.activate_add_request.debug', '3 call Streams Generator API to generate disbursement basis streams: END');
3745: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
3746: fnd_log.STRING(fnd_log.level_statement,'okl.plsql.okl_sec_agreement_pvt.activate_add_request.debug', 'okl_stream_generator_pvt.create_pv_streams x_return_status :' || x_return_status);
3747: END IF;
3748:
3749: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3750: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3751: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3752: RAISE OKL_API.G_EXCEPTION_ERROR;
3753: END IF;
3746: fnd_log.STRING(fnd_log.level_statement,'okl.plsql.okl_sec_agreement_pvt.activate_add_request.debug', 'okl_stream_generator_pvt.create_pv_streams x_return_status :' || x_return_status);
3747: END IF;
3748:
3749: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3750: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3751: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3752: RAISE OKL_API.G_EXCEPTION_ERROR;
3753: END IF;
3754:
3747: END IF;
3748:
3749: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3750: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3751: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3752: RAISE OKL_API.G_EXCEPTION_ERROR;
3753: END IF;
3754:
3755: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
3748:
3749: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3750: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3751: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3752: RAISE OKL_API.G_EXCEPTION_ERROR;
3753: END IF;
3754:
3755: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
3756: fnd_log.STRING(fnd_log.level_statement,'okl.plsql.okl_sec_agreement_pvt.activate_add_request.debug', '4 call Streams Generator API to generate PV Streams of Securitized Streams: END');
3785: fnd_log.STRING(fnd_log.level_statement,'okl.plsql.okl_sec_agreement_pvt.activate_add_request.debug', 'okl_stream_generator_pvt.create_pv_streams p_khr_id:' || p_khr_id);
3786: fnd_log.STRING(fnd_log.level_statement,'okl.plsql.okl_sec_agreement_pvt.activate_add_request.debug', 'okl_stream_generator_pvt.create_pv_streams x_return_status :' || x_return_status);
3787: END IF;
3788:
3789: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3790: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3791: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3792: RAISE OKL_API.G_EXCEPTION_ERROR;
3793: END IF;
3786: fnd_log.STRING(fnd_log.level_statement,'okl.plsql.okl_sec_agreement_pvt.activate_add_request.debug', 'okl_stream_generator_pvt.create_pv_streams x_return_status :' || x_return_status);
3787: END IF;
3788:
3789: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3790: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3791: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3792: RAISE OKL_API.G_EXCEPTION_ERROR;
3793: END IF;
3794: -- Fixed Bug#3386816, mvasudev
3787: END IF;
3788:
3789: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3790: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3791: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3792: RAISE OKL_API.G_EXCEPTION_ERROR;
3793: END IF;
3794: -- Fixed Bug#3386816, mvasudev
3795: EXIT WHEN l_okl_sty_csr%FOUND;
3788:
3789: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3790: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3791: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3792: RAISE OKL_API.G_EXCEPTION_ERROR;
3793: END IF;
3794: -- Fixed Bug#3386816, mvasudev
3795: EXIT WHEN l_okl_sty_csr%FOUND;
3796: END LOOP;
3820: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
3821: fnd_log.STRING(fnd_log.level_statement,'okl.plsql.okl_sec_agreement_pvt.activate_add_request.debug', 'generate_journal_entries x_return_status :' || x_return_status);
3822: END IF;
3823:
3824: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3825: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3826: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3827: RAISE OKL_API.G_EXCEPTION_ERROR;
3828: END IF;
3821: fnd_log.STRING(fnd_log.level_statement,'okl.plsql.okl_sec_agreement_pvt.activate_add_request.debug', 'generate_journal_entries x_return_status :' || x_return_status);
3822: END IF;
3823:
3824: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3825: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3826: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3827: RAISE OKL_API.G_EXCEPTION_ERROR;
3828: END IF;
3829:
3822: END IF;
3823:
3824: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3825: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3826: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3827: RAISE OKL_API.G_EXCEPTION_ERROR;
3828: END IF;
3829:
3830: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
3823:
3824: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3825: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3826: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3827: RAISE OKL_API.G_EXCEPTION_ERROR;
3828: END IF;
3829:
3830: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
3831: fnd_log.STRING(fnd_log.level_statement,'okl.plsql.okl_sec_agreement_pvt.activate_add_request.debug', '6 call to the generate_journal_entries: END');
3852: fnd_log.STRING(fnd_log.level_statement,'okl.plsql.okl_sec_agreement_pvt.activate_add_request.debug', 'Okl_Investor_Billing_Pvt.create_investor_bill p_khr_id:' || p_khr_id);
3853: fnd_log.STRING(fnd_log.level_statement,'okl.plsql.okl_sec_agreement_pvt.activate_add_request.debug', 'Okl_Investor_Billing_Pvt.create_investor_bill x_return_status :' || x_return_status);
3854: END IF;
3855:
3856: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3857: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3858: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3859: RAISE OKL_API.G_EXCEPTION_ERROR;
3860: END IF;
3853: fnd_log.STRING(fnd_log.level_statement,'okl.plsql.okl_sec_agreement_pvt.activate_add_request.debug', 'Okl_Investor_Billing_Pvt.create_investor_bill x_return_status :' || x_return_status);
3854: END IF;
3855:
3856: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3857: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3858: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3859: RAISE OKL_API.G_EXCEPTION_ERROR;
3860: END IF;
3861:
3854: END IF;
3855:
3856: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3857: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3858: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3859: RAISE OKL_API.G_EXCEPTION_ERROR;
3860: END IF;
3861:
3862: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
3855:
3856: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3857: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3858: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3859: RAISE OKL_API.G_EXCEPTION_ERROR;
3860: END IF;
3861:
3862: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
3863: fnd_log.STRING(fnd_log.level_statement,'okl.plsql.okl_sec_agreement_pvt.activate_add_request.debug', '7 call BPD Billing API: END');
3891: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
3892: fnd_log.STRING(fnd_log.level_statement,'okl.plsql.okl_sec_agreement_pvt.activate_add_request.debug', 'Okl_Sec_Investor_Pvt.update_investor' || x_return_status);
3893: END IF;
3894:
3895: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3896: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3897: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3898: RAISE OKL_API.G_EXCEPTION_ERROR;
3899: END IF;
3892: fnd_log.STRING(fnd_log.level_statement,'okl.plsql.okl_sec_agreement_pvt.activate_add_request.debug', 'Okl_Sec_Investor_Pvt.update_investor' || x_return_status);
3893: END IF;
3894:
3895: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3896: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3897: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3898: RAISE OKL_API.G_EXCEPTION_ERROR;
3899: END IF;
3900: END IF;
3893: END IF;
3894:
3895: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3896: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3897: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3898: RAISE OKL_API.G_EXCEPTION_ERROR;
3899: END IF;
3900: END IF;
3901: END LOOP;
3894:
3895: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3896: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3897: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3898: RAISE OKL_API.G_EXCEPTION_ERROR;
3899: END IF;
3900: END IF;
3901: END LOOP;
3902:
3930: fnd_log.STRING(fnd_log.level_statement,'okl.plsql.okl_sec_agreement_pvt.activate_add_request.debug', 'OKL_POOL_PVT.update_pool_status_active x_return_status :' || x_return_status);
3931: END IF;
3932:
3933:
3934: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
3935: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3936: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
3937: RAISE Okl_Api.G_EXCEPTION_ERROR;
3938: END IF;
3931: END IF;
3932:
3933:
3934: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
3935: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3936: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
3937: RAISE Okl_Api.G_EXCEPTION_ERROR;
3938: END IF;
3939: END LOOP;
3932:
3933:
3934: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
3935: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3936: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
3937: RAISE Okl_Api.G_EXCEPTION_ERROR;
3938: END IF;
3939: END LOOP;
3940:
3933:
3934: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
3935: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3936: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
3937: RAISE Okl_Api.G_EXCEPTION_ERROR;
3938: END IF;
3939: END LOOP;
3940:
3941:
3955: x_msg_data => x_msg_data,
3956: p_poxv_rec => lp_poxv_rec,
3957: x_poxv_rec => lx_poxv_rec);
3958:
3959: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3960: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3961: ELSIF (x_return_Status = OKL_API.G_RET_STS_ERROR) THEN
3962: RAISE OKL_API.G_EXCEPTION_ERROR;
3963: END IF;
3956: p_poxv_rec => lp_poxv_rec,
3957: x_poxv_rec => lx_poxv_rec);
3958:
3959: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3960: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3961: ELSIF (x_return_Status = OKL_API.G_RET_STS_ERROR) THEN
3962: RAISE OKL_API.G_EXCEPTION_ERROR;
3963: END IF;
3964:
3957: x_poxv_rec => lx_poxv_rec);
3958:
3959: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3960: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3961: ELSIF (x_return_Status = OKL_API.G_RET_STS_ERROR) THEN
3962: RAISE OKL_API.G_EXCEPTION_ERROR;
3963: END IF;
3964:
3965:
3958:
3959: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3960: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3961: ELSIF (x_return_Status = OKL_API.G_RET_STS_ERROR) THEN
3962: RAISE OKL_API.G_EXCEPTION_ERROR;
3963: END IF;
3964:
3965:
3966: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
3966: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
3967: fnd_log.STRING(fnd_log.level_statement,'okl.plsql.okl_sec_agreement_pvt.activate_add_request.debug', 'OKL_POOL_PVT.update_pool_transaction x_return_status :' || x_return_status);
3968: END IF;
3969:
3970: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3971: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3972: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3973: RAISE OKL_API.G_EXCEPTION_ERROR;
3974: END IF;
3967: fnd_log.STRING(fnd_log.level_statement,'okl.plsql.okl_sec_agreement_pvt.activate_add_request.debug', 'OKL_POOL_PVT.update_pool_transaction x_return_status :' || x_return_status);
3968: END IF;
3969:
3970: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3971: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3972: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3973: RAISE OKL_API.G_EXCEPTION_ERROR;
3974: END IF;
3975:
3968: END IF;
3969:
3970: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3971: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3972: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3973: RAISE OKL_API.G_EXCEPTION_ERROR;
3974: END IF;
3975:
3976: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
3969:
3970: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3971: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3972: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3973: RAISE OKL_API.G_EXCEPTION_ERROR;
3974: END IF;
3975:
3976: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
3977: fnd_log.STRING(fnd_log.level_statement,'okl.plsql.okl_sec_agreement_pvt.activate_add_request.debug', 'Update investor stake');
3986:
3987: EXCEPTION
3988: --For this User defined exception, do not rollback
3989: WHEN G_HALT_PROCESSING THEN
3990: x_return_status := OKL_API.G_RET_STS_ERROR;
3991: FND_MSG_PUB.Count_And_Get
3992: (p_count => x_msg_count,
3993: p_data => x_msg_data);
3994:
3991: FND_MSG_PUB.Count_And_Get
3992: (p_count => x_msg_count,
3993: p_data => x_msg_data);
3994:
3995: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3996: ROLLBACK TO activate_add_request_pvt;
3997: x_return_status := OKL_API.G_RET_STS_ERROR;
3998: FND_MSG_PUB.Count_And_Get
3999: (p_count => x_msg_count,
3993: p_data => x_msg_data);
3994:
3995: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3996: ROLLBACK TO activate_add_request_pvt;
3997: x_return_status := OKL_API.G_RET_STS_ERROR;
3998: FND_MSG_PUB.Count_And_Get
3999: (p_count => x_msg_count,
4000: p_data => x_msg_data);
4001:
3998: FND_MSG_PUB.Count_And_Get
3999: (p_count => x_msg_count,
4000: p_data => x_msg_data);
4001:
4002: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4003: ROLLBACK TO activate_add_request_pvt;
4004: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
4005: FND_MSG_PUB.Count_And_Get
4006: (p_count => x_msg_count,
4000: p_data => x_msg_data);
4001:
4002: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4003: ROLLBACK TO activate_add_request_pvt;
4004: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
4005: FND_MSG_PUB.Count_And_Get
4006: (p_count => x_msg_count,
4007: p_data => x_msg_data);
4008: WHEN OTHERS THEN
4006: (p_count => x_msg_count,
4007: p_data => x_msg_data);
4008: WHEN OTHERS THEN
4009: ROLLBACK TO activate_add_request_pvt;
4010: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
4011: OKL_API.Set_Message(p_app_name => G_APP_NAME,
4012: p_msg_name => G_UNEXPECTED_ERROR,
4013: p_token1 => G_SQLCODE_TOKEN,
4014: p_token1_value => SQLCODE,
4007: p_data => x_msg_data);
4008: WHEN OTHERS THEN
4009: ROLLBACK TO activate_add_request_pvt;
4010: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
4011: OKL_API.Set_Message(p_app_name => G_APP_NAME,
4012: p_msg_name => G_UNEXPECTED_ERROR,
4013: p_token1 => G_SQLCODE_TOKEN,
4014: p_token1_value => SQLCODE,
4015: p_token2 => G_SQLERRM_TOKEN,
4036: -- Version : 1.0
4037: -- End of comments
4038: ---------------------------------------------------------------------------
4039: PROCEDURE submit_add_khr_request (p_api_version IN NUMBER,
4040: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
4041: x_return_status OUT NOCOPY VARCHAR2,
4042: x_msg_count OUT NOCOPY NUMBER,
4043: x_msg_data OUT NOCOPY VARCHAR2,
4044: p_agreement_id IN OKC_K_HEADERS_V.ID%TYPE,
4073: IF (FND_API.to_Boolean(p_init_msg_list)) THEN
4074: FND_MSG_PUB.initialize;
4075: END IF;
4076:
4077: l_return_status := OKL_API.G_RET_STS_SUCCESS;
4078: l_pool_id := p_pool_id;
4079: l_agreement_id := p_agreement_id;
4080: x_return_status := OKL_API.G_RET_STS_SUCCESS;
4081:
4076:
4077: l_return_status := OKL_API.G_RET_STS_SUCCESS;
4078: l_pool_id := p_pool_id;
4079: l_agreement_id := p_agreement_id;
4080: x_return_status := OKL_API.G_RET_STS_SUCCESS;
4081:
4082: -- Call start_activity to create savepoint, check compatibility
4083: -- and initialize message list
4084: x_return_status := OKL_API.START_ACTIVITY(l_api_name,
4080: x_return_status := OKL_API.G_RET_STS_SUCCESS;
4081:
4082: -- Call start_activity to create savepoint, check compatibility
4083: -- and initialize message list
4084: x_return_status := OKL_API.START_ACTIVITY(l_api_name,
4085: p_init_msg_list,
4086: '_PVT',
4087: x_return_status);
4088: -- Check if activity started successfully
4085: p_init_msg_list,
4086: '_PVT',
4087: x_return_status);
4088: -- Check if activity started successfully
4089: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4090: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4091: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4092: RAISE OKL_API.G_EXCEPTION_ERROR;
4093: END IF;
4086: '_PVT',
4087: x_return_status);
4088: -- Check if activity started successfully
4089: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4090: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4091: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4092: RAISE OKL_API.G_EXCEPTION_ERROR;
4093: END IF;
4094: -- fnd_log.STRING(fnd_log.level_statement,'okl.plsql.okl_sec_agreement_pvt.submit_add_khr_request.debug', 'Okl_Sec_Agreement_Pvt.submit_add_khr_request x_return_status :' || x_return_status);
4087: x_return_status);
4088: -- Check if activity started successfully
4089: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4090: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4091: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4092: RAISE OKL_API.G_EXCEPTION_ERROR;
4093: END IF;
4094: -- fnd_log.STRING(fnd_log.level_statement,'okl.plsql.okl_sec_agreement_pvt.submit_add_khr_request.debug', 'Okl_Sec_Agreement_Pvt.submit_add_khr_request x_return_status :' || x_return_status);
4095:
4088: -- Check if activity started successfully
4089: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4090: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4091: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4092: RAISE OKL_API.G_EXCEPTION_ERROR;
4093: END IF;
4094: -- fnd_log.STRING(fnd_log.level_statement,'okl.plsql.okl_sec_agreement_pvt.submit_add_khr_request.debug', 'Okl_Sec_Agreement_Pvt.submit_add_khr_request x_return_status :' || x_return_status);
4095:
4096: -- read the profile OKL: Investor Add Contracts Approval Process
4099: -- get the pool transaction id which needs to be updated, since we can have only one transaction in 'NEW' status
4100: OPEN c_fetch_pool_trans_id_csr(p_pool_id);
4101: FETCH c_fetch_pool_trans_id_csr into l_pool_trans_id;
4102: IF c_fetch_pool_trans_id_csr%NOTFOUND THEN
4103: OKL_API.set_message(p_app_name => G_APP_NAME,
4104: p_msg_name => G_NO_MATCHING_RECORD,
4105: p_token1 => G_COL_NAME_TOKEN,
4106: p_token1_value => 'OKL_POOL_TRANSACTIONS.ID');
4107: RAISE OKL_API.G_EXCEPTION_ERROR;
4103: OKL_API.set_message(p_app_name => G_APP_NAME,
4104: p_msg_name => G_NO_MATCHING_RECORD,
4105: p_token1 => G_COL_NAME_TOKEN,
4106: p_token1_value => 'OKL_POOL_TRANSACTIONS.ID');
4107: RAISE OKL_API.G_EXCEPTION_ERROR;
4108: END IF;
4109: CLOSE c_fetch_pool_trans_id_csr ;
4110:
4111: --Set the Pool Transaction Id for the update call
4118: x_return_status,
4119: l_msg_count,
4120: l_msg_data,
4121: l_agreement_id);
4122: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
4123: lp_poxv_rec.TRANSACTION_STATUS := G_POOL_TRX_STATUS_INCOMPLETE;
4124:
4125: OKL_POOL_PVT.update_pool_transaction(p_api_version => p_api_version,
4126: p_init_msg_list => p_init_msg_list,
4128: x_msg_count => x_msg_count,
4129: x_msg_data => x_msg_data,
4130: p_poxv_rec => lp_poxv_rec,
4131: x_poxv_rec => lx_poxv_rec);
4132: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4133: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4134: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4135: RAISE OKL_API.G_EXCEPTION_ERROR;
4136: END IF;
4129: x_msg_data => x_msg_data,
4130: p_poxv_rec => lp_poxv_rec,
4131: x_poxv_rec => lx_poxv_rec);
4132: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4133: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4134: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4135: RAISE OKL_API.G_EXCEPTION_ERROR;
4136: END IF;
4137:
4130: p_poxv_rec => lp_poxv_rec,
4131: x_poxv_rec => lx_poxv_rec);
4132: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4133: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4134: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4135: RAISE OKL_API.G_EXCEPTION_ERROR;
4136: END IF;
4137:
4138: --Since the Validation returned an Error need to raise an exception and return the control,
4131: x_poxv_rec => lx_poxv_rec);
4132: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4133: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4134: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4135: RAISE OKL_API.G_EXCEPTION_ERROR;
4136: END IF;
4137:
4138: --Since the Validation returned an Error need to raise an exception and return the control,
4139: --no further processing needs to be done.
4137:
4138: --Since the Validation returned an Error need to raise an exception and return the control,
4139: --no further processing needs to be done.
4140: -- vsgandhi Added for Bug 13997160
4141: OKL_API.set_message(
4142: p_app_name => G_APP_NAME,
4143: p_msg_name => 'OKL_LLA_RECONCILED');
4144:
4145: RAISE G_HALT_PROCESSING;
4143: p_msg_name => 'OKL_LLA_RECONCILED');
4144:
4145: RAISE G_HALT_PROCESSING;
4146:
4147: END IF; --x_return_status <> OKL_API.G_RET_STS_SUCCESS
4148:
4149: IF(NVL(l_approval_process, 'NONE')) = 'NONE' THEN
4150: -- since no option is set at the profile, approve the operating agreement by default
4151: lp_poxv_rec.TRANSACTION_STATUS := G_POOL_TRX_STATUS_APPROVED;
4156: x_msg_count => x_msg_count,
4157: x_msg_data => x_msg_data,
4158: p_poxv_rec => lp_poxv_rec,
4159: x_poxv_rec => lx_poxv_rec);
4160: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4161: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4162: ELSIF (x_return_Status = OKL_API.G_RET_STS_ERROR) THEN
4163: RAISE OKL_API.G_EXCEPTION_ERROR;
4164: END IF;
4157: x_msg_data => x_msg_data,
4158: p_poxv_rec => lp_poxv_rec,
4159: x_poxv_rec => lx_poxv_rec);
4160: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4161: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4162: ELSIF (x_return_Status = OKL_API.G_RET_STS_ERROR) THEN
4163: RAISE OKL_API.G_EXCEPTION_ERROR;
4164: END IF;
4165:
4158: p_poxv_rec => lp_poxv_rec,
4159: x_poxv_rec => lx_poxv_rec);
4160: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4161: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4162: ELSIF (x_return_Status = OKL_API.G_RET_STS_ERROR) THEN
4163: RAISE OKL_API.G_EXCEPTION_ERROR;
4164: END IF;
4165:
4166: ELSIF(l_approval_process IN (G_ADD_KHR_REQUEST_APPROVAL_WF, G_ADD_KHR_REQUEST_APPRV_AME))THEN
4159: x_poxv_rec => lx_poxv_rec);
4160: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4161: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4162: ELSIF (x_return_Status = OKL_API.G_RET_STS_ERROR) THEN
4163: RAISE OKL_API.G_EXCEPTION_ERROR;
4164: END IF;
4165:
4166: ELSIF(l_approval_process IN (G_ADD_KHR_REQUEST_APPROVAL_WF, G_ADD_KHR_REQUEST_APPRV_AME))THEN
4167:
4174: x_msg_count => x_msg_count,
4175: x_msg_data => x_msg_data,
4176: p_poxv_rec => lp_poxv_rec,
4177: x_poxv_rec => lx_poxv_rec);
4178: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4179: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4180: ELSIF (x_return_Status = OKL_API.G_RET_STS_ERROR) THEN
4181: RAISE OKL_API.G_EXCEPTION_ERROR;
4182: END IF;
4175: x_msg_data => x_msg_data,
4176: p_poxv_rec => lp_poxv_rec,
4177: x_poxv_rec => lx_poxv_rec);
4178: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4179: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4180: ELSIF (x_return_Status = OKL_API.G_RET_STS_ERROR) THEN
4181: RAISE OKL_API.G_EXCEPTION_ERROR;
4182: END IF;
4183:
4176: p_poxv_rec => lp_poxv_rec,
4177: x_poxv_rec => lx_poxv_rec);
4178: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4179: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4180: ELSIF (x_return_Status = OKL_API.G_RET_STS_ERROR) THEN
4181: RAISE OKL_API.G_EXCEPTION_ERROR;
4182: END IF;
4183:
4184: -- Raise Event
4177: x_poxv_rec => lx_poxv_rec);
4178: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4179: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4180: ELSIF (x_return_Status = OKL_API.G_RET_STS_ERROR) THEN
4181: RAISE OKL_API.G_EXCEPTION_ERROR;
4182: END IF;
4183:
4184: -- Raise Event
4185: OKL_SEC_AGREEMENT_WF.raise_add_khr_approval_event(p_api_version => p_api_version
4190: ,p_agreement_id => l_agreement_id
4191: ,p_pool_id => l_pool_id
4192: ,p_pool_trans_id => l_pool_trans_id);
4193:
4194: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4195: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4196: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4197: RAISE OKL_API.G_EXCEPTION_ERROR;
4198: END IF;
4191: ,p_pool_id => l_pool_id
4192: ,p_pool_trans_id => l_pool_trans_id);
4193:
4194: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4195: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4196: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4197: RAISE OKL_API.G_EXCEPTION_ERROR;
4198: END IF;
4199: END IF; -- end of NVL(l_approval_process,'NONE')='NONE'
4192: ,p_pool_trans_id => l_pool_trans_id);
4193:
4194: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4195: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4196: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4197: RAISE OKL_API.G_EXCEPTION_ERROR;
4198: END IF;
4199: END IF; -- end of NVL(l_approval_process,'NONE')='NONE'
4200:
4193:
4194: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4195: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4196: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4197: RAISE OKL_API.G_EXCEPTION_ERROR;
4198: END IF;
4199: END IF; -- end of NVL(l_approval_process,'NONE')='NONE'
4200:
4201: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
4197: RAISE OKL_API.G_EXCEPTION_ERROR;
4198: END IF;
4199: END IF; -- end of NVL(l_approval_process,'NONE')='NONE'
4200:
4201: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
4202: x_msg_data => x_msg_data);
4203: EXCEPTION
4204: --For this User defined exception, do not rollback
4205: WHEN G_HALT_PROCESSING THEN
4202: x_msg_data => x_msg_data);
4203: EXCEPTION
4204: --For this User defined exception, do not rollback
4205: WHEN G_HALT_PROCESSING THEN
4206: x_return_status := OKL_API.G_RET_STS_ERROR;
4207: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
4208: p_data => x_msg_data);
4209:
4210: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4206: x_return_status := OKL_API.G_RET_STS_ERROR;
4207: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
4208: p_data => x_msg_data);
4209:
4210: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4211: x_return_status := OKL_API.G_RET_STS_ERROR;
4212: IF c_fetch_pool_trans_id_csr%ISOPEN THEN
4213: CLOSE c_fetch_pool_trans_id_csr;
4214: END IF;
4207: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
4208: p_data => x_msg_data);
4209:
4210: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4211: x_return_status := OKL_API.G_RET_STS_ERROR;
4212: IF c_fetch_pool_trans_id_csr%ISOPEN THEN
4213: CLOSE c_fetch_pool_trans_id_csr;
4214: END IF;
4215: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4211: x_return_status := OKL_API.G_RET_STS_ERROR;
4212: IF c_fetch_pool_trans_id_csr%ISOPEN THEN
4213: CLOSE c_fetch_pool_trans_id_csr;
4214: END IF;
4215: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4216: p_api_name => l_api_name,
4217: p_pkg_name => G_PKG_NAME,
4218: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
4219: x_msg_count => x_msg_count,
4214: END IF;
4215: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4216: p_api_name => l_api_name,
4217: p_pkg_name => G_PKG_NAME,
4218: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
4219: x_msg_count => x_msg_count,
4220: x_msg_data => x_msg_data,
4221: p_api_type => G_API_TYPE);
4222:
4219: x_msg_count => x_msg_count,
4220: x_msg_data => x_msg_data,
4221: p_api_type => G_API_TYPE);
4222:
4223: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4224: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
4225: IF c_fetch_pool_trans_id_csr%ISOPEN THEN
4226: CLOSE c_fetch_pool_trans_id_csr;
4227: END IF;
4220: x_msg_data => x_msg_data,
4221: p_api_type => G_API_TYPE);
4222:
4223: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4224: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
4225: IF c_fetch_pool_trans_id_csr%ISOPEN THEN
4226: CLOSE c_fetch_pool_trans_id_csr;
4227: END IF;
4228: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4224: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
4225: IF c_fetch_pool_trans_id_csr%ISOPEN THEN
4226: CLOSE c_fetch_pool_trans_id_csr;
4227: END IF;
4228: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4229: p_api_name => l_api_name,
4230: p_pkg_name => G_PKG_NAME,
4231: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
4232: x_msg_count => x_msg_count,
4227: END IF;
4228: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4229: p_api_name => l_api_name,
4230: p_pkg_name => G_PKG_NAME,
4231: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
4232: x_msg_count => x_msg_count,
4233: x_msg_data => x_msg_data,
4234: p_api_type => G_API_TYPE);
4235: WHEN OTHERS THEN
4236: IF c_fetch_pool_trans_id_csr%ISOPEN THEN
4237: CLOSE c_fetch_pool_trans_id_csr;
4238: END IF;
4239: -- store SQL error message on message stack
4240: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4241: p_api_name => l_api_name,
4242: p_pkg_name => G_PKG_NAME,
4243: p_exc_name => 'OTHERS',
4244: x_msg_count => x_msg_count,
4321:
4322:
4323: BEGIN
4324: -- initialize return status
4325: x_return_status := OKL_API.G_RET_STS_SUCCESS;
4326:
4327:
4328: x_return_status := OKL_API.START_ACTIVITY(
4329: p_api_name => l_api_name,
4324: -- initialize return status
4325: x_return_status := OKL_API.G_RET_STS_SUCCESS;
4326:
4327:
4328: x_return_status := OKL_API.START_ACTIVITY(
4329: p_api_name => l_api_name,
4330: p_pkg_name => g_pkg_name,
4331: p_init_msg_list => p_init_msg_list,
4332: l_api_version => l_api_version,
4334: p_api_type => G_API_TYPE,
4335: x_return_status => x_return_status);
4336:
4337: -- check if activity started successfully
4338: If (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
4339: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4340: ElSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
4341: raise OKL_API.G_EXCEPTION_ERROR;
4342: End If;
4335: x_return_status => x_return_status);
4336:
4337: -- check if activity started successfully
4338: If (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
4339: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4340: ElSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
4341: raise OKL_API.G_EXCEPTION_ERROR;
4342: End If;
4343:
4336:
4337: -- check if activity started successfully
4338: If (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
4339: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4340: ElSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
4341: raise OKL_API.G_EXCEPTION_ERROR;
4342: End If;
4343:
4344: FOR get_pol_id_rec IN get_pol_id_csr(p_chr_id)
4337: -- check if activity started successfully
4338: If (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
4339: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4340: ElSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
4341: raise OKL_API.G_EXCEPTION_ERROR;
4342: End If;
4343:
4344: FOR get_pol_id_rec IN get_pol_id_csr(p_chr_id)
4345: LOOP
4347: END LOOP;
4348:
4349: IF l_pol_id IS NULL
4350: THEN
4351: Okl_Api.set_message(G_APP_NAME,
4352: G_INVALID_VALUE,
4353: G_COL_NAME_TOKEN,
4354: 'POOL_ID');
4355: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4351: Okl_Api.set_message(G_APP_NAME,
4352: G_INVALID_VALUE,
4353: G_COL_NAME_TOKEN,
4354: 'POOL_ID');
4355: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4356: END IF;
4357:
4358: FOR get_pox_id_rec IN get_pox_id_csr(l_pol_id)
4359: LOOP
4361: END LOOP;
4362:
4363: IF l_pox_id IS NULL
4364: THEN
4365: Okl_Api.set_message(G_APP_NAME,
4366: G_INVALID_VALUE,
4367: G_COL_NAME_TOKEN,
4368: 'POX_ID');
4369: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4365: Okl_Api.set_message(G_APP_NAME,
4366: G_INVALID_VALUE,
4367: G_COL_NAME_TOKEN,
4368: 'POX_ID');
4369: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4370: END IF;
4371:
4372: -- create table of pool contents to be deleted
4373: i:=0;
4385: x_msg_count => x_msg_count,
4386: x_msg_data => x_msg_data,
4387: p_pocv_tbl => l_pocv_tbl);
4388:
4389: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4390: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4391: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4392: RAISE OKL_API.G_EXCEPTION_ERROR;
4393: END IF;
4386: x_msg_data => x_msg_data,
4387: p_pocv_tbl => l_pocv_tbl);
4388:
4389: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4390: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4391: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4392: RAISE OKL_API.G_EXCEPTION_ERROR;
4393: END IF;
4394:
4387: p_pocv_tbl => l_pocv_tbl);
4388:
4389: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4390: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4391: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4392: RAISE OKL_API.G_EXCEPTION_ERROR;
4393: END IF;
4394:
4395: -- Assign pool transaction to be deleted to the record
4388:
4389: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4390: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4391: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4392: RAISE OKL_API.G_EXCEPTION_ERROR;
4393: END IF;
4394:
4395: -- Assign pool transaction to be deleted to the record
4396:
4405: x_msg_count => x_msg_count,
4406: x_msg_data => x_msg_data,
4407: p_poxv_rec => l_poxv_rec);
4408:
4409: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4410: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4411: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4412: RAISE OKL_API.G_EXCEPTION_ERROR;
4413: END IF;
4406: x_msg_data => x_msg_data,
4407: p_poxv_rec => l_poxv_rec);
4408:
4409: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4410: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4411: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4412: RAISE OKL_API.G_EXCEPTION_ERROR;
4413: END IF;
4414:
4407: p_poxv_rec => l_poxv_rec);
4408:
4409: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4410: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4411: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4412: RAISE OKL_API.G_EXCEPTION_ERROR;
4413: END IF;
4414:
4415: --Update the additional stake on removing transaction
4408:
4409: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4410: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4411: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4412: RAISE OKL_API.G_EXCEPTION_ERROR;
4413: END IF;
4414:
4415: --Update the additional stake on removing transaction
4416: FOR get_inv_stake_rec IN get_inv_stake_csr(p_chr_id)
4440: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
4441: fnd_log.STRING(fnd_log.level_statement,'okl.plsql.okl_sec_agreement_pvt.cancel_add_request.debug', 'Okl_Sec_Investor_Pvt.update_investor' || x_return_status);
4442: END IF;
4443:
4444: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4445: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4446: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4447: RAISE OKL_API.G_EXCEPTION_ERROR;
4448: END IF;
4441: fnd_log.STRING(fnd_log.level_statement,'okl.plsql.okl_sec_agreement_pvt.cancel_add_request.debug', 'Okl_Sec_Investor_Pvt.update_investor' || x_return_status);
4442: END IF;
4443:
4444: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4445: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4446: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4447: RAISE OKL_API.G_EXCEPTION_ERROR;
4448: END IF;
4449: END IF;
4442: END IF;
4443:
4444: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4445: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4446: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4447: RAISE OKL_API.G_EXCEPTION_ERROR;
4448: END IF;
4449: END IF;
4450: END LOOP;
4443:
4444: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4445: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4446: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4447: RAISE OKL_API.G_EXCEPTION_ERROR;
4448: END IF;
4449: END IF;
4450: END LOOP;
4451:
4450: END LOOP;
4451:
4452:
4453:
4454: x_return_status := OKL_API.G_RET_STS_SUCCESS;
4455:
4456: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
4457:
4458:
4452:
4453:
4454: x_return_status := OKL_API.G_RET_STS_SUCCESS;
4455:
4456: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
4457:
4458:
4459: EXCEPTION
4460: when OKL_API.G_EXCEPTION_ERROR then
4456: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
4457:
4458:
4459: EXCEPTION
4460: when OKL_API.G_EXCEPTION_ERROR then
4461: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4462: p_api_name => l_api_name,
4463: p_pkg_name => g_pkg_name,
4464: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
4457:
4458:
4459: EXCEPTION
4460: when OKL_API.G_EXCEPTION_ERROR then
4461: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4462: p_api_name => l_api_name,
4463: p_pkg_name => g_pkg_name,
4464: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
4465: x_msg_count => x_msg_count,
4460: when OKL_API.G_EXCEPTION_ERROR then
4461: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4462: p_api_name => l_api_name,
4463: p_pkg_name => g_pkg_name,
4464: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
4465: x_msg_count => x_msg_count,
4466: x_msg_data => x_msg_data,
4467: p_api_type => g_api_type);
4468:
4465: x_msg_count => x_msg_count,
4466: x_msg_data => x_msg_data,
4467: p_api_type => g_api_type);
4468:
4469: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
4470: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4471: p_api_name => l_api_name,
4472: p_pkg_name => g_pkg_name,
4473: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
4466: x_msg_data => x_msg_data,
4467: p_api_type => g_api_type);
4468:
4469: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
4470: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4471: p_api_name => l_api_name,
4472: p_pkg_name => g_pkg_name,
4473: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
4474: x_msg_count => x_msg_count,
4469: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
4470: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4471: p_api_name => l_api_name,
4472: p_pkg_name => g_pkg_name,
4473: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
4474: x_msg_count => x_msg_count,
4475: x_msg_data => x_msg_data,
4476: p_api_type => g_api_type);
4477:
4475: x_msg_data => x_msg_data,
4476: p_api_type => g_api_type);
4477:
4478: when OTHERS then
4479: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4480: p_api_name => l_api_name,
4481: p_pkg_name => g_pkg_name,
4482: p_exc_name => 'OTHERS',
4483: x_msg_count => x_msg_count,