98:
99: BEGIN
100:
101: IF (l_debug = 'Y') THEN
102: okc_debug.Set_Indentation(l_proc_n);
103: okc_debug.Log('10: Entering ',2);
104: END IF;
105:
106: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
99: BEGIN
100:
101: IF (l_debug = 'Y') THEN
102: okc_debug.Set_Indentation(l_proc_n);
103: okc_debug.Log('10: Entering ',2);
104: END IF;
105:
106: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
107: G_PKG_NAME,
248:
249: IF( Nvl(FND_PROFILE.VALUE('OKS_STOP_WF_FROM_DA'),'NO')='NO') THEN
250:
251: IF (l_debug = 'Y') THEN
252: okc_debug.Log('Calling OKC_ASYNC_PUB.loop_call to create the workflow processes',2);
253: END IF;
254:
255: -- Call generic workflow process to launch all types of outcomes and pass the executable string
256: -- bug#4014546 changed p_loops to 2 from 100
272: );
273: ELSE
274:
275: IF (l_debug = 'Y') THEN
276: okc_debug.Log('Inserting data into interface table OKS_DA_INTERFACE_B',2);
277: END IF;
278:
279: INSERT INTO OKS_DA_INTERFACE_B
280: (id,contract_id,enque_date,status,proc,proc_name,s_recipient,e_recipient,extra_attr_text)values
284:
285: OKC_API.END_ACTIVITY(l_msg_count, l_msg_data);
286:
287: IF (l_debug = 'Y') THEN
288: okc_debug.Log('1000: Leaving ',2);
289: okc_debug.Reset_Indentation;
290: END IF;
291:
292: EXCEPTION
285: OKC_API.END_ACTIVITY(l_msg_count, l_msg_data);
286:
287: IF (l_debug = 'Y') THEN
288: okc_debug.Log('1000: Leaving ',2);
289: okc_debug.Reset_Indentation;
290: END IF;
291:
292: EXCEPTION
293: WHEN OKC_API.G_EXCEPTION_ERROR THEN
298: l_msg_count,
299: l_msg_data,
300: G_LEVEL);
301: IF (l_debug = 'Y') THEN
302: okc_debug.Log('2000: Leaving ',2);
303: okc_debug.Reset_Indentation;
304: END IF;
305: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
306:
299: l_msg_data,
300: G_LEVEL);
301: IF (l_debug = 'Y') THEN
302: okc_debug.Log('2000: Leaving ',2);
303: okc_debug.Reset_Indentation;
304: END IF;
305: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
306:
307: x_return_status := OKC_API.HANDLE_EXCEPTIONS
311: l_msg_count,
312: l_msg_data,
313: G_LEVEL);
314: IF (l_debug = 'Y') THEN
315: okc_debug.Log('3000: Leaving ',2);
316: okc_debug.Reset_Indentation;
317: END IF;
318: WHEN OTHERS THEN
319: x_return_status := OKC_API.HANDLE_EXCEPTIONS
312: l_msg_data,
313: G_LEVEL);
314: IF (l_debug = 'Y') THEN
315: okc_debug.Log('3000: Leaving ',2);
316: okc_debug.Reset_Indentation;
317: END IF;
318: WHEN OTHERS THEN
319: x_return_status := OKC_API.HANDLE_EXCEPTIONS
320: (l_api_name,
323: l_msg_count,
324: l_msg_data,
325: G_LEVEL);
326: IF (l_debug = 'Y') THEN
327: okc_debug.Log('4000: Leaving ',2);
328: okc_debug.Reset_Indentation;
329: END IF;
330: END launch_outcome;
331:
324: l_msg_data,
325: G_LEVEL);
326: IF (l_debug = 'Y') THEN
327: okc_debug.Log('4000: Leaving ',2);
328: okc_debug.Reset_Indentation;
329: END IF;
330: END launch_outcome;
331:
332: -- Start of comments
383:
384: BEGIN
385:
386: IF (l_debug = 'Y') THEN
387: okc_debug.Set_Indentation(l_proc_n);
388: okc_debug.Log('10: Entering ',2);
389: END IF;
390:
391: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
384: BEGIN
385:
386: IF (l_debug = 'Y') THEN
387: okc_debug.Set_Indentation(l_proc_n);
388: okc_debug.Log('10: Entering ',2);
389: END IF;
390:
391: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
392: G_PKG_NAME,
546: OKC_API.END_ACTIVITY(v_msg_count, v_msg_data);
547:
548:
549: IF (l_debug = 'Y') THEN
550: okc_debug.Log('1000: Leaving ',2);
551: okc_debug.Reset_Indentation;
552: END IF;
553:
554: Exception
547:
548:
549: IF (l_debug = 'Y') THEN
550: okc_debug.Log('1000: Leaving ',2);
551: okc_debug.Reset_Indentation;
552: END IF;
553:
554: Exception
555: WHEN OKC_API.G_EXCEPTION_ERROR THEN
560: v_msg_count,
561: v_msg_data,
562: G_LEVEL);
563: IF (l_debug = 'Y') THEN
564: okc_debug.Log('2000: Leaving ',2);
565: okc_debug.Reset_Indentation;
566: END IF;
567: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
568: x_return_status := OKC_API.HANDLE_EXCEPTIONS
561: v_msg_data,
562: G_LEVEL);
563: IF (l_debug = 'Y') THEN
564: okc_debug.Log('2000: Leaving ',2);
565: okc_debug.Reset_Indentation;
566: END IF;
567: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
568: x_return_status := OKC_API.HANDLE_EXCEPTIONS
569: (l_api_name,
572: v_msg_count,
573: v_msg_data,
574: G_LEVEL);
575: IF (l_debug = 'Y') THEN
576: okc_debug.Log('3000: Leaving ',2);
577: okc_debug.Reset_Indentation;
578: END IF;
579: WHEN OTHERS THEN
580: x_return_status := OKC_API.HANDLE_EXCEPTIONS
573: v_msg_data,
574: G_LEVEL);
575: IF (l_debug = 'Y') THEN
576: okc_debug.Log('3000: Leaving ',2);
577: okc_debug.Reset_Indentation;
578: END IF;
579: WHEN OTHERS THEN
580: x_return_status := OKC_API.HANDLE_EXCEPTIONS
581: (l_api_name,
584: v_msg_count,
585: v_msg_data,
586: G_LEVEL);
587: IF (l_debug = 'Y') THEN
588: okc_debug.Log('4000: Leaving ',2);
589: okc_debug.Reset_Indentation;
590: END IF;
591: End Launch_plsql;
592:
585: v_msg_data,
586: G_LEVEL);
587: IF (l_debug = 'Y') THEN
588: okc_debug.Log('4000: Leaving ',2);
589: okc_debug.Reset_Indentation;
590: END IF;
591: End Launch_plsql;
592:
593: -- Start of comments
638:
639: Begin
640:
641: IF (l_debug = 'Y') THEN
642: okc_debug.Set_Indentation(l_proc_n);
643: okc_debug.Log('10: Entering ',2);
644: END IF;
645:
646: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
639: Begin
640:
641: IF (l_debug = 'Y') THEN
642: okc_debug.Set_Indentation(l_proc_n);
643: okc_debug.Log('10: Entering ',2);
644: END IF;
645:
646: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
647: G_PKG_NAME,
723: x_proc := l_wf_proc;
724: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
725:
726: IF (l_debug = 'Y') THEN
727: okc_debug.Log('1000: Leaving ',2);
728: okc_debug.Reset_Indentation;
729: END IF;
730:
731: Exception
724: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
725:
726: IF (l_debug = 'Y') THEN
727: okc_debug.Log('1000: Leaving ',2);
728: okc_debug.Reset_Indentation;
729: END IF;
730:
731: Exception
732: WHEN OKC_API.G_EXCEPTION_ERROR THEN
737: x_msg_count,
738: x_msg_data,
739: G_LEVEL);
740: IF (l_debug = 'Y') THEN
741: okc_debug.Log('2000: Leaving ',2);
742: okc_debug.Reset_Indentation;
743: END IF;
744: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
745: x_return_status := OKC_API.HANDLE_EXCEPTIONS
738: x_msg_data,
739: G_LEVEL);
740: IF (l_debug = 'Y') THEN
741: okc_debug.Log('2000: Leaving ',2);
742: okc_debug.Reset_Indentation;
743: END IF;
744: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
745: x_return_status := OKC_API.HANDLE_EXCEPTIONS
746: (l_api_name,
749: x_msg_count,
750: x_msg_data,
751: G_LEVEL);
752: IF (l_debug = 'Y') THEN
753: okc_debug.Log('3000: Leaving ',2);
754: okc_debug.Reset_Indentation;
755: END IF;
756: WHEN OTHERS THEN
757: x_return_status := OKC_API.HANDLE_EXCEPTIONS
750: x_msg_data,
751: G_LEVEL);
752: IF (l_debug = 'Y') THEN
753: okc_debug.Log('3000: Leaving ',2);
754: okc_debug.Reset_Indentation;
755: END IF;
756: WHEN OTHERS THEN
757: x_return_status := OKC_API.HANDLE_EXCEPTIONS
758: (l_api_name,
761: x_msg_count,
762: x_msg_data,
763: G_LEVEL);
764: IF (l_debug = 'Y') THEN
765: okc_debug.Log('4000: Leaving ',2);
766: okc_debug.Reset_Indentation;
767: END IF;
768: End Launch_workflow;
769:
762: x_msg_data,
763: G_LEVEL);
764: IF (l_debug = 'Y') THEN
765: okc_debug.Log('4000: Leaving ',2);
766: okc_debug.Reset_Indentation;
767: END IF;
768: End Launch_workflow;
769:
770:
810:
811: BEGIN
812:
813: IF (l_debug = 'Y') THEN
814: okc_debug.Set_Indentation(l_proc);
815: okc_debug.Log('10: Entering submit_da_wf_mgr ',2);
816: END IF;
817:
818: ---Total Queue_Size
811: BEGIN
812:
813: IF (l_debug = 'Y') THEN
814: okc_debug.Set_Indentation(l_proc);
815: okc_debug.Log('10: Entering submit_da_wf_mgr ',2);
816: END IF;
817:
818: ---Total Queue_Size
819: l_queue_size:= Nvl(FND_PROFILE.VALUE('OKS_DA_QUEUE_SIZE'),0);
818: ---Total Queue_Size
819: l_queue_size:= Nvl(FND_PROFILE.VALUE('OKS_DA_QUEUE_SIZE'),0);
820:
821: IF (l_debug = 'Y') THEN
822: okc_debug.Log('20: Total Queue Size '||l_queue_size,2);
823: END IF;
824:
825: ---fetch the pending records from the interface table
826: FOR launch_wf_rec IN launch_wf_csr(l_queue_size) LOOP