88: l_cim_rec cim_rec_type;
89: BEGIN
90:
91: IF (l_debug = 'Y') THEN
92: okc_debug.Set_Indentation('OKC_CIM_PVT');
93: okc_debug.log('500: Entered get_rec', 2);
94: END IF;
95:
96: x_no_data_found := TRUE;
89: BEGIN
90:
91: IF (l_debug = 'Y') THEN
92: okc_debug.Set_Indentation('OKC_CIM_PVT');
93: okc_debug.log('500: Entered get_rec', 2);
94: END IF;
95:
96: x_no_data_found := TRUE;
97: -- Get current database values
124: x_no_data_found := cim_pk_csr%NOTFOUND;
125: CLOSE cim_pk_csr;
126:
127: IF (l_debug = 'Y') THEN
128: okc_debug.log('550: Leaving Fn Get_Rec ', 2);
129: okc_debug.Reset_Indentation;
130: END IF;
131:
132: RETURN(l_cim_rec);
125: CLOSE cim_pk_csr;
126:
127: IF (l_debug = 'Y') THEN
128: okc_debug.log('550: Leaving Fn Get_Rec ', 2);
129: okc_debug.Reset_Indentation;
130: END IF;
131:
132: RETURN(l_cim_rec);
133:
181: l_cimv_rec cimv_rec_type;
182: BEGIN
183:
184: IF (l_debug = 'Y') THEN
185: okc_debug.Set_Indentation('OKC_CIM_PVT');
186: okc_debug.log('700: Entered get_rec', 2);
187: END IF;
188:
189: x_no_data_found := TRUE;
182: BEGIN
183:
184: IF (l_debug = 'Y') THEN
185: okc_debug.Set_Indentation('OKC_CIM_PVT');
186: okc_debug.log('700: Entered get_rec', 2);
187: END IF;
188:
189: x_no_data_found := TRUE;
190: -- Get current database values
218: x_no_data_found := okc_cimv_pk_csr%NOTFOUND;
219: CLOSE okc_cimv_pk_csr;
220:
221: IF (l_debug = 'Y') THEN
222: okc_debug.log('750: Leaving Fn Get_Rec ', 2);
223: okc_debug.Reset_Indentation;
224: END IF;
225:
226: RETURN(l_cimv_rec);
219: CLOSE okc_cimv_pk_csr;
220:
221: IF (l_debug = 'Y') THEN
222: okc_debug.log('750: Leaving Fn Get_Rec ', 2);
223: okc_debug.Reset_Indentation;
224: END IF;
225:
226: RETURN(l_cimv_rec);
227:
246: l_cimv_rec cimv_rec_type := p_cimv_rec;
247: BEGIN
248:
249: IF (l_debug = 'Y') THEN
250: okc_debug.Set_Indentation('OKC_CIM_PVT');
251: okc_debug.log('900: Entered null_out_defaults', 2);
252: END IF;
253:
254: IF (l_cimv_rec.object_version_number = OKC_API.G_MISS_NUM) THEN
247: BEGIN
248:
249: IF (l_debug = 'Y') THEN
250: okc_debug.Set_Indentation('OKC_CIM_PVT');
251: okc_debug.log('900: Entered null_out_defaults', 2);
252: END IF;
253:
254: IF (l_cimv_rec.object_version_number = OKC_API.G_MISS_NUM) THEN
255: l_cimv_rec.object_version_number := NULL;
321: l_cimv_rec.program_update_date := NULL;
322: END IF;
323:
324: IF (l_debug = 'Y') THEN
325: okc_debug.log('950: Leaving Fn null_out_defaults ', 2);
326: okc_debug.Reset_Indentation;
327: END IF;
328:
329: RETURN(l_cimv_rec);
322: END IF;
323:
324: IF (l_debug = 'Y') THEN
325: okc_debug.log('950: Leaving Fn null_out_defaults ', 2);
326: okc_debug.Reset_Indentation;
327: END IF;
328:
329: RETURN(l_cimv_rec);
330: END null_out_defaults;
351: where id = p_cimv_rec.cle_id;
352: begin
353:
354: IF (l_debug = 'Y') THEN
355: okc_debug.Set_Indentation('OKC_CIM_PVT');
356: okc_debug.log('1000: Entered validate_cle_id', 2);
357: END IF;
358:
359: x_return_status := OKC_API.G_RET_STS_SUCCESS;
352: begin
353:
354: IF (l_debug = 'Y') THEN
355: okc_debug.Set_Indentation('OKC_CIM_PVT');
356: okc_debug.log('1000: Entered validate_cle_id', 2);
357: END IF;
358:
359: x_return_status := OKC_API.G_RET_STS_SUCCESS;
360: if (p_cimv_rec.cle_id = OKC_API.G_MISS_NUM) then
375: raise G_EXCEPTION_HALT_VALIDATION;
376: end if;
377:
378: IF (l_debug = 'Y') THEN
379: okc_debug.log('1100: Leaving validate_cle_id', 2);
380: okc_debug.Reset_Indentation;
381: END IF;
382:
383: exception
376: end if;
377:
378: IF (l_debug = 'Y') THEN
379: okc_debug.log('1100: Leaving validate_cle_id', 2);
380: okc_debug.Reset_Indentation;
381: END IF;
382:
383: exception
384: when G_EXCEPTION_HALT_VALIDATION then
383: exception
384: when G_EXCEPTION_HALT_VALIDATION then
385:
386: IF (l_debug = 'Y') THEN
387: okc_debug.log('1200: Exiting validate_cle_id:G_EXCEPTION_HALT_VALIDATION Exception', 2);
388: okc_debug.Reset_Indentation;
389: END IF;
390:
391: x_return_status := OKC_API.G_RET_STS_ERROR;
384: when G_EXCEPTION_HALT_VALIDATION then
385:
386: IF (l_debug = 'Y') THEN
387: okc_debug.log('1200: Exiting validate_cle_id:G_EXCEPTION_HALT_VALIDATION Exception', 2);
388: okc_debug.Reset_Indentation;
389: END IF;
390:
391: x_return_status := OKC_API.G_RET_STS_ERROR;
392: when OTHERS then
391: x_return_status := OKC_API.G_RET_STS_ERROR;
392: when OTHERS then
393:
394: IF (l_debug = 'Y') THEN
395: okc_debug.log('1300: Exiting validate_cle_id:OTHERS Exception', 2);
396: okc_debug.Reset_Indentation;
397: END IF;
398:
399: if l_cle_csr%ISOPEN then
392: when OTHERS then
393:
394: IF (l_debug = 'Y') THEN
395: okc_debug.log('1300: Exiting validate_cle_id:OTHERS Exception', 2);
396: okc_debug.Reset_Indentation;
397: END IF;
398:
399: if l_cle_csr%ISOPEN then
400: close l_cle_csr;
427: where id = p_cimv_rec.cle_id_for;
428: begin
429:
430: IF (l_debug = 'Y') THEN
431: okc_debug.Set_Indentation('OKC_CIM_PVT');
432: okc_debug.log('1400: Entered validate_cle_id_for', 2);
433: END IF;
434:
435: x_return_status := OKC_API.G_RET_STS_SUCCESS;
428: begin
429:
430: IF (l_debug = 'Y') THEN
431: okc_debug.Set_Indentation('OKC_CIM_PVT');
432: okc_debug.log('1400: Entered validate_cle_id_for', 2);
433: END IF;
434:
435: x_return_status := OKC_API.G_RET_STS_SUCCESS;
436: if (p_cimv_rec.cle_id_for = OKC_API.G_MISS_NUM or p_cimv_rec.cle_id_for is NULL) then
444: x_return_status := OKC_API.G_RET_STS_ERROR;
445: end if;
446:
447: IF (l_debug = 'Y') THEN
448: okc_debug.log('1500: Leaving validate_cle_id_for', 2);
449: okc_debug.Reset_Indentation;
450: END IF;
451:
452: exception
445: end if;
446:
447: IF (l_debug = 'Y') THEN
448: okc_debug.log('1500: Leaving validate_cle_id_for', 2);
449: okc_debug.Reset_Indentation;
450: END IF;
451:
452: exception
453: when OTHERS then
452: exception
453: when OTHERS then
454:
455: IF (l_debug = 'Y') THEN
456: okc_debug.log('1600: Exiting validate_cle_id_for:OTHERS Exception', 2);
457: okc_debug.Reset_Indentation;
458: END IF;
459:
460: if l_cle_csr%ISOPEN then
453: when OTHERS then
454:
455: IF (l_debug = 'Y') THEN
456: okc_debug.log('1600: Exiting validate_cle_id_for:OTHERS Exception', 2);
457: okc_debug.Reset_Indentation;
458: END IF;
459:
460: if l_cle_csr%ISOPEN then
461: close l_cle_csr;
488: where id = p_cimv_rec.chr_id;
489: begin
490:
491: IF (l_debug = 'Y') THEN
492: okc_debug.Set_Indentation('OKC_CIM_PVT');
493: okc_debug.log('1700: Entered validate_chr_id', 2);
494: END IF;
495:
496: x_return_status := OKC_API.G_RET_STS_SUCCESS;
489: begin
490:
491: IF (l_debug = 'Y') THEN
492: okc_debug.Set_Indentation('OKC_CIM_PVT');
493: okc_debug.log('1700: Entered validate_chr_id', 2);
494: END IF;
495:
496: x_return_status := OKC_API.G_RET_STS_SUCCESS;
497: if (p_cimv_rec.chr_id = OKC_API.G_MISS_NUM or p_cimv_rec.chr_id is NULL) then
506: x_return_status := OKC_API.G_RET_STS_ERROR;
507: end if;
508:
509: IF (l_debug = 'Y') THEN
510: okc_debug.log('1800: Leaving validate_chr_id', 2);
511: okc_debug.Reset_Indentation;
512: END IF;
513:
514: exception
507: end if;
508:
509: IF (l_debug = 'Y') THEN
510: okc_debug.log('1800: Leaving validate_chr_id', 2);
511: okc_debug.Reset_Indentation;
512: END IF;
513:
514: exception
515: when OTHERS then
514: exception
515: when OTHERS then
516:
517: IF (l_debug = 'Y') THEN
518: okc_debug.log('1900: Exiting validate_chr_id:OTHERS Exception', 2);
519: okc_debug.Reset_Indentation;
520: END IF;
521:
522: if l_chr_csr%ISOPEN then
515: when OTHERS then
516:
517: IF (l_debug = 'Y') THEN
518: okc_debug.log('1900: Exiting validate_chr_id:OTHERS Exception', 2);
519: okc_debug.Reset_Indentation;
520: END IF;
521:
522: if l_chr_csr%ISOPEN then
523: close l_chr_csr;
544: p_cimv_rec IN CIMV_REC_TYPE) is
545: begin
546:
547: IF (l_debug = 'Y') THEN
548: okc_debug.Set_Indentation('OKC_CIM_PVT');
549: okc_debug.log('2000: Entered validate_exception_yn', 2);
550: END IF;
551:
552: if (p_cimv_rec.exception_yn in ('Y','N',OKC_API.G_MISS_CHAR)) then
545: begin
546:
547: IF (l_debug = 'Y') THEN
548: okc_debug.Set_Indentation('OKC_CIM_PVT');
549: okc_debug.log('2000: Entered validate_exception_yn', 2);
550: END IF;
551:
552: if (p_cimv_rec.exception_yn in ('Y','N',OKC_API.G_MISS_CHAR)) then
553: x_return_status := OKC_API.G_RET_STS_SUCCESS;
556: x_return_status := OKC_API.G_RET_STS_ERROR;
557: end if;
558:
559: IF (l_debug = 'Y') THEN
560: okc_debug.log('2050: Leaving validate_exception_yn ', 2);
561: okc_debug.Reset_Indentation;
562: END IF;
563:
564: end validate_exception_yn;
557: end if;
558:
559: IF (l_debug = 'Y') THEN
560: okc_debug.log('2050: Leaving validate_exception_yn ', 2);
561: okc_debug.Reset_Indentation;
562: END IF;
563:
564: end validate_exception_yn;
565:
575: p_cimv_rec IN CIMV_REC_TYPE) is
576: begin
577:
578: IF (l_debug = 'Y') THEN
579: okc_debug.Set_Indentation('OKC_CIM_PVT');
580: okc_debug.log('2100: Entered validate_priced_item_yn', 2);
581: END IF;
582:
583: if (p_cimv_rec.priced_item_yn is NULL or p_cimv_rec.priced_item_yn in ('Y','N',OKC_API.G_MISS_CHAR)) then
576: begin
577:
578: IF (l_debug = 'Y') THEN
579: okc_debug.Set_Indentation('OKC_CIM_PVT');
580: okc_debug.log('2100: Entered validate_priced_item_yn', 2);
581: END IF;
582:
583: if (p_cimv_rec.priced_item_yn is NULL or p_cimv_rec.priced_item_yn in ('Y','N',OKC_API.G_MISS_CHAR)) then
584: x_return_status := OKC_API.G_RET_STS_SUCCESS;
587: x_return_status := OKC_API.G_RET_STS_ERROR;
588: end if;
589:
590: IF (l_debug = 'Y') THEN
591: okc_debug.log('2150: Leaving validate_priced_item_yn ', 2);
592: okc_debug.Reset_Indentation;
593: END IF;
594:
595: end validate_priced_item_yn;
588: end if;
589:
590: IF (l_debug = 'Y') THEN
591: okc_debug.log('2150: Leaving validate_priced_item_yn ', 2);
592: okc_debug.Reset_Indentation;
593: END IF;
594:
595: end validate_priced_item_yn;
596:
612: where UOM_CODE = p_cimv_rec.UOM_CODE;
613: begin
614:
615: IF (l_debug = 'Y') THEN
616: okc_debug.Set_Indentation('OKC_CIM_PVT');
617: okc_debug.log('2200: Entered validate_UOM_CODE', 2);
618: END IF;
619:
620: x_return_status := OKC_API.G_RET_STS_SUCCESS;
613: begin
614:
615: IF (l_debug = 'Y') THEN
616: okc_debug.Set_Indentation('OKC_CIM_PVT');
617: okc_debug.log('2200: Entered validate_UOM_CODE', 2);
618: END IF;
619:
620: x_return_status := OKC_API.G_RET_STS_SUCCESS;
621: if (p_cimv_rec.UOM_CODE = OKC_API.G_MISS_CHAR
630: x_return_status := OKC_API.G_RET_STS_ERROR;
631: end if;
632:
633: IF (l_debug = 'Y') THEN
634: okc_debug.log('2450: Leaving validate_UOM_CODE', 2);
635: okc_debug.Reset_Indentation;
636: END IF;
637:
638: exception
631: end if;
632:
633: IF (l_debug = 'Y') THEN
634: okc_debug.log('2450: Leaving validate_UOM_CODE', 2);
635: okc_debug.Reset_Indentation;
636: END IF;
637:
638: exception
639: when OTHERS then
638: exception
639: when OTHERS then
640:
641: IF (l_debug = 'Y') THEN
642: okc_debug.log('2400: Exiting validate_UOM_CODE:OTHERS Exception', 2);
643: okc_debug.Reset_Indentation;
644: END IF;
645:
646: if l_okx_csr%ISOPEN then
639: when OTHERS then
640:
641: IF (l_debug = 'Y') THEN
642: okc_debug.log('2400: Exiting validate_UOM_CODE:OTHERS Exception', 2);
643: okc_debug.Reset_Indentation;
644: END IF;
645:
646: if l_okx_csr%ISOPEN then
647: close l_okx_csr;
687:
688: begin
689:
690: IF (l_debug = 'Y') THEN
691: okc_debug.Set_Indentation('OKC_CIM_PVT');
692: okc_debug.log('2500: Entered validate_JTOT_OBJECT1_CODE', 2);
693: END IF;
694:
695: x_return_status := OKC_API.G_RET_STS_SUCCESS;
688: begin
689:
690: IF (l_debug = 'Y') THEN
691: okc_debug.Set_Indentation('OKC_CIM_PVT');
692: okc_debug.log('2500: Entered validate_JTOT_OBJECT1_CODE', 2);
693: END IF;
694:
695: x_return_status := OKC_API.G_RET_STS_SUCCESS;
696: if (p_cimv_rec.jtot_object1_code = OKC_API.G_MISS_CHAR or p_cimv_rec.jtot_object1_code is NULL) then
705: OKC_API.set_message(G_APP_NAME,G_INVALID_VALUE,G_COL_NAME_TOKEN,'JTOT_OBJECT1_CODE');
706: x_return_status := OKC_API.G_RET_STS_ERROR;
707: end if;
708: IF (l_debug = 'Y') THEN
709: okc_debug.log('2600: Leaving validate_JTOT_OBJECT1_CODE', 2);
710: okc_debug.Reset_Indentation;
711: END IF;
712:
713: exception
706: x_return_status := OKC_API.G_RET_STS_ERROR;
707: end if;
708: IF (l_debug = 'Y') THEN
709: okc_debug.log('2600: Leaving validate_JTOT_OBJECT1_CODE', 2);
710: okc_debug.Reset_Indentation;
711: END IF;
712:
713: exception
714: when OTHERS then
713: exception
714: when OTHERS then
715:
716: IF (l_debug = 'Y') THEN
717: okc_debug.log('2700: Exiting validate_JTOT_OBJECT1_CODE:OTHERS Exception', 2);
718: okc_debug.Reset_Indentation;
719: END IF;
720:
721: if l_object1_csr%ISOPEN then
714: when OTHERS then
715:
716: IF (l_debug = 'Y') THEN
717: okc_debug.log('2700: Exiting validate_JTOT_OBJECT1_CODE:OTHERS Exception', 2);
718: okc_debug.Reset_Indentation;
719: END IF;
720:
721: if l_object1_csr%ISOPEN then
722: close l_object1_csr;
765:
766: begin
767:
768: IF (l_debug = 'Y') THEN
769: okc_debug.Set_Indentation('OKC_CIM_PVT');
770: okc_debug.log('2800: Entered validate_object1_id1', 2);
771: END IF;
772:
773: x_return_status := OKC_API.G_RET_STS_SUCCESS;
766: begin
767:
768: IF (l_debug = 'Y') THEN
769: okc_debug.Set_Indentation('OKC_CIM_PVT');
770: okc_debug.log('2800: Entered validate_object1_id1', 2);
771: END IF;
772:
773: x_return_status := OKC_API.G_RET_STS_SUCCESS;
774: if (p_cimv_rec.jtot_object1_code = OKC_API.G_MISS_CHAR or p_cimv_rec.jtot_object1_code is NULL) then
789: into l_dummy_var
790: USING p_cimv_rec.object1_id1, p_cimv_rec.object1_id2;
791:
792: IF (l_debug = 'Y') THEN
793: okc_debug.log('2900: Leaving validate_object1_id1', 2);
794: okc_debug.Reset_Indentation;
795: END IF;
796:
797: exception
790: USING p_cimv_rec.object1_id1, p_cimv_rec.object1_id2;
791:
792: IF (l_debug = 'Y') THEN
793: okc_debug.log('2900: Leaving validate_object1_id1', 2);
794: okc_debug.Reset_Indentation;
795: END IF;
796:
797: exception
798: when e_source_not_exists then
797: exception
798: when e_source_not_exists then
799:
800: IF (l_debug = 'Y') THEN
801: okc_debug.log('3000: Exiting validate_object1_id1:e_source_not_exists Exception', 2);
802: okc_debug.Reset_Indentation;
803: END IF;
804:
805: OKC_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'JTOT_OBJECT1_CODE');
798: when e_source_not_exists then
799:
800: IF (l_debug = 'Y') THEN
801: okc_debug.log('3000: Exiting validate_object1_id1:e_source_not_exists Exception', 2);
802: okc_debug.Reset_Indentation;
803: END IF;
804:
805: OKC_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'JTOT_OBJECT1_CODE');
806: x_return_status := OKC_API.G_RET_STS_ERROR;
806: x_return_status := OKC_API.G_RET_STS_ERROR;
807: when e_column_not_exists then
808:
809: IF (l_debug = 'Y') THEN
810: okc_debug.log('3100: Exiting validate_object1_id1:e_column_not_exists Exception', 2);
811: okc_debug.Reset_Indentation;
812: END IF;
813:
814: OKC_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,l_from_table||'.ID1');
807: when e_column_not_exists then
808:
809: IF (l_debug = 'Y') THEN
810: okc_debug.log('3100: Exiting validate_object1_id1:e_column_not_exists Exception', 2);
811: okc_debug.Reset_Indentation;
812: END IF;
813:
814: OKC_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,l_from_table||'.ID1');
815: x_return_status := OKC_API.G_RET_STS_ERROR;
815: x_return_status := OKC_API.G_RET_STS_ERROR;
816: when e_no_data_found then
817:
818: IF (l_debug = 'Y') THEN
819: okc_debug.log('3200: Exiting validate_object1_id1:e_no_data_found Exception', 2);
820: okc_debug.Reset_Indentation;
821: END IF;
822:
823: OKC_API.set_message(G_APP_NAME,'OKC_INVALID_ITEM');
816: when e_no_data_found then
817:
818: IF (l_debug = 'Y') THEN
819: okc_debug.log('3200: Exiting validate_object1_id1:e_no_data_found Exception', 2);
820: okc_debug.Reset_Indentation;
821: END IF;
822:
823: OKC_API.set_message(G_APP_NAME,'OKC_INVALID_ITEM');
824: x_return_status := OKC_API.G_RET_STS_ERROR;
824: x_return_status := OKC_API.G_RET_STS_ERROR;
825: when e_too_many_rows then
826:
827: IF (l_debug = 'Y') THEN
828: okc_debug.log('3300: Exiting validate_object1_id1:e_too_many_rows Exception', 2);
829: okc_debug.Reset_Indentation;
830: END IF;
831:
832: OKC_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,l_from_table||'.ID1');
825: when e_too_many_rows then
826:
827: IF (l_debug = 'Y') THEN
828: okc_debug.log('3300: Exiting validate_object1_id1:e_too_many_rows Exception', 2);
829: okc_debug.Reset_Indentation;
830: END IF;
831:
832: OKC_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,l_from_table||'.ID1');
833: x_return_status := OKC_API.G_RET_STS_ERROR;
833: x_return_status := OKC_API.G_RET_STS_ERROR;
834: when OTHERS then
835:
836: IF (l_debug = 'Y') THEN
837: okc_debug.log('3400: Exiting validate_object1_id1:OTHERS Exception', 2);
838: okc_debug.Reset_Indentation;
839: END IF;
840:
841: if l_object1_csr%ISOPEN then
834: when OTHERS then
835:
836: IF (l_debug = 'Y') THEN
837: okc_debug.log('3400: Exiting validate_object1_id1:OTHERS Exception', 2);
838: okc_debug.Reset_Indentation;
839: END IF;
840:
841: if l_object1_csr%ISOPEN then
842: close l_object1_csr;
869: where id = p_cimv_rec.dnz_chr_id;
870: begin
871:
872: IF (l_debug = 'Y') THEN
873: okc_debug.Set_Indentation('OKC_CIM_PVT');
874: okc_debug.log('3500: Entered validate_dnz_chr_id', 2);
875: END IF;
876:
877: x_return_status := OKC_API.G_RET_STS_SUCCESS;
870: begin
871:
872: IF (l_debug = 'Y') THEN
873: okc_debug.Set_Indentation('OKC_CIM_PVT');
874: okc_debug.log('3500: Entered validate_dnz_chr_id', 2);
875: END IF;
876:
877: x_return_status := OKC_API.G_RET_STS_SUCCESS;
878: if (p_cimv_rec.dnz_chr_id = OKC_API.G_MISS_NUM) then
895: return;
896: end if;
897:
898: IF (l_debug = 'Y') THEN
899: okc_debug.log('3600: Leaving validate_dnz_chr_id', 2);
900: okc_debug.Reset_Indentation;
901: END IF;
902:
903: exception
896: end if;
897:
898: IF (l_debug = 'Y') THEN
899: okc_debug.log('3600: Leaving validate_dnz_chr_id', 2);
900: okc_debug.Reset_Indentation;
901: END IF;
902:
903: exception
904: when OTHERS then
903: exception
904: when OTHERS then
905:
906: IF (l_debug = 'Y') THEN
907: okc_debug.log('3700: Exiting validate_dnz_chr_id:OTHERS Exception', 2);
908: okc_debug.Reset_Indentation;
909: END IF;
910:
911: OKC_API.set_message(p_app_name => g_app_name,
904: when OTHERS then
905:
906: IF (l_debug = 'Y') THEN
907: okc_debug.log('3700: Exiting validate_dnz_chr_id:OTHERS Exception', 2);
908: okc_debug.Reset_Indentation;
909: END IF;
910:
911: OKC_API.set_message(p_app_name => g_app_name,
912: p_msg_name => g_unexpected_error,
929: /*-------------Commented in favor of hand code------
930: BEGIN
931:
932: IF (l_debug = 'Y') THEN
933: okc_debug.Set_Indentation('OKC_CIM_PVT');
934: okc_debug.log('3800: Entered Validate_Attributes', 2);
935: END IF;
936:
937: IF p_cimv_rec.id = OKC_API.G_MISS_NUM OR
930: BEGIN
931:
932: IF (l_debug = 'Y') THEN
933: okc_debug.Set_Indentation('OKC_CIM_PVT');
934: okc_debug.log('3800: Entered Validate_Attributes', 2);
935: END IF;
936:
937: IF p_cimv_rec.id = OKC_API.G_MISS_NUM OR
938: p_cimv_rec.id IS NULL
961: l_return_status := OKC_API.G_RET_STS_ERROR;
962: END IF;
963:
964: IF (l_debug = 'Y') THEN
965: okc_debug.log('3850: Leaving Validate_Attributes ', 2);
966: okc_debug.Reset_Indentation;
967: END IF;
968:
969: RETURN(l_return_status);
962: END IF;
963:
964: IF (l_debug = 'Y') THEN
965: okc_debug.log('3850: Leaving Validate_Attributes ', 2);
966: okc_debug.Reset_Indentation;
967: END IF;
968:
969: RETURN(l_return_status);
970:
1045: x_return_status := OKC_API.G_RET_STS_ERROR;
1046: end if;
1047: --
1048: IF (l_debug = 'Y') THEN
1049: okc_debug.log('3860: Leaving Validate_Attributes ', 2);
1050: okc_debug.Reset_Indentation;
1051: END IF;
1052:
1053: return x_return_status;
1046: end if;
1047: --
1048: IF (l_debug = 'Y') THEN
1049: okc_debug.log('3860: Leaving Validate_Attributes ', 2);
1050: okc_debug.Reset_Indentation;
1051: END IF;
1052:
1053: return x_return_status;
1054: exception
1095:
1096: BEGIN
1097:
1098: IF (l_debug = 'Y') THEN
1099: okc_debug.Set_Indentation('OKC_CIM_PVT');
1100: okc_debug.log('3900: Entered Validate_Record', 2);
1101: END IF;
1102:
1103: if ((p_cimv_rec.chr_id IS NOT NULL and p_cimv_rec.chr_id <> OKC_API.G_MISS_NUM) and
1096: BEGIN
1097:
1098: IF (l_debug = 'Y') THEN
1099: okc_debug.Set_Indentation('OKC_CIM_PVT');
1100: okc_debug.log('3900: Entered Validate_Record', 2);
1101: END IF;
1102:
1103: if ((p_cimv_rec.chr_id IS NOT NULL and p_cimv_rec.chr_id <> OKC_API.G_MISS_NUM) and
1104: (p_cimv_rec.cle_id_for IS NOT NULL and p_cimv_rec.cle_id_for <> OKC_API.G_MISS_NUM)) then
1124: validate_JTOT_OBJECT1_CODE(x_return_status => l_return_status,
1125: p_cimv_rec => p_cimv_rec);
1126: if (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
1127: IF (l_debug = 'Y') THEN
1128: okc_debug.log('3910: Exiting Validate_jtot_object1_code in validate_record:unexp err', 2);
1129: okc_debug.Reset_Indentation;
1130: END IF;
1131: return OKC_API.G_RET_STS_UNEXP_ERROR;
1132: end if;
1125: p_cimv_rec => p_cimv_rec);
1126: if (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
1127: IF (l_debug = 'Y') THEN
1128: okc_debug.log('3910: Exiting Validate_jtot_object1_code in validate_record:unexp err', 2);
1129: okc_debug.Reset_Indentation;
1130: END IF;
1131: return OKC_API.G_RET_STS_UNEXP_ERROR;
1132: end if;
1133: if (l_return_status = OKC_API.G_RET_STS_ERROR
1137: validate_object1_id1(x_return_status => l_return_status,
1138: p_cimv_rec => p_cimv_rec);
1139: if (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
1140: IF (l_debug = 'Y') THEN
1141: okc_debug.log('3920: Exiting Validate_object1_id1 in validate_record:unexp err', 2);
1142: okc_debug.Reset_Indentation;
1143: END IF;
1144: return OKC_API.G_RET_STS_UNEXP_ERROR;
1145: end if;
1138: p_cimv_rec => p_cimv_rec);
1139: if (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
1140: IF (l_debug = 'Y') THEN
1141: okc_debug.log('3920: Exiting Validate_object1_id1 in validate_record:unexp err', 2);
1142: okc_debug.Reset_Indentation;
1143: END IF;
1144: return OKC_API.G_RET_STS_UNEXP_ERROR;
1145: end if;
1146: if (l_return_status = OKC_API.G_RET_STS_ERROR
1149: end if;
1150: End If; -- if user defined
1151:
1152: IF (l_debug = 'Y') THEN
1153: okc_debug.log('3950: Leaving Validate_Record', 2);
1154: okc_debug.Reset_Indentation;
1155: END IF;
1156:
1157: RETURN (x_return_status);
1150: End If; -- if user defined
1151:
1152: IF (l_debug = 'Y') THEN
1153: okc_debug.log('3950: Leaving Validate_Record', 2);
1154: okc_debug.Reset_Indentation;
1155: END IF;
1156:
1157: RETURN (x_return_status);
1158:
1159: exception
1160: when OTHERS then
1161:
1162: IF (l_debug = 'Y') THEN
1163: okc_debug.log('4100: Exiting Validate_Record:OTHERS Exception', 2);
1164: okc_debug.Reset_Indentation;
1165: END IF;
1166:
1167: -- store SQL error message on message stack for caller
1160: when OTHERS then
1161:
1162: IF (l_debug = 'Y') THEN
1163: okc_debug.log('4100: Exiting Validate_Record:OTHERS Exception', 2);
1164: okc_debug.Reset_Indentation;
1165: END IF;
1166:
1167: -- store SQL error message on message stack for caller
1168: OKC_API.set_message(p_app_name => g_app_name,
1266: l_cim_rec cim_rec_type;
1267: BEGIN
1268:
1269: IF (l_debug = 'Y') THEN
1270: okc_debug.Set_Indentation('OKC_CIM_PVT');
1271: okc_debug.log('4400: Entered validate_row', 2);
1272: END IF;
1273:
1274: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
1267: BEGIN
1268:
1269: IF (l_debug = 'Y') THEN
1270: okc_debug.Set_Indentation('OKC_CIM_PVT');
1271: okc_debug.log('4400: Entered validate_row', 2);
1272: END IF;
1273:
1274: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
1275: G_PKG_NAME,
1299: END IF;
1300: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1301:
1302: IF (l_debug = 'Y') THEN
1303: okc_debug.log('4700: Leaving validate_row', 2);
1304: okc_debug.Reset_Indentation;
1305: END IF;
1306:
1307: EXCEPTION
1300: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1301:
1302: IF (l_debug = 'Y') THEN
1303: okc_debug.log('4700: Leaving validate_row', 2);
1304: okc_debug.Reset_Indentation;
1305: END IF;
1306:
1307: EXCEPTION
1308: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1307: EXCEPTION
1308: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1309:
1310: IF (l_debug = 'Y') THEN
1311: okc_debug.log('4600: Exiting validate_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
1312: okc_debug.Reset_Indentation;
1313: END IF;
1314:
1315: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1308: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1309:
1310: IF (l_debug = 'Y') THEN
1311: okc_debug.log('4600: Exiting validate_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
1312: okc_debug.Reset_Indentation;
1313: END IF;
1314:
1315: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1316: (
1323: );
1324: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1325:
1326: IF (l_debug = 'Y') THEN
1327: okc_debug.log('4700: Exiting validate_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
1328: okc_debug.Reset_Indentation;
1329: END IF;
1330:
1331: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1324: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1325:
1326: IF (l_debug = 'Y') THEN
1327: okc_debug.log('4700: Exiting validate_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
1328: okc_debug.Reset_Indentation;
1329: END IF;
1330:
1331: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1332: (
1339: );
1340: WHEN OTHERS THEN
1341:
1342: IF (l_debug = 'Y') THEN
1343: okc_debug.log('4800: Exiting validate_row:OTHERS Exception', 2);
1344: okc_debug.Reset_Indentation;
1345: END IF;
1346:
1347: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1340: WHEN OTHERS THEN
1341:
1342: IF (l_debug = 'Y') THEN
1343: okc_debug.log('4800: Exiting validate_row:OTHERS Exception', 2);
1344: okc_debug.Reset_Indentation;
1345: END IF;
1346:
1347: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1348: (
1372: i NUMBER := 0;
1373: BEGIN
1374:
1375: IF (l_debug = 'Y') THEN
1376: okc_debug.Set_Indentation('OKC_CIM_PVT');
1377: okc_debug.log('4900: Entered validate_row', 2);
1378: END IF;
1379:
1380: OKC_API.init_msg_list(p_init_msg_list);
1373: BEGIN
1374:
1375: IF (l_debug = 'Y') THEN
1376: okc_debug.Set_Indentation('OKC_CIM_PVT');
1377: okc_debug.log('4900: Entered validate_row', 2);
1378: END IF;
1379:
1380: OKC_API.init_msg_list(p_init_msg_list);
1381: -- Make sure PL/SQL table has records in it before passing
1394: END LOOP;
1395: END IF;
1396:
1397: IF (l_debug = 'Y') THEN
1398: okc_debug.log('5000: Leaving validate_row', 2);
1399: okc_debug.Reset_Indentation;
1400: END IF;
1401:
1402: EXCEPTION
1395: END IF;
1396:
1397: IF (l_debug = 'Y') THEN
1398: okc_debug.log('5000: Leaving validate_row', 2);
1399: okc_debug.Reset_Indentation;
1400: END IF;
1401:
1402: EXCEPTION
1403: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1402: EXCEPTION
1403: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1404:
1405: IF (l_debug = 'Y') THEN
1406: okc_debug.log('5100: Exiting validate_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
1407: okc_debug.Reset_Indentation;
1408: END IF;
1409:
1410: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1403: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1404:
1405: IF (l_debug = 'Y') THEN
1406: okc_debug.log('5100: Exiting validate_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
1407: okc_debug.Reset_Indentation;
1408: END IF;
1409:
1410: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1411: (
1418: );
1419: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1420:
1421: IF (l_debug = 'Y') THEN
1422: okc_debug.log('5200: Exiting validate_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
1423: okc_debug.Reset_Indentation;
1424: END IF;
1425:
1426: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1419: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1420:
1421: IF (l_debug = 'Y') THEN
1422: okc_debug.log('5200: Exiting validate_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
1423: okc_debug.Reset_Indentation;
1424: END IF;
1425:
1426: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1427: (
1434: );
1435: WHEN OTHERS THEN
1436:
1437: IF (l_debug = 'Y') THEN
1438: okc_debug.log('5300: Exiting validate_row:OTHERS Exception', 2);
1439: okc_debug.Reset_Indentation;
1440: END IF;
1441:
1442: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1435: WHEN OTHERS THEN
1436:
1437: IF (l_debug = 'Y') THEN
1438: okc_debug.log('5300: Exiting validate_row:OTHERS Exception', 2);
1439: okc_debug.Reset_Indentation;
1440: END IF;
1441:
1442: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1443: (
1487: END Set_Attributes;
1488: BEGIN
1489:
1490: IF (l_debug = 'Y') THEN
1491: okc_debug.Set_Indentation('OKC_CIM_PVT');
1492: okc_debug.log('5500: Entered insert_row', 2);
1493: END IF;
1494:
1495: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
1488: BEGIN
1489:
1490: IF (l_debug = 'Y') THEN
1491: okc_debug.Set_Indentation('OKC_CIM_PVT');
1492: okc_debug.log('5500: Entered insert_row', 2);
1493: END IF;
1494:
1495: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
1496: p_init_msg_list,
1566: x_cim_rec := l_cim_rec;
1567: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1568:
1569: IF (l_debug = 'Y') THEN
1570: okc_debug.log('5600: Leaving insert_row', 2);
1571: okc_debug.Reset_Indentation;
1572: END IF;
1573:
1574: EXCEPTION
1567: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1568:
1569: IF (l_debug = 'Y') THEN
1570: okc_debug.log('5600: Leaving insert_row', 2);
1571: okc_debug.Reset_Indentation;
1572: END IF;
1573:
1574: EXCEPTION
1575: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1574: EXCEPTION
1575: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1576:
1577: IF (l_debug = 'Y') THEN
1578: okc_debug.log('5700: Exiting insert_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
1579: okc_debug.Reset_Indentation;
1580: END IF;
1581:
1582: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1575: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1576:
1577: IF (l_debug = 'Y') THEN
1578: okc_debug.log('5700: Exiting insert_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
1579: okc_debug.Reset_Indentation;
1580: END IF;
1581:
1582: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1583: (
1590: );
1591: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1592:
1593: IF (l_debug = 'Y') THEN
1594: okc_debug.log('5800: Exiting insert_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
1595: okc_debug.Reset_Indentation;
1596: END IF;
1597:
1598: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1591: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1592:
1593: IF (l_debug = 'Y') THEN
1594: okc_debug.log('5800: Exiting insert_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
1595: okc_debug.Reset_Indentation;
1596: END IF;
1597:
1598: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1599: (
1606: );
1607: WHEN OTHERS THEN
1608:
1609: IF (l_debug = 'Y') THEN
1610: okc_debug.log('5900: Exiting insert_row:OTHERS Exception', 2);
1611: okc_debug.Reset_Indentation;
1612: END IF;
1613:
1614: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1607: WHEN OTHERS THEN
1608:
1609: IF (l_debug = 'Y') THEN
1610: okc_debug.log('5900: Exiting insert_row:OTHERS Exception', 2);
1611: okc_debug.Reset_Indentation;
1612: END IF;
1613:
1614: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1615: (
1676: END Set_Attributes;
1677: BEGIN
1678:
1679: IF (l_debug = 'Y') THEN
1680: okc_debug.Set_Indentation('OKC_CIM_PVT');
1681: okc_debug.log('6200: Entered insert_row', 2);
1682: END IF;
1683:
1684: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
1677: BEGIN
1678:
1679: IF (l_debug = 'Y') THEN
1680: okc_debug.Set_Indentation('OKC_CIM_PVT');
1681: okc_debug.log('6200: Entered insert_row', 2);
1682: END IF;
1683:
1684: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
1685: G_PKG_NAME,
1746: x_cimv_rec := l_def_cimv_rec;
1747: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1748:
1749: IF (l_debug = 'Y') THEN
1750: okc_debug.log('6500: Leaving insert_row', 2);
1751: okc_debug.Reset_Indentation;
1752: END IF;
1753:
1754: EXCEPTION
1747: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1748:
1749: IF (l_debug = 'Y') THEN
1750: okc_debug.log('6500: Leaving insert_row', 2);
1751: okc_debug.Reset_Indentation;
1752: END IF;
1753:
1754: EXCEPTION
1755: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1754: EXCEPTION
1755: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1756:
1757: IF (l_debug = 'Y') THEN
1758: okc_debug.log('6400: Exiting insert_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
1759: okc_debug.Reset_Indentation;
1760: END IF;
1761:
1762: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1755: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1756:
1757: IF (l_debug = 'Y') THEN
1758: okc_debug.log('6400: Exiting insert_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
1759: okc_debug.Reset_Indentation;
1760: END IF;
1761:
1762: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1763: (
1770: );
1771: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1772:
1773: IF (l_debug = 'Y') THEN
1774: okc_debug.log('6500: Exiting insert_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
1775: okc_debug.Reset_Indentation;
1776: END IF;
1777:
1778: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1771: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1772:
1773: IF (l_debug = 'Y') THEN
1774: okc_debug.log('6500: Exiting insert_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
1775: okc_debug.Reset_Indentation;
1776: END IF;
1777:
1778: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1779: (
1786: );
1787: WHEN OTHERS THEN
1788:
1789: IF (l_debug = 'Y') THEN
1790: okc_debug.log('6600: Exiting insert_row:OTHERS Exception', 2);
1791: okc_debug.Reset_Indentation;
1792: END IF;
1793:
1794: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1787: WHEN OTHERS THEN
1788:
1789: IF (l_debug = 'Y') THEN
1790: okc_debug.log('6600: Exiting insert_row:OTHERS Exception', 2);
1791: okc_debug.Reset_Indentation;
1792: END IF;
1793:
1794: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1795: (
1820: i NUMBER := 0;
1821: BEGIN
1822:
1823: IF (l_debug = 'Y') THEN
1824: okc_debug.Set_Indentation('OKC_CIM_PVT');
1825: okc_debug.log('6700: Entered insert_row', 2);
1826: END IF;
1827:
1828: OKC_API.init_msg_list(p_init_msg_list);
1821: BEGIN
1822:
1823: IF (l_debug = 'Y') THEN
1824: okc_debug.Set_Indentation('OKC_CIM_PVT');
1825: okc_debug.log('6700: Entered insert_row', 2);
1826: END IF;
1827:
1828: OKC_API.init_msg_list(p_init_msg_list);
1829: -- Make sure PL/SQL table has records in it before passing
1843: END LOOP;
1844: END IF;
1845:
1846: IF (l_debug = 'Y') THEN
1847: okc_debug.log('7000 : Leaving insert_row', 2);
1848: okc_debug.Reset_Indentation;
1849: END IF;
1850:
1851: EXCEPTION
1844: END IF;
1845:
1846: IF (l_debug = 'Y') THEN
1847: okc_debug.log('7000 : Leaving insert_row', 2);
1848: okc_debug.Reset_Indentation;
1849: END IF;
1850:
1851: EXCEPTION
1852: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1851: EXCEPTION
1852: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1853:
1854: IF (l_debug = 'Y') THEN
1855: okc_debug.log('6900: Exiting insert_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
1856: okc_debug.Reset_Indentation;
1857: END IF;
1858:
1859: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1852: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1853:
1854: IF (l_debug = 'Y') THEN
1855: okc_debug.log('6900: Exiting insert_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
1856: okc_debug.Reset_Indentation;
1857: END IF;
1858:
1859: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1860: (
1867: );
1868: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1869:
1870: IF (l_debug = 'Y') THEN
1871: okc_debug.log('7000: Exiting insert_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
1872: okc_debug.Reset_Indentation;
1873: END IF;
1874:
1875: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1868: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1869:
1870: IF (l_debug = 'Y') THEN
1871: okc_debug.log('7000: Exiting insert_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
1872: okc_debug.Reset_Indentation;
1873: END IF;
1874:
1875: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1876: (
1883: );
1884: WHEN OTHERS THEN
1885:
1886: IF (l_debug = 'Y') THEN
1887: okc_debug.log('7100: Exiting insert_row:OTHERS Exception', 2);
1888: okc_debug.Reset_Indentation;
1889: END IF;
1890:
1891: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1884: WHEN OTHERS THEN
1885:
1886: IF (l_debug = 'Y') THEN
1887: okc_debug.log('7100: Exiting insert_row:OTHERS Exception', 2);
1888: okc_debug.Reset_Indentation;
1889: END IF;
1890:
1891: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1892: (
1935: lc_row_notfound BOOLEAN := FALSE;
1936: BEGIN
1937:
1938: IF (l_debug = 'Y') THEN
1939: okc_debug.Set_Indentation('OKC_CIM_PVT');
1940: okc_debug.log('7200: Entered lock_row', 2);
1941: END IF;
1942:
1943: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
1936: BEGIN
1937:
1938: IF (l_debug = 'Y') THEN
1939: okc_debug.Set_Indentation('OKC_CIM_PVT');
1940: okc_debug.log('7200: Entered lock_row', 2);
1941: END IF;
1942:
1943: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
1944: p_init_msg_list,
1951: END IF;
1952: BEGIN
1953:
1954: IF (l_debug = 'Y') THEN
1955: okc_debug.Set_Indentation('OKC_CIM_PVT');
1956: okc_debug.log('7300: Entered lock_row', 2);
1957: END IF;
1958:
1959: OPEN lock_csr(p_cim_rec);
1952: BEGIN
1953:
1954: IF (l_debug = 'Y') THEN
1955: okc_debug.Set_Indentation('OKC_CIM_PVT');
1956: okc_debug.log('7300: Entered lock_row', 2);
1957: END IF;
1958:
1959: OPEN lock_csr(p_cim_rec);
1960: FETCH lock_csr INTO l_object_version_number;
1961: l_row_notfound := lock_csr%NOTFOUND;
1962: CLOSE lock_csr;
1963:
1964: IF (l_debug = 'Y') THEN
1965: okc_debug.log('7400: Exiting lock_row', 2);
1966: okc_debug.Reset_Indentation;
1967: END IF;
1968:
1969: EXCEPTION
1962: CLOSE lock_csr;
1963:
1964: IF (l_debug = 'Y') THEN
1965: okc_debug.log('7400: Exiting lock_row', 2);
1966: okc_debug.Reset_Indentation;
1967: END IF;
1968:
1969: EXCEPTION
1970: WHEN E_Resource_Busy THEN
1969: EXCEPTION
1970: WHEN E_Resource_Busy THEN
1971:
1972: IF (l_debug = 'Y') THEN
1973: okc_debug.log('7500: Exiting lock_row:E_Resource_Busy Exception', 2);
1974: okc_debug.Reset_Indentation;
1975: END IF;
1976:
1977: IF (lock_csr%ISOPEN) THEN
1970: WHEN E_Resource_Busy THEN
1971:
1972: IF (l_debug = 'Y') THEN
1973: okc_debug.log('7500: Exiting lock_row:E_Resource_Busy Exception', 2);
1974: okc_debug.Reset_Indentation;
1975: END IF;
1976:
1977: IF (lock_csr%ISOPEN) THEN
1978: CLOSE lock_csr;
2002: END IF;
2003: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2004:
2005: IF (l_debug = 'Y') THEN
2006: okc_debug.log('7800: Exiting lock_row', 2);
2007: okc_debug.Reset_Indentation;
2008: END IF;
2009:
2010: EXCEPTION
2003: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2004:
2005: IF (l_debug = 'Y') THEN
2006: okc_debug.log('7800: Exiting lock_row', 2);
2007: okc_debug.Reset_Indentation;
2008: END IF;
2009:
2010: EXCEPTION
2011: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2010: EXCEPTION
2011: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2012:
2013: IF (l_debug = 'Y') THEN
2014: okc_debug.log('7700: Exiting lock_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
2015: okc_debug.Reset_Indentation;
2016: END IF;
2017:
2018: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2011: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2012:
2013: IF (l_debug = 'Y') THEN
2014: okc_debug.log('7700: Exiting lock_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
2015: okc_debug.Reset_Indentation;
2016: END IF;
2017:
2018: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2019: (
2026: );
2027: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2028:
2029: IF (l_debug = 'Y') THEN
2030: okc_debug.log('7800: Exiting lock_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
2031: okc_debug.Reset_Indentation;
2032: END IF;
2033:
2034: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2027: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2028:
2029: IF (l_debug = 'Y') THEN
2030: okc_debug.log('7800: Exiting lock_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
2031: okc_debug.Reset_Indentation;
2032: END IF;
2033:
2034: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2035: (
2042: );
2043: WHEN OTHERS THEN
2044:
2045: IF (l_debug = 'Y') THEN
2046: okc_debug.log('7900: Exiting lock_row:OTHERS Exception', 2);
2047: okc_debug.Reset_Indentation;
2048: END IF;
2049:
2050: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2043: WHEN OTHERS THEN
2044:
2045: IF (l_debug = 'Y') THEN
2046: okc_debug.log('7900: Exiting lock_row:OTHERS Exception', 2);
2047: okc_debug.Reset_Indentation;
2048: END IF;
2049:
2050: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2051: (
2075: l_cim_rec cim_rec_type;
2076: BEGIN
2077:
2078: IF (l_debug = 'Y') THEN
2079: okc_debug.Set_Indentation('OKC_CIM_PVT');
2080: okc_debug.log('8000: Entered lock_row', 2);
2081: END IF;
2082:
2083: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
2076: BEGIN
2077:
2078: IF (l_debug = 'Y') THEN
2079: okc_debug.Set_Indentation('OKC_CIM_PVT');
2080: okc_debug.log('8000: Entered lock_row', 2);
2081: END IF;
2082:
2083: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
2084: G_PKG_NAME,
2113: END IF;
2114: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2115:
2116: IF (l_debug = 'Y') THEN
2117: okc_debug.log('8100: Leaving lock_row', 2);
2118: okc_debug.Reset_Indentation;
2119: END IF;
2120:
2121: EXCEPTION
2114: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2115:
2116: IF (l_debug = 'Y') THEN
2117: okc_debug.log('8100: Leaving lock_row', 2);
2118: okc_debug.Reset_Indentation;
2119: END IF;
2120:
2121: EXCEPTION
2122: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2121: EXCEPTION
2122: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2123:
2124: IF (l_debug = 'Y') THEN
2125: okc_debug.log('8200: Exiting lock_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
2126: okc_debug.Reset_Indentation;
2127: END IF;
2128:
2129: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2122: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2123:
2124: IF (l_debug = 'Y') THEN
2125: okc_debug.log('8200: Exiting lock_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
2126: okc_debug.Reset_Indentation;
2127: END IF;
2128:
2129: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2130: (
2137: );
2138: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2139:
2140: IF (l_debug = 'Y') THEN
2141: okc_debug.log('8300: Exiting lock_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
2142: okc_debug.Reset_Indentation;
2143: END IF;
2144:
2145: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2138: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2139:
2140: IF (l_debug = 'Y') THEN
2141: okc_debug.log('8300: Exiting lock_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
2142: okc_debug.Reset_Indentation;
2143: END IF;
2144:
2145: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2146: (
2153: );
2154: WHEN OTHERS THEN
2155:
2156: IF (l_debug = 'Y') THEN
2157: okc_debug.log('8400: Exiting lock_row:OTHERS Exception', 2);
2158: okc_debug.Reset_Indentation;
2159: END IF;
2160:
2161: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2154: WHEN OTHERS THEN
2155:
2156: IF (l_debug = 'Y') THEN
2157: okc_debug.log('8400: Exiting lock_row:OTHERS Exception', 2);
2158: okc_debug.Reset_Indentation;
2159: END IF;
2160:
2161: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2162: (
2186: i NUMBER := 0;
2187: BEGIN
2188:
2189: IF (l_debug = 'Y') THEN
2190: okc_debug.Set_Indentation('OKC_CIM_PVT');
2191: okc_debug.log('8500: Entered lock_row', 2);
2192: END IF;
2193:
2194: OKC_API.init_msg_list(p_init_msg_list);
2187: BEGIN
2188:
2189: IF (l_debug = 'Y') THEN
2190: okc_debug.Set_Indentation('OKC_CIM_PVT');
2191: okc_debug.log('8500: Entered lock_row', 2);
2192: END IF;
2193:
2194: OKC_API.init_msg_list(p_init_msg_list);
2195: -- Make sure PL/SQL table has records in it before passing
2208: END LOOP;
2209: END IF;
2210:
2211: IF (l_debug = 'Y') THEN
2212: okc_debug.log('8600: Leaving lock_row', 2);
2213: okc_debug.Reset_Indentation;
2214: END IF;
2215:
2216: EXCEPTION
2209: END IF;
2210:
2211: IF (l_debug = 'Y') THEN
2212: okc_debug.log('8600: Leaving lock_row', 2);
2213: okc_debug.Reset_Indentation;
2214: END IF;
2215:
2216: EXCEPTION
2217: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2216: EXCEPTION
2217: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2218:
2219: IF (l_debug = 'Y') THEN
2220: okc_debug.log('8700: Exiting lock_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
2221: okc_debug.Reset_Indentation;
2222: END IF;
2223:
2224: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2217: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2218:
2219: IF (l_debug = 'Y') THEN
2220: okc_debug.log('8700: Exiting lock_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
2221: okc_debug.Reset_Indentation;
2222: END IF;
2223:
2224: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2225: (
2232: );
2233: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2234:
2235: IF (l_debug = 'Y') THEN
2236: okc_debug.log('8800: Exiting lock_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
2237: okc_debug.Reset_Indentation;
2238: END IF;
2239:
2240: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2233: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2234:
2235: IF (l_debug = 'Y') THEN
2236: okc_debug.log('8800: Exiting lock_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
2237: okc_debug.Reset_Indentation;
2238: END IF;
2239:
2240: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2241: (
2248: );
2249: WHEN OTHERS THEN
2250:
2251: IF (l_debug = 'Y') THEN
2252: okc_debug.log('8900: Exiting lock_row:OTHERS Exception', 2);
2253: okc_debug.Reset_Indentation;
2254: END IF;
2255:
2256: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2249: WHEN OTHERS THEN
2250:
2251: IF (l_debug = 'Y') THEN
2252: okc_debug.log('8900: Exiting lock_row:OTHERS Exception', 2);
2253: okc_debug.Reset_Indentation;
2254: END IF;
2255:
2256: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2257: (
2297: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2298: BEGIN
2299:
2300: IF (l_debug = 'Y') THEN
2301: okc_debug.Set_Indentation('OKC_CIM_PVT');
2302: okc_debug.log('9000: Entered populate_new_record', 2);
2303: END IF;
2304:
2305: x_cim_rec := p_cim_rec;
2298: BEGIN
2299:
2300: IF (l_debug = 'Y') THEN
2301: okc_debug.Set_Indentation('OKC_CIM_PVT');
2302: okc_debug.log('9000: Entered populate_new_record', 2);
2303: END IF;
2304:
2305: x_cim_rec := p_cim_rec;
2306: -- Get current database values
2406: END IF;
2407:
2408:
2409: IF (l_debug = 'Y') THEN
2410: okc_debug.log('9100: Leaving populate_new_record', 2);
2411: okc_debug.Reset_Indentation;
2412: END IF;
2413:
2414: RETURN(l_return_status);
2407:
2408:
2409: IF (l_debug = 'Y') THEN
2410: okc_debug.log('9100: Leaving populate_new_record', 2);
2411: okc_debug.Reset_Indentation;
2412: END IF;
2413:
2414: RETURN(l_return_status);
2415: END populate_new_record;
2429: END Set_Attributes;
2430: BEGIN
2431:
2432: IF (l_debug = 'Y') THEN
2433: okc_debug.Set_Indentation('OKC_CIM_PVT');
2434: okc_debug.log('9200: Entered update_row', 2);
2435: END IF;
2436:
2437: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
2430: BEGIN
2431:
2432: IF (l_debug = 'Y') THEN
2433: okc_debug.Set_Indentation('OKC_CIM_PVT');
2434: okc_debug.log('9200: Entered update_row', 2);
2435: END IF;
2436:
2437: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
2438: p_init_msg_list,
2488: x_cim_rec := l_def_cim_rec;
2489: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2490:
2491: IF (l_debug = 'Y') THEN
2492: okc_debug.log('9300: Leaving update_row', 2);
2493: okc_debug.Reset_Indentation;
2494: END IF;
2495:
2496: EXCEPTION
2489: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2490:
2491: IF (l_debug = 'Y') THEN
2492: okc_debug.log('9300: Leaving update_row', 2);
2493: okc_debug.Reset_Indentation;
2494: END IF;
2495:
2496: EXCEPTION
2497: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2496: EXCEPTION
2497: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2498:
2499: IF (l_debug = 'Y') THEN
2500: okc_debug.log('9400: Exiting update_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
2501: okc_debug.Reset_Indentation;
2502: END IF;
2503:
2504: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2497: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2498:
2499: IF (l_debug = 'Y') THEN
2500: okc_debug.log('9400: Exiting update_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
2501: okc_debug.Reset_Indentation;
2502: END IF;
2503:
2504: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2505: (
2512: );
2513: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2514:
2515: IF (l_debug = 'Y') THEN
2516: okc_debug.log('9500: Exiting update_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
2517: okc_debug.Reset_Indentation;
2518: END IF;
2519:
2520: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2513: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2514:
2515: IF (l_debug = 'Y') THEN
2516: okc_debug.log('9500: Exiting update_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
2517: okc_debug.Reset_Indentation;
2518: END IF;
2519:
2520: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2521: (
2528: );
2529: WHEN OTHERS THEN
2530:
2531: IF (l_debug = 'Y') THEN
2532: okc_debug.log('9600: Exiting update_row:OTHERS Exception', 2);
2533: okc_debug.Reset_Indentation;
2534: END IF;
2535:
2536: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2529: WHEN OTHERS THEN
2530:
2531: IF (l_debug = 'Y') THEN
2532: okc_debug.log('9600: Exiting update_row:OTHERS Exception', 2);
2533: okc_debug.Reset_Indentation;
2534: END IF;
2535:
2536: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2537: (
2591: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2592: BEGIN
2593:
2594: IF (l_debug = 'Y') THEN
2595: okc_debug.Set_Indentation('OKC_CIM_PVT');
2596: okc_debug.log('9800: Entered populate_new_record', 2);
2597: END IF;
2598:
2599: x_cimv_rec := p_cimv_rec;
2592: BEGIN
2593:
2594: IF (l_debug = 'Y') THEN
2595: okc_debug.Set_Indentation('OKC_CIM_PVT');
2596: okc_debug.log('9800: Entered populate_new_record', 2);
2597: END IF;
2598:
2599: x_cimv_rec := p_cimv_rec;
2600: -- Get current database values
2702: END IF;
2703:
2704:
2705: IF (l_debug = 'Y') THEN
2706: okc_debug.Set_Indentation('OKC_CIM_PVT');
2707: okc_debug.log('9900: Leaving populate_new_record', 2);
2708: END IF;
2709:
2710: RETURN(l_return_status);
2703:
2704:
2705: IF (l_debug = 'Y') THEN
2706: okc_debug.Set_Indentation('OKC_CIM_PVT');
2707: okc_debug.log('9900: Leaving populate_new_record', 2);
2708: END IF;
2709:
2710: RETURN(l_return_status);
2711:
2727: END Set_Attributes;
2728: BEGIN
2729:
2730: IF (l_debug = 'Y') THEN
2731: okc_debug.Set_Indentation('OKC_CIM_PVT');
2732: okc_debug.log('10000: Entered update_row', 2);
2733: END IF;
2734:
2735: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
2728: BEGIN
2729:
2730: IF (l_debug = 'Y') THEN
2731: okc_debug.Set_Indentation('OKC_CIM_PVT');
2732: okc_debug.log('10000: Entered update_row', 2);
2733: END IF;
2734:
2735: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
2736: G_PKG_NAME,
2800: x_cimv_rec := l_def_cimv_rec;
2801: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2802:
2803: IF (l_debug = 'Y') THEN
2804: okc_debug.log('10100: Leaving update_row', 2);
2805: okc_debug.Reset_Indentation;
2806: END IF;
2807:
2808: EXCEPTION
2801: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2802:
2803: IF (l_debug = 'Y') THEN
2804: okc_debug.log('10100: Leaving update_row', 2);
2805: okc_debug.Reset_Indentation;
2806: END IF;
2807:
2808: EXCEPTION
2809: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2808: EXCEPTION
2809: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2810:
2811: IF (l_debug = 'Y') THEN
2812: okc_debug.log('10200: Exiting update_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
2813: okc_debug.Reset_Indentation;
2814: END IF;
2815:
2816: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2809: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2810:
2811: IF (l_debug = 'Y') THEN
2812: okc_debug.log('10200: Exiting update_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
2813: okc_debug.Reset_Indentation;
2814: END IF;
2815:
2816: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2817: (
2824: );
2825: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2826:
2827: IF (l_debug = 'Y') THEN
2828: okc_debug.log('10300: Exiting update_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
2829: okc_debug.Reset_Indentation;
2830: END IF;
2831:
2832: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2825: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2826:
2827: IF (l_debug = 'Y') THEN
2828: okc_debug.log('10300: Exiting update_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
2829: okc_debug.Reset_Indentation;
2830: END IF;
2831:
2832: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2833: (
2840: );
2841: WHEN OTHERS THEN
2842:
2843: IF (l_debug = 'Y') THEN
2844: okc_debug.log('10400: Exiting update_row:OTHERS Exception', 2);
2845: okc_debug.Reset_Indentation;
2846: END IF;
2847:
2848: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2841: WHEN OTHERS THEN
2842:
2843: IF (l_debug = 'Y') THEN
2844: okc_debug.log('10400: Exiting update_row:OTHERS Exception', 2);
2845: okc_debug.Reset_Indentation;
2846: END IF;
2847:
2848: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2849: (
2874: i NUMBER := 0;
2875: BEGIN
2876:
2877: IF (l_debug = 'Y') THEN
2878: okc_debug.Set_Indentation('OKC_CIM_PVT');
2879: okc_debug.log('10500: Entered update_row', 2);
2880: END IF;
2881:
2882: OKC_API.init_msg_list(p_init_msg_list);
2875: BEGIN
2876:
2877: IF (l_debug = 'Y') THEN
2878: okc_debug.Set_Indentation('OKC_CIM_PVT');
2879: okc_debug.log('10500: Entered update_row', 2);
2880: END IF;
2881:
2882: OKC_API.init_msg_list(p_init_msg_list);
2883: -- Make sure PL/SQL table has records in it before passing
2897: END LOOP;
2898: END IF;
2899:
2900: IF (l_debug = 'Y') THEN
2901: okc_debug.log('10600: Leaving update_row', 2);
2902: okc_debug.Reset_Indentation;
2903: END IF;
2904:
2905: EXCEPTION
2898: END IF;
2899:
2900: IF (l_debug = 'Y') THEN
2901: okc_debug.log('10600: Leaving update_row', 2);
2902: okc_debug.Reset_Indentation;
2903: END IF;
2904:
2905: EXCEPTION
2906: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2905: EXCEPTION
2906: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2907:
2908: IF (l_debug = 'Y') THEN
2909: okc_debug.log('10700: Exiting update_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
2910: okc_debug.Reset_Indentation;
2911: END IF;
2912:
2913: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2906: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2907:
2908: IF (l_debug = 'Y') THEN
2909: okc_debug.log('10700: Exiting update_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
2910: okc_debug.Reset_Indentation;
2911: END IF;
2912:
2913: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2914: (
2921: );
2922: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2923:
2924: IF (l_debug = 'Y') THEN
2925: okc_debug.log('10800: Exiting update_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
2926: okc_debug.Reset_Indentation;
2927: END IF;
2928:
2929: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2922: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2923:
2924: IF (l_debug = 'Y') THEN
2925: okc_debug.log('10800: Exiting update_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
2926: okc_debug.Reset_Indentation;
2927: END IF;
2928:
2929: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2930: (
2937: );
2938: WHEN OTHERS THEN
2939:
2940: IF (l_debug = 'Y') THEN
2941: okc_debug.log('10900: Exiting update_row:OTHERS Exception', 2);
2942: okc_debug.Reset_Indentation;
2943: END IF;
2944:
2945: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2938: WHEN OTHERS THEN
2939:
2940: IF (l_debug = 'Y') THEN
2941: okc_debug.log('10900: Exiting update_row:OTHERS Exception', 2);
2942: okc_debug.Reset_Indentation;
2943: END IF;
2944:
2945: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2946: (
2974: l_row_notfound BOOLEAN := TRUE;
2975: BEGIN
2976:
2977: IF (l_debug = 'Y') THEN
2978: okc_debug.Set_Indentation('OKC_CIM_PVT');
2979: okc_debug.log('11000: Entered delete_row', 2);
2980: END IF;
2981:
2982: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
2975: BEGIN
2976:
2977: IF (l_debug = 'Y') THEN
2978: okc_debug.Set_Indentation('OKC_CIM_PVT');
2979: okc_debug.log('11000: Entered delete_row', 2);
2980: END IF;
2981:
2982: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
2983: p_init_msg_list,
2993:
2994: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2995:
2996: IF (l_debug = 'Y') THEN
2997: okc_debug.log('11100: Leaving delete_row', 2);
2998: okc_debug.Reset_Indentation;
2999: END IF;
3000:
3001: EXCEPTION
2994: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2995:
2996: IF (l_debug = 'Y') THEN
2997: okc_debug.log('11100: Leaving delete_row', 2);
2998: okc_debug.Reset_Indentation;
2999: END IF;
3000:
3001: EXCEPTION
3002: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3001: EXCEPTION
3002: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3003:
3004: IF (l_debug = 'Y') THEN
3005: okc_debug.log('11200: Exiting delete_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
3006: okc_debug.Reset_Indentation;
3007: END IF;
3008:
3009: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3002: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3003:
3004: IF (l_debug = 'Y') THEN
3005: okc_debug.log('11200: Exiting delete_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
3006: okc_debug.Reset_Indentation;
3007: END IF;
3008:
3009: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3010: (
3017: );
3018: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3019:
3020: IF (l_debug = 'Y') THEN
3021: okc_debug.log('11300: Exiting delete_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
3022: okc_debug.Reset_Indentation;
3023: END IF;
3024:
3025: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3018: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3019:
3020: IF (l_debug = 'Y') THEN
3021: okc_debug.log('11300: Exiting delete_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
3022: okc_debug.Reset_Indentation;
3023: END IF;
3024:
3025: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3026: (
3033: );
3034: WHEN OTHERS THEN
3035:
3036: IF (l_debug = 'Y') THEN
3037: okc_debug.log('11400: Exiting delete_row:OTHERS Exception', 2);
3038: okc_debug.Reset_Indentation;
3039: END IF;
3040:
3041: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3034: WHEN OTHERS THEN
3035:
3036: IF (l_debug = 'Y') THEN
3037: okc_debug.log('11400: Exiting delete_row:OTHERS Exception', 2);
3038: okc_debug.Reset_Indentation;
3039: END IF;
3040:
3041: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3042: (
3067: l_cim_rec cim_rec_type;
3068: BEGIN
3069:
3070: IF (l_debug = 'Y') THEN
3071: okc_debug.Set_Indentation('OKC_CIM_PVT');
3072: okc_debug.log('11500: Entered delete_row', 2);
3073: END IF;
3074:
3075: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
3068: BEGIN
3069:
3070: IF (l_debug = 'Y') THEN
3071: okc_debug.Set_Indentation('OKC_CIM_PVT');
3072: okc_debug.log('11500: Entered delete_row', 2);
3073: END IF;
3074:
3075: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
3076: G_PKG_NAME,
3105: END IF;
3106: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3107:
3108: IF (l_debug = 'Y') THEN
3109: okc_debug.log('11600: Leaving delete_row', 2);
3110: okc_debug.Reset_Indentation;
3111: END IF;
3112:
3113: EXCEPTION
3106: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3107:
3108: IF (l_debug = 'Y') THEN
3109: okc_debug.log('11600: Leaving delete_row', 2);
3110: okc_debug.Reset_Indentation;
3111: END IF;
3112:
3113: EXCEPTION
3114: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3113: EXCEPTION
3114: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3115:
3116: IF (l_debug = 'Y') THEN
3117: okc_debug.log('11700: Exiting delete_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
3118: okc_debug.Reset_Indentation;
3119: END IF;
3120:
3121: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3114: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3115:
3116: IF (l_debug = 'Y') THEN
3117: okc_debug.log('11700: Exiting delete_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
3118: okc_debug.Reset_Indentation;
3119: END IF;
3120:
3121: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3122: (
3129: );
3130: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3131:
3132: IF (l_debug = 'Y') THEN
3133: okc_debug.log('11800: Exiting delete_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
3134: okc_debug.Reset_Indentation;
3135: END IF;
3136:
3137: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3130: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3131:
3132: IF (l_debug = 'Y') THEN
3133: okc_debug.log('11800: Exiting delete_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
3134: okc_debug.Reset_Indentation;
3135: END IF;
3136:
3137: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3138: (
3145: );
3146: WHEN OTHERS THEN
3147:
3148: IF (l_debug = 'Y') THEN
3149: okc_debug.log('11900: Exiting delete_row:OTHERS Exception', 2);
3150: okc_debug.Reset_Indentation;
3151: END IF;
3152:
3153: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3146: WHEN OTHERS THEN
3147:
3148: IF (l_debug = 'Y') THEN
3149: okc_debug.log('11900: Exiting delete_row:OTHERS Exception', 2);
3150: okc_debug.Reset_Indentation;
3151: END IF;
3152:
3153: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3154: (
3178: i NUMBER := 0;
3179: BEGIN
3180:
3181: IF (l_debug = 'Y') THEN
3182: okc_debug.Set_Indentation('OKC_CIM_PVT');
3183: okc_debug.log('12000: Entered delete_row', 2);
3184: END IF;
3185:
3186: OKC_API.init_msg_list(p_init_msg_list);
3179: BEGIN
3180:
3181: IF (l_debug = 'Y') THEN
3182: okc_debug.Set_Indentation('OKC_CIM_PVT');
3183: okc_debug.log('12000: Entered delete_row', 2);
3184: END IF;
3185:
3186: OKC_API.init_msg_list(p_init_msg_list);
3187: -- Make sure PL/SQL table has records in it before passing
3200: END LOOP;
3201: END IF;
3202:
3203: IF (l_debug = 'Y') THEN
3204: okc_debug.log('12100: Leaving delete_row', 2);
3205: okc_debug.Reset_Indentation;
3206: END IF;
3207:
3208: EXCEPTION
3201: END IF;
3202:
3203: IF (l_debug = 'Y') THEN
3204: okc_debug.log('12100: Leaving delete_row', 2);
3205: okc_debug.Reset_Indentation;
3206: END IF;
3207:
3208: EXCEPTION
3209: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3208: EXCEPTION
3209: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3210:
3211: IF (l_debug = 'Y') THEN
3212: okc_debug.log('12200: Exiting delete_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
3213: okc_debug.Reset_Indentation;
3214: END IF;
3215:
3216: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3209: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3210:
3211: IF (l_debug = 'Y') THEN
3212: okc_debug.log('12200: Exiting delete_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
3213: okc_debug.Reset_Indentation;
3214: END IF;
3215:
3216: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3217: (
3224: );
3225: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3226:
3227: IF (l_debug = 'Y') THEN
3228: okc_debug.log('12300: Exiting delete_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
3229: okc_debug.Reset_Indentation;
3230: END IF;
3231:
3232: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3225: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3226:
3227: IF (l_debug = 'Y') THEN
3228: okc_debug.log('12300: Exiting delete_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
3229: okc_debug.Reset_Indentation;
3230: END IF;
3231:
3232: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3233: (
3240: );
3241: WHEN OTHERS THEN
3242:
3243: IF (l_debug = 'Y') THEN
3244: okc_debug.log('12400: Exiting delete_row:OTHERS Exception', 2);
3245: okc_debug.Reset_Indentation;
3246: END IF;
3247:
3248: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3241: WHEN OTHERS THEN
3242:
3243: IF (l_debug = 'Y') THEN
3244: okc_debug.log('12400: Exiting delete_row:OTHERS Exception', 2);
3245: okc_debug.Reset_Indentation;
3246: END IF;
3247:
3248: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3249: (
3295: -- Initializing return status
3296: x_return_status := OKC_API.G_RET_STS_SUCCESS;
3297:
3298: IF (l_debug = 'Y') THEN
3299: okc_debug.Set_Indentation('OKC_CIM_PVT');
3300: okc_debug.log('12500: Entered INSERT_ROW_UPG', 2);
3301: END IF;
3302:
3303: -- pkoganti 08/26/2000
3296: x_return_status := OKC_API.G_RET_STS_SUCCESS;
3297:
3298: IF (l_debug = 'Y') THEN
3299: okc_debug.Set_Indentation('OKC_CIM_PVT');
3300: okc_debug.log('12500: Entered INSERT_ROW_UPG', 2);
3301: END IF;
3302:
3303: -- pkoganti 08/26/2000
3304: -- replace for loop with while loop to handle
3405: in_program_update_date(i)
3406: );
3407:
3408: IF (l_debug = 'Y') THEN
3409: okc_debug.log('12600: Leaving INSERT_ROW_UPG', 2);
3410: okc_debug.Reset_Indentation;
3411: END IF;
3412:
3413: EXCEPTION
3406: );
3407:
3408: IF (l_debug = 'Y') THEN
3409: okc_debug.log('12600: Leaving INSERT_ROW_UPG', 2);
3410: okc_debug.Reset_Indentation;
3411: END IF;
3412:
3413: EXCEPTION
3414: WHEN OTHERS THEN
3423: p_token2_value => SQLERRM);
3424: -- notify caller of an error as UNEXPETED error
3425: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
3426: IF (l_debug = 'Y') THEN
3427: okc_debug.log('12700: Exiting INSERT_ROW_UPG:OTHERS Exception', 2);
3428: okc_debug.Reset_Indentation;
3429: END IF;
3430:
3431: -- RAISE;
3424: -- notify caller of an error as UNEXPETED error
3425: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
3426: IF (l_debug = 'Y') THEN
3427: okc_debug.log('12700: Exiting INSERT_ROW_UPG:OTHERS Exception', 2);
3428: okc_debug.Reset_Indentation;
3429: END IF;
3430:
3431: -- RAISE;
3432:
3445:
3446: BEGIN
3447:
3448: IF (l_debug = 'Y') THEN
3449: okc_debug.Set_Indentation('OKC_CIM_PVT');
3450: okc_debug.log('12800: Entered create_version', 2);
3451: END IF;
3452:
3453: INSERT INTO okc_k_items_h
3446: BEGIN
3447:
3448: IF (l_debug = 'Y') THEN
3449: okc_debug.Set_Indentation('OKC_CIM_PVT');
3450: okc_debug.log('12800: Entered create_version', 2);
3451: END IF;
3452:
3453: INSERT INTO okc_k_items_h
3454: (
3504: WHERE dnz_chr_id = p_chr_id;
3505:
3506:
3507: IF (l_debug = 'Y') THEN
3508: okc_debug.log('12900: Leaving create_version', 2);
3509: okc_debug.Reset_Indentation;
3510: END IF;
3511:
3512: RETURN l_return_status;
3505:
3506:
3507: IF (l_debug = 'Y') THEN
3508: okc_debug.log('12900: Leaving create_version', 2);
3509: okc_debug.Reset_Indentation;
3510: END IF;
3511:
3512: RETURN l_return_status;
3513:
3515: -- other appropriate handlers
3516: WHEN OTHERS THEN
3517:
3518: IF (l_debug = 'Y') THEN
3519: okc_debug.log('13000: Exiting create_version:OTHERS Exception', 2);
3520: okc_debug.Reset_Indentation;
3521: END IF;
3522:
3523: -- store SQL error message on message stack
3516: WHEN OTHERS THEN
3517:
3518: IF (l_debug = 'Y') THEN
3519: okc_debug.log('13000: Exiting create_version:OTHERS Exception', 2);
3520: okc_debug.Reset_Indentation;
3521: END IF;
3522:
3523: -- store SQL error message on message stack
3524: OKC_API.SET_MESSAGE(p_app_name => okc_version_pvt.G_APP_NAME,
3547:
3548: BEGIN
3549:
3550: IF (l_debug = 'Y') THEN
3551: okc_debug.Set_Indentation('OKC_CIM_PVT');
3552: okc_debug.log('13100: Entered restore_version', 2);
3553: END IF;
3554:
3555: INSERT INTO okc_k_items
3548: BEGIN
3549:
3550: IF (l_debug = 'Y') THEN
3551: okc_debug.Set_Indentation('OKC_CIM_PVT');
3552: okc_debug.log('13100: Entered restore_version', 2);
3553: END IF;
3554:
3555: INSERT INTO okc_k_items
3556: (
3604: WHERE dnz_chr_id = p_chr_id
3605: AND major_version = p_major_version;
3606:
3607: IF (l_debug = 'Y') THEN
3608: okc_debug.log('13200: Leaving restore_version', 2);
3609: okc_debug.Reset_Indentation;
3610: END IF;
3611:
3612: RETURN l_return_status;
3605: AND major_version = p_major_version;
3606:
3607: IF (l_debug = 'Y') THEN
3608: okc_debug.log('13200: Leaving restore_version', 2);
3609: okc_debug.Reset_Indentation;
3610: END IF;
3611:
3612: RETURN l_return_status;
3613:
3615: -- other appropriate handlers
3616: WHEN OTHERS THEN
3617:
3618: IF (l_debug = 'Y') THEN
3619: okc_debug.log('13300: Exiting restore_version:OTHERS Exception', 2);
3620: okc_debug.Reset_Indentation;
3621: END IF;
3622:
3623: -- store SQL error message on message stack
3616: WHEN OTHERS THEN
3617:
3618: IF (l_debug = 'Y') THEN
3619: okc_debug.log('13300: Exiting restore_version:OTHERS Exception', 2);
3620: okc_debug.Reset_Indentation;
3621: END IF;
3622:
3623: -- store SQL error message on message stack
3624: OKC_API.SET_MESSAGE(p_app_name => okc_version_pvt.G_APP_NAME,