40: x_return_status OUT NOCOPY VARCHAR2,
41: x_msg_count OUT NOCOPY NUMBER,
42: x_msg_data OUT NOCOPY VARCHAR2) AS
43:
44: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
45: l_api_version CONSTANT NUMBER := 1;
46: l_api_name CONSTANT VARCHAR2(30) := 'insert_pending_int';
47:
48: l_oinv_rec oinv_rec_type;
55: SELECT id
56: FROM okl_open_int
57: WHERE khr_id = cp_contract_id;
58: BEGIN
59: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
60: G_PKG_NAME,
61: p_init_msg_list,
62: l_api_version,
63: p_api_version,
63: p_api_version,
64: '_PVT',
65: l_return_status);
66:
67: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
68: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
69: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
70: RAISE OKC_API.G_EXCEPTION_ERROR;
71: END IF;
64: '_PVT',
65: l_return_status);
66:
67: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
68: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
69: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
70: RAISE OKC_API.G_EXCEPTION_ERROR;
71: END IF;
72:
65: l_return_status);
66:
67: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
68: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
69: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
70: RAISE OKC_API.G_EXCEPTION_ERROR;
71: END IF;
72:
73: -- Processing starts
66:
67: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
68: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
69: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
70: RAISE OKC_API.G_EXCEPTION_ERROR;
71: END IF;
72:
73: -- Processing starts
74: l_oinv_rec.khr_id := p_contract_id;
79: ,x_return_status => l_return_status);
80:
81: --dbms_output.put_line('contract # - ' || l_contract_rec.contract_number);
82:
83: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
84: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
85: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
86: RAISE OKC_API.G_EXCEPTION_ERROR;
87: END IF;
80:
81: --dbms_output.put_line('contract # - ' || l_contract_rec.contract_number);
82:
83: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
84: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
85: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
86: RAISE OKC_API.G_EXCEPTION_ERROR;
87: END IF;
88:
81: --dbms_output.put_line('contract # - ' || l_contract_rec.contract_number);
82:
83: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
84: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
85: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
86: RAISE OKC_API.G_EXCEPTION_ERROR;
87: END IF;
88:
89: l_oinv_rec.contract_number := l_contract_rec.contract_number;
82:
83: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
84: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
85: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
86: RAISE OKC_API.G_EXCEPTION_ERROR;
87: END IF;
88:
89: l_oinv_rec.contract_number := l_contract_rec.contract_number;
90: l_oinv_rec.contract_type := l_contract_rec.contract_type;
98: ,x_return_status => l_return_status);
99:
100: --dbms_output.put_line('party name - ' || l_party_rec.party_name);
101:
102: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
103: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
104: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
105: RAISE OKC_API.G_EXCEPTION_ERROR;
106: END IF;
99:
100: --dbms_output.put_line('party name - ' || l_party_rec.party_name);
101:
102: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
103: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
104: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
105: RAISE OKC_API.G_EXCEPTION_ERROR;
106: END IF;
107:
100: --dbms_output.put_line('party name - ' || l_party_rec.party_name);
101:
102: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
103: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
104: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
105: RAISE OKC_API.G_EXCEPTION_ERROR;
106: END IF;
107:
108: l_oinv_rec.party_id := l_party_rec.party_id;
101:
102: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
103: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
104: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
105: RAISE OKC_API.G_EXCEPTION_ERROR;
106: END IF;
107:
108: l_oinv_rec.party_id := l_party_rec.party_id;
109: l_oinv_rec.party_name := l_party_rec.party_name;
146: ,x_msg_data => x_msg_data
147: ,p_oinv_rec => l_oinv_rec
148: ,x_oinv_rec => lx_oinv_rec);
149:
150: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
151: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
152: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
153: RAISE OKC_API.G_EXCEPTION_ERROR;
154: END IF;
147: ,p_oinv_rec => l_oinv_rec
148: ,x_oinv_rec => lx_oinv_rec);
149:
150: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
151: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
152: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
153: RAISE OKC_API.G_EXCEPTION_ERROR;
154: END IF;
155: END IF;
148: ,x_oinv_rec => lx_oinv_rec);
149:
150: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
151: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
152: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
153: RAISE OKC_API.G_EXCEPTION_ERROR;
154: END IF;
155: END IF;
156:
149:
150: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
151: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
152: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
153: RAISE OKC_API.G_EXCEPTION_ERROR;
154: END IF;
155: END IF;
156:
157: x_oinv_rec := lx_oinv_rec;
172:
173: x_return_status := l_return_status;
174: okl_api.END_ACTIVITY(x_msg_count, x_msg_data);
175: EXCEPTION
176: WHEN OKC_API.G_EXCEPTION_ERROR THEN
177: x_return_status := OKC_API.HANDLE_EXCEPTIONS
178: (
179: l_api_name,
180: G_PKG_NAME,
173: x_return_status := l_return_status;
174: okl_api.END_ACTIVITY(x_msg_count, x_msg_data);
175: EXCEPTION
176: WHEN OKC_API.G_EXCEPTION_ERROR THEN
177: x_return_status := OKC_API.HANDLE_EXCEPTIONS
178: (
179: l_api_name,
180: G_PKG_NAME,
181: 'OKC_API.G_RET_STS_ERROR',
177: x_return_status := OKC_API.HANDLE_EXCEPTIONS
178: (
179: l_api_name,
180: G_PKG_NAME,
181: 'OKC_API.G_RET_STS_ERROR',
182: x_msg_count,
183: x_msg_data,
184: '_PVT'
185: );
182: x_msg_count,
183: x_msg_data,
184: '_PVT'
185: );
186: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
187: x_return_status := OKC_API.HANDLE_EXCEPTIONS
188: (
189: l_api_name,
190: G_PKG_NAME,
183: x_msg_data,
184: '_PVT'
185: );
186: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
187: x_return_status := OKC_API.HANDLE_EXCEPTIONS
188: (
189: l_api_name,
190: G_PKG_NAME,
191: 'OKC_API.G_RET_STS_UNEXP_ERROR',
187: x_return_status := OKC_API.HANDLE_EXCEPTIONS
188: (
189: l_api_name,
190: G_PKG_NAME,
191: 'OKC_API.G_RET_STS_UNEXP_ERROR',
192: x_msg_count,
193: x_msg_data,
194: '_PVT'
195: );
193: x_msg_data,
194: '_PVT'
195: );
196: WHEN OTHERS THEN
197: x_return_status := OKC_API.HANDLE_EXCEPTIONS
198: (
199: l_api_name,
200: G_PKG_NAME,
201: 'OTHERS',
217: x_return_status OUT NOCOPY VARCHAR2,
218: x_msg_count OUT NOCOPY NUMBER,
219: x_msg_data OUT NOCOPY VARCHAR2)AS
220:
221: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
222: l_api_version CONSTANT NUMBER := 1;
223: l_api_name CONSTANT VARCHAR2(30) := 'process_pending_int';
224:
225: l_oinv_rec oinv_rec_type;
243: FROM okl_open_int_prty
244: WHERE khr_id = cp_khr_id
245: AND party_id = cp_party_id;
246: BEGIN
247: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
248: G_PKG_NAME,
249: p_init_msg_list,
250: l_api_version,
251: p_api_version,
251: p_api_version,
252: '_PVT',
253: l_return_status);
254:
255: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
256: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
257: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
258: RAISE OKC_API.G_EXCEPTION_ERROR;
259: END IF;
252: '_PVT',
253: l_return_status);
254:
255: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
256: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
257: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
258: RAISE OKC_API.G_EXCEPTION_ERROR;
259: END IF;
260:
253: l_return_status);
254:
255: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
256: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
257: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
258: RAISE OKC_API.G_EXCEPTION_ERROR;
259: END IF;
260:
261: -- Processing starts
254:
255: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
256: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
257: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
258: RAISE OKC_API.G_EXCEPTION_ERROR;
259: END IF;
260:
261: -- Processing starts
262: l_oinv_rec := p_oinv_rec;
337: ,p_oinv_rec => l_oinv_rec
338: ,x_oinv_rec => lx_oinv_rec);
339:
340: --dbms_output.put_line('khr_id: ' || lx_oinv_rec.khr_id);
341: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
342: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
343: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
344: RAISE OKC_API.G_EXCEPTION_ERROR;
345: END IF;
338: ,x_oinv_rec => lx_oinv_rec);
339:
340: --dbms_output.put_line('khr_id: ' || lx_oinv_rec.khr_id);
341: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
342: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
343: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
344: RAISE OKC_API.G_EXCEPTION_ERROR;
345: END IF;
346:
339:
340: --dbms_output.put_line('khr_id: ' || lx_oinv_rec.khr_id);
341: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
342: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
343: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
344: RAISE OKC_API.G_EXCEPTION_ERROR;
345: END IF;
346:
347: x_oinv_rec := lx_oinv_rec;
340: --dbms_output.put_line('khr_id: ' || lx_oinv_rec.khr_id);
341: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
342: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
343: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
344: RAISE OKC_API.G_EXCEPTION_ERROR;
345: END IF;
346:
347: x_oinv_rec := lx_oinv_rec;
348:
402: ,x_msg_data => x_msg_data
403: ,p_oipv_rec => l_oipv_rec
404: ,x_oipv_rec => lx_oipv_rec);
405: /*
406: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
407: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
408: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
409: RAISE OKC_API.G_EXCEPTION_ERROR;
410: END IF;
403: ,p_oipv_rec => l_oipv_rec
404: ,x_oipv_rec => lx_oipv_rec);
405: /*
406: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
407: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
408: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
409: RAISE OKC_API.G_EXCEPTION_ERROR;
410: END IF;
411: */
404: ,x_oipv_rec => lx_oipv_rec);
405: /*
406: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
407: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
408: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
409: RAISE OKC_API.G_EXCEPTION_ERROR;
410: END IF;
411: */
412: ELSE
405: /*
406: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
407: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
408: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
409: RAISE OKC_API.G_EXCEPTION_ERROR;
410: END IF;
411: */
412: ELSE
413: --dbms_output.put_line('khr_id : ' || l_oipv_rec.khr_id);
421: ,x_msg_data => x_msg_data
422: ,p_oipv_rec => l_oipv_rec
423: ,x_oipv_rec => lx_oipv_rec);
424: /*
425: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
426: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
427: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
428: RAISE OKC_API.G_EXCEPTION_ERROR;
429: END IF;
422: ,p_oipv_rec => l_oipv_rec
423: ,x_oipv_rec => lx_oipv_rec);
424: /*
425: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
426: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
427: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
428: RAISE OKC_API.G_EXCEPTION_ERROR;
429: END IF;
430: */
423: ,x_oipv_rec => lx_oipv_rec);
424: /*
425: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
426: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
427: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
428: RAISE OKC_API.G_EXCEPTION_ERROR;
429: END IF;
430: */
431: END IF;
424: /*
425: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
426: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
427: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
428: RAISE OKC_API.G_EXCEPTION_ERROR;
429: END IF;
430: */
431: END IF;
432: END LOOP;
441: ,x_return_status => l_return_status
442: ,x_msg_count => x_msg_count
443: ,x_msg_data => x_msg_data);
444:
445: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
446: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
447: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
448: RAISE OKC_API.G_EXCEPTION_ERROR;
449: END IF;
442: ,x_msg_count => x_msg_count
443: ,x_msg_data => x_msg_data);
444:
445: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
446: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
447: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
448: RAISE OKC_API.G_EXCEPTION_ERROR;
449: END IF;
450: END IF;
443: ,x_msg_data => x_msg_data);
444:
445: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
446: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
447: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
448: RAISE OKC_API.G_EXCEPTION_ERROR;
449: END IF;
450: END IF;
451:
444:
445: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
446: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
447: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
448: RAISE OKC_API.G_EXCEPTION_ERROR;
449: END IF;
450: END IF;
451:
452: -- Processing ends
452: -- Processing ends
453: x_return_status := l_return_status;
454: okl_api.END_ACTIVITY(x_msg_count, x_msg_data);
455: EXCEPTION
456: WHEN OKC_API.G_EXCEPTION_ERROR THEN
457: x_return_status := OKC_API.HANDLE_EXCEPTIONS
458: (
459: l_api_name,
460: G_PKG_NAME,
453: x_return_status := l_return_status;
454: okl_api.END_ACTIVITY(x_msg_count, x_msg_data);
455: EXCEPTION
456: WHEN OKC_API.G_EXCEPTION_ERROR THEN
457: x_return_status := OKC_API.HANDLE_EXCEPTIONS
458: (
459: l_api_name,
460: G_PKG_NAME,
461: 'OKC_API.G_RET_STS_ERROR',
457: x_return_status := OKC_API.HANDLE_EXCEPTIONS
458: (
459: l_api_name,
460: G_PKG_NAME,
461: 'OKC_API.G_RET_STS_ERROR',
462: x_msg_count,
463: x_msg_data,
464: '_PVT'
465: );
462: x_msg_count,
463: x_msg_data,
464: '_PVT'
465: );
466: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
467: x_return_status := OKC_API.HANDLE_EXCEPTIONS
468: (
469: l_api_name,
470: G_PKG_NAME,
463: x_msg_data,
464: '_PVT'
465: );
466: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
467: x_return_status := OKC_API.HANDLE_EXCEPTIONS
468: (
469: l_api_name,
470: G_PKG_NAME,
471: 'OKC_API.G_RET_STS_UNEXP_ERROR',
467: x_return_status := OKC_API.HANDLE_EXCEPTIONS
468: (
469: l_api_name,
470: G_PKG_NAME,
471: 'OKC_API.G_RET_STS_UNEXP_ERROR',
472: x_msg_count,
473: x_msg_data,
474: '_PVT'
475: );
473: x_msg_data,
474: '_PVT'
475: );
476: WHEN OTHERS THEN
477: x_return_status := OKC_API.HANDLE_EXCEPTIONS
478: (
479: l_api_name,
480: G_PKG_NAME,
481: 'OTHERS',
495: x_return_status OUT NOCOPY VARCHAR2,
496: x_msg_count OUT NOCOPY NUMBER,
497: x_msg_data OUT NOCOPY VARCHAR2) AS
498:
499: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
500: l_api_version CONSTANT NUMBER := 1;
501: l_api_name CONSTANT VARCHAR2(30) := 'process_pending_asset';
502: lx_oiav_tbl oiav_tbl_type;
503: l_oiav_rec oiav_rec_type;
512: FROM okl_open_int_asst
513: WHERE khr_id = cp_khr_id
514: AND instance_number = cp_instance_number;
515: BEGIN
516: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
517: G_PKG_NAME,
518: p_init_msg_list,
519: l_api_version,
520: p_api_version,
520: p_api_version,
521: '_PVT',
522: l_return_status);
523:
524: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
525: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
526: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
527: RAISE OKC_API.G_EXCEPTION_ERROR;
528: END IF;
521: '_PVT',
522: l_return_status);
523:
524: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
525: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
526: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
527: RAISE OKC_API.G_EXCEPTION_ERROR;
528: END IF;
529:
522: l_return_status);
523:
524: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
525: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
526: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
527: RAISE OKC_API.G_EXCEPTION_ERROR;
528: END IF;
529:
530: -- Processing starts
523:
524: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
525: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
526: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
527: RAISE OKC_API.G_EXCEPTION_ERROR;
528: END IF;
529:
530: -- Processing starts
531:
535: x_oiav_tbl => lx_oiav_tbl,
536: x_return_status => l_return_status);
537:
538: --dbms_OUTPUT.PUT_LINE('assets found : ' || lx_oiav_tbl.count);
539: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
540: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
541: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
542: RAISE OKC_API.G_EXCEPTION_ERROR;
543: END IF;
536: x_return_status => l_return_status);
537:
538: --dbms_OUTPUT.PUT_LINE('assets found : ' || lx_oiav_tbl.count);
539: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
540: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
541: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
542: RAISE OKC_API.G_EXCEPTION_ERROR;
543: END IF;
544:
537:
538: --dbms_OUTPUT.PUT_LINE('assets found : ' || lx_oiav_tbl.count);
539: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
540: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
541: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
542: RAISE OKC_API.G_EXCEPTION_ERROR;
543: END IF;
544:
545: --insert/update assets in open interface assets
538: --dbms_OUTPUT.PUT_LINE('assets found : ' || lx_oiav_tbl.count);
539: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
540: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
541: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
542: RAISE OKC_API.G_EXCEPTION_ERROR;
543: END IF;
544:
545: --insert/update assets in open interface assets
546: FOR i IN 1..lx_oiav_tbl.count LOOP
560: IF (l_asset_found) THEN
561: --dbms_OUTPUT.PUT_LINE('updating asset');
562: okl_open_int_asst_pub.update_open_int_asst (
563: p_api_version => p_api_version,
564: p_init_msg_list => OKC_API.G_FALSE,
565: x_return_status => l_return_status,
566: x_msg_count => x_msg_count,
567: x_msg_data => x_msg_data,
568: p_oiav_rec => l_oiav_rec,
567: x_msg_data => x_msg_data,
568: p_oiav_rec => l_oiav_rec,
569: x_oiav_rec => lx_oiav_rec);
570:
571: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
572: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
573: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
574: RAISE OKC_API.G_EXCEPTION_ERROR;
575: END IF;
568: p_oiav_rec => l_oiav_rec,
569: x_oiav_rec => lx_oiav_rec);
570:
571: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
572: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
573: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
574: RAISE OKC_API.G_EXCEPTION_ERROR;
575: END IF;
576: ELSE
569: x_oiav_rec => lx_oiav_rec);
570:
571: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
572: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
573: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
574: RAISE OKC_API.G_EXCEPTION_ERROR;
575: END IF;
576: ELSE
577: --dbms_OUTPUT.PUT_LINE('inserting asset');
570:
571: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
572: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
573: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
574: RAISE OKC_API.G_EXCEPTION_ERROR;
575: END IF;
576: ELSE
577: --dbms_OUTPUT.PUT_LINE('inserting asset');
578: l_oiav_rec.org_id := p_iohv_rec.org_id;
577: --dbms_OUTPUT.PUT_LINE('inserting asset');
578: l_oiav_rec.org_id := p_iohv_rec.org_id;
579: okl_open_int_asst_pub.insert_open_int_asst (
580: p_api_version => p_api_version,
581: p_init_msg_list => OKC_API.G_FALSE,
582: x_return_status => l_return_status,
583: x_msg_count => x_msg_count,
584: x_msg_data => x_msg_data,
585: p_oiav_rec => l_oiav_rec,
585: p_oiav_rec => l_oiav_rec,
586: x_oiav_rec => lx_oiav_rec);
587: /*
588: --dbms_OUTPUT.PUT_LINE('x_return_status : ' || l_return_status);
589: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
590: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
591: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
592: RAISE OKC_API.G_EXCEPTION_ERROR;
593: END IF;
586: x_oiav_rec => lx_oiav_rec);
587: /*
588: --dbms_OUTPUT.PUT_LINE('x_return_status : ' || l_return_status);
589: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
590: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
591: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
592: RAISE OKC_API.G_EXCEPTION_ERROR;
593: END IF;
594: --dbms_OUTPUT.PUT_LINE('inserted asset');
587: /*
588: --dbms_OUTPUT.PUT_LINE('x_return_status : ' || l_return_status);
589: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
590: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
591: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
592: RAISE OKC_API.G_EXCEPTION_ERROR;
593: END IF;
594: --dbms_OUTPUT.PUT_LINE('inserted asset');
595: */
588: --dbms_OUTPUT.PUT_LINE('x_return_status : ' || l_return_status);
589: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
590: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
591: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
592: RAISE OKC_API.G_EXCEPTION_ERROR;
593: END IF;
594: --dbms_OUTPUT.PUT_LINE('inserted asset');
595: */
596: END IF;
597:
598: END LOOP;
599:
600: -- Processing ends
601: l_return_status := Okc_Api.G_RET_STS_SUCCESS;
602: x_return_status := l_return_status;
603: okl_api.END_ACTIVITY(x_msg_count, x_msg_data);
604: EXCEPTION
605: WHEN OKC_API.G_EXCEPTION_ERROR THEN
601: l_return_status := Okc_Api.G_RET_STS_SUCCESS;
602: x_return_status := l_return_status;
603: okl_api.END_ACTIVITY(x_msg_count, x_msg_data);
604: EXCEPTION
605: WHEN OKC_API.G_EXCEPTION_ERROR THEN
606: x_return_status := OKC_API.HANDLE_EXCEPTIONS
607: (
608: l_api_name,
609: G_PKG_NAME,
602: x_return_status := l_return_status;
603: okl_api.END_ACTIVITY(x_msg_count, x_msg_data);
604: EXCEPTION
605: WHEN OKC_API.G_EXCEPTION_ERROR THEN
606: x_return_status := OKC_API.HANDLE_EXCEPTIONS
607: (
608: l_api_name,
609: G_PKG_NAME,
610: 'OKC_API.G_RET_STS_ERROR',
606: x_return_status := OKC_API.HANDLE_EXCEPTIONS
607: (
608: l_api_name,
609: G_PKG_NAME,
610: 'OKC_API.G_RET_STS_ERROR',
611: x_msg_count,
612: x_msg_data,
613: '_PVT'
614: );
611: x_msg_count,
612: x_msg_data,
613: '_PVT'
614: );
615: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
616: x_return_status := OKC_API.HANDLE_EXCEPTIONS
617: (
618: l_api_name,
619: G_PKG_NAME,
612: x_msg_data,
613: '_PVT'
614: );
615: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
616: x_return_status := OKC_API.HANDLE_EXCEPTIONS
617: (
618: l_api_name,
619: G_PKG_NAME,
620: 'OKC_API.G_RET_STS_UNEXP_ERROR',
616: x_return_status := OKC_API.HANDLE_EXCEPTIONS
617: (
618: l_api_name,
619: G_PKG_NAME,
620: 'OKC_API.G_RET_STS_UNEXP_ERROR',
621: x_msg_count,
622: x_msg_data,
623: '_PVT'
624: );
622: x_msg_data,
623: '_PVT'
624: );
625: WHEN OTHERS THEN
626: x_return_status := OKC_API.HANDLE_EXCEPTIONS
627: (
628: l_api_name,
629: G_PKG_NAME,
630: 'OTHERS',
641: PROCEDURE report_all_credit_bureau(
642: errbuf OUT NOCOPY VARCHAR2,
643: retcode OUT NOCOPY NUMBER) AS
644:
645: l_init_msg_list VARCHAR2(1) := Okc_Api.G_FALSE ;
646: lx_msg_count NUMBER ;
647: lx_msg_data VARCHAR2(2000);
648: lx_message VARCHAR2(2000);
649: l_api_version CONSTANT NUMBER := 1;
646: lx_msg_count NUMBER ;
647: lx_msg_data VARCHAR2(2000);
648: lx_message VARCHAR2(2000);
649: l_api_version CONSTANT NUMBER := 1;
650: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
651: l_api_name CONSTANT VARCHAR2(30) := 'report_all_credit_bureau';
652:
653: l_oinv_rec oinv_rec_type;
654: l_iohv_rec iohv_rec_type;
706: p_object1_id2 => '#',
707: p_jtot_object1_code => 'OKX_LEASE',
708: p_action => IEX_OPI_PVT.ACTION_REPORT_CB,
709: p_status => IEX_OPI_PVT.STATUS_PENDING_ALL,
710: p_comments => OKC_API.G_MISS_CHAR,
711: p_ext_agncy_id => NULL,
712: p_transfer_days => NULL,
713: p_extend_days => NULL,
714: x_return_status => l_return_status,
714: x_return_status => l_return_status,
715: x_msg_count => lx_msg_count,
716: x_msg_data => lx_msg_data);
717:
718: IF l_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
719: l_rows_failed := l_rows_failed + 1;
720: ELSE
721: l_rows_processed := l_rows_processed + 1;
722: END IF;
749: retcode := 1;
750: Fnd_File.PUT_LINE(Fnd_File.OUTPUT, 'SQL ERROR : SQLCODE = ' || SQLCODE);
751: Fnd_File.PUT_LINE(Fnd_File.OUTPUT, ' MESSAGE = ' || SQLERRM);
752: ROLLBACK;
753: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
754: END report_all_credit_bureau;
755: */
756:
757: ---------------------------------------------------------------------------
761: p_contract_id IN NUMBER,
762: x_party_rec OUT NOCOPY party_rec_type,
763: x_return_status OUT NOCOPY VARCHAR2) AS
764:
765: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
766: l_bill_to_add_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
767: l_party_rec party_rec_type;
768: l_bill_to_address_id HZ_LOCATIONS.LOCATION_ID%TYPE;
769:
762: x_party_rec OUT NOCOPY party_rec_type,
763: x_return_status OUT NOCOPY VARCHAR2) AS
764:
765: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
766: l_bill_to_add_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
767: l_party_rec party_rec_type;
768: l_bill_to_address_id HZ_LOCATIONS.LOCATION_ID%TYPE;
769:
770: CURSOR l_party_csr(cp_party_id IN NUMBER) IS
807: FROM hz_locations hzl
808: WHERE hzl.location_id = cp_bill_to_address_id;
809: BEGIN
810: l_return_status := OKL_CONTRACT_INFO.get_customer(p_contract_id, l_party_rec.party_id);
811: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
812: OKC_API.SET_MESSAGE( p_app_name => G_APP_NAME
813: ,p_msg_name => G_INVALID_PARTY);
814: END IF;
815:
808: WHERE hzl.location_id = cp_bill_to_address_id;
809: BEGIN
810: l_return_status := OKL_CONTRACT_INFO.get_customer(p_contract_id, l_party_rec.party_id);
811: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
812: OKC_API.SET_MESSAGE( p_app_name => G_APP_NAME
813: ,p_msg_name => G_INVALID_PARTY);
814: END IF;
815:
816: OPEN l_party_csr(l_party_rec.party_id);
860: x_party_rec := l_party_rec;
861: x_return_status := l_return_status;
862: EXCEPTION
863: WHEN OTHERS THEN
864: OKC_API.SET_MESSAGE( p_app_name => G_APP_NAME
865: ,p_msg_name => G_UNEXPECTED_ERROR
866: ,p_token1 => G_SQLCODE_TOKEN
867: ,p_token1_value => SQLCODE
868: ,p_token2 => G_SQLERRM_TOKEN
866: ,p_token1 => G_SQLCODE_TOKEN
867: ,p_token1_value => SQLCODE
868: ,p_token2 => G_SQLERRM_TOKEN
869: ,p_token2_value => SQLERRM);
870: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
871: END get_party;
872:
873: ---------------------------------------------------------------------------
874: -- PROCEDURE get_guarantor
877: p_contract_id IN NUMBER,
878: x_party_tbl OUT NOCOPY party_tbl_type,
879: x_return_status OUT NOCOPY VARCHAR2) AS
880:
881: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
882: l_guarantor_tbl party_tbl_type;
883: l_guarantor_rec party_rec_type;
884: i NUMBER := 0;
885:
1012: WHEN OTHERS THEN
1013: IF l_guarantor_csr%ISOPEN THEN
1014: CLOSE l_guarantor_csr;
1015: END IF;
1016: OKC_API.SET_MESSAGE( p_app_name => G_APP_NAME
1017: ,p_msg_name => G_UNEXPECTED_ERROR
1018: ,p_token1 => G_SQLCODE_TOKEN
1019: ,p_token1_value => SQLCODE
1020: ,p_token2 => G_SQLERRM_TOKEN
1018: ,p_token1 => G_SQLCODE_TOKEN
1019: ,p_token1_value => SQLCODE
1020: ,p_token2 => G_SQLERRM_TOKEN
1021: ,p_token2_value => SQLERRM);
1022: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
1023: END get_guarantor;
1024:
1025: ---------------------------------------------------------------------------
1026: -- PROCEDURE get_case
1030: x_cas_id OUT NOCOPY NUMBER,
1031: x_case_number OUT NOCOPY VARCHAR2,
1032: x_return_status OUT NOCOPY VARCHAR2) AS
1033:
1034: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
1035: l_cas_id IEX_CASE_OBJECTS.CAS_ID%TYPE;
1036: l_case_number IEX_CASES_ALL_B.CASE_NUMBER%TYPE;
1037:
1038: CURSOR l_case_csr(cp_contract_id IN NUMBER) IS
1048: FETCH l_case_csr INTO
1049: l_cas_id
1050: ,l_case_number;
1051: IF l_case_csr%NOTFOUND THEN
1052: OKC_API.SET_MESSAGE( p_app_name => G_APP_NAME
1053: ,p_msg_name => G_INVALID_CASE);
1054: l_return_status := OKC_API.G_RET_STS_ERROR;
1055: CLOSE l_case_csr;
1056: ELSE
1050: ,l_case_number;
1051: IF l_case_csr%NOTFOUND THEN
1052: OKC_API.SET_MESSAGE( p_app_name => G_APP_NAME
1053: ,p_msg_name => G_INVALID_CASE);
1054: l_return_status := OKC_API.G_RET_STS_ERROR;
1055: CLOSE l_case_csr;
1056: ELSE
1057: CLOSE l_case_csr;
1058: END IF;
1060: x_case_number := l_case_number;
1061: x_return_status := l_return_status;
1062: EXCEPTION
1063: WHEN OTHERS THEN
1064: OKC_API.SET_MESSAGE( p_app_name => G_APP_NAME
1065: ,p_msg_name => G_UNEXPECTED_ERROR
1066: ,p_token1 => G_SQLCODE_TOKEN
1067: ,p_token1_value => SQLCODE
1068: ,p_token2 => G_SQLERRM_TOKEN
1066: ,p_token1 => G_SQLCODE_TOKEN
1067: ,p_token1_value => SQLCODE
1068: ,p_token2 => G_SQLERRM_TOKEN
1069: ,p_token2_value => SQLERRM);
1070: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
1071: END get_case;
1072:
1073: ---------------------------------------------------------------------------
1074: -- PROCEDURE get_contract
1077: p_contract_id IN NUMBER,
1078: x_contract_rec OUT NOCOPY contract_rec_type,
1079: x_return_status OUT NOCOPY VARCHAR2) AS
1080:
1081: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
1082: l_contract_rec contract_rec_type;
1083:
1084: CURSOR l_khr_csr(cp_contract_id IN NUMBER) IS
1085: SELECT okhv.contract_number
1105: ,l_contract_rec.close_date
1106: ,l_contract_rec.term_duration
1107: ,l_contract_rec.org_id;
1108: IF l_khr_csr%NOTFOUND THEN
1109: OKC_API.SET_MESSAGE( p_app_name => G_APP_NAME
1110: ,p_msg_name => G_INVALID_CONTRACT);
1111: CLOSE l_khr_csr;
1112: l_return_status := OKC_API.G_RET_STS_ERROR;
1113: ELSE
1108: IF l_khr_csr%NOTFOUND THEN
1109: OKC_API.SET_MESSAGE( p_app_name => G_APP_NAME
1110: ,p_msg_name => G_INVALID_CONTRACT);
1111: CLOSE l_khr_csr;
1112: l_return_status := OKC_API.G_RET_STS_ERROR;
1113: ELSE
1114: CLOSE l_khr_csr;
1115: END IF;
1116: x_contract_rec := l_contract_rec;
1116: x_contract_rec := l_contract_rec;
1117: x_return_status := l_return_status;
1118: EXCEPTION
1119: WHEN OTHERS THEN
1120: OKC_API.SET_MESSAGE( p_app_name => G_APP_NAME
1121: ,p_msg_name => G_UNEXPECTED_ERROR
1122: ,p_token1 => G_SQLCODE_TOKEN
1123: ,p_token1_value => SQLCODE
1124: ,p_token2 => G_SQLERRM_TOKEN
1122: ,p_token1 => G_SQLCODE_TOKEN
1123: ,p_token1_value => SQLCODE
1124: ,p_token2 => G_SQLERRM_TOKEN
1125: ,p_token2_value => SQLERRM);
1126: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
1127: END get_contract;
1128:
1129: ---------------------------------------------------------------------------
1130: -- PROCEDURE get_contract_payment_info
1133: p_contract_rec IN contract_rec_type,
1134: x_contract_rec OUT NOCOPY contract_rec_type,
1135: x_return_status OUT NOCOPY VARCHAR2) AS
1136:
1137: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
1138: l_contract_rec contract_rec_type;
1139: l_security_deposit NUMBER;
1140: l_interest_type NUMBER;
1141:
1224: x_contract_rec := l_contract_rec;
1225: x_return_status := l_return_status;
1226: EXCEPTION
1227: WHEN OTHERS THEN
1228: OKC_API.SET_MESSAGE( p_app_name => G_APP_NAME
1229: ,p_msg_name => G_UNEXPECTED_ERROR
1230: ,p_token1 => G_SQLCODE_TOKEN
1231: ,p_token1_value => SQLCODE
1232: ,p_token2 => G_SQLERRM_TOKEN
1230: ,p_token1 => G_SQLCODE_TOKEN
1231: ,p_token1_value => SQLCODE
1232: ,p_token2 => G_SQLERRM_TOKEN
1233: ,p_token2_value => SQLERRM);
1234: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
1235: END get_contract_payment_info;
1236:
1237: ---------------------------------------------------------------------------
1238: -- PROCEDURE get_case_owner
1244: x_resource_phone OUT NOCOPY VARCHAR2,
1245: x_resource_email OUT NOCOPY VARCHAR2,
1246: x_return_status OUT NOCOPY VARCHAR2) AS
1247:
1248: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
1249:
1250: CURSOR l_resource_csr(cp_cas_id IN NUMBER) IS
1251: SELECT ica.owner_resource_id
1252: ,jre.source_name
1266: END LOOP;
1267: x_return_status := l_return_status;
1268: EXCEPTION
1269: WHEN OTHERS THEN
1270: OKC_API.SET_MESSAGE( p_app_name => G_APP_NAME
1271: ,p_msg_name => G_UNEXPECTED_ERROR
1272: ,p_token1 => G_SQLCODE_TOKEN
1273: ,p_token1_value => SQLCODE
1274: ,p_token2 => G_SQLERRM_TOKEN
1272: ,p_token1 => G_SQLCODE_TOKEN
1273: ,p_token1_value => SQLCODE
1274: ,p_token2 => G_SQLERRM_TOKEN
1275: ,p_token2_value => SQLERRM);
1276: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
1277: END get_case_owner;
1278:
1279: ---------------------------------------------------------------------------
1280: -- PROCEDURE get_assets
1283: p_contract_id IN NUMBER,
1284: x_oiav_tbl OUT NOCOPY oiav_tbl_type,
1285: x_return_status OUT NOCOPY VARCHAR2) AS
1286:
1287: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
1288: l_oiav_rec oiav_rec_type;
1289: l_oiav_tbl oiav_tbl_type;
1290: i NUMBER := 0;
1291:
1427:
1428: x_return_status := l_return_status;
1429: EXCEPTION
1430: WHEN OTHERS THEN
1431: OKC_API.SET_MESSAGE( p_app_name => G_APP_NAME
1432: ,p_msg_name => G_UNEXPECTED_ERROR
1433: ,p_token1 => G_SQLCODE_TOKEN
1434: ,p_token1_value => SQLCODE
1435: ,p_token2 => G_SQLERRM_TOKEN
1433: ,p_token1 => G_SQLCODE_TOKEN
1434: ,p_token1_value => SQLCODE
1435: ,p_token2 => G_SQLERRM_TOKEN
1436: ,p_token2_value => SQLERRM);
1437: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
1438: END get_assets;
1439:
1440:
1441: