[Home] [Help]
31: where GROUP_ID = p_cacv_rec.group_id;
32: Begin
33:
34: IF (l_debug = 'Y') THEN
35: okc_debug.Set_Indentation('OKC_CAC_PVT');
36: okc_debug.log('100: Entered validate_group_id', 2);
37: END IF;
38:
39: -- initialize return status
32: Begin
33:
34: IF (l_debug = 'Y') THEN
35: okc_debug.Set_Indentation('OKC_CAC_PVT');
36: okc_debug.log('100: Entered validate_group_id', 2);
37: END IF;
38:
39: -- initialize return status
40: x_return_status := OKC_API.G_RET_STS_SUCCESS;
64: End If;
65: End If;
66:
67: IF (l_debug = 'Y') THEN
68: okc_debug.log('200: Leaving validate_group_id', 2);
69: okc_debug.Reset_Indentation;
70: END IF;
71:
72: exception
65: End If;
66:
67: IF (l_debug = 'Y') THEN
68: okc_debug.log('200: Leaving validate_group_id', 2);
69: okc_debug.Reset_Indentation;
70: END IF;
71:
72: exception
73: when OTHERS then
72: exception
73: when OTHERS then
74:
75: IF (l_debug = 'Y') THEN
76: okc_debug.log('300: Leaving validate_group_id:OTHERS Exception', 2);
77: okc_debug.Reset_Indentation;
78: END IF;
79:
80: -- store SQL error message on message stack
73: when OTHERS then
74:
75: IF (l_debug = 'Y') THEN
76: okc_debug.log('300: Leaving validate_group_id:OTHERS Exception', 2);
77: okc_debug.Reset_Indentation;
78: END IF;
79:
80: -- store SQL error message on message stack
81: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
107: where ID = p_cacv_rec.chr_id;
108: Begin
109:
110: IF (l_debug = 'Y') THEN
111: okc_debug.Set_Indentation('OKC_CAC_PVT');
112: okc_debug.log('400: Entered validate_chr_id', 2);
113: END IF;
114:
115: -- initialize return status
108: Begin
109:
110: IF (l_debug = 'Y') THEN
111: okc_debug.Set_Indentation('OKC_CAC_PVT');
112: okc_debug.log('400: Entered validate_chr_id', 2);
113: END IF;
114:
115: -- initialize return status
116: x_return_status := OKC_API.G_RET_STS_SUCCESS;
150: x_return_status := OKC_API.G_RET_STS_ERROR;
151: End If;
152:
153: IF (l_debug = 'Y') THEN
154: okc_debug.log('500: Leaving validate_chr_id', 2);
155: okc_debug.Reset_Indentation;
156: END IF;
157:
158: exception
151: End If;
152:
153: IF (l_debug = 'Y') THEN
154: okc_debug.log('500: Leaving validate_chr_id', 2);
155: okc_debug.Reset_Indentation;
156: END IF;
157:
158: exception
159: when G_EXCEPTION_HALT_VALIDATION then
158: exception
159: when G_EXCEPTION_HALT_VALIDATION then
160:
161: IF (l_debug = 'Y') THEN
162: okc_debug.log('600: Exiting validate_chr_id:G_EXCEPTION_HALT_VALIDATION Exception', 2);
163: okc_debug.Reset_Indentation;
164: END IF;
165:
166: -- no processing necessary; validation can continue with next column
159: when G_EXCEPTION_HALT_VALIDATION then
160:
161: IF (l_debug = 'Y') THEN
162: okc_debug.log('600: Exiting validate_chr_id:G_EXCEPTION_HALT_VALIDATION Exception', 2);
163: okc_debug.Reset_Indentation;
164: END IF;
165:
166: -- no processing necessary; validation can continue with next column
167: null;
168:
169: when OTHERS then
170:
171: IF (l_debug = 'Y') THEN
172: okc_debug.log('700: Exiting validate_chr_id:OTHERS Exception', 2);
173: okc_debug.Reset_Indentation;
174: END IF;
175:
176: -- store SQL error message on message stack
169: when OTHERS then
170:
171: IF (l_debug = 'Y') THEN
172: okc_debug.log('700: Exiting validate_chr_id:OTHERS Exception', 2);
173: okc_debug.Reset_Indentation;
174: END IF;
175:
176: -- store SQL error message on message stack
177: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
200: where RESOURCE_ID = p_cacv_rec.resource_id;
201: Begin
202:
203: IF (l_debug = 'Y') THEN
204: okc_debug.Set_Indentation('OKC_CAC_PVT');
205: okc_debug.log('800: Entered validate_resource_id', 2);
206: END IF;
207:
208: -- initialize return status
201: Begin
202:
203: IF (l_debug = 'Y') THEN
204: okc_debug.Set_Indentation('OKC_CAC_PVT');
205: okc_debug.log('800: Entered validate_resource_id', 2);
206: END IF;
207:
208: -- initialize return status
209: x_return_status := OKC_API.G_RET_STS_SUCCESS;
230: End If;
231: End If;
232:
233: IF (l_debug = 'Y') THEN
234: okc_debug.log('850: Leaving validate_resource_id', 2);
235: okc_debug.Reset_Indentation;
236: END IF;
237:
238: exception
231: End If;
232:
233: IF (l_debug = 'Y') THEN
234: okc_debug.log('850: Leaving validate_resource_id', 2);
235: okc_debug.Reset_Indentation;
236: END IF;
237:
238: exception
239: when OTHERS then
238: exception
239: when OTHERS then
240:
241: IF (l_debug = 'Y') THEN
242: okc_debug.log('900: Exiting validate_resource_id:OTHERS Exception', 2);
243: okc_debug.Reset_Indentation;
244: END IF;
245:
246: -- store SQL error message on message stack
239: when OTHERS then
240:
241: IF (l_debug = 'Y') THEN
242: okc_debug.log('900: Exiting validate_resource_id:OTHERS Exception', 2);
243: okc_debug.Reset_Indentation;
244: END IF;
245:
246: -- store SQL error message on message stack
247: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
272: p_cacv_rec IN cacv_rec_type) is
273: Begin
274:
275: IF (l_debug = 'Y') THEN
276: okc_debug.Set_Indentation('OKC_CAC_PVT');
277: okc_debug.log('1000: Entered validate_access_level', 2);
278: END IF;
279:
280: -- initialize return status
273: Begin
274:
275: IF (l_debug = 'Y') THEN
276: okc_debug.Set_Indentation('OKC_CAC_PVT');
277: okc_debug.log('1000: Entered validate_access_level', 2);
278: END IF;
279:
280: -- initialize return status
281: x_return_status := OKC_API.G_RET_STS_SUCCESS;
305: x_return_status := OKC_API.G_RET_STS_ERROR;
306: End If;
307:
308: IF (l_debug = 'Y') THEN
309: okc_debug.log('1100: Leaving validate_access_level', 2);
310: okc_debug.Reset_Indentation;
311: END IF;
312:
313: exception
306: End If;
307:
308: IF (l_debug = 'Y') THEN
309: okc_debug.log('1100: Leaving validate_access_level', 2);
310: okc_debug.Reset_Indentation;
311: END IF;
312:
313: exception
314: when G_EXCEPTION_HALT_VALIDATION then
313: exception
314: when G_EXCEPTION_HALT_VALIDATION then
315:
316: IF (l_debug = 'Y') THEN
317: okc_debug.log('1200: Exiting validate_access_level:G_EXCEPTION_HALT_VALIDATION Exception', 2);
318: okc_debug.Reset_Indentation;
319: END IF;
320:
321: -- no processing necessary; validation can continue with next column
314: when G_EXCEPTION_HALT_VALIDATION then
315:
316: IF (l_debug = 'Y') THEN
317: okc_debug.log('1200: Exiting validate_access_level:G_EXCEPTION_HALT_VALIDATION Exception', 2);
318: okc_debug.Reset_Indentation;
319: END IF;
320:
321: -- no processing necessary; validation can continue with next column
322: null;
323:
324: when OTHERS then
325:
326: IF (l_debug = 'Y') THEN
327: okc_debug.log('1300: Exiting validate_access_level:OTHERS Exception', 2);
328: okc_debug.Reset_Indentation;
329: END IF;
330:
331: -- store SQL error message on message stack
324: when OTHERS then
325:
326: IF (l_debug = 'Y') THEN
327: okc_debug.log('1300: Exiting validate_access_level:OTHERS Exception', 2);
328: okc_debug.Reset_Indentation;
329: END IF;
330:
331: -- store SQL error message on message stack
332: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
407: l_cac_rec cac_rec_type;
408: BEGIN
409:
410: IF (l_debug = 'Y') THEN
411: okc_debug.Set_Indentation('OKC_CAC_PVT');
412: okc_debug.log('1500: Entered get_rec', 2);
413: END IF;
414:
415: x_no_data_found := TRUE;
408: BEGIN
409:
410: IF (l_debug = 'Y') THEN
411: okc_debug.Set_Indentation('OKC_CAC_PVT');
412: okc_debug.log('1500: Entered get_rec', 2);
413: END IF;
414:
415: x_no_data_found := TRUE;
416: -- Get current database values
430: x_no_data_found := cac_pk_csr%NOTFOUND;
431: CLOSE cac_pk_csr;
432:
433: IF (l_debug = 'Y') THEN
434: okc_debug.log('1600: Leaving get_rec ', 2);
435: okc_debug.Reset_Indentation;
436: END IF;
437:
438: RETURN(l_cac_rec);
431: CLOSE cac_pk_csr;
432:
433: IF (l_debug = 'Y') THEN
434: okc_debug.log('1600: Leaving get_rec ', 2);
435: okc_debug.Reset_Indentation;
436: END IF;
437:
438: RETURN(l_cac_rec);
439:
474: l_cacv_rec cacv_rec_type;
475: BEGIN
476:
477: IF (l_debug = 'Y') THEN
478: okc_debug.Set_Indentation('OKC_CAC_PVT');
479: okc_debug.log('1700: Entered get_rec', 2);
480: END IF;
481:
482: x_no_data_found := TRUE;
475: BEGIN
476:
477: IF (l_debug = 'Y') THEN
478: okc_debug.Set_Indentation('OKC_CAC_PVT');
479: okc_debug.log('1700: Entered get_rec', 2);
480: END IF;
481:
482: x_no_data_found := TRUE;
483: -- Get current database values
497: x_no_data_found := okc_cacv_pk_csr%NOTFOUND;
498: CLOSE okc_cacv_pk_csr;
499:
500: IF (l_debug = 'Y') THEN
501: okc_debug.log('1800: Leaving get_rec ', 2);
502: okc_debug.Reset_Indentation;
503: END IF;
504:
505: RETURN(l_cacv_rec);
498: CLOSE okc_cacv_pk_csr;
499:
500: IF (l_debug = 'Y') THEN
501: okc_debug.log('1800: Leaving get_rec ', 2);
502: okc_debug.Reset_Indentation;
503: END IF;
504:
505: RETURN(l_cacv_rec);
506:
525: l_cacv_rec cacv_rec_type := p_cacv_rec;
526: BEGIN
527:
528: IF (l_debug = 'Y') THEN
529: okc_debug.Set_Indentation('OKC_CAC_PVT');
530: okc_debug.log('1900: Entered null_out_defaults', 2);
531: END IF;
532:
533: IF (l_cacv_rec.object_version_number = OKC_API.G_MISS_NUM) THEN
526: BEGIN
527:
528: IF (l_debug = 'Y') THEN
529: okc_debug.Set_Indentation('OKC_CAC_PVT');
530: okc_debug.log('1900: Entered null_out_defaults', 2);
531: END IF;
532:
533: IF (l_cacv_rec.object_version_number = OKC_API.G_MISS_NUM) THEN
534: l_cacv_rec.object_version_number := NULL;
561: l_cacv_rec.last_update_login := NULL;
562: END IF;
563:
564: IF (l_debug = 'Y') THEN
565: okc_debug.log('2000: Leaving null_out_defaults ', 2);
566: okc_debug.Reset_Indentation;
567: END IF;
568:
569: RETURN(l_cacv_rec);
562: END IF;
563:
564: IF (l_debug = 'Y') THEN
565: okc_debug.log('2000: Leaving null_out_defaults ', 2);
566: okc_debug.Reset_Indentation;
567: END IF;
568:
569: RETURN(l_cacv_rec);
570:
582: x_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
583: BEGIN
584:
585: IF (l_debug = 'Y') THEN
586: okc_debug.Set_Indentation('OKC_CAC_PVT');
587: okc_debug.log('2100: Entered Validate_Attributes', 2);
588: END IF;
589:
590: /************************ HAND-CODED *********************************/
583: BEGIN
584:
585: IF (l_debug = 'Y') THEN
586: okc_debug.Set_Indentation('OKC_CAC_PVT');
587: okc_debug.log('2100: Entered Validate_Attributes', 2);
588: END IF;
589:
590: /************************ HAND-CODED *********************************/
591: validate_group_id
638: --dbms_output.put_line('5 Status : ' || l_return_status);
639: RETURN(x_return_status);
640:
641: IF (l_debug = 'Y') THEN
642: okc_debug.log('2150: Leaving Validate_Attributes', 2);
643: okc_debug.Reset_Indentation;
644: END IF;
645:
646: exception
639: RETURN(x_return_status);
640:
641: IF (l_debug = 'Y') THEN
642: okc_debug.log('2150: Leaving Validate_Attributes', 2);
643: okc_debug.Reset_Indentation;
644: END IF;
645:
646: exception
647: when OTHERS then
646: exception
647: when OTHERS then
648:
649: IF (l_debug = 'Y') THEN
650: okc_debug.log('2200: Exiting Validate_Attributes:OTHERS Exception', 2);
651: okc_debug.Reset_Indentation;
652: END IF;
653:
654: -- store SQL error message on message stack
647: when OTHERS then
648:
649: IF (l_debug = 'Y') THEN
650: okc_debug.log('2200: Exiting Validate_Attributes:OTHERS Exception', 2);
651: okc_debug.Reset_Indentation;
652: END IF;
653:
654: -- store SQL error message on message stack
655: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
722:
723: BEGIN
724:
725: IF (l_debug = 'Y') THEN
726: okc_debug.Set_Indentation('OKC_CAC_PVT');
727: okc_debug.log('2400: Entered Validate_Record', 2);
728: END IF;
729:
730: /************************ HAND-CODED ****************************/
723: BEGIN
724:
725: IF (l_debug = 'Y') THEN
726: okc_debug.Set_Indentation('OKC_CAC_PVT');
727: okc_debug.log('2400: Entered Validate_Record', 2);
728: END IF;
729:
730: /************************ HAND-CODED ****************************/
731: -- ------------------------------------------------
795:
796: /*********************** END HAND-CODED *************************/
797:
798: IF (l_debug = 'Y') THEN
799: okc_debug.log('2500: Leaving Validate_Record', 2);
800: okc_debug.Reset_Indentation;
801: END IF;
802:
803: RETURN (l_return_status);
796: /*********************** END HAND-CODED *************************/
797:
798: IF (l_debug = 'Y') THEN
799: okc_debug.log('2500: Leaving Validate_Record', 2);
800: okc_debug.Reset_Indentation;
801: END IF;
802:
803: RETURN (l_return_status);
804:
805: EXCEPTION
806: WHEN G_EXCEPTION_HALT_VALIDATION THEN
807:
808: IF (l_debug = 'Y') THEN
809: okc_debug.log('2600: Exiting Validate_Record:G_EXCEPTION_HALT_VALIDATION Exception', 2);
810: okc_debug.Reset_Indentation;
811: END IF;
812:
813: -- no processing necessary; validation can continue with next column
806: WHEN G_EXCEPTION_HALT_VALIDATION THEN
807:
808: IF (l_debug = 'Y') THEN
809: okc_debug.log('2600: Exiting Validate_Record:G_EXCEPTION_HALT_VALIDATION Exception', 2);
810: okc_debug.Reset_Indentation;
811: END IF;
812:
813: -- no processing necessary; validation can continue with next column
814: RETURN (l_return_status);
878: l_cac_rec cac_rec_type;
879: BEGIN
880:
881: IF (l_debug = 'Y') THEN
882: okc_debug.Set_Indentation('OKC_CAC_PVT');
883: okc_debug.log('2700: Entered validate_row', 2);
884: END IF;
885:
886: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
879: BEGIN
880:
881: IF (l_debug = 'Y') THEN
882: okc_debug.Set_Indentation('OKC_CAC_PVT');
883: okc_debug.log('2700: Entered validate_row', 2);
884: END IF;
885:
886: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
887: G_PKG_NAME,
911: END IF;
912: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
913:
914: IF (l_debug = 'Y') THEN
915: okc_debug.log('2750: Leaving validate_row', 2);
916: okc_debug.Reset_Indentation;
917: END IF;
918:
919: EXCEPTION
912: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
913:
914: IF (l_debug = 'Y') THEN
915: okc_debug.log('2750: Leaving validate_row', 2);
916: okc_debug.Reset_Indentation;
917: END IF;
918:
919: EXCEPTION
920: WHEN OKC_API.G_EXCEPTION_ERROR THEN
919: EXCEPTION
920: WHEN OKC_API.G_EXCEPTION_ERROR THEN
921:
922: IF (l_debug = 'Y') THEN
923: okc_debug.log('2800: Exiting validate_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
924: okc_debug.Reset_Indentation;
925: END IF;
926:
927: x_return_status := OKC_API.HANDLE_EXCEPTIONS
920: WHEN OKC_API.G_EXCEPTION_ERROR THEN
921:
922: IF (l_debug = 'Y') THEN
923: okc_debug.log('2800: Exiting validate_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
924: okc_debug.Reset_Indentation;
925: END IF;
926:
927: x_return_status := OKC_API.HANDLE_EXCEPTIONS
928: (
935: );
936: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
937:
938: IF (l_debug = 'Y') THEN
939: okc_debug.log('2900: Exiting validate_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
940: okc_debug.Reset_Indentation;
941: END IF;
942:
943: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
936: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
937:
938: IF (l_debug = 'Y') THEN
939: okc_debug.log('2900: Exiting validate_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
940: okc_debug.Reset_Indentation;
941: END IF;
942:
943: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
944: (
951: );
952: WHEN OTHERS THEN
953:
954: IF (l_debug = 'Y') THEN
955: okc_debug.log('3000: Exiting validate_row:OTHERS Exception', 2);
956: okc_debug.Reset_Indentation;
957: END IF;
958:
959: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
952: WHEN OTHERS THEN
953:
954: IF (l_debug = 'Y') THEN
955: okc_debug.log('3000: Exiting validate_row:OTHERS Exception', 2);
956: okc_debug.Reset_Indentation;
957: END IF;
958:
959: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
960: (
985: i NUMBER := 0;
986: BEGIN
987:
988: IF (l_debug = 'Y') THEN
989: okc_debug.Set_Indentation('OKC_CAC_PVT');
990: okc_debug.log('3200: Entered validate_row', 2);
991: END IF;
992:
993: OKC_API.init_msg_list(p_init_msg_list);
986: BEGIN
987:
988: IF (l_debug = 'Y') THEN
989: okc_debug.Set_Indentation('OKC_CAC_PVT');
990: okc_debug.log('3200: Entered validate_row', 2);
991: END IF;
992:
993: OKC_API.init_msg_list(p_init_msg_list);
994: -- Make sure PL/SQL table has records in it before passing
1017: x_return_status := l_overall_status;
1018: END IF;
1019:
1020: IF (l_debug = 'Y') THEN
1021: okc_debug.log('3250: leaving validate_row', 2);
1022: okc_debug.Reset_Indentation;
1023: END IF;
1024:
1025: EXCEPTION
1018: END IF;
1019:
1020: IF (l_debug = 'Y') THEN
1021: okc_debug.log('3250: leaving validate_row', 2);
1022: okc_debug.Reset_Indentation;
1023: END IF;
1024:
1025: EXCEPTION
1026: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1025: EXCEPTION
1026: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1027:
1028: IF (l_debug = 'Y') THEN
1029: okc_debug.log('3300: Exiting validate_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
1030: okc_debug.Reset_Indentation;
1031: END IF;
1032:
1033: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1026: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1027:
1028: IF (l_debug = 'Y') THEN
1029: okc_debug.log('3300: Exiting validate_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
1030: okc_debug.Reset_Indentation;
1031: END IF;
1032:
1033: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1034: (
1041: );
1042: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1043:
1044: IF (l_debug = 'Y') THEN
1045: okc_debug.log('3400: Exiting validate_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
1046: okc_debug.Reset_Indentation;
1047: END IF;
1048:
1049: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1042: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1043:
1044: IF (l_debug = 'Y') THEN
1045: okc_debug.log('3400: Exiting validate_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
1046: okc_debug.Reset_Indentation;
1047: END IF;
1048:
1049: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1050: (
1057: );
1058: WHEN OTHERS THEN
1059:
1060: IF (l_debug = 'Y') THEN
1061: okc_debug.log('3500: Exiting validate_row:OTHERS Exception', 2);
1062: okc_debug.Reset_Indentation;
1063: END IF;
1064:
1065: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1058: WHEN OTHERS THEN
1059:
1060: IF (l_debug = 'Y') THEN
1061: okc_debug.log('3500: Exiting validate_row:OTHERS Exception', 2);
1062: okc_debug.Reset_Indentation;
1063: END IF;
1064:
1065: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1066: (
1109: END Set_Attributes;
1110: BEGIN
1111:
1112: IF (l_debug = 'Y') THEN
1113: okc_debug.Set_Indentation('OKC_CAC_PVT');
1114: okc_debug.log('3800: Entered insert_row', 2);
1115: END IF;
1116:
1117: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
1110: BEGIN
1111:
1112: IF (l_debug = 'Y') THEN
1113: okc_debug.Set_Indentation('OKC_CAC_PVT');
1114: okc_debug.log('3800: Entered insert_row', 2);
1115: END IF;
1116:
1117: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
1118: p_init_msg_list,
1161: x_cac_rec := l_cac_rec;
1162: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1163:
1164: IF (l_debug = 'Y') THEN
1165: okc_debug.log('3900: Exiting insert_row', 2);
1166: okc_debug.Reset_Indentation;
1167: END IF;
1168:
1169: EXCEPTION
1162: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1163:
1164: IF (l_debug = 'Y') THEN
1165: okc_debug.log('3900: Exiting insert_row', 2);
1166: okc_debug.Reset_Indentation;
1167: END IF;
1168:
1169: EXCEPTION
1170: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1169: EXCEPTION
1170: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1171:
1172: IF (l_debug = 'Y') THEN
1173: okc_debug.log('4000: Exiting insert_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
1174: okc_debug.Reset_Indentation;
1175: END IF;
1176:
1177: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1170: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1171:
1172: IF (l_debug = 'Y') THEN
1173: okc_debug.log('4000: Exiting insert_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
1174: okc_debug.Reset_Indentation;
1175: END IF;
1176:
1177: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1178: (
1185: );
1186: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1187:
1188: IF (l_debug = 'Y') THEN
1189: okc_debug.log('4100: Exiting insert_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
1190: okc_debug.Reset_Indentation;
1191: END IF;
1192:
1193: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1186: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1187:
1188: IF (l_debug = 'Y') THEN
1189: okc_debug.log('4100: Exiting insert_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
1190: okc_debug.Reset_Indentation;
1191: END IF;
1192:
1193: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1194: (
1201: );
1202: WHEN OTHERS THEN
1203:
1204: IF (l_debug = 'Y') THEN
1205: okc_debug.log('4200: Exiting insert_row:OTHERS Exception', 2);
1206: okc_debug.Reset_Indentation;
1207: END IF;
1208:
1209: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1202: WHEN OTHERS THEN
1203:
1204: IF (l_debug = 'Y') THEN
1205: okc_debug.log('4200: Exiting insert_row:OTHERS Exception', 2);
1206: okc_debug.Reset_Indentation;
1207: END IF;
1208:
1209: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1210: (
1245: l_cacv_rec cacv_rec_type := p_cacv_rec;
1246: BEGIN
1247:
1248: IF (l_debug = 'Y') THEN
1249: okc_debug.Set_Indentation('OKC_CAC_PVT');
1250: okc_debug.log('4400: Entered fill_who_columns', 2);
1251: END IF;
1252:
1253: l_cacv_rec.CREATION_DATE := SYSDATE;
1246: BEGIN
1247:
1248: IF (l_debug = 'Y') THEN
1249: okc_debug.Set_Indentation('OKC_CAC_PVT');
1250: okc_debug.log('4400: Entered fill_who_columns', 2);
1251: END IF;
1252:
1253: l_cacv_rec.CREATION_DATE := SYSDATE;
1254: l_cacv_rec.CREATED_BY := FND_GLOBAL.USER_ID;
1256: l_cacv_rec.LAST_UPDATED_BY := FND_GLOBAL.USER_ID;
1257: l_cacv_rec.LAST_UPDATE_LOGIN := FND_GLOBAL.LOGIN_ID;
1258:
1259: IF (l_debug = 'Y') THEN
1260: okc_debug.log('4500: Leaving fill_who_columns', 2);
1261: okc_debug.Reset_Indentation;
1262: END IF;
1263:
1264: RETURN(l_cacv_rec);
1257: l_cacv_rec.LAST_UPDATE_LOGIN := FND_GLOBAL.LOGIN_ID;
1258:
1259: IF (l_debug = 'Y') THEN
1260: okc_debug.log('4500: Leaving fill_who_columns', 2);
1261: okc_debug.Reset_Indentation;
1262: END IF;
1263:
1264: RETURN(l_cacv_rec);
1265:
1274: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1275: BEGIN
1276:
1277: IF (l_debug = 'Y') THEN
1278: okc_debug.Set_Indentation('OKC_CAC_PVT');
1279: okc_debug.log('4600: Entered Set_Attributes', 2);
1280: END IF;
1281:
1282: x_cacv_rec := p_cacv_rec;
1275: BEGIN
1276:
1277: IF (l_debug = 'Y') THEN
1278: okc_debug.Set_Indentation('OKC_CAC_PVT');
1279: okc_debug.log('4600: Entered Set_Attributes', 2);
1280: END IF;
1281:
1282: x_cacv_rec := p_cacv_rec;
1283: /************************ HAND-CODED *********************************/
1285: /*********************** END HAND-CODED ********************************/
1286: x_cacv_rec.OBJECT_VERSION_NUMBER := 1;
1287:
1288: IF (l_debug = 'Y') THEN
1289: okc_debug.log('4700: Leaving Set_Attributes', 2);
1290: okc_debug.Reset_Indentation;
1291: END IF;
1292:
1293: RETURN(l_return_status);
1286: x_cacv_rec.OBJECT_VERSION_NUMBER := 1;
1287:
1288: IF (l_debug = 'Y') THEN
1289: okc_debug.log('4700: Leaving Set_Attributes', 2);
1290: okc_debug.Reset_Indentation;
1291: END IF;
1292:
1293: RETURN(l_return_status);
1294: END Set_Attributes;
1295:
1296: BEGIN
1297:
1298: IF (l_debug = 'Y') THEN
1299: okc_debug.Set_Indentation('OKC_CAC_PVT');
1300: okc_debug.log('4800: Entered insert_row', 2);
1301: END IF;
1302:
1303: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
1296: BEGIN
1297:
1298: IF (l_debug = 'Y') THEN
1299: okc_debug.Set_Indentation('OKC_CAC_PVT');
1300: okc_debug.log('4800: Entered insert_row', 2);
1301: END IF;
1302:
1303: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
1304: G_PKG_NAME,
1365: x_cacv_rec := l_def_cacv_rec;
1366: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1367:
1368: IF (l_debug = 'Y') THEN
1369: okc_debug.log('4850: Leaving insert_row', 2);
1370: okc_debug.Reset_Indentation;
1371: END IF;
1372:
1373: EXCEPTION
1366: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1367:
1368: IF (l_debug = 'Y') THEN
1369: okc_debug.log('4850: Leaving insert_row', 2);
1370: okc_debug.Reset_Indentation;
1371: END IF;
1372:
1373: EXCEPTION
1374: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1373: EXCEPTION
1374: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1375:
1376: IF (l_debug = 'Y') THEN
1377: okc_debug.log('4900: Exiting insert_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
1378: okc_debug.Reset_Indentation;
1379: END IF;
1380:
1381: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1374: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1375:
1376: IF (l_debug = 'Y') THEN
1377: okc_debug.log('4900: Exiting insert_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
1378: okc_debug.Reset_Indentation;
1379: END IF;
1380:
1381: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1382: (
1389: );
1390: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1391:
1392: IF (l_debug = 'Y') THEN
1393: okc_debug.log('5000: Exiting insert_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
1394: okc_debug.Reset_Indentation;
1395: END IF;
1396:
1397: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1390: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1391:
1392: IF (l_debug = 'Y') THEN
1393: okc_debug.log('5000: Exiting insert_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
1394: okc_debug.Reset_Indentation;
1395: END IF;
1396:
1397: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1398: (
1405: );
1406: WHEN OTHERS THEN
1407:
1408: IF (l_debug = 'Y') THEN
1409: okc_debug.log('5100: Exiting insert_row:OTHERS Exception', 2);
1410: okc_debug.Reset_Indentation;
1411: END IF;
1412:
1413: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1406: WHEN OTHERS THEN
1407:
1408: IF (l_debug = 'Y') THEN
1409: okc_debug.log('5100: Exiting insert_row:OTHERS Exception', 2);
1410: okc_debug.Reset_Indentation;
1411: END IF;
1412:
1413: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1414: (
1440: i NUMBER := 0;
1441: BEGIN
1442:
1443: IF (l_debug = 'Y') THEN
1444: okc_debug.Set_Indentation('OKC_CAC_PVT');
1445: okc_debug.log('5300: Entered insert_row', 2);
1446: END IF;
1447:
1448: OKC_API.init_msg_list(p_init_msg_list);
1441: BEGIN
1442:
1443: IF (l_debug = 'Y') THEN
1444: okc_debug.Set_Indentation('OKC_CAC_PVT');
1445: okc_debug.log('5300: Entered insert_row', 2);
1446: END IF;
1447:
1448: OKC_API.init_msg_list(p_init_msg_list);
1449: -- Make sure PL/SQL table has records in it before passing
1473: x_return_status := l_overall_status;
1474: END IF;
1475:
1476: IF (l_debug = 'Y') THEN
1477: okc_debug.log('5350: Leaving insert_row', 2);
1478: okc_debug.Reset_Indentation;
1479: END IF;
1480:
1481: EXCEPTION
1474: END IF;
1475:
1476: IF (l_debug = 'Y') THEN
1477: okc_debug.log('5350: Leaving insert_row', 2);
1478: okc_debug.Reset_Indentation;
1479: END IF;
1480:
1481: EXCEPTION
1482: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1481: EXCEPTION
1482: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1483:
1484: IF (l_debug = 'Y') THEN
1485: okc_debug.log('5400: Exiting insert_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
1486: okc_debug.Reset_Indentation;
1487: END IF;
1488:
1489: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1482: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1483:
1484: IF (l_debug = 'Y') THEN
1485: okc_debug.log('5400: Exiting insert_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
1486: okc_debug.Reset_Indentation;
1487: END IF;
1488:
1489: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1490: (
1497: );
1498: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1499:
1500: IF (l_debug = 'Y') THEN
1501: okc_debug.log('5500: Exiting insert_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
1502: okc_debug.Reset_Indentation;
1503: END IF;
1504:
1505: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1498: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1499:
1500: IF (l_debug = 'Y') THEN
1501: okc_debug.log('5500: Exiting insert_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
1502: okc_debug.Reset_Indentation;
1503: END IF;
1504:
1505: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1506: (
1513: );
1514: WHEN OTHERS THEN
1515:
1516: IF (l_debug = 'Y') THEN
1517: okc_debug.log('5600: Exiting insert_row:OTHERS Exception', 2);
1518: okc_debug.Reset_Indentation;
1519: END IF;
1520:
1521: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1514: WHEN OTHERS THEN
1515:
1516: IF (l_debug = 'Y') THEN
1517: okc_debug.log('5600: Exiting insert_row:OTHERS Exception', 2);
1518: okc_debug.Reset_Indentation;
1519: END IF;
1520:
1521: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1522: (
1565: lc_row_notfound BOOLEAN := FALSE;
1566: BEGIN
1567:
1568: IF (l_debug = 'Y') THEN
1569: okc_debug.Set_Indentation('OKC_CAC_PVT');
1570: okc_debug.log('5800: Entered lock_row', 2);
1571: END IF;
1572:
1573: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
1566: BEGIN
1567:
1568: IF (l_debug = 'Y') THEN
1569: okc_debug.Set_Indentation('OKC_CAC_PVT');
1570: okc_debug.log('5800: Entered lock_row', 2);
1571: END IF;
1572:
1573: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
1574: p_init_msg_list,
1581: END IF;
1582: BEGIN
1583:
1584: IF (l_debug = 'Y') THEN
1585: okc_debug.Set_Indentation('OKC_CAC_PVT');
1586: okc_debug.log('5810: Entered lock_row', 2);
1587: END IF;
1588:
1589: OPEN lock_csr(p_cac_rec);
1582: BEGIN
1583:
1584: IF (l_debug = 'Y') THEN
1585: okc_debug.Set_Indentation('OKC_CAC_PVT');
1586: okc_debug.log('5810: Entered lock_row', 2);
1587: END IF;
1588:
1589: OPEN lock_csr(p_cac_rec);
1590: FETCH lock_csr INTO l_object_version_number;
1591: l_row_notfound := lock_csr%NOTFOUND;
1592: CLOSE lock_csr;
1593:
1594: IF (l_debug = 'Y') THEN
1595: okc_debug.log('5820: Leaving LOCK_row', 2);
1596: okc_debug.Reset_Indentation;
1597: END IF;
1598:
1599: EXCEPTION
1592: CLOSE lock_csr;
1593:
1594: IF (l_debug = 'Y') THEN
1595: okc_debug.log('5820: Leaving LOCK_row', 2);
1596: okc_debug.Reset_Indentation;
1597: END IF;
1598:
1599: EXCEPTION
1600: WHEN E_Resource_Busy THEN
1599: EXCEPTION
1600: WHEN E_Resource_Busy THEN
1601:
1602: IF (l_debug = 'Y') THEN
1603: okc_debug.log('5830: Exiting lock_row:E_Resource_Busy Exception', 2);
1604: okc_debug.Reset_Indentation;
1605: END IF;
1606:
1607: IF (lock_csr%ISOPEN) THEN
1600: WHEN E_Resource_Busy THEN
1601:
1602: IF (l_debug = 'Y') THEN
1603: okc_debug.log('5830: Exiting lock_row:E_Resource_Busy Exception', 2);
1604: okc_debug.Reset_Indentation;
1605: END IF;
1606:
1607: IF (lock_csr%ISOPEN) THEN
1608: CLOSE lock_csr;
1632: END IF;
1633: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1634:
1635: IF (l_debug = 'Y') THEN
1636: okc_debug.log('6000: Exiting lock_row', 2);
1637: okc_debug.Reset_Indentation;
1638: END IF;
1639:
1640: EXCEPTION
1633: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1634:
1635: IF (l_debug = 'Y') THEN
1636: okc_debug.log('6000: Exiting lock_row', 2);
1637: okc_debug.Reset_Indentation;
1638: END IF;
1639:
1640: EXCEPTION
1641: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1640: EXCEPTION
1641: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1642:
1643: IF (l_debug = 'Y') THEN
1644: okc_debug.log('6100: Exiting lock_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
1645: okc_debug.Reset_Indentation;
1646: END IF;
1647:
1648: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1641: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1642:
1643: IF (l_debug = 'Y') THEN
1644: okc_debug.log('6100: Exiting lock_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
1645: okc_debug.Reset_Indentation;
1646: END IF;
1647:
1648: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1649: (
1656: );
1657: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1658:
1659: IF (l_debug = 'Y') THEN
1660: okc_debug.log('6200: Exiting lock_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
1661: okc_debug.Reset_Indentation;
1662: END IF;
1663:
1664: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1657: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1658:
1659: IF (l_debug = 'Y') THEN
1660: okc_debug.log('6200: Exiting lock_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
1661: okc_debug.Reset_Indentation;
1662: END IF;
1663:
1664: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1665: (
1672: );
1673: WHEN OTHERS THEN
1674:
1675: IF (l_debug = 'Y') THEN
1676: okc_debug.log('6300: Exiting lock_row:OTHERS Exception', 2);
1677: okc_debug.Reset_Indentation;
1678: END IF;
1679:
1680: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1673: WHEN OTHERS THEN
1674:
1675: IF (l_debug = 'Y') THEN
1676: okc_debug.log('6300: Exiting lock_row:OTHERS Exception', 2);
1677: okc_debug.Reset_Indentation;
1678: END IF;
1679:
1680: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1681: (
1705: l_cac_rec cac_rec_type;
1706: BEGIN
1707:
1708: IF (l_debug = 'Y') THEN
1709: okc_debug.Set_Indentation('OKC_CAC_PVT');
1710: okc_debug.log('6500: Entered lock_row', 2);
1711: END IF;
1712:
1713: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
1706: BEGIN
1707:
1708: IF (l_debug = 'Y') THEN
1709: okc_debug.Set_Indentation('OKC_CAC_PVT');
1710: okc_debug.log('6500: Entered lock_row', 2);
1711: END IF;
1712:
1713: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
1714: G_PKG_NAME,
1743: END IF;
1744: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1745:
1746: IF (l_debug = 'Y') THEN
1747: okc_debug.log('6550: Leaving lock_row ', 2);
1748: okc_debug.Reset_Indentation;
1749: END IF;
1750:
1751: EXCEPTION
1744: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1745:
1746: IF (l_debug = 'Y') THEN
1747: okc_debug.log('6550: Leaving lock_row ', 2);
1748: okc_debug.Reset_Indentation;
1749: END IF;
1750:
1751: EXCEPTION
1752: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1751: EXCEPTION
1752: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1753:
1754: IF (l_debug = 'Y') THEN
1755: okc_debug.log('6600: Exiting lock_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
1756: okc_debug.Reset_Indentation;
1757: END IF;
1758:
1759: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1752: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1753:
1754: IF (l_debug = 'Y') THEN
1755: okc_debug.log('6600: Exiting lock_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
1756: okc_debug.Reset_Indentation;
1757: END IF;
1758:
1759: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1760: (
1767: );
1768: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1769:
1770: IF (l_debug = 'Y') THEN
1771: okc_debug.log('6700: Exiting lock_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
1772: okc_debug.Reset_Indentation;
1773: END IF;
1774:
1775: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1768: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1769:
1770: IF (l_debug = 'Y') THEN
1771: okc_debug.log('6700: Exiting lock_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
1772: okc_debug.Reset_Indentation;
1773: END IF;
1774:
1775: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1776: (
1783: );
1784: WHEN OTHERS THEN
1785:
1786: IF (l_debug = 'Y') THEN
1787: okc_debug.log('6800: Exiting lock_row:OTHERS Exception', 2);
1788: okc_debug.Reset_Indentation;
1789: END IF;
1790:
1791: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1784: WHEN OTHERS THEN
1785:
1786: IF (l_debug = 'Y') THEN
1787: okc_debug.log('6800: Exiting lock_row:OTHERS Exception', 2);
1788: okc_debug.Reset_Indentation;
1789: END IF;
1790:
1791: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1792: (
1817: i NUMBER := 0;
1818: BEGIN
1819:
1820: IF (l_debug = 'Y') THEN
1821: okc_debug.Set_Indentation('OKC_CAC_PVT');
1822: okc_debug.log('7000: Entered lock_row', 2);
1823: END IF;
1824:
1825: OKC_API.init_msg_list(p_init_msg_list);
1818: BEGIN
1819:
1820: IF (l_debug = 'Y') THEN
1821: okc_debug.Set_Indentation('OKC_CAC_PVT');
1822: okc_debug.log('7000: Entered lock_row', 2);
1823: END IF;
1824:
1825: OKC_API.init_msg_list(p_init_msg_list);
1826: -- Make sure PL/SQL table has records in it before passing
1849: x_return_status := l_overall_status;
1850: END IF;
1851:
1852: IF (l_debug = 'Y') THEN
1853: okc_debug.log('7050: Leaving lock_row', 2);
1854: okc_debug.Reset_Indentation;
1855: END IF;
1856:
1857: EXCEPTION
1850: END IF;
1851:
1852: IF (l_debug = 'Y') THEN
1853: okc_debug.log('7050: Leaving lock_row', 2);
1854: okc_debug.Reset_Indentation;
1855: END IF;
1856:
1857: EXCEPTION
1858: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1857: EXCEPTION
1858: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1859:
1860: IF (l_debug = 'Y') THEN
1861: okc_debug.log('7100: Exiting lock_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
1862: okc_debug.Reset_Indentation;
1863: END IF;
1864:
1865: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1858: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1859:
1860: IF (l_debug = 'Y') THEN
1861: okc_debug.log('7100: Exiting lock_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
1862: okc_debug.Reset_Indentation;
1863: END IF;
1864:
1865: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1866: (
1873: );
1874: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1875:
1876: IF (l_debug = 'Y') THEN
1877: okc_debug.log('7200: Exiting lock_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
1878: okc_debug.Reset_Indentation;
1879: END IF;
1880:
1881: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1874: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1875:
1876: IF (l_debug = 'Y') THEN
1877: okc_debug.log('7200: Exiting lock_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
1878: okc_debug.Reset_Indentation;
1879: END IF;
1880:
1881: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1882: (
1889: );
1890: WHEN OTHERS THEN
1891:
1892: IF (l_debug = 'Y') THEN
1893: okc_debug.log('7300: Exiting lock_row:OTHERS Exception', 2);
1894: okc_debug.Reset_Indentation;
1895: END IF;
1896:
1897: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1890: WHEN OTHERS THEN
1891:
1892: IF (l_debug = 'Y') THEN
1893: okc_debug.log('7300: Exiting lock_row:OTHERS Exception', 2);
1894: okc_debug.Reset_Indentation;
1895: END IF;
1896:
1897: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1898: (
1938: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1939: BEGIN
1940:
1941: IF (l_debug = 'Y') THEN
1942: okc_debug.Set_Indentation('OKC_CAC_PVT');
1943: okc_debug.log('7500: Entered populate_new_record', 2);
1944: END IF;
1945:
1946: x_cac_rec := p_cac_rec;
1939: BEGIN
1940:
1941: IF (l_debug = 'Y') THEN
1942: okc_debug.Set_Indentation('OKC_CAC_PVT');
1943: okc_debug.log('7500: Entered populate_new_record', 2);
1944: END IF;
1945:
1946: x_cac_rec := p_cac_rec;
1947: -- Get current database values
1994: x_cac_rec.last_update_login := l_cac_rec.last_update_login;
1995: END IF;
1996:
1997: IF (l_debug = 'Y') THEN
1998: okc_debug.log('7600: Leaving lock_row', 2);
1999: okc_debug.Reset_Indentation;
2000: END IF;
2001:
2002: RETURN(l_return_status);
1995: END IF;
1996:
1997: IF (l_debug = 'Y') THEN
1998: okc_debug.log('7600: Leaving lock_row', 2);
1999: okc_debug.Reset_Indentation;
2000: END IF;
2001:
2002: RETURN(l_return_status);
2003:
2017: END Set_Attributes;
2018: BEGIN
2019:
2020: IF (l_debug = 'Y') THEN
2021: okc_debug.Set_Indentation('OKC_CAC_PVT');
2022: okc_debug.log('7700: Entered update_row', 2);
2023: END IF;
2024:
2025: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
2018: BEGIN
2019:
2020: IF (l_debug = 'Y') THEN
2021: okc_debug.Set_Indentation('OKC_CAC_PVT');
2022: okc_debug.log('7700: Entered update_row', 2);
2023: END IF;
2024:
2025: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
2026: p_init_msg_list,
2063: x_cac_rec := l_def_cac_rec;
2064: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2065:
2066: IF (l_debug = 'Y') THEN
2067: okc_debug.log('7750: Leaving update_row', 2);
2068: okc_debug.Reset_Indentation;
2069: END IF;
2070:
2071: EXCEPTION
2064: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2065:
2066: IF (l_debug = 'Y') THEN
2067: okc_debug.log('7750: Leaving update_row', 2);
2068: okc_debug.Reset_Indentation;
2069: END IF;
2070:
2071: EXCEPTION
2072: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2071: EXCEPTION
2072: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2073:
2074: IF (l_debug = 'Y') THEN
2075: okc_debug.log('7800: Exiting update_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
2076: okc_debug.Reset_Indentation;
2077: END IF;
2078:
2079: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2072: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2073:
2074: IF (l_debug = 'Y') THEN
2075: okc_debug.log('7800: Exiting update_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
2076: okc_debug.Reset_Indentation;
2077: END IF;
2078:
2079: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2080: (
2087: );
2088: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2089:
2090: IF (l_debug = 'Y') THEN
2091: okc_debug.log('7900: Exiting update_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
2092: okc_debug.Reset_Indentation;
2093: END IF;
2094:
2095: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2088: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2089:
2090: IF (l_debug = 'Y') THEN
2091: okc_debug.log('7900: Exiting update_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
2092: okc_debug.Reset_Indentation;
2093: END IF;
2094:
2095: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2096: (
2103: );
2104: WHEN OTHERS THEN
2105:
2106: IF (l_debug = 'Y') THEN
2107: okc_debug.log('8000: Exiting update_row:OTHERS Exception', 2);
2108: okc_debug.Reset_Indentation;
2109: END IF;
2110:
2111: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2104: WHEN OTHERS THEN
2105:
2106: IF (l_debug = 'Y') THEN
2107: okc_debug.log('8000: Exiting update_row:OTHERS Exception', 2);
2108: okc_debug.Reset_Indentation;
2109: END IF;
2110:
2111: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2112: (
2165: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2166: BEGIN
2167:
2168: IF (l_debug = 'Y') THEN
2169: okc_debug.Set_Indentation('OKC_CAC_PVT');
2170: okc_debug.log('8200: Entered populate_new_record', 2);
2171: END IF;
2172:
2173: x_cacv_rec := p_cacv_rec;
2166: BEGIN
2167:
2168: IF (l_debug = 'Y') THEN
2169: okc_debug.Set_Indentation('OKC_CAC_PVT');
2170: okc_debug.log('8200: Entered populate_new_record', 2);
2171: END IF;
2172:
2173: x_cacv_rec := p_cacv_rec;
2174: -- Get current database values
2221: x_cacv_rec.last_update_login := l_cacv_rec.last_update_login;
2222: END IF;
2223:
2224: IF (l_debug = 'Y') THEN
2225: okc_debug.log('8300: Exiting populate_new_record ', 2);
2226: okc_debug.Reset_Indentation;
2227: END IF;
2228:
2229: RETURN(l_return_status);
2222: END IF;
2223:
2224: IF (l_debug = 'Y') THEN
2225: okc_debug.log('8300: Exiting populate_new_record ', 2);
2226: okc_debug.Reset_Indentation;
2227: END IF;
2228:
2229: RETURN(l_return_status);
2230:
2249: END Set_Attributes;
2250: BEGIN
2251:
2252: IF (l_debug = 'Y') THEN
2253: okc_debug.Set_Indentation('OKC_CAC_PVT');
2254: okc_debug.log('8400: Entered update_row', 2);
2255: END IF;
2256:
2257: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
2250: BEGIN
2251:
2252: IF (l_debug = 'Y') THEN
2253: okc_debug.Set_Indentation('OKC_CAC_PVT');
2254: okc_debug.log('8400: Entered update_row', 2);
2255: END IF;
2256:
2257: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
2258: G_PKG_NAME,
2322: x_cacv_rec := l_def_cacv_rec;
2323: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2324:
2325: IF (l_debug = 'Y') THEN
2326: okc_debug.log('8450: Leaving update_row', 2);
2327: okc_debug.Reset_Indentation;
2328: END IF;
2329:
2330: EXCEPTION
2323: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2324:
2325: IF (l_debug = 'Y') THEN
2326: okc_debug.log('8450: Leaving update_row', 2);
2327: okc_debug.Reset_Indentation;
2328: END IF;
2329:
2330: EXCEPTION
2331: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2330: EXCEPTION
2331: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2332:
2333: IF (l_debug = 'Y') THEN
2334: okc_debug.log('8500: Exiting update_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
2335: okc_debug.Reset_Indentation;
2336: END IF;
2337:
2338: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2331: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2332:
2333: IF (l_debug = 'Y') THEN
2334: okc_debug.log('8500: Exiting update_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
2335: okc_debug.Reset_Indentation;
2336: END IF;
2337:
2338: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2339: (
2346: );
2347: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2348:
2349: IF (l_debug = 'Y') THEN
2350: okc_debug.log('8600: Exiting update_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
2351: okc_debug.Reset_Indentation;
2352: END IF;
2353:
2354: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2347: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2348:
2349: IF (l_debug = 'Y') THEN
2350: okc_debug.log('8600: Exiting update_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
2351: okc_debug.Reset_Indentation;
2352: END IF;
2353:
2354: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2355: (
2362: );
2363: WHEN OTHERS THEN
2364:
2365: IF (l_debug = 'Y') THEN
2366: okc_debug.log('8700: Exiting update_row:OTHERS Exception', 2);
2367: okc_debug.Reset_Indentation;
2368: END IF;
2369:
2370: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2363: WHEN OTHERS THEN
2364:
2365: IF (l_debug = 'Y') THEN
2366: okc_debug.log('8700: Exiting update_row:OTHERS Exception', 2);
2367: okc_debug.Reset_Indentation;
2368: END IF;
2369:
2370: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2371: (
2397: i NUMBER := 0;
2398: BEGIN
2399:
2400: IF (l_debug = 'Y') THEN
2401: okc_debug.Set_Indentation('OKC_CAC_PVT');
2402: okc_debug.log('8900: Entered update_row', 2);
2403: END IF;
2404:
2405: OKC_API.init_msg_list(p_init_msg_list);
2398: BEGIN
2399:
2400: IF (l_debug = 'Y') THEN
2401: okc_debug.Set_Indentation('OKC_CAC_PVT');
2402: okc_debug.log('8900: Entered update_row', 2);
2403: END IF;
2404:
2405: OKC_API.init_msg_list(p_init_msg_list);
2406: -- Make sure PL/SQL table has records in it before passing
2430: x_return_status := l_overall_status;
2431: END IF;
2432:
2433: IF (l_debug = 'Y') THEN
2434: okc_debug.log('8950: Leaving update_row', 2);
2435: okc_debug.Reset_Indentation;
2436: END IF;
2437:
2438: EXCEPTION
2431: END IF;
2432:
2433: IF (l_debug = 'Y') THEN
2434: okc_debug.log('8950: Leaving update_row', 2);
2435: okc_debug.Reset_Indentation;
2436: END IF;
2437:
2438: EXCEPTION
2439: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2438: EXCEPTION
2439: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2440:
2441: IF (l_debug = 'Y') THEN
2442: okc_debug.log('9000: Exiting update_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
2443: okc_debug.Reset_Indentation;
2444: END IF;
2445:
2446: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2439: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2440:
2441: IF (l_debug = 'Y') THEN
2442: okc_debug.log('9000: Exiting update_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
2443: okc_debug.Reset_Indentation;
2444: END IF;
2445:
2446: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2447: (
2454: );
2455: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2456:
2457: IF (l_debug = 'Y') THEN
2458: okc_debug.log('9100: Exiting update_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
2459: okc_debug.Reset_Indentation;
2460: END IF;
2461:
2462: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2455: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2456:
2457: IF (l_debug = 'Y') THEN
2458: okc_debug.log('9100: Exiting update_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
2459: okc_debug.Reset_Indentation;
2460: END IF;
2461:
2462: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2463: (
2470: );
2471: WHEN OTHERS THEN
2472:
2473: IF (l_debug = 'Y') THEN
2474: okc_debug.log('9200: Exiting update_row:OTHERS Exception', 2);
2475: okc_debug.Reset_Indentation;
2476: END IF;
2477:
2478: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2471: WHEN OTHERS THEN
2472:
2473: IF (l_debug = 'Y') THEN
2474: okc_debug.log('9200: Exiting update_row:OTHERS Exception', 2);
2475: okc_debug.Reset_Indentation;
2476: END IF;
2477:
2478: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2479: (
2507: l_row_notfound BOOLEAN := TRUE;
2508: BEGIN
2509:
2510: IF (l_debug = 'Y') THEN
2511: okc_debug.Set_Indentation('OKC_CAC_PVT');
2512: okc_debug.log('9400: Entered delete_row', 2);
2513: END IF;
2514:
2515: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
2508: BEGIN
2509:
2510: IF (l_debug = 'Y') THEN
2511: okc_debug.Set_Indentation('OKC_CAC_PVT');
2512: okc_debug.log('9400: Entered delete_row', 2);
2513: END IF;
2514:
2515: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
2516: p_init_msg_list,
2526:
2527: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2528:
2529: IF (l_debug = 'Y') THEN
2530: okc_debug.log('9450: Leaving delete_row', 2);
2531: okc_debug.Reset_Indentation;
2532: END IF;
2533:
2534: EXCEPTION
2527: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2528:
2529: IF (l_debug = 'Y') THEN
2530: okc_debug.log('9450: Leaving delete_row', 2);
2531: okc_debug.Reset_Indentation;
2532: END IF;
2533:
2534: EXCEPTION
2535: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2534: EXCEPTION
2535: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2536:
2537: IF (l_debug = 'Y') THEN
2538: okc_debug.log('9500: Exiting delete_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
2539: okc_debug.Reset_Indentation;
2540: END IF;
2541:
2542: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2535: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2536:
2537: IF (l_debug = 'Y') THEN
2538: okc_debug.log('9500: Exiting delete_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
2539: okc_debug.Reset_Indentation;
2540: END IF;
2541:
2542: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2543: (
2550: );
2551: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2552:
2553: IF (l_debug = 'Y') THEN
2554: okc_debug.log('9600: Exiting delete_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
2555: okc_debug.Reset_Indentation;
2556: END IF;
2557:
2558: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2551: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2552:
2553: IF (l_debug = 'Y') THEN
2554: okc_debug.log('9600: Exiting delete_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
2555: okc_debug.Reset_Indentation;
2556: END IF;
2557:
2558: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2559: (
2566: );
2567: WHEN OTHERS THEN
2568:
2569: IF (l_debug = 'Y') THEN
2570: okc_debug.log('9700: Exiting delete_row:OTHERS Exception', 2);
2571: okc_debug.Reset_Indentation;
2572: END IF;
2573:
2574: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2567: WHEN OTHERS THEN
2568:
2569: IF (l_debug = 'Y') THEN
2570: okc_debug.log('9700: Exiting delete_row:OTHERS Exception', 2);
2571: okc_debug.Reset_Indentation;
2572: END IF;
2573:
2574: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2575: (
2600: l_cac_rec cac_rec_type;
2601: BEGIN
2602:
2603: IF (l_debug = 'Y') THEN
2604: okc_debug.Set_Indentation('OKC_CAC_PVT');
2605: okc_debug.log('9900: Entered delete_row', 2);
2606: END IF;
2607:
2608: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
2601: BEGIN
2602:
2603: IF (l_debug = 'Y') THEN
2604: okc_debug.Set_Indentation('OKC_CAC_PVT');
2605: okc_debug.log('9900: Entered delete_row', 2);
2606: END IF;
2607:
2608: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
2609: G_PKG_NAME,
2638: END IF;
2639: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2640:
2641: IF (l_debug = 'Y') THEN
2642: okc_debug.log('9950: Leaving delete_row', 2);
2643: okc_debug.Reset_Indentation;
2644: END IF;
2645:
2646: EXCEPTION
2639: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2640:
2641: IF (l_debug = 'Y') THEN
2642: okc_debug.log('9950: Leaving delete_row', 2);
2643: okc_debug.Reset_Indentation;
2644: END IF;
2645:
2646: EXCEPTION
2647: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2646: EXCEPTION
2647: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2648:
2649: IF (l_debug = 'Y') THEN
2650: okc_debug.log('10000: Exiting delete_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
2651: okc_debug.Reset_Indentation;
2652: END IF;
2653:
2654: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2647: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2648:
2649: IF (l_debug = 'Y') THEN
2650: okc_debug.log('10000: Exiting delete_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
2651: okc_debug.Reset_Indentation;
2652: END IF;
2653:
2654: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2655: (
2662: );
2663: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2664:
2665: IF (l_debug = 'Y') THEN
2666: okc_debug.log('10100: Exiting delete_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
2667: okc_debug.Reset_Indentation;
2668: END IF;
2669:
2670: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2663: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2664:
2665: IF (l_debug = 'Y') THEN
2666: okc_debug.log('10100: Exiting delete_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
2667: okc_debug.Reset_Indentation;
2668: END IF;
2669:
2670: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2671: (
2678: );
2679: WHEN OTHERS THEN
2680:
2681: IF (l_debug = 'Y') THEN
2682: okc_debug.log('10200: Exiting delete_row:OTHERS Exception', 2);
2683: okc_debug.Reset_Indentation;
2684: END IF;
2685:
2686: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2679: WHEN OTHERS THEN
2680:
2681: IF (l_debug = 'Y') THEN
2682: okc_debug.log('10200: Exiting delete_row:OTHERS Exception', 2);
2683: okc_debug.Reset_Indentation;
2684: END IF;
2685:
2686: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2687: (
2712: i NUMBER := 0;
2713: BEGIN
2714:
2715: IF (l_debug = 'Y') THEN
2716: okc_debug.Set_Indentation('OKC_CAC_PVT');
2717: okc_debug.log('10400: Entered delete_row', 2);
2718: END IF;
2719:
2720: OKC_API.init_msg_list(p_init_msg_list);
2713: BEGIN
2714:
2715: IF (l_debug = 'Y') THEN
2716: okc_debug.Set_Indentation('OKC_CAC_PVT');
2717: okc_debug.log('10400: Entered delete_row', 2);
2718: END IF;
2719:
2720: OKC_API.init_msg_list(p_init_msg_list);
2721: -- Make sure PL/SQL table has records in it before passing
2744: x_return_status := l_overall_status;
2745: END IF;
2746:
2747: IF (l_debug = 'Y') THEN
2748: okc_debug.log('10450: Leaving delete_row', 2);
2749: okc_debug.Reset_Indentation;
2750: END IF;
2751:
2752: EXCEPTION
2745: END IF;
2746:
2747: IF (l_debug = 'Y') THEN
2748: okc_debug.log('10450: Leaving delete_row', 2);
2749: okc_debug.Reset_Indentation;
2750: END IF;
2751:
2752: EXCEPTION
2753: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2752: EXCEPTION
2753: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2754:
2755: IF (l_debug = 'Y') THEN
2756: okc_debug.log('10500: Exiting delete_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
2757: okc_debug.Reset_Indentation;
2758: END IF;
2759:
2760: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2753: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2754:
2755: IF (l_debug = 'Y') THEN
2756: okc_debug.log('10500: Exiting delete_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
2757: okc_debug.Reset_Indentation;
2758: END IF;
2759:
2760: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2761: (
2768: );
2769: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2770:
2771: IF (l_debug = 'Y') THEN
2772: okc_debug.log('10600: Exiting delete_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
2773: okc_debug.Reset_Indentation;
2774: END IF;
2775:
2776: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2769: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2770:
2771: IF (l_debug = 'Y') THEN
2772: okc_debug.log('10600: Exiting delete_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
2773: okc_debug.Reset_Indentation;
2774: END IF;
2775:
2776: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2777: (
2784: );
2785: WHEN OTHERS THEN
2786:
2787: IF (l_debug = 'Y') THEN
2788: okc_debug.log('10700: Exiting delete_row:OTHERS Exception', 2);
2789: okc_debug.Reset_Indentation;
2790: END IF;
2791:
2792: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2785: WHEN OTHERS THEN
2786:
2787: IF (l_debug = 'Y') THEN
2788: okc_debug.log('10700: Exiting delete_row:OTHERS Exception', 2);
2789: okc_debug.Reset_Indentation;
2790: END IF;
2791:
2792: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2793: (
2814:
2815: BEGIN
2816:
2817: IF (l_debug = 'Y') THEN
2818: okc_debug.Set_Indentation('OKC_CAC_PVT');
2819: okc_debug.log('10900: Entered create_version', 2);
2820: END IF;
2821:
2822: INSERT INTO okc_k_accesses_h
2815: BEGIN
2816:
2817: IF (l_debug = 'Y') THEN
2818: okc_debug.Set_Indentation('OKC_CAC_PVT');
2819: okc_debug.log('10900: Entered create_version', 2);
2820: END IF;
2821:
2822: INSERT INTO okc_k_accesses_h
2823: (
2850: FROM okc_k_accesses
2851: WHERE chr_id = p_chr_id;
2852:
2853: IF (l_debug = 'Y') THEN
2854: okc_debug.log('10000: Leaving create_version', 2);
2855: okc_debug.Reset_Indentation;
2856: END IF;
2857:
2858: RETURN l_return_status;
2851: WHERE chr_id = p_chr_id;
2852:
2853: IF (l_debug = 'Y') THEN
2854: okc_debug.log('10000: Leaving create_version', 2);
2855: okc_debug.Reset_Indentation;
2856: END IF;
2857:
2858: RETURN l_return_status;
2859:
2861: -- other appropriate handlers
2862: WHEN OTHERS THEN
2863:
2864: IF (l_debug = 'Y') THEN
2865: okc_debug.log('11000: Exiting create_version:OTHERS Exception', 2);
2866: okc_debug.Reset_Indentation;
2867: END IF;
2868:
2869: -- store SQL error message on message stack
2862: WHEN OTHERS THEN
2863:
2864: IF (l_debug = 'Y') THEN
2865: okc_debug.log('11000: Exiting create_version:OTHERS Exception', 2);
2866: okc_debug.Reset_Indentation;
2867: END IF;
2868:
2869: -- store SQL error message on message stack
2870: OKC_API.SET_MESSAGE(p_app_name => okc_version_pvt.G_APP_NAME,
2893:
2894: BEGIN
2895:
2896: IF (l_debug = 'Y') THEN
2897: okc_debug.Set_Indentation('OKC_CAC_PVT');
2898: okc_debug.log('11300: Entered restore_version', 2);
2899: END IF;
2900:
2901: INSERT INTO okc_k_accesses
2894: BEGIN
2895:
2896: IF (l_debug = 'Y') THEN
2897: okc_debug.Set_Indentation('OKC_CAC_PVT');
2898: okc_debug.log('11300: Entered restore_version', 2);
2899: END IF;
2900:
2901: INSERT INTO okc_k_accesses
2902: (
2928: WHERE chr_id = p_chr_id
2929: AND major_version = p_major_version;
2930:
2931: IF (l_debug = 'Y') THEN
2932: okc_debug.log('11400: Leaving restore_version', 2);
2933: okc_debug.Reset_Indentation;
2934: END IF;
2935:
2936: RETURN l_return_status;
2929: AND major_version = p_major_version;
2930:
2931: IF (l_debug = 'Y') THEN
2932: okc_debug.log('11400: Leaving restore_version', 2);
2933: okc_debug.Reset_Indentation;
2934: END IF;
2935:
2936: RETURN l_return_status;
2937:
2939: -- other appropriate handlers
2940: WHEN OTHERS THEN
2941:
2942: IF (l_debug = 'Y') THEN
2943: okc_debug.log('11500: Exiting restore_version:OTHERS Exception', 2);
2944: okc_debug.Reset_Indentation;
2945: END IF;
2946:
2947: -- store SQL error message on message stack
2940: WHEN OTHERS THEN
2941:
2942: IF (l_debug = 'Y') THEN
2943: okc_debug.log('11500: Exiting restore_version:OTHERS Exception', 2);
2944: okc_debug.Reset_Indentation;
2945: END IF;
2946:
2947: -- store SQL error message on message stack
2948: OKC_API.SET_MESSAGE(p_app_name => okc_version_pvt.G_APP_NAME,