187: l_api_name CONSTANT VARCHAR2(30) := 'create_subclass';
188: l_return_status VARCHAR2(1);
189: l_scsv_rec scsv_rec_type := p_scsv_rec;
190: BEGIN
191: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
192: p_init_msg_list,
193: '_PUB',
194: x_return_status);
195: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
191: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
192: p_init_msg_list,
193: '_PUB',
194: x_return_status);
195: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
196: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
197: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
198: raise OKC_API.G_EXCEPTION_ERROR;
199: END IF;
192: p_init_msg_list,
193: '_PUB',
194: x_return_status);
195: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
196: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
197: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
198: raise OKC_API.G_EXCEPTION_ERROR;
199: END IF;
200: -- Call user hook for BEFORE
193: '_PUB',
194: x_return_status);
195: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
196: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
197: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
198: raise OKC_API.G_EXCEPTION_ERROR;
199: END IF;
200: -- Call user hook for BEFORE
201: g_scsv_rec := l_scsv_rec;
194: x_return_status);
195: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
196: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
197: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
198: raise OKC_API.G_EXCEPTION_ERROR;
199: END IF;
200: -- Call user hook for BEFORE
201: g_scsv_rec := l_scsv_rec;
202: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'B');
199: END IF;
200: -- Call user hook for BEFORE
201: g_scsv_rec := l_scsv_rec;
202: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'B');
203: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
204: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
205: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
206: raise OKC_API.G_EXCEPTION_ERROR;
207: END IF;
200: -- Call user hook for BEFORE
201: g_scsv_rec := l_scsv_rec;
202: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'B');
203: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
204: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
205: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
206: raise OKC_API.G_EXCEPTION_ERROR;
207: END IF;
208: l_scsv_rec := migrate_scsv(l_scsv_rec, g_scsv_rec);
201: g_scsv_rec := l_scsv_rec;
202: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'B');
203: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
204: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
205: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
206: raise OKC_API.G_EXCEPTION_ERROR;
207: END IF;
208: l_scsv_rec := migrate_scsv(l_scsv_rec, g_scsv_rec);
209:
202: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'B');
203: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
204: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
205: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
206: raise OKC_API.G_EXCEPTION_ERROR;
207: END IF;
208: l_scsv_rec := migrate_scsv(l_scsv_rec, g_scsv_rec);
209:
210: okc_subclass_pvt.create_subclass(
214: x_msg_count,
215: x_msg_data,
216: l_scsv_rec,
217: x_scsv_rec);
218: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
219: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
220: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
221: raise OKC_API.G_EXCEPTION_ERROR;
222: END IF;
215: x_msg_data,
216: l_scsv_rec,
217: x_scsv_rec);
218: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
219: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
220: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
221: raise OKC_API.G_EXCEPTION_ERROR;
222: END IF;
223:
216: l_scsv_rec,
217: x_scsv_rec);
218: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
219: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
220: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
221: raise OKC_API.G_EXCEPTION_ERROR;
222: END IF;
223:
224: -- Call user hook for AFTER
217: x_scsv_rec);
218: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
219: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
220: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
221: raise OKC_API.G_EXCEPTION_ERROR;
222: END IF;
223:
224: -- Call user hook for AFTER
225: g_scsv_rec := x_scsv_rec;
223:
224: -- Call user hook for AFTER
225: g_scsv_rec := x_scsv_rec;
226: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'A');
227: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
228: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
229: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
230: raise OKC_API.G_EXCEPTION_ERROR;
231: END IF;
224: -- Call user hook for AFTER
225: g_scsv_rec := x_scsv_rec;
226: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'A');
227: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
228: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
229: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
230: raise OKC_API.G_EXCEPTION_ERROR;
231: END IF;
232: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
225: g_scsv_rec := x_scsv_rec;
226: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'A');
227: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
228: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
229: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
230: raise OKC_API.G_EXCEPTION_ERROR;
231: END IF;
232: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
233: EXCEPTION
226: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'A');
227: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
228: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
229: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
230: raise OKC_API.G_EXCEPTION_ERROR;
231: END IF;
232: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
233: EXCEPTION
234: WHEN OKC_API.G_EXCEPTION_ERROR THEN
228: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
229: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
230: raise OKC_API.G_EXCEPTION_ERROR;
231: END IF;
232: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
233: EXCEPTION
234: WHEN OKC_API.G_EXCEPTION_ERROR THEN
235: x_return_status := OKC_API.HANDLE_EXCEPTIONS
236: (l_api_name,
230: raise OKC_API.G_EXCEPTION_ERROR;
231: END IF;
232: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
233: EXCEPTION
234: WHEN OKC_API.G_EXCEPTION_ERROR THEN
235: x_return_status := OKC_API.HANDLE_EXCEPTIONS
236: (l_api_name,
237: G_PKG_NAME,
238: 'OKC_API.G_RET_STS_ERROR',
231: END IF;
232: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
233: EXCEPTION
234: WHEN OKC_API.G_EXCEPTION_ERROR THEN
235: x_return_status := OKC_API.HANDLE_EXCEPTIONS
236: (l_api_name,
237: G_PKG_NAME,
238: 'OKC_API.G_RET_STS_ERROR',
239: x_msg_count,
234: WHEN OKC_API.G_EXCEPTION_ERROR THEN
235: x_return_status := OKC_API.HANDLE_EXCEPTIONS
236: (l_api_name,
237: G_PKG_NAME,
238: 'OKC_API.G_RET_STS_ERROR',
239: x_msg_count,
240: x_msg_data,
241: '_PUB');
242: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
238: 'OKC_API.G_RET_STS_ERROR',
239: x_msg_count,
240: x_msg_data,
241: '_PUB');
242: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
243: x_return_status := OKC_API.HANDLE_EXCEPTIONS
244: (l_api_name,
245: G_PKG_NAME,
246: 'OKC_API.G_RET_STS_UNEXP_ERROR',
239: x_msg_count,
240: x_msg_data,
241: '_PUB');
242: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
243: x_return_status := OKC_API.HANDLE_EXCEPTIONS
244: (l_api_name,
245: G_PKG_NAME,
246: 'OKC_API.G_RET_STS_UNEXP_ERROR',
247: x_msg_count,
242: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
243: x_return_status := OKC_API.HANDLE_EXCEPTIONS
244: (l_api_name,
245: G_PKG_NAME,
246: 'OKC_API.G_RET_STS_UNEXP_ERROR',
247: x_msg_count,
248: x_msg_data,
249: '_PUB');
250: WHEN OTHERS THEN
247: x_msg_count,
248: x_msg_data,
249: '_PUB');
250: WHEN OTHERS THEN
251: x_return_status := OKC_API.HANDLE_EXCEPTIONS
252: (l_api_name,
253: G_PKG_NAME,
254: 'OTHERS',
255: x_msg_count,
265: x_msg_data OUT NOCOPY VARCHAR2,
266: p_scsv_tbl IN scsv_tbl_type,
267: x_scsv_tbl OUT NOCOPY scsv_tbl_type) IS
268: i NUMBER := 0;
269: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
270: BEGIN
271: x_return_status := OKC_API.G_RET_STS_SUCCESS;
272: IF p_scsv_tbl.COUNT > 0 THEN
273: i := p_scsv_tbl.FIRST;
267: x_scsv_tbl OUT NOCOPY scsv_tbl_type) IS
268: i NUMBER := 0;
269: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
270: BEGIN
271: x_return_status := OKC_API.G_RET_STS_SUCCESS;
272: IF p_scsv_tbl.COUNT > 0 THEN
273: i := p_scsv_tbl.FIRST;
274: LOOP
275: create_subclass(
279: x_msg_count,
280: x_msg_data,
281: p_scsv_tbl(i),
282: x_scsv_tbl(i));
283: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
284: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
285: x_return_status := l_return_status;
286: raise G_EXCEPTION_HALT_VALIDATION;
287: ELSE
280: x_msg_data,
281: p_scsv_tbl(i),
282: x_scsv_tbl(i));
283: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
284: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
285: x_return_status := l_return_status;
286: raise G_EXCEPTION_HALT_VALIDATION;
287: ELSE
288: x_return_status := l_return_status;
295: EXCEPTION
296: WHEN G_EXCEPTION_HALT_VALIDATION THEN
297: NULL;
298: WHEN OTHERS THEN
299: OKC_API.set_message(p_app_name => g_app_name,
300: p_msg_name => g_unexpected_error,
301: p_token1 => g_sqlcode_token,
302: p_token1_value => sqlcode,
303: p_token2 => g_sqlerrm_token,
301: p_token1 => g_sqlcode_token,
302: p_token1_value => sqlcode,
303: p_token2 => g_sqlerrm_token,
304: p_token2_value => sqlerrm);
305: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
306: END create_subclass;
307:
308:
309: PROCEDURE update_subclass(
317: l_api_name CONSTANT VARCHAR2(30) := 'update_subclass';
318: l_return_status VARCHAR2(1);
319: l_scsv_rec scsv_rec_type := p_scsv_rec;
320: BEGIN
321: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
322: p_init_msg_list,
323: '_PUB',
324: x_return_status);
325: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
321: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
322: p_init_msg_list,
323: '_PUB',
324: x_return_status);
325: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
326: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
327: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
328: raise OKC_API.G_EXCEPTION_ERROR;
329: END IF;
322: p_init_msg_list,
323: '_PUB',
324: x_return_status);
325: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
326: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
327: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
328: raise OKC_API.G_EXCEPTION_ERROR;
329: END IF;
330: -- Call user hook for BEFORE
323: '_PUB',
324: x_return_status);
325: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
326: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
327: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
328: raise OKC_API.G_EXCEPTION_ERROR;
329: END IF;
330: -- Call user hook for BEFORE
331: g_scsv_rec := l_scsv_rec;
324: x_return_status);
325: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
326: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
327: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
328: raise OKC_API.G_EXCEPTION_ERROR;
329: END IF;
330: -- Call user hook for BEFORE
331: g_scsv_rec := l_scsv_rec;
332: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'B');
329: END IF;
330: -- Call user hook for BEFORE
331: g_scsv_rec := l_scsv_rec;
332: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'B');
333: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
334: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
335: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
336: raise OKC_API.G_EXCEPTION_ERROR;
337: END IF;
330: -- Call user hook for BEFORE
331: g_scsv_rec := l_scsv_rec;
332: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'B');
333: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
334: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
335: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
336: raise OKC_API.G_EXCEPTION_ERROR;
337: END IF;
338: l_scsv_rec := migrate_scsv(l_scsv_rec, g_scsv_rec);
331: g_scsv_rec := l_scsv_rec;
332: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'B');
333: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
334: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
335: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
336: raise OKC_API.G_EXCEPTION_ERROR;
337: END IF;
338: l_scsv_rec := migrate_scsv(l_scsv_rec, g_scsv_rec);
339:
332: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'B');
333: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
334: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
335: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
336: raise OKC_API.G_EXCEPTION_ERROR;
337: END IF;
338: l_scsv_rec := migrate_scsv(l_scsv_rec, g_scsv_rec);
339:
340: okc_subclass_pvt.update_subclass(
344: x_msg_count,
345: x_msg_data,
346: l_scsv_rec,
347: x_scsv_rec);
348: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
349: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
350: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
351: raise OKC_API.G_EXCEPTION_ERROR;
352: END IF;
345: x_msg_data,
346: l_scsv_rec,
347: x_scsv_rec);
348: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
349: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
350: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
351: raise OKC_API.G_EXCEPTION_ERROR;
352: END IF;
353:
346: l_scsv_rec,
347: x_scsv_rec);
348: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
349: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
350: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
351: raise OKC_API.G_EXCEPTION_ERROR;
352: END IF;
353:
354: -- Call user hook for AFTER
347: x_scsv_rec);
348: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
349: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
350: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
351: raise OKC_API.G_EXCEPTION_ERROR;
352: END IF;
353:
354: -- Call user hook for AFTER
355: g_scsv_rec := x_scsv_rec;
353:
354: -- Call user hook for AFTER
355: g_scsv_rec := x_scsv_rec;
356: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'A');
357: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
358: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
359: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
360: raise OKC_API.G_EXCEPTION_ERROR;
361: END IF;
354: -- Call user hook for AFTER
355: g_scsv_rec := x_scsv_rec;
356: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'A');
357: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
358: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
359: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
360: raise OKC_API.G_EXCEPTION_ERROR;
361: END IF;
362: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
355: g_scsv_rec := x_scsv_rec;
356: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'A');
357: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
358: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
359: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
360: raise OKC_API.G_EXCEPTION_ERROR;
361: END IF;
362: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
363: EXCEPTION
356: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'A');
357: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
358: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
359: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
360: raise OKC_API.G_EXCEPTION_ERROR;
361: END IF;
362: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
363: EXCEPTION
364: WHEN OKC_API.G_EXCEPTION_ERROR THEN
358: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
359: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
360: raise OKC_API.G_EXCEPTION_ERROR;
361: END IF;
362: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
363: EXCEPTION
364: WHEN OKC_API.G_EXCEPTION_ERROR THEN
365: x_return_status := OKC_API.HANDLE_EXCEPTIONS
366: (l_api_name,
360: raise OKC_API.G_EXCEPTION_ERROR;
361: END IF;
362: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
363: EXCEPTION
364: WHEN OKC_API.G_EXCEPTION_ERROR THEN
365: x_return_status := OKC_API.HANDLE_EXCEPTIONS
366: (l_api_name,
367: G_PKG_NAME,
368: 'OKC_API.G_RET_STS_ERROR',
361: END IF;
362: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
363: EXCEPTION
364: WHEN OKC_API.G_EXCEPTION_ERROR THEN
365: x_return_status := OKC_API.HANDLE_EXCEPTIONS
366: (l_api_name,
367: G_PKG_NAME,
368: 'OKC_API.G_RET_STS_ERROR',
369: x_msg_count,
364: WHEN OKC_API.G_EXCEPTION_ERROR THEN
365: x_return_status := OKC_API.HANDLE_EXCEPTIONS
366: (l_api_name,
367: G_PKG_NAME,
368: 'OKC_API.G_RET_STS_ERROR',
369: x_msg_count,
370: x_msg_data,
371: '_PUB');
372: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
368: 'OKC_API.G_RET_STS_ERROR',
369: x_msg_count,
370: x_msg_data,
371: '_PUB');
372: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
373: x_return_status := OKC_API.HANDLE_EXCEPTIONS
374: (l_api_name,
375: G_PKG_NAME,
376: 'OKC_API.G_RET_STS_UNEXP_ERROR',
369: x_msg_count,
370: x_msg_data,
371: '_PUB');
372: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
373: x_return_status := OKC_API.HANDLE_EXCEPTIONS
374: (l_api_name,
375: G_PKG_NAME,
376: 'OKC_API.G_RET_STS_UNEXP_ERROR',
377: x_msg_count,
372: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
373: x_return_status := OKC_API.HANDLE_EXCEPTIONS
374: (l_api_name,
375: G_PKG_NAME,
376: 'OKC_API.G_RET_STS_UNEXP_ERROR',
377: x_msg_count,
378: x_msg_data,
379: '_PUB');
380: WHEN OTHERS THEN
377: x_msg_count,
378: x_msg_data,
379: '_PUB');
380: WHEN OTHERS THEN
381: x_return_status := OKC_API.HANDLE_EXCEPTIONS
382: (l_api_name,
383: G_PKG_NAME,
384: 'OTHERS',
385: x_msg_count,
396: x_msg_data OUT NOCOPY VARCHAR2,
397: p_scsv_tbl IN scsv_tbl_type,
398: x_scsv_tbl OUT NOCOPY scsv_tbl_type) IS
399: i NUMBER := 0;
400: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
401: BEGIN
402: x_return_status := OKC_API.G_RET_STS_SUCCESS;
403: IF p_scsv_tbl.COUNT > 0 THEN
404: i := p_scsv_tbl.FIRST;
398: x_scsv_tbl OUT NOCOPY scsv_tbl_type) IS
399: i NUMBER := 0;
400: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
401: BEGIN
402: x_return_status := OKC_API.G_RET_STS_SUCCESS;
403: IF p_scsv_tbl.COUNT > 0 THEN
404: i := p_scsv_tbl.FIRST;
405: LOOP
406: update_subclass(
410: x_msg_count,
411: x_msg_data,
412: p_scsv_tbl(i),
413: x_scsv_tbl(i));
414: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
415: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
416: x_return_status := l_return_status;
417: raise G_EXCEPTION_HALT_VALIDATION;
418: ELSE
411: x_msg_data,
412: p_scsv_tbl(i),
413: x_scsv_tbl(i));
414: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
415: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
416: x_return_status := l_return_status;
417: raise G_EXCEPTION_HALT_VALIDATION;
418: ELSE
419: x_return_status := l_return_status;
426: EXCEPTION
427: WHEN G_EXCEPTION_HALT_VALIDATION THEN
428: NULL;
429: WHEN OTHERS THEN
430: OKC_API.set_message(p_app_name => g_app_name,
431: p_msg_name => g_unexpected_error,
432: p_token1 => g_sqlcode_token,
433: p_token1_value => sqlcode,
434: p_token2 => g_sqlerrm_token,
432: p_token1 => g_sqlcode_token,
433: p_token1_value => sqlcode,
434: p_token2 => g_sqlerrm_token,
435: p_token2_value => sqlerrm);
436: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
437: END update_subclass;
438:
439: PROCEDURE delete_subclass(
440: p_api_version IN NUMBER,
446: l_api_name CONSTANT VARCHAR2(30) := 'delete_subclass';
447: l_return_status VARCHAR2(1);
448: l_scsv_rec scsv_rec_type := p_scsv_rec;
449: BEGIN
450: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
451: p_init_msg_list,
452: '_PUB',
453: x_return_status);
454: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
450: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
451: p_init_msg_list,
452: '_PUB',
453: x_return_status);
454: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
455: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
456: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
457: raise OKC_API.G_EXCEPTION_ERROR;
458: END IF;
451: p_init_msg_list,
452: '_PUB',
453: x_return_status);
454: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
455: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
456: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
457: raise OKC_API.G_EXCEPTION_ERROR;
458: END IF;
459: -- Call user hook for BEFORE
452: '_PUB',
453: x_return_status);
454: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
455: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
456: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
457: raise OKC_API.G_EXCEPTION_ERROR;
458: END IF;
459: -- Call user hook for BEFORE
460: g_scsv_rec := l_scsv_rec;
453: x_return_status);
454: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
455: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
456: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
457: raise OKC_API.G_EXCEPTION_ERROR;
458: END IF;
459: -- Call user hook for BEFORE
460: g_scsv_rec := l_scsv_rec;
461: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'B');
458: END IF;
459: -- Call user hook for BEFORE
460: g_scsv_rec := l_scsv_rec;
461: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'B');
462: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
463: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
464: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
465: raise OKC_API.G_EXCEPTION_ERROR;
466: END IF;
459: -- Call user hook for BEFORE
460: g_scsv_rec := l_scsv_rec;
461: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'B');
462: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
463: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
464: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
465: raise OKC_API.G_EXCEPTION_ERROR;
466: END IF;
467:
460: g_scsv_rec := l_scsv_rec;
461: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'B');
462: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
463: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
464: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
465: raise OKC_API.G_EXCEPTION_ERROR;
466: END IF;
467:
468: okc_subclass_pvt.delete_subclass(
461: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'B');
462: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
463: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
464: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
465: raise OKC_API.G_EXCEPTION_ERROR;
466: END IF;
467:
468: okc_subclass_pvt.delete_subclass(
469: p_api_version,
471: x_return_status,
472: x_msg_count,
473: x_msg_data,
474: p_scsv_rec);
475: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
476: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
477: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
478: raise OKC_API.G_EXCEPTION_ERROR;
479: END IF;
472: x_msg_count,
473: x_msg_data,
474: p_scsv_rec);
475: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
476: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
477: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
478: raise OKC_API.G_EXCEPTION_ERROR;
479: END IF;
480:
473: x_msg_data,
474: p_scsv_rec);
475: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
476: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
477: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
478: raise OKC_API.G_EXCEPTION_ERROR;
479: END IF;
480:
481: -- Call user hook for AFTER
474: p_scsv_rec);
475: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
476: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
477: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
478: raise OKC_API.G_EXCEPTION_ERROR;
479: END IF;
480:
481: -- Call user hook for AFTER
482: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'A');
479: END IF;
480:
481: -- Call user hook for AFTER
482: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'A');
483: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
484: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
485: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
486: raise OKC_API.G_EXCEPTION_ERROR;
487: END IF;
480:
481: -- Call user hook for AFTER
482: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'A');
483: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
484: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
485: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
486: raise OKC_API.G_EXCEPTION_ERROR;
487: END IF;
488: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
481: -- Call user hook for AFTER
482: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'A');
483: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
484: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
485: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
486: raise OKC_API.G_EXCEPTION_ERROR;
487: END IF;
488: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
489: EXCEPTION
482: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'A');
483: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
484: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
485: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
486: raise OKC_API.G_EXCEPTION_ERROR;
487: END IF;
488: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
489: EXCEPTION
490: WHEN OKC_API.G_EXCEPTION_ERROR THEN
484: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
485: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
486: raise OKC_API.G_EXCEPTION_ERROR;
487: END IF;
488: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
489: EXCEPTION
490: WHEN OKC_API.G_EXCEPTION_ERROR THEN
491: x_return_status := OKC_API.HANDLE_EXCEPTIONS
492: (l_api_name,
486: raise OKC_API.G_EXCEPTION_ERROR;
487: END IF;
488: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
489: EXCEPTION
490: WHEN OKC_API.G_EXCEPTION_ERROR THEN
491: x_return_status := OKC_API.HANDLE_EXCEPTIONS
492: (l_api_name,
493: G_PKG_NAME,
494: 'OKC_API.G_RET_STS_ERROR',
487: END IF;
488: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
489: EXCEPTION
490: WHEN OKC_API.G_EXCEPTION_ERROR THEN
491: x_return_status := OKC_API.HANDLE_EXCEPTIONS
492: (l_api_name,
493: G_PKG_NAME,
494: 'OKC_API.G_RET_STS_ERROR',
495: x_msg_count,
490: WHEN OKC_API.G_EXCEPTION_ERROR THEN
491: x_return_status := OKC_API.HANDLE_EXCEPTIONS
492: (l_api_name,
493: G_PKG_NAME,
494: 'OKC_API.G_RET_STS_ERROR',
495: x_msg_count,
496: x_msg_data,
497: '_PUB');
498: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
494: 'OKC_API.G_RET_STS_ERROR',
495: x_msg_count,
496: x_msg_data,
497: '_PUB');
498: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
499: x_return_status := OKC_API.HANDLE_EXCEPTIONS
500: (l_api_name,
501: G_PKG_NAME,
502: 'OKC_API.G_RET_STS_UNEXP_ERROR',
495: x_msg_count,
496: x_msg_data,
497: '_PUB');
498: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
499: x_return_status := OKC_API.HANDLE_EXCEPTIONS
500: (l_api_name,
501: G_PKG_NAME,
502: 'OKC_API.G_RET_STS_UNEXP_ERROR',
503: x_msg_count,
498: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
499: x_return_status := OKC_API.HANDLE_EXCEPTIONS
500: (l_api_name,
501: G_PKG_NAME,
502: 'OKC_API.G_RET_STS_UNEXP_ERROR',
503: x_msg_count,
504: x_msg_data,
505: '_PUB');
506: WHEN OTHERS THEN
503: x_msg_count,
504: x_msg_data,
505: '_PUB');
506: WHEN OTHERS THEN
507: x_return_status := OKC_API.HANDLE_EXCEPTIONS
508: (l_api_name,
509: G_PKG_NAME,
510: 'OTHERS',
511: x_msg_count,
520: x_msg_count OUT NOCOPY NUMBER,
521: x_msg_data OUT NOCOPY VARCHAR2,
522: p_scsv_tbl IN scsv_tbl_type) IS
523: i NUMBER := 0;
524: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
525: BEGIN
526: x_return_status := OKC_API.G_RET_STS_SUCCESS;
527: IF p_scsv_tbl.COUNT > 0 THEN
528: i := p_scsv_tbl.FIRST;
522: p_scsv_tbl IN scsv_tbl_type) IS
523: i NUMBER := 0;
524: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
525: BEGIN
526: x_return_status := OKC_API.G_RET_STS_SUCCESS;
527: IF p_scsv_tbl.COUNT > 0 THEN
528: i := p_scsv_tbl.FIRST;
529: LOOP
530: delete_subclass(
533: l_return_status,
534: x_msg_count,
535: x_msg_data,
536: p_scsv_tbl(i));
537: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
538: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
539: x_return_status := l_return_status;
540: raise G_EXCEPTION_HALT_VALIDATION;
541: ELSE
534: x_msg_count,
535: x_msg_data,
536: p_scsv_tbl(i));
537: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
538: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
539: x_return_status := l_return_status;
540: raise G_EXCEPTION_HALT_VALIDATION;
541: ELSE
542: x_return_status := l_return_status;
549: EXCEPTION
550: WHEN G_EXCEPTION_HALT_VALIDATION THEN
551: NULL;
552: WHEN OTHERS THEN
553: OKC_API.set_message(p_app_name => g_app_name,
554: p_msg_name => g_unexpected_error,
555: p_token1 => g_sqlcode_token,
556: p_token1_value => sqlcode,
557: p_token2 => g_sqlerrm_token,
555: p_token1 => g_sqlcode_token,
556: p_token1_value => sqlcode,
557: p_token2 => g_sqlerrm_token,
558: p_token2_value => sqlerrm);
559: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
560: END delete_subclass;
561:
562: PROCEDURE lock_subclass(
563: p_api_version IN NUMBER,
638: l_api_name CONSTANT VARCHAR2(30) := 'create_subclass_roles';
639: l_return_status VARCHAR2(1);
640: l_srev_rec srev_rec_type := p_srev_rec;
641: BEGIN
642: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
643: p_init_msg_list,
644: '_PUB',
645: x_return_status);
646: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
642: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
643: p_init_msg_list,
644: '_PUB',
645: x_return_status);
646: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
647: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
648: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
649: raise OKC_API.G_EXCEPTION_ERROR;
650: END IF;
643: p_init_msg_list,
644: '_PUB',
645: x_return_status);
646: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
647: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
648: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
649: raise OKC_API.G_EXCEPTION_ERROR;
650: END IF;
651: -- Call user hook for BEFORE
644: '_PUB',
645: x_return_status);
646: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
647: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
648: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
649: raise OKC_API.G_EXCEPTION_ERROR;
650: END IF;
651: -- Call user hook for BEFORE
652: g_srev_rec := l_srev_rec;
645: x_return_status);
646: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
647: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
648: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
649: raise OKC_API.G_EXCEPTION_ERROR;
650: END IF;
651: -- Call user hook for BEFORE
652: g_srev_rec := l_srev_rec;
653: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'B');
650: END IF;
651: -- Call user hook for BEFORE
652: g_srev_rec := l_srev_rec;
653: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'B');
654: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
655: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
656: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
657: raise OKC_API.G_EXCEPTION_ERROR;
658: END IF;
651: -- Call user hook for BEFORE
652: g_srev_rec := l_srev_rec;
653: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'B');
654: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
655: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
656: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
657: raise OKC_API.G_EXCEPTION_ERROR;
658: END IF;
659: l_srev_rec := migrate_srev(l_srev_rec, g_srev_rec);
652: g_srev_rec := l_srev_rec;
653: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'B');
654: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
655: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
656: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
657: raise OKC_API.G_EXCEPTION_ERROR;
658: END IF;
659: l_srev_rec := migrate_srev(l_srev_rec, g_srev_rec);
660:
653: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'B');
654: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
655: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
656: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
657: raise OKC_API.G_EXCEPTION_ERROR;
658: END IF;
659: l_srev_rec := migrate_srev(l_srev_rec, g_srev_rec);
660:
661: okc_subclass_pvt.create_subclass_roles(
665: x_msg_count,
666: x_msg_data,
667: l_srev_rec,
668: x_srev_rec);
669: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
670: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
671: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
672: raise OKC_API.G_EXCEPTION_ERROR;
673: END IF;
666: x_msg_data,
667: l_srev_rec,
668: x_srev_rec);
669: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
670: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
671: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
672: raise OKC_API.G_EXCEPTION_ERROR;
673: END IF;
674:
667: l_srev_rec,
668: x_srev_rec);
669: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
670: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
671: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
672: raise OKC_API.G_EXCEPTION_ERROR;
673: END IF;
674:
675: -- Call user hook for AFTER
668: x_srev_rec);
669: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
670: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
671: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
672: raise OKC_API.G_EXCEPTION_ERROR;
673: END IF;
674:
675: -- Call user hook for AFTER
676: g_srev_rec := x_srev_rec;
674:
675: -- Call user hook for AFTER
676: g_srev_rec := x_srev_rec;
677: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'A');
678: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
679: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
680: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
681: raise OKC_API.G_EXCEPTION_ERROR;
682: END IF;
675: -- Call user hook for AFTER
676: g_srev_rec := x_srev_rec;
677: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'A');
678: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
679: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
680: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
681: raise OKC_API.G_EXCEPTION_ERROR;
682: END IF;
683: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
676: g_srev_rec := x_srev_rec;
677: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'A');
678: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
679: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
680: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
681: raise OKC_API.G_EXCEPTION_ERROR;
682: END IF;
683: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
684: EXCEPTION
677: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'A');
678: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
679: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
680: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
681: raise OKC_API.G_EXCEPTION_ERROR;
682: END IF;
683: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
684: EXCEPTION
685: WHEN OKC_API.G_EXCEPTION_ERROR THEN
679: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
680: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
681: raise OKC_API.G_EXCEPTION_ERROR;
682: END IF;
683: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
684: EXCEPTION
685: WHEN OKC_API.G_EXCEPTION_ERROR THEN
686: x_return_status := OKC_API.HANDLE_EXCEPTIONS
687: (l_api_name,
681: raise OKC_API.G_EXCEPTION_ERROR;
682: END IF;
683: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
684: EXCEPTION
685: WHEN OKC_API.G_EXCEPTION_ERROR THEN
686: x_return_status := OKC_API.HANDLE_EXCEPTIONS
687: (l_api_name,
688: G_PKG_NAME,
689: 'OKC_API.G_RET_STS_ERROR',
682: END IF;
683: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
684: EXCEPTION
685: WHEN OKC_API.G_EXCEPTION_ERROR THEN
686: x_return_status := OKC_API.HANDLE_EXCEPTIONS
687: (l_api_name,
688: G_PKG_NAME,
689: 'OKC_API.G_RET_STS_ERROR',
690: x_msg_count,
685: WHEN OKC_API.G_EXCEPTION_ERROR THEN
686: x_return_status := OKC_API.HANDLE_EXCEPTIONS
687: (l_api_name,
688: G_PKG_NAME,
689: 'OKC_API.G_RET_STS_ERROR',
690: x_msg_count,
691: x_msg_data,
692: '_PUB');
693: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
689: 'OKC_API.G_RET_STS_ERROR',
690: x_msg_count,
691: x_msg_data,
692: '_PUB');
693: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
694: x_return_status := OKC_API.HANDLE_EXCEPTIONS
695: (l_api_name,
696: G_PKG_NAME,
697: 'OKC_API.G_RET_STS_UNEXP_ERROR',
690: x_msg_count,
691: x_msg_data,
692: '_PUB');
693: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
694: x_return_status := OKC_API.HANDLE_EXCEPTIONS
695: (l_api_name,
696: G_PKG_NAME,
697: 'OKC_API.G_RET_STS_UNEXP_ERROR',
698: x_msg_count,
693: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
694: x_return_status := OKC_API.HANDLE_EXCEPTIONS
695: (l_api_name,
696: G_PKG_NAME,
697: 'OKC_API.G_RET_STS_UNEXP_ERROR',
698: x_msg_count,
699: x_msg_data,
700: '_PUB');
701: WHEN OTHERS THEN
698: x_msg_count,
699: x_msg_data,
700: '_PUB');
701: WHEN OTHERS THEN
702: x_return_status := OKC_API.HANDLE_EXCEPTIONS
703: (l_api_name,
704: G_PKG_NAME,
705: 'OTHERS',
706: x_msg_count,
716: x_msg_data OUT NOCOPY VARCHAR2,
717: p_srev_tbl IN srev_tbl_type,
718: x_srev_tbl OUT NOCOPY srev_tbl_type) IS
719: i NUMBER := 0;
720: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
721: BEGIN
722: x_return_status := OKC_API.G_RET_STS_SUCCESS;
723: IF p_srev_tbl.COUNT > 0 THEN
724: i := p_srev_tbl.FIRST;
718: x_srev_tbl OUT NOCOPY srev_tbl_type) IS
719: i NUMBER := 0;
720: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
721: BEGIN
722: x_return_status := OKC_API.G_RET_STS_SUCCESS;
723: IF p_srev_tbl.COUNT > 0 THEN
724: i := p_srev_tbl.FIRST;
725: LOOP
726: create_subclass_roles(
730: x_msg_count,
731: x_msg_data,
732: p_srev_tbl(i),
733: x_srev_tbl(i));
734: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
735: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
736: x_return_status := l_return_status;
737: raise G_EXCEPTION_HALT_VALIDATION;
738: ELSE
731: x_msg_data,
732: p_srev_tbl(i),
733: x_srev_tbl(i));
734: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
735: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
736: x_return_status := l_return_status;
737: raise G_EXCEPTION_HALT_VALIDATION;
738: ELSE
739: x_return_status := l_return_status;
746: EXCEPTION
747: WHEN G_EXCEPTION_HALT_VALIDATION THEN
748: NULL;
749: WHEN OTHERS THEN
750: OKC_API.set_message(p_app_name => g_app_name,
751: p_msg_name => g_unexpected_error,
752: p_token1 => g_sqlcode_token,
753: p_token1_value => sqlcode,
754: p_token2 => g_sqlerrm_token,
752: p_token1 => g_sqlcode_token,
753: p_token1_value => sqlcode,
754: p_token2 => g_sqlerrm_token,
755: p_token2_value => sqlerrm);
756: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
757: END create_subclass_roles;
758:
759: PROCEDURE update_subclass_roles(
760: p_api_version IN NUMBER,
767: l_api_name CONSTANT VARCHAR2(30) := 'update_subclass_roles';
768: l_return_status VARCHAR2(1);
769: l_srev_rec srev_rec_type := p_srev_rec;
770: BEGIN
771: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
772: p_init_msg_list,
773: '_PUB',
774: x_return_status);
775: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
771: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
772: p_init_msg_list,
773: '_PUB',
774: x_return_status);
775: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
776: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
777: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
778: raise OKC_API.G_EXCEPTION_ERROR;
779: END IF;
772: p_init_msg_list,
773: '_PUB',
774: x_return_status);
775: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
776: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
777: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
778: raise OKC_API.G_EXCEPTION_ERROR;
779: END IF;
780: -- Call user hook for BEFORE
773: '_PUB',
774: x_return_status);
775: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
776: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
777: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
778: raise OKC_API.G_EXCEPTION_ERROR;
779: END IF;
780: -- Call user hook for BEFORE
781: g_srev_rec := l_srev_rec;
774: x_return_status);
775: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
776: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
777: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
778: raise OKC_API.G_EXCEPTION_ERROR;
779: END IF;
780: -- Call user hook for BEFORE
781: g_srev_rec := l_srev_rec;
782: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'B');
779: END IF;
780: -- Call user hook for BEFORE
781: g_srev_rec := l_srev_rec;
782: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'B');
783: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
784: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
785: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
786: raise OKC_API.G_EXCEPTION_ERROR;
787: END IF;
780: -- Call user hook for BEFORE
781: g_srev_rec := l_srev_rec;
782: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'B');
783: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
784: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
785: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
786: raise OKC_API.G_EXCEPTION_ERROR;
787: END IF;
788: l_srev_rec := migrate_srev(l_srev_rec, g_srev_rec);
781: g_srev_rec := l_srev_rec;
782: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'B');
783: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
784: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
785: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
786: raise OKC_API.G_EXCEPTION_ERROR;
787: END IF;
788: l_srev_rec := migrate_srev(l_srev_rec, g_srev_rec);
789:
782: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'B');
783: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
784: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
785: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
786: raise OKC_API.G_EXCEPTION_ERROR;
787: END IF;
788: l_srev_rec := migrate_srev(l_srev_rec, g_srev_rec);
789:
790: okc_subclass_pvt.update_subclass_roles(
794: x_msg_count,
795: x_msg_data,
796: l_srev_rec,
797: x_srev_rec);
798: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
799: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
800: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
801: raise OKC_API.G_EXCEPTION_ERROR;
802: END IF;
795: x_msg_data,
796: l_srev_rec,
797: x_srev_rec);
798: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
799: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
800: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
801: raise OKC_API.G_EXCEPTION_ERROR;
802: END IF;
803:
796: l_srev_rec,
797: x_srev_rec);
798: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
799: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
800: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
801: raise OKC_API.G_EXCEPTION_ERROR;
802: END IF;
803:
804: -- Call user hook for AFTER
797: x_srev_rec);
798: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
799: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
800: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
801: raise OKC_API.G_EXCEPTION_ERROR;
802: END IF;
803:
804: -- Call user hook for AFTER
805: g_srev_rec := x_srev_rec;
803:
804: -- Call user hook for AFTER
805: g_srev_rec := x_srev_rec;
806: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'A');
807: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
808: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
809: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
810: raise OKC_API.G_EXCEPTION_ERROR;
811: END IF;
804: -- Call user hook for AFTER
805: g_srev_rec := x_srev_rec;
806: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'A');
807: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
808: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
809: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
810: raise OKC_API.G_EXCEPTION_ERROR;
811: END IF;
812: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
805: g_srev_rec := x_srev_rec;
806: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'A');
807: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
808: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
809: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
810: raise OKC_API.G_EXCEPTION_ERROR;
811: END IF;
812: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
813: EXCEPTION
806: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'A');
807: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
808: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
809: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
810: raise OKC_API.G_EXCEPTION_ERROR;
811: END IF;
812: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
813: EXCEPTION
814: WHEN OKC_API.G_EXCEPTION_ERROR THEN
808: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
809: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
810: raise OKC_API.G_EXCEPTION_ERROR;
811: END IF;
812: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
813: EXCEPTION
814: WHEN OKC_API.G_EXCEPTION_ERROR THEN
815: x_return_status := OKC_API.HANDLE_EXCEPTIONS
816: (l_api_name,
810: raise OKC_API.G_EXCEPTION_ERROR;
811: END IF;
812: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
813: EXCEPTION
814: WHEN OKC_API.G_EXCEPTION_ERROR THEN
815: x_return_status := OKC_API.HANDLE_EXCEPTIONS
816: (l_api_name,
817: G_PKG_NAME,
818: 'OKC_API.G_RET_STS_ERROR',
811: END IF;
812: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
813: EXCEPTION
814: WHEN OKC_API.G_EXCEPTION_ERROR THEN
815: x_return_status := OKC_API.HANDLE_EXCEPTIONS
816: (l_api_name,
817: G_PKG_NAME,
818: 'OKC_API.G_RET_STS_ERROR',
819: x_msg_count,
814: WHEN OKC_API.G_EXCEPTION_ERROR THEN
815: x_return_status := OKC_API.HANDLE_EXCEPTIONS
816: (l_api_name,
817: G_PKG_NAME,
818: 'OKC_API.G_RET_STS_ERROR',
819: x_msg_count,
820: x_msg_data,
821: '_PUB');
822: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
818: 'OKC_API.G_RET_STS_ERROR',
819: x_msg_count,
820: x_msg_data,
821: '_PUB');
822: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
823: x_return_status := OKC_API.HANDLE_EXCEPTIONS
824: (l_api_name,
825: G_PKG_NAME,
826: 'OKC_API.G_RET_STS_UNEXP_ERROR',
819: x_msg_count,
820: x_msg_data,
821: '_PUB');
822: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
823: x_return_status := OKC_API.HANDLE_EXCEPTIONS
824: (l_api_name,
825: G_PKG_NAME,
826: 'OKC_API.G_RET_STS_UNEXP_ERROR',
827: x_msg_count,
822: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
823: x_return_status := OKC_API.HANDLE_EXCEPTIONS
824: (l_api_name,
825: G_PKG_NAME,
826: 'OKC_API.G_RET_STS_UNEXP_ERROR',
827: x_msg_count,
828: x_msg_data,
829: '_PUB');
830: WHEN OTHERS THEN
827: x_msg_count,
828: x_msg_data,
829: '_PUB');
830: WHEN OTHERS THEN
831: x_return_status := OKC_API.HANDLE_EXCEPTIONS
832: (l_api_name,
833: G_PKG_NAME,
834: 'OTHERS',
835: x_msg_count,
845: x_msg_data OUT NOCOPY VARCHAR2,
846: p_srev_tbl IN srev_tbl_type,
847: x_srev_tbl OUT NOCOPY srev_tbl_type) IS
848: i NUMBER := 0;
849: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
850: BEGIN
851: x_return_status := OKC_API.G_RET_STS_SUCCESS;
852: IF p_srev_tbl.COUNT > 0 THEN
853: i := p_srev_tbl.FIRST;
847: x_srev_tbl OUT NOCOPY srev_tbl_type) IS
848: i NUMBER := 0;
849: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
850: BEGIN
851: x_return_status := OKC_API.G_RET_STS_SUCCESS;
852: IF p_srev_tbl.COUNT > 0 THEN
853: i := p_srev_tbl.FIRST;
854: LOOP
855: update_subclass_roles(
859: x_msg_count,
860: x_msg_data,
861: p_srev_tbl(i),
862: x_srev_tbl(i));
863: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
864: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
865: x_return_status := l_return_status;
866: raise G_EXCEPTION_HALT_VALIDATION;
867: ELSE
860: x_msg_data,
861: p_srev_tbl(i),
862: x_srev_tbl(i));
863: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
864: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
865: x_return_status := l_return_status;
866: raise G_EXCEPTION_HALT_VALIDATION;
867: ELSE
868: x_return_status := l_return_status;
875: EXCEPTION
876: WHEN G_EXCEPTION_HALT_VALIDATION THEN
877: NULL;
878: WHEN OTHERS THEN
879: OKC_API.set_message(p_app_name => g_app_name,
880: p_msg_name => g_unexpected_error,
881: p_token1 => g_sqlcode_token,
882: p_token1_value => sqlcode,
883: p_token2 => g_sqlerrm_token,
881: p_token1 => g_sqlcode_token,
882: p_token1_value => sqlcode,
883: p_token2 => g_sqlerrm_token,
884: p_token2_value => sqlerrm);
885: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
886: END update_subclass_roles;
887:
888: PROCEDURE delete_subclass_roles(
889: p_api_version IN NUMBER,
895: l_api_name CONSTANT VARCHAR2(30) := 'delete_subclass_roles';
896: l_return_status VARCHAR2(1);
897: l_srev_rec srev_rec_type := p_srev_rec;
898: BEGIN
899: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
900: p_init_msg_list,
901: '_PUB',
902: x_return_status);
903: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
899: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
900: p_init_msg_list,
901: '_PUB',
902: x_return_status);
903: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
904: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
905: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
906: raise OKC_API.G_EXCEPTION_ERROR;
907: END IF;
900: p_init_msg_list,
901: '_PUB',
902: x_return_status);
903: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
904: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
905: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
906: raise OKC_API.G_EXCEPTION_ERROR;
907: END IF;
908: -- Call user hook for BEFORE
901: '_PUB',
902: x_return_status);
903: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
904: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
905: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
906: raise OKC_API.G_EXCEPTION_ERROR;
907: END IF;
908: -- Call user hook for BEFORE
909: g_srev_rec := l_srev_rec;
902: x_return_status);
903: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
904: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
905: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
906: raise OKC_API.G_EXCEPTION_ERROR;
907: END IF;
908: -- Call user hook for BEFORE
909: g_srev_rec := l_srev_rec;
910: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'B');
907: END IF;
908: -- Call user hook for BEFORE
909: g_srev_rec := l_srev_rec;
910: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'B');
911: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
912: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
913: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
914: raise OKC_API.G_EXCEPTION_ERROR;
915: END IF;
908: -- Call user hook for BEFORE
909: g_srev_rec := l_srev_rec;
910: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'B');
911: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
912: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
913: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
914: raise OKC_API.G_EXCEPTION_ERROR;
915: END IF;
916:
909: g_srev_rec := l_srev_rec;
910: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'B');
911: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
912: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
913: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
914: raise OKC_API.G_EXCEPTION_ERROR;
915: END IF;
916:
917: okc_subclass_pvt.delete_subclass_roles(
910: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'B');
911: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
912: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
913: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
914: raise OKC_API.G_EXCEPTION_ERROR;
915: END IF;
916:
917: okc_subclass_pvt.delete_subclass_roles(
918: p_api_version,
920: x_return_status,
921: x_msg_count,
922: x_msg_data,
923: p_srev_rec);
924: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
925: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
926: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
927: raise OKC_API.G_EXCEPTION_ERROR;
928: END IF;
921: x_msg_count,
922: x_msg_data,
923: p_srev_rec);
924: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
925: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
926: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
927: raise OKC_API.G_EXCEPTION_ERROR;
928: END IF;
929:
922: x_msg_data,
923: p_srev_rec);
924: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
925: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
926: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
927: raise OKC_API.G_EXCEPTION_ERROR;
928: END IF;
929:
930: -- Call user hook for AFTER
923: p_srev_rec);
924: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
925: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
926: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
927: raise OKC_API.G_EXCEPTION_ERROR;
928: END IF;
929:
930: -- Call user hook for AFTER
931: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'A');
928: END IF;
929:
930: -- Call user hook for AFTER
931: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'A');
932: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
933: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
934: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
935: raise OKC_API.G_EXCEPTION_ERROR;
936: END IF;
929:
930: -- Call user hook for AFTER
931: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'A');
932: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
933: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
934: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
935: raise OKC_API.G_EXCEPTION_ERROR;
936: END IF;
937: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
930: -- Call user hook for AFTER
931: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'A');
932: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
933: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
934: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
935: raise OKC_API.G_EXCEPTION_ERROR;
936: END IF;
937: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
938: EXCEPTION
931: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'A');
932: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
933: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
934: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
935: raise OKC_API.G_EXCEPTION_ERROR;
936: END IF;
937: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
938: EXCEPTION
939: WHEN OKC_API.G_EXCEPTION_ERROR THEN
933: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
934: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
935: raise OKC_API.G_EXCEPTION_ERROR;
936: END IF;
937: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
938: EXCEPTION
939: WHEN OKC_API.G_EXCEPTION_ERROR THEN
940: x_return_status := OKC_API.HANDLE_EXCEPTIONS
941: (l_api_name,
935: raise OKC_API.G_EXCEPTION_ERROR;
936: END IF;
937: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
938: EXCEPTION
939: WHEN OKC_API.G_EXCEPTION_ERROR THEN
940: x_return_status := OKC_API.HANDLE_EXCEPTIONS
941: (l_api_name,
942: G_PKG_NAME,
943: 'OKC_API.G_RET_STS_ERROR',
936: END IF;
937: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
938: EXCEPTION
939: WHEN OKC_API.G_EXCEPTION_ERROR THEN
940: x_return_status := OKC_API.HANDLE_EXCEPTIONS
941: (l_api_name,
942: G_PKG_NAME,
943: 'OKC_API.G_RET_STS_ERROR',
944: x_msg_count,
939: WHEN OKC_API.G_EXCEPTION_ERROR THEN
940: x_return_status := OKC_API.HANDLE_EXCEPTIONS
941: (l_api_name,
942: G_PKG_NAME,
943: 'OKC_API.G_RET_STS_ERROR',
944: x_msg_count,
945: x_msg_data,
946: '_PUB');
947: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
943: 'OKC_API.G_RET_STS_ERROR',
944: x_msg_count,
945: x_msg_data,
946: '_PUB');
947: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
948: x_return_status := OKC_API.HANDLE_EXCEPTIONS
949: (l_api_name,
950: G_PKG_NAME,
951: 'OKC_API.G_RET_STS_UNEXP_ERROR',
944: x_msg_count,
945: x_msg_data,
946: '_PUB');
947: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
948: x_return_status := OKC_API.HANDLE_EXCEPTIONS
949: (l_api_name,
950: G_PKG_NAME,
951: 'OKC_API.G_RET_STS_UNEXP_ERROR',
952: x_msg_count,
947: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
948: x_return_status := OKC_API.HANDLE_EXCEPTIONS
949: (l_api_name,
950: G_PKG_NAME,
951: 'OKC_API.G_RET_STS_UNEXP_ERROR',
952: x_msg_count,
953: x_msg_data,
954: '_PUB');
955: WHEN OTHERS THEN
952: x_msg_count,
953: x_msg_data,
954: '_PUB');
955: WHEN OTHERS THEN
956: x_return_status := OKC_API.HANDLE_EXCEPTIONS
957: (l_api_name,
958: G_PKG_NAME,
959: 'OTHERS',
960: x_msg_count,
969: x_msg_count OUT NOCOPY NUMBER,
970: x_msg_data OUT NOCOPY VARCHAR2,
971: p_srev_tbl IN srev_tbl_type) IS
972: i NUMBER := 0;
973: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
974: BEGIN
975: x_return_status := OKC_API.G_RET_STS_SUCCESS;
976: IF p_srev_tbl.COUNT > 0 THEN
977: i := p_srev_tbl.FIRST;
971: p_srev_tbl IN srev_tbl_type) IS
972: i NUMBER := 0;
973: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
974: BEGIN
975: x_return_status := OKC_API.G_RET_STS_SUCCESS;
976: IF p_srev_tbl.COUNT > 0 THEN
977: i := p_srev_tbl.FIRST;
978: LOOP
979: delete_subclass_roles(
982: l_return_status,
983: x_msg_count,
984: x_msg_data,
985: p_srev_tbl(i));
986: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
987: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
988: x_return_status := l_return_status;
989: raise G_EXCEPTION_HALT_VALIDATION;
990: ELSE
983: x_msg_count,
984: x_msg_data,
985: p_srev_tbl(i));
986: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
987: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
988: x_return_status := l_return_status;
989: raise G_EXCEPTION_HALT_VALIDATION;
990: ELSE
991: x_return_status := l_return_status;
998: EXCEPTION
999: WHEN G_EXCEPTION_HALT_VALIDATION THEN
1000: NULL;
1001: WHEN OTHERS THEN
1002: OKC_API.set_message(p_app_name => g_app_name,
1003: p_msg_name => g_unexpected_error,
1004: p_token1 => g_sqlcode_token,
1005: p_token1_value => sqlcode,
1006: p_token2 => g_sqlerrm_token,
1004: p_token1 => g_sqlcode_token,
1005: p_token1_value => sqlcode,
1006: p_token2 => g_sqlerrm_token,
1007: p_token2_value => sqlerrm);
1008: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
1009: END delete_subclass_roles;
1010:
1011: PROCEDURE lock_subclass_roles(
1012: p_api_version IN NUMBER,
1087: l_api_name CONSTANT VARCHAR2(30) := 'create_subclass_rg_defs';
1088: l_return_status VARCHAR2(1);
1089: l_srdv_rec srdv_rec_type := p_srdv_rec;
1090: BEGIN
1091: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
1092: p_init_msg_list,
1093: '_PUB',
1094: x_return_status);
1095: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1091: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
1092: p_init_msg_list,
1093: '_PUB',
1094: x_return_status);
1095: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1096: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1097: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1098: raise OKC_API.G_EXCEPTION_ERROR;
1099: END IF;
1092: p_init_msg_list,
1093: '_PUB',
1094: x_return_status);
1095: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1096: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1097: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1098: raise OKC_API.G_EXCEPTION_ERROR;
1099: END IF;
1100: -- Call user hook for BEFORE
1093: '_PUB',
1094: x_return_status);
1095: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1096: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1097: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1098: raise OKC_API.G_EXCEPTION_ERROR;
1099: END IF;
1100: -- Call user hook for BEFORE
1101: g_srdv_rec := l_srdv_rec;
1094: x_return_status);
1095: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1096: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1097: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1098: raise OKC_API.G_EXCEPTION_ERROR;
1099: END IF;
1100: -- Call user hook for BEFORE
1101: g_srdv_rec := l_srdv_rec;
1102: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'B');
1099: END IF;
1100: -- Call user hook for BEFORE
1101: g_srdv_rec := l_srdv_rec;
1102: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'B');
1103: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1104: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1105: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1106: raise OKC_API.G_EXCEPTION_ERROR;
1107: END IF;
1100: -- Call user hook for BEFORE
1101: g_srdv_rec := l_srdv_rec;
1102: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'B');
1103: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1104: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1105: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1106: raise OKC_API.G_EXCEPTION_ERROR;
1107: END IF;
1108: l_srdv_rec := migrate_srdv(l_srdv_rec, g_srdv_rec);
1101: g_srdv_rec := l_srdv_rec;
1102: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'B');
1103: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1104: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1105: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1106: raise OKC_API.G_EXCEPTION_ERROR;
1107: END IF;
1108: l_srdv_rec := migrate_srdv(l_srdv_rec, g_srdv_rec);
1109:
1102: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'B');
1103: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1104: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1105: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1106: raise OKC_API.G_EXCEPTION_ERROR;
1107: END IF;
1108: l_srdv_rec := migrate_srdv(l_srdv_rec, g_srdv_rec);
1109:
1110: okc_subclass_pvt.create_subclass_rg_defs(
1114: x_msg_count,
1115: x_msg_data,
1116: l_srdv_rec,
1117: x_srdv_rec);
1118: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1119: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1120: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1121: raise OKC_API.G_EXCEPTION_ERROR;
1122: END IF;
1115: x_msg_data,
1116: l_srdv_rec,
1117: x_srdv_rec);
1118: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1119: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1120: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1121: raise OKC_API.G_EXCEPTION_ERROR;
1122: END IF;
1123:
1116: l_srdv_rec,
1117: x_srdv_rec);
1118: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1119: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1120: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1121: raise OKC_API.G_EXCEPTION_ERROR;
1122: END IF;
1123:
1124: -- Call user hook for AFTER
1117: x_srdv_rec);
1118: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1119: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1120: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1121: raise OKC_API.G_EXCEPTION_ERROR;
1122: END IF;
1123:
1124: -- Call user hook for AFTER
1125: g_srdv_rec := x_srdv_rec;
1123:
1124: -- Call user hook for AFTER
1125: g_srdv_rec := x_srdv_rec;
1126: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'A');
1127: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1128: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1129: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1130: raise OKC_API.G_EXCEPTION_ERROR;
1131: END IF;
1124: -- Call user hook for AFTER
1125: g_srdv_rec := x_srdv_rec;
1126: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'A');
1127: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1128: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1129: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1130: raise OKC_API.G_EXCEPTION_ERROR;
1131: END IF;
1132: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1125: g_srdv_rec := x_srdv_rec;
1126: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'A');
1127: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1128: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1129: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1130: raise OKC_API.G_EXCEPTION_ERROR;
1131: END IF;
1132: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1133: EXCEPTION
1126: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'A');
1127: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1128: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1129: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1130: raise OKC_API.G_EXCEPTION_ERROR;
1131: END IF;
1132: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1133: EXCEPTION
1134: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1128: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1129: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1130: raise OKC_API.G_EXCEPTION_ERROR;
1131: END IF;
1132: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1133: EXCEPTION
1134: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1135: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1136: (l_api_name,
1130: raise OKC_API.G_EXCEPTION_ERROR;
1131: END IF;
1132: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1133: EXCEPTION
1134: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1135: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1136: (l_api_name,
1137: G_PKG_NAME,
1138: 'OKC_API.G_RET_STS_ERROR',
1131: END IF;
1132: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1133: EXCEPTION
1134: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1135: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1136: (l_api_name,
1137: G_PKG_NAME,
1138: 'OKC_API.G_RET_STS_ERROR',
1139: x_msg_count,
1134: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1135: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1136: (l_api_name,
1137: G_PKG_NAME,
1138: 'OKC_API.G_RET_STS_ERROR',
1139: x_msg_count,
1140: x_msg_data,
1141: '_PUB');
1142: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1138: 'OKC_API.G_RET_STS_ERROR',
1139: x_msg_count,
1140: x_msg_data,
1141: '_PUB');
1142: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1143: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1144: (l_api_name,
1145: G_PKG_NAME,
1146: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1139: x_msg_count,
1140: x_msg_data,
1141: '_PUB');
1142: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1143: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1144: (l_api_name,
1145: G_PKG_NAME,
1146: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1147: x_msg_count,
1142: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1143: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1144: (l_api_name,
1145: G_PKG_NAME,
1146: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1147: x_msg_count,
1148: x_msg_data,
1149: '_PUB');
1150: WHEN OTHERS THEN
1147: x_msg_count,
1148: x_msg_data,
1149: '_PUB');
1150: WHEN OTHERS THEN
1151: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1152: (l_api_name,
1153: G_PKG_NAME,
1154: 'OTHERS',
1155: x_msg_count,
1165: x_msg_data OUT NOCOPY VARCHAR2,
1166: p_srdv_tbl IN srdv_tbl_type,
1167: x_srdv_tbl OUT NOCOPY srdv_tbl_type) IS
1168: i NUMBER := 0;
1169: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1170: BEGIN
1171: x_return_status := OKC_API.G_RET_STS_SUCCESS;
1172: IF p_srdv_tbl.COUNT > 0 THEN
1173: i := p_srdv_tbl.FIRST;
1167: x_srdv_tbl OUT NOCOPY srdv_tbl_type) IS
1168: i NUMBER := 0;
1169: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1170: BEGIN
1171: x_return_status := OKC_API.G_RET_STS_SUCCESS;
1172: IF p_srdv_tbl.COUNT > 0 THEN
1173: i := p_srdv_tbl.FIRST;
1174: LOOP
1175: create_subclass_rg_defs(
1179: x_msg_count,
1180: x_msg_data,
1181: p_srdv_tbl(i),
1182: x_srdv_tbl(i));
1183: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
1184: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1185: x_return_status := l_return_status;
1186: raise G_EXCEPTION_HALT_VALIDATION;
1187: ELSE
1180: x_msg_data,
1181: p_srdv_tbl(i),
1182: x_srdv_tbl(i));
1183: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
1184: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1185: x_return_status := l_return_status;
1186: raise G_EXCEPTION_HALT_VALIDATION;
1187: ELSE
1188: x_return_status := l_return_status;
1195: EXCEPTION
1196: WHEN G_EXCEPTION_HALT_VALIDATION THEN
1197: NULL;
1198: WHEN OTHERS THEN
1199: OKC_API.set_message(p_app_name => g_app_name,
1200: p_msg_name => g_unexpected_error,
1201: p_token1 => g_sqlcode_token,
1202: p_token1_value => sqlcode,
1203: p_token2 => g_sqlerrm_token,
1201: p_token1 => g_sqlcode_token,
1202: p_token1_value => sqlcode,
1203: p_token2 => g_sqlerrm_token,
1204: p_token2_value => sqlerrm);
1205: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
1206: END create_subclass_rg_defs;
1207:
1208: PROCEDURE update_subclass_rg_defs(
1209: p_api_version IN NUMBER,
1216: l_api_name CONSTANT VARCHAR2(30) := 'update_subclass_rg_defs';
1217: l_return_status VARCHAR2(1);
1218: l_srdv_rec srdv_rec_type := p_srdv_rec;
1219: BEGIN
1220: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
1221: p_init_msg_list,
1222: '_PUB',
1223: x_return_status);
1224: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1220: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
1221: p_init_msg_list,
1222: '_PUB',
1223: x_return_status);
1224: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1225: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1226: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1227: raise OKC_API.G_EXCEPTION_ERROR;
1228: END IF;
1221: p_init_msg_list,
1222: '_PUB',
1223: x_return_status);
1224: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1225: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1226: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1227: raise OKC_API.G_EXCEPTION_ERROR;
1228: END IF;
1229: -- Call user hook for BEFORE
1222: '_PUB',
1223: x_return_status);
1224: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1225: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1226: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1227: raise OKC_API.G_EXCEPTION_ERROR;
1228: END IF;
1229: -- Call user hook for BEFORE
1230: g_srdv_rec := l_srdv_rec;
1223: x_return_status);
1224: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1225: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1226: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1227: raise OKC_API.G_EXCEPTION_ERROR;
1228: END IF;
1229: -- Call user hook for BEFORE
1230: g_srdv_rec := l_srdv_rec;
1231: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'B');
1228: END IF;
1229: -- Call user hook for BEFORE
1230: g_srdv_rec := l_srdv_rec;
1231: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'B');
1232: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1233: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1234: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1235: raise OKC_API.G_EXCEPTION_ERROR;
1236: END IF;
1229: -- Call user hook for BEFORE
1230: g_srdv_rec := l_srdv_rec;
1231: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'B');
1232: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1233: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1234: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1235: raise OKC_API.G_EXCEPTION_ERROR;
1236: END IF;
1237: l_srdv_rec := migrate_srdv(l_srdv_rec, g_srdv_rec);
1230: g_srdv_rec := l_srdv_rec;
1231: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'B');
1232: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1233: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1234: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1235: raise OKC_API.G_EXCEPTION_ERROR;
1236: END IF;
1237: l_srdv_rec := migrate_srdv(l_srdv_rec, g_srdv_rec);
1238:
1231: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'B');
1232: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1233: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1234: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1235: raise OKC_API.G_EXCEPTION_ERROR;
1236: END IF;
1237: l_srdv_rec := migrate_srdv(l_srdv_rec, g_srdv_rec);
1238:
1239: okc_subclass_pvt.update_subclass_rg_defs(
1243: x_msg_count,
1244: x_msg_data,
1245: l_srdv_rec,
1246: x_srdv_rec);
1247: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1248: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1249: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1250: raise OKC_API.G_EXCEPTION_ERROR;
1251: END IF;
1244: x_msg_data,
1245: l_srdv_rec,
1246: x_srdv_rec);
1247: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1248: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1249: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1250: raise OKC_API.G_EXCEPTION_ERROR;
1251: END IF;
1252:
1245: l_srdv_rec,
1246: x_srdv_rec);
1247: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1248: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1249: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1250: raise OKC_API.G_EXCEPTION_ERROR;
1251: END IF;
1252:
1253: -- Call user hook for AFTER
1246: x_srdv_rec);
1247: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1248: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1249: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1250: raise OKC_API.G_EXCEPTION_ERROR;
1251: END IF;
1252:
1253: -- Call user hook for AFTER
1254: g_srdv_rec := x_srdv_rec;
1252:
1253: -- Call user hook for AFTER
1254: g_srdv_rec := x_srdv_rec;
1255: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'A');
1256: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1257: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1258: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1259: raise OKC_API.G_EXCEPTION_ERROR;
1260: END IF;
1253: -- Call user hook for AFTER
1254: g_srdv_rec := x_srdv_rec;
1255: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'A');
1256: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1257: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1258: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1259: raise OKC_API.G_EXCEPTION_ERROR;
1260: END IF;
1261: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1254: g_srdv_rec := x_srdv_rec;
1255: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'A');
1256: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1257: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1258: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1259: raise OKC_API.G_EXCEPTION_ERROR;
1260: END IF;
1261: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1262: EXCEPTION
1255: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'A');
1256: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1257: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1258: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1259: raise OKC_API.G_EXCEPTION_ERROR;
1260: END IF;
1261: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1262: EXCEPTION
1263: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1257: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1258: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1259: raise OKC_API.G_EXCEPTION_ERROR;
1260: END IF;
1261: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1262: EXCEPTION
1263: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1264: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1265: (l_api_name,
1259: raise OKC_API.G_EXCEPTION_ERROR;
1260: END IF;
1261: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1262: EXCEPTION
1263: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1264: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1265: (l_api_name,
1266: G_PKG_NAME,
1267: 'OKC_API.G_RET_STS_ERROR',
1260: END IF;
1261: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1262: EXCEPTION
1263: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1264: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1265: (l_api_name,
1266: G_PKG_NAME,
1267: 'OKC_API.G_RET_STS_ERROR',
1268: x_msg_count,
1263: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1264: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1265: (l_api_name,
1266: G_PKG_NAME,
1267: 'OKC_API.G_RET_STS_ERROR',
1268: x_msg_count,
1269: x_msg_data,
1270: '_PUB');
1271: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1267: 'OKC_API.G_RET_STS_ERROR',
1268: x_msg_count,
1269: x_msg_data,
1270: '_PUB');
1271: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1272: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1273: (l_api_name,
1274: G_PKG_NAME,
1275: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1268: x_msg_count,
1269: x_msg_data,
1270: '_PUB');
1271: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1272: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1273: (l_api_name,
1274: G_PKG_NAME,
1275: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1276: x_msg_count,
1271: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1272: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1273: (l_api_name,
1274: G_PKG_NAME,
1275: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1276: x_msg_count,
1277: x_msg_data,
1278: '_PUB');
1279: WHEN OTHERS THEN
1276: x_msg_count,
1277: x_msg_data,
1278: '_PUB');
1279: WHEN OTHERS THEN
1280: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1281: (l_api_name,
1282: G_PKG_NAME,
1283: 'OTHERS',
1284: x_msg_count,
1294: x_msg_data OUT NOCOPY VARCHAR2,
1295: p_srdv_tbl IN srdv_tbl_type,
1296: x_srdv_tbl OUT NOCOPY srdv_tbl_type) IS
1297: i NUMBER := 0;
1298: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1299: BEGIN
1300: x_return_status := OKC_API.G_RET_STS_SUCCESS;
1301: IF p_srdv_tbl.COUNT > 0 THEN
1302: i := p_srdv_tbl.FIRST;
1296: x_srdv_tbl OUT NOCOPY srdv_tbl_type) IS
1297: i NUMBER := 0;
1298: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1299: BEGIN
1300: x_return_status := OKC_API.G_RET_STS_SUCCESS;
1301: IF p_srdv_tbl.COUNT > 0 THEN
1302: i := p_srdv_tbl.FIRST;
1303: LOOP
1304: update_subclass_rg_defs(
1308: x_msg_count,
1309: x_msg_data,
1310: p_srdv_tbl(i),
1311: x_srdv_tbl(i));
1312: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
1313: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1314: x_return_status := l_return_status;
1315: raise G_EXCEPTION_HALT_VALIDATION;
1316: ELSE
1309: x_msg_data,
1310: p_srdv_tbl(i),
1311: x_srdv_tbl(i));
1312: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
1313: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1314: x_return_status := l_return_status;
1315: raise G_EXCEPTION_HALT_VALIDATION;
1316: ELSE
1317: x_return_status := l_return_status;
1324: EXCEPTION
1325: WHEN G_EXCEPTION_HALT_VALIDATION THEN
1326: NULL;
1327: WHEN OTHERS THEN
1328: OKC_API.set_message(p_app_name => g_app_name,
1329: p_msg_name => g_unexpected_error,
1330: p_token1 => g_sqlcode_token,
1331: p_token1_value => sqlcode,
1332: p_token2 => g_sqlerrm_token,
1330: p_token1 => g_sqlcode_token,
1331: p_token1_value => sqlcode,
1332: p_token2 => g_sqlerrm_token,
1333: p_token2_value => sqlerrm);
1334: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
1335: END update_subclass_rg_defs;
1336:
1337: PROCEDURE delete_subclass_rg_defs(
1338: p_api_version IN NUMBER,
1344: l_api_name CONSTANT VARCHAR2(30) := 'delete_subclass_rg_defs';
1345: l_return_status VARCHAR2(1);
1346: l_srdv_rec srdv_rec_type := p_srdv_rec;
1347: BEGIN
1348: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
1349: p_init_msg_list,
1350: '_PUB',
1351: x_return_status);
1352: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1348: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
1349: p_init_msg_list,
1350: '_PUB',
1351: x_return_status);
1352: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1353: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1354: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1355: raise OKC_API.G_EXCEPTION_ERROR;
1356: END IF;
1349: p_init_msg_list,
1350: '_PUB',
1351: x_return_status);
1352: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1353: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1354: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1355: raise OKC_API.G_EXCEPTION_ERROR;
1356: END IF;
1357: -- Call user hook for BEFORE
1350: '_PUB',
1351: x_return_status);
1352: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1353: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1354: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1355: raise OKC_API.G_EXCEPTION_ERROR;
1356: END IF;
1357: -- Call user hook for BEFORE
1358: g_srdv_rec := l_srdv_rec;
1351: x_return_status);
1352: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1353: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1354: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1355: raise OKC_API.G_EXCEPTION_ERROR;
1356: END IF;
1357: -- Call user hook for BEFORE
1358: g_srdv_rec := l_srdv_rec;
1359: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'B');
1356: END IF;
1357: -- Call user hook for BEFORE
1358: g_srdv_rec := l_srdv_rec;
1359: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'B');
1360: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1361: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1362: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1363: raise OKC_API.G_EXCEPTION_ERROR;
1364: END IF;
1357: -- Call user hook for BEFORE
1358: g_srdv_rec := l_srdv_rec;
1359: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'B');
1360: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1361: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1362: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1363: raise OKC_API.G_EXCEPTION_ERROR;
1364: END IF;
1365:
1358: g_srdv_rec := l_srdv_rec;
1359: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'B');
1360: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1361: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1362: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1363: raise OKC_API.G_EXCEPTION_ERROR;
1364: END IF;
1365:
1366: okc_subclass_pvt.delete_subclass_rg_defs(
1359: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'B');
1360: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1361: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1362: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1363: raise OKC_API.G_EXCEPTION_ERROR;
1364: END IF;
1365:
1366: okc_subclass_pvt.delete_subclass_rg_defs(
1367: p_api_version,
1369: x_return_status,
1370: x_msg_count,
1371: x_msg_data,
1372: p_srdv_rec);
1373: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1374: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1375: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1376: raise OKC_API.G_EXCEPTION_ERROR;
1377: END IF;
1370: x_msg_count,
1371: x_msg_data,
1372: p_srdv_rec);
1373: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1374: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1375: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1376: raise OKC_API.G_EXCEPTION_ERROR;
1377: END IF;
1378:
1371: x_msg_data,
1372: p_srdv_rec);
1373: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1374: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1375: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1376: raise OKC_API.G_EXCEPTION_ERROR;
1377: END IF;
1378:
1379: -- Call user hook for AFTER
1372: p_srdv_rec);
1373: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1374: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1375: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1376: raise OKC_API.G_EXCEPTION_ERROR;
1377: END IF;
1378:
1379: -- Call user hook for AFTER
1380: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'A');
1377: END IF;
1378:
1379: -- Call user hook for AFTER
1380: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'A');
1381: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1382: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1383: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1384: raise OKC_API.G_EXCEPTION_ERROR;
1385: END IF;
1378:
1379: -- Call user hook for AFTER
1380: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'A');
1381: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1382: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1383: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1384: raise OKC_API.G_EXCEPTION_ERROR;
1385: END IF;
1386: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1379: -- Call user hook for AFTER
1380: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'A');
1381: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1382: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1383: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1384: raise OKC_API.G_EXCEPTION_ERROR;
1385: END IF;
1386: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1387: EXCEPTION
1380: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'A');
1381: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1382: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1383: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1384: raise OKC_API.G_EXCEPTION_ERROR;
1385: END IF;
1386: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1387: EXCEPTION
1388: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1382: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1383: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1384: raise OKC_API.G_EXCEPTION_ERROR;
1385: END IF;
1386: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1387: EXCEPTION
1388: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1389: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1390: (l_api_name,
1384: raise OKC_API.G_EXCEPTION_ERROR;
1385: END IF;
1386: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1387: EXCEPTION
1388: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1389: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1390: (l_api_name,
1391: G_PKG_NAME,
1392: 'OKC_API.G_RET_STS_ERROR',
1385: END IF;
1386: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1387: EXCEPTION
1388: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1389: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1390: (l_api_name,
1391: G_PKG_NAME,
1392: 'OKC_API.G_RET_STS_ERROR',
1393: x_msg_count,
1388: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1389: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1390: (l_api_name,
1391: G_PKG_NAME,
1392: 'OKC_API.G_RET_STS_ERROR',
1393: x_msg_count,
1394: x_msg_data,
1395: '_PUB');
1396: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1392: 'OKC_API.G_RET_STS_ERROR',
1393: x_msg_count,
1394: x_msg_data,
1395: '_PUB');
1396: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1397: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1398: (l_api_name,
1399: G_PKG_NAME,
1400: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1393: x_msg_count,
1394: x_msg_data,
1395: '_PUB');
1396: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1397: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1398: (l_api_name,
1399: G_PKG_NAME,
1400: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1401: x_msg_count,
1396: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1397: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1398: (l_api_name,
1399: G_PKG_NAME,
1400: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1401: x_msg_count,
1402: x_msg_data,
1403: '_PUB');
1404: WHEN OTHERS THEN
1401: x_msg_count,
1402: x_msg_data,
1403: '_PUB');
1404: WHEN OTHERS THEN
1405: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1406: (l_api_name,
1407: G_PKG_NAME,
1408: 'OTHERS',
1409: x_msg_count,
1418: x_msg_count OUT NOCOPY NUMBER,
1419: x_msg_data OUT NOCOPY VARCHAR2,
1420: p_srdv_tbl IN srdv_tbl_type) IS
1421: i NUMBER := 0;
1422: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1423: BEGIN
1424: x_return_status := OKC_API.G_RET_STS_SUCCESS;
1425: IF p_srdv_tbl.COUNT > 0 THEN
1426: i := p_srdv_tbl.FIRST;
1420: p_srdv_tbl IN srdv_tbl_type) IS
1421: i NUMBER := 0;
1422: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1423: BEGIN
1424: x_return_status := OKC_API.G_RET_STS_SUCCESS;
1425: IF p_srdv_tbl.COUNT > 0 THEN
1426: i := p_srdv_tbl.FIRST;
1427: LOOP
1428: delete_subclass_rg_defs(
1431: l_return_status,
1432: x_msg_count,
1433: x_msg_data,
1434: p_srdv_tbl(i));
1435: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
1436: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1437: x_return_status := l_return_status;
1438: raise G_EXCEPTION_HALT_VALIDATION;
1439: ELSE
1432: x_msg_count,
1433: x_msg_data,
1434: p_srdv_tbl(i));
1435: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
1436: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1437: x_return_status := l_return_status;
1438: raise G_EXCEPTION_HALT_VALIDATION;
1439: ELSE
1440: x_return_status := l_return_status;
1447: EXCEPTION
1448: WHEN G_EXCEPTION_HALT_VALIDATION THEN
1449: NULL;
1450: WHEN OTHERS THEN
1451: OKC_API.set_message(p_app_name => g_app_name,
1452: p_msg_name => g_unexpected_error,
1453: p_token1 => g_sqlcode_token,
1454: p_token1_value => sqlcode,
1455: p_token2 => g_sqlerrm_token,
1453: p_token1 => g_sqlcode_token,
1454: p_token1_value => sqlcode,
1455: p_token2 => g_sqlerrm_token,
1456: p_token2_value => sqlerrm);
1457: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
1458: END delete_subclass_rg_defs;
1459:
1460: PROCEDURE lock_subclass_rg_defs(
1461: p_api_version IN NUMBER,
1536: l_api_name CONSTANT VARCHAR2(30) := 'create_rg_role_defs';
1537: l_return_status VARCHAR2(1);
1538: l_rrdv_rec rrdv_rec_type := p_rrdv_rec;
1539: BEGIN
1540: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
1541: p_init_msg_list,
1542: '_PUB',
1543: x_return_status);
1544: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1540: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
1541: p_init_msg_list,
1542: '_PUB',
1543: x_return_status);
1544: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1545: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1546: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1547: raise OKC_API.G_EXCEPTION_ERROR;
1548: END IF;
1541: p_init_msg_list,
1542: '_PUB',
1543: x_return_status);
1544: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1545: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1546: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1547: raise OKC_API.G_EXCEPTION_ERROR;
1548: END IF;
1549: -- Call user hook for BEFORE
1542: '_PUB',
1543: x_return_status);
1544: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1545: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1546: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1547: raise OKC_API.G_EXCEPTION_ERROR;
1548: END IF;
1549: -- Call user hook for BEFORE
1550: g_rrdv_rec := l_rrdv_rec;
1543: x_return_status);
1544: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1545: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1546: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1547: raise OKC_API.G_EXCEPTION_ERROR;
1548: END IF;
1549: -- Call user hook for BEFORE
1550: g_rrdv_rec := l_rrdv_rec;
1551: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'B');
1548: END IF;
1549: -- Call user hook for BEFORE
1550: g_rrdv_rec := l_rrdv_rec;
1551: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'B');
1552: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1553: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1554: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1555: raise OKC_API.G_EXCEPTION_ERROR;
1556: END IF;
1549: -- Call user hook for BEFORE
1550: g_rrdv_rec := l_rrdv_rec;
1551: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'B');
1552: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1553: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1554: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1555: raise OKC_API.G_EXCEPTION_ERROR;
1556: END IF;
1557: l_rrdv_rec := migrate_rrdv(l_rrdv_rec, g_rrdv_rec);
1550: g_rrdv_rec := l_rrdv_rec;
1551: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'B');
1552: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1553: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1554: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1555: raise OKC_API.G_EXCEPTION_ERROR;
1556: END IF;
1557: l_rrdv_rec := migrate_rrdv(l_rrdv_rec, g_rrdv_rec);
1558:
1551: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'B');
1552: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1553: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1554: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1555: raise OKC_API.G_EXCEPTION_ERROR;
1556: END IF;
1557: l_rrdv_rec := migrate_rrdv(l_rrdv_rec, g_rrdv_rec);
1558:
1559: okc_subclass_pvt.create_rg_role_defs(
1563: x_msg_count,
1564: x_msg_data,
1565: l_rrdv_rec,
1566: x_rrdv_rec);
1567: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1568: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1569: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1570: raise OKC_API.G_EXCEPTION_ERROR;
1571: END IF;
1564: x_msg_data,
1565: l_rrdv_rec,
1566: x_rrdv_rec);
1567: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1568: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1569: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1570: raise OKC_API.G_EXCEPTION_ERROR;
1571: END IF;
1572:
1565: l_rrdv_rec,
1566: x_rrdv_rec);
1567: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1568: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1569: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1570: raise OKC_API.G_EXCEPTION_ERROR;
1571: END IF;
1572:
1573: -- Call user hook for AFTER
1566: x_rrdv_rec);
1567: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1568: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1569: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1570: raise OKC_API.G_EXCEPTION_ERROR;
1571: END IF;
1572:
1573: -- Call user hook for AFTER
1574: g_rrdv_rec := x_rrdv_rec;
1572:
1573: -- Call user hook for AFTER
1574: g_rrdv_rec := x_rrdv_rec;
1575: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'A');
1576: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1577: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1578: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1579: raise OKC_API.G_EXCEPTION_ERROR;
1580: END IF;
1573: -- Call user hook for AFTER
1574: g_rrdv_rec := x_rrdv_rec;
1575: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'A');
1576: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1577: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1578: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1579: raise OKC_API.G_EXCEPTION_ERROR;
1580: END IF;
1581: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1574: g_rrdv_rec := x_rrdv_rec;
1575: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'A');
1576: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1577: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1578: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1579: raise OKC_API.G_EXCEPTION_ERROR;
1580: END IF;
1581: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1582: EXCEPTION
1575: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'A');
1576: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1577: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1578: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1579: raise OKC_API.G_EXCEPTION_ERROR;
1580: END IF;
1581: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1582: EXCEPTION
1583: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1577: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1578: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1579: raise OKC_API.G_EXCEPTION_ERROR;
1580: END IF;
1581: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1582: EXCEPTION
1583: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1584: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1585: (l_api_name,
1579: raise OKC_API.G_EXCEPTION_ERROR;
1580: END IF;
1581: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1582: EXCEPTION
1583: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1584: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1585: (l_api_name,
1586: G_PKG_NAME,
1587: 'OKC_API.G_RET_STS_ERROR',
1580: END IF;
1581: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1582: EXCEPTION
1583: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1584: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1585: (l_api_name,
1586: G_PKG_NAME,
1587: 'OKC_API.G_RET_STS_ERROR',
1588: x_msg_count,
1583: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1584: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1585: (l_api_name,
1586: G_PKG_NAME,
1587: 'OKC_API.G_RET_STS_ERROR',
1588: x_msg_count,
1589: x_msg_data,
1590: '_PUB');
1591: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1587: 'OKC_API.G_RET_STS_ERROR',
1588: x_msg_count,
1589: x_msg_data,
1590: '_PUB');
1591: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1592: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1593: (l_api_name,
1594: G_PKG_NAME,
1595: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1588: x_msg_count,
1589: x_msg_data,
1590: '_PUB');
1591: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1592: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1593: (l_api_name,
1594: G_PKG_NAME,
1595: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1596: x_msg_count,
1591: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1592: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1593: (l_api_name,
1594: G_PKG_NAME,
1595: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1596: x_msg_count,
1597: x_msg_data,
1598: '_PUB');
1599: WHEN OTHERS THEN
1596: x_msg_count,
1597: x_msg_data,
1598: '_PUB');
1599: WHEN OTHERS THEN
1600: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1601: (l_api_name,
1602: G_PKG_NAME,
1603: 'OTHERS',
1604: x_msg_count,
1614: x_msg_data OUT NOCOPY VARCHAR2,
1615: p_rrdv_tbl IN rrdv_tbl_type,
1616: x_rrdv_tbl OUT NOCOPY rrdv_tbl_type) IS
1617: i NUMBER := 0;
1618: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1619: BEGIN
1620: x_return_status := OKC_API.G_RET_STS_SUCCESS;
1621: IF p_rrdv_tbl.COUNT > 0 THEN
1622: i := p_rrdv_tbl.FIRST;
1616: x_rrdv_tbl OUT NOCOPY rrdv_tbl_type) IS
1617: i NUMBER := 0;
1618: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1619: BEGIN
1620: x_return_status := OKC_API.G_RET_STS_SUCCESS;
1621: IF p_rrdv_tbl.COUNT > 0 THEN
1622: i := p_rrdv_tbl.FIRST;
1623: LOOP
1624: create_rg_role_defs(
1628: x_msg_count,
1629: x_msg_data,
1630: p_rrdv_tbl(i),
1631: x_rrdv_tbl(i));
1632: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
1633: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1634: x_return_status := l_return_status;
1635: raise G_EXCEPTION_HALT_VALIDATION;
1636: ELSE
1629: x_msg_data,
1630: p_rrdv_tbl(i),
1631: x_rrdv_tbl(i));
1632: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
1633: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1634: x_return_status := l_return_status;
1635: raise G_EXCEPTION_HALT_VALIDATION;
1636: ELSE
1637: x_return_status := l_return_status;
1644: EXCEPTION
1645: WHEN G_EXCEPTION_HALT_VALIDATION THEN
1646: NULL;
1647: WHEN OTHERS THEN
1648: OKC_API.set_message(p_app_name => g_app_name,
1649: p_msg_name => g_unexpected_error,
1650: p_token1 => g_sqlcode_token,
1651: p_token1_value => sqlcode,
1652: p_token2 => g_sqlerrm_token,
1650: p_token1 => g_sqlcode_token,
1651: p_token1_value => sqlcode,
1652: p_token2 => g_sqlerrm_token,
1653: p_token2_value => sqlerrm);
1654: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
1655: END create_rg_role_defs;
1656:
1657: PROCEDURE update_rg_role_defs(
1658: p_api_version IN NUMBER,
1665: l_api_name CONSTANT VARCHAR2(30) := 'update_rg_role_defs';
1666: l_return_status VARCHAR2(1);
1667: l_rrdv_rec rrdv_rec_type := p_rrdv_rec;
1668: BEGIN
1669: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
1670: p_init_msg_list,
1671: '_PUB',
1672: x_return_status);
1673: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1669: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
1670: p_init_msg_list,
1671: '_PUB',
1672: x_return_status);
1673: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1674: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1675: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1676: raise OKC_API.G_EXCEPTION_ERROR;
1677: END IF;
1670: p_init_msg_list,
1671: '_PUB',
1672: x_return_status);
1673: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1674: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1675: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1676: raise OKC_API.G_EXCEPTION_ERROR;
1677: END IF;
1678: -- Call user hook for BEFORE
1671: '_PUB',
1672: x_return_status);
1673: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1674: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1675: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1676: raise OKC_API.G_EXCEPTION_ERROR;
1677: END IF;
1678: -- Call user hook for BEFORE
1679: g_rrdv_rec := l_rrdv_rec;
1672: x_return_status);
1673: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1674: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1675: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1676: raise OKC_API.G_EXCEPTION_ERROR;
1677: END IF;
1678: -- Call user hook for BEFORE
1679: g_rrdv_rec := l_rrdv_rec;
1680: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'B');
1677: END IF;
1678: -- Call user hook for BEFORE
1679: g_rrdv_rec := l_rrdv_rec;
1680: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'B');
1681: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1682: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1683: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1684: raise OKC_API.G_EXCEPTION_ERROR;
1685: END IF;
1678: -- Call user hook for BEFORE
1679: g_rrdv_rec := l_rrdv_rec;
1680: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'B');
1681: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1682: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1683: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1684: raise OKC_API.G_EXCEPTION_ERROR;
1685: END IF;
1686: l_rrdv_rec := migrate_rrdv(l_rrdv_rec, g_rrdv_rec);
1679: g_rrdv_rec := l_rrdv_rec;
1680: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'B');
1681: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1682: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1683: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1684: raise OKC_API.G_EXCEPTION_ERROR;
1685: END IF;
1686: l_rrdv_rec := migrate_rrdv(l_rrdv_rec, g_rrdv_rec);
1687:
1680: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'B');
1681: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1682: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1683: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1684: raise OKC_API.G_EXCEPTION_ERROR;
1685: END IF;
1686: l_rrdv_rec := migrate_rrdv(l_rrdv_rec, g_rrdv_rec);
1687:
1688: okc_subclass_pvt.update_rg_role_defs(
1692: x_msg_count,
1693: x_msg_data,
1694: l_rrdv_rec,
1695: x_rrdv_rec);
1696: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1697: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1698: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1699: raise OKC_API.G_EXCEPTION_ERROR;
1700: END IF;
1693: x_msg_data,
1694: l_rrdv_rec,
1695: x_rrdv_rec);
1696: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1697: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1698: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1699: raise OKC_API.G_EXCEPTION_ERROR;
1700: END IF;
1701:
1694: l_rrdv_rec,
1695: x_rrdv_rec);
1696: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1697: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1698: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1699: raise OKC_API.G_EXCEPTION_ERROR;
1700: END IF;
1701:
1702: -- Call user hook for AFTER
1695: x_rrdv_rec);
1696: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1697: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1698: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1699: raise OKC_API.G_EXCEPTION_ERROR;
1700: END IF;
1701:
1702: -- Call user hook for AFTER
1703: g_rrdv_rec := x_rrdv_rec;
1701:
1702: -- Call user hook for AFTER
1703: g_rrdv_rec := x_rrdv_rec;
1704: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'A');
1705: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1706: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1707: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1708: raise OKC_API.G_EXCEPTION_ERROR;
1709: END IF;
1702: -- Call user hook for AFTER
1703: g_rrdv_rec := x_rrdv_rec;
1704: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'A');
1705: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1706: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1707: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1708: raise OKC_API.G_EXCEPTION_ERROR;
1709: END IF;
1710: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1703: g_rrdv_rec := x_rrdv_rec;
1704: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'A');
1705: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1706: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1707: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1708: raise OKC_API.G_EXCEPTION_ERROR;
1709: END IF;
1710: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1711: EXCEPTION
1704: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'A');
1705: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1706: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1707: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1708: raise OKC_API.G_EXCEPTION_ERROR;
1709: END IF;
1710: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1711: EXCEPTION
1712: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1706: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1707: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1708: raise OKC_API.G_EXCEPTION_ERROR;
1709: END IF;
1710: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1711: EXCEPTION
1712: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1713: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1714: (l_api_name,
1708: raise OKC_API.G_EXCEPTION_ERROR;
1709: END IF;
1710: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1711: EXCEPTION
1712: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1713: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1714: (l_api_name,
1715: G_PKG_NAME,
1716: 'OKC_API.G_RET_STS_ERROR',
1709: END IF;
1710: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1711: EXCEPTION
1712: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1713: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1714: (l_api_name,
1715: G_PKG_NAME,
1716: 'OKC_API.G_RET_STS_ERROR',
1717: x_msg_count,
1712: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1713: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1714: (l_api_name,
1715: G_PKG_NAME,
1716: 'OKC_API.G_RET_STS_ERROR',
1717: x_msg_count,
1718: x_msg_data,
1719: '_PUB');
1720: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1716: 'OKC_API.G_RET_STS_ERROR',
1717: x_msg_count,
1718: x_msg_data,
1719: '_PUB');
1720: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1721: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1722: (l_api_name,
1723: G_PKG_NAME,
1724: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1717: x_msg_count,
1718: x_msg_data,
1719: '_PUB');
1720: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1721: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1722: (l_api_name,
1723: G_PKG_NAME,
1724: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1725: x_msg_count,
1720: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1721: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1722: (l_api_name,
1723: G_PKG_NAME,
1724: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1725: x_msg_count,
1726: x_msg_data,
1727: '_PUB');
1728: WHEN OTHERS THEN
1725: x_msg_count,
1726: x_msg_data,
1727: '_PUB');
1728: WHEN OTHERS THEN
1729: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1730: (l_api_name,
1731: G_PKG_NAME,
1732: 'OTHERS',
1733: x_msg_count,
1743: x_msg_data OUT NOCOPY VARCHAR2,
1744: p_rrdv_tbl IN rrdv_tbl_type,
1745: x_rrdv_tbl OUT NOCOPY rrdv_tbl_type) IS
1746: i NUMBER := 0;
1747: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1748: BEGIN
1749: x_return_status := OKC_API.G_RET_STS_SUCCESS;
1750: IF p_rrdv_tbl.COUNT > 0 THEN
1751: i := p_rrdv_tbl.FIRST;
1745: x_rrdv_tbl OUT NOCOPY rrdv_tbl_type) IS
1746: i NUMBER := 0;
1747: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1748: BEGIN
1749: x_return_status := OKC_API.G_RET_STS_SUCCESS;
1750: IF p_rrdv_tbl.COUNT > 0 THEN
1751: i := p_rrdv_tbl.FIRST;
1752: LOOP
1753: update_rg_role_defs(
1757: x_msg_count,
1758: x_msg_data,
1759: p_rrdv_tbl(i),
1760: x_rrdv_tbl(i));
1761: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
1762: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1763: x_return_status := l_return_status;
1764: raise G_EXCEPTION_HALT_VALIDATION;
1765: ELSE
1758: x_msg_data,
1759: p_rrdv_tbl(i),
1760: x_rrdv_tbl(i));
1761: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
1762: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1763: x_return_status := l_return_status;
1764: raise G_EXCEPTION_HALT_VALIDATION;
1765: ELSE
1766: x_return_status := l_return_status;
1773: EXCEPTION
1774: WHEN G_EXCEPTION_HALT_VALIDATION THEN
1775: NULL;
1776: WHEN OTHERS THEN
1777: OKC_API.set_message(p_app_name => g_app_name,
1778: p_msg_name => g_unexpected_error,
1779: p_token1 => g_sqlcode_token,
1780: p_token1_value => sqlcode,
1781: p_token2 => g_sqlerrm_token,
1779: p_token1 => g_sqlcode_token,
1780: p_token1_value => sqlcode,
1781: p_token2 => g_sqlerrm_token,
1782: p_token2_value => sqlerrm);
1783: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
1784: END update_rg_role_defs;
1785:
1786: PROCEDURE delete_rg_role_defs(
1787: p_api_version IN NUMBER,
1793: l_api_name CONSTANT VARCHAR2(30) := 'delete_rg_role_defs';
1794: l_return_status VARCHAR2(1);
1795: l_rrdv_rec rrdv_rec_type := p_rrdv_rec;
1796: BEGIN
1797: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
1798: p_init_msg_list,
1799: '_PUB',
1800: x_return_status);
1801: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1797: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
1798: p_init_msg_list,
1799: '_PUB',
1800: x_return_status);
1801: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1802: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1803: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1804: raise OKC_API.G_EXCEPTION_ERROR;
1805: END IF;
1798: p_init_msg_list,
1799: '_PUB',
1800: x_return_status);
1801: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1802: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1803: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1804: raise OKC_API.G_EXCEPTION_ERROR;
1805: END IF;
1806: -- Call user hook for BEFORE
1799: '_PUB',
1800: x_return_status);
1801: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1802: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1803: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1804: raise OKC_API.G_EXCEPTION_ERROR;
1805: END IF;
1806: -- Call user hook for BEFORE
1807: g_rrdv_rec := l_rrdv_rec;
1800: x_return_status);
1801: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1802: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1803: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1804: raise OKC_API.G_EXCEPTION_ERROR;
1805: END IF;
1806: -- Call user hook for BEFORE
1807: g_rrdv_rec := l_rrdv_rec;
1808: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'B');
1805: END IF;
1806: -- Call user hook for BEFORE
1807: g_rrdv_rec := l_rrdv_rec;
1808: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'B');
1809: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1810: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1811: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1812: raise OKC_API.G_EXCEPTION_ERROR;
1813: END IF;
1806: -- Call user hook for BEFORE
1807: g_rrdv_rec := l_rrdv_rec;
1808: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'B');
1809: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1810: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1811: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1812: raise OKC_API.G_EXCEPTION_ERROR;
1813: END IF;
1814:
1807: g_rrdv_rec := l_rrdv_rec;
1808: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'B');
1809: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1810: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1811: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1812: raise OKC_API.G_EXCEPTION_ERROR;
1813: END IF;
1814:
1815: okc_subclass_pvt.delete_rg_role_defs(
1808: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'B');
1809: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1810: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1811: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1812: raise OKC_API.G_EXCEPTION_ERROR;
1813: END IF;
1814:
1815: okc_subclass_pvt.delete_rg_role_defs(
1816: p_api_version,
1818: x_return_status,
1819: x_msg_count,
1820: x_msg_data,
1821: p_rrdv_rec);
1822: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1823: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1824: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1825: raise OKC_API.G_EXCEPTION_ERROR;
1826: END IF;
1819: x_msg_count,
1820: x_msg_data,
1821: p_rrdv_rec);
1822: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1823: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1824: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1825: raise OKC_API.G_EXCEPTION_ERROR;
1826: END IF;
1827:
1820: x_msg_data,
1821: p_rrdv_rec);
1822: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1823: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1824: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1825: raise OKC_API.G_EXCEPTION_ERROR;
1826: END IF;
1827:
1828: -- Call user hook for AFTER
1821: p_rrdv_rec);
1822: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1823: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1824: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1825: raise OKC_API.G_EXCEPTION_ERROR;
1826: END IF;
1827:
1828: -- Call user hook for AFTER
1829: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'A');
1826: END IF;
1827:
1828: -- Call user hook for AFTER
1829: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'A');
1830: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1831: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1832: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1833: raise OKC_API.G_EXCEPTION_ERROR;
1834: END IF;
1827:
1828: -- Call user hook for AFTER
1829: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'A');
1830: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1831: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1832: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1833: raise OKC_API.G_EXCEPTION_ERROR;
1834: END IF;
1835: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1828: -- Call user hook for AFTER
1829: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'A');
1830: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1831: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1832: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1833: raise OKC_API.G_EXCEPTION_ERROR;
1834: END IF;
1835: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1836: EXCEPTION
1829: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'A');
1830: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1831: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1832: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1833: raise OKC_API.G_EXCEPTION_ERROR;
1834: END IF;
1835: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1836: EXCEPTION
1837: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1831: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1832: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1833: raise OKC_API.G_EXCEPTION_ERROR;
1834: END IF;
1835: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1836: EXCEPTION
1837: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1838: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1839: (l_api_name,
1833: raise OKC_API.G_EXCEPTION_ERROR;
1834: END IF;
1835: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1836: EXCEPTION
1837: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1838: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1839: (l_api_name,
1840: G_PKG_NAME,
1841: 'OKC_API.G_RET_STS_ERROR',
1834: END IF;
1835: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1836: EXCEPTION
1837: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1838: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1839: (l_api_name,
1840: G_PKG_NAME,
1841: 'OKC_API.G_RET_STS_ERROR',
1842: x_msg_count,
1837: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1838: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1839: (l_api_name,
1840: G_PKG_NAME,
1841: 'OKC_API.G_RET_STS_ERROR',
1842: x_msg_count,
1843: x_msg_data,
1844: '_PUB');
1845: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1841: 'OKC_API.G_RET_STS_ERROR',
1842: x_msg_count,
1843: x_msg_data,
1844: '_PUB');
1845: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1846: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1847: (l_api_name,
1848: G_PKG_NAME,
1849: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1842: x_msg_count,
1843: x_msg_data,
1844: '_PUB');
1845: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1846: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1847: (l_api_name,
1848: G_PKG_NAME,
1849: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1850: x_msg_count,
1845: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1846: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1847: (l_api_name,
1848: G_PKG_NAME,
1849: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1850: x_msg_count,
1851: x_msg_data,
1852: '_PUB');
1853: WHEN OTHERS THEN
1850: x_msg_count,
1851: x_msg_data,
1852: '_PUB');
1853: WHEN OTHERS THEN
1854: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1855: (l_api_name,
1856: G_PKG_NAME,
1857: 'OTHERS',
1858: x_msg_count,
1867: x_msg_count OUT NOCOPY NUMBER,
1868: x_msg_data OUT NOCOPY VARCHAR2,
1869: p_rrdv_tbl IN rrdv_tbl_type) IS
1870: i NUMBER := 0;
1871: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1872: BEGIN
1873: x_return_status := OKC_API.G_RET_STS_SUCCESS;
1874: IF p_rrdv_tbl.COUNT > 0 THEN
1875: i := p_rrdv_tbl.FIRST;
1869: p_rrdv_tbl IN rrdv_tbl_type) IS
1870: i NUMBER := 0;
1871: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1872: BEGIN
1873: x_return_status := OKC_API.G_RET_STS_SUCCESS;
1874: IF p_rrdv_tbl.COUNT > 0 THEN
1875: i := p_rrdv_tbl.FIRST;
1876: LOOP
1877: delete_rg_role_defs(
1880: l_return_status,
1881: x_msg_count,
1882: x_msg_data,
1883: p_rrdv_tbl(i));
1884: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
1885: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1886: x_return_status := l_return_status;
1887: raise G_EXCEPTION_HALT_VALIDATION;
1888: ELSE
1881: x_msg_count,
1882: x_msg_data,
1883: p_rrdv_tbl(i));
1884: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
1885: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1886: x_return_status := l_return_status;
1887: raise G_EXCEPTION_HALT_VALIDATION;
1888: ELSE
1889: x_return_status := l_return_status;
1896: EXCEPTION
1897: WHEN G_EXCEPTION_HALT_VALIDATION THEN
1898: NULL;
1899: WHEN OTHERS THEN
1900: OKC_API.set_message(p_app_name => g_app_name,
1901: p_msg_name => g_unexpected_error,
1902: p_token1 => g_sqlcode_token,
1903: p_token1_value => sqlcode,
1904: p_token2 => g_sqlerrm_token,
1902: p_token1 => g_sqlcode_token,
1903: p_token1_value => sqlcode,
1904: p_token2 => g_sqlerrm_token,
1905: p_token2_value => sqlerrm);
1906: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
1907: END delete_rg_role_defs;
1908:
1909: PROCEDURE lock_rg_role_defs(
1910: p_api_version IN NUMBER,
1985: l_api_name CONSTANT VARCHAR2(30) := 'create_subclass_top_line';
1986: l_return_status VARCHAR2(1);
1987: l_stlv_rec stlv_rec_type := p_stlv_rec;
1988: BEGIN
1989: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
1990: p_init_msg_list,
1991: '_PUB',
1992: x_return_status);
1993: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1989: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
1990: p_init_msg_list,
1991: '_PUB',
1992: x_return_status);
1993: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1994: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1995: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1996: raise OKC_API.G_EXCEPTION_ERROR;
1997: END IF;
1990: p_init_msg_list,
1991: '_PUB',
1992: x_return_status);
1993: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1994: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1995: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1996: raise OKC_API.G_EXCEPTION_ERROR;
1997: END IF;
1998: -- Call user hook for BEFORE
1991: '_PUB',
1992: x_return_status);
1993: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1994: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1995: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1996: raise OKC_API.G_EXCEPTION_ERROR;
1997: END IF;
1998: -- Call user hook for BEFORE
1999: g_stlv_rec := l_stlv_rec;
1992: x_return_status);
1993: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1994: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1995: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1996: raise OKC_API.G_EXCEPTION_ERROR;
1997: END IF;
1998: -- Call user hook for BEFORE
1999: g_stlv_rec := l_stlv_rec;
2000: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'B');
1997: END IF;
1998: -- Call user hook for BEFORE
1999: g_stlv_rec := l_stlv_rec;
2000: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'B');
2001: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2002: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2003: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2004: raise OKC_API.G_EXCEPTION_ERROR;
2005: END IF;
1998: -- Call user hook for BEFORE
1999: g_stlv_rec := l_stlv_rec;
2000: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'B');
2001: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2002: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2003: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2004: raise OKC_API.G_EXCEPTION_ERROR;
2005: END IF;
2006: l_stlv_rec := migrate_stlv(l_stlv_rec, g_stlv_rec);
1999: g_stlv_rec := l_stlv_rec;
2000: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'B');
2001: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2002: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2003: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2004: raise OKC_API.G_EXCEPTION_ERROR;
2005: END IF;
2006: l_stlv_rec := migrate_stlv(l_stlv_rec, g_stlv_rec);
2007:
2000: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'B');
2001: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2002: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2003: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2004: raise OKC_API.G_EXCEPTION_ERROR;
2005: END IF;
2006: l_stlv_rec := migrate_stlv(l_stlv_rec, g_stlv_rec);
2007:
2008: okc_subclass_pvt.create_subclass_top_line(
2012: x_msg_count,
2013: x_msg_data,
2014: l_stlv_rec,
2015: x_stlv_rec);
2016: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2017: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2018: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2019: raise OKC_API.G_EXCEPTION_ERROR;
2020: END IF;
2013: x_msg_data,
2014: l_stlv_rec,
2015: x_stlv_rec);
2016: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2017: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2018: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2019: raise OKC_API.G_EXCEPTION_ERROR;
2020: END IF;
2021:
2014: l_stlv_rec,
2015: x_stlv_rec);
2016: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2017: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2018: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2019: raise OKC_API.G_EXCEPTION_ERROR;
2020: END IF;
2021:
2022: -- Call user hook for AFTER
2015: x_stlv_rec);
2016: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2017: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2018: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2019: raise OKC_API.G_EXCEPTION_ERROR;
2020: END IF;
2021:
2022: -- Call user hook for AFTER
2023: g_stlv_rec := x_stlv_rec;
2021:
2022: -- Call user hook for AFTER
2023: g_stlv_rec := x_stlv_rec;
2024: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'A');
2025: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2026: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2027: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2028: raise OKC_API.G_EXCEPTION_ERROR;
2029: END IF;
2022: -- Call user hook for AFTER
2023: g_stlv_rec := x_stlv_rec;
2024: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'A');
2025: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2026: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2027: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2028: raise OKC_API.G_EXCEPTION_ERROR;
2029: END IF;
2030: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2023: g_stlv_rec := x_stlv_rec;
2024: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'A');
2025: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2026: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2027: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2028: raise OKC_API.G_EXCEPTION_ERROR;
2029: END IF;
2030: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2031: EXCEPTION
2024: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'A');
2025: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2026: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2027: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2028: raise OKC_API.G_EXCEPTION_ERROR;
2029: END IF;
2030: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2031: EXCEPTION
2032: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2026: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2027: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2028: raise OKC_API.G_EXCEPTION_ERROR;
2029: END IF;
2030: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2031: EXCEPTION
2032: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2033: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2034: (l_api_name,
2028: raise OKC_API.G_EXCEPTION_ERROR;
2029: END IF;
2030: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2031: EXCEPTION
2032: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2033: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2034: (l_api_name,
2035: G_PKG_NAME,
2036: 'OKC_API.G_RET_STS_ERROR',
2029: END IF;
2030: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2031: EXCEPTION
2032: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2033: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2034: (l_api_name,
2035: G_PKG_NAME,
2036: 'OKC_API.G_RET_STS_ERROR',
2037: x_msg_count,
2032: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2033: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2034: (l_api_name,
2035: G_PKG_NAME,
2036: 'OKC_API.G_RET_STS_ERROR',
2037: x_msg_count,
2038: x_msg_data,
2039: '_PUB');
2040: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2036: 'OKC_API.G_RET_STS_ERROR',
2037: x_msg_count,
2038: x_msg_data,
2039: '_PUB');
2040: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2041: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2042: (l_api_name,
2043: G_PKG_NAME,
2044: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2037: x_msg_count,
2038: x_msg_data,
2039: '_PUB');
2040: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2041: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2042: (l_api_name,
2043: G_PKG_NAME,
2044: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2045: x_msg_count,
2040: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2041: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2042: (l_api_name,
2043: G_PKG_NAME,
2044: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2045: x_msg_count,
2046: x_msg_data,
2047: '_PUB');
2048: WHEN OTHERS THEN
2045: x_msg_count,
2046: x_msg_data,
2047: '_PUB');
2048: WHEN OTHERS THEN
2049: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2050: (l_api_name,
2051: G_PKG_NAME,
2052: 'OTHERS',
2053: x_msg_count,
2063: x_msg_data OUT NOCOPY VARCHAR2,
2064: p_stlv_tbl IN stlv_tbl_type,
2065: x_stlv_tbl OUT NOCOPY stlv_tbl_type) IS
2066: i NUMBER := 0;
2067: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2068: BEGIN
2069: x_return_status := OKC_API.G_RET_STS_SUCCESS;
2070: IF p_stlv_tbl.COUNT > 0 THEN
2071: i := p_stlv_tbl.FIRST;
2065: x_stlv_tbl OUT NOCOPY stlv_tbl_type) IS
2066: i NUMBER := 0;
2067: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2068: BEGIN
2069: x_return_status := OKC_API.G_RET_STS_SUCCESS;
2070: IF p_stlv_tbl.COUNT > 0 THEN
2071: i := p_stlv_tbl.FIRST;
2072: LOOP
2073: create_subclass_top_line(
2077: x_msg_count,
2078: x_msg_data,
2079: p_stlv_tbl(i),
2080: x_stlv_tbl(i));
2081: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
2082: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2083: x_return_status := l_return_status;
2084: raise G_EXCEPTION_HALT_VALIDATION;
2085: ELSE
2078: x_msg_data,
2079: p_stlv_tbl(i),
2080: x_stlv_tbl(i));
2081: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
2082: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2083: x_return_status := l_return_status;
2084: raise G_EXCEPTION_HALT_VALIDATION;
2085: ELSE
2086: x_return_status := l_return_status;
2093: EXCEPTION
2094: WHEN G_EXCEPTION_HALT_VALIDATION THEN
2095: NULL;
2096: WHEN OTHERS THEN
2097: OKC_API.set_message(p_app_name => g_app_name,
2098: p_msg_name => g_unexpected_error,
2099: p_token1 => g_sqlcode_token,
2100: p_token1_value => sqlcode,
2101: p_token2 => g_sqlerrm_token,
2099: p_token1 => g_sqlcode_token,
2100: p_token1_value => sqlcode,
2101: p_token2 => g_sqlerrm_token,
2102: p_token2_value => sqlerrm);
2103: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
2104: END create_subclass_top_line;
2105:
2106: PROCEDURE update_subclass_top_line(
2107: p_api_version IN NUMBER,
2114: l_api_name CONSTANT VARCHAR2(30) := 'update_subclass_top_line';
2115: l_return_status VARCHAR2(1);
2116: l_stlv_rec stlv_rec_type := p_stlv_rec;
2117: BEGIN
2118: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
2119: p_init_msg_list,
2120: '_PUB',
2121: x_return_status);
2122: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2118: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
2119: p_init_msg_list,
2120: '_PUB',
2121: x_return_status);
2122: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2123: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2124: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2125: raise OKC_API.G_EXCEPTION_ERROR;
2126: END IF;
2119: p_init_msg_list,
2120: '_PUB',
2121: x_return_status);
2122: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2123: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2124: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2125: raise OKC_API.G_EXCEPTION_ERROR;
2126: END IF;
2127: -- Call user hook for BEFORE
2120: '_PUB',
2121: x_return_status);
2122: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2123: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2124: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2125: raise OKC_API.G_EXCEPTION_ERROR;
2126: END IF;
2127: -- Call user hook for BEFORE
2128: g_stlv_rec := l_stlv_rec;
2121: x_return_status);
2122: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2123: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2124: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2125: raise OKC_API.G_EXCEPTION_ERROR;
2126: END IF;
2127: -- Call user hook for BEFORE
2128: g_stlv_rec := l_stlv_rec;
2129: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'B');
2126: END IF;
2127: -- Call user hook for BEFORE
2128: g_stlv_rec := l_stlv_rec;
2129: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'B');
2130: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2131: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2132: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2133: raise OKC_API.G_EXCEPTION_ERROR;
2134: END IF;
2127: -- Call user hook for BEFORE
2128: g_stlv_rec := l_stlv_rec;
2129: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'B');
2130: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2131: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2132: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2133: raise OKC_API.G_EXCEPTION_ERROR;
2134: END IF;
2135: l_stlv_rec := migrate_stlv(l_stlv_rec, g_stlv_rec);
2128: g_stlv_rec := l_stlv_rec;
2129: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'B');
2130: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2131: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2132: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2133: raise OKC_API.G_EXCEPTION_ERROR;
2134: END IF;
2135: l_stlv_rec := migrate_stlv(l_stlv_rec, g_stlv_rec);
2136:
2129: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'B');
2130: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2131: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2132: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2133: raise OKC_API.G_EXCEPTION_ERROR;
2134: END IF;
2135: l_stlv_rec := migrate_stlv(l_stlv_rec, g_stlv_rec);
2136:
2137: okc_subclass_pvt.update_subclass_top_line(
2141: x_msg_count,
2142: x_msg_data,
2143: l_stlv_rec,
2144: x_stlv_rec);
2145: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2146: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2147: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2148: raise OKC_API.G_EXCEPTION_ERROR;
2149: END IF;
2142: x_msg_data,
2143: l_stlv_rec,
2144: x_stlv_rec);
2145: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2146: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2147: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2148: raise OKC_API.G_EXCEPTION_ERROR;
2149: END IF;
2150:
2143: l_stlv_rec,
2144: x_stlv_rec);
2145: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2146: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2147: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2148: raise OKC_API.G_EXCEPTION_ERROR;
2149: END IF;
2150:
2151: -- Call user hook for AFTER
2144: x_stlv_rec);
2145: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2146: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2147: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2148: raise OKC_API.G_EXCEPTION_ERROR;
2149: END IF;
2150:
2151: -- Call user hook for AFTER
2152: g_stlv_rec := x_stlv_rec;
2150:
2151: -- Call user hook for AFTER
2152: g_stlv_rec := x_stlv_rec;
2153: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'A');
2154: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2155: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2156: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2157: raise OKC_API.G_EXCEPTION_ERROR;
2158: END IF;
2151: -- Call user hook for AFTER
2152: g_stlv_rec := x_stlv_rec;
2153: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'A');
2154: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2155: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2156: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2157: raise OKC_API.G_EXCEPTION_ERROR;
2158: END IF;
2159: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2152: g_stlv_rec := x_stlv_rec;
2153: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'A');
2154: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2155: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2156: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2157: raise OKC_API.G_EXCEPTION_ERROR;
2158: END IF;
2159: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2160: EXCEPTION
2153: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'A');
2154: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2155: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2156: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2157: raise OKC_API.G_EXCEPTION_ERROR;
2158: END IF;
2159: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2160: EXCEPTION
2161: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2155: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2156: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2157: raise OKC_API.G_EXCEPTION_ERROR;
2158: END IF;
2159: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2160: EXCEPTION
2161: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2162: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2163: (l_api_name,
2157: raise OKC_API.G_EXCEPTION_ERROR;
2158: END IF;
2159: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2160: EXCEPTION
2161: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2162: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2163: (l_api_name,
2164: G_PKG_NAME,
2165: 'OKC_API.G_RET_STS_ERROR',
2158: END IF;
2159: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2160: EXCEPTION
2161: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2162: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2163: (l_api_name,
2164: G_PKG_NAME,
2165: 'OKC_API.G_RET_STS_ERROR',
2166: x_msg_count,
2161: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2162: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2163: (l_api_name,
2164: G_PKG_NAME,
2165: 'OKC_API.G_RET_STS_ERROR',
2166: x_msg_count,
2167: x_msg_data,
2168: '_PUB');
2169: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2165: 'OKC_API.G_RET_STS_ERROR',
2166: x_msg_count,
2167: x_msg_data,
2168: '_PUB');
2169: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2170: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2171: (l_api_name,
2172: G_PKG_NAME,
2173: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2166: x_msg_count,
2167: x_msg_data,
2168: '_PUB');
2169: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2170: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2171: (l_api_name,
2172: G_PKG_NAME,
2173: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2174: x_msg_count,
2169: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2170: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2171: (l_api_name,
2172: G_PKG_NAME,
2173: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2174: x_msg_count,
2175: x_msg_data,
2176: '_PUB');
2177: WHEN OTHERS THEN
2174: x_msg_count,
2175: x_msg_data,
2176: '_PUB');
2177: WHEN OTHERS THEN
2178: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2179: (l_api_name,
2180: G_PKG_NAME,
2181: 'OTHERS',
2182: x_msg_count,
2192: x_msg_data OUT NOCOPY VARCHAR2,
2193: p_stlv_tbl IN stlv_tbl_type,
2194: x_stlv_tbl OUT NOCOPY stlv_tbl_type) IS
2195: i NUMBER := 0;
2196: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2197: BEGIN
2198: x_return_status := OKC_API.G_RET_STS_SUCCESS;
2199: IF p_stlv_tbl.COUNT > 0 THEN
2200: i := p_stlv_tbl.FIRST;
2194: x_stlv_tbl OUT NOCOPY stlv_tbl_type) IS
2195: i NUMBER := 0;
2196: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2197: BEGIN
2198: x_return_status := OKC_API.G_RET_STS_SUCCESS;
2199: IF p_stlv_tbl.COUNT > 0 THEN
2200: i := p_stlv_tbl.FIRST;
2201: LOOP
2202: update_subclass_top_line(
2206: x_msg_count,
2207: x_msg_data,
2208: p_stlv_tbl(i),
2209: x_stlv_tbl(i));
2210: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
2211: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2212: x_return_status := l_return_status;
2213: raise G_EXCEPTION_HALT_VALIDATION;
2214: ELSE
2207: x_msg_data,
2208: p_stlv_tbl(i),
2209: x_stlv_tbl(i));
2210: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
2211: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2212: x_return_status := l_return_status;
2213: raise G_EXCEPTION_HALT_VALIDATION;
2214: ELSE
2215: x_return_status := l_return_status;
2222: EXCEPTION
2223: WHEN G_EXCEPTION_HALT_VALIDATION THEN
2224: NULL;
2225: WHEN OTHERS THEN
2226: OKC_API.set_message(p_app_name => g_app_name,
2227: p_msg_name => g_unexpected_error,
2228: p_token1 => g_sqlcode_token,
2229: p_token1_value => sqlcode,
2230: p_token2 => g_sqlerrm_token,
2228: p_token1 => g_sqlcode_token,
2229: p_token1_value => sqlcode,
2230: p_token2 => g_sqlerrm_token,
2231: p_token2_value => sqlerrm);
2232: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
2233: END update_subclass_top_line;
2234:
2235: PROCEDURE delete_subclass_top_line(
2236: p_api_version IN NUMBER,
2242: l_api_name CONSTANT VARCHAR2(30) := 'delete_subclass_top_line';
2243: l_return_status VARCHAR2(1);
2244: l_stlv_rec stlv_rec_type := p_stlv_rec;
2245: BEGIN
2246: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
2247: p_init_msg_list,
2248: '_PUB',
2249: x_return_status);
2250: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2246: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
2247: p_init_msg_list,
2248: '_PUB',
2249: x_return_status);
2250: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2251: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2252: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2253: raise OKC_API.G_EXCEPTION_ERROR;
2254: END IF;
2247: p_init_msg_list,
2248: '_PUB',
2249: x_return_status);
2250: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2251: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2252: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2253: raise OKC_API.G_EXCEPTION_ERROR;
2254: END IF;
2255: -- Call user hook for BEFORE
2248: '_PUB',
2249: x_return_status);
2250: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2251: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2252: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2253: raise OKC_API.G_EXCEPTION_ERROR;
2254: END IF;
2255: -- Call user hook for BEFORE
2256: g_stlv_rec := l_stlv_rec;
2249: x_return_status);
2250: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2251: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2252: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2253: raise OKC_API.G_EXCEPTION_ERROR;
2254: END IF;
2255: -- Call user hook for BEFORE
2256: g_stlv_rec := l_stlv_rec;
2257: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'B');
2254: END IF;
2255: -- Call user hook for BEFORE
2256: g_stlv_rec := l_stlv_rec;
2257: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'B');
2258: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2259: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2260: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2261: raise OKC_API.G_EXCEPTION_ERROR;
2262: END IF;
2255: -- Call user hook for BEFORE
2256: g_stlv_rec := l_stlv_rec;
2257: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'B');
2258: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2259: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2260: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2261: raise OKC_API.G_EXCEPTION_ERROR;
2262: END IF;
2263:
2256: g_stlv_rec := l_stlv_rec;
2257: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'B');
2258: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2259: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2260: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2261: raise OKC_API.G_EXCEPTION_ERROR;
2262: END IF;
2263:
2264: okc_subclass_pvt.delete_subclass_top_line(
2257: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'B');
2258: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2259: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2260: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2261: raise OKC_API.G_EXCEPTION_ERROR;
2262: END IF;
2263:
2264: okc_subclass_pvt.delete_subclass_top_line(
2265: p_api_version,
2267: x_return_status,
2268: x_msg_count,
2269: x_msg_data,
2270: p_stlv_rec);
2271: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2272: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2273: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2274: raise OKC_API.G_EXCEPTION_ERROR;
2275: END IF;
2268: x_msg_count,
2269: x_msg_data,
2270: p_stlv_rec);
2271: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2272: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2273: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2274: raise OKC_API.G_EXCEPTION_ERROR;
2275: END IF;
2276:
2269: x_msg_data,
2270: p_stlv_rec);
2271: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2272: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2273: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2274: raise OKC_API.G_EXCEPTION_ERROR;
2275: END IF;
2276:
2277: -- Call user hook for AFTER
2270: p_stlv_rec);
2271: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2272: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2273: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2274: raise OKC_API.G_EXCEPTION_ERROR;
2275: END IF;
2276:
2277: -- Call user hook for AFTER
2278: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'A');
2275: END IF;
2276:
2277: -- Call user hook for AFTER
2278: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'A');
2279: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2280: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2281: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2282: raise OKC_API.G_EXCEPTION_ERROR;
2283: END IF;
2276:
2277: -- Call user hook for AFTER
2278: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'A');
2279: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2280: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2281: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2282: raise OKC_API.G_EXCEPTION_ERROR;
2283: END IF;
2284: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2277: -- Call user hook for AFTER
2278: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'A');
2279: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2280: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2281: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2282: raise OKC_API.G_EXCEPTION_ERROR;
2283: END IF;
2284: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2285: EXCEPTION
2278: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'A');
2279: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2280: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2281: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2282: raise OKC_API.G_EXCEPTION_ERROR;
2283: END IF;
2284: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2285: EXCEPTION
2286: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2280: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2281: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2282: raise OKC_API.G_EXCEPTION_ERROR;
2283: END IF;
2284: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2285: EXCEPTION
2286: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2287: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2288: (l_api_name,
2282: raise OKC_API.G_EXCEPTION_ERROR;
2283: END IF;
2284: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2285: EXCEPTION
2286: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2287: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2288: (l_api_name,
2289: G_PKG_NAME,
2290: 'OKC_API.G_RET_STS_ERROR',
2283: END IF;
2284: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2285: EXCEPTION
2286: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2287: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2288: (l_api_name,
2289: G_PKG_NAME,
2290: 'OKC_API.G_RET_STS_ERROR',
2291: x_msg_count,
2286: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2287: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2288: (l_api_name,
2289: G_PKG_NAME,
2290: 'OKC_API.G_RET_STS_ERROR',
2291: x_msg_count,
2292: x_msg_data,
2293: '_PUB');
2294: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2290: 'OKC_API.G_RET_STS_ERROR',
2291: x_msg_count,
2292: x_msg_data,
2293: '_PUB');
2294: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2295: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2296: (l_api_name,
2297: G_PKG_NAME,
2298: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2291: x_msg_count,
2292: x_msg_data,
2293: '_PUB');
2294: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2295: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2296: (l_api_name,
2297: G_PKG_NAME,
2298: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2299: x_msg_count,
2294: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2295: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2296: (l_api_name,
2297: G_PKG_NAME,
2298: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2299: x_msg_count,
2300: x_msg_data,
2301: '_PUB');
2302: WHEN OTHERS THEN
2299: x_msg_count,
2300: x_msg_data,
2301: '_PUB');
2302: WHEN OTHERS THEN
2303: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2304: (l_api_name,
2305: G_PKG_NAME,
2306: 'OTHERS',
2307: x_msg_count,
2316: x_msg_count OUT NOCOPY NUMBER,
2317: x_msg_data OUT NOCOPY VARCHAR2,
2318: p_stlv_tbl IN stlv_tbl_type) IS
2319: i NUMBER := 0;
2320: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2321: BEGIN
2322: x_return_status := OKC_API.G_RET_STS_SUCCESS;
2323: IF p_stlv_tbl.COUNT > 0 THEN
2324: i := p_stlv_tbl.FIRST;
2318: p_stlv_tbl IN stlv_tbl_type) IS
2319: i NUMBER := 0;
2320: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2321: BEGIN
2322: x_return_status := OKC_API.G_RET_STS_SUCCESS;
2323: IF p_stlv_tbl.COUNT > 0 THEN
2324: i := p_stlv_tbl.FIRST;
2325: LOOP
2326: delete_subclass_top_line(
2329: l_return_status,
2330: x_msg_count,
2331: x_msg_data,
2332: p_stlv_tbl(i));
2333: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
2334: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2335: x_return_status := l_return_status;
2336: raise G_EXCEPTION_HALT_VALIDATION;
2337: ELSE
2330: x_msg_count,
2331: x_msg_data,
2332: p_stlv_tbl(i));
2333: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
2334: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2335: x_return_status := l_return_status;
2336: raise G_EXCEPTION_HALT_VALIDATION;
2337: ELSE
2338: x_return_status := l_return_status;
2345: EXCEPTION
2346: WHEN G_EXCEPTION_HALT_VALIDATION THEN
2347: NULL;
2348: WHEN OTHERS THEN
2349: OKC_API.set_message(p_app_name => g_app_name,
2350: p_msg_name => g_unexpected_error,
2351: p_token1 => g_sqlcode_token,
2352: p_token1_value => sqlcode,
2353: p_token2 => g_sqlerrm_token,
2351: p_token1 => g_sqlcode_token,
2352: p_token1_value => sqlcode,
2353: p_token2 => g_sqlerrm_token,
2354: p_token2_value => sqlerrm);
2355: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
2356: END delete_subclass_top_line;
2357:
2358: PROCEDURE lock_subclass_top_line(
2359: p_api_version IN NUMBER,
2434: l_api_name CONSTANT VARCHAR2(30) := 'create_line_style_roles';
2435: l_return_status VARCHAR2(1);
2436: l_lsrv_rec lsrv_rec_type := p_lsrv_rec;
2437: BEGIN
2438: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
2439: p_init_msg_list,
2440: '_PUB',
2441: x_return_status);
2442: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2438: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
2439: p_init_msg_list,
2440: '_PUB',
2441: x_return_status);
2442: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2443: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2444: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2445: raise OKC_API.G_EXCEPTION_ERROR;
2446: END IF;
2439: p_init_msg_list,
2440: '_PUB',
2441: x_return_status);
2442: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2443: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2444: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2445: raise OKC_API.G_EXCEPTION_ERROR;
2446: END IF;
2447: -- Call user hook for BEFORE
2440: '_PUB',
2441: x_return_status);
2442: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2443: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2444: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2445: raise OKC_API.G_EXCEPTION_ERROR;
2446: END IF;
2447: -- Call user hook for BEFORE
2448: g_lsrv_rec := l_lsrv_rec;
2441: x_return_status);
2442: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2443: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2444: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2445: raise OKC_API.G_EXCEPTION_ERROR;
2446: END IF;
2447: -- Call user hook for BEFORE
2448: g_lsrv_rec := l_lsrv_rec;
2449: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'B');
2446: END IF;
2447: -- Call user hook for BEFORE
2448: g_lsrv_rec := l_lsrv_rec;
2449: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'B');
2450: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2451: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2452: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2453: raise OKC_API.G_EXCEPTION_ERROR;
2454: END IF;
2447: -- Call user hook for BEFORE
2448: g_lsrv_rec := l_lsrv_rec;
2449: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'B');
2450: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2451: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2452: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2453: raise OKC_API.G_EXCEPTION_ERROR;
2454: END IF;
2455: l_lsrv_rec := migrate_lsrv(l_lsrv_rec, g_lsrv_rec);
2448: g_lsrv_rec := l_lsrv_rec;
2449: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'B');
2450: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2451: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2452: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2453: raise OKC_API.G_EXCEPTION_ERROR;
2454: END IF;
2455: l_lsrv_rec := migrate_lsrv(l_lsrv_rec, g_lsrv_rec);
2456:
2449: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'B');
2450: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2451: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2452: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2453: raise OKC_API.G_EXCEPTION_ERROR;
2454: END IF;
2455: l_lsrv_rec := migrate_lsrv(l_lsrv_rec, g_lsrv_rec);
2456:
2457: okc_subclass_pvt.create_line_style_roles(
2461: x_msg_count,
2462: x_msg_data,
2463: l_lsrv_rec,
2464: x_lsrv_rec);
2465: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2466: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2467: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2468: raise OKC_API.G_EXCEPTION_ERROR;
2469: END IF;
2462: x_msg_data,
2463: l_lsrv_rec,
2464: x_lsrv_rec);
2465: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2466: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2467: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2468: raise OKC_API.G_EXCEPTION_ERROR;
2469: END IF;
2470:
2463: l_lsrv_rec,
2464: x_lsrv_rec);
2465: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2466: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2467: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2468: raise OKC_API.G_EXCEPTION_ERROR;
2469: END IF;
2470:
2471: -- Call user hook for AFTER
2464: x_lsrv_rec);
2465: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2466: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2467: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2468: raise OKC_API.G_EXCEPTION_ERROR;
2469: END IF;
2470:
2471: -- Call user hook for AFTER
2472: g_lsrv_rec := x_lsrv_rec;
2470:
2471: -- Call user hook for AFTER
2472: g_lsrv_rec := x_lsrv_rec;
2473: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'A');
2474: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2475: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2476: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2477: raise OKC_API.G_EXCEPTION_ERROR;
2478: END IF;
2471: -- Call user hook for AFTER
2472: g_lsrv_rec := x_lsrv_rec;
2473: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'A');
2474: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2475: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2476: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2477: raise OKC_API.G_EXCEPTION_ERROR;
2478: END IF;
2479: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2472: g_lsrv_rec := x_lsrv_rec;
2473: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'A');
2474: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2475: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2476: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2477: raise OKC_API.G_EXCEPTION_ERROR;
2478: END IF;
2479: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2480: EXCEPTION
2473: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'A');
2474: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2475: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2476: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2477: raise OKC_API.G_EXCEPTION_ERROR;
2478: END IF;
2479: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2480: EXCEPTION
2481: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2475: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2476: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2477: raise OKC_API.G_EXCEPTION_ERROR;
2478: END IF;
2479: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2480: EXCEPTION
2481: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2482: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2483: (l_api_name,
2477: raise OKC_API.G_EXCEPTION_ERROR;
2478: END IF;
2479: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2480: EXCEPTION
2481: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2482: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2483: (l_api_name,
2484: G_PKG_NAME,
2485: 'OKC_API.G_RET_STS_ERROR',
2478: END IF;
2479: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2480: EXCEPTION
2481: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2482: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2483: (l_api_name,
2484: G_PKG_NAME,
2485: 'OKC_API.G_RET_STS_ERROR',
2486: x_msg_count,
2481: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2482: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2483: (l_api_name,
2484: G_PKG_NAME,
2485: 'OKC_API.G_RET_STS_ERROR',
2486: x_msg_count,
2487: x_msg_data,
2488: '_PUB');
2489: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2485: 'OKC_API.G_RET_STS_ERROR',
2486: x_msg_count,
2487: x_msg_data,
2488: '_PUB');
2489: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2490: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2491: (l_api_name,
2492: G_PKG_NAME,
2493: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2486: x_msg_count,
2487: x_msg_data,
2488: '_PUB');
2489: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2490: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2491: (l_api_name,
2492: G_PKG_NAME,
2493: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2494: x_msg_count,
2489: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2490: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2491: (l_api_name,
2492: G_PKG_NAME,
2493: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2494: x_msg_count,
2495: x_msg_data,
2496: '_PUB');
2497: WHEN OTHERS THEN
2494: x_msg_count,
2495: x_msg_data,
2496: '_PUB');
2497: WHEN OTHERS THEN
2498: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2499: (l_api_name,
2500: G_PKG_NAME,
2501: 'OTHERS',
2502: x_msg_count,
2512: x_msg_data OUT NOCOPY VARCHAR2,
2513: p_lsrv_tbl IN lsrv_tbl_type,
2514: x_lsrv_tbl OUT NOCOPY lsrv_tbl_type) IS
2515: i NUMBER := 0;
2516: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2517: BEGIN
2518: x_return_status := OKC_API.G_RET_STS_SUCCESS;
2519: IF p_lsrv_tbl.COUNT > 0 THEN
2520: i := p_lsrv_tbl.FIRST;
2514: x_lsrv_tbl OUT NOCOPY lsrv_tbl_type) IS
2515: i NUMBER := 0;
2516: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2517: BEGIN
2518: x_return_status := OKC_API.G_RET_STS_SUCCESS;
2519: IF p_lsrv_tbl.COUNT > 0 THEN
2520: i := p_lsrv_tbl.FIRST;
2521: LOOP
2522: create_line_style_roles(
2526: x_msg_count,
2527: x_msg_data,
2528: p_lsrv_tbl(i),
2529: x_lsrv_tbl(i));
2530: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
2531: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2532: x_return_status := l_return_status;
2533: raise G_EXCEPTION_HALT_VALIDATION;
2534: ELSE
2527: x_msg_data,
2528: p_lsrv_tbl(i),
2529: x_lsrv_tbl(i));
2530: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
2531: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2532: x_return_status := l_return_status;
2533: raise G_EXCEPTION_HALT_VALIDATION;
2534: ELSE
2535: x_return_status := l_return_status;
2542: EXCEPTION
2543: WHEN G_EXCEPTION_HALT_VALIDATION THEN
2544: NULL;
2545: WHEN OTHERS THEN
2546: OKC_API.set_message(p_app_name => g_app_name,
2547: p_msg_name => g_unexpected_error,
2548: p_token1 => g_sqlcode_token,
2549: p_token1_value => sqlcode,
2550: p_token2 => g_sqlerrm_token,
2548: p_token1 => g_sqlcode_token,
2549: p_token1_value => sqlcode,
2550: p_token2 => g_sqlerrm_token,
2551: p_token2_value => sqlerrm);
2552: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
2553: END create_line_style_roles;
2554:
2555: PROCEDURE update_line_style_roles(
2556: p_api_version IN NUMBER,
2563: l_api_name CONSTANT VARCHAR2(30) := 'update_line_style_roles';
2564: l_return_status VARCHAR2(1);
2565: l_lsrv_rec lsrv_rec_type := p_lsrv_rec;
2566: BEGIN
2567: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
2568: p_init_msg_list,
2569: '_PUB',
2570: x_return_status);
2571: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2567: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
2568: p_init_msg_list,
2569: '_PUB',
2570: x_return_status);
2571: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2572: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2573: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2574: raise OKC_API.G_EXCEPTION_ERROR;
2575: END IF;
2568: p_init_msg_list,
2569: '_PUB',
2570: x_return_status);
2571: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2572: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2573: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2574: raise OKC_API.G_EXCEPTION_ERROR;
2575: END IF;
2576: -- Call user hook for BEFORE
2569: '_PUB',
2570: x_return_status);
2571: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2572: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2573: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2574: raise OKC_API.G_EXCEPTION_ERROR;
2575: END IF;
2576: -- Call user hook for BEFORE
2577: g_lsrv_rec := l_lsrv_rec;
2570: x_return_status);
2571: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2572: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2573: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2574: raise OKC_API.G_EXCEPTION_ERROR;
2575: END IF;
2576: -- Call user hook for BEFORE
2577: g_lsrv_rec := l_lsrv_rec;
2578: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'B');
2575: END IF;
2576: -- Call user hook for BEFORE
2577: g_lsrv_rec := l_lsrv_rec;
2578: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'B');
2579: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2580: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2581: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2582: raise OKC_API.G_EXCEPTION_ERROR;
2583: END IF;
2576: -- Call user hook for BEFORE
2577: g_lsrv_rec := l_lsrv_rec;
2578: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'B');
2579: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2580: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2581: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2582: raise OKC_API.G_EXCEPTION_ERROR;
2583: END IF;
2584: l_lsrv_rec := migrate_lsrv(l_lsrv_rec, g_lsrv_rec);
2577: g_lsrv_rec := l_lsrv_rec;
2578: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'B');
2579: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2580: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2581: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2582: raise OKC_API.G_EXCEPTION_ERROR;
2583: END IF;
2584: l_lsrv_rec := migrate_lsrv(l_lsrv_rec, g_lsrv_rec);
2585:
2578: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'B');
2579: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2580: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2581: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2582: raise OKC_API.G_EXCEPTION_ERROR;
2583: END IF;
2584: l_lsrv_rec := migrate_lsrv(l_lsrv_rec, g_lsrv_rec);
2585:
2586: okc_subclass_pvt.update_line_style_roles(
2590: x_msg_count,
2591: x_msg_data,
2592: l_lsrv_rec,
2593: x_lsrv_rec);
2594: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2595: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2596: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2597: raise OKC_API.G_EXCEPTION_ERROR;
2598: END IF;
2591: x_msg_data,
2592: l_lsrv_rec,
2593: x_lsrv_rec);
2594: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2595: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2596: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2597: raise OKC_API.G_EXCEPTION_ERROR;
2598: END IF;
2599:
2592: l_lsrv_rec,
2593: x_lsrv_rec);
2594: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2595: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2596: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2597: raise OKC_API.G_EXCEPTION_ERROR;
2598: END IF;
2599:
2600: -- Call user hook for AFTER
2593: x_lsrv_rec);
2594: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2595: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2596: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2597: raise OKC_API.G_EXCEPTION_ERROR;
2598: END IF;
2599:
2600: -- Call user hook for AFTER
2601: g_lsrv_rec := x_lsrv_rec;
2599:
2600: -- Call user hook for AFTER
2601: g_lsrv_rec := x_lsrv_rec;
2602: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'A');
2603: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2604: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2605: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2606: raise OKC_API.G_EXCEPTION_ERROR;
2607: END IF;
2600: -- Call user hook for AFTER
2601: g_lsrv_rec := x_lsrv_rec;
2602: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'A');
2603: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2604: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2605: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2606: raise OKC_API.G_EXCEPTION_ERROR;
2607: END IF;
2608: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2601: g_lsrv_rec := x_lsrv_rec;
2602: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'A');
2603: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2604: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2605: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2606: raise OKC_API.G_EXCEPTION_ERROR;
2607: END IF;
2608: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2609: EXCEPTION
2602: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'A');
2603: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2604: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2605: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2606: raise OKC_API.G_EXCEPTION_ERROR;
2607: END IF;
2608: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2609: EXCEPTION
2610: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2604: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2605: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2606: raise OKC_API.G_EXCEPTION_ERROR;
2607: END IF;
2608: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2609: EXCEPTION
2610: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2611: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2612: (l_api_name,
2606: raise OKC_API.G_EXCEPTION_ERROR;
2607: END IF;
2608: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2609: EXCEPTION
2610: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2611: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2612: (l_api_name,
2613: G_PKG_NAME,
2614: 'OKC_API.G_RET_STS_ERROR',
2607: END IF;
2608: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2609: EXCEPTION
2610: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2611: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2612: (l_api_name,
2613: G_PKG_NAME,
2614: 'OKC_API.G_RET_STS_ERROR',
2615: x_msg_count,
2610: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2611: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2612: (l_api_name,
2613: G_PKG_NAME,
2614: 'OKC_API.G_RET_STS_ERROR',
2615: x_msg_count,
2616: x_msg_data,
2617: '_PUB');
2618: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2614: 'OKC_API.G_RET_STS_ERROR',
2615: x_msg_count,
2616: x_msg_data,
2617: '_PUB');
2618: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2619: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2620: (l_api_name,
2621: G_PKG_NAME,
2622: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2615: x_msg_count,
2616: x_msg_data,
2617: '_PUB');
2618: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2619: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2620: (l_api_name,
2621: G_PKG_NAME,
2622: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2623: x_msg_count,
2618: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2619: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2620: (l_api_name,
2621: G_PKG_NAME,
2622: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2623: x_msg_count,
2624: x_msg_data,
2625: '_PUB');
2626: WHEN OTHERS THEN
2623: x_msg_count,
2624: x_msg_data,
2625: '_PUB');
2626: WHEN OTHERS THEN
2627: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2628: (l_api_name,
2629: G_PKG_NAME,
2630: 'OTHERS',
2631: x_msg_count,
2641: x_msg_data OUT NOCOPY VARCHAR2,
2642: p_lsrv_tbl IN lsrv_tbl_type,
2643: x_lsrv_tbl OUT NOCOPY lsrv_tbl_type) IS
2644: i NUMBER := 0;
2645: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2646: BEGIN
2647: x_return_status := OKC_API.G_RET_STS_SUCCESS;
2648: IF p_lsrv_tbl.COUNT > 0 THEN
2649: i := p_lsrv_tbl.FIRST;
2643: x_lsrv_tbl OUT NOCOPY lsrv_tbl_type) IS
2644: i NUMBER := 0;
2645: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2646: BEGIN
2647: x_return_status := OKC_API.G_RET_STS_SUCCESS;
2648: IF p_lsrv_tbl.COUNT > 0 THEN
2649: i := p_lsrv_tbl.FIRST;
2650: LOOP
2651: update_line_style_roles(
2655: x_msg_count,
2656: x_msg_data,
2657: p_lsrv_tbl(i),
2658: x_lsrv_tbl(i));
2659: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
2660: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2661: x_return_status := l_return_status;
2662: raise G_EXCEPTION_HALT_VALIDATION;
2663: ELSE
2656: x_msg_data,
2657: p_lsrv_tbl(i),
2658: x_lsrv_tbl(i));
2659: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
2660: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2661: x_return_status := l_return_status;
2662: raise G_EXCEPTION_HALT_VALIDATION;
2663: ELSE
2664: x_return_status := l_return_status;
2671: EXCEPTION
2672: WHEN G_EXCEPTION_HALT_VALIDATION THEN
2673: NULL;
2674: WHEN OTHERS THEN
2675: OKC_API.set_message(p_app_name => g_app_name,
2676: p_msg_name => g_unexpected_error,
2677: p_token1 => g_sqlcode_token,
2678: p_token1_value => sqlcode,
2679: p_token2 => g_sqlerrm_token,
2677: p_token1 => g_sqlcode_token,
2678: p_token1_value => sqlcode,
2679: p_token2 => g_sqlerrm_token,
2680: p_token2_value => sqlerrm);
2681: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
2682: END update_line_style_roles;
2683:
2684: PROCEDURE delete_line_style_roles(
2685: p_api_version IN NUMBER,
2691: l_api_name CONSTANT VARCHAR2(30) := 'delete_line_style_roles';
2692: l_return_status VARCHAR2(1);
2693: l_lsrv_rec lsrv_rec_type := p_lsrv_rec;
2694: BEGIN
2695: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
2696: p_init_msg_list,
2697: '_PUB',
2698: x_return_status);
2699: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2695: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
2696: p_init_msg_list,
2697: '_PUB',
2698: x_return_status);
2699: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2700: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2701: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2702: raise OKC_API.G_EXCEPTION_ERROR;
2703: END IF;
2696: p_init_msg_list,
2697: '_PUB',
2698: x_return_status);
2699: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2700: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2701: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2702: raise OKC_API.G_EXCEPTION_ERROR;
2703: END IF;
2704: -- Call user hook for BEFORE
2697: '_PUB',
2698: x_return_status);
2699: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2700: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2701: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2702: raise OKC_API.G_EXCEPTION_ERROR;
2703: END IF;
2704: -- Call user hook for BEFORE
2705: g_lsrv_rec := l_lsrv_rec;
2698: x_return_status);
2699: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2700: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2701: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2702: raise OKC_API.G_EXCEPTION_ERROR;
2703: END IF;
2704: -- Call user hook for BEFORE
2705: g_lsrv_rec := l_lsrv_rec;
2706: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'B');
2703: END IF;
2704: -- Call user hook for BEFORE
2705: g_lsrv_rec := l_lsrv_rec;
2706: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'B');
2707: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2708: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2709: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2710: raise OKC_API.G_EXCEPTION_ERROR;
2711: END IF;
2704: -- Call user hook for BEFORE
2705: g_lsrv_rec := l_lsrv_rec;
2706: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'B');
2707: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2708: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2709: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2710: raise OKC_API.G_EXCEPTION_ERROR;
2711: END IF;
2712:
2705: g_lsrv_rec := l_lsrv_rec;
2706: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'B');
2707: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2708: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2709: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2710: raise OKC_API.G_EXCEPTION_ERROR;
2711: END IF;
2712:
2713: okc_subclass_pvt.delete_line_style_roles(
2706: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'B');
2707: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2708: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2709: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2710: raise OKC_API.G_EXCEPTION_ERROR;
2711: END IF;
2712:
2713: okc_subclass_pvt.delete_line_style_roles(
2714: p_api_version,
2716: x_return_status,
2717: x_msg_count,
2718: x_msg_data,
2719: p_lsrv_rec);
2720: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2721: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2722: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2723: raise OKC_API.G_EXCEPTION_ERROR;
2724: END IF;
2717: x_msg_count,
2718: x_msg_data,
2719: p_lsrv_rec);
2720: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2721: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2722: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2723: raise OKC_API.G_EXCEPTION_ERROR;
2724: END IF;
2725:
2718: x_msg_data,
2719: p_lsrv_rec);
2720: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2721: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2722: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2723: raise OKC_API.G_EXCEPTION_ERROR;
2724: END IF;
2725:
2726: -- Call user hook for AFTER
2719: p_lsrv_rec);
2720: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2721: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2722: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2723: raise OKC_API.G_EXCEPTION_ERROR;
2724: END IF;
2725:
2726: -- Call user hook for AFTER
2727: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'A');
2724: END IF;
2725:
2726: -- Call user hook for AFTER
2727: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'A');
2728: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2729: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2730: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2731: raise OKC_API.G_EXCEPTION_ERROR;
2732: END IF;
2725:
2726: -- Call user hook for AFTER
2727: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'A');
2728: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2729: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2730: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2731: raise OKC_API.G_EXCEPTION_ERROR;
2732: END IF;
2733: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2726: -- Call user hook for AFTER
2727: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'A');
2728: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2729: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2730: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2731: raise OKC_API.G_EXCEPTION_ERROR;
2732: END IF;
2733: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2734: EXCEPTION
2727: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'A');
2728: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2729: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2730: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2731: raise OKC_API.G_EXCEPTION_ERROR;
2732: END IF;
2733: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2734: EXCEPTION
2735: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2729: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2730: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2731: raise OKC_API.G_EXCEPTION_ERROR;
2732: END IF;
2733: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2734: EXCEPTION
2735: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2736: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2737: (l_api_name,
2731: raise OKC_API.G_EXCEPTION_ERROR;
2732: END IF;
2733: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2734: EXCEPTION
2735: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2736: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2737: (l_api_name,
2738: G_PKG_NAME,
2739: 'OKC_API.G_RET_STS_ERROR',
2732: END IF;
2733: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2734: EXCEPTION
2735: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2736: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2737: (l_api_name,
2738: G_PKG_NAME,
2739: 'OKC_API.G_RET_STS_ERROR',
2740: x_msg_count,
2735: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2736: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2737: (l_api_name,
2738: G_PKG_NAME,
2739: 'OKC_API.G_RET_STS_ERROR',
2740: x_msg_count,
2741: x_msg_data,
2742: '_PUB');
2743: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2739: 'OKC_API.G_RET_STS_ERROR',
2740: x_msg_count,
2741: x_msg_data,
2742: '_PUB');
2743: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2744: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2745: (l_api_name,
2746: G_PKG_NAME,
2747: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2740: x_msg_count,
2741: x_msg_data,
2742: '_PUB');
2743: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2744: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2745: (l_api_name,
2746: G_PKG_NAME,
2747: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2748: x_msg_count,
2743: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2744: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2745: (l_api_name,
2746: G_PKG_NAME,
2747: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2748: x_msg_count,
2749: x_msg_data,
2750: '_PUB');
2751: WHEN OTHERS THEN
2748: x_msg_count,
2749: x_msg_data,
2750: '_PUB');
2751: WHEN OTHERS THEN
2752: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2753: (l_api_name,
2754: G_PKG_NAME,
2755: 'OTHERS',
2756: x_msg_count,
2765: x_msg_count OUT NOCOPY NUMBER,
2766: x_msg_data OUT NOCOPY VARCHAR2,
2767: p_lsrv_tbl IN lsrv_tbl_type) IS
2768: i NUMBER := 0;
2769: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2770: BEGIN
2771: x_return_status := OKC_API.G_RET_STS_SUCCESS;
2772: IF p_lsrv_tbl.COUNT > 0 THEN
2773: i := p_lsrv_tbl.FIRST;
2767: p_lsrv_tbl IN lsrv_tbl_type) IS
2768: i NUMBER := 0;
2769: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2770: BEGIN
2771: x_return_status := OKC_API.G_RET_STS_SUCCESS;
2772: IF p_lsrv_tbl.COUNT > 0 THEN
2773: i := p_lsrv_tbl.FIRST;
2774: LOOP
2775: delete_line_style_roles(
2778: l_return_status,
2779: x_msg_count,
2780: x_msg_data,
2781: p_lsrv_tbl(i));
2782: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
2783: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2784: x_return_status := l_return_status;
2785: raise G_EXCEPTION_HALT_VALIDATION;
2786: ELSE
2779: x_msg_count,
2780: x_msg_data,
2781: p_lsrv_tbl(i));
2782: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
2783: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2784: x_return_status := l_return_status;
2785: raise G_EXCEPTION_HALT_VALIDATION;
2786: ELSE
2787: x_return_status := l_return_status;
2794: EXCEPTION
2795: WHEN G_EXCEPTION_HALT_VALIDATION THEN
2796: NULL;
2797: WHEN OTHERS THEN
2798: OKC_API.set_message(p_app_name => g_app_name,
2799: p_msg_name => g_unexpected_error,
2800: p_token1 => g_sqlcode_token,
2801: p_token1_value => sqlcode,
2802: p_token2 => g_sqlerrm_token,
2800: p_token1 => g_sqlcode_token,
2801: p_token1_value => sqlcode,
2802: p_token2 => g_sqlerrm_token,
2803: p_token2_value => sqlerrm);
2804: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
2805: END delete_line_style_roles;
2806:
2807: PROCEDURE lock_line_style_roles(
2808: p_api_version IN NUMBER,
2883: l_api_name CONSTANT VARCHAR2(30) := 'create_lse_rule_groups';
2884: l_return_status VARCHAR2(1);
2885: l_lrgv_rec lrgv_rec_type := p_lrgv_rec;
2886: BEGIN
2887: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
2888: p_init_msg_list,
2889: '_PUB',
2890: x_return_status);
2891: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2887: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
2888: p_init_msg_list,
2889: '_PUB',
2890: x_return_status);
2891: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2892: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2893: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2894: raise OKC_API.G_EXCEPTION_ERROR;
2895: END IF;
2888: p_init_msg_list,
2889: '_PUB',
2890: x_return_status);
2891: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2892: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2893: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2894: raise OKC_API.G_EXCEPTION_ERROR;
2895: END IF;
2896: -- Call user hook for BEFORE
2889: '_PUB',
2890: x_return_status);
2891: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2892: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2893: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2894: raise OKC_API.G_EXCEPTION_ERROR;
2895: END IF;
2896: -- Call user hook for BEFORE
2897: g_lrgv_rec := l_lrgv_rec;
2890: x_return_status);
2891: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2892: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2893: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2894: raise OKC_API.G_EXCEPTION_ERROR;
2895: END IF;
2896: -- Call user hook for BEFORE
2897: g_lrgv_rec := l_lrgv_rec;
2898: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'B');
2895: END IF;
2896: -- Call user hook for BEFORE
2897: g_lrgv_rec := l_lrgv_rec;
2898: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'B');
2899: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2900: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2901: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2902: raise OKC_API.G_EXCEPTION_ERROR;
2903: END IF;
2896: -- Call user hook for BEFORE
2897: g_lrgv_rec := l_lrgv_rec;
2898: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'B');
2899: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2900: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2901: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2902: raise OKC_API.G_EXCEPTION_ERROR;
2903: END IF;
2904: l_lrgv_rec := migrate_lrgv(l_lrgv_rec, g_lrgv_rec);
2897: g_lrgv_rec := l_lrgv_rec;
2898: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'B');
2899: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2900: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2901: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2902: raise OKC_API.G_EXCEPTION_ERROR;
2903: END IF;
2904: l_lrgv_rec := migrate_lrgv(l_lrgv_rec, g_lrgv_rec);
2905:
2898: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'B');
2899: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2900: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2901: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2902: raise OKC_API.G_EXCEPTION_ERROR;
2903: END IF;
2904: l_lrgv_rec := migrate_lrgv(l_lrgv_rec, g_lrgv_rec);
2905:
2906: okc_subclass_pvt.create_lse_rule_groups(
2910: x_msg_count,
2911: x_msg_data,
2912: l_lrgv_rec,
2913: x_lrgv_rec);
2914: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2915: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2916: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2917: raise OKC_API.G_EXCEPTION_ERROR;
2918: END IF;
2911: x_msg_data,
2912: l_lrgv_rec,
2913: x_lrgv_rec);
2914: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2915: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2916: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2917: raise OKC_API.G_EXCEPTION_ERROR;
2918: END IF;
2919:
2912: l_lrgv_rec,
2913: x_lrgv_rec);
2914: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2915: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2916: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2917: raise OKC_API.G_EXCEPTION_ERROR;
2918: END IF;
2919:
2920: -- Call user hook for AFTER
2913: x_lrgv_rec);
2914: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2915: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2916: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2917: raise OKC_API.G_EXCEPTION_ERROR;
2918: END IF;
2919:
2920: -- Call user hook for AFTER
2921: g_lrgv_rec := x_lrgv_rec;
2919:
2920: -- Call user hook for AFTER
2921: g_lrgv_rec := x_lrgv_rec;
2922: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'A');
2923: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2924: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2925: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2926: raise OKC_API.G_EXCEPTION_ERROR;
2927: END IF;
2920: -- Call user hook for AFTER
2921: g_lrgv_rec := x_lrgv_rec;
2922: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'A');
2923: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2924: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2925: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2926: raise OKC_API.G_EXCEPTION_ERROR;
2927: END IF;
2928: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2921: g_lrgv_rec := x_lrgv_rec;
2922: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'A');
2923: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2924: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2925: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2926: raise OKC_API.G_EXCEPTION_ERROR;
2927: END IF;
2928: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2929: EXCEPTION
2922: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'A');
2923: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2924: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2925: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2926: raise OKC_API.G_EXCEPTION_ERROR;
2927: END IF;
2928: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2929: EXCEPTION
2930: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2924: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2925: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2926: raise OKC_API.G_EXCEPTION_ERROR;
2927: END IF;
2928: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2929: EXCEPTION
2930: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2931: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2932: (l_api_name,
2926: raise OKC_API.G_EXCEPTION_ERROR;
2927: END IF;
2928: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2929: EXCEPTION
2930: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2931: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2932: (l_api_name,
2933: G_PKG_NAME,
2934: 'OKC_API.G_RET_STS_ERROR',
2927: END IF;
2928: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2929: EXCEPTION
2930: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2931: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2932: (l_api_name,
2933: G_PKG_NAME,
2934: 'OKC_API.G_RET_STS_ERROR',
2935: x_msg_count,
2930: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2931: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2932: (l_api_name,
2933: G_PKG_NAME,
2934: 'OKC_API.G_RET_STS_ERROR',
2935: x_msg_count,
2936: x_msg_data,
2937: '_PUB');
2938: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2934: 'OKC_API.G_RET_STS_ERROR',
2935: x_msg_count,
2936: x_msg_data,
2937: '_PUB');
2938: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2939: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2940: (l_api_name,
2941: G_PKG_NAME,
2942: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2935: x_msg_count,
2936: x_msg_data,
2937: '_PUB');
2938: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2939: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2940: (l_api_name,
2941: G_PKG_NAME,
2942: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2943: x_msg_count,
2938: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2939: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2940: (l_api_name,
2941: G_PKG_NAME,
2942: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2943: x_msg_count,
2944: x_msg_data,
2945: '_PUB');
2946: WHEN OTHERS THEN
2943: x_msg_count,
2944: x_msg_data,
2945: '_PUB');
2946: WHEN OTHERS THEN
2947: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2948: (l_api_name,
2949: G_PKG_NAME,
2950: 'OTHERS',
2951: x_msg_count,
2961: x_msg_data OUT NOCOPY VARCHAR2,
2962: p_lrgv_tbl IN lrgv_tbl_type,
2963: x_lrgv_tbl OUT NOCOPY lrgv_tbl_type) IS
2964: i NUMBER := 0;
2965: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2966: BEGIN
2967: x_return_status := OKC_API.G_RET_STS_SUCCESS;
2968: IF p_lrgv_tbl.COUNT > 0 THEN
2969: i := p_lrgv_tbl.FIRST;
2963: x_lrgv_tbl OUT NOCOPY lrgv_tbl_type) IS
2964: i NUMBER := 0;
2965: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2966: BEGIN
2967: x_return_status := OKC_API.G_RET_STS_SUCCESS;
2968: IF p_lrgv_tbl.COUNT > 0 THEN
2969: i := p_lrgv_tbl.FIRST;
2970: LOOP
2971: create_lse_rule_groups(
2975: x_msg_count,
2976: x_msg_data,
2977: p_lrgv_tbl(i),
2978: x_lrgv_tbl(i));
2979: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
2980: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2981: x_return_status := l_return_status;
2982: raise G_EXCEPTION_HALT_VALIDATION;
2983: ELSE
2976: x_msg_data,
2977: p_lrgv_tbl(i),
2978: x_lrgv_tbl(i));
2979: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
2980: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2981: x_return_status := l_return_status;
2982: raise G_EXCEPTION_HALT_VALIDATION;
2983: ELSE
2984: x_return_status := l_return_status;
2991: EXCEPTION
2992: WHEN G_EXCEPTION_HALT_VALIDATION THEN
2993: NULL;
2994: WHEN OTHERS THEN
2995: OKC_API.set_message(p_app_name => g_app_name,
2996: p_msg_name => g_unexpected_error,
2997: p_token1 => g_sqlcode_token,
2998: p_token1_value => sqlcode,
2999: p_token2 => g_sqlerrm_token,
2997: p_token1 => g_sqlcode_token,
2998: p_token1_value => sqlcode,
2999: p_token2 => g_sqlerrm_token,
3000: p_token2_value => sqlerrm);
3001: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
3002: END create_lse_rule_groups;
3003:
3004: PROCEDURE update_lse_rule_groups(
3005: p_api_version IN NUMBER,
3012: l_api_name CONSTANT VARCHAR2(30) := 'update_lse_rule_groups';
3013: l_return_status VARCHAR2(1);
3014: l_lrgv_rec lrgv_rec_type := p_lrgv_rec;
3015: BEGIN
3016: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
3017: p_init_msg_list,
3018: '_PUB',
3019: x_return_status);
3020: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3016: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
3017: p_init_msg_list,
3018: '_PUB',
3019: x_return_status);
3020: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3021: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3022: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3023: raise OKC_API.G_EXCEPTION_ERROR;
3024: END IF;
3017: p_init_msg_list,
3018: '_PUB',
3019: x_return_status);
3020: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3021: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3022: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3023: raise OKC_API.G_EXCEPTION_ERROR;
3024: END IF;
3025: -- Call user hook for BEFORE
3018: '_PUB',
3019: x_return_status);
3020: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3021: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3022: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3023: raise OKC_API.G_EXCEPTION_ERROR;
3024: END IF;
3025: -- Call user hook for BEFORE
3026: g_lrgv_rec := l_lrgv_rec;
3019: x_return_status);
3020: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3021: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3022: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3023: raise OKC_API.G_EXCEPTION_ERROR;
3024: END IF;
3025: -- Call user hook for BEFORE
3026: g_lrgv_rec := l_lrgv_rec;
3027: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'B');
3024: END IF;
3025: -- Call user hook for BEFORE
3026: g_lrgv_rec := l_lrgv_rec;
3027: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'B');
3028: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3029: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3030: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3031: raise OKC_API.G_EXCEPTION_ERROR;
3032: END IF;
3025: -- Call user hook for BEFORE
3026: g_lrgv_rec := l_lrgv_rec;
3027: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'B');
3028: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3029: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3030: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3031: raise OKC_API.G_EXCEPTION_ERROR;
3032: END IF;
3033: l_lrgv_rec := migrate_lrgv(l_lrgv_rec, g_lrgv_rec);
3026: g_lrgv_rec := l_lrgv_rec;
3027: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'B');
3028: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3029: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3030: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3031: raise OKC_API.G_EXCEPTION_ERROR;
3032: END IF;
3033: l_lrgv_rec := migrate_lrgv(l_lrgv_rec, g_lrgv_rec);
3034:
3027: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'B');
3028: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3029: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3030: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3031: raise OKC_API.G_EXCEPTION_ERROR;
3032: END IF;
3033: l_lrgv_rec := migrate_lrgv(l_lrgv_rec, g_lrgv_rec);
3034:
3035: okc_subclass_pvt.update_lse_rule_groups(
3039: x_msg_count,
3040: x_msg_data,
3041: l_lrgv_rec,
3042: x_lrgv_rec);
3043: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3044: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3045: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3046: raise OKC_API.G_EXCEPTION_ERROR;
3047: END IF;
3040: x_msg_data,
3041: l_lrgv_rec,
3042: x_lrgv_rec);
3043: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3044: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3045: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3046: raise OKC_API.G_EXCEPTION_ERROR;
3047: END IF;
3048:
3041: l_lrgv_rec,
3042: x_lrgv_rec);
3043: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3044: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3045: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3046: raise OKC_API.G_EXCEPTION_ERROR;
3047: END IF;
3048:
3049: -- Call user hook for AFTER
3042: x_lrgv_rec);
3043: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3044: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3045: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3046: raise OKC_API.G_EXCEPTION_ERROR;
3047: END IF;
3048:
3049: -- Call user hook for AFTER
3050: g_lrgv_rec := x_lrgv_rec;
3048:
3049: -- Call user hook for AFTER
3050: g_lrgv_rec := x_lrgv_rec;
3051: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'A');
3052: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3053: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3054: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3055: raise OKC_API.G_EXCEPTION_ERROR;
3056: END IF;
3049: -- Call user hook for AFTER
3050: g_lrgv_rec := x_lrgv_rec;
3051: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'A');
3052: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3053: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3054: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3055: raise OKC_API.G_EXCEPTION_ERROR;
3056: END IF;
3057: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3050: g_lrgv_rec := x_lrgv_rec;
3051: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'A');
3052: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3053: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3054: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3055: raise OKC_API.G_EXCEPTION_ERROR;
3056: END IF;
3057: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3058: EXCEPTION
3051: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'A');
3052: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3053: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3054: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3055: raise OKC_API.G_EXCEPTION_ERROR;
3056: END IF;
3057: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3058: EXCEPTION
3059: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3053: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3054: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3055: raise OKC_API.G_EXCEPTION_ERROR;
3056: END IF;
3057: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3058: EXCEPTION
3059: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3060: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3061: (l_api_name,
3055: raise OKC_API.G_EXCEPTION_ERROR;
3056: END IF;
3057: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3058: EXCEPTION
3059: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3060: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3061: (l_api_name,
3062: G_PKG_NAME,
3063: 'OKC_API.G_RET_STS_ERROR',
3056: END IF;
3057: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3058: EXCEPTION
3059: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3060: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3061: (l_api_name,
3062: G_PKG_NAME,
3063: 'OKC_API.G_RET_STS_ERROR',
3064: x_msg_count,
3059: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3060: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3061: (l_api_name,
3062: G_PKG_NAME,
3063: 'OKC_API.G_RET_STS_ERROR',
3064: x_msg_count,
3065: x_msg_data,
3066: '_PUB');
3067: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3063: 'OKC_API.G_RET_STS_ERROR',
3064: x_msg_count,
3065: x_msg_data,
3066: '_PUB');
3067: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3068: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3069: (l_api_name,
3070: G_PKG_NAME,
3071: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3064: x_msg_count,
3065: x_msg_data,
3066: '_PUB');
3067: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3068: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3069: (l_api_name,
3070: G_PKG_NAME,
3071: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3072: x_msg_count,
3067: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3068: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3069: (l_api_name,
3070: G_PKG_NAME,
3071: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3072: x_msg_count,
3073: x_msg_data,
3074: '_PUB');
3075: WHEN OTHERS THEN
3072: x_msg_count,
3073: x_msg_data,
3074: '_PUB');
3075: WHEN OTHERS THEN
3076: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3077: (l_api_name,
3078: G_PKG_NAME,
3079: 'OTHERS',
3080: x_msg_count,
3090: x_msg_data OUT NOCOPY VARCHAR2,
3091: p_lrgv_tbl IN lrgv_tbl_type,
3092: x_lrgv_tbl OUT NOCOPY lrgv_tbl_type) IS
3093: i NUMBER := 0;
3094: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3095: BEGIN
3096: x_return_status := OKC_API.G_RET_STS_SUCCESS;
3097: IF p_lrgv_tbl.COUNT > 0 THEN
3098: i := p_lrgv_tbl.FIRST;
3092: x_lrgv_tbl OUT NOCOPY lrgv_tbl_type) IS
3093: i NUMBER := 0;
3094: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3095: BEGIN
3096: x_return_status := OKC_API.G_RET_STS_SUCCESS;
3097: IF p_lrgv_tbl.COUNT > 0 THEN
3098: i := p_lrgv_tbl.FIRST;
3099: LOOP
3100: update_lse_rule_groups(
3104: x_msg_count,
3105: x_msg_data,
3106: p_lrgv_tbl(i),
3107: x_lrgv_tbl(i));
3108: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
3109: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3110: x_return_status := l_return_status;
3111: raise G_EXCEPTION_HALT_VALIDATION;
3112: ELSE
3105: x_msg_data,
3106: p_lrgv_tbl(i),
3107: x_lrgv_tbl(i));
3108: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
3109: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3110: x_return_status := l_return_status;
3111: raise G_EXCEPTION_HALT_VALIDATION;
3112: ELSE
3113: x_return_status := l_return_status;
3120: EXCEPTION
3121: WHEN G_EXCEPTION_HALT_VALIDATION THEN
3122: NULL;
3123: WHEN OTHERS THEN
3124: OKC_API.set_message(p_app_name => g_app_name,
3125: p_msg_name => g_unexpected_error,
3126: p_token1 => g_sqlcode_token,
3127: p_token1_value => sqlcode,
3128: p_token2 => g_sqlerrm_token,
3126: p_token1 => g_sqlcode_token,
3127: p_token1_value => sqlcode,
3128: p_token2 => g_sqlerrm_token,
3129: p_token2_value => sqlerrm);
3130: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
3131: END update_lse_rule_groups;
3132:
3133: PROCEDURE delete_lse_rule_groups(
3134: p_api_version IN NUMBER,
3140: l_api_name CONSTANT VARCHAR2(30) := 'delete_lse_rule_groups';
3141: l_return_status VARCHAR2(1);
3142: l_lrgv_rec lrgv_rec_type := p_lrgv_rec;
3143: BEGIN
3144: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
3145: p_init_msg_list,
3146: '_PUB',
3147: x_return_status);
3148: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3144: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
3145: p_init_msg_list,
3146: '_PUB',
3147: x_return_status);
3148: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3149: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3150: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3151: raise OKC_API.G_EXCEPTION_ERROR;
3152: END IF;
3145: p_init_msg_list,
3146: '_PUB',
3147: x_return_status);
3148: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3149: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3150: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3151: raise OKC_API.G_EXCEPTION_ERROR;
3152: END IF;
3153: -- Call user hook for BEFORE
3146: '_PUB',
3147: x_return_status);
3148: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3149: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3150: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3151: raise OKC_API.G_EXCEPTION_ERROR;
3152: END IF;
3153: -- Call user hook for BEFORE
3154: g_lrgv_rec := l_lrgv_rec;
3147: x_return_status);
3148: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3149: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3150: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3151: raise OKC_API.G_EXCEPTION_ERROR;
3152: END IF;
3153: -- Call user hook for BEFORE
3154: g_lrgv_rec := l_lrgv_rec;
3155: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'B');
3152: END IF;
3153: -- Call user hook for BEFORE
3154: g_lrgv_rec := l_lrgv_rec;
3155: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'B');
3156: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3157: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3158: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3159: raise OKC_API.G_EXCEPTION_ERROR;
3160: END IF;
3153: -- Call user hook for BEFORE
3154: g_lrgv_rec := l_lrgv_rec;
3155: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'B');
3156: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3157: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3158: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3159: raise OKC_API.G_EXCEPTION_ERROR;
3160: END IF;
3161:
3154: g_lrgv_rec := l_lrgv_rec;
3155: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'B');
3156: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3157: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3158: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3159: raise OKC_API.G_EXCEPTION_ERROR;
3160: END IF;
3161:
3162: okc_subclass_pvt.delete_lse_rule_groups(
3155: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'B');
3156: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3157: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3158: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3159: raise OKC_API.G_EXCEPTION_ERROR;
3160: END IF;
3161:
3162: okc_subclass_pvt.delete_lse_rule_groups(
3163: p_api_version,
3165: x_return_status,
3166: x_msg_count,
3167: x_msg_data,
3168: p_lrgv_rec);
3169: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3170: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3171: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3172: raise OKC_API.G_EXCEPTION_ERROR;
3173: END IF;
3166: x_msg_count,
3167: x_msg_data,
3168: p_lrgv_rec);
3169: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3170: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3171: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3172: raise OKC_API.G_EXCEPTION_ERROR;
3173: END IF;
3174:
3167: x_msg_data,
3168: p_lrgv_rec);
3169: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3170: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3171: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3172: raise OKC_API.G_EXCEPTION_ERROR;
3173: END IF;
3174:
3175: -- Call user hook for AFTER
3168: p_lrgv_rec);
3169: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3170: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3171: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3172: raise OKC_API.G_EXCEPTION_ERROR;
3173: END IF;
3174:
3175: -- Call user hook for AFTER
3176: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'A');
3173: END IF;
3174:
3175: -- Call user hook for AFTER
3176: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'A');
3177: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3178: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3179: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3180: raise OKC_API.G_EXCEPTION_ERROR;
3181: END IF;
3174:
3175: -- Call user hook for AFTER
3176: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'A');
3177: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3178: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3179: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3180: raise OKC_API.G_EXCEPTION_ERROR;
3181: END IF;
3182: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3175: -- Call user hook for AFTER
3176: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'A');
3177: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3178: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3179: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3180: raise OKC_API.G_EXCEPTION_ERROR;
3181: END IF;
3182: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3183: EXCEPTION
3176: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'A');
3177: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3178: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3179: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3180: raise OKC_API.G_EXCEPTION_ERROR;
3181: END IF;
3182: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3183: EXCEPTION
3184: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3178: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3179: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3180: raise OKC_API.G_EXCEPTION_ERROR;
3181: END IF;
3182: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3183: EXCEPTION
3184: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3185: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3186: (l_api_name,
3180: raise OKC_API.G_EXCEPTION_ERROR;
3181: END IF;
3182: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3183: EXCEPTION
3184: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3185: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3186: (l_api_name,
3187: G_PKG_NAME,
3188: 'OKC_API.G_RET_STS_ERROR',
3181: END IF;
3182: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3183: EXCEPTION
3184: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3185: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3186: (l_api_name,
3187: G_PKG_NAME,
3188: 'OKC_API.G_RET_STS_ERROR',
3189: x_msg_count,
3184: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3185: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3186: (l_api_name,
3187: G_PKG_NAME,
3188: 'OKC_API.G_RET_STS_ERROR',
3189: x_msg_count,
3190: x_msg_data,
3191: '_PUB');
3192: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3188: 'OKC_API.G_RET_STS_ERROR',
3189: x_msg_count,
3190: x_msg_data,
3191: '_PUB');
3192: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3193: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3194: (l_api_name,
3195: G_PKG_NAME,
3196: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3189: x_msg_count,
3190: x_msg_data,
3191: '_PUB');
3192: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3193: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3194: (l_api_name,
3195: G_PKG_NAME,
3196: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3197: x_msg_count,
3192: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3193: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3194: (l_api_name,
3195: G_PKG_NAME,
3196: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3197: x_msg_count,
3198: x_msg_data,
3199: '_PUB');
3200: WHEN OTHERS THEN
3197: x_msg_count,
3198: x_msg_data,
3199: '_PUB');
3200: WHEN OTHERS THEN
3201: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3202: (l_api_name,
3203: G_PKG_NAME,
3204: 'OTHERS',
3205: x_msg_count,
3214: x_msg_count OUT NOCOPY NUMBER,
3215: x_msg_data OUT NOCOPY VARCHAR2,
3216: p_lrgv_tbl IN lrgv_tbl_type) IS
3217: i NUMBER := 0;
3218: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3219: BEGIN
3220: x_return_status := OKC_API.G_RET_STS_SUCCESS;
3221: IF p_lrgv_tbl.COUNT > 0 THEN
3222: i := p_lrgv_tbl.FIRST;
3216: p_lrgv_tbl IN lrgv_tbl_type) IS
3217: i NUMBER := 0;
3218: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3219: BEGIN
3220: x_return_status := OKC_API.G_RET_STS_SUCCESS;
3221: IF p_lrgv_tbl.COUNT > 0 THEN
3222: i := p_lrgv_tbl.FIRST;
3223: LOOP
3224: delete_lse_rule_groups(
3227: l_return_status,
3228: x_msg_count,
3229: x_msg_data,
3230: p_lrgv_tbl(i));
3231: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
3232: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3233: x_return_status := l_return_status;
3234: raise G_EXCEPTION_HALT_VALIDATION;
3235: ELSE
3228: x_msg_count,
3229: x_msg_data,
3230: p_lrgv_tbl(i));
3231: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
3232: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3233: x_return_status := l_return_status;
3234: raise G_EXCEPTION_HALT_VALIDATION;
3235: ELSE
3236: x_return_status := l_return_status;
3243: EXCEPTION
3244: WHEN G_EXCEPTION_HALT_VALIDATION THEN
3245: NULL;
3246: WHEN OTHERS THEN
3247: OKC_API.set_message(p_app_name => g_app_name,
3248: p_msg_name => g_unexpected_error,
3249: p_token1 => g_sqlcode_token,
3250: p_token1_value => sqlcode,
3251: p_token2 => g_sqlerrm_token,
3249: p_token1 => g_sqlcode_token,
3250: p_token1_value => sqlcode,
3251: p_token2 => g_sqlerrm_token,
3252: p_token2_value => sqlerrm);
3253: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
3254: END delete_lse_rule_groups;
3255:
3256: PROCEDURE lock_lse_rule_groups(
3257: p_api_version IN NUMBER,
3332: l_api_name CONSTANT VARCHAR2(30) := 'create_subclass_resps';
3333: l_return_status VARCHAR2(1);
3334: l_srav_rec srav_rec_type := p_srav_rec;
3335: BEGIN
3336: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
3337: p_init_msg_list,
3338: '_PUB',
3339: x_return_status);
3340: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3336: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
3337: p_init_msg_list,
3338: '_PUB',
3339: x_return_status);
3340: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3341: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3342: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3343: raise OKC_API.G_EXCEPTION_ERROR;
3344: END IF;
3337: p_init_msg_list,
3338: '_PUB',
3339: x_return_status);
3340: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3341: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3342: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3343: raise OKC_API.G_EXCEPTION_ERROR;
3344: END IF;
3345: -- Call user hook for BEFORE
3338: '_PUB',
3339: x_return_status);
3340: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3341: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3342: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3343: raise OKC_API.G_EXCEPTION_ERROR;
3344: END IF;
3345: -- Call user hook for BEFORE
3346: g_srav_rec := l_srav_rec;
3339: x_return_status);
3340: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3341: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3342: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3343: raise OKC_API.G_EXCEPTION_ERROR;
3344: END IF;
3345: -- Call user hook for BEFORE
3346: g_srav_rec := l_srav_rec;
3347: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'B');
3344: END IF;
3345: -- Call user hook for BEFORE
3346: g_srav_rec := l_srav_rec;
3347: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'B');
3348: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3349: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3350: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3351: raise OKC_API.G_EXCEPTION_ERROR;
3352: END IF;
3345: -- Call user hook for BEFORE
3346: g_srav_rec := l_srav_rec;
3347: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'B');
3348: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3349: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3350: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3351: raise OKC_API.G_EXCEPTION_ERROR;
3352: END IF;
3353: l_srav_rec := migrate_srav(l_srav_rec, g_srav_rec);
3346: g_srav_rec := l_srav_rec;
3347: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'B');
3348: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3349: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3350: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3351: raise OKC_API.G_EXCEPTION_ERROR;
3352: END IF;
3353: l_srav_rec := migrate_srav(l_srav_rec, g_srav_rec);
3354:
3347: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'B');
3348: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3349: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3350: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3351: raise OKC_API.G_EXCEPTION_ERROR;
3352: END IF;
3353: l_srav_rec := migrate_srav(l_srav_rec, g_srav_rec);
3354:
3355: okc_subclass_pvt.create_subclass_resps(
3359: x_msg_count,
3360: x_msg_data,
3361: l_srav_rec,
3362: x_srav_rec);
3363: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3364: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3365: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3366: raise OKC_API.G_EXCEPTION_ERROR;
3367: END IF;
3360: x_msg_data,
3361: l_srav_rec,
3362: x_srav_rec);
3363: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3364: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3365: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3366: raise OKC_API.G_EXCEPTION_ERROR;
3367: END IF;
3368:
3361: l_srav_rec,
3362: x_srav_rec);
3363: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3364: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3365: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3366: raise OKC_API.G_EXCEPTION_ERROR;
3367: END IF;
3368:
3369: -- Call user hook for AFTER
3362: x_srav_rec);
3363: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3364: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3365: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3366: raise OKC_API.G_EXCEPTION_ERROR;
3367: END IF;
3368:
3369: -- Call user hook for AFTER
3370: g_srav_rec := x_srav_rec;
3368:
3369: -- Call user hook for AFTER
3370: g_srav_rec := x_srav_rec;
3371: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'A');
3372: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3373: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3374: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3375: raise OKC_API.G_EXCEPTION_ERROR;
3376: END IF;
3369: -- Call user hook for AFTER
3370: g_srav_rec := x_srav_rec;
3371: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'A');
3372: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3373: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3374: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3375: raise OKC_API.G_EXCEPTION_ERROR;
3376: END IF;
3377: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3370: g_srav_rec := x_srav_rec;
3371: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'A');
3372: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3373: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3374: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3375: raise OKC_API.G_EXCEPTION_ERROR;
3376: END IF;
3377: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3378: EXCEPTION
3371: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'A');
3372: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3373: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3374: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3375: raise OKC_API.G_EXCEPTION_ERROR;
3376: END IF;
3377: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3378: EXCEPTION
3379: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3373: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3374: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3375: raise OKC_API.G_EXCEPTION_ERROR;
3376: END IF;
3377: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3378: EXCEPTION
3379: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3380: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3381: (l_api_name,
3375: raise OKC_API.G_EXCEPTION_ERROR;
3376: END IF;
3377: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3378: EXCEPTION
3379: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3380: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3381: (l_api_name,
3382: G_PKG_NAME,
3383: 'OKC_API.G_RET_STS_ERROR',
3376: END IF;
3377: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3378: EXCEPTION
3379: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3380: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3381: (l_api_name,
3382: G_PKG_NAME,
3383: 'OKC_API.G_RET_STS_ERROR',
3384: x_msg_count,
3379: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3380: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3381: (l_api_name,
3382: G_PKG_NAME,
3383: 'OKC_API.G_RET_STS_ERROR',
3384: x_msg_count,
3385: x_msg_data,
3386: '_PUB');
3387: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3383: 'OKC_API.G_RET_STS_ERROR',
3384: x_msg_count,
3385: x_msg_data,
3386: '_PUB');
3387: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3388: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3389: (l_api_name,
3390: G_PKG_NAME,
3391: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3384: x_msg_count,
3385: x_msg_data,
3386: '_PUB');
3387: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3388: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3389: (l_api_name,
3390: G_PKG_NAME,
3391: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3392: x_msg_count,
3387: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3388: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3389: (l_api_name,
3390: G_PKG_NAME,
3391: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3392: x_msg_count,
3393: x_msg_data,
3394: '_PUB');
3395: WHEN OTHERS THEN
3392: x_msg_count,
3393: x_msg_data,
3394: '_PUB');
3395: WHEN OTHERS THEN
3396: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3397: (l_api_name,
3398: G_PKG_NAME,
3399: 'OTHERS',
3400: x_msg_count,
3410: x_msg_data OUT NOCOPY VARCHAR2,
3411: p_srav_tbl IN srav_tbl_type,
3412: x_srav_tbl OUT NOCOPY srav_tbl_type) IS
3413: i NUMBER := 0;
3414: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3415: BEGIN
3416: x_return_status := OKC_API.G_RET_STS_SUCCESS;
3417: IF p_srav_tbl.COUNT > 0 THEN
3418: i := p_srav_tbl.FIRST;
3412: x_srav_tbl OUT NOCOPY srav_tbl_type) IS
3413: i NUMBER := 0;
3414: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3415: BEGIN
3416: x_return_status := OKC_API.G_RET_STS_SUCCESS;
3417: IF p_srav_tbl.COUNT > 0 THEN
3418: i := p_srav_tbl.FIRST;
3419: LOOP
3420: create_subclass_resps(
3424: x_msg_count,
3425: x_msg_data,
3426: p_srav_tbl(i),
3427: x_srav_tbl(i));
3428: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
3429: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3430: x_return_status := l_return_status;
3431: raise G_EXCEPTION_HALT_VALIDATION;
3432: ELSE
3425: x_msg_data,
3426: p_srav_tbl(i),
3427: x_srav_tbl(i));
3428: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
3429: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3430: x_return_status := l_return_status;
3431: raise G_EXCEPTION_HALT_VALIDATION;
3432: ELSE
3433: x_return_status := l_return_status;
3440: EXCEPTION
3441: WHEN G_EXCEPTION_HALT_VALIDATION THEN
3442: NULL;
3443: WHEN OTHERS THEN
3444: OKC_API.set_message(p_app_name => g_app_name,
3445: p_msg_name => g_unexpected_error,
3446: p_token1 => g_sqlcode_token,
3447: p_token1_value => sqlcode,
3448: p_token2 => g_sqlerrm_token,
3446: p_token1 => g_sqlcode_token,
3447: p_token1_value => sqlcode,
3448: p_token2 => g_sqlerrm_token,
3449: p_token2_value => sqlerrm);
3450: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
3451: END create_subclass_resps;
3452:
3453: PROCEDURE update_subclass_resps(
3454: p_api_version IN NUMBER,
3461: l_api_name CONSTANT VARCHAR2(30) := 'update_subclass_resps';
3462: l_return_status VARCHAR2(1);
3463: l_srav_rec srav_rec_type := p_srav_rec;
3464: BEGIN
3465: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
3466: p_init_msg_list,
3467: '_PUB',
3468: x_return_status);
3469: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3465: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
3466: p_init_msg_list,
3467: '_PUB',
3468: x_return_status);
3469: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3470: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3471: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3472: raise OKC_API.G_EXCEPTION_ERROR;
3473: END IF;
3466: p_init_msg_list,
3467: '_PUB',
3468: x_return_status);
3469: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3470: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3471: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3472: raise OKC_API.G_EXCEPTION_ERROR;
3473: END IF;
3474: -- Call user hook for BEFORE
3467: '_PUB',
3468: x_return_status);
3469: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3470: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3471: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3472: raise OKC_API.G_EXCEPTION_ERROR;
3473: END IF;
3474: -- Call user hook for BEFORE
3475: g_srav_rec := l_srav_rec;
3468: x_return_status);
3469: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3470: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3471: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3472: raise OKC_API.G_EXCEPTION_ERROR;
3473: END IF;
3474: -- Call user hook for BEFORE
3475: g_srav_rec := l_srav_rec;
3476: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'B');
3473: END IF;
3474: -- Call user hook for BEFORE
3475: g_srav_rec := l_srav_rec;
3476: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'B');
3477: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3478: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3479: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3480: raise OKC_API.G_EXCEPTION_ERROR;
3481: END IF;
3474: -- Call user hook for BEFORE
3475: g_srav_rec := l_srav_rec;
3476: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'B');
3477: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3478: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3479: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3480: raise OKC_API.G_EXCEPTION_ERROR;
3481: END IF;
3482: l_srav_rec := migrate_srav(l_srav_rec, g_srav_rec);
3475: g_srav_rec := l_srav_rec;
3476: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'B');
3477: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3478: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3479: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3480: raise OKC_API.G_EXCEPTION_ERROR;
3481: END IF;
3482: l_srav_rec := migrate_srav(l_srav_rec, g_srav_rec);
3483:
3476: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'B');
3477: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3478: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3479: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3480: raise OKC_API.G_EXCEPTION_ERROR;
3481: END IF;
3482: l_srav_rec := migrate_srav(l_srav_rec, g_srav_rec);
3483:
3484: okc_subclass_pvt.update_subclass_resps(
3488: x_msg_count,
3489: x_msg_data,
3490: l_srav_rec,
3491: x_srav_rec);
3492: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3493: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3494: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3495: raise OKC_API.G_EXCEPTION_ERROR;
3496: END IF;
3489: x_msg_data,
3490: l_srav_rec,
3491: x_srav_rec);
3492: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3493: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3494: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3495: raise OKC_API.G_EXCEPTION_ERROR;
3496: END IF;
3497:
3490: l_srav_rec,
3491: x_srav_rec);
3492: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3493: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3494: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3495: raise OKC_API.G_EXCEPTION_ERROR;
3496: END IF;
3497:
3498: -- Call user hook for AFTER
3491: x_srav_rec);
3492: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3493: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3494: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3495: raise OKC_API.G_EXCEPTION_ERROR;
3496: END IF;
3497:
3498: -- Call user hook for AFTER
3499: g_srav_rec := x_srav_rec;
3497:
3498: -- Call user hook for AFTER
3499: g_srav_rec := x_srav_rec;
3500: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'A');
3501: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3502: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3503: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3504: raise OKC_API.G_EXCEPTION_ERROR;
3505: END IF;
3498: -- Call user hook for AFTER
3499: g_srav_rec := x_srav_rec;
3500: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'A');
3501: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3502: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3503: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3504: raise OKC_API.G_EXCEPTION_ERROR;
3505: END IF;
3506: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3499: g_srav_rec := x_srav_rec;
3500: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'A');
3501: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3502: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3503: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3504: raise OKC_API.G_EXCEPTION_ERROR;
3505: END IF;
3506: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3507: EXCEPTION
3500: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'A');
3501: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3502: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3503: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3504: raise OKC_API.G_EXCEPTION_ERROR;
3505: END IF;
3506: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3507: EXCEPTION
3508: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3502: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3503: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3504: raise OKC_API.G_EXCEPTION_ERROR;
3505: END IF;
3506: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3507: EXCEPTION
3508: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3509: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3510: (l_api_name,
3504: raise OKC_API.G_EXCEPTION_ERROR;
3505: END IF;
3506: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3507: EXCEPTION
3508: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3509: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3510: (l_api_name,
3511: G_PKG_NAME,
3512: 'OKC_API.G_RET_STS_ERROR',
3505: END IF;
3506: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3507: EXCEPTION
3508: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3509: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3510: (l_api_name,
3511: G_PKG_NAME,
3512: 'OKC_API.G_RET_STS_ERROR',
3513: x_msg_count,
3508: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3509: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3510: (l_api_name,
3511: G_PKG_NAME,
3512: 'OKC_API.G_RET_STS_ERROR',
3513: x_msg_count,
3514: x_msg_data,
3515: '_PUB');
3516: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3512: 'OKC_API.G_RET_STS_ERROR',
3513: x_msg_count,
3514: x_msg_data,
3515: '_PUB');
3516: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3517: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3518: (l_api_name,
3519: G_PKG_NAME,
3520: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3513: x_msg_count,
3514: x_msg_data,
3515: '_PUB');
3516: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3517: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3518: (l_api_name,
3519: G_PKG_NAME,
3520: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3521: x_msg_count,
3516: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3517: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3518: (l_api_name,
3519: G_PKG_NAME,
3520: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3521: x_msg_count,
3522: x_msg_data,
3523: '_PUB');
3524: WHEN OTHERS THEN
3521: x_msg_count,
3522: x_msg_data,
3523: '_PUB');
3524: WHEN OTHERS THEN
3525: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3526: (l_api_name,
3527: G_PKG_NAME,
3528: 'OTHERS',
3529: x_msg_count,
3539: x_msg_data OUT NOCOPY VARCHAR2,
3540: p_srav_tbl IN srav_tbl_type,
3541: x_srav_tbl OUT NOCOPY srav_tbl_type) IS
3542: i NUMBER := 0;
3543: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3544: BEGIN
3545: x_return_status := OKC_API.G_RET_STS_SUCCESS;
3546: IF p_srav_tbl.COUNT > 0 THEN
3547: i := p_srav_tbl.FIRST;
3541: x_srav_tbl OUT NOCOPY srav_tbl_type) IS
3542: i NUMBER := 0;
3543: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3544: BEGIN
3545: x_return_status := OKC_API.G_RET_STS_SUCCESS;
3546: IF p_srav_tbl.COUNT > 0 THEN
3547: i := p_srav_tbl.FIRST;
3548: LOOP
3549: update_subclass_resps(
3553: x_msg_count,
3554: x_msg_data,
3555: p_srav_tbl(i),
3556: x_srav_tbl(i));
3557: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
3558: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3559: x_return_status := l_return_status;
3560: raise G_EXCEPTION_HALT_VALIDATION;
3561: ELSE
3554: x_msg_data,
3555: p_srav_tbl(i),
3556: x_srav_tbl(i));
3557: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
3558: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3559: x_return_status := l_return_status;
3560: raise G_EXCEPTION_HALT_VALIDATION;
3561: ELSE
3562: x_return_status := l_return_status;
3569: EXCEPTION
3570: WHEN G_EXCEPTION_HALT_VALIDATION THEN
3571: NULL;
3572: WHEN OTHERS THEN
3573: OKC_API.set_message(p_app_name => g_app_name,
3574: p_msg_name => g_unexpected_error,
3575: p_token1 => g_sqlcode_token,
3576: p_token1_value => sqlcode,
3577: p_token2 => g_sqlerrm_token,
3575: p_token1 => g_sqlcode_token,
3576: p_token1_value => sqlcode,
3577: p_token2 => g_sqlerrm_token,
3578: p_token2_value => sqlerrm);
3579: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
3580: END update_subclass_resps;
3581:
3582: PROCEDURE delete_subclass_resps(
3583: p_api_version IN NUMBER,
3589: l_api_name CONSTANT VARCHAR2(30) := 'delete_subclass_resps';
3590: l_return_status VARCHAR2(1);
3591: l_srav_rec srav_rec_type := p_srav_rec;
3592: BEGIN
3593: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
3594: p_init_msg_list,
3595: '_PUB',
3596: x_return_status);
3597: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3593: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
3594: p_init_msg_list,
3595: '_PUB',
3596: x_return_status);
3597: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3598: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3599: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3600: raise OKC_API.G_EXCEPTION_ERROR;
3601: END IF;
3594: p_init_msg_list,
3595: '_PUB',
3596: x_return_status);
3597: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3598: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3599: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3600: raise OKC_API.G_EXCEPTION_ERROR;
3601: END IF;
3602: -- Call user hook for BEFORE
3595: '_PUB',
3596: x_return_status);
3597: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3598: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3599: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3600: raise OKC_API.G_EXCEPTION_ERROR;
3601: END IF;
3602: -- Call user hook for BEFORE
3603: g_srav_rec := l_srav_rec;
3596: x_return_status);
3597: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3598: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3599: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3600: raise OKC_API.G_EXCEPTION_ERROR;
3601: END IF;
3602: -- Call user hook for BEFORE
3603: g_srav_rec := l_srav_rec;
3604: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'B');
3601: END IF;
3602: -- Call user hook for BEFORE
3603: g_srav_rec := l_srav_rec;
3604: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'B');
3605: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3606: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3607: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3608: raise OKC_API.G_EXCEPTION_ERROR;
3609: END IF;
3602: -- Call user hook for BEFORE
3603: g_srav_rec := l_srav_rec;
3604: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'B');
3605: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3606: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3607: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3608: raise OKC_API.G_EXCEPTION_ERROR;
3609: END IF;
3610:
3603: g_srav_rec := l_srav_rec;
3604: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'B');
3605: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3606: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3607: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3608: raise OKC_API.G_EXCEPTION_ERROR;
3609: END IF;
3610:
3611: okc_subclass_pvt.delete_subclass_resps(
3604: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'B');
3605: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3606: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3607: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3608: raise OKC_API.G_EXCEPTION_ERROR;
3609: END IF;
3610:
3611: okc_subclass_pvt.delete_subclass_resps(
3612: p_api_version,
3614: x_return_status,
3615: x_msg_count,
3616: x_msg_data,
3617: p_srav_rec);
3618: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3619: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3620: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3621: raise OKC_API.G_EXCEPTION_ERROR;
3622: END IF;
3615: x_msg_count,
3616: x_msg_data,
3617: p_srav_rec);
3618: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3619: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3620: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3621: raise OKC_API.G_EXCEPTION_ERROR;
3622: END IF;
3623:
3616: x_msg_data,
3617: p_srav_rec);
3618: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3619: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3620: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3621: raise OKC_API.G_EXCEPTION_ERROR;
3622: END IF;
3623:
3624: -- Call user hook for AFTER
3617: p_srav_rec);
3618: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3619: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3620: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3621: raise OKC_API.G_EXCEPTION_ERROR;
3622: END IF;
3623:
3624: -- Call user hook for AFTER
3625: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'A');
3622: END IF;
3623:
3624: -- Call user hook for AFTER
3625: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'A');
3626: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3627: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3628: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3629: raise OKC_API.G_EXCEPTION_ERROR;
3630: END IF;
3623:
3624: -- Call user hook for AFTER
3625: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'A');
3626: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3627: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3628: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3629: raise OKC_API.G_EXCEPTION_ERROR;
3630: END IF;
3631: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3624: -- Call user hook for AFTER
3625: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'A');
3626: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3627: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3628: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3629: raise OKC_API.G_EXCEPTION_ERROR;
3630: END IF;
3631: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3632: EXCEPTION
3625: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'A');
3626: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3627: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3628: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3629: raise OKC_API.G_EXCEPTION_ERROR;
3630: END IF;
3631: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3632: EXCEPTION
3633: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3627: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3628: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3629: raise OKC_API.G_EXCEPTION_ERROR;
3630: END IF;
3631: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3632: EXCEPTION
3633: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3634: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3635: (l_api_name,
3629: raise OKC_API.G_EXCEPTION_ERROR;
3630: END IF;
3631: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3632: EXCEPTION
3633: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3634: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3635: (l_api_name,
3636: G_PKG_NAME,
3637: 'OKC_API.G_RET_STS_ERROR',
3630: END IF;
3631: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3632: EXCEPTION
3633: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3634: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3635: (l_api_name,
3636: G_PKG_NAME,
3637: 'OKC_API.G_RET_STS_ERROR',
3638: x_msg_count,
3633: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3634: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3635: (l_api_name,
3636: G_PKG_NAME,
3637: 'OKC_API.G_RET_STS_ERROR',
3638: x_msg_count,
3639: x_msg_data,
3640: '_PUB');
3641: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3637: 'OKC_API.G_RET_STS_ERROR',
3638: x_msg_count,
3639: x_msg_data,
3640: '_PUB');
3641: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3642: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3643: (l_api_name,
3644: G_PKG_NAME,
3645: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3638: x_msg_count,
3639: x_msg_data,
3640: '_PUB');
3641: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3642: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3643: (l_api_name,
3644: G_PKG_NAME,
3645: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3646: x_msg_count,
3641: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3642: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3643: (l_api_name,
3644: G_PKG_NAME,
3645: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3646: x_msg_count,
3647: x_msg_data,
3648: '_PUB');
3649: WHEN OTHERS THEN
3646: x_msg_count,
3647: x_msg_data,
3648: '_PUB');
3649: WHEN OTHERS THEN
3650: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3651: (l_api_name,
3652: G_PKG_NAME,
3653: 'OTHERS',
3654: x_msg_count,
3663: x_msg_count OUT NOCOPY NUMBER,
3664: x_msg_data OUT NOCOPY VARCHAR2,
3665: p_srav_tbl IN srav_tbl_type) IS
3666: i NUMBER := 0;
3667: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3668: BEGIN
3669: x_return_status := OKC_API.G_RET_STS_SUCCESS;
3670: IF p_srav_tbl.COUNT > 0 THEN
3671: i := p_srav_tbl.FIRST;
3665: p_srav_tbl IN srav_tbl_type) IS
3666: i NUMBER := 0;
3667: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3668: BEGIN
3669: x_return_status := OKC_API.G_RET_STS_SUCCESS;
3670: IF p_srav_tbl.COUNT > 0 THEN
3671: i := p_srav_tbl.FIRST;
3672: LOOP
3673: delete_subclass_resps(
3676: l_return_status,
3677: x_msg_count,
3678: x_msg_data,
3679: p_srav_tbl(i));
3680: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
3681: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3682: x_return_status := l_return_status;
3683: raise G_EXCEPTION_HALT_VALIDATION;
3684: ELSE
3677: x_msg_count,
3678: x_msg_data,
3679: p_srav_tbl(i));
3680: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
3681: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3682: x_return_status := l_return_status;
3683: raise G_EXCEPTION_HALT_VALIDATION;
3684: ELSE
3685: x_return_status := l_return_status;
3692: EXCEPTION
3693: WHEN G_EXCEPTION_HALT_VALIDATION THEN
3694: NULL;
3695: WHEN OTHERS THEN
3696: OKC_API.set_message(p_app_name => g_app_name,
3697: p_msg_name => g_unexpected_error,
3698: p_token1 => g_sqlcode_token,
3699: p_token1_value => sqlcode,
3700: p_token2 => g_sqlerrm_token,
3698: p_token1 => g_sqlcode_token,
3699: p_token1_value => sqlcode,
3700: p_token2 => g_sqlerrm_token,
3701: p_token2_value => sqlerrm);
3702: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
3703: END delete_subclass_resps;
3704:
3705: PROCEDURE lock_subclass_resps(
3706: p_api_version IN NUMBER,
3785: l_return_status VARCHAR2(1);
3786:
3787: BEGIN
3788:
3789: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
3790: p_init_msg_list,
3791: '_PUB',
3792: x_return_status);
3793:
3790: p_init_msg_list,
3791: '_PUB',
3792: x_return_status);
3793:
3794: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3795: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3796: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3797: raise OKC_API.G_EXCEPTION_ERROR;
3798: END IF;
3791: '_PUB',
3792: x_return_status);
3793:
3794: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3795: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3796: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3797: raise OKC_API.G_EXCEPTION_ERROR;
3798: END IF;
3799:
3792: x_return_status);
3793:
3794: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3795: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3796: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3797: raise OKC_API.G_EXCEPTION_ERROR;
3798: END IF;
3799:
3800: -- Call user hook for BEFORE
3793:
3794: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3795: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3796: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3797: raise OKC_API.G_EXCEPTION_ERROR;
3798: END IF;
3799:
3800: -- Call user hook for BEFORE
3801:
3800: -- Call user hook for BEFORE
3801:
3802: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'B');
3803:
3804: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3805: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3806: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3807: raise OKC_API.G_EXCEPTION_ERROR;
3808: END IF;
3801:
3802: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'B');
3803:
3804: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3805: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3806: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3807: raise OKC_API.G_EXCEPTION_ERROR;
3808: END IF;
3809:
3802: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'B');
3803:
3804: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3805: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3806: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3807: raise OKC_API.G_EXCEPTION_ERROR;
3808: END IF;
3809:
3810:
3803:
3804: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3805: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3806: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3807: raise OKC_API.G_EXCEPTION_ERROR;
3808: END IF;
3809:
3810:
3811: okc_subclass_pvt.copy_category(
3818: p_new_scs_name,
3819: p_new_scs_desc,
3820: x_scsv_rec);
3821:
3822: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3823: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3824: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3825: raise OKC_API.G_EXCEPTION_ERROR;
3826: END IF;
3819: p_new_scs_desc,
3820: x_scsv_rec);
3821:
3822: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3823: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3824: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3825: raise OKC_API.G_EXCEPTION_ERROR;
3826: END IF;
3827:
3820: x_scsv_rec);
3821:
3822: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3823: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3824: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3825: raise OKC_API.G_EXCEPTION_ERROR;
3826: END IF;
3827:
3828: -- Call user hook for AFTER
3821:
3822: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3823: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3824: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3825: raise OKC_API.G_EXCEPTION_ERROR;
3826: END IF;
3827:
3828: -- Call user hook for AFTER
3829:
3828: -- Call user hook for AFTER
3829:
3830: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'A');
3831:
3832: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3833: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3834: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3835: raise OKC_API.G_EXCEPTION_ERROR;
3836: END IF;
3829:
3830: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'A');
3831:
3832: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3833: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3834: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3835: raise OKC_API.G_EXCEPTION_ERROR;
3836: END IF;
3837:
3830: okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'A');
3831:
3832: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3833: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3834: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3835: raise OKC_API.G_EXCEPTION_ERROR;
3836: END IF;
3837:
3838: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3831:
3832: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3833: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3834: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3835: raise OKC_API.G_EXCEPTION_ERROR;
3836: END IF;
3837:
3838: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3839:
3834: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3835: raise OKC_API.G_EXCEPTION_ERROR;
3836: END IF;
3837:
3838: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3839:
3840: EXCEPTION
3841: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3842: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3837:
3838: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3839:
3840: EXCEPTION
3841: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3842: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3843: (l_api_name,
3844: G_PKG_NAME,
3845: 'OKC_API.G_RET_STS_ERROR',
3838: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3839:
3840: EXCEPTION
3841: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3842: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3843: (l_api_name,
3844: G_PKG_NAME,
3845: 'OKC_API.G_RET_STS_ERROR',
3846: x_msg_count,
3841: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3842: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3843: (l_api_name,
3844: G_PKG_NAME,
3845: 'OKC_API.G_RET_STS_ERROR',
3846: x_msg_count,
3847: x_msg_data,
3848: '_PUB');
3849:
3846: x_msg_count,
3847: x_msg_data,
3848: '_PUB');
3849:
3850: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3851: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3852: (l_api_name,
3853: G_PKG_NAME,
3854: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3847: x_msg_data,
3848: '_PUB');
3849:
3850: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3851: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3852: (l_api_name,
3853: G_PKG_NAME,
3854: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3855: x_msg_count,
3850: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3851: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3852: (l_api_name,
3853: G_PKG_NAME,
3854: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3855: x_msg_count,
3856: x_msg_data,
3857: '_PUB');
3858:
3856: x_msg_data,
3857: '_PUB');
3858:
3859: WHEN OTHERS THEN
3860: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3861: (l_api_name,
3862: G_PKG_NAME,
3863: 'OTHERS',
3864: x_msg_count,