185:
186: l_event_parameter_list wf_parameter_list_t := p_event_param_list;
187: l_contract_process VARCHAR2(20);
188: BEGIN
189: x_return_status := OKL_API.G_RET_STS_SUCCESS;
190: -- wrapper API to get contract process. this API determines in which status the
191: -- contract in question is.
192: l_contract_process := okl_lla_util_pvt.get_contract_process(
193: p_chr_id => wf_event.GetValueForParameter(G_WF_ITM_CONTRACT_ID, l_event_parameter_list)
204: p_parameters => l_event_parameter_list);
205:
206: EXCEPTION
207: WHEN OTHERS THEN
208: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
209: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
210: END raise_business_event;
211:
212: /*
205:
206: EXCEPTION
207: WHEN OTHERS THEN
208: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
209: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
210: END raise_business_event;
211:
212: /*
213: -- vthiruva, 09/01/2004
1003: x_msg_count => x_msg_count,
1004: x_msg_data => x_msg_data,
1005: p_cle_id => p_line_item_tbl(i).cle_id);
1006:
1007: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1008: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1009: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1010: RAISE OKL_API.G_EXCEPTION_ERROR;
1011: END IF;
1004: x_msg_data => x_msg_data,
1005: p_cle_id => p_line_item_tbl(i).cle_id);
1006:
1007: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1008: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1009: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1010: RAISE OKL_API.G_EXCEPTION_ERROR;
1011: END IF;
1012: --Bug# 4959361
1005: p_cle_id => p_line_item_tbl(i).cle_id);
1006:
1007: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1008: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1009: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1010: RAISE OKL_API.G_EXCEPTION_ERROR;
1011: END IF;
1012: --Bug# 4959361
1013:
1006:
1007: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1008: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1009: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1010: RAISE OKL_API.G_EXCEPTION_ERROR;
1011: END IF;
1012: --Bug# 4959361
1013:
1014: l_chr_id := p_line_item_tbl(i).chr_id;
1202: x_msg_count => x_msg_count,
1203: x_msg_data => x_msg_data,
1204: p_cle_id => p_line_item_tbl(i).parent_cle_id);
1205:
1206: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1207: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1208: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1209: RAISE OKL_API.G_EXCEPTION_ERROR;
1210: END IF;
1203: x_msg_data => x_msg_data,
1204: p_cle_id => p_line_item_tbl(i).parent_cle_id);
1205:
1206: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1207: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1208: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1209: RAISE OKL_API.G_EXCEPTION_ERROR;
1210: END IF;
1211: --Bug# 4959361
1204: p_cle_id => p_line_item_tbl(i).parent_cle_id);
1205:
1206: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1207: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1208: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1209: RAISE OKL_API.G_EXCEPTION_ERROR;
1210: END IF;
1211: --Bug# 4959361
1212:
1205:
1206: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1207: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1208: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1209: RAISE OKL_API.G_EXCEPTION_ERROR;
1210: END IF;
1211: --Bug# 4959361
1212:
1213: l_chr_id := p_line_item_tbl(i).chr_id;
1495: p_chr_id => lx_cimv_tbl(i).dnz_chr_id,
1496: p_cle_id => TO_NUMBER(lx_cimv_tbl(i).object1_id1)
1497: );
1498:
1499: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1500: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1501: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1502: RAISE OKL_API.G_EXCEPTION_ERROR;
1503: END IF;
1496: p_cle_id => TO_NUMBER(lx_cimv_tbl(i).object1_id1)
1497: );
1498:
1499: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1500: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1501: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1502: RAISE OKL_API.G_EXCEPTION_ERROR;
1503: END IF;
1504: --Bug# 4899328
1497: );
1498:
1499: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1500: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1501: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1502: RAISE OKL_API.G_EXCEPTION_ERROR;
1503: END IF;
1504: --Bug# 4899328
1505:
1498:
1499: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1500: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1501: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1502: RAISE OKL_API.G_EXCEPTION_ERROR;
1503: END IF;
1504: --Bug# 4899328
1505:
1506: End If;
1695: x_msg_count => x_msg_count,
1696: x_msg_data => x_msg_data,
1697: p_cle_id => p_line_item_tbl(i).cle_id);
1698:
1699: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1700: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1701: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1702: RAISE OKL_API.G_EXCEPTION_ERROR;
1703: END IF;
1696: x_msg_data => x_msg_data,
1697: p_cle_id => p_line_item_tbl(i).cle_id);
1698:
1699: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1700: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1701: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1702: RAISE OKL_API.G_EXCEPTION_ERROR;
1703: END IF;
1704: --Bug# 4959361
1697: p_cle_id => p_line_item_tbl(i).cle_id);
1698:
1699: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1700: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1701: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1702: RAISE OKL_API.G_EXCEPTION_ERROR;
1703: END IF;
1704: --Bug# 4959361
1705:
1698:
1699: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1700: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1701: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1702: RAISE OKL_API.G_EXCEPTION_ERROR;
1703: END IF;
1704: --Bug# 4959361
1705:
1706: l_chr_id := p_line_item_tbl(i).chr_id;
1887: If( l_cnt = 0) Then -- service contract not attached
1888:
1889: UPDATE_CONTRACT_LINE_ITEM (
1890: p_api_version => p_api_version,
1891: p_init_msg_list => OKL_API.G_FALSE,
1892: x_return_status => x_return_status,
1893: x_msg_count => x_msg_count,
1894: x_msg_data => x_msg_data,
1895: p_clev_tbl => lp_clev_tbl,
1935: --Bug# 3877032
1936: j := 0;
1937: For l_old_ast_rec in l_old_ast_csr(p_cim_id => lp_cimv_tbl(i).id)
1938: Loop
1939: If nvl(l_old_ast_rec.object1_id1,okl_api.g_miss_char) <> nvl(lp_cimv_tbl(i).object1_id1,okl_api.g_miss_char) then
1940: l_fin_clev_tbl(j).id := to_number(l_old_ast_rec.object1_id1);
1941: l_fin_klev_tbl(j).id := to_number(l_old_ast_rec.object1_id1);
1942: l_fin_clev_tbl(j).dnz_chr_id := l_old_ast_rec.dnz_chr_id;
1943: End If;
2017: p_chr_id => lx_cimv_tbl(i).dnz_chr_id,
2018: p_cle_id => TO_NUMBER(lx_cimv_tbl(i).object1_id1)
2019: );
2020:
2021: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2022: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2023: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2024: RAISE OKL_API.G_EXCEPTION_ERROR;
2025: END IF;
2018: p_cle_id => TO_NUMBER(lx_cimv_tbl(i).object1_id1)
2019: );
2020:
2021: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2022: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2023: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2024: RAISE OKL_API.G_EXCEPTION_ERROR;
2025: END IF;
2026: --Bug# 4899328
2019: );
2020:
2021: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2022: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2023: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2024: RAISE OKL_API.G_EXCEPTION_ERROR;
2025: END IF;
2026: --Bug# 4899328
2027:
2020:
2021: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2022: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2023: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2024: RAISE OKL_API.G_EXCEPTION_ERROR;
2025: END IF;
2026: --Bug# 4899328
2027:
2028: End If;
2080: p_chr_id => l_fin_clev_tbl(j).dnz_chr_id,
2081: p_cle_id => l_fin_clev_tbl(j).id
2082: );
2083:
2084: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2085: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2086: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2087: RAISE OKL_API.G_EXCEPTION_ERROR;
2088: END IF;
2081: p_cle_id => l_fin_clev_tbl(j).id
2082: );
2083:
2084: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2085: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2086: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2087: RAISE OKL_API.G_EXCEPTION_ERROR;
2088: END IF;
2089: End Loop;
2082: );
2083:
2084: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2085: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2086: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2087: RAISE OKL_API.G_EXCEPTION_ERROR;
2088: END IF;
2089: End Loop;
2090: --Bug# 4899328
2083:
2084: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2085: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2086: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2087: RAISE OKL_API.G_EXCEPTION_ERROR;
2088: END IF;
2089: End Loop;
2090: --Bug# 4899328
2091:
2719: x_msg_data => x_msg_data,
2720: p_chr_id => x_clev_rec.dnz_chr_id,
2721: p_cle_id => x_clev_rec.id);
2722:
2723: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
2724: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2725: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
2726: raise OKL_API.G_EXCEPTION_ERROR;
2727: End If;
2720: p_chr_id => x_clev_rec.dnz_chr_id,
2721: p_cle_id => x_clev_rec.id);
2722:
2723: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
2724: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2725: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
2726: raise OKL_API.G_EXCEPTION_ERROR;
2727: End If;
2728:
2721: p_cle_id => x_clev_rec.id);
2722:
2723: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
2724: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2725: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
2726: raise OKL_API.G_EXCEPTION_ERROR;
2727: End If;
2728:
2729: END IF;
2722:
2723: If x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR Then
2724: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2725: Elsif x_return_status = OKL_API.G_RET_STS_ERROR Then
2726: raise OKL_API.G_EXCEPTION_ERROR;
2727: End If;
2728:
2729: END IF;
2730: END IF;
2919: l_serv_contract_id okc_k_headers_b.id%TYPE;
2920:
2921: l_lty_code okc_line_styles_b.lty_code%TYPE;
2922: l_asset_id okc_k_lines_b.id%TYPE;
2923: l_raise_business_event VARCHAR2(1) := OKL_API.G_FALSE;
2924: l_business_event_name WF_EVENTS.NAME%TYPE;
2925: l_parameter_list WF_PARAMETER_LIST_T;
2926:
2927: /*
3015: l_rbk_asst_rec := Null;
3016: For l_rbk_asst_rec in l_rbk_asst_csr(p_cle_id => p_clev_rec.id)
3017: Loop
3018: If NVL(l_rbk_asst_rec.rbk_asst_flag,'N') = 'Y' then
3019: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
3020: p_msg_name => 'OKL_LA_RBK_COV_ASSET_DELETE');
3021: x_return_status := OKL_API.G_RET_STS_ERROR;
3022: RAISE OKL_API.G_EXCEPTION_ERROR;
3023: End If;
3017: Loop
3018: If NVL(l_rbk_asst_rec.rbk_asst_flag,'N') = 'Y' then
3019: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
3020: p_msg_name => 'OKL_LA_RBK_COV_ASSET_DELETE');
3021: x_return_status := OKL_API.G_RET_STS_ERROR;
3022: RAISE OKL_API.G_EXCEPTION_ERROR;
3023: End If;
3024: End Loop;
3025: --Bug# 4899328
3018: If NVL(l_rbk_asst_rec.rbk_asst_flag,'N') = 'Y' then
3019: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
3020: p_msg_name => 'OKL_LA_RBK_COV_ASSET_DELETE');
3021: x_return_status := OKL_API.G_RET_STS_ERROR;
3022: RAISE OKL_API.G_EXCEPTION_ERROR;
3023: End If;
3024: End Loop;
3025: --Bug# 4899328
3026:
3138: p_chr_id => l_fin_clev_tbl(i).dnz_chr_id,
3139: p_cle_id => l_fin_clev_tbl(i).id
3140: );
3141:
3142: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3143: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3144: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3145: RAISE OKL_API.G_EXCEPTION_ERROR;
3146: END IF;
3139: p_cle_id => l_fin_clev_tbl(i).id
3140: );
3141:
3142: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3143: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3144: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3145: RAISE OKL_API.G_EXCEPTION_ERROR;
3146: END IF;
3147: End Loop;
3140: );
3141:
3142: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3143: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3144: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3145: RAISE OKL_API.G_EXCEPTION_ERROR;
3146: END IF;
3147: End Loop;
3148: --Bug# 4899328
3141:
3142: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3143: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3144: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3145: RAISE OKL_API.G_EXCEPTION_ERROR;
3146: END IF;
3147: End Loop;
3148: --Bug# 4899328
3149:
3154: -- vthiruva, 09/01/2004
3155: -- START, Code change to enable Business Event
3156: */
3157: IF(l_lty_code = 'LINK_FEE_ASSET')THEN
3158: l_raise_business_event := OKL_API.G_TRUE;
3159: l_business_event_name := G_WF_EVT_ASSET_FEE_REMOVED;
3160: wf_event.AddParameterToList(G_WF_ITM_FEE_LINE_ID, l_clev_rec.cle_id, l_parameter_list);
3161: ELSIF(l_lty_code = 'LINK_SERV_ASSET')THEN
3162: l_raise_business_event := OKL_API.G_TRUE;
3158: l_raise_business_event := OKL_API.G_TRUE;
3159: l_business_event_name := G_WF_EVT_ASSET_FEE_REMOVED;
3160: wf_event.AddParameterToList(G_WF_ITM_FEE_LINE_ID, l_clev_rec.cle_id, l_parameter_list);
3161: ELSIF(l_lty_code = 'LINK_SERV_ASSET')THEN
3162: l_raise_business_event := OKL_API.G_TRUE;
3163: l_business_event_name := G_WF_EVT_ASSET_SERV_FEE_RMVD;
3164: wf_event.AddParameterToList(G_WF_ITM_SERV_LINE_ID, l_clev_rec.cle_id, l_parameter_list);
3165: -- check if the service line in context has a service contract associated with it
3166: -- if so, pass the service contract id and service contract line id as parameters
3175: wf_event.AddParameterToList(G_WF_ITM_SERV_CLE_ID, l_service_top_line_id, l_parameter_list);
3176: END IF;
3177: END IF;
3178:
3179: IF(l_raise_business_event = OKL_API.G_TRUE AND l_business_event_name IS NOT NULL AND
3180: OKL_LLA_UTIL_PVT.is_lease_contract(l_clev_rec.dnz_chr_id)= OKL_API.G_TRUE)THEN
3181: wf_event.AddParameterToList(G_WF_ITM_CONTRACT_ID, l_clev_rec.dnz_chr_id, l_parameter_list);
3182: wf_event.AddParameterToList(G_WF_ITM_ASSET_ID, l_asset_id, l_parameter_list);
3183: raise_business_event(p_api_version => p_api_version,
3176: END IF;
3177: END IF;
3178:
3179: IF(l_raise_business_event = OKL_API.G_TRUE AND l_business_event_name IS NOT NULL AND
3180: OKL_LLA_UTIL_PVT.is_lease_contract(l_clev_rec.dnz_chr_id)= OKL_API.G_TRUE)THEN
3181: wf_event.AddParameterToList(G_WF_ITM_CONTRACT_ID, l_clev_rec.dnz_chr_id, l_parameter_list);
3182: wf_event.AddParameterToList(G_WF_ITM_ASSET_ID, l_asset_id, l_parameter_list);
3183: raise_business_event(p_api_version => p_api_version,
3184: p_init_msg_list => p_init_msg_list,
3186: x_msg_count => x_msg_count,
3187: x_msg_data => x_msg_data,
3188: p_event_name => l_business_event_name,
3189: p_event_param_list => l_parameter_list);
3190: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3191: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3192: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3193: RAISE OKL_API.G_EXCEPTION_ERROR;
3194: END IF;
3187: x_msg_data => x_msg_data,
3188: p_event_name => l_business_event_name,
3189: p_event_param_list => l_parameter_list);
3190: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3191: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3192: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3193: RAISE OKL_API.G_EXCEPTION_ERROR;
3194: END IF;
3195: END IF;
3188: p_event_name => l_business_event_name,
3189: p_event_param_list => l_parameter_list);
3190: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3191: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3192: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3193: RAISE OKL_API.G_EXCEPTION_ERROR;
3194: END IF;
3195: END IF;
3196:
3189: p_event_param_list => l_parameter_list);
3190: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3191: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3192: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3193: RAISE OKL_API.G_EXCEPTION_ERROR;
3194: END IF;
3195: END IF;
3196:
3197: /*