DBA Data[Home] [Help]

APPS.OKL_CONTRACT_PVT dependencies on WF_EVENT

Line 127: p_event_name IN wf_events.name%TYPE,

123: p_init_msg_list IN VARCHAR2,
124: x_return_status OUT NOCOPY VARCHAR2,
125: x_msg_count OUT NOCOPY NUMBER,
126: x_msg_data OUT NOCOPY VARCHAR2,
127: p_event_name IN wf_events.name%TYPE,
128: p_parameter_list IN wf_parameter_list_t) IS
129:
130: l_chr_id okc_k_headers_b.id%TYPE;
131: l_contract_process VARCHAR2(30);

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

133:
134: BEGIN
135: -- check to see if the the contract_id is not null, this is required since
136: -- credit limit events do not necessarily pass a contract
137: l_chr_id := wf_event.GetValueForParameter(G_WF_ITM_CONTRACT_ID,p_parameter_list);
138: IF(l_chr_id IS NOT NULL)THEN
139: -- if there exists a contract in context, then derive the contract process status
140: l_contract_process := okl_lla_util_pvt.get_contract_process(l_chr_id);
141: IF(l_contract_process IS NOT NULL)THEN

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

139: -- if there exists a contract in context, then derive the contract process status
140: l_contract_process := okl_lla_util_pvt.get_contract_process(l_chr_id);
141: IF(l_contract_process IS NOT NULL)THEN
142: -- add the contract process status to the parameter list only the value is not null
143: wf_event.AddParameterToList(G_WF_ITM_CONTRACT_PROCESS,l_contract_process,l_parameter_list);
144: END IF;
145: END IF;
146: OKL_WF_PVT.raise_event (p_api_version => p_api_version,
147: p_init_msg_list => p_init_msg_list,

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

6131: AND line.id = p_line_id;
6132:
6133: l_lty_code okc_line_styles_b.lty_code%TYPE;
6134: l_parameter_list wf_parameter_list_t;
6135: l_event_name wf_events.name%TYPE := null;
6136: l_raise_business_event VARCHAR2(1) := OKL_API.G_FALSE;
6137: /*
6138: -- vthiruva, 08/19/2004
6139: -- END, Code change to enable Business Event

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

6304: -- raise the business event for create credit limit, if line style code is FREE_FORM
6305: l_event_name := G_WF_EVT_CR_LMT_CREATED;
6306: l_raise_business_event := OKL_API.G_TRUE;
6307: -- create the parameter list to pass to raise_event
6308: wf_event.AddParameterToList(G_WF_ITM_CR_LINE_ID,l_clev_rec.dnz_chr_id,l_parameter_list);
6309: wf_event.AddParameterToList(G_WF_ITM_CR_LMT_ID,x_clev_rec.id,l_parameter_list);
6310: ELSIF l_lty_code = 'FREE_FORM1' THEN
6311: -- raise business event only if the context contract is a lease contract
6312: l_raise_business_event := OKL_LLA_UTIL_PVT.is_lease_contract(l_clev_rec.dnz_chr_id);

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

6305: l_event_name := G_WF_EVT_CR_LMT_CREATED;
6306: l_raise_business_event := OKL_API.G_TRUE;
6307: -- create the parameter list to pass to raise_event
6308: wf_event.AddParameterToList(G_WF_ITM_CR_LINE_ID,l_clev_rec.dnz_chr_id,l_parameter_list);
6309: wf_event.AddParameterToList(G_WF_ITM_CR_LMT_ID,x_clev_rec.id,l_parameter_list);
6310: ELSIF l_lty_code = 'FREE_FORM1' THEN
6311: -- raise business event only if the context contract is a lease contract
6312: l_raise_business_event := OKL_LLA_UTIL_PVT.is_lease_contract(l_clev_rec.dnz_chr_id);
6313: IF(l_raise_business_event = OKL_API.G_TRUE)THEN

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

6313: IF(l_raise_business_event = OKL_API.G_TRUE)THEN
6314: -- raise the business event for create asset, if line style code is FREE_FORM1
6315: l_event_name := G_WF_EVT_ASSET_CREATED;
6316: -- create the parameter list to pass to raise_event
6317: wf_event.AddParameterToList(G_WF_ITM_CONTRACT_ID,l_clev_rec.dnz_chr_id,l_parameter_list);
6318: wf_event.AddParameterToList(G_WF_ITM_ASSET_ID,x_clev_rec.id,l_parameter_list);
6319: END IF;
6320: ELSIF l_lty_code = 'SOLD_SERVICE' THEN
6321: -- raise business event only if the context contract is a lease contract

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

6314: -- raise the business event for create asset, if line style code is FREE_FORM1
6315: l_event_name := G_WF_EVT_ASSET_CREATED;
6316: -- create the parameter list to pass to raise_event
6317: wf_event.AddParameterToList(G_WF_ITM_CONTRACT_ID,l_clev_rec.dnz_chr_id,l_parameter_list);
6318: wf_event.AddParameterToList(G_WF_ITM_ASSET_ID,x_clev_rec.id,l_parameter_list);
6319: END IF;
6320: ELSIF l_lty_code = 'SOLD_SERVICE' THEN
6321: -- raise business event only if the context contract is a lease contract
6322: l_raise_business_event := OKL_LLA_UTIL_PVT.is_lease_contract(l_clev_rec.dnz_chr_id);

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

6323: IF(l_raise_business_event = OKL_API.G_TRUE)THEN
6324: -- raise the business event for create service, if line style code is SOLD_SERVICE
6325: l_event_name := G_WF_EVT_SERVICE_CREATED;
6326: -- create the parameter list to pass to raise_event
6327: wf_event.AddParameterToList(G_WF_ITM_CONTRACT_ID,l_clev_rec.dnz_chr_id,l_parameter_list);
6328: wf_event.AddParameterToList(G_WF_ITM_SRV_LINE_ID,x_clev_rec.id,l_parameter_list);
6329: END IF;
6330: --create_fee event is raised from here rather than okl_maintain_fee_pvt
6331: --as contract import process does not call okl_maintain_fee_pvt, but directly calls

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

6324: -- raise the business event for create service, if line style code is SOLD_SERVICE
6325: l_event_name := G_WF_EVT_SERVICE_CREATED;
6326: -- create the parameter list to pass to raise_event
6327: wf_event.AddParameterToList(G_WF_ITM_CONTRACT_ID,l_clev_rec.dnz_chr_id,l_parameter_list);
6328: wf_event.AddParameterToList(G_WF_ITM_SRV_LINE_ID,x_clev_rec.id,l_parameter_list);
6329: END IF;
6330: --create_fee event is raised from here rather than okl_maintain_fee_pvt
6331: --as contract import process does not call okl_maintain_fee_pvt, but directly calls
6332: --okl_contract_pvt

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

6336: IF(l_raise_business_event = OKL_API.G_TRUE)THEN
6337: -- raise the business event for create fee, if line style code is FEE
6338: l_event_name := G_WF_EVT_FEE_CREATED;
6339: -- create the parameter list to pass to raise_event
6340: wf_event.AddParameterToList(G_WF_ITM_CONTRACT_ID,l_clev_rec.dnz_chr_id,l_parameter_list);
6341: wf_event.AddParameterToList(G_WF_ITM_FEE_LINE_ID,x_clev_rec.id,l_parameter_list);
6342: END IF;
6343: END IF;
6344:

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

6337: -- raise the business event for create fee, if line style code is FEE
6338: l_event_name := G_WF_EVT_FEE_CREATED;
6339: -- create the parameter list to pass to raise_event
6340: wf_event.AddParameterToList(G_WF_ITM_CONTRACT_ID,l_clev_rec.dnz_chr_id,l_parameter_list);
6341: wf_event.AddParameterToList(G_WF_ITM_FEE_LINE_ID,x_clev_rec.id,l_parameter_list);
6342: END IF;
6343: END IF;
6344:
6345: -- raise business event only if the contract is a lease contract, the raise_event flag is on and business event

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

6608:
6609:
6610: l_lty_code okc_line_styles_b.lty_code%TYPE;
6611: l_parameter_list wf_parameter_list_t;
6612: l_event_name wf_events.name%TYPE := null;
6613: l_raise_business_event VARCHAR2(1) := OKL_API.G_FALSE;
6614: /*
6615: -- vthiruva, 08/19/2004
6616: -- END, Code change to enable Business Event

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

6825: -- raise the business event for update credit limit if line style code is FREE_FORM
6826: l_event_name := G_WF_EVT_CR_LMT_UPDATED;
6827: l_raise_business_event := OKL_API.G_TRUE;
6828: --create the parameter list to pass to raise_event
6829: wf_event.AddParameterToList(G_WF_ITM_CR_LINE_ID,l_clev_rec.dnz_chr_id,l_parameter_list);
6830: wf_event.AddParameterToList(G_WF_ITM_CR_LMT_ID,l_clev_rec.id,l_parameter_list);
6831: ELSIF l_lty_code = 'FREE_FORM1' THEN
6832: -- raise business event only if the context contract is a lease contract
6833: l_raise_business_event := OKL_LLA_UTIL_PVT.is_lease_contract(l_clev_rec.dnz_chr_id);

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

6826: l_event_name := G_WF_EVT_CR_LMT_UPDATED;
6827: l_raise_business_event := OKL_API.G_TRUE;
6828: --create the parameter list to pass to raise_event
6829: wf_event.AddParameterToList(G_WF_ITM_CR_LINE_ID,l_clev_rec.dnz_chr_id,l_parameter_list);
6830: wf_event.AddParameterToList(G_WF_ITM_CR_LMT_ID,l_clev_rec.id,l_parameter_list);
6831: ELSIF l_lty_code = 'FREE_FORM1' THEN
6832: -- raise business event only if the context contract is a lease contract
6833: l_raise_business_event := OKL_LLA_UTIL_PVT.is_lease_contract(l_clev_rec.dnz_chr_id);
6834: IF(l_raise_business_event = OKL_API.G_TRUE)THEN

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

6834: IF(l_raise_business_event = OKL_API.G_TRUE)THEN
6835: -- raise the business event for create asset, if line style code is FREE_FORM1
6836: l_event_name := G_WF_EVT_ASSET_UPDATED;
6837: --create the parameter list to pass to raise_event
6838: wf_event.AddParameterToList(G_WF_ITM_CONTRACT_ID,l_clev_rec.dnz_chr_id,l_parameter_list);
6839: wf_event.AddParameterToList(G_WF_ITM_ASSET_ID,x_clev_rec.id,l_parameter_list);
6840: END IF;
6841: ELSIF l_lty_code = 'SOLD_SERVICE' THEN
6842: -- raise business event only if the context contract is a lease contract

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

6835: -- raise the business event for create asset, if line style code is FREE_FORM1
6836: l_event_name := G_WF_EVT_ASSET_UPDATED;
6837: --create the parameter list to pass to raise_event
6838: wf_event.AddParameterToList(G_WF_ITM_CONTRACT_ID,l_clev_rec.dnz_chr_id,l_parameter_list);
6839: wf_event.AddParameterToList(G_WF_ITM_ASSET_ID,x_clev_rec.id,l_parameter_list);
6840: END IF;
6841: ELSIF l_lty_code = 'SOLD_SERVICE' THEN
6842: -- raise business event only if the context contract is a lease contract
6843: l_raise_business_event := OKL_LLA_UTIL_PVT.is_lease_contract(l_clev_rec.dnz_chr_id);

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

6844: IF(l_raise_business_event = OKL_API.G_TRUE)THEN
6845: --raise the business event for create service, if line style code is SOLD_SERVICE
6846: l_event_name := G_WF_EVT_SERVICE_UPDATED;
6847: --create the parameter list to pass to raise_event
6848: wf_event.AddParameterToList(G_WF_ITM_CONTRACT_ID,l_clev_rec.dnz_chr_id,l_parameter_list);
6849: wf_event.AddParameterToList(G_WF_ITM_SRV_LINE_ID,x_clev_rec.id,l_parameter_list);
6850: -- check if this service line is linked with a service contract
6851: OPEN get_linked_serv_cle(l_clev_rec.dnz_chr_id,x_clev_rec.id);
6852: FETCH get_linked_serv_cle INTO l_linked_serv_cle_id;

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

6845: --raise the business event for create service, if line style code is SOLD_SERVICE
6846: l_event_name := G_WF_EVT_SERVICE_UPDATED;
6847: --create the parameter list to pass to raise_event
6848: wf_event.AddParameterToList(G_WF_ITM_CONTRACT_ID,l_clev_rec.dnz_chr_id,l_parameter_list);
6849: wf_event.AddParameterToList(G_WF_ITM_SRV_LINE_ID,x_clev_rec.id,l_parameter_list);
6850: -- check if this service line is linked with a service contract
6851: OPEN get_linked_serv_cle(l_clev_rec.dnz_chr_id,x_clev_rec.id);
6852: FETCH get_linked_serv_cle INTO l_linked_serv_cle_id;
6853: CLOSE get_linked_serv_cle;

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

6856: -- service contract to the event
6857: OPEN get_linked_serv_khr(l_linked_serv_cle_id);
6858: FETCH get_linked_serv_khr INTO l_linked_serv_chr_id;
6859: CLOSE get_linked_serv_khr;
6860: wf_event.AddParameterToList(G_WF_ITM_SERVICE_KHR_ID,l_linked_serv_chr_id,l_parameter_list);
6861: wf_event.AddParameterToList(G_WF_ITM_SERVICE_CLE_ID,l_linked_serv_cle_id,l_parameter_list);
6862: END IF;
6863: END IF;
6864: --update_fee event is raised from here rather than okl_maintain_fee_pvt

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

6857: OPEN get_linked_serv_khr(l_linked_serv_cle_id);
6858: FETCH get_linked_serv_khr INTO l_linked_serv_chr_id;
6859: CLOSE get_linked_serv_khr;
6860: wf_event.AddParameterToList(G_WF_ITM_SERVICE_KHR_ID,l_linked_serv_chr_id,l_parameter_list);
6861: wf_event.AddParameterToList(G_WF_ITM_SERVICE_CLE_ID,l_linked_serv_cle_id,l_parameter_list);
6862: END IF;
6863: END IF;
6864: --update_fee event is raised from here rather than okl_maintain_fee_pvt
6865: --as split contract process does not call okl_maintain_fee_pvt, but directly calls

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

6870: IF(l_raise_business_event = OKL_API.G_TRUE)THEN
6871: -- raise the business event for fee updated, if line style code is FEE
6872: l_event_name := G_WF_EVT_FEE_UPDATED;
6873: --create the parameter list to pass to raise_event
6874: wf_event.AddParameterToList(G_WF_ITM_CONTRACT_ID,l_clev_rec.dnz_chr_id,l_parameter_list);
6875: wf_event.AddParameterToList(G_WF_ITM_FEE_LINE_ID,x_clev_rec.id,l_parameter_list);
6876: END IF;
6877: END IF;
6878:

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

6871: -- raise the business event for fee updated, if line style code is FEE
6872: l_event_name := G_WF_EVT_FEE_UPDATED;
6873: --create the parameter list to pass to raise_event
6874: wf_event.AddParameterToList(G_WF_ITM_CONTRACT_ID,l_clev_rec.dnz_chr_id,l_parameter_list);
6875: wf_event.AddParameterToList(G_WF_ITM_FEE_LINE_ID,x_clev_rec.id,l_parameter_list);
6876: END IF;
6877: END IF;
6878:
6879: -- raise business event only if the contract is a lease contract, the raise_event flag is on and business event

Line 7410: l_business_event_name WF_EVENTS.NAME%TYPE;

7406:
7407: l_lty_code okc_line_styles_b.lty_code%TYPE;
7408: l_parameter_list wf_parameter_list_t;
7409: l_raise_business_event VARCHAR2(1) := OKL_API.G_FALSE;
7410: l_business_event_name WF_EVENTS.NAME%TYPE;
7411: /*
7412: -- vthiruva, 08/19/2004
7413: -- END, Code change to enable Business Event
7414: */

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

7876: -- extensibility
7877: IF(l_lty_code = 'FREE_FORM')THEN
7878: l_raise_business_event := OKL_API.G_TRUE;
7879: --create the parameter list to pass to raise_event
7880: wf_event.AddParameterToList(G_WF_ITM_CR_LINE_ID,l_dnz_chr_id,l_parameter_list);
7881: wf_event.AddParameterToList(G_WF_ITM_CR_LMT_ID,l_clev_rec.id,l_parameter_list);
7882: l_business_event_name := G_WF_EVT_CR_LMT_REMOVED;
7883: END IF;
7884:

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

7877: IF(l_lty_code = 'FREE_FORM')THEN
7878: l_raise_business_event := OKL_API.G_TRUE;
7879: --create the parameter list to pass to raise_event
7880: wf_event.AddParameterToList(G_WF_ITM_CR_LINE_ID,l_dnz_chr_id,l_parameter_list);
7881: wf_event.AddParameterToList(G_WF_ITM_CR_LMT_ID,l_clev_rec.id,l_parameter_list);
7882: l_business_event_name := G_WF_EVT_CR_LMT_REMOVED;
7883: END IF;
7884:
7885: IF(l_raise_business_event = OKL_API.G_TRUE AND l_business_event_name IS NOT NULL)THEN

Line 8269: l_business_event_name WF_EVENTS.NAME%TYPE;

8265:
8266: l_lty_code okc_line_styles_b.lty_code%TYPE;
8267: l_parameter_list wf_parameter_list_t;
8268: l_raise_business_event VARCHAR2(1) := OKL_API.G_FALSE;
8269: l_business_event_name WF_EVENTS.NAME%TYPE;
8270: /*
8271: -- vthiruva, 08/19/2004
8272: -- END, Code change to enable Business Event
8273: */

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

8850: -- raise business event only if the context contract is a lease contract
8851: l_raise_business_event := OKL_LLA_UTIL_PVT.is_lease_contract(l_dnz_chr_id);
8852: IF(l_raise_business_event = OKL_API.G_TRUE)THEN
8853: -- raise the business event for create asset, if line style code is FREE_FORM1
8854: wf_event.AddParameterToList(G_WF_ITM_CONTRACT_ID,l_dnz_chr_id,l_parameter_list);
8855: wf_event.AddParameterToList(G_WF_ITM_ASSET_ID,p_line_id,l_parameter_list);
8856: l_business_event_name := G_WF_EVT_ASSET_REMOVED;
8857: END IF;
8858: END IF;

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

8851: l_raise_business_event := OKL_LLA_UTIL_PVT.is_lease_contract(l_dnz_chr_id);
8852: IF(l_raise_business_event = OKL_API.G_TRUE)THEN
8853: -- raise the business event for create asset, if line style code is FREE_FORM1
8854: wf_event.AddParameterToList(G_WF_ITM_CONTRACT_ID,l_dnz_chr_id,l_parameter_list);
8855: wf_event.AddParameterToList(G_WF_ITM_ASSET_ID,p_line_id,l_parameter_list);
8856: l_business_event_name := G_WF_EVT_ASSET_REMOVED;
8857: END IF;
8858: END IF;
8859: