53: l_out_tcnv_rec tcnv_rec_type;
54:
55: BEGIN -- main process begins here
56:
57: x_return_status := OKC_API.G_RET_STS_SUCCESS;
58: -- call START_ACTIVITY to create savepoint, check compatibility
59: -- and initialize message list
60: x_return_status := OKC_API.START_ACTIVITY(
61: p_api_name => l_api_name,
56:
57: x_return_status := OKC_API.G_RET_STS_SUCCESS;
58: -- call START_ACTIVITY to create savepoint, check compatibility
59: -- and initialize message list
60: x_return_status := OKC_API.START_ACTIVITY(
61: p_api_name => l_api_name,
62: p_pkg_name => G_PKG_NAME,
63: p_init_msg_list => p_init_msg_list,
64: l_api_version => l_api_version,
66: p_api_type => G_API_TYPE,
67: x_return_status => x_return_status);
68:
69: -- check if activity started successfully
70: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
71: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
72: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) then
73: raise OKC_API.G_EXCEPTION_ERROR;
74: END IF;
67: x_return_status => x_return_status);
68:
69: -- check if activity started successfully
70: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
71: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
72: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) then
73: raise OKC_API.G_EXCEPTION_ERROR;
74: END IF;
75:
68:
69: -- check if activity started successfully
70: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
71: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
72: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) then
73: raise OKC_API.G_EXCEPTION_ERROR;
74: END IF;
75:
76: okl_transaction_pvt.create_transaction(
69: -- check if activity started successfully
70: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
71: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
72: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) then
73: raise OKC_API.G_EXCEPTION_ERROR;
74: END IF;
75:
76: okl_transaction_pvt.create_transaction(
77: p_api_version => p_api_version,
87: p_trx_type => p_trx_type,
88: x_tcnv_rec => x_tcnv_rec
89: );
90:
91: IF (x_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
92: RAISE OKC_API.G_EXCEPTION_ERROR;
93: END IF;
94:
95: --++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
88: x_tcnv_rec => x_tcnv_rec
89: );
90:
91: IF (x_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
92: RAISE OKC_API.G_EXCEPTION_ERROR;
93: END IF;
94:
95: --++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
96: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
96: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
97: x_msg_data => x_msg_data);
98:
99: EXCEPTION
100: when OKC_API.G_EXCEPTION_ERROR then
101: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
102: p_api_name => l_api_name,
103: p_pkg_name => G_PKG_NAME,
104: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
97: x_msg_data => x_msg_data);
98:
99: EXCEPTION
100: when OKC_API.G_EXCEPTION_ERROR then
101: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
102: p_api_name => l_api_name,
103: p_pkg_name => G_PKG_NAME,
104: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
105: x_msg_count => x_msg_count,
100: when OKC_API.G_EXCEPTION_ERROR then
101: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
102: p_api_name => l_api_name,
103: p_pkg_name => G_PKG_NAME,
104: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
105: x_msg_count => x_msg_count,
106: x_msg_data => x_msg_data,
107: p_api_type => G_API_TYPE);
108:
105: x_msg_count => x_msg_count,
106: x_msg_data => x_msg_data,
107: p_api_type => G_API_TYPE);
108:
109: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
110: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
111: p_api_name => l_api_name,
112: p_pkg_name => G_PKG_NAME,
113: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
106: x_msg_data => x_msg_data,
107: p_api_type => G_API_TYPE);
108:
109: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
110: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
111: p_api_name => l_api_name,
112: p_pkg_name => G_PKG_NAME,
113: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
114: x_msg_count => x_msg_count,
109: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
110: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
111: p_api_name => l_api_name,
112: p_pkg_name => G_PKG_NAME,
113: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
114: x_msg_count => x_msg_count,
115: x_msg_data => x_msg_data,
116: p_api_type => G_API_TYPE);
117:
115: x_msg_data => x_msg_data,
116: p_api_type => G_API_TYPE);
117:
118: when OTHERS then
119: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
120: p_api_name => l_api_name,
121: p_pkg_name => G_PKG_NAME,
122: p_exc_name => 'OTHERS',
123: x_msg_count => x_msg_count,
150: l_api_version CONSTANT NUMBER := 1;
151:
152: BEGIN
153:
154: x_return_status := OKC_API.G_RET_STS_SUCCESS;
155: -- call START_ACTIVITY to create savepoint, check compatibility
156: -- and initialize message list
157: x_return_status := OKC_API.START_ACTIVITY(
158: p_api_name => l_api_name,
153:
154: x_return_status := OKC_API.G_RET_STS_SUCCESS;
155: -- call START_ACTIVITY to create savepoint, check compatibility
156: -- and initialize message list
157: x_return_status := OKC_API.START_ACTIVITY(
158: p_api_name => l_api_name,
159: p_pkg_name => G_PKG_NAME,
160: p_init_msg_list => p_init_msg_list,
161: l_api_version => l_api_version,
163: p_api_type => G_API_TYPE,
164: x_return_status => x_return_status);
165:
166: -- check if activity started successfully
167: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
168: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
169: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) then
170: raise OKC_API.G_EXCEPTION_ERROR;
171: END IF;
164: x_return_status => x_return_status);
165:
166: -- check if activity started successfully
167: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
168: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
169: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) then
170: raise OKC_API.G_EXCEPTION_ERROR;
171: END IF;
172:
165:
166: -- check if activity started successfully
167: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
168: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
169: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) then
170: raise OKC_API.G_EXCEPTION_ERROR;
171: END IF;
172:
173: okl_transaction_pvt.update_trx_status(
166: -- check if activity started successfully
167: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
168: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
169: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) then
170: raise OKC_API.G_EXCEPTION_ERROR;
171: END IF;
172:
173: okl_transaction_pvt.update_trx_status(
174: p_api_version => p_api_version,
179: p_chr_id => p_chr_id,
180: p_status => p_status,
181: x_tcnv_rec => x_tcnv_rec
182: );
183: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
184: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
185: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) then
186: raise OKC_API.G_EXCEPTION_ERROR;
187: END IF;
180: p_status => p_status,
181: x_tcnv_rec => x_tcnv_rec
182: );
183: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
184: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
185: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) then
186: raise OKC_API.G_EXCEPTION_ERROR;
187: END IF;
188:
181: x_tcnv_rec => x_tcnv_rec
182: );
183: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
184: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
185: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) then
186: raise OKC_API.G_EXCEPTION_ERROR;
187: END IF;
188:
189: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
182: );
183: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
184: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
185: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) then
186: raise OKC_API.G_EXCEPTION_ERROR;
187: END IF;
188:
189: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
190: x_msg_data => x_msg_data);
189: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
190: x_msg_data => x_msg_data);
191:
192: EXCEPTION
193: when OKC_API.G_EXCEPTION_ERROR then
194: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
195: p_api_name => l_api_name,
196: p_pkg_name => G_PKG_NAME,
197: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
190: x_msg_data => x_msg_data);
191:
192: EXCEPTION
193: when OKC_API.G_EXCEPTION_ERROR then
194: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
195: p_api_name => l_api_name,
196: p_pkg_name => G_PKG_NAME,
197: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
198: x_msg_count => x_msg_count,
193: when OKC_API.G_EXCEPTION_ERROR then
194: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
195: p_api_name => l_api_name,
196: p_pkg_name => G_PKG_NAME,
197: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
198: x_msg_count => x_msg_count,
199: x_msg_data => x_msg_data,
200: p_api_type => G_API_TYPE);
201:
198: x_msg_count => x_msg_count,
199: x_msg_data => x_msg_data,
200: p_api_type => G_API_TYPE);
201:
202: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
203: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
204: p_api_name => l_api_name,
205: p_pkg_name => G_PKG_NAME,
206: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
199: x_msg_data => x_msg_data,
200: p_api_type => G_API_TYPE);
201:
202: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
203: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
204: p_api_name => l_api_name,
205: p_pkg_name => G_PKG_NAME,
206: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
207: x_msg_count => x_msg_count,
202: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
203: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
204: p_api_name => l_api_name,
205: p_pkg_name => G_PKG_NAME,
206: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
207: x_msg_count => x_msg_count,
208: x_msg_data => x_msg_data,
209: p_api_type => G_API_TYPE);
210:
208: x_msg_data => x_msg_data,
209: p_api_type => G_API_TYPE);
210:
211: when OTHERS then
212: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
213: p_api_name => l_api_name,
214: p_pkg_name => G_PKG_NAME,
215: p_exc_name => 'OTHERS',
216: x_msg_count => x_msg_count,
243:
244: BEGIN
245:
246:
247: x_return_status := OKC_API.G_RET_STS_SUCCESS;
248: -- call START_ACTIVITY to create savepoint, check compatibility
249: -- and initialize message list
250: x_return_status := OKC_API.START_ACTIVITY(
251: p_api_name => l_api_name,
246:
247: x_return_status := OKC_API.G_RET_STS_SUCCESS;
248: -- call START_ACTIVITY to create savepoint, check compatibility
249: -- and initialize message list
250: x_return_status := OKC_API.START_ACTIVITY(
251: p_api_name => l_api_name,
252: p_pkg_name => G_PKG_NAME,
253: p_init_msg_list => p_init_msg_list,
254: l_api_version => l_api_version,
256: p_api_type => G_API_TYPE,
257: x_return_status => x_return_status);
258:
259: -- check if activity started successfully
260: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
261: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
262: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) then
263: raise OKC_API.G_EXCEPTION_ERROR;
264: END IF;
257: x_return_status => x_return_status);
258:
259: -- check if activity started successfully
260: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
261: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
262: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) then
263: raise OKC_API.G_EXCEPTION_ERROR;
264: END IF;
265: okl_transaction_pvt.abandon_revisions(
258:
259: -- check if activity started successfully
260: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
261: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
262: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) then
263: raise OKC_API.G_EXCEPTION_ERROR;
264: END IF;
265: okl_transaction_pvt.abandon_revisions(
266: p_api_version => p_api_version,
259: -- check if activity started successfully
260: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
261: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
262: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) then
263: raise OKC_API.G_EXCEPTION_ERROR;
264: END IF;
265: okl_transaction_pvt.abandon_revisions(
266: p_api_version => p_api_version,
267: p_init_msg_list => p_init_msg_list,
271: p_rev_tbl => p_rev_tbl,
272: p_contract_status => p_contract_status,
273: p_tsu_code => p_tsu_code);
274:
275: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
276: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
277: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) then
278: raise OKC_API.G_EXCEPTION_ERROR;
279: END IF;
272: p_contract_status => p_contract_status,
273: p_tsu_code => p_tsu_code);
274:
275: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
276: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
277: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) then
278: raise OKC_API.G_EXCEPTION_ERROR;
279: END IF;
280:
273: p_tsu_code => p_tsu_code);
274:
275: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
276: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
277: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) then
278: raise OKC_API.G_EXCEPTION_ERROR;
279: END IF;
280:
281: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
274:
275: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
276: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
277: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) then
278: raise OKC_API.G_EXCEPTION_ERROR;
279: END IF;
280:
281: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
282: x_msg_data => x_msg_data);
281: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
282: x_msg_data => x_msg_data);
283:
284: EXCEPTION
285: when OKC_API.G_EXCEPTION_ERROR then
286: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
287: p_api_name => l_api_name,
288: p_pkg_name => G_PKG_NAME,
289: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
282: x_msg_data => x_msg_data);
283:
284: EXCEPTION
285: when OKC_API.G_EXCEPTION_ERROR then
286: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
287: p_api_name => l_api_name,
288: p_pkg_name => G_PKG_NAME,
289: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
290: x_msg_count => x_msg_count,
285: when OKC_API.G_EXCEPTION_ERROR then
286: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
287: p_api_name => l_api_name,
288: p_pkg_name => G_PKG_NAME,
289: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
290: x_msg_count => x_msg_count,
291: x_msg_data => x_msg_data,
292: p_api_type => G_API_TYPE);
293:
290: x_msg_count => x_msg_count,
291: x_msg_data => x_msg_data,
292: p_api_type => G_API_TYPE);
293:
294: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
295: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
296: p_api_name => l_api_name,
297: p_pkg_name => G_PKG_NAME,
298: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
291: x_msg_data => x_msg_data,
292: p_api_type => G_API_TYPE);
293:
294: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
295: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
296: p_api_name => l_api_name,
297: p_pkg_name => G_PKG_NAME,
298: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
299: x_msg_count => x_msg_count,
294: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
295: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
296: p_api_name => l_api_name,
297: p_pkg_name => G_PKG_NAME,
298: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
299: x_msg_count => x_msg_count,
300: x_msg_data => x_msg_data,
301: p_api_type => G_API_TYPE);
302:
300: x_msg_data => x_msg_data,
301: p_api_type => G_API_TYPE);
302:
303: when OTHERS then
304: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
305: p_api_name => l_api_name,
306: p_pkg_name => G_PKG_NAME,
307: p_exc_name => 'OTHERS',
308: x_msg_count => x_msg_count,