18: )
19: IS
20:
21: l_api_name CONSTANT VARCHAR2(30) := 'EVALUATE_CONDITION';
22: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
23: --
24: l_proc varchar2(72) := ' okc_condition_eval_pub.'||'evaluate_condition';
25: --
26:
32: END IF;
33:
34: -- Call start_activity to create savepoint, check compatibility
35: -- and initialize message list
36: l_return_status := OKC_API.START_ACTIVITY ( l_api_name
37: , p_init_msg_list
38: , '_PUB'
39: , x_return_status
40: );
38: , '_PUB'
39: , x_return_status
40: );
41: -- Check if activity started successfully
42: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
43: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
44: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
45: RAISE OKC_API.G_EXCEPTION_ERROR;
46: END IF;
39: , x_return_status
40: );
41: -- Check if activity started successfully
42: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
43: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
44: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
45: RAISE OKC_API.G_EXCEPTION_ERROR;
46: END IF;
47:
40: );
41: -- Check if activity started successfully
42: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
43: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
44: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
45: RAISE OKC_API.G_EXCEPTION_ERROR;
46: END IF;
47:
48: -- evaluate conditions, build outcomes for true conditions
41: -- Check if activity started successfully
42: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
43: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
44: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
45: RAISE OKC_API.G_EXCEPTION_ERROR;
46: END IF;
47:
48: -- evaluate conditions, build outcomes for true conditions
49: OKC_CONDITION_EVAL_PVT.evaluate_plan_condition(
58: );
59:
60: /*Add check return status*/
61: -- end activity
62: OKC_API.END_ACTIVITY ( x_msg_count
63: , x_msg_data );
64:
65: IF (l_debug = 'Y') THEN
66: okc_debug.Log('1000: Leaving ',2);
68: END IF;
69:
70: EXCEPTION
71:
72: WHEN OKC_API.G_EXCEPTION_ERROR THEN
73: x_return_status := OKC_API.HANDLE_EXCEPTIONS
74: ( l_api_name,
75: G_PKG_NAME,
76: 'OKC_API.G_RET_STS_ERROR',
69:
70: EXCEPTION
71:
72: WHEN OKC_API.G_EXCEPTION_ERROR THEN
73: x_return_status := OKC_API.HANDLE_EXCEPTIONS
74: ( l_api_name,
75: G_PKG_NAME,
76: 'OKC_API.G_RET_STS_ERROR',
77: x_msg_count,
72: WHEN OKC_API.G_EXCEPTION_ERROR THEN
73: x_return_status := OKC_API.HANDLE_EXCEPTIONS
74: ( l_api_name,
75: G_PKG_NAME,
76: 'OKC_API.G_RET_STS_ERROR',
77: x_msg_count,
78: x_msg_data,
79: '_PUB');
80: IF (l_debug = 'Y') THEN
81: okc_debug.Log('2000: Leaving ',2);
82: okc_debug.Reset_Indentation;
83: END IF;
84:
85: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
86: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
87: ( l_api_name,
88: G_PKG_NAME,
89: 'OKC_API.G_RET_STS_UNEXP_ERROR',
82: okc_debug.Reset_Indentation;
83: END IF;
84:
85: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
86: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
87: ( l_api_name,
88: G_PKG_NAME,
89: 'OKC_API.G_RET_STS_UNEXP_ERROR',
90: x_msg_count,
85: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
86: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
87: ( l_api_name,
88: G_PKG_NAME,
89: 'OKC_API.G_RET_STS_UNEXP_ERROR',
90: x_msg_count,
91: x_msg_data,
92: '_PUB');
93: IF (l_debug = 'Y') THEN
95: okc_debug.Reset_Indentation;
96: END IF;
97:
98: WHEN OTHERS THEN
99: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
100: ( l_api_name,
101: G_PKG_NAME,
102: 'OTHERS',
103: x_msg_count,
128: l_count NUMBER := 0;
129: l_outcome_tab okc_condition_eval_pvt.exec_tab_type;
130: l_cnh_tab okc_condition_eval_pvt.id_tab_type;
131: l_api_name CONSTANT VARCHAR2(30) := 'EVALUATE_CONDITION';
132: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
133: --
134: l_proc varchar2(72) := ' okc_condition_eval_pub.'||'evaluate_condition';
135: --
136: BEGIN
141: END IF;
142:
143: -- Call start_activity to create savepoint, check compatibility
144: -- and initialize message list
145: l_return_status := OKC_API.START_ACTIVITY ( l_api_name
146: , p_init_msg_list
147: , '_PUB'
148: , x_return_status
149: );
147: , '_PUB'
148: , x_return_status
149: );
150: -- Check if activity started successfully
151: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
152: -- RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
153: null;
154: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
155: null;-- RAISE OKC_API.G_EXCEPTION_ERROR;
148: , x_return_status
149: );
150: -- Check if activity started successfully
151: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
152: -- RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
153: null;
154: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
155: null;-- RAISE OKC_API.G_EXCEPTION_ERROR;
156: END IF;
150: -- Check if activity started successfully
151: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
152: -- RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
153: null;
154: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
155: null;-- RAISE OKC_API.G_EXCEPTION_ERROR;
156: END IF;
157:
158: -- evaluate conditions, build outcomes for true conditions
151: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
152: -- RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
153: null;
154: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
155: null;-- RAISE OKC_API.G_EXCEPTION_ERROR;
156: END IF;
157:
158: -- evaluate conditions, build outcomes for true conditions
159: OKC_CONDITION_EVAL_PVT.evaluate_condition(
167: x_sync_outcome_tab
168: );
169:
170: -- end activity
171: OKC_API.END_ACTIVITY ( x_msg_count
172: , x_msg_data );
173:
174: IF (l_debug = 'Y') THEN
175: okc_debug.Log('1000: Leaving ',2);
178:
179:
180: EXCEPTION
181:
182: WHEN OKC_API.G_EXCEPTION_ERROR THEN
183: x_return_status := OKC_API.HANDLE_EXCEPTIONS
184: ( l_api_name,
185: G_PKG_NAME,
186: 'OKC_API.G_RET_STS_ERROR',
179:
180: EXCEPTION
181:
182: WHEN OKC_API.G_EXCEPTION_ERROR THEN
183: x_return_status := OKC_API.HANDLE_EXCEPTIONS
184: ( l_api_name,
185: G_PKG_NAME,
186: 'OKC_API.G_RET_STS_ERROR',
187: x_msg_count,
182: WHEN OKC_API.G_EXCEPTION_ERROR THEN
183: x_return_status := OKC_API.HANDLE_EXCEPTIONS
184: ( l_api_name,
185: G_PKG_NAME,
186: 'OKC_API.G_RET_STS_ERROR',
187: x_msg_count,
188: x_msg_data,
189: '_PUB');
190: IF (l_debug = 'Y') THEN
190: IF (l_debug = 'Y') THEN
191: okc_debug.Log('2000: Leaving ',2);
192: okc_debug.Reset_Indentation;
193: END IF;
194: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
195: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
196: ( l_api_name,
197: G_PKG_NAME,
198: 'OKC_API.G_RET_STS_UNEXP_ERROR',
191: okc_debug.Log('2000: Leaving ',2);
192: okc_debug.Reset_Indentation;
193: END IF;
194: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
195: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
196: ( l_api_name,
197: G_PKG_NAME,
198: 'OKC_API.G_RET_STS_UNEXP_ERROR',
199: x_msg_count,
194: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
195: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
196: ( l_api_name,
197: G_PKG_NAME,
198: 'OKC_API.G_RET_STS_UNEXP_ERROR',
199: x_msg_count,
200: x_msg_data,
201: '_PUB');
202: IF (l_debug = 'Y') THEN
203: okc_debug.Log('3000: Leaving ',2);
204: okc_debug.Reset_Indentation;
205: END IF;
206: WHEN OTHERS THEN
207: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
208: ( l_api_name,
209: G_PKG_NAME,
210: 'OTHERS',
211: x_msg_count,
232: l_count NUMBER := 0;
233: l_outcome_tab okc_condition_eval_pvt.exec_tab_type;
234: l_cnh_tab okc_condition_eval_pvt.id_tab_type;
235: l_api_name CONSTANT VARCHAR2(30) := 'EVALUATE_CONDITION';
236: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
237: --
238: l_proc varchar2(72) := ' okc_condition_eval_pub.'||'evaluate_condition';
239: --
240: BEGIN
245: END IF;
246:
247: -- Call start_activity to create savepoint, check compatibility
248: -- and initialize message list
249: l_return_status := OKC_API.START_ACTIVITY ( l_api_name
250: , p_init_msg_list
251: , '_PUB'
252: , x_return_status
253: );
251: , '_PUB'
252: , x_return_status
253: );
254: -- Check if activity started successfully
255: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
256: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
257: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
258: RAISE OKC_API.G_EXCEPTION_ERROR;
259: END IF;
252: , x_return_status
253: );
254: -- Check if activity started successfully
255: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
256: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
257: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
258: RAISE OKC_API.G_EXCEPTION_ERROR;
259: END IF;
260: -- evaluate conditions, build outcomes for true conditions and
253: );
254: -- Check if activity started successfully
255: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
256: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
257: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
258: RAISE OKC_API.G_EXCEPTION_ERROR;
259: END IF;
260: -- evaluate conditions, build outcomes for true conditions and
261: -- put them on outcome queue
254: -- Check if activity started successfully
255: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
256: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
257: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
258: RAISE OKC_API.G_EXCEPTION_ERROR;
259: END IF;
260: -- evaluate conditions, build outcomes for true conditions and
261: -- put them on outcome queue
262: OKC_CONDITION_EVAL_PVT.evaluate_condition(
267: x_msg_data,
268: p_acn_id,
269: p_msg_tab
270: );
271: OKC_API.END_ACTIVITY ( x_msg_count
272: , x_msg_data );
273:
274: IF (l_debug = 'Y') THEN
275: okc_debug.Log('1000: Leaving ',2);
277: END IF;
278:
279:
280: EXCEPTION
281: WHEN OKC_API.G_EXCEPTION_ERROR THEN
282: x_return_status := OKC_API.HANDLE_EXCEPTIONS
283: ( l_api_name,
284: G_PKG_NAME,
285: 'OKC_API.G_RET_STS_ERROR',
278:
279:
280: EXCEPTION
281: WHEN OKC_API.G_EXCEPTION_ERROR THEN
282: x_return_status := OKC_API.HANDLE_EXCEPTIONS
283: ( l_api_name,
284: G_PKG_NAME,
285: 'OKC_API.G_RET_STS_ERROR',
286: x_msg_count,
281: WHEN OKC_API.G_EXCEPTION_ERROR THEN
282: x_return_status := OKC_API.HANDLE_EXCEPTIONS
283: ( l_api_name,
284: G_PKG_NAME,
285: 'OKC_API.G_RET_STS_ERROR',
286: x_msg_count,
287: x_msg_data,
288: '_PUB');
289: IF (l_debug = 'Y') THEN
289: IF (l_debug = 'Y') THEN
290: okc_debug.Log('2000: Leaving ',2);
291: okc_debug.Reset_Indentation;
292: END IF;
293: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
294: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
295: ( l_api_name,
296: G_PKG_NAME,
297: 'OKC_API.G_RET_STS_UNEXP_ERROR',
290: okc_debug.Log('2000: Leaving ',2);
291: okc_debug.Reset_Indentation;
292: END IF;
293: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
294: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
295: ( l_api_name,
296: G_PKG_NAME,
297: 'OKC_API.G_RET_STS_UNEXP_ERROR',
298: x_msg_count,
293: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
294: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
295: ( l_api_name,
296: G_PKG_NAME,
297: 'OKC_API.G_RET_STS_UNEXP_ERROR',
298: x_msg_count,
299: x_msg_data,
300: '_PUB');
301: IF (l_debug = 'Y') THEN
301: IF (l_debug = 'Y') THEN
302: okc_debug.Log('3000: Leaving ',2);
303: okc_debug.Reset_Indentation;
304: END IF;
305: WHEN OTHERS THEN x_return_status :=OKC_API.HANDLE_EXCEPTIONS
306: ( l_api_name,
307: G_PKG_NAME,
308: 'OTHERS',
309: x_msg_count,
330: l_count NUMBER := 0;
331: l_outcome_tab okc_condition_eval_pvt.exec_tab_type;
332: l_cnh_tab okc_condition_eval_pvt.id_tab_type;
333: l_api_name CONSTANT VARCHAR2(30) := 'EVALUATE_CONDITION';
334: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
335: --
336: l_proc varchar2(72) := ' okc_condition_eval_pub.'||'evaluate_date_condition';
337: --
338: BEGIN
343: END IF;
344:
345: -- Call start_activity to create savepoint, check compatibility
346: -- and initialize message list
347: l_return_status := OKC_API.START_ACTIVITY ( l_api_name
348: , p_init_msg_list
349: , '_PUB'
350: , l_return_status
351: );
349: , '_PUB'
350: , l_return_status
351: );
352: -- Check if activity started successfully
353: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
354: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
355: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
356: RAISE OKC_API.G_EXCEPTION_ERROR;
357: END IF;
350: , l_return_status
351: );
352: -- Check if activity started successfully
353: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
354: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
355: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
356: RAISE OKC_API.G_EXCEPTION_ERROR;
357: END IF;
358: -- evaluate conditions, build outcomes for true conditions and
351: );
352: -- Check if activity started successfully
353: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
354: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
355: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
356: RAISE OKC_API.G_EXCEPTION_ERROR;
357: END IF;
358: -- evaluate conditions, build outcomes for true conditions and
359: -- put them on outcome queue
352: -- Check if activity started successfully
353: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
354: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
355: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
356: RAISE OKC_API.G_EXCEPTION_ERROR;
357: END IF;
358: -- evaluate conditions, build outcomes for true conditions and
359: -- put them on outcome queue
360: OKC_CONDITION_EVAL_PVT.evaluate_date_condition(
365: x_msg_data,
366: p_cnh_id,
367: p_msg_tab
368: );
369: OKC_API.END_ACTIVITY ( x_msg_count
370: , x_msg_data );
371:
372: IF (l_debug = 'Y') THEN
373: okc_debug.Log('1000: Leaving ',2);
375: END IF;
376:
377:
378: EXCEPTION
379: WHEN OKC_API.G_EXCEPTION_ERROR THEN
380: x_return_status := OKC_API.HANDLE_EXCEPTIONS
381: ( l_api_name,
382: G_PKG_NAME,
383: 'OKC_API.G_RET_STS_ERROR',
376:
377:
378: EXCEPTION
379: WHEN OKC_API.G_EXCEPTION_ERROR THEN
380: x_return_status := OKC_API.HANDLE_EXCEPTIONS
381: ( l_api_name,
382: G_PKG_NAME,
383: 'OKC_API.G_RET_STS_ERROR',
384: x_msg_count,
379: WHEN OKC_API.G_EXCEPTION_ERROR THEN
380: x_return_status := OKC_API.HANDLE_EXCEPTIONS
381: ( l_api_name,
382: G_PKG_NAME,
383: 'OKC_API.G_RET_STS_ERROR',
384: x_msg_count,
385: x_msg_data,
386: '_PUB');
387: IF (l_debug = 'Y') THEN
387: IF (l_debug = 'Y') THEN
388: okc_debug.Log('2000: Leaving ',2);
389: okc_debug.Reset_Indentation;
390: END IF;
391: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
392: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
393: ( l_api_name,
394: G_PKG_NAME,
395: 'OKC_API.G_RET_STS_UNEXP_ERROR',
388: okc_debug.Log('2000: Leaving ',2);
389: okc_debug.Reset_Indentation;
390: END IF;
391: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
392: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
393: ( l_api_name,
394: G_PKG_NAME,
395: 'OKC_API.G_RET_STS_UNEXP_ERROR',
396: x_msg_count,
391: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
392: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
393: ( l_api_name,
394: G_PKG_NAME,
395: 'OKC_API.G_RET_STS_UNEXP_ERROR',
396: x_msg_count,
397: x_msg_data,
398: '_PUB');
399: IF (l_debug = 'Y') THEN
399: IF (l_debug = 'Y') THEN
400: okc_debug.Log('3000: Leaving ',2);
401: okc_debug.Reset_Indentation;
402: END IF;
403: WHEN OTHERS THEN x_return_status :=OKC_API.HANDLE_EXCEPTIONS
404: ( l_api_name,
405: G_PKG_NAME,
406: 'OTHERS',
407: x_msg_count,