28: l_outcome_name VARCHAR2(200);
29: l_api_name CONSTANT VARCHAR2(30) := 'launch_outcome';
30: l_api_version NUMBER := 1.0;
31: l_init_msg_list VARCHAR2(10) := FND_API.G_TRUE;
32: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
33: v_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
34: l_msg_count NUMBER;
35: l_msg_data VARCHAR2(240);
36: l_proc VARCHAR2(4000);
29: l_api_name CONSTANT VARCHAR2(30) := 'launch_outcome';
30: l_api_version NUMBER := 1.0;
31: l_init_msg_list VARCHAR2(10) := FND_API.G_TRUE;
32: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
33: v_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
34: l_msg_count NUMBER;
35: l_msg_data VARCHAR2(240);
36: l_proc VARCHAR2(4000);
37: --NPALEPU
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,
108: l_init_msg_list,
109: l_api_version,
110: p_api_version,
109: l_api_version,
110: p_api_version,
111: G_LEVEL,
112: x_return_status);
113: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
114: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
115: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
116: RAISE OKC_API.G_EXCEPTION_ERROR;
117: END IF;
110: p_api_version,
111: G_LEVEL,
112: x_return_status);
113: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
114: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
115: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
116: RAISE OKC_API.G_EXCEPTION_ERROR;
117: END IF;
118:
111: G_LEVEL,
112: x_return_status);
113: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
114: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
115: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
116: RAISE OKC_API.G_EXCEPTION_ERROR;
117: END IF;
118:
119: -- populate profile option values for success and error message recipients
112: x_return_status);
113: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
114: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
115: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
116: RAISE OKC_API.G_EXCEPTION_ERROR;
117: END IF;
118:
119: -- populate profile option values for success and error message recipients
120: OPEN profile_cur1;
169: l_e_recipient := NVL(l_e_recipient,prof_e_recipient);
170:
171: --Check the correlation
172: IF p_corrid_rec.corrid NOT IN ('PPS', 'WPS') THEN
173: OKC_API.SET_MESSAGE(p_app_name => G_APP_NAME,
174: p_msg_name => G_INVALID_VALUE,
175: p_token1 => g_col_name_token,
176: p_token1_value => 'p_corrid_rec');
177: raise OKC_API.G_EXCEPTION_ERROR;
173: OKC_API.SET_MESSAGE(p_app_name => G_APP_NAME,
174: p_msg_name => G_INVALID_VALUE,
175: p_token1 => g_col_name_token,
176: p_token1_value => 'p_corrid_rec');
177: raise OKC_API.G_EXCEPTION_ERROR;
178: ELSIF p_corrid_rec.corrid = 'PPS' THEN
179: --Create a plsql procedure
180: Launch_plsql(p_api_version => p_api_version,
181: p_init_msg_list => p_init_msg_list,
189: --END NPALEPU
190: x_msg_count => l_msg_count,
191: x_msg_data => l_msg_data,
192: x_return_status => l_return_status);
193: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
194: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
195: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
196: raise OKC_API.G_EXCEPTION_ERROR;
197: END IF;
190: x_msg_count => l_msg_count,
191: x_msg_data => l_msg_data,
192: x_return_status => l_return_status);
193: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
194: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
195: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
196: raise OKC_API.G_EXCEPTION_ERROR;
197: END IF;
198:
191: x_msg_data => l_msg_data,
192: x_return_status => l_return_status);
193: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
194: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
195: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
196: raise OKC_API.G_EXCEPTION_ERROR;
197: END IF;
198:
199: ELSIF p_corrid_rec.corrid = 'WPS' THEN
192: x_return_status => l_return_status);
193: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
194: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
195: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
196: raise OKC_API.G_EXCEPTION_ERROR;
197: END IF;
198:
199: ELSIF p_corrid_rec.corrid = 'WPS' THEN
200: --a workflow
210: --END NPALEPU
211: x_msg_count => l_msg_count,
212: x_msg_data => l_msg_data,
213: x_return_status => l_return_status);
214: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
215: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
216: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
217: raise OKC_API.G_EXCEPTION_ERROR;
218: END IF;
211: x_msg_count => l_msg_count,
212: x_msg_data => l_msg_data,
213: x_return_status => l_return_status);
214: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
215: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
216: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
217: raise OKC_API.G_EXCEPTION_ERROR;
218: END IF;
219: END IF;
212: x_msg_data => l_msg_data,
213: x_return_status => l_return_status);
214: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
215: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
216: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
217: raise OKC_API.G_EXCEPTION_ERROR;
218: END IF;
219: END IF;
220:
213: x_return_status => l_return_status);
214: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
215: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
216: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
217: raise OKC_API.G_EXCEPTION_ERROR;
218: END IF;
219: END IF;
220:
221: IF l_plsql_proc IS NOT NULL THEN
281: (OKS_DA_INTERFACE_S.NEXTVAL,l_contract_id,SYSDATE,'PENDING',l_proc,l_proc_name,l_s_recipient,l_e_recipient,okc_wf.get_wf_string);
282:
283: END IF;
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;
289: okc_debug.Reset_Indentation;
290: END IF;
291:
292: EXCEPTION
293: WHEN OKC_API.G_EXCEPTION_ERROR THEN
294: x_return_status := OKC_API.HANDLE_EXCEPTIONS
295: (l_api_name,
296: G_PKG_NAME,
297: 'OKC_API.G_RET_STS_ERROR',
290: END IF;
291:
292: EXCEPTION
293: WHEN OKC_API.G_EXCEPTION_ERROR THEN
294: x_return_status := OKC_API.HANDLE_EXCEPTIONS
295: (l_api_name,
296: G_PKG_NAME,
297: 'OKC_API.G_RET_STS_ERROR',
298: l_msg_count,
293: WHEN OKC_API.G_EXCEPTION_ERROR THEN
294: x_return_status := OKC_API.HANDLE_EXCEPTIONS
295: (l_api_name,
296: G_PKG_NAME,
297: 'OKC_API.G_RET_STS_ERROR',
298: l_msg_count,
299: l_msg_data,
300: G_LEVEL);
301: IF (l_debug = 'Y') THEN
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
308: (l_api_name,
309: G_PKG_NAME,
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
308: (l_api_name,
309: G_PKG_NAME,
310: 'OKC_API.G_RET_STS_UNEXP_ERROR',
311: l_msg_count,
306:
307: x_return_status := OKC_API.HANDLE_EXCEPTIONS
308: (l_api_name,
309: G_PKG_NAME,
310: 'OKC_API.G_RET_STS_UNEXP_ERROR',
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
320: (l_api_name,
321: G_PKG_NAME,
322: 'OTHERS',
323: l_msg_count,
349: x_return_status OUT NOCOPY VARCHAR2) IS
350:
351: l_api_name CONSTANT VARCHAR2(30) := 'launch_plsql';
352: l_api_version CONSTANT NUMBER := 1.0;
353: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
354: v_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
355: v_msg_count NUMBER;
356: v_msg_data VARCHAR2(2000);
357: plsql_block VARCHAR2(4000);
350:
351: l_api_name CONSTANT VARCHAR2(30) := 'launch_plsql';
352: l_api_version CONSTANT NUMBER := 1.0;
353: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
354: v_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
355: v_msg_count NUMBER;
356: v_msg_data VARCHAR2(2000);
357: plsql_block VARCHAR2(4000);
358: l_error_exception EXCEPTION;
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,
393: p_init_msg_list,
394: l_api_version,
395: p_api_version,
394: l_api_version,
395: p_api_version,
396: G_LEVEL,
397: x_return_status);
398: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
399: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
400: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
401: RAISE OKC_API.G_EXCEPTION_ERROR;
402: END IF;
395: p_api_version,
396: G_LEVEL,
397: x_return_status);
398: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
399: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
400: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
401: RAISE OKC_API.G_EXCEPTION_ERROR;
402: END IF;
403:
396: G_LEVEL,
397: x_return_status);
398: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
399: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
400: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
401: RAISE OKC_API.G_EXCEPTION_ERROR;
402: END IF;
403:
404: --NPALEPU
397: x_return_status);
398: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
399: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
400: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
401: RAISE OKC_API.G_EXCEPTION_ERROR;
402: END IF;
403:
404: --NPALEPU
405: --14-DEC-2005
429: l_data_type := p_outcome_tbl(i).data_type;
430:
431: IF (l_data_type IN ('DATE', 'CHAR') AND p_outcome_tbl(i).name
432: NOT IN ('X_RETURN_STATUS', 'X_MSG_DATA', 'P_INIT_MSG_LIST')) THEN
433: IF UPPER(p_outcome_tbl(i).value) NOT IN ('OKC_API.G_MISS_CHAR','OKC_API.G_MISS_DATE','NULL') THEN
434: l_pack_proc := p_outcome_name || '('||p_outcome_tbl(i).name||
435: ' => '||''''||p_outcome_tbl(i).value||'''';
436: ELSIF UPPER(p_outcome_tbl(i).value) IN ('OKC_API.G_MISS_CHAR','OKC_API.G_MISS_DATE','NULL') THEN
437: l_pack_proc := p_outcome_name || '('||p_outcome_tbl(i).name||
432: NOT IN ('X_RETURN_STATUS', 'X_MSG_DATA', 'P_INIT_MSG_LIST')) THEN
433: IF UPPER(p_outcome_tbl(i).value) NOT IN ('OKC_API.G_MISS_CHAR','OKC_API.G_MISS_DATE','NULL') THEN
434: l_pack_proc := p_outcome_name || '('||p_outcome_tbl(i).name||
435: ' => '||''''||p_outcome_tbl(i).value||'''';
436: ELSIF UPPER(p_outcome_tbl(i).value) IN ('OKC_API.G_MISS_CHAR','OKC_API.G_MISS_DATE','NULL') THEN
437: l_pack_proc := p_outcome_name || '('||p_outcome_tbl(i).name||
438: ' => '||p_outcome_tbl(i).value;
439: END IF;
440:
447:
448: ELSIF (l_data_type = 'NUMBER') AND (p_outcome_tbl(i).name = 'X_MSG_COUNT') THEN
449: null;
450: ELSE
451: OKC_API.SET_MESSAGE(p_app_name => G_APP_NAME,
452: p_msg_name => G_INVALID_VALUE,
453: p_token1 => g_col_name_token,
454: p_token1_value => 'datatype');
455: raise OKC_API.G_EXCEPTION_ERROR;
451: OKC_API.SET_MESSAGE(p_app_name => G_APP_NAME,
452: p_msg_name => G_INVALID_VALUE,
453: p_token1 => g_col_name_token,
454: p_token1_value => 'datatype');
455: raise OKC_API.G_EXCEPTION_ERROR;
456: END IF;
457:
458: IF p_outcome_tbl.COUNT > 1 THEN
459:
462: LOOP
463: l_data_type := p_outcome_tbl(i).data_type;
464: IF (l_data_type IN ('DATE', 'CHAR') AND p_outcome_tbl(i).name
465: NOT IN ('X_RETURN_STATUS', 'X_MSG_DATA', 'P_INIT_MSG_LIST')) THEN
466: IF UPPER(p_outcome_tbl(i).value) NOT IN ('OKC_API.G_MISS_CHAR','OKC_API.G_MISS_DATE','NULL') THEN
467: l_pack_proc := l_pack_proc||', '||p_outcome_tbl(i).name||
468: ' => '||''''||p_outcome_tbl(i).value||'''';
469: ELSIF UPPER(p_outcome_tbl(i).value) IN ('OKC_API.G_MISS_CHAR','OKC_API.G_MISS_DATE','NULL') THEN
470: l_pack_proc := l_pack_proc||', '||p_outcome_tbl(i).name||
465: NOT IN ('X_RETURN_STATUS', 'X_MSG_DATA', 'P_INIT_MSG_LIST')) THEN
466: IF UPPER(p_outcome_tbl(i).value) NOT IN ('OKC_API.G_MISS_CHAR','OKC_API.G_MISS_DATE','NULL') THEN
467: l_pack_proc := l_pack_proc||', '||p_outcome_tbl(i).name||
468: ' => '||''''||p_outcome_tbl(i).value||'''';
469: ELSIF UPPER(p_outcome_tbl(i).value) IN ('OKC_API.G_MISS_CHAR','OKC_API.G_MISS_DATE','NULL') THEN
470: l_pack_proc := l_pack_proc||', '||p_outcome_tbl(i).name||
471: ' => '||p_outcome_tbl(i).value;
472: END IF;
473:
481:
482: ELSIF (l_data_type = 'NUMBER') AND (p_outcome_tbl(i).name = 'X_MSG_COUNT') THEN
483: null;
484: ELSE
485: OKC_API.SET_MESSAGE(p_app_name => G_APP_NAME,
486: p_msg_name => G_INVALID_VALUE,
487: p_token1 => g_col_name_token,
488: p_token1_value => 'datatype');
489: raise OKC_API.G_EXCEPTION_ERROR;
485: OKC_API.SET_MESSAGE(p_app_name => G_APP_NAME,
486: p_msg_name => G_INVALID_VALUE,
487: p_token1 => g_col_name_token,
488: p_token1_value => 'datatype');
489: raise OKC_API.G_EXCEPTION_ERROR;
490: END IF;
491: EXIT WHEN (i = p_outcome_tbl.LAST);
492: i := p_outcome_tbl.NEXT(i);
493: END LOOP;
494: END IF;
495: END IF;
496:
497: --Append all the standard parameters
498: l_std_params := 'P_INIT_MSG_LIST => OKC_API.G_FALSE, X_RETURN_STATUS => :V_RETURN_STATUS,'||
499: 'X_MSG_COUNT => V_MSG_COUNT, X_MSG_DATA => V_MSG_DATA)';
500: --Build the plsql string
501: l_pack_proc := l_pack_proc ||', '||l_std_params;
502:
533: (okc_wf.build_wf_string( p_outcome_name,
534: l_outcome_tbl
535: )));
536: if l_pack_proc is null then
537: OKC_API.SET_MESSAGE( p_app_name => G_APP_NAME,
538: p_msg_name => G_INVALID_VALUE,
539: p_token1 => g_col_name_token,
540: p_token1_value => 'datatype');
541: raise OKC_API.G_EXCEPTION_ERROR;
537: OKC_API.SET_MESSAGE( p_app_name => G_APP_NAME,
538: p_msg_name => G_INVALID_VALUE,
539: p_token1 => g_col_name_token,
540: p_token1_value => 'datatype');
541: raise OKC_API.G_EXCEPTION_ERROR;
542: end if;
543: x_proc:=l_pack_proc;
544: -- added by marat - end (bug#2477385)
545:
542: end if;
543: x_proc:=l_pack_proc;
544: -- added by marat - end (bug#2477385)
545:
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
555: WHEN OKC_API.G_EXCEPTION_ERROR THEN
556: x_return_status := OKC_API.HANDLE_EXCEPTIONS
557: (l_api_name,
558: G_PKG_NAME,
559: 'OKC_API.G_RET_STS_ERROR',
552: END IF;
553:
554: Exception
555: WHEN OKC_API.G_EXCEPTION_ERROR THEN
556: x_return_status := OKC_API.HANDLE_EXCEPTIONS
557: (l_api_name,
558: G_PKG_NAME,
559: 'OKC_API.G_RET_STS_ERROR',
560: v_msg_count,
555: WHEN OKC_API.G_EXCEPTION_ERROR THEN
556: x_return_status := OKC_API.HANDLE_EXCEPTIONS
557: (l_api_name,
558: G_PKG_NAME,
559: 'OKC_API.G_RET_STS_ERROR',
560: v_msg_count,
561: v_msg_data,
562: G_LEVEL);
563: IF (l_debug = 'Y') THEN
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,
570: G_PKG_NAME,
571: 'OKC_API.G_RET_STS_UNEXP_ERROR',
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,
570: G_PKG_NAME,
571: 'OKC_API.G_RET_STS_UNEXP_ERROR',
572: v_msg_count,
567: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
568: x_return_status := OKC_API.HANDLE_EXCEPTIONS
569: (l_api_name,
570: G_PKG_NAME,
571: 'OKC_API.G_RET_STS_UNEXP_ERROR',
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
581: (l_api_name,
582: G_PKG_NAME,
583: 'OTHERS',
584: v_msg_count,
610: x_return_status OUT NOCOPY VARCHAR2) IS
611:
612: l_api_name CONSTANT VARCHAR2(30) := 'Launch_workflow';
613: l_api_version CONSTANT NUMBER := 1.0;
614: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
615: l_item_type VARCHAR2(100);
616: l_item_key VARCHAR2(100);
617: l_process VARCHAR2(100);
618: l_wf_proc VARCHAR2(4000);
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,
648: p_init_msg_list,
649: l_api_version,
650: p_api_version,
649: l_api_version,
650: p_api_version,
651: G_LEVEL,
652: x_return_status);
653: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
654: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
655: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
656: RAISE OKC_API.G_EXCEPTION_ERROR;
657: END IF;
650: p_api_version,
651: G_LEVEL,
652: x_return_status);
653: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
654: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
655: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
656: RAISE OKC_API.G_EXCEPTION_ERROR;
657: END IF;
658:
651: G_LEVEL,
652: x_return_status);
653: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
654: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
655: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
656: RAISE OKC_API.G_EXCEPTION_ERROR;
657: END IF;
658:
659: --Workflow name
652: x_return_status);
653: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
654: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
655: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
656: RAISE OKC_API.G_EXCEPTION_ERROR;
657: END IF;
658:
659: --Workflow name
660: l_item_type := substr(p_outcome_name, 1, instr(p_outcome_name, '.', 1) - 1);
660: l_item_type := substr(p_outcome_name, 1, instr(p_outcome_name, '.', 1) - 1);
661: --Workflow Process name
662: l_process := substr(p_outcome_name, instr(p_outcome_name , '.') + 1);
663: IF l_item_type IS NULL OR l_process IS NULL THEN
664: OKC_API.SET_MESSAGE(p_app_name => G_APP_NAME,
665: p_msg_name => G_PROCESS_NOTFOUND,
666: p_token1 => g_wf_name_token,
667: p_token1_value => l_item_type,
668: p_token2 => G_WF_P_NAME_TOKEN,
666: p_token1 => g_wf_name_token,
667: p_token1_value => l_item_type,
668: p_token2 => G_WF_P_NAME_TOKEN,
669: p_token2_value => l_process);
670: RAISE OKC_API.G_EXCEPTION_ERROR;
671: END IF;
672:
673: --NPALEPU
674: --14-DEC-2005
720: END IF;
721: commit;
722: l_wf_proc := 'begin WF_ENGINE.STARTPROCESS('||''''||l_item_type||''''||','||''''||l_item_key||''''||'); end;';
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;
728: okc_debug.Reset_Indentation;
729: END IF;
730:
731: Exception
732: WHEN OKC_API.G_EXCEPTION_ERROR THEN
733: x_return_status := OKC_API.HANDLE_EXCEPTIONS
734: (l_api_name,
735: G_PKG_NAME,
736: 'OKC_API.G_RET_STS_ERROR',
729: END IF;
730:
731: Exception
732: WHEN OKC_API.G_EXCEPTION_ERROR THEN
733: x_return_status := OKC_API.HANDLE_EXCEPTIONS
734: (l_api_name,
735: G_PKG_NAME,
736: 'OKC_API.G_RET_STS_ERROR',
737: x_msg_count,
732: WHEN OKC_API.G_EXCEPTION_ERROR THEN
733: x_return_status := OKC_API.HANDLE_EXCEPTIONS
734: (l_api_name,
735: G_PKG_NAME,
736: 'OKC_API.G_RET_STS_ERROR',
737: x_msg_count,
738: x_msg_data,
739: G_LEVEL);
740: IF (l_debug = 'Y') THEN
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,
747: G_PKG_NAME,
748: 'OKC_API.G_RET_STS_UNEXP_ERROR',
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,
747: G_PKG_NAME,
748: 'OKC_API.G_RET_STS_UNEXP_ERROR',
749: x_msg_count,
744: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
745: x_return_status := OKC_API.HANDLE_EXCEPTIONS
746: (l_api_name,
747: G_PKG_NAME,
748: 'OKC_API.G_RET_STS_UNEXP_ERROR',
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
758: (l_api_name,
759: G_PKG_NAME,
760: 'OTHERS',
761: x_msg_count,
780: retcode OUT NOCOPY VARCHAR2) IS
781:
782: l_api_name CONSTANT VARCHAR2(30) := 'submit_da_wf_mgr';
783: l_api_version CONSTANT VARCHAR2(30) := 1.0;
784: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
785: x_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
786: l_msg_count NUMBER;
787: l_msg_data VARCHAR2(1000);
788: l_init_msg_list VARCHAR2(3) := 'F';
781:
782: l_api_name CONSTANT VARCHAR2(30) := 'submit_da_wf_mgr';
783: l_api_version CONSTANT VARCHAR2(30) := 1.0;
784: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
785: x_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
786: l_msg_count NUMBER;
787: l_msg_data VARCHAR2(1000);
788: l_init_msg_list VARCHAR2(3) := 'F';
789:
846: );
847:
848:
849:
850: IF l_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
851: UPDATE OKS_DA_INTERFACE_B
852: SET status='ERROR'
853: WHERE id=launch_wf_rec.id;
854: