DBA Data[Home] [Help]

APPS.OKL_CONTRACT_PVT dependencies on WF_EVENT

Line 140: p_event_name IN wf_events.name%TYPE,

136: p_init_msg_list IN VARCHAR2,
137: x_return_status OUT NOCOPY VARCHAR2,
138: x_msg_count OUT NOCOPY NUMBER,
139: x_msg_data OUT NOCOPY VARCHAR2,
140: p_event_name IN wf_events.name%TYPE,
141: p_parameter_list IN wf_parameter_list_t) IS
142:
143: l_chr_id okc_k_headers_b.id%TYPE;
144: l_contract_process VARCHAR2(30);

Line 150: l_chr_id := wf_event.GetValueForParameter(G_WF_ITM_CONTRACT_ID,p_parameter_list);

146:
147: BEGIN
148: -- check to see if the the contract_id is not null, this is required since
149: -- credit limit events do not necessarily pass a contract
150: l_chr_id := wf_event.GetValueForParameter(G_WF_ITM_CONTRACT_ID,p_parameter_list);
151: IF(l_chr_id IS NOT NULL)THEN
152: -- if there exists a contract in context, then derive the contract process status
153: l_contract_process := okl_lla_util_pvt.get_contract_process(l_chr_id);
154: IF(l_contract_process IS NOT NULL)THEN

Line 156: wf_event.AddParameterToList(G_WF_ITM_CONTRACT_PROCESS,l_contract_process,l_parameter_list);

152: -- if there exists a contract in context, then derive the contract process status
153: l_contract_process := okl_lla_util_pvt.get_contract_process(l_chr_id);
154: IF(l_contract_process IS NOT NULL)THEN
155: -- add the contract process status to the parameter list only the value is not null
156: wf_event.AddParameterToList(G_WF_ITM_CONTRACT_PROCESS,l_contract_process,l_parameter_list);
157: END IF;
158: END IF;
159: OKL_WF_PVT.raise_event (p_api_version => p_api_version,
160: p_init_msg_list => p_init_msg_list,

Line 6237: l_event_name wf_events.name%TYPE := null;

6233: AND line.id = p_line_id;
6234:
6235: l_lty_code okc_line_styles_b.lty_code%TYPE;
6236: l_parameter_list wf_parameter_list_t;
6237: l_event_name wf_events.name%TYPE := null;
6238: l_raise_business_event VARCHAR2(1) := OKL_API.G_FALSE;
6239: /*
6240: -- vthiruva, 08/19/2004
6241: -- END, Code change to enable Business Event

Line 6410: wf_event.AddParameterToList(G_WF_ITM_CR_LINE_ID,l_clev_rec.dnz_chr_id,l_parameter_list);

6406: -- raise the business event for create credit limit, if line style code is FREE_FORM
6407: l_event_name := G_WF_EVT_CR_LMT_CREATED;
6408: l_raise_business_event := OKL_API.G_TRUE;
6409: -- create the parameter list to pass to raise_event
6410: wf_event.AddParameterToList(G_WF_ITM_CR_LINE_ID,l_clev_rec.dnz_chr_id,l_parameter_list);
6411: wf_event.AddParameterToList(G_WF_ITM_CR_LMT_ID,x_clev_rec.id,l_parameter_list);
6412: ELSIF l_lty_code = 'FREE_FORM1' THEN
6413: -- raise business event only if the context contract is a lease contract
6414: l_raise_business_event := OKL_LLA_UTIL_PVT.is_lease_contract(l_clev_rec.dnz_chr_id);

Line 6411: wf_event.AddParameterToList(G_WF_ITM_CR_LMT_ID,x_clev_rec.id,l_parameter_list);

6407: l_event_name := G_WF_EVT_CR_LMT_CREATED;
6408: l_raise_business_event := OKL_API.G_TRUE;
6409: -- create the parameter list to pass to raise_event
6410: wf_event.AddParameterToList(G_WF_ITM_CR_LINE_ID,l_clev_rec.dnz_chr_id,l_parameter_list);
6411: wf_event.AddParameterToList(G_WF_ITM_CR_LMT_ID,x_clev_rec.id,l_parameter_list);
6412: ELSIF l_lty_code = 'FREE_FORM1' THEN
6413: -- raise business event only if the context contract is a lease contract
6414: l_raise_business_event := OKL_LLA_UTIL_PVT.is_lease_contract(l_clev_rec.dnz_chr_id);
6415: IF(l_raise_business_event = OKL_API.G_TRUE)THEN

Line 6419: wf_event.AddParameterToList(G_WF_ITM_CONTRACT_ID,l_clev_rec.dnz_chr_id,l_parameter_list);

6415: IF(l_raise_business_event = OKL_API.G_TRUE)THEN
6416: -- raise the business event for create asset, if line style code is FREE_FORM1
6417: l_event_name := G_WF_EVT_ASSET_CREATED;
6418: -- create the parameter list to pass to raise_event
6419: wf_event.AddParameterToList(G_WF_ITM_CONTRACT_ID,l_clev_rec.dnz_chr_id,l_parameter_list);
6420: wf_event.AddParameterToList(G_WF_ITM_ASSET_ID,x_clev_rec.id,l_parameter_list);
6421: END IF;
6422: ELSIF l_lty_code = 'SOLD_SERVICE' THEN
6423: -- raise business event only if the context contract is a lease contract

Line 6420: wf_event.AddParameterToList(G_WF_ITM_ASSET_ID,x_clev_rec.id,l_parameter_list);

6416: -- raise the business event for create asset, if line style code is FREE_FORM1
6417: l_event_name := G_WF_EVT_ASSET_CREATED;
6418: -- create the parameter list to pass to raise_event
6419: wf_event.AddParameterToList(G_WF_ITM_CONTRACT_ID,l_clev_rec.dnz_chr_id,l_parameter_list);
6420: wf_event.AddParameterToList(G_WF_ITM_ASSET_ID,x_clev_rec.id,l_parameter_list);
6421: END IF;
6422: ELSIF l_lty_code = 'SOLD_SERVICE' THEN
6423: -- raise business event only if the context contract is a lease contract
6424: l_raise_business_event := OKL_LLA_UTIL_PVT.is_lease_contract(l_clev_rec.dnz_chr_id);

Line 6429: wf_event.AddParameterToList(G_WF_ITM_CONTRACT_ID,l_clev_rec.dnz_chr_id,l_parameter_list);

6425: IF(l_raise_business_event = OKL_API.G_TRUE)THEN
6426: -- raise the business event for create service, if line style code is SOLD_SERVICE
6427: l_event_name := G_WF_EVT_SERVICE_CREATED;
6428: -- create the parameter list to pass to raise_event
6429: wf_event.AddParameterToList(G_WF_ITM_CONTRACT_ID,l_clev_rec.dnz_chr_id,l_parameter_list);
6430: wf_event.AddParameterToList(G_WF_ITM_SRV_LINE_ID,x_clev_rec.id,l_parameter_list);
6431: END IF;
6432: --create_fee event is raised from here rather than okl_maintain_fee_pvt
6433: --as contract import process does not call okl_maintain_fee_pvt, but directly calls

Line 6430: wf_event.AddParameterToList(G_WF_ITM_SRV_LINE_ID,x_clev_rec.id,l_parameter_list);

6426: -- raise the business event for create service, if line style code is SOLD_SERVICE
6427: l_event_name := G_WF_EVT_SERVICE_CREATED;
6428: -- create the parameter list to pass to raise_event
6429: wf_event.AddParameterToList(G_WF_ITM_CONTRACT_ID,l_clev_rec.dnz_chr_id,l_parameter_list);
6430: wf_event.AddParameterToList(G_WF_ITM_SRV_LINE_ID,x_clev_rec.id,l_parameter_list);
6431: END IF;
6432: --create_fee event is raised from here rather than okl_maintain_fee_pvt
6433: --as contract import process does not call okl_maintain_fee_pvt, but directly calls
6434: --okl_contract_pvt

Line 6442: wf_event.AddParameterToList(G_WF_ITM_CONTRACT_ID,l_clev_rec.dnz_chr_id,l_parameter_list);

6438: IF(l_raise_business_event = OKL_API.G_TRUE)THEN
6439: -- raise the business event for create fee, if line style code is FEE
6440: l_event_name := G_WF_EVT_FEE_CREATED;
6441: -- create the parameter list to pass to raise_event
6442: wf_event.AddParameterToList(G_WF_ITM_CONTRACT_ID,l_clev_rec.dnz_chr_id,l_parameter_list);
6443: wf_event.AddParameterToList(G_WF_ITM_FEE_LINE_ID,x_clev_rec.id,l_parameter_list);
6444: END IF;
6445: END IF;
6446:

Line 6443: wf_event.AddParameterToList(G_WF_ITM_FEE_LINE_ID,x_clev_rec.id,l_parameter_list);

6439: -- raise the business event for create fee, if line style code is FEE
6440: l_event_name := G_WF_EVT_FEE_CREATED;
6441: -- create the parameter list to pass to raise_event
6442: wf_event.AddParameterToList(G_WF_ITM_CONTRACT_ID,l_clev_rec.dnz_chr_id,l_parameter_list);
6443: wf_event.AddParameterToList(G_WF_ITM_FEE_LINE_ID,x_clev_rec.id,l_parameter_list);
6444: END IF;
6445: END IF;
6446:
6447: -- raise business event only if the contract is a lease contract, the raise_event flag is on and business event

Line 6714: l_event_name wf_events.name%TYPE := null;

6710:
6711:
6712: l_lty_code okc_line_styles_b.lty_code%TYPE;
6713: l_parameter_list wf_parameter_list_t;
6714: l_event_name wf_events.name%TYPE := null;
6715: l_raise_business_event VARCHAR2(1) := OKL_API.G_FALSE;
6716: /*
6717: -- vthiruva, 08/19/2004
6718: -- END, Code change to enable Business Event

Line 6931: wf_event.AddParameterToList(G_WF_ITM_CR_LINE_ID,l_clev_rec.dnz_chr_id,l_parameter_list);

6927: -- raise the business event for update credit limit if line style code is FREE_FORM
6928: l_event_name := G_WF_EVT_CR_LMT_UPDATED;
6929: l_raise_business_event := OKL_API.G_TRUE;
6930: --create the parameter list to pass to raise_event
6931: wf_event.AddParameterToList(G_WF_ITM_CR_LINE_ID,l_clev_rec.dnz_chr_id,l_parameter_list);
6932: wf_event.AddParameterToList(G_WF_ITM_CR_LMT_ID,l_clev_rec.id,l_parameter_list);
6933: ELSIF l_lty_code = 'FREE_FORM1' THEN
6934: -- raise business event only if the context contract is a lease contract
6935: l_raise_business_event := OKL_LLA_UTIL_PVT.is_lease_contract(l_clev_rec.dnz_chr_id);

Line 6932: wf_event.AddParameterToList(G_WF_ITM_CR_LMT_ID,l_clev_rec.id,l_parameter_list);

6928: l_event_name := G_WF_EVT_CR_LMT_UPDATED;
6929: l_raise_business_event := OKL_API.G_TRUE;
6930: --create the parameter list to pass to raise_event
6931: wf_event.AddParameterToList(G_WF_ITM_CR_LINE_ID,l_clev_rec.dnz_chr_id,l_parameter_list);
6932: wf_event.AddParameterToList(G_WF_ITM_CR_LMT_ID,l_clev_rec.id,l_parameter_list);
6933: ELSIF l_lty_code = 'FREE_FORM1' THEN
6934: -- raise business event only if the context contract is a lease contract
6935: l_raise_business_event := OKL_LLA_UTIL_PVT.is_lease_contract(l_clev_rec.dnz_chr_id);
6936: IF(l_raise_business_event = OKL_API.G_TRUE)THEN

Line 6940: wf_event.AddParameterToList(G_WF_ITM_CONTRACT_ID,l_clev_rec.dnz_chr_id,l_parameter_list);

6936: IF(l_raise_business_event = OKL_API.G_TRUE)THEN
6937: -- raise the business event for create asset, if line style code is FREE_FORM1
6938: l_event_name := G_WF_EVT_ASSET_UPDATED;
6939: --create the parameter list to pass to raise_event
6940: wf_event.AddParameterToList(G_WF_ITM_CONTRACT_ID,l_clev_rec.dnz_chr_id,l_parameter_list);
6941: wf_event.AddParameterToList(G_WF_ITM_ASSET_ID,x_clev_rec.id,l_parameter_list);
6942: END IF;
6943: ELSIF l_lty_code = 'SOLD_SERVICE' THEN
6944: -- raise business event only if the context contract is a lease contract

Line 6941: wf_event.AddParameterToList(G_WF_ITM_ASSET_ID,x_clev_rec.id,l_parameter_list);

6937: -- raise the business event for create asset, if line style code is FREE_FORM1
6938: l_event_name := G_WF_EVT_ASSET_UPDATED;
6939: --create the parameter list to pass to raise_event
6940: wf_event.AddParameterToList(G_WF_ITM_CONTRACT_ID,l_clev_rec.dnz_chr_id,l_parameter_list);
6941: wf_event.AddParameterToList(G_WF_ITM_ASSET_ID,x_clev_rec.id,l_parameter_list);
6942: END IF;
6943: ELSIF l_lty_code = 'SOLD_SERVICE' THEN
6944: -- raise business event only if the context contract is a lease contract
6945: l_raise_business_event := OKL_LLA_UTIL_PVT.is_lease_contract(l_clev_rec.dnz_chr_id);

Line 6950: wf_event.AddParameterToList(G_WF_ITM_CONTRACT_ID,l_clev_rec.dnz_chr_id,l_parameter_list);

6946: IF(l_raise_business_event = OKL_API.G_TRUE)THEN
6947: --raise the business event for create service, if line style code is SOLD_SERVICE
6948: l_event_name := G_WF_EVT_SERVICE_UPDATED;
6949: --create the parameter list to pass to raise_event
6950: wf_event.AddParameterToList(G_WF_ITM_CONTRACT_ID,l_clev_rec.dnz_chr_id,l_parameter_list);
6951: wf_event.AddParameterToList(G_WF_ITM_SRV_LINE_ID,x_clev_rec.id,l_parameter_list);
6952: -- check if this service line is linked with a service contract
6953: OPEN get_linked_serv_cle(l_clev_rec.dnz_chr_id,x_clev_rec.id);
6954: FETCH get_linked_serv_cle INTO l_linked_serv_cle_id;

Line 6951: wf_event.AddParameterToList(G_WF_ITM_SRV_LINE_ID,x_clev_rec.id,l_parameter_list);

6947: --raise the business event for create service, if line style code is SOLD_SERVICE
6948: l_event_name := G_WF_EVT_SERVICE_UPDATED;
6949: --create the parameter list to pass to raise_event
6950: wf_event.AddParameterToList(G_WF_ITM_CONTRACT_ID,l_clev_rec.dnz_chr_id,l_parameter_list);
6951: wf_event.AddParameterToList(G_WF_ITM_SRV_LINE_ID,x_clev_rec.id,l_parameter_list);
6952: -- check if this service line is linked with a service contract
6953: OPEN get_linked_serv_cle(l_clev_rec.dnz_chr_id,x_clev_rec.id);
6954: FETCH get_linked_serv_cle INTO l_linked_serv_cle_id;
6955: CLOSE get_linked_serv_cle;

Line 6962: wf_event.AddParameterToList(G_WF_ITM_SERVICE_KHR_ID,l_linked_serv_chr_id,l_parameter_list);

6958: -- service contract to the event
6959: OPEN get_linked_serv_khr(l_linked_serv_cle_id);
6960: FETCH get_linked_serv_khr INTO l_linked_serv_chr_id;
6961: CLOSE get_linked_serv_khr;
6962: wf_event.AddParameterToList(G_WF_ITM_SERVICE_KHR_ID,l_linked_serv_chr_id,l_parameter_list);
6963: wf_event.AddParameterToList(G_WF_ITM_SERVICE_CLE_ID,l_linked_serv_cle_id,l_parameter_list);
6964: END IF;
6965: END IF;
6966: --update_fee event is raised from here rather than okl_maintain_fee_pvt

Line 6963: wf_event.AddParameterToList(G_WF_ITM_SERVICE_CLE_ID,l_linked_serv_cle_id,l_parameter_list);

6959: OPEN get_linked_serv_khr(l_linked_serv_cle_id);
6960: FETCH get_linked_serv_khr INTO l_linked_serv_chr_id;
6961: CLOSE get_linked_serv_khr;
6962: wf_event.AddParameterToList(G_WF_ITM_SERVICE_KHR_ID,l_linked_serv_chr_id,l_parameter_list);
6963: wf_event.AddParameterToList(G_WF_ITM_SERVICE_CLE_ID,l_linked_serv_cle_id,l_parameter_list);
6964: END IF;
6965: END IF;
6966: --update_fee event is raised from here rather than okl_maintain_fee_pvt
6967: --as split contract process does not call okl_maintain_fee_pvt, but directly calls

Line 6976: wf_event.AddParameterToList(G_WF_ITM_CONTRACT_ID,l_clev_rec.dnz_chr_id,l_parameter_list);

6972: IF(l_raise_business_event = OKL_API.G_TRUE)THEN
6973: -- raise the business event for fee updated, if line style code is FEE
6974: l_event_name := G_WF_EVT_FEE_UPDATED;
6975: --create the parameter list to pass to raise_event
6976: wf_event.AddParameterToList(G_WF_ITM_CONTRACT_ID,l_clev_rec.dnz_chr_id,l_parameter_list);
6977: wf_event.AddParameterToList(G_WF_ITM_FEE_LINE_ID,x_clev_rec.id,l_parameter_list);
6978: END IF;
6979: END IF;
6980:

Line 6977: wf_event.AddParameterToList(G_WF_ITM_FEE_LINE_ID,x_clev_rec.id,l_parameter_list);

6973: -- raise the business event for fee updated, if line style code is FEE
6974: l_event_name := G_WF_EVT_FEE_UPDATED;
6975: --create the parameter list to pass to raise_event
6976: wf_event.AddParameterToList(G_WF_ITM_CONTRACT_ID,l_clev_rec.dnz_chr_id,l_parameter_list);
6977: wf_event.AddParameterToList(G_WF_ITM_FEE_LINE_ID,x_clev_rec.id,l_parameter_list);
6978: END IF;
6979: END IF;
6980:
6981: -- raise business event only if the contract is a lease contract, the raise_event flag is on and business event

Line 7512: l_business_event_name WF_EVENTS.NAME%TYPE;

7508:
7509: l_lty_code okc_line_styles_b.lty_code%TYPE;
7510: l_parameter_list wf_parameter_list_t;
7511: l_raise_business_event VARCHAR2(1) := OKL_API.G_FALSE;
7512: l_business_event_name WF_EVENTS.NAME%TYPE;
7513: /*
7514: -- vthiruva, 08/19/2004
7515: -- END, Code change to enable Business Event
7516: */

Line 7982: wf_event.AddParameterToList(G_WF_ITM_CR_LINE_ID,l_dnz_chr_id,l_parameter_list);

7978: -- extensibility
7979: IF(l_lty_code = 'FREE_FORM')THEN
7980: l_raise_business_event := OKL_API.G_TRUE;
7981: --create the parameter list to pass to raise_event
7982: wf_event.AddParameterToList(G_WF_ITM_CR_LINE_ID,l_dnz_chr_id,l_parameter_list);
7983: wf_event.AddParameterToList(G_WF_ITM_CR_LMT_ID,l_clev_rec.id,l_parameter_list);
7984: l_business_event_name := G_WF_EVT_CR_LMT_REMOVED;
7985: END IF;
7986:

Line 7983: wf_event.AddParameterToList(G_WF_ITM_CR_LMT_ID,l_clev_rec.id,l_parameter_list);

7979: IF(l_lty_code = 'FREE_FORM')THEN
7980: l_raise_business_event := OKL_API.G_TRUE;
7981: --create the parameter list to pass to raise_event
7982: wf_event.AddParameterToList(G_WF_ITM_CR_LINE_ID,l_dnz_chr_id,l_parameter_list);
7983: wf_event.AddParameterToList(G_WF_ITM_CR_LMT_ID,l_clev_rec.id,l_parameter_list);
7984: l_business_event_name := G_WF_EVT_CR_LMT_REMOVED;
7985: END IF;
7986:
7987: IF(l_raise_business_event = OKL_API.G_TRUE AND l_business_event_name IS NOT NULL)THEN

Line 8371: l_business_event_name WF_EVENTS.NAME%TYPE;

8367:
8368: l_lty_code okc_line_styles_b.lty_code%TYPE;
8369: l_parameter_list wf_parameter_list_t;
8370: l_raise_business_event VARCHAR2(1) := OKL_API.G_FALSE;
8371: l_business_event_name WF_EVENTS.NAME%TYPE;
8372: /*
8373: -- vthiruva, 08/19/2004
8374: -- END, Code change to enable Business Event
8375: */

Line 8956: wf_event.AddParameterToList(G_WF_ITM_CONTRACT_ID,l_dnz_chr_id,l_parameter_list);

8952: -- raise business event only if the context contract is a lease contract
8953: l_raise_business_event := OKL_LLA_UTIL_PVT.is_lease_contract(l_dnz_chr_id);
8954: IF(l_raise_business_event = OKL_API.G_TRUE)THEN
8955: -- raise the business event for create asset, if line style code is FREE_FORM1
8956: wf_event.AddParameterToList(G_WF_ITM_CONTRACT_ID,l_dnz_chr_id,l_parameter_list);
8957: wf_event.AddParameterToList(G_WF_ITM_ASSET_ID,p_line_id,l_parameter_list);
8958: l_business_event_name := G_WF_EVT_ASSET_REMOVED;
8959: END IF;
8960: END IF;

Line 8957: wf_event.AddParameterToList(G_WF_ITM_ASSET_ID,p_line_id,l_parameter_list);

8953: l_raise_business_event := OKL_LLA_UTIL_PVT.is_lease_contract(l_dnz_chr_id);
8954: IF(l_raise_business_event = OKL_API.G_TRUE)THEN
8955: -- raise the business event for create asset, if line style code is FREE_FORM1
8956: wf_event.AddParameterToList(G_WF_ITM_CONTRACT_ID,l_dnz_chr_id,l_parameter_list);
8957: wf_event.AddParameterToList(G_WF_ITM_ASSET_ID,p_line_id,l_parameter_list);
8958: l_business_event_name := G_WF_EVT_ASSET_REMOVED;
8959: END IF;
8960: END IF;
8961: