[Home] [Help]
3901: i NUMBER := 1;
3902: BEGIN
3903: FOR rev_rec IN rev_cur
3904: LOOP
3905: x_rev_tbl(i).id := OKC_API.G_MISS_NUM;
3906: x_rev_tbl(i).chr_id := rev_rec.chr_id;
3907: x_rev_tbl(i).account_class := rev_rec.account_class;
3908: x_rev_tbl(i).code_combination_id := rev_rec.code_combination_id;
3909: x_rev_tbl(i).PERCENT := rev_rec.PERCENT;
3906: x_rev_tbl(i).chr_id := rev_rec.chr_id;
3907: x_rev_tbl(i).account_class := rev_rec.account_class;
3908: x_rev_tbl(i).code_combination_id := rev_rec.code_combination_id;
3909: x_rev_tbl(i).PERCENT := rev_rec.PERCENT;
3910: x_rev_tbl(i).object_version_number := OKC_API.G_MISS_NUM;
3911: x_rev_tbl(i).created_by := OKC_API.G_MISS_NUM;
3912: x_rev_tbl(i).creation_date := OKC_API.G_MISS_DATE;
3913: x_rev_tbl(i).last_updated_by := OKC_API.G_MISS_NUM;
3914: x_rev_tbl(i).last_update_date := OKC_API.G_MISS_DATE;
3907: x_rev_tbl(i).account_class := rev_rec.account_class;
3908: x_rev_tbl(i).code_combination_id := rev_rec.code_combination_id;
3909: x_rev_tbl(i).PERCENT := rev_rec.PERCENT;
3910: x_rev_tbl(i).object_version_number := OKC_API.G_MISS_NUM;
3911: x_rev_tbl(i).created_by := OKC_API.G_MISS_NUM;
3912: x_rev_tbl(i).creation_date := OKC_API.G_MISS_DATE;
3913: x_rev_tbl(i).last_updated_by := OKC_API.G_MISS_NUM;
3914: x_rev_tbl(i).last_update_date := OKC_API.G_MISS_DATE;
3915: x_rev_tbl(i).last_update_login := OKC_API.G_MISS_NUM;
3908: x_rev_tbl(i).code_combination_id := rev_rec.code_combination_id;
3909: x_rev_tbl(i).PERCENT := rev_rec.PERCENT;
3910: x_rev_tbl(i).object_version_number := OKC_API.G_MISS_NUM;
3911: x_rev_tbl(i).created_by := OKC_API.G_MISS_NUM;
3912: x_rev_tbl(i).creation_date := OKC_API.G_MISS_DATE;
3913: x_rev_tbl(i).last_updated_by := OKC_API.G_MISS_NUM;
3914: x_rev_tbl(i).last_update_date := OKC_API.G_MISS_DATE;
3915: x_rev_tbl(i).last_update_login := OKC_API.G_MISS_NUM;
3916: i := i + 1;
3909: x_rev_tbl(i).PERCENT := rev_rec.PERCENT;
3910: x_rev_tbl(i).object_version_number := OKC_API.G_MISS_NUM;
3911: x_rev_tbl(i).created_by := OKC_API.G_MISS_NUM;
3912: x_rev_tbl(i).creation_date := OKC_API.G_MISS_DATE;
3913: x_rev_tbl(i).last_updated_by := OKC_API.G_MISS_NUM;
3914: x_rev_tbl(i).last_update_date := OKC_API.G_MISS_DATE;
3915: x_rev_tbl(i).last_update_login := OKC_API.G_MISS_NUM;
3916: i := i + 1;
3917: END LOOP;
3910: x_rev_tbl(i).object_version_number := OKC_API.G_MISS_NUM;
3911: x_rev_tbl(i).created_by := OKC_API.G_MISS_NUM;
3912: x_rev_tbl(i).creation_date := OKC_API.G_MISS_DATE;
3913: x_rev_tbl(i).last_updated_by := OKC_API.G_MISS_NUM;
3914: x_rev_tbl(i).last_update_date := OKC_API.G_MISS_DATE;
3915: x_rev_tbl(i).last_update_login := OKC_API.G_MISS_NUM;
3916: i := i + 1;
3917: END LOOP;
3918: END get_rev_distr;
3911: x_rev_tbl(i).created_by := OKC_API.G_MISS_NUM;
3912: x_rev_tbl(i).creation_date := OKC_API.G_MISS_DATE;
3913: x_rev_tbl(i).last_updated_by := OKC_API.G_MISS_NUM;
3914: x_rev_tbl(i).last_update_date := OKC_API.G_MISS_DATE;
3915: x_rev_tbl(i).last_update_login := OKC_API.G_MISS_NUM;
3916: i := i + 1;
3917: END LOOP;
3918: END get_rev_distr;
3919:
3957: i NUMBER := 1;
3958: BEGIN
3959: FOR scrv_rec IN scrv_cur
3960: LOOP
3961: x_scrv_tbl(i).id := OKC_API.G_MISS_NUM;
3962: x_scrv_tbl(i).PERCENT := scrv_rec.PERCENT;
3963: x_scrv_tbl(i).chr_id := scrv_rec.chr_id;
3964: x_scrv_tbl(i).ctc_id := scrv_rec.ctc_id;
3965: x_scrv_tbl(i).sales_credit_type_id1 := scrv_rec.sales_credit_type_id1;
3963: x_scrv_tbl(i).chr_id := scrv_rec.chr_id;
3964: x_scrv_tbl(i).ctc_id := scrv_rec.ctc_id;
3965: x_scrv_tbl(i).sales_credit_type_id1 := scrv_rec.sales_credit_type_id1;
3966: x_scrv_tbl(i).sales_credit_type_id2 := scrv_rec.sales_credit_type_id2;
3967: x_scrv_tbl(i).object_version_number := OKC_API.G_MISS_NUM;
3968: x_scrv_tbl(i).created_by := OKC_API.G_MISS_NUM;
3969: x_scrv_tbl(i).creation_date := OKC_API.G_MISS_DATE;
3970: x_scrv_tbl(i).last_updated_by := OKC_API.G_MISS_NUM;
3971: x_scrv_tbl(i).last_update_date := OKC_API.G_MISS_DATE;
3964: x_scrv_tbl(i).ctc_id := scrv_rec.ctc_id;
3965: x_scrv_tbl(i).sales_credit_type_id1 := scrv_rec.sales_credit_type_id1;
3966: x_scrv_tbl(i).sales_credit_type_id2 := scrv_rec.sales_credit_type_id2;
3967: x_scrv_tbl(i).object_version_number := OKC_API.G_MISS_NUM;
3968: x_scrv_tbl(i).created_by := OKC_API.G_MISS_NUM;
3969: x_scrv_tbl(i).creation_date := OKC_API.G_MISS_DATE;
3970: x_scrv_tbl(i).last_updated_by := OKC_API.G_MISS_NUM;
3971: x_scrv_tbl(i).last_update_date := OKC_API.G_MISS_DATE;
3972: i := i + 1;
3965: x_scrv_tbl(i).sales_credit_type_id1 := scrv_rec.sales_credit_type_id1;
3966: x_scrv_tbl(i).sales_credit_type_id2 := scrv_rec.sales_credit_type_id2;
3967: x_scrv_tbl(i).object_version_number := OKC_API.G_MISS_NUM;
3968: x_scrv_tbl(i).created_by := OKC_API.G_MISS_NUM;
3969: x_scrv_tbl(i).creation_date := OKC_API.G_MISS_DATE;
3970: x_scrv_tbl(i).last_updated_by := OKC_API.G_MISS_NUM;
3971: x_scrv_tbl(i).last_update_date := OKC_API.G_MISS_DATE;
3972: i := i + 1;
3973: END LOOP;
3966: x_scrv_tbl(i).sales_credit_type_id2 := scrv_rec.sales_credit_type_id2;
3967: x_scrv_tbl(i).object_version_number := OKC_API.G_MISS_NUM;
3968: x_scrv_tbl(i).created_by := OKC_API.G_MISS_NUM;
3969: x_scrv_tbl(i).creation_date := OKC_API.G_MISS_DATE;
3970: x_scrv_tbl(i).last_updated_by := OKC_API.G_MISS_NUM;
3971: x_scrv_tbl(i).last_update_date := OKC_API.G_MISS_DATE;
3972: i := i + 1;
3973: END LOOP;
3974: END get_sales_cred;
3967: x_scrv_tbl(i).object_version_number := OKC_API.G_MISS_NUM;
3968: x_scrv_tbl(i).created_by := OKC_API.G_MISS_NUM;
3969: x_scrv_tbl(i).creation_date := OKC_API.G_MISS_DATE;
3970: x_scrv_tbl(i).last_updated_by := OKC_API.G_MISS_NUM;
3971: x_scrv_tbl(i).last_update_date := OKC_API.G_MISS_DATE;
3972: i := i + 1;
3973: END LOOP;
3974: END get_sales_cred;
3975:
4051: OPEN subline_count;
4052: FETCH subline_count INTO l_count;
4053: CLOSE subline_count;
4054: IF l_count = 0 THEN
4055: x_status := OKC_API.G_RET_STS_SUCCESS;
4056: RETURN;
4057: END IF;
4058: i := 1;
4059: FOR subline IN subline_cur
4252: G_RAIL_REC.AMOUNT := p_amt;
4253: OKS_TAX_UTIL_PVT.Get_Tax
4254: (
4255: p_api_version => 1.0,
4256: p_init_msg_list => OKC_API.G_TRUE,
4257: p_chr_id => p_chr_id,
4258: p_cle_id => p_cle_id,
4259: px_rail_rec => G_RAIL_REC,
4260: x_msg_count => l_msg_count,
4592: --BUG#4066428 hkamdar 01/21/05
4593: x_return_status := l_return_status;
4594: --End BUG#4066428
4595:
4596: IF l_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
4597: x_return_status := l_return_status;
4598: RAISE G_ERROR;
4599: END IF;
4600: l_klnv_tbl_in(1).tax_amount := l_tax_value;
4624:
4625: PROCEDURE update_header_amount(p_cle_id IN NUMBER,
4626: x_status OUT NOCOPY VARCHAR2) IS
4627: l_api_version CONSTANT NUMBER := 1.0;
4628: l_init_msg_list VARCHAR2(2000) := OKC_API.G_FALSE;
4629: l_return_status VARCHAR2(1);
4630: l_msg_count NUMBER;
4631: l_msg_data VARCHAR2(2000);
4632: l_msg_index_out NUMBER;
4640: AND lse_id IN (7, 8, 9, 10, 11, 35, 13, 18, 25)
4641: AND date_cancelled IS NULL; --ignore cancelled sublines
4642:
4643: BEGIN
4644: x_status := OKC_API.G_RET_STS_SUCCESS;
4645: IF p_cle_id IS NOT NULL THEN
4646: FOR cur_total_amount IN total_amount(g_chr_id)
4647: LOOP
4648: l_chrv_tbl_in(1).id := g_chr_id;
4804:
4805: BEGIN
4806: l_target_tbl := p_target_tbl;
4807: IF l_target_tbl.COUNT = 0 THEN
4808: x_return_status := OKC_API.G_RET_STS_SUCCESS;
4809: RETURN;
4810: END IF;
4811: OPEN header_cur;
4812: FETCH header_cur INTO g_chr_id, l_start_date, l_end_date, l_object_version_number, l_lse_id ;
4827: , p_jtot_object1_code => item_rec.jtot_object1_code
4828: , x_return_status => l_return_status
4829: , x_oie_id => l_oie_id);
4830: --errorout('After CreateOperationInstance-'||l_return_status);
4831: IF l_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
4832: x_return_status := l_return_status;
4833: RAISE G_ERROR;
4834: END IF;
4835:
4876: -- to decide whether to allow change of status of sublines
4877: -- of the topline during update service
4878:
4879: --errorout('After copy_contract_lines-'||l_return_status);
4880: IF l_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
4881: x_return_status := l_return_status;
4882: RAISE G_ERROR;
4883: ELSE
4884: OKS_SETUP_UTIL_PUB.Okscopy
4925: l_published_line_ids_tbl_i := l_published_line_ids_tbl.FIRST;
4926: l_target_tbl(idx).cle_id := l_published_line_ids_tbl(l_published_line_ids_tbl_i).new_line_id;
4927: --end Bug 4747648
4928:
4929: IF l_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
4930: x_return_status := l_return_status;
4931: RAISE G_ERROR;
4932: END IF;
4933:
4937: UPDATE okc_k_lines_b SET line_number = l_top_line_number
4938: WHERE id = l_target_tbl(idx).cle_id;
4939: --Fix for bug#2221910 end.
4940:
4941: IF l_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
4942: x_return_status := l_return_status;
4943: RAISE G_ERROR;
4944: END IF;
4945:
4948: /************* Commented out because this is being taken care of by OKSCOPY
4949:
4950: IF l_rev_found THEN
4951: create_rev_distr(l_target_tbl(idx).cle_id, l_rev_tbl, l_return_status);
4952: IF l_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
4953: x_return_status := l_return_status;
4954: RAISE G_ERROR;
4955: END IF;
4956: END IF;
4955: END IF;
4956: END IF;
4957: IF l_scr_found THEN
4958: create_sales_cred(l_target_tbl(idx).cle_id, l_salescr_tbl, l_return_status);
4959: IF l_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
4960: x_return_status := l_return_status;
4961: RAISE G_ERROR;
4962: END IF;
4963: END IF; **********/
4971: idx := l_target_tbl.FIRST;
4972: LOOP
4973: update_line_item(l_target_tbl(idx).cle_id, l_target_tbl(idx).item_id, l_return_status);
4974: --errorout('After update_line_item-'||l_return_status);
4975: IF l_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
4976: x_return_status := l_return_status;
4977: RAISE G_ERROR;
4978: END IF;
4979:
4996:
4997: --LLC
4998:
4999: --errorout('After prorate_amount-'||l_return_status);
5000: IF l_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
5001: x_return_status := l_return_status;
5002: RAISE G_ERROR;
5003: END IF;
5004:
5003: END IF;
5004:
5005: refresh_bill_sch(l_target_tbl(idx).cle_id, l_return_status);
5006: --errorout('After refresh_bill_sch-'||l_return_status);
5007: IF l_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
5008: x_return_status := l_return_status;
5009: RAISE G_ERROR;
5010: END IF;
5011: END IF;
5044: , x_msg_count => l_msg_count
5045: , x_msg_data => l_msg_data
5046: , p_line_id => l_cov_id);
5047: --errorout('After Undo_Line-'||l_return_status);
5048: IF l_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
5049: x_return_status := l_return_status;
5050: RAISE G_ERROR;
5051: END IF;
5052: END IF;
5068: --errorout('After update_renewal_info-'||l_return_status);
5069: END IF;
5070: END IF;
5071: --
5072: IF l_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
5073: x_return_status := l_return_status;
5074: RAISE G_ERROR;
5075: END IF;
5076:
5094: ,x_msg_count => l_msg_count
5095: ,x_msg_data => l_msg_data
5096: ,x_actual_coverage_id => l_cov_id);
5097: --errorout('After create_actual_coverage-'||l_return_status);
5098: IF l_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
5099: x_return_status := l_return_status;
5100: RAISE G_ERROR;
5101: END IF;
5102: **/
5119: , p_start_date => l_start_date
5120: , p_end_date => l_end_date
5121: , x_return_status => l_return_status);
5122: --errorout('After UpdateIRTRule_SubLine-'||l_return_status);
5123: IF l_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
5124: x_return_status := l_return_status;
5125: RAISE G_ERROR;
5126: END IF;
5127: --ADDED FOR Bug# 2364507
5139: , x_total => l_total);
5140:
5141: --errorout('After UpdateIRTRule-'||l_return_status);
5142:
5143: IF l_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
5144: x_return_status := l_return_status;
5145: RAISE G_ERROR;
5146: END IF;
5147:
5224: , p_oie_id => l_oie_id
5225: , x_return_status => l_return_status);
5226:
5227: --errorout('After CreateOperationlines-'||l_return_status);
5228: IF l_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
5229: x_return_status := l_return_status;
5230: RAISE G_ERROR;
5231: END IF;
5232: l_total_pct := l_total_pct + l_target_tbl(idx).percentage;
5235: END LOOP;
5236: IF l_total_pct <> 100 THEN
5237: update_header_amount(p_source_rec.cle_id, l_return_status);
5238: --errorout('After update_header-'||l_return_status);
5239: IF l_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
5240: x_return_status := l_return_status;
5241: RAISE G_ERROR;
5242: END IF;
5243: END IF;
5240: x_return_status := l_return_status;
5241: RAISE G_ERROR;
5242: END IF;
5243: END IF;
5244: x_return_status := OKC_API.G_RET_STS_SUCCESS;
5245: EXCEPTION
5246: WHEN G_ERROR THEN
5247: NULL;
5248: WHEN OTHERS THEN
5245: EXCEPTION
5246: WHEN G_ERROR THEN
5247: NULL;
5248: WHEN OTHERS THEN
5249: OKC_API.set_message(OKC_API.G_APP_NAME,
5250: 'OKS_UNEXP_ERROR',
5251: 'SQLcode',
5252: SQLCODE,
5253: 'SQLerrm',
5252: SQLCODE,
5253: 'SQLerrm',
5254: SQLERRM);
5255: -- notify caller of an UNEXPECTED error
5256: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
5257: END CopyService;
5258:
5259:
5260: -- Begin modifications for new HZ_CONTACT_POINTS_V2PUB for TCA uptake, aiyengar 11/20/02
5344: EXCEPTION
5345: WHEN G_ERROR THEN
5346: NULL;
5347: WHEN OTHERS THEN
5348: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
5349: OKC_API.set_message
5350: (OKC_API.G_APP_NAME,
5351: G_UNEXPECTED_ERROR,
5352: G_SQLCODE_TOKEN,
5345: WHEN G_ERROR THEN
5346: NULL;
5347: WHEN OTHERS THEN
5348: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
5349: OKC_API.set_message
5350: (OKC_API.G_APP_NAME,
5351: G_UNEXPECTED_ERROR,
5352: G_SQLCODE_TOKEN,
5353: SQLCODE,
5346: NULL;
5347: WHEN OTHERS THEN
5348: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
5349: OKC_API.set_message
5350: (OKC_API.G_APP_NAME,
5351: G_UNEXPECTED_ERROR,
5352: G_SQLCODE_TOKEN,
5353: SQLCODE,
5354: G_SQLERRM_TOKEN,
5427: EXCEPTION
5428: WHEN G_ERROR THEN
5429: NULL;
5430: WHEN OTHERS THEN
5431: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
5432: OKC_API.set_message
5433: (OKC_API.G_APP_NAME,
5434: G_UNEXPECTED_ERROR,
5435: G_SQLCODE_TOKEN,
5428: WHEN G_ERROR THEN
5429: NULL;
5430: WHEN OTHERS THEN
5431: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
5432: OKC_API.set_message
5433: (OKC_API.G_APP_NAME,
5434: G_UNEXPECTED_ERROR,
5435: G_SQLCODE_TOKEN,
5436: SQLCODE,
5429: NULL;
5430: WHEN OTHERS THEN
5431: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
5432: OKC_API.set_message
5433: (OKC_API.G_APP_NAME,
5434: G_UNEXPECTED_ERROR,
5435: G_SQLCODE_TOKEN,
5436: SQLCODE,
5437: G_SQLERRM_TOKEN,
5472: FETCH c_clopn_split_csr INTO l_split_id;
5473: CLOSE c_clopn_split_csr;
5474: IF l_split_id IS NULL THEN
5475: x_return_status := G_RET_STS_ERROR;
5476: OKC_API.set_message(G_APP_NAME_OKS, 'OKS_CLS_OPN_NOT_FOUND');
5477: RAISE G_ERROR;
5478: END IF;
5479:
5480: l_oiev_tbl(1).cop_id := l_split_id;
5503: EXCEPTION
5504: WHEN G_ERROR THEN
5505: NULL;
5506: WHEN OTHERS THEN
5507: OKC_API.set_message(G_APP_NAME_OKS,
5508: 'OKS_UNEXP_ERROR',
5509: 'SQLcode',
5510: SQLCODE,
5511: 'SQLerrm',
5510: SQLCODE,
5511: 'SQLerrm',
5512: SQLERRM);
5513: -- notify caller of an UNEXPECTED error
5514: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
5515: END CreateOperationInstance;
5516:
5517: PROCEDURE CreateOperationLines(p_chr_id IN NUMBER
5518: , p_object_line_id IN NUMBER
5559: EXCEPTION
5560: WHEN G_ERROR THEN
5561: NULL;
5562: WHEN OTHERS THEN
5563: OKC_API.set_message(G_APP_NAME_OKS,
5564: 'OKS_UNEXP_ERROR',
5565: 'SQLcode',
5566: SQLCODE,
5567: 'SQLerrm',
5566: SQLCODE,
5567: 'SQLerrm',
5568: SQLERRM);
5569: -- notify caller of an UNEXPECTED error
5570: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
5571: END CreateOperationLines;
5572:
5573:
5574: PROCEDURE CREATE_CII_FOR_SUBSCRIPTION
6012:
6013: EXCEPTION
6014: WHEN G_ERROR THEN
6015: x_return_status := G_RET_STS_ERROR;
6016: OKC_API.SET_MESSAGE(p_app_name => G_APP_NAME_OKS,
6017: p_msg_name => 'OKS_NULL_CUSTACCT');
6018: END;
6019:
6020:
6178:
6179: EXCEPTION
6180: WHEN OTHERS THEN
6181: x_return_status := G_UNEXPECTED_ERROR;
6182: OKC_API.set_message(G_APP_NAME_OKS,
6183: 'OKS_UNEXP_ERROR',
6184: 'SQLcode',
6185: SQLCODE,
6186: 'SQLerrm',
6277: END IF; --TopLine/Subline
6278: EXCEPTION
6279: WHEN G_DUPLICATE_RECORD THEN
6280: x_return_status := G_RET_STS_ERROR;
6281: OKC_API.SET_MESSAGE(p_app_name => G_APP_NAME_OKS,
6282: p_msg_name => 'OKS_DUPLICATE_MODIFIER');
6283: WHEN OTHERS THEN
6284: x_return_status := G_UNEXPECTED_ERROR;
6285: OKC_API.set_message(G_APP_NAME_OKS,
6281: OKC_API.SET_MESSAGE(p_app_name => G_APP_NAME_OKS,
6282: p_msg_name => 'OKS_DUPLICATE_MODIFIER');
6283: WHEN OTHERS THEN
6284: x_return_status := G_UNEXPECTED_ERROR;
6285: OKC_API.set_message(G_APP_NAME_OKS,
6286: 'OKS_UNEXP_ERROR',
6287: 'SQLcode',
6288: SQLCODE,
6289: 'SQLerrm',
6300: IS
6301: l_clev_rec OKC_CONTRACT_PUB.clev_rec_type;
6302: x_clev_rec OKC_CONTRACT_PUB.clev_rec_type;
6303: l_api_version NUMBER := 1.0;
6304: l_init_msg_list VARCHAR2(2000) := OKC_API.G_FALSE;
6305: l_return_status VARCHAR2(1);
6306: l_msg_count NUMBER;
6307: l_msg_data VARCHAR2(2000);
6308: l_price_negotiated NUMBER;
6356: p_clev_rec => l_clev_rec,
6357: x_clev_rec => x_clev_rec
6358: );
6359:
6360: IF NVL(x_return_status, '!') <> OKC_API.G_RET_STS_SUCCESS THEN
6361: RAISE G_ERROR;
6362: END IF;
6363: -- Update Lines Level Tax Amount --
6364: OPEN Get_oks_Lines_details(p_line_id);
6388: p_validate_yn => 'N'
6389: );
6390:
6391: x_return_status := l_return_status;
6392: IF NVL(l_return_status, '!') <> OKC_API.G_RET_STS_SUCCESS THEN
6393: RAISE G_ERROR;
6394: END IF;
6395:
6396: EXCEPTION
6432: );
6433:
6434: ----------errorout_ad('OKC_CONTRACT_PUB.Update_Contract_Line status = ' || x_return_status);
6435:
6436: IF NVL(x_return_status, '!') <> OKC_API.G_RET_STS_SUCCESS THEN
6437: RAISE G_ERROR;
6438: END IF;
6439:
6440: EXCEPTION
6444:
6445: PROCEDURE UPDATE_CONTRACT_AMOUNT(p_header_id IN NUMBER,
6446: x_return_status OUT NOCOPY VARCHAR2) IS
6447: l_api_version CONSTANT NUMBER := 1.0;
6448: l_init_msg_list VARCHAR2(2000) := OKC_API.G_FALSE;
6449: l_return_status VARCHAR2(1);
6450: l_msg_count NUMBER;
6451: l_msg_data VARCHAR2(2000);
6452: l_msg_index_out NUMBER;
6484:
6485: l_get_hdr_details get_header_details%ROWTYPE;
6486:
6487: BEGIN
6488: x_return_status := OKC_API.G_RET_STS_SUCCESS;
6489: IF p_header_id IS NOT NULL THEN
6490: l_chrv_tbl_in.DELETE;
6491: FOR cur_total_amount IN total_amount
6492: LOOP
6501: p_chrv_tbl => l_chrv_tbl_in,
6502: x_chrv_tbl => l_chrv_tbl_out
6503: );
6504: x_return_status := l_return_status;
6505: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6506: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6507: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
6508: RAISE OKC_API.G_EXCEPTION_ERROR;
6509: END IF;
6502: x_chrv_tbl => l_chrv_tbl_out
6503: );
6504: x_return_status := l_return_status;
6505: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6506: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6507: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
6508: RAISE OKC_API.G_EXCEPTION_ERROR;
6509: END IF;
6510: END LOOP;
6503: );
6504: x_return_status := l_return_status;
6505: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6506: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6507: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
6508: RAISE OKC_API.G_EXCEPTION_ERROR;
6509: END IF;
6510: END LOOP;
6511:
6504: x_return_status := l_return_status;
6505: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6506: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6507: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
6508: RAISE OKC_API.G_EXCEPTION_ERROR;
6509: END IF;
6510: END LOOP;
6511:
6512: -- Updating Header level tax Amount --
6533: x_khrv_tbl => l_khrv_tbl_type_out,
6534: p_validate_yn => 'N');
6535:
6536: x_return_status := l_return_status;
6537: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6538: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6539: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
6540: RAISE OKC_API.G_EXCEPTION_ERROR;
6541: END IF;
6534: p_validate_yn => 'N');
6535:
6536: x_return_status := l_return_status;
6537: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6538: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6539: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
6540: RAISE OKC_API.G_EXCEPTION_ERROR;
6541: END IF;
6542: -- Updating Header level tax Amount --
6535:
6536: x_return_status := l_return_status;
6537: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6538: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6539: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
6540: RAISE OKC_API.G_EXCEPTION_ERROR;
6541: END IF;
6542: -- Updating Header level tax Amount --
6543:
6536: x_return_status := l_return_status;
6537: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6538: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6539: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
6540: RAISE OKC_API.G_EXCEPTION_ERROR;
6541: END IF;
6542: -- Updating Header level tax Amount --
6543:
6544: END IF;
6680: l_active_line_count NUMBER;
6681: l_new_cascade_service_price NUMBER;
6682: l_detail_rec OKS_QP_PKG.input_details;
6683: l_api_Version NUMBER := 1;
6684: l_init_msg_list VARCHAR2(2000) := OKC_API.G_FALSE;
6685: l_return_status VARCHAR2(1);
6686: l_msg_count NUMBER;
6687: l_msg_data VARCHAR2(2000);
6688: l_price_details OKS_QP_PKG.price_details;
6825: where id = clvl_rec.id; */
6826:
6827: ----------errorout_ad(' price nego after update '||cp_price);
6828:
6829: IF Nvl(x_return_status, 'S') <> OKC_API.G_RET_STS_SUCCESS
6830: THEN
6831: -- --------errorout_ad (' error in updation of coverage level ');
6832: RAISE G_ERROR;
6833: END IF;
6846: -- --------errorout_ad(' before calculating tax ');
6847: G_RAIL_REC.amount := l_new_amount ;
6848:
6849: OKS_TAX_UTIL_PVT.Get_Tax (p_api_version => 1.0,
6850: p_init_msg_list => OKC_API.G_TRUE,
6851: p_chr_id => clvl_rec.dnz_chr_id,
6852: p_cle_id => p_contract_line_id,
6853: px_rail_rec => G_RAIL_REC,
6854: x_msg_count => x_msg_count,
6855: x_msg_data => x_msg_data,
6856: x_return_status => l_return_status );
6857:
6858: -- Bug 5228352 --
6859: IF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
6860: RAISE OKC_API.G_EXCEPTION_ERROR;
6861: ELSIF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
6862: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6863: END IF;
6856: x_return_status => l_return_status );
6857:
6858: -- Bug 5228352 --
6859: IF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
6860: RAISE OKC_API.G_EXCEPTION_ERROR;
6861: ELSIF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
6862: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6863: END IF;
6864: -- Bug 5228352 --
6857:
6858: -- Bug 5228352 --
6859: IF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
6860: RAISE OKC_API.G_EXCEPTION_ERROR;
6861: ELSIF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
6862: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6863: END IF;
6864: -- Bug 5228352 --
6865:
6858: -- Bug 5228352 --
6859: IF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
6860: RAISE OKC_API.G_EXCEPTION_ERROR;
6861: ELSIF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
6862: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6863: END IF;
6864: -- Bug 5228352 --
6865:
6866: -- --------errorout_ad(' error in calc tax '||l_return_status );
6901: p_klnv_tbl => l_klnv_tbl,
6902: x_klnv_tbl => lx_klnv_tbl,
6903: p_validate_yn => l_validate_yn);
6904: -- Bug 5228352 --
6905: IF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
6906: RAISE OKC_API.G_EXCEPTION_ERROR;
6907: ELSIF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
6908: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6909: END IF;
6902: x_klnv_tbl => lx_klnv_tbl,
6903: p_validate_yn => l_validate_yn);
6904: -- Bug 5228352 --
6905: IF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
6906: RAISE OKC_API.G_EXCEPTION_ERROR;
6907: ELSIF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
6908: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6909: END IF;
6910: -- Bug 5228352 --
6903: p_validate_yn => l_validate_yn);
6904: -- Bug 5228352 --
6905: IF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
6906: RAISE OKC_API.G_EXCEPTION_ERROR;
6907: ELSIF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
6908: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6909: END IF;
6910: -- Bug 5228352 --
6911:
6904: -- Bug 5228352 --
6905: IF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
6906: RAISE OKC_API.G_EXCEPTION_ERROR;
6907: ELSIF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
6908: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6909: END IF;
6910: -- Bug 5228352 --
6911:
6912:
6944: l_return_status,
6945: l_msg_count,
6946: l_msg_data );
6947:
6948: IF l_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
6949:
6950: RAISE G_ERROR;
6951: END IF;
6952:
6983: x_return_status => x_return_status,
6984: x_msg_count => x_msg_count,
6985: x_msg_data => x_msg_data);
6986:
6987: IF Nvl(x_return_status, 'S') <> OKC_API.G_RET_STS_SUCCESS THEN
6988: RAISE G_ERROR;
6989: END IF;
6990:
6991:
7002: -- --------errorout_ad(' before calculating tax ');
7003: G_RAIL_REC.amount := l_clvl_rec.price_negotiated + NVL(l_diff_amt, 0) ;
7004:
7005: OKS_TAX_UTIL_PVT.Get_Tax (p_api_version => 1.0,
7006: p_init_msg_list => OKC_API.G_TRUE,
7007: p_chr_id => get_header_id,
7008: p_cle_id => l_old_id,
7009: px_rail_rec => G_RAIL_REC,
7010: x_msg_count => x_msg_count,
7011: x_msg_data => x_msg_data,
7012: x_return_status => l_return_status );
7013:
7014: -- Bug 5228352 --
7015: IF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
7016: RAISE OKC_API.G_EXCEPTION_ERROR;
7017: ELSIF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
7018: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7019: END IF;
7012: x_return_status => l_return_status );
7013:
7014: -- Bug 5228352 --
7015: IF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
7016: RAISE OKC_API.G_EXCEPTION_ERROR;
7017: ELSIF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
7018: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7019: END IF;
7020: -- Bug 5228352 --
7013:
7014: -- Bug 5228352 --
7015: IF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
7016: RAISE OKC_API.G_EXCEPTION_ERROR;
7017: ELSIF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
7018: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7019: END IF;
7020: -- Bug 5228352 --
7021:
7014: -- Bug 5228352 --
7015: IF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
7016: RAISE OKC_API.G_EXCEPTION_ERROR;
7017: ELSIF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
7018: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7019: END IF;
7020: -- Bug 5228352 --
7021:
7022: -- --------errorout_ad(' error in calc tax '||l_return_status );
7070: p_klnv_tbl => l_klnv_tbl,
7071: x_klnv_tbl => lx_klnv_tbl,
7072: p_validate_yn => l_validate_yn);
7073: -- Bug 5228352 --
7074: IF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
7075: RAISE OKC_API.G_EXCEPTION_ERROR;
7076: ELSIF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
7077: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7078: END IF;
7071: x_klnv_tbl => lx_klnv_tbl,
7072: p_validate_yn => l_validate_yn);
7073: -- Bug 5228352 --
7074: IF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
7075: RAISE OKC_API.G_EXCEPTION_ERROR;
7076: ELSIF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
7077: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7078: END IF;
7079: -- Bug 5228352 --
7072: p_validate_yn => l_validate_yn);
7073: -- Bug 5228352 --
7074: IF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
7075: RAISE OKC_API.G_EXCEPTION_ERROR;
7076: ELSIF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
7077: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7078: END IF;
7079: -- Bug 5228352 --
7080:
7073: -- Bug 5228352 --
7074: IF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
7075: RAISE OKC_API.G_EXCEPTION_ERROR;
7076: ELSIF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
7077: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
7078: END IF;
7079: -- Bug 5228352 --
7080:
7081:
7120: l_return_status,
7121: l_msg_count,
7122: l_msg_data );
7123:
7124: IF l_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
7125: RAISE G_ERROR;
7126: END IF;
7127: END IF;
7128: END IF; /** ENDIF CALL TO QP INT */
7137: x_msg_count,
7138: x_msg_data );
7139:
7140:
7141: IF x_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
7142: RAISE G_ERROR;
7143: END IF;
7144:
7145:
7147: UPDATE_CONTRACT_AMOUNT(p_header_id => Get_Header_Id,
7148: x_return_status => x_return_status);
7149:
7150:
7151: IF x_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
7152: RAISE G_ERROR;
7153: END IF;
7154:
7155:
7159:
7160: NULL;
7161: WHEN OTHERS THEN
7162:
7163: OKC_API.SET_MESSAGE(p_app_name => G_APP_NAME_OKC,
7164: p_msg_name => G_UNEXPECTED_ERROR,
7165: p_token1 => G_SQLCODE_TOKEN,
7166: p_token1_value => SQLCODE,
7167: p_token2 => G_SQLERRM_TOKEN,
7241: x_msg_data => l_msg_data
7242: );
7243:
7244: --refresh schedule
7245: IF l_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
7246: RAISE G_ERROR;
7247: END IF;
7248: oks_bill_sch.Create_Bill_Sch_CP
7249: (
7253: x_return_status => l_return_status,
7254: x_msg_count => l_msg_count,
7255: x_msg_data => l_msg_data);
7256:
7257: IF l_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
7258: RAISE G_ERROR;
7259: END IF;
7260: END IF;
7261: END LOOP;
7267:
7268: NULL;
7269: WHEN OTHERS THEN
7270:
7271: OKC_API.SET_MESSAGE(p_app_name => G_APP_NAME_OKC,
7272: p_msg_name => G_UNEXPECTED_ERROR,
7273: p_token1 => G_SQLCODE_TOKEN,
7274: p_token1_value => SQLCODE,
7275: p_token2 => G_SQLERRM_TOKEN,
7292: x_msg_data OUT NOCOPY VARCHAR2
7293: )IS
7294: l_person_rec HZ_PARTY_V2PUB.person_rec_type ;
7295: l_init_msg_list CONSTANT VARCHAR2(1) := 'F';
7296: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
7297:
7298: BEGIN
7299: l_person_rec.person_pre_name_adjunct := p_person_tbl(1).person_pre_name_adjunct;
7300: l_person_rec.person_first_name := p_person_tbl(1).person_first_name;
7315: x_msg_data => x_msg_data);
7316:
7317: EXCEPTION
7318: WHEN OTHERS THEN
7319: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
7320: OKC_API.set_message
7321: (OKC_API.G_APP_NAME,
7322: G_UNEXPECTED_ERROR,
7323: G_SQLCODE_TOKEN,
7316:
7317: EXCEPTION
7318: WHEN OTHERS THEN
7319: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
7320: OKC_API.set_message
7321: (OKC_API.G_APP_NAME,
7322: G_UNEXPECTED_ERROR,
7323: G_SQLCODE_TOKEN,
7324: SQLCODE,
7317: EXCEPTION
7318: WHEN OTHERS THEN
7319: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
7320: OKC_API.set_message
7321: (OKC_API.G_APP_NAME,
7322: G_UNEXPECTED_ERROR,
7323: G_SQLCODE_TOKEN,
7324: SQLCODE,
7325: G_SQLERRM_TOKEN,
7359: x_msg_count => x_msg_count,
7360: x_msg_data => x_msg_data);
7361: EXCEPTION
7362: WHEN OTHERS THEN
7363: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
7364: OKC_API.set_message
7365: (OKC_API.G_APP_NAME,
7366: G_UNEXPECTED_ERROR,
7367: G_SQLCODE_TOKEN,
7360: x_msg_data => x_msg_data);
7361: EXCEPTION
7362: WHEN OTHERS THEN
7363: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
7364: OKC_API.set_message
7365: (OKC_API.G_APP_NAME,
7366: G_UNEXPECTED_ERROR,
7367: G_SQLCODE_TOKEN,
7368: SQLCODE,
7361: EXCEPTION
7362: WHEN OTHERS THEN
7363: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
7364: OKC_API.set_message
7365: (OKC_API.G_APP_NAME,
7366: G_UNEXPECTED_ERROR,
7367: G_SQLCODE_TOKEN,
7368: SQLCODE,
7369: G_SQLERRM_TOKEN,
7415: x_msg_data => x_msg_data);
7416:
7417: EXCEPTION
7418: WHEN OTHERS THEN
7419: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
7420: OKC_API.set_message
7421: (OKC_API.G_APP_NAME,
7422: G_UNEXPECTED_ERROR,
7423: G_SQLCODE_TOKEN,
7416:
7417: EXCEPTION
7418: WHEN OTHERS THEN
7419: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
7420: OKC_API.set_message
7421: (OKC_API.G_APP_NAME,
7422: G_UNEXPECTED_ERROR,
7423: G_SQLCODE_TOKEN,
7424: SQLCODE,
7417: EXCEPTION
7418: WHEN OTHERS THEN
7419: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
7420: OKC_API.set_message
7421: (OKC_API.G_APP_NAME,
7422: G_UNEXPECTED_ERROR,
7423: G_SQLCODE_TOKEN,
7424: SQLCODE,
7425: G_SQLERRM_TOKEN,
7475: x_msg_data => x_msg_data);
7476:
7477: EXCEPTION
7478: WHEN OTHERS THEN
7479: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
7480: OKC_API.set_message
7481: (OKC_API.G_APP_NAME,
7482: G_UNEXPECTED_ERROR,
7483: G_SQLCODE_TOKEN,
7476:
7477: EXCEPTION
7478: WHEN OTHERS THEN
7479: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
7480: OKC_API.set_message
7481: (OKC_API.G_APP_NAME,
7482: G_UNEXPECTED_ERROR,
7483: G_SQLCODE_TOKEN,
7484: SQLCODE,
7477: EXCEPTION
7478: WHEN OTHERS THEN
7479: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
7480: OKC_API.set_message
7481: (OKC_API.G_APP_NAME,
7482: G_UNEXPECTED_ERROR,
7483: G_SQLCODE_TOKEN,
7484: SQLCODE,
7485: G_SQLERRM_TOKEN,
7537: --end npalepu
7538:
7539: EXCEPTION
7540: WHEN OTHERS THEN
7541: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
7542: OKC_API.set_message
7543: (OKC_API.G_APP_NAME,
7544: G_UNEXPECTED_ERROR,
7545: G_SQLCODE_TOKEN,
7538:
7539: EXCEPTION
7540: WHEN OTHERS THEN
7541: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
7542: OKC_API.set_message
7543: (OKC_API.G_APP_NAME,
7544: G_UNEXPECTED_ERROR,
7545: G_SQLCODE_TOKEN,
7546: SQLCODE,
7539: EXCEPTION
7540: WHEN OTHERS THEN
7541: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
7542: OKC_API.set_message
7543: (OKC_API.G_APP_NAME,
7544: G_UNEXPECTED_ERROR,
7545: G_SQLCODE_TOKEN,
7546: SQLCODE,
7547: G_SQLERRM_TOKEN,
7574: x_msg_data => x_msg_data);
7575:
7576: EXCEPTION
7577: WHEN OTHERS THEN
7578: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
7579: OKC_API.set_message
7580: (OKC_API.G_APP_NAME,
7581: G_UNEXPECTED_ERROR,
7582: G_SQLCODE_TOKEN,
7575:
7576: EXCEPTION
7577: WHEN OTHERS THEN
7578: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
7579: OKC_API.set_message
7580: (OKC_API.G_APP_NAME,
7581: G_UNEXPECTED_ERROR,
7582: G_SQLCODE_TOKEN,
7583: SQLCODE,
7576: EXCEPTION
7577: WHEN OTHERS THEN
7578: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
7579: OKC_API.set_message
7580: (OKC_API.G_APP_NAME,
7581: G_UNEXPECTED_ERROR,
7582: G_SQLCODE_TOKEN,
7583: SQLCODE,
7584: G_SQLERRM_TOKEN,
7613: x_msg_data => x_msg_data);
7614:
7615: EXCEPTION
7616: WHEN OTHERS THEN
7617: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
7618: OKC_API.set_message
7619: (OKC_API.G_APP_NAME,
7620: G_UNEXPECTED_ERROR,
7621: G_SQLCODE_TOKEN,
7614:
7615: EXCEPTION
7616: WHEN OTHERS THEN
7617: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
7618: OKC_API.set_message
7619: (OKC_API.G_APP_NAME,
7620: G_UNEXPECTED_ERROR,
7621: G_SQLCODE_TOKEN,
7622: SQLCODE,
7615: EXCEPTION
7616: WHEN OTHERS THEN
7617: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
7618: OKC_API.set_message
7619: (OKC_API.G_APP_NAME,
7620: G_UNEXPECTED_ERROR,
7621: G_SQLCODE_TOKEN,
7622: SQLCODE,
7623: G_SQLERRM_TOKEN,
7653: x_msg_data => x_msg_data);
7654:
7655: EXCEPTION
7656: WHEN OTHERS THEN
7657: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
7658: OKC_API.set_message
7659: (OKC_API.G_APP_NAME,
7660: G_UNEXPECTED_ERROR,
7661: G_SQLCODE_TOKEN,
7654:
7655: EXCEPTION
7656: WHEN OTHERS THEN
7657: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
7658: OKC_API.set_message
7659: (OKC_API.G_APP_NAME,
7660: G_UNEXPECTED_ERROR,
7661: G_SQLCODE_TOKEN,
7662: SQLCODE,
7655: EXCEPTION
7656: WHEN OTHERS THEN
7657: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
7658: OKC_API.set_message
7659: (OKC_API.G_APP_NAME,
7660: G_UNEXPECTED_ERROR,
7661: G_SQLCODE_TOKEN,
7662: SQLCODE,
7663: G_SQLERRM_TOKEN,
7689: x_msg_data => x_msg_data);
7690:
7691: EXCEPTION
7692: WHEN OTHERS THEN
7693: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
7694: OKC_API.set_message
7695: (OKC_API.G_APP_NAME,
7696: G_UNEXPECTED_ERROR,
7697: G_SQLCODE_TOKEN,
7690:
7691: EXCEPTION
7692: WHEN OTHERS THEN
7693: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
7694: OKC_API.set_message
7695: (OKC_API.G_APP_NAME,
7696: G_UNEXPECTED_ERROR,
7697: G_SQLCODE_TOKEN,
7698: SQLCODE,
7691: EXCEPTION
7692: WHEN OTHERS THEN
7693: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
7694: OKC_API.set_message
7695: (OKC_API.G_APP_NAME,
7696: G_UNEXPECTED_ERROR,
7697: G_SQLCODE_TOKEN,
7698: SQLCODE,
7699: G_SQLERRM_TOKEN,
7727: x_msg_data => x_msg_data);
7728:
7729: EXCEPTION
7730: WHEN OTHERS THEN
7731: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
7732: OKC_API.set_message
7733: (OKC_API.G_APP_NAME,
7734: G_UNEXPECTED_ERROR,
7735: G_SQLCODE_TOKEN,
7728:
7729: EXCEPTION
7730: WHEN OTHERS THEN
7731: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
7732: OKC_API.set_message
7733: (OKC_API.G_APP_NAME,
7734: G_UNEXPECTED_ERROR,
7735: G_SQLCODE_TOKEN,
7736: SQLCODE,
7729: EXCEPTION
7730: WHEN OTHERS THEN
7731: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
7732: OKC_API.set_message
7733: (OKC_API.G_APP_NAME,
7734: G_UNEXPECTED_ERROR,
7735: G_SQLCODE_TOKEN,
7736: SQLCODE,
7737: G_SQLERRM_TOKEN,
7847: END IF;
7848: EXCEPTION
7849: WHEN OTHERS THEN
7850: RETURN(FALSE);
7851: OKC_API.set_message
7852: (OKC_API.G_APP_NAME,
7853: G_UNEXPECTED_ERROR,
7854: G_SQLCODE_TOKEN,
7855: SQLCODE,
7848: EXCEPTION
7849: WHEN OTHERS THEN
7850: RETURN(FALSE);
7851: OKC_API.set_message
7852: (OKC_API.G_APP_NAME,
7853: G_UNEXPECTED_ERROR,
7854: G_SQLCODE_TOKEN,
7855: SQLCODE,
7856: G_SQLERRM_TOKEN,