[Home] [Help]
21:
22: Begin
23:
24: IF (l_debug = 'Y') THEN
25: okc_debug.Set_Indentation('OKC_SCN_PVT');
26: okc_debug.log('100: Entered validate_scn_type', 2);
27: END IF;
28:
29: -- initialize return status
22: Begin
23:
24: IF (l_debug = 'Y') THEN
25: okc_debug.Set_Indentation('OKC_SCN_PVT');
26: okc_debug.log('100: Entered validate_scn_type', 2);
27: END IF;
28:
29: -- initialize return status
30: x_return_status := OKC_API.G_RET_STS_SUCCESS;
55: End If;
56:
57:
58: IF (l_debug = 'Y') THEN
59: okc_debug.log('200: Leaving validate_scn_type', 2);
60: okc_debug.Reset_Indentation;
61: END IF;
62:
63: exception
56:
57:
58: IF (l_debug = 'Y') THEN
59: okc_debug.log('200: Leaving validate_scn_type', 2);
60: okc_debug.Reset_Indentation;
61: END IF;
62:
63: exception
64: when G_EXCEPTION_HALT_VALIDATION then
63: exception
64: when G_EXCEPTION_HALT_VALIDATION then
65:
66: IF (l_debug = 'Y') THEN
67: okc_debug.log('300: Exiting validate_scn_type:G_EXCEPTION_HALT_VALIDATION Exception', 2);
68: okc_debug.Reset_Indentation;
69: END IF;
70:
71: -- no processing necessary; validation can continue with next column
64: when G_EXCEPTION_HALT_VALIDATION then
65:
66: IF (l_debug = 'Y') THEN
67: okc_debug.log('300: Exiting validate_scn_type:G_EXCEPTION_HALT_VALIDATION Exception', 2);
68: okc_debug.Reset_Indentation;
69: END IF;
70:
71: -- no processing necessary; validation can continue with next column
72: null;
73:
74: when OTHERS then
75:
76: IF (l_debug = 'Y') THEN
77: okc_debug.log('400: Exiting validate_scn_type:OTHERS Exception', 2);
78: okc_debug.Reset_Indentation;
79: END IF;
80:
81: -- store SQL error message on message stack
74: when OTHERS then
75:
76: IF (l_debug = 'Y') THEN
77: okc_debug.log('400: Exiting validate_scn_type:OTHERS Exception', 2);
78: okc_debug.Reset_Indentation;
79: END IF;
80:
81: -- store SQL error message on message stack
82: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
109:
110: Begin
111:
112: IF (l_debug = 'Y') THEN
113: okc_debug.Set_Indentation('OKC_SCN_PVT');
114: okc_debug.log('500: Entered validate_chr_id', 2);
115: END IF;
116:
117: -- initialize return status
110: Begin
111:
112: IF (l_debug = 'Y') THEN
113: okc_debug.Set_Indentation('OKC_SCN_PVT');
114: okc_debug.log('500: Entered validate_chr_id', 2);
115: END IF;
116:
117: -- initialize return status
118: x_return_status := OKC_API.G_RET_STS_SUCCESS;
140: End If;
141: End If;
142:
143: IF (l_debug = 'Y') THEN
144: okc_debug.log('600: Leaving validate_chr_id', 2);
145: okc_debug.Reset_Indentation;
146: END IF;
147: exception
148: when OTHERS then
141: End If;
142:
143: IF (l_debug = 'Y') THEN
144: okc_debug.log('600: Leaving validate_chr_id', 2);
145: okc_debug.Reset_Indentation;
146: END IF;
147: exception
148: when OTHERS then
149:
147: exception
148: when OTHERS then
149:
150: IF (l_debug = 'Y') THEN
151: okc_debug.log('700: Exiting validate_chr_id:OTHERS Exception', 2);
152: okc_debug.Reset_Indentation;
153: END IF;
154:
155: -- store SQL error message on message stack
148: when OTHERS then
149:
150: IF (l_debug = 'Y') THEN
151: okc_debug.log('700: Exiting validate_chr_id:OTHERS Exception', 2);
152: okc_debug.Reset_Indentation;
153: END IF;
154:
155: -- store SQL error message on message stack
156: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
190: AND satv.lookup_type = 'OKC_ARTICLE_SET';
191: BEGIN
192:
193: IF (l_debug = 'Y') THEN
194: okc_debug.Set_Indentation('OKC_SCN_PVT');
195: okc_debug.log('800: Entered validate_sat_code', 2);
196: END IF;
197:
198: -- initialize return status
191: BEGIN
192:
193: IF (l_debug = 'Y') THEN
194: okc_debug.Set_Indentation('OKC_SCN_PVT');
195: okc_debug.log('800: Entered validate_sat_code', 2);
196: END IF;
197:
198: -- initialize return status
199: x_return_status := OKC_API.G_RET_STS_SUCCESS;
234: END IF;
235: END IF;
236:
237: IF (l_debug = 'Y') THEN
238: okc_debug.log('900: Leaving validate_sat_code', 2);
239: okc_debug.Reset_Indentation;
240: END IF;
241:
242: EXCEPTION
235: END IF;
236:
237: IF (l_debug = 'Y') THEN
238: okc_debug.log('900: Leaving validate_sat_code', 2);
239: okc_debug.Reset_Indentation;
240: END IF;
241:
242: EXCEPTION
243: WHEN G_EXCEPTION_HALT_VALIDATION THEN
242: EXCEPTION
243: WHEN G_EXCEPTION_HALT_VALIDATION THEN
244:
245: IF (l_debug = 'Y') THEN
246: okc_debug.log('1000: Exiting validate_sat_code:G_EXCEPTION_HALT_VALIDATION Exception', 2);
247: okc_debug.Reset_Indentation;
248: END IF;
249:
250: -- no processing necessary; validation can continue with next column
243: WHEN G_EXCEPTION_HALT_VALIDATION THEN
244:
245: IF (l_debug = 'Y') THEN
246: okc_debug.log('1000: Exiting validate_sat_code:G_EXCEPTION_HALT_VALIDATION Exception', 2);
247: okc_debug.Reset_Indentation;
248: END IF;
249:
250: -- no processing necessary; validation can continue with next column
251: NULL;
251: NULL;
252: WHEN OTHERS THEN
253:
254: IF (l_debug = 'Y') THEN
255: okc_debug.log('1100: Exiting validate_sat_code:OTHERS Exception', 2);
256: okc_debug.Reset_Indentation;
257: END IF;
258:
259: -- store SQL error message on message stack
252: WHEN OTHERS THEN
253:
254: IF (l_debug = 'Y') THEN
255: okc_debug.log('1100: Exiting validate_sat_code:OTHERS Exception', 2);
256: okc_debug.Reset_Indentation;
257: END IF;
258:
259: -- store SQL error message on message stack
260: OKC_API.SET_MESSAGE(
286:
287: Begin
288:
289: IF (l_debug = 'Y') THEN
290: okc_debug.Set_Indentation('OKC_SCN_PVT');
291: okc_debug.log('1200: Entered validate_section_sequence', 2);
292: END IF;
293:
294: -- initialize return status
287: Begin
288:
289: IF (l_debug = 'Y') THEN
290: okc_debug.Set_Indentation('OKC_SCN_PVT');
291: okc_debug.log('1200: Entered validate_section_sequence', 2);
292: END IF;
293:
294: -- initialize return status
295: x_return_status := OKC_API.G_RET_STS_SUCCESS;
308: raise G_EXCEPTION_HALT_VALIDATION;
309: End If;
310:
311: IF (l_debug = 'Y') THEN
312: okc_debug.log('1300: Leaving validate_section_sequence', 2);
313: okc_debug.Reset_Indentation;
314: END IF;
315: exception
316: when OTHERS then
309: End If;
310:
311: IF (l_debug = 'Y') THEN
312: okc_debug.log('1300: Leaving validate_section_sequence', 2);
313: okc_debug.Reset_Indentation;
314: END IF;
315: exception
316: when OTHERS then
317:
315: exception
316: when OTHERS then
317:
318: IF (l_debug = 'Y') THEN
319: okc_debug.log('1400: Exiting validate_section_sequence:OTHERS Exception', 2);
320: okc_debug.Reset_Indentation;
321: END IF;
322:
323: -- store SQL error message on message stack
316: when OTHERS then
317:
318: IF (l_debug = 'Y') THEN
319: okc_debug.log('1400: Exiting validate_section_sequence:OTHERS Exception', 2);
320: okc_debug.Reset_Indentation;
321: END IF;
322:
323: -- store SQL error message on message stack
324: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
345:
346: Begin
347:
348: IF (l_debug = 'Y') THEN
349: okc_debug.Set_Indentation('OKC_SCN_PVT');
350: okc_debug.log('1500: Entered validate_sfwt_flag', 2);
351: END IF;
352:
353: -- initialize return status
346: Begin
347:
348: IF (l_debug = 'Y') THEN
349: okc_debug.Set_Indentation('OKC_SCN_PVT');
350: okc_debug.log('1500: Entered validate_sfwt_flag', 2);
351: END IF;
352:
353: -- initialize return status
354: x_return_status := OKC_API.G_RET_STS_SUCCESS;
378: x_return_status := OKC_API.G_RET_STS_ERROR;
379: End If;
380:
381: IF (l_debug = 'Y') THEN
382: okc_debug.log('1600: Leaving validate_sfwt_flag', 2);
383: okc_debug.Reset_Indentation;
384: END IF;
385:
386: exception
379: End If;
380:
381: IF (l_debug = 'Y') THEN
382: okc_debug.log('1600: Leaving validate_sfwt_flag', 2);
383: okc_debug.Reset_Indentation;
384: END IF;
385:
386: exception
387: when G_EXCEPTION_HALT_VALIDATION then
386: exception
387: when G_EXCEPTION_HALT_VALIDATION then
388:
389: IF (l_debug = 'Y') THEN
390: okc_debug.log('1700: Exiting validate_sfwt_flag:G_EXCEPTION_HALT_VALIDATION Exception', 2);
391: okc_debug.Reset_Indentation;
392: END IF;
393:
394: -- no processing necessary; validation can continue with next column
387: when G_EXCEPTION_HALT_VALIDATION then
388:
389: IF (l_debug = 'Y') THEN
390: okc_debug.log('1700: Exiting validate_sfwt_flag:G_EXCEPTION_HALT_VALIDATION Exception', 2);
391: okc_debug.Reset_Indentation;
392: END IF;
393:
394: -- no processing necessary; validation can continue with next column
395: null;
396:
397: when OTHERS then
398:
399: IF (l_debug = 'Y') THEN
400: okc_debug.log('1800: Exiting validate_sfwt_flag:OTHERS Exception', 2);
401: okc_debug.Reset_Indentation;
402: END IF;
403:
404: -- store SQL error message on message stack
397: when OTHERS then
398:
399: IF (l_debug = 'Y') THEN
400: okc_debug.log('1800: Exiting validate_sfwt_flag:OTHERS Exception', 2);
401: okc_debug.Reset_Indentation;
402: END IF;
403:
404: -- store SQL error message on message stack
405: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
432:
433: Begin
434:
435: IF (l_debug = 'Y') THEN
436: okc_debug.Set_Indentation('OKC_SCN_PVT');
437: okc_debug.log('1900: Entered validate_scn_id', 2);
438: END IF;
439:
440: -- initialize return status
433: Begin
434:
435: IF (l_debug = 'Y') THEN
436: okc_debug.Set_Indentation('OKC_SCN_PVT');
437: okc_debug.log('1900: Entered validate_scn_id', 2);
438: END IF;
439:
440: -- initialize return status
441: x_return_status := OKC_API.G_RET_STS_SUCCESS;
462: End If;
463: End If;
464:
465: IF (l_debug = 'Y') THEN
466: okc_debug.log('2000: Leaving validate_scn_id', 2);
467: okc_debug.Reset_Indentation;
468: END IF;
469:
470: exception
463: End If;
464:
465: IF (l_debug = 'Y') THEN
466: okc_debug.log('2000: Leaving validate_scn_id', 2);
467: okc_debug.Reset_Indentation;
468: END IF;
469:
470: exception
471: when OTHERS then
470: exception
471: when OTHERS then
472:
473: IF (l_debug = 'Y') THEN
474: okc_debug.log('2100: Exiting validate_scn_id:OTHERS Exception', 2);
475: okc_debug.Reset_Indentation;
476: END IF;
477:
478: -- store SQL error message on message stack
471: when OTHERS then
472:
473: IF (l_debug = 'Y') THEN
474: okc_debug.log('2100: Exiting validate_scn_id:OTHERS Exception', 2);
475: okc_debug.Reset_Indentation;
476: END IF;
477:
478: -- store SQL error message on message stack
479: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
509: PROCEDURE add_language IS
510: BEGIN
511:
512: IF (l_debug = 'Y') THEN
513: okc_debug.Set_Indentation('OKC_SCN_PVT');
514: okc_debug.log('2300: Entered add_language', 2);
515: END IF;
516:
517: DELETE FROM OKC_SECTIONS_TL T
510: BEGIN
511:
512: IF (l_debug = 'Y') THEN
513: okc_debug.Set_Indentation('OKC_SCN_PVT');
514: okc_debug.log('2300: Entered add_language', 2);
515: END IF;
516:
517: DELETE FROM OKC_SECTIONS_TL T
518: WHERE NOT EXISTS (
641:
642:
643:
644: IF (l_debug = 'Y') THEN
645: okc_debug.log('11950: Leaving add_language ', 2);
646: okc_debug.Reset_Indentation;
647: END IF;
648: END add_language;
649:
642:
643:
644: IF (l_debug = 'Y') THEN
645: okc_debug.log('11950: Leaving add_language ', 2);
646: okc_debug.Reset_Indentation;
647: END IF;
648: END add_language;
649:
650: ---------------------------------------------------------------------------
691: l_scn_rec scn_rec_type;
692: BEGIN
693:
694: IF (l_debug = 'Y') THEN
695: okc_debug.Set_Indentation('OKC_SCN_PVT');
696: okc_debug.log('2400: Entered get_rec', 2);
697: END IF;
698:
699: x_no_data_found := TRUE;
692: BEGIN
693:
694: IF (l_debug = 'Y') THEN
695: okc_debug.Set_Indentation('OKC_SCN_PVT');
696: okc_debug.log('2400: Entered get_rec', 2);
697: END IF;
698:
699: x_no_data_found := TRUE;
700: -- Get current database values
732: x_no_data_found := okc_sections_b_pk_csr%NOTFOUND;
733: CLOSE okc_sections_b_pk_csr;
734:
735: IF (l_debug = 'Y') THEN
736: okc_debug.log('900: Leaving Fn Get_Rec ', 2);
737: okc_debug.Reset_Indentation;
738: END IF;
739:
740: RETURN(l_scn_rec);
733: CLOSE okc_sections_b_pk_csr;
734:
735: IF (l_debug = 'Y') THEN
736: okc_debug.log('900: Leaving Fn Get_Rec ', 2);
737: okc_debug.Reset_Indentation;
738: END IF;
739:
740: RETURN(l_scn_rec);
741:
777: l_okc_sections_tl_rec okc_sections_tl_rec_type;
778: BEGIN
779:
780: IF (l_debug = 'Y') THEN
781: okc_debug.Set_Indentation('OKC_SCN_PVT');
782: okc_debug.log('2600: Entered get_rec', 2);
783: END IF;
784:
785: x_no_data_found := TRUE;
778: BEGIN
779:
780: IF (l_debug = 'Y') THEN
781: okc_debug.Set_Indentation('OKC_SCN_PVT');
782: okc_debug.log('2600: Entered get_rec', 2);
783: END IF;
784:
785: x_no_data_found := TRUE;
786: -- Get current database values
799: l_okc_sections_tl_rec.LAST_UPDATE_LOGIN;
800: x_no_data_found := okc_sections_tl_pk_csr%NOTFOUND;
801: CLOSE okc_sections_tl_pk_csr;
802: IF (l_debug = 'Y') THEN
803: okc_debug.log('900: Leaving Fn Get_Rec ', 2);
804: okc_debug.Reset_Indentation;
805: END IF;
806:
807: RETURN(l_okc_sections_tl_rec);
800: x_no_data_found := okc_sections_tl_pk_csr%NOTFOUND;
801: CLOSE okc_sections_tl_pk_csr;
802: IF (l_debug = 'Y') THEN
803: okc_debug.log('900: Leaving Fn Get_Rec ', 2);
804: okc_debug.Reset_Indentation;
805: END IF;
806:
807: RETURN(l_okc_sections_tl_rec);
808:
868: l_scnv_rec scnv_rec_type;
869: BEGIN
870:
871: IF (l_debug = 'Y') THEN
872: okc_debug.Set_Indentation('OKC_SCN_PVT');
873: okc_debug.log('2800: Entered get_rec', 2);
874: END IF;
875:
876: x_no_data_found := TRUE;
869: BEGIN
870:
871: IF (l_debug = 'Y') THEN
872: okc_debug.Set_Indentation('OKC_SCN_PVT');
873: okc_debug.log('2800: Entered get_rec', 2);
874: END IF;
875:
876: x_no_data_found := TRUE;
877:
916: CLOSE okc_scnv_pk_csr;
917:
918: -- UPTO THIS - JOHN
919: IF (l_debug = 'Y') THEN
920: okc_debug.log('900: Leaving Fn Get_Rec ', 2);
921: okc_debug.Reset_Indentation;
922: END IF;
923:
924: RETURN(l_scnv_rec);
917:
918: -- UPTO THIS - JOHN
919: IF (l_debug = 'Y') THEN
920: okc_debug.log('900: Leaving Fn Get_Rec ', 2);
921: okc_debug.Reset_Indentation;
922: END IF;
923:
924: RETURN(l_scnv_rec);
925:
944: l_scnv_rec scnv_rec_type := p_scnv_rec;
945: BEGIN
946:
947: IF (l_debug = 'Y') THEN
948: okc_debug.Set_Indentation('OKC_SCN_PVT');
949: okc_debug.log('3000: Entered null_out_defaults', 2);
950: END IF;
951:
952: IF (l_scnv_rec.id = OKC_API.G_MISS_NUM) THEN
945: BEGIN
946:
947: IF (l_debug = 'Y') THEN
948: okc_debug.Set_Indentation('OKC_SCN_PVT');
949: okc_debug.log('3000: Entered null_out_defaults', 2);
950: END IF;
951:
952: IF (l_scnv_rec.id = OKC_API.G_MISS_NUM) THEN
953: l_scnv_rec.id := NULL;
1043: l_scnv_rec.attribute15 := NULL;
1044: END IF;
1045:
1046: IF (l_debug = 'Y') THEN
1047: okc_debug.log('500: Leaving null_out_defaults ', 2);
1048: okc_debug.Reset_Indentation;
1049: END IF;
1050:
1051: RETURN(l_scnv_rec);
1044: END IF;
1045:
1046: IF (l_debug = 'Y') THEN
1047: okc_debug.log('500: Leaving null_out_defaults ', 2);
1048: okc_debug.Reset_Indentation;
1049: END IF;
1050:
1051: RETURN(l_scnv_rec);
1052:
1064: x_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1065: BEGIN
1066:
1067: IF (l_debug = 'Y') THEN
1068: okc_debug.Set_Indentation('OKC_SCN_PVT');
1069: okc_debug.log('3100: Entered Validate_Attributes', 2);
1070: END IF;
1071:
1072: /************************ HAND-CODED *********************************/
1065: BEGIN
1066:
1067: IF (l_debug = 'Y') THEN
1068: okc_debug.Set_Indentation('OKC_SCN_PVT');
1069: okc_debug.log('3100: Entered Validate_Attributes', 2);
1070: END IF;
1071:
1072: /************************ HAND-CODED *********************************/
1073: validate_scn_type
1136: End If;
1137: End If;
1138:
1139: IF (l_debug = 'Y') THEN
1140: okc_debug.log('3200: Leaving Validate_Attributes', 2);
1141: okc_debug.Reset_Indentation;
1142: END IF;
1143:
1144: RETURN(x_return_status);
1137: End If;
1138:
1139: IF (l_debug = 'Y') THEN
1140: okc_debug.log('3200: Leaving Validate_Attributes', 2);
1141: okc_debug.Reset_Indentation;
1142: END IF;
1143:
1144: RETURN(x_return_status);
1145:
1146: exception
1147: when OTHERS then
1148:
1149: IF (l_debug = 'Y') THEN
1150: okc_debug.log('3300: Exiting Validate_Attributes:OTHERS Exception', 2);
1151: okc_debug.Reset_Indentation;
1152: END IF;
1153:
1154: -- store SQL error message on message stack
1147: when OTHERS then
1148:
1149: IF (l_debug = 'Y') THEN
1150: okc_debug.log('3300: Exiting Validate_Attributes:OTHERS Exception', 2);
1151: okc_debug.Reset_Indentation;
1152: END IF;
1153:
1154: -- store SQL error message on message stack
1155: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
1208:
1209: BEGIN
1210:
1211: IF (l_debug = 'Y') THEN
1212: okc_debug.Set_Indentation('OKC_SCN_PVT');
1213: okc_debug.log('3400: Entered Validate_Record', 2);
1214: END IF;
1215:
1216:
1209: BEGIN
1210:
1211: IF (l_debug = 'Y') THEN
1212: okc_debug.Set_Indentation('OKC_SCN_PVT');
1213: okc_debug.log('3400: Entered Validate_Record', 2);
1214: END IF;
1215:
1216:
1217: -- ---------------------------------------------------------------------
1251: RAISE G_EXCEPTION_HALT_VALIDATION;
1252: END IF;
1253:
1254: IF (l_debug = 'Y') THEN
1255: okc_debug.log('3500: Leaving Validate_Record', 2);
1256: okc_debug.Reset_Indentation;
1257: END IF;
1258:
1259: RETURN (l_return_status);
1252: END IF;
1253:
1254: IF (l_debug = 'Y') THEN
1255: okc_debug.log('3500: Leaving Validate_Record', 2);
1256: okc_debug.Reset_Indentation;
1257: END IF;
1258:
1259: RETURN (l_return_status);
1260:
1261: EXCEPTION
1262: WHEN G_EXCEPTION_HALT_VALIDATION THEN
1263:
1264: IF (l_debug = 'Y') THEN
1265: okc_debug.log('3600: Exiting Validate_Record:G_EXCEPTION_HALT_VALIDATION Exception', 2);
1266: okc_debug.Reset_Indentation;
1267: END IF;
1268:
1269: -- no processing necessary; validation can continue with next column
1262: WHEN G_EXCEPTION_HALT_VALIDATION THEN
1263:
1264: IF (l_debug = 'Y') THEN
1265: okc_debug.log('3600: Exiting Validate_Record:G_EXCEPTION_HALT_VALIDATION Exception', 2);
1266: okc_debug.Reset_Indentation;
1267: END IF;
1268:
1269: -- no processing necessary; validation can continue with next column
1270: RETURN (l_return_status);
1411: l_okc_sections_tl_rec okc_sections_tl_rec_type;
1412: BEGIN
1413:
1414: IF (l_debug = 'Y') THEN
1415: okc_debug.Set_Indentation('OKC_SCN_PVT');
1416: okc_debug.log('4100: Entered validate_row', 2);
1417: END IF;
1418:
1419: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
1412: BEGIN
1413:
1414: IF (l_debug = 'Y') THEN
1415: okc_debug.Set_Indentation('OKC_SCN_PVT');
1416: okc_debug.log('4100: Entered validate_row', 2);
1417: END IF;
1418:
1419: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
1420: G_PKG_NAME,
1444: END IF;
1445: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1446:
1447: IF (l_debug = 'Y') THEN
1448: okc_debug.log('4200: Leaving validate_row', 2);
1449: okc_debug.Reset_Indentation;
1450: END IF;
1451:
1452: EXCEPTION
1445: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1446:
1447: IF (l_debug = 'Y') THEN
1448: okc_debug.log('4200: Leaving validate_row', 2);
1449: okc_debug.Reset_Indentation;
1450: END IF;
1451:
1452: EXCEPTION
1453: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1452: EXCEPTION
1453: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1454:
1455: IF (l_debug = 'Y') THEN
1456: okc_debug.log('4300: Exiting validate_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
1457: okc_debug.Reset_Indentation;
1458: END IF;
1459:
1460: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1453: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1454:
1455: IF (l_debug = 'Y') THEN
1456: okc_debug.log('4300: Exiting validate_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
1457: okc_debug.Reset_Indentation;
1458: END IF;
1459:
1460: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1461: (
1468: );
1469: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1470:
1471: IF (l_debug = 'Y') THEN
1472: okc_debug.log('4400: Exiting validate_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
1473: okc_debug.Reset_Indentation;
1474: END IF;
1475:
1476: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1469: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1470:
1471: IF (l_debug = 'Y') THEN
1472: okc_debug.log('4400: Exiting validate_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
1473: okc_debug.Reset_Indentation;
1474: END IF;
1475:
1476: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1477: (
1484: );
1485: WHEN OTHERS THEN
1486:
1487: IF (l_debug = 'Y') THEN
1488: okc_debug.log('4500: Exiting validate_row:OTHERS Exception', 2);
1489: okc_debug.Reset_Indentation;
1490: END IF;
1491:
1492: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1485: WHEN OTHERS THEN
1486:
1487: IF (l_debug = 'Y') THEN
1488: okc_debug.log('4500: Exiting validate_row:OTHERS Exception', 2);
1489: okc_debug.Reset_Indentation;
1490: END IF;
1491:
1492: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1493: (
1517: i NUMBER := 0;
1518: BEGIN
1519:
1520: IF (l_debug = 'Y') THEN
1521: okc_debug.Set_Indentation('OKC_SCN_PVT');
1522: okc_debug.log('4600: Entered validate_row', 2);
1523: END IF;
1524:
1525: OKC_API.init_msg_list(p_init_msg_list);
1518: BEGIN
1519:
1520: IF (l_debug = 'Y') THEN
1521: okc_debug.Set_Indentation('OKC_SCN_PVT');
1522: okc_debug.log('4600: Entered validate_row', 2);
1523: END IF;
1524:
1525: OKC_API.init_msg_list(p_init_msg_list);
1526: -- Make sure PL/SQL table has records in it before passing
1539: END LOOP;
1540: END IF;
1541:
1542: IF (l_debug = 'Y') THEN
1543: okc_debug.log('4700: Leaving validate_row', 2);
1544: okc_debug.Reset_Indentation;
1545: END IF;
1546: EXCEPTION
1547: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1540: END IF;
1541:
1542: IF (l_debug = 'Y') THEN
1543: okc_debug.log('4700: Leaving validate_row', 2);
1544: okc_debug.Reset_Indentation;
1545: END IF;
1546: EXCEPTION
1547: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1548:
1546: EXCEPTION
1547: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1548:
1549: IF (l_debug = 'Y') THEN
1550: okc_debug.log('4800: Exiting validate_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
1551: okc_debug.Reset_Indentation;
1552: END IF;
1553:
1554: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1547: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1548:
1549: IF (l_debug = 'Y') THEN
1550: okc_debug.log('4800: Exiting validate_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
1551: okc_debug.Reset_Indentation;
1552: END IF;
1553:
1554: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1555: (
1562: );
1563: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1564:
1565: IF (l_debug = 'Y') THEN
1566: okc_debug.log('4900: Exiting validate_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
1567: okc_debug.Reset_Indentation;
1568: END IF;
1569:
1570: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1563: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1564:
1565: IF (l_debug = 'Y') THEN
1566: okc_debug.log('4900: Exiting validate_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
1567: okc_debug.Reset_Indentation;
1568: END IF;
1569:
1570: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1571: (
1578: );
1579: WHEN OTHERS THEN
1580:
1581: IF (l_debug = 'Y') THEN
1582: okc_debug.log('5000: Exiting validate_row:OTHERS Exception', 2);
1583: okc_debug.Reset_Indentation;
1584: END IF;
1585:
1586: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1579: WHEN OTHERS THEN
1580:
1581: IF (l_debug = 'Y') THEN
1582: okc_debug.log('5000: Exiting validate_row:OTHERS Exception', 2);
1583: okc_debug.Reset_Indentation;
1584: END IF;
1585:
1586: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1587: (
1627: END Set_Attributes;
1628: BEGIN
1629:
1630: IF (l_debug = 'Y') THEN
1631: okc_debug.Set_Indentation('OKC_SCN_PVT');
1632: okc_debug.log('5200: Entered insert_row', 2);
1633: END IF;
1634:
1635: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
1628: BEGIN
1629:
1630: IF (l_debug = 'Y') THEN
1631: okc_debug.Set_Indentation('OKC_SCN_PVT');
1632: okc_debug.log('5200: Entered insert_row', 2);
1633: END IF;
1634:
1635: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
1636: p_init_msg_list,
1716: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1717:
1718:
1719: IF (l_debug = 'Y') THEN
1720: okc_debug.log('5300: Leaving insert_row', 2);
1721: okc_debug.Reset_Indentation;
1722: END IF;
1723:
1724: EXCEPTION
1717:
1718:
1719: IF (l_debug = 'Y') THEN
1720: okc_debug.log('5300: Leaving insert_row', 2);
1721: okc_debug.Reset_Indentation;
1722: END IF;
1723:
1724: EXCEPTION
1725: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1724: EXCEPTION
1725: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1726:
1727: IF (l_debug = 'Y') THEN
1728: okc_debug.log('5400: Exiting insert_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
1729: okc_debug.Reset_Indentation;
1730: END IF;
1731:
1732: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1725: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1726:
1727: IF (l_debug = 'Y') THEN
1728: okc_debug.log('5400: Exiting insert_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
1729: okc_debug.Reset_Indentation;
1730: END IF;
1731:
1732: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1733: (
1740: );
1741: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1742:
1743: IF (l_debug = 'Y') THEN
1744: okc_debug.log('5500: Exiting insert_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
1745: okc_debug.Reset_Indentation;
1746: END IF;
1747:
1748: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1741: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1742:
1743: IF (l_debug = 'Y') THEN
1744: okc_debug.log('5500: Exiting insert_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
1745: okc_debug.Reset_Indentation;
1746: END IF;
1747:
1748: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1749: (
1756: );
1757: WHEN OTHERS THEN
1758:
1759: IF (l_debug = 'Y') THEN
1760: okc_debug.log('5600: Exiting insert_row:OTHERS Exception', 2);
1761: okc_debug.Reset_Indentation;
1762: END IF;
1763:
1764: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1757: WHEN OTHERS THEN
1758:
1759: IF (l_debug = 'Y') THEN
1760: okc_debug.log('5600: Exiting insert_row:OTHERS Exception', 2);
1761: okc_debug.Reset_Indentation;
1762: END IF;
1763:
1764: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1765: (
1810: END Set_Attributes;
1811: BEGIN
1812:
1813: IF (l_debug = 'Y') THEN
1814: okc_debug.Set_Indentation('OKC_SCN_PVT');
1815: okc_debug.log('5800: Entered insert_row', 2);
1816: END IF;
1817:
1818: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
1811: BEGIN
1812:
1813: IF (l_debug = 'Y') THEN
1814: okc_debug.Set_Indentation('OKC_SCN_PVT');
1815: okc_debug.log('5800: Entered insert_row', 2);
1816: END IF;
1817:
1818: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
1819: p_init_msg_list,
1863: x_okc_sections_tl_rec := l_okc_sections_tl_rec;
1864: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1865:
1866: IF (l_debug = 'Y') THEN
1867: okc_debug.log('5900: Leaving insert_row', 2);
1868: okc_debug.Reset_Indentation;
1869: END IF;
1870:
1871: EXCEPTION
1864: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1865:
1866: IF (l_debug = 'Y') THEN
1867: okc_debug.log('5900: Leaving insert_row', 2);
1868: okc_debug.Reset_Indentation;
1869: END IF;
1870:
1871: EXCEPTION
1872: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1871: EXCEPTION
1872: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1873:
1874: IF (l_debug = 'Y') THEN
1875: okc_debug.log('6000: Exiting insert_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
1876: okc_debug.Reset_Indentation;
1877: END IF;
1878:
1879: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1872: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1873:
1874: IF (l_debug = 'Y') THEN
1875: okc_debug.log('6000: Exiting insert_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
1876: okc_debug.Reset_Indentation;
1877: END IF;
1878:
1879: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1880: (
1887: );
1888: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1889:
1890: IF (l_debug = 'Y') THEN
1891: okc_debug.log('6100: Exiting insert_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
1892: okc_debug.Reset_Indentation;
1893: END IF;
1894:
1895: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1888: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1889:
1890: IF (l_debug = 'Y') THEN
1891: okc_debug.log('6100: Exiting insert_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
1892: okc_debug.Reset_Indentation;
1893: END IF;
1894:
1895: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1896: (
1903: );
1904: WHEN OTHERS THEN
1905:
1906: IF (l_debug = 'Y') THEN
1907: okc_debug.log('6200: Exiting insert_row:OTHERS Exception', 2);
1908: okc_debug.Reset_Indentation;
1909: END IF;
1910:
1911: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1904: WHEN OTHERS THEN
1905:
1906: IF (l_debug = 'Y') THEN
1907: okc_debug.log('6200: Exiting insert_row:OTHERS Exception', 2);
1908: okc_debug.Reset_Indentation;
1909: END IF;
1910:
1911: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1912: (
1985: END Set_Attributes;
1986: BEGIN
1987:
1988: IF (l_debug = 'Y') THEN
1989: okc_debug.Set_Indentation('OKC_SCN_PVT');
1990: okc_debug.log('6500: Entered insert_row', 2);
1991: END IF;
1992:
1993: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
1986: BEGIN
1987:
1988: IF (l_debug = 'Y') THEN
1989: okc_debug.Set_Indentation('OKC_SCN_PVT');
1990: okc_debug.log('6500: Entered insert_row', 2);
1991: END IF;
1992:
1993: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
1994: G_PKG_NAME,
2070: x_scnv_rec := l_def_scnv_rec;
2071: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2072:
2073: IF (l_debug = 'Y') THEN
2074: okc_debug.log('6600: Leaving insert_row', 2);
2075: okc_debug.Reset_Indentation;
2076: END IF;
2077:
2078: EXCEPTION
2071: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2072:
2073: IF (l_debug = 'Y') THEN
2074: okc_debug.log('6600: Leaving insert_row', 2);
2075: okc_debug.Reset_Indentation;
2076: END IF;
2077:
2078: EXCEPTION
2079: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2078: EXCEPTION
2079: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2080:
2081: IF (l_debug = 'Y') THEN
2082: okc_debug.log('6700: Exiting insert_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
2083: okc_debug.Reset_Indentation;
2084: END IF;
2085:
2086: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2079: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2080:
2081: IF (l_debug = 'Y') THEN
2082: okc_debug.log('6700: Exiting insert_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
2083: okc_debug.Reset_Indentation;
2084: END IF;
2085:
2086: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2087: (
2094: );
2095: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2096:
2097: IF (l_debug = 'Y') THEN
2098: okc_debug.log('6800: Exiting insert_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
2099: okc_debug.Reset_Indentation;
2100: END IF;
2101:
2102: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2095: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2096:
2097: IF (l_debug = 'Y') THEN
2098: okc_debug.log('6800: Exiting insert_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
2099: okc_debug.Reset_Indentation;
2100: END IF;
2101:
2102: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2103: (
2110: );
2111: WHEN OTHERS THEN
2112:
2113: IF (l_debug = 'Y') THEN
2114: okc_debug.log('6900: Exiting insert_row:OTHERS Exception', 2);
2115: okc_debug.Reset_Indentation;
2116: END IF;
2117:
2118: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2111: WHEN OTHERS THEN
2112:
2113: IF (l_debug = 'Y') THEN
2114: okc_debug.log('6900: Exiting insert_row:OTHERS Exception', 2);
2115: okc_debug.Reset_Indentation;
2116: END IF;
2117:
2118: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2119: (
2144: i NUMBER := 0;
2145: BEGIN
2146:
2147: IF (l_debug = 'Y') THEN
2148: okc_debug.Set_Indentation('OKC_SCN_PVT');
2149: okc_debug.log('7000: Entered insert_row', 2);
2150: END IF;
2151:
2152: OKC_API.init_msg_list(p_init_msg_list);
2145: BEGIN
2146:
2147: IF (l_debug = 'Y') THEN
2148: okc_debug.Set_Indentation('OKC_SCN_PVT');
2149: okc_debug.log('7000: Entered insert_row', 2);
2150: END IF;
2151:
2152: OKC_API.init_msg_list(p_init_msg_list);
2153: -- Make sure PL/SQL table has records in it before passing
2167: END LOOP;
2168: END IF;
2169:
2170: IF (l_debug = 'Y') THEN
2171: okc_debug.log('7100: Leaving insert_row', 2);
2172: okc_debug.Reset_Indentation;
2173: END IF;
2174:
2175: EXCEPTION
2168: END IF;
2169:
2170: IF (l_debug = 'Y') THEN
2171: okc_debug.log('7100: Leaving insert_row', 2);
2172: okc_debug.Reset_Indentation;
2173: END IF;
2174:
2175: EXCEPTION
2176: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2175: EXCEPTION
2176: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2177:
2178: IF (l_debug = 'Y') THEN
2179: okc_debug.log('7200: Exiting insert_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
2180: okc_debug.Reset_Indentation;
2181: END IF;
2182:
2183: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2176: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2177:
2178: IF (l_debug = 'Y') THEN
2179: okc_debug.log('7200: Exiting insert_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
2180: okc_debug.Reset_Indentation;
2181: END IF;
2182:
2183: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2184: (
2191: );
2192: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2193:
2194: IF (l_debug = 'Y') THEN
2195: okc_debug.log('7300: Exiting insert_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
2196: okc_debug.Reset_Indentation;
2197: END IF;
2198:
2199: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2192: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2193:
2194: IF (l_debug = 'Y') THEN
2195: okc_debug.log('7300: Exiting insert_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
2196: okc_debug.Reset_Indentation;
2197: END IF;
2198:
2199: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2200: (
2207: );
2208: WHEN OTHERS THEN
2209:
2210: IF (l_debug = 'Y') THEN
2211: okc_debug.log('7400: Exiting insert_row:OTHERS Exception', 2);
2212: okc_debug.Reset_Indentation;
2213: END IF;
2214:
2215: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2208: WHEN OTHERS THEN
2209:
2210: IF (l_debug = 'Y') THEN
2211: okc_debug.log('7400: Exiting insert_row:OTHERS Exception', 2);
2212: okc_debug.Reset_Indentation;
2213: END IF;
2214:
2215: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2216: (
2259: lc_row_notfound BOOLEAN := FALSE;
2260: BEGIN
2261:
2262: IF (l_debug = 'Y') THEN
2263: okc_debug.Set_Indentation('OKC_SCN_PVT');
2264: okc_debug.log('7500: Entered lock_row', 2);
2265: END IF;
2266:
2267: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
2260: BEGIN
2261:
2262: IF (l_debug = 'Y') THEN
2263: okc_debug.Set_Indentation('OKC_SCN_PVT');
2264: okc_debug.log('7500: Entered lock_row', 2);
2265: END IF;
2266:
2267: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
2268: p_init_msg_list,
2274: RAISE OKC_API.G_EXCEPTION_ERROR;
2275: END IF;
2276: BEGIN
2277:
2278: -- okc_debug.Set_Indentation('OKC_SCN_PVT');
2279: -- okc_debug.log('7600: Entered lock_row', 2);
2280:
2281: OPEN lock_csr(p_scn_rec);
2282: FETCH lock_csr INTO l_object_version_number;
2275: END IF;
2276: BEGIN
2277:
2278: -- okc_debug.Set_Indentation('OKC_SCN_PVT');
2279: -- okc_debug.log('7600: Entered lock_row', 2);
2280:
2281: OPEN lock_csr(p_scn_rec);
2282: FETCH lock_csr INTO l_object_version_number;
2283: l_row_notfound := lock_csr%NOTFOUND;
2286: EXCEPTION
2287: WHEN E_Resource_Busy THEN
2288:
2289: IF (l_debug = 'Y') THEN
2290: okc_debug.log('7800: Exiting lock_row:E_Resource_Busy Exception', 2);
2291: okc_debug.Reset_Indentation;
2292: END IF;
2293:
2294: IF (lock_csr%ISOPEN) THEN
2287: WHEN E_Resource_Busy THEN
2288:
2289: IF (l_debug = 'Y') THEN
2290: okc_debug.log('7800: Exiting lock_row:E_Resource_Busy Exception', 2);
2291: okc_debug.Reset_Indentation;
2292: END IF;
2293:
2294: IF (lock_csr%ISOPEN) THEN
2295: CLOSE lock_csr;
2319: END IF;
2320: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2321:
2322: IF (l_debug = 'Y') THEN
2323: okc_debug.log('7900: Leaving lock_row', 2);
2324: okc_debug.Reset_Indentation;
2325: END IF;
2326:
2327: EXCEPTION
2320: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2321:
2322: IF (l_debug = 'Y') THEN
2323: okc_debug.log('7900: Leaving lock_row', 2);
2324: okc_debug.Reset_Indentation;
2325: END IF;
2326:
2327: EXCEPTION
2328: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2327: EXCEPTION
2328: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2329:
2330: IF (l_debug = 'Y') THEN
2331: okc_debug.log('8000: Exiting lock_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
2332: okc_debug.Reset_Indentation;
2333: END IF;
2334:
2335: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2328: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2329:
2330: IF (l_debug = 'Y') THEN
2331: okc_debug.log('8000: Exiting lock_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
2332: okc_debug.Reset_Indentation;
2333: END IF;
2334:
2335: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2336: (
2343: );
2344: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2345:
2346: IF (l_debug = 'Y') THEN
2347: okc_debug.log('8100: Exiting lock_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
2348: okc_debug.Reset_Indentation;
2349: END IF;
2350:
2351: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2344: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2345:
2346: IF (l_debug = 'Y') THEN
2347: okc_debug.log('8100: Exiting lock_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
2348: okc_debug.Reset_Indentation;
2349: END IF;
2350:
2351: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2352: (
2359: );
2360: WHEN OTHERS THEN
2361:
2362: IF (l_debug = 'Y') THEN
2363: okc_debug.log('8200: Exiting lock_row:OTHERS Exception', 2);
2364: okc_debug.Reset_Indentation;
2365: END IF;
2366:
2367: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2360: WHEN OTHERS THEN
2361:
2362: IF (l_debug = 'Y') THEN
2363: okc_debug.log('8200: Exiting lock_row:OTHERS Exception', 2);
2364: okc_debug.Reset_Indentation;
2365: END IF;
2366:
2367: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2368: (
2401: lc_row_notfound BOOLEAN := FALSE;
2402: BEGIN
2403:
2404: IF (l_debug = 'Y') THEN
2405: okc_debug.Set_Indentation('OKC_SCN_PVT');
2406: okc_debug.log('8300: Entered lock_row', 2);
2407: END IF;
2408:
2409: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
2402: BEGIN
2403:
2404: IF (l_debug = 'Y') THEN
2405: okc_debug.Set_Indentation('OKC_SCN_PVT');
2406: okc_debug.log('8300: Entered lock_row', 2);
2407: END IF;
2408:
2409: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
2410: p_init_msg_list,
2416: RAISE OKC_API.G_EXCEPTION_ERROR;
2417: END IF;
2418: BEGIN
2419:
2420: -- okc_debug.Set_Indentation('OKC_SCN_PVT');
2421: -- okc_debug.log('8400: Entered lock_row', 2);
2422:
2423: OPEN lock_csr(p_okc_sections_tl_rec);
2424: FETCH lock_csr INTO l_lock_var;
2417: END IF;
2418: BEGIN
2419:
2420: -- okc_debug.Set_Indentation('OKC_SCN_PVT');
2421: -- okc_debug.log('8400: Entered lock_row', 2);
2422:
2423: OPEN lock_csr(p_okc_sections_tl_rec);
2424: FETCH lock_csr INTO l_lock_var;
2425: l_row_notfound := lock_csr%NOTFOUND;
2428: EXCEPTION
2429: WHEN E_Resource_Busy THEN
2430:
2431: IF (l_debug = 'Y') THEN
2432: okc_debug.log('8600: Exiting lock_row:E_Resource_Busy Exception', 2);
2433: okc_debug.Reset_Indentation;
2434: END IF;
2435:
2436: IF (lock_csr%ISOPEN) THEN
2429: WHEN E_Resource_Busy THEN
2430:
2431: IF (l_debug = 'Y') THEN
2432: okc_debug.log('8600: Exiting lock_row:E_Resource_Busy Exception', 2);
2433: okc_debug.Reset_Indentation;
2434: END IF;
2435:
2436: IF (lock_csr%ISOPEN) THEN
2437: CLOSE lock_csr;
2446: END IF;
2447: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2448:
2449: IF (l_debug = 'Y') THEN
2450: okc_debug.log('8700: Exiting lock_row', 2);
2451: okc_debug.Reset_Indentation;
2452: END IF;
2453:
2454: EXCEPTION
2447: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2448:
2449: IF (l_debug = 'Y') THEN
2450: okc_debug.log('8700: Exiting lock_row', 2);
2451: okc_debug.Reset_Indentation;
2452: END IF;
2453:
2454: EXCEPTION
2455: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2454: EXCEPTION
2455: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2456:
2457: IF (l_debug = 'Y') THEN
2458: okc_debug.log('8800: Exiting lock_row:OKC_API.G_EXCEPTION_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_ERROR THEN
2456:
2457: IF (l_debug = 'Y') THEN
2458: okc_debug.log('8800: Exiting lock_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
2459: okc_debug.Reset_Indentation;
2460: END IF;
2461:
2462: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2463: (
2470: );
2471: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2472:
2473: IF (l_debug = 'Y') THEN
2474: okc_debug.log('8900: Exiting lock_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
2475: okc_debug.Reset_Indentation;
2476: END IF;
2477:
2478: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2471: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2472:
2473: IF (l_debug = 'Y') THEN
2474: okc_debug.log('8900: Exiting lock_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
2475: okc_debug.Reset_Indentation;
2476: END IF;
2477:
2478: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2479: (
2486: );
2487: WHEN OTHERS THEN
2488:
2489: IF (l_debug = 'Y') THEN
2490: okc_debug.log('9000: Exiting lock_row:OTHERS Exception', 2);
2491: okc_debug.Reset_Indentation;
2492: END IF;
2493:
2494: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2487: WHEN OTHERS THEN
2488:
2489: IF (l_debug = 'Y') THEN
2490: okc_debug.log('9000: Exiting lock_row:OTHERS Exception', 2);
2491: okc_debug.Reset_Indentation;
2492: END IF;
2493:
2494: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2495: (
2520: l_okc_sections_tl_rec okc_sections_tl_rec_type;
2521: BEGIN
2522:
2523: IF (l_debug = 'Y') THEN
2524: okc_debug.Set_Indentation('OKC_SCN_PVT');
2525: okc_debug.log('9100: Entered lock_row', 2);
2526: END IF;
2527:
2528: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
2521: BEGIN
2522:
2523: IF (l_debug = 'Y') THEN
2524: okc_debug.Set_Indentation('OKC_SCN_PVT');
2525: okc_debug.log('9100: Entered lock_row', 2);
2526: END IF;
2527:
2528: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
2529: G_PKG_NAME,
2571: END IF;
2572: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2573:
2574: IF (l_debug = 'Y') THEN
2575: okc_debug.log('9200: Leaving lock_row', 2);
2576: okc_debug.Reset_Indentation;
2577: END IF;
2578: EXCEPTION
2579: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2572: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2573:
2574: IF (l_debug = 'Y') THEN
2575: okc_debug.log('9200: Leaving lock_row', 2);
2576: okc_debug.Reset_Indentation;
2577: END IF;
2578: EXCEPTION
2579: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2580:
2578: EXCEPTION
2579: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2580:
2581: IF (l_debug = 'Y') THEN
2582: okc_debug.log('9300: Exiting lock_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
2583: okc_debug.Reset_Indentation;
2584: END IF;
2585:
2586: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2579: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2580:
2581: IF (l_debug = 'Y') THEN
2582: okc_debug.log('9300: Exiting lock_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
2583: okc_debug.Reset_Indentation;
2584: END IF;
2585:
2586: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2587: (
2594: );
2595: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2596:
2597: IF (l_debug = 'Y') THEN
2598: okc_debug.log('9400: Exiting lock_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
2599: okc_debug.Reset_Indentation;
2600: END IF;
2601:
2602: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2595: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2596:
2597: IF (l_debug = 'Y') THEN
2598: okc_debug.log('9400: Exiting lock_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
2599: okc_debug.Reset_Indentation;
2600: END IF;
2601:
2602: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2603: (
2610: );
2611: WHEN OTHERS THEN
2612:
2613: IF (l_debug = 'Y') THEN
2614: okc_debug.log('9500: Exiting lock_row:OTHERS Exception', 2);
2615: okc_debug.Reset_Indentation;
2616: END IF;
2617:
2618: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2611: WHEN OTHERS THEN
2612:
2613: IF (l_debug = 'Y') THEN
2614: okc_debug.log('9500: Exiting lock_row:OTHERS Exception', 2);
2615: okc_debug.Reset_Indentation;
2616: END IF;
2617:
2618: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2619: (
2643: i NUMBER := 0;
2644: BEGIN
2645:
2646: IF (l_debug = 'Y') THEN
2647: okc_debug.Set_Indentation('OKC_SCN_PVT');
2648: okc_debug.log('9600: Entered lock_row', 2);
2649: END IF;
2650:
2651: OKC_API.init_msg_list(p_init_msg_list);
2644: BEGIN
2645:
2646: IF (l_debug = 'Y') THEN
2647: okc_debug.Set_Indentation('OKC_SCN_PVT');
2648: okc_debug.log('9600: Entered lock_row', 2);
2649: END IF;
2650:
2651: OKC_API.init_msg_list(p_init_msg_list);
2652: -- Make sure PL/SQL table has records in it before passing
2665: END LOOP;
2666: END IF;
2667:
2668: IF (l_debug = 'Y') THEN
2669: okc_debug.log('9700: Leaving lock_row', 2);
2670: okc_debug.Reset_Indentation;
2671: END IF;
2672:
2673: EXCEPTION
2666: END IF;
2667:
2668: IF (l_debug = 'Y') THEN
2669: okc_debug.log('9700: Leaving lock_row', 2);
2670: okc_debug.Reset_Indentation;
2671: END IF;
2672:
2673: EXCEPTION
2674: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2673: EXCEPTION
2674: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2675:
2676: IF (l_debug = 'Y') THEN
2677: okc_debug.log('9800: Exiting lock_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
2678: okc_debug.Reset_Indentation;
2679: END IF;
2680:
2681: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2674: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2675:
2676: IF (l_debug = 'Y') THEN
2677: okc_debug.log('9800: Exiting lock_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
2678: okc_debug.Reset_Indentation;
2679: END IF;
2680:
2681: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2682: (
2689: );
2690: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2691:
2692: IF (l_debug = 'Y') THEN
2693: okc_debug.log('9900: Exiting lock_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
2694: okc_debug.Reset_Indentation;
2695: END IF;
2696:
2697: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2690: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2691:
2692: IF (l_debug = 'Y') THEN
2693: okc_debug.log('9900: Exiting lock_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
2694: okc_debug.Reset_Indentation;
2695: END IF;
2696:
2697: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2698: (
2705: );
2706: WHEN OTHERS THEN
2707:
2708: IF (l_debug = 'Y') THEN
2709: okc_debug.log('10000: Exiting lock_row:OTHERS Exception', 2);
2710: okc_debug.Reset_Indentation;
2711: END IF;
2712:
2713: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2706: WHEN OTHERS THEN
2707:
2708: IF (l_debug = 'Y') THEN
2709: okc_debug.log('10000: Exiting lock_row:OTHERS Exception', 2);
2710: okc_debug.Reset_Indentation;
2711: END IF;
2712:
2713: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2714: (
2754: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2755: BEGIN
2756:
2757: IF (l_debug = 'Y') THEN
2758: okc_debug.Set_Indentation('OKC_SCN_PVT');
2759: okc_debug.log('10100: Entered populate_new_record', 2);
2760: END IF;
2761:
2762: x_scn_rec := p_scn_rec;
2755: BEGIN
2756:
2757: IF (l_debug = 'Y') THEN
2758: okc_debug.Set_Indentation('OKC_SCN_PVT');
2759: okc_debug.log('10100: Entered populate_new_record', 2);
2760: END IF;
2761:
2762: x_scn_rec := p_scn_rec;
2763: -- Get current database values
2882: x_scn_rec.attribute15 := l_scn_rec.attribute15;
2883: END IF;
2884:
2885: IF (l_debug = 'Y') THEN
2886: okc_debug.log('11950: Leaving populate_new_record ', 2);
2887: okc_debug.Reset_Indentation;
2888: END IF;
2889:
2890: RETURN(l_return_status);
2883: END IF;
2884:
2885: IF (l_debug = 'Y') THEN
2886: okc_debug.log('11950: Leaving populate_new_record ', 2);
2887: okc_debug.Reset_Indentation;
2888: END IF;
2889:
2890: RETURN(l_return_status);
2891: END populate_new_record;
2905: END Set_Attributes;
2906: BEGIN
2907:
2908: IF (l_debug = 'Y') THEN
2909: okc_debug.Set_Indentation('OKC_SCN_PVT');
2910: okc_debug.log('10300: Entered update_row', 2);
2911: END IF;
2912:
2913: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
2906: BEGIN
2907:
2908: IF (l_debug = 'Y') THEN
2909: okc_debug.Set_Indentation('OKC_SCN_PVT');
2910: okc_debug.log('10300: Entered update_row', 2);
2911: END IF;
2912:
2913: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
2914: p_init_msg_list,
2969: x_scn_rec := l_def_scn_rec;
2970: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2971:
2972: IF (l_debug = 'Y') THEN
2973: okc_debug.log('10400: Leaving update_row', 2);
2974: okc_debug.Reset_Indentation;
2975: END IF;
2976:
2977: EXCEPTION
2970: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2971:
2972: IF (l_debug = 'Y') THEN
2973: okc_debug.log('10400: Leaving update_row', 2);
2974: okc_debug.Reset_Indentation;
2975: END IF;
2976:
2977: EXCEPTION
2978: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2977: EXCEPTION
2978: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2979:
2980: IF (l_debug = 'Y') THEN
2981: okc_debug.log('10500: Exiting update_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
2982: okc_debug.Reset_Indentation;
2983: END IF;
2984:
2985: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2978: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2979:
2980: IF (l_debug = 'Y') THEN
2981: okc_debug.log('10500: Exiting update_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
2982: okc_debug.Reset_Indentation;
2983: END IF;
2984:
2985: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2986: (
2993: );
2994: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2995:
2996: IF (l_debug = 'Y') THEN
2997: okc_debug.log('10600: Exiting update_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
2998: okc_debug.Reset_Indentation;
2999: END IF;
3000:
3001: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2994: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2995:
2996: IF (l_debug = 'Y') THEN
2997: okc_debug.log('10600: Exiting update_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
2998: okc_debug.Reset_Indentation;
2999: END IF;
3000:
3001: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3002: (
3009: );
3010: WHEN OTHERS THEN
3011:
3012: IF (l_debug = 'Y') THEN
3013: okc_debug.log('10700: Exiting update_row:OTHERS Exception', 2);
3014: okc_debug.Reset_Indentation;
3015: END IF;
3016:
3017: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3010: WHEN OTHERS THEN
3011:
3012: IF (l_debug = 'Y') THEN
3013: okc_debug.log('10700: Exiting update_row:OTHERS Exception', 2);
3014: okc_debug.Reset_Indentation;
3015: END IF;
3016:
3017: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3018: (
3054: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3055: BEGIN
3056:
3057: IF (l_debug = 'Y') THEN
3058: okc_debug.Set_Indentation('OKC_SCN_PVT');
3059: okc_debug.log('10800: Entered populate_new_record', 2);
3060: END IF;
3061:
3062: x_okc_sections_tl_rec := p_okc_sections_tl_rec;
3055: BEGIN
3056:
3057: IF (l_debug = 'Y') THEN
3058: okc_debug.Set_Indentation('OKC_SCN_PVT');
3059: okc_debug.log('10800: Entered populate_new_record', 2);
3060: END IF;
3061:
3062: x_okc_sections_tl_rec := p_okc_sections_tl_rec;
3063: -- Get current database values
3106: x_okc_sections_tl_rec.last_update_login := l_okc_sections_tl_rec.last_update_login;
3107: END IF;
3108:
3109: IF (l_debug = 'Y') THEN
3110: okc_debug.log('11950: Leaving populate_new_record ', 2);
3111: okc_debug.Reset_Indentation;
3112: END IF;
3113:
3114: RETURN(l_return_status);
3107: END IF;
3108:
3109: IF (l_debug = 'Y') THEN
3110: okc_debug.log('11950: Leaving populate_new_record ', 2);
3111: okc_debug.Reset_Indentation;
3112: END IF;
3113:
3114: RETURN(l_return_status);
3115: END populate_new_record;
3131: END Set_Attributes;
3132: BEGIN
3133:
3134: IF (l_debug = 'Y') THEN
3135: okc_debug.Set_Indentation('OKC_SCN_PVT');
3136: okc_debug.log('11000: Entered update_row', 2);
3137: END IF;
3138:
3139: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
3132: BEGIN
3133:
3134: IF (l_debug = 'Y') THEN
3135: okc_debug.Set_Indentation('OKC_SCN_PVT');
3136: okc_debug.log('11000: Entered update_row', 2);
3137: END IF;
3138:
3139: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
3140: p_init_msg_list,
3180: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3181:
3182:
3183: IF (l_debug = 'Y') THEN
3184: okc_debug.log('11100: Leaving update_row', 2);
3185: okc_debug.Reset_Indentation;
3186: END IF;
3187:
3188: EXCEPTION
3181:
3182:
3183: IF (l_debug = 'Y') THEN
3184: okc_debug.log('11100: Leaving update_row', 2);
3185: okc_debug.Reset_Indentation;
3186: END IF;
3187:
3188: EXCEPTION
3189: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3188: EXCEPTION
3189: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3190:
3191: IF (l_debug = 'Y') THEN
3192: okc_debug.log('11200: Exiting update_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
3193: okc_debug.Reset_Indentation;
3194: END IF;
3195:
3196: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3189: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3190:
3191: IF (l_debug = 'Y') THEN
3192: okc_debug.log('11200: Exiting update_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
3193: okc_debug.Reset_Indentation;
3194: END IF;
3195:
3196: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3197: (
3204: );
3205: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3206:
3207: IF (l_debug = 'Y') THEN
3208: okc_debug.log('11300: Exiting update_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
3209: okc_debug.Reset_Indentation;
3210: END IF;
3211:
3212: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3205: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3206:
3207: IF (l_debug = 'Y') THEN
3208: okc_debug.log('11300: Exiting update_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
3209: okc_debug.Reset_Indentation;
3210: END IF;
3211:
3212: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3213: (
3220: );
3221: WHEN OTHERS THEN
3222:
3223: IF (l_debug = 'Y') THEN
3224: okc_debug.log('11400: Exiting update_row:OTHERS Exception', 2);
3225: okc_debug.Reset_Indentation;
3226: END IF;
3227:
3228: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3221: WHEN OTHERS THEN
3222:
3223: IF (l_debug = 'Y') THEN
3224: okc_debug.log('11400: Exiting update_row:OTHERS Exception', 2);
3225: okc_debug.Reset_Indentation;
3226: END IF;
3227:
3228: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3229: (
3284: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3285: BEGIN
3286:
3287: IF (l_debug = 'Y') THEN
3288: okc_debug.Set_Indentation('OKC_SCN_PVT');
3289: okc_debug.log('11600: Entered populate_new_record', 2);
3290: END IF;
3291:
3292: x_scnv_rec := p_scnv_rec;
3285: BEGIN
3286:
3287: IF (l_debug = 'Y') THEN
3288: okc_debug.Set_Indentation('OKC_SCN_PVT');
3289: okc_debug.log('11600: Entered populate_new_record', 2);
3290: END IF;
3291:
3292: x_scnv_rec := p_scnv_rec;
3293: -- Get current database values
3420: x_scnv_rec.attribute15 := l_scnv_rec.attribute15;
3421: END IF;
3422:
3423: IF (l_debug = 'Y') THEN
3424: okc_debug.log('11100: Leaving update_row', 2);
3425: okc_debug.Reset_Indentation;
3426: END IF;
3427:
3428: RETURN(l_return_status);
3421: END IF;
3422:
3423: IF (l_debug = 'Y') THEN
3424: okc_debug.log('11100: Leaving update_row', 2);
3425: okc_debug.Reset_Indentation;
3426: END IF;
3427:
3428: RETURN(l_return_status);
3429:
3445: END Set_Attributes;
3446: BEGIN
3447:
3448: IF (l_debug = 'Y') THEN
3449: okc_debug.Set_Indentation('OKC_SCN_PVT');
3450: okc_debug.log('11800: Entered update_row', 2);
3451: END IF;
3452:
3453: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
3446: BEGIN
3447:
3448: IF (l_debug = 'Y') THEN
3449: okc_debug.Set_Indentation('OKC_SCN_PVT');
3450: okc_debug.log('11800: Entered update_row', 2);
3451: END IF;
3452:
3453: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
3454: G_PKG_NAME,
3534: x_scnv_rec := l_def_scnv_rec;
3535: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3536:
3537: IF (l_debug = 'Y') THEN
3538: okc_debug.log('11900: Leaving update_row', 2);
3539: okc_debug.Reset_Indentation;
3540: END IF;
3541:
3542: EXCEPTION
3535: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3536:
3537: IF (l_debug = 'Y') THEN
3538: okc_debug.log('11900: Leaving update_row', 2);
3539: okc_debug.Reset_Indentation;
3540: END IF;
3541:
3542: EXCEPTION
3543: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3542: EXCEPTION
3543: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3544:
3545: IF (l_debug = 'Y') THEN
3546: okc_debug.log('12000: Exiting update_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
3547: okc_debug.Reset_Indentation;
3548: END IF;
3549:
3550: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3543: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3544:
3545: IF (l_debug = 'Y') THEN
3546: okc_debug.log('12000: Exiting update_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
3547: okc_debug.Reset_Indentation;
3548: END IF;
3549:
3550: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3551: (
3558: );
3559: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3560:
3561: IF (l_debug = 'Y') THEN
3562: okc_debug.log('12100: Exiting update_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
3563: okc_debug.Reset_Indentation;
3564: END IF;
3565:
3566: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3559: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3560:
3561: IF (l_debug = 'Y') THEN
3562: okc_debug.log('12100: Exiting update_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
3563: okc_debug.Reset_Indentation;
3564: END IF;
3565:
3566: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3567: (
3574: );
3575: WHEN OTHERS THEN
3576:
3577: IF (l_debug = 'Y') THEN
3578: okc_debug.log('12200: Exiting update_row:OTHERS Exception', 2);
3579: okc_debug.Reset_Indentation;
3580: END IF;
3581:
3582: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3575: WHEN OTHERS THEN
3576:
3577: IF (l_debug = 'Y') THEN
3578: okc_debug.log('12200: Exiting update_row:OTHERS Exception', 2);
3579: okc_debug.Reset_Indentation;
3580: END IF;
3581:
3582: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3583: (
3608: i NUMBER := 0;
3609: BEGIN
3610:
3611: IF (l_debug = 'Y') THEN
3612: okc_debug.Set_Indentation('OKC_SCN_PVT');
3613: okc_debug.log('12300: Entered update_row', 2);
3614: END IF;
3615:
3616: OKC_API.init_msg_list(p_init_msg_list);
3609: BEGIN
3610:
3611: IF (l_debug = 'Y') THEN
3612: okc_debug.Set_Indentation('OKC_SCN_PVT');
3613: okc_debug.log('12300: Entered update_row', 2);
3614: END IF;
3615:
3616: OKC_API.init_msg_list(p_init_msg_list);
3617: -- Make sure PL/SQL table has records in it before passing
3631: END LOOP;
3632: END IF;
3633:
3634: IF (l_debug = 'Y') THEN
3635: okc_debug.log('12400: Leaving update_row', 2);
3636: okc_debug.Reset_Indentation;
3637: END IF;
3638:
3639: EXCEPTION
3632: END IF;
3633:
3634: IF (l_debug = 'Y') THEN
3635: okc_debug.log('12400: Leaving update_row', 2);
3636: okc_debug.Reset_Indentation;
3637: END IF;
3638:
3639: EXCEPTION
3640: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3639: EXCEPTION
3640: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3641:
3642: IF (l_debug = 'Y') THEN
3643: okc_debug.log('12500: Exiting update_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
3644: okc_debug.Reset_Indentation;
3645: END IF;
3646:
3647: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3640: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3641:
3642: IF (l_debug = 'Y') THEN
3643: okc_debug.log('12500: Exiting update_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
3644: okc_debug.Reset_Indentation;
3645: END IF;
3646:
3647: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3648: (
3655: );
3656: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3657:
3658: IF (l_debug = 'Y') THEN
3659: okc_debug.log('12600: Exiting update_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
3660: okc_debug.Reset_Indentation;
3661: END IF;
3662:
3663: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3656: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3657:
3658: IF (l_debug = 'Y') THEN
3659: okc_debug.log('12600: Exiting update_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
3660: okc_debug.Reset_Indentation;
3661: END IF;
3662:
3663: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3664: (
3671: );
3672: WHEN OTHERS THEN
3673:
3674: IF (l_debug = 'Y') THEN
3675: okc_debug.log('12700: Exiting update_row:OTHERS Exception', 2);
3676: okc_debug.Reset_Indentation;
3677: END IF;
3678:
3679: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3672: WHEN OTHERS THEN
3673:
3674: IF (l_debug = 'Y') THEN
3675: okc_debug.log('12700: Exiting update_row:OTHERS Exception', 2);
3676: okc_debug.Reset_Indentation;
3677: END IF;
3678:
3679: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3680: (
3708: l_row_notfound BOOLEAN := TRUE;
3709: BEGIN
3710:
3711: IF (l_debug = 'Y') THEN
3712: okc_debug.Set_Indentation('OKC_SCN_PVT');
3713: okc_debug.log('12800: Entered delete_row', 2);
3714: END IF;
3715:
3716: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
3709: BEGIN
3710:
3711: IF (l_debug = 'Y') THEN
3712: okc_debug.Set_Indentation('OKC_SCN_PVT');
3713: okc_debug.log('12800: Entered delete_row', 2);
3714: END IF;
3715:
3716: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
3717: p_init_msg_list,
3727:
3728: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3729:
3730: IF (l_debug = 'Y') THEN
3731: okc_debug.log('12900: Leaving delete_row', 2);
3732: okc_debug.Reset_Indentation;
3733: END IF;
3734:
3735: EXCEPTION
3728: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3729:
3730: IF (l_debug = 'Y') THEN
3731: okc_debug.log('12900: Leaving delete_row', 2);
3732: okc_debug.Reset_Indentation;
3733: END IF;
3734:
3735: EXCEPTION
3736: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3735: EXCEPTION
3736: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3737:
3738: IF (l_debug = 'Y') THEN
3739: okc_debug.log('13000: Exiting delete_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
3740: okc_debug.Reset_Indentation;
3741: END IF;
3742:
3743: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3736: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3737:
3738: IF (l_debug = 'Y') THEN
3739: okc_debug.log('13000: Exiting delete_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
3740: okc_debug.Reset_Indentation;
3741: END IF;
3742:
3743: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3744: (
3751: );
3752: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3753:
3754: IF (l_debug = 'Y') THEN
3755: okc_debug.log('13100: Exiting delete_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
3756: okc_debug.Reset_Indentation;
3757: END IF;
3758:
3759: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3752: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3753:
3754: IF (l_debug = 'Y') THEN
3755: okc_debug.log('13100: Exiting delete_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
3756: okc_debug.Reset_Indentation;
3757: END IF;
3758:
3759: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3760: (
3767: );
3768: WHEN OTHERS THEN
3769:
3770: IF (l_debug = 'Y') THEN
3771: okc_debug.log('13200: Exiting delete_row:OTHERS Exception', 2);
3772: okc_debug.Reset_Indentation;
3773: END IF;
3774:
3775: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3768: WHEN OTHERS THEN
3769:
3770: IF (l_debug = 'Y') THEN
3771: okc_debug.log('13200: Exiting delete_row:OTHERS Exception', 2);
3772: okc_debug.Reset_Indentation;
3773: END IF;
3774:
3775: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3776: (
3815: END Set_Attributes;
3816: BEGIN
3817:
3818: IF (l_debug = 'Y') THEN
3819: okc_debug.Set_Indentation('OKC_SCN_PVT');
3820: okc_debug.log('13400: Entered delete_row', 2);
3821: END IF;
3822:
3823: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
3816: BEGIN
3817:
3818: IF (l_debug = 'Y') THEN
3819: okc_debug.Set_Indentation('OKC_SCN_PVT');
3820: okc_debug.log('13400: Entered delete_row', 2);
3821: END IF;
3822:
3823: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
3824: p_init_msg_list,
3844:
3845: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3846:
3847: IF (l_debug = 'Y') THEN
3848: okc_debug.log('13500: Leaving delete_row', 2);
3849: okc_debug.Reset_Indentation;
3850: END IF;
3851:
3852: EXCEPTION
3845: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3846:
3847: IF (l_debug = 'Y') THEN
3848: okc_debug.log('13500: Leaving delete_row', 2);
3849: okc_debug.Reset_Indentation;
3850: END IF;
3851:
3852: EXCEPTION
3853: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3852: EXCEPTION
3853: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3854:
3855: IF (l_debug = 'Y') THEN
3856: okc_debug.log('13600: Exiting delete_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
3857: okc_debug.Reset_Indentation;
3858: END IF;
3859:
3860: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3853: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3854:
3855: IF (l_debug = 'Y') THEN
3856: okc_debug.log('13600: Exiting delete_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
3857: okc_debug.Reset_Indentation;
3858: END IF;
3859:
3860: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3861: (
3868: );
3869: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3870:
3871: IF (l_debug = 'Y') THEN
3872: okc_debug.log('13700: Exiting delete_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
3873: okc_debug.Reset_Indentation;
3874: END IF;
3875:
3876: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3869: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3870:
3871: IF (l_debug = 'Y') THEN
3872: okc_debug.log('13700: Exiting delete_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
3873: okc_debug.Reset_Indentation;
3874: END IF;
3875:
3876: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3877: (
3884: );
3885: WHEN OTHERS THEN
3886:
3887: IF (l_debug = 'Y') THEN
3888: okc_debug.log('13800: Exiting delete_row:OTHERS Exception', 2);
3889: okc_debug.Reset_Indentation;
3890: END IF;
3891:
3892: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3885: WHEN OTHERS THEN
3886:
3887: IF (l_debug = 'Y') THEN
3888: okc_debug.log('13800: Exiting delete_row:OTHERS Exception', 2);
3889: okc_debug.Reset_Indentation;
3890: END IF;
3891:
3892: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3893: (
3919: l_scn_rec scn_rec_type;
3920: BEGIN
3921:
3922: IF (l_debug = 'Y') THEN
3923: okc_debug.Set_Indentation('OKC_SCN_PVT');
3924: okc_debug.log('13900: Entered delete_row', 2);
3925: END IF;
3926:
3927: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
3920: BEGIN
3921:
3922: IF (l_debug = 'Y') THEN
3923: okc_debug.Set_Indentation('OKC_SCN_PVT');
3924: okc_debug.log('13900: Entered delete_row', 2);
3925: END IF;
3926:
3927: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
3928: G_PKG_NAME,
3970: END IF;
3971: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3972:
3973: IF (l_debug = 'Y') THEN
3974: okc_debug.log('14000: Leaving delete_row', 2);
3975: okc_debug.Reset_Indentation;
3976: END IF;
3977:
3978: EXCEPTION
3971: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3972:
3973: IF (l_debug = 'Y') THEN
3974: okc_debug.log('14000: Leaving delete_row', 2);
3975: okc_debug.Reset_Indentation;
3976: END IF;
3977:
3978: EXCEPTION
3979: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3978: EXCEPTION
3979: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3980:
3981: IF (l_debug = 'Y') THEN
3982: okc_debug.log('14100: Exiting delete_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
3983: okc_debug.Reset_Indentation;
3984: END IF;
3985:
3986: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3979: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3980:
3981: IF (l_debug = 'Y') THEN
3982: okc_debug.log('14100: Exiting delete_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
3983: okc_debug.Reset_Indentation;
3984: END IF;
3985:
3986: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3987: (
3994: );
3995: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3996:
3997: IF (l_debug = 'Y') THEN
3998: okc_debug.log('14200: Exiting delete_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
3999: okc_debug.Reset_Indentation;
4000: END IF;
4001:
4002: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3995: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3996:
3997: IF (l_debug = 'Y') THEN
3998: okc_debug.log('14200: Exiting delete_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
3999: okc_debug.Reset_Indentation;
4000: END IF;
4001:
4002: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
4003: (
4010: );
4011: WHEN OTHERS THEN
4012:
4013: IF (l_debug = 'Y') THEN
4014: okc_debug.log('14300: Exiting delete_row:OTHERS Exception', 2);
4015: okc_debug.Reset_Indentation;
4016: END IF;
4017:
4018: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
4011: WHEN OTHERS THEN
4012:
4013: IF (l_debug = 'Y') THEN
4014: okc_debug.log('14300: Exiting delete_row:OTHERS Exception', 2);
4015: okc_debug.Reset_Indentation;
4016: END IF;
4017:
4018: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
4019: (
4043: i NUMBER := 0;
4044: BEGIN
4045:
4046: IF (l_debug = 'Y') THEN
4047: okc_debug.Set_Indentation('OKC_SCN_PVT');
4048: okc_debug.log('14400: Entered delete_row', 2);
4049: END IF;
4050:
4051: OKC_API.init_msg_list(p_init_msg_list);
4044: BEGIN
4045:
4046: IF (l_debug = 'Y') THEN
4047: okc_debug.Set_Indentation('OKC_SCN_PVT');
4048: okc_debug.log('14400: Entered delete_row', 2);
4049: END IF;
4050:
4051: OKC_API.init_msg_list(p_init_msg_list);
4052: -- Make sure PL/SQL table has records in it before passing
4065: END LOOP;
4066: END IF;
4067:
4068: IF (l_debug = 'Y') THEN
4069: okc_debug.log('14500: Leaving delete_row', 2);
4070: okc_debug.Reset_Indentation;
4071: END IF;
4072:
4073: EXCEPTION
4066: END IF;
4067:
4068: IF (l_debug = 'Y') THEN
4069: okc_debug.log('14500: Leaving delete_row', 2);
4070: okc_debug.Reset_Indentation;
4071: END IF;
4072:
4073: EXCEPTION
4074: WHEN OKC_API.G_EXCEPTION_ERROR THEN
4073: EXCEPTION
4074: WHEN OKC_API.G_EXCEPTION_ERROR THEN
4075:
4076: IF (l_debug = 'Y') THEN
4077: okc_debug.log('14600: Exiting delete_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
4078: okc_debug.Reset_Indentation;
4079: END IF;
4080:
4081: x_return_status := OKC_API.HANDLE_EXCEPTIONS
4074: WHEN OKC_API.G_EXCEPTION_ERROR THEN
4075:
4076: IF (l_debug = 'Y') THEN
4077: okc_debug.log('14600: Exiting delete_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
4078: okc_debug.Reset_Indentation;
4079: END IF;
4080:
4081: x_return_status := OKC_API.HANDLE_EXCEPTIONS
4082: (
4089: );
4090: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4091:
4092: IF (l_debug = 'Y') THEN
4093: okc_debug.log('14700: Exiting delete_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
4094: okc_debug.Reset_Indentation;
4095: END IF;
4096:
4097: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
4090: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4091:
4092: IF (l_debug = 'Y') THEN
4093: okc_debug.log('14700: Exiting delete_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
4094: okc_debug.Reset_Indentation;
4095: END IF;
4096:
4097: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
4098: (
4105: );
4106: WHEN OTHERS THEN
4107:
4108: IF (l_debug = 'Y') THEN
4109: okc_debug.log('14800: Exiting delete_row:OTHERS Exception', 2);
4110: okc_debug.Reset_Indentation;
4111: END IF;
4112:
4113: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
4106: WHEN OTHERS THEN
4107:
4108: IF (l_debug = 'Y') THEN
4109: okc_debug.log('14800: Exiting delete_row:OTHERS Exception', 2);
4110: okc_debug.Reset_Indentation;
4111: END IF;
4112:
4113: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
4114: (
4136:
4137: BEGIN
4138:
4139: IF (l_debug = 'Y') THEN
4140: okc_debug.Set_Indentation('OKC_SCN_PVT');
4141: okc_debug.log('14900: Entered create_version', 2);
4142: END IF;
4143:
4144: INSERT INTO okc_sections_bh
4137: BEGIN
4138:
4139: IF (l_debug = 'Y') THEN
4140: okc_debug.Set_Indentation('OKC_SCN_PVT');
4141: okc_debug.log('14900: Entered create_version', 2);
4142: END IF;
4143:
4144: INSERT INTO okc_sections_bh
4145: (
4243: FROM okc_sections_b
4244: WHERE chr_id= p_chr_id);
4245:
4246: IF (l_debug = 'Y') THEN
4247: okc_debug.log('15000: Leaving create_version', 2);
4248: okc_debug.Reset_Indentation;
4249: END IF;
4250:
4251: RETURN l_return_status;
4244: WHERE chr_id= p_chr_id);
4245:
4246: IF (l_debug = 'Y') THEN
4247: okc_debug.log('15000: Leaving create_version', 2);
4248: okc_debug.Reset_Indentation;
4249: END IF;
4250:
4251: RETURN l_return_status;
4252:
4255: -- other appropriate handlers
4256: WHEN OTHERS THEN
4257:
4258: IF (l_debug = 'Y') THEN
4259: okc_debug.log('15100: Exiting create_version:OTHERS Exception', 2);
4260: okc_debug.Reset_Indentation;
4261: END IF;
4262:
4263: -- store SQL error message on message stack
4256: WHEN OTHERS THEN
4257:
4258: IF (l_debug = 'Y') THEN
4259: okc_debug.log('15100: Exiting create_version:OTHERS Exception', 2);
4260: okc_debug.Reset_Indentation;
4261: END IF;
4262:
4263: -- store SQL error message on message stack
4264: OKC_API.SET_MESSAGE(p_app_name => okc_version_pvt.G_APP_NAME,
4287:
4288: BEGIN
4289:
4290: IF (l_debug = 'Y') THEN
4291: okc_debug.Set_Indentation('OKC_SCN_PVT');
4292: okc_debug.log('15200: Entered restore_version', 2);
4293: END IF;
4294:
4295: INSERT INTO okc_sections_tl
4288: BEGIN
4289:
4290: IF (l_debug = 'Y') THEN
4291: okc_debug.Set_Indentation('OKC_SCN_PVT');
4292: okc_debug.log('15200: Entered restore_version', 2);
4293: END IF;
4294:
4295: INSERT INTO okc_sections_tl
4296: (
4392: WHERE chr_id = p_chr_id
4393: AND major_version = p_major_version;
4394:
4395: IF (l_debug = 'Y') THEN
4396: okc_debug.log('15300: Leaving restore_version', 2);
4397: okc_debug.Reset_Indentation;
4398: END IF;
4399:
4400: RETURN l_return_status;
4393: AND major_version = p_major_version;
4394:
4395: IF (l_debug = 'Y') THEN
4396: okc_debug.log('15300: Leaving restore_version', 2);
4397: okc_debug.Reset_Indentation;
4398: END IF;
4399:
4400: RETURN l_return_status;
4401:
4403: -- other appropriate handlers
4404: WHEN OTHERS THEN
4405:
4406: IF (l_debug = 'Y') THEN
4407: okc_debug.log('15400: Exiting restore_version:OTHERS Exception', 2);
4408: okc_debug.Reset_Indentation;
4409: END IF;
4410:
4411: -- store SQL error message on message stack
4404: WHEN OTHERS THEN
4405:
4406: IF (l_debug = 'Y') THEN
4407: okc_debug.log('15400: Exiting restore_version:OTHERS Exception', 2);
4408: okc_debug.Reset_Indentation;
4409: END IF;
4410:
4411: -- store SQL error message on message stack
4412: OKC_API.SET_MESSAGE(p_app_name => okc_version_pvt.G_APP_NAME,