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;
1670: --
1671: lp_khrv_rec.PDT_ID := p_secAgreement_rec.PDT_ID;
1672: lp_khrv_rec.SECURITIZATION_TYPE := p_secAgreement_rec.SECURITIZATION_TYPE;
1673: IF (p_secAgreement_rec.LESSOR_SERV_ORG_CODE IS NULL OR
1674: p_secAgreement_rec.LESSOR_SERV_ORG_CODE = OKL_API.G_MISS_CHAR) THEN
1675: lp_khrv_rec.LESSOR_SERV_ORG_CODE := 'O';
1676: ELSE
1677: lp_khrv_rec.LESSOR_SERV_ORG_CODE := p_secAgreement_rec.LESSOR_SERV_ORG_CODE;
1678: END IF;
1675: lp_khrv_rec.LESSOR_SERV_ORG_CODE := 'O';
1676: ELSE
1677: lp_khrv_rec.LESSOR_SERV_ORG_CODE := p_secAgreement_rec.LESSOR_SERV_ORG_CODE;
1678: END IF;
1679: IF (p_secAgreement_rec.RECOURSE_CODE IS NULL OR p_secAgreement_rec.RECOURSE_CODE = OKL_API.G_MISS_CHAR) THEN
1680: lp_khrv_rec.RECOURSE_CODE := 'N';
1681: ELSE
1682: lp_khrv_rec.RECOURSE_CODE := p_secAgreement_rec.RECOURSE_CODE;
1683: END IF;
1928: x_msg_data => x_msg_data,
1929: p_polv_rec => l_polv_rec,
1930: x_polv_rec => x_polv_rec);
1931:
1932: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1933: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1934: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1935: RAISE OKL_API.G_EXCEPTION_ERROR;
1936: END IF;
1929: p_polv_rec => l_polv_rec,
1930: x_polv_rec => x_polv_rec);
1931:
1932: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1933: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1934: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1935: RAISE OKL_API.G_EXCEPTION_ERROR;
1936: END IF;
1937:
1930: x_polv_rec => x_polv_rec);
1931:
1932: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1933: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1934: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1935: RAISE OKL_API.G_EXCEPTION_ERROR;
1936: END IF;
1937:
1938: /*** End API body ******************************************************/
1931:
1932: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1933: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1934: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1935: RAISE OKL_API.G_EXCEPTION_ERROR;
1936: END IF;
1937:
1938: /*** End API body ******************************************************/
1939:
1942: (p_count => x_msg_count,
1943: p_data => x_msg_data);
1944:
1945: EXCEPTION
1946: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1947: ROLLBACK TO create_sec_agreement_PVT;
1948: x_return_status := OKL_API.G_RET_STS_ERROR;
1949: FND_MSG_PUB.Count_And_Get
1950: (p_count => x_msg_count,
1944:
1945: EXCEPTION
1946: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1947: ROLLBACK TO create_sec_agreement_PVT;
1948: x_return_status := OKL_API.G_RET_STS_ERROR;
1949: FND_MSG_PUB.Count_And_Get
1950: (p_count => x_msg_count,
1951: p_data => x_msg_data);
1952:
1949: FND_MSG_PUB.Count_And_Get
1950: (p_count => x_msg_count,
1951: p_data => x_msg_data);
1952:
1953: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1954: ROLLBACK TO create_sec_agreement_PVT;
1955: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
1956: FND_MSG_PUB.Count_And_Get
1957: (p_count => x_msg_count,
1951: p_data => x_msg_data);
1952:
1953: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1954: ROLLBACK TO create_sec_agreement_PVT;
1955: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
1956: FND_MSG_PUB.Count_And_Get
1957: (p_count => x_msg_count,
1958: p_data => x_msg_data);
1959:
1958: p_data => x_msg_data);
1959:
1960: WHEN OTHERS THEN
1961: ROLLBACK TO create_sec_agreement_PVT;
1962: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
1963: OKL_API.Set_Message(p_app_name => G_APP_NAME,
1964: p_msg_name => G_UNEXPECTED_ERROR,
1965: p_token1 => G_SQLCODE_TOKEN,
1966: p_token1_value => SQLCODE,
1959:
1960: WHEN OTHERS THEN
1961: ROLLBACK TO create_sec_agreement_PVT;
1962: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
1963: OKL_API.Set_Message(p_app_name => G_APP_NAME,
1964: p_msg_name => G_UNEXPECTED_ERROR,
1965: p_token1 => G_SQLCODE_TOKEN,
1966: p_token1_value => SQLCODE,
1967: p_token2 => G_SQLERRM_TOKEN,
1993: l_api_name CONSTANT VARCHAR2(30) := 'update_sec_agreement_pvt';
1994: l_api_version CONSTANT NUMBER := 1.0;
1995: i NUMBER;
1996: l_pol_id OKL_POOLS.ID%TYPE;
1997: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1998: lp_cplv_rec OKC_CONTRACT_PARTY_PUB.cplv_rec_type;
1999: lx_cplv_rec OKC_CONTRACT_PARTY_PUB.cplv_rec_type;
2000:
2001: lp_chrv_rec OKL_OKC_MIGRATION_PVT.chrv_rec_type;
2061: p_api_version,
2062: l_api_name,
2063: G_PKG_NAME ))
2064: THEN
2065: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2066: END IF;
2067:
2068: -- Initialize message list if requested
2069: IF (FND_API.to_Boolean(p_init_msg_list)) THEN
2070: FND_MSG_PUB.initialize;
2071: END IF;
2072:
2073: -- Initialize API status to success
2074: x_return_status := OKL_API.G_RET_STS_SUCCESS;
2075:
2076:
2077: /*** Begin API body ****************************************************/
2078: lp_chrv_rec.id := p_secAgreement_rec.ID;
2167: --
2168: -- ********************* Trustee ***************************************
2169: --
2170: IF (p_secAgreement_rec.trustee_party_roles_id IS NOT NULL
2171: AND p_secAgreement_rec.trustee_party_roles_id <> OKL_API.G_MISS_NUM) THEN
2172:
2173: -- x_chr_id := lx_chrv_rec.id;
2174:
2175: -- now we attach the party to the header
2257: --
2258: -- update okl_pools
2259: --
2260:
2261: IF (p_secAgreement_rec.pol_id IS NOT NULL AND p_secAgreement_rec.pol_id <> OKL_API.G_MISS_NUM) THEN
2262: -- 1. update khr_id to null if user switch to different pol_id
2263:
2264: OPEN c_pool_upd;
2265: i := 0;
2280: p_polv_rec => l_polv_rec,
2281: x_polv_rec => x_polv_rec);
2282:
2283:
2284: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2285: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2286: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2287: RAISE OKL_API.G_EXCEPTION_ERROR;
2288: END IF;
2281: x_polv_rec => x_polv_rec);
2282:
2283:
2284: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2285: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2286: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2287: RAISE OKL_API.G_EXCEPTION_ERROR;
2288: END IF;
2289:
2282:
2283:
2284: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2285: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2286: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2287: RAISE OKL_API.G_EXCEPTION_ERROR;
2288: END IF;
2289:
2290: i := i + 1;
2283:
2284: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2285: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2286: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2287: RAISE OKL_API.G_EXCEPTION_ERROR;
2288: END IF;
2289:
2290: i := i + 1;
2291: END LOOP;
2304: x_msg_data => x_msg_data,
2305: p_polv_rec => l_polv_rec,
2306: x_polv_rec => x_polv_rec);
2307:
2308: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2309: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2310: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2311: RAISE OKL_API.G_EXCEPTION_ERROR;
2312: END IF;
2305: p_polv_rec => l_polv_rec,
2306: x_polv_rec => x_polv_rec);
2307:
2308: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2309: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2310: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2311: RAISE OKL_API.G_EXCEPTION_ERROR;
2312: END IF;
2313:
2306: x_polv_rec => x_polv_rec);
2307:
2308: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2309: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2310: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2311: RAISE OKL_API.G_EXCEPTION_ERROR;
2312: END IF;
2313:
2314: -- copy back to x_secAgreement_rec
2307:
2308: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2309: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2310: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2311: RAISE OKL_API.G_EXCEPTION_ERROR;
2312: END IF;
2313:
2314: -- copy back to x_secAgreement_rec
2315: x_secAgreement_rec.POL_ID := x_polv_rec.ID;
2348: p_klev_rec => lp_klev_rec,
2349: x_clev_rec => lx_clev_rec,
2350: x_klev_rec => lx_klev_rec);
2351:
2352: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2353: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2354: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2355: RAISE OKL_API.G_EXCEPTION_ERROR;
2356: END IF;
2349: x_clev_rec => lx_clev_rec,
2350: x_klev_rec => lx_klev_rec);
2351:
2352: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2353: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2354: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2355: RAISE OKL_API.G_EXCEPTION_ERROR;
2356: END IF;
2357:
2350: x_klev_rec => lx_klev_rec);
2351:
2352: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2353: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2354: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2355: RAISE OKL_API.G_EXCEPTION_ERROR;
2356: END IF;
2357:
2358: i := i + 1;
2351:
2352: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2353: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2354: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2355: RAISE OKL_API.G_EXCEPTION_ERROR;
2356: END IF;
2357:
2358: i := i + 1;
2359: END LOOP;
2379: p_klev_rec => lp_klev_rec,
2380: x_clev_rec => lx_clev_rec,
2381: x_klev_rec => lx_klev_rec);
2382:
2383: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2384: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2385: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2386: RAISE OKL_API.G_EXCEPTION_ERROR;
2387: END IF;
2380: x_clev_rec => lx_clev_rec,
2381: x_klev_rec => lx_klev_rec);
2382:
2383: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2384: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2385: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2386: RAISE OKL_API.G_EXCEPTION_ERROR;
2387: END IF;
2388:
2381: x_klev_rec => lx_klev_rec);
2382:
2383: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2384: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2385: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2386: RAISE OKL_API.G_EXCEPTION_ERROR;
2387: END IF;
2388:
2389: FOR l_okl_sub_line_rec IN l_okl_sub_lines_csr(p_secAgreement_rec.ID,l_okl_top_line_rec.id)
2382:
2383: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2384: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2385: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2386: RAISE OKL_API.G_EXCEPTION_ERROR;
2387: END IF;
2388:
2389: FOR l_okl_sub_line_rec IN l_okl_sub_lines_csr(p_secAgreement_rec.ID,l_okl_top_line_rec.id)
2390: LOOP
2405: p_klev_rec => lp_klev_rec,
2406: x_clev_rec => lx_clev_rec,
2407: x_klev_rec => lx_klev_rec);
2408:
2409: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2410: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2411: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2412: RAISE OKL_API.G_EXCEPTION_ERROR;
2413: END IF;
2406: x_clev_rec => lx_clev_rec,
2407: x_klev_rec => lx_klev_rec);
2408:
2409: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2410: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2411: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2412: RAISE OKL_API.G_EXCEPTION_ERROR;
2413: END IF;
2414:
2407: x_klev_rec => lx_klev_rec);
2408:
2409: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2410: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2411: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2412: RAISE OKL_API.G_EXCEPTION_ERROR;
2413: END IF;
2414:
2415: END LOOP;
2408:
2409: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2410: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2411: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2412: RAISE OKL_API.G_EXCEPTION_ERROR;
2413: END IF;
2414:
2415: END LOOP;
2416: END LOOP;
2423: (p_count => x_msg_count,
2424: p_data => x_msg_data);
2425:
2426: EXCEPTION
2427: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2428: ROLLBACK TO update_sec_agreement_PVT;
2429: x_return_status := OKL_API.G_RET_STS_ERROR;
2430:
2431: FND_MSG_PUB.Count_And_Get
2425:
2426: EXCEPTION
2427: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2428: ROLLBACK TO update_sec_agreement_PVT;
2429: x_return_status := OKL_API.G_RET_STS_ERROR;
2430:
2431: FND_MSG_PUB.Count_And_Get
2432: (p_count => x_msg_count,
2433: p_data => x_msg_data);
2431: FND_MSG_PUB.Count_And_Get
2432: (p_count => x_msg_count,
2433: p_data => x_msg_data);
2434:
2435: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2436: ROLLBACK TO update_sec_agreement_PVT;
2437: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
2438: FND_MSG_PUB.Count_And_Get
2439: (p_count => x_msg_count,
2433: p_data => x_msg_data);
2434:
2435: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2436: ROLLBACK TO update_sec_agreement_PVT;
2437: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
2438: FND_MSG_PUB.Count_And_Get
2439: (p_count => x_msg_count,
2440: p_data => x_msg_data);
2441:
2440: p_data => x_msg_data);
2441:
2442: WHEN OTHERS THEN
2443: ROLLBACK TO update_sec_agreement_PVT;
2444: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
2445: OKL_API.Set_Message(p_app_name => G_APP_NAME,
2446: p_msg_name => G_UNEXPECTED_ERROR,
2447: p_token1 => G_SQLCODE_TOKEN,
2448: p_token1_value => SQLCODE,
2441:
2442: WHEN OTHERS THEN
2443: ROLLBACK TO update_sec_agreement_PVT;
2444: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
2445: OKL_API.Set_Message(p_app_name => G_APP_NAME,
2446: p_msg_name => G_UNEXPECTED_ERROR,
2447: p_token1 => G_SQLCODE_TOKEN,
2448: p_token1_value => SQLCODE,
2449: p_token2 => G_SQLERRM_TOKEN,
2484: l_chr_id OKC_K_HEADERS_B.ID%TYPE;
2485:
2486: l_pox_id OKL_POOL_CONTENTS.POX_ID%TYPE;
2487: l_poc_id OKL_POOL_CONTENTS.ID%TYPE;
2488: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2489: lp_chrv_rec OKL_OKC_MIGRATION_PVT.chrv_rec_type;
2490: lx_chrv_rec OKL_OKC_MIGRATION_PVT.chrv_rec_type;
2491: lp_khrv_rec OKL_CONTRACT_PUB.khrv_rec_type;
2492: lx_khrv_rec OKL_CONTRACT_PUB.khrv_rec_type;
2562: p_api_version,
2563: l_api_name,
2564: G_PKG_NAME ))
2565: THEN
2566: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2567: END IF;
2568:
2569: -- Initialize message list if requested
2570: IF (FND_API.to_Boolean(p_init_msg_list)) THEN
2571: FND_MSG_PUB.initialize;
2572: END IF;
2573:
2574: -- Initialize API status to success
2575: x_return_status := OKL_API.G_RET_STS_SUCCESS;
2576:
2577: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
2578: fnd_log.STRING(fnd_log.level_statement,'okl.plsql.okl_sec_agreement_pvt.activate_sec_agreement.debug', 'Begin Activating IA');
2579: fnd_log.STRING(fnd_log.level_statement,'okl.plsql.okl_sec_agreement_pvt.activate_sec_agreement.debug','p_khr_id:'|| p_khr_id);
2648: fnd_log.STRING(fnd_log.level_statement,'okl.plsql.okl_sec_agreement_pvt.activate_sec_agreement.debug', 'l_pol_id :' || l_pol_id);
2649: 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);
2650: END IF;
2651:
2652: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2653: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2654: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2655: RAISE OKL_API.G_EXCEPTION_ERROR;
2656: END IF;
2649: 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);
2650: END IF;
2651:
2652: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2653: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2654: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2655: RAISE OKL_API.G_EXCEPTION_ERROR;
2656: END IF;
2657: END IF;
2650: END IF;
2651:
2652: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2653: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2654: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2655: RAISE OKL_API.G_EXCEPTION_ERROR;
2656: END IF;
2657: END IF;
2658: --dbms_output.put_line('OKL_POOL_PVT.create_pool_transaction END');
2651:
2652: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2653: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2654: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2655: RAISE OKL_API.G_EXCEPTION_ERROR;
2656: END IF;
2657: END IF;
2658: --dbms_output.put_line('OKL_POOL_PVT.create_pool_transaction END');
2659: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
2704: fnd_log.STRING(fnd_log.level_statement,'okl.plsql.okl_sec_agreement_pvt.activate_sec_agreement.debug', 'l_poc_id :' || l_poc_id);
2705: 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);
2706: END IF;
2707:
2708: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2709: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2710: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2711: RAISE OKL_API.G_EXCEPTION_ERROR;
2712: END IF;
2705: 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);
2706: END IF;
2707:
2708: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2709: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2710: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2711: RAISE OKL_API.G_EXCEPTION_ERROR;
2712: END IF;
2713:
2706: END IF;
2707:
2708: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2709: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2710: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2711: RAISE OKL_API.G_EXCEPTION_ERROR;
2712: END IF;
2713:
2714: END LOOP;
2707:
2708: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2709: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2710: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2711: RAISE OKL_API.G_EXCEPTION_ERROR;
2712: END IF;
2713:
2714: END LOOP;
2715: CLOSE c_poc;
2758: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
2759: 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);
2760: END IF;
2761:
2762: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2763: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2764: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2765: RAISE OKL_API.G_EXCEPTION_ERROR;
2766: END IF;
2759: 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);
2760: END IF;
2761:
2762: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2763: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2764: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2765: RAISE OKL_API.G_EXCEPTION_ERROR;
2766: END IF;
2767:
2760: END IF;
2761:
2762: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2763: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2764: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2765: RAISE OKL_API.G_EXCEPTION_ERROR;
2766: END IF;
2767:
2768: END LOOP;
2761:
2762: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2763: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2764: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2765: RAISE OKL_API.G_EXCEPTION_ERROR;
2766: END IF;
2767:
2768: END LOOP;
2769: CLOSE c_pool_chr;
2790: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
2791: 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);
2792: END IF;
2793:
2794: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2795: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2796: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2797: RAISE OKL_API.G_EXCEPTION_ERROR;
2798: END IF;
2791: 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);
2792: END IF;
2793:
2794: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2795: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2796: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2797: RAISE OKL_API.G_EXCEPTION_ERROR;
2798: END IF;
2799: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
2792: END IF;
2793:
2794: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2795: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2796: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2797: RAISE OKL_API.G_EXCEPTION_ERROR;
2798: END IF;
2799: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
2800: 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');
2793:
2794: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2795: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2796: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2797: RAISE OKL_API.G_EXCEPTION_ERROR;
2798: END IF;
2799: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
2800: 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');
2801: END IF;
2823: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
2824: 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);
2825: END IF;
2826:
2827: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2828: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2829: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2830: RAISE OKL_API.G_EXCEPTION_ERROR;
2831: END IF;
2824: 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);
2825: END IF;
2826:
2827: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2828: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2829: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2830: RAISE OKL_API.G_EXCEPTION_ERROR;
2831: END IF;
2832: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
2825: END IF;
2826:
2827: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2828: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2829: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2830: RAISE OKL_API.G_EXCEPTION_ERROR;
2831: END IF;
2832: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
2833: 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');
2826:
2827: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2828: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2829: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2830: RAISE OKL_API.G_EXCEPTION_ERROR;
2831: END IF;
2832: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
2833: 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');
2834: END IF;
2853: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
2854: 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);
2855: END IF;
2856:
2857: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2858: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2859: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2860: RAISE OKL_API.G_EXCEPTION_ERROR;
2861: END IF;
2854: 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);
2855: END IF;
2856:
2857: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2858: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2859: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2860: RAISE OKL_API.G_EXCEPTION_ERROR;
2861: END IF;
2862: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
2855: END IF;
2856:
2857: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2858: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2859: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2860: RAISE OKL_API.G_EXCEPTION_ERROR;
2861: END IF;
2862: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
2863: 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');
2856:
2857: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2858: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2859: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2860: RAISE OKL_API.G_EXCEPTION_ERROR;
2861: END IF;
2862: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
2863: 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');
2864: END IF;
2894: 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);
2895: 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);
2896: END IF;
2897:
2898: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2899: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2900: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2901: RAISE OKL_API.G_EXCEPTION_ERROR;
2902: END IF;
2895: 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);
2896: END IF;
2897:
2898: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2899: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2900: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2901: RAISE OKL_API.G_EXCEPTION_ERROR;
2902: END IF;
2903: -- Fixed Bug#3386816, mvasudev
2896: END IF;
2897:
2898: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2899: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2900: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2901: RAISE OKL_API.G_EXCEPTION_ERROR;
2902: END IF;
2903: -- Fixed Bug#3386816, mvasudev
2904: EXIT WHEN l_okl_sty_csr%FOUND;
2897:
2898: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2899: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2900: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2901: RAISE OKL_API.G_EXCEPTION_ERROR;
2902: END IF;
2903: -- Fixed Bug#3386816, mvasudev
2904: EXIT WHEN l_okl_sty_csr%FOUND;
2905: END LOOP;
2931: 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);
2932: 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);
2933: END IF;
2934:
2935: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2936: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2937: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2938: RAISE OKL_API.G_EXCEPTION_ERROR;
2939: END IF;
2932: 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);
2933: END IF;
2934:
2935: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2936: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2937: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2938: RAISE OKL_API.G_EXCEPTION_ERROR;
2939: END IF;
2940:
2933: END IF;
2934:
2935: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2936: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2937: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2938: RAISE OKL_API.G_EXCEPTION_ERROR;
2939: END IF;
2940:
2941: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
2934:
2935: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2936: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2937: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2938: RAISE OKL_API.G_EXCEPTION_ERROR;
2939: END IF;
2940:
2941: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
2942: fnd_log.STRING(fnd_log.level_statement,'okl.plsql.okl_sec_agreement_pvt.activate_sec_agreement.debug', '8 call BPD Billing API: END');
2966: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
2967: 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);
2968: END IF;
2969:
2970: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2971: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2972: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2973: RAISE OKL_API.G_EXCEPTION_ERROR;
2974: END IF;
2967: 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);
2968: END IF;
2969:
2970: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2971: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2972: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2973: RAISE OKL_API.G_EXCEPTION_ERROR;
2974: END IF;
2975:
2968: END IF;
2969:
2970: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2971: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2972: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2973: RAISE OKL_API.G_EXCEPTION_ERROR;
2974: END IF;
2975:
2976: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
2969:
2970: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2971: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2972: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2973: RAISE OKL_API.G_EXCEPTION_ERROR;
2974: END IF;
2975:
2976: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
2977: 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');
3001: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
3002: 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);
3003: END IF;
3004:
3005: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3006: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3007: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3008: RAISE OKL_API.G_EXCEPTION_ERROR;
3009: END IF;
3002: 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);
3003: END IF;
3004:
3005: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3006: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3007: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3008: RAISE OKL_API.G_EXCEPTION_ERROR;
3009: END IF;
3010:
3003: END IF;
3004:
3005: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3006: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3007: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3008: RAISE OKL_API.G_EXCEPTION_ERROR;
3009: END IF;
3010:
3011: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
3004:
3005: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3006: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3007: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3008: RAISE OKL_API.G_EXCEPTION_ERROR;
3009: END IF;
3010:
3011: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
3012: 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');
3032: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
3033: 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);
3034: END IF;
3035:
3036: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3037: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3038: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3039: RAISE OKL_API.G_EXCEPTION_ERROR;
3040: END IF;
3033: 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);
3034: END IF;
3035:
3036: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3037: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3038: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3039: RAISE OKL_API.G_EXCEPTION_ERROR;
3040: END IF;
3041:
3034: END IF;
3035:
3036: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3037: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3038: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3039: RAISE OKL_API.G_EXCEPTION_ERROR;
3040: END IF;
3041:
3042: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
3035:
3036: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3037: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3038: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3039: RAISE OKL_API.G_EXCEPTION_ERROR;
3040: END IF;
3041:
3042: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
3043: 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');
3052: (p_count => x_msg_count,
3053: p_data => x_msg_data);
3054:
3055: EXCEPTION
3056: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3057: ROLLBACK TO activate_sec_agreement_PVT;
3058: x_return_status := OKL_API.G_RET_STS_ERROR;
3059: FND_MSG_PUB.Count_And_Get
3060: (p_count => x_msg_count,
3054:
3055: EXCEPTION
3056: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3057: ROLLBACK TO activate_sec_agreement_PVT;
3058: x_return_status := OKL_API.G_RET_STS_ERROR;
3059: FND_MSG_PUB.Count_And_Get
3060: (p_count => x_msg_count,
3061: p_data => x_msg_data);
3062:
3059: FND_MSG_PUB.Count_And_Get
3060: (p_count => x_msg_count,
3061: p_data => x_msg_data);
3062:
3063: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3064: ROLLBACK TO activate_sec_agreement_PVT;
3065: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
3066: FND_MSG_PUB.Count_And_Get
3067: (p_count => x_msg_count,
3061: p_data => x_msg_data);
3062:
3063: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3064: ROLLBACK TO activate_sec_agreement_PVT;
3065: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
3066: FND_MSG_PUB.Count_And_Get
3067: (p_count => x_msg_count,
3068: p_data => x_msg_data);
3069:
3068: p_data => x_msg_data);
3069:
3070: WHEN OTHERS THEN
3071: ROLLBACK TO activate_sec_agreement_PVT;
3072: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
3073: OKL_API.Set_Message(p_app_name => G_APP_NAME,
3074: p_msg_name => G_UNEXPECTED_ERROR,
3075: p_token1 => G_SQLCODE_TOKEN,
3076: p_token1_value => SQLCODE,
3069:
3070: WHEN OTHERS THEN
3071: ROLLBACK TO activate_sec_agreement_PVT;
3072: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
3073: OKL_API.Set_Message(p_app_name => G_APP_NAME,
3074: p_msg_name => G_UNEXPECTED_ERROR,
3075: p_token1 => G_SQLCODE_TOKEN,
3076: p_token1_value => SQLCODE,
3077: p_token2 => G_SQLERRM_TOKEN,
3093: -- End of comments
3094: ----------------------------------------------------------------------------------
3095: PROCEDURE update_sec_agreement_sts(
3096: p_api_version IN NUMBER
3097: ,p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE
3098: ,x_return_status OUT NOCOPY VARCHAR2
3099: ,x_msg_count OUT NOCOPY NUMBER
3100: ,x_msg_data OUT NOCOPY VARCHAR2
3101: ,p_sec_agreement_status IN okc_k_headers_b.sts_code%TYPE
3106: i NUMBER;
3107: l_kle_id OKC_K_LINES_B.ID%TYPE;
3108: l_chr_id OKC_K_HEADERS_B.ID%TYPE;
3109:
3110: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
3111:
3112: lp_secagreement_rec secagreement_rec_type;
3113: lx_secagreement_rec secagreement_rec_type;
3114: l_row_found BOOLEAN := FALSE;
3146: p_api_version,
3147: l_api_name,
3148: G_PKG_NAME ))
3149: THEN
3150: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3151: END IF;
3152:
3153: -- Initialize message list if requested
3154: IF (FND_API.to_Boolean(p_init_msg_list)) THEN
3155: FND_MSG_PUB.initialize;
3156: END IF;
3157:
3158: -- Initialize API status to success
3159: x_return_status := OKL_API.G_RET_STS_SUCCESS;
3160:
3161:
3162: /*** Begin API body ****************************************************/
3163: ----------------------------------------------------------------------------
3177: x_msg_data => x_msg_data,
3178: p_secagreement_rec => lp_secagreement_rec,
3179: x_secagreement_rec => lx_secagreement_rec);
3180:
3181: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3182: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3183: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3184: RAISE OKL_API.G_EXCEPTION_ERROR;
3185: END IF;
3178: p_secagreement_rec => lp_secagreement_rec,
3179: x_secagreement_rec => lx_secagreement_rec);
3180:
3181: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3182: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3183: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3184: RAISE OKL_API.G_EXCEPTION_ERROR;
3185: END IF;
3186: --dbms_output.put_line('OKL_SEC_AGREEMENT_PVT.update_sec_agreement end');
3179: x_secagreement_rec => lx_secagreement_rec);
3180:
3181: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3182: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3183: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3184: RAISE OKL_API.G_EXCEPTION_ERROR;
3185: END IF;
3186: --dbms_output.put_line('OKL_SEC_AGREEMENT_PVT.update_sec_agreement end');
3187:
3180:
3181: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3182: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3183: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3184: RAISE OKL_API.G_EXCEPTION_ERROR;
3185: END IF;
3186: --dbms_output.put_line('OKL_SEC_AGREEMENT_PVT.update_sec_agreement end');
3187:
3188: ----------------------------------------------------------------------------
3214: p_klev_rec => lp_klev_rec,
3215: x_clev_rec => lx_clev_rec,
3216: x_klev_rec => lx_klev_rec);
3217:
3218: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3219: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3220: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3221: RAISE OKL_API.G_EXCEPTION_ERROR;
3222: END IF;
3215: x_clev_rec => lx_clev_rec,
3216: x_klev_rec => lx_klev_rec);
3217:
3218: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3219: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3220: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3221: RAISE OKL_API.G_EXCEPTION_ERROR;
3222: END IF;
3223:
3216: x_klev_rec => lx_klev_rec);
3217:
3218: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3219: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3220: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3221: RAISE OKL_API.G_EXCEPTION_ERROR;
3222: END IF;
3223:
3224: END LOOP;
3217:
3218: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3219: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3220: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3221: RAISE OKL_API.G_EXCEPTION_ERROR;
3222: END IF;
3223:
3224: END LOOP;
3225: CLOSE c_agr_lns;
3232: (p_count => x_msg_count,
3233: p_data => x_msg_data);
3234:
3235: EXCEPTION
3236: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3237: ROLLBACK TO update_sec_agreement_sts_PVT;
3238: x_return_status := OKL_API.G_RET_STS_ERROR;
3239: FND_MSG_PUB.Count_And_Get
3240: (p_count => x_msg_count,
3234:
3235: EXCEPTION
3236: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3237: ROLLBACK TO update_sec_agreement_sts_PVT;
3238: x_return_status := OKL_API.G_RET_STS_ERROR;
3239: FND_MSG_PUB.Count_And_Get
3240: (p_count => x_msg_count,
3241: p_data => x_msg_data);
3242:
3239: FND_MSG_PUB.Count_And_Get
3240: (p_count => x_msg_count,
3241: p_data => x_msg_data);
3242:
3243: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3244: ROLLBACK TO update_sec_agreement_sts_PVT;
3245: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
3246: FND_MSG_PUB.Count_And_Get
3247: (p_count => x_msg_count,
3241: p_data => x_msg_data);
3242:
3243: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3244: ROLLBACK TO update_sec_agreement_sts_PVT;
3245: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
3246: FND_MSG_PUB.Count_And_Get
3247: (p_count => x_msg_count,
3248: p_data => x_msg_data);
3249:
3248: p_data => x_msg_data);
3249:
3250: WHEN OTHERS THEN
3251: ROLLBACK TO update_sec_agreement_sts_PVT;
3252: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
3253: OKL_API.Set_Message(p_app_name => G_APP_NAME,
3254: p_msg_name => G_UNEXPECTED_ERROR,
3255: p_token1 => G_SQLCODE_TOKEN,
3256: p_token1_value => SQLCODE,
3249:
3250: WHEN OTHERS THEN
3251: ROLLBACK TO update_sec_agreement_sts_PVT;
3252: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
3253: OKL_API.Set_Message(p_app_name => G_APP_NAME,
3254: p_msg_name => G_UNEXPECTED_ERROR,
3255: p_token1 => G_SQLCODE_TOKEN,
3256: p_token1_value => SQLCODE,
3257: p_token2 => G_SQLERRM_TOKEN,
3290: x_reconciled VARCHAR2(1);
3291:
3292: BEGIN
3293: -- initialize return status
3294: x_return_status := OKL_API.G_RET_STS_SUCCESS;
3295:
3296:
3297: x_return_status := OKL_API.START_ACTIVITY(
3298: p_api_name => l_api_name,
3293: -- initialize return status
3294: x_return_status := OKL_API.G_RET_STS_SUCCESS;
3295:
3296:
3297: x_return_status := OKL_API.START_ACTIVITY(
3298: p_api_name => l_api_name,
3299: p_pkg_name => g_pkg_name,
3300: p_init_msg_list => p_init_msg_list,
3301: l_api_version => l_api_version,
3303: p_api_type => G_API_TYPE,
3304: x_return_status => x_return_status);
3305:
3306: -- check if activity started successfully
3307: If (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
3308: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3309: ElSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
3310: raise OKL_API.G_EXCEPTION_ERROR;
3311: End If;
3304: x_return_status => x_return_status);
3305:
3306: -- check if activity started successfully
3307: If (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
3308: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3309: ElSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
3310: raise OKL_API.G_EXCEPTION_ERROR;
3311: End If;
3312:
3305:
3306: -- check if activity started successfully
3307: If (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
3308: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3309: ElSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
3310: raise OKL_API.G_EXCEPTION_ERROR;
3311: End If;
3312:
3313: FOR get_pol_id_rec IN get_pol_id_csr(p_chr_id)
3306: -- check if activity started successfully
3307: If (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
3308: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3309: ElSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
3310: raise OKL_API.G_EXCEPTION_ERROR;
3311: End If;
3312:
3313: FOR get_pol_id_rec IN get_pol_id_csr(p_chr_id)
3314: LOOP
3316: END LOOP;
3317:
3318: IF l_pol_id IS NULL
3319: THEN
3320: Okl_Api.set_message(G_APP_NAME,
3321: G_INVALID_VALUE,
3322: G_COL_NAME_TOKEN,
3323: 'POOL_ID');
3324: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3320: Okl_Api.set_message(G_APP_NAME,
3321: G_INVALID_VALUE,
3322: G_COL_NAME_TOKEN,
3323: 'POOL_ID');
3324: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3325: END IF;
3326:
3327: OKL_POOL_PVT.get_tot_recei_amt_pend(
3328: p_api_version => '1.0',
3333: x_value => l_stream_value,
3334: p_pol_id => l_pol_id );
3335:
3336: If( l_stream_value IS NULL OR l_stream_value = 0 ) Then
3337: OKL_API.set_message(
3338: p_app_name => G_APP_NAME,
3339: p_msg_name => 'OKL_QA_STREAM_VALUE');
3340: -- notify caller of an error but do not raise an exception
3341: x_return_status := OKL_API.G_RET_STS_ERROR;
3337: OKL_API.set_message(
3338: p_app_name => G_APP_NAME,
3339: p_msg_name => 'OKL_QA_STREAM_VALUE');
3340: -- notify caller of an error but do not raise an exception
3341: x_return_status := OKL_API.G_RET_STS_ERROR;
3342: END IF;
3343:
3344: --Check to see if the pool recquires reconcilation
3345: OKL_POOL_PVT.reconcile_contents(
3351: p_pol_id => l_pol_id,
3352: p_mode => 'ACTIVE',
3353: x_reconciled => x_reconciled );
3354:
3355: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3356: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3357: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3358: RAISE OKL_API.G_EXCEPTION_ERROR;
3359: END IF;
3352: p_mode => 'ACTIVE',
3353: x_reconciled => x_reconciled );
3354:
3355: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3356: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3357: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3358: RAISE OKL_API.G_EXCEPTION_ERROR;
3359: END IF;
3360:
3353: x_reconciled => x_reconciled );
3354:
3355: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3356: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3357: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3358: RAISE OKL_API.G_EXCEPTION_ERROR;
3359: END IF;
3360:
3361: IF ( x_reconciled = OKL_API.G_TRUE ) Then
3354:
3355: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3356: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3357: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3358: RAISE OKL_API.G_EXCEPTION_ERROR;
3359: END IF;
3360:
3361: IF ( x_reconciled = OKL_API.G_TRUE ) Then
3362: x_return_status := OKL_API.G_RET_STS_ERROR;
3357: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3358: RAISE OKL_API.G_EXCEPTION_ERROR;
3359: END IF;
3360:
3361: IF ( x_reconciled = OKL_API.G_TRUE ) Then
3362: x_return_status := OKL_API.G_RET_STS_ERROR;
3363: OKL_API.set_message(
3364: p_app_name => G_APP_NAME,
3365: p_msg_name => 'OKL_LLA_RECONCILED');
3358: RAISE OKL_API.G_EXCEPTION_ERROR;
3359: END IF;
3360:
3361: IF ( x_reconciled = OKL_API.G_TRUE ) Then
3362: x_return_status := OKL_API.G_RET_STS_ERROR;
3363: OKL_API.set_message(
3364: p_app_name => G_APP_NAME,
3365: p_msg_name => 'OKL_LLA_RECONCILED');
3366: raise OKL_API.G_EXCEPTION_ERROR;
3359: END IF;
3360:
3361: IF ( x_reconciled = OKL_API.G_TRUE ) Then
3362: x_return_status := OKL_API.G_RET_STS_ERROR;
3363: OKL_API.set_message(
3364: p_app_name => G_APP_NAME,
3365: p_msg_name => 'OKL_LLA_RECONCILED');
3366: raise OKL_API.G_EXCEPTION_ERROR;
3367: End If;
3362: x_return_status := OKL_API.G_RET_STS_ERROR;
3363: OKL_API.set_message(
3364: p_app_name => G_APP_NAME,
3365: p_msg_name => 'OKL_LLA_RECONCILED');
3366: raise OKL_API.G_EXCEPTION_ERROR;
3367: End If;
3368:
3369: x_return_status := OKL_API.G_RET_STS_SUCCESS;
3370:
3365: p_msg_name => 'OKL_LLA_RECONCILED');
3366: raise OKL_API.G_EXCEPTION_ERROR;
3367: End If;
3368:
3369: x_return_status := OKL_API.G_RET_STS_SUCCESS;
3370:
3371: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
3372:
3373:
3367: End If;
3368:
3369: x_return_status := OKL_API.G_RET_STS_SUCCESS;
3370:
3371: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
3372:
3373:
3374: EXCEPTION
3375: when OKL_API.G_EXCEPTION_ERROR then
3371: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
3372:
3373:
3374: EXCEPTION
3375: when OKL_API.G_EXCEPTION_ERROR then
3376: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
3377: p_api_name => l_api_name,
3378: p_pkg_name => g_pkg_name,
3379: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
3372:
3373:
3374: EXCEPTION
3375: when OKL_API.G_EXCEPTION_ERROR then
3376: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
3377: p_api_name => l_api_name,
3378: p_pkg_name => g_pkg_name,
3379: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
3380: x_msg_count => x_msg_count,
3375: when OKL_API.G_EXCEPTION_ERROR then
3376: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
3377: p_api_name => l_api_name,
3378: p_pkg_name => g_pkg_name,
3379: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
3380: x_msg_count => x_msg_count,
3381: x_msg_data => x_msg_data,
3382: p_api_type => g_api_type);
3383:
3380: x_msg_count => x_msg_count,
3381: x_msg_data => x_msg_data,
3382: p_api_type => g_api_type);
3383:
3384: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
3385: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
3386: p_api_name => l_api_name,
3387: p_pkg_name => g_pkg_name,
3388: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
3381: x_msg_data => x_msg_data,
3382: p_api_type => g_api_type);
3383:
3384: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
3385: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
3386: p_api_name => l_api_name,
3387: p_pkg_name => g_pkg_name,
3388: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
3389: x_msg_count => x_msg_count,
3384: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
3385: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
3386: p_api_name => l_api_name,
3387: p_pkg_name => g_pkg_name,
3388: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
3389: x_msg_count => x_msg_count,
3390: x_msg_data => x_msg_data,
3391: p_api_type => g_api_type);
3392:
3390: x_msg_data => x_msg_data,
3391: p_api_type => g_api_type);
3392:
3393: when OTHERS then
3394: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
3395: p_api_name => l_api_name,
3396: p_pkg_name => g_pkg_name,
3397: p_exc_name => 'OTHERS',
3398: x_msg_count => x_msg_count,
3422: l_chr_id OKC_K_HEADERS_B.ID%TYPE;
3423:
3424: l_pox_id OKL_POOL_CONTENTS.POX_ID%TYPE;
3425: l_poc_id OKL_POOL_CONTENTS.ID%TYPE;
3426: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
3427:
3428: lp_chrv_rec OKL_OKC_MIGRATION_PVT.chrv_rec_type;
3429: lx_chrv_rec OKL_OKC_MIGRATION_PVT.chrv_rec_type;
3430: lp_khrv_rec OKL_CONTRACT_PUB.khrv_rec_type;
3517: p_api_version,
3518: l_api_name,
3519: G_PKG_NAME ))
3520: THEN
3521: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3522: END IF;
3523:
3524: -- Initialize message list if requested
3525: IF (FND_API.to_Boolean(p_init_msg_list)) THEN
3526: FND_MSG_PUB.initialize;
3527: END IF;
3528:
3529: -- Initialize API status to success
3530: x_return_status := OKL_API.G_RET_STS_SUCCESS;
3531:
3532: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
3533: fnd_log.STRING(fnd_log.level_statement,'okl.plsql.okl_sec_agreement_pvt.activate_add_request.debug', 'Begin Processing Add Request');
3534: fnd_log.STRING(fnd_log.level_statement,'okl.plsql.okl_sec_agreement_pvt.activate_add_request.debug','p_khr_id:'|| p_khr_id);
3563: END LOOP;
3564:
3565: IF l_pol_id IS NULL
3566: THEN
3567: Okl_Api.set_message(G_APP_NAME,
3568: G_INVALID_VALUE,
3569: G_COL_NAME_TOKEN,
3570: 'POOL_ID');
3571: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3567: Okl_Api.set_message(G_APP_NAME,
3568: G_INVALID_VALUE,
3569: G_COL_NAME_TOKEN,
3570: 'POOL_ID');
3571: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3572: END IF;
3573:
3574: --Fetch the transaction id of the Pool Transaction
3575: FOR get_pox_rec IN get_pox_csr(l_pol_id)
3578: END LOOP;
3579:
3580: IF l_pox_id IS NULL
3581: THEN
3582: Okl_Api.set_message(G_APP_NAME,
3583: G_INVALID_VALUE,
3584: G_COL_NAME_TOKEN,
3585: 'POX_ID');
3586: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3582: Okl_Api.set_message(G_APP_NAME,
3583: G_INVALID_VALUE,
3584: G_COL_NAME_TOKEN,
3585: 'POX_ID');
3586: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3587: END IF;
3588:
3589: validate_add_request(
3590: p_api_version => p_api_version,
3597: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
3598: 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);
3599: END IF;
3600:
3601: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
3602: --Update the status of the Pool Transaction to INCOMPLETE and Halt processing
3603: lp_poxv_rec.id := l_pox_id;
3604: lp_poxv_rec.TRANSACTION_STATUS := G_POOL_TRX_STATUS_INCOMPLETE;
3605:
3610: x_msg_data => x_msg_data,
3611: p_poxv_rec => lp_poxv_rec,
3612: x_poxv_rec => lx_poxv_rec);
3613:
3614: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3615: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3616: ELSIF (x_return_Status = OKL_API.G_RET_STS_ERROR) THEN
3617: RAISE OKL_API.G_EXCEPTION_ERROR;
3618: END IF;
3611: p_poxv_rec => lp_poxv_rec,
3612: x_poxv_rec => lx_poxv_rec);
3613:
3614: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3615: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3616: ELSIF (x_return_Status = OKL_API.G_RET_STS_ERROR) THEN
3617: RAISE OKL_API.G_EXCEPTION_ERROR;
3618: END IF;
3619:
3612: x_poxv_rec => lx_poxv_rec);
3613:
3614: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3615: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3616: ELSIF (x_return_Status = OKL_API.G_RET_STS_ERROR) THEN
3617: RAISE OKL_API.G_EXCEPTION_ERROR;
3618: END IF;
3619:
3620: --Stop submit processing
3613:
3614: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3615: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3616: ELSIF (x_return_Status = OKL_API.G_RET_STS_ERROR) THEN
3617: RAISE OKL_API.G_EXCEPTION_ERROR;
3618: END IF;
3619:
3620: --Stop submit processing
3621: RAISE G_HALT_PROCESSING;
3657: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
3658: 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);
3659: END IF;
3660:
3661: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3662: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3663: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3664: RAISE OKL_API.G_EXCEPTION_ERROR;
3665: END IF;
3658: 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);
3659: END IF;
3660:
3661: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3662: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3663: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3664: RAISE OKL_API.G_EXCEPTION_ERROR;
3665: END IF;
3666:
3659: END IF;
3660:
3661: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3662: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3663: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3664: RAISE OKL_API.G_EXCEPTION_ERROR;
3665: END IF;
3666:
3667: END LOOP;
3660:
3661: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3662: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3663: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3664: RAISE OKL_API.G_EXCEPTION_ERROR;
3665: END IF;
3666:
3667: END LOOP;
3668: CLOSE c_pool_chr_csr;
3694: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
3695: 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);
3696: END IF;
3697:
3698: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3699: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3700: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3701: RAISE OKL_API.G_EXCEPTION_ERROR;
3702: END IF;
3695: 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);
3696: END IF;
3697:
3698: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3699: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3700: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3701: RAISE OKL_API.G_EXCEPTION_ERROR;
3702: END IF;
3703:
3696: END IF;
3697:
3698: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3699: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3700: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3701: RAISE OKL_API.G_EXCEPTION_ERROR;
3702: END IF;
3703:
3704: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
3697:
3698: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3699: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3700: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3701: RAISE OKL_API.G_EXCEPTION_ERROR;
3702: END IF;
3703:
3704: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
3705: 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');
3728: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
3729: 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);
3730: END IF;
3731:
3732: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3733: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3734: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3735: RAISE OKL_API.G_EXCEPTION_ERROR;
3736: END IF;
3729: 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);
3730: END IF;
3731:
3732: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3733: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3734: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3735: RAISE OKL_API.G_EXCEPTION_ERROR;
3736: END IF;
3737:
3730: END IF;
3731:
3732: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3733: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3734: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3735: RAISE OKL_API.G_EXCEPTION_ERROR;
3736: END IF;
3737:
3738: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
3731:
3732: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3733: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3734: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3735: RAISE OKL_API.G_EXCEPTION_ERROR;
3736: END IF;
3737:
3738: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
3739: 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');
3768: 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);
3769: 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);
3770: END IF;
3771:
3772: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3773: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3774: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3775: RAISE OKL_API.G_EXCEPTION_ERROR;
3776: END IF;
3769: 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);
3770: END IF;
3771:
3772: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3773: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3774: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3775: RAISE OKL_API.G_EXCEPTION_ERROR;
3776: END IF;
3777: -- Fixed Bug#3386816, mvasudev
3770: END IF;
3771:
3772: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3773: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3774: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3775: RAISE OKL_API.G_EXCEPTION_ERROR;
3776: END IF;
3777: -- Fixed Bug#3386816, mvasudev
3778: EXIT WHEN l_okl_sty_csr%FOUND;
3771:
3772: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3773: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3774: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3775: RAISE OKL_API.G_EXCEPTION_ERROR;
3776: END IF;
3777: -- Fixed Bug#3386816, mvasudev
3778: EXIT WHEN l_okl_sty_csr%FOUND;
3779: END LOOP;
3803: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
3804: 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);
3805: END IF;
3806:
3807: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3808: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3809: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3810: RAISE OKL_API.G_EXCEPTION_ERROR;
3811: END IF;
3804: 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);
3805: END IF;
3806:
3807: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3808: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3809: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3810: RAISE OKL_API.G_EXCEPTION_ERROR;
3811: END IF;
3812:
3805: END IF;
3806:
3807: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3808: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3809: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3810: RAISE OKL_API.G_EXCEPTION_ERROR;
3811: END IF;
3812:
3813: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
3806:
3807: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3808: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3809: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3810: RAISE OKL_API.G_EXCEPTION_ERROR;
3811: END IF;
3812:
3813: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
3814: 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');
3835: 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);
3836: 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);
3837: END IF;
3838:
3839: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3840: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3841: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3842: RAISE OKL_API.G_EXCEPTION_ERROR;
3843: END IF;
3836: 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);
3837: END IF;
3838:
3839: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3840: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3841: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3842: RAISE OKL_API.G_EXCEPTION_ERROR;
3843: END IF;
3844:
3837: END IF;
3838:
3839: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3840: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3841: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3842: RAISE OKL_API.G_EXCEPTION_ERROR;
3843: END IF;
3844:
3845: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
3838:
3839: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3840: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3841: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3842: RAISE OKL_API.G_EXCEPTION_ERROR;
3843: END IF;
3844:
3845: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
3846: fnd_log.STRING(fnd_log.level_statement,'okl.plsql.okl_sec_agreement_pvt.activate_add_request.debug', '7 call BPD Billing API: END');
3874: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
3875: 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);
3876: END IF;
3877:
3878: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3879: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3880: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3881: RAISE OKL_API.G_EXCEPTION_ERROR;
3882: END IF;
3875: 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);
3876: END IF;
3877:
3878: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3879: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3880: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3881: RAISE OKL_API.G_EXCEPTION_ERROR;
3882: END IF;
3883: END IF;
3876: END IF;
3877:
3878: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3879: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3880: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3881: RAISE OKL_API.G_EXCEPTION_ERROR;
3882: END IF;
3883: END IF;
3884: END LOOP;
3877:
3878: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3879: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3880: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3881: RAISE OKL_API.G_EXCEPTION_ERROR;
3882: END IF;
3883: END IF;
3884: END LOOP;
3885:
3913: 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);
3914: END IF;
3915:
3916:
3917: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
3918: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3919: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
3920: RAISE Okl_Api.G_EXCEPTION_ERROR;
3921: END IF;
3914: END IF;
3915:
3916:
3917: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
3918: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3919: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
3920: RAISE Okl_Api.G_EXCEPTION_ERROR;
3921: END IF;
3922: END LOOP;
3915:
3916:
3917: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
3918: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3919: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
3920: RAISE Okl_Api.G_EXCEPTION_ERROR;
3921: END IF;
3922: END LOOP;
3923:
3916:
3917: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
3918: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3919: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
3920: RAISE Okl_Api.G_EXCEPTION_ERROR;
3921: END IF;
3922: END LOOP;
3923:
3924:
3938: x_msg_data => x_msg_data,
3939: p_poxv_rec => lp_poxv_rec,
3940: x_poxv_rec => lx_poxv_rec);
3941:
3942: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3943: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3944: ELSIF (x_return_Status = OKL_API.G_RET_STS_ERROR) THEN
3945: RAISE OKL_API.G_EXCEPTION_ERROR;
3946: END IF;
3939: p_poxv_rec => lp_poxv_rec,
3940: x_poxv_rec => lx_poxv_rec);
3941:
3942: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3943: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3944: ELSIF (x_return_Status = OKL_API.G_RET_STS_ERROR) THEN
3945: RAISE OKL_API.G_EXCEPTION_ERROR;
3946: END IF;
3947:
3940: x_poxv_rec => lx_poxv_rec);
3941:
3942: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3943: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3944: ELSIF (x_return_Status = OKL_API.G_RET_STS_ERROR) THEN
3945: RAISE OKL_API.G_EXCEPTION_ERROR;
3946: END IF;
3947:
3948:
3941:
3942: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3943: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3944: ELSIF (x_return_Status = OKL_API.G_RET_STS_ERROR) THEN
3945: RAISE OKL_API.G_EXCEPTION_ERROR;
3946: END IF;
3947:
3948:
3949: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
3949: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
3950: 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);
3951: END IF;
3952:
3953: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3954: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3955: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3956: RAISE OKL_API.G_EXCEPTION_ERROR;
3957: END IF;
3950: 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);
3951: END IF;
3952:
3953: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3954: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3955: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3956: RAISE OKL_API.G_EXCEPTION_ERROR;
3957: END IF;
3958:
3951: END IF;
3952:
3953: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3954: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3955: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3956: RAISE OKL_API.G_EXCEPTION_ERROR;
3957: END IF;
3958:
3959: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
3952:
3953: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3954: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3955: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3956: RAISE OKL_API.G_EXCEPTION_ERROR;
3957: END IF;
3958:
3959: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
3960: fnd_log.STRING(fnd_log.level_statement,'okl.plsql.okl_sec_agreement_pvt.activate_add_request.debug', 'Update investor stake');
3969:
3970: EXCEPTION
3971: --For this User defined exception, do not rollback
3972: WHEN G_HALT_PROCESSING THEN
3973: x_return_status := OKL_API.G_RET_STS_ERROR;
3974: FND_MSG_PUB.Count_And_Get
3975: (p_count => x_msg_count,
3976: p_data => x_msg_data);
3977:
3974: FND_MSG_PUB.Count_And_Get
3975: (p_count => x_msg_count,
3976: p_data => x_msg_data);
3977:
3978: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3979: ROLLBACK TO activate_add_request_pvt;
3980: x_return_status := OKL_API.G_RET_STS_ERROR;
3981: FND_MSG_PUB.Count_And_Get
3982: (p_count => x_msg_count,
3976: p_data => x_msg_data);
3977:
3978: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3979: ROLLBACK TO activate_add_request_pvt;
3980: x_return_status := OKL_API.G_RET_STS_ERROR;
3981: FND_MSG_PUB.Count_And_Get
3982: (p_count => x_msg_count,
3983: p_data => x_msg_data);
3984:
3981: FND_MSG_PUB.Count_And_Get
3982: (p_count => x_msg_count,
3983: p_data => x_msg_data);
3984:
3985: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3986: ROLLBACK TO activate_add_request_pvt;
3987: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
3988: FND_MSG_PUB.Count_And_Get
3989: (p_count => x_msg_count,
3983: p_data => x_msg_data);
3984:
3985: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3986: ROLLBACK TO activate_add_request_pvt;
3987: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
3988: FND_MSG_PUB.Count_And_Get
3989: (p_count => x_msg_count,
3990: p_data => x_msg_data);
3991: WHEN OTHERS THEN
3989: (p_count => x_msg_count,
3990: p_data => x_msg_data);
3991: WHEN OTHERS THEN
3992: ROLLBACK TO activate_add_request_pvt;
3993: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
3994: OKL_API.Set_Message(p_app_name => G_APP_NAME,
3995: p_msg_name => G_UNEXPECTED_ERROR,
3996: p_token1 => G_SQLCODE_TOKEN,
3997: p_token1_value => SQLCODE,
3990: p_data => x_msg_data);
3991: WHEN OTHERS THEN
3992: ROLLBACK TO activate_add_request_pvt;
3993: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR ;
3994: OKL_API.Set_Message(p_app_name => G_APP_NAME,
3995: p_msg_name => G_UNEXPECTED_ERROR,
3996: p_token1 => G_SQLCODE_TOKEN,
3997: p_token1_value => SQLCODE,
3998: p_token2 => G_SQLERRM_TOKEN,
4019: -- Version : 1.0
4020: -- End of comments
4021: ---------------------------------------------------------------------------
4022: PROCEDURE submit_add_khr_request (p_api_version IN NUMBER,
4023: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
4024: x_return_status OUT NOCOPY VARCHAR2,
4025: x_msg_count OUT NOCOPY NUMBER,
4026: x_msg_data OUT NOCOPY VARCHAR2,
4027: p_agreement_id IN OKC_K_HEADERS_V.ID%TYPE,
4051: l_msg_count NUMBER;
4052:
4053: BEGIN
4054:
4055: l_return_status := OKL_API.G_RET_STS_SUCCESS;
4056: l_pool_id := p_pool_id;
4057: l_agreement_id := p_agreement_id;
4058: x_return_status := OKL_API.G_RET_STS_SUCCESS;
4059:
4054:
4055: l_return_status := OKL_API.G_RET_STS_SUCCESS;
4056: l_pool_id := p_pool_id;
4057: l_agreement_id := p_agreement_id;
4058: x_return_status := OKL_API.G_RET_STS_SUCCESS;
4059:
4060: -- Call start_activity to create savepoint, check compatibility
4061: -- and initialize message list
4062: x_return_status := OKL_API.START_ACTIVITY(l_api_name,
4058: x_return_status := OKL_API.G_RET_STS_SUCCESS;
4059:
4060: -- Call start_activity to create savepoint, check compatibility
4061: -- and initialize message list
4062: x_return_status := OKL_API.START_ACTIVITY(l_api_name,
4063: p_init_msg_list,
4064: '_PVT',
4065: x_return_status);
4066: -- Check if activity started successfully
4063: p_init_msg_list,
4064: '_PVT',
4065: x_return_status);
4066: -- Check if activity started successfully
4067: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4068: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4069: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4070: RAISE OKL_API.G_EXCEPTION_ERROR;
4071: END IF;
4064: '_PVT',
4065: x_return_status);
4066: -- Check if activity started successfully
4067: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4068: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4069: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4070: RAISE OKL_API.G_EXCEPTION_ERROR;
4071: END IF;
4072: -- 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);
4065: x_return_status);
4066: -- Check if activity started successfully
4067: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4068: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4069: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4070: RAISE OKL_API.G_EXCEPTION_ERROR;
4071: END IF;
4072: -- 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);
4073:
4066: -- Check if activity started successfully
4067: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4068: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4069: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4070: RAISE OKL_API.G_EXCEPTION_ERROR;
4071: END IF;
4072: -- 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);
4073:
4074: -- read the profile OKL: Investor Add Contracts Approval Process
4077: -- get the pool transaction id which needs to be updated, since we can have only one transaction in 'NEW' status
4078: OPEN c_fetch_pool_trans_id_csr(p_pool_id);
4079: FETCH c_fetch_pool_trans_id_csr into l_pool_trans_id;
4080: IF c_fetch_pool_trans_id_csr%NOTFOUND THEN
4081: OKL_API.set_message(p_app_name => G_APP_NAME,
4082: p_msg_name => G_NO_MATCHING_RECORD,
4083: p_token1 => G_COL_NAME_TOKEN,
4084: p_token1_value => 'OKL_POOL_TRANSACTIONS.ID');
4085: RAISE OKL_API.G_EXCEPTION_ERROR;
4081: OKL_API.set_message(p_app_name => G_APP_NAME,
4082: p_msg_name => G_NO_MATCHING_RECORD,
4083: p_token1 => G_COL_NAME_TOKEN,
4084: p_token1_value => 'OKL_POOL_TRANSACTIONS.ID');
4085: RAISE OKL_API.G_EXCEPTION_ERROR;
4086: END IF;
4087: CLOSE c_fetch_pool_trans_id_csr ;
4088:
4089: --Set the Pool Transaction Id for the update call
4096: x_return_status,
4097: l_msg_count,
4098: l_msg_data,
4099: l_agreement_id);
4100: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
4101: lp_poxv_rec.TRANSACTION_STATUS := G_POOL_TRX_STATUS_INCOMPLETE;
4102:
4103: OKL_POOL_PVT.update_pool_transaction(p_api_version => p_api_version,
4104: p_init_msg_list => p_init_msg_list,
4106: x_msg_count => x_msg_count,
4107: x_msg_data => x_msg_data,
4108: p_poxv_rec => lp_poxv_rec,
4109: x_poxv_rec => lx_poxv_rec);
4110: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4111: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4112: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4113: RAISE OKL_API.G_EXCEPTION_ERROR;
4114: END IF;
4107: x_msg_data => x_msg_data,
4108: p_poxv_rec => lp_poxv_rec,
4109: x_poxv_rec => lx_poxv_rec);
4110: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4111: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4112: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4113: RAISE OKL_API.G_EXCEPTION_ERROR;
4114: END IF;
4115: --Since the Validation returned an Error need to raise an exception and return the control,
4108: p_poxv_rec => lp_poxv_rec,
4109: x_poxv_rec => lx_poxv_rec);
4110: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4111: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4112: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4113: RAISE OKL_API.G_EXCEPTION_ERROR;
4114: END IF;
4115: --Since the Validation returned an Error need to raise an exception and return the control,
4116: --no further processing needs to be done.
4109: x_poxv_rec => lx_poxv_rec);
4110: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4111: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4112: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4113: RAISE OKL_API.G_EXCEPTION_ERROR;
4114: END IF;
4115: --Since the Validation returned an Error need to raise an exception and return the control,
4116: --no further processing needs to be done.
4117: RAISE G_HALT_PROCESSING;
4115: --Since the Validation returned an Error need to raise an exception and return the control,
4116: --no further processing needs to be done.
4117: RAISE G_HALT_PROCESSING;
4118:
4119: END IF; --x_return_status <> OKL_API.G_RET_STS_SUCCESS
4120:
4121: IF(NVL(l_approval_process, 'NONE')) = 'NONE' THEN
4122: -- since no option is set at the profile, approve the operating agreement by default
4123: lp_poxv_rec.TRANSACTION_STATUS := G_POOL_TRX_STATUS_APPROVED;
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: ELSIF(l_approval_process IN (G_ADD_KHR_REQUEST_APPROVAL_WF, G_ADD_KHR_REQUEST_APPRV_AME))THEN
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: ELSIF(l_approval_process IN (G_ADD_KHR_REQUEST_APPROVAL_WF, G_ADD_KHR_REQUEST_APPRV_AME))THEN
4139:
4146: x_msg_count => x_msg_count,
4147: x_msg_data => x_msg_data,
4148: p_poxv_rec => lp_poxv_rec,
4149: x_poxv_rec => lx_poxv_rec);
4150: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4151: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4152: ELSIF (x_return_Status = OKL_API.G_RET_STS_ERROR) THEN
4153: RAISE OKL_API.G_EXCEPTION_ERROR;
4154: END IF;
4147: x_msg_data => x_msg_data,
4148: p_poxv_rec => lp_poxv_rec,
4149: x_poxv_rec => lx_poxv_rec);
4150: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4151: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4152: ELSIF (x_return_Status = OKL_API.G_RET_STS_ERROR) THEN
4153: RAISE OKL_API.G_EXCEPTION_ERROR;
4154: END IF;
4155:
4148: p_poxv_rec => lp_poxv_rec,
4149: x_poxv_rec => lx_poxv_rec);
4150: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4151: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4152: ELSIF (x_return_Status = OKL_API.G_RET_STS_ERROR) THEN
4153: RAISE OKL_API.G_EXCEPTION_ERROR;
4154: END IF;
4155:
4156: -- Raise Event
4149: x_poxv_rec => lx_poxv_rec);
4150: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4151: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4152: ELSIF (x_return_Status = OKL_API.G_RET_STS_ERROR) THEN
4153: RAISE OKL_API.G_EXCEPTION_ERROR;
4154: END IF;
4155:
4156: -- Raise Event
4157: OKL_SEC_AGREEMENT_WF.raise_add_khr_approval_event(p_api_version => p_api_version
4162: ,p_agreement_id => l_agreement_id
4163: ,p_pool_id => l_pool_id
4164: ,p_pool_trans_id => l_pool_trans_id);
4165:
4166: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4167: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4168: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4169: RAISE OKL_API.G_EXCEPTION_ERROR;
4170: END IF;
4163: ,p_pool_id => l_pool_id
4164: ,p_pool_trans_id => l_pool_trans_id);
4165:
4166: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4167: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4168: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4169: RAISE OKL_API.G_EXCEPTION_ERROR;
4170: END IF;
4171: END IF; -- end of NVL(l_approval_process,'NONE')='NONE'
4164: ,p_pool_trans_id => l_pool_trans_id);
4165:
4166: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4167: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4168: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4169: RAISE OKL_API.G_EXCEPTION_ERROR;
4170: END IF;
4171: END IF; -- end of NVL(l_approval_process,'NONE')='NONE'
4172:
4165:
4166: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4167: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4168: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4169: RAISE OKL_API.G_EXCEPTION_ERROR;
4170: END IF;
4171: END IF; -- end of NVL(l_approval_process,'NONE')='NONE'
4172:
4173: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
4169: RAISE OKL_API.G_EXCEPTION_ERROR;
4170: END IF;
4171: END IF; -- end of NVL(l_approval_process,'NONE')='NONE'
4172:
4173: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
4174: x_msg_data => x_msg_data);
4175: EXCEPTION
4176: --For this User defined exception, do not rollback
4177: WHEN G_HALT_PROCESSING THEN
4174: x_msg_data => x_msg_data);
4175: EXCEPTION
4176: --For this User defined exception, do not rollback
4177: WHEN G_HALT_PROCESSING THEN
4178: x_return_status := OKL_API.G_RET_STS_ERROR;
4179: FND_MSG_PUB.Count_And_Get(p_count => l_msg_count,
4180: p_data => l_msg_data);
4181:
4182: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4178: x_return_status := OKL_API.G_RET_STS_ERROR;
4179: FND_MSG_PUB.Count_And_Get(p_count => l_msg_count,
4180: p_data => l_msg_data);
4181:
4182: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4183: x_return_status := OKL_API.G_RET_STS_ERROR;
4184: IF c_fetch_pool_trans_id_csr%ISOPEN THEN
4185: CLOSE c_fetch_pool_trans_id_csr;
4186: END IF;
4179: FND_MSG_PUB.Count_And_Get(p_count => l_msg_count,
4180: p_data => l_msg_data);
4181:
4182: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4183: x_return_status := OKL_API.G_RET_STS_ERROR;
4184: IF c_fetch_pool_trans_id_csr%ISOPEN THEN
4185: CLOSE c_fetch_pool_trans_id_csr;
4186: END IF;
4187: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4183: x_return_status := OKL_API.G_RET_STS_ERROR;
4184: IF c_fetch_pool_trans_id_csr%ISOPEN THEN
4185: CLOSE c_fetch_pool_trans_id_csr;
4186: END IF;
4187: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4188: p_api_name => l_api_name,
4189: p_pkg_name => G_PKG_NAME,
4190: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
4191: x_msg_count => x_msg_count,
4186: END IF;
4187: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4188: p_api_name => l_api_name,
4189: p_pkg_name => G_PKG_NAME,
4190: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
4191: x_msg_count => x_msg_count,
4192: x_msg_data => x_msg_data,
4193: p_api_type => G_API_TYPE);
4194:
4191: x_msg_count => x_msg_count,
4192: x_msg_data => x_msg_data,
4193: p_api_type => G_API_TYPE);
4194:
4195: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4196: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
4197: IF c_fetch_pool_trans_id_csr%ISOPEN THEN
4198: CLOSE c_fetch_pool_trans_id_csr;
4199: END IF;
4192: x_msg_data => x_msg_data,
4193: p_api_type => G_API_TYPE);
4194:
4195: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4196: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
4197: IF c_fetch_pool_trans_id_csr%ISOPEN THEN
4198: CLOSE c_fetch_pool_trans_id_csr;
4199: END IF;
4200: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4196: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
4197: IF c_fetch_pool_trans_id_csr%ISOPEN THEN
4198: CLOSE c_fetch_pool_trans_id_csr;
4199: END IF;
4200: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4201: p_api_name => l_api_name,
4202: p_pkg_name => G_PKG_NAME,
4203: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
4204: x_msg_count => x_msg_count,
4199: END IF;
4200: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4201: p_api_name => l_api_name,
4202: p_pkg_name => G_PKG_NAME,
4203: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
4204: x_msg_count => x_msg_count,
4205: x_msg_data => x_msg_data,
4206: p_api_type => G_API_TYPE);
4207: WHEN OTHERS THEN
4208: IF c_fetch_pool_trans_id_csr%ISOPEN THEN
4209: CLOSE c_fetch_pool_trans_id_csr;
4210: END IF;
4211: -- store SQL error message on message stack
4212: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4213: p_api_name => l_api_name,
4214: p_pkg_name => G_PKG_NAME,
4215: p_exc_name => 'OTHERS',
4216: x_msg_count => x_msg_count,
4293:
4294:
4295: BEGIN
4296: -- initialize return status
4297: x_return_status := OKL_API.G_RET_STS_SUCCESS;
4298:
4299:
4300: x_return_status := OKL_API.START_ACTIVITY(
4301: p_api_name => l_api_name,
4296: -- initialize return status
4297: x_return_status := OKL_API.G_RET_STS_SUCCESS;
4298:
4299:
4300: x_return_status := OKL_API.START_ACTIVITY(
4301: p_api_name => l_api_name,
4302: p_pkg_name => g_pkg_name,
4303: p_init_msg_list => p_init_msg_list,
4304: l_api_version => l_api_version,
4306: p_api_type => G_API_TYPE,
4307: x_return_status => x_return_status);
4308:
4309: -- check if activity started successfully
4310: If (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
4311: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4312: ElSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
4313: raise OKL_API.G_EXCEPTION_ERROR;
4314: End If;
4307: x_return_status => x_return_status);
4308:
4309: -- check if activity started successfully
4310: If (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
4311: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4312: ElSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
4313: raise OKL_API.G_EXCEPTION_ERROR;
4314: End If;
4315:
4308:
4309: -- check if activity started successfully
4310: If (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
4311: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4312: ElSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
4313: raise OKL_API.G_EXCEPTION_ERROR;
4314: End If;
4315:
4316: FOR get_pol_id_rec IN get_pol_id_csr(p_chr_id)
4309: -- check if activity started successfully
4310: If (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
4311: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4312: ElSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
4313: raise OKL_API.G_EXCEPTION_ERROR;
4314: End If;
4315:
4316: FOR get_pol_id_rec IN get_pol_id_csr(p_chr_id)
4317: LOOP
4319: END LOOP;
4320:
4321: IF l_pol_id IS NULL
4322: THEN
4323: Okl_Api.set_message(G_APP_NAME,
4324: G_INVALID_VALUE,
4325: G_COL_NAME_TOKEN,
4326: 'POOL_ID');
4327: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4323: Okl_Api.set_message(G_APP_NAME,
4324: G_INVALID_VALUE,
4325: G_COL_NAME_TOKEN,
4326: 'POOL_ID');
4327: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4328: END IF;
4329:
4330: FOR get_pox_id_rec IN get_pox_id_csr(l_pol_id)
4331: LOOP
4333: END LOOP;
4334:
4335: IF l_pox_id IS NULL
4336: THEN
4337: Okl_Api.set_message(G_APP_NAME,
4338: G_INVALID_VALUE,
4339: G_COL_NAME_TOKEN,
4340: 'POX_ID');
4341: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4337: Okl_Api.set_message(G_APP_NAME,
4338: G_INVALID_VALUE,
4339: G_COL_NAME_TOKEN,
4340: 'POX_ID');
4341: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4342: END IF;
4343:
4344: -- create table of pool contents to be deleted
4345: i:=0;
4357: x_msg_count => x_msg_count,
4358: x_msg_data => x_msg_data,
4359: p_pocv_tbl => l_pocv_tbl);
4360:
4361: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4362: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4363: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4364: RAISE OKL_API.G_EXCEPTION_ERROR;
4365: END IF;
4358: x_msg_data => x_msg_data,
4359: p_pocv_tbl => l_pocv_tbl);
4360:
4361: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4362: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4363: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4364: RAISE OKL_API.G_EXCEPTION_ERROR;
4365: END IF;
4366:
4359: p_pocv_tbl => l_pocv_tbl);
4360:
4361: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4362: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4363: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4364: RAISE OKL_API.G_EXCEPTION_ERROR;
4365: END IF;
4366:
4367: -- Assign pool transaction to be deleted to the record
4360:
4361: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4362: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4363: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4364: RAISE OKL_API.G_EXCEPTION_ERROR;
4365: END IF;
4366:
4367: -- Assign pool transaction to be deleted to the record
4368:
4377: x_msg_count => x_msg_count,
4378: x_msg_data => x_msg_data,
4379: p_poxv_rec => l_poxv_rec);
4380:
4381: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4382: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4383: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4384: RAISE OKL_API.G_EXCEPTION_ERROR;
4385: END IF;
4378: x_msg_data => x_msg_data,
4379: p_poxv_rec => l_poxv_rec);
4380:
4381: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4382: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4383: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4384: RAISE OKL_API.G_EXCEPTION_ERROR;
4385: END IF;
4386:
4379: p_poxv_rec => l_poxv_rec);
4380:
4381: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4382: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4383: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4384: RAISE OKL_API.G_EXCEPTION_ERROR;
4385: END IF;
4386:
4387: --Update the additional stake on removing transaction
4380:
4381: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4382: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4383: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4384: RAISE OKL_API.G_EXCEPTION_ERROR;
4385: END IF;
4386:
4387: --Update the additional stake on removing transaction
4388: FOR get_inv_stake_rec IN get_inv_stake_csr(p_chr_id)
4412: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
4413: 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);
4414: END IF;
4415:
4416: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4417: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4418: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4419: RAISE OKL_API.G_EXCEPTION_ERROR;
4420: END IF;
4413: 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);
4414: END IF;
4415:
4416: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4417: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4418: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4419: RAISE OKL_API.G_EXCEPTION_ERROR;
4420: END IF;
4421: END IF;
4414: END IF;
4415:
4416: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4417: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4418: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4419: RAISE OKL_API.G_EXCEPTION_ERROR;
4420: END IF;
4421: END IF;
4422: END LOOP;
4415:
4416: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4417: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4418: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4419: RAISE OKL_API.G_EXCEPTION_ERROR;
4420: END IF;
4421: END IF;
4422: END LOOP;
4423:
4422: END LOOP;
4423:
4424:
4425:
4426: x_return_status := OKL_API.G_RET_STS_SUCCESS;
4427:
4428: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
4429:
4430:
4424:
4425:
4426: x_return_status := OKL_API.G_RET_STS_SUCCESS;
4427:
4428: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
4429:
4430:
4431: EXCEPTION
4432: when OKL_API.G_EXCEPTION_ERROR then
4428: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
4429:
4430:
4431: EXCEPTION
4432: when OKL_API.G_EXCEPTION_ERROR then
4433: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4434: p_api_name => l_api_name,
4435: p_pkg_name => g_pkg_name,
4436: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
4429:
4430:
4431: EXCEPTION
4432: when OKL_API.G_EXCEPTION_ERROR then
4433: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4434: p_api_name => l_api_name,
4435: p_pkg_name => g_pkg_name,
4436: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
4437: x_msg_count => x_msg_count,
4432: when OKL_API.G_EXCEPTION_ERROR then
4433: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4434: p_api_name => l_api_name,
4435: p_pkg_name => g_pkg_name,
4436: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
4437: x_msg_count => x_msg_count,
4438: x_msg_data => x_msg_data,
4439: p_api_type => g_api_type);
4440:
4437: x_msg_count => x_msg_count,
4438: x_msg_data => x_msg_data,
4439: p_api_type => g_api_type);
4440:
4441: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
4442: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4443: p_api_name => l_api_name,
4444: p_pkg_name => g_pkg_name,
4445: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
4438: x_msg_data => x_msg_data,
4439: p_api_type => g_api_type);
4440:
4441: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
4442: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4443: p_api_name => l_api_name,
4444: p_pkg_name => g_pkg_name,
4445: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
4446: x_msg_count => x_msg_count,
4441: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
4442: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4443: p_api_name => l_api_name,
4444: p_pkg_name => g_pkg_name,
4445: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
4446: x_msg_count => x_msg_count,
4447: x_msg_data => x_msg_data,
4448: p_api_type => g_api_type);
4449:
4447: x_msg_data => x_msg_data,
4448: p_api_type => g_api_type);
4449:
4450: when OTHERS then
4451: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4452: p_api_name => l_api_name,
4453: p_pkg_name => g_pkg_name,
4454: p_exc_name => 'OTHERS',
4455: x_msg_count => x_msg_count,