[Home] [Help]
10: --PL/SQL Table to check the sections has already copied.
11: --If Yes give the new scn_id
12: ----------------------------------------------------------------------------
13: TYPE sections_rec_type IS RECORD (
14: old_scn_id NUMBER := OKC_API.G_MISS_NUM,
15: new_scn_id NUMBER := OKC_API.G_MISS_NUM);
16:
17: TYPE sections_tbl_type IS TABLE OF sections_rec_type INDEX BY BINARY_INTEGER;
18: g_sections sections_tbl_type;
11: --If Yes give the new scn_id
12: ----------------------------------------------------------------------------
13: TYPE sections_rec_type IS RECORD (
14: old_scn_id NUMBER := OKC_API.G_MISS_NUM,
15: new_scn_id NUMBER := OKC_API.G_MISS_NUM);
16:
17: TYPE sections_tbl_type IS TABLE OF sections_rec_type INDEX BY BINARY_INTEGER;
18: g_sections sections_tbl_type;
19:
21: --PL/SQL Table to check the party has already copied.
22: --If Yes give the new cpl_id ----Begins
23: ----------------------------------------------------------------------------
24: TYPE party_rec_type IS RECORD (
25: old_cpl_id NUMBER := OKC_API.G_MISS_NUM,
26: new_cpl_id NUMBER := OKC_API.G_MISS_NUM);
27: TYPE party_tbl_type IS TABLE OF party_rec_type INDEX BY BINARY_INTEGER;
28: g_party party_tbl_type;
29:
22: --If Yes give the new cpl_id ----Begins
23: ----------------------------------------------------------------------------
24: TYPE party_rec_type IS RECORD (
25: old_cpl_id NUMBER := OKC_API.G_MISS_NUM,
26: new_cpl_id NUMBER := OKC_API.G_MISS_NUM);
27: TYPE party_tbl_type IS TABLE OF party_rec_type INDEX BY BINARY_INTEGER;
28: g_party party_tbl_type;
29:
30: ----------------------------------------------------------------------------
35: -- To get PARENT_OLE_ID for top line, search for ID = header_id
36: -- for sub line, search for ID = Parent Line Id
37: ----------------------------------------------------------------------------
38: TYPE line_op_rec_type IS RECORD (
39: id NUMBER := OKC_API.G_MISS_NUM,
40: ole_id NUMBER := OKC_API.G_MISS_NUM);
41:
42: TYPE line_op_tbl_type IS TABLE OF line_op_rec_type INDEX BY BINARY_INTEGER;
43:
36: -- for sub line, search for ID = Parent Line Id
37: ----------------------------------------------------------------------------
38: TYPE line_op_rec_type IS RECORD (
39: id NUMBER := OKC_API.G_MISS_NUM,
40: ole_id NUMBER := OKC_API.G_MISS_NUM);
41:
42: TYPE line_op_tbl_type IS TABLE OF line_op_rec_type INDEX BY BINARY_INTEGER;
43:
44: g_op_lines line_op_tbl_type;
169: --Proceudre copy_sections - Makes a copy of the okc_sections and okc_section_contents.
170: ----------------------------------------------------------------------------
171: PROCEDURE copy_sections(
172: p_api_version IN NUMBER,
173: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
174: x_return_status OUT NOCOPY VARCHAR2,
175: x_msg_count OUT NOCOPY NUMBER,
176: x_msg_data OUT NOCOPY VARCHAR2,
177: p_scc_id IN NUMBER,
184: l_scn_count NUMBER := 0;
185:
186: l_sccv_rec sccv_rec_type;
187: x_sccv_rec sccv_rec_type;
188: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
189:
190: TYPE sec_rec_type IS RECORD (
191: scn_id NUMBER := OKC_API.G_MISS_NUM);
192: TYPE sec_tbl_type IS TABLE OF sec_rec_type
187: x_sccv_rec sccv_rec_type;
188: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
189:
190: TYPE sec_rec_type IS RECORD (
191: scn_id NUMBER := OKC_API.G_MISS_NUM);
192: TYPE sec_tbl_type IS TABLE OF sec_rec_type
193: INDEX BY BINARY_INTEGER;
194: l_sec sec_tbl_type;
195:
205: START WITH id = p_scn_id;
206:
207: PROCEDURE copy_section(
208: p_api_version IN NUMBER,
209: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
210: x_return_status OUT NOCOPY VARCHAR2,
211: x_msg_count OUT NOCOPY NUMBER,
212: x_msg_data OUT NOCOPY VARCHAR2,
213: p_scn_id IN NUMBER,
218: l_new_scn_id NUMBER;
219:
220: l_scnv_rec scnv_rec_type;
221: x_scnv_rec scnv_rec_type;
222: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
223:
224: BEGIN
225: x_return_status := l_return_status;
226: IF get_new_scn_id(p_scn_id, l_new_scn_id) THEN
247: x_msg_data => x_msg_data,
248: p_scnv_rec => l_scnv_rec,
249: x_scnv_rec => x_scnv_rec);
250:
251: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
252: x_return_status := l_return_status;
253: RAISE G_EXCEPTION_HALT_VALIDATION;
254: END IF;
255:
261: WHEN G_EXCEPTION_HALT_VALIDATION THEN
262: NULL;
263: WHEN OTHERS THEN
264: -- store SQL error message on message stack for caller
265: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR, G_SQLCODE_TOKEN, SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
266: -- notify caller of an UNEXPECTED error
267: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
268: END copy_section;
269:
263: WHEN OTHERS THEN
264: -- store SQL error message on message stack for caller
265: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR, G_SQLCODE_TOKEN, SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
266: -- notify caller of an UNEXPECTED error
267: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
268: END copy_section;
269:
270: BEGIN
271:
290: p_scn_id => l_sec(i).scn_id,
291: p_to_chr_id => p_to_chr_id,
292: x_scn_id => l_scn_id_out);
293:
294: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
295: x_return_status := l_return_status;
296: RAISE G_EXCEPTION_HALT_VALIDATION;
297: END IF;
298: END LOOP;
317: x_msg_data => x_msg_data,
318: p_sccv_rec => l_sccv_rec,
319: x_sccv_rec => x_sccv_rec);
320:
321: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
322: x_return_status := l_return_status;
323: RAISE G_EXCEPTION_HALT_VALIDATION;
324: END IF;
325:
328: WHEN G_EXCEPTION_HALT_VALIDATION THEN
329: NULL;
330: WHEN OTHERS THEN
331: -- store SQL error message on message stack for caller
332: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR, G_SQLCODE_TOKEN, SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
333: -- notify caller of an UNEXPECTED error
334: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
335: END copy_sections;
336:
330: WHEN OTHERS THEN
331: -- store SQL error message on message stack for caller
332: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR, G_SQLCODE_TOKEN, SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
333: -- notify caller of an UNEXPECTED error
334: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
335: END copy_sections;
336:
337: --------------------------------------------------------------------------
338: --Proceudre copy_accesses - Makes a copy of the okc_k_accesses.
338: --Proceudre copy_accesses - Makes a copy of the okc_k_accesses.
339: --------------------------------------------------------------------------
340: PROCEDURE copy_accesses(
341: p_api_version IN NUMBER,
342: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
343: x_return_status OUT NOCOPY VARCHAR2,
344: x_msg_count OUT NOCOPY NUMBER,
345: x_msg_data OUT NOCOPY VARCHAR2,
346: p_from_chr_id IN NUMBER,
347: p_to_chr_id IN NUMBER) IS
348:
349: l_cacv_rec cacv_rec_type;
350: x_cacv_rec cacv_rec_type;
351: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
352:
353: CURSOR c_access IS
354: SELECT id
355: FROM okc_k_accesses_v
370: x_msg_data => x_msg_data,
371: p_cacv_rec => l_cacv_rec,
372: x_cacv_rec => x_cacv_rec);
373:
374: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
375: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
376: x_return_status := l_return_status;
377: RAISE G_EXCEPTION_HALT_VALIDATION;
378: ELSE
371: p_cacv_rec => l_cacv_rec,
372: x_cacv_rec => x_cacv_rec);
373:
374: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
375: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
376: x_return_status := l_return_status;
377: RAISE G_EXCEPTION_HALT_VALIDATION;
378: ELSE
379: x_return_status := l_return_status;
385: WHEN G_EXCEPTION_HALT_VALIDATION THEN
386: NULL;
387: WHEN OTHERS THEN
388: -- store SQL error message on message stack for caller
389: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR, G_SQLCODE_TOKEN, SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
390: -- notify caller of an UNEXPECTED error
391: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
392:
393: END copy_accesses;
387: WHEN OTHERS THEN
388: -- store SQL error message on message stack for caller
389: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR, G_SQLCODE_TOKEN, SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
390: -- notify caller of an UNEXPECTED error
391: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
392:
393: END copy_accesses;
394:
395: ----------------------------------------------------------------------------
396: --Proceudre copy_processes - Makes a copy of the okc_k_processes.
397: ----------------------------------------------------------------------------
398: PROCEDURE copy_processes(
399: p_api_version IN NUMBER,
400: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
401: x_return_status OUT NOCOPY VARCHAR2,
402: x_msg_count OUT NOCOPY NUMBER,
403: x_msg_data OUT NOCOPY VARCHAR2,
404: p_from_chr_id IN NUMBER,
405: p_to_chr_id IN NUMBER) IS
406:
407: l_cpsv_rec cpsv_rec_type;
408: x_cpsv_rec cpsv_rec_type;
409: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
410:
411: CURSOR c_process IS
412: SELECT id
413: FROM okc_k_processes
429: x_msg_data => x_msg_data,
430: p_cpsv_rec => l_cpsv_rec,
431: x_cpsv_rec => x_cpsv_rec);
432:
433: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
434: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
435: x_return_status := l_return_status;
436: RAISE G_EXCEPTION_HALT_VALIDATION;
437: ELSE
430: p_cpsv_rec => l_cpsv_rec,
431: x_cpsv_rec => x_cpsv_rec);
432:
433: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
434: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
435: x_return_status := l_return_status;
436: RAISE G_EXCEPTION_HALT_VALIDATION;
437: ELSE
438: x_return_status := l_return_status;
444: WHEN G_EXCEPTION_HALT_VALIDATION THEN
445: NULL;
446: WHEN OTHERS THEN
447: -- store SQL error message on message stack for caller
448: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR, G_SQLCODE_TOKEN, SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
449: -- notify caller of an UNEXPECTED error
450: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
451:
452: END copy_processes;
446: WHEN OTHERS THEN
447: -- store SQL error message on message stack for caller
448: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR, G_SQLCODE_TOKEN, SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
449: -- notify caller of an UNEXPECTED error
450: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
451:
452: END copy_processes;
453:
454: ----------------------------------------------------------------------------
455: --Proceudre copy_grpings - Makes a copy of the okc_k_grpings.
456: ----------------------------------------------------------------------------
457: PROCEDURE copy_grpings(
458: p_api_version IN NUMBER,
459: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
460: x_return_status OUT NOCOPY VARCHAR2,
461: x_msg_count OUT NOCOPY NUMBER,
462: x_msg_data OUT NOCOPY VARCHAR2,
463: p_from_chr_id IN NUMBER,
464: p_to_chr_id IN NUMBER) IS
465:
466: l_cgcv_rec cgcv_rec_type;
467: x_cgcv_rec cgcv_rec_type;
468: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
469:
470: CURSOR c_grpings IS
471: SELECT cgcv.id
472: FROM okc_k_grpings_v cgcv,
490: x_msg_data => x_msg_data,
491: p_cgcv_rec => l_cgcv_rec,
492: x_cgcv_rec => x_cgcv_rec);
493:
494: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
495: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
496: x_return_status := l_return_status;
497: RAISE G_EXCEPTION_HALT_VALIDATION;
498: ELSE
491: p_cgcv_rec => l_cgcv_rec,
492: x_cgcv_rec => x_cgcv_rec);
493:
494: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
495: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
496: x_return_status := l_return_status;
497: RAISE G_EXCEPTION_HALT_VALIDATION;
498: ELSE
499: x_return_status := l_return_status;
505: WHEN G_EXCEPTION_HALT_VALIDATION THEN
506: NULL;
507: WHEN OTHERS THEN
508: -- store SQL error message on message stack for caller
509: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR, G_SQLCODE_TOKEN, SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
510: -- notify caller of an UNEXPECTED error
511: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
512:
513: END copy_grpings;
507: WHEN OTHERS THEN
508: -- store SQL error message on message stack for caller
509: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR, G_SQLCODE_TOKEN, SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
510: -- notify caller of an UNEXPECTED error
511: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
512:
513: END copy_grpings;
514:
515: --------------------------------------------------------------------------
516: --Proceudre copy_governances - Makes a copy of the okc_governances.
517: --------------------------------------------------------------------------
518: PROCEDURE copy_governances(
519: p_api_version IN NUMBER,
520: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
521: x_return_status OUT NOCOPY VARCHAR2,
522: x_msg_count OUT NOCOPY NUMBER,
523: x_msg_data OUT NOCOPY VARCHAR2,
524: p_from_chr_id IN NUMBER,
525: p_to_chr_id IN NUMBER) IS
526:
527: l_gvev_rec gvev_rec_type;
528: x_gvev_rec gvev_rec_type;
529: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
530:
531: CURSOR c_governances IS
532: SELECT id
533: FROM okc_governances
539: ----------------------------------------------------------------------------
540: FUNCTION get_gvev_rec(p_gve_id IN NUMBER,
541: x_gvev_rec OUT NOCOPY gvev_rec_type)
542: RETURN VARCHAR2 IS
543: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
544: l_no_data_found BOOLEAN := TRUE;
545:
546: CURSOR c_gvev_rec IS
547: SELECT
567:
568: l_no_data_found := c_gvev_rec%NOTFOUND;
569: CLOSE c_gvev_rec;
570: IF l_no_data_found THEN
571: l_return_status := OKC_API.G_RET_STS_ERROR;
572: RETURN(l_return_status);
573: ELSE
574: RETURN(l_return_status);
575: END IF;
575: END IF;
576: EXCEPTION
577: WHEN OTHERS THEN
578: -- store SQL error message on message stack for caller
579: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR, G_SQLCODE_TOKEN, SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
580: -- notify caller of an UNEXPECTED error
581: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
582: RETURN(l_return_status);
583:
577: WHEN OTHERS THEN
578: -- store SQL error message on message stack for caller
579: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR, G_SQLCODE_TOKEN, SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
580: -- notify caller of an UNEXPECTED error
581: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
582: RETURN(l_return_status);
583:
584: END get_gvev_rec;
585: BEGIN
598: x_msg_data => x_msg_data,
599: p_gvev_rec => l_gvev_rec,
600: x_gvev_rec => x_gvev_rec);
601:
602: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
603: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
604: x_return_status := l_return_status;
605: RAISE G_EXCEPTION_HALT_VALIDATION;
606: ELSE
599: p_gvev_rec => l_gvev_rec,
600: x_gvev_rec => x_gvev_rec);
601:
602: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
603: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
604: x_return_status := l_return_status;
605: RAISE G_EXCEPTION_HALT_VALIDATION;
606: ELSE
607: x_return_status := l_return_status;
613: WHEN G_EXCEPTION_HALT_VALIDATION THEN
614: NULL;
615: WHEN OTHERS THEN
616: -- store SQL error message on message stack for caller
617: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR, G_SQLCODE_TOKEN, SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
618: -- notify caller of an UNEXPECTED error
619: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
620:
621: END copy_governances;
615: WHEN OTHERS THEN
616: -- store SQL error message on message stack for caller
617: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR, G_SQLCODE_TOKEN, SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
618: -- notify caller of an UNEXPECTED error
619: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
620:
621: END copy_governances;
622: ----------------------------------------------------------------------------
623: --Proceudre copy_articles - Makes a copy of the articles.
623: --Proceudre copy_articles - Makes a copy of the articles.
624: ----------------------------------------------------------------------------
625: PROCEDURE copy_articles(
626: p_api_version IN NUMBER,
627: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
628: x_return_status OUT NOCOPY VARCHAR2,
629: x_msg_count OUT NOCOPY NUMBER,
630: x_msg_data OUT NOCOPY VARCHAR2,
631: p_cat_id IN NUMBER,
628: x_return_status OUT NOCOPY VARCHAR2,
629: x_msg_count OUT NOCOPY NUMBER,
630: x_msg_data OUT NOCOPY VARCHAR2,
631: p_cat_id IN NUMBER,
632: p_cle_id IN NUMBER DEFAULT OKC_API.G_MISS_NUM,
633: p_chr_id IN NUMBER DEFAULT OKC_API.G_MISS_NUM,
634: x_cat_id OUT NOCOPY NUMBER) IS
635:
636: l_catv_rec catv_rec_type;
629: x_msg_count OUT NOCOPY NUMBER,
630: x_msg_data OUT NOCOPY VARCHAR2,
631: p_cat_id IN NUMBER,
632: p_cle_id IN NUMBER DEFAULT OKC_API.G_MISS_NUM,
633: p_chr_id IN NUMBER DEFAULT OKC_API.G_MISS_NUM,
634: x_cat_id OUT NOCOPY NUMBER) IS
635:
636: l_catv_rec catv_rec_type;
637: x_catv_rec catv_rec_type;
637: x_catv_rec catv_rec_type;
638: l_atnv_rec atnv_rec_type;
639: x_atnv_rec atnv_rec_type;
640:
641: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
642: l_cle_id NUMBER := OKC_API.G_MISS_NUM;
643: l_new_rul_id NUMBER := OKC_API.G_MISS_NUM;
644:
645: CURSOR c_dnz_chr_id(p_id IN NUMBER) IS
638: l_atnv_rec atnv_rec_type;
639: x_atnv_rec atnv_rec_type;
640:
641: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
642: l_cle_id NUMBER := OKC_API.G_MISS_NUM;
643: l_new_rul_id NUMBER := OKC_API.G_MISS_NUM;
644:
645: CURSOR c_dnz_chr_id(p_id IN NUMBER) IS
646: SELECT dnz_chr_id
639: x_atnv_rec atnv_rec_type;
640:
641: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
642: l_cle_id NUMBER := OKC_API.G_MISS_NUM;
643: l_new_rul_id NUMBER := OKC_API.G_MISS_NUM;
644:
645: CURSOR c_dnz_chr_id(p_id IN NUMBER) IS
646: SELECT dnz_chr_id
647: FROM okc_k_lines_b
661: x_return_status := l_return_status;
662: l_return_status := get_catv_rec(p_cat_id => p_cat_id,
663: x_catv_rec => l_catv_rec);
664:
665: IF p_chr_id IS NULL OR p_chr_id = OKC_API.G_MISS_NUM THEN
666: OPEN c_dnz_chr_id(p_cle_id);
667: FETCH c_dnz_chr_id INTO l_catv_rec.dnz_chr_id;
668: CLOSE c_dnz_chr_id;
669: ELSE
681: x_msg_data => x_msg_data,
682: p_catv_rec => l_catv_rec,
683: x_catv_rec => x_catv_rec);
684:
685: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
686: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
687: x_return_status := l_return_status;
688: RAISE G_EXCEPTION_HALT_VALIDATION;
689: ELSE
682: p_catv_rec => l_catv_rec,
683: x_catv_rec => x_catv_rec);
684:
685: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
686: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
687: x_return_status := l_return_status;
688: RAISE G_EXCEPTION_HALT_VALIDATION;
689: ELSE
690: x_return_status := l_return_status;
707: x_msg_data => x_msg_data,
708: p_atnv_rec => l_atnv_rec,
709: x_atnv_rec => x_atnv_rec);
710:
711: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
712: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
713: x_return_status := l_return_status;
714: RAISE G_EXCEPTION_HALT_VALIDATION;
715: ELSE
708: p_atnv_rec => l_atnv_rec,
709: x_atnv_rec => x_atnv_rec);
710:
711: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
712: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
713: x_return_status := l_return_status;
714: RAISE G_EXCEPTION_HALT_VALIDATION;
715: ELSE
716: x_return_status := l_return_status;
732: p_scc_id => l_c_scc.id,
733: p_to_cat_id => x_catv_rec.id,
734: p_to_chr_id => x_catv_rec.dnz_chr_id);
735:
736: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
737: x_return_status := l_return_status;
738: RAISE G_EXCEPTION_HALT_VALIDATION;
739: END IF;
740: END LOOP;
743: WHEN G_EXCEPTION_HALT_VALIDATION THEN
744: NULL;
745: WHEN OTHERS THEN
746: -- store SQL error message on message stack for caller
747: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR, G_SQLCODE_TOKEN, SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
748: -- notify caller of an UNEXPECTED error
749: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
750:
751: END copy_articles;
745: WHEN OTHERS THEN
746: -- store SQL error message on message stack for caller
747: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR, G_SQLCODE_TOKEN, SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
748: -- notify caller of an UNEXPECTED error
749: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
750:
751: END copy_articles;
752:
753:
756: --Proceudre copy_price_att_values - Makes a copy of the price attribute values.
757: ----------------------------------------------------------------------------
758: PROCEDURE copy_price_att_values(
759: p_api_version IN NUMBER,
760: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
761: x_return_status OUT NOCOPY VARCHAR2,
762: x_msg_count OUT NOCOPY NUMBER,
763: x_msg_data OUT NOCOPY VARCHAR2,
764: p_pav_id IN NUMBER,
761: x_return_status OUT NOCOPY VARCHAR2,
762: x_msg_count OUT NOCOPY NUMBER,
763: x_msg_data OUT NOCOPY VARCHAR2,
764: p_pav_id IN NUMBER,
765: p_cle_id IN NUMBER DEFAULT OKC_API.G_MISS_NUM,
766: p_chr_id IN NUMBER DEFAULT OKC_API.G_MISS_NUM,
767: x_pav_id OUT NOCOPY NUMBER) IS
768:
769: l_pavv_rec pavv_rec_type;
762: x_msg_count OUT NOCOPY NUMBER,
763: x_msg_data OUT NOCOPY VARCHAR2,
764: p_pav_id IN NUMBER,
765: p_cle_id IN NUMBER DEFAULT OKC_API.G_MISS_NUM,
766: p_chr_id IN NUMBER DEFAULT OKC_API.G_MISS_NUM,
767: x_pav_id OUT NOCOPY NUMBER) IS
768:
769: l_pavv_rec pavv_rec_type;
770: x_pavv_rec pavv_rec_type;
768:
769: l_pavv_rec pavv_rec_type;
770: x_pavv_rec pavv_rec_type;
771:
772: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
773: l_cle_id NUMBER := OKC_API.G_MISS_NUM;
774:
775: BEGIN
776: x_return_status := l_return_status;
769: l_pavv_rec pavv_rec_type;
770: x_pavv_rec pavv_rec_type;
771:
772: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
773: l_cle_id NUMBER := OKC_API.G_MISS_NUM;
774:
775: BEGIN
776: x_return_status := l_return_status;
777: l_return_status := get_pavv_rec(p_pav_id => p_pav_id,
788: x_msg_data => x_msg_data,
789: p_pavv_rec => l_pavv_rec,
790: x_pavv_rec => x_pavv_rec);
791:
792: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
793: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
794: x_return_status := l_return_status;
795: RAISE G_EXCEPTION_HALT_VALIDATION;
796: ELSE
789: p_pavv_rec => l_pavv_rec,
790: x_pavv_rec => x_pavv_rec);
791:
792: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
793: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
794: x_return_status := l_return_status;
795: RAISE G_EXCEPTION_HALT_VALIDATION;
796: ELSE
797: x_return_status := l_return_status;
804: WHEN G_EXCEPTION_HALT_VALIDATION THEN
805: NULL;
806: WHEN OTHERS THEN
807: -- store SQL error message on message stack for caller
808: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR, G_SQLCODE_TOKEN, SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
809: -- notify caller of an UNEXPECTED error
810: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
811:
812: END copy_price_att_values;
806: WHEN OTHERS THEN
807: -- store SQL error message on message stack for caller
808: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR, G_SQLCODE_TOKEN, SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
809: -- notify caller of an UNEXPECTED error
810: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
811:
812: END copy_price_att_values;
813:
814: ----------------------------------------------------------------------------
815: --Proceudre copy_party_roles - Makes a copy of the party_roles.
816: ----------------------------------------------------------------------------
817: PROCEDURE copy_party_roles(
818: p_api_version IN NUMBER,
819: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
820: x_return_status OUT NOCOPY VARCHAR2,
821: x_msg_count OUT NOCOPY NUMBER,
822: x_msg_data OUT NOCOPY VARCHAR2,
823: p_cpl_id IN NUMBER,
820: x_return_status OUT NOCOPY VARCHAR2,
821: x_msg_count OUT NOCOPY NUMBER,
822: x_msg_data OUT NOCOPY VARCHAR2,
823: p_cpl_id IN NUMBER,
824: p_cle_id IN NUMBER DEFAULT OKC_API.G_MISS_NUM,
825: p_chr_id IN NUMBER DEFAULT OKC_API.G_MISS_NUM,
826: P_rle_code IN VARCHAR2,
827: x_cpl_id OUT NOCOPY NUMBER) IS
828:
821: x_msg_count OUT NOCOPY NUMBER,
822: x_msg_data OUT NOCOPY VARCHAR2,
823: p_cpl_id IN NUMBER,
824: p_cle_id IN NUMBER DEFAULT OKC_API.G_MISS_NUM,
825: p_chr_id IN NUMBER DEFAULT OKC_API.G_MISS_NUM,
826: P_rle_code IN VARCHAR2,
827: x_cpl_id OUT NOCOPY NUMBER) IS
828:
829: l_cplv_rec cplv_rec_type;
832: x_ctcv_rec ctcv_rec_type;
833:
834: l_party_name VARCHAR2(200);
835: l_party_desc VARCHAR2(2000);
836: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
837: l_cle_id NUMBER := OKC_API.G_MISS_NUM;
838:
839: CURSOR c_dnz_chr_id(p_id IN NUMBER) IS
840: SELECT dnz_chr_id
833:
834: l_party_name VARCHAR2(200);
835: l_party_desc VARCHAR2(2000);
836: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
837: l_cle_id NUMBER := OKC_API.G_MISS_NUM;
838:
839: CURSOR c_dnz_chr_id(p_id IN NUMBER) IS
840: SELECT dnz_chr_id
841: FROM okc_k_lines_b
850: x_return_status := l_return_status;
851: l_return_status := get_cplv_rec(p_cpl_id => p_cpl_id,
852: x_cplv_rec => l_cplv_rec);
853:
854: IF p_chr_id IS NULL OR p_chr_id = OKC_API.G_MISS_NUM THEN
855: OPEN c_dnz_chr_id(p_cle_id);
856: FETCH c_dnz_chr_id INTO l_cplv_rec.dnz_chr_id;
857: CLOSE c_dnz_chr_id;
858: ELSE
873: x_msg_data => x_msg_data,
874: p_cplv_rec => l_cplv_rec,
875: x_cplv_rec => x_cplv_rec);
876:
877: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
878: x_return_status := l_return_status;
879: RAISE G_EXCEPTION_HALT_VALIDATION;
880: END IF;
881:
900: x_msg_data => x_msg_data,
901: p_ctcv_rec => l_ctcv_rec,
902: x_ctcv_rec => x_ctcv_rec);
903:
904: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
905: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
906: x_return_status := l_return_status;
907: RAISE G_EXCEPTION_HALT_VALIDATION;
908: ELSE
901: p_ctcv_rec => l_ctcv_rec,
902: x_ctcv_rec => x_ctcv_rec);
903:
904: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
905: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
906: x_return_status := l_return_status;
907: RAISE G_EXCEPTION_HALT_VALIDATION;
908: ELSE
909: x_return_status := OKC_API.G_RET_STS_WARNING;
905: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
906: x_return_status := l_return_status;
907: RAISE G_EXCEPTION_HALT_VALIDATION;
908: ELSE
909: x_return_status := OKC_API.G_RET_STS_WARNING;
910: okc_util.get_name_desc_from_jtfv(
911: p_object_code => x_cplv_rec.jtot_object1_code,
912: p_id1 => x_cplv_rec.object1_id1,
913: p_id2 => x_cplv_rec.object1_id2,
913: p_id2 => x_cplv_rec.object1_id2,
914: x_name => l_party_name,
915: x_description => l_party_desc);
916:
917: OKC_API.set_message(G_APP_NAME, 'OKC_CONTACT_NOT_COPIED', 'PARTY_NAME', l_party_name);
918: END IF;
919: END IF;
920: END LOOP;
921:
923: WHEN G_EXCEPTION_HALT_VALIDATION THEN
924: NULL;
925: WHEN OTHERS THEN
926: -- store SQL error message on message stack for caller
927: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR, G_SQLCODE_TOKEN, SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
928: -- notify caller of an UNEXPECTED error
929: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
930:
931: END copy_party_roles;
925: WHEN OTHERS THEN
926: -- store SQL error message on message stack for caller
927: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR, G_SQLCODE_TOKEN, SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
928: -- notify caller of an UNEXPECTED error
929: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
930:
931: END copy_party_roles;
932:
933: ----------------------------------------------------------------------------
938: -- p_chr_id => contract header id
939: ----------------------------------------------------------------------------
940: PROCEDURE copy_rules(
941: p_api_version IN NUMBER,
942: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
943: x_return_status OUT NOCOPY VARCHAR2,
944: x_msg_count OUT NOCOPY NUMBER,
945: x_msg_data OUT NOCOPY VARCHAR2,
946: p_old_cle_id IN NUMBER,
943: x_return_status OUT NOCOPY VARCHAR2,
944: x_msg_count OUT NOCOPY NUMBER,
945: x_msg_data OUT NOCOPY VARCHAR2,
946: p_old_cle_id IN NUMBER,
947: p_cle_id IN NUMBER DEFAULT OKC_API.G_MISS_NUM,
948: p_chr_id IN NUMBER DEFAULT OKC_API.G_MISS_NUM,
949: p_cust_acct_id IN NUMBER DEFAULT OKC_API.G_MISS_NUM,
950: p_bill_to_site_use_id IN NUMBER DEFAULT OKC_API.G_MISS_NUM,
951: p_to_template_yn IN VARCHAR2) IS
944: x_msg_count OUT NOCOPY NUMBER,
945: x_msg_data OUT NOCOPY VARCHAR2,
946: p_old_cle_id IN NUMBER,
947: p_cle_id IN NUMBER DEFAULT OKC_API.G_MISS_NUM,
948: p_chr_id IN NUMBER DEFAULT OKC_API.G_MISS_NUM,
949: p_cust_acct_id IN NUMBER DEFAULT OKC_API.G_MISS_NUM,
950: p_bill_to_site_use_id IN NUMBER DEFAULT OKC_API.G_MISS_NUM,
951: p_to_template_yn IN VARCHAR2) IS
952:
945: x_msg_data OUT NOCOPY VARCHAR2,
946: p_old_cle_id IN NUMBER,
947: p_cle_id IN NUMBER DEFAULT OKC_API.G_MISS_NUM,
948: p_chr_id IN NUMBER DEFAULT OKC_API.G_MISS_NUM,
949: p_cust_acct_id IN NUMBER DEFAULT OKC_API.G_MISS_NUM,
950: p_bill_to_site_use_id IN NUMBER DEFAULT OKC_API.G_MISS_NUM,
951: p_to_template_yn IN VARCHAR2) IS
952:
953: l_api_name CONSTANT VARCHAR2(30) := 'COPY_RULES';
946: p_old_cle_id IN NUMBER,
947: p_cle_id IN NUMBER DEFAULT OKC_API.G_MISS_NUM,
948: p_chr_id IN NUMBER DEFAULT OKC_API.G_MISS_NUM,
949: p_cust_acct_id IN NUMBER DEFAULT OKC_API.G_MISS_NUM,
950: p_bill_to_site_use_id IN NUMBER DEFAULT OKC_API.G_MISS_NUM,
951: p_to_template_yn IN VARCHAR2) IS
952:
953: l_api_name CONSTANT VARCHAR2(30) := 'COPY_RULES';
954: l_mod_name VARCHAR2(256) := lower(G_OKS_APP_NAME) || '.plsql.' || G_PROGRAM_NAME || '.' || l_api_name;
955:
956: l_klnv_rec klnv_rec_type;
957: x_klnv_rec klnv_rec_type;
958:
959: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
960: l_dnz_chr_id NUMBER;
961: l_trx_ext_id NUMBER;
962:
963: CURSOR c_dnz_chr_id(p_id IN NUMBER) IS
984: IF FND_API.to_boolean(p_init_msg_list ) THEN
985: FND_MSG_PUB.initialize;
986: END IF;
987:
988: IF p_chr_id IS NULL OR p_chr_id = OKC_API.G_MISS_NUM THEN
989: OPEN c_dnz_chr_id(p_cle_id);
990: FETCH c_dnz_chr_id INTO l_dnz_chr_id;
991: CLOSE c_dnz_chr_id;
992: ELSE
1021: END IF;
1022:
1023: OKS_CONTRACT_LINE_PUB.create_line(
1024: p_api_version => 1.0,
1025: p_init_msg_list => OKC_API.G_FALSE,
1026: x_return_status => l_return_status,
1027: x_msg_count => x_msg_count,
1028: x_msg_data => x_msg_data,
1029: p_klnv_rec => l_klnv_rec,
1033: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
1034: FND_LOG.string(FND_LOG.level_statement, l_mod_name||'.create_oks_line', 'after call to OKS_CONTRACT_LINE_PUB.create_line, l_return_status='||l_return_status);
1035: END IF;
1036:
1037: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
1038: x_return_status := l_return_status;
1039: RAISE G_EXCEPTION_HALT_VALIDATION;
1040: ELSE
1041: x_return_status := l_return_status;
1050: END IF;
1051:
1052: create_trxn_extn(
1053: p_api_version => 1.0,
1054: p_init_msg_list => OKC_API.G_FALSE,
1055: x_return_status => l_return_status,
1056: x_msg_count => x_msg_count,
1057: x_msg_data => x_msg_data,
1058: p_old_trx_ext_id => l_klnv_rec.trxn_extension_id,
1064: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
1065: FND_LOG.string(FND_LOG.level_statement, l_mod_name||'.copy_cc', 'after call to create_tansaction_extension, x_return_status='||l_return_status||' ,x_trx_ext_id='||l_trx_ext_id);
1066: END IF;
1067:
1068: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
1069: x_return_status := l_return_status;
1070: RAISE G_EXCEPTION_HALT_VALIDATION;
1071: ELSE
1072: x_return_status := l_return_status;
1086: WHEN G_EXCEPTION_HALT_VALIDATION THEN
1087: NULL;
1088: WHEN OTHERS THEN
1089: -- store SQL error message on message stack for caller
1090: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR, G_SQLCODE_TOKEN, SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
1091: -- notify caller of an UNEXPECTED error
1092: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
1093:
1094: IF(FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level)THEN
1088: WHEN OTHERS THEN
1089: -- store SQL error message on message stack for caller
1090: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR, G_SQLCODE_TOKEN, SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
1091: -- notify caller of an UNEXPECTED error
1092: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
1093:
1094: IF(FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level)THEN
1095: FND_LOG.string(FND_LOG.level_unexpected, l_mod_name||'.end_other_error','x_return_status='||x_return_status);
1096: END IF;
1101: --Proceudre copy_items
1102: ----------------------------------------------------------------------------
1103: PROCEDURE copy_items(
1104: p_api_version IN NUMBER,
1105: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
1106: x_return_status OUT NOCOPY VARCHAR2,
1107: x_msg_count OUT NOCOPY NUMBER,
1108: x_msg_data OUT NOCOPY VARCHAR2,
1109: p_from_cle_id IN NUMBER,
1107: x_msg_count OUT NOCOPY NUMBER,
1108: x_msg_data OUT NOCOPY VARCHAR2,
1109: p_from_cle_id IN NUMBER,
1110: p_copy_reference IN VARCHAR2 DEFAULT 'COPY',
1111: p_to_cle_id IN NUMBER DEFAULT OKC_API.G_MISS_NUM) IS
1112:
1113: l_api_name CONSTANT VARCHAR2(30) := 'COPY_ITEMS';
1114: l_mod_name VARCHAR2(256) := lower(G_OKS_APP_NAME) || '.plsql.' || G_PROGRAM_NAME || '.' || l_api_name;
1115:
1115:
1116: l_cimv_rec cimv_rec_type;
1117: x_cimv_rec cimv_rec_type;
1118:
1119: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1120: l_dnz_chr_id NUMBER := OKC_API.G_MISS_NUM;
1121: l_price_level_ind VARCHAR2(20);
1122: l_item_name VARCHAR2(2000);
1123: l_item_desc VARCHAR2(2000);
1116: l_cimv_rec cimv_rec_type;
1117: x_cimv_rec cimv_rec_type;
1118:
1119: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1120: l_dnz_chr_id NUMBER := OKC_API.G_MISS_NUM;
1121: l_price_level_ind VARCHAR2(20);
1122: l_item_name VARCHAR2(2000);
1123: l_item_desc VARCHAR2(2000);
1124:
1176: END IF;
1177:
1178: OKC_CONTRACT_ITEM_PUB.create_contract_item(
1179: p_api_version => p_api_version,
1180: p_init_msg_list => OKC_API.G_FALSE,
1181: x_return_status => l_return_status,
1182: x_msg_count => x_msg_count,
1183: x_msg_data => x_msg_data,
1184: p_cimv_rec => l_cimv_rec,
1188: FND_LOG.string(FND_LOG.level_statement, l_mod_name||'.create_item','after call to OKC_CONTRACT_ITEM_PUB.create_contract_item, l_return_status='||l_return_status);
1189: END IF;
1190:
1191: x_return_status := l_return_status;
1192: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
1193: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1194: x_return_status := l_return_status;
1195: RAISE G_EXCEPTION_HALT_VALIDATION;
1196: ELSE
1189: END IF;
1190:
1191: x_return_status := l_return_status;
1192: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
1193: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1194: x_return_status := l_return_status;
1195: RAISE G_EXCEPTION_HALT_VALIDATION;
1196: ELSE
1197: okc_util.get_name_desc_from_jtfv(p_object_code => l_cimv_rec.jtot_object1_code,
1203: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
1204: FND_LOG.string(FND_LOG.level_statement, l_mod_name||'.create_item_error','okc_util.get_name_desc_from_jtfv l_item_name='|| l_item_name);
1205: END IF;
1206:
1207: OKC_API.set_message(G_APP_NAME, 'OKC_ITEM_NOT_COPIED', 'ITEM_NAME', l_item_name);
1208:
1209: x_return_status := l_return_status;
1210:
1211: END IF;
1220: WHEN G_EXCEPTION_HALT_VALIDATION THEN
1221: NULL;
1222: WHEN OTHERS THEN
1223: -- store SQL error message on message stack for caller
1224: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR, G_SQLCODE_TOKEN, SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
1225: -- notify caller of an UNEXPECTED error
1226: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
1227:
1228: IF(FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level)THEN
1222: WHEN OTHERS THEN
1223: -- store SQL error message on message stack for caller
1224: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR, G_SQLCODE_TOKEN, SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
1225: -- notify caller of an UNEXPECTED error
1226: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
1227:
1228: IF(FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level)THEN
1229: FND_LOG.string(FND_LOG.level_unexpected, l_mod_name||'.end_other_error','x_return_status='||x_return_status);
1230: END IF;
1284:
1285: RETURN x_from_version;
1286: EXCEPTION
1287: WHEN OTHERS THEN
1288: RETURN OKC_API.G_RET_STS_UNEXP_ERROR;
1289:
1290: END Get_Major_Version;
1291:
1292: ----------------------------------------------------------------------------
1300:
1301: ----------------------------------------------------------------------------
1302: PROCEDURE copy_contract_line(
1303: p_api_version IN NUMBER,
1304: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
1305: x_return_status OUT NOCOPY VARCHAR2,
1306: x_msg_count OUT NOCOPY NUMBER,
1307: x_msg_data OUT NOCOPY VARCHAR2,
1308: p_from_cle_id IN NUMBER,
1306: x_msg_count OUT NOCOPY NUMBER,
1307: x_msg_data OUT NOCOPY VARCHAR2,
1308: p_from_cle_id IN NUMBER,
1309: p_from_chr_id IN NUMBER,
1310: p_to_cle_id IN NUMBER DEFAULT OKC_API.G_MISS_NUM,
1311: p_to_chr_id IN NUMBER DEFAULT OKC_API.G_MISS_NUM,
1312: p_lse_id IN NUMBER,
1313: p_to_template_yn IN VARCHAR2,
1314: p_copy_reference IN VARCHAR2 DEFAULT 'COPY',
1307: x_msg_data OUT NOCOPY VARCHAR2,
1308: p_from_cle_id IN NUMBER,
1309: p_from_chr_id IN NUMBER,
1310: p_to_cle_id IN NUMBER DEFAULT OKC_API.G_MISS_NUM,
1311: p_to_chr_id IN NUMBER DEFAULT OKC_API.G_MISS_NUM,
1312: p_lse_id IN NUMBER,
1313: p_to_template_yn IN VARCHAR2,
1314: p_copy_reference IN VARCHAR2 DEFAULT 'COPY',
1315: p_copy_line_party_yn IN VARCHAR2,
1326: l_clev_rec clev_rec_type;
1327: x_clev_rec clev_rec_type;
1328:
1329: l_sts_code VARCHAR2(30);
1330: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1331: l_old_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1332: l_cle_id NUMBER := OKC_API.G_MISS_NUM;
1333: l_rgp_id NUMBER;
1334: l_cat_id NUMBER;
1327: x_clev_rec clev_rec_type;
1328:
1329: l_sts_code VARCHAR2(30);
1330: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1331: l_old_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1332: l_cle_id NUMBER := OKC_API.G_MISS_NUM;
1333: l_rgp_id NUMBER;
1334: l_cat_id NUMBER;
1335: l_pav_id NUMBER;
1328:
1329: l_sts_code VARCHAR2(30);
1330: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1331: l_old_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1332: l_cle_id NUMBER := OKC_API.G_MISS_NUM;
1333: l_rgp_id NUMBER;
1334: l_cat_id NUMBER;
1335: l_pav_id NUMBER;
1336: l_cpl_id NUMBER;
1376: l_lty_code VARCHAR2(90);
1377: --l_clev_rec clev_rec_type := px_clev_rec;
1378: l_cimv_rec cimv_rec_type;
1379:
1380: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1381:
1382: CURSOR c_lse(p_id IN NUMBER) IS
1383: SELECT lty_code,
1384: priced_yn
1441: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
1442: FND_LOG.string(FND_LOG.level_statement, l_mod_name||'.validate_item','after call to OKC_CONTRACT_ITEM_PUB.validate_contract_item, x_return_status='||l_return_status);
1443: END IF;
1444:
1445: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
1446: px_clev_rec.price_negotiated := NULL;
1447: px_clev_rec.PRICE_UNIT := NULL;
1448: px_clev_rec.name := NULL;
1449: END IF;
1489: l_item_id VARCHAR2(40);
1490: l_standard_cov_yn VARCHAR2(1);
1491: l_counter_grp_id NUMBER;
1492: l_found BOOLEAN;
1493: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1494: l_ctr_grp_id_template NUMBER;
1495: l_ctr_grp_id_instance NUMBER;
1496: l_instcnd_inp_rec OKC_INST_CND_PUB.instcnd_inp_rec;
1497: l_actual_coverage_id NUMBER;
1550: FND_LOG.string(FND_LOG.level_statement, l_mod_name||'.inst_ctrs', 'After call to CS_COUNTERS_PUB.autoinstantiate_counters, x_return_status='||l_return_status||' ,x_ctr_grp_id_template='||l_ctr_grp_id_template||
1551: ' ,x_ctr_grp_id_instance='||l_ctr_grp_id_instance);
1552: END IF;
1553:
1554: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
1555: x_return_status := l_return_status;
1556: RAISE G_EXCEPTION_HALT_VALIDATION;
1557: END IF;
1558:
1576: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
1577: FND_LOG.string(FND_LOG.level_statement, l_mod_name||'.inst_cond', 'After call to OKC_INST_CND_PUB.inst_condition, x_return_status='||l_return_status);
1578: END IF;
1579:
1580: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
1581: x_return_status := l_return_status;
1582: RAISE G_EXCEPTION_HALT_VALIDATION;
1583: END IF;
1584:
1612: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
1613: FND_LOG.string(FND_LOG.level_statement, l_mod_name||'.create_adj_cov','after call to OKS_COVERAGES_PUB.create_adjusted_coverage, x_return_status='||l_return_status||' ,x_Actual_coverage_id='||l_actual_coverage_id);
1614: END IF;
1615:
1616: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
1617: x_return_status := l_return_status;
1618: RAISE G_EXCEPTION_HALT_VALIDATION;
1619: END IF;
1620:
1646: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
1647: FND_LOG.string(FND_LOG.level_statement, l_mod_name||'.create_cov_extn','after call to OKS_COVERAGES_PVT.create_k_coverage_ext, x_return_status='||l_return_status);
1648: END IF;
1649:
1650: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
1651: x_return_status := l_return_status;
1652: RAISE G_EXCEPTION_HALT_VALIDATION;
1653: END IF;
1654:
1715: IF(FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level)THEN
1716: FND_LOG.string(FND_LOG.level_procedure, l_mod_name||'.begin','p_from_start_date='||p_from_start_date||' ,p_from_end_date='||p_from_end_date||' ,p_to_cle_id='||p_to_cle_id||' ,p_to_chr_id='||p_to_chr_id);
1717: END IF;
1718:
1719: IF NOT (p_to_cle_id IS NULL OR p_to_cle_id = OKC_API.G_MISS_NUM) THEN
1720: OPEN c_cle;
1721: FETCH c_cle INTO l_parent_start_date, l_parent_end_date;
1722: CLOSE c_cle;
1723: x_start_date := p_from_end_date + 1;
1787:
1788: l_cvn_exists BOOLEAN := FALSE;
1789: l_cvn_type_exists BOOLEAN := FALSE;
1790: BEGIN
1791: x_return_status := OKC_API.G_RET_STS_SUCCESS;
1792:
1793: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
1794: FND_LOG.string(FND_LOG.level_statement, l_mod_name||'.GET_CVN_DTLS.begin', 'p_chr_id='||p_chr_id);
1795: END IF;
1803:
1804: END LOOP;
1805:
1806: IF l_cvn_type_exists THEN
1807: x_return_status := OKC_API.G_RET_STS_SUCCESS;
1808: ELSE
1809: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
1810: FND_LOG.string(FND_LOG.level_statement, l_mod_name||'.GET_CVN_DTLS.cvn_type_chk','no cvn rule');
1811: END IF;
1817: END IF;
1818:
1819: EXCEPTION
1820: WHEN G_EXCEPTION_HALT_VALIDATION THEN
1821: x_return_status := OKC_API.G_RET_STS_ERROR;
1822: IF(FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level)THEN
1823: FND_LOG.string(FND_LOG.level_unexpected, l_mod_name||'.GET_CVN_DTLS.end_error', 'x_return_status='||x_return_status);
1824: END IF;
1825: WHEN OTHERS THEN
1838: IF(FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level)THEN
1839: FND_LOG.string(FND_LOG.level_procedure, l_mod_name||'.begin','p_from_cle_id='||p_from_cle_id);
1840: END IF;
1841:
1842: l_return_status := OKC_API.G_RET_STS_SUCCESS;
1843:
1844: OPEN header_cur(p_from_cle_id);
1845: l_old_amount := px_clev_rec.price_negotiated;
1846: FETCH header_cur INTO l_hdr_id, l_curr_code;
1857: END IF;
1858:
1859: x_return_status := l_return_status;
1860:
1861: IF l_return_status = OKC_API.G_RET_STS_SUCCESS THEN
1862:
1863: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
1864: FND_LOG.string(FND_LOG.level_statement, l_mod_name||'.convert','Calling OKC_CURRENCY_API.convert_amount, p_from_currency='||l_curr_code||' ,p_to_currency=EUR ,p_conversion_date='||l_cvn_date||
1865: ' ,p_conversion_type='||l_cvn_type||' ,p_amount='||l_old_amount);
1933: IF p_renew_ref_yn = 'Y' AND l_clev_rec.date_renewed IS NOT NULL THEN
1934: RETURN;
1935: END IF;
1936:
1937: IF p_to_chr_id IS NULL OR p_to_chr_id = OKC_API.G_MISS_NUM THEN
1938: OPEN c_dnz_chr_id;
1939: FETCH c_dnz_chr_id INTO l_clev_rec.dnz_chr_id;
1940: CLOSE c_dnz_chr_id;
1941: ELSE
2046: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
2047: FND_LOG.string(FND_LOG.level_statement, l_mod_name||'.curr_conv','after call to do_price_conversion, l_return_status='||l_return_status);
2048: END IF;
2049:
2050: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
2051: x_return_status := l_return_status;
2052: RAISE G_EXCEPTION_HALT_VALIDATION;
2053: END IF;
2054: END IF;
2072: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
2073: FND_LOG.string(FND_LOG.level_statement, l_mod_name||'.create_okc_line','after call to OKC_CONTRACT_PUB.create_contract_line, x_return_status='|| l_return_status||' ,x_clev_rec.id='||x_clev_rec.id);
2074: END IF;
2075:
2076: IF (l_return_status NOT IN (OKC_API.G_RET_STS_SUCCESS, OKC_API.G_RET_STS_WARNING)) THEN
2077: x_return_status := l_return_status;
2078: RAISE G_EXCEPTION_HALT_VALIDATION;
2079: ELSE
2080: IF (l_return_status = OKC_API.G_RET_STS_SUCCESS AND x_return_status = OKC_API.G_RET_STS_WARNING) THEN
2076: IF (l_return_status NOT IN (OKC_API.G_RET_STS_SUCCESS, OKC_API.G_RET_STS_WARNING)) THEN
2077: x_return_status := l_return_status;
2078: RAISE G_EXCEPTION_HALT_VALIDATION;
2079: ELSE
2080: IF (l_return_status = OKC_API.G_RET_STS_SUCCESS AND x_return_status = OKC_API.G_RET_STS_WARNING) THEN
2081: NULL; --do not overwrite warning with success
2082: ELSE
2083: x_return_status := l_return_status;
2084: END IF;
2108: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
2109: FND_LOG.string(FND_LOG.level_statement, l_mod_name||'.create_oks_line','after call to copy_rules, x_return_status='||l_return_status);
2110: END IF;
2111:
2112: IF (l_return_status NOT IN (OKC_API.G_RET_STS_SUCCESS, OKC_API.G_RET_STS_WARNING)) THEN
2113: x_return_status := l_return_status;
2114: RAISE G_EXCEPTION_HALT_VALIDATION;
2115: ELSE
2116: IF (l_return_status = OKC_API.G_RET_STS_SUCCESS AND x_return_status = OKC_API.G_RET_STS_WARNING) THEN
2112: IF (l_return_status NOT IN (OKC_API.G_RET_STS_SUCCESS, OKC_API.G_RET_STS_WARNING)) THEN
2113: x_return_status := l_return_status;
2114: RAISE G_EXCEPTION_HALT_VALIDATION;
2115: ELSE
2116: IF (l_return_status = OKC_API.G_RET_STS_SUCCESS AND x_return_status = OKC_API.G_RET_STS_WARNING) THEN
2117: NULL; --do not overwrite warning with success
2118: ELSE
2119: x_return_status := l_return_status;
2120: END IF;
2141: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
2142: FND_LOG.string(FND_LOG.level_statement, l_mod_name||'instantiate_ctr_evts','after call to instantiate_counters_events, x_return_status='||l_return_status);
2143: END IF;
2144:
2145: IF (l_return_status NOT IN (OKC_API.G_RET_STS_SUCCESS, OKC_API.G_RET_STS_WARNING)) THEN
2146: x_return_status := l_return_status;
2147: RAISE G_EXCEPTION_HALT_VALIDATION;
2148: ELSE
2149: IF (l_return_status = OKC_API.G_RET_STS_SUCCESS AND x_return_status = OKC_API.G_RET_STS_WARNING) THEN
2145: IF (l_return_status NOT IN (OKC_API.G_RET_STS_SUCCESS, OKC_API.G_RET_STS_WARNING)) THEN
2146: x_return_status := l_return_status;
2147: RAISE G_EXCEPTION_HALT_VALIDATION;
2148: ELSE
2149: IF (l_return_status = OKC_API.G_RET_STS_SUCCESS AND x_return_status = OKC_API.G_RET_STS_WARNING) THEN
2150: NULL; --do not overwrite warning with success
2151: ELSE
2152: x_return_status := l_return_status;
2153: END IF;
2176: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
2177: FND_LOG.string(FND_LOG.level_statement, l_mod_name||'.price_att_values','after call to copy_price_att_values, x_return_status='||l_return_status||' ,x_pav_id='||l_pav_id);
2178: END IF;
2179:
2180: IF (l_return_status NOT IN (OKC_API.G_RET_STS_SUCCESS, OKC_API.G_RET_STS_WARNING)) THEN
2181: x_return_status := l_return_status;
2182: RAISE G_EXCEPTION_HALT_VALIDATION;
2183: ELSE
2184: IF (l_return_status = OKC_API.G_RET_STS_SUCCESS AND x_return_status = OKC_API.G_RET_STS_WARNING) THEN
2180: IF (l_return_status NOT IN (OKC_API.G_RET_STS_SUCCESS, OKC_API.G_RET_STS_WARNING)) THEN
2181: x_return_status := l_return_status;
2182: RAISE G_EXCEPTION_HALT_VALIDATION;
2183: ELSE
2184: IF (l_return_status = OKC_API.G_RET_STS_SUCCESS AND x_return_status = OKC_API.G_RET_STS_WARNING) THEN
2185: NULL; --do not overwrite warning with success
2186: ELSE
2187: x_return_status := l_return_status;
2188: END IF;
2213: IF(FND_LOG.level_statement >= FND_LOG.g_current_runtime_level)THEN
2214: FND_LOG.string(FND_LOG.level_statement, l_mod_name||'.party_roles', 'after call to copy_party_roles, x_return_status='||l_return_status||' ,x_cpl_id='||l_cpl_id);
2215: END IF;
2216:
2217: IF (l_return_status NOT IN (OKC_API.G_RET_STS_SUCCESS, OKC_API.G_RET_STS_WARNING)) THEN
2218: x_return_status := l_return_status;
2219: RAISE G_EXCEPTION_HALT_VALIDATION;
2220: ELSE
2221: IF (l_return_status = OKC_API.G_RET_STS_SUCCESS AND x_return_status = OKC_API.G_RET_STS_WARNING) THEN
2217: IF (l_return_status NOT IN (OKC_API.G_RET_STS_SUCCESS, OKC_API.G_RET_STS_WARNING)) THEN
2218: x_return_status := l_return_status;
2219: RAISE G_EXCEPTION_HALT_VALIDATION;
2220: ELSE
2221: IF (l_return_status = OKC_API.G_RET_STS_SUCCESS AND x_return_status = OKC_API.G_RET_STS_WARNING) THEN
2222: NULL; --do not overwrite warning with success
2223: ELSE
2224: x_return_status := l_return_status;
2225: END IF;
2240: p_from_cle_id => p_from_cle_id,
2241: p_copy_reference => p_copy_reference,
2242: p_to_cle_id => x_clev_rec.id);
2243:
2244: IF (l_return_status NOT IN (OKC_API.G_RET_STS_SUCCESS, OKC_API.G_RET_STS_WARNING)) THEN
2245: x_return_status := l_return_status;
2246: RAISE G_EXCEPTION_HALT_VALIDATION;
2247: ELSE
2248: IF (l_return_status = OKC_API.G_RET_STS_SUCCESS AND x_return_status = OKC_API.G_RET_STS_WARNING) THEN
2244: IF (l_return_status NOT IN (OKC_API.G_RET_STS_SUCCESS, OKC_API.G_RET_STS_WARNING)) THEN
2245: x_return_status := l_return_status;
2246: RAISE G_EXCEPTION_HALT_VALIDATION;
2247: ELSE
2248: IF (l_return_status = OKC_API.G_RET_STS_SUCCESS AND x_return_status = OKC_API.G_RET_STS_WARNING) THEN
2249: NULL; --do not overwrite warning with success
2250: ELSE
2251: x_return_status := l_return_status;
2252: END IF;
2269:
2270: WHEN OTHERS THEN
2271: ROLLBACK TO copy_contract_line_PVT;
2272:
2273: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
2274:
2275: IF (FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level) THEN
2276: l_error_text := substr (SQLERRM, 1, 512);
2277: FND_LOG.string(FND_LOG.level_unexpected, l_mod_name || '.end_other_error', l_error_text);
2290: -- p_to_chr_id - subject_chr_id
2291: ----------------------------------------------------------------------------
2292: PROCEDURE Create_Renewal_Header_Link (
2293: p_api_version IN NUMBER,
2294: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
2295: x_return_status OUT NOCOPY VARCHAR2,
2296: x_msg_count OUT NOCOPY NUMBER,
2297: x_msg_data OUT NOCOPY VARCHAR2,
2298: p_chrv_rec IN OKC_CONTRACT_PUB.chrv_rec_type,
2333: x_msg_data => x_msg_data,
2334: p_oiev_rec => l_oiev_rec,
2335: x_oiev_rec => lx_oiev_rec);
2336:
2337: IF (x_return_status = OKC_API.G_RET_STS_SUCCESS) THEN
2338: l_olev_rec.SELECT_YN := 'Y';
2339: l_olev_rec.OIE_ID := lx_oiev_rec.id;
2340: l_olev_rec.SUBJECT_CHR_ID := p_to_chr_id;
2341: l_olev_rec.OBJECT_CHR_ID := p_chrv_rec.id;
2347: x_msg_count => x_msg_count,
2348: x_msg_data => x_msg_data,
2349: p_olev_rec => l_olev_rec,
2350: x_olev_rec => lx_olev_rec);
2351: IF (x_return_status = OKC_API.G_RET_STS_SUCCESS) THEN
2352: -- set g_op_lines table
2353: l_count := g_op_lines.COUNT + 1;
2354: g_op_lines(l_count).id := p_chrv_rec.ID;
2355: g_op_lines(l_count).ole_id := lx_olev_rec.ID;
2358:
2359: EXCEPTION
2360: WHEN NO_DATA_FOUND THEN
2361: -- store SQL error message on message stack
2362: x_return_status := OKC_API.G_RET_STS_ERROR;
2363: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
2364: p_msg_name => 'OKC_NOT_FOUND',
2365: p_token1 => 'VALUE1',
2366: p_token1_value => 'Status Code',
2359: EXCEPTION
2360: WHEN NO_DATA_FOUND THEN
2361: -- store SQL error message on message stack
2362: x_return_status := OKC_API.G_RET_STS_ERROR;
2363: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
2364: p_msg_name => 'OKC_NOT_FOUND',
2365: p_token1 => 'VALUE1',
2366: p_token1_value => 'Status Code',
2367: p_token2 => 'VALUE2',
2367: p_token2 => 'VALUE2',
2368: p_token2_value => 'OKC_CLASS_OPERATIONS_V');
2369: WHEN OTHERS THEN
2370: -- store SQL error message on message stack
2371: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
2372: p_msg_name => g_unexpected_error,
2373: p_token1 => g_sqlcode_token,
2374: p_token1_value => SQLCODE,
2375: p_token2 => g_sqlerrm_token,
2374: p_token1_value => SQLCODE,
2375: p_token2 => g_sqlerrm_token,
2376: p_token2_value => SQLERRM);
2377: -- notify caller of an error as UNEXPETED error
2378: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
2379: END Create_Renewal_Header_Link;
2380:
2381:
2382: ----------------------------------------------------------------------------
2384: ----------------------------------------------------------------------------
2385: FUNCTION get_atnv_rec(p_atn_id IN NUMBER,
2386: x_atnv_rec OUT NOCOPY atnv_rec_type)
2387: RETURN VARCHAR2 IS
2388: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2389: l_no_data_found BOOLEAN := TRUE;
2390:
2391: CURSOR c_atnv_rec IS
2392: SELECT ID,
2407:
2408: l_no_data_found := c_atnv_rec%NOTFOUND;
2409: CLOSE c_atnv_rec;
2410: IF l_no_data_found THEN
2411: l_return_status := OKC_API.G_RET_STS_ERROR;
2412: RETURN(l_return_status);
2413: ELSE
2414: RETURN(l_return_status);
2415: END IF;
2415: END IF;
2416: EXCEPTION
2417: WHEN OTHERS THEN
2418: -- store SQL error message on message stack for caller
2419: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR, G_SQLCODE_TOKEN, SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
2420: -- notify caller of an UNEXPECTED error
2421: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
2422: RETURN(l_return_status);
2423:
2417: WHEN OTHERS THEN
2418: -- store SQL error message on message stack for caller
2419: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR, G_SQLCODE_TOKEN, SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
2420: -- notify caller of an UNEXPECTED error
2421: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
2422: RETURN(l_return_status);
2423:
2424: END get_atnv_rec;
2425:
2428: ----------------------------------------------------------------------------
2429: FUNCTION get_catv_rec(p_cat_id IN NUMBER,
2430: x_catv_rec OUT NOCOPY catv_rec_type)
2431: RETURN VARCHAR2 IS
2432: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2433: l_no_data_found BOOLEAN := TRUE;
2434:
2435: CURSOR c_catv_rec IS
2436: SELECT ID,
2503:
2504: l_no_data_found := c_catv_rec%NOTFOUND;
2505: CLOSE c_catv_rec;
2506: IF l_no_data_found THEN
2507: l_return_status := OKC_API.G_RET_STS_ERROR;
2508: RETURN(l_return_status);
2509: ELSE
2510: RETURN(l_return_status);
2511: END IF;
2511: END IF;
2512: EXCEPTION
2513: WHEN OTHERS THEN
2514: -- store SQL error message on message stack for caller
2515: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR, G_SQLCODE_TOKEN, SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
2516: -- notify caller of an UNEXPECTED error
2517: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
2518: RETURN(l_return_status);
2519:
2513: WHEN OTHERS THEN
2514: -- store SQL error message on message stack for caller
2515: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR, G_SQLCODE_TOKEN, SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
2516: -- notify caller of an UNEXPECTED error
2517: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
2518: RETURN(l_return_status);
2519:
2520: END get_catv_rec;
2521:
2523: --Function to populate the contract items record to be copied.
2524: ----------------------------------------------------------------------------
2525: FUNCTION get_cimv_rec(p_cim_id IN NUMBER,
2526: x_cimv_rec OUT NOCOPY cimv_rec_type) RETURN VARCHAR2 IS
2527: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2528: l_no_data_found BOOLEAN := TRUE;
2529:
2530: CURSOR c_cimv_rec IS
2531: SELECT ID,
2562:
2563: l_no_data_found := c_cimv_rec%NOTFOUND;
2564: CLOSE c_cimv_rec;
2565: IF l_no_data_found THEN
2566: l_return_status := OKC_API.G_RET_STS_ERROR;
2567: RETURN(l_return_status);
2568: ELSE
2569: RETURN(l_return_status);
2570: END IF;
2570: END IF;
2571: EXCEPTION
2572: WHEN OTHERS THEN
2573: -- store SQL error message on message stack for caller
2574: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR, G_SQLCODE_TOKEN, SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
2575: -- notify caller of an UNEXPECTED error
2576: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
2577: RETURN(l_return_status);
2578:
2572: WHEN OTHERS THEN
2573: -- store SQL error message on message stack for caller
2574: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR, G_SQLCODE_TOKEN, SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
2575: -- notify caller of an UNEXPECTED error
2576: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
2577: RETURN(l_return_status);
2578:
2579: END get_cimv_rec;
2580: ----------------------------------------------------------------------------
2581: --Function to populate the contract access record to be copied.
2582: ----------------------------------------------------------------------------
2583: FUNCTION get_cacv_rec(p_cac_id IN NUMBER,
2584: x_cacv_rec OUT NOCOPY cacv_rec_type) RETURN VARCHAR2 IS
2585: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2586: l_no_data_found BOOLEAN := TRUE;
2587:
2588: CURSOR c_cacv_rec IS
2589: SELECT ID,
2604:
2605: l_no_data_found := c_cacv_rec%NOTFOUND;
2606: CLOSE c_cacv_rec;
2607: IF l_no_data_found THEN
2608: l_return_status := OKC_API.G_RET_STS_ERROR;
2609: RETURN(l_return_status);
2610: ELSE
2611: RETURN(l_return_status);
2612: END IF;
2612: END IF;
2613: EXCEPTION
2614: WHEN OTHERS THEN
2615: -- store SQL error message on message stack for caller
2616: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR, G_SQLCODE_TOKEN, SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
2617: -- notify caller of an UNEXPECTED error
2618: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
2619: RETURN(l_return_status);
2620:
2614: WHEN OTHERS THEN
2615: -- store SQL error message on message stack for caller
2616: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR, G_SQLCODE_TOKEN, SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
2617: -- notify caller of an UNEXPECTED error
2618: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
2619: RETURN(l_return_status);
2620:
2621: END get_cacv_rec;
2622: ----------------------------------------------------------------------------
2623: --Function to populate the contract party roles record to be copied.
2624: ----------------------------------------------------------------------------
2625: FUNCTION get_cplv_rec(p_cpl_id IN NUMBER,
2626: x_cplv_rec OUT NOCOPY cplv_rec_type) RETURN VARCHAR2 IS
2627: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2628: l_no_data_found BOOLEAN := TRUE;
2629:
2630: CURSOR c_cplv_rec IS
2631: SELECT ID,
2700:
2701: l_no_data_found := c_cplv_rec%NOTFOUND;
2702: CLOSE c_cplv_rec;
2703: IF l_no_data_found THEN
2704: l_return_status := OKC_API.G_RET_STS_ERROR;
2705: RETURN(l_return_status);
2706: ELSE
2707: RETURN(l_return_status);
2708: END IF;
2708: END IF;
2709: EXCEPTION
2710: WHEN OTHERS THEN
2711: -- store SQL error message on message stack for caller
2712: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR, G_SQLCODE_TOKEN, SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
2713: -- notify caller of an UNEXPECTED error
2714: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
2715: RETURN(l_return_status);
2716:
2710: WHEN OTHERS THEN
2711: -- store SQL error message on message stack for caller
2712: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR, G_SQLCODE_TOKEN, SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
2713: -- notify caller of an UNEXPECTED error
2714: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
2715: RETURN(l_return_status);
2716:
2717: END get_cplv_rec;
2718: ----------------------------------------------------------------------------
2719: --Function to populate the contract process record to be copied.
2720: ----------------------------------------------------------------------------
2721: FUNCTION get_cpsv_rec(p_cps_id IN NUMBER,
2722: x_cpsv_rec OUT NOCOPY cpsv_rec_type) RETURN VARCHAR2 IS
2723: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2724: l_no_data_found BOOLEAN := TRUE;
2725:
2726: CURSOR c_cpsv_rec IS
2727: SELECT ID,
2778:
2779: l_no_data_found := c_cpsv_rec%NOTFOUND;
2780: CLOSE c_cpsv_rec;
2781: IF l_no_data_found THEN
2782: l_return_status := OKC_API.G_RET_STS_ERROR;
2783: RETURN(l_return_status);
2784: ELSE
2785: RETURN(l_return_status);
2786: END IF;
2786: END IF;
2787: EXCEPTION
2788: WHEN OTHERS THEN
2789: -- store SQL error message on message stack for caller
2790: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR, G_SQLCODE_TOKEN, SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
2791: -- notify caller of an UNEXPECTED error
2792: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
2793: RETURN(l_return_status);
2794:
2788: WHEN OTHERS THEN
2789: -- store SQL error message on message stack for caller
2790: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR, G_SQLCODE_TOKEN, SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
2791: -- notify caller of an UNEXPECTED error
2792: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
2793: RETURN(l_return_status);
2794:
2795: END get_cpsv_rec;
2796: ----------------------------------------------------------------------------
2797: --Function to populate the contract group record to be copied.
2798: ----------------------------------------------------------------------------
2799: FUNCTION get_cgcv_rec(p_cgc_id IN NUMBER,
2800: x_cgcv_rec OUT NOCOPY cgcv_rec_type) RETURN VARCHAR2 IS
2801: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2802: l_no_data_found BOOLEAN := TRUE;
2803:
2804: CURSOR c_cgcv_rec IS
2805: SELECT ID,
2817: x_cgcv_rec.INCLUDED_CGP_ID;
2818: l_no_data_found := c_cgcv_rec%NOTFOUND;
2819: CLOSE c_cgcv_rec;
2820: IF l_no_data_found THEN
2821: l_return_status := OKC_API.G_RET_STS_ERROR;
2822: RETURN(l_return_status);
2823: ELSE
2824: RETURN(l_return_status);
2825: END IF;
2825: END IF;
2826: EXCEPTION
2827: WHEN OTHERS THEN
2828: -- store SQL error message on message stack for caller
2829: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR, G_SQLCODE_TOKEN, SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
2830: -- notify caller of an UNEXPECTED error
2831: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
2832: RETURN(l_return_status);
2833:
2827: WHEN OTHERS THEN
2828: -- store SQL error message on message stack for caller
2829: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR, G_SQLCODE_TOKEN, SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
2830: -- notify caller of an UNEXPECTED error
2831: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
2832: RETURN(l_return_status);
2833:
2834: END get_cgcv_rec;
2835: ----------------------------------------------------------------------------
2836: --Function to populate the condition headers record to be copied.
2837: ----------------------------------------------------------------------------
2838: FUNCTION get_cnhv_rec(p_cnh_id IN NUMBER,
2839: x_cnhv_rec OUT NOCOPY cnhv_rec_type) RETURN VARCHAR2 IS
2840: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2841: l_no_data_found BOOLEAN := TRUE;
2842:
2843: CURSOR c_cnhv_rec IS
2844: SELECT ID,
2923:
2924: l_no_data_found := c_cnhv_rec%NOTFOUND;
2925: CLOSE c_cnhv_rec;
2926: IF l_no_data_found THEN
2927: l_return_status := OKC_API.G_RET_STS_ERROR;
2928: RETURN(l_return_status);
2929: ELSE
2930: RETURN(l_return_status);
2931: END IF;
2931: END IF;
2932: EXCEPTION
2933: WHEN OTHERS THEN
2934: -- store SQL error message on message stack for caller
2935: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR, G_SQLCODE_TOKEN, SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
2936: -- notify caller of an UNEXPECTED error
2937: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
2938: RETURN(l_return_status);
2939:
2933: WHEN OTHERS THEN
2934: -- store SQL error message on message stack for caller
2935: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR, G_SQLCODE_TOKEN, SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
2936: -- notify caller of an UNEXPECTED error
2937: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
2938: RETURN(l_return_status);
2939:
2940: END get_cnhv_rec;
2941: ----------------------------------------------------------------------------
2942: --Function to populate the condition lines record to be copied.
2943: ----------------------------------------------------------------------------
2944: FUNCTION get_cnlv_rec(p_cnl_id IN NUMBER,
2945: x_cnlv_rec OUT NOCOPY cnlv_rec_type) RETURN VARCHAR2 IS
2946: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2947: l_no_data_found BOOLEAN := TRUE;
2948:
2949: CURSOR c_cnlv_rec IS
2950: SELECT ID,
3027:
3028: l_no_data_found := c_cnlv_rec%NOTFOUND;
3029: CLOSE c_cnlv_rec;
3030: IF l_no_data_found THEN
3031: l_return_status := OKC_API.G_RET_STS_ERROR;
3032: RETURN(l_return_status);
3033: ELSE
3034: RETURN(l_return_status);
3035: END IF;
3035: END IF;
3036: EXCEPTION
3037: WHEN OTHERS THEN
3038: -- store SQL error message on message stack for caller
3039: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR, G_SQLCODE_TOKEN, SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
3040: -- notify caller of an UNEXPECTED error
3041: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
3042: RETURN(l_return_status);
3043:
3037: WHEN OTHERS THEN
3038: -- store SQL error message on message stack for caller
3039: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR, G_SQLCODE_TOKEN, SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
3040: -- notify caller of an UNEXPECTED error
3041: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
3042: RETURN(l_return_status);
3043:
3044: END get_cnlv_rec;
3045: ----------------------------------------------------------------------------
3048:
3049: FUNCTION get_ctcv_rec(p_ctc_id IN NUMBER,
3050: x_ctcv_rec OUT NOCOPY ctcv_rec_type) RETURN VARCHAR2 IS
3051:
3052: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3053: l_no_data_found BOOLEAN := TRUE;
3054:
3055: CURSOR c_ctcv_rec IS
3056: SELECT ID,
3109:
3110: l_no_data_found := c_ctcv_rec%NOTFOUND;
3111: CLOSE c_ctcv_rec;
3112: IF l_no_data_found THEN
3113: l_return_status := OKC_API.G_RET_STS_ERROR;
3114: RETURN(l_return_status);
3115: ELSE
3116: RETURN(l_return_status);
3117: END IF;
3117: END IF;
3118: EXCEPTION
3119: WHEN OTHERS THEN
3120: -- store SQL error message on message stack for caller
3121: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR, G_SQLCODE_TOKEN, SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
3122: -- notify caller of an UNEXPECTED error
3123: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
3124: RETURN(l_return_status);
3125:
3119: WHEN OTHERS THEN
3120: -- store SQL error message on message stack for caller
3121: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR, G_SQLCODE_TOKEN, SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
3122: -- notify caller of an UNEXPECTED error
3123: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
3124: RETURN(l_return_status);
3125:
3126: END get_ctcv_rec;
3127:
3132: ----------------------------------------------------------------------------
3133: FUNCTION get_klnv_rec(p_old_cle_id IN NUMBER,
3134: x_klnv_rec OUT NOCOPY klnv_rec_type)
3135: RETURN VARCHAR2 IS
3136: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3137: l_no_data_found BOOLEAN := TRUE;
3138: l_count NUMBER := 1;
3139:
3140: CURSOR c_klnv_rec(cp_cle_id IN NUMBER) IS
3361:
3362: CLOSE c_klnv_rec;
3363:
3364: IF l_no_data_found THEN
3365: l_return_status := OKC_API.G_RET_STS_ERROR;
3366: RETURN(l_return_status);
3367: ELSE
3368: RETURN(l_return_status);
3369: END IF;
3369: END IF;
3370: EXCEPTION
3371: WHEN OTHERS THEN
3372: -- store SQL error message on message stack for caller
3373: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR, G_SQLCODE_TOKEN, SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
3374: -- notify caller of an UNEXPECTED error
3375: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
3376: RETURN(l_return_status);
3377: END get_klnv_rec;
3371: WHEN OTHERS THEN
3372: -- store SQL error message on message stack for caller
3373: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR, G_SQLCODE_TOKEN, SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
3374: -- notify caller of an UNEXPECTED error
3375: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
3376: RETURN(l_return_status);
3377: END get_klnv_rec;
3378: ----------------------------------------------------------------------------
3379: --Function to populate the lines record to be copied.
3380: ----------------------------------------------------------------------------
3381: FUNCTION get_clev_rec(p_cle_id IN NUMBER,
3382: x_clev_rec OUT NOCOPY clev_rec_type)
3383: RETURN VARCHAR2 IS
3384: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3385: l_no_data_found BOOLEAN := TRUE;
3386:
3387:
3388: CURSOR c_clev_rec IS
3597:
3598: l_no_data_found := c_clev_rec%NOTFOUND;
3599: CLOSE c_clev_rec;
3600: IF l_no_data_found THEN
3601: l_return_status := OKC_API.G_RET_STS_ERROR;
3602: RETURN(l_return_status);
3603: ELSE
3604: RETURN(l_return_status);
3605: END IF;
3605: END IF;
3606: EXCEPTION
3607: WHEN OTHERS THEN
3608: -- store SQL error message on message stack for caller
3609: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR, G_SQLCODE_TOKEN, SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
3610: -- notify caller of an UNEXPECTED error
3611: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
3612: RETURN(l_return_status);
3613: END get_clev_rec;
3607: WHEN OTHERS THEN
3608: -- store SQL error message on message stack for caller
3609: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR, G_SQLCODE_TOKEN, SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
3610: -- notify caller of an UNEXPECTED error
3611: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
3612: RETURN(l_return_status);
3613: END get_clev_rec;
3614:
3615:
3619:
3620: FUNCTION get_scnv_rec(p_scn_id IN NUMBER,
3621: x_scnv_rec OUT NOCOPY scnv_rec_type) RETURN VARCHAR2 IS
3622:
3623: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3624: l_no_data_found BOOLEAN := TRUE;
3625:
3626: CURSOR c_scnv_rec IS
3627: SELECT ID,
3682:
3683: l_no_data_found := c_scnv_rec%NOTFOUND;
3684: CLOSE c_scnv_rec;
3685: IF l_no_data_found THEN
3686: l_return_status := OKC_API.G_RET_STS_ERROR;
3687: RETURN(l_return_status);
3688: ELSE
3689: RETURN(l_return_status);
3690: END IF;
3690: END IF;
3691: EXCEPTION
3692: WHEN OTHERS THEN
3693: -- store SQL error message on message stack for caller
3694: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR, G_SQLCODE_TOKEN, SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
3695: -- notify caller of an UNEXPECTED error
3696: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
3697: RETURN(l_return_status);
3698:
3692: WHEN OTHERS THEN
3693: -- store SQL error message on message stack for caller
3694: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR, G_SQLCODE_TOKEN, SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
3695: -- notify caller of an UNEXPECTED error
3696: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
3697: RETURN(l_return_status);
3698:
3699: END get_scnv_rec;
3700:
3704:
3705: FUNCTION get_sccv_rec(p_scc_id IN NUMBER,
3706: x_sccv_rec OUT NOCOPY sccv_rec_type) RETURN VARCHAR2 IS
3707:
3708: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3709: l_no_data_found BOOLEAN := TRUE;
3710:
3711: CURSOR c_sccv_rec IS
3712: SELECT ID,
3763:
3764: l_no_data_found := c_sccv_rec%NOTFOUND;
3765: CLOSE c_sccv_rec;
3766: IF l_no_data_found THEN
3767: l_return_status := OKC_API.G_RET_STS_ERROR;
3768: RETURN(l_return_status);
3769: ELSE
3770: RETURN(l_return_status);
3771: END IF;
3771: END IF;
3772: EXCEPTION
3773: WHEN OTHERS THEN
3774: -- store SQL error message on message stack for caller
3775: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR, G_SQLCODE_TOKEN, SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
3776: -- notify caller of an UNEXPECTED error
3777: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
3778: RETURN(l_return_status);
3779:
3773: WHEN OTHERS THEN
3774: -- store SQL error message on message stack for caller
3775: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR, G_SQLCODE_TOKEN, SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
3776: -- notify caller of an UNEXPECTED error
3777: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
3778: RETURN(l_return_status);
3779:
3780: END get_sccv_rec;
3781:
3785:
3786: FUNCTION get_pavv_rec(p_pav_id IN NUMBER,
3787: x_pavv_rec OUT NOCOPY pavv_rec_type) RETURN VARCHAR2 IS
3788:
3789: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3790: l_no_data_found BOOLEAN := TRUE;
3791:
3792: CURSOR c_pavv_rec IS
3793: SELECT ID,
4210:
4211: l_no_data_found := c_pavv_rec%NOTFOUND;
4212: CLOSE c_pavv_rec;
4213: IF l_no_data_found THEN
4214: l_return_status := OKC_API.G_RET_STS_ERROR;
4215: RETURN(l_return_status);
4216: ELSE
4217: RETURN(l_return_status);
4218: END IF;
4218: END IF;
4219: EXCEPTION
4220: WHEN OTHERS THEN
4221: -- store SQL error message on message stack for caller
4222: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR, G_SQLCODE_TOKEN, SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
4223: -- notify caller of an UNEXPECTED error
4224: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
4225: RETURN(l_return_status);
4226:
4220: WHEN OTHERS THEN
4221: -- store SQL error message on message stack for caller
4222: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR, G_SQLCODE_TOKEN, SQLCODE, G_SQLERRM_TOKEN, SQLERRM);
4223: -- notify caller of an UNEXPECTED error
4224: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
4225: RETURN(l_return_status);
4226:
4227: END get_pavv_rec;
4228:
4227: END get_pavv_rec;
4228:
4229: PROCEDURE create_trxn_extn(
4230: p_api_version IN NUMBER,
4231: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
4232: x_return_status OUT NOCOPY VARCHAR2,
4233: x_msg_count OUT NOCOPY NUMBER,
4234: x_msg_data OUT NOCOPY VARCHAR2,
4235: p_old_trx_ext_id IN NUMBER,