44: -- End of comments
45:
46: PROCEDURE create_contract_link_serv (
47: p_api_version IN NUMBER,
48: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
49: x_return_status OUT NOCOPY VARCHAR2,
50: x_msg_count OUT NOCOPY NUMBER,
51: x_msg_data OUT NOCOPY VARCHAR2,
52: p_chr_id IN NUMBER,
115: l_ste_code OKC_STATUSES_B.STE_CODE%type:= null;
116:
117: l_api_name CONSTANT VARCHAR2(30) := 'create_contract_link_serv';
118: l_api_version CONSTANT NUMBER := 1.0;
119: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
120: l_ak_prompt AK_ATTRIBUTES_VL.attribute_label_long%type;
121:
122: l_auth number := null;
123: l_inv number := null;
132: End If;
133:
134: -- call START_ACTIVITY to create savepoint, check compatibility
135: -- and initialize message list
136: l_return_status := OKC_API.START_ACTIVITY(
137: p_api_name => l_api_name,
138: p_pkg_name => g_pkg_name,
139: p_init_msg_list => p_init_msg_list,
140: l_api_version => l_api_version,
142: p_api_type => g_api_type,
143: x_return_status => x_return_status);
144:
145: -- check if activity started successfully
146: If (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
147: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
148: Elsif (l_return_status = OKC_API.G_RET_STS_ERROR) then
149: raise OKC_API.G_EXCEPTION_ERROR;
150: End If;
143: x_return_status => x_return_status);
144:
145: -- check if activity started successfully
146: If (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
147: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
148: Elsif (l_return_status = OKC_API.G_RET_STS_ERROR) then
149: raise OKC_API.G_EXCEPTION_ERROR;
150: End If;
151:
144:
145: -- check if activity started successfully
146: If (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
147: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
148: Elsif (l_return_status = OKC_API.G_RET_STS_ERROR) then
149: raise OKC_API.G_EXCEPTION_ERROR;
150: End If;
151:
152: If(p_contract_number is null) Then
145: -- check if activity started successfully
146: If (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
147: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
148: Elsif (l_return_status = OKC_API.G_RET_STS_ERROR) then
149: raise OKC_API.G_EXCEPTION_ERROR;
150: End If;
151:
152: If(p_contract_number is null) Then
153: x_return_status := OKC_API.g_ret_sts_error;
149: raise OKC_API.G_EXCEPTION_ERROR;
150: End If;
151:
152: If(p_contract_number is null) Then
153: x_return_status := OKC_API.g_ret_sts_error;
154: l_ak_prompt := GET_AK_PROMPT('OKL_LA_DEAL_CREAT', 'OKL_CONTRACT_NUMBER');
155: OKC_API.SET_MESSAGE( p_app_name => g_app_name
156: , p_msg_name => 'OKL_REQUIRED_VALUE'
157: , p_token1 => 'COL_NAME'
151:
152: If(p_contract_number is null) Then
153: x_return_status := OKC_API.g_ret_sts_error;
154: l_ak_prompt := GET_AK_PROMPT('OKL_LA_DEAL_CREAT', 'OKL_CONTRACT_NUMBER');
155: OKC_API.SET_MESSAGE( p_app_name => g_app_name
156: , p_msg_name => 'OKL_REQUIRED_VALUE'
157: , p_token1 => 'COL_NAME'
158: , p_token1_value => l_ak_prompt
159: -- , p_token1_value => 'a'||l_chr_id
157: , p_token1 => 'COL_NAME'
158: , p_token1_value => l_ak_prompt
159: -- , p_token1_value => 'a'||l_chr_id
160: );
161: raise OKC_API.G_EXCEPTION_ERROR;
162: End If;
163:
164: l_rel_vers_id := null;
165: open l_rel_vers_csr;
180:
181: End If;
182:
183: If l_s_chr_id is null Then
184: x_return_status := OKC_API.g_ret_sts_error;
185: l_ak_prompt := GET_AK_PROMPT('OKL_LA_DEAL_CREAT', 'OKL_CONTRACT_NUMBER');
186: OKC_API.SET_MESSAGE( p_app_name => g_app_name
187: , p_msg_name => 'OKL_LLA_INVALID_LOV_VALUE'
188: , p_token1 => 'COL_NAME'
182:
183: If l_s_chr_id is null Then
184: x_return_status := OKC_API.g_ret_sts_error;
185: l_ak_prompt := GET_AK_PROMPT('OKL_LA_DEAL_CREAT', 'OKL_CONTRACT_NUMBER');
186: OKC_API.SET_MESSAGE( p_app_name => g_app_name
187: , p_msg_name => 'OKL_LLA_INVALID_LOV_VALUE'
188: , p_token1 => 'COL_NAME'
189: , p_token1_value => l_ak_prompt
190: );
187: , p_msg_name => 'OKL_LLA_INVALID_LOV_VALUE'
188: , p_token1 => 'COL_NAME'
189: , p_token1_value => l_ak_prompt
190: );
191: raise OKC_API.G_EXCEPTION_ERROR;
192: End If;
193:
194: If(p_item_name is null) Then
195: x_return_status := OKC_API.g_ret_sts_error;
191: raise OKC_API.G_EXCEPTION_ERROR;
192: End If;
193:
194: If(p_item_name is null) Then
195: x_return_status := OKC_API.g_ret_sts_error;
196: l_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_SERVICE');
197: OKC_API.SET_MESSAGE( p_app_name => g_app_name
198: , p_msg_name => 'OKL_REQUIRED_VALUE'
199: , p_token1 => 'COL_NAME'
193:
194: If(p_item_name is null) Then
195: x_return_status := OKC_API.g_ret_sts_error;
196: l_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_SERVICE');
197: OKC_API.SET_MESSAGE( p_app_name => g_app_name
198: , p_msg_name => 'OKL_REQUIRED_VALUE'
199: , p_token1 => 'COL_NAME'
200: , p_token1_value => l_ak_prompt
201: );
198: , p_msg_name => 'OKL_REQUIRED_VALUE'
199: , p_token1 => 'COL_NAME'
200: , p_token1_value => l_ak_prompt
201: );
202: raise OKC_API.G_EXCEPTION_ERROR;
203: End If;
204:
205: -- If(NOT(p_item_name is not null and p_item_name = 'RELINK_SERV_INTGR')) Then
206:
209: fetch l_strmtyp_id_csr into l_strmtyp_id;
210: close l_strmtyp_id_csr;
211:
212: If(l_strmtyp_id is null) Then
213: x_return_status := OKC_API.g_ret_sts_error;
214: l_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_PAYMENT_TYPE');
215: If(l_ak_prompt is null) Then
216: l_ak_prompt := 'Payment Type';
217: End If;
214: l_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_PAYMENT_TYPE');
215: If(l_ak_prompt is null) Then
216: l_ak_prompt := 'Payment Type';
217: End If;
218: OKC_API.SET_MESSAGE( p_app_name => g_app_name
219: , p_msg_name => 'OKL_LLA_INVALID_LOV_VALUE'
220: , p_token1 => 'COL_NAME'
221: , p_token1_value => l_ak_prompt
222: );
219: , p_msg_name => 'OKL_LLA_INVALID_LOV_VALUE'
220: , p_token1 => 'COL_NAME'
221: , p_token1_value => l_ak_prompt
222: );
223: raise OKC_API.G_EXCEPTION_ERROR;
224: End If;
225:
226: -- End If;
227:
225:
226: -- End If;
227:
228: If(p_supplier_name is null) Then
229: x_return_status := OKC_API.g_ret_sts_error;
230: l_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_SERVICE_SUPPLIER');
231: OKC_API.SET_MESSAGE( p_app_name => g_app_name
232: , p_msg_name => 'OKL_REQUIRED_VALUE'
233: , p_token1 => 'COL_NAME'
227:
228: If(p_supplier_name is null) Then
229: x_return_status := OKC_API.g_ret_sts_error;
230: l_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_SERVICE_SUPPLIER');
231: OKC_API.SET_MESSAGE( p_app_name => g_app_name
232: , p_msg_name => 'OKL_REQUIRED_VALUE'
233: , p_token1 => 'COL_NAME'
234: , p_token1_value => l_ak_prompt
235: );
232: , p_msg_name => 'OKL_REQUIRED_VALUE'
233: , p_token1 => 'COL_NAME'
234: , p_token1_value => l_ak_prompt
235: );
236: raise OKC_API.G_EXCEPTION_ERROR;
237: End If;
238:
239: open l_supp_name_csr;
240: fetch l_supp_name_csr into l_supp_id;
240: fetch l_supp_name_csr into l_supp_id;
241: close l_supp_name_csr;
242:
243: If(l_supp_id is null) Then
244: x_return_status := OKC_API.g_ret_sts_error;
245: l_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_SERVICE_SUPPLIER');
246: OKC_API.SET_MESSAGE( p_app_name => g_app_name
247: , p_msg_name => 'OKL_LLA_INVALID_LOV_VALUE'
248: , p_token1 => 'COL_NAME'
242:
243: If(l_supp_id is null) Then
244: x_return_status := OKC_API.g_ret_sts_error;
245: l_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_SERVICE_SUPPLIER');
246: OKC_API.SET_MESSAGE( p_app_name => g_app_name
247: , p_msg_name => 'OKL_LLA_INVALID_LOV_VALUE'
248: , p_token1 => 'COL_NAME'
249: , p_token1_value => l_ak_prompt
250: );
247: , p_msg_name => 'OKL_LLA_INVALID_LOV_VALUE'
248: , p_token1 => 'COL_NAME'
249: , p_token1_value => l_ak_prompt
250: );
251: raise OKC_API.G_EXCEPTION_ERROR;
252: End If;
253:
254: l_sts_code := null;
255: l_ste_code := null;
272: p_sty_id => l_strmtyp_id, -- payment type
273: x_okl_service_line_id => x_okl_cle_id -- Returns Contract Service TOP Line ID
274: );
275:
276: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
277: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
278: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
279: raise OKC_API.G_EXCEPTION_ERROR;
280: End If;
273: x_okl_service_line_id => x_okl_cle_id -- Returns Contract Service TOP Line ID
274: );
275:
276: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
277: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
278: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
279: raise OKC_API.G_EXCEPTION_ERROR;
280: End If;
281:
274: );
275:
276: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
277: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
278: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
279: raise OKC_API.G_EXCEPTION_ERROR;
280: End If;
281:
282: Else
275:
276: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
277: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
278: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
279: raise OKC_API.G_EXCEPTION_ERROR;
280: End If;
281:
282: Else
283:
293: p_sty_id => l_strmtyp_id, -- payment type
294: x_okl_service_line_id => x_okl_cle_id -- Returns Contract Service TOP Line ID
295: );
296:
297: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
298: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
299: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
300: raise OKC_API.G_EXCEPTION_ERROR;
301: End If;
294: x_okl_service_line_id => x_okl_cle_id -- Returns Contract Service TOP Line ID
295: );
296:
297: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
298: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
299: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
300: raise OKC_API.G_EXCEPTION_ERROR;
301: End If;
302:
295: );
296:
297: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
298: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
299: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
300: raise OKC_API.G_EXCEPTION_ERROR;
301: End If;
302:
303: End If;
296:
297: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
298: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
299: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
300: raise OKC_API.G_EXCEPTION_ERROR;
301: End If;
302:
303: End If;
304:
303: End If;
304:
305: x_cle_id := x_okl_cle_id;
306:
307: OKC_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
308:
309: EXCEPTION
310: when OKC_API.G_EXCEPTION_ERROR then
311: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
306:
307: OKC_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
308:
309: EXCEPTION
310: when OKC_API.G_EXCEPTION_ERROR then
311: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
312: p_api_name => l_api_name,
313: p_pkg_name => g_pkg_name,
314: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
307: OKC_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
308:
309: EXCEPTION
310: when OKC_API.G_EXCEPTION_ERROR then
311: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
312: p_api_name => l_api_name,
313: p_pkg_name => g_pkg_name,
314: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
315: x_msg_count => x_msg_count,
310: when OKC_API.G_EXCEPTION_ERROR then
311: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
312: p_api_name => l_api_name,
313: p_pkg_name => g_pkg_name,
314: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
315: x_msg_count => x_msg_count,
316: x_msg_data => x_msg_data,
317: p_api_type => g_api_type);
318:
315: x_msg_count => x_msg_count,
316: x_msg_data => x_msg_data,
317: p_api_type => g_api_type);
318:
319: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
320: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
321: p_api_name => l_api_name,
322: p_pkg_name => g_pkg_name,
323: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
316: x_msg_data => x_msg_data,
317: p_api_type => g_api_type);
318:
319: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
320: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
321: p_api_name => l_api_name,
322: p_pkg_name => g_pkg_name,
323: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
324: x_msg_count => x_msg_count,
319: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
320: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
321: p_api_name => l_api_name,
322: p_pkg_name => g_pkg_name,
323: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
324: x_msg_count => x_msg_count,
325: x_msg_data => x_msg_data,
326: p_api_type => g_api_type);
327:
325: x_msg_data => x_msg_data,
326: p_api_type => g_api_type);
327:
328: when OTHERS then
329: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
330: p_api_name => l_api_name,
331: p_pkg_name => g_pkg_name,
332: p_exc_name => 'OTHERS',
333: x_msg_count => x_msg_count,
345: -- End of comments
346:
347: PROCEDURE update_contract_link_serv (
348: p_api_version IN NUMBER,
349: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
350: x_return_status OUT NOCOPY VARCHAR2,
351: x_msg_count OUT NOCOPY NUMBER,
352: x_msg_data OUT NOCOPY VARCHAR2,
353: p_chr_id IN NUMBER,
398:
399:
400: l_api_name CONSTANT VARCHAR2(30) := 'update_contract_link_serv';
401: l_api_version CONSTANT NUMBER := 1.0;
402: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
403: l_ak_prompt AK_ATTRIBUTES_VL.attribute_label_long%type;
404:
405: BEGIN
406:
410: End If;
411:
412: -- call START_ACTIVITY to create savepoint, check compatibility
413: -- and initialize message list
414: l_return_status := OKC_API.START_ACTIVITY(
415: p_api_name => l_api_name,
416: p_pkg_name => g_pkg_name,
417: p_init_msg_list => p_init_msg_list,
418: l_api_version => l_api_version,
420: p_api_type => g_api_type,
421: x_return_status => x_return_status);
422:
423: -- check if activity started successfully
424: If (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
425: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
426: Elsif (l_return_status = OKC_API.G_RET_STS_ERROR) then
427: raise OKC_API.G_EXCEPTION_ERROR;
428: End If;
421: x_return_status => x_return_status);
422:
423: -- check if activity started successfully
424: If (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
425: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
426: Elsif (l_return_status = OKC_API.G_RET_STS_ERROR) then
427: raise OKC_API.G_EXCEPTION_ERROR;
428: End If;
429:
422:
423: -- check if activity started successfully
424: If (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
425: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
426: Elsif (l_return_status = OKC_API.G_RET_STS_ERROR) then
427: raise OKC_API.G_EXCEPTION_ERROR;
428: End If;
429:
430: If(p_contract_number is null) Then
423: -- check if activity started successfully
424: If (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
425: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
426: Elsif (l_return_status = OKC_API.G_RET_STS_ERROR) then
427: raise OKC_API.G_EXCEPTION_ERROR;
428: End If;
429:
430: If(p_contract_number is null) Then
431: x_return_status := OKC_API.g_ret_sts_error;
427: raise OKC_API.G_EXCEPTION_ERROR;
428: End If;
429:
430: If(p_contract_number is null) Then
431: x_return_status := OKC_API.g_ret_sts_error;
432: l_ak_prompt := GET_AK_PROMPT('OKL_LA_DEAL_CREAT', 'OKL_CONTRACT_NUMBER');
433: OKC_API.SET_MESSAGE( p_app_name => g_app_name
434: , p_msg_name => 'OKL_REQUIRED_VALUE'
435: , p_token1 => 'COL_NAME'
429:
430: If(p_contract_number is null) Then
431: x_return_status := OKC_API.g_ret_sts_error;
432: l_ak_prompt := GET_AK_PROMPT('OKL_LA_DEAL_CREAT', 'OKL_CONTRACT_NUMBER');
433: OKC_API.SET_MESSAGE( p_app_name => g_app_name
434: , p_msg_name => 'OKL_REQUIRED_VALUE'
435: , p_token1 => 'COL_NAME'
436: , p_token1_value => l_ak_prompt
437: );
434: , p_msg_name => 'OKL_REQUIRED_VALUE'
435: , p_token1 => 'COL_NAME'
436: , p_token1_value => l_ak_prompt
437: );
438: raise OKC_API.G_EXCEPTION_ERROR;
439: End If;
440:
441: l_rel_vers_id := null;
442: open l_rel_vers_csr;
457:
458: End If;
459:
460: If l_s_chr_id is null Then
461: x_return_status := OKC_API.g_ret_sts_error;
462: l_ak_prompt := GET_AK_PROMPT('OKL_LA_DEAL_CREAT', 'OKL_CONTRACT_NUMBER');
463: OKC_API.SET_MESSAGE( p_app_name => g_app_name
464: , p_msg_name => 'OKL_LLA_INVALID_LOV_VALUE'
465: , p_token1 => 'COL_NAME'
459:
460: If l_s_chr_id is null Then
461: x_return_status := OKC_API.g_ret_sts_error;
462: l_ak_prompt := GET_AK_PROMPT('OKL_LA_DEAL_CREAT', 'OKL_CONTRACT_NUMBER');
463: OKC_API.SET_MESSAGE( p_app_name => g_app_name
464: , p_msg_name => 'OKL_LLA_INVALID_LOV_VALUE'
465: , p_token1 => 'COL_NAME'
466: , p_token1_value => l_ak_prompt
467: );
464: , p_msg_name => 'OKL_LLA_INVALID_LOV_VALUE'
465: , p_token1 => 'COL_NAME'
466: , p_token1_value => l_ak_prompt
467: );
468: raise OKC_API.G_EXCEPTION_ERROR;
469: End If;
470:
471: /*
472: If(p_item_name is null) Then
469: End If;
470:
471: /*
472: If(p_item_name is null) Then
473: x_return_status := OKC_API.g_ret_sts_error;
474: l_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_SERVICE');
475: OKC_API.SET_MESSAGE( p_app_name => g_app_name
476: , p_msg_name => 'OKL_REQUIRED_VALUE'
477: , p_token1 => 'COL_NAME'
471: /*
472: If(p_item_name is null) Then
473: x_return_status := OKC_API.g_ret_sts_error;
474: l_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_SERVICE');
475: OKC_API.SET_MESSAGE( p_app_name => g_app_name
476: , p_msg_name => 'OKL_REQUIRED_VALUE'
477: , p_token1 => 'COL_NAME'
478: , p_token1_value => l_ak_prompt
479: );
476: , p_msg_name => 'OKL_REQUIRED_VALUE'
477: , p_token1 => 'COL_NAME'
478: , p_token1_value => l_ak_prompt
479: );
480: raise OKC_API.G_EXCEPTION_ERROR;
481: End If;
482:
483:
484: open l_serv_line_csr;
485: fetch l_serv_line_csr into l_s_cle_id;
486: close l_serv_line_csr;
487:
488: If l_s_cle_id is null Then
489: x_return_status := OKC_API.g_ret_sts_error;
490: l_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_SERVICE');
491: OKC_API.SET_MESSAGE( p_app_name => g_app_name
492: , p_msg_name => 'OKL_LLA_INVALID_LOV_VALUE'
493: , p_token1 => 'COL_NAME'
487:
488: If l_s_cle_id is null Then
489: x_return_status := OKC_API.g_ret_sts_error;
490: l_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_SERVICE');
491: OKC_API.SET_MESSAGE( p_app_name => g_app_name
492: , p_msg_name => 'OKL_LLA_INVALID_LOV_VALUE'
493: , p_token1 => 'COL_NAME'
494: , p_token1_value => l_ak_prompt
495: );
492: , p_msg_name => 'OKL_LLA_INVALID_LOV_VALUE'
493: , p_token1 => 'COL_NAME'
494: , p_token1_value => l_ak_prompt
495: );
496: raise OKC_API.G_EXCEPTION_ERROR;
497: End If;
498: */
499:
500: If(p_supplier_name is null) Then
497: End If;
498: */
499:
500: If(p_supplier_name is null) Then
501: x_return_status := OKC_API.g_ret_sts_error;
502: l_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_SERVICE_SUPPLIER');
503: OKC_API.SET_MESSAGE( p_app_name => g_app_name
504: , p_msg_name => 'OKL_REQUIRED_VALUE'
505: , p_token1 => 'COL_NAME'
499:
500: If(p_supplier_name is null) Then
501: x_return_status := OKC_API.g_ret_sts_error;
502: l_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_SERVICE_SUPPLIER');
503: OKC_API.SET_MESSAGE( p_app_name => g_app_name
504: , p_msg_name => 'OKL_REQUIRED_VALUE'
505: , p_token1 => 'COL_NAME'
506: , p_token1_value => l_ak_prompt
507: );
504: , p_msg_name => 'OKL_REQUIRED_VALUE'
505: , p_token1 => 'COL_NAME'
506: , p_token1_value => l_ak_prompt
507: );
508: raise OKC_API.G_EXCEPTION_ERROR;
509: End If;
510:
511: open l_supp_name_csr;
512: fetch l_supp_name_csr into l_supp_id;
512: fetch l_supp_name_csr into l_supp_id;
513: close l_supp_name_csr;
514:
515: If(l_supp_id is null) Then
516: x_return_status := OKC_API.g_ret_sts_error;
517: l_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_SERVICE_SUPPLIER');
518: OKC_API.SET_MESSAGE( p_app_name => g_app_name
519: , p_msg_name => 'OKL_LLA_INVALID_LOV_VALUE'
520: , p_token1 => 'COL_NAME'
514:
515: If(l_supp_id is null) Then
516: x_return_status := OKC_API.g_ret_sts_error;
517: l_ak_prompt := GET_AK_PROMPT('OKL_LA_SERVICE_LINE', 'OKL_LA_SERVICE_SUPPLIER');
518: OKC_API.SET_MESSAGE( p_app_name => g_app_name
519: , p_msg_name => 'OKL_LLA_INVALID_LOV_VALUE'
520: , p_token1 => 'COL_NAME'
521: , p_token1_value => l_ak_prompt
522: );
519: , p_msg_name => 'OKL_LLA_INVALID_LOV_VALUE'
520: , p_token1 => 'COL_NAME'
521: , p_token1_value => l_ak_prompt
522: );
523: raise OKC_API.G_EXCEPTION_ERROR;
524: End If;
525:
526: lp_clev_rec.dnz_chr_id := l_chr_id;
527: lp_clev_rec.id := p_cle_id;
542: p_klev_rec => lp_klev_rec,
543: x_okl_service_line_id => x_okl_cle_id -- Returns Contract Service TOP Line ID
544: );
545:
546: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
547: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
548: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
549: raise OKC_API.G_EXCEPTION_ERROR;
550: End If;
543: x_okl_service_line_id => x_okl_cle_id -- Returns Contract Service TOP Line ID
544: );
545:
546: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
547: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
548: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
549: raise OKC_API.G_EXCEPTION_ERROR;
550: End If;
551:
544: );
545:
546: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
547: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
548: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
549: raise OKC_API.G_EXCEPTION_ERROR;
550: End If;
551:
552: x_cle_id := x_okl_cle_id;
545:
546: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
547: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
548: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
549: raise OKC_API.G_EXCEPTION_ERROR;
550: End If;
551:
552: x_cle_id := x_okl_cle_id;
553:
550: End If;
551:
552: x_cle_id := x_okl_cle_id;
553:
554: OKC_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
555:
556: EXCEPTION
557: when OKC_API.G_EXCEPTION_ERROR then
558: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
553:
554: OKC_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
555:
556: EXCEPTION
557: when OKC_API.G_EXCEPTION_ERROR then
558: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
559: p_api_name => l_api_name,
560: p_pkg_name => g_pkg_name,
561: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
554: OKC_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
555:
556: EXCEPTION
557: when OKC_API.G_EXCEPTION_ERROR then
558: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
559: p_api_name => l_api_name,
560: p_pkg_name => g_pkg_name,
561: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
562: x_msg_count => x_msg_count,
557: when OKC_API.G_EXCEPTION_ERROR then
558: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
559: p_api_name => l_api_name,
560: p_pkg_name => g_pkg_name,
561: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
562: x_msg_count => x_msg_count,
563: x_msg_data => x_msg_data,
564: p_api_type => g_api_type);
565:
562: x_msg_count => x_msg_count,
563: x_msg_data => x_msg_data,
564: p_api_type => g_api_type);
565:
566: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
567: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
568: p_api_name => l_api_name,
569: p_pkg_name => g_pkg_name,
570: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
563: x_msg_data => x_msg_data,
564: p_api_type => g_api_type);
565:
566: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
567: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
568: p_api_name => l_api_name,
569: p_pkg_name => g_pkg_name,
570: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
571: x_msg_count => x_msg_count,
566: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
567: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
568: p_api_name => l_api_name,
569: p_pkg_name => g_pkg_name,
570: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
571: x_msg_count => x_msg_count,
572: x_msg_data => x_msg_data,
573: p_api_type => g_api_type);
574:
572: x_msg_data => x_msg_data,
573: p_api_type => g_api_type);
574:
575: when OTHERS then
576: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
577: p_api_name => l_api_name,
578: p_pkg_name => g_pkg_name,
579: p_exc_name => 'OTHERS',
580: x_msg_count => x_msg_count,
584:
585:
586: PROCEDURE create_contract_top_line(
587: p_api_version IN NUMBER,
588: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
589: x_return_status OUT NOCOPY VARCHAR2,
590: x_msg_count OUT NOCOPY NUMBER,
591: x_msg_data OUT NOCOPY VARCHAR2,
592: p_clev_rec IN clev_rec_type,
606: l_chr_id l_clev_rec.dnz_chr_id%type;
607:
608: l_api_name CONSTANT VARCHAR2(30) := 'create_contract_top_line';
609: l_api_version CONSTANT NUMBER := 1.0;
610: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
611:
612: CURSOR get_k_dates_csr(l_id NUMBER) IS
613: select chr.start_date, chr.end_date
614: from okc_k_headers_b chr
640: End If;
641:
642: -- call START_ACTIVITY to create savepoint, check compatibility
643: -- and initialize message list
644: x_return_status := OKC_API.START_ACTIVITY(
645: p_api_name => l_api_name,
646: p_pkg_name => g_pkg_name,
647: p_init_msg_list => p_init_msg_list,
648: l_api_version => l_api_version,
650: p_api_type => g_api_type,
651: x_return_status => x_return_status);
652:
653: -- check if activity started successfully
654: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
655: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
656: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
657: raise OKC_API.G_EXCEPTION_ERROR;
658: End If;
651: x_return_status => x_return_status);
652:
653: -- check if activity started successfully
654: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
655: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
656: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
657: raise OKC_API.G_EXCEPTION_ERROR;
658: End If;
659:
652:
653: -- check if activity started successfully
654: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
655: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
656: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
657: raise OKC_API.G_EXCEPTION_ERROR;
658: End If;
659:
660: l_clev_rec.name := l_clev_rec.item_description;
653: -- check if activity started successfully
654: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
655: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
656: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
657: raise OKC_API.G_EXCEPTION_ERROR;
658: End If;
659:
660: l_clev_rec.name := l_clev_rec.item_description;
661:
676:
677: End If;
678:
679:
680: If ( (l_clev_rec.start_date is null or l_clev_rec.start_date = OKC_API.G_MISS_DATE)
681: or (l_clev_rec.end_date is null or l_clev_rec.end_date = OKC_API.G_MISS_DATE) )then
682:
683: open get_k_dates_csr(l_clev_rec.dnz_chr_id);
684: fetch get_k_dates_csr into l_start_date, l_end_date;
677: End If;
678:
679:
680: If ( (l_clev_rec.start_date is null or l_clev_rec.start_date = OKC_API.G_MISS_DATE)
681: or (l_clev_rec.end_date is null or l_clev_rec.end_date = OKC_API.G_MISS_DATE) )then
682:
683: open get_k_dates_csr(l_clev_rec.dnz_chr_id);
684: fetch get_k_dates_csr into l_start_date, l_end_date;
685: close get_k_dates_csr;
683: open get_k_dates_csr(l_clev_rec.dnz_chr_id);
684: fetch get_k_dates_csr into l_start_date, l_end_date;
685: close get_k_dates_csr;
686:
687: If ( l_clev_rec.start_date is null or l_clev_rec.start_date = OKC_API.G_MISS_DATE) then
688: l_clev_rec.start_date := l_start_date;
689: End If;
690:
691: If ( l_clev_rec.end_date is null or l_clev_rec.end_date = OKC_API.G_MISS_DATE) then
687: If ( l_clev_rec.start_date is null or l_clev_rec.start_date = OKC_API.G_MISS_DATE) then
688: l_clev_rec.start_date := l_start_date;
689: End If;
690:
691: If ( l_clev_rec.end_date is null or l_clev_rec.end_date = OKC_API.G_MISS_DATE) then
692: l_clev_rec.end_date := l_end_date;
693: End If;
694:
695: End If;
708: p_klev_rec => l_klev_rec,
709: x_clev_rec => x_clev_rec,
710: x_klev_rec => x_klev_rec);
711:
712: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
713: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
714: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
715: raise OKC_API.G_EXCEPTION_ERROR;
716: END IF;
709: x_clev_rec => x_clev_rec,
710: x_klev_rec => x_klev_rec);
711:
712: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
713: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
714: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
715: raise OKC_API.G_EXCEPTION_ERROR;
716: END IF;
717:
710: x_klev_rec => x_klev_rec);
711:
712: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
713: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
714: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
715: raise OKC_API.G_EXCEPTION_ERROR;
716: END IF;
717:
718: l_cimv_rec.cle_id := x_clev_rec.id;
711:
712: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
713: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
714: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
715: raise OKC_API.G_EXCEPTION_ERROR;
716: END IF;
717:
718: l_cimv_rec.cle_id := x_clev_rec.id;
719:
726: p_cimv_rec => l_cimv_rec,
727: x_cimv_rec => x_cimv_rec);
728:
729: -- check return status
730: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
731: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
732: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
733: raise OKC_API.G_EXCEPTION_ERROR;
734: End If;
727: x_cimv_rec => x_cimv_rec);
728:
729: -- check return status
730: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
731: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
732: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
733: raise OKC_API.G_EXCEPTION_ERROR;
734: End If;
735:
728:
729: -- check return status
730: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
731: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
732: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
733: raise OKC_API.G_EXCEPTION_ERROR;
734: End If;
735:
736:
729: -- check return status
730: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
731: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
732: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
733: raise OKC_API.G_EXCEPTION_ERROR;
734: End If;
735:
736:
737: l_cplv_rec.cle_id := x_clev_rec.id;
748: p_cplv_rec => l_cplv_rec,
749: x_cplv_rec => x_cplv_rec);
750:
751: -- check return status
752: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
753: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
754: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
755: raise OKC_API.G_EXCEPTION_ERROR;
756: End If;
749: x_cplv_rec => x_cplv_rec);
750:
751: -- check return status
752: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
753: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
754: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
755: raise OKC_API.G_EXCEPTION_ERROR;
756: End If;
757:
750:
751: -- check return status
752: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
753: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
754: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
755: raise OKC_API.G_EXCEPTION_ERROR;
756: End If;
757:
758: end if;*/
751: -- check return status
752: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
753: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
754: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
755: raise OKC_API.G_EXCEPTION_ERROR;
756: End If;
757:
758: end if;*/
759:
756: End If;
757:
758: end if;*/
759:
760: OKC_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
761: EXCEPTION
762: when OKC_API.G_EXCEPTION_ERROR then
763: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
764: p_api_name => l_api_name,
758: end if;*/
759:
760: OKC_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
761: EXCEPTION
762: when OKC_API.G_EXCEPTION_ERROR then
763: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
764: p_api_name => l_api_name,
765: p_pkg_name => g_pkg_name,
766: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
759:
760: OKC_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
761: EXCEPTION
762: when OKC_API.G_EXCEPTION_ERROR then
763: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
764: p_api_name => l_api_name,
765: p_pkg_name => g_pkg_name,
766: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
767: x_msg_count => x_msg_count,
762: when OKC_API.G_EXCEPTION_ERROR then
763: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
764: p_api_name => l_api_name,
765: p_pkg_name => g_pkg_name,
766: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
767: x_msg_count => x_msg_count,
768: x_msg_data => x_msg_data,
769: p_api_type => g_api_type);
770:
767: x_msg_count => x_msg_count,
768: x_msg_data => x_msg_data,
769: p_api_type => g_api_type);
770:
771: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
772: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
773: p_api_name => l_api_name,
774: p_pkg_name => g_pkg_name,
775: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
768: x_msg_data => x_msg_data,
769: p_api_type => g_api_type);
770:
771: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
772: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
773: p_api_name => l_api_name,
774: p_pkg_name => g_pkg_name,
775: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
776: x_msg_count => x_msg_count,
771: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
772: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
773: p_api_name => l_api_name,
774: p_pkg_name => g_pkg_name,
775: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
776: x_msg_count => x_msg_count,
777: x_msg_data => x_msg_data,
778: p_api_type => g_api_type);
779:
777: x_msg_data => x_msg_data,
778: p_api_type => g_api_type);
779:
780: when OTHERS then
781: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
782: p_api_name => l_api_name,
783: p_pkg_name => g_pkg_name,
784: p_exc_name => 'OTHERS',
785: x_msg_count => x_msg_count,
796: -- Version : 1.0
797: -- End of comments
798: PROCEDURE create_contract_top_line(
799: p_api_version IN NUMBER,
800: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
801: x_return_status OUT NOCOPY VARCHAR2,
802: x_msg_count OUT NOCOPY NUMBER,
803: x_msg_data OUT NOCOPY VARCHAR2,
804: p_clev_tbl IN clev_tbl_type,
811: x_cplv_tbl OUT NOCOPY cplv_tbl_type) IS
812:
813: l_api_name CONSTANT VARCHAR2(30) := 'CREATE_contract_top_line';
814: l_api_version CONSTANT NUMBER := 1.0;
815: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
816: l_overall_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
817: i NUMBER;
818: l_klev_tbl klev_tbl_type := p_klev_tbl;
819: l_cimv_tbl cimv_tbl_type := p_cimv_tbl;
812:
813: l_api_name CONSTANT VARCHAR2(30) := 'CREATE_contract_top_line';
814: l_api_version CONSTANT NUMBER := 1.0;
815: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
816: l_overall_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
817: i NUMBER;
818: l_klev_tbl klev_tbl_type := p_klev_tbl;
819: l_cimv_tbl cimv_tbl_type := p_cimv_tbl;
820: l_cplv_tbl cplv_tbl_type := p_cplv_tbl;
822:
823: /*
824: -- call START_ACTIVITY to create savepoint, check compatibility
825: -- and initialize message list
826: l_return_status := OKC_API.START_ACTIVITY(
827: p_api_name => l_api_name,
828: p_pkg_name => g_pkg_name,
829: p_init_msg_list => p_init_msg_list,
830: l_api_version => l_api_version,
832: p_api_type => g_api_type,
833: x_return_status => x_return_status);
834:
835: -- check if activity started successfully
836: If (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
837: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
838: Elsif (l_return_status = OKC_API.G_RET_STS_ERROR) then
839: raise OKC_API.G_EXCEPTION_ERROR;
840: End If;
833: x_return_status => x_return_status);
834:
835: -- check if activity started successfully
836: If (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
837: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
838: Elsif (l_return_status = OKC_API.G_RET_STS_ERROR) then
839: raise OKC_API.G_EXCEPTION_ERROR;
840: End If;
841: */
834:
835: -- check if activity started successfully
836: If (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
837: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
838: Elsif (l_return_status = OKC_API.G_RET_STS_ERROR) then
839: raise OKC_API.G_EXCEPTION_ERROR;
840: End If;
841: */
842:
835: -- check if activity started successfully
836: If (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
837: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
838: Elsif (l_return_status = OKC_API.G_RET_STS_ERROR) then
839: raise OKC_API.G_EXCEPTION_ERROR;
840: End If;
841: */
842:
843: If (p_clev_tbl.COUNT > 0) Then
858: x_klev_rec => x_klev_tbl(i),
859: x_cimv_rec => x_cimv_tbl(i),
860: x_cplv_rec => x_cplv_tbl(i));
861:
862: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
863: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
864: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
865: raise OKC_API.G_EXCEPTION_ERROR;
866: End If;
859: x_cimv_rec => x_cimv_tbl(i),
860: x_cplv_rec => x_cplv_tbl(i));
861:
862: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
863: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
864: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
865: raise OKC_API.G_EXCEPTION_ERROR;
866: End If;
867:
860: x_cplv_rec => x_cplv_tbl(i));
861:
862: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
863: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
864: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
865: raise OKC_API.G_EXCEPTION_ERROR;
866: End If;
867:
868: EXIT WHEN (i = p_clev_tbl.LAST);
861:
862: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
863: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
864: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
865: raise OKC_API.G_EXCEPTION_ERROR;
866: End If;
867:
868: EXIT WHEN (i = p_clev_tbl.LAST);
869: i := p_clev_tbl.NEXT(i);
870: END LOOP;
871:
872: End If;
873:
874: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
875: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
876: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
877: raise OKC_API.G_EXCEPTION_ERROR;
878: End If;
871:
872: End If;
873:
874: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
875: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
876: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
877: raise OKC_API.G_EXCEPTION_ERROR;
878: End If;
879: /*
872: End If;
873:
874: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
875: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
876: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
877: raise OKC_API.G_EXCEPTION_ERROR;
878: End If;
879: /*
880: OKC_API.END_ACTIVITY( x_msg_count => x_msg_count,
873:
874: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
875: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
876: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
877: raise OKC_API.G_EXCEPTION_ERROR;
878: End If;
879: /*
880: OKC_API.END_ACTIVITY( x_msg_count => x_msg_count,
881: x_msg_data => x_msg_data);
876: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
877: raise OKC_API.G_EXCEPTION_ERROR;
878: End If;
879: /*
880: OKC_API.END_ACTIVITY( x_msg_count => x_msg_count,
881: x_msg_data => x_msg_data);
882: */
883: EXCEPTION
884: when OKC_API.G_EXCEPTION_ERROR then
880: OKC_API.END_ACTIVITY( x_msg_count => x_msg_count,
881: x_msg_data => x_msg_data);
882: */
883: EXCEPTION
884: when OKC_API.G_EXCEPTION_ERROR then
885: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
886: p_api_name => l_api_name,
887: p_pkg_name => g_pkg_name,
888: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
881: x_msg_data => x_msg_data);
882: */
883: EXCEPTION
884: when OKC_API.G_EXCEPTION_ERROR then
885: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
886: p_api_name => l_api_name,
887: p_pkg_name => g_pkg_name,
888: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
889: x_msg_count => x_msg_count,
884: when OKC_API.G_EXCEPTION_ERROR then
885: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
886: p_api_name => l_api_name,
887: p_pkg_name => g_pkg_name,
888: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
889: x_msg_count => x_msg_count,
890: x_msg_data => x_msg_data,
891: p_api_type => g_api_type);
892:
889: x_msg_count => x_msg_count,
890: x_msg_data => x_msg_data,
891: p_api_type => g_api_type);
892:
893: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
894: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
895: p_api_name => l_api_name,
896: p_pkg_name => g_pkg_name,
897: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
890: x_msg_data => x_msg_data,
891: p_api_type => g_api_type);
892:
893: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
894: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
895: p_api_name => l_api_name,
896: p_pkg_name => g_pkg_name,
897: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
898: x_msg_count => x_msg_count,
893: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
894: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
895: p_api_name => l_api_name,
896: p_pkg_name => g_pkg_name,
897: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
898: x_msg_count => x_msg_count,
899: x_msg_data => x_msg_data,
900: p_api_type => g_api_type);
901:
899: x_msg_data => x_msg_data,
900: p_api_type => g_api_type);
901:
902: when OTHERS then
903: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
904: p_api_name => l_api_name,
905: p_pkg_name => g_pkg_name,
906: p_exc_name => 'OTHERS',
907: x_msg_count => x_msg_count,
920: -- Version : 1.0
921: -- End of comments
922: PROCEDURE update_contract_top_line(
923: p_api_version IN NUMBER,
924: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
925: x_return_status OUT NOCOPY VARCHAR2,
926: x_msg_count OUT NOCOPY NUMBER,
927: x_msg_data OUT NOCOPY VARCHAR2,
928: p_clev_rec IN clev_rec_type,
942: l_chr_id l_clev_rec.dnz_chr_id%type;
943:
944: l_api_name CONSTANT VARCHAR2(30) := 'UPDATE_contract_top_line';
945: l_api_version CONSTANT NUMBER := 1.0;
946: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
947:
948: CURSOR get_k_dates_csr(l_id number) IS
949: select chr.start_date, chr.end_date
950: from okc_k_headers_b chr
1001: End If;
1002:
1003: -- call START_ACTIVITY to create savepoint, check compatibility
1004: -- and initialize message list
1005: x_return_status := OKC_API.START_ACTIVITY(
1006: p_api_name => l_api_name,
1007: p_pkg_name => g_pkg_name,
1008: p_init_msg_list => p_init_msg_list,
1009: l_api_version => l_api_version,
1011: p_api_type => g_api_type,
1012: x_return_status => x_return_status);
1013:
1014: -- check if activity started successfully
1015: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
1016: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1017: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
1018: raise OKC_API.G_EXCEPTION_ERROR;
1019: End If;
1012: x_return_status => x_return_status);
1013:
1014: -- check if activity started successfully
1015: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
1016: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1017: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
1018: raise OKC_API.G_EXCEPTION_ERROR;
1019: End If;
1020:
1013:
1014: -- check if activity started successfully
1015: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
1016: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1017: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
1018: raise OKC_API.G_EXCEPTION_ERROR;
1019: End If;
1020:
1021: l_clev_rec.name := l_clev_rec.item_description;
1014: -- check if activity started successfully
1015: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
1016: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1017: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
1018: raise OKC_API.G_EXCEPTION_ERROR;
1019: End If;
1020:
1021: l_clev_rec.name := l_clev_rec.item_description;
1022:
1037:
1038: End If;
1039:
1040:
1041: If ( (l_clev_rec.start_date is null or l_clev_rec.start_date = OKC_API.G_MISS_DATE )
1042: or (l_clev_rec.end_date is null or l_clev_rec.end_date = OKC_API.G_MISS_DATE) )then
1043:
1044: open get_k_dates_csr(l_clev_rec.dnz_chr_id);
1045: fetch get_k_dates_csr into l_start_date, l_end_date;
1038: End If;
1039:
1040:
1041: If ( (l_clev_rec.start_date is null or l_clev_rec.start_date = OKC_API.G_MISS_DATE )
1042: or (l_clev_rec.end_date is null or l_clev_rec.end_date = OKC_API.G_MISS_DATE) )then
1043:
1044: open get_k_dates_csr(l_clev_rec.dnz_chr_id);
1045: fetch get_k_dates_csr into l_start_date, l_end_date;
1046: close get_k_dates_csr;
1044: open get_k_dates_csr(l_clev_rec.dnz_chr_id);
1045: fetch get_k_dates_csr into l_start_date, l_end_date;
1046: close get_k_dates_csr;
1047:
1048: If ( l_clev_rec.start_date is null or l_clev_rec.start_date = OKC_API.G_MISS_DATE) then
1049: l_clev_rec.start_date := l_start_date;
1050: End If;
1051:
1052: If ( l_clev_rec.end_date is null or l_clev_rec.end_date = OKC_API.G_MISS_DATE) then
1048: If ( l_clev_rec.start_date is null or l_clev_rec.start_date = OKC_API.G_MISS_DATE) then
1049: l_clev_rec.start_date := l_start_date;
1050: End If;
1051:
1052: If ( l_clev_rec.end_date is null or l_clev_rec.end_date = OKC_API.G_MISS_DATE) then
1053: l_clev_rec.end_date := l_end_date;
1054: End If;
1055:
1056: End If;
1077: x_clev_rec => x_clev_rec,
1078: x_klev_rec => x_klev_rec
1079: );
1080:
1081: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1082: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1083: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1084: raise OKC_API.G_EXCEPTION_ERROR;
1085: END IF;
1078: x_klev_rec => x_klev_rec
1079: );
1080:
1081: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1082: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1083: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1084: raise OKC_API.G_EXCEPTION_ERROR;
1085: END IF;
1086:
1079: );
1080:
1081: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1082: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1083: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1084: raise OKC_API.G_EXCEPTION_ERROR;
1085: END IF;
1086:
1087: -- added below for bug 7323444 -- start
1080:
1081: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1082: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1083: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1084: raise OKC_API.G_EXCEPTION_ERROR;
1085: END IF;
1086:
1087: -- added below for bug 7323444 -- start
1088: For service_subline_rec In service_subline_csr(p_cle_id => l_clev_rec.id,
1133: p_cimv_rec => l_cimv_rec,
1134: x_cimv_rec => x_cimv_rec);
1135:
1136: -- check return status
1137: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
1138: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1139: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
1140: raise OKC_API.G_EXCEPTION_ERROR;
1141: End If;
1134: x_cimv_rec => x_cimv_rec);
1135:
1136: -- check return status
1137: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
1138: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1139: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
1140: raise OKC_API.G_EXCEPTION_ERROR;
1141: End If;
1142:
1135:
1136: -- check return status
1137: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
1138: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1139: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
1140: raise OKC_API.G_EXCEPTION_ERROR;
1141: End If;
1142:
1143: -- Bug# 6438785
1136: -- check return status
1137: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
1138: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1139: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
1140: raise OKC_API.G_EXCEPTION_ERROR;
1141: End If;
1142:
1143: -- Bug# 6438785
1144: -- When the service line start date is changed, update the
1178: p_cplv_rec => l_cplv_rec,
1179: x_cplv_rec => x_cplv_rec);
1180:
1181: -- check return status
1182: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
1183: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1184: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
1185: raise OKC_API.G_EXCEPTION_ERROR;
1186: End If;
1179: x_cplv_rec => x_cplv_rec);
1180:
1181: -- check return status
1182: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
1183: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1184: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
1185: raise OKC_API.G_EXCEPTION_ERROR;
1186: End If;
1187:
1180:
1181: -- check return status
1182: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
1183: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1184: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
1185: raise OKC_API.G_EXCEPTION_ERROR;
1186: End If;
1187:
1188: else
1181: -- check return status
1182: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
1183: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1184: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
1185: raise OKC_API.G_EXCEPTION_ERROR;
1186: End If;
1187:
1188: else
1189:
1196: p_cplv_rec => l_cplv_rec,
1197: x_cplv_rec => x_cplv_rec);
1198:
1199: -- check return status
1200: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
1201: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1202: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
1203: raise OKC_API.G_EXCEPTION_ERROR;
1204: End If;
1197: x_cplv_rec => x_cplv_rec);
1198:
1199: -- check return status
1200: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
1201: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1202: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
1203: raise OKC_API.G_EXCEPTION_ERROR;
1204: End If;
1205:
1198:
1199: -- check return status
1200: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
1201: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1202: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
1203: raise OKC_API.G_EXCEPTION_ERROR;
1204: End If;
1205:
1206: end if;
1199: -- check return status
1200: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
1201: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1202: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
1203: raise OKC_API.G_EXCEPTION_ERROR;
1204: End If;
1205:
1206: end if;
1207:
1216: x_msg_data => x_msg_data,
1217: p_cplv_rec => l_cplv_rec);
1218:
1219: -- check return status
1220: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
1221: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1222: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
1223: raise OKC_API.G_EXCEPTION_ERROR;
1224: End If;
1217: p_cplv_rec => l_cplv_rec);
1218:
1219: -- check return status
1220: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
1221: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1222: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
1223: raise OKC_API.G_EXCEPTION_ERROR;
1224: End If;
1225: end if;*/
1218:
1219: -- check return status
1220: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
1221: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1222: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
1223: raise OKC_API.G_EXCEPTION_ERROR;
1224: End If;
1225: end if;*/
1226:
1219: -- check return status
1220: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
1221: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1222: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
1223: raise OKC_API.G_EXCEPTION_ERROR;
1224: End If;
1225: end if;*/
1226:
1227: OKC_API.END_ACTIVITY(x_msg_count => x_msg_count,
1223: raise OKC_API.G_EXCEPTION_ERROR;
1224: End If;
1225: end if;*/
1226:
1227: OKC_API.END_ACTIVITY(x_msg_count => x_msg_count,
1228: x_msg_data => x_msg_data);
1229:
1230: EXCEPTION
1231: when OKC_API.G_EXCEPTION_ERROR then
1227: OKC_API.END_ACTIVITY(x_msg_count => x_msg_count,
1228: x_msg_data => x_msg_data);
1229:
1230: EXCEPTION
1231: when OKC_API.G_EXCEPTION_ERROR then
1232: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
1233: p_api_name => l_api_name,
1234: p_pkg_name => g_pkg_name,
1235: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
1228: x_msg_data => x_msg_data);
1229:
1230: EXCEPTION
1231: when OKC_API.G_EXCEPTION_ERROR then
1232: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
1233: p_api_name => l_api_name,
1234: p_pkg_name => g_pkg_name,
1235: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
1236: x_msg_count => x_msg_count,
1231: when OKC_API.G_EXCEPTION_ERROR then
1232: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
1233: p_api_name => l_api_name,
1234: p_pkg_name => g_pkg_name,
1235: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
1236: x_msg_count => x_msg_count,
1237: x_msg_data => x_msg_data,
1238: p_api_type => g_api_type);
1239:
1236: x_msg_count => x_msg_count,
1237: x_msg_data => x_msg_data,
1238: p_api_type => g_api_type);
1239:
1240: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
1241: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
1242: p_api_name => l_api_name,
1243: p_pkg_name => g_pkg_name,
1244: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
1237: x_msg_data => x_msg_data,
1238: p_api_type => g_api_type);
1239:
1240: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
1241: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
1242: p_api_name => l_api_name,
1243: p_pkg_name => g_pkg_name,
1244: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
1245: x_msg_count => x_msg_count,
1240: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
1241: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
1242: p_api_name => l_api_name,
1243: p_pkg_name => g_pkg_name,
1244: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
1245: x_msg_count => x_msg_count,
1246: x_msg_data => x_msg_data,
1247: p_api_type => g_api_type);
1248:
1246: x_msg_data => x_msg_data,
1247: p_api_type => g_api_type);
1248:
1249: when OTHERS then
1250: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
1251: p_api_name => l_api_name,
1252: p_pkg_name => g_pkg_name,
1253: p_exc_name => 'OTHERS',
1254: x_msg_count => x_msg_count,
1266: -- Version : 1.0
1267: -- End of comments
1268: PROCEDURE update_contract_top_line(
1269: p_api_version IN NUMBER,
1270: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
1271: x_return_status OUT NOCOPY VARCHAR2,
1272: x_msg_count OUT NOCOPY NUMBER,
1273: x_msg_data OUT NOCOPY VARCHAR2,
1274: p_clev_tbl IN clev_tbl_type,
1281: x_cplv_tbl OUT NOCOPY cplv_tbl_type) IS
1282:
1283: l_api_name CONSTANT VARCHAR2(30) := 'UPDATE_contract_top_line';
1284: l_api_version CONSTANT NUMBER := 1.0;
1285: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1286: l_overall_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1287: i NUMBER;
1288: l_klev_tbl klev_tbl_type := p_klev_tbl;
1289: l_cimv_tbl cimv_tbl_type := p_cimv_tbl;
1282:
1283: l_api_name CONSTANT VARCHAR2(30) := 'UPDATE_contract_top_line';
1284: l_api_version CONSTANT NUMBER := 1.0;
1285: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1286: l_overall_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1287: i NUMBER;
1288: l_klev_tbl klev_tbl_type := p_klev_tbl;
1289: l_cimv_tbl cimv_tbl_type := p_cimv_tbl;
1290: l_cplv_tbl cplv_tbl_type := p_cplv_tbl;
1291: BEGIN
1292: /*
1293: -- call START_ACTIVITY to create savepoint, check compatibility
1294: -- and initialize message list
1295: l_return_status := OKC_API.START_ACTIVITY(
1296: p_api_name => l_api_name,
1297: p_pkg_name => g_pkg_name,
1298: p_init_msg_list => p_init_msg_list,
1299: l_api_version => l_api_version,
1301: p_api_type => g_api_type,
1302: x_return_status => x_return_status);
1303:
1304: -- check if activity started successfully
1305: If (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
1306: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1307: Elsif (l_return_status = OKC_API.G_RET_STS_ERROR) then
1308: raise OKC_API.G_EXCEPTION_ERROR;
1309: End If;
1302: x_return_status => x_return_status);
1303:
1304: -- check if activity started successfully
1305: If (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
1306: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1307: Elsif (l_return_status = OKC_API.G_RET_STS_ERROR) then
1308: raise OKC_API.G_EXCEPTION_ERROR;
1309: End If;
1310: */
1303:
1304: -- check if activity started successfully
1305: If (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
1306: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1307: Elsif (l_return_status = OKC_API.G_RET_STS_ERROR) then
1308: raise OKC_API.G_EXCEPTION_ERROR;
1309: End If;
1310: */
1311:
1304: -- check if activity started successfully
1305: If (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
1306: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1307: Elsif (l_return_status = OKC_API.G_RET_STS_ERROR) then
1308: raise OKC_API.G_EXCEPTION_ERROR;
1309: End If;
1310: */
1311:
1312: If (p_clev_tbl.COUNT > 0) Then
1327: x_klev_rec => x_klev_tbl(i),
1328: x_cimv_rec => x_cimv_tbl(i),
1329: x_cplv_rec => x_cplv_tbl(i));
1330:
1331: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
1332: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1333: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
1334: raise OKC_API.G_EXCEPTION_ERROR;
1335: End If;
1328: x_cimv_rec => x_cimv_tbl(i),
1329: x_cplv_rec => x_cplv_tbl(i));
1330:
1331: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
1332: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1333: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
1334: raise OKC_API.G_EXCEPTION_ERROR;
1335: End If;
1336:
1329: x_cplv_rec => x_cplv_tbl(i));
1330:
1331: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
1332: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1333: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
1334: raise OKC_API.G_EXCEPTION_ERROR;
1335: End If;
1336:
1337: EXIT WHEN (i = p_clev_tbl.LAST);
1330:
1331: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
1332: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1333: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
1334: raise OKC_API.G_EXCEPTION_ERROR;
1335: End If;
1336:
1337: EXIT WHEN (i = p_clev_tbl.LAST);
1338: i := p_clev_tbl.NEXT(i);
1339: END LOOP;
1340:
1341: End If;
1342:
1343: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
1344: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1345: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
1346: raise OKC_API.G_EXCEPTION_ERROR;
1347: End If;
1340:
1341: End If;
1342:
1343: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
1344: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1345: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
1346: raise OKC_API.G_EXCEPTION_ERROR;
1347: End If;
1348: /*
1341: End If;
1342:
1343: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
1344: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1345: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
1346: raise OKC_API.G_EXCEPTION_ERROR;
1347: End If;
1348: /*
1349: OKC_API.END_ACTIVITY( x_msg_count => x_msg_count,
1342:
1343: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
1344: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1345: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
1346: raise OKC_API.G_EXCEPTION_ERROR;
1347: End If;
1348: /*
1349: OKC_API.END_ACTIVITY( x_msg_count => x_msg_count,
1350: x_msg_data => x_msg_data);
1345: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
1346: raise OKC_API.G_EXCEPTION_ERROR;
1347: End If;
1348: /*
1349: OKC_API.END_ACTIVITY( x_msg_count => x_msg_count,
1350: x_msg_data => x_msg_data);
1351: */
1352: EXCEPTION
1353: when OKC_API.G_EXCEPTION_ERROR then
1349: OKC_API.END_ACTIVITY( x_msg_count => x_msg_count,
1350: x_msg_data => x_msg_data);
1351: */
1352: EXCEPTION
1353: when OKC_API.G_EXCEPTION_ERROR then
1354: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
1355: p_api_name => l_api_name,
1356: p_pkg_name => g_pkg_name,
1357: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
1350: x_msg_data => x_msg_data);
1351: */
1352: EXCEPTION
1353: when OKC_API.G_EXCEPTION_ERROR then
1354: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
1355: p_api_name => l_api_name,
1356: p_pkg_name => g_pkg_name,
1357: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
1358: x_msg_count => x_msg_count,
1353: when OKC_API.G_EXCEPTION_ERROR then
1354: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
1355: p_api_name => l_api_name,
1356: p_pkg_name => g_pkg_name,
1357: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
1358: x_msg_count => x_msg_count,
1359: x_msg_data => x_msg_data,
1360: p_api_type => g_api_type);
1361:
1358: x_msg_count => x_msg_count,
1359: x_msg_data => x_msg_data,
1360: p_api_type => g_api_type);
1361:
1362: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
1363: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
1364: p_api_name => l_api_name,
1365: p_pkg_name => g_pkg_name,
1366: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
1359: x_msg_data => x_msg_data,
1360: p_api_type => g_api_type);
1361:
1362: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
1363: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
1364: p_api_name => l_api_name,
1365: p_pkg_name => g_pkg_name,
1366: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
1367: x_msg_count => x_msg_count,
1362: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
1363: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
1364: p_api_name => l_api_name,
1365: p_pkg_name => g_pkg_name,
1366: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
1367: x_msg_count => x_msg_count,
1368: x_msg_data => x_msg_data,
1369: p_api_type => g_api_type);
1370:
1368: x_msg_data => x_msg_data,
1369: p_api_type => g_api_type);
1370:
1371: when OTHERS then
1372: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
1373: p_api_name => l_api_name,
1374: p_pkg_name => g_pkg_name,
1375: p_exc_name => 'OTHERS',
1376: x_msg_count => x_msg_count,
1381:
1382:
1383: PROCEDURE delete_contract_line(
1384: p_api_version IN NUMBER,
1385: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
1386: x_return_status OUT NOCOPY VARCHAR2,
1387: x_msg_count OUT NOCOPY NUMBER,
1388: x_msg_data OUT NOCOPY VARCHAR2,
1389: p_chr_id IN number,
1393: lp_klev_rec OKL_SERVICE_INTEGRATION_PUB.klev_rec_type;
1394:
1395: l_api_name CONSTANT VARCHAR2(30) := 'delete_contract_line';
1396: l_api_version CONSTANT NUMBER := 1.0;
1397: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1398:
1399: l_chr_id number := null;
1400:
1401: BEGIN
1406: End If;
1407:
1408: -- call START_ACTIVITY to create savepoint, check compatibility
1409: -- and initialize message list
1410: l_return_status := OKC_API.START_ACTIVITY(
1411: p_api_name => l_api_name,
1412: p_pkg_name => g_pkg_name,
1413: p_init_msg_list => p_init_msg_list,
1414: l_api_version => l_api_version,
1416: p_api_type => g_api_type,
1417: x_return_status => x_return_status);
1418:
1419: -- check if activity started successfully
1420: If (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
1421: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1422: Elsif (l_return_status = OKC_API.G_RET_STS_ERROR) then
1423: raise OKC_API.G_EXCEPTION_ERROR;
1424: End If;
1417: x_return_status => x_return_status);
1418:
1419: -- check if activity started successfully
1420: If (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
1421: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1422: Elsif (l_return_status = OKC_API.G_RET_STS_ERROR) then
1423: raise OKC_API.G_EXCEPTION_ERROR;
1424: End If;
1425:
1418:
1419: -- check if activity started successfully
1420: If (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
1421: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1422: Elsif (l_return_status = OKC_API.G_RET_STS_ERROR) then
1423: raise OKC_API.G_EXCEPTION_ERROR;
1424: End If;
1425:
1426: lp_clev_rec.dnz_chr_id := l_chr_id;
1419: -- check if activity started successfully
1420: If (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
1421: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1422: Elsif (l_return_status = OKC_API.G_RET_STS_ERROR) then
1423: raise OKC_API.G_EXCEPTION_ERROR;
1424: End If;
1425:
1426: lp_clev_rec.dnz_chr_id := l_chr_id;
1427: lp_clev_rec.id := p_cle_id;
1436: p_clev_rec => lp_clev_rec,
1437: p_klev_rec => lp_klev_rec
1438: );
1439:
1440: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1441: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1442: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1443: raise OKC_API.G_EXCEPTION_ERROR;
1444: END IF;
1437: p_klev_rec => lp_klev_rec
1438: );
1439:
1440: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1441: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1442: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1443: raise OKC_API.G_EXCEPTION_ERROR;
1444: END IF;
1445:
1438: );
1439:
1440: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1441: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1442: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1443: raise OKC_API.G_EXCEPTION_ERROR;
1444: END IF;
1445:
1446: OKC_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
1439:
1440: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1441: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1442: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1443: raise OKC_API.G_EXCEPTION_ERROR;
1444: END IF;
1445:
1446: OKC_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
1447:
1442: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1443: raise OKC_API.G_EXCEPTION_ERROR;
1444: END IF;
1445:
1446: OKC_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
1447:
1448: EXCEPTION
1449: when OKC_API.G_EXCEPTION_ERROR then
1450: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
1445:
1446: OKC_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
1447:
1448: EXCEPTION
1449: when OKC_API.G_EXCEPTION_ERROR then
1450: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
1451: p_api_name => l_api_name,
1452: p_pkg_name => g_pkg_name,
1453: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
1446: OKC_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
1447:
1448: EXCEPTION
1449: when OKC_API.G_EXCEPTION_ERROR then
1450: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
1451: p_api_name => l_api_name,
1452: p_pkg_name => g_pkg_name,
1453: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
1454: x_msg_count => x_msg_count,
1449: when OKC_API.G_EXCEPTION_ERROR then
1450: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
1451: p_api_name => l_api_name,
1452: p_pkg_name => g_pkg_name,
1453: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
1454: x_msg_count => x_msg_count,
1455: x_msg_data => x_msg_data,
1456: p_api_type => g_api_type);
1457:
1454: x_msg_count => x_msg_count,
1455: x_msg_data => x_msg_data,
1456: p_api_type => g_api_type);
1457:
1458: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
1459: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
1460: p_api_name => l_api_name,
1461: p_pkg_name => g_pkg_name,
1462: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
1455: x_msg_data => x_msg_data,
1456: p_api_type => g_api_type);
1457:
1458: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
1459: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
1460: p_api_name => l_api_name,
1461: p_pkg_name => g_pkg_name,
1462: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
1463: x_msg_count => x_msg_count,
1458: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
1459: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
1460: p_api_name => l_api_name,
1461: p_pkg_name => g_pkg_name,
1462: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
1463: x_msg_count => x_msg_count,
1464: x_msg_data => x_msg_data,
1465: p_api_type => g_api_type);
1466:
1464: x_msg_data => x_msg_data,
1465: p_api_type => g_api_type);
1466:
1467: when OTHERS then
1468: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
1469: p_api_name => l_api_name,
1470: p_pkg_name => g_pkg_name,
1471: p_exc_name => 'OTHERS',
1472: x_msg_count => x_msg_count,
1476:
1477:
1478: PROCEDURE delete_contract_top_line(
1479: p_api_version IN NUMBER,
1480: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
1481: x_return_status OUT NOCOPY VARCHAR2,
1482: x_msg_count OUT NOCOPY NUMBER,
1483: x_msg_data OUT NOCOPY VARCHAR2,
1484: p_clev_rec IN clev_rec_type,
1492: l_cplv_rec cplv_rec_type := p_cplv_rec;
1493:
1494: l_api_name CONSTANT VARCHAR2(30) := 'DELETE_contract_top_line';
1495: l_api_version CONSTANT NUMBER := 1.0;
1496: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1497:
1498: --Bug# 4558486
1499: l_kplv_rec okl_k_party_roles_pvt.kplv_rec_type;
1500:
1501: BEGIN
1502:
1503: -- call START_ACTIVITY to create savepoint, check compatibility
1504: -- and initialize message list
1505: l_return_status := OKC_API.START_ACTIVITY(
1506: p_api_name => l_api_name,
1507: p_pkg_name => g_pkg_name,
1508: p_init_msg_list => p_init_msg_list,
1509: l_api_version => l_api_version,
1511: p_api_type => g_api_type,
1512: x_return_status => x_return_status);
1513:
1514: -- check if activity started successfully
1515: If (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
1516: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1517: Elsif (l_return_status = OKC_API.G_RET_STS_ERROR) then
1518: raise OKC_API.G_EXCEPTION_ERROR;
1519: End If;
1512: x_return_status => x_return_status);
1513:
1514: -- check if activity started successfully
1515: If (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
1516: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1517: Elsif (l_return_status = OKC_API.G_RET_STS_ERROR) then
1518: raise OKC_API.G_EXCEPTION_ERROR;
1519: End If;
1520:
1513:
1514: -- check if activity started successfully
1515: If (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
1516: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1517: Elsif (l_return_status = OKC_API.G_RET_STS_ERROR) then
1518: raise OKC_API.G_EXCEPTION_ERROR;
1519: End If;
1520:
1521: okl_contract_pvt.delete_contract_line(
1514: -- check if activity started successfully
1515: If (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
1516: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1517: Elsif (l_return_status = OKC_API.G_RET_STS_ERROR) then
1518: raise OKC_API.G_EXCEPTION_ERROR;
1519: End If;
1520:
1521: okl_contract_pvt.delete_contract_line(
1522: p_api_version => p_api_version,
1527: p_clev_rec => l_clev_rec,
1528: p_klev_rec => l_klev_rec
1529: );
1530:
1531: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1532: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1533: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1534: raise OKC_API.G_EXCEPTION_ERROR;
1535: END IF;
1528: p_klev_rec => l_klev_rec
1529: );
1530:
1531: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1532: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1533: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1534: raise OKC_API.G_EXCEPTION_ERROR;
1535: END IF;
1536:
1529: );
1530:
1531: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1532: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1533: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1534: raise OKC_API.G_EXCEPTION_ERROR;
1535: END IF;
1536:
1537: --
1530:
1531: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1532: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1533: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1534: raise OKC_API.G_EXCEPTION_ERROR;
1535: END IF;
1536:
1537: --
1538: -- call procedure in complex API
1545: x_msg_data => x_msg_data,
1546: p_cimv_rec => l_cimv_rec);
1547:
1548: -- check return status
1549: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
1550: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1551: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
1552: raise OKC_API.G_EXCEPTION_ERROR;
1553: End If;
1546: p_cimv_rec => l_cimv_rec);
1547:
1548: -- check return status
1549: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
1550: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1551: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
1552: raise OKC_API.G_EXCEPTION_ERROR;
1553: End If;
1554:
1547:
1548: -- check return status
1549: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
1550: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1551: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
1552: raise OKC_API.G_EXCEPTION_ERROR;
1553: End If;
1554:
1555: --Bug# 4558486: Changed call to okl_k_party_roles_pvt api
1548: -- check return status
1549: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
1550: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1551: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
1552: raise OKC_API.G_EXCEPTION_ERROR;
1553: End If;
1554:
1555: --Bug# 4558486: Changed call to okl_k_party_roles_pvt api
1556: -- to delete records in tables
1575: p_cplv_rec => l_cplv_rec,
1576: p_kplv_rec => l_kplv_rec);
1577:
1578: -- check return status
1579: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
1580: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1581: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
1582: raise OKC_API.G_EXCEPTION_ERROR;
1583: End If;
1576: p_kplv_rec => l_kplv_rec);
1577:
1578: -- check return status
1579: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
1580: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1581: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
1582: raise OKC_API.G_EXCEPTION_ERROR;
1583: End If;
1584:
1577:
1578: -- check return status
1579: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
1580: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1581: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
1582: raise OKC_API.G_EXCEPTION_ERROR;
1583: End If;
1584:
1585: OKC_API.END_ACTIVITY(x_msg_count => x_msg_count,
1578: -- check return status
1579: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
1580: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1581: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
1582: raise OKC_API.G_EXCEPTION_ERROR;
1583: End If;
1584:
1585: OKC_API.END_ACTIVITY(x_msg_count => x_msg_count,
1586: x_msg_data => x_msg_data);
1581: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
1582: raise OKC_API.G_EXCEPTION_ERROR;
1583: End If;
1584:
1585: OKC_API.END_ACTIVITY(x_msg_count => x_msg_count,
1586: x_msg_data => x_msg_data);
1587: EXCEPTION
1588: when OKC_API.G_EXCEPTION_ERROR then
1589: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
1584:
1585: OKC_API.END_ACTIVITY(x_msg_count => x_msg_count,
1586: x_msg_data => x_msg_data);
1587: EXCEPTION
1588: when OKC_API.G_EXCEPTION_ERROR then
1589: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
1590: p_api_name => l_api_name,
1591: p_pkg_name => g_pkg_name,
1592: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
1585: OKC_API.END_ACTIVITY(x_msg_count => x_msg_count,
1586: x_msg_data => x_msg_data);
1587: EXCEPTION
1588: when OKC_API.G_EXCEPTION_ERROR then
1589: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
1590: p_api_name => l_api_name,
1591: p_pkg_name => g_pkg_name,
1592: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
1593: x_msg_count => x_msg_count,
1588: when OKC_API.G_EXCEPTION_ERROR then
1589: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
1590: p_api_name => l_api_name,
1591: p_pkg_name => g_pkg_name,
1592: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
1593: x_msg_count => x_msg_count,
1594: x_msg_data => x_msg_data,
1595: p_api_type => g_api_type);
1596:
1593: x_msg_count => x_msg_count,
1594: x_msg_data => x_msg_data,
1595: p_api_type => g_api_type);
1596:
1597: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
1598: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
1599: p_api_name => l_api_name,
1600: p_pkg_name => g_pkg_name,
1601: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
1594: x_msg_data => x_msg_data,
1595: p_api_type => g_api_type);
1596:
1597: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
1598: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
1599: p_api_name => l_api_name,
1600: p_pkg_name => g_pkg_name,
1601: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
1602: x_msg_count => x_msg_count,
1597: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
1598: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
1599: p_api_name => l_api_name,
1600: p_pkg_name => g_pkg_name,
1601: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
1602: x_msg_count => x_msg_count,
1603: x_msg_data => x_msg_data,
1604: p_api_type => g_api_type);
1605:
1603: x_msg_data => x_msg_data,
1604: p_api_type => g_api_type);
1605:
1606: when OTHERS then
1607: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
1608: p_api_name => l_api_name,
1609: p_pkg_name => g_pkg_name,
1610: p_exc_name => 'OTHERS',
1611: x_msg_count => x_msg_count,
1622: -- Version : 1.0
1623: -- End of comments
1624: PROCEDURE delete_contract_top_line(
1625: p_api_version IN NUMBER,
1626: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
1627: x_return_status OUT NOCOPY VARCHAR2,
1628: x_msg_count OUT NOCOPY NUMBER,
1629: x_msg_data OUT NOCOPY VARCHAR2,
1630: p_clev_tbl IN clev_tbl_type,
1634: ) IS
1635:
1636: l_api_name CONSTANT VARCHAR2(30) := 'DELETE_contract_top_line';
1637: l_api_version CONSTANT NUMBER := 1.0;
1638: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1639: l_overall_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1640: i NUMBER;
1641: l_klev_tbl klev_tbl_type := p_klev_tbl;
1642: l_cimv_tbl cimv_tbl_type := p_cimv_tbl;
1635:
1636: l_api_name CONSTANT VARCHAR2(30) := 'DELETE_contract_top_line';
1637: l_api_version CONSTANT NUMBER := 1.0;
1638: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1639: l_overall_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1640: i NUMBER;
1641: l_klev_tbl klev_tbl_type := p_klev_tbl;
1642: l_cimv_tbl cimv_tbl_type := p_cimv_tbl;
1643: l_cplv_tbl cplv_tbl_type := p_cplv_tbl;
1644: BEGIN
1645: /*
1646: -- call START_ACTIVITY to create savepoint, check compatibility
1647: -- and initialize message list
1648: l_return_status := OKC_API.START_ACTIVITY(
1649: p_api_name => l_api_name,
1650: p_pkg_name => g_pkg_name,
1651: p_init_msg_list => p_init_msg_list,
1652: l_api_version => l_api_version,
1654: p_api_type => g_api_type,
1655: x_return_status => x_return_status);
1656:
1657: -- check if activity started successfully
1658: If (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
1659: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1660: Elsif (l_return_status = OKC_API.G_RET_STS_ERROR) then
1661: raise OKC_API.G_EXCEPTION_ERROR;
1662: End If;
1655: x_return_status => x_return_status);
1656:
1657: -- check if activity started successfully
1658: If (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
1659: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1660: Elsif (l_return_status = OKC_API.G_RET_STS_ERROR) then
1661: raise OKC_API.G_EXCEPTION_ERROR;
1662: End If;
1663: */
1656:
1657: -- check if activity started successfully
1658: If (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
1659: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1660: Elsif (l_return_status = OKC_API.G_RET_STS_ERROR) then
1661: raise OKC_API.G_EXCEPTION_ERROR;
1662: End If;
1663: */
1664: If (p_clev_tbl.COUNT > 0) Then
1657: -- check if activity started successfully
1658: If (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
1659: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1660: Elsif (l_return_status = OKC_API.G_RET_STS_ERROR) then
1661: raise OKC_API.G_EXCEPTION_ERROR;
1662: End If;
1663: */
1664: If (p_clev_tbl.COUNT > 0) Then
1665: i := p_clev_tbl.FIRST;
1676: p_cimv_rec => l_cimv_tbl(i),
1677: p_cplv_rec => l_cplv_tbl(i)
1678: );
1679:
1680: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
1681: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1682: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
1683: raise OKC_API.G_EXCEPTION_ERROR;
1684: End If;
1677: p_cplv_rec => l_cplv_tbl(i)
1678: );
1679:
1680: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
1681: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1682: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
1683: raise OKC_API.G_EXCEPTION_ERROR;
1684: End If;
1685:
1678: );
1679:
1680: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
1681: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1682: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
1683: raise OKC_API.G_EXCEPTION_ERROR;
1684: End If;
1685:
1686: EXIT WHEN (i = p_clev_tbl.LAST);
1679:
1680: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
1681: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1682: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
1683: raise OKC_API.G_EXCEPTION_ERROR;
1684: End If;
1685:
1686: EXIT WHEN (i = p_clev_tbl.LAST);
1687: i := p_clev_tbl.NEXT(i);
1688: END LOOP;
1689:
1690: End If;
1691:
1692: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
1693: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1694: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
1695: raise OKC_API.G_EXCEPTION_ERROR;
1696: End If;
1689:
1690: End If;
1691:
1692: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
1693: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1694: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
1695: raise OKC_API.G_EXCEPTION_ERROR;
1696: End If;
1697: /*
1690: End If;
1691:
1692: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
1693: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1694: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
1695: raise OKC_API.G_EXCEPTION_ERROR;
1696: End If;
1697: /*
1698: OKC_API.END_ACTIVITY( x_msg_count => x_msg_count,
1691:
1692: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
1693: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1694: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
1695: raise OKC_API.G_EXCEPTION_ERROR;
1696: End If;
1697: /*
1698: OKC_API.END_ACTIVITY( x_msg_count => x_msg_count,
1699: x_msg_data => x_msg_data);
1694: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
1695: raise OKC_API.G_EXCEPTION_ERROR;
1696: End If;
1697: /*
1698: OKC_API.END_ACTIVITY( x_msg_count => x_msg_count,
1699: x_msg_data => x_msg_data);
1700: */
1701: EXCEPTION
1702: when OKC_API.G_EXCEPTION_ERROR then
1698: OKC_API.END_ACTIVITY( x_msg_count => x_msg_count,
1699: x_msg_data => x_msg_data);
1700: */
1701: EXCEPTION
1702: when OKC_API.G_EXCEPTION_ERROR then
1703: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
1704: p_api_name => l_api_name,
1705: p_pkg_name => g_pkg_name,
1706: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
1699: x_msg_data => x_msg_data);
1700: */
1701: EXCEPTION
1702: when OKC_API.G_EXCEPTION_ERROR then
1703: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
1704: p_api_name => l_api_name,
1705: p_pkg_name => g_pkg_name,
1706: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
1707: x_msg_count => x_msg_count,
1702: when OKC_API.G_EXCEPTION_ERROR then
1703: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
1704: p_api_name => l_api_name,
1705: p_pkg_name => g_pkg_name,
1706: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
1707: x_msg_count => x_msg_count,
1708: x_msg_data => x_msg_data,
1709: p_api_type => g_api_type);
1710:
1707: x_msg_count => x_msg_count,
1708: x_msg_data => x_msg_data,
1709: p_api_type => g_api_type);
1710:
1711: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
1712: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
1713: p_api_name => l_api_name,
1714: p_pkg_name => g_pkg_name,
1715: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
1708: x_msg_data => x_msg_data,
1709: p_api_type => g_api_type);
1710:
1711: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
1712: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
1713: p_api_name => l_api_name,
1714: p_pkg_name => g_pkg_name,
1715: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
1716: x_msg_count => x_msg_count,
1711: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
1712: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
1713: p_api_name => l_api_name,
1714: p_pkg_name => g_pkg_name,
1715: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
1716: x_msg_count => x_msg_count,
1717: x_msg_data => x_msg_data,
1718: p_api_type => g_api_type);
1719:
1717: x_msg_data => x_msg_data,
1718: p_api_type => g_api_type);
1719:
1720: when OTHERS then
1721: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
1722: p_api_name => l_api_name,
1723: p_pkg_name => g_pkg_name,
1724: p_exc_name => 'OTHERS',
1725: x_msg_count => x_msg_count,