3:
4: l_debug VARCHAR2(1) := NVL(FND_PROFILE.VALUE('AFLOG_ENABLED'),'N');
5:
6: G_MUTE_PROFILE CONSTANT VARCHAR2(30) := 'OKC_SUPPRESS_EMAILS';
7: G_APP_NAME CONSTANT VARCHAR2(3) := OKC_API.G_APP_NAME;
8: G_PKG_NAME CONSTANT VARCHAR2(200) := 'OKC_ASYNC_PVT';
9: G_LEVEL CONSTANT VARCHAR2(4) := '_PVT';
10: l_api_version CONSTANT NUMBER := 1;
11:
229: p_wf_par_tbl IN par_tbl_typ
230: ) is
231:
232: l_api_name CONSTANT VARCHAR2(30) := 'WF_CALL';
233: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
234: l_key varchar2(100);
235: c NUMBER;
236: i NUMBER;
237: j NUMBER;
255: okc_debug.Log('20: p_e_recipient : '||p_e_recipient,2);
256: okc_debug.Log('20: p_s_recipient : '||p_s_recipient,2);
257: END IF;
258:
259: l_return_status := OKC_API.START_ACTIVITY(substr(l_api_name,1,26),
260: G_PKG_NAME,
261: p_init_msg_list,
262: l_api_version,
263: p_api_version,
262: l_api_version,
263: p_api_version,
264: G_LEVEL,
265: x_return_status);
266: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
267: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
268: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
269: RAISE OKC_API.G_EXCEPTION_ERROR;
270: END IF;
263: p_api_version,
264: G_LEVEL,
265: x_return_status);
266: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
267: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
268: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
269: RAISE OKC_API.G_EXCEPTION_ERROR;
270: END IF;
271:
264: G_LEVEL,
265: x_return_status);
266: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
267: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
268: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
269: RAISE OKC_API.G_EXCEPTION_ERROR;
270: END IF;
271:
272: --
265: x_return_status);
266: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
267: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
268: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
269: RAISE OKC_API.G_EXCEPTION_ERROR;
270: END IF;
271:
272: --
273: -- create process
412: okc_debug.Log('110: Started WF ',2);
413: END IF;
414:
415: -- commit;
416: x_return_status := OKC_API.G_RET_STS_SUCCESS;
417: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
418:
419: IF (l_debug = 'Y') THEN
420: okc_debug.Log('120: x_msg_count : '||x_msg_count,2);
413: END IF;
414:
415: -- commit;
416: x_return_status := OKC_API.G_RET_STS_SUCCESS;
417: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
418:
419: IF (l_debug = 'Y') THEN
420: okc_debug.Log('120: x_msg_count : '||x_msg_count,2);
421: okc_debug.Log('130: x_msg_data : '||x_msg_data,2);
426: okc_debug.Reset_Indentation;
427: END IF;
428:
429: EXCEPTION
430: WHEN OKC_API.G_EXCEPTION_ERROR THEN
431: x_return_status := OKC_API.HANDLE_EXCEPTIONS
432: (substr(l_api_name,1,26),
433: G_PKG_NAME,
434: 'OKC_API.G_RET_STS_ERROR',
427: END IF;
428:
429: EXCEPTION
430: WHEN OKC_API.G_EXCEPTION_ERROR THEN
431: x_return_status := OKC_API.HANDLE_EXCEPTIONS
432: (substr(l_api_name,1,26),
433: G_PKG_NAME,
434: 'OKC_API.G_RET_STS_ERROR',
435: x_msg_count,
430: WHEN OKC_API.G_EXCEPTION_ERROR THEN
431: x_return_status := OKC_API.HANDLE_EXCEPTIONS
432: (substr(l_api_name,1,26),
433: G_PKG_NAME,
434: 'OKC_API.G_RET_STS_ERROR',
435: x_msg_count,
436: x_msg_data,
437: G_LEVEL);
438: IF (l_debug = 'Y') THEN
438: IF (l_debug = 'Y') THEN
439: okc_debug.Log('3000: Leaving ',2);
440: okc_debug.Reset_Indentation;
441: END IF;
442: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
443: x_return_status := OKC_API.HANDLE_EXCEPTIONS
444: (substr(l_api_name,1,26),
445: G_PKG_NAME,
446: 'OKC_API.G_RET_STS_UNEXP_ERROR',
439: okc_debug.Log('3000: Leaving ',2);
440: okc_debug.Reset_Indentation;
441: END IF;
442: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
443: x_return_status := OKC_API.HANDLE_EXCEPTIONS
444: (substr(l_api_name,1,26),
445: G_PKG_NAME,
446: 'OKC_API.G_RET_STS_UNEXP_ERROR',
447: x_msg_count,
442: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
443: x_return_status := OKC_API.HANDLE_EXCEPTIONS
444: (substr(l_api_name,1,26),
445: G_PKG_NAME,
446: 'OKC_API.G_RET_STS_UNEXP_ERROR',
447: x_msg_count,
448: x_msg_data,
449: G_LEVEL);
450: IF (l_debug = 'Y') THEN
451: okc_debug.Log('4000: Leaving ',2);
452: okc_debug.Reset_Indentation;
453: END IF;
454: WHEN OTHERS THEN
455: x_return_status := OKC_API.HANDLE_EXCEPTIONS
456: (substr(l_api_name,1,26),
457: G_PKG_NAME,
458: 'OTHERS',
459: x_msg_count,
955: END;
956: END IF;
957:
958: IF p_proc_success_flag = 'S' THEN
959: OKC_API.SET_MESSAGE(p_app_name => G_APP_NAME,
960: p_msg_name => 'OKC_OUTCOME_SUCCESS',
961: p_token1 => 'CONTRACT_NUMBER',
962: p_token1_value => l_contract_number,
963: p_token2 => 'PROCESS_NAME',
962: p_token1_value => l_contract_number,
963: p_token2 => 'PROCESS_NAME',
964: p_token2_value => l_proc_name);
965:
966: OKC_API.SET_MESSAGE(p_app_name => G_APP_NAME,
967: p_msg_name => 'OKC_OUTCOME_SUCCESS',
968: p_token1 => 'CONTRACT_NUMBER',
969: p_token1_value => l_contract_number,
970: p_token2 => 'PROCESS_NAME',
969: p_token1_value => l_contract_number,
970: p_token2 => 'PROCESS_NAME',
971: p_token2_value => l_proc_name);
972: ELSE
973: OKC_API.SET_MESSAGE(p_app_name => G_APP_NAME,
974: p_msg_name => 'OKC_OUTCOME_FAILURE',
975: p_token1 => 'CONTRACT_NUMBER',
976: p_token1_value => l_contract_number,
977: p_token2 => 'PROCESS_NAME',
976: p_token1_value => l_contract_number,
977: p_token2 => 'PROCESS_NAME',
978: p_token2_value => l_proc_name);
979:
980: OKC_API.SET_MESSAGE(p_app_name => G_APP_NAME,
981: p_msg_name => 'OKC_OUTCOME_FAILURE',
982: p_token1 => 'CONTRACT_NUMBER',
983: p_token1_value => l_contract_number,
984: p_token2 => 'PROCESS_NAME',
1614: p_extra_attr_date IN DATE
1615: ) is
1616:
1617: l_api_name CONSTANT VARCHAR2(30) := 'RESOLVER_CALL';
1618: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1619: l_key varchar2(100);
1620: --
1621: l_proc varchar2(72) := ' OKC_ASYNC_PVT.'||'resolver_call';
1622: --
1627: okc_debug.Set_Indentation(l_proc);
1628: okc_debug.Log('10: Entering ',2);
1629: END IF;
1630:
1631: l_return_status := OKC_API.START_ACTIVITY(substr(l_api_name,1,26),
1632: G_PKG_NAME,
1633: p_init_msg_list,
1634: l_api_version,
1635: p_api_version,
1634: l_api_version,
1635: p_api_version,
1636: G_LEVEL,
1637: x_return_status);
1638: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1639: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1640: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1641: RAISE OKC_API.G_EXCEPTION_ERROR;
1642: END IF;
1635: p_api_version,
1636: G_LEVEL,
1637: x_return_status);
1638: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1639: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1640: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1641: RAISE OKC_API.G_EXCEPTION_ERROR;
1642: END IF;
1643:
1636: G_LEVEL,
1637: x_return_status);
1638: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1639: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1640: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1641: RAISE OKC_API.G_EXCEPTION_ERROR;
1642: END IF;
1643:
1644: --
1637: x_return_status);
1638: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1639: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1640: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1641: RAISE OKC_API.G_EXCEPTION_ERROR;
1642: END IF;
1643:
1644: --
1645: -- create process
1724: owner => fnd_global.user_name);
1725: wf_engine.StartProcess( itemtype => G_WF_NAME,
1726: itemkey => L_KEY);
1727: -- commit;
1728: x_return_status := OKC_API.G_RET_STS_SUCCESS;
1729: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1730:
1731: IF (l_debug = 'Y') THEN
1732: okc_debug.Log('1000: Leaving ',2);
1725: wf_engine.StartProcess( itemtype => G_WF_NAME,
1726: itemkey => L_KEY);
1727: -- commit;
1728: x_return_status := OKC_API.G_RET_STS_SUCCESS;
1729: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1730:
1731: IF (l_debug = 'Y') THEN
1732: okc_debug.Log('1000: Leaving ',2);
1733: okc_debug.Reset_Indentation;
1734: END IF;
1735:
1736:
1737: EXCEPTION
1738: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1739: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1740: (substr(l_api_name,1,26),
1741: G_PKG_NAME,
1742: 'OKC_API.G_RET_STS_ERROR',
1735:
1736:
1737: EXCEPTION
1738: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1739: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1740: (substr(l_api_name,1,26),
1741: G_PKG_NAME,
1742: 'OKC_API.G_RET_STS_ERROR',
1743: x_msg_count,
1738: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1739: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1740: (substr(l_api_name,1,26),
1741: G_PKG_NAME,
1742: 'OKC_API.G_RET_STS_ERROR',
1743: x_msg_count,
1744: x_msg_data,
1745: G_LEVEL);
1746: IF (l_debug = 'Y') THEN
1746: IF (l_debug = 'Y') THEN
1747: okc_debug.Log('3000: Leaving ',2);
1748: okc_debug.Reset_Indentation;
1749: END IF;
1750: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1751: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1752: (substr(l_api_name,1,26),
1753: G_PKG_NAME,
1754: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1747: okc_debug.Log('3000: Leaving ',2);
1748: okc_debug.Reset_Indentation;
1749: END IF;
1750: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1751: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1752: (substr(l_api_name,1,26),
1753: G_PKG_NAME,
1754: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1755: x_msg_count,
1750: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1751: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1752: (substr(l_api_name,1,26),
1753: G_PKG_NAME,
1754: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1755: x_msg_count,
1756: x_msg_data,
1757: G_LEVEL);
1758: IF (l_debug = 'Y') THEN
1759: okc_debug.Log('4000: Leaving ',2);
1760: okc_debug.Reset_Indentation;
1761: END IF;
1762: WHEN OTHERS THEN
1763: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1764: (substr(l_api_name,1,26),
1765: G_PKG_NAME,
1766: 'OTHERS',
1767: x_msg_count,
2021: p_extra_attr_text IN VARCHAR2 ,
2022: p_extra_attr_date IN DATE
2023: ) is
2024: l_api_name CONSTANT VARCHAR2(30) := 'LOOP_CALL';
2025: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2026: l_key varchar2(100);
2027:
2028: --
2029: CURSOR c_wf_timeout IS
2065: okc_debug.Log('20: p_extra_attr_text : '||p_extra_attr_text,2);
2066: okc_debug.Log('20: p_extra_attr_date : '||p_extra_attr_date,2);
2067: END IF;
2068:
2069: l_return_status := OKC_API.START_ACTIVITY(substr(l_api_name,1,26),
2070: G_PKG_NAME,
2071: p_init_msg_list,
2072: l_api_version,
2073: p_api_version,
2077: IF (l_debug = 'Y') THEN
2078: okc_debug.Log('30: l_return_status : '||l_return_status,2);
2079: END IF;
2080:
2081: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2082: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2083: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2084: RAISE OKC_API.G_EXCEPTION_ERROR;
2085: END IF;
2078: okc_debug.Log('30: l_return_status : '||l_return_status,2);
2079: END IF;
2080:
2081: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2082: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2083: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2084: RAISE OKC_API.G_EXCEPTION_ERROR;
2085: END IF;
2086:
2079: END IF;
2080:
2081: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2082: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2083: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2084: RAISE OKC_API.G_EXCEPTION_ERROR;
2085: END IF;
2086:
2087: /* MSENGUPT: The following code is changed from the previous version to make it more effucient. ie. read c_wf_timeout only
2080:
2081: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2082: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2083: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2084: RAISE OKC_API.G_EXCEPTION_ERROR;
2085: END IF;
2086:
2087: /* MSENGUPT: The following code is changed from the previous version to make it more effucient. ie. read c_wf_timeout only
2088: if l_timeout_minutes from profile options is NULL...... very less likely */
2206:
2207: wf_engine.StartProcess( itemtype => G_WF_NAME,
2208: itemkey => L_KEY);
2209: -- commit;
2210: x_return_status := OKC_API.G_RET_STS_SUCCESS;
2211: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2212:
2213: IF (l_debug = 'Y') THEN
2214: okc_debug.Log('60: x_return_status : '||x_return_status,2);
2207: wf_engine.StartProcess( itemtype => G_WF_NAME,
2208: itemkey => L_KEY);
2209: -- commit;
2210: x_return_status := OKC_API.G_RET_STS_SUCCESS;
2211: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2212:
2213: IF (l_debug = 'Y') THEN
2214: okc_debug.Log('60: x_return_status : '||x_return_status,2);
2215: END IF;
2221: END IF;
2222:
2223:
2224: EXCEPTION
2225: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2226: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2227: (substr(l_api_name,1,26),
2228: G_PKG_NAME,
2229: 'OKC_API.G_RET_STS_ERROR',
2222:
2223:
2224: EXCEPTION
2225: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2226: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2227: (substr(l_api_name,1,26),
2228: G_PKG_NAME,
2229: 'OKC_API.G_RET_STS_ERROR',
2230: x_msg_count,
2225: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2226: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2227: (substr(l_api_name,1,26),
2228: G_PKG_NAME,
2229: 'OKC_API.G_RET_STS_ERROR',
2230: x_msg_count,
2231: x_msg_data,
2232: G_LEVEL);
2233: IF (l_debug = 'Y') THEN
2233: IF (l_debug = 'Y') THEN
2234: okc_debug.Log('3000: Leaving ',2);
2235: okc_debug.Reset_Indentation;
2236: END IF;
2237: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2238: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2239: (substr(l_api_name,1,26),
2240: G_PKG_NAME,
2241: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2234: okc_debug.Log('3000: Leaving ',2);
2235: okc_debug.Reset_Indentation;
2236: END IF;
2237: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2238: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2239: (substr(l_api_name,1,26),
2240: G_PKG_NAME,
2241: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2242: x_msg_count,
2237: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2238: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2239: (substr(l_api_name,1,26),
2240: G_PKG_NAME,
2241: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2242: x_msg_count,
2243: x_msg_data,
2244: G_LEVEL);
2245: IF (l_debug = 'Y') THEN
2246: okc_debug.Log('4000: Leaving ',2);
2247: okc_debug.Reset_Indentation;
2248: END IF;
2249: WHEN OTHERS THEN
2250: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2251: (substr(l_api_name,1,26),
2252: G_PKG_NAME,
2253: 'OTHERS',
2254: x_msg_count,