3272: AND language = cp_language;
3273:
3274: /* Start Bug#5955320
3275:
3276: l_tcnv_rec_in OKL_TRX_CONTRACTS_PUB.tcnv_rec_type ;
3277: x_tcnv_rec_in OKL_TRX_CONTRACTS_PUB.tcnv_rec_type ;
3278: l_tclv_tbl OKL_TRX_CONTRACTS_PUB.tclv_tbl_type ;
3279: x_tclv_tbl OKL_TRX_CONTRACTS_PUB.tclv_tbl_type ;
3280:
3273:
3274: /* Start Bug#5955320
3275:
3276: l_tcnv_rec_in OKL_TRX_CONTRACTS_PUB.tcnv_rec_type ;
3277: x_tcnv_rec_in OKL_TRX_CONTRACTS_PUB.tcnv_rec_type ;
3278: l_tclv_tbl OKL_TRX_CONTRACTS_PUB.tclv_tbl_type ;
3279: x_tclv_tbl OKL_TRX_CONTRACTS_PUB.tclv_tbl_type ;
3280:
3281: l_ctxt_val_tbl Okl_Account_Dist_Pub.CTXT_VAL_TBL_TYPE;
3274: /* Start Bug#5955320
3275:
3276: l_tcnv_rec_in OKL_TRX_CONTRACTS_PUB.tcnv_rec_type ;
3277: x_tcnv_rec_in OKL_TRX_CONTRACTS_PUB.tcnv_rec_type ;
3278: l_tclv_tbl OKL_TRX_CONTRACTS_PUB.tclv_tbl_type ;
3279: x_tclv_tbl OKL_TRX_CONTRACTS_PUB.tclv_tbl_type ;
3280:
3281: l_ctxt_val_tbl Okl_Account_Dist_Pub.CTXT_VAL_TBL_TYPE;
3282: l_acc_gen_primary_key_tbl Okl_Account_Dist_Pub.acc_gen_primary_key;
3275:
3276: l_tcnv_rec_in OKL_TRX_CONTRACTS_PUB.tcnv_rec_type ;
3277: x_tcnv_rec_in OKL_TRX_CONTRACTS_PUB.tcnv_rec_type ;
3278: l_tclv_tbl OKL_TRX_CONTRACTS_PUB.tclv_tbl_type ;
3279: x_tclv_tbl OKL_TRX_CONTRACTS_PUB.tclv_tbl_type ;
3280:
3281: l_ctxt_val_tbl Okl_Account_Dist_Pub.CTXT_VAL_TBL_TYPE;
3282: l_acc_gen_primary_key_tbl Okl_Account_Dist_Pub.acc_gen_primary_key;
3283: l_template_tbl Okl_Account_Dist_Pub.AVLV_TBL_TYPE;
3566: l_tclv_tbl(1).ORG_ID := l_ipyv_rec.org_id ;
3567: l_tclv_tbl(1).STY_ID := l_strm_type_id;
3568:
3569:
3570: -- Start of wraper code generated automatically by Debug code generator for OKL_TRX_CONTRACTS_PUB.create_trx_contracts
3571: IF(L_DEBUG_ENABLED='Y') THEN
3572: L_LEVEL_PROCEDURE :=FND_LOG.LEVEL_PROCEDURE;
3573: IS_DEBUG_PROCEDURE_ON := OKL_DEBUG_PUB.Check_Log_On(L_MODULE, L_LEVEL_PROCEDURE);
3574: END IF;
3573: IS_DEBUG_PROCEDURE_ON := OKL_DEBUG_PUB.Check_Log_On(L_MODULE, L_LEVEL_PROCEDURE);
3574: END IF;
3575: IF(IS_DEBUG_PROCEDURE_ON) THEN
3576: BEGIN
3577: OKL_DEBUG_PUB.LOG_DEBUG(L_LEVEL_PROCEDURE,L_MODULE,'Begin Debug OKLRIPXB.pls call OKL_TRX_CONTRACTS_PUB.create_trx_contracts ');
3578: END;
3579: END IF;
3580: OKL_TRX_CONTRACTS_PUB.create_trx_contracts(
3581: p_api_version => l_api_version,
3576: BEGIN
3577: OKL_DEBUG_PUB.LOG_DEBUG(L_LEVEL_PROCEDURE,L_MODULE,'Begin Debug OKLRIPXB.pls call OKL_TRX_CONTRACTS_PUB.create_trx_contracts ');
3578: END;
3579: END IF;
3580: OKL_TRX_CONTRACTS_PUB.create_trx_contracts(
3581: p_api_version => l_api_version,
3582: p_init_msg_list => OKC_API.G_FALSE,
3583: x_return_status => x_return_status,
3584: x_msg_count => x_msg_count,
3588: x_tcnv_rec => x_tcnv_rec_in,
3589: x_tclv_tbl => x_tclv_tbl );
3590: IF(IS_DEBUG_PROCEDURE_ON) THEN
3591: BEGIN
3592: OKL_DEBUG_PUB.LOG_DEBUG(L_LEVEL_PROCEDURE,L_MODULE,'End Debug OKLRIPXB.pls call OKL_TRX_CONTRACTS_PUB.create_trx_contracts ');
3593: END;
3594: END IF;
3595: -- End of wraper code generated automatically by Debug code generator for OKL_TRX_CONTRACTS_PUB.create_trx_contracts
3596:
3591: BEGIN
3592: OKL_DEBUG_PUB.LOG_DEBUG(L_LEVEL_PROCEDURE,L_MODULE,'End Debug OKLRIPXB.pls call OKL_TRX_CONTRACTS_PUB.create_trx_contracts ');
3593: END;
3594: END IF;
3595: -- End of wraper code generated automatically by Debug code generator for OKL_TRX_CONTRACTS_PUB.create_trx_contracts
3596:
3597:
3598: ---------------------------------------------------------------------------------------
3599: counter := 1;
3903: AND language = cp_language;
3904:
3905: /* Start Bug#5955320
3906:
3907: l_tcnv_rec_in OKL_TRX_CONTRACTS_PUB.tcnv_rec_type ;
3908: x_tcnv_rec_in OKL_TRX_CONTRACTS_PUB.tcnv_rec_type ;
3909: l_tclv_tbl OKL_TRX_CONTRACTS_PUB.tclv_tbl_type ;
3910: x_tclv_tbl OKL_TRX_CONTRACTS_PUB.tclv_tbl_type ;
3911:
3904:
3905: /* Start Bug#5955320
3906:
3907: l_tcnv_rec_in OKL_TRX_CONTRACTS_PUB.tcnv_rec_type ;
3908: x_tcnv_rec_in OKL_TRX_CONTRACTS_PUB.tcnv_rec_type ;
3909: l_tclv_tbl OKL_TRX_CONTRACTS_PUB.tclv_tbl_type ;
3910: x_tclv_tbl OKL_TRX_CONTRACTS_PUB.tclv_tbl_type ;
3911:
3912: l_ctxt_val_tbl Okl_Account_Dist_Pub.CTXT_VAL_TBL_TYPE;
3905: /* Start Bug#5955320
3906:
3907: l_tcnv_rec_in OKL_TRX_CONTRACTS_PUB.tcnv_rec_type ;
3908: x_tcnv_rec_in OKL_TRX_CONTRACTS_PUB.tcnv_rec_type ;
3909: l_tclv_tbl OKL_TRX_CONTRACTS_PUB.tclv_tbl_type ;
3910: x_tclv_tbl OKL_TRX_CONTRACTS_PUB.tclv_tbl_type ;
3911:
3912: l_ctxt_val_tbl Okl_Account_Dist_Pub.CTXT_VAL_TBL_TYPE;
3913: l_acc_gen_primary_key_tbl Okl_Account_Dist_Pub.acc_gen_primary_key;
3906:
3907: l_tcnv_rec_in OKL_TRX_CONTRACTS_PUB.tcnv_rec_type ;
3908: x_tcnv_rec_in OKL_TRX_CONTRACTS_PUB.tcnv_rec_type ;
3909: l_tclv_tbl OKL_TRX_CONTRACTS_PUB.tclv_tbl_type ;
3910: x_tclv_tbl OKL_TRX_CONTRACTS_PUB.tclv_tbl_type ;
3911:
3912: l_ctxt_val_tbl Okl_Account_Dist_Pub.CTXT_VAL_TBL_TYPE;
3913: l_acc_gen_primary_key_tbl Okl_Account_Dist_Pub.acc_gen_primary_key;
3914: l_template_tbl Okl_Account_Dist_Pub.AVLV_TBL_TYPE;
4193: l_tclv_tbl(1).currency_code := l_curr_code ;
4194: l_tclv_tbl(1).ORG_ID := l_ipyv_rec.org_id ;
4195: l_tclv_tbl(1).STY_ID := l_strm_type_id;
4196:
4197: -- Start of wraper code generated automatically by Debug code generator for OKL_TRX_CONTRACTS_PUB.create_trx_contracts
4198: IF(IS_DEBUG_PROCEDURE_ON) THEN
4199: BEGIN
4200: OKL_DEBUG_PUB.LOG_DEBUG(L_LEVEL_PROCEDURE,L_MODULE,'Begin Debug OKLRIPXB.pls call OKL_TRX_CONTRACTS_PUB.create_trx_contracts ');
4201: END;
4196:
4197: -- Start of wraper code generated automatically by Debug code generator for OKL_TRX_CONTRACTS_PUB.create_trx_contracts
4198: IF(IS_DEBUG_PROCEDURE_ON) THEN
4199: BEGIN
4200: OKL_DEBUG_PUB.LOG_DEBUG(L_LEVEL_PROCEDURE,L_MODULE,'Begin Debug OKLRIPXB.pls call OKL_TRX_CONTRACTS_PUB.create_trx_contracts ');
4201: END;
4202: END IF;
4203: OKL_TRX_CONTRACTS_PUB.create_trx_contracts(
4204: p_api_version => l_api_version,
4199: BEGIN
4200: OKL_DEBUG_PUB.LOG_DEBUG(L_LEVEL_PROCEDURE,L_MODULE,'Begin Debug OKLRIPXB.pls call OKL_TRX_CONTRACTS_PUB.create_trx_contracts ');
4201: END;
4202: END IF;
4203: OKL_TRX_CONTRACTS_PUB.create_trx_contracts(
4204: p_api_version => l_api_version,
4205: p_init_msg_list => OKC_API.G_FALSE,
4206: x_return_status => x_return_status,
4207: x_msg_count => x_msg_count,
4212: x_tclv_tbl => x_tclv_tbl
4213: );
4214: IF(IS_DEBUG_PROCEDURE_ON) THEN
4215: BEGIN
4216: OKL_DEBUG_PUB.LOG_DEBUG(L_LEVEL_PROCEDURE,L_MODULE,'End Debug OKLRIPXB.pls call OKL_TRX_CONTRACTS_PUB.create_trx_contracts ');
4217: END;
4218: END IF;
4219: -- End of wraper code generated automatically by Debug code generator for OKL_TRX_CONTRACTS_PUB.create_trx_contracts
4220: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4215: BEGIN
4216: OKL_DEBUG_PUB.LOG_DEBUG(L_LEVEL_PROCEDURE,L_MODULE,'End Debug OKLRIPXB.pls call OKL_TRX_CONTRACTS_PUB.create_trx_contracts ');
4217: END;
4218: END IF;
4219: -- End of wraper code generated automatically by Debug code generator for OKL_TRX_CONTRACTS_PUB.create_trx_contracts
4220: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4221: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4222: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
4223: RAISE OKC_API.G_EXCEPTION_ERROR;
5153: -- Get start date and end date for rebook contract ---
5154: CURSOR okc_new_k_effdate_csr(p_khr_id IN NUMBER) IS
5155: select chr.start_date ,chr.end_date
5156: from OKC_K_HEADERS_B chr ,
5157: OKL_TRX_CONTRACTS TRX
5158: where chr.ORIG_SYSTEM_ID1 = p_khr_id
5159: and chr.ORIG_SYSTEM_SOURCE_CODE = 'OKL_REBOOK'
5160: and chr.orig_system_id1 = trx.khr_id
5161: and chr.id = trx.khr_id_new
5883: l_total_bill_accrued NUMBER ;
5884: l_total_pay_accrued NUMBER ;
5885: l_inc_sty_id NUMBER ;
5886: /* Bug#5955320
5887: -- l_tcnv_rec_in OKL_TRX_CONTRACTS_PUB.tcnv_rec_type ;
5888: -- x_tcnv_rec_in OKL_TRX_CONTRACTS_PUB.tcnv_rec_type ;
5889: -- l_tclv_tbl OKL_TRX_CONTRACTS_PUB.tclv_tbl_type ;
5890: -- x_tclv_tbl OKL_TRX_CONTRACTS_PUB.tclv_tbl_type ;
5891: -- l_ctxt_val_tbl Okl_Account_Dist_Pub.CTXT_VAL_TBL_TYPE;
5884: l_total_pay_accrued NUMBER ;
5885: l_inc_sty_id NUMBER ;
5886: /* Bug#5955320
5887: -- l_tcnv_rec_in OKL_TRX_CONTRACTS_PUB.tcnv_rec_type ;
5888: -- x_tcnv_rec_in OKL_TRX_CONTRACTS_PUB.tcnv_rec_type ;
5889: -- l_tclv_tbl OKL_TRX_CONTRACTS_PUB.tclv_tbl_type ;
5890: -- x_tclv_tbl OKL_TRX_CONTRACTS_PUB.tclv_tbl_type ;
5891: -- l_ctxt_val_tbl Okl_Account_Dist_Pub.CTXT_VAL_TBL_TYPE;
5892: -- l_acc_gen_primary_key_tbl Okl_Account_Dist_Pub.acc_gen_primary_key;
5885: l_inc_sty_id NUMBER ;
5886: /* Bug#5955320
5887: -- l_tcnv_rec_in OKL_TRX_CONTRACTS_PUB.tcnv_rec_type ;
5888: -- x_tcnv_rec_in OKL_TRX_CONTRACTS_PUB.tcnv_rec_type ;
5889: -- l_tclv_tbl OKL_TRX_CONTRACTS_PUB.tclv_tbl_type ;
5890: -- x_tclv_tbl OKL_TRX_CONTRACTS_PUB.tclv_tbl_type ;
5891: -- l_ctxt_val_tbl Okl_Account_Dist_Pub.CTXT_VAL_TBL_TYPE;
5892: -- l_acc_gen_primary_key_tbl Okl_Account_Dist_Pub.acc_gen_primary_key;
5893: -- l_template_tbl Okl_Account_Dist_Pub.AVLV_TBL_TYPE;
5886: /* Bug#5955320
5887: -- l_tcnv_rec_in OKL_TRX_CONTRACTS_PUB.tcnv_rec_type ;
5888: -- x_tcnv_rec_in OKL_TRX_CONTRACTS_PUB.tcnv_rec_type ;
5889: -- l_tclv_tbl OKL_TRX_CONTRACTS_PUB.tclv_tbl_type ;
5890: -- x_tclv_tbl OKL_TRX_CONTRACTS_PUB.tclv_tbl_type ;
5891: -- l_ctxt_val_tbl Okl_Account_Dist_Pub.CTXT_VAL_TBL_TYPE;
5892: -- l_acc_gen_primary_key_tbl Okl_Account_Dist_Pub.acc_gen_primary_key;
5893: -- l_template_tbl Okl_Account_Dist_Pub.AVLV_TBL_TYPE;
5894: -- l_amount_tbl Okl_Account_Dist_Pub.AMOUNT_TBL_TYPE;
6391:
6392:
6393:
6394:
6395: -- Start of wraper code generated automatically by Debug code generator for OKL_TRX_CONTRACTS_PUB.create_trx_contracts
6396: IF(L_DEBUG_ENABLED='Y') THEN
6397: L_LEVEL_PROCEDURE :=FND_LOG.LEVEL_PROCEDURE;
6398: IS_DEBUG_PROCEDURE_ON := OKL_DEBUG_PUB.Check_Log_On(L_MODULE, L_LEVEL_PROCEDURE);
6399: END IF;
6398: IS_DEBUG_PROCEDURE_ON := OKL_DEBUG_PUB.Check_Log_On(L_MODULE, L_LEVEL_PROCEDURE);
6399: END IF;
6400: IF(IS_DEBUG_PROCEDURE_ON) THEN
6401: BEGIN
6402: OKL_DEBUG_PUB.LOG_DEBUG(L_LEVEL_PROCEDURE,L_MODULE,'Begin Debug OKLRIPXB.pls call OKL_TRX_CONTRACTS_PUB.create_trx_contracts ');
6403: END;
6404: END IF;
6405: OKL_TRX_CONTRACTS_PUB.create_trx_contracts(
6406: p_api_version => l_api_version,
6401: BEGIN
6402: OKL_DEBUG_PUB.LOG_DEBUG(L_LEVEL_PROCEDURE,L_MODULE,'Begin Debug OKLRIPXB.pls call OKL_TRX_CONTRACTS_PUB.create_trx_contracts ');
6403: END;
6404: END IF;
6405: OKL_TRX_CONTRACTS_PUB.create_trx_contracts(
6406: p_api_version => l_api_version,
6407: p_init_msg_list => OKC_API.G_FALSE,
6408: x_return_status => x_return_status,
6409: x_msg_count => x_msg_count,
6414: x_tclv_tbl => x_tclv_tbl
6415: );
6416: IF(IS_DEBUG_PROCEDURE_ON) THEN
6417: BEGIN
6418: OKL_DEBUG_PUB.LOG_DEBUG(L_LEVEL_PROCEDURE,L_MODULE,'End Debug OKLRIPXB.pls call OKL_TRX_CONTRACTS_PUB.create_trx_contracts ');
6419: END;
6420: END IF;
6421: -- End of wraper code generated automatically by Debug code generator for OKL_TRX_CONTRACTS_PUB.create_trx_contracts
6422:
6417: BEGIN
6418: OKL_DEBUG_PUB.LOG_DEBUG(L_LEVEL_PROCEDURE,L_MODULE,'End Debug OKLRIPXB.pls call OKL_TRX_CONTRACTS_PUB.create_trx_contracts ');
6419: END;
6420: END IF;
6421: -- End of wraper code generated automatically by Debug code generator for OKL_TRX_CONTRACTS_PUB.create_trx_contracts
6422:
6423:
6424: ---------------------------------------------------------------------------------------
6425: counter := 1;
6655: l_tclv_tbl(1).ORG_ID := l_ipyv_rec.org_id ;
6656:
6657:
6658:
6659: -- Start of wraper code generated automatically by Debug code generator for OKL_TRX_CONTRACTS_PUB.create_trx_contracts
6660: IF(IS_DEBUG_PROCEDURE_ON) THEN
6661: BEGIN
6662: OKL_DEBUG_PUB.LOG_DEBUG(L_LEVEL_PROCEDURE,L_MODULE,'Begin Debug OKLRIPXB.pls call OKL_TRX_CONTRACTS_PUB.create_trx_contracts ');
6663: END;
6658:
6659: -- Start of wraper code generated automatically by Debug code generator for OKL_TRX_CONTRACTS_PUB.create_trx_contracts
6660: IF(IS_DEBUG_PROCEDURE_ON) THEN
6661: BEGIN
6662: OKL_DEBUG_PUB.LOG_DEBUG(L_LEVEL_PROCEDURE,L_MODULE,'Begin Debug OKLRIPXB.pls call OKL_TRX_CONTRACTS_PUB.create_trx_contracts ');
6663: END;
6664: END IF;
6665: OKL_TRX_CONTRACTS_PUB.create_trx_contracts(
6666: p_api_version => l_api_version,
6661: BEGIN
6662: OKL_DEBUG_PUB.LOG_DEBUG(L_LEVEL_PROCEDURE,L_MODULE,'Begin Debug OKLRIPXB.pls call OKL_TRX_CONTRACTS_PUB.create_trx_contracts ');
6663: END;
6664: END IF;
6665: OKL_TRX_CONTRACTS_PUB.create_trx_contracts(
6666: p_api_version => l_api_version,
6667: p_init_msg_list => OKC_API.G_FALSE,
6668: x_return_status => x_return_status,
6669: x_msg_count => x_msg_count,
6674: x_tclv_tbl => x_tclv_tbl
6675: );
6676: IF(IS_DEBUG_PROCEDURE_ON) THEN
6677: BEGIN
6678: OKL_DEBUG_PUB.LOG_DEBUG(L_LEVEL_PROCEDURE,L_MODULE,'End Debug OKLRIPXB.pls call OKL_TRX_CONTRACTS_PUB.create_trx_contracts ');
6679: END;
6680: END IF;
6681: -- End of wraper code generated automatically by Debug code generator for OKL_TRX_CONTRACTS_PUB.create_trx_contracts
6682:
6677: BEGIN
6678: OKL_DEBUG_PUB.LOG_DEBUG(L_LEVEL_PROCEDURE,L_MODULE,'End Debug OKLRIPXB.pls call OKL_TRX_CONTRACTS_PUB.create_trx_contracts ');
6679: END;
6680: END IF;
6681: -- End of wraper code generated automatically by Debug code generator for OKL_TRX_CONTRACTS_PUB.create_trx_contracts
6682:
6683:
6684: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6685: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;