[Home] [Help]
57: PROCEDURE add_language IS
58: BEGIN
59:
60: IF (l_debug = 'Y') THEN
61: okc_debug.Set_Indentation('OKC_CPL_PVT');
62: okc_debug.log('500: Entered add_language', 2);
63: END IF;
64:
65: /* Mar/19/03 requested by Ric Ginsberg */
58: BEGIN
59:
60: IF (l_debug = 'Y') THEN
61: okc_debug.Set_Indentation('OKC_CPL_PVT');
62: okc_debug.log('500: Entered add_language', 2);
63: END IF;
64:
65: /* Mar/19/03 requested by Ric Ginsberg */
66: /* The following delete and update statements are commented out */
211: AND t.LANGUAGE(+) = v.LANGUAGE_CODE
212: AND t.id IS NULL;
213:
214: IF (l_debug = 'Y') THEN
215: okc_debug.log('500: Leaving add_language ', 2);
216: okc_debug.Reset_Indentation;
217: END IF;
218:
219: END add_language;
212: AND t.id IS NULL;
213:
214: IF (l_debug = 'Y') THEN
215: okc_debug.log('500: Leaving add_language ', 2);
216: okc_debug.Reset_Indentation;
217: END IF;
218:
219: END add_language;
220:
276: l_cpl_rec cpl_rec_type;
277: BEGIN
278:
279: IF (l_debug = 'Y') THEN
280: okc_debug.Set_Indentation('OKC_CPL_PVT');
281: okc_debug.log('600: Entered get_rec', 2);
282: END IF;
283:
284: x_no_data_found := TRUE;
277: BEGIN
278:
279: IF (l_debug = 'Y') THEN
280: okc_debug.Set_Indentation('OKC_CPL_PVT');
281: okc_debug.log('600: Entered get_rec', 2);
282: END IF;
283:
284: x_no_data_found := TRUE;
285: -- Get current database values
332: x_no_data_found := cpl_pk_csr%NOTFOUND;
333: CLOSE cpl_pk_csr;
334:
335: IF (l_debug = 'Y') THEN
336: okc_debug.log('700: Leaving Fn Get_Rec ', 2);
337: okc_debug.Reset_Indentation;
338: END IF;
339:
340: RETURN(l_cpl_rec);
333: CLOSE cpl_pk_csr;
334:
335: IF (l_debug = 'Y') THEN
336: okc_debug.log('700: Leaving Fn Get_Rec ', 2);
337: okc_debug.Reset_Indentation;
338: END IF;
339:
340: RETURN(l_cpl_rec);
341:
378: l_okc_k_party_roles_tl_rec okc_k_party_roles_tl_rec_type;
379: BEGIN
380:
381: IF (l_debug = 'Y') THEN
382: okc_debug.Set_Indentation('OKC_CPL_PVT');
383: okc_debug.log('800: Entered get_rec', 2);
384: END IF;
385:
386: x_no_data_found := TRUE;
379: BEGIN
380:
381: IF (l_debug = 'Y') THEN
382: okc_debug.Set_Indentation('OKC_CPL_PVT');
383: okc_debug.log('800: Entered get_rec', 2);
384: END IF;
385:
386: x_no_data_found := TRUE;
387: -- Get current database values
402: x_no_data_found := cpl_pktl_csr%NOTFOUND;
403: CLOSE cpl_pktl_csr;
404:
405: IF (l_debug = 'Y') THEN
406: okc_debug.Set_Indentation('OKC_CPL_PVT');
407: okc_debug.log('900: Entered get_rec', 2);
408: END IF;
409:
410: RETURN(l_okc_k_party_roles_tl_rec);
403: CLOSE cpl_pktl_csr;
404:
405: IF (l_debug = 'Y') THEN
406: okc_debug.Set_Indentation('OKC_CPL_PVT');
407: okc_debug.log('900: Entered get_rec', 2);
408: END IF;
409:
410: RETURN(l_okc_k_party_roles_tl_rec);
411:
476: l_cplv_rec cplv_rec_type;
477: BEGIN
478:
479: IF (l_debug = 'Y') THEN
480: okc_debug.Set_Indentation('OKC_CPL_PVT');
481: okc_debug.log('1000: Entered get_rec', 2);
482: END IF;
483:
484: x_no_data_found := TRUE;
477: BEGIN
478:
479: IF (l_debug = 'Y') THEN
480: okc_debug.Set_Indentation('OKC_CPL_PVT');
481: okc_debug.log('1000: Entered get_rec', 2);
482: END IF;
483:
484: x_no_data_found := TRUE;
485: -- Get current database values
529: x_no_data_found := okc_cplv_pk_csr%NOTFOUND;
530: CLOSE okc_cplv_pk_csr;
531:
532: IF (l_debug = 'Y') THEN
533: okc_debug.Set_Indentation('OKC_CPL_PVT');
534: okc_debug.log('1050: Entered get_rec', 2);
535: END IF;
536:
537: RETURN(l_cplv_rec);
530: CLOSE okc_cplv_pk_csr;
531:
532: IF (l_debug = 'Y') THEN
533: okc_debug.Set_Indentation('OKC_CPL_PVT');
534: okc_debug.log('1050: Entered get_rec', 2);
535: END IF;
536:
537: RETURN(l_cplv_rec);
538:
557: l_cplv_rec cplv_rec_type := p_cplv_rec;
558: BEGIN
559:
560: IF (l_debug = 'Y') THEN
561: okc_debug.Set_Indentation('OKC_CPL_PVT');
562: okc_debug.log('1200: Entered null_out_defaults', 2);
563: END IF;
564:
565: IF (l_cplv_rec.object_version_number = OKC_API.G_MISS_NUM) THEN
558: BEGIN
559:
560: IF (l_debug = 'Y') THEN
561: okc_debug.Set_Indentation('OKC_CPL_PVT');
562: okc_debug.log('1200: Entered null_out_defaults', 2);
563: END IF;
564:
565: IF (l_cplv_rec.object_version_number = OKC_API.G_MISS_NUM) THEN
566: l_cplv_rec.object_version_number := NULL;
686: l_cplv_rec.last_update_login := NULL;
687: END IF;
688:
689: IF (l_debug = 'Y') THEN
690: okc_debug.Set_Indentation('OKC_CPL_PVT');
691: okc_debug.log('1150: Entered get_rec', 2);
692: END IF;
693:
694: RETURN(l_cplv_rec);
687: END IF;
688:
689: IF (l_debug = 'Y') THEN
690: okc_debug.Set_Indentation('OKC_CPL_PVT');
691: okc_debug.log('1150: Entered get_rec', 2);
692: END IF;
693:
694: RETURN(l_cplv_rec);
695:
717: where id = p_cplv_rec.cle_id;
718: begin
719:
720: IF (l_debug = 'Y') THEN
721: okc_debug.Set_Indentation('OKC_CPL_PVT');
722: okc_debug.log('1300: Entered validate_cle_id', 2);
723: END IF;
724:
725: x_return_status := OKC_API.G_RET_STS_SUCCESS;
718: begin
719:
720: IF (l_debug = 'Y') THEN
721: okc_debug.Set_Indentation('OKC_CPL_PVT');
722: okc_debug.log('1300: Entered validate_cle_id', 2);
723: END IF;
724:
725: x_return_status := OKC_API.G_RET_STS_SUCCESS;
726: if (p_cplv_rec.cle_id = OKC_API.G_MISS_NUM or p_cplv_rec.cle_id is NULL) then
724:
725: x_return_status := OKC_API.G_RET_STS_SUCCESS;
726: if (p_cplv_rec.cle_id = OKC_API.G_MISS_NUM or p_cplv_rec.cle_id is NULL) then
727: IF (l_debug = 'Y') THEN
728: okc_debug.Reset_Indentation;
729: END IF;
730: return;
731: end if;
732: open l_cle_csr;
737: raise G_EXCEPTION_HALT_VALIDATION;
738: end if;
739:
740: IF (l_debug = 'Y') THEN
741: okc_debug.log('1400: Leaving validate_cle_id', 2);
742: okc_debug.Reset_Indentation;
743: END IF;
744:
745: exception
738: end if;
739:
740: IF (l_debug = 'Y') THEN
741: okc_debug.log('1400: Leaving validate_cle_id', 2);
742: okc_debug.Reset_Indentation;
743: END IF;
744:
745: exception
746: when G_EXCEPTION_HALT_VALIDATION then
745: exception
746: when G_EXCEPTION_HALT_VALIDATION then
747:
748: IF (l_debug = 'Y') THEN
749: okc_debug.log('1500: Exiting validate_cle_id:G_EXCEPTION_HALT_VALIDATION Exception', 2);
750: okc_debug.Reset_Indentation;
751: END IF;
752:
753: x_return_status := OKC_API.G_RET_STS_ERROR;
746: when G_EXCEPTION_HALT_VALIDATION then
747:
748: IF (l_debug = 'Y') THEN
749: okc_debug.log('1500: Exiting validate_cle_id:G_EXCEPTION_HALT_VALIDATION Exception', 2);
750: okc_debug.Reset_Indentation;
751: END IF;
752:
753: x_return_status := OKC_API.G_RET_STS_ERROR;
754: when OTHERS then
753: x_return_status := OKC_API.G_RET_STS_ERROR;
754: when OTHERS then
755:
756: IF (l_debug = 'Y') THEN
757: okc_debug.log('1600: Exiting validate_cle_id:OTHERS Exception', 2);
758: okc_debug.Reset_Indentation;
759: END IF;
760:
761: if l_cle_csr%ISOPEN then
754: when OTHERS then
755:
756: IF (l_debug = 'Y') THEN
757: okc_debug.log('1600: Exiting validate_cle_id:OTHERS Exception', 2);
758: okc_debug.Reset_Indentation;
759: END IF;
760:
761: if l_cle_csr%ISOPEN then
762: close l_cle_csr;
789: where id = p_cplv_rec.cpl_id;
790: begin
791:
792: IF (l_debug = 'Y') THEN
793: okc_debug.Set_Indentation('OKC_CPL_PVT');
794: okc_debug.log('1700: Entered validate_cpl_id', 2);
795: END IF;
796:
797: x_return_status := OKC_API.G_RET_STS_SUCCESS;
790: begin
791:
792: IF (l_debug = 'Y') THEN
793: okc_debug.Set_Indentation('OKC_CPL_PVT');
794: okc_debug.log('1700: Entered validate_cpl_id', 2);
795: END IF;
796:
797: x_return_status := OKC_API.G_RET_STS_SUCCESS;
798: if (p_cplv_rec.cpl_id = OKC_API.G_MISS_NUM or p_cplv_rec.cpl_id is NULL) then
797: x_return_status := OKC_API.G_RET_STS_SUCCESS;
798: if (p_cplv_rec.cpl_id = OKC_API.G_MISS_NUM or p_cplv_rec.cpl_id is NULL) then
799: x_return_status := OKC_API.G_RET_STS_SUCCESS;
800: IF (l_debug = 'Y') THEN
801: okc_debug.Reset_Indentation;
802: END IF;
803: return;
804: end if;
805: open l_cpl_csr;
810: x_return_status := OKC_API.G_RET_STS_ERROR;
811: end if;
812:
813: IF (l_debug = 'Y') THEN
814: okc_debug.log('1800: Leaving validate_cpl_id', 2);
815: okc_debug.Reset_Indentation;
816: END IF;
817:
818: exception
811: end if;
812:
813: IF (l_debug = 'Y') THEN
814: okc_debug.log('1800: Leaving validate_cpl_id', 2);
815: okc_debug.Reset_Indentation;
816: END IF;
817:
818: exception
819: when OTHERS then
818: exception
819: when OTHERS then
820:
821: IF (l_debug = 'Y') THEN
822: okc_debug.log('1900: Exiting validate_cpl_id:OTHERS Exception', 2);
823: okc_debug.Reset_Indentation;
824: END IF;
825:
826: if l_cpl_csr%ISOPEN then
819: when OTHERS then
820:
821: IF (l_debug = 'Y') THEN
822: okc_debug.log('1900: Exiting validate_cpl_id:OTHERS Exception', 2);
823: okc_debug.Reset_Indentation;
824: END IF;
825:
826: if l_cpl_csr%ISOPEN then
827: close l_cpl_csr;
854: where id = p_cplv_rec.chr_id;
855: begin
856:
857: IF (l_debug = 'Y') THEN
858: okc_debug.Set_Indentation('OKC_CPL_PVT');
859: okc_debug.log('2000: Entered validate_chr_id', 2);
860: END IF;
861:
862: x_return_status := OKC_API.G_RET_STS_SUCCESS;
855: begin
856:
857: IF (l_debug = 'Y') THEN
858: okc_debug.Set_Indentation('OKC_CPL_PVT');
859: okc_debug.log('2000: Entered validate_chr_id', 2);
860: END IF;
861:
862: x_return_status := OKC_API.G_RET_STS_SUCCESS;
863: if (p_cplv_rec.chr_id = OKC_API.G_MISS_NUM or p_cplv_rec.chr_id is NULL) then
862: x_return_status := OKC_API.G_RET_STS_SUCCESS;
863: if (p_cplv_rec.chr_id = OKC_API.G_MISS_NUM or p_cplv_rec.chr_id is NULL) then
864: x_return_status := OKC_API.G_RET_STS_SUCCESS;
865: IF (l_debug = 'Y') THEN
866: okc_debug.Reset_Indentation;
867: END IF;
868: return;
869: end if;
870: open l_chr_csr;
875: x_return_status := OKC_API.G_RET_STS_ERROR;
876: end if;
877:
878: IF (l_debug = 'Y') THEN
879: okc_debug.log('2100: Leaving validate_chr_id', 2);
880: okc_debug.Reset_Indentation;
881: END IF;
882:
883: exception
876: end if;
877:
878: IF (l_debug = 'Y') THEN
879: okc_debug.log('2100: Leaving validate_chr_id', 2);
880: okc_debug.Reset_Indentation;
881: END IF;
882:
883: exception
884: when OTHERS then
883: exception
884: when OTHERS then
885:
886: IF (l_debug = 'Y') THEN
887: okc_debug.log('2200: Exiting validate_chr_id:OTHERS Exception', 2);
888: okc_debug.Reset_Indentation;
889: END IF;
890:
891: if l_chr_csr%ISOPEN then
884: when OTHERS then
885:
886: IF (l_debug = 'Y') THEN
887: okc_debug.log('2200: Exiting validate_chr_id:OTHERS Exception', 2);
888: okc_debug.Reset_Indentation;
889: END IF;
890:
891: if l_chr_csr%ISOPEN then
892: close l_chr_csr;
975: --Bug#3101222 */
976: begin
977:
978: IF (l_debug = 'Y') THEN
979: okc_debug.Set_Indentation('OKC_CPL_PVT');
980: okc_debug.log('2300: Entered validate_rle_code', 2);
981: END IF;
982:
983: x_return_status := OKC_API.G_RET_STS_SUCCESS;
976: begin
977:
978: IF (l_debug = 'Y') THEN
979: okc_debug.Set_Indentation('OKC_CPL_PVT');
980: okc_debug.log('2300: Entered validate_rle_code', 2);
981: END IF;
982:
983: x_return_status := OKC_API.G_RET_STS_SUCCESS;
984: --1
983: x_return_status := OKC_API.G_RET_STS_SUCCESS;
984: --1
985: if (p_cplv_rec.rle_code = OKC_API.G_MISS_CHAR) then
986: IF (l_debug = 'Y') THEN
987: okc_debug.Reset_Indentation;
988: END IF;
989: return;
990: end if;
991: --2
1015: end if;
1016: --5
1017: if (p_cplv_rec.dnz_chr_id = OKC_API.G_MISS_NUM) then
1018: IF (l_debug = 'Y') THEN
1019: okc_debug.Reset_Indentation;
1020: END IF;
1021: return;
1022: end if;
1023: if (p_cplv_rec.cle_id is not NULL and p_cplv_rec.cle_id <> OKC_API.G_MISS_NUM) then
1056: END IF;
1057: --BUG#3101222
1058: */
1059: IF (l_debug = 'Y') THEN
1060: okc_debug.log('2400: Leaving validate_rle_code', 2);
1061: okc_debug.Reset_Indentation;
1062: END IF;
1063:
1064: exception
1057: --BUG#3101222
1058: */
1059: IF (l_debug = 'Y') THEN
1060: okc_debug.log('2400: Leaving validate_rle_code', 2);
1061: okc_debug.Reset_Indentation;
1062: END IF;
1063:
1064: exception
1065: when G_EXCEPTION_HALT_VALIDATION then
1064: exception
1065: when G_EXCEPTION_HALT_VALIDATION then
1066:
1067: IF (l_debug = 'Y') THEN
1068: okc_debug.log('2500: Exiting validate_rle_code:G_EXCEPTION_HALT_VALIDATION Exception', 2);
1069: okc_debug.Reset_Indentation;
1070: END IF;
1071:
1072: x_return_status := OKC_API.G_RET_STS_ERROR;
1065: when G_EXCEPTION_HALT_VALIDATION then
1066:
1067: IF (l_debug = 'Y') THEN
1068: okc_debug.log('2500: Exiting validate_rle_code:G_EXCEPTION_HALT_VALIDATION Exception', 2);
1069: okc_debug.Reset_Indentation;
1070: END IF;
1071:
1072: x_return_status := OKC_API.G_RET_STS_ERROR;
1073: when OTHERS then
1072: x_return_status := OKC_API.G_RET_STS_ERROR;
1073: when OTHERS then
1074:
1075: IF (l_debug = 'Y') THEN
1076: okc_debug.log('2600: Exiting validate_rle_code:OTHERS Exception', 2);
1077: okc_debug.Reset_Indentation;
1078: END IF;
1079:
1080: if chr_csr%ISOPEN then
1073: when OTHERS then
1074:
1075: IF (l_debug = 'Y') THEN
1076: okc_debug.log('2600: Exiting validate_rle_code:OTHERS Exception', 2);
1077: okc_debug.Reset_Indentation;
1078: END IF;
1079:
1080: if chr_csr%ISOPEN then
1081: close chr_csr;
1105: p_cplv_rec IN CPLV_REC_TYPE) is
1106: begin
1107:
1108: IF (l_debug = 'Y') THEN
1109: okc_debug.Set_Indentation('OKC_CPL_PVT');
1110: okc_debug.log('2700: Entered validate_small_business_flag', 2);
1111: END IF;
1112:
1113: if (P_CPLV_REC.small_business_flag in ('Y','N',OKC_API.G_MISS_CHAR)
1106: begin
1107:
1108: IF (l_debug = 'Y') THEN
1109: okc_debug.Set_Indentation('OKC_CPL_PVT');
1110: okc_debug.log('2700: Entered validate_small_business_flag', 2);
1111: END IF;
1112:
1113: if (P_CPLV_REC.small_business_flag in ('Y','N',OKC_API.G_MISS_CHAR)
1114: or P_CPLV_REC.small_business_flag is NULL) then
1118: x_return_status := OKC_API.G_RET_STS_ERROR;
1119: end if;
1120:
1121: IF (l_debug = 'Y') THEN
1122: okc_debug.log('2750: Leaving validate_small_bussiness_flag', 2);
1123: okc_debug.Reset_Indentation;
1124: END IF;
1125:
1126: end validate_small_business_flag;
1119: end if;
1120:
1121: IF (l_debug = 'Y') THEN
1122: okc_debug.log('2750: Leaving validate_small_bussiness_flag', 2);
1123: okc_debug.Reset_Indentation;
1124: END IF;
1125:
1126: end validate_small_business_flag;
1127:
1137: p_cplv_rec IN CPLV_REC_TYPE) is
1138: begin
1139:
1140: IF (l_debug = 'Y') THEN
1141: okc_debug.Set_Indentation('OKC_CPL_PVT');
1142: okc_debug.log('2800: Entered validate_women_owned_flag', 2);
1143: END IF;
1144:
1145: if (P_CPLV_REC.women_owned_flag in ('Y','N',OKC_API.G_MISS_CHAR)
1138: begin
1139:
1140: IF (l_debug = 'Y') THEN
1141: okc_debug.Set_Indentation('OKC_CPL_PVT');
1142: okc_debug.log('2800: Entered validate_women_owned_flag', 2);
1143: END IF;
1144:
1145: if (P_CPLV_REC.women_owned_flag in ('Y','N',OKC_API.G_MISS_CHAR)
1146: or P_CPLV_REC.women_owned_flag is NULL) then
1150: x_return_status := OKC_API.G_RET_STS_ERROR;
1151: end if;
1152:
1153: IF (l_debug = 'Y') THEN
1154: okc_debug.log('2850: Leaving validate_women_owned_flag', 2);
1155: okc_debug.Reset_Indentation;
1156: END IF;
1157:
1158: end validate_women_owned_flag;
1151: end if;
1152:
1153: IF (l_debug = 'Y') THEN
1154: okc_debug.log('2850: Leaving validate_women_owned_flag', 2);
1155: okc_debug.Reset_Indentation;
1156: END IF;
1157:
1158: end validate_women_owned_flag;
1159:
1186: ;
1187: begin
1188:
1189: IF (l_debug = 'Y') THEN
1190: okc_debug.Set_Indentation('OKC_CPL_PVT');
1191: okc_debug.log('2900: Entered validate_JTOT_OBJECT1_CODE', 2);
1192: END IF;
1193:
1194: x_return_status := OKC_API.G_RET_STS_SUCCESS;
1187: begin
1188:
1189: IF (l_debug = 'Y') THEN
1190: okc_debug.Set_Indentation('OKC_CPL_PVT');
1191: okc_debug.log('2900: Entered validate_JTOT_OBJECT1_CODE', 2);
1192: END IF;
1193:
1194: x_return_status := OKC_API.G_RET_STS_SUCCESS;
1195: if (p_cplv_rec.jtot_object1_code = OKC_API.G_MISS_CHAR or p_cplv_rec.jtot_object1_code is NULL) then
1193:
1194: x_return_status := OKC_API.G_RET_STS_SUCCESS;
1195: if (p_cplv_rec.jtot_object1_code = OKC_API.G_MISS_CHAR or p_cplv_rec.jtot_object1_code is NULL) then
1196: IF (l_debug = 'Y') THEN
1197: okc_debug.Reset_Indentation;
1198: END IF;
1199: return;
1200: end if;
1201: --
1207: x_return_status := OKC_API.G_RET_STS_ERROR;
1208: end if;
1209:
1210: IF (l_debug = 'Y') THEN
1211: okc_debug.log('3000: Leaving validate_JTOT_OBJECT1_CODE', 2);
1212: okc_debug.Reset_Indentation;
1213: END IF;
1214:
1215: exception
1208: end if;
1209:
1210: IF (l_debug = 'Y') THEN
1211: okc_debug.log('3000: Leaving validate_JTOT_OBJECT1_CODE', 2);
1212: okc_debug.Reset_Indentation;
1213: END IF;
1214:
1215: exception
1216: when OTHERS then
1215: exception
1216: when OTHERS then
1217:
1218: IF (l_debug = 'Y') THEN
1219: okc_debug.log('3100: Exiting validate_JTOT_OBJECT1_CODE:OTHERS Exception', 2);
1220: okc_debug.Reset_Indentation;
1221: END IF;
1222:
1223: if l_object1_csr%ISOPEN then
1216: when OTHERS then
1217:
1218: IF (l_debug = 'Y') THEN
1219: okc_debug.log('3100: Exiting validate_JTOT_OBJECT1_CODE:OTHERS Exception', 2);
1220: okc_debug.Reset_Indentation;
1221: END IF;
1222:
1223: if l_object1_csr%ISOPEN then
1224: close l_object1_csr;
1271:
1272: begin
1273:
1274: IF (l_debug = 'Y') THEN
1275: okc_debug.Set_Indentation('OKC_CPL_PVT');
1276: okc_debug.log('3200: Entered validate_object1_id1', 2);
1277: END IF;
1278:
1279: x_return_status := OKC_API.G_RET_STS_SUCCESS;
1272: begin
1273:
1274: IF (l_debug = 'Y') THEN
1275: okc_debug.Set_Indentation('OKC_CPL_PVT');
1276: okc_debug.log('3200: Entered validate_object1_id1', 2);
1277: END IF;
1278:
1279: x_return_status := OKC_API.G_RET_STS_SUCCESS;
1280: if (p_cplv_rec.jtot_object1_code = OKC_API.G_MISS_CHAR or p_cplv_rec.jtot_object1_code is NULL) then
1278:
1279: x_return_status := OKC_API.G_RET_STS_SUCCESS;
1280: if (p_cplv_rec.jtot_object1_code = OKC_API.G_MISS_CHAR or p_cplv_rec.jtot_object1_code is NULL) then
1281: IF (l_debug = 'Y') THEN
1282: okc_debug.log('3300: Leaving validate_object1_id1', 2);
1283: okc_debug.Reset_Indentation;
1284: END IF;
1285: return;
1286: end if;
1279: x_return_status := OKC_API.G_RET_STS_SUCCESS;
1280: if (p_cplv_rec.jtot_object1_code = OKC_API.G_MISS_CHAR or p_cplv_rec.jtot_object1_code is NULL) then
1281: IF (l_debug = 'Y') THEN
1282: okc_debug.log('3300: Leaving validate_object1_id1', 2);
1283: okc_debug.Reset_Indentation;
1284: END IF;
1285: return;
1286: end if;
1287: if (p_cplv_rec.object1_id1 = OKC_API.G_MISS_CHAR or p_cplv_rec.object1_id1 is NULL) then
1285: return;
1286: end if;
1287: if (p_cplv_rec.object1_id1 = OKC_API.G_MISS_CHAR or p_cplv_rec.object1_id1 is NULL) then
1288: IF (l_debug = 'Y') THEN
1289: okc_debug.log('3300: Leaving validate_object1_id1', 2);
1290: okc_debug.Reset_Indentation;
1291: END IF;
1292: return;
1293: end if;
1286: end if;
1287: if (p_cplv_rec.object1_id1 = OKC_API.G_MISS_CHAR or p_cplv_rec.object1_id1 is NULL) then
1288: IF (l_debug = 'Y') THEN
1289: okc_debug.log('3300: Leaving validate_object1_id1', 2);
1290: okc_debug.Reset_Indentation;
1291: END IF;
1292: return;
1293: end if;
1294: open l_object1_csr;
1302: into l_dummy_var
1303: USING p_cplv_rec.object1_id1, p_cplv_rec.object1_id2;
1304:
1305: IF (l_debug = 'Y') THEN
1306: okc_debug.log('3300: Leaving validate_object1_id1', 2);
1307: okc_debug.Reset_Indentation;
1308: END IF;
1309:
1310: exception
1303: USING p_cplv_rec.object1_id1, p_cplv_rec.object1_id2;
1304:
1305: IF (l_debug = 'Y') THEN
1306: okc_debug.log('3300: Leaving validate_object1_id1', 2);
1307: okc_debug.Reset_Indentation;
1308: END IF;
1309:
1310: exception
1311: when e_source_not_exists then
1310: exception
1311: when e_source_not_exists then
1312:
1313: IF (l_debug = 'Y') THEN
1314: okc_debug.log('3400: Exiting validate_object1_id1:e_source_not_exists Exception', 2);
1315: okc_debug.Reset_Indentation;
1316: END IF;
1317:
1318: OKC_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'JTOT_OBJECT1_CODE');
1311: when e_source_not_exists then
1312:
1313: IF (l_debug = 'Y') THEN
1314: okc_debug.log('3400: Exiting validate_object1_id1:e_source_not_exists Exception', 2);
1315: okc_debug.Reset_Indentation;
1316: END IF;
1317:
1318: OKC_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'JTOT_OBJECT1_CODE');
1319: x_return_status := OKC_API.G_RET_STS_ERROR;
1319: x_return_status := OKC_API.G_RET_STS_ERROR;
1320: when e_source_not_exists1 then
1321:
1322: IF (l_debug = 'Y') THEN
1323: okc_debug.log('3500: Exiting validate_object1_id1:e_source_not_exists1 Exception', 2);
1324: okc_debug.Reset_Indentation;
1325: END IF;
1326:
1327: OKC_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'JTOT_OBJECT1_CODE');
1320: when e_source_not_exists1 then
1321:
1322: IF (l_debug = 'Y') THEN
1323: okc_debug.log('3500: Exiting validate_object1_id1:e_source_not_exists1 Exception', 2);
1324: okc_debug.Reset_Indentation;
1325: END IF;
1326:
1327: OKC_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'JTOT_OBJECT1_CODE');
1328: x_return_status := OKC_API.G_RET_STS_ERROR;
1328: x_return_status := OKC_API.G_RET_STS_ERROR;
1329: when e_column_not_exists then
1330:
1331: IF (l_debug = 'Y') THEN
1332: okc_debug.log('3600: Exiting validate_object1_id1:e_column_not_exists Exception', 2);
1333: okc_debug.Reset_Indentation;
1334: END IF;
1335:
1336: OKC_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,l_from_table||'.ID1');
1329: when e_column_not_exists then
1330:
1331: IF (l_debug = 'Y') THEN
1332: okc_debug.log('3600: Exiting validate_object1_id1:e_column_not_exists Exception', 2);
1333: okc_debug.Reset_Indentation;
1334: END IF;
1335:
1336: OKC_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,l_from_table||'.ID1');
1337: x_return_status := OKC_API.G_RET_STS_ERROR;
1337: x_return_status := OKC_API.G_RET_STS_ERROR;
1338: when e_no_data_found then
1339:
1340: IF (l_debug = 'Y') THEN
1341: okc_debug.log('3700: Exiting validate_object1_id1:e_no_data_found Exception', 2);
1342: okc_debug.Reset_Indentation;
1343: END IF;
1344:
1345: OKC_API.set_message(G_APP_NAME , 'OKC_INVALID_PARTY');
1338: when e_no_data_found then
1339:
1340: IF (l_debug = 'Y') THEN
1341: okc_debug.log('3700: Exiting validate_object1_id1:e_no_data_found Exception', 2);
1342: okc_debug.Reset_Indentation;
1343: END IF;
1344:
1345: OKC_API.set_message(G_APP_NAME , 'OKC_INVALID_PARTY');
1346: x_return_status := OKC_API.G_RET_STS_ERROR;
1346: x_return_status := OKC_API.G_RET_STS_ERROR;
1347: when e_too_many_rows then
1348:
1349: IF (l_debug = 'Y') THEN
1350: okc_debug.log('3800: Exiting validate_object1_id1:e_too_many_rows Exception', 2);
1351: okc_debug.Reset_Indentation;
1352: END IF;
1353:
1354: OKC_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,l_from_table||'.ID1');
1347: when e_too_many_rows then
1348:
1349: IF (l_debug = 'Y') THEN
1350: okc_debug.log('3800: Exiting validate_object1_id1:e_too_many_rows Exception', 2);
1351: okc_debug.Reset_Indentation;
1352: END IF;
1353:
1354: OKC_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,l_from_table||'.ID1');
1355: x_return_status := OKC_API.G_RET_STS_ERROR;
1355: x_return_status := OKC_API.G_RET_STS_ERROR;
1356: when OTHERS then
1357:
1358: IF (l_debug = 'Y') THEN
1359: okc_debug.log('3900: Exiting validate_object1_id1:OTHERS Exception', 2);
1360: okc_debug.Reset_Indentation;
1361: END IF;
1362:
1363: if l_object1_csr%ISOPEN then
1356: when OTHERS then
1357:
1358: IF (l_debug = 'Y') THEN
1359: okc_debug.log('3900: Exiting validate_object1_id1:OTHERS Exception', 2);
1360: okc_debug.Reset_Indentation;
1361: END IF;
1362:
1363: if l_object1_csr%ISOPEN then
1364: close l_object1_csr;
1391: where id = p_cplv_rec.dnz_chr_id;
1392: begin
1393:
1394: IF (l_debug = 'Y') THEN
1395: okc_debug.Set_Indentation('OKC_CPL_PVT');
1396: okc_debug.log('4000: Entered validate_dnz_chr_id', 2);
1397: END IF;
1398:
1399: x_return_status := OKC_API.G_RET_STS_SUCCESS;
1392: begin
1393:
1394: IF (l_debug = 'Y') THEN
1395: okc_debug.Set_Indentation('OKC_CPL_PVT');
1396: okc_debug.log('4000: Entered validate_dnz_chr_id', 2);
1397: END IF;
1398:
1399: x_return_status := OKC_API.G_RET_STS_SUCCESS;
1400: if (p_cplv_rec.dnz_chr_id = OKC_API.G_MISS_NUM) then
1398:
1399: x_return_status := OKC_API.G_RET_STS_SUCCESS;
1400: if (p_cplv_rec.dnz_chr_id = OKC_API.G_MISS_NUM) then
1401: IF (l_debug = 'Y') THEN
1402: okc_debug.Reset_Indentation;
1403: END IF;
1404: return;
1405: end if;
1406: if (p_cplv_rec.dnz_chr_id is NULL) then
1409: p_token1 => G_COL_NAME_TOKEN,
1410: p_token1_value => 'DNZ_CHR_ID');
1411: x_return_status := OKC_API.G_RET_STS_ERROR;
1412: IF (l_debug = 'Y') THEN
1413: okc_debug.Reset_Indentation;
1414: END IF;
1415: return;
1416: end if;
1417: open Kt_Hr_Mj_Vr;
1420: if (l_dummy='?') then
1421: OKC_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'DNZ_CHR_ID');
1422: x_return_status := OKC_API.G_RET_STS_ERROR;
1423: IF (l_debug = 'Y') THEN
1424: okc_debug.Reset_Indentation;
1425: END IF;
1426: return;
1427: end if;
1428:
1426: return;
1427: end if;
1428:
1429: IF (l_debug = 'Y') THEN
1430: okc_debug.log('4100: Leaving validate_dnz_chr_id', 2);
1431: okc_debug.Reset_Indentation;
1432: END IF;
1433:
1434: exception
1427: end if;
1428:
1429: IF (l_debug = 'Y') THEN
1430: okc_debug.log('4100: Leaving validate_dnz_chr_id', 2);
1431: okc_debug.Reset_Indentation;
1432: END IF;
1433:
1434: exception
1435: when OTHERS then
1434: exception
1435: when OTHERS then
1436:
1437: IF (l_debug = 'Y') THEN
1438: okc_debug.log('4200: Exiting validate_dnz_chr_id:OTHERS Exception', 2);
1439: okc_debug.Reset_Indentation;
1440: END IF;
1441:
1442: OKC_API.set_message(p_app_name => g_app_name,
1435: when OTHERS then
1436:
1437: IF (l_debug = 'Y') THEN
1438: okc_debug.log('4200: Exiting validate_dnz_chr_id:OTHERS Exception', 2);
1439: okc_debug.Reset_Indentation;
1440: END IF;
1441:
1442: OKC_API.set_message(p_app_name => g_app_name,
1443: p_msg_name => g_unexpected_error,
1473:
1474:
1475: Begin
1476: IF (l_debug = 'Y') THEN
1477: okc_debug.Set_Indentation('OKC_CPL_PVT');
1478: okc_debug.log('4150: Entered validate_primary_yn', 2);
1479: END IF;
1480:
1481: -- initialize return status
1474:
1475: Begin
1476: IF (l_debug = 'Y') THEN
1477: okc_debug.Set_Indentation('OKC_CPL_PVT');
1478: okc_debug.log('4150: Entered validate_primary_yn', 2);
1479: END IF;
1480:
1481: -- initialize return status
1482: x_return_status := OKC_API.G_RET_STS_SUCCESS;
1504: IF (l_dummy='!') THEN
1505: OKC_API.set_message(G_APP_NAME,'OKC_PRIMARY_PARTY_ERROR');
1506: x_return_status := OKC_API.G_RET_STS_ERROR;
1507: IF (l_debug = 'Y') THEN
1508: okc_debug.Reset_Indentation;
1509: END IF;
1510: RETURN;
1511: END IF;
1512: END IF; --end of (p_cplv_rec.primary_yn = 'Y')
1510: RETURN;
1511: END IF;
1512: END IF; --end of (p_cplv_rec.primary_yn = 'Y')
1513: IF (l_debug = 'Y') THEN
1514: okc_debug.log('4160: Leaving validate_primary_yn', 2);
1515: okc_debug.Reset_Indentation;
1516: END IF;
1517:
1518: exception
1511: END IF;
1512: END IF; --end of (p_cplv_rec.primary_yn = 'Y')
1513: IF (l_debug = 'Y') THEN
1514: okc_debug.log('4160: Leaving validate_primary_yn', 2);
1515: okc_debug.Reset_Indentation;
1516: END IF;
1517:
1518: exception
1519: when G_EXCEPTION_HALT_VALIDATION then
1517:
1518: exception
1519: when G_EXCEPTION_HALT_VALIDATION then
1520: IF (l_debug = 'Y') THEN
1521: okc_debug.log('4170: Exiting validate_primary_yn:G_EXCEPTION_HALT_VALIDATION Exception', 2);
1522: okc_debug.Reset_Indentation;
1523: END IF;
1524:
1525: -- no processing necessary; validation can continue with next column
1518: exception
1519: when G_EXCEPTION_HALT_VALIDATION then
1520: IF (l_debug = 'Y') THEN
1521: okc_debug.log('4170: Exiting validate_primary_yn:G_EXCEPTION_HALT_VALIDATION Exception', 2);
1522: okc_debug.Reset_Indentation;
1523: END IF;
1524:
1525: -- no processing necessary; validation can continue with next column
1526: null;
1525: -- no processing necessary; validation can continue with next column
1526: null;
1527: when OTHERS then
1528: IF (l_debug = 'Y') THEN
1529: okc_debug.log('4180: Exiting validate_primary_yn:OTHERS Exception', 2);
1530: okc_debug.Reset_Indentation;
1531: END IF;
1532:
1533: -- store SQL error message on message stack
1526: null;
1527: when OTHERS then
1528: IF (l_debug = 'Y') THEN
1529: okc_debug.log('4180: Exiting validate_primary_yn:OTHERS Exception', 2);
1530: okc_debug.Reset_Indentation;
1531: END IF;
1532:
1533: -- store SQL error message on message stack
1534: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
1554: /*-------------Commented in favor of hand code------
1555: BEGIN
1556:
1557: IF (l_debug = 'Y') THEN
1558: okc_debug.Set_Indentation('OKC_CPL_PVT');
1559: okc_debug.log('4300: Entered Validate_Attributes', 2);
1560: END IF;
1561:
1562: IF p_cplv_rec.id = OKC_API.G_MISS_NUM OR
1555: BEGIN
1556:
1557: IF (l_debug = 'Y') THEN
1558: okc_debug.Set_Indentation('OKC_CPL_PVT');
1559: okc_debug.log('4300: Entered Validate_Attributes', 2);
1560: END IF;
1561:
1562: IF p_cplv_rec.id = OKC_API.G_MISS_NUM OR
1563: p_cplv_rec.id IS NULL
1581: l_return_status := OKC_API.G_RET_STS_ERROR;
1582: END IF;
1583:
1584: IF (l_debug = 'Y') THEN
1585: okc_debug.log('4100: Leaving validate_Attributes', 2);
1586: okc_debug.Reset_Indentation;
1587: END IF;
1588:
1589: RETURN(l_return_status);
1582: END IF;
1583:
1584: IF (l_debug = 'Y') THEN
1585: okc_debug.log('4100: Leaving validate_Attributes', 2);
1586: okc_debug.Reset_Indentation;
1587: END IF;
1588:
1589: RETURN(l_return_status);
1590:
1678:
1679: return x_return_status;
1680:
1681: IF (l_debug = 'Y') THEN
1682: okc_debug.log('4150: Leaving validate_Attributes', 2);
1683: okc_debug.Reset_Indentation;
1684: END IF;
1685:
1686: exception
1679: return x_return_status;
1680:
1681: IF (l_debug = 'Y') THEN
1682: okc_debug.log('4150: Leaving validate_Attributes', 2);
1683: okc_debug.Reset_Indentation;
1684: END IF;
1685:
1686: exception
1687: when OTHERS then
1759: l_row_found Boolean := False;
1760: --+UK
1761: BEGIN
1762: IF (l_debug = 'Y') THEN
1763: okc_debug.Set_Indentation('OKC_CPL_PVT');
1764: okc_debug.log('5000: Entered Validate_Record', 2);
1765: END IF;
1766: if (p_cplv_rec.chr_id IS NULL and p_cplv_rec.cle_id IS NULL) then
1767: OKC_API.set_message(g_app_name,g_required_value,g_col_name_token,'CHR_ID, CLE_ID');
1760: --+UK
1761: BEGIN
1762: IF (l_debug = 'Y') THEN
1763: okc_debug.Set_Indentation('OKC_CPL_PVT');
1764: okc_debug.log('5000: Entered Validate_Record', 2);
1765: END IF;
1766: if (p_cplv_rec.chr_id IS NULL and p_cplv_rec.cle_id IS NULL) then
1767: OKC_API.set_message(g_app_name,g_required_value,g_col_name_token,'CHR_ID, CLE_ID');
1768: l_return_status := OKC_API.G_RET_STS_ERROR;
1804: validate_JTOT_OBJECT1_CODE(x_return_status => l_return_status,
1805: p_cplv_rec => p_cplv_rec);
1806: if (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
1807: IF (l_debug = 'Y') THEN
1808: okc_debug.log('5020: Exiting Validate_jtot_object1_code in validate_record:unexp err', 2);
1809: okc_debug.Reset_Indentation;
1810: END IF;
1811: return OKC_API.G_RET_STS_UNEXP_ERROR;
1812: end if;
1805: p_cplv_rec => p_cplv_rec);
1806: if (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
1807: IF (l_debug = 'Y') THEN
1808: okc_debug.log('5020: Exiting Validate_jtot_object1_code in validate_record:unexp err', 2);
1809: okc_debug.Reset_Indentation;
1810: END IF;
1811: return OKC_API.G_RET_STS_UNEXP_ERROR;
1812: end if;
1813: if (l_return_status = OKC_API.G_RET_STS_ERROR
1818: validate_object1_id1(x_return_status => l_return_status,
1819: p_cplv_rec => p_cplv_rec);
1820: if (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
1821: IF (l_debug = 'Y') THEN
1822: okc_debug.log('5030: Exiting Validate_object1_id1 in validate_record:unexp err', 2);
1823: okc_debug.Reset_Indentation;
1824: END IF;
1825: return OKC_API.G_RET_STS_UNEXP_ERROR;
1826: end if;
1819: p_cplv_rec => p_cplv_rec);
1820: if (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
1821: IF (l_debug = 'Y') THEN
1822: okc_debug.log('5030: Exiting Validate_object1_id1 in validate_record:unexp err', 2);
1823: okc_debug.Reset_Indentation;
1824: END IF;
1825: return OKC_API.G_RET_STS_UNEXP_ERROR;
1826: end if;
1827: if (l_return_status = OKC_API.G_RET_STS_ERROR
1885: x_return_status := OKC_API.G_RET_STS_ERROR;
1886: end if; */
1887: --+UK
1888: IF (l_debug = 'Y') THEN
1889: okc_debug.log('5100: Leaving Validate_Record', 2);
1890: okc_debug.Reset_Indentation;
1891: END IF;
1892: return x_return_status;
1893: exception
1886: end if; */
1887: --+UK
1888: IF (l_debug = 'Y') THEN
1889: okc_debug.log('5100: Leaving Validate_Record', 2);
1890: okc_debug.Reset_Indentation;
1891: END IF;
1892: return x_return_status;
1893: exception
1894: when OTHERS then
2061: l_okc_k_party_roles_tl_rec okc_k_party_roles_tl_rec_type;
2062: BEGIN
2063:
2064: IF (l_debug = 'Y') THEN
2065: okc_debug.Set_Indentation('OKC_CPL_PVT');
2066: okc_debug.log('5200: Entered validate_row', 2);
2067: END IF;
2068:
2069: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
2062: BEGIN
2063:
2064: IF (l_debug = 'Y') THEN
2065: okc_debug.Set_Indentation('OKC_CPL_PVT');
2066: okc_debug.log('5200: Entered validate_row', 2);
2067: END IF;
2068:
2069: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
2070: G_PKG_NAME,
2094: END IF;
2095: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2096:
2097: IF (l_debug = 'Y') THEN
2098: okc_debug.log('5300: Leaving validate_row', 2);
2099: okc_debug.Reset_Indentation;
2100: END IF;
2101:
2102: EXCEPTION
2095: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2096:
2097: IF (l_debug = 'Y') THEN
2098: okc_debug.log('5300: Leaving validate_row', 2);
2099: okc_debug.Reset_Indentation;
2100: END IF;
2101:
2102: EXCEPTION
2103: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2102: EXCEPTION
2103: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2104:
2105: IF (l_debug = 'Y') THEN
2106: okc_debug.log('5400: Exiting validate_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
2107: okc_debug.Reset_Indentation;
2108: END IF;
2109:
2110: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2103: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2104:
2105: IF (l_debug = 'Y') THEN
2106: okc_debug.log('5400: Exiting validate_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
2107: okc_debug.Reset_Indentation;
2108: END IF;
2109:
2110: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2111: (
2118: );
2119: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2120:
2121: IF (l_debug = 'Y') THEN
2122: okc_debug.log('5500: Exiting validate_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
2123: okc_debug.Reset_Indentation;
2124: END IF;
2125:
2126: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2119: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2120:
2121: IF (l_debug = 'Y') THEN
2122: okc_debug.log('5500: Exiting validate_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
2123: okc_debug.Reset_Indentation;
2124: END IF;
2125:
2126: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2127: (
2134: );
2135: WHEN OTHERS THEN
2136:
2137: IF (l_debug = 'Y') THEN
2138: okc_debug.log('5600: Exiting validate_row:OTHERS Exception', 2);
2139: okc_debug.Reset_Indentation;
2140: END IF;
2141:
2142: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2135: WHEN OTHERS THEN
2136:
2137: IF (l_debug = 'Y') THEN
2138: okc_debug.log('5600: Exiting validate_row:OTHERS Exception', 2);
2139: okc_debug.Reset_Indentation;
2140: END IF;
2141:
2142: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2143: (
2167: i NUMBER := 0;
2168: BEGIN
2169:
2170: IF (l_debug = 'Y') THEN
2171: okc_debug.Set_Indentation('OKC_CPL_PVT');
2172: okc_debug.log('5700: Entered validate_row', 2);
2173: END IF;
2174:
2175: OKC_API.init_msg_list(p_init_msg_list);
2168: BEGIN
2169:
2170: IF (l_debug = 'Y') THEN
2171: okc_debug.Set_Indentation('OKC_CPL_PVT');
2172: okc_debug.log('5700: Entered validate_row', 2);
2173: END IF;
2174:
2175: OKC_API.init_msg_list(p_init_msg_list);
2176: -- Make sure PL/SQL table has records in it before passing
2189: END LOOP;
2190: END IF;
2191:
2192: IF (l_debug = 'Y') THEN
2193: okc_debug.log('5800: Leaving validate_row', 2);
2194: okc_debug.Reset_Indentation;
2195: END IF;
2196:
2197: EXCEPTION
2190: END IF;
2191:
2192: IF (l_debug = 'Y') THEN
2193: okc_debug.log('5800: Leaving validate_row', 2);
2194: okc_debug.Reset_Indentation;
2195: END IF;
2196:
2197: EXCEPTION
2198: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2197: EXCEPTION
2198: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2199:
2200: IF (l_debug = 'Y') THEN
2201: okc_debug.log('5900: Exiting validate_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
2202: okc_debug.Reset_Indentation;
2203: END IF;
2204:
2205: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2198: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2199:
2200: IF (l_debug = 'Y') THEN
2201: okc_debug.log('5900: Exiting validate_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
2202: okc_debug.Reset_Indentation;
2203: END IF;
2204:
2205: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2206: (
2213: );
2214: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2215:
2216: IF (l_debug = 'Y') THEN
2217: okc_debug.log('6000: Exiting validate_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
2218: okc_debug.Reset_Indentation;
2219: END IF;
2220:
2221: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2214: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2215:
2216: IF (l_debug = 'Y') THEN
2217: okc_debug.log('6000: Exiting validate_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
2218: okc_debug.Reset_Indentation;
2219: END IF;
2220:
2221: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2222: (
2229: );
2230: WHEN OTHERS THEN
2231:
2232: IF (l_debug = 'Y') THEN
2233: okc_debug.log('6100: Exiting validate_row:OTHERS Exception', 2);
2234: okc_debug.Reset_Indentation;
2235: END IF;
2236:
2237: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2230: WHEN OTHERS THEN
2231:
2232: IF (l_debug = 'Y') THEN
2233: okc_debug.log('6100: Exiting validate_row:OTHERS Exception', 2);
2234: okc_debug.Reset_Indentation;
2235: END IF;
2236:
2237: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2238: (
2303: END Set_Attributes;
2304: BEGIN
2305:
2306: IF (l_debug = 'Y') THEN
2307: okc_debug.Set_Indentation('OKC_CPL_PVT');
2308: okc_debug.log('6300: Entered insert_row', 2);
2309: END IF;
2310:
2311: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
2304: BEGIN
2305:
2306: IF (l_debug = 'Y') THEN
2307: okc_debug.Set_Indentation('OKC_CPL_PVT');
2308: okc_debug.log('6300: Entered insert_row', 2);
2309: END IF;
2310:
2311: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
2312: p_init_msg_list,
2423: x_cpl_rec := l_cpl_rec;
2424: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2425:
2426: IF (l_debug = 'Y') THEN
2427: okc_debug.log('6400: Leaving insert_row', 2);
2428: okc_debug.Reset_Indentation;
2429: END IF;
2430:
2431: EXCEPTION
2424: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2425:
2426: IF (l_debug = 'Y') THEN
2427: okc_debug.log('6400: Leaving insert_row', 2);
2428: okc_debug.Reset_Indentation;
2429: END IF;
2430:
2431: EXCEPTION
2432: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2431: EXCEPTION
2432: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2433:
2434: IF (l_debug = 'Y') THEN
2435: okc_debug.log('6500: Exiting insert_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
2436: okc_debug.Reset_Indentation;
2437: END IF;
2438:
2439: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2432: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2433:
2434: IF (l_debug = 'Y') THEN
2435: okc_debug.log('6500: Exiting insert_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
2436: okc_debug.Reset_Indentation;
2437: END IF;
2438:
2439: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2440: (
2447: );
2448: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2449:
2450: IF (l_debug = 'Y') THEN
2451: okc_debug.log('6600: Exiting insert_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
2452: okc_debug.Reset_Indentation;
2453: END IF;
2454:
2455: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2448: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2449:
2450: IF (l_debug = 'Y') THEN
2451: okc_debug.log('6600: Exiting insert_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
2452: okc_debug.Reset_Indentation;
2453: END IF;
2454:
2455: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2456: (
2463: );
2464: WHEN OTHERS THEN
2465:
2466: IF (l_debug = 'Y') THEN
2467: okc_debug.log('6700: Exiting insert_row:OTHERS Exception', 2);
2468: okc_debug.Reset_Indentation;
2469: END IF;
2470:
2471: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2464: WHEN OTHERS THEN
2465:
2466: IF (l_debug = 'Y') THEN
2467: okc_debug.log('6700: Exiting insert_row:OTHERS Exception', 2);
2468: okc_debug.Reset_Indentation;
2469: END IF;
2470:
2471: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2472: (
2517: END Set_Attributes;
2518: BEGIN
2519:
2520: IF (l_debug = 'Y') THEN
2521: okc_debug.Set_Indentation('OKC_CPL_PVT');
2522: okc_debug.log('6900: Entered insert_row', 2);
2523: END IF;
2524:
2525: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
2518: BEGIN
2519:
2520: IF (l_debug = 'Y') THEN
2521: okc_debug.Set_Indentation('OKC_CPL_PVT');
2522: okc_debug.log('6900: Entered insert_row', 2);
2523: END IF;
2524:
2525: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
2526: p_init_msg_list,
2572: x_okc_k_party_roles_tl_rec := l_okc_k_party_roles_tl_rec;
2573: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2574:
2575: IF (l_debug = 'Y') THEN
2576: okc_debug.log('7000: Leaving insert_row', 2);
2577: okc_debug.Reset_Indentation;
2578: END IF;
2579:
2580: EXCEPTION
2573: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2574:
2575: IF (l_debug = 'Y') THEN
2576: okc_debug.log('7000: Leaving insert_row', 2);
2577: okc_debug.Reset_Indentation;
2578: END IF;
2579:
2580: EXCEPTION
2581: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2580: EXCEPTION
2581: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2582:
2583: IF (l_debug = 'Y') THEN
2584: okc_debug.log('7100: Exiting insert_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
2585: okc_debug.Reset_Indentation;
2586: END IF;
2587:
2588: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2581: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2582:
2583: IF (l_debug = 'Y') THEN
2584: okc_debug.log('7100: Exiting insert_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
2585: okc_debug.Reset_Indentation;
2586: END IF;
2587:
2588: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2589: (
2596: );
2597: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2598:
2599: IF (l_debug = 'Y') THEN
2600: okc_debug.log('7200: Exiting insert_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
2601: okc_debug.Reset_Indentation;
2602: END IF;
2603:
2604: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2597: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2598:
2599: IF (l_debug = 'Y') THEN
2600: okc_debug.log('7200: Exiting insert_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
2601: okc_debug.Reset_Indentation;
2602: END IF;
2603:
2604: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2605: (
2612: );
2613: WHEN OTHERS THEN
2614:
2615: IF (l_debug = 'Y') THEN
2616: okc_debug.log('7300: Exiting insert_row:OTHERS Exception', 2);
2617: okc_debug.Reset_Indentation;
2618: END IF;
2619:
2620: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2613: WHEN OTHERS THEN
2614:
2615: IF (l_debug = 'Y') THEN
2616: okc_debug.log('7300: Exiting insert_row:OTHERS Exception', 2);
2617: okc_debug.Reset_Indentation;
2618: END IF;
2619:
2620: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2621: (
2686: END Set_Attributes;
2687: BEGIN
2688:
2689: IF (l_debug = 'Y') THEN
2690: okc_debug.Set_Indentation('OKC_CPL_PVT');
2691: okc_debug.log('7600: Entered insert_row', 2);
2692: END IF;
2693:
2694: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
2687: BEGIN
2688:
2689: IF (l_debug = 'Y') THEN
2690: okc_debug.Set_Indentation('OKC_CPL_PVT');
2691: okc_debug.log('7600: Entered insert_row', 2);
2692: END IF;
2693:
2694: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
2695: G_PKG_NAME,
2771: x_cplv_rec := l_def_cplv_rec;
2772: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2773:
2774: IF (l_debug = 'Y') THEN
2775: okc_debug.log('7700: Leaving insert_row', 2);
2776: okc_debug.Reset_Indentation;
2777: END IF;
2778:
2779: EXCEPTION
2772: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2773:
2774: IF (l_debug = 'Y') THEN
2775: okc_debug.log('7700: Leaving insert_row', 2);
2776: okc_debug.Reset_Indentation;
2777: END IF;
2778:
2779: EXCEPTION
2780: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2779: EXCEPTION
2780: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2781:
2782: IF (l_debug = 'Y') THEN
2783: okc_debug.log('7800: Exiting insert_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
2784: okc_debug.Reset_Indentation;
2785: END IF;
2786:
2787: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2780: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2781:
2782: IF (l_debug = 'Y') THEN
2783: okc_debug.log('7800: Exiting insert_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
2784: okc_debug.Reset_Indentation;
2785: END IF;
2786:
2787: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2788: (
2795: );
2796: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2797:
2798: IF (l_debug = 'Y') THEN
2799: okc_debug.log('7900: Exiting insert_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
2800: okc_debug.Reset_Indentation;
2801: END IF;
2802:
2803: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2796: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2797:
2798: IF (l_debug = 'Y') THEN
2799: okc_debug.log('7900: Exiting insert_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
2800: okc_debug.Reset_Indentation;
2801: END IF;
2802:
2803: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2804: (
2811: );
2812: WHEN OTHERS THEN
2813:
2814: IF (l_debug = 'Y') THEN
2815: okc_debug.log('8000: Exiting insert_row:OTHERS Exception', 2);
2816: okc_debug.Reset_Indentation;
2817: END IF;
2818:
2819: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2812: WHEN OTHERS THEN
2813:
2814: IF (l_debug = 'Y') THEN
2815: okc_debug.log('8000: Exiting insert_row:OTHERS Exception', 2);
2816: okc_debug.Reset_Indentation;
2817: END IF;
2818:
2819: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2820: (
2845: i NUMBER := 0;
2846: BEGIN
2847:
2848: IF (l_debug = 'Y') THEN
2849: okc_debug.Set_Indentation('OKC_CPL_PVT');
2850: okc_debug.log('8100: Entered insert_row', 2);
2851: END IF;
2852:
2853: OKC_API.init_msg_list(p_init_msg_list);
2846: BEGIN
2847:
2848: IF (l_debug = 'Y') THEN
2849: okc_debug.Set_Indentation('OKC_CPL_PVT');
2850: okc_debug.log('8100: Entered insert_row', 2);
2851: END IF;
2852:
2853: OKC_API.init_msg_list(p_init_msg_list);
2854: -- Make sure PL/SQL table has records in it before passing
2868: END LOOP;
2869: END IF;
2870:
2871: IF (l_debug = 'Y') THEN
2872: okc_debug.log('8200: Leaving insert_row', 2);
2873: okc_debug.Reset_Indentation;
2874: END IF;
2875:
2876: EXCEPTION
2869: END IF;
2870:
2871: IF (l_debug = 'Y') THEN
2872: okc_debug.log('8200: Leaving insert_row', 2);
2873: okc_debug.Reset_Indentation;
2874: END IF;
2875:
2876: EXCEPTION
2877: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2876: EXCEPTION
2877: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2878:
2879: IF (l_debug = 'Y') THEN
2880: okc_debug.log('8300: Exiting insert_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
2881: okc_debug.Reset_Indentation;
2882: END IF;
2883:
2884: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2877: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2878:
2879: IF (l_debug = 'Y') THEN
2880: okc_debug.log('8300: Exiting insert_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
2881: okc_debug.Reset_Indentation;
2882: END IF;
2883:
2884: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2885: (
2892: );
2893: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2894:
2895: IF (l_debug = 'Y') THEN
2896: okc_debug.log('8400: Exiting insert_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
2897: okc_debug.Reset_Indentation;
2898: END IF;
2899:
2900: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2893: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2894:
2895: IF (l_debug = 'Y') THEN
2896: okc_debug.log('8400: Exiting insert_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
2897: okc_debug.Reset_Indentation;
2898: END IF;
2899:
2900: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2901: (
2908: );
2909: WHEN OTHERS THEN
2910:
2911: IF (l_debug = 'Y') THEN
2912: okc_debug.log('8500: Exiting insert_row:OTHERS Exception', 2);
2913: okc_debug.Reset_Indentation;
2914: END IF;
2915:
2916: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2909: WHEN OTHERS THEN
2910:
2911: IF (l_debug = 'Y') THEN
2912: okc_debug.log('8500: Exiting insert_row:OTHERS Exception', 2);
2913: okc_debug.Reset_Indentation;
2914: END IF;
2915:
2916: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2917: (
2960: lc_row_notfound BOOLEAN := FALSE;
2961: BEGIN
2962:
2963: IF (l_debug = 'Y') THEN
2964: okc_debug.Set_Indentation('OKC_CPL_PVT');
2965: okc_debug.log('8600: Entered lock_row', 2);
2966: END IF;
2967:
2968: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
2961: BEGIN
2962:
2963: IF (l_debug = 'Y') THEN
2964: okc_debug.Set_Indentation('OKC_CPL_PVT');
2965: okc_debug.log('8600: Entered lock_row', 2);
2966: END IF;
2967:
2968: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
2969: p_init_msg_list,
2976: END IF;
2977: BEGIN
2978:
2979: IF (l_debug = 'Y') THEN
2980: okc_debug.Set_Indentation('OKC_CPL_PVT');
2981: okc_debug.log('8700: Entered lock_row', 2);
2982: END IF;
2983:
2984: OPEN lock_csr(p_cpl_rec);
2977: BEGIN
2978:
2979: IF (l_debug = 'Y') THEN
2980: okc_debug.Set_Indentation('OKC_CPL_PVT');
2981: okc_debug.log('8700: Entered lock_row', 2);
2982: END IF;
2983:
2984: OPEN lock_csr(p_cpl_rec);
2985: FETCH lock_csr INTO l_object_version_number;
2986: l_row_notfound := lock_csr%NOTFOUND;
2987: CLOSE lock_csr;
2988:
2989: IF (l_debug = 'Y') THEN
2990: okc_debug.log('8800: Leaving lock_row', 2);
2991: okc_debug.Reset_Indentation;
2992: END IF;
2993:
2994: EXCEPTION
2987: CLOSE lock_csr;
2988:
2989: IF (l_debug = 'Y') THEN
2990: okc_debug.log('8800: Leaving lock_row', 2);
2991: okc_debug.Reset_Indentation;
2992: END IF;
2993:
2994: EXCEPTION
2995: WHEN E_Resource_Busy THEN
2994: EXCEPTION
2995: WHEN E_Resource_Busy THEN
2996:
2997: IF (l_debug = 'Y') THEN
2998: okc_debug.log('8900: Exiting lock_row:E_Resource_Busy Exception', 2);
2999: okc_debug.Reset_Indentation;
3000: END IF;
3001:
3002: IF (lock_csr%ISOPEN) THEN
2995: WHEN E_Resource_Busy THEN
2996:
2997: IF (l_debug = 'Y') THEN
2998: okc_debug.log('8900: Exiting lock_row:E_Resource_Busy Exception', 2);
2999: okc_debug.Reset_Indentation;
3000: END IF;
3001:
3002: IF (lock_csr%ISOPEN) THEN
3003: CLOSE lock_csr;
3027: END IF;
3028: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3029:
3030: IF (l_debug = 'Y') THEN
3031: okc_debug.log('9000: Leaving lock_row', 2);
3032: okc_debug.Reset_Indentation;
3033: END IF;
3034:
3035: EXCEPTION
3028: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3029:
3030: IF (l_debug = 'Y') THEN
3031: okc_debug.log('9000: Leaving lock_row', 2);
3032: okc_debug.Reset_Indentation;
3033: END IF;
3034:
3035: EXCEPTION
3036: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3035: EXCEPTION
3036: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3037:
3038: IF (l_debug = 'Y') THEN
3039: okc_debug.log('9100: Exiting lock_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
3040: okc_debug.Reset_Indentation;
3041: END IF;
3042:
3043: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3036: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3037:
3038: IF (l_debug = 'Y') THEN
3039: okc_debug.log('9100: Exiting lock_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
3040: okc_debug.Reset_Indentation;
3041: END IF;
3042:
3043: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3044: (
3051: );
3052: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3053:
3054: IF (l_debug = 'Y') THEN
3055: okc_debug.log('9200: Exiting lock_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
3056: okc_debug.Reset_Indentation;
3057: END IF;
3058:
3059: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3052: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3053:
3054: IF (l_debug = 'Y') THEN
3055: okc_debug.log('9200: Exiting lock_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
3056: okc_debug.Reset_Indentation;
3057: END IF;
3058:
3059: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3060: (
3067: );
3068: WHEN OTHERS THEN
3069:
3070: IF (l_debug = 'Y') THEN
3071: okc_debug.log('9300: Exiting lock_row:OTHERS Exception', 2);
3072: okc_debug.Reset_Indentation;
3073: END IF;
3074:
3075: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3068: WHEN OTHERS THEN
3069:
3070: IF (l_debug = 'Y') THEN
3071: okc_debug.log('9300: Exiting lock_row:OTHERS Exception', 2);
3072: okc_debug.Reset_Indentation;
3073: END IF;
3074:
3075: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3076: (
3109: lc_row_notfound BOOLEAN := FALSE;
3110: BEGIN
3111:
3112: IF (l_debug = 'Y') THEN
3113: okc_debug.Set_Indentation('OKC_CPL_PVT');
3114: okc_debug.log('9400: Entered lock_row', 2);
3115: END IF;
3116:
3117: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
3110: BEGIN
3111:
3112: IF (l_debug = 'Y') THEN
3113: okc_debug.Set_Indentation('OKC_CPL_PVT');
3114: okc_debug.log('9400: Entered lock_row', 2);
3115: END IF;
3116:
3117: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
3118: p_init_msg_list,
3125: END IF;
3126: BEGIN
3127:
3128: IF (l_debug = 'Y') THEN
3129: okc_debug.Set_Indentation('OKC_CPL_PVT');
3130: okc_debug.log('9500: Entered lock_row', 2);
3131: END IF;
3132:
3133: OPEN lock_csr(p_okc_k_party_roles_tl_rec);
3126: BEGIN
3127:
3128: IF (l_debug = 'Y') THEN
3129: okc_debug.Set_Indentation('OKC_CPL_PVT');
3130: okc_debug.log('9500: Entered lock_row', 2);
3131: END IF;
3132:
3133: OPEN lock_csr(p_okc_k_party_roles_tl_rec);
3134: FETCH lock_csr INTO l_lock_var;
3135: l_row_notfound := lock_csr%NOTFOUND;
3136: CLOSE lock_csr;
3137:
3138: IF (l_debug = 'Y') THEN
3139: okc_debug.log('9600: Exiting lock_row', 2);
3140: okc_debug.Reset_Indentation;
3141: END IF;
3142:
3143: EXCEPTION
3136: CLOSE lock_csr;
3137:
3138: IF (l_debug = 'Y') THEN
3139: okc_debug.log('9600: Exiting lock_row', 2);
3140: okc_debug.Reset_Indentation;
3141: END IF;
3142:
3143: EXCEPTION
3144: WHEN E_Resource_Busy THEN
3143: EXCEPTION
3144: WHEN E_Resource_Busy THEN
3145:
3146: IF (l_debug = 'Y') THEN
3147: okc_debug.log('9700: Exiting lock_row:E_Resource_Busy Exception', 2);
3148: okc_debug.Reset_Indentation;
3149: END IF;
3150:
3151: IF (lock_csr%ISOPEN) THEN
3144: WHEN E_Resource_Busy THEN
3145:
3146: IF (l_debug = 'Y') THEN
3147: okc_debug.log('9700: Exiting lock_row:E_Resource_Busy Exception', 2);
3148: okc_debug.Reset_Indentation;
3149: END IF;
3150:
3151: IF (lock_csr%ISOPEN) THEN
3152: CLOSE lock_csr;
3161: END IF;
3162: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3163:
3164: IF (l_debug = 'Y') THEN
3165: okc_debug.log('9800: Exiting lock_row', 2);
3166: okc_debug.Reset_Indentation;
3167: END IF;
3168:
3169: EXCEPTION
3162: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3163:
3164: IF (l_debug = 'Y') THEN
3165: okc_debug.log('9800: Exiting lock_row', 2);
3166: okc_debug.Reset_Indentation;
3167: END IF;
3168:
3169: EXCEPTION
3170: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3169: EXCEPTION
3170: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3171:
3172: IF (l_debug = 'Y') THEN
3173: okc_debug.log('9900: Exiting lock_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
3174: okc_debug.Reset_Indentation;
3175: END IF;
3176:
3177: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3170: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3171:
3172: IF (l_debug = 'Y') THEN
3173: okc_debug.log('9900: Exiting lock_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
3174: okc_debug.Reset_Indentation;
3175: END IF;
3176:
3177: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3178: (
3185: );
3186: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3187:
3188: IF (l_debug = 'Y') THEN
3189: okc_debug.log('10000: Exiting lock_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
3190: okc_debug.Reset_Indentation;
3191: END IF;
3192:
3193: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3186: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3187:
3188: IF (l_debug = 'Y') THEN
3189: okc_debug.log('10000: Exiting lock_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
3190: okc_debug.Reset_Indentation;
3191: END IF;
3192:
3193: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3194: (
3201: );
3202: WHEN OTHERS THEN
3203:
3204: IF (l_debug = 'Y') THEN
3205: okc_debug.log('10100: Exiting lock_row:OTHERS Exception', 2);
3206: okc_debug.Reset_Indentation;
3207: END IF;
3208:
3209: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3202: WHEN OTHERS THEN
3203:
3204: IF (l_debug = 'Y') THEN
3205: okc_debug.log('10100: Exiting lock_row:OTHERS Exception', 2);
3206: okc_debug.Reset_Indentation;
3207: END IF;
3208:
3209: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3210: (
3235: l_okc_k_party_roles_tl_rec okc_k_party_roles_tl_rec_type;
3236: BEGIN
3237:
3238: IF (l_debug = 'Y') THEN
3239: okc_debug.Set_Indentation('OKC_CPL_PVT');
3240: okc_debug.log('10200: Entered lock_row', 2);
3241: END IF;
3242:
3243: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
3236: BEGIN
3237:
3238: IF (l_debug = 'Y') THEN
3239: okc_debug.Set_Indentation('OKC_CPL_PVT');
3240: okc_debug.log('10200: Entered lock_row', 2);
3241: END IF;
3242:
3243: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
3244: G_PKG_NAME,
3286: END IF;
3287: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3288:
3289: IF (l_debug = 'Y') THEN
3290: okc_debug.log('10300: Leaving lock_row', 2);
3291: okc_debug.Reset_Indentation;
3292: END IF;
3293:
3294: EXCEPTION
3287: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3288:
3289: IF (l_debug = 'Y') THEN
3290: okc_debug.log('10300: Leaving lock_row', 2);
3291: okc_debug.Reset_Indentation;
3292: END IF;
3293:
3294: EXCEPTION
3295: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3294: EXCEPTION
3295: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3296:
3297: IF (l_debug = 'Y') THEN
3298: okc_debug.log('10400: Exiting lock_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
3299: okc_debug.Reset_Indentation;
3300: END IF;
3301:
3302: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3295: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3296:
3297: IF (l_debug = 'Y') THEN
3298: okc_debug.log('10400: Exiting lock_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
3299: okc_debug.Reset_Indentation;
3300: END IF;
3301:
3302: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3303: (
3310: );
3311: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3312:
3313: IF (l_debug = 'Y') THEN
3314: okc_debug.log('10500: Exiting lock_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
3315: okc_debug.Reset_Indentation;
3316: END IF;
3317:
3318: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3311: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3312:
3313: IF (l_debug = 'Y') THEN
3314: okc_debug.log('10500: Exiting lock_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
3315: okc_debug.Reset_Indentation;
3316: END IF;
3317:
3318: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3319: (
3326: );
3327: WHEN OTHERS THEN
3328:
3329: IF (l_debug = 'Y') THEN
3330: okc_debug.log('10600: Exiting lock_row:OTHERS Exception', 2);
3331: okc_debug.Reset_Indentation;
3332: END IF;
3333:
3334: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3327: WHEN OTHERS THEN
3328:
3329: IF (l_debug = 'Y') THEN
3330: okc_debug.log('10600: Exiting lock_row:OTHERS Exception', 2);
3331: okc_debug.Reset_Indentation;
3332: END IF;
3333:
3334: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3335: (
3359: i NUMBER := 0;
3360: BEGIN
3361:
3362: IF (l_debug = 'Y') THEN
3363: okc_debug.Set_Indentation('OKC_CPL_PVT');
3364: okc_debug.log('10700: Entered lock_row', 2);
3365: END IF;
3366:
3367: OKC_API.init_msg_list(p_init_msg_list);
3360: BEGIN
3361:
3362: IF (l_debug = 'Y') THEN
3363: okc_debug.Set_Indentation('OKC_CPL_PVT');
3364: okc_debug.log('10700: Entered lock_row', 2);
3365: END IF;
3366:
3367: OKC_API.init_msg_list(p_init_msg_list);
3368: -- Make sure PL/SQL table has records in it before passing
3381: END LOOP;
3382: END IF;
3383:
3384: IF (l_debug = 'Y') THEN
3385: okc_debug.log('10800: Leaving lock_row', 2);
3386: okc_debug.Reset_Indentation;
3387: END IF;
3388:
3389: EXCEPTION
3382: END IF;
3383:
3384: IF (l_debug = 'Y') THEN
3385: okc_debug.log('10800: Leaving lock_row', 2);
3386: okc_debug.Reset_Indentation;
3387: END IF;
3388:
3389: EXCEPTION
3390: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3389: EXCEPTION
3390: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3391:
3392: IF (l_debug = 'Y') THEN
3393: okc_debug.log('10900: Exiting lock_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
3394: okc_debug.Reset_Indentation;
3395: END IF;
3396:
3397: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3390: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3391:
3392: IF (l_debug = 'Y') THEN
3393: okc_debug.log('10900: Exiting lock_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
3394: okc_debug.Reset_Indentation;
3395: END IF;
3396:
3397: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3398: (
3405: );
3406: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3407:
3408: IF (l_debug = 'Y') THEN
3409: okc_debug.log('11000: Exiting lock_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
3410: okc_debug.Reset_Indentation;
3411: END IF;
3412:
3413: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3406: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3407:
3408: IF (l_debug = 'Y') THEN
3409: okc_debug.log('11000: Exiting lock_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
3410: okc_debug.Reset_Indentation;
3411: END IF;
3412:
3413: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3414: (
3421: );
3422: WHEN OTHERS THEN
3423:
3424: IF (l_debug = 'Y') THEN
3425: okc_debug.log('11100: Exiting lock_row:OTHERS Exception', 2);
3426: okc_debug.Reset_Indentation;
3427: END IF;
3428:
3429: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3422: WHEN OTHERS THEN
3423:
3424: IF (l_debug = 'Y') THEN
3425: okc_debug.log('11100: Exiting lock_row:OTHERS Exception', 2);
3426: okc_debug.Reset_Indentation;
3427: END IF;
3428:
3429: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3430: (
3470: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3471: BEGIN
3472:
3473: IF (l_debug = 'Y') THEN
3474: okc_debug.Set_Indentation('OKC_CPL_PVT');
3475: okc_debug.log('11200: Entered populate_new_record', 2);
3476: END IF;
3477:
3478: x_cpl_rec := p_cpl_rec;
3471: BEGIN
3472:
3473: IF (l_debug = 'Y') THEN
3474: okc_debug.Set_Indentation('OKC_CPL_PVT');
3475: okc_debug.log('11200: Entered populate_new_record', 2);
3476: END IF;
3477:
3478: x_cpl_rec := p_cpl_rec;
3479: -- Get current database values
3653: END IF;
3654: -- R12 Data Model Changes 4485150 End
3655:
3656: IF (l_debug = 'Y') THEN
3657: okc_debug.log('11350: Leaving populate_new_record ', 2);
3658: okc_debug.Reset_Indentation;
3659: END IF;
3660:
3661: RETURN(l_return_status);
3654: -- R12 Data Model Changes 4485150 End
3655:
3656: IF (l_debug = 'Y') THEN
3657: okc_debug.log('11350: Leaving populate_new_record ', 2);
3658: okc_debug.Reset_Indentation;
3659: END IF;
3660:
3661: RETURN(l_return_status);
3662:
3678: -------------------------------------
3679: BEGIN
3680:
3681: IF (l_debug = 'Y') THEN
3682: okc_debug.Set_Indentation('OKC_CPL_PVT');
3683: okc_debug.log('11400: Entered update_row', 2);
3684: END IF;
3685:
3686: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
3679: BEGIN
3680:
3681: IF (l_debug = 'Y') THEN
3682: okc_debug.Set_Indentation('OKC_CPL_PVT');
3683: okc_debug.log('11400: Entered update_row', 2);
3684: END IF;
3685:
3686: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
3687: p_init_msg_list,
3756: x_cpl_rec := l_def_cpl_rec;
3757: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3758:
3759: IF (l_debug = 'Y') THEN
3760: okc_debug.log('11500: Leaving update_row', 2);
3761: okc_debug.Reset_Indentation;
3762: END IF;
3763:
3764: EXCEPTION
3757: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3758:
3759: IF (l_debug = 'Y') THEN
3760: okc_debug.log('11500: Leaving update_row', 2);
3761: okc_debug.Reset_Indentation;
3762: END IF;
3763:
3764: EXCEPTION
3765: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3764: EXCEPTION
3765: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3766:
3767: IF (l_debug = 'Y') THEN
3768: okc_debug.log('11600: Exiting update_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
3769: okc_debug.Reset_Indentation;
3770: END IF;
3771:
3772: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3765: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3766:
3767: IF (l_debug = 'Y') THEN
3768: okc_debug.log('11600: Exiting update_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
3769: okc_debug.Reset_Indentation;
3770: END IF;
3771:
3772: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3773: (
3780: );
3781: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3782:
3783: IF (l_debug = 'Y') THEN
3784: okc_debug.log('11700: Exiting update_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
3785: okc_debug.Reset_Indentation;
3786: END IF;
3787:
3788: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3781: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3782:
3783: IF (l_debug = 'Y') THEN
3784: okc_debug.log('11700: Exiting update_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
3785: okc_debug.Reset_Indentation;
3786: END IF;
3787:
3788: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3789: (
3796: );
3797: WHEN OTHERS THEN
3798:
3799: IF (l_debug = 'Y') THEN
3800: okc_debug.log('11800: Exiting update_row:OTHERS Exception', 2);
3801: okc_debug.Reset_Indentation;
3802: END IF;
3803:
3804: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3797: WHEN OTHERS THEN
3798:
3799: IF (l_debug = 'Y') THEN
3800: okc_debug.log('11800: Exiting update_row:OTHERS Exception', 2);
3801: okc_debug.Reset_Indentation;
3802: END IF;
3803:
3804: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3805: (
3841: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3842: BEGIN
3843:
3844: IF (l_debug = 'Y') THEN
3845: okc_debug.Set_Indentation('OKC_CPL_PVT');
3846: okc_debug.log('11900: Entered populate_new_record', 2);
3847: END IF;
3848:
3849: x_okc_k_party_roles_tl_rec := p_okc_k_party_roles_tl_rec;
3842: BEGIN
3843:
3844: IF (l_debug = 'Y') THEN
3845: okc_debug.Set_Indentation('OKC_CPL_PVT');
3846: okc_debug.log('11900: Entered populate_new_record', 2);
3847: END IF;
3848:
3849: x_okc_k_party_roles_tl_rec := p_okc_k_party_roles_tl_rec;
3850: -- Get current database values
3897: x_okc_k_party_roles_tl_rec.last_update_login := l_okc_k_party_roles_tl_rec.last_update_login;
3898: END IF;
3899:
3900: IF (l_debug = 'Y') THEN
3901: okc_debug.log('11950: Leaving populate_new_record ', 2);
3902: okc_debug.Reset_Indentation;
3903: END IF;
3904:
3905: RETURN(l_return_status);
3898: END IF;
3899:
3900: IF (l_debug = 'Y') THEN
3901: okc_debug.log('11950: Leaving populate_new_record ', 2);
3902: okc_debug.Reset_Indentation;
3903: END IF;
3904:
3905: RETURN(l_return_status);
3906:
3924: END Set_Attributes;
3925: BEGIN
3926:
3927: IF (l_debug = 'Y') THEN
3928: okc_debug.Set_Indentation('OKC_CPL_PVT');
3929: okc_debug.log('12100: Entered update_row', 2);
3930: END IF;
3931:
3932: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
3925: BEGIN
3926:
3927: IF (l_debug = 'Y') THEN
3928: okc_debug.Set_Indentation('OKC_CPL_PVT');
3929: okc_debug.log('12100: Entered update_row', 2);
3930: END IF;
3931:
3932: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
3933: p_init_msg_list,
3978: x_okc_k_party_roles_tl_rec := ldefokckpartyrolestlrec;
3979: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3980:
3981: IF (l_debug = 'Y') THEN
3982: okc_debug.log('12200: Leaving update_row', 2);
3983: okc_debug.Reset_Indentation;
3984: END IF;
3985:
3986: EXCEPTION
3979: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3980:
3981: IF (l_debug = 'Y') THEN
3982: okc_debug.log('12200: Leaving update_row', 2);
3983: okc_debug.Reset_Indentation;
3984: END IF;
3985:
3986: EXCEPTION
3987: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3986: EXCEPTION
3987: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3988:
3989: IF (l_debug = 'Y') THEN
3990: okc_debug.log('12300: Exiting update_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
3991: okc_debug.Reset_Indentation;
3992: END IF;
3993:
3994: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3987: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3988:
3989: IF (l_debug = 'Y') THEN
3990: okc_debug.log('12300: Exiting update_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
3991: okc_debug.Reset_Indentation;
3992: END IF;
3993:
3994: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3995: (
4002: );
4003: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4004:
4005: IF (l_debug = 'Y') THEN
4006: okc_debug.log('12400: Exiting update_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
4007: okc_debug.Reset_Indentation;
4008: END IF;
4009:
4010: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
4003: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4004:
4005: IF (l_debug = 'Y') THEN
4006: okc_debug.log('12400: Exiting update_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
4007: okc_debug.Reset_Indentation;
4008: END IF;
4009:
4010: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
4011: (
4018: );
4019: WHEN OTHERS THEN
4020:
4021: IF (l_debug = 'Y') THEN
4022: okc_debug.log('12500: Exiting update_row:OTHERS Exception', 2);
4023: okc_debug.Reset_Indentation;
4024: END IF;
4025:
4026: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
4019: WHEN OTHERS THEN
4020:
4021: IF (l_debug = 'Y') THEN
4022: okc_debug.log('12500: Exiting update_row:OTHERS Exception', 2);
4023: okc_debug.Reset_Indentation;
4024: END IF;
4025:
4026: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
4027: (
4083: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
4084: BEGIN
4085:
4086: IF (l_debug = 'Y') THEN
4087: okc_debug.Set_Indentation('OKC_CPL_PVT');
4088: okc_debug.log('12700: Entered populate_new_record', 2);
4089: END IF;
4090:
4091: x_cplv_rec := p_cplv_rec;
4084: BEGIN
4085:
4086: IF (l_debug = 'Y') THEN
4087: okc_debug.Set_Indentation('OKC_CPL_PVT');
4088: okc_debug.log('12700: Entered populate_new_record', 2);
4089: END IF;
4090:
4091: x_cplv_rec := p_cplv_rec;
4092: -- Get current database values
4263: x_cplv_rec.last_update_login := l_cplv_rec.last_update_login;
4264: END IF;
4265:
4266: IF (l_debug = 'Y') THEN
4267: okc_debug.log('12750: Leaving populate_new_record ', 2);
4268: okc_debug.Reset_Indentation;
4269: END IF;
4270:
4271: RETURN(l_return_status);
4264: END IF;
4265:
4266: IF (l_debug = 'Y') THEN
4267: okc_debug.log('12750: Leaving populate_new_record ', 2);
4268: okc_debug.Reset_Indentation;
4269: END IF;
4270:
4271: RETURN(l_return_status);
4272:
4288: END Set_Attributes;
4289: BEGIN
4290:
4291: IF (l_debug = 'Y') THEN
4292: okc_debug.Set_Indentation('OKC_CPL_PVT');
4293: okc_debug.log('12900: Entered update_row', 2);
4294: END IF;
4295:
4296: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
4289: BEGIN
4290:
4291: IF (l_debug = 'Y') THEN
4292: okc_debug.Set_Indentation('OKC_CPL_PVT');
4293: okc_debug.log('12900: Entered update_row', 2);
4294: END IF;
4295:
4296: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
4297: G_PKG_NAME,
4376: x_cplv_rec := l_def_cplv_rec;
4377: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
4378:
4379: IF (l_debug = 'Y') THEN
4380: okc_debug.log('13000: Leaving update_row', 2);
4381: okc_debug.Reset_Indentation;
4382: END IF;
4383:
4384: EXCEPTION
4377: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
4378:
4379: IF (l_debug = 'Y') THEN
4380: okc_debug.log('13000: Leaving update_row', 2);
4381: okc_debug.Reset_Indentation;
4382: END IF;
4383:
4384: EXCEPTION
4385: WHEN OKC_API.G_EXCEPTION_ERROR THEN
4384: EXCEPTION
4385: WHEN OKC_API.G_EXCEPTION_ERROR THEN
4386:
4387: IF (l_debug = 'Y') THEN
4388: okc_debug.log('13100: Exiting update_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
4389: okc_debug.Reset_Indentation;
4390: END IF;
4391:
4392: x_return_status := OKC_API.HANDLE_EXCEPTIONS
4385: WHEN OKC_API.G_EXCEPTION_ERROR THEN
4386:
4387: IF (l_debug = 'Y') THEN
4388: okc_debug.log('13100: Exiting update_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
4389: okc_debug.Reset_Indentation;
4390: END IF;
4391:
4392: x_return_status := OKC_API.HANDLE_EXCEPTIONS
4393: (
4400: );
4401: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4402:
4403: IF (l_debug = 'Y') THEN
4404: okc_debug.log('13200: Exiting update_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
4405: okc_debug.Reset_Indentation;
4406: END IF;
4407:
4408: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
4401: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4402:
4403: IF (l_debug = 'Y') THEN
4404: okc_debug.log('13200: Exiting update_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
4405: okc_debug.Reset_Indentation;
4406: END IF;
4407:
4408: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
4409: (
4416: );
4417: WHEN OTHERS THEN
4418:
4419: IF (l_debug = 'Y') THEN
4420: okc_debug.log('13300: Exiting update_row:OTHERS Exception', 2);
4421: okc_debug.Reset_Indentation;
4422: END IF;
4423:
4424: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
4417: WHEN OTHERS THEN
4418:
4419: IF (l_debug = 'Y') THEN
4420: okc_debug.log('13300: Exiting update_row:OTHERS Exception', 2);
4421: okc_debug.Reset_Indentation;
4422: END IF;
4423:
4424: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
4425: (
4450: i NUMBER := 0;
4451: BEGIN
4452:
4453: IF (l_debug = 'Y') THEN
4454: okc_debug.Set_Indentation('OKC_CPL_PVT');
4455: okc_debug.log('13400: Entered update_row', 2);
4456: END IF;
4457:
4458: OKC_API.init_msg_list(p_init_msg_list);
4451: BEGIN
4452:
4453: IF (l_debug = 'Y') THEN
4454: okc_debug.Set_Indentation('OKC_CPL_PVT');
4455: okc_debug.log('13400: Entered update_row', 2);
4456: END IF;
4457:
4458: OKC_API.init_msg_list(p_init_msg_list);
4459: -- Make sure PL/SQL table has records in it before passing
4473: END LOOP;
4474: END IF;
4475:
4476: IF (l_debug = 'Y') THEN
4477: okc_debug.log('13500: Leaving update_row', 2);
4478: okc_debug.Reset_Indentation;
4479: END IF;
4480:
4481: EXCEPTION
4474: END IF;
4475:
4476: IF (l_debug = 'Y') THEN
4477: okc_debug.log('13500: Leaving update_row', 2);
4478: okc_debug.Reset_Indentation;
4479: END IF;
4480:
4481: EXCEPTION
4482: WHEN OKC_API.G_EXCEPTION_ERROR THEN
4481: EXCEPTION
4482: WHEN OKC_API.G_EXCEPTION_ERROR THEN
4483:
4484: IF (l_debug = 'Y') THEN
4485: okc_debug.log('13600: Exiting update_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
4486: okc_debug.Reset_Indentation;
4487: END IF;
4488:
4489: x_return_status := OKC_API.HANDLE_EXCEPTIONS
4482: WHEN OKC_API.G_EXCEPTION_ERROR THEN
4483:
4484: IF (l_debug = 'Y') THEN
4485: okc_debug.log('13600: Exiting update_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
4486: okc_debug.Reset_Indentation;
4487: END IF;
4488:
4489: x_return_status := OKC_API.HANDLE_EXCEPTIONS
4490: (
4497: );
4498: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4499:
4500: IF (l_debug = 'Y') THEN
4501: okc_debug.log('13700: Exiting update_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
4502: okc_debug.Reset_Indentation;
4503: END IF;
4504:
4505: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
4498: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4499:
4500: IF (l_debug = 'Y') THEN
4501: okc_debug.log('13700: Exiting update_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
4502: okc_debug.Reset_Indentation;
4503: END IF;
4504:
4505: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
4506: (
4513: );
4514: WHEN OTHERS THEN
4515:
4516: IF (l_debug = 'Y') THEN
4517: okc_debug.log('13800: Exiting update_row:OTHERS Exception', 2);
4518: okc_debug.Reset_Indentation;
4519: END IF;
4520:
4521: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
4514: WHEN OTHERS THEN
4515:
4516: IF (l_debug = 'Y') THEN
4517: okc_debug.log('13800: Exiting update_row:OTHERS Exception', 2);
4518: okc_debug.Reset_Indentation;
4519: END IF;
4520:
4521: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
4522: (
4550: l_row_notfound BOOLEAN := TRUE;
4551: BEGIN
4552:
4553: IF (l_debug = 'Y') THEN
4554: okc_debug.Set_Indentation('OKC_CPL_PVT');
4555: okc_debug.log('13900: Entered delete_row', 2);
4556: END IF;
4557:
4558: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
4551: BEGIN
4552:
4553: IF (l_debug = 'Y') THEN
4554: okc_debug.Set_Indentation('OKC_CPL_PVT');
4555: okc_debug.log('13900: Entered delete_row', 2);
4556: END IF;
4557:
4558: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
4559: p_init_msg_list,
4569:
4570: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
4571:
4572: IF (l_debug = 'Y') THEN
4573: okc_debug.log('14000: Leaving delete_row', 2);
4574: okc_debug.Reset_Indentation;
4575: END IF;
4576:
4577: EXCEPTION
4570: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
4571:
4572: IF (l_debug = 'Y') THEN
4573: okc_debug.log('14000: Leaving delete_row', 2);
4574: okc_debug.Reset_Indentation;
4575: END IF;
4576:
4577: EXCEPTION
4578: WHEN OKC_API.G_EXCEPTION_ERROR THEN
4577: EXCEPTION
4578: WHEN OKC_API.G_EXCEPTION_ERROR THEN
4579:
4580: IF (l_debug = 'Y') THEN
4581: okc_debug.log('14100: Exiting delete_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
4582: okc_debug.Reset_Indentation;
4583: END IF;
4584:
4585: x_return_status := OKC_API.HANDLE_EXCEPTIONS
4578: WHEN OKC_API.G_EXCEPTION_ERROR THEN
4579:
4580: IF (l_debug = 'Y') THEN
4581: okc_debug.log('14100: Exiting delete_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
4582: okc_debug.Reset_Indentation;
4583: END IF;
4584:
4585: x_return_status := OKC_API.HANDLE_EXCEPTIONS
4586: (
4593: );
4594: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4595:
4596: IF (l_debug = 'Y') THEN
4597: okc_debug.log('14200: Exiting delete_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
4598: okc_debug.Reset_Indentation;
4599: END IF;
4600:
4601: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
4594: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4595:
4596: IF (l_debug = 'Y') THEN
4597: okc_debug.log('14200: Exiting delete_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
4598: okc_debug.Reset_Indentation;
4599: END IF;
4600:
4601: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
4602: (
4609: );
4610: WHEN OTHERS THEN
4611:
4612: IF (l_debug = 'Y') THEN
4613: okc_debug.log('14300: Exiting delete_row:OTHERS Exception', 2);
4614: okc_debug.Reset_Indentation;
4615: END IF;
4616:
4617: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
4610: WHEN OTHERS THEN
4611:
4612: IF (l_debug = 'Y') THEN
4613: okc_debug.log('14300: Exiting delete_row:OTHERS Exception', 2);
4614: okc_debug.Reset_Indentation;
4615: END IF;
4616:
4617: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
4618: (
4658: END Set_Attributes;
4659: BEGIN
4660:
4661: IF (l_debug = 'Y') THEN
4662: okc_debug.Set_Indentation('OKC_CPL_PVT');
4663: okc_debug.log('14500: Entered delete_row', 2);
4664: END IF;
4665:
4666: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
4659: BEGIN
4660:
4661: IF (l_debug = 'Y') THEN
4662: okc_debug.Set_Indentation('OKC_CPL_PVT');
4663: okc_debug.log('14500: Entered delete_row', 2);
4664: END IF;
4665:
4666: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
4667: p_init_msg_list,
4687:
4688: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
4689:
4690: IF (l_debug = 'Y') THEN
4691: okc_debug.log('14600: Leaving delete_row', 2);
4692: okc_debug.Reset_Indentation;
4693: END IF;
4694:
4695: EXCEPTION
4688: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
4689:
4690: IF (l_debug = 'Y') THEN
4691: okc_debug.log('14600: Leaving delete_row', 2);
4692: okc_debug.Reset_Indentation;
4693: END IF;
4694:
4695: EXCEPTION
4696: WHEN OKC_API.G_EXCEPTION_ERROR THEN
4695: EXCEPTION
4696: WHEN OKC_API.G_EXCEPTION_ERROR THEN
4697:
4698: IF (l_debug = 'Y') THEN
4699: okc_debug.log('14700: Exiting delete_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
4700: okc_debug.Reset_Indentation;
4701: END IF;
4702:
4703: x_return_status := OKC_API.HANDLE_EXCEPTIONS
4696: WHEN OKC_API.G_EXCEPTION_ERROR THEN
4697:
4698: IF (l_debug = 'Y') THEN
4699: okc_debug.log('14700: Exiting delete_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
4700: okc_debug.Reset_Indentation;
4701: END IF;
4702:
4703: x_return_status := OKC_API.HANDLE_EXCEPTIONS
4704: (
4711: );
4712: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4713:
4714: IF (l_debug = 'Y') THEN
4715: okc_debug.log('14800: Exiting delete_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
4716: okc_debug.Reset_Indentation;
4717: END IF;
4718:
4719: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
4712: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4713:
4714: IF (l_debug = 'Y') THEN
4715: okc_debug.log('14800: Exiting delete_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
4716: okc_debug.Reset_Indentation;
4717: END IF;
4718:
4719: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
4720: (
4727: );
4728: WHEN OTHERS THEN
4729:
4730: IF (l_debug = 'Y') THEN
4731: okc_debug.log('14900: Exiting delete_row:OTHERS Exception', 2);
4732: okc_debug.Reset_Indentation;
4733: END IF;
4734:
4735: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
4728: WHEN OTHERS THEN
4729:
4730: IF (l_debug = 'Y') THEN
4731: okc_debug.log('14900: Exiting delete_row:OTHERS Exception', 2);
4732: okc_debug.Reset_Indentation;
4733: END IF;
4734:
4735: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
4736: (
4762: l_cpl_rec cpl_rec_type;
4763: BEGIN
4764:
4765: IF (l_debug = 'Y') THEN
4766: okc_debug.Set_Indentation('OKC_CPL_PVT');
4767: okc_debug.log('15000: Entered delete_row', 2);
4768: END IF;
4769:
4770: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
4763: BEGIN
4764:
4765: IF (l_debug = 'Y') THEN
4766: okc_debug.Set_Indentation('OKC_CPL_PVT');
4767: okc_debug.log('15000: Entered delete_row', 2);
4768: END IF;
4769:
4770: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
4771: G_PKG_NAME,
4813: END IF;
4814: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
4815:
4816: IF (l_debug = 'Y') THEN
4817: okc_debug.log('15100: Leaving delete_row', 2);
4818: okc_debug.Reset_Indentation;
4819: END IF;
4820:
4821: EXCEPTION
4814: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
4815:
4816: IF (l_debug = 'Y') THEN
4817: okc_debug.log('15100: Leaving delete_row', 2);
4818: okc_debug.Reset_Indentation;
4819: END IF;
4820:
4821: EXCEPTION
4822: WHEN OKC_API.G_EXCEPTION_ERROR THEN
4821: EXCEPTION
4822: WHEN OKC_API.G_EXCEPTION_ERROR THEN
4823:
4824: IF (l_debug = 'Y') THEN
4825: okc_debug.log('15200: Exiting delete_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
4826: okc_debug.Reset_Indentation;
4827: END IF;
4828:
4829: x_return_status := OKC_API.HANDLE_EXCEPTIONS
4822: WHEN OKC_API.G_EXCEPTION_ERROR THEN
4823:
4824: IF (l_debug = 'Y') THEN
4825: okc_debug.log('15200: Exiting delete_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
4826: okc_debug.Reset_Indentation;
4827: END IF;
4828:
4829: x_return_status := OKC_API.HANDLE_EXCEPTIONS
4830: (
4837: );
4838: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4839:
4840: IF (l_debug = 'Y') THEN
4841: okc_debug.log('15300: Exiting delete_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
4842: okc_debug.Reset_Indentation;
4843: END IF;
4844:
4845: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
4838: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4839:
4840: IF (l_debug = 'Y') THEN
4841: okc_debug.log('15300: Exiting delete_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
4842: okc_debug.Reset_Indentation;
4843: END IF;
4844:
4845: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
4846: (
4853: );
4854: WHEN OTHERS THEN
4855:
4856: IF (l_debug = 'Y') THEN
4857: okc_debug.log('15400: Exiting delete_row:OTHERS Exception', 2);
4858: okc_debug.Reset_Indentation;
4859: END IF;
4860:
4861: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
4854: WHEN OTHERS THEN
4855:
4856: IF (l_debug = 'Y') THEN
4857: okc_debug.log('15400: Exiting delete_row:OTHERS Exception', 2);
4858: okc_debug.Reset_Indentation;
4859: END IF;
4860:
4861: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
4862: (
4886: i NUMBER := 0;
4887: BEGIN
4888:
4889: IF (l_debug = 'Y') THEN
4890: okc_debug.Set_Indentation('OKC_CPL_PVT');
4891: okc_debug.log('15500: Entered delete_row', 2);
4892: END IF;
4893:
4894: OKC_API.init_msg_list(p_init_msg_list);
4887: BEGIN
4888:
4889: IF (l_debug = 'Y') THEN
4890: okc_debug.Set_Indentation('OKC_CPL_PVT');
4891: okc_debug.log('15500: Entered delete_row', 2);
4892: END IF;
4893:
4894: OKC_API.init_msg_list(p_init_msg_list);
4895: -- Make sure PL/SQL table has records in it before passing
4908: END LOOP;
4909: END IF;
4910:
4911: IF (l_debug = 'Y') THEN
4912: okc_debug.log('15600: Leaving delete_row', 2);
4913: okc_debug.Reset_Indentation;
4914: END IF;
4915:
4916: EXCEPTION
4909: END IF;
4910:
4911: IF (l_debug = 'Y') THEN
4912: okc_debug.log('15600: Leaving delete_row', 2);
4913: okc_debug.Reset_Indentation;
4914: END IF;
4915:
4916: EXCEPTION
4917: WHEN OKC_API.G_EXCEPTION_ERROR THEN
4916: EXCEPTION
4917: WHEN OKC_API.G_EXCEPTION_ERROR THEN
4918:
4919: IF (l_debug = 'Y') THEN
4920: okc_debug.log('15700: Exiting delete_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
4921: okc_debug.Reset_Indentation;
4922: END IF;
4923:
4924: x_return_status := OKC_API.HANDLE_EXCEPTIONS
4917: WHEN OKC_API.G_EXCEPTION_ERROR THEN
4918:
4919: IF (l_debug = 'Y') THEN
4920: okc_debug.log('15700: Exiting delete_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
4921: okc_debug.Reset_Indentation;
4922: END IF;
4923:
4924: x_return_status := OKC_API.HANDLE_EXCEPTIONS
4925: (
4932: );
4933: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4934:
4935: IF (l_debug = 'Y') THEN
4936: okc_debug.log('15800: Exiting delete_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
4937: okc_debug.Reset_Indentation;
4938: END IF;
4939:
4940: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
4933: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4934:
4935: IF (l_debug = 'Y') THEN
4936: okc_debug.log('15800: Exiting delete_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
4937: okc_debug.Reset_Indentation;
4938: END IF;
4939:
4940: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
4941: (
4948: );
4949: WHEN OTHERS THEN
4950:
4951: IF (l_debug = 'Y') THEN
4952: okc_debug.log('15900: Exiting delete_row:OTHERS Exception', 2);
4953: okc_debug.Reset_Indentation;
4954: END IF;
4955:
4956: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
4949: WHEN OTHERS THEN
4950:
4951: IF (l_debug = 'Y') THEN
4952: okc_debug.log('15900: Exiting delete_row:OTHERS Exception', 2);
4953: okc_debug.Reset_Indentation;
4954: END IF;
4955:
4956: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
4957: (
5020:
5021: -- Initializing return status
5022: x_return_status := OKC_API.G_RET_STS_SUCCESS;
5023: IF (l_debug = 'Y') THEN
5024: okc_debug.Set_Indentation('OKC_CPL_PVT');
5025: okc_debug.log('16000: Entered INSERT_ROW_UPG', 2);
5026: END IF;
5027:
5028: i := p_cplv_tbl.FIRST; j:=0;
5021: -- Initializing return status
5022: x_return_status := OKC_API.G_RET_STS_SUCCESS;
5023: IF (l_debug = 'Y') THEN
5024: okc_debug.Set_Indentation('OKC_CPL_PVT');
5025: okc_debug.log('16000: Entered INSERT_ROW_UPG', 2);
5026: END IF;
5027:
5028: i := p_cplv_tbl.FIRST; j:=0;
5029: while i is not null
5194: );
5195: END LOOP;
5196:
5197: IF (l_debug = 'Y') THEN
5198: okc_debug.log('16100: Leaving INSERT_ROW_UPG', 2);
5199: okc_debug.Reset_Indentation;
5200: END IF;
5201:
5202: EXCEPTION
5195: END LOOP;
5196:
5197: IF (l_debug = 'Y') THEN
5198: okc_debug.log('16100: Leaving INSERT_ROW_UPG', 2);
5199: okc_debug.Reset_Indentation;
5200: END IF;
5201:
5202: EXCEPTION
5203: WHEN OTHERS THEN
5202: EXCEPTION
5203: WHEN OTHERS THEN
5204:
5205: IF (l_debug = 'Y') THEN
5206: okc_debug.log('16200: Exiting INSERT_ROW_UPG:OTHERS Exception', 2);
5207: okc_debug.Reset_Indentation;
5208: END IF;
5209: -- store SQL error message on message stack
5210: OKC_API.SET_MESSAGE(
5203: WHEN OTHERS THEN
5204:
5205: IF (l_debug = 'Y') THEN
5206: okc_debug.log('16200: Exiting INSERT_ROW_UPG:OTHERS Exception', 2);
5207: okc_debug.Reset_Indentation;
5208: END IF;
5209: -- store SQL error message on message stack
5210: OKC_API.SET_MESSAGE(
5211: p_app_name => G_APP_NAME,
5235:
5236: BEGIN
5237:
5238: IF (l_debug = 'Y') THEN
5239: okc_debug.Set_Indentation('OKC_CPL_PVT');
5240: okc_debug.log('16300: Entered create_version', 2);
5241: END IF;
5242:
5243: INSERT INTO okc_k_party_roles_bh
5236: BEGIN
5237:
5238: IF (l_debug = 'Y') THEN
5239: okc_debug.Set_Indentation('OKC_CPL_PVT');
5240: okc_debug.log('16300: Entered create_version', 2);
5241: END IF;
5242:
5243: INSERT INTO okc_k_party_roles_bh
5244: (
5375: from okc_k_party_roles_b
5376: where dnz_chr_id = p_chr_id);
5377:
5378: IF (l_debug = 'Y') THEN
5379: okc_debug.log('16400: Leaving create_version', 2);
5380: okc_debug.Reset_Indentation;
5381: END IF;
5382:
5383: RETURN l_return_status;
5376: where dnz_chr_id = p_chr_id);
5377:
5378: IF (l_debug = 'Y') THEN
5379: okc_debug.log('16400: Leaving create_version', 2);
5380: okc_debug.Reset_Indentation;
5381: END IF;
5382:
5383: RETURN l_return_status;
5384:
5386: -- other appropriate handlers
5387: WHEN OTHERS THEN
5388:
5389: IF (l_debug = 'Y') THEN
5390: okc_debug.log('16500: Exiting create_version:OTHERS Exception', 2);
5391: okc_debug.Reset_Indentation;
5392: END IF;
5393:
5394: -- store SQL error message on message stack
5387: WHEN OTHERS THEN
5388:
5389: IF (l_debug = 'Y') THEN
5390: okc_debug.log('16500: Exiting create_version:OTHERS Exception', 2);
5391: okc_debug.Reset_Indentation;
5392: END IF;
5393:
5394: -- store SQL error message on message stack
5395: OKC_API.SET_MESSAGE(p_app_name => okc_version_pvt.G_APP_NAME,
5418:
5419: BEGIN
5420:
5421: IF (l_debug = 'Y') THEN
5422: okc_debug.Set_Indentation('OKC_CPL_PVT');
5423: okc_debug.log('16600: Entered restore_version', 2);
5424: END IF;
5425:
5426: INSERT INTO okc_k_party_roles_tl
5419: BEGIN
5420:
5421: IF (l_debug = 'Y') THEN
5422: okc_debug.Set_Indentation('OKC_CPL_PVT');
5423: okc_debug.log('16600: Entered restore_version', 2);
5424: END IF;
5425:
5426: INSERT INTO okc_k_party_roles_tl
5427: (
5555: WHERE dnz_chr_id = p_chr_id
5556: AND major_version = p_major_version;
5557:
5558: IF (l_debug = 'Y') THEN
5559: okc_debug.log('16700: Leaving restore_version', 2);
5560: okc_debug.Reset_Indentation;
5561: END IF;
5562:
5563: RETURN l_return_status;
5556: AND major_version = p_major_version;
5557:
5558: IF (l_debug = 'Y') THEN
5559: okc_debug.log('16700: Leaving restore_version', 2);
5560: okc_debug.Reset_Indentation;
5561: END IF;
5562:
5563: RETURN l_return_status;
5564:
5566: -- other appropriate handlers
5567: WHEN OTHERS THEN
5568:
5569: IF (l_debug = 'Y') THEN
5570: okc_debug.log('16800: Exiting restore_version:OTHERS Exception', 2);
5571: okc_debug.Reset_Indentation;
5572: END IF;
5573:
5574: -- store SQL error message on message stack
5567: WHEN OTHERS THEN
5568:
5569: IF (l_debug = 'Y') THEN
5570: okc_debug.log('16800: Exiting restore_version:OTHERS Exception', 2);
5571: okc_debug.Reset_Indentation;
5572: END IF;
5573:
5574: -- store SQL error message on message stack
5575: OKC_API.SET_MESSAGE(p_app_name => okc_version_pvt.G_APP_NAME,