5232: l_tal_kle_cle_id NUMBER;
5233: l_new_object1_id1 VARCHAR2(40);
5234: l_contract_process VARCHAR2(30);
5235: l_parameter_list wf_parameter_list_t;
5236: l_event_name wf_events.name%TYPE := NULL;
5237: l_raise_business_event VARCHAR2(1) := OKL_API.G_FALSE;
5238: l_business_event_name wf_events.name%TYPE := NULL;
5239:
5240: l_contract_number okc_k_headers_b.contract_number%TYPE;
5234: l_contract_process VARCHAR2(30);
5235: l_parameter_list wf_parameter_list_t;
5236: l_event_name wf_events.name%TYPE := NULL;
5237: l_raise_business_event VARCHAR2(1) := OKL_API.G_FALSE;
5238: l_business_event_name wf_events.name%TYPE := NULL;
5239:
5240: l_contract_number okc_k_headers_b.contract_number%TYPE;
5241: l_copied_id NUMBER;
5242: l_gov_id NUMBER;
19972:
19973: x_return_status := Okc_Api.G_RET_STS_SUCCESS;
19974: -- Our contract is always new. So commented following check
19975: --IF (p_source_code = 'new') THEN
19976: wf_event.AddParameterToList(G_WF_ITM_CONTRACT_ID,p_chr_id,l_parameter_list);
19977: OKL_WF_PVT.raise_event (p_api_version => p_api_version,
19978: p_init_msg_list => p_init_msg_list,
19979: x_return_status => x_return_status,
19980: x_msg_count => x_msg_count,
19995: p_init_msg_list IN VARCHAR2,
19996: x_return_status OUT NOCOPY VARCHAR2,
19997: x_msg_count OUT NOCOPY NUMBER,
19998: x_msg_data OUT NOCOPY VARCHAR2,
19999: p_event_name IN wf_events.name%TYPE,
20000: p_parameter_list IN wf_parameter_list_t,
20001: p_contract_process IN VARCHAR2) IS
20002:
20003: l_chr_id okc_k_headers_b.id%TYPE;
20006:
20007: BEGIN
20008: -- check to see if the the contract_id is not null, this is required since
20009: -- credit limit events do not necessarily pass a contract
20010: l_chr_id := wf_event.GetValueForParameter(G_WF_ITM_CONTRACT_ID,p_parameter_list);
20011: IF(l_chr_id IS NOT NULL)THEN
20012: -- if there exists a contract in context, then derive the contract process status
20013: --l_contract_process := okl_lla_util_pvt.get_contract_process(l_chr_id);
20014: IF(p_contract_process IS NOT NULL)THEN
20012: -- if there exists a contract in context, then derive the contract process status
20013: --l_contract_process := okl_lla_util_pvt.get_contract_process(l_chr_id);
20014: IF(p_contract_process IS NOT NULL)THEN
20015: -- add the contract process status to the parameter list only the value is not null
20016: wf_event.AddParameterToList(G_WF_ITM_CONTRACT_PROCESS,p_contract_process,l_parameter_list);
20017: END IF;
20018: END IF;
20019: OKL_WF_PVT.raise_event (p_api_version => p_api_version,
20020: p_init_msg_list => p_init_msg_list,
20048:
20049: -- wrapper API to get contract process. this API determines in which status the
20050: -- contract in question is.
20051: --l_contract_process := okl_lla_util_pvt.get_contract_process(p_chr_id => p_chr_id);
20052: wf_event.AddParameterToList(G_WF_ITM_CONTRACT_ID, p_chr_id, l_parameter_list);
20053: wf_event.AddParameterToList(G_WF_ITM_ASSET_ID, p_asset_id, l_parameter_list);
20054: wf_event.AddParameterToList(G_WF_ITM_SUBSIDY_ID, p_subsidy_id, l_parameter_list);
20055: wf_event.AddParameterToList(G_WF_ITM_CONTRACT_PROCESS, p_contract_process, l_parameter_list);
20056: OKL_WF_PVT.raise_event(p_api_version => p_api_version,
20049: -- wrapper API to get contract process. this API determines in which status the
20050: -- contract in question is.
20051: --l_contract_process := okl_lla_util_pvt.get_contract_process(p_chr_id => p_chr_id);
20052: wf_event.AddParameterToList(G_WF_ITM_CONTRACT_ID, p_chr_id, l_parameter_list);
20053: wf_event.AddParameterToList(G_WF_ITM_ASSET_ID, p_asset_id, l_parameter_list);
20054: wf_event.AddParameterToList(G_WF_ITM_SUBSIDY_ID, p_subsidy_id, l_parameter_list);
20055: wf_event.AddParameterToList(G_WF_ITM_CONTRACT_PROCESS, p_contract_process, l_parameter_list);
20056: OKL_WF_PVT.raise_event(p_api_version => p_api_version,
20057: p_init_msg_list => p_init_msg_list,
20050: -- contract in question is.
20051: --l_contract_process := okl_lla_util_pvt.get_contract_process(p_chr_id => p_chr_id);
20052: wf_event.AddParameterToList(G_WF_ITM_CONTRACT_ID, p_chr_id, l_parameter_list);
20053: wf_event.AddParameterToList(G_WF_ITM_ASSET_ID, p_asset_id, l_parameter_list);
20054: wf_event.AddParameterToList(G_WF_ITM_SUBSIDY_ID, p_subsidy_id, l_parameter_list);
20055: wf_event.AddParameterToList(G_WF_ITM_CONTRACT_PROCESS, p_contract_process, l_parameter_list);
20056: OKL_WF_PVT.raise_event(p_api_version => p_api_version,
20057: p_init_msg_list => p_init_msg_list,
20058: x_return_status => x_return_status,
20051: --l_contract_process := okl_lla_util_pvt.get_contract_process(p_chr_id => p_chr_id);
20052: wf_event.AddParameterToList(G_WF_ITM_CONTRACT_ID, p_chr_id, l_parameter_list);
20053: wf_event.AddParameterToList(G_WF_ITM_ASSET_ID, p_asset_id, l_parameter_list);
20054: wf_event.AddParameterToList(G_WF_ITM_SUBSIDY_ID, p_subsidy_id, l_parameter_list);
20055: wf_event.AddParameterToList(G_WF_ITM_CONTRACT_PROCESS, p_contract_process, l_parameter_list);
20056: OKL_WF_PVT.raise_event(p_api_version => p_api_version,
20057: p_init_msg_list => p_init_msg_list,
20058: x_return_status => x_return_status,
20059: x_msg_count => x_msg_count,
20071: ,p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE
20072: ,x_return_status OUT NOCOPY VARCHAR2
20073: ,x_msg_count OUT NOCOPY NUMBER
20074: ,x_msg_data OUT NOCOPY VARCHAR2
20075: ,p_event_name IN WF_EVENTS.NAME%TYPE
20076: ,p_event_param_list IN WF_PARAMETER_LIST_T
20077: ,p_contract_process IN VARCHAR2
20078: )IS
20079: --l_process VARCHAR2(20);
20079: --l_process VARCHAR2(20);
20080: --p_chr_id okc_k_headers_b.id%TYPE;
20081: l_parameter_list WF_PARAMETER_LIST_T := p_event_param_list;
20082: BEGIN
20083: --p_chr_id := wf_event.GetValueForParameter(G_WF_ITM_CONTRACT_ID,p_event_param_list);
20084: --l_process := Okl_Lla_Util_Pvt.get_contract_process(p_chr_id);
20085: wf_event.AddParameterToList(G_WF_ITM_CONTRACT_PROCESS,p_contract_process,l_parameter_list);
20086:
20087: OKL_WF_PVT.raise_event (p_api_version => p_api_version,
20081: l_parameter_list WF_PARAMETER_LIST_T := p_event_param_list;
20082: BEGIN
20083: --p_chr_id := wf_event.GetValueForParameter(G_WF_ITM_CONTRACT_ID,p_event_param_list);
20084: --l_process := Okl_Lla_Util_Pvt.get_contract_process(p_chr_id);
20085: wf_event.AddParameterToList(G_WF_ITM_CONTRACT_PROCESS,p_contract_process,l_parameter_list);
20086:
20087: OKL_WF_PVT.raise_event (p_api_version => p_api_version,
20088: p_init_msg_list => p_init_msg_list,
20089: x_return_status => x_return_status,
20114:
20115: -- wrapper API to get contract process. this API determines in which status the
20116: -- contract in question is.
20117: --l_contract_process := okl_lla_util_pvt.get_contract_process(p_chr_id => p_chr_id);
20118: wf_event.AddParameterToList(G_WF_ITM_CONTRACT_ID, p_chr_id, l_parameter_list);
20119: wf_event.AddParameterToList(G_WF_ITM_ASSET_ID, p_asset_id, l_parameter_list);
20120: wf_event.AddParameterToList(G_WF_ITM_BOOK_CODE, p_book_code, l_parameter_list);
20121: wf_event.AddParameterToList(G_WF_ITM_CONTRACT_PROCESS, p_contract_process, l_parameter_list);
20122: OKL_WF_PVT.raise_event(p_api_version => p_api_version,
20115: -- wrapper API to get contract process. this API determines in which status the
20116: -- contract in question is.
20117: --l_contract_process := okl_lla_util_pvt.get_contract_process(p_chr_id => p_chr_id);
20118: wf_event.AddParameterToList(G_WF_ITM_CONTRACT_ID, p_chr_id, l_parameter_list);
20119: wf_event.AddParameterToList(G_WF_ITM_ASSET_ID, p_asset_id, l_parameter_list);
20120: wf_event.AddParameterToList(G_WF_ITM_BOOK_CODE, p_book_code, l_parameter_list);
20121: wf_event.AddParameterToList(G_WF_ITM_CONTRACT_PROCESS, p_contract_process, l_parameter_list);
20122: OKL_WF_PVT.raise_event(p_api_version => p_api_version,
20123: p_init_msg_list => p_init_msg_list,
20116: -- contract in question is.
20117: --l_contract_process := okl_lla_util_pvt.get_contract_process(p_chr_id => p_chr_id);
20118: wf_event.AddParameterToList(G_WF_ITM_CONTRACT_ID, p_chr_id, l_parameter_list);
20119: wf_event.AddParameterToList(G_WF_ITM_ASSET_ID, p_asset_id, l_parameter_list);
20120: wf_event.AddParameterToList(G_WF_ITM_BOOK_CODE, p_book_code, l_parameter_list);
20121: wf_event.AddParameterToList(G_WF_ITM_CONTRACT_PROCESS, p_contract_process, l_parameter_list);
20122: OKL_WF_PVT.raise_event(p_api_version => p_api_version,
20123: p_init_msg_list => p_init_msg_list,
20124: x_return_status => x_return_status,
20117: --l_contract_process := okl_lla_util_pvt.get_contract_process(p_chr_id => p_chr_id);
20118: wf_event.AddParameterToList(G_WF_ITM_CONTRACT_ID, p_chr_id, l_parameter_list);
20119: wf_event.AddParameterToList(G_WF_ITM_ASSET_ID, p_asset_id, l_parameter_list);
20120: wf_event.AddParameterToList(G_WF_ITM_BOOK_CODE, p_book_code, l_parameter_list);
20121: wf_event.AddParameterToList(G_WF_ITM_CONTRACT_PROCESS, p_contract_process, l_parameter_list);
20122: OKL_WF_PVT.raise_event(p_api_version => p_api_version,
20123: p_init_msg_list => p_init_msg_list,
20124: x_return_status => x_return_status,
20125: x_msg_count => x_msg_count,
20151:
20152: -- wrapper API to get contract process. this API determines in which status the
20153: -- contract in question is.
20154: --l_contract_process := okl_lla_util_pvt.get_contract_process(p_chr_id => p_chr_id);
20155: wf_event.AddParameterToList(G_WF_ITM_CONTRACT_ID, p_chr_id, l_parameter_list);
20156: wf_event.AddParameterToList(G_WF_ITM_ASSET_ID, p_asset_id, l_parameter_list);
20157: wf_event.AddParameterToList(G_WF_ITM_CONTRACT_PROCESS, p_contract_process, l_parameter_list);
20158:
20159: OKL_WF_PVT.raise_event(p_api_version => p_api_version,
20152: -- wrapper API to get contract process. this API determines in which status the
20153: -- contract in question is.
20154: --l_contract_process := okl_lla_util_pvt.get_contract_process(p_chr_id => p_chr_id);
20155: wf_event.AddParameterToList(G_WF_ITM_CONTRACT_ID, p_chr_id, l_parameter_list);
20156: wf_event.AddParameterToList(G_WF_ITM_ASSET_ID, p_asset_id, l_parameter_list);
20157: wf_event.AddParameterToList(G_WF_ITM_CONTRACT_PROCESS, p_contract_process, l_parameter_list);
20158:
20159: OKL_WF_PVT.raise_event(p_api_version => p_api_version,
20160: p_init_msg_list => p_init_msg_list,
20153: -- contract in question is.
20154: --l_contract_process := okl_lla_util_pvt.get_contract_process(p_chr_id => p_chr_id);
20155: wf_event.AddParameterToList(G_WF_ITM_CONTRACT_ID, p_chr_id, l_parameter_list);
20156: wf_event.AddParameterToList(G_WF_ITM_ASSET_ID, p_asset_id, l_parameter_list);
20157: wf_event.AddParameterToList(G_WF_ITM_CONTRACT_PROCESS, p_contract_process, l_parameter_list);
20158:
20159: OKL_WF_PVT.raise_event(p_api_version => p_api_version,
20160: p_init_msg_list => p_init_msg_list,
20161: x_return_status => x_return_status,
20184: l_parameter_list wf_parameter_list_t;
20185: BEGIN
20186: x_return_status := OKL_API.G_RET_STS_SUCCESS;
20187:
20188: wf_event.AddParameterToList(G_WF_ITM_CONTRACT_ID, p_chr_id, l_parameter_list);
20189: wf_event.AddParameterToList(G_WF_ITM_ASSET_ID, p_asset_id, l_parameter_list);
20190: wf_event.AddParameterToList(G_WF_ITM_SERIAL_NUM, p_ser_num, l_parameter_list);
20191: wf_event.AddParameterToList(G_WF_ITM_CONTRACT_PROCESS, p_contract_process, l_parameter_list);
20192:
20185: BEGIN
20186: x_return_status := OKL_API.G_RET_STS_SUCCESS;
20187:
20188: wf_event.AddParameterToList(G_WF_ITM_CONTRACT_ID, p_chr_id, l_parameter_list);
20189: wf_event.AddParameterToList(G_WF_ITM_ASSET_ID, p_asset_id, l_parameter_list);
20190: wf_event.AddParameterToList(G_WF_ITM_SERIAL_NUM, p_ser_num, l_parameter_list);
20191: wf_event.AddParameterToList(G_WF_ITM_CONTRACT_PROCESS, p_contract_process, l_parameter_list);
20192:
20193: OKL_WF_PVT.raise_event(p_api_version => p_api_version,
20186: x_return_status := OKL_API.G_RET_STS_SUCCESS;
20187:
20188: wf_event.AddParameterToList(G_WF_ITM_CONTRACT_ID, p_chr_id, l_parameter_list);
20189: wf_event.AddParameterToList(G_WF_ITM_ASSET_ID, p_asset_id, l_parameter_list);
20190: wf_event.AddParameterToList(G_WF_ITM_SERIAL_NUM, p_ser_num, l_parameter_list);
20191: wf_event.AddParameterToList(G_WF_ITM_CONTRACT_PROCESS, p_contract_process, l_parameter_list);
20192:
20193: OKL_WF_PVT.raise_event(p_api_version => p_api_version,
20194: p_init_msg_list => p_init_msg_list,
20187:
20188: wf_event.AddParameterToList(G_WF_ITM_CONTRACT_ID, p_chr_id, l_parameter_list);
20189: wf_event.AddParameterToList(G_WF_ITM_ASSET_ID, p_asset_id, l_parameter_list);
20190: wf_event.AddParameterToList(G_WF_ITM_SERIAL_NUM, p_ser_num, l_parameter_list);
20191: wf_event.AddParameterToList(G_WF_ITM_CONTRACT_PROCESS, p_contract_process, l_parameter_list);
20192:
20193: OKL_WF_PVT.raise_event(p_api_version => p_api_version,
20194: p_init_msg_list => p_init_msg_list,
20195: x_return_status => x_return_status,
20221:
20222: -- wrapper API to get contract process. this API determines in which status the
20223: -- contract in question is.
20224: --l_contract_process := okl_lla_util_pvt.get_contract_process(p_chr_id => p_chr_id);
20225: wf_event.AddParameterToList(G_WF_ITM_CONTRACT_ID, p_chr_id, l_parameter_list);
20226: wf_event.AddParameterToList(G_WF_ITM_ASSET_ID, p_asset_id, l_parameter_list);
20227: wf_event.AddParameterToList(G_WF_ITM_PARTY_ID, p_vendor_id, l_parameter_list);
20228: wf_event.AddParameterToList(G_WF_ITM_CONTRACT_PROCESS, p_contract_process, l_parameter_list);
20229:
20222: -- wrapper API to get contract process. this API determines in which status the
20223: -- contract in question is.
20224: --l_contract_process := okl_lla_util_pvt.get_contract_process(p_chr_id => p_chr_id);
20225: wf_event.AddParameterToList(G_WF_ITM_CONTRACT_ID, p_chr_id, l_parameter_list);
20226: wf_event.AddParameterToList(G_WF_ITM_ASSET_ID, p_asset_id, l_parameter_list);
20227: wf_event.AddParameterToList(G_WF_ITM_PARTY_ID, p_vendor_id, l_parameter_list);
20228: wf_event.AddParameterToList(G_WF_ITM_CONTRACT_PROCESS, p_contract_process, l_parameter_list);
20229:
20230: OKL_WF_PVT.raise_event(p_api_version => p_api_version,
20223: -- contract in question is.
20224: --l_contract_process := okl_lla_util_pvt.get_contract_process(p_chr_id => p_chr_id);
20225: wf_event.AddParameterToList(G_WF_ITM_CONTRACT_ID, p_chr_id, l_parameter_list);
20226: wf_event.AddParameterToList(G_WF_ITM_ASSET_ID, p_asset_id, l_parameter_list);
20227: wf_event.AddParameterToList(G_WF_ITM_PARTY_ID, p_vendor_id, l_parameter_list);
20228: wf_event.AddParameterToList(G_WF_ITM_CONTRACT_PROCESS, p_contract_process, l_parameter_list);
20229:
20230: OKL_WF_PVT.raise_event(p_api_version => p_api_version,
20231: p_init_msg_list => p_init_msg_list,
20224: --l_contract_process := okl_lla_util_pvt.get_contract_process(p_chr_id => p_chr_id);
20225: wf_event.AddParameterToList(G_WF_ITM_CONTRACT_ID, p_chr_id, l_parameter_list);
20226: wf_event.AddParameterToList(G_WF_ITM_ASSET_ID, p_asset_id, l_parameter_list);
20227: wf_event.AddParameterToList(G_WF_ITM_PARTY_ID, p_vendor_id, l_parameter_list);
20228: wf_event.AddParameterToList(G_WF_ITM_CONTRACT_PROCESS, p_contract_process, l_parameter_list);
20229:
20230: OKL_WF_PVT.raise_event(p_api_version => p_api_version,
20231: p_init_msg_list => p_init_msg_list,
20232: x_return_status => x_return_status,
20254: l_event_param_list WF_PARAMETER_LIST_T := p_event_param_list;
20255: BEGIN
20256: x_return_status := OKL_API.G_RET_STS_SUCCESS;
20257:
20258: wf_event.AddParameterToList(G_WF_ITM_CONTRACT_PROCESS, p_contract_process, l_event_param_list);
20259:
20260: OKL_WF_PVT.raise_event(p_api_version => p_api_version,
20261: p_init_msg_list => p_init_msg_list,
20262: x_return_status => x_return_status,
21440: IF l_lse_id_tab(i) = 58 THEN
21441: -- raise the business event for create credit limit, if line style code is FREE_FORM
21442: l_event_name := G_WF_EVT_CR_LMT_CREATED;
21443: l_raise_business_event := OKL_API.G_TRUE;
21444: wf_event.AddParameterToList(G_WF_ITM_CR_LINE_ID,l_copied_id,l_parameter_list);
21445: wf_event.AddParameterToList(G_WF_ITM_CR_LMT_ID,l_id_tab(i),l_parameter_list);
21446: ELSIF l_lse_id_tab(i) = 33 THEN
21447: -- raise the business event for create asset, if line style code is FREE_FORM1
21448: l_event_name := G_WF_EVT_ASSET_CREATED;
21441: -- raise the business event for create credit limit, if line style code is FREE_FORM
21442: l_event_name := G_WF_EVT_CR_LMT_CREATED;
21443: l_raise_business_event := OKL_API.G_TRUE;
21444: wf_event.AddParameterToList(G_WF_ITM_CR_LINE_ID,l_copied_id,l_parameter_list);
21445: wf_event.AddParameterToList(G_WF_ITM_CR_LMT_ID,l_id_tab(i),l_parameter_list);
21446: ELSIF l_lse_id_tab(i) = 33 THEN
21447: -- raise the business event for create asset, if line style code is FREE_FORM1
21448: l_event_name := G_WF_EVT_ASSET_CREATED;
21449: wf_event.AddParameterToList(G_WF_ITM_CONTRACT_ID,l_copied_id,l_parameter_list);
21445: wf_event.AddParameterToList(G_WF_ITM_CR_LMT_ID,l_id_tab(i),l_parameter_list);
21446: ELSIF l_lse_id_tab(i) = 33 THEN
21447: -- raise the business event for create asset, if line style code is FREE_FORM1
21448: l_event_name := G_WF_EVT_ASSET_CREATED;
21449: wf_event.AddParameterToList(G_WF_ITM_CONTRACT_ID,l_copied_id,l_parameter_list);
21450: wf_event.AddParameterToList(G_WF_ITM_ASSET_ID,l_id_tab(i),l_parameter_list);
21451: ELSIF l_lse_id_tab(i) = 48 THEN
21452: -- raise the business event for create service, if line style code is SOLD_SERVICE
21453: l_event_name := G_WF_EVT_SERVICE_CREATED;
21446: ELSIF l_lse_id_tab(i) = 33 THEN
21447: -- raise the business event for create asset, if line style code is FREE_FORM1
21448: l_event_name := G_WF_EVT_ASSET_CREATED;
21449: wf_event.AddParameterToList(G_WF_ITM_CONTRACT_ID,l_copied_id,l_parameter_list);
21450: wf_event.AddParameterToList(G_WF_ITM_ASSET_ID,l_id_tab(i),l_parameter_list);
21451: ELSIF l_lse_id_tab(i) = 48 THEN
21452: -- raise the business event for create service, if line style code is SOLD_SERVICE
21453: l_event_name := G_WF_EVT_SERVICE_CREATED;
21454: wf_event.AddParameterToList(G_WF_ITM_CONTRACT_ID,l_copied_id,l_parameter_list);
21450: wf_event.AddParameterToList(G_WF_ITM_ASSET_ID,l_id_tab(i),l_parameter_list);
21451: ELSIF l_lse_id_tab(i) = 48 THEN
21452: -- raise the business event for create service, if line style code is SOLD_SERVICE
21453: l_event_name := G_WF_EVT_SERVICE_CREATED;
21454: wf_event.AddParameterToList(G_WF_ITM_CONTRACT_ID,l_copied_id,l_parameter_list);
21455: wf_event.AddParameterToList(G_WF_ITM_SRV_LINE_ID,l_id_tab(i),l_parameter_list);
21456: --create_fee event is raised from here rather than okl_maintain_fee_pvt
21457: --as contract import process does not call okl_maintain_fee_pvt, but directly calls
21458: --okl_contract_pvt
21451: ELSIF l_lse_id_tab(i) = 48 THEN
21452: -- raise the business event for create service, if line style code is SOLD_SERVICE
21453: l_event_name := G_WF_EVT_SERVICE_CREATED;
21454: wf_event.AddParameterToList(G_WF_ITM_CONTRACT_ID,l_copied_id,l_parameter_list);
21455: wf_event.AddParameterToList(G_WF_ITM_SRV_LINE_ID,l_id_tab(i),l_parameter_list);
21456: --create_fee event is raised from here rather than okl_maintain_fee_pvt
21457: --as contract import process does not call okl_maintain_fee_pvt, but directly calls
21458: --okl_contract_pvt
21459: ELSIF l_lse_id_tab(i) = 52 THEN
21458: --okl_contract_pvt
21459: ELSIF l_lse_id_tab(i) = 52 THEN
21460: -- raise the business event for create fee, if line style code is FEE
21461: l_event_name := G_WF_EVT_FEE_CREATED;
21462: wf_event.AddParameterToList(G_WF_ITM_CONTRACT_ID,l_copied_id,l_parameter_list);
21463: wf_event.AddParameterToList(G_WF_ITM_FEE_LINE_ID,l_id_tab(i),l_parameter_list);
21464: END IF;
21465:
21466: -- raise business event only if the contract is a lease contract, the raise_event flag is on and business event
21459: ELSIF l_lse_id_tab(i) = 52 THEN
21460: -- raise the business event for create fee, if line style code is FEE
21461: l_event_name := G_WF_EVT_FEE_CREATED;
21462: wf_event.AddParameterToList(G_WF_ITM_CONTRACT_ID,l_copied_id,l_parameter_list);
21463: wf_event.AddParameterToList(G_WF_ITM_FEE_LINE_ID,l_id_tab(i),l_parameter_list);
21464: END IF;
21465:
21466: -- raise business event only if the contract is a lease contract, the raise_event flag is on and business event
21467: -- name is specified. the event should also be raised if this is a credit limit, in which case is_lease_contract
21522:
21523: IF(l_lse_id_tab(i) = 53 ) THEN
21524: l_raise_business_event := OKL_API.G_TRUE;
21525: l_business_event_name := G_WF_EVT_ASSET_FEE_CREATED;
21526: wf_event.AddParameterToList(G_WF_ITM_FEE_LINE_ID,l_cle_id_tab(i),l_parameter_list);
21527: ELSIF(l_lse_id_tab(i) = 49 ) THEN
21528: l_raise_business_event := OKL_API.G_TRUE;
21529: l_business_event_name := G_WF_EVT_ASSET_SERV_FEE_CRTD;
21530: wf_event.AddParameterToList(G_WF_ITM_SERV_LINE_ID,l_cle_id_tab(i),l_parameter_list);
21526: wf_event.AddParameterToList(G_WF_ITM_FEE_LINE_ID,l_cle_id_tab(i),l_parameter_list);
21527: ELSIF(l_lse_id_tab(i) = 49 ) THEN
21528: l_raise_business_event := OKL_API.G_TRUE;
21529: l_business_event_name := G_WF_EVT_ASSET_SERV_FEE_CRTD;
21530: wf_event.AddParameterToList(G_WF_ITM_SERV_LINE_ID,l_cle_id_tab(i),l_parameter_list);
21531: END IF;
21532:
21533: IF(l_raise_business_event = OKL_API.G_TRUE AND l_business_event_name IS NOT NULL)THEN
21534: wf_event.AddParameterToList(G_WF_ITM_CONTRACT_ID,l_copied_id,l_parameter_list);
21530: wf_event.AddParameterToList(G_WF_ITM_SERV_LINE_ID,l_cle_id_tab(i),l_parameter_list);
21531: END IF;
21532:
21533: IF(l_raise_business_event = OKL_API.G_TRUE AND l_business_event_name IS NOT NULL)THEN
21534: wf_event.AddParameterToList(G_WF_ITM_CONTRACT_ID,l_copied_id,l_parameter_list);
21535: --Ashish ??? Done
21536: --wf_event.AddParameterToList(G_WF_ITM_ASSET_ID,p_cimv_rec.object1_id1,l_parameter_list);
21537: l_new_object1_id1 := find_oid_mapping_id(l_id_tab(i));
21538: IF (l_new_object1_id1 = '-1') THEN
21532:
21533: IF(l_raise_business_event = OKL_API.G_TRUE AND l_business_event_name IS NOT NULL)THEN
21534: wf_event.AddParameterToList(G_WF_ITM_CONTRACT_ID,l_copied_id,l_parameter_list);
21535: --Ashish ??? Done
21536: --wf_event.AddParameterToList(G_WF_ITM_ASSET_ID,p_cimv_rec.object1_id1,l_parameter_list);
21537: l_new_object1_id1 := find_oid_mapping_id(l_id_tab(i));
21538: IF (l_new_object1_id1 = '-1') THEN
21539: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
21540: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Can not find mapping object1_id1 for ' || l_id_tab(i));
21540: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Can not find mapping object1_id1 for ' || l_id_tab(i));
21541: END IF;
21542: RAISE OKL_API.G_EXCEPTION_ERROR;
21543: END IF;
21544: wf_event.AddParameterToList(G_WF_ITM_ASSET_ID,l_new_object1_id1,l_parameter_list);
21545:
21546: raise_business_event_itm(p_api_version => p_api_version
21547: ,p_init_msg_list => p_init_msg_list
21548: ,x_return_status => x_return_status
21594: l_parameter_list := NULL;
21595: FOR i IN l_prid_tab.first..l_prid_tab.last
21596: LOOP
21597:
21598: wf_event.AddParameterToList(G_WF_ITM_CONTRACT_ID,l_copied_id,l_parameter_list);
21599: --vthiruva..04-jan-2004.. Modified to pass object1_id1 as party id and
21600: --added party_role_id to list of paramters passed to raise business event.
21601: --wf_event.AddParameterToList(G_WF_ITM_PARTY_ID,p_cplv_rec.object1_id1,l_parameter_list);
21602: --wf_event.AddParameterToList(G_WF_ITM_PARTY_ROLE_ID,x_cplv_rec.id,l_parameter_list);
21597:
21598: wf_event.AddParameterToList(G_WF_ITM_CONTRACT_ID,l_copied_id,l_parameter_list);
21599: --vthiruva..04-jan-2004.. Modified to pass object1_id1 as party id and
21600: --added party_role_id to list of paramters passed to raise business event.
21601: --wf_event.AddParameterToList(G_WF_ITM_PARTY_ID,p_cplv_rec.object1_id1,l_parameter_list);
21602: --wf_event.AddParameterToList(G_WF_ITM_PARTY_ROLE_ID,x_cplv_rec.id,l_parameter_list);
21603: wf_event.AddParameterToList(G_WF_ITM_PARTY_ID,l_probject1_id1_tab(i),l_parameter_list);
21604: wf_event.AddParameterToList(G_WF_ITM_PARTY_ROLE_ID,l_prid_tab(i),l_parameter_list);
21605:
21598: wf_event.AddParameterToList(G_WF_ITM_CONTRACT_ID,l_copied_id,l_parameter_list);
21599: --vthiruva..04-jan-2004.. Modified to pass object1_id1 as party id and
21600: --added party_role_id to list of paramters passed to raise business event.
21601: --wf_event.AddParameterToList(G_WF_ITM_PARTY_ID,p_cplv_rec.object1_id1,l_parameter_list);
21602: --wf_event.AddParameterToList(G_WF_ITM_PARTY_ROLE_ID,x_cplv_rec.id,l_parameter_list);
21603: wf_event.AddParameterToList(G_WF_ITM_PARTY_ID,l_probject1_id1_tab(i),l_parameter_list);
21604: wf_event.AddParameterToList(G_WF_ITM_PARTY_ROLE_ID,l_prid_tab(i),l_parameter_list);
21605:
21606: raise_business_event_itm(p_api_version => p_api_version
21599: --vthiruva..04-jan-2004.. Modified to pass object1_id1 as party id and
21600: --added party_role_id to list of paramters passed to raise business event.
21601: --wf_event.AddParameterToList(G_WF_ITM_PARTY_ID,p_cplv_rec.object1_id1,l_parameter_list);
21602: --wf_event.AddParameterToList(G_WF_ITM_PARTY_ROLE_ID,x_cplv_rec.id,l_parameter_list);
21603: wf_event.AddParameterToList(G_WF_ITM_PARTY_ID,l_probject1_id1_tab(i),l_parameter_list);
21604: wf_event.AddParameterToList(G_WF_ITM_PARTY_ROLE_ID,l_prid_tab(i),l_parameter_list);
21605:
21606: raise_business_event_itm(p_api_version => p_api_version
21607: ,p_init_msg_list => p_init_msg_list
21600: --added party_role_id to list of paramters passed to raise business event.
21601: --wf_event.AddParameterToList(G_WF_ITM_PARTY_ID,p_cplv_rec.object1_id1,l_parameter_list);
21602: --wf_event.AddParameterToList(G_WF_ITM_PARTY_ROLE_ID,x_cplv_rec.id,l_parameter_list);
21603: wf_event.AddParameterToList(G_WF_ITM_PARTY_ID,l_probject1_id1_tab(i),l_parameter_list);
21604: wf_event.AddParameterToList(G_WF_ITM_PARTY_ROLE_ID,l_prid_tab(i),l_parameter_list);
21605:
21606: raise_business_event_itm(p_api_version => p_api_version
21607: ,p_init_msg_list => p_init_msg_list
21608: ,x_return_status => x_return_status
21817: l_raise_business_event := OKL_API.G_TRUE;
21818: l_business_event_name := G_WF_EVT_CONTRACT_TERM_UPDATED;
21819: l_terms_id := find_tid_mapping_id(l_rrgd_code_tab(i));
21820: IF(l_terms_id IS NOT NULL)THEN
21821: wf_event.AddParameterToList(G_WF_ITM_TERMS_ID, l_terms_id, l_parameter_list);
21822: END IF;
21823: ELSIF(l_rrgd_code_tab(i) = 'LAAFLG' AND l_rcle_id_tab(i) IS NOT NULL)
21824: THEN
21825: --raise business event for Liens Title and Registration for the Assets
21824: THEN
21825: --raise business event for Liens Title and Registration for the Assets
21826: l_raise_business_event := OKL_API.G_TRUE;
21827: l_business_event_name := G_WF_EVT_ASSET_FILING_UPDATED;
21828: wf_event.AddParameterToList(G_WF_ITM_ASSET_ID, l_rcle_id_tab(i), l_parameter_list);
21829: ELSIF(l_rrgd_code_tab(i) = 'LAASTX' AND l_rcle_id_tab(i) IS NOT NULL)
21830: THEN
21831: -- raise business event for tax, property tax updated.
21832: l_raise_business_event := OKL_API.G_TRUE;
21830: THEN
21831: -- raise business event for tax, property tax updated.
21832: l_raise_business_event := OKL_API.G_TRUE;
21833: l_business_event_name := G_WF_EVT_ASSET_PROPTAX_UPDATED;
21834: wf_event.AddParameterToList(G_WF_ITM_ASSET_ID, l_rcle_id_tab(i), l_parameter_list);
21835: ELSIF(l_rrgd_code_tab(i) = 'LAPSTH' AND l_rcle_id_tab(i) IS NOT NULL)
21836: THEN
21837: l_line_style := find_sid_mapping_id(l_rcle_id_tab(i));
21838: -- raise business event for service line update passthru
21838: -- raise business event for service line update passthru
21839: IF(l_line_style IS NOT NULL AND l_line_style = 48)THEN
21840: l_raise_business_event := OKL_API.G_TRUE;
21841: l_business_event_name := G_WF_EVT_SERV_PASS_UPDATED;
21842: wf_event.AddParameterToList(G_WF_ITM_SERV_LINE_ID, l_rcle_id_tab(i), l_parameter_list);
21843: -- check if the service line in context has a service contract associated with it
21844: -- if so, pass the service contract id and service contract line id as parameters
21845: IF (NOT(l_queried)) THEN
21846: OPEN c29(l_copied_id);
21862: END IF;
21863: l_service_top_line_id := find_ssid_mapping_id(l_rcle_id_tab(i));
21864: IF(l_service_top_line_id IS NOT NULL)THEN
21865: l_serv_contract_id := l_copied_id;
21866: wf_event.AddParameterToList(G_WF_ITM_SERV_CHR_ID, l_serv_contract_id, l_parameter_list);
21867: wf_event.AddParameterToList(G_WF_ITM_SERV_CLE_ID, l_service_top_line_id, l_parameter_list);
21868: END IF;
21869: -- raise the business event for update passthrough for Fee Line
21870: ELSIF(l_line_style IS NOT NULL AND l_line_style = 52)THEN
21863: l_service_top_line_id := find_ssid_mapping_id(l_rcle_id_tab(i));
21864: IF(l_service_top_line_id IS NOT NULL)THEN
21865: l_serv_contract_id := l_copied_id;
21866: wf_event.AddParameterToList(G_WF_ITM_SERV_CHR_ID, l_serv_contract_id, l_parameter_list);
21867: wf_event.AddParameterToList(G_WF_ITM_SERV_CLE_ID, l_service_top_line_id, l_parameter_list);
21868: END IF;
21869: -- raise the business event for update passthrough for Fee Line
21870: ELSIF(l_line_style IS NOT NULL AND l_line_style = 52)THEN
21871: l_raise_business_event := OKL_API.G_TRUE;
21869: -- raise the business event for update passthrough for Fee Line
21870: ELSIF(l_line_style IS NOT NULL AND l_line_style = 52)THEN
21871: l_raise_business_event := OKL_API.G_TRUE;
21872: l_business_event_name := G_WF_EVT_FEE_PASS_UPDATED;
21873: wf_event.AddParameterToList(G_WF_ITM_FEE_LINE_ID, l_rcle_id_tab(i), l_parameter_list);
21874: END IF;
21875: ELSIF(l_rrgd_code_tab(i) = 'LAFEXP' AND l_rcle_id_tab(i) IS NOT NULL)
21876: THEN
21877: l_line_style := find_sid_mapping_id(l_rcle_id_tab(i));
21881: -- raise business event for service line update expense
21882: IF(l_line_style IS NOT NULL AND l_line_style = 48)THEN
21883: l_raise_business_event := OKL_API.G_TRUE;
21884: l_business_event_name := G_WF_EVT_SERV_FEXP_UPDATED;
21885: wf_event.AddParameterToList(G_WF_ITM_SERV_LINE_ID, l_rcle_id_tab(i), l_parameter_list);
21886: -- check if the service line in context has a service contract associated with it
21887: -- if so, pass the service contract id and service contract line id as parameters
21888: /*OPEN get_serv_chr_from_serv(p_chr_id, p_line_id);
21889: FETCH get_serv_chr_from_serv INTO l_service_top_line_id;
21911: /*OPEN get_serv_cle_from_serv(l_service_top_line_id);
21912: FETCH get_serv_cle_from_serv INTO l_serv_contract_id;
21913: CLOSE get_serv_cle_from_serv; */
21914: l_serv_contract_id := l_copied_id;
21915: wf_event.AddParameterToList(G_WF_ITM_SERV_CHR_ID, l_serv_contract_id, l_parameter_list);
21916: wf_event.AddParameterToList(G_WF_ITM_SERV_CLE_ID, l_service_top_line_id, l_parameter_list);
21917: END IF;
21918: ELSIF(l_line_style IS NOT NULL AND l_line_style = 52)THEN
21919: l_raise_business_event := OKL_API.G_TRUE;
21912: FETCH get_serv_cle_from_serv INTO l_serv_contract_id;
21913: CLOSE get_serv_cle_from_serv; */
21914: l_serv_contract_id := l_copied_id;
21915: wf_event.AddParameterToList(G_WF_ITM_SERV_CHR_ID, l_serv_contract_id, l_parameter_list);
21916: wf_event.AddParameterToList(G_WF_ITM_SERV_CLE_ID, l_service_top_line_id, l_parameter_list);
21917: END IF;
21918: ELSIF(l_line_style IS NOT NULL AND l_line_style = 52)THEN
21919: l_raise_business_event := OKL_API.G_TRUE;
21920: l_business_event_name := G_WF_EVT_FEE_EXP_UPDATED;
21917: END IF;
21918: ELSIF(l_line_style IS NOT NULL AND l_line_style = 52)THEN
21919: l_raise_business_event := OKL_API.G_TRUE;
21920: l_business_event_name := G_WF_EVT_FEE_EXP_UPDATED;
21921: wf_event.AddParameterToList(G_WF_ITM_FEE_LINE_ID, l_rcle_id_tab(i), l_parameter_list);
21922: END IF;
21923: END IF;
21924:
21925: -- check if the business event needs to be raised
21927: l_business_event_name IS NOT NULL )THEN
21928: -- since contract id is called as 'CONTRACT_ID' for all the above events, it is being
21929: -- added to the parameter list here, than duplicating it in all the above if conditions
21930:
21931: wf_event.AddParameterToList(G_WF_ITM_CONTRACT_ID, l_copied_id, l_parameter_list);
21932: raise_business_event_rules
21933: (p_api_version => p_api_version,
21934: p_init_msg_list => p_init_msg_list,
21935: x_return_status => x_return_status,