[Home] [Help]
441:
442:
443: BEGIN
444:
445: l_return_status := OKC_API.G_RET_STS_SUCCESS;
446:
447:
448: DBMS_TRANSACTION.SAVEPOINT('BEFORE_TRANSACTION');
449:
633: l_temp_bcl_id_ri := bcl_rec.bcl_bcl_id;
634: --- the temp variable assignment holds the current credit bcl
635: l_temp_bcl_id_tr := l_bclv_tbl_out(1).ID;
636:
637: IF not l_return_status = OKC_API.G_RET_STS_SUCCESS THEN
638: x_return_status := l_return_status;
639: Raise G_EXCEPTION_HALT_VALIDATION;
640: END IF;
641:
798: x_bslv_tbl => l_bslv_tbl_out
799: );
800:
801:
802: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
803: x_return_status := l_return_status;
804: Raise G_EXCEPTION_HALT_VALIDATION;
805: END IF;
806:
862: );
863:
864:
865:
866: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
867: x_return_status := l_return_status;
868: Raise G_EXCEPTION_HALT_VALIDATION;
869: END IF;
870: END LOOP; --bsd cursor loop
892: x_return_status := l_return_status;
893:
894: EXCEPTION
895: WHEN G_EXCEPTION_HALT_VALIDATION THEN
896: x_return_status := OKC_API.G_RET_STS_ERROR ;
897: WHEN OTHERS THEN
898: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN, SQLCODE, G_SQLERRM_TOKEN,SQLERRM);
899:
900: END Create_trx_records;
894: EXCEPTION
895: WHEN G_EXCEPTION_HALT_VALIDATION THEN
896: x_return_status := OKC_API.G_RET_STS_ERROR ;
897: WHEN OTHERS THEN
898: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN, SQLCODE, G_SQLERRM_TOKEN,SQLERRM);
899:
900: END Create_trx_records;
901:
902:
1082: ------------------------------------------------------------------------
1083: PROCEDURE pre_vol_based_terminate(
1084: P_CALLEDFROM IN NUMBER DEFAULT Null ,
1085: P_API_VERSION IN NUMBER ,
1086: P_INIT_MSG_LIST IN VARCHAR2 DEFAULT OKC_API.G_FALSE ,
1087: X_RETURN_STATUS OUT NOCOPY VARCHAR2 ,
1088: X_MSG_COUNT OUT NOCOPY NUMBER ,
1089: X_MSG_DATA OUT NOCOPY VARCHAR2 ,
1090: P_K_LINE_ID IN NUMBER ,
1411: fnd_log.string(fnd_log.level_procedure,G_MODULE_CURRENT||'.pre_terminate_amount.p_flag',
1412: 'Entering pre_terminate_amount with input parameters p_flag ' ||p_flag||' ,p_id '||p_id||' ,p_terminate_date '||to_char(p_terminate_date));
1413: END IF;
1414:
1415: x_return_status := OKC_API.G_RET_STS_SUCCESS ;
1416: l_billed := FALSE;
1417: l_term_method := 'AMOUNT';
1418: IF (p_flag in (1,3)) THEN -- p_id is line_id
1419:
1862: EXCEPTION
1863: WHEN G_EXCEPTION_HALT_VALIDATION THEN
1864: x_return_status := l_return_status ;
1865: WHEN OTHERS THEN
1866: x_return_status := OKC_API.G_RET_STS_ERROR ;
1867:
1868: END pre_terminate_amount;
1869:
1870:
1899: l_amount NUMBER;
1900:
1901:
1902: BEGIN
1903: x_return_status := OKC_API.G_RET_STS_SUCCESS ;
1904:
1905: IF (p_billed_amount <= p_shipped_amount ) THEN
1906: X_amount := 0;
1907: ELSE
2066:
2067: BEGIN
2068: final_amount := 0;
2069:
2070: x_return_status := OKC_API.G_RET_STS_SUCCESS ;
2071:
2072:
2073: OPEN line_lse_id_cur(p_line_id);
2074: FETCH line_lse_id_cur into l_lse_id;
2269:
2270:
2271: EXCEPTION
2272: WHEN G_EXCEPTION_HALT_VALIDATION THEN
2273: x_return_status := OKC_API.G_RET_STS_ERROR ;
2274: WHEN OTHERS THEN
2275: x_return_status := OKC_API.G_RET_STS_ERROR ;
2276: END;
2277:
2271: EXCEPTION
2272: WHEN G_EXCEPTION_HALT_VALIDATION THEN
2273: x_return_status := OKC_API.G_RET_STS_ERROR ;
2274: WHEN OTHERS THEN
2275: x_return_status := OKC_API.G_RET_STS_ERROR ;
2276: END;
2277:
2278:
2279:
2430: l_msg_cnt NUMBER;
2431: l_stat NUMBER;
2432: l_amount NUMBER ;
2433: l_round_amt NUMBER ;
2434: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2435:
2436: BEGIN
2437:
2438:
2563:
2564: --errorout('SERVICE :- CREATE TERM RECS INSERT BSL' || l_return_status);
2565:
2566:
2567: IF not l_return_status = OKC_API.G_RET_STS_SUCCESS THEN
2568: x_return_status := l_return_status;
2569: Raise G_EXCEPTION_HALT_VALIDATION;
2570: END IF;
2571:
2623: );
2624:
2625: --errorout('SERVICE :- CREATE TERM RECS INSERT BSL DET ' || l_return_status);
2626:
2627: IF not l_return_status = OKC_API.G_RET_STS_SUCCESS THEN
2628: x_return_status := l_return_status;
2629: Raise G_EXCEPTION_HALT_VALIDATION;
2630: END IF;
2631:
2643: EXCEPTION
2644: WHEN G_EXCEPTION_HALT_VALIDATION THEN
2645: x_return_status := l_return_status;
2646: WHEN OTHERS THEN
2647: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
2648: OKC_API.set_message(G_APP_NAME,G_UNEXPECTED_ERROR, G_SQLCODE_TOKEN, SQLCODE,G_SQLERRM_TOKEN, SQLERRM);
2649:
2650: END create_term_recs;
2651:
2644: WHEN G_EXCEPTION_HALT_VALIDATION THEN
2645: x_return_status := l_return_status;
2646: WHEN OTHERS THEN
2647: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
2648: OKC_API.set_message(G_APP_NAME,G_UNEXPECTED_ERROR, G_SQLCODE_TOKEN, SQLCODE,G_SQLERRM_TOKEN, SQLERRM);
2649:
2650: END create_term_recs;
2651:
2652:
2803:
2804:
2805: EXCEPTION
2806: WHEN G_EXCEPTION_HALT_VALIDATION THEN
2807: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
2808: OKC_API.set_message(G_APP_NAME,G_UNEXPECTED_ERROR, G_SQLCODE_TOKEN, SQLCODE,G_SQLERRM_TOKEN, SQLERRM);
2809: WHEN OTHERS THEN
2810: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
2811: OKC_API.set_message(G_APP_NAME,G_UNEXPECTED_ERROR, G_SQLCODE_TOKEN, SQLCODE,G_SQLERRM_TOKEN, SQLERRM);
2804:
2805: EXCEPTION
2806: WHEN G_EXCEPTION_HALT_VALIDATION THEN
2807: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
2808: OKC_API.set_message(G_APP_NAME,G_UNEXPECTED_ERROR, G_SQLCODE_TOKEN, SQLCODE,G_SQLERRM_TOKEN, SQLERRM);
2809: WHEN OTHERS THEN
2810: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
2811: OKC_API.set_message(G_APP_NAME,G_UNEXPECTED_ERROR, G_SQLCODE_TOKEN, SQLCODE,G_SQLERRM_TOKEN, SQLERRM);
2812:
2806: WHEN G_EXCEPTION_HALT_VALIDATION THEN
2807: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
2808: OKC_API.set_message(G_APP_NAME,G_UNEXPECTED_ERROR, G_SQLCODE_TOKEN, SQLCODE,G_SQLERRM_TOKEN, SQLERRM);
2809: WHEN OTHERS THEN
2810: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
2811: OKC_API.set_message(G_APP_NAME,G_UNEXPECTED_ERROR, G_SQLCODE_TOKEN, SQLCODE,G_SQLERRM_TOKEN, SQLERRM);
2812:
2813: END create_bank_Account;
2814: ***/
2807: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
2808: OKC_API.set_message(G_APP_NAME,G_UNEXPECTED_ERROR, G_SQLCODE_TOKEN, SQLCODE,G_SQLERRM_TOKEN, SQLERRM);
2809: WHEN OTHERS THEN
2810: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
2811: OKC_API.set_message(G_APP_NAME,G_UNEXPECTED_ERROR, G_SQLCODE_TOKEN, SQLCODE,G_SQLERRM_TOKEN, SQLERRM);
2812:
2813: END create_bank_Account;
2814: ***/
2815:
2954: L_TOP_LINE_ID NUMBER;
2955: L_COV_LINE_ID NUMBER;
2956: --L_MANUAL_CREDIT NUMBER;
2957: L_PROCESS_FLAG BOOLEAN;
2958: L_RETURN_STATUS VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2959: QTY_UOM_REC QTY_UOM_CSR%ROWTYPE;
2960: L_TERMINATION_DATE DATE;
2961: L_MAX_DATE_BILLED_FROM DATE;
2962: L_MAX_DATE_BILLED_TO DATE;
3053: FETCH cur_lineno into l_line_number,l_contract_number;
3054: CLOSE cur_lineno;
3055:
3056:
3057: OKC_API.set_message(p_app_name => g_app_name,
3058: p_msg_name => 'OKC_SR_PENDING',
3059: p_token1 => 'NUMBER',
3060: p_token1_value => l_contract_number,
3061: p_token2 => 'LINENO',
3060: p_token1_value => l_contract_number,
3061: p_token2 => 'LINENO',
3062: p_token2_value => l_line_number);
3063:
3064: l_return_status := okc_api.g_ret_sts_error;
3065: raise G_EXCEPTION_HALT_VALIDATION;
3066: END IF;
3067:
3068: END IF; --FOR P_CALLEDFROM
3172: EXCEPTION
3173: WHEN G_EXCEPTION_HALT_VALIDATION THEN
3174: x_return_status := l_return_status;
3175: WHEN OTHERS THEN
3176: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
3177: OKC_API.set_message(G_APP_NAME,G_UNEXPECTED_ERROR, G_SQLCODE_TOKEN, SQLCODE,G_SQLERRM_TOKEN, SQLERRM);
3178: END;
3179:
3180:
3173: WHEN G_EXCEPTION_HALT_VALIDATION THEN
3174: x_return_status := l_return_status;
3175: WHEN OTHERS THEN
3176: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
3177: OKC_API.set_message(G_APP_NAME,G_UNEXPECTED_ERROR, G_SQLCODE_TOKEN, SQLCODE,G_SQLERRM_TOKEN, SQLERRM);
3178: END;
3179:
3180:
3181:
3286:
3287: BEGIN
3288:
3289:
3290: x_return_status := OKC_API.G_RET_STS_SUCCESS;
3291: x_amount := 0;
3292:
3293: OPEN l_hdr_csr(p_k_line_id);
3294: FETCH l_hdr_csr into l_hdr_id;
3454: EXCEPTION
3455: WHEN G_EXCEPTION_HALT_VALIDATION THEN
3456: x_return_status := l_return_status;
3457: WHEN OTHERS THEN
3458: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
3459: OKC_API.set_message(G_APP_NAME,G_UNEXPECTED_ERROR, G_SQLCODE_TOKEN, SQLCODE,G_SQLERRM_TOKEN, SQLERRM);
3460:
3461: END pre_terminate_srvc;
3462:
3455: WHEN G_EXCEPTION_HALT_VALIDATION THEN
3456: x_return_status := l_return_status;
3457: WHEN OTHERS THEN
3458: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
3459: OKC_API.set_message(G_APP_NAME,G_UNEXPECTED_ERROR, G_SQLCODE_TOKEN, SQLCODE,G_SQLERRM_TOKEN, SQLERRM);
3460:
3461: END pre_terminate_srvc;
3462:
3463: PROCEDURE terminate_subscribtion_line
3463: PROCEDURE terminate_subscribtion_line
3464: (
3465: P_CALLEDFROM IN NUMBER DEFAULT NULL,
3466: p_api_version IN NUMBER,
3467: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
3468: x_return_status OUT NOCOPY VARCHAR2,
3469: x_msg_count OUT NOCOPY NUMBER,
3470: x_msg_data OUT NOCOPY VARCHAR2,
3471: p_line_id IN NUMBER,
3914: p_bslv_tbl => l_bslv_tbl_in,
3915: x_bslv_tbl => l_bslv_tbl_out
3916: );
3917:
3918: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
3919: x_return_status := l_return_status;
3920: Raise G_EXCEPTION_HALT_VALIDATION;
3921: END IF;
3922: g_credit_amount := nvl(g_credit_amount,0) + (-1*l_amount);
3967: x_bsdv_tbl => l_bsdv_tbl_out
3968: );
3969:
3970:
3971: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
3972: x_return_status := l_return_status;
3973: Raise G_EXCEPTION_HALT_VALIDATION;
3974: END IF;
3975:
4376: SKIP_THIS_LINE EXCEPTION;
4377: /* End Addition for bug fix 6012384 (FP for 5990067) */
4378: BEGIN
4379: DBMS_TRANSACTION.SAVEPOINT('BEFORE_PRE_TERMINATE');
4380: x_return_status := OKC_API.G_RET_STS_SUCCESS ;
4381: l_billed := FALSE;
4382: l_terminate := FALSE;
4383: l_termination_amount := p_termination_amount;
4384: l_con_termination_amount := p_con_termination_amount;
4404: OPEN cur_lineno(p_id);
4405: FETCH cur_lineno into l_lineno,l_contract_number;
4406: CLOSE cur_lineno;
4407:
4408: OKC_API.set_message(p_app_name => g_app_name,
4409: p_msg_name => 'OKC_SR_PENDING',
4410: p_token1 => 'NUMBER',
4411: p_token1_value => l_contract_number,
4412: p_token2 => 'LINENO',
4411: p_token1_value => l_contract_number,
4412: p_token2 => 'LINENO',
4413: p_token2_value => l_lineno);
4414:
4415: x_return_status := okc_api.g_ret_sts_error;
4416: raise G_EXCEPTION_HALT_VALIDATION;
4417: end if;
4418:
4419: -- END BUG#3312595 mchoudha
4542: X_AMOUNT => l_sub_termn_amount ,
4543: --X_MANUAL_CREDIT => l_manual_credit,
4544: X_RETURN_STATUS => l_return_status );
4545:
4546: IF (x_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
4547: raise G_EXCEPTION_HALT_VALIDATION;
4548: END IF;
4549:
4550: OKC_TERMINATE_PVT.terminate_cle
4548: END IF;
4549:
4550: OKC_TERMINATE_PVT.terminate_cle
4551: ( P_API_VERSION => 1.0,
4552: P_INIT_MSG_LIST => OKC_API.G_FALSE,
4553: X_RETURN_STATUS => x_return_status,
4554: X_MSG_COUNT => l_msg_count,
4555: X_MSG_DATA => l_msg_data,
4556: P_TERMINATE_IN_PARAMETERS_REC => l_line_parameter_rec);
4557:
4558: ---For BUG#3372535 check for status S and W
4559: l_okc_status := x_return_status;
4560:
4561: IF x_return_status NOT IN ( OKC_API.G_RET_STS_SUCCESS, 'W') Then
4562: raise G_EXCEPTION_HALT_VALIDATION;
4563: END IF;
4564:
4565: terminate_subscribtion_line
4564:
4565: terminate_subscribtion_line
4566: (P_CALLEDFROM => p_calledfrom,
4567: P_API_VERSION => 1,
4568: P_INIT_MSG_LIST => OKC_API.G_FALSE,
4569: X_RETURN_STATUS => x_return_status,
4570: X_MSG_COUNT => l_msg_count,
4571: X_MSG_DATA => l_msg_data,
4572: P_LINE_ID => p_id,
4580: P_SUPPRESS_CREDIT => p_suppress_credit ,
4581: P_TANG => l_tang,
4582: P_FULL_CREDIT => P_FULL_CREDIT );
4583:
4584: IF (x_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
4585: raise G_EXCEPTION_HALT_VALIDATION;
4586: END IF;
4587: IF ((l_termination_amount is NOT NULL) and (g_credit_amount <> l_termination_amount)) THEN
4588: OPEN bsl_amount(g_bsl_id);
4643: l_true_value_tbl(1).p_suppress_credit := p_suppress_credit;
4644: l_true_valUe_tbl(1).p_full_credit := p_full_credit ;
4645: True_value(l_true_value_tbl , x_return_status );
4646:
4647: IF (x_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
4648: raise G_EXCEPTION_HALT_VALIDATION;
4649: END IF;
4650:
4651: ELSE
4664: P_SUPPRESS_CREDIT => p_suppress_credit,
4665: P_FULL_CREDIT => P_FULL_CREDIT,
4666: X_AMOUNT => l_amount);
4667:
4668: IF (x_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
4669: raise G_EXCEPTION_HALT_VALIDATION;
4670: END IF;
4671:
4672: IF ((l_termination_amount is NOT NULL) AND
4802: l_true_value_tbl(1).p_suppress_credit := p_suppress_credit;
4803: l_true_valUe_tbl(1).p_full_credit := p_full_credit ;
4804: True_value(l_true_value_tbl , x_return_status );
4805:
4806: IF (x_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
4807: raise G_EXCEPTION_HALT_VALIDATION;
4808: END IF;
4809:
4810:
4809:
4810:
4811: OKC_TERMINATE_PVT.terminate_cle
4812: ( P_API_VERSION => 1.0,
4813: P_INIT_MSG_LIST => OKC_API.G_FALSE,
4814: X_RETURN_STATUS => x_return_status,
4815: X_MSG_COUNT => l_msg_count,
4816: X_MSG_DATA => l_msg_data,
4817: P_TERMINATE_IN_PARAMETERS_REC => l_line_parameter_rec
4818: );
4819: -----for bug#3377509 check for S and W
4820: l_okc_status := x_return_status;
4821:
4822: IF x_return_status NOT IN (OKC_API.G_RET_STS_SUCCESS,'W') Then
4823: RAISE G_EXCEPTION_HALT_VALIDATION;
4824: END IF;
4825: END IF;
4826: CLOSE check_all_sublines_terminated;
4855: OPEN cur_contract_num;
4856: FETCH cur_contract_num into l_contract_number;
4857: CLOSE cur_contract_num;
4858:
4859: OKC_API.set_message(p_app_name => g_app_name,
4860: p_msg_name => 'OKC_SR_PENDING',
4861: p_token1 => 'NUMBER',
4862: p_token1_value => l_contract_number);
4863: x_return_status := okc_api.g_ret_sts_error;
4859: OKC_API.set_message(p_app_name => g_app_name,
4860: p_msg_name => 'OKC_SR_PENDING',
4861: p_token1 => 'NUMBER',
4862: p_token1_value => l_contract_number);
4863: x_return_status := okc_api.g_ret_sts_error;
4864: raise G_EXCEPTION_HALT_VALIDATION;
4865: end if;
4866: -- Bug 4354983 End
4867:
4971: x_amount => l_sub_termn_amount ,
4972: --x_manual_credit => l_manual_credit,
4973: x_return_status => l_return_status );
4974:
4975: IF (x_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
4976: raise G_EXCEPTION_HALT_VALIDATION;
4977: END IF;
4978:
4979: OPEN line_det(line_rec.id);
5001: END IF;
5002:
5003: OKC_TERMINATE_PVT.terminate_cle
5004: ( P_API_VERSION => 1.0,
5005: P_INIT_MSG_LIST => OKC_API.G_FALSE,
5006: X_RETURN_STATUS => x_return_status,
5007: X_MSG_COUNT => l_msg_count,
5008: X_MSG_DATA => l_msg_data,
5009: P_TERMINATE_IN_PARAMETERS_REC => l_line_parameter_rec
5011:
5012: ---For BUG#3372535 check for status S and W
5013: l_okc_status := x_return_status;
5014:
5015: IF x_return_status NOT IN ( OKC_API.G_RET_STS_SUCCESS, 'W') Then
5016: raise G_EXCEPTION_HALT_VALIDATION;
5017: END IF;
5018:
5019: terminate_subscribtion_line
5018:
5019: terminate_subscribtion_line
5020: ( P_CALLEDFROM => p_calledfrom,
5021: P_API_VERSION => 1,
5022: P_INIT_MSG_LIST => OKC_API.G_FALSE,
5023: X_RETURN_STATUS => x_return_status,
5024: X_MSG_COUNT => l_msg_count,
5025: X_MSG_DATA => l_msg_data,
5026: P_LINE_ID => line_rec.id,
5046: l_true_value_tbl(1).p_suppress_credit := p_suppress_credit;
5047: l_true_valUe_tbl(1).p_full_credit := p_full_credit ;
5048: True_value(l_true_value_tbl , x_return_status );
5049:
5050: IF (x_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
5051: raise G_EXCEPTION_HALT_VALIDATION;
5052: END IF;
5053:
5054: --ELSE
5057: pre_terminate_service
5058: (
5059: P_CALLEDFROM => p_calledfrom,
5060: P_API_VERSION => 1,
5061: P_INIT_MSG_LIST => OKC_API.G_FALSE,
5062: X_RETURN_STATUS => x_return_status,
5063: X_MSG_COUNT => l_msg_count,
5064: X_MSG_DATA => l_msg_data,
5065: P_K_LINE_ID => line_rec.id,
5070: P_SUPPRESS_CREDIT => p_suppress_credit,
5071: P_FULL_CREDIT => P_FULL_CREDIT,
5072: X_AMOUNT => l_amount
5073: );
5074: IF (x_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
5075: raise G_EXCEPTION_HALT_VALIDATION;
5076: END IF;
5077:
5078: l_true_value_tbl(1).p_cp_line_id := 0;
5085: l_true_value_tbl(1).p_termination_amount := l_termination_amount;
5086: l_true_value_tbl(1).p_suppress_credit := p_suppress_credit;
5087: l_true_valUe_tbl(1).p_full_credit := p_full_credit ;
5088: True_value(l_true_value_tbl , x_return_status );
5089: IF (x_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
5090: raise G_EXCEPTION_HALT_VALIDATION;
5091: END IF;
5092:
5093: END IF;
5185: close sub_line_tax;
5186: If l_sub_line_tax_amount > 0 then
5187: OKS_TAX_UTIL_PVT.Get_Tax
5188: ( p_api_version => 1.0,
5189: p_init_msg_list => OKC_API.G_TRUE,
5190: p_chr_id => p_id,
5191: p_cle_id => l_bsl_cle_id,
5192: px_rail_rec => G_RAIL_REC,
5193: x_msg_count => l_msg_count,
5192: px_rail_rec => G_RAIL_REC,
5193: x_msg_count => l_msg_count,
5194: x_msg_data => l_msg_data,
5195: x_return_status => l_return_status);
5196: IF ( x_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
5197: RAISE G_EXCEPTION_HALT_VALIDATION;
5198: END IF;
5199: If G_RAIL_REC.AMOUNT_INCLUDES_TAX_FLAG = 'N' then
5200: update oks_k_lines_b
5260: close sub_line_tax;
5261: If l_sub_line_tax_amount > 0 then
5262: OKS_TAX_UTIL_PVT.Get_Tax
5263: ( p_api_version => 1.0,
5264: p_init_msg_list => OKC_API.G_TRUE,
5265: p_chr_id => p_id,
5266: p_cle_id => l_bsl_cle_id,
5267: px_rail_rec => G_RAIL_REC,
5268: x_msg_count => l_msg_count,
5267: px_rail_rec => G_RAIL_REC,
5268: x_msg_count => l_msg_count,
5269: x_msg_data => l_msg_data,
5270: x_return_status => l_return_status);
5271: IF ( x_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
5272: RAISE G_EXCEPTION_HALT_VALIDATION;
5273: END IF;
5274: If G_RAIL_REC.AMOUNT_INCLUDES_TAX_FLAG = 'N' then
5275: update oks_k_lines_b
5321:
5322: --dbms_output.put_line ('before terminate_hdr ');
5323: OKC_TERMINATE_PVT.terminate_chr
5324: ( p_api_version => 1.0,
5325: p_init_msg_list => OKC_API.G_FALSE,
5326: x_return_status => x_return_status,
5327: x_msg_count => l_msg_count,
5328: x_msg_data => l_msg_data,
5329: p_terminate_in_parameters_rec => l_hdr_parameter_rec
5331:
5332: ---For BUG#3372535 check for status S and W
5333: l_okc_status := x_return_status;
5334:
5335: IF x_return_status NOT IN ( OKC_API.G_RET_STS_SUCCESS, 'W') Then
5336: raise G_EXCEPTION_HALT_VALIDATION;
5337: END IF;
5338:
5339: l_true_value_tbl(1).p_cp_line_id := 0;
5348: l_true_valUe_tbl(1).p_full_credit := p_full_credit ;
5349:
5350: True_value(l_true_value_tbl , x_return_status );
5351:
5352: IF x_return_status <> OKC_API.G_RET_STS_SUCCESS Then
5353: raise G_EXCEPTION_HALT_VALIDATION;
5354: END IF;
5355:
5356: END IF ; -- l_terminate = TRUE|| ((l_terminate = FALSE) AND (check_all_lines_terminated%NOTFOUND)))
5375: EXCEPTION
5376: WHEN G_EXCEPTION_HALT_VALIDATION THEN
5377: DBMS_TRANSACTION.ROLLBACK_SAVEPOINT('BEFORE_PRE_TERMINATE');
5378: WHEN OTHERS THEN
5379: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
5380: OKC_API.set_message(G_APP_NAME,G_UNEXPECTED_ERROR, G_SQLCODE_TOKEN, SQLCODE,G_SQLERRM_TOKEN, SQLERRM);
5381: END;
5382:
5383:
5376: WHEN G_EXCEPTION_HALT_VALIDATION THEN
5377: DBMS_TRANSACTION.ROLLBACK_SAVEPOINT('BEFORE_PRE_TERMINATE');
5378: WHEN OTHERS THEN
5379: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
5380: OKC_API.set_message(G_APP_NAME,G_UNEXPECTED_ERROR, G_SQLCODE_TOKEN, SQLCODE,G_SQLERRM_TOKEN, SQLERRM);
5381: END;
5382:
5383:
5384: PROCEDURE pre_terminate_service
5383:
5384: PROCEDURE pre_terminate_service
5385: ( P_CALLEDFROM IN NUMBER DEFAULT Null,
5386: p_api_version IN NUMBER,
5387: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
5388: x_return_status OUT NOCOPY VARCHAR2,
5389: x_msg_count OUT NOCOPY NUMBER,
5390: x_msg_data OUT NOCOPY VARCHAR2,
5391: p_k_line_id IN NUMBER,
5428: l_id NUMBER;
5429: l_msg_cnt NUMBER;
5430: l_msg_data VARCHAR2(2000);
5431: l_termination_method VARCHAR2(20);
5432: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
5433: l_usage_type VARCHAR2(10);
5434: l_usage_period VARCHAR2(10);
5435: l_termination_date DATE;
5436: l_sub_line_id NUMBER ;
5496: IF ( l_termination_method = 'VOLUME') THEN
5497: pre_vol_based_terminate(
5498: P_CALLEDFROM => p_calledfrom,
5499: P_API_VERSION => 1,
5500: P_INIT_MSG_LIST => OKC_API.G_FALSE,
5501: X_RETURN_STATUS => l_return_status,
5502: X_MSG_COUNT => l_msg_cnt,
5503: X_MSG_DATA => l_msg_data,
5504: P_K_LINE_ID => p_k_line_id,
5578: EXCEPTION
5579: WHEN G_EXCEPTION_HALT_VALIDATION THEN
5580: x_return_status := l_return_status;
5581: WHEN Others THEN
5582: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
5583: OKC_API.set_message(G_APP_NAME,G_UNEXPECTED_ERROR, G_SQLCODE_TOKEN, SQLCODE,G_SQLERRM_TOKEN, SQLERRM);
5584:
5585: END ;
5586:
5579: WHEN G_EXCEPTION_HALT_VALIDATION THEN
5580: x_return_status := l_return_status;
5581: WHEN Others THEN
5582: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
5583: OKC_API.set_message(G_APP_NAME,G_UNEXPECTED_ERROR, G_SQLCODE_TOKEN, SQLCODE,G_SQLERRM_TOKEN, SQLERRM);
5584:
5585: END ;
5586:
5587: /* Procedure to calculate AMCV */
5634:
5635: BEGIN
5636: x_Volume := 0;
5637: l_totvol := 0;
5638: x_Return_Status := OKC_API.G_RET_STS_SUCCESS;
5639:
5640: IF ((p_calledfrom <> 3) OR
5641: ((p_calledfrom = 3) AND ( p_counter_date IS NULL))) THEN -- Ignore for termination if counter is captured
5642: OPEN l_tot_csr;
5688:
5689: EXCEPTION
5690: WHEN G_EXCEPTION_HALT_VALIDATION THEN
5691: FND_FILE.PUT_LINE( FND_FILE.LOG, 'Error in OKS_REG_GET_AMCV -- G_Exception_halt_validation raised' );
5692: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
5693: WHEN OTHERS THEN
5694: FND_FILE.PUT_LINE( FND_FILE.LOG, 'Error in OKS_REG_GET_AMCV -- Others Exception raised' );
5695: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,
5696: G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
5691: FND_FILE.PUT_LINE( FND_FILE.LOG, 'Error in OKS_REG_GET_AMCV -- G_Exception_halt_validation raised' );
5692: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
5693: WHEN OTHERS THEN
5694: FND_FILE.PUT_LINE( FND_FILE.LOG, 'Error in OKS_REG_GET_AMCV -- Others Exception raised' );
5695: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,
5696: G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
5697: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
5698:
5699: END OKS_REG_GET_AMCV;
5693: WHEN OTHERS THEN
5694: FND_FILE.PUT_LINE( FND_FILE.LOG, 'Error in OKS_REG_GET_AMCV -- Others Exception raised' );
5695: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,
5696: G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
5697: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
5698:
5699: END OKS_REG_GET_AMCV;
5700:
5701: --------------------------------------------------------------------------------
6382: x_base_reading := nvl(l_base_Reading,0);
6383:
6384: EXCEPTION
6385: WHEN G_EXCEPTION_HALT_VALIDATION THEN
6386: x_return_status := OKC_API.G_RET_STS_ERROR ;
6387: WHEN OTHERS THEN
6388: x_return_status := OKC_API.G_RET_STS_ERROR ;
6389: END Usage_qty_to_bill;
6390:
6384: EXCEPTION
6385: WHEN G_EXCEPTION_HALT_VALIDATION THEN
6386: x_return_status := OKC_API.G_RET_STS_ERROR ;
6387: WHEN OTHERS THEN
6388: x_return_status := OKC_API.G_RET_STS_ERROR ;
6389: END Usage_qty_to_bill;
6390:
6391: --------------------------------------------------------------------------------
6392: -- COunter_values
6565: ---l_counter_validate_flag VARCHAR2(4); /*removed for bug 10390945*/
6566: l_billing_based_on VARCHAR2(15);
6567: l_value_timestamp DATE;
6568: BEGIN
6569: X_return_status := OKC_API.G_RET_STS_SUCCESS;
6570: G_LOG_YES_NO := Fnd_profile.value('OKS_BILLING_REPORT_AND_LOG'); ---- added by ansraj for 14016663
6571: ---l_counter_validate_flag := fnd_profile.value('OKS_COUNTER_VALIDATE');
6572: /*OKS_COUNTER_VALIDATE profile is no more used in R12 as the counter readings in IB are validated using disabled_flag and the same is implemented in OKS to validate the counter readings*/
6573: l_billing_based_on := fnd_profile.value('OKS_USAGE_BILLING_BASED_ON');
6814:
6815: END IF;
6816: EXCEPTION
6817: WHEN OTHERS THEN
6818: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
6819: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,
6820: G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
6821: END counter_values;
6822:
6815: END IF;
6816: EXCEPTION
6817: WHEN OTHERS THEN
6818: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
6819: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,
6820: G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
6821: END counter_values;
6822:
6823:
6913:
6914: EXCEPTION
6915: WHEN OTHERS THEN
6916: Null;
6917: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN, SQLCODE, G_SQLERRM_TOKEN,SQLERRM);
6918: END get_bill_amount_period;
6919:
6920:
6921: ------------------------------------------------------------------------
7044: WHEN cvn_not_found THEN
7045: x_ret_stat := 'E';
7046: WHEN OTHERS THEN
7047: x_ret_stat := 'E';
7048: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE, G_SQLERRM_TOKEN,SQLERRM);
7049:
7050: END update_bsl;
7051:
7052:
7128: x_ret_stat := l_ret_stat;
7129: EXCEPTION
7130: When Others Then
7131: Null;
7132: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE, G_SQLERRM_TOKEN,SQLERRM);
7133: END update_bcl;
7134:
7135:
7136: ------------------------------------------------------------------------
7287:
7288: x_return_stat := l_ret_stat;
7289: EXCEPTION
7290: When Others Then
7291: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE, G_SQLERRM_TOKEN,SQLERRM);
7292:
7293: END insert_bcl;
7294:
7295:
7349: Fetch l_bcl_pr_csr into x_bcl_id,x_bcl_amount;
7350: close l_bcl_pr_csr;
7351: END IF;
7352:
7353: x_return_stat := OKC_API.G_RET_STS_SUCCESS;
7354: EXCEPTION
7355: When Others Then
7356: Null;
7357: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE, G_SQLERRM_TOKEN,SQLERRM);
7353: x_return_stat := OKC_API.G_RET_STS_SUCCESS;
7354: EXCEPTION
7355: When Others Then
7356: Null;
7357: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE, G_SQLERRM_TOKEN,SQLERRM);
7358: x_return_stat := OKC_API.G_RET_STS_ERROR;
7359: END get_bcl_id;
7360:
7361:
7354: EXCEPTION
7355: When Others Then
7356: Null;
7357: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE, G_SQLERRM_TOKEN,SQLERRM);
7358: x_return_stat := OKC_API.G_RET_STS_ERROR;
7359: END get_bcl_id;
7360:
7361:
7362:
7406: l_bsd_pr_tbl_in l_bsd_pr_tbl_type;
7407: l_bsd_pr_tbl_out l_bsd_pr_tbl_type;
7408:
7409:
7410: l_ret_stat Varchar2(20) := OKC_API.G_RET_STS_SUCCESS;
7411: l_msg_cnt Number;
7412: l_msg_data Varchar2(2000);
7413:
7414: l_amount NUMBER := 0;
7701: WHEN cvn_not_found THEN
7702: x_return_stat := 'E';
7703: WHEN OTHERS THEN
7704: Null;
7705: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE, G_SQLERRM_TOKEN,SQLERRM);
7706:
7707: END insert_all_subline;
7708:
7709: ---------------------------------------------------------------------------------------
7740:
7741: EXCEPTION
7742: When Others Then
7743: Null;
7744: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE, G_SQLERRM_TOKEN,SQLERRM);
7745:
7746: END Get_Bill_profile;
7747:
7748:
7899: l_okl_flag NUMBER := 0;
7900: l_bcl_id NUMBER;
7901: l_line_cnt NUMBER := 1;
7902: l_ptr NUMBER := 1;
7903: l_return_status Varchar2(1) := OKC_API.G_RET_STS_SUCCESS;
7904: l_api_name CONSTANT VARCHAR2(30) := 'Adjust_Negotiated_Price';
7905:
7906: BEGIN
7907:
7987: );
7988:
7989: x_return_status := l_return_status;
7990:
7991: If (l_return_status <> OKC_API.G_RET_STS_SUCCESS) Then
7992: If (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) Then
7993: x_return_status := l_return_status;
7994: raise G_EXCEPTION_HALT_VALIDATION;
7995: ELSE
7988:
7989: x_return_status := l_return_status;
7990:
7991: If (l_return_status <> OKC_API.G_RET_STS_SUCCESS) Then
7992: If (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) Then
7993: x_return_status := l_return_status;
7994: raise G_EXCEPTION_HALT_VALIDATION;
7995: ELSE
7996: x_return_status := l_return_status;
7998: LOOP
7999: FND_FILE.PUT_LINE( FND_FILE.LOG,(FND_MSG_PUB.Get(p_encoded =>FND_API.G_FALSE )));
8000: END LOOP;
8001: END If;
8002: ELSIf l_return_status = OKC_API.G_RET_STS_SUCCESS Then
8003: Open get_bcl_id_cur(l_billed_cle_id, l_date_billed_to) ;
8004: Fetch get_bcl_id_cur into l_st_bcl_id;
8005: Close get_bcl_id_cur;
8006: END If;
8065: );
8066:
8067: FND_FILE.PUT_LINE( FND_FILE.LOG, 'after insert into sublines '||' '||l_return_status );
8068:
8069: If (l_return_status <> OKC_API.G_RET_STS_SUCCESS) Then
8070: If (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) Then
8071: x_return_status := l_return_status;
8072: FND_FILE.PUT_LINE( FND_FILE.LOG, 'insert into table failed Contract line id :'||' '||l_bill_rec.id);
8073: l_error := 'T';
8066:
8067: FND_FILE.PUT_LINE( FND_FILE.LOG, 'after insert into sublines '||' '||l_return_status );
8068:
8069: If (l_return_status <> OKC_API.G_RET_STS_SUCCESS) Then
8070: If (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) Then
8071: x_return_status := l_return_status;
8072: FND_FILE.PUT_LINE( FND_FILE.LOG, 'insert into table failed Contract line id :'||' '||l_bill_rec.id);
8073: l_error := 'T';
8074: DBMS_TRANSACTION.ROLLBACK_SAVEPOINT('BEFORE_TRANSACTION');
8091: END LOOP;
8092:
8093: EXCEPTION
8094:
8095: WHEN OKC_API.G_EXCEPTION_ERROR Then
8096: x_return_status := OKC_API.HANDLE_EXCEPTIONS
8097: (
8098: l_api_name,
8099: G_PKG_NAME,
8092:
8093: EXCEPTION
8094:
8095: WHEN OKC_API.G_EXCEPTION_ERROR Then
8096: x_return_status := OKC_API.HANDLE_EXCEPTIONS
8097: (
8098: l_api_name,
8099: G_PKG_NAME,
8100: 'OKC_API.G_RET_STS_ERROR',
8096: x_return_status := OKC_API.HANDLE_EXCEPTIONS
8097: (
8098: l_api_name,
8099: G_PKG_NAME,
8100: 'OKC_API.G_RET_STS_ERROR',
8101: x_msg_count,
8102: x_msg_data,
8103: '_PUB'
8104: );
8102: x_msg_data,
8103: '_PUB'
8104: );
8105:
8106: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Then
8107: x_return_status := OKC_API.HANDLE_EXCEPTIONS
8108: (
8109: l_api_name,
8110: G_PKG_NAME,
8103: '_PUB'
8104: );
8105:
8106: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Then
8107: x_return_status := OKC_API.HANDLE_EXCEPTIONS
8108: (
8109: l_api_name,
8110: G_PKG_NAME,
8111: 'OKC_API.G_RET_STS_UNEXP_ERROR',
8107: x_return_status := OKC_API.HANDLE_EXCEPTIONS
8108: (
8109: l_api_name,
8110: G_PKG_NAME,
8111: 'OKC_API.G_RET_STS_UNEXP_ERROR',
8112: x_msg_count,
8113: x_msg_data,
8114: '_PUB');
8115: WHEN OTHERS Then
8112: x_msg_count,
8113: x_msg_data,
8114: '_PUB');
8115: WHEN OTHERS Then
8116: x_return_status := OKC_API.HANDLE_EXCEPTIONS
8117: (
8118: l_api_name,
8119: G_PKG_NAME,
8120: 'OTHERS',
8437: l_clev_tbl_in( 1 ).term_cancel_source := P_Term_Cancel_source;
8438: okc_contract_pub.update_contract_line(
8439: p_api_version => l_api_version,
8440: p_init_msg_list => l_init_msg_list,
8441: p_restricted_update => okc_api.g_true,
8442: x_return_status => l_return_status,
8443: x_msg_count => l_msg_cnt,
8444: x_msg_data => l_msg_data,
8445: p_clev_tbl => l_clev_tbl_in,
8565:
8566: EXCEPTION
8567: WHEN G_EXCEPTION_HALT_VALIDATION THEN
8568: /*Added for bug 11702843*/
8569: x_return_status := OKC_API.G_RET_STS_ERROR ;
8570: DBMS_TRANSACTION.ROLLBACK_SAVEPOINT('BEFORE_PRE_TERMINATE_CP');
8571: /*Added for bug 11702843*/
8572:
8573: END pre_terminate_cp;
8729: FETCH cur_lineno into l_line_number,l_contract_number;
8730: CLOSE cur_lineno;
8731:
8732:
8733: OKC_API.set_message(p_app_name => g_app_name,
8734: p_msg_name => 'OKC_SR_PENDING',
8735: p_token1 => 'NUMBER',
8736: p_token1_value => l_contract_number,
8737: p_token2 => 'LINENO',
8736: p_token1_value => l_contract_number,
8737: p_token2 => 'LINENO',
8738: p_token2_value => l_line_number);
8739:
8740: l_return_status := okc_api.g_ret_sts_error;
8741: raise G_EXCEPTION_HALT_VALIDATION;
8742: end if;
8743:
8744: END IF; -- if lse_id in(9,18,25)
8790: ELSIF (p_full_credit = 'N') THEN
8791: l_termination_date := p_termination_date;
8792: END IF;
8793:
8794: l_return_status := OKC_API.G_RET_STS_SUCCESS;
8795:
8796: IF (p_term_method = 'VOLUME') THEN
8797: pre_vol_based_terminate(
8798: P_CALLEDFROM => 1 ,
8900: X_RETURN_STATUS => l_return_status,
8901: X_MSG_COUNT => l_msg_cnt,
8902: X_MSG_DATA => l_msg_data);
8903:
8904: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
8905: x_return_status := l_return_status;
8906: Raise G_EXCEPTION_HALT_VALIDATION;
8907: END IF;
8908:
8950: l_clev_tbl_in( 1 ).term_cancel_source := P_Term_Cancel_source;
8951: okc_contract_pub.update_contract_line(
8952: p_api_version => l_api_version,
8953: p_init_msg_list => l_init_msg_list,
8954: p_restricted_update => okc_api.g_true,
8955: x_return_status => l_return_status,
8956: x_msg_count => l_msg_cnt,
8957: x_msg_data => l_msg_data,
8958: p_clev_tbl => l_clev_tbl_in,
9031: EXCEPTION
9032: WHEN G_EXCEPTION_HALT_VALIDATION THEN
9033: x_return_status := l_return_status;
9034: WHEN OTHERS THEN
9035: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN, SQLCODE, G_SQLERRM_TOKEN,SQLERRM);
9036: END terminate_cp;
9037:
9038: Procedure get_termination_details ( p_level IN VARCHAR2 ,
9039: p_id IN NUMBER ,
9483: /*Added for bug:10285124*/
9484: If (l_flag >0) then /*Added for bug:10285124*/
9485: OKS_TAX_UTIL_PVT.Get_Tax
9486: ( p_api_version => 1.0,
9487: p_init_msg_list => OKC_API.G_TRUE,
9488: p_chr_id => l_hdr_id,
9489: p_cle_id => p_true_value_tbl(1).p_cp_line_id,
9490: px_rail_rec => G_RAIL_REC,
9491: x_msg_count => x_msg_count,
9491: x_msg_count => x_msg_count,
9492: x_msg_data => x_msg_data,
9493: x_return_status => l_return_status);
9494: /* Modified by sjanakir for Bug#6912454 */
9495: IF ( l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
9496: RAISE G_EXCEPTION_HALT_VALIDATION;
9497: END IF;
9498: End If; /*Added for bug:10285124*/
9499:
9652:
9653: If (l_flag >0) then /*Added for bug:10285124*/
9654: OKS_TAX_UTIL_PVT.Get_Tax
9655: ( p_api_version => 1.0,
9656: p_init_msg_list => OKC_API.G_TRUE,
9657: p_chr_id => l_hdr_id,
9658: p_cle_id => l_top_line_rec.sub_line_id,
9659: px_rail_rec => G_RAIL_REC,
9660: x_msg_count => x_msg_count,
9660: x_msg_count => x_msg_count,
9661: x_msg_data => x_msg_data,
9662: x_return_status => l_return_status);
9663: /* Modified by sjanakir for Bug#6912454 */
9664: IF ( l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
9665: RAISE G_EXCEPTION_HALT_VALIDATION;
9666: END IF;
9667: End IF; /*Added for bug:10285124*/
9668:
9798:
9799: If (l_flag >0) then /*Added for bug:10285124*/
9800: OKS_TAX_UTIL_PVT.Get_Tax
9801: ( p_api_version => 1.0,
9802: p_init_msg_list => OKC_API.G_TRUE,
9803: p_chr_id => l_hdr_id,
9804: p_cle_id => p_true_value_tbl(1).p_top_line_id,
9805: px_rail_rec => G_RAIL_REC,
9806: x_msg_count => x_msg_count,
9806: x_msg_count => x_msg_count,
9807: x_msg_data => x_msg_data,
9808: x_return_status => l_return_status);
9809: /* Modified by sjanakir for Bug#6912454 */
9810: IF ( l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
9811: RAISE G_EXCEPTION_HALT_VALIDATION;
9812: END IF;
9813: End IF; /*Added for bug:10285124*/
9814:
9879: EXCEPTION
9880: WHEN G_EXCEPTION_HALT_VALIDATION THEN
9881: /*Added for bug 11702843*/
9882: FND_MSG_PUB.count_and_get(p_count => x_msg_count, p_data => x_msg_data );
9883: OKC_API.SET_MESSAGE(p_app_name =>'OKS',p_msg_name =>'OKS_MD_TERMINATION_FAILED');
9884: x_return_status :=OKC_API.G_RET_STS_ERROR;
9885: /*Added for bug 11702843*/
9886: WHEN OTHERS THEN
9887: x_return_status := OKC_API.G_RET_STS_ERROR ;
9880: WHEN G_EXCEPTION_HALT_VALIDATION THEN
9881: /*Added for bug 11702843*/
9882: FND_MSG_PUB.count_and_get(p_count => x_msg_count, p_data => x_msg_data );
9883: OKC_API.SET_MESSAGE(p_app_name =>'OKS',p_msg_name =>'OKS_MD_TERMINATION_FAILED');
9884: x_return_status :=OKC_API.G_RET_STS_ERROR;
9885: /*Added for bug 11702843*/
9886: WHEN OTHERS THEN
9887: x_return_status := OKC_API.G_RET_STS_ERROR ;
9888:
9883: OKC_API.SET_MESSAGE(p_app_name =>'OKS',p_msg_name =>'OKS_MD_TERMINATION_FAILED');
9884: x_return_status :=OKC_API.G_RET_STS_ERROR;
9885: /*Added for bug 11702843*/
9886: WHEN OTHERS THEN
9887: x_return_status := OKC_API.G_RET_STS_ERROR ;
9888:
9889: END TRUE_VALUE ;
9890:
9891: Procedure prorate_price_breaks ( P_BSL_ID IN NUMBER,
10408: END IF; --p_override_amount is not null
10409:
10410: EXCEPTION
10411: WHEN G_EXCEPTION_HALT_VALIDATION THEN
10412: x_return_status := OKC_API.G_RET_STS_ERROR ;
10413: WHEN OTHERS THEN
10414: OKC_API.SET_MESSAGE(p_app_name => G_APP_NAME,
10415: p_msg_name => G_UNEXPECTED_ERROR,
10416: p_token1 => G_SQLCODE_TOKEN,
10410: EXCEPTION
10411: WHEN G_EXCEPTION_HALT_VALIDATION THEN
10412: x_return_status := OKC_API.G_RET_STS_ERROR ;
10413: WHEN OTHERS THEN
10414: OKC_API.SET_MESSAGE(p_app_name => G_APP_NAME,
10415: p_msg_name => G_UNEXPECTED_ERROR,
10416: p_token1 => G_SQLCODE_TOKEN,
10417: p_token1_value => sqlcode,
10418: p_token2 => G_SQLERRM_TOKEN,
10879: END IF;
10880:
10881: EXCEPTION
10882: WHEN G_EXCEPTION_HALT_VALIDATION THEN
10883: x_return_status := OKC_API.G_RET_STS_ERROR ;
10884: WHEN OTHERS THEN
10885: OKC_API.SET_MESSAGE(p_app_name => G_APP_NAME,
10886: p_msg_name => G_UNEXPECTED_ERROR,
10887: p_token1 => G_SQLCODE_TOKEN,
10881: EXCEPTION
10882: WHEN G_EXCEPTION_HALT_VALIDATION THEN
10883: x_return_status := OKC_API.G_RET_STS_ERROR ;
10884: WHEN OTHERS THEN
10885: OKC_API.SET_MESSAGE(p_app_name => G_APP_NAME,
10886: p_msg_name => G_UNEXPECTED_ERROR,
10887: p_token1 => G_SQLCODE_TOKEN,
10888: p_token1_value => sqlcode,
10889: p_token2 => G_SQLERRM_TOKEN,
11119: EXCEPTION
11120: WHEN G_EXCEPTION_HALT_VALIDATION THEN
11121: RETURN NULL;
11122: WHEN INVALID_UOM_EXCEPTION THEN
11123: OKC_API.SET_MESSAGE(p_app_name => 'OKS',
11124: p_msg_name => 'OKS_INVD_UOM_CODE',
11125: p_token1 => 'OKS_API_NAME',
11126: p_token1_value => 'OKS_BILL_REC_PUB.Get_partial_term_amount',
11127: p_token2 => 'UOM_CODE',
11130: CLOSE cs_validate_uom;
11131: END IF;
11132: return NULL;
11133: WHEN INVALID_DATE_EXCEPTION THEN
11134: OKC_API.set_message('OKS','OKS_INVALID_START_END_DATES');
11135: return NULL;
11136: WHEN OTHERS THEN
11137: --set the error message and return with NULL to notify the
11138: --caller of error
11135: return NULL;
11136: WHEN OTHERS THEN
11137: --set the error message and return with NULL to notify the
11138: --caller of error
11139: OKC_API.SET_MESSAGE(p_app_name => G_APP_NAME,
11140: p_msg_name => G_UNEXPECTED_ERROR,
11141: p_token1 => G_SQLCODE_TOKEN,
11142: p_token1_value => sqlcode,
11143: p_token2 => G_SQLERRM_TOKEN,