26:
27: BEGIN
28:
29: IF (l_debug = 'Y') THEN
30: okc_debug.Set_Indentation(l_proc);
31: okc_debug.Log('10: Entering ',2);
32: END IF;
33:
34: -- call start_activity to create savepoint, check comptability
27: BEGIN
28:
29: IF (l_debug = 'Y') THEN
30: okc_debug.Set_Indentation(l_proc);
31: okc_debug.Log('10: Entering ',2);
32: END IF;
33:
34: -- call start_activity to create savepoint, check comptability
35: -- and initialize message list
56:
57: OKC_API.END_ACTIVITY(l_msg_count, l_msg_data);
58:
59: IF (l_debug = 'Y') THEN
60: okc_debug.Log('1000: Leaving ',2);
61: okc_debug.Reset_Indentation;
62: END IF;
63:
64: EXCEPTION
57: OKC_API.END_ACTIVITY(l_msg_count, l_msg_data);
58:
59: IF (l_debug = 'Y') THEN
60: okc_debug.Log('1000: Leaving ',2);
61: okc_debug.Reset_Indentation;
62: END IF;
63:
64: EXCEPTION
65: WHEN E_Resource_Busy THEN
65: WHEN E_Resource_Busy THEN
66: l_return_status := okc_api.g_ret_sts_error;
67: RAISE APP_EXCEPTIONS.RECORD_LOCK_EXCEPTION;
68: IF (l_debug = 'Y') THEN
69: okc_debug.Log('2000: Leaving ',2);
70: okc_debug.Reset_Indentation;
71: END IF;
72: WHEN OKC_API.G_EXCEPTION_ERROR THEN
73: retcode := 2;
66: l_return_status := okc_api.g_ret_sts_error;
67: RAISE APP_EXCEPTIONS.RECORD_LOCK_EXCEPTION;
68: IF (l_debug = 'Y') THEN
69: okc_debug.Log('2000: Leaving ',2);
70: okc_debug.Reset_Indentation;
71: END IF;
72: WHEN OKC_API.G_EXCEPTION_ERROR THEN
73: retcode := 2;
74: errbuf := substr(sqlerrm,1,200);
79: l_msg_count,
80: l_msg_data,
81: '_PUBLIC');
82: IF (l_debug = 'Y') THEN
83: okc_debug.Log('3000: Leaving ',2);
84: okc_debug.Reset_Indentation;
85: END IF;
86: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
87: retcode := 2;
80: l_msg_data,
81: '_PUBLIC');
82: IF (l_debug = 'Y') THEN
83: okc_debug.Log('3000: Leaving ',2);
84: okc_debug.Reset_Indentation;
85: END IF;
86: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
87: retcode := 2;
88: errbuf := substr(sqlerrm,1,200);
93: l_msg_count,
94: l_msg_data,
95: '_PUBLIC');
96: IF (l_debug = 'Y') THEN
97: okc_debug.Log('4000: Leaving ',2);
98: okc_debug.Reset_Indentation;
99: END IF;
100: WHEN OTHERS THEN
101: retcode := 2;
94: l_msg_data,
95: '_PUBLIC');
96: IF (l_debug = 'Y') THEN
97: okc_debug.Log('4000: Leaving ',2);
98: okc_debug.Reset_Indentation;
99: END IF;
100: WHEN OTHERS THEN
101: retcode := 2;
102: errbuf := substr(sqlerrm,1,200);
107: l_msg_count,
108: l_msg_data,
109: '_PUBLIC');
110: IF (l_debug = 'Y') THEN
111: okc_debug.Log('5000: Leaving ',2);
112: okc_debug.Reset_Indentation;
113: END IF;
114: END conc_mgr;
115:
108: l_msg_data,
109: '_PUBLIC');
110: IF (l_debug = 'Y') THEN
111: okc_debug.Log('5000: Leaving ',2);
112: okc_debug.Reset_Indentation;
113: END IF;
114: END conc_mgr;
115:
116: PROCEDURE date_assemble(
152:
153: BEGIN
154:
155: IF (l_debug = 'Y') THEN
156: okc_debug.Set_Indentation(l_proc);
157: okc_debug.Log('10: Entering ',2);
158: END IF;
159:
160: -- call start_activity to create savepoint, check comptability
153: BEGIN
154:
155: IF (l_debug = 'Y') THEN
156: okc_debug.Set_Indentation(l_proc);
157: okc_debug.Log('10: Entering ',2);
158: END IF;
159:
160: -- call start_activity to create savepoint, check comptability
161: -- and initialize message list
288:
289: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
290:
291: IF (l_debug = 'Y') THEN
292: okc_debug.Log('1000: Leaving ',2);
293: okc_debug.Reset_Indentation;
294: END IF;
295:
296: EXCEPTION
289: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
290:
291: IF (l_debug = 'Y') THEN
292: okc_debug.Log('1000: Leaving ',2);
293: okc_debug.Reset_Indentation;
294: END IF;
295:
296: EXCEPTION
297: WHEN OKC_API.G_EXCEPTION_ERROR THEN
302: x_msg_count,
303: x_msg_data,
304: '_PUBLIC');
305: IF (l_debug = 'Y') THEN
306: okc_debug.Log('2000: Leaving ',2);
307: okc_debug.Reset_Indentation;
308: END IF;
309: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
310: x_return_status := OKC_API.HANDLE_EXCEPTIONS
303: x_msg_data,
304: '_PUBLIC');
305: IF (l_debug = 'Y') THEN
306: okc_debug.Log('2000: Leaving ',2);
307: okc_debug.Reset_Indentation;
308: END IF;
309: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
310: x_return_status := OKC_API.HANDLE_EXCEPTIONS
311: (l_api_name,
314: x_msg_count,
315: x_msg_data,
316: '_PUBLIC');
317: IF (l_debug = 'Y') THEN
318: okc_debug.Log('3000: Leaving ',2);
319: okc_debug.Reset_Indentation;
320: END IF;
321: WHEN OTHERS THEN
322: x_return_status := OKC_API.HANDLE_EXCEPTIONS
315: x_msg_data,
316: '_PUBLIC');
317: IF (l_debug = 'Y') THEN
318: okc_debug.Log('3000: Leaving ',2);
319: okc_debug.Reset_Indentation;
320: END IF;
321: WHEN OTHERS THEN
322: x_return_status := OKC_API.HANDLE_EXCEPTIONS
323: (l_api_name,
326: x_msg_count,
327: x_msg_data,
328: '_PUBLIC');
329: IF (l_debug = 'Y') THEN
330: okc_debug.Log('4000: Leaving ',2);
331: okc_debug.Reset_Indentation;
332: END IF;
333:
334: END date_assemble;
327: x_msg_data,
328: '_PUBLIC');
329: IF (l_debug = 'Y') THEN
330: okc_debug.Log('4000: Leaving ',2);
331: okc_debug.Reset_Indentation;
332: END IF;
333:
334: END date_assemble;
335: