65: -- attached to a contract
66: --End of Comments
67: Procedure Get_Party (
68: p_api_version IN NUMBER,
69: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
70: x_return_status OUT NOCOPY VARCHAR2,
71: x_msg_count OUT NOCOPY NUMBER,
72: x_msg_data OUT NOCOPY VARCHAR2,
73: p_chr_id IN VARCHAR2,
107: l_chr_id Number;
108: l_dnz_chr_id Number;
109: l_cle_id Number;
110:
111: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
112: l_api_name CONSTANT VARCHAR2(30) := 'GET_PARTY2';
113: l_api_version CONSTANT NUMBER := 1.0;
114:
115: Begin
112: l_api_name CONSTANT VARCHAR2(30) := 'GET_PARTY2';
113: l_api_version CONSTANT NUMBER := 1.0;
114:
115: Begin
116: l_return_status := OKL_API.START_ACTIVITY( substr(l_api_name,1,26),
117: G_PKG_NAME,
118: p_init_msg_list,
119: l_api_version,
120: p_api_version,
120: p_api_version,
121: '_PVT',
122: x_return_status);
123:
124: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
125: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
126: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
127: RAISE OKL_API.G_EXCEPTION_ERROR;
128: END IF;
121: '_PVT',
122: x_return_status);
123:
124: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
125: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
126: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
127: RAISE OKL_API.G_EXCEPTION_ERROR;
128: END IF;
129:
122: x_return_status);
123:
124: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
125: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
126: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
127: RAISE OKL_API.G_EXCEPTION_ERROR;
128: END IF;
129:
130: If p_chr_id is not null and p_cle_id is null
123:
124: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
125: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
126: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
127: RAISE OKL_API.G_EXCEPTION_ERROR;
128: END IF;
129:
130: If p_chr_id is not null and p_cle_id is null
131: Then
144: l_dnz_chr_id := p_chr_id;
145: Elsif p_chr_id is null and p_cle_id is null
146: Then
147: --dbms_output.put_line('Error : Either line_id or header id required to find party_role');
148: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
149: p_msg_name => G_MISS_CHR_CLE,
150: p_token1 => G_MISS_PARA_TOKEN,
151: p_token1_value => 'p_chr_id or p_cle_id');
152:
149: p_msg_name => G_MISS_CHR_CLE,
150: p_token1 => G_MISS_PARA_TOKEN,
151: p_token1_value => 'p_chr_id or p_cle_id');
152:
153: RAISE OKL_API.G_EXCEPTION_ERROR; --raise appropriate exception here
154: End If;
155: Open party_role_curs(l_chr_id,l_cle_id,l_dnz_chr_id,p_role_code);
156: Loop
157: Fetch party_role_curs into party_role_rec;
181:
182: If okx_party_csr%NotFound Then
183: --dbms_output.put_line('Not able to find data for role "'||party_role_rec.rle_code||'"');
184: --Null;--raise appropriate exception here
185: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
186: p_msg_name => G_UNABLE_TO_FIND_PARTY_ROLE,
187: p_token1 => G_PARTY_ROLE_TOKEN,
188: p_token1_value => 'party role',
189: p_token2 => G_PARTY_ROLE_CODE_TOKEN,
187: p_token1 => G_PARTY_ROLE_TOKEN,
188: p_token1_value => 'party role',
189: p_token2 => G_PARTY_ROLE_CODE_TOKEN,
190: p_token2_value => party_role_rec.rle_code);
191: RAISE OKL_API.G_EXCEPTION_ERROR;
192: End If;
193: x_party_tab(i).rle_code := party_role_rec.rle_code;
194: x_party_tab(i).id1 := l_id1;
195: x_party_tab(i).id2 := l_id2;
219:
220: If okx_operunit_csr%NotFound Then
221: --dbms_output.put_line('Not able to find data for role "'||party_role_rec.rle_code||'"');
222: --Null;--raise appropriate exception here
223: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
224: p_msg_name => G_UNABLE_TO_FIND_PARTY_ROLE,
225: p_token1 => G_PARTY_ROLE_TOKEN,
226: p_token1_value => 'party role',
227: p_token2 => G_PARTY_ROLE_CODE_TOKEN,
225: p_token1 => G_PARTY_ROLE_TOKEN,
226: p_token1_value => 'party role',
227: p_token2 => G_PARTY_ROLE_CODE_TOKEN,
228: p_token2_value => party_role_rec.rle_code);
229: RAISE OKL_API.G_EXCEPTION_ERROR;
230: End If;
231: x_party_tab(i).rle_code := party_role_rec.rle_code;
232: x_party_tab(i).id1 := l_id1;
233: x_party_tab(i).id2 := l_id2;
257:
258: If okx_vendor_csr%NotFound Then
259: --dbms_output.put_line('Not able to find data for role "'||party_role_rec.rle_code||'"');
260: --Null;--raise appropriate exception here
261: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
262: p_msg_name => G_UNABLE_TO_FIND_PARTY_ROLE,
263: p_token1 => G_PARTY_ROLE_TOKEN,
264: p_token1_value => 'party role',
265: p_token2 => G_PARTY_ROLE_CODE_TOKEN,
263: p_token1 => G_PARTY_ROLE_TOKEN,
264: p_token1_value => 'party role',
265: p_token2 => G_PARTY_ROLE_CODE_TOKEN,
266: p_token2_value => party_role_rec.rle_code);
267: RAISE OKL_API.G_EXCEPTION_ERROR;
268: End If;
269: x_party_tab(i).rle_code := party_role_rec.rle_code;
270: x_party_tab(i).id1 := l_id1;
271: x_party_tab(i).id2 := l_id2;
278:
279: End Loop;
280: Close party_role_curs;
281: --Call End Activity
282: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
283: x_msg_data => x_msg_data);
284: EXCEPTION
285: when OKL_API.G_EXCEPTION_ERROR then
286: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
281: --Call End Activity
282: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
283: x_msg_data => x_msg_data);
284: EXCEPTION
285: when OKL_API.G_EXCEPTION_ERROR then
286: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
287: p_api_name => l_api_name,
288: p_pkg_name => g_pkg_name,
289: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
282: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
283: x_msg_data => x_msg_data);
284: EXCEPTION
285: when OKL_API.G_EXCEPTION_ERROR then
286: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
287: p_api_name => l_api_name,
288: p_pkg_name => g_pkg_name,
289: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
290: x_msg_count => x_msg_count,
285: when OKL_API.G_EXCEPTION_ERROR then
286: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
287: p_api_name => l_api_name,
288: p_pkg_name => g_pkg_name,
289: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
290: x_msg_count => x_msg_count,
291: x_msg_data => x_msg_data,
292: p_api_type => g_api_type);
293: IF okx_party_csr%ISOPEN THEN
300: CLOSE okx_vendor_csr;
301: END IF;
302:
303:
304: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
305: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
306: p_api_name => l_api_name,
307: p_pkg_name => g_pkg_name,
308: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
301: END IF;
302:
303:
304: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
305: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
306: p_api_name => l_api_name,
307: p_pkg_name => g_pkg_name,
308: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
309: x_msg_count => x_msg_count,
304: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
305: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
306: p_api_name => l_api_name,
307: p_pkg_name => g_pkg_name,
308: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
309: x_msg_count => x_msg_count,
310: x_msg_data => x_msg_data,
311: p_api_type => g_api_type);
312:
321: END IF;
322:
323:
324: when OTHERS then
325: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
326: p_api_name => l_api_name,
327: p_pkg_name => g_pkg_name,
328: p_exc_name => 'OTHERS',
329: x_msg_count => x_msg_count,
346: --Description : Fetches Name, Description of a Party role for a given
347: -- object1_id1 and object2_id2
348: --End of comments
349: Procedure Get_Party (p_api_version IN NUMBER,
350: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
351: x_return_status OUT NOCOPY VARCHAR2,
352: x_msg_count OUT NOCOPY NUMBER,
353: x_msg_data OUT NOCOPY VARCHAR2,
354: p_role_code IN VARCHAR2,
372: l_object_code VARCHAR2(30) Default Null;
373: type party_curs_type is REF CURSOR;
374: party_curs party_curs_type;
375:
376: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
377: l_api_name CONSTANT VARCHAR2(30) := 'GET_PARTY3';
378: l_api_version CONSTANT NUMBER := 1.0;
379:
380: Begin
377: l_api_name CONSTANT VARCHAR2(30) := 'GET_PARTY3';
378: l_api_version CONSTANT NUMBER := 1.0;
379:
380: Begin
381: --Call OKL_API.START_ACTIVITY
382: l_return_status := OKL_API.START_ACTIVITY( substr(l_api_name,1,26),
383: G_PKG_NAME,
384: p_init_msg_list,
385: l_api_version,
378: l_api_version CONSTANT NUMBER := 1.0;
379:
380: Begin
381: --Call OKL_API.START_ACTIVITY
382: l_return_status := OKL_API.START_ACTIVITY( substr(l_api_name,1,26),
383: G_PKG_NAME,
384: p_init_msg_list,
385: l_api_version,
386: p_api_version,
386: p_api_version,
387: '_PVT',
388: x_return_status);
389:
390: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
391: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
392: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
393: RAISE OKL_API.G_EXCEPTION_ERROR;
394: END IF;
387: '_PVT',
388: x_return_status);
389:
390: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
391: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
392: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
393: RAISE OKL_API.G_EXCEPTION_ERROR;
394: END IF;
395:
388: x_return_status);
389:
390: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
391: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
392: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
393: RAISE OKL_API.G_EXCEPTION_ERROR;
394: END IF;
395:
396:
389:
390: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
391: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
392: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
393: RAISE OKL_API.G_EXCEPTION_ERROR;
394: END IF;
395:
396:
397: --Added by kthiruva 23-Sep-2003 Bug No.3156265
418: l_description;
419:
420: If okx_party_csr%NotFound Then
421: --dbms_output.put_line('Not able to find data for role "'||p_role_code||'"');
422: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
423: p_msg_name => G_UNABLE_TO_FIND_PARTY_ROLE,
424: p_token1 => G_PARTY_ROLE_TOKEN,
425: p_token1_value => 'party role',
426: p_token2 => G_PARTY_ROLE_CODE_TOKEN,
425: p_token1_value => 'party role',
426: p_token2 => G_PARTY_ROLE_CODE_TOKEN,
427: p_token2_value => p_role_code);
428:
429: RAISE OKL_API.G_EXCEPTION_ERROR;
430: End If;
431: x_id1 := l_id1;
432: x_id2 := l_id2;
433: x_name := l_name;
455: l_description;
456:
457: If okx_operunit_csr%NotFound Then
458: --dbms_output.put_line('Not able to find data for role "'||p_role_code||'"');
459: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
460: p_msg_name => G_UNABLE_TO_FIND_PARTY_ROLE,
461: p_token1 => G_PARTY_ROLE_TOKEN,
462: p_token1_value => 'party role',
463: p_token2 => G_PARTY_ROLE_CODE_TOKEN,
462: p_token1_value => 'party role',
463: p_token2 => G_PARTY_ROLE_CODE_TOKEN,
464: p_token2_value => p_role_code);
465:
466: RAISE OKL_API.G_EXCEPTION_ERROR;
467: End If;
468: x_id1 := l_id1;
469: x_id2 := l_id2;
470: x_name := l_name;
492: l_description;
493:
494: If okx_vendor_csr%NotFound Then
495: --dbms_output.put_line('Not able to find data for role "'||p_role_code||'"');
496: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
497: p_msg_name => G_UNABLE_TO_FIND_PARTY_ROLE,
498: p_token1 => G_PARTY_ROLE_TOKEN,
499: p_token1_value => 'party role',
500: p_token2 => G_PARTY_ROLE_CODE_TOKEN,
499: p_token1_value => 'party role',
500: p_token2 => G_PARTY_ROLE_CODE_TOKEN,
501: p_token2_value => p_role_code);
502:
503: RAISE OKL_API.G_EXCEPTION_ERROR;
504: End If;
505: x_id1 := l_id1;
506: x_id2 := l_id2;
507: x_name := l_name;
509: Close okx_vendor_csr;
510: END IF;
511:
512: --Call End Activity
513: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
514: x_msg_data => x_msg_data);
515: EXCEPTION
516: when OKL_API.G_EXCEPTION_ERROR then
517: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
512: --Call End Activity
513: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
514: x_msg_data => x_msg_data);
515: EXCEPTION
516: when OKL_API.G_EXCEPTION_ERROR then
517: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
518: p_api_name => l_api_name,
519: p_pkg_name => g_pkg_name,
520: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
513: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
514: x_msg_data => x_msg_data);
515: EXCEPTION
516: when OKL_API.G_EXCEPTION_ERROR then
517: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
518: p_api_name => l_api_name,
519: p_pkg_name => g_pkg_name,
520: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
521: x_msg_count => x_msg_count,
516: when OKL_API.G_EXCEPTION_ERROR then
517: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
518: p_api_name => l_api_name,
519: p_pkg_name => g_pkg_name,
520: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
521: x_msg_count => x_msg_count,
522: x_msg_data => x_msg_data,
523: p_api_type => g_api_type);
524: IF okx_party_csr%ISOPEN THEN
531: CLOSE okx_vendor_csr;
532: END IF;
533:
534:
535: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
536: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
537: p_api_name => l_api_name,
538: p_pkg_name => g_pkg_name,
539: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
532: END IF;
533:
534:
535: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
536: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
537: p_api_name => l_api_name,
538: p_pkg_name => g_pkg_name,
539: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
540: x_msg_count => x_msg_count,
535: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
536: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
537: p_api_name => l_api_name,
538: p_pkg_name => g_pkg_name,
539: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
540: x_msg_count => x_msg_count,
541: x_msg_data => x_msg_data,
542: p_api_type => g_api_type);
543:
552: END IF;
553:
554:
555: when OTHERS then
556: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
557: p_api_name => l_api_name,
558: p_pkg_name => g_pkg_name,
559: p_exc_name => 'OTHERS',
560: x_msg_count => x_msg_count,
577: --Description : fetches Party Roles for a Subclass
578: --End of Comments
579: Procedure Get_SubClass_Def_Roles
580: (p_api_version IN NUMBER,
581: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
582: x_return_status OUT NOCOPY VARCHAR2,
583: x_msg_count OUT NOCOPY NUMBER,
584: x_msg_data OUT NOCOPY VARCHAR2,
585: p_scs_code IN OKC_SUBCLASSES_V.CODE%TYPE,
593: and nvl(end_date,sysdate+1) > sysdate;
594: scs_rle_rec scs_rle_curs%rowType;
595: i Number;
596:
597: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
598: l_api_name CONSTANT VARCHAR2(30) := 'GET_SUBCLASS_ROLES';
599: l_api_version CONSTANT NUMBER := 1.0;
600:
601: Begin
598: l_api_name CONSTANT VARCHAR2(30) := 'GET_SUBCLASS_ROLES';
599: l_api_version CONSTANT NUMBER := 1.0;
600:
601: Begin
602: --Call OKL_API.START_ACTIVITY
603: l_return_status := OKL_API.START_ACTIVITY( substr(l_api_name,1,26),
604: G_PKG_NAME,
605: p_init_msg_list,
606: l_api_version,
599: l_api_version CONSTANT NUMBER := 1.0;
600:
601: Begin
602: --Call OKL_API.START_ACTIVITY
603: l_return_status := OKL_API.START_ACTIVITY( substr(l_api_name,1,26),
604: G_PKG_NAME,
605: p_init_msg_list,
606: l_api_version,
607: p_api_version,
607: p_api_version,
608: '_PVT',
609: x_return_status);
610:
611: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
612: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
613: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
614: RAISE OKL_API.G_EXCEPTION_ERROR;
615: END IF;
608: '_PVT',
609: x_return_status);
610:
611: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
612: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
613: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
614: RAISE OKL_API.G_EXCEPTION_ERROR;
615: END IF;
616:
609: x_return_status);
610:
611: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
612: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
613: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
614: RAISE OKL_API.G_EXCEPTION_ERROR;
615: END IF;
616:
617: Open scs_rle_curs;
610:
611: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
612: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
613: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
614: RAISE OKL_API.G_EXCEPTION_ERROR;
615: END IF;
616:
617: Open scs_rle_curs;
618: Loop
623: x_rle_code_tbl(i).rle_code := scs_rle_rec.rle_code;
624: End Loop;
625: Close scs_rle_curs;
626: --Call End Activity
627: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
628: x_msg_data => x_msg_data);
629: EXCEPTION
630: when OKL_API.G_EXCEPTION_ERROR then
631: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
626: --Call End Activity
627: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
628: x_msg_data => x_msg_data);
629: EXCEPTION
630: when OKL_API.G_EXCEPTION_ERROR then
631: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
632: p_api_name => l_api_name,
633: p_pkg_name => g_pkg_name,
634: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
627: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
628: x_msg_data => x_msg_data);
629: EXCEPTION
630: when OKL_API.G_EXCEPTION_ERROR then
631: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
632: p_api_name => l_api_name,
633: p_pkg_name => g_pkg_name,
634: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
635: x_msg_count => x_msg_count,
630: when OKL_API.G_EXCEPTION_ERROR then
631: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
632: p_api_name => l_api_name,
633: p_pkg_name => g_pkg_name,
634: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
635: x_msg_count => x_msg_count,
636: x_msg_data => x_msg_data,
637: p_api_type => g_api_type);
638:
635: x_msg_count => x_msg_count,
636: x_msg_data => x_msg_data,
637: p_api_type => g_api_type);
638:
639: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
640: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
641: p_api_name => l_api_name,
642: p_pkg_name => g_pkg_name,
643: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
636: x_msg_data => x_msg_data,
637: p_api_type => g_api_type);
638:
639: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
640: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
641: p_api_name => l_api_name,
642: p_pkg_name => g_pkg_name,
643: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
644: x_msg_count => x_msg_count,
639: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
640: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
641: p_api_name => l_api_name,
642: p_pkg_name => g_pkg_name,
643: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
644: x_msg_count => x_msg_count,
645: x_msg_data => x_msg_data,
646: p_api_type => g_api_type);
647:
645: x_msg_data => x_msg_data,
646: p_api_type => g_api_type);
647:
648: when OTHERS then
649: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
650: p_api_name => l_api_name,
651: p_pkg_name => g_pkg_name,
652: p_exc_name => 'OTHERS',
653: x_msg_count => x_msg_count,
660: --Description : fetches Party Roles for a contract
661: --End of Comments
662: Procedure Get_Contract_Def_Roles
663: (p_api_version IN NUMBER,
664: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
665: x_return_status OUT NOCOPY VARCHAR2,
666: x_msg_count OUT NOCOPY NUMBER,
667: x_msg_data OUT NOCOPY VARCHAR2,
668: p_chr_id IN VARCHAR2,
672: from OKC_K_HEADERS_B
673: where id = p_chr_id;
674: l_scs_code OKC_K_HEADERS_B.SCS_CODE%TYPE;
675:
676: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
677: l_api_name CONSTANT VARCHAR2(30) := 'GET_CONTRACT_DEF_ROLES';
678: l_api_version CONSTANT NUMBER := 1.0;
679:
680: Begin
677: l_api_name CONSTANT VARCHAR2(30) := 'GET_CONTRACT_DEF_ROLES';
678: l_api_version CONSTANT NUMBER := 1.0;
679:
680: Begin
681: --Call OKL_API.START_ACTIVITY
682: l_return_status := OKL_API.START_ACTIVITY( substr(l_api_name,1,26),
683: G_PKG_NAME,
684: p_init_msg_list,
685: l_api_version,
678: l_api_version CONSTANT NUMBER := 1.0;
679:
680: Begin
681: --Call OKL_API.START_ACTIVITY
682: l_return_status := OKL_API.START_ACTIVITY( substr(l_api_name,1,26),
683: G_PKG_NAME,
684: p_init_msg_list,
685: l_api_version,
686: p_api_version,
686: p_api_version,
687: '_PVT',
688: x_return_status);
689:
690: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
691: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
692: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
693: RAISE OKL_API.G_EXCEPTION_ERROR;
694: END IF;
687: '_PVT',
688: x_return_status);
689:
690: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
691: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
692: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
693: RAISE OKL_API.G_EXCEPTION_ERROR;
694: END IF;
695:
688: x_return_status);
689:
690: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
691: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
692: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
693: RAISE OKL_API.G_EXCEPTION_ERROR;
694: END IF;
695:
696: Open chr_scs_curs;
689:
690: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
691: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
692: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
693: RAISE OKL_API.G_EXCEPTION_ERROR;
694: END IF;
695:
696: Open chr_scs_curs;
697: Fetch chr_scs_curs into l_scs_code;
697: Fetch chr_scs_curs into l_scs_code;
698: If chr_scs_curs%NotFound Then
699: --dbms_output.put_line('Subclass not found for chr id "'||p_chr_id||'"');
700: --null; --handle appropriate exception
701: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
702: p_msg_name => G_MISSING_CONTRACT,
703: p_token1 => G_CONTRACT_ID_TOKEN,
704: p_token1_value => p_chr_id);
705: RAISE OKL_API.G_EXCEPTION_ERROR;
701: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
702: p_msg_name => G_MISSING_CONTRACT,
703: p_token1 => G_CONTRACT_ID_TOKEN,
704: p_token1_value => p_chr_id);
705: RAISE OKL_API.G_EXCEPTION_ERROR;
706: Else
707: Get_Subclass_Def_Roles(p_api_version => p_api_version,
708: p_init_msg_list => p_init_msg_list,
709: x_return_status => x_return_status,
710: x_msg_count => x_msg_count,
711: x_msg_data => x_msg_data,
712: p_scs_code => l_scs_code,
713: x_rle_code_tbl => x_rle_code_tbl);
714: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
715: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
716: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
717: RAISE OKL_API.G_EXCEPTION_ERROR;
718: END IF;
711: x_msg_data => x_msg_data,
712: p_scs_code => l_scs_code,
713: x_rle_code_tbl => x_rle_code_tbl);
714: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
715: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
716: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
717: RAISE OKL_API.G_EXCEPTION_ERROR;
718: END IF;
719:
712: p_scs_code => l_scs_code,
713: x_rle_code_tbl => x_rle_code_tbl);
714: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
715: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
716: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
717: RAISE OKL_API.G_EXCEPTION_ERROR;
718: END IF;
719:
720: End If;
713: x_rle_code_tbl => x_rle_code_tbl);
714: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
715: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
716: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
717: RAISE OKL_API.G_EXCEPTION_ERROR;
718: END IF;
719:
720: End If;
721: --Call End Activity
718: END IF;
719:
720: End If;
721: --Call End Activity
722: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
723: x_msg_data => x_msg_data);
724: EXCEPTION
725: when OKL_API.G_EXCEPTION_ERROR then
726: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
721: --Call End Activity
722: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
723: x_msg_data => x_msg_data);
724: EXCEPTION
725: when OKL_API.G_EXCEPTION_ERROR then
726: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
727: p_api_name => l_api_name,
728: p_pkg_name => g_pkg_name,
729: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
722: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
723: x_msg_data => x_msg_data);
724: EXCEPTION
725: when OKL_API.G_EXCEPTION_ERROR then
726: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
727: p_api_name => l_api_name,
728: p_pkg_name => g_pkg_name,
729: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
730: x_msg_count => x_msg_count,
725: when OKL_API.G_EXCEPTION_ERROR then
726: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
727: p_api_name => l_api_name,
728: p_pkg_name => g_pkg_name,
729: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
730: x_msg_count => x_msg_count,
731: x_msg_data => x_msg_data,
732: p_api_type => g_api_type);
733:
730: x_msg_count => x_msg_count,
731: x_msg_data => x_msg_data,
732: p_api_type => g_api_type);
733:
734: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
735: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
736: p_api_name => l_api_name,
737: p_pkg_name => g_pkg_name,
738: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
731: x_msg_data => x_msg_data,
732: p_api_type => g_api_type);
733:
734: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
735: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
736: p_api_name => l_api_name,
737: p_pkg_name => g_pkg_name,
738: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
739: x_msg_count => x_msg_count,
734: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
735: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
736: p_api_name => l_api_name,
737: p_pkg_name => g_pkg_name,
738: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
739: x_msg_count => x_msg_count,
740: x_msg_data => x_msg_data,
741: p_api_type => g_api_type);
742:
740: x_msg_data => x_msg_data,
741: p_api_type => g_api_type);
742:
743: when OTHERS then
744: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
745: p_api_name => l_api_name,
746: p_pkg_name => g_pkg_name,
747: p_exc_name => 'OTHERS',
748: x_msg_count => x_msg_count,
752: End Get_Contract_Def_Roles;
753: ------------------------------
754: Procedure Get_Contact(
755: p_api_version IN NUMBER,
756: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
757: x_return_status OUT NOCOPY VARCHAR2,
758: x_msg_count OUT NOCOPY NUMBER,
759: x_msg_data OUT NOCOPY VARCHAR2,
760: p_role_code IN VARCHAR2,
793: type contact_curs_type is REF CURSOR;
794: contact_count_curs contact_curs_type;
795: l_rec_count NUMBER default 0;
796:
797: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
798: l_api_name CONSTANT VARCHAR2(30) := 'GET_CONTACT';
799: l_api_version CONSTANT NUMBER := 1.0;
800:
801: Begin
798: l_api_name CONSTANT VARCHAR2(30) := 'GET_CONTACT';
799: l_api_version CONSTANT NUMBER := 1.0;
800:
801: Begin
802: --Call OKL_API.START_ACTIVITY
803: l_return_status := OKL_API.START_ACTIVITY( substr(l_api_name,1,26),
804: G_PKG_NAME,
805: p_init_msg_list,
806: l_api_version,
799: l_api_version CONSTANT NUMBER := 1.0;
800:
801: Begin
802: --Call OKL_API.START_ACTIVITY
803: l_return_status := OKL_API.START_ACTIVITY( substr(l_api_name,1,26),
804: G_PKG_NAME,
805: p_init_msg_list,
806: l_api_version,
807: p_api_version,
807: p_api_version,
808: '_PVT',
809: x_return_status);
810:
811: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
812: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
813: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
814: RAISE OKL_API.G_EXCEPTION_ERROR;
815: END IF;
808: '_PVT',
809: x_return_status);
810:
811: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
812: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
813: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
814: RAISE OKL_API.G_EXCEPTION_ERROR;
815: END IF;
816:
809: x_return_status);
810:
811: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
812: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
813: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
814: RAISE OKL_API.G_EXCEPTION_ERROR;
815: END IF;
816:
817: If okc_context.get_okc_org_id is null then
810:
811: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
812: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
813: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
814: RAISE OKL_API.G_EXCEPTION_ERROR;
815: END IF;
816:
817: If okc_context.get_okc_org_id is null then
818: okc_context.set_okc_org_context(null,null);
823: If jtf_contacts_cur%NOTFOUND Then
824: --dbms_output.put_line('falied in getting jtot query for contact : "'||p_contact_code||'"');
825: --handle exception appropriately
826: --dbms_output.put_line('Not able to find data for role "'||p_role_code||'"');
827: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
828: p_msg_name => G_UNABLE_TO_FIND_PARTY_ROLE,
829: p_token1 => G_PARTY_ROLE_TOKEN,
830: p_token1_value => 'party contract',
831: p_token2 => G_PARTY_ROLE_CODE_TOKEN,
830: p_token1_value => 'party contract',
831: p_token2 => G_PARTY_ROLE_CODE_TOKEN,
832: p_token2_value => p_contact_code);
833:
834: RAISE OKL_API.G_EXCEPTION_ERROR;
835: Else
836: x_object_code := jtf_contacts_rec.object_code;
837: x_select_clause := jtf_contacts_rec.select_clause;
838: x_from_clause := jtf_contacts_rec.from_clause;
868: */
869: End If;
870: Close jtf_contacts_cur;
871: --Call End Activity
872: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
873: x_msg_data => x_msg_data);
874: EXCEPTION
875: when OKL_API.G_EXCEPTION_ERROR then
876: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
871: --Call End Activity
872: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
873: x_msg_data => x_msg_data);
874: EXCEPTION
875: when OKL_API.G_EXCEPTION_ERROR then
876: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
877: p_api_name => l_api_name,
878: p_pkg_name => g_pkg_name,
879: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
872: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
873: x_msg_data => x_msg_data);
874: EXCEPTION
875: when OKL_API.G_EXCEPTION_ERROR then
876: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
877: p_api_name => l_api_name,
878: p_pkg_name => g_pkg_name,
879: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
880: x_msg_count => x_msg_count,
875: when OKL_API.G_EXCEPTION_ERROR then
876: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
877: p_api_name => l_api_name,
878: p_pkg_name => g_pkg_name,
879: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
880: x_msg_count => x_msg_count,
881: x_msg_data => x_msg_data,
882: p_api_type => g_api_type);
883:
880: x_msg_count => x_msg_count,
881: x_msg_data => x_msg_data,
882: p_api_type => g_api_type);
883:
884: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
885: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
886: p_api_name => l_api_name,
887: p_pkg_name => g_pkg_name,
888: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
881: x_msg_data => x_msg_data,
882: p_api_type => g_api_type);
883:
884: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
885: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
886: p_api_name => l_api_name,
887: p_pkg_name => g_pkg_name,
888: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
889: x_msg_count => x_msg_count,
884: when OKL_API.G_EXCEPTION_UNEXPECTED_ERROR then
885: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
886: p_api_name => l_api_name,
887: p_pkg_name => g_pkg_name,
888: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
889: x_msg_count => x_msg_count,
890: x_msg_data => x_msg_data,
891: p_api_type => g_api_type);
892:
890: x_msg_data => x_msg_data,
891: p_api_type => g_api_type);
892:
893: when OTHERS then
894: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
895: p_api_name => l_api_name,
896: p_pkg_name => g_pkg_name,
897: p_exc_name => 'OTHERS',
898: x_msg_count => x_msg_count,