39:
40:
41: PROCEDURE Update_year(
42: p_api_version IN NUMBER,
43: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
44: x_return_status OUT NOCOPY VARCHAR2,
45: x_msg_count OUT NOCOPY NUMBER,
46: x_msg_data OUT NOCOPY VARCHAR2,
47: p_dnz_chr_id IN NUMBER,
93: p_klev_rec => l_klev_rec,
94: x_clev_rec => lx_clev_rec,
95: x_klev_rec => lx_klev_rec);
96:
97: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
98: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
99: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
100: RAISE OKC_API.G_EXCEPTION_ERROR;
101: END IF;
94: x_clev_rec => lx_clev_rec,
95: x_klev_rec => lx_klev_rec);
96:
97: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
98: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
99: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
100: RAISE OKC_API.G_EXCEPTION_ERROR;
101: END IF;
102: x_year := lx_klev_rec.year_built;
95: x_klev_rec => lx_klev_rec);
96:
97: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
98: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
99: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
100: RAISE OKC_API.G_EXCEPTION_ERROR;
101: END IF;
102: x_year := lx_klev_rec.year_built;
103:
96:
97: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
98: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
99: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
100: RAISE OKC_API.G_EXCEPTION_ERROR;
101: END IF;
102: x_year := lx_klev_rec.year_built;
103:
104: OKL_API.END_ACTIVITY (x_msg_count,
133:
134: END Update_year;
135:
136: PROCEDURE update_tax(p_api_version IN NUMBER,
137: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
138: x_return_status OUT NOCOPY VARCHAR2,
139: x_msg_count OUT NOCOPY NUMBER,
140: x_msg_data OUT NOCOPY VARCHAR2,
141: p_rule_id IN NUMBER,
195: x_rulv_rec => lx_rule_rec);
196:
197:
198:
199: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
200: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
201: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
202: RAISE OKC_API.G_EXCEPTION_ERROR;
203: END IF;
196:
197:
198:
199: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
200: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
201: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
202: RAISE OKC_API.G_EXCEPTION_ERROR;
203: END IF;
204:
197:
198:
199: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
200: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
201: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
202: RAISE OKC_API.G_EXCEPTION_ERROR;
203: END IF;
204:
205: x_rule_information1 := lx_rule_rec.rule_information1;
198:
199: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
200: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
201: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
202: RAISE OKC_API.G_EXCEPTION_ERROR;
203: END IF;
204:
205: x_rule_information1 := lx_rule_rec.rule_information1;
206: x_rule_information2 := lx_rule_rec.rule_information2;
240:
241: END update_tax;
242:
243: PROCEDURE update_asset(p_api_version IN NUMBER,
244: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
245: x_return_status OUT NOCOPY VARCHAR2,
246: x_msg_count OUT NOCOPY NUMBER,
247: x_msg_data OUT NOCOPY VARCHAR2,
248: p_asset_id IN NUMBER,
309: px_asset_desc_rec_new => l_asset_desc_rec,
310: -- px_asset_type_rec_new => l_asset_type_rec,
311: px_asset_cat_rec_new => l_asset_cat_rec);
312:
313: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
314: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
315: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
316: RAISE OKC_API.G_EXCEPTION_ERROR;
317: END IF;
310: -- px_asset_type_rec_new => l_asset_type_rec,
311: px_asset_cat_rec_new => l_asset_cat_rec);
312:
313: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
314: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
315: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
316: RAISE OKC_API.G_EXCEPTION_ERROR;
317: END IF;
318:
311: px_asset_cat_rec_new => l_asset_cat_rec);
312:
313: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
314: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
315: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
316: RAISE OKC_API.G_EXCEPTION_ERROR;
317: END IF;
318:
319: px_model_no := l_asset_desc_rec.model_number;
312:
313: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
314: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
315: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
316: RAISE OKC_API.G_EXCEPTION_ERROR;
317: END IF;
318:
319: px_model_no := l_asset_desc_rec.model_number;
320: px_manufacturer := l_asset_desc_rec.manufacturer_name;