29:
30: begin
31:
32: IF (l_debug = 'Y') THEN
33: okc_debug.Set_Indentation(l_proc);
34: okc_debug.Log('10: Entering ',2);
35: END IF;
36:
37: t(1).par_type := 'N';
30: begin
31:
32: IF (l_debug = 'Y') THEN
33: okc_debug.Set_Indentation(l_proc);
34: okc_debug.Log('10: Entering ',2);
35: END IF;
36:
37: t(1).par_type := 'N';
38: t(1).par_name := 'P_PERIOD_DAYS';
52: if (x_return_status = 'S') then
53: select to_char(okc_wf_notify_s1.currval) into x_key_to_stop from dual;
54: end if;
55: IF (l_debug = 'Y') THEN
56: okc_debug.Log('1000: Leaving ',2);
57: okc_debug.Reset_Indentation;
58: END IF;
59: end;
60:
53: select to_char(okc_wf_notify_s1.currval) into x_key_to_stop from dual;
54: end if;
55: IF (l_debug = 'Y') THEN
56: okc_debug.Log('1000: Leaving ',2);
57: okc_debug.Reset_Indentation;
58: END IF;
59: end;
60:
61: procedure proc_stop(
86:
87: begin
88:
89: IF (l_debug = 'Y') THEN
90: okc_debug.Set_Indentation(l_proc);
91: okc_debug.Log('10: Entering ',2);
92: END IF;
93:
94: l_return_status := OKC_API.START_ACTIVITY(substr(l_api_name,1,26),
87: begin
88:
89: IF (l_debug = 'Y') THEN
90: okc_debug.Set_Indentation(l_proc);
91: okc_debug.Log('10: Entering ',2);
92: END IF;
93:
94: l_return_status := OKC_API.START_ACTIVITY(substr(l_api_name,1,26),
95: 'OKC_ASYNC_PUB',
113: else
114: x_return_status := 'S';
115: end if;
116: IF (l_debug = 'Y') THEN
117: okc_debug.Reset_Indentation;
118: END IF;
119: return;
120: end if;
121: --
133: end if;
134: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
135:
136: IF (l_debug = 'Y') THEN
137: okc_debug.Log('1000: Leaving ',2);
138: okc_debug.Reset_Indentation;
139: END IF;
140:
141: EXCEPTION
134: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
135:
136: IF (l_debug = 'Y') THEN
137: okc_debug.Log('1000: Leaving ',2);
138: okc_debug.Reset_Indentation;
139: END IF;
140:
141: EXCEPTION
142: WHEN OKC_API.G_EXCEPTION_ERROR THEN
147: x_msg_count,
148: x_msg_data,
149: 'PUB');
150: IF (l_debug = 'Y') THEN
151: okc_debug.Log('2000: Leaving ',2);
152: okc_debug.Reset_Indentation;
153: END IF;
154: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
155: x_return_status := OKC_API.HANDLE_EXCEPTIONS
148: x_msg_data,
149: 'PUB');
150: IF (l_debug = 'Y') THEN
151: okc_debug.Log('2000: Leaving ',2);
152: okc_debug.Reset_Indentation;
153: END IF;
154: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
155: x_return_status := OKC_API.HANDLE_EXCEPTIONS
156: (substr(l_api_name,1,26),
159: x_msg_count,
160: x_msg_data,
161: 'PUB');
162: IF (l_debug = 'Y') THEN
163: okc_debug.Log('3000: Leaving ',2);
164: okc_debug.Reset_Indentation;
165: END IF;
166: WHEN OTHERS THEN
167: x_return_status := OKC_API.HANDLE_EXCEPTIONS
160: x_msg_data,
161: 'PUB');
162: IF (l_debug = 'Y') THEN
163: okc_debug.Log('3000: Leaving ',2);
164: okc_debug.Reset_Indentation;
165: END IF;
166: WHEN OTHERS THEN
167: x_return_status := OKC_API.HANDLE_EXCEPTIONS
168: (substr(l_api_name,1,26),
171: x_msg_count,
172: x_msg_data,
173: 'PUB');
174: IF (l_debug = 'Y') THEN
175: okc_debug.Log('4000: Leaving ',2);
176: okc_debug.Reset_Indentation;
177: END IF;
178: end proc_stop;
179:
172: x_msg_data,
173: 'PUB');
174: IF (l_debug = 'Y') THEN
175: okc_debug.Log('4000: Leaving ',2);
176: okc_debug.Reset_Indentation;
177: END IF;
178: end proc_stop;
179:
180: procedure msg_call(
209:
210: begin
211:
212: IF (l_debug = 'Y') THEN
213: okc_debug.Set_Indentation(l_proc);
214: okc_debug.Log('10: Entering ',2);
215: END IF;
216:
217: t(1).par_type := 'C';
210: begin
211:
212: IF (l_debug = 'Y') THEN
213: okc_debug.Set_Indentation(l_proc);
214: okc_debug.Log('10: Entering ',2);
215: END IF;
216:
217: t(1).par_type := 'C';
218: t(1).par_name := 'MESSAGE0';
245: p_ntf_type => substr(p_ntf_type,1,4000),
246: p_wf_par_tbl => t
247: );
248: IF (l_debug = 'Y') THEN
249: okc_debug.Log('1000: Leaving ',2);
250: okc_debug.Reset_Indentation;
251: END IF;
252:
253: end;
246: p_wf_par_tbl => t
247: );
248: IF (l_debug = 'Y') THEN
249: okc_debug.Log('1000: Leaving ',2);
250: okc_debug.Reset_Indentation;
251: END IF;
252:
253: end;
254:
285:
286: begin
287:
288: IF (l_debug = 'Y') THEN
289: okc_debug.Set_Indentation(l_proc);
290: okc_debug.Log('10: Entering ',2);
291: END IF;
292:
293: t(1).par_type := 'N';
286: begin
287:
288: IF (l_debug = 'Y') THEN
289: okc_debug.Set_Indentation(l_proc);
290: okc_debug.Log('10: Entering ',2);
291: END IF;
292:
293: t(1).par_type := 'N';
294: t(1).par_name := 'CONTRACT_ID';
318: p_ntf_type => substr(p_ntf_type,1,4000),
319: p_wf_par_tbl => t
320: );
321: IF (l_debug = 'Y') THEN
322: okc_debug.Log('1000: Leaving ',2);
323: okc_debug.Reset_Indentation;
324: END IF;
325:
326: end;
319: p_wf_par_tbl => t
320: );
321: IF (l_debug = 'Y') THEN
322: okc_debug.Log('1000: Leaving ',2);
323: okc_debug.Reset_Indentation;
324: END IF;
325:
326: end;
327:
361:
362: begin
363:
364: IF (l_debug = 'Y') THEN
365: okc_debug.Set_Indentation(l_proc);
366: okc_debug.Log('10: Entering ',2);
367: END IF;
368:
369: OKC_ASYNC_PVT.resolver_call(
362: begin
363:
364: IF (l_debug = 'Y') THEN
365: okc_debug.Set_Indentation(l_proc);
366: okc_debug.Log('10: Entering ',2);
367: END IF;
368:
369: OKC_ASYNC_PVT.resolver_call(
370: p_api_version => p_api_version,
389: p_extra_attr_text => substr(p_extra_attr_text,1,4000),
390: p_extra_attr_date => p_extra_attr_date
391: );
392: IF (l_debug = 'Y') THEN
393: okc_debug.Log('1000: Leaving ',2);
394: okc_debug.Reset_Indentation;
395: END IF;
396:
397: end;
390: p_extra_attr_date => p_extra_attr_date
391: );
392: IF (l_debug = 'Y') THEN
393: okc_debug.Log('1000: Leaving ',2);
394: okc_debug.Reset_Indentation;
395: END IF;
396:
397: end;
398:
429:
430: begin
431:
432: IF (l_debug = 'Y') THEN
433: okc_debug.Set_Indentation(l_proc);
434: okc_debug.Log('10: Entering ',2);
435: END IF;
436:
437: t(1).par_type := 'C';
430: begin
431:
432: IF (l_debug = 'Y') THEN
433: okc_debug.Set_Indentation(l_proc);
434: okc_debug.Log('10: Entering ',2);
435: END IF;
436:
437: t(1).par_type := 'C';
438: t(1).par_name := 'MESSAGE0';
468: p_ntf_type => substr(p_ntf_type,1,4000),
469: p_wf_par_tbl => t
470: );
471: IF (l_debug = 'Y') THEN
472: okc_debug.Log('1000: Leaving ',2);
473: okc_debug.Reset_Indentation;
474: END IF;
475:
476: end;
469: p_wf_par_tbl => t
470: );
471: IF (l_debug = 'Y') THEN
472: okc_debug.Log('1000: Leaving ',2);
473: okc_debug.Reset_Indentation;
474: END IF;
475:
476: end;
477:
509:
510: begin
511:
512: IF (l_debug = 'Y') THEN
513: okc_debug.Set_Indentation(l_proc);
514: okc_debug.Log('10: Entering ',2);
515: END IF;
516:
517: OKC_ASYNC_PVT.loop_call(
510: begin
511:
512: IF (l_debug = 'Y') THEN
513: okc_debug.Set_Indentation(l_proc);
514: okc_debug.Log('10: Entering ',2);
515: END IF;
516:
517: OKC_ASYNC_PVT.loop_call(
518: p_api_version => p_api_version,
537: p_extra_attr_text => substr(p_extra_attr_text,1,4000),
538: p_extra_attr_date => p_extra_attr_date
539: );
540: IF (l_debug = 'Y') THEN
541: okc_debug.Log('1000: Leaving ',2);
542: okc_debug.Reset_Indentation;
543: END IF;
544:
545: end;
538: p_extra_attr_date => p_extra_attr_date
539: );
540: IF (l_debug = 'Y') THEN
541: okc_debug.Log('1000: Leaving ',2);
542: okc_debug.Reset_Indentation;
543: END IF;
544:
545: end;
546:
582:
583: begin
584:
585: IF (l_debug = 'Y') THEN
586: okc_debug.Set_Indentation(l_proc);
587: okc_debug.Log('10: Entering ',2);
588: END IF;
589:
590: OKC_ASYNC_PVT.loop_call( p_api_version => p_api_version,
583: begin
584:
585: IF (l_debug = 'Y') THEN
586: okc_debug.Set_Indentation(l_proc);
587: okc_debug.Log('10: Entering ',2);
588: END IF;
589:
590: OKC_ASYNC_PVT.loop_call( p_api_version => p_api_version,
591: p_init_msg_list => p_init_msg_list,
609: p_extra_attr_text => substr(p_extra_attr_text,1,4000),
610: p_extra_attr_date => p_extra_attr_date
611: );
612: IF (l_debug = 'Y') THEN
613: okc_debug.Log('1000: Leaving ',2);
614: okc_debug.Reset_Indentation;
615: END IF;
616:
617: end LOOP_CALL;
610: p_extra_attr_date => p_extra_attr_date
611: );
612: IF (l_debug = 'Y') THEN
613: okc_debug.Log('1000: Leaving ',2);
614: okc_debug.Reset_Indentation;
615: END IF;
616:
617: end LOOP_CALL;
618: --END NPALEPU