[Home] [Help]
4441: i NUMBER := 1;
4442: BEGIN
4443: FOR rev_rec IN rev_cur
4444: LOOP
4445: x_rev_tbl(i).id := OKC_API.G_MISS_NUM;
4446: x_rev_tbl(i).chr_id := rev_rec.chr_id;
4447: x_rev_tbl(i).account_class := rev_rec.account_class;
4448: x_rev_tbl(i).code_combination_id := rev_rec.code_combination_id;
4449: x_rev_tbl(i).PERCENT := rev_rec.PERCENT;
4446: x_rev_tbl(i).chr_id := rev_rec.chr_id;
4447: x_rev_tbl(i).account_class := rev_rec.account_class;
4448: x_rev_tbl(i).code_combination_id := rev_rec.code_combination_id;
4449: x_rev_tbl(i).PERCENT := rev_rec.PERCENT;
4450: x_rev_tbl(i).object_version_number := OKC_API.G_MISS_NUM;
4451: x_rev_tbl(i).created_by := OKC_API.G_MISS_NUM;
4452: x_rev_tbl(i).creation_date := OKC_API.G_MISS_DATE;
4453: x_rev_tbl(i).last_updated_by := OKC_API.G_MISS_NUM;
4454: x_rev_tbl(i).last_update_date := OKC_API.G_MISS_DATE;
4447: x_rev_tbl(i).account_class := rev_rec.account_class;
4448: x_rev_tbl(i).code_combination_id := rev_rec.code_combination_id;
4449: x_rev_tbl(i).PERCENT := rev_rec.PERCENT;
4450: x_rev_tbl(i).object_version_number := OKC_API.G_MISS_NUM;
4451: x_rev_tbl(i).created_by := OKC_API.G_MISS_NUM;
4452: x_rev_tbl(i).creation_date := OKC_API.G_MISS_DATE;
4453: x_rev_tbl(i).last_updated_by := OKC_API.G_MISS_NUM;
4454: x_rev_tbl(i).last_update_date := OKC_API.G_MISS_DATE;
4455: x_rev_tbl(i).last_update_login := OKC_API.G_MISS_NUM;
4448: x_rev_tbl(i).code_combination_id := rev_rec.code_combination_id;
4449: x_rev_tbl(i).PERCENT := rev_rec.PERCENT;
4450: x_rev_tbl(i).object_version_number := OKC_API.G_MISS_NUM;
4451: x_rev_tbl(i).created_by := OKC_API.G_MISS_NUM;
4452: x_rev_tbl(i).creation_date := OKC_API.G_MISS_DATE;
4453: x_rev_tbl(i).last_updated_by := OKC_API.G_MISS_NUM;
4454: x_rev_tbl(i).last_update_date := OKC_API.G_MISS_DATE;
4455: x_rev_tbl(i).last_update_login := OKC_API.G_MISS_NUM;
4456: i := i + 1;
4449: x_rev_tbl(i).PERCENT := rev_rec.PERCENT;
4450: x_rev_tbl(i).object_version_number := OKC_API.G_MISS_NUM;
4451: x_rev_tbl(i).created_by := OKC_API.G_MISS_NUM;
4452: x_rev_tbl(i).creation_date := OKC_API.G_MISS_DATE;
4453: x_rev_tbl(i).last_updated_by := OKC_API.G_MISS_NUM;
4454: x_rev_tbl(i).last_update_date := OKC_API.G_MISS_DATE;
4455: x_rev_tbl(i).last_update_login := OKC_API.G_MISS_NUM;
4456: i := i + 1;
4457: END LOOP;
4450: x_rev_tbl(i).object_version_number := OKC_API.G_MISS_NUM;
4451: x_rev_tbl(i).created_by := OKC_API.G_MISS_NUM;
4452: x_rev_tbl(i).creation_date := OKC_API.G_MISS_DATE;
4453: x_rev_tbl(i).last_updated_by := OKC_API.G_MISS_NUM;
4454: x_rev_tbl(i).last_update_date := OKC_API.G_MISS_DATE;
4455: x_rev_tbl(i).last_update_login := OKC_API.G_MISS_NUM;
4456: i := i + 1;
4457: END LOOP;
4458: END get_rev_distr;
4451: x_rev_tbl(i).created_by := OKC_API.G_MISS_NUM;
4452: x_rev_tbl(i).creation_date := OKC_API.G_MISS_DATE;
4453: x_rev_tbl(i).last_updated_by := OKC_API.G_MISS_NUM;
4454: x_rev_tbl(i).last_update_date := OKC_API.G_MISS_DATE;
4455: x_rev_tbl(i).last_update_login := OKC_API.G_MISS_NUM;
4456: i := i + 1;
4457: END LOOP;
4458: END get_rev_distr;
4459:
4497: i NUMBER := 1;
4498: BEGIN
4499: FOR scrv_rec IN scrv_cur
4500: LOOP
4501: x_scrv_tbl(i).id := OKC_API.G_MISS_NUM;
4502: x_scrv_tbl(i).PERCENT := scrv_rec.PERCENT;
4503: x_scrv_tbl(i).chr_id := scrv_rec.chr_id;
4504: x_scrv_tbl(i).ctc_id := scrv_rec.ctc_id;
4505: x_scrv_tbl(i).sales_credit_type_id1 := scrv_rec.sales_credit_type_id1;
4503: x_scrv_tbl(i).chr_id := scrv_rec.chr_id;
4504: x_scrv_tbl(i).ctc_id := scrv_rec.ctc_id;
4505: x_scrv_tbl(i).sales_credit_type_id1 := scrv_rec.sales_credit_type_id1;
4506: x_scrv_tbl(i).sales_credit_type_id2 := scrv_rec.sales_credit_type_id2;
4507: x_scrv_tbl(i).object_version_number := OKC_API.G_MISS_NUM;
4508: x_scrv_tbl(i).created_by := OKC_API.G_MISS_NUM;
4509: x_scrv_tbl(i).creation_date := OKC_API.G_MISS_DATE;
4510: x_scrv_tbl(i).last_updated_by := OKC_API.G_MISS_NUM;
4511: x_scrv_tbl(i).last_update_date := OKC_API.G_MISS_DATE;
4504: x_scrv_tbl(i).ctc_id := scrv_rec.ctc_id;
4505: x_scrv_tbl(i).sales_credit_type_id1 := scrv_rec.sales_credit_type_id1;
4506: x_scrv_tbl(i).sales_credit_type_id2 := scrv_rec.sales_credit_type_id2;
4507: x_scrv_tbl(i).object_version_number := OKC_API.G_MISS_NUM;
4508: x_scrv_tbl(i).created_by := OKC_API.G_MISS_NUM;
4509: x_scrv_tbl(i).creation_date := OKC_API.G_MISS_DATE;
4510: x_scrv_tbl(i).last_updated_by := OKC_API.G_MISS_NUM;
4511: x_scrv_tbl(i).last_update_date := OKC_API.G_MISS_DATE;
4512: i := i + 1;
4505: x_scrv_tbl(i).sales_credit_type_id1 := scrv_rec.sales_credit_type_id1;
4506: x_scrv_tbl(i).sales_credit_type_id2 := scrv_rec.sales_credit_type_id2;
4507: x_scrv_tbl(i).object_version_number := OKC_API.G_MISS_NUM;
4508: x_scrv_tbl(i).created_by := OKC_API.G_MISS_NUM;
4509: x_scrv_tbl(i).creation_date := OKC_API.G_MISS_DATE;
4510: x_scrv_tbl(i).last_updated_by := OKC_API.G_MISS_NUM;
4511: x_scrv_tbl(i).last_update_date := OKC_API.G_MISS_DATE;
4512: i := i + 1;
4513: END LOOP;
4506: x_scrv_tbl(i).sales_credit_type_id2 := scrv_rec.sales_credit_type_id2;
4507: x_scrv_tbl(i).object_version_number := OKC_API.G_MISS_NUM;
4508: x_scrv_tbl(i).created_by := OKC_API.G_MISS_NUM;
4509: x_scrv_tbl(i).creation_date := OKC_API.G_MISS_DATE;
4510: x_scrv_tbl(i).last_updated_by := OKC_API.G_MISS_NUM;
4511: x_scrv_tbl(i).last_update_date := OKC_API.G_MISS_DATE;
4512: i := i + 1;
4513: END LOOP;
4514: END get_sales_cred;
4507: x_scrv_tbl(i).object_version_number := OKC_API.G_MISS_NUM;
4508: x_scrv_tbl(i).created_by := OKC_API.G_MISS_NUM;
4509: x_scrv_tbl(i).creation_date := OKC_API.G_MISS_DATE;
4510: x_scrv_tbl(i).last_updated_by := OKC_API.G_MISS_NUM;
4511: x_scrv_tbl(i).last_update_date := OKC_API.G_MISS_DATE;
4512: i := i + 1;
4513: END LOOP;
4514: END get_sales_cred;
4515:
4591: OPEN subline_count;
4592: FETCH subline_count INTO l_count;
4593: CLOSE subline_count;
4594: IF l_count = 0 THEN
4595: x_status := OKC_API.G_RET_STS_SUCCESS;
4596: RETURN;
4597: END IF;
4598: i := 1;
4599: FOR subline IN subline_cur
4792: G_RAIL_REC.AMOUNT := p_amt;
4793: OKS_TAX_UTIL_PVT.Get_Tax
4794: (
4795: p_api_version => 1.0,
4796: p_init_msg_list => OKC_API.G_TRUE,
4797: p_chr_id => p_chr_id,
4798: p_cle_id => p_cle_id,
4799: px_rail_rec => G_RAIL_REC,
4800: x_msg_count => l_msg_count,
5132: --BUG#4066428 hkamdar 01/21/05
5133: x_return_status := l_return_status;
5134: --End BUG#4066428
5135:
5136: IF l_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
5137: x_return_status := l_return_status;
5138: RAISE G_ERROR;
5139: END IF;
5140: l_klnv_tbl_in(1).tax_amount := l_tax_value;
5165:
5166: PROCEDURE update_header_amount(p_cle_id IN NUMBER,
5167: x_status OUT NOCOPY VARCHAR2) IS
5168: l_api_version CONSTANT NUMBER := 1.0;
5169: l_init_msg_list VARCHAR2(2000) := OKC_API.G_FALSE;
5170: l_return_status VARCHAR2(1);
5171: l_msg_count NUMBER;
5172: l_msg_data VARCHAR2(2000);
5173: l_msg_index_out NUMBER;
5181: AND lse_id IN (7, 8, 9, 10, 11, 35, 13, 18, 25)
5182: AND date_cancelled IS NULL; --ignore cancelled sublines
5183:
5184: BEGIN
5185: x_status := OKC_API.G_RET_STS_SUCCESS;
5186: IF p_cle_id IS NOT NULL THEN
5187: FOR cur_total_amount IN total_amount(g_chr_id)
5188: LOOP
5189: l_chrv_tbl_in(1).id := g_chr_id;
5363:
5364: BEGIN
5365: l_target_tbl := p_target_tbl;
5366: IF l_target_tbl.COUNT = 0 THEN
5367: x_return_status := OKC_API.G_RET_STS_SUCCESS;
5368: RETURN;
5369: END IF;
5370: OPEN header_cur;
5371: FETCH header_cur INTO g_chr_id, l_start_date, l_end_date, l_object_version_number, l_lse_id ;
5386: , p_jtot_object1_code => item_rec.jtot_object1_code
5387: , x_return_status => l_return_status
5388: , x_oie_id => l_oie_id);
5389: --errorout('After CreateOperationInstance-'||l_return_status);
5390: IF l_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
5391: x_return_status := l_return_status;
5392: RAISE G_ERROR;
5393: END IF;
5394:
5435: -- to decide whether to allow change of status of sublines
5436: -- of the topline during update service
5437:
5438: --errorout('After copy_contract_lines-'||l_return_status);
5439: IF l_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
5440: x_return_status := l_return_status;
5441: RAISE G_ERROR;
5442: ELSE
5443: OKS_SETUP_UTIL_PUB.Okscopy
5484: l_published_line_ids_tbl_i := l_published_line_ids_tbl.FIRST;
5485: l_target_tbl(idx).cle_id := l_published_line_ids_tbl(l_published_line_ids_tbl_i).new_line_id;
5486: --end Bug 4747648
5487:
5488: IF l_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
5489: x_return_status := l_return_status;
5490: RAISE G_ERROR;
5491: END IF;
5492:
5496: UPDATE okc_k_lines_b SET line_number = l_top_line_number
5497: WHERE id = l_target_tbl(idx).cle_id;
5498: --Fix for bug#2221910 end.
5499:
5500: IF l_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
5501: x_return_status := l_return_status;
5502: RAISE G_ERROR;
5503: END IF;
5504:
5507: /************* Commented out because this is being taken care of by OKSCOPY
5508:
5509: IF l_rev_found THEN
5510: create_rev_distr(l_target_tbl(idx).cle_id, l_rev_tbl, l_return_status);
5511: IF l_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
5512: x_return_status := l_return_status;
5513: RAISE G_ERROR;
5514: END IF;
5515: END IF;
5514: END IF;
5515: END IF;
5516: IF l_scr_found THEN
5517: create_sales_cred(l_target_tbl(idx).cle_id, l_salescr_tbl, l_return_status);
5518: IF l_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
5519: x_return_status := l_return_status;
5520: RAISE G_ERROR;
5521: END IF;
5522: END IF; **********/
5530: idx := l_target_tbl.FIRST;
5531: LOOP
5532: update_line_item(l_target_tbl(idx).cle_id, l_target_tbl(idx).item_id, l_return_status);
5533: --errorout('After update_line_item-'||l_return_status);
5534: IF l_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
5535: x_return_status := l_return_status;
5536: RAISE G_ERROR;
5537: END IF;
5538:
5555:
5556: --LLC
5557:
5558: --errorout('After prorate_amount-'||l_return_status);
5559: IF l_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
5560: x_return_status := l_return_status;
5561: RAISE G_ERROR;
5562: END IF;
5563:
5562: END IF;
5563:
5564: refresh_bill_sch(l_target_tbl(idx).cle_id, l_return_status);
5565: --errorout('After refresh_bill_sch-'||l_return_status);
5566: IF l_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
5567: x_return_status := l_return_status;
5568: RAISE G_ERROR;
5569: END IF;
5570: END IF;
5603: , x_msg_count => l_msg_count
5604: , x_msg_data => l_msg_data
5605: , p_line_id => l_cov_id);
5606: --errorout('After Undo_Line-'||l_return_status);
5607: IF l_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
5608: x_return_status := l_return_status;
5609: RAISE G_ERROR;
5610: END IF;
5611: END IF;
5627: --errorout('After update_renewal_info-'||l_return_status);
5628: END IF;
5629: END IF;
5630: --
5631: IF l_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
5632: x_return_status := l_return_status;
5633: RAISE G_ERROR;
5634: END IF;
5635:
5653: ,x_msg_count => l_msg_count
5654: ,x_msg_data => l_msg_data
5655: ,x_actual_coverage_id => l_cov_id);
5656: --errorout('After create_actual_coverage-'||l_return_status);
5657: IF l_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
5658: x_return_status := l_return_status;
5659: RAISE G_ERROR;
5660: END IF;
5661: **/
5684: x_msg_count =>l_msg_count,
5685: x_msg_data =>l_msg_data,
5686: p_cle_id =>l_target_tbl(idx).cle_id);
5687:
5688: IF l_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
5689: x_return_status := l_return_status;
5690: RAISE G_ERROR;
5691: End IF;
5692:
5708: p_cle_id => l_target_tbl(idx).cle_id, --p_contract_line_id,
5709: p_cov_start_date => l_pm_start_date,
5710: p_cov_end_date => l_pm_end_date);
5711:
5712: IF l_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
5713: x_return_status := l_return_status;
5714: RAISE G_ERROR;
5715: End IF;
5716:
5733: , p_start_date => l_start_date
5734: , p_end_date => l_end_date
5735: , x_return_status => l_return_status);
5736: --errorout('After UpdateIRTRule_SubLine-'||l_return_status);
5737: IF l_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
5738: x_return_status := l_return_status;
5739: RAISE G_ERROR;
5740: END IF;
5741: --ADDED FOR Bug# 2364507
5753: , x_total => l_total);
5754:
5755: --errorout('After UpdateIRTRule-'||l_return_status);
5756:
5757: IF l_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
5758: x_return_status := l_return_status;
5759: RAISE G_ERROR;
5760: END IF;
5761:
5838: , p_oie_id => l_oie_id
5839: , x_return_status => l_return_status);
5840:
5841: --errorout('After CreateOperationlines-'||l_return_status);
5842: IF l_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
5843: x_return_status := l_return_status;
5844: RAISE G_ERROR;
5845: END IF;
5846: l_total_pct := l_total_pct + l_target_tbl(idx).percentage;
5849: END LOOP;
5850: IF l_total_pct <> 100 THEN
5851: update_header_amount(p_source_rec.cle_id, l_return_status);
5852: --errorout('After update_header-'||l_return_status);
5853: IF l_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
5854: x_return_status := l_return_status;
5855: RAISE G_ERROR;
5856: END IF;
5857: END IF;
5854: x_return_status := l_return_status;
5855: RAISE G_ERROR;
5856: END IF;
5857: END IF;
5858: x_return_status := OKC_API.G_RET_STS_SUCCESS;
5859: EXCEPTION
5860: WHEN G_ERROR THEN
5861: NULL;
5862: WHEN OTHERS THEN
5859: EXCEPTION
5860: WHEN G_ERROR THEN
5861: NULL;
5862: WHEN OTHERS THEN
5863: OKC_API.set_message(OKC_API.G_APP_NAME,
5864: 'OKS_UNEXP_ERROR',
5865: 'SQLcode',
5866: SQLCODE,
5867: 'SQLerrm',
5866: SQLCODE,
5867: 'SQLerrm',
5868: SQLERRM);
5869: -- notify caller of an UNEXPECTED error
5870: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
5871: END CopyService;
5872:
5873:
5874: -- Begin modifications for new HZ_CONTACT_POINTS_V2PUB for TCA uptake, aiyengar 11/20/02
5958: EXCEPTION
5959: WHEN G_ERROR THEN
5960: NULL;
5961: WHEN OTHERS THEN
5962: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
5963: OKC_API.set_message
5964: (OKC_API.G_APP_NAME,
5965: G_UNEXPECTED_ERROR,
5966: G_SQLCODE_TOKEN,
5959: WHEN G_ERROR THEN
5960: NULL;
5961: WHEN OTHERS THEN
5962: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
5963: OKC_API.set_message
5964: (OKC_API.G_APP_NAME,
5965: G_UNEXPECTED_ERROR,
5966: G_SQLCODE_TOKEN,
5967: SQLCODE,
5960: NULL;
5961: WHEN OTHERS THEN
5962: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
5963: OKC_API.set_message
5964: (OKC_API.G_APP_NAME,
5965: G_UNEXPECTED_ERROR,
5966: G_SQLCODE_TOKEN,
5967: SQLCODE,
5968: G_SQLERRM_TOKEN,
6041: EXCEPTION
6042: WHEN G_ERROR THEN
6043: NULL;
6044: WHEN OTHERS THEN
6045: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
6046: OKC_API.set_message
6047: (OKC_API.G_APP_NAME,
6048: G_UNEXPECTED_ERROR,
6049: G_SQLCODE_TOKEN,
6042: WHEN G_ERROR THEN
6043: NULL;
6044: WHEN OTHERS THEN
6045: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
6046: OKC_API.set_message
6047: (OKC_API.G_APP_NAME,
6048: G_UNEXPECTED_ERROR,
6049: G_SQLCODE_TOKEN,
6050: SQLCODE,
6043: NULL;
6044: WHEN OTHERS THEN
6045: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
6046: OKC_API.set_message
6047: (OKC_API.G_APP_NAME,
6048: G_UNEXPECTED_ERROR,
6049: G_SQLCODE_TOKEN,
6050: SQLCODE,
6051: G_SQLERRM_TOKEN,
6086: FETCH c_clopn_split_csr INTO l_split_id;
6087: CLOSE c_clopn_split_csr;
6088: IF l_split_id IS NULL THEN
6089: x_return_status := G_RET_STS_ERROR;
6090: OKC_API.set_message(G_APP_NAME_OKS, 'OKS_CLS_OPN_NOT_FOUND');
6091: RAISE G_ERROR;
6092: END IF;
6093:
6094: l_oiev_tbl(1).cop_id := l_split_id;
6117: EXCEPTION
6118: WHEN G_ERROR THEN
6119: NULL;
6120: WHEN OTHERS THEN
6121: OKC_API.set_message(G_APP_NAME_OKS,
6122: 'OKS_UNEXP_ERROR',
6123: 'SQLcode',
6124: SQLCODE,
6125: 'SQLerrm',
6124: SQLCODE,
6125: 'SQLerrm',
6126: SQLERRM);
6127: -- notify caller of an UNEXPECTED error
6128: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
6129: END CreateOperationInstance;
6130:
6131: PROCEDURE CreateOperationLines(p_chr_id IN NUMBER
6132: , p_object_line_id IN NUMBER
6173: EXCEPTION
6174: WHEN G_ERROR THEN
6175: NULL;
6176: WHEN OTHERS THEN
6177: OKC_API.set_message(G_APP_NAME_OKS,
6178: 'OKS_UNEXP_ERROR',
6179: 'SQLcode',
6180: SQLCODE,
6181: 'SQLerrm',
6180: SQLCODE,
6181: 'SQLerrm',
6182: SQLERRM);
6183: -- notify caller of an UNEXPECTED error
6184: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
6185: END CreateOperationLines;
6186:
6187:
6188: PROCEDURE CREATE_CII_FOR_SUBSCRIPTION
6632:
6633: EXCEPTION
6634: WHEN G_ERROR THEN
6635: x_return_status := G_RET_STS_ERROR;
6636: OKC_API.SET_MESSAGE(p_app_name => G_APP_NAME_OKS,
6637: p_msg_name => 'OKS_NULL_CUSTACCT');
6638: END;
6639:
6640:
6798:
6799: EXCEPTION
6800: WHEN OTHERS THEN
6801: x_return_status := G_UNEXPECTED_ERROR;
6802: OKC_API.set_message(G_APP_NAME_OKS,
6803: 'OKS_UNEXP_ERROR',
6804: 'SQLcode',
6805: SQLCODE,
6806: 'SQLerrm',
6897: END IF; --TopLine/Subline
6898: EXCEPTION
6899: WHEN G_DUPLICATE_RECORD THEN
6900: x_return_status := G_RET_STS_ERROR;
6901: OKC_API.SET_MESSAGE(p_app_name => G_APP_NAME_OKS,
6902: p_msg_name => 'OKS_DUPLICATE_MODIFIER');
6903: WHEN OTHERS THEN
6904: x_return_status := G_UNEXPECTED_ERROR;
6905: OKC_API.set_message(G_APP_NAME_OKS,
6901: OKC_API.SET_MESSAGE(p_app_name => G_APP_NAME_OKS,
6902: p_msg_name => 'OKS_DUPLICATE_MODIFIER');
6903: WHEN OTHERS THEN
6904: x_return_status := G_UNEXPECTED_ERROR;
6905: OKC_API.set_message(G_APP_NAME_OKS,
6906: 'OKS_UNEXP_ERROR',
6907: 'SQLcode',
6908: SQLCODE,
6909: 'SQLerrm',
6920: IS
6921: l_clev_rec OKC_CONTRACT_PUB.clev_rec_type;
6922: x_clev_rec OKC_CONTRACT_PUB.clev_rec_type;
6923: l_api_version NUMBER := 1.0;
6924: l_init_msg_list VARCHAR2(2000) := OKC_API.G_FALSE;
6925: l_return_status VARCHAR2(1);
6926: l_msg_count NUMBER;
6927: l_msg_data VARCHAR2(2000);
6928: l_price_negotiated NUMBER;
6976: p_clev_rec => l_clev_rec,
6977: x_clev_rec => x_clev_rec
6978: );
6979:
6980: IF NVL(x_return_status, '!') <> OKC_API.G_RET_STS_SUCCESS THEN
6981: RAISE G_ERROR;
6982: END IF;
6983: -- Update Lines Level Tax Amount --
6984: OPEN Get_oks_Lines_details(p_line_id);
7008: p_validate_yn => 'N'
7009: );
7010:
7011: x_return_status := l_return_status;
7012: IF NVL(l_return_status, '!') <> OKC_API.G_RET_STS_SUCCESS THEN
7013: RAISE G_ERROR;
7014: END IF;
7015:
7016: EXCEPTION
7052: );
7053:
7054: ----------errorout_ad('OKC_CONTRACT_PUB.Update_Contract_Line status = ' || x_return_status);
7055:
7056: IF NVL(x_return_status, '!') <> OKC_API.G_RET_STS_SUCCESS THEN
7057: RAISE G_ERROR;
7058: END IF;
7059:
7060: EXCEPTION
7064:
7065: PROCEDURE UPDATE_CONTRACT_AMOUNT(p_header_id IN NUMBER,
7066: x_return_status OUT NOCOPY VARCHAR2) IS
7067: l_api_version CONSTANT NUMBER := 1.0;
7068: l_init_msg_list VARCHAR2(2000) := OKC_API.G_FALSE;
7069: l_return_status VARCHAR2(1);
7070: l_msg_count NUMBER;
7071: l_msg_data VARCHAR2(2000);
7072: l_msg_index_out NUMBER;
7104:
7105: l_get_hdr_details get_header_details%ROWTYPE;
7106:
7107: BEGIN
7108: x_return_status := OKC_API.G_RET_STS_SUCCESS;
7109: IF p_header_id IS NOT NULL THEN
7110: l_chrv_tbl_in.DELETE;
7111: FOR cur_total_amount IN total_amount
7112: LOOP
7121: p_chrv_tbl => l_chrv_tbl_in,
7122: x_chrv_tbl => l_chrv_tbl_out
7123: );
7124: x_return_status := l_return_status;
7125: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7126: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7127: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
7128: RAISE OKC_API.G_EXCEPTION_ERROR;
7129: END IF;
7122: x_chrv_tbl => l_chrv_tbl_out
7123: );
7124: x_return_status := l_return_status;
7125: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7126: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7127: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
7128: RAISE OKC_API.G_EXCEPTION_ERROR;
7129: END IF;
7130: END LOOP;
7123: );
7124: x_return_status := l_return_status;
7125: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7126: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7127: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
7128: RAISE OKC_API.G_EXCEPTION_ERROR;
7129: END IF;
7130: END LOOP;
7131:
7124: x_return_status := l_return_status;
7125: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7126: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7127: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
7128: RAISE OKC_API.G_EXCEPTION_ERROR;
7129: END IF;
7130: END LOOP;
7131:
7132: -- Updating Header level tax Amount --
7153: x_khrv_tbl => l_khrv_tbl_type_out,
7154: p_validate_yn => 'N');
7155:
7156: x_return_status := l_return_status;
7157: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7158: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7159: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
7160: RAISE OKC_API.G_EXCEPTION_ERROR;
7161: END IF;
7154: p_validate_yn => 'N');
7155:
7156: x_return_status := l_return_status;
7157: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7158: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7159: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
7160: RAISE OKC_API.G_EXCEPTION_ERROR;
7161: END IF;
7162: -- Updating Header level tax Amount --
7155:
7156: x_return_status := l_return_status;
7157: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7158: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7159: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
7160: RAISE OKC_API.G_EXCEPTION_ERROR;
7161: END IF;
7162: -- Updating Header level tax Amount --
7163:
7156: x_return_status := l_return_status;
7157: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
7158: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7159: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
7160: RAISE OKC_API.G_EXCEPTION_ERROR;
7161: END IF;
7162: -- Updating Header level tax Amount --
7163:
7164: END IF;
7322: l_active_line_count NUMBER;
7323: l_new_cascade_service_price NUMBER;
7324: l_detail_rec OKS_QP_PKG.input_details;
7325: l_api_Version NUMBER := 1;
7326: l_init_msg_list VARCHAR2(2000) := OKC_API.G_FALSE;
7327: l_return_status VARCHAR2(1);
7328: l_msg_count NUMBER;
7329: l_msg_data VARCHAR2(2000);
7330: l_price_details OKS_QP_PKG.price_details;
7467: where id = clvl_rec.id; */
7468:
7469: ----------errorout_ad(' price nego after update '||cp_price);
7470:
7471: IF Nvl(x_return_status, 'S') <> OKC_API.G_RET_STS_SUCCESS
7472: THEN
7473: -- --------errorout_ad (' error in updation of coverage level ');
7474: RAISE G_ERROR;
7475: END IF;
7488: -- --------errorout_ad(' before calculating tax ');
7489: G_RAIL_REC.amount := l_new_amount ;
7490:
7491: OKS_TAX_UTIL_PVT.Get_Tax (p_api_version => 1.0,
7492: p_init_msg_list => OKC_API.G_TRUE,
7493: p_chr_id => clvl_rec.dnz_chr_id,
7494: p_cle_id => p_contract_line_id,
7495: px_rail_rec => G_RAIL_REC,
7496: x_msg_count => x_msg_count,
7497: x_msg_data => x_msg_data,
7498: x_return_status => l_return_status );
7499:
7500: -- Bug 5228352 --
7501: IF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
7502: RAISE OKC_API.G_EXCEPTION_ERROR;
7503: ELSIF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
7504: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7505: END IF;
7498: x_return_status => l_return_status );
7499:
7500: -- Bug 5228352 --
7501: IF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
7502: RAISE OKC_API.G_EXCEPTION_ERROR;
7503: ELSIF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
7504: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7505: END IF;
7506: -- Bug 5228352 --
7499:
7500: -- Bug 5228352 --
7501: IF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
7502: RAISE OKC_API.G_EXCEPTION_ERROR;
7503: ELSIF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
7504: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7505: END IF;
7506: -- Bug 5228352 --
7507:
7500: -- Bug 5228352 --
7501: IF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
7502: RAISE OKC_API.G_EXCEPTION_ERROR;
7503: ELSIF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
7504: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7505: END IF;
7506: -- Bug 5228352 --
7507:
7508: -- --------errorout_ad(' error in calc tax '||l_return_status );
7543: p_klnv_tbl => l_klnv_tbl,
7544: x_klnv_tbl => lx_klnv_tbl,
7545: p_validate_yn => l_validate_yn);
7546: -- Bug 5228352 --
7547: IF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
7548: RAISE OKC_API.G_EXCEPTION_ERROR;
7549: ELSIF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
7550: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7551: END IF;
7544: x_klnv_tbl => lx_klnv_tbl,
7545: p_validate_yn => l_validate_yn);
7546: -- Bug 5228352 --
7547: IF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
7548: RAISE OKC_API.G_EXCEPTION_ERROR;
7549: ELSIF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
7550: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7551: END IF;
7552: -- Bug 5228352 --
7545: p_validate_yn => l_validate_yn);
7546: -- Bug 5228352 --
7547: IF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
7548: RAISE OKC_API.G_EXCEPTION_ERROR;
7549: ELSIF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
7550: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7551: END IF;
7552: -- Bug 5228352 --
7553:
7546: -- Bug 5228352 --
7547: IF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
7548: RAISE OKC_API.G_EXCEPTION_ERROR;
7549: ELSIF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
7550: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7551: END IF;
7552: -- Bug 5228352 --
7553:
7554:
7586: l_return_status,
7587: l_msg_count,
7588: l_msg_data );
7589:
7590: IF l_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
7591:
7592: RAISE G_ERROR;
7593: END IF;
7594:
7644: x_return_status => x_return_status,
7645: x_msg_count => x_msg_count,
7646: x_msg_data => x_msg_data);
7647:
7648: IF Nvl(x_return_status, 'S') <> OKC_API.G_RET_STS_SUCCESS THEN
7649: RAISE G_ERROR;
7650: END IF;
7651:
7652:
7665: --G_RAIL_REC.amount := l_clvl_rec.price_negotiated + NVL(l_diff_amt, 0) ;
7666: G_RAIL_REC.amount := l_clvl_diff_amt_rec.price_negotiated + NVL(l_diff_amt, 0) ;
7667:
7668: OKS_TAX_UTIL_PVT.Get_Tax (p_api_version => 1.0,
7669: p_init_msg_list => OKC_API.G_TRUE,
7670: p_chr_id => get_header_id,
7671: p_cle_id => l_old_id,
7672: px_rail_rec => G_RAIL_REC,
7673: x_msg_count => x_msg_count,
7674: x_msg_data => x_msg_data,
7675: x_return_status => l_return_status );
7676:
7677: -- Bug 5228352 --
7678: IF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
7679: RAISE OKC_API.G_EXCEPTION_ERROR;
7680: ELSIF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
7681: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7682: END IF;
7675: x_return_status => l_return_status );
7676:
7677: -- Bug 5228352 --
7678: IF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
7679: RAISE OKC_API.G_EXCEPTION_ERROR;
7680: ELSIF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
7681: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7682: END IF;
7683: -- Bug 5228352 --
7676:
7677: -- Bug 5228352 --
7678: IF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
7679: RAISE OKC_API.G_EXCEPTION_ERROR;
7680: ELSIF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
7681: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7682: END IF;
7683: -- Bug 5228352 --
7684:
7677: -- Bug 5228352 --
7678: IF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
7679: RAISE OKC_API.G_EXCEPTION_ERROR;
7680: ELSIF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
7681: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7682: END IF;
7683: -- Bug 5228352 --
7684:
7685: -- --------errorout_ad(' error in calc tax '||l_return_status );
7733: p_klnv_tbl => l_klnv_tbl,
7734: x_klnv_tbl => lx_klnv_tbl,
7735: p_validate_yn => l_validate_yn);
7736: -- Bug 5228352 --
7737: IF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
7738: RAISE OKC_API.G_EXCEPTION_ERROR;
7739: ELSIF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
7740: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7741: END IF;
7734: x_klnv_tbl => lx_klnv_tbl,
7735: p_validate_yn => l_validate_yn);
7736: -- Bug 5228352 --
7737: IF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
7738: RAISE OKC_API.G_EXCEPTION_ERROR;
7739: ELSIF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
7740: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7741: END IF;
7742: -- Bug 5228352 --
7735: p_validate_yn => l_validate_yn);
7736: -- Bug 5228352 --
7737: IF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
7738: RAISE OKC_API.G_EXCEPTION_ERROR;
7739: ELSIF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
7740: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7741: END IF;
7742: -- Bug 5228352 --
7743:
7736: -- Bug 5228352 --
7737: IF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
7738: RAISE OKC_API.G_EXCEPTION_ERROR;
7739: ELSIF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
7740: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7741: END IF;
7742: -- Bug 5228352 --
7743:
7744:
7784: l_return_status,
7785: l_msg_count,
7786: l_msg_data );
7787:
7788: IF l_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
7789: RAISE G_ERROR;
7790: END IF;
7791: END IF;
7792: END IF; /** ENDIF CALL TO QP INT */
7801: x_msg_count,
7802: x_msg_data );
7803:
7804:
7805: IF x_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
7806: RAISE G_ERROR;
7807: END IF;
7808:
7809:
7811: UPDATE_CONTRACT_AMOUNT(p_header_id => Get_Header_Id,
7812: x_return_status => x_return_status);
7813:
7814:
7815: IF x_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
7816: RAISE G_ERROR;
7817: END IF;
7818:
7819:
7823:
7824: NULL;
7825: WHEN OTHERS THEN
7826:
7827: OKC_API.SET_MESSAGE(p_app_name => G_APP_NAME_OKC,
7828: p_msg_name => G_UNEXPECTED_ERROR,
7829: p_token1 => G_SQLCODE_TOKEN,
7830: p_token1_value => SQLCODE,
7831: p_token2 => G_SQLERRM_TOKEN,
7905: x_msg_data => l_msg_data
7906: );
7907:
7908: --refresh schedule
7909: IF l_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
7910: RAISE G_ERROR;
7911: END IF;
7912: oks_bill_sch.Create_Bill_Sch_CP
7913: (
7917: x_return_status => l_return_status,
7918: x_msg_count => l_msg_count,
7919: x_msg_data => l_msg_data);
7920:
7921: IF l_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
7922: RAISE G_ERROR;
7923: END IF;
7924: END IF;
7925: END LOOP;
7931:
7932: NULL;
7933: WHEN OTHERS THEN
7934:
7935: OKC_API.SET_MESSAGE(p_app_name => G_APP_NAME_OKC,
7936: p_msg_name => G_UNEXPECTED_ERROR,
7937: p_token1 => G_SQLCODE_TOKEN,
7938: p_token1_value => SQLCODE,
7939: p_token2 => G_SQLERRM_TOKEN,
7956: x_msg_data OUT NOCOPY VARCHAR2
7957: )IS
7958: l_person_rec HZ_PARTY_V2PUB.person_rec_type ;
7959: l_init_msg_list CONSTANT VARCHAR2(1) := 'F';
7960: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
7961:
7962: BEGIN
7963: l_person_rec.person_pre_name_adjunct := p_person_tbl(1).person_pre_name_adjunct;
7964: l_person_rec.person_first_name := p_person_tbl(1).person_first_name;
7979: x_msg_data => x_msg_data);
7980:
7981: EXCEPTION
7982: WHEN OTHERS THEN
7983: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
7984: OKC_API.set_message
7985: (OKC_API.G_APP_NAME,
7986: G_UNEXPECTED_ERROR,
7987: G_SQLCODE_TOKEN,
7980:
7981: EXCEPTION
7982: WHEN OTHERS THEN
7983: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
7984: OKC_API.set_message
7985: (OKC_API.G_APP_NAME,
7986: G_UNEXPECTED_ERROR,
7987: G_SQLCODE_TOKEN,
7988: SQLCODE,
7981: EXCEPTION
7982: WHEN OTHERS THEN
7983: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
7984: OKC_API.set_message
7985: (OKC_API.G_APP_NAME,
7986: G_UNEXPECTED_ERROR,
7987: G_SQLCODE_TOKEN,
7988: SQLCODE,
7989: G_SQLERRM_TOKEN,
8023: x_msg_count => x_msg_count,
8024: x_msg_data => x_msg_data);
8025: EXCEPTION
8026: WHEN OTHERS THEN
8027: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
8028: OKC_API.set_message
8029: (OKC_API.G_APP_NAME,
8030: G_UNEXPECTED_ERROR,
8031: G_SQLCODE_TOKEN,
8024: x_msg_data => x_msg_data);
8025: EXCEPTION
8026: WHEN OTHERS THEN
8027: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
8028: OKC_API.set_message
8029: (OKC_API.G_APP_NAME,
8030: G_UNEXPECTED_ERROR,
8031: G_SQLCODE_TOKEN,
8032: SQLCODE,
8025: EXCEPTION
8026: WHEN OTHERS THEN
8027: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
8028: OKC_API.set_message
8029: (OKC_API.G_APP_NAME,
8030: G_UNEXPECTED_ERROR,
8031: G_SQLCODE_TOKEN,
8032: SQLCODE,
8033: G_SQLERRM_TOKEN,
8079: x_msg_data => x_msg_data);
8080:
8081: EXCEPTION
8082: WHEN OTHERS THEN
8083: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
8084: OKC_API.set_message
8085: (OKC_API.G_APP_NAME,
8086: G_UNEXPECTED_ERROR,
8087: G_SQLCODE_TOKEN,
8080:
8081: EXCEPTION
8082: WHEN OTHERS THEN
8083: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
8084: OKC_API.set_message
8085: (OKC_API.G_APP_NAME,
8086: G_UNEXPECTED_ERROR,
8087: G_SQLCODE_TOKEN,
8088: SQLCODE,
8081: EXCEPTION
8082: WHEN OTHERS THEN
8083: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
8084: OKC_API.set_message
8085: (OKC_API.G_APP_NAME,
8086: G_UNEXPECTED_ERROR,
8087: G_SQLCODE_TOKEN,
8088: SQLCODE,
8089: G_SQLERRM_TOKEN,
8139: x_msg_data => x_msg_data);
8140:
8141: EXCEPTION
8142: WHEN OTHERS THEN
8143: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
8144: OKC_API.set_message
8145: (OKC_API.G_APP_NAME,
8146: G_UNEXPECTED_ERROR,
8147: G_SQLCODE_TOKEN,
8140:
8141: EXCEPTION
8142: WHEN OTHERS THEN
8143: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
8144: OKC_API.set_message
8145: (OKC_API.G_APP_NAME,
8146: G_UNEXPECTED_ERROR,
8147: G_SQLCODE_TOKEN,
8148: SQLCODE,
8141: EXCEPTION
8142: WHEN OTHERS THEN
8143: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
8144: OKC_API.set_message
8145: (OKC_API.G_APP_NAME,
8146: G_UNEXPECTED_ERROR,
8147: G_SQLCODE_TOKEN,
8148: SQLCODE,
8149: G_SQLERRM_TOKEN,
8201: --end npalepu
8202:
8203: EXCEPTION
8204: WHEN OTHERS THEN
8205: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
8206: OKC_API.set_message
8207: (OKC_API.G_APP_NAME,
8208: G_UNEXPECTED_ERROR,
8209: G_SQLCODE_TOKEN,
8202:
8203: EXCEPTION
8204: WHEN OTHERS THEN
8205: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
8206: OKC_API.set_message
8207: (OKC_API.G_APP_NAME,
8208: G_UNEXPECTED_ERROR,
8209: G_SQLCODE_TOKEN,
8210: SQLCODE,
8203: EXCEPTION
8204: WHEN OTHERS THEN
8205: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
8206: OKC_API.set_message
8207: (OKC_API.G_APP_NAME,
8208: G_UNEXPECTED_ERROR,
8209: G_SQLCODE_TOKEN,
8210: SQLCODE,
8211: G_SQLERRM_TOKEN,
8238: x_msg_data => x_msg_data);
8239:
8240: EXCEPTION
8241: WHEN OTHERS THEN
8242: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
8243: OKC_API.set_message
8244: (OKC_API.G_APP_NAME,
8245: G_UNEXPECTED_ERROR,
8246: G_SQLCODE_TOKEN,
8239:
8240: EXCEPTION
8241: WHEN OTHERS THEN
8242: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
8243: OKC_API.set_message
8244: (OKC_API.G_APP_NAME,
8245: G_UNEXPECTED_ERROR,
8246: G_SQLCODE_TOKEN,
8247: SQLCODE,
8240: EXCEPTION
8241: WHEN OTHERS THEN
8242: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
8243: OKC_API.set_message
8244: (OKC_API.G_APP_NAME,
8245: G_UNEXPECTED_ERROR,
8246: G_SQLCODE_TOKEN,
8247: SQLCODE,
8248: G_SQLERRM_TOKEN,
8277: x_msg_data => x_msg_data);
8278:
8279: EXCEPTION
8280: WHEN OTHERS THEN
8281: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
8282: OKC_API.set_message
8283: (OKC_API.G_APP_NAME,
8284: G_UNEXPECTED_ERROR,
8285: G_SQLCODE_TOKEN,
8278:
8279: EXCEPTION
8280: WHEN OTHERS THEN
8281: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
8282: OKC_API.set_message
8283: (OKC_API.G_APP_NAME,
8284: G_UNEXPECTED_ERROR,
8285: G_SQLCODE_TOKEN,
8286: SQLCODE,
8279: EXCEPTION
8280: WHEN OTHERS THEN
8281: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
8282: OKC_API.set_message
8283: (OKC_API.G_APP_NAME,
8284: G_UNEXPECTED_ERROR,
8285: G_SQLCODE_TOKEN,
8286: SQLCODE,
8287: G_SQLERRM_TOKEN,
8317: x_msg_data => x_msg_data);
8318:
8319: EXCEPTION
8320: WHEN OTHERS THEN
8321: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
8322: OKC_API.set_message
8323: (OKC_API.G_APP_NAME,
8324: G_UNEXPECTED_ERROR,
8325: G_SQLCODE_TOKEN,
8318:
8319: EXCEPTION
8320: WHEN OTHERS THEN
8321: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
8322: OKC_API.set_message
8323: (OKC_API.G_APP_NAME,
8324: G_UNEXPECTED_ERROR,
8325: G_SQLCODE_TOKEN,
8326: SQLCODE,
8319: EXCEPTION
8320: WHEN OTHERS THEN
8321: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
8322: OKC_API.set_message
8323: (OKC_API.G_APP_NAME,
8324: G_UNEXPECTED_ERROR,
8325: G_SQLCODE_TOKEN,
8326: SQLCODE,
8327: G_SQLERRM_TOKEN,
8353: x_msg_data => x_msg_data);
8354:
8355: EXCEPTION
8356: WHEN OTHERS THEN
8357: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
8358: OKC_API.set_message
8359: (OKC_API.G_APP_NAME,
8360: G_UNEXPECTED_ERROR,
8361: G_SQLCODE_TOKEN,
8354:
8355: EXCEPTION
8356: WHEN OTHERS THEN
8357: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
8358: OKC_API.set_message
8359: (OKC_API.G_APP_NAME,
8360: G_UNEXPECTED_ERROR,
8361: G_SQLCODE_TOKEN,
8362: SQLCODE,
8355: EXCEPTION
8356: WHEN OTHERS THEN
8357: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
8358: OKC_API.set_message
8359: (OKC_API.G_APP_NAME,
8360: G_UNEXPECTED_ERROR,
8361: G_SQLCODE_TOKEN,
8362: SQLCODE,
8363: G_SQLERRM_TOKEN,
8391: x_msg_data => x_msg_data);
8392:
8393: EXCEPTION
8394: WHEN OTHERS THEN
8395: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
8396: OKC_API.set_message
8397: (OKC_API.G_APP_NAME,
8398: G_UNEXPECTED_ERROR,
8399: G_SQLCODE_TOKEN,
8392:
8393: EXCEPTION
8394: WHEN OTHERS THEN
8395: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
8396: OKC_API.set_message
8397: (OKC_API.G_APP_NAME,
8398: G_UNEXPECTED_ERROR,
8399: G_SQLCODE_TOKEN,
8400: SQLCODE,
8393: EXCEPTION
8394: WHEN OTHERS THEN
8395: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
8396: OKC_API.set_message
8397: (OKC_API.G_APP_NAME,
8398: G_UNEXPECTED_ERROR,
8399: G_SQLCODE_TOKEN,
8400: SQLCODE,
8401: G_SQLERRM_TOKEN,
8511: END IF;
8512: EXCEPTION
8513: WHEN OTHERS THEN
8514: RETURN(FALSE);
8515: OKC_API.set_message
8516: (OKC_API.G_APP_NAME,
8517: G_UNEXPECTED_ERROR,
8518: G_SQLCODE_TOKEN,
8519: SQLCODE,
8512: EXCEPTION
8513: WHEN OTHERS THEN
8514: RETURN(FALSE);
8515: OKC_API.set_message
8516: (OKC_API.G_APP_NAME,
8517: G_UNEXPECTED_ERROR,
8518: G_SQLCODE_TOKEN,
8519: SQLCODE,
8520: G_SQLERRM_TOKEN,
9605:
9606: -- Make a save point, in case of error rollback
9607: DBMS_TRANSACTION.SAVEPOINT('REVALUE_PRICE');
9608:
9609: x_return_status := OKC_API.G_RET_STS_SUCCESS;
9610: /*
9611: SELECT Nvl(conversion_rate, 1)
9612: INTO l_old_conversion_rate
9613: FROM okc_k_headers_all_b
9646: x_return_status => x_return_status,
9647: x_msg_count => l_msg_count,
9648: x_msg_data => l_msg_data);
9649:
9650: IF x_return_status <> OKC_API.G_RET_STS_SUCCESS then
9651:
9652: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
9653:
9654: FND_LOG.string(FND_LOG.level_procedure,
9683: p_clev_rec => l_clev_rec_in,
9684: x_clev_rec => l_clev_rec_out);
9685:
9686:
9687: IF x_return_status <> OKC_API.G_RET_STS_SUCCESS then
9688:
9689: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
9690:
9691: FND_LOG.string(FND_LOG.level_procedure,
9720: X_RETURN_STATUS => x_RETURN_STATUS,
9721: X_MSG_COUNT => L_MSG_COUNT,
9722: X_MSG_DATA => L_MSG_DATA);
9723:
9724: IF x_return_status <> OKC_API.G_RET_STS_SUCCESS then
9725:
9726: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
9727:
9728: FND_LOG.string(FND_LOG.level_procedure,
9753: x_msg_data => l_msg_data,
9754: p_clev_rec => l_clev_rec_in,
9755: x_clev_rec => l_clev_rec_out);
9756:
9757: IF x_return_status <> OKC_API.G_RET_STS_SUCCESS then
9758:
9759: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
9760:
9761: FND_LOG.string(FND_LOG.level_procedure,
9785: p_init_msg_list => 'T',
9786: x_return_status => x_return_status,
9787: x_msg_count => l_msg_count,
9788: x_msg_data => l_msg_data,
9789: p_restricted_update => okc_api.g_false,
9790: p_chrv_rec => l_chrv_rec_in,
9791: x_chrv_rec => l_chrv_rec_out);
9792:
9793: IF x_return_status <> OKC_API.G_RET_STS_SUCCESS then
9789: p_restricted_update => okc_api.g_false,
9790: p_chrv_rec => l_chrv_rec_in,
9791: x_chrv_rec => l_chrv_rec_out);
9792:
9793: IF x_return_status <> OKC_API.G_RET_STS_SUCCESS then
9794:
9795: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
9796:
9797: FND_LOG.string(FND_LOG.level_procedure,