39: l_chr_id NUMBER;
40:
41: BEGIN
42:
43: lx_return_status := okl_api.start_activity(p_api_name => l_api_name,
44: p_pkg_name => G_PKG_NAME,
45: p_init_msg_list => p_init_msg_list,
46: l_api_version => G_API_VERSION,
47: p_api_version => p_api_version,
47: p_api_version => p_api_version,
48: p_api_type => '_PVT',
49: x_return_status => lx_return_status);
50:
51: IF lx_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
52: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
53: ELSIF lx_return_status = OKL_API.G_RET_STS_ERROR THEN
54: RAISE OKL_API.G_EXCEPTION_ERROR;
55: END IF;
48: p_api_type => '_PVT',
49: x_return_status => lx_return_status);
50:
51: IF lx_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
52: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
53: ELSIF lx_return_status = OKL_API.G_RET_STS_ERROR THEN
54: RAISE OKL_API.G_EXCEPTION_ERROR;
55: END IF;
56:
49: x_return_status => lx_return_status);
50:
51: IF lx_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
52: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
53: ELSIF lx_return_status = OKL_API.G_RET_STS_ERROR THEN
54: RAISE OKL_API.G_EXCEPTION_ERROR;
55: END IF;
56:
57:
50:
51: IF lx_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
52: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
53: ELSIF lx_return_status = OKL_API.G_RET_STS_ERROR THEN
54: RAISE OKL_API.G_EXCEPTION_ERROR;
55: END IF;
56:
57:
58: l_clev_rec := p_clev_rec;
112: x_msg_count => x_msg_count,
113: x_msg_data => x_msg_data);
114:
115: IF lx_return_status = G_RET_STS_UNEXP_ERROR THEN
116: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
117: ELSIF lx_return_status = G_RET_STS_ERROR THEN
118: RAISE OKL_API.G_EXCEPTION_ERROR;
119: END IF;
120:
114:
115: IF lx_return_status = G_RET_STS_UNEXP_ERROR THEN
116: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
117: ELSIF lx_return_status = G_RET_STS_ERROR THEN
118: RAISE OKL_API.G_EXCEPTION_ERROR;
119: END IF;
120:
121: okl_api.end_activity(x_msg_count => x_msg_count,
122: x_msg_data => x_msg_data);
117: ELSIF lx_return_status = G_RET_STS_ERROR THEN
118: RAISE OKL_API.G_EXCEPTION_ERROR;
119: END IF;
120:
121: okl_api.end_activity(x_msg_count => x_msg_count,
122: x_msg_data => x_msg_data);
123:
124: x_return_status := lx_return_status;
125:
125:
126:
127: EXCEPTION
128:
129: WHEN OKL_API.G_EXCEPTION_ERROR THEN
130:
131: x_return_status := G_RET_STS_ERROR;
132:
133: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
129: WHEN OKL_API.G_EXCEPTION_ERROR THEN
130:
131: x_return_status := G_RET_STS_ERROR;
132:
133: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
134:
135: x_return_status := G_RET_STS_UNEXP_ERROR;
136:
137: WHEN OTHERS THEN
135: x_return_status := G_RET_STS_UNEXP_ERROR;
136:
137: WHEN OTHERS THEN
138:
139: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
140: p_msg_name => G_DB_ERROR,
141: p_token1 => G_PROG_NAME_TOKEN,
142: p_token1_value => l_prog_name,
143: p_token2 => G_SQLCODE_TOKEN,
183: l_sub_cimv_rec cimv_rec_type;
184:
185: BEGIN
186:
187: lx_return_status := okl_api.start_activity(p_api_name => l_api_name,
188: p_pkg_name => G_PKG_NAME,
189: p_init_msg_list => p_init_msg_list,
190: l_api_version => G_API_VERSION,
191: p_api_version => p_api_version,
191: p_api_version => p_api_version,
192: p_api_type => '_PVT',
193: x_return_status => lx_return_status);
194:
195: IF lx_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
196: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
197: ELSIF lx_return_status = OKL_API.G_RET_STS_ERROR THEN
198: RAISE OKL_API.G_EXCEPTION_ERROR;
199: END IF;
192: p_api_type => '_PVT',
193: x_return_status => lx_return_status);
194:
195: IF lx_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
196: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
197: ELSIF lx_return_status = OKL_API.G_RET_STS_ERROR THEN
198: RAISE OKL_API.G_EXCEPTION_ERROR;
199: END IF;
200:
193: x_return_status => lx_return_status);
194:
195: IF lx_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
196: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
197: ELSIF lx_return_status = OKL_API.G_RET_STS_ERROR THEN
198: RAISE OKL_API.G_EXCEPTION_ERROR;
199: END IF;
200:
201: create_service_line(p_api_version => G_API_VERSION,
194:
195: IF lx_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
196: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
197: ELSIF lx_return_status = OKL_API.G_RET_STS_ERROR THEN
198: RAISE OKL_API.G_EXCEPTION_ERROR;
199: END IF;
200:
201: create_service_line(p_api_version => G_API_VERSION,
202: p_init_msg_list => G_FALSE,
212: x_msg_count => x_msg_count,
213: x_msg_data => x_msg_data);
214:
215: IF lx_return_status = G_RET_STS_UNEXP_ERROR THEN
216: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
217: ELSIF lx_return_status = G_RET_STS_ERROR THEN
218: RAISE OKL_API.G_EXCEPTION_ERROR;
219: END IF;
220:
214:
215: IF lx_return_status = G_RET_STS_UNEXP_ERROR THEN
216: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
217: ELSIF lx_return_status = G_RET_STS_ERROR THEN
218: RAISE OKL_API.G_EXCEPTION_ERROR;
219: END IF;
220:
221: l_sub_clev_rec := p_sub_clev_rec;
222: l_sub_klev_rec := p_sub_klev_rec;
260: x_msg_count => x_msg_count,
261: x_msg_data => x_msg_data);
262:
263: IF lx_return_status = G_RET_STS_UNEXP_ERROR THEN
264: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
265: ELSIF lx_return_status = G_RET_STS_ERROR THEN
266: RAISE OKL_API.G_EXCEPTION_ERROR;
267: END IF;
268:
262:
263: IF lx_return_status = G_RET_STS_UNEXP_ERROR THEN
264: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
265: ELSIF lx_return_status = G_RET_STS_ERROR THEN
266: RAISE OKL_API.G_EXCEPTION_ERROR;
267: END IF;
268:
269: okl_api.end_activity(x_msg_count => x_msg_count,
270: x_msg_data => x_msg_data);
265: ELSIF lx_return_status = G_RET_STS_ERROR THEN
266: RAISE OKL_API.G_EXCEPTION_ERROR;
267: END IF;
268:
269: okl_api.end_activity(x_msg_count => x_msg_count,
270: x_msg_data => x_msg_data);
271:
272: x_return_status := lx_return_status;
273:
273:
274:
275: EXCEPTION
276:
277: WHEN OKL_API.G_EXCEPTION_ERROR THEN
278:
279: x_return_status := G_RET_STS_ERROR;
280:
281: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
277: WHEN OKL_API.G_EXCEPTION_ERROR THEN
278:
279: x_return_status := G_RET_STS_ERROR;
280:
281: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
282:
283: x_return_status := G_RET_STS_UNEXP_ERROR;
284:
285: WHEN OTHERS THEN
283: x_return_status := G_RET_STS_UNEXP_ERROR;
284:
285: WHEN OTHERS THEN
286:
287: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
288: p_msg_name => G_DB_ERROR,
289: p_token1 => G_PROG_NAME_TOKEN,
290: p_token1_value => l_prog_name,
291: p_token2 => G_SQLCODE_TOKEN,
321: lx_return_status VARCHAR2(1);
322:
323: BEGIN
324:
325: lx_return_status := okl_api.start_activity(p_api_name => l_api_name,
326: p_pkg_name => G_PKG_NAME,
327: p_init_msg_list => p_init_msg_list,
328: l_api_version => G_API_VERSION,
329: p_api_version => p_api_version,
329: p_api_version => p_api_version,
330: p_api_type => '_PVT',
331: x_return_status => lx_return_status);
332:
333: IF lx_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
334: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
335: ELSIF lx_return_status = OKL_API.G_RET_STS_ERROR THEN
336: RAISE OKL_API.G_EXCEPTION_ERROR;
337: END IF;
330: p_api_type => '_PVT',
331: x_return_status => lx_return_status);
332:
333: IF lx_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
334: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
335: ELSIF lx_return_status = OKL_API.G_RET_STS_ERROR THEN
336: RAISE OKL_API.G_EXCEPTION_ERROR;
337: END IF;
338:
331: x_return_status => lx_return_status);
332:
333: IF lx_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
334: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
335: ELSIF lx_return_status = OKL_API.G_RET_STS_ERROR THEN
336: RAISE OKL_API.G_EXCEPTION_ERROR;
337: END IF;
338:
339: okl_contract_top_line_pub.update_contract_top_line(p_api_version => G_API_VERSION,
332:
333: IF lx_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
334: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
335: ELSIF lx_return_status = OKL_API.G_RET_STS_ERROR THEN
336: RAISE OKL_API.G_EXCEPTION_ERROR;
337: END IF;
338:
339: okl_contract_top_line_pub.update_contract_top_line(p_api_version => G_API_VERSION,
340: p_init_msg_list => G_FALSE,
349: x_return_status => lx_return_status,
350: x_msg_count => x_msg_count,
351: x_msg_data => x_msg_data);
352:
353: IF lx_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
354: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
355: ELSIF lx_return_status = OKL_API.G_RET_STS_ERROR THEN
356: RAISE OKL_API.G_EXCEPTION_ERROR;
357: END IF;
350: x_msg_count => x_msg_count,
351: x_msg_data => x_msg_data);
352:
353: IF lx_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
354: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
355: ELSIF lx_return_status = OKL_API.G_RET_STS_ERROR THEN
356: RAISE OKL_API.G_EXCEPTION_ERROR;
357: END IF;
358:
351: x_msg_data => x_msg_data);
352:
353: IF lx_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
354: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
355: ELSIF lx_return_status = OKL_API.G_RET_STS_ERROR THEN
356: RAISE OKL_API.G_EXCEPTION_ERROR;
357: END IF;
358:
359: okl_api.end_activity(x_msg_count => x_msg_count,
352:
353: IF lx_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
354: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
355: ELSIF lx_return_status = OKL_API.G_RET_STS_ERROR THEN
356: RAISE OKL_API.G_EXCEPTION_ERROR;
357: END IF;
358:
359: okl_api.end_activity(x_msg_count => x_msg_count,
360: x_msg_data => x_msg_data);
355: ELSIF lx_return_status = OKL_API.G_RET_STS_ERROR THEN
356: RAISE OKL_API.G_EXCEPTION_ERROR;
357: END IF;
358:
359: okl_api.end_activity(x_msg_count => x_msg_count,
360: x_msg_data => x_msg_data);
361:
362: x_return_status := lx_return_status;
363:
363:
364:
365: EXCEPTION
366:
367: WHEN OKL_API.G_EXCEPTION_ERROR THEN
368:
369: x_return_status := G_RET_STS_ERROR;
370:
371: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
367: WHEN OKL_API.G_EXCEPTION_ERROR THEN
368:
369: x_return_status := G_RET_STS_ERROR;
370:
371: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
372:
373: x_return_status := G_RET_STS_UNEXP_ERROR;
374:
375: WHEN OTHERS THEN
373: x_return_status := G_RET_STS_UNEXP_ERROR;
374:
375: WHEN OTHERS THEN
376:
377: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
378: p_msg_name => G_DB_ERROR,
379: p_token1 => G_PROG_NAME_TOKEN,
380: p_token1_value => l_prog_name,
381: p_token2 => G_SQLCODE_TOKEN,
408: lx_return_status VARCHAR2(1);
409:
410: BEGIN
411:
412: lx_return_status := okl_api.start_activity(p_api_name => l_api_name,
413: p_pkg_name => G_PKG_NAME,
414: p_init_msg_list => p_init_msg_list,
415: l_api_version => G_API_VERSION,
416: p_api_version => p_api_version,
416: p_api_version => p_api_version,
417: p_api_type => '_PVT',
418: x_return_status => lx_return_status);
419:
420: IF lx_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
421: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
422: ELSIF lx_return_status = OKL_API.G_RET_STS_ERROR THEN
423: RAISE OKL_API.G_EXCEPTION_ERROR;
424: END IF;
417: p_api_type => '_PVT',
418: x_return_status => lx_return_status);
419:
420: IF lx_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
421: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
422: ELSIF lx_return_status = OKL_API.G_RET_STS_ERROR THEN
423: RAISE OKL_API.G_EXCEPTION_ERROR;
424: END IF;
425:
418: x_return_status => lx_return_status);
419:
420: IF lx_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
421: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
422: ELSIF lx_return_status = OKL_API.G_RET_STS_ERROR THEN
423: RAISE OKL_API.G_EXCEPTION_ERROR;
424: END IF;
425:
426: okl_contract_top_line_pub.delete_contract_top_line(p_api_version => G_API_VERSION,
419:
420: IF lx_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
421: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
422: ELSIF lx_return_status = OKL_API.G_RET_STS_ERROR THEN
423: RAISE OKL_API.G_EXCEPTION_ERROR;
424: END IF;
425:
426: okl_contract_top_line_pub.delete_contract_top_line(p_api_version => G_API_VERSION,
427: p_init_msg_list => G_FALSE,
433: x_msg_count => x_msg_count,
434: x_msg_data => x_msg_data);
435:
436: IF lx_return_status = G_RET_STS_UNEXP_ERROR THEN
437: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
438: ELSIF lx_return_status = G_RET_STS_ERROR THEN
439: RAISE OKL_API.G_EXCEPTION_ERROR;
440: END IF;
441:
435:
436: IF lx_return_status = G_RET_STS_UNEXP_ERROR THEN
437: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
438: ELSIF lx_return_status = G_RET_STS_ERROR THEN
439: RAISE OKL_API.G_EXCEPTION_ERROR;
440: END IF;
441:
442: okl_api.end_activity(x_msg_count => x_msg_count,
443: x_msg_data => x_msg_data);
438: ELSIF lx_return_status = G_RET_STS_ERROR THEN
439: RAISE OKL_API.G_EXCEPTION_ERROR;
440: END IF;
441:
442: okl_api.end_activity(x_msg_count => x_msg_count,
443: x_msg_data => x_msg_data);
444:
445: x_return_status := lx_return_status;
446:
445: x_return_status := lx_return_status;
446:
447: EXCEPTION
448:
449: WHEN OKL_API.G_EXCEPTION_ERROR THEN
450:
451: x_return_status := G_RET_STS_ERROR;
452:
453: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
449: WHEN OKL_API.G_EXCEPTION_ERROR THEN
450:
451: x_return_status := G_RET_STS_ERROR;
452:
453: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
454:
455: x_return_status := G_RET_STS_UNEXP_ERROR;
456:
457: WHEN OTHERS THEN
455: x_return_status := G_RET_STS_UNEXP_ERROR;
456:
457: WHEN OTHERS THEN
458:
459: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
460: p_msg_name => G_DB_ERROR,
461: p_token1 => G_PROG_NAME_TOKEN,
462: p_token1_value => l_prog_name,
463: p_token2 => G_SQLCODE_TOKEN,