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
983: End If;
984:
985: -- call START_ACTIVITY to create savepoint, check compatibility
986: -- and initialize message list
987: x_return_status := OKC_API.START_ACTIVITY(
988: p_api_name => l_api_name,
989: p_pkg_name => g_pkg_name,
990: p_init_msg_list => p_init_msg_list,
991: l_api_version => l_api_version,
993: p_api_type => g_api_type,
994: x_return_status => x_return_status);
995:
996: -- check if activity started successfully
997: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
998: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
999: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
1000: raise OKC_API.G_EXCEPTION_ERROR;
1001: End If;
994: x_return_status => x_return_status);
995:
996: -- check if activity started successfully
997: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
998: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
999: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
1000: raise OKC_API.G_EXCEPTION_ERROR;
1001: End If;
1002:
995:
996: -- check if activity started successfully
997: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
998: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
999: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
1000: raise OKC_API.G_EXCEPTION_ERROR;
1001: End If;
1002:
1003: l_clev_rec.name := l_clev_rec.item_description;
996: -- check if activity started successfully
997: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
998: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
999: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
1000: raise OKC_API.G_EXCEPTION_ERROR;
1001: End If;
1002:
1003: l_clev_rec.name := l_clev_rec.item_description;
1004:
1019:
1020: End If;
1021:
1022:
1023: If ( (l_clev_rec.start_date is null or l_clev_rec.start_date = OKC_API.G_MISS_DATE )
1024: or (l_clev_rec.end_date is null or l_clev_rec.end_date = OKC_API.G_MISS_DATE) )then
1025:
1026: open get_k_dates_csr(l_clev_rec.dnz_chr_id);
1027: fetch get_k_dates_csr into l_start_date, l_end_date;
1020: End If;
1021:
1022:
1023: If ( (l_clev_rec.start_date is null or l_clev_rec.start_date = OKC_API.G_MISS_DATE )
1024: or (l_clev_rec.end_date is null or l_clev_rec.end_date = OKC_API.G_MISS_DATE) )then
1025:
1026: open get_k_dates_csr(l_clev_rec.dnz_chr_id);
1027: fetch get_k_dates_csr into l_start_date, l_end_date;
1028: close get_k_dates_csr;
1026: open get_k_dates_csr(l_clev_rec.dnz_chr_id);
1027: fetch get_k_dates_csr into l_start_date, l_end_date;
1028: close get_k_dates_csr;
1029:
1030: If ( l_clev_rec.start_date is null or l_clev_rec.start_date = OKC_API.G_MISS_DATE) then
1031: l_clev_rec.start_date := l_start_date;
1032: End If;
1033:
1034: If ( l_clev_rec.end_date is null or l_clev_rec.end_date = OKC_API.G_MISS_DATE) then
1030: If ( l_clev_rec.start_date is null or l_clev_rec.start_date = OKC_API.G_MISS_DATE) then
1031: l_clev_rec.start_date := l_start_date;
1032: End If;
1033:
1034: If ( l_clev_rec.end_date is null or l_clev_rec.end_date = OKC_API.G_MISS_DATE) then
1035: l_clev_rec.end_date := l_end_date;
1036: End If;
1037:
1038: End If;
1059: x_clev_rec => x_clev_rec,
1060: x_klev_rec => x_klev_rec
1061: );
1062:
1063: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1064: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1065: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1066: raise OKC_API.G_EXCEPTION_ERROR;
1067: END IF;
1060: x_klev_rec => x_klev_rec
1061: );
1062:
1063: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1064: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1065: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1066: raise OKC_API.G_EXCEPTION_ERROR;
1067: END IF;
1068:
1061: );
1062:
1063: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1064: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1065: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1066: raise OKC_API.G_EXCEPTION_ERROR;
1067: END IF;
1068:
1069: --
1062:
1063: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1064: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1065: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1066: raise OKC_API.G_EXCEPTION_ERROR;
1067: END IF;
1068:
1069: --
1070: -- call procedure in complex API
1078: p_cimv_rec => l_cimv_rec,
1079: x_cimv_rec => x_cimv_rec);
1080:
1081: -- check return status
1082: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
1083: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1084: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
1085: raise OKC_API.G_EXCEPTION_ERROR;
1086: End If;
1079: x_cimv_rec => x_cimv_rec);
1080:
1081: -- check return status
1082: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
1083: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1084: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
1085: raise OKC_API.G_EXCEPTION_ERROR;
1086: End If;
1087:
1080:
1081: -- check return status
1082: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
1083: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1084: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
1085: raise OKC_API.G_EXCEPTION_ERROR;
1086: End If;
1087:
1088: -- Bug# 6438785
1081: -- check return status
1082: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
1083: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1084: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
1085: raise OKC_API.G_EXCEPTION_ERROR;
1086: End If;
1087:
1088: -- Bug# 6438785
1089: -- When the service line start date is changed, update the
1123: p_cplv_rec => l_cplv_rec,
1124: x_cplv_rec => x_cplv_rec);
1125:
1126: -- check return status
1127: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
1128: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1129: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
1130: raise OKC_API.G_EXCEPTION_ERROR;
1131: End If;
1124: x_cplv_rec => x_cplv_rec);
1125:
1126: -- check return status
1127: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
1128: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1129: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
1130: raise OKC_API.G_EXCEPTION_ERROR;
1131: End If;
1132:
1125:
1126: -- check return status
1127: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
1128: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1129: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
1130: raise OKC_API.G_EXCEPTION_ERROR;
1131: End If;
1132:
1133: else
1126: -- check return status
1127: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
1128: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1129: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
1130: raise OKC_API.G_EXCEPTION_ERROR;
1131: End If;
1132:
1133: else
1134:
1141: p_cplv_rec => l_cplv_rec,
1142: x_cplv_rec => x_cplv_rec);
1143:
1144: -- check return status
1145: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
1146: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1147: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
1148: raise OKC_API.G_EXCEPTION_ERROR;
1149: End If;
1142: x_cplv_rec => x_cplv_rec);
1143:
1144: -- check return status
1145: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
1146: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1147: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
1148: raise OKC_API.G_EXCEPTION_ERROR;
1149: End If;
1150:
1143:
1144: -- check return status
1145: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
1146: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1147: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
1148: raise OKC_API.G_EXCEPTION_ERROR;
1149: End If;
1150:
1151: end if;
1144: -- check return status
1145: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
1146: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1147: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
1148: raise OKC_API.G_EXCEPTION_ERROR;
1149: End If;
1150:
1151: end if;
1152:
1161: x_msg_data => x_msg_data,
1162: p_cplv_rec => l_cplv_rec);
1163:
1164: -- check return status
1165: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
1166: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1167: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
1168: raise OKC_API.G_EXCEPTION_ERROR;
1169: End If;
1162: p_cplv_rec => l_cplv_rec);
1163:
1164: -- check return status
1165: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
1166: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1167: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
1168: raise OKC_API.G_EXCEPTION_ERROR;
1169: End If;
1170: end if;*/
1163:
1164: -- check return status
1165: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
1166: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1167: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
1168: raise OKC_API.G_EXCEPTION_ERROR;
1169: End If;
1170: end if;*/
1171:
1164: -- check return status
1165: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
1166: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1167: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
1168: raise OKC_API.G_EXCEPTION_ERROR;
1169: End If;
1170: end if;*/
1171:
1172: OKC_API.END_ACTIVITY(x_msg_count => x_msg_count,
1168: raise OKC_API.G_EXCEPTION_ERROR;
1169: End If;
1170: end if;*/
1171:
1172: OKC_API.END_ACTIVITY(x_msg_count => x_msg_count,
1173: x_msg_data => x_msg_data);
1174:
1175: EXCEPTION
1176: when OKC_API.G_EXCEPTION_ERROR then
1172: OKC_API.END_ACTIVITY(x_msg_count => x_msg_count,
1173: x_msg_data => x_msg_data);
1174:
1175: EXCEPTION
1176: when OKC_API.G_EXCEPTION_ERROR then
1177: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
1178: p_api_name => l_api_name,
1179: p_pkg_name => g_pkg_name,
1180: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
1173: x_msg_data => x_msg_data);
1174:
1175: EXCEPTION
1176: when OKC_API.G_EXCEPTION_ERROR then
1177: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
1178: p_api_name => l_api_name,
1179: p_pkg_name => g_pkg_name,
1180: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
1181: x_msg_count => x_msg_count,
1176: when OKC_API.G_EXCEPTION_ERROR then
1177: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
1178: p_api_name => l_api_name,
1179: p_pkg_name => g_pkg_name,
1180: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
1181: x_msg_count => x_msg_count,
1182: x_msg_data => x_msg_data,
1183: p_api_type => g_api_type);
1184:
1181: x_msg_count => x_msg_count,
1182: x_msg_data => x_msg_data,
1183: p_api_type => g_api_type);
1184:
1185: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
1186: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
1187: p_api_name => l_api_name,
1188: p_pkg_name => g_pkg_name,
1189: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
1182: x_msg_data => x_msg_data,
1183: p_api_type => g_api_type);
1184:
1185: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
1186: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
1187: p_api_name => l_api_name,
1188: p_pkg_name => g_pkg_name,
1189: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
1190: x_msg_count => x_msg_count,
1185: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
1186: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
1187: p_api_name => l_api_name,
1188: p_pkg_name => g_pkg_name,
1189: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
1190: x_msg_count => x_msg_count,
1191: x_msg_data => x_msg_data,
1192: p_api_type => g_api_type);
1193:
1191: x_msg_data => x_msg_data,
1192: p_api_type => g_api_type);
1193:
1194: when OTHERS then
1195: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
1196: p_api_name => l_api_name,
1197: p_pkg_name => g_pkg_name,
1198: p_exc_name => 'OTHERS',
1199: x_msg_count => x_msg_count,
1211: -- Version : 1.0
1212: -- End of comments
1213: PROCEDURE update_contract_top_line(
1214: p_api_version IN NUMBER,
1215: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
1216: x_return_status OUT NOCOPY VARCHAR2,
1217: x_msg_count OUT NOCOPY NUMBER,
1218: x_msg_data OUT NOCOPY VARCHAR2,
1219: p_clev_tbl IN clev_tbl_type,
1226: x_cplv_tbl OUT NOCOPY cplv_tbl_type) IS
1227:
1228: l_api_name CONSTANT VARCHAR2(30) := 'UPDATE_contract_top_line';
1229: l_api_version CONSTANT NUMBER := 1.0;
1230: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1231: l_overall_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1232: i NUMBER;
1233: l_klev_tbl klev_tbl_type := p_klev_tbl;
1234: l_cimv_tbl cimv_tbl_type := p_cimv_tbl;
1227:
1228: l_api_name CONSTANT VARCHAR2(30) := 'UPDATE_contract_top_line';
1229: l_api_version CONSTANT NUMBER := 1.0;
1230: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1231: l_overall_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1232: i NUMBER;
1233: l_klev_tbl klev_tbl_type := p_klev_tbl;
1234: l_cimv_tbl cimv_tbl_type := p_cimv_tbl;
1235: l_cplv_tbl cplv_tbl_type := p_cplv_tbl;
1236: BEGIN
1237: /*
1238: -- call START_ACTIVITY to create savepoint, check compatibility
1239: -- and initialize message list
1240: l_return_status := OKC_API.START_ACTIVITY(
1241: p_api_name => l_api_name,
1242: p_pkg_name => g_pkg_name,
1243: p_init_msg_list => p_init_msg_list,
1244: l_api_version => l_api_version,
1246: p_api_type => g_api_type,
1247: x_return_status => x_return_status);
1248:
1249: -- check if activity started successfully
1250: If (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
1251: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1252: Elsif (l_return_status = OKC_API.G_RET_STS_ERROR) then
1253: raise OKC_API.G_EXCEPTION_ERROR;
1254: End If;
1247: x_return_status => x_return_status);
1248:
1249: -- check if activity started successfully
1250: If (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
1251: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1252: Elsif (l_return_status = OKC_API.G_RET_STS_ERROR) then
1253: raise OKC_API.G_EXCEPTION_ERROR;
1254: End If;
1255: */
1248:
1249: -- check if activity started successfully
1250: If (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
1251: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1252: Elsif (l_return_status = OKC_API.G_RET_STS_ERROR) then
1253: raise OKC_API.G_EXCEPTION_ERROR;
1254: End If;
1255: */
1256:
1249: -- check if activity started successfully
1250: If (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
1251: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1252: Elsif (l_return_status = OKC_API.G_RET_STS_ERROR) then
1253: raise OKC_API.G_EXCEPTION_ERROR;
1254: End If;
1255: */
1256:
1257: If (p_clev_tbl.COUNT > 0) Then
1272: x_klev_rec => x_klev_tbl(i),
1273: x_cimv_rec => x_cimv_tbl(i),
1274: x_cplv_rec => x_cplv_tbl(i));
1275:
1276: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
1277: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1278: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
1279: raise OKC_API.G_EXCEPTION_ERROR;
1280: End If;
1273: x_cimv_rec => x_cimv_tbl(i),
1274: x_cplv_rec => x_cplv_tbl(i));
1275:
1276: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
1277: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1278: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
1279: raise OKC_API.G_EXCEPTION_ERROR;
1280: End If;
1281:
1274: x_cplv_rec => x_cplv_tbl(i));
1275:
1276: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
1277: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1278: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
1279: raise OKC_API.G_EXCEPTION_ERROR;
1280: End If;
1281:
1282: EXIT WHEN (i = p_clev_tbl.LAST);
1275:
1276: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
1277: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1278: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
1279: raise OKC_API.G_EXCEPTION_ERROR;
1280: End If;
1281:
1282: EXIT WHEN (i = p_clev_tbl.LAST);
1283: i := p_clev_tbl.NEXT(i);
1284: END LOOP;
1285:
1286: End If;
1287:
1288: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
1289: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1290: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
1291: raise OKC_API.G_EXCEPTION_ERROR;
1292: End If;
1285:
1286: End If;
1287:
1288: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
1289: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1290: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
1291: raise OKC_API.G_EXCEPTION_ERROR;
1292: End If;
1293: /*
1286: End If;
1287:
1288: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
1289: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1290: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
1291: raise OKC_API.G_EXCEPTION_ERROR;
1292: End If;
1293: /*
1294: OKC_API.END_ACTIVITY( x_msg_count => x_msg_count,
1287:
1288: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
1289: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1290: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
1291: raise OKC_API.G_EXCEPTION_ERROR;
1292: End If;
1293: /*
1294: OKC_API.END_ACTIVITY( x_msg_count => x_msg_count,
1295: x_msg_data => x_msg_data);
1290: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
1291: raise OKC_API.G_EXCEPTION_ERROR;
1292: End If;
1293: /*
1294: OKC_API.END_ACTIVITY( x_msg_count => x_msg_count,
1295: x_msg_data => x_msg_data);
1296: */
1297: EXCEPTION
1298: when OKC_API.G_EXCEPTION_ERROR then
1294: OKC_API.END_ACTIVITY( x_msg_count => x_msg_count,
1295: x_msg_data => x_msg_data);
1296: */
1297: EXCEPTION
1298: when OKC_API.G_EXCEPTION_ERROR then
1299: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
1300: p_api_name => l_api_name,
1301: p_pkg_name => g_pkg_name,
1302: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
1295: x_msg_data => x_msg_data);
1296: */
1297: EXCEPTION
1298: when OKC_API.G_EXCEPTION_ERROR then
1299: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
1300: p_api_name => l_api_name,
1301: p_pkg_name => g_pkg_name,
1302: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
1303: x_msg_count => x_msg_count,
1298: when OKC_API.G_EXCEPTION_ERROR then
1299: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
1300: p_api_name => l_api_name,
1301: p_pkg_name => g_pkg_name,
1302: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
1303: x_msg_count => x_msg_count,
1304: x_msg_data => x_msg_data,
1305: p_api_type => g_api_type);
1306:
1303: x_msg_count => x_msg_count,
1304: x_msg_data => x_msg_data,
1305: p_api_type => g_api_type);
1306:
1307: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
1308: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
1309: p_api_name => l_api_name,
1310: p_pkg_name => g_pkg_name,
1311: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
1304: x_msg_data => x_msg_data,
1305: p_api_type => g_api_type);
1306:
1307: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
1308: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
1309: p_api_name => l_api_name,
1310: p_pkg_name => g_pkg_name,
1311: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
1312: x_msg_count => x_msg_count,
1307: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
1308: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
1309: p_api_name => l_api_name,
1310: p_pkg_name => g_pkg_name,
1311: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
1312: x_msg_count => x_msg_count,
1313: x_msg_data => x_msg_data,
1314: p_api_type => g_api_type);
1315:
1313: x_msg_data => x_msg_data,
1314: p_api_type => g_api_type);
1315:
1316: when OTHERS then
1317: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
1318: p_api_name => l_api_name,
1319: p_pkg_name => g_pkg_name,
1320: p_exc_name => 'OTHERS',
1321: x_msg_count => x_msg_count,
1326:
1327:
1328: PROCEDURE delete_contract_line(
1329: p_api_version IN NUMBER,
1330: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
1331: x_return_status OUT NOCOPY VARCHAR2,
1332: x_msg_count OUT NOCOPY NUMBER,
1333: x_msg_data OUT NOCOPY VARCHAR2,
1334: p_chr_id IN number,
1338: lp_klev_rec OKL_SERVICE_INTEGRATION_PUB.klev_rec_type;
1339:
1340: l_api_name CONSTANT VARCHAR2(30) := 'delete_contract_line';
1341: l_api_version CONSTANT NUMBER := 1.0;
1342: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1343:
1344: l_chr_id number := null;
1345:
1346: BEGIN
1351: End If;
1352:
1353: -- call START_ACTIVITY to create savepoint, check compatibility
1354: -- and initialize message list
1355: l_return_status := OKC_API.START_ACTIVITY(
1356: p_api_name => l_api_name,
1357: p_pkg_name => g_pkg_name,
1358: p_init_msg_list => p_init_msg_list,
1359: l_api_version => l_api_version,
1361: p_api_type => g_api_type,
1362: x_return_status => x_return_status);
1363:
1364: -- check if activity started successfully
1365: If (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
1366: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1367: Elsif (l_return_status = OKC_API.G_RET_STS_ERROR) then
1368: raise OKC_API.G_EXCEPTION_ERROR;
1369: End If;
1362: x_return_status => x_return_status);
1363:
1364: -- check if activity started successfully
1365: If (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
1366: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1367: Elsif (l_return_status = OKC_API.G_RET_STS_ERROR) then
1368: raise OKC_API.G_EXCEPTION_ERROR;
1369: End If;
1370:
1363:
1364: -- check if activity started successfully
1365: If (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
1366: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1367: Elsif (l_return_status = OKC_API.G_RET_STS_ERROR) then
1368: raise OKC_API.G_EXCEPTION_ERROR;
1369: End If;
1370:
1371: lp_clev_rec.dnz_chr_id := l_chr_id;
1364: -- check if activity started successfully
1365: If (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
1366: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1367: Elsif (l_return_status = OKC_API.G_RET_STS_ERROR) then
1368: raise OKC_API.G_EXCEPTION_ERROR;
1369: End If;
1370:
1371: lp_clev_rec.dnz_chr_id := l_chr_id;
1372: lp_clev_rec.id := p_cle_id;
1381: p_clev_rec => lp_clev_rec,
1382: p_klev_rec => lp_klev_rec
1383: );
1384:
1385: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1386: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1387: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1388: raise OKC_API.G_EXCEPTION_ERROR;
1389: END IF;
1382: p_klev_rec => lp_klev_rec
1383: );
1384:
1385: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1386: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1387: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1388: raise OKC_API.G_EXCEPTION_ERROR;
1389: END IF;
1390:
1383: );
1384:
1385: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1386: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1387: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1388: raise OKC_API.G_EXCEPTION_ERROR;
1389: END IF;
1390:
1391: OKC_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
1384:
1385: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1386: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1387: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1388: raise OKC_API.G_EXCEPTION_ERROR;
1389: END IF;
1390:
1391: OKC_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
1392:
1387: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1388: raise OKC_API.G_EXCEPTION_ERROR;
1389: END IF;
1390:
1391: OKC_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
1392:
1393: EXCEPTION
1394: when OKC_API.G_EXCEPTION_ERROR then
1395: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
1390:
1391: OKC_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
1392:
1393: EXCEPTION
1394: when OKC_API.G_EXCEPTION_ERROR then
1395: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
1396: p_api_name => l_api_name,
1397: p_pkg_name => g_pkg_name,
1398: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
1391: OKC_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
1392:
1393: EXCEPTION
1394: when OKC_API.G_EXCEPTION_ERROR then
1395: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
1396: p_api_name => l_api_name,
1397: p_pkg_name => g_pkg_name,
1398: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
1399: x_msg_count => x_msg_count,
1394: when OKC_API.G_EXCEPTION_ERROR then
1395: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
1396: p_api_name => l_api_name,
1397: p_pkg_name => g_pkg_name,
1398: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
1399: x_msg_count => x_msg_count,
1400: x_msg_data => x_msg_data,
1401: p_api_type => g_api_type);
1402:
1399: x_msg_count => x_msg_count,
1400: x_msg_data => x_msg_data,
1401: p_api_type => g_api_type);
1402:
1403: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
1404: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
1405: p_api_name => l_api_name,
1406: p_pkg_name => g_pkg_name,
1407: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
1400: x_msg_data => x_msg_data,
1401: p_api_type => g_api_type);
1402:
1403: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
1404: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
1405: p_api_name => l_api_name,
1406: p_pkg_name => g_pkg_name,
1407: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
1408: x_msg_count => x_msg_count,
1403: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
1404: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
1405: p_api_name => l_api_name,
1406: p_pkg_name => g_pkg_name,
1407: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
1408: x_msg_count => x_msg_count,
1409: x_msg_data => x_msg_data,
1410: p_api_type => g_api_type);
1411:
1409: x_msg_data => x_msg_data,
1410: p_api_type => g_api_type);
1411:
1412: when OTHERS then
1413: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
1414: p_api_name => l_api_name,
1415: p_pkg_name => g_pkg_name,
1416: p_exc_name => 'OTHERS',
1417: x_msg_count => x_msg_count,
1421:
1422:
1423: PROCEDURE delete_contract_top_line(
1424: p_api_version IN NUMBER,
1425: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
1426: x_return_status OUT NOCOPY VARCHAR2,
1427: x_msg_count OUT NOCOPY NUMBER,
1428: x_msg_data OUT NOCOPY VARCHAR2,
1429: p_clev_rec IN clev_rec_type,
1437: l_cplv_rec cplv_rec_type := p_cplv_rec;
1438:
1439: l_api_name CONSTANT VARCHAR2(30) := 'DELETE_contract_top_line';
1440: l_api_version CONSTANT NUMBER := 1.0;
1441: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1442:
1443: --Bug# 4558486
1444: l_kplv_rec okl_k_party_roles_pvt.kplv_rec_type;
1445:
1446: BEGIN
1447:
1448: -- call START_ACTIVITY to create savepoint, check compatibility
1449: -- and initialize message list
1450: l_return_status := OKC_API.START_ACTIVITY(
1451: p_api_name => l_api_name,
1452: p_pkg_name => g_pkg_name,
1453: p_init_msg_list => p_init_msg_list,
1454: l_api_version => l_api_version,
1456: p_api_type => g_api_type,
1457: x_return_status => x_return_status);
1458:
1459: -- check if activity started successfully
1460: If (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
1461: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1462: Elsif (l_return_status = OKC_API.G_RET_STS_ERROR) then
1463: raise OKC_API.G_EXCEPTION_ERROR;
1464: End If;
1457: x_return_status => x_return_status);
1458:
1459: -- check if activity started successfully
1460: If (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
1461: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1462: Elsif (l_return_status = OKC_API.G_RET_STS_ERROR) then
1463: raise OKC_API.G_EXCEPTION_ERROR;
1464: End If;
1465:
1458:
1459: -- check if activity started successfully
1460: If (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
1461: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1462: Elsif (l_return_status = OKC_API.G_RET_STS_ERROR) then
1463: raise OKC_API.G_EXCEPTION_ERROR;
1464: End If;
1465:
1466: okl_contract_pvt.delete_contract_line(
1459: -- check if activity started successfully
1460: If (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
1461: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1462: Elsif (l_return_status = OKC_API.G_RET_STS_ERROR) then
1463: raise OKC_API.G_EXCEPTION_ERROR;
1464: End If;
1465:
1466: okl_contract_pvt.delete_contract_line(
1467: p_api_version => p_api_version,
1472: p_clev_rec => l_clev_rec,
1473: p_klev_rec => l_klev_rec
1474: );
1475:
1476: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1477: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1478: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1479: raise OKC_API.G_EXCEPTION_ERROR;
1480: END IF;
1473: p_klev_rec => l_klev_rec
1474: );
1475:
1476: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1477: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1478: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1479: raise OKC_API.G_EXCEPTION_ERROR;
1480: END IF;
1481:
1474: );
1475:
1476: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1477: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1478: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1479: raise OKC_API.G_EXCEPTION_ERROR;
1480: END IF;
1481:
1482: --
1475:
1476: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1477: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1478: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1479: raise OKC_API.G_EXCEPTION_ERROR;
1480: END IF;
1481:
1482: --
1483: -- call procedure in complex API
1490: x_msg_data => x_msg_data,
1491: p_cimv_rec => l_cimv_rec);
1492:
1493: -- check return status
1494: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
1495: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1496: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
1497: raise OKC_API.G_EXCEPTION_ERROR;
1498: End If;
1491: p_cimv_rec => l_cimv_rec);
1492:
1493: -- check return status
1494: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
1495: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1496: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
1497: raise OKC_API.G_EXCEPTION_ERROR;
1498: End If;
1499:
1492:
1493: -- check return status
1494: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
1495: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1496: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
1497: raise OKC_API.G_EXCEPTION_ERROR;
1498: End If;
1499:
1500: --Bug# 4558486: Changed call to okl_k_party_roles_pvt api
1493: -- check return status
1494: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
1495: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1496: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
1497: raise OKC_API.G_EXCEPTION_ERROR;
1498: End If;
1499:
1500: --Bug# 4558486: Changed call to okl_k_party_roles_pvt api
1501: -- to delete records in tables
1520: p_cplv_rec => l_cplv_rec,
1521: p_kplv_rec => l_kplv_rec);
1522:
1523: -- check return status
1524: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
1525: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1526: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
1527: raise OKC_API.G_EXCEPTION_ERROR;
1528: End If;
1521: p_kplv_rec => l_kplv_rec);
1522:
1523: -- check return status
1524: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
1525: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1526: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
1527: raise OKC_API.G_EXCEPTION_ERROR;
1528: End If;
1529:
1522:
1523: -- check return status
1524: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
1525: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1526: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
1527: raise OKC_API.G_EXCEPTION_ERROR;
1528: End If;
1529:
1530: OKC_API.END_ACTIVITY(x_msg_count => x_msg_count,
1523: -- check return status
1524: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
1525: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1526: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
1527: raise OKC_API.G_EXCEPTION_ERROR;
1528: End If;
1529:
1530: OKC_API.END_ACTIVITY(x_msg_count => x_msg_count,
1531: x_msg_data => x_msg_data);
1526: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
1527: raise OKC_API.G_EXCEPTION_ERROR;
1528: End If;
1529:
1530: OKC_API.END_ACTIVITY(x_msg_count => x_msg_count,
1531: x_msg_data => x_msg_data);
1532: EXCEPTION
1533: when OKC_API.G_EXCEPTION_ERROR then
1534: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
1529:
1530: OKC_API.END_ACTIVITY(x_msg_count => x_msg_count,
1531: x_msg_data => x_msg_data);
1532: EXCEPTION
1533: when OKC_API.G_EXCEPTION_ERROR then
1534: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
1535: p_api_name => l_api_name,
1536: p_pkg_name => g_pkg_name,
1537: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
1530: OKC_API.END_ACTIVITY(x_msg_count => x_msg_count,
1531: x_msg_data => x_msg_data);
1532: EXCEPTION
1533: when OKC_API.G_EXCEPTION_ERROR then
1534: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
1535: p_api_name => l_api_name,
1536: p_pkg_name => g_pkg_name,
1537: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
1538: x_msg_count => x_msg_count,
1533: when OKC_API.G_EXCEPTION_ERROR then
1534: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
1535: p_api_name => l_api_name,
1536: p_pkg_name => g_pkg_name,
1537: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
1538: x_msg_count => x_msg_count,
1539: x_msg_data => x_msg_data,
1540: p_api_type => g_api_type);
1541:
1538: x_msg_count => x_msg_count,
1539: x_msg_data => x_msg_data,
1540: p_api_type => g_api_type);
1541:
1542: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
1543: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
1544: p_api_name => l_api_name,
1545: p_pkg_name => g_pkg_name,
1546: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
1539: x_msg_data => x_msg_data,
1540: p_api_type => g_api_type);
1541:
1542: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
1543: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
1544: p_api_name => l_api_name,
1545: p_pkg_name => g_pkg_name,
1546: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
1547: x_msg_count => x_msg_count,
1542: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
1543: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
1544: p_api_name => l_api_name,
1545: p_pkg_name => g_pkg_name,
1546: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
1547: x_msg_count => x_msg_count,
1548: x_msg_data => x_msg_data,
1549: p_api_type => g_api_type);
1550:
1548: x_msg_data => x_msg_data,
1549: p_api_type => g_api_type);
1550:
1551: when OTHERS then
1552: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
1553: p_api_name => l_api_name,
1554: p_pkg_name => g_pkg_name,
1555: p_exc_name => 'OTHERS',
1556: x_msg_count => x_msg_count,
1567: -- Version : 1.0
1568: -- End of comments
1569: PROCEDURE delete_contract_top_line(
1570: p_api_version IN NUMBER,
1571: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
1572: x_return_status OUT NOCOPY VARCHAR2,
1573: x_msg_count OUT NOCOPY NUMBER,
1574: x_msg_data OUT NOCOPY VARCHAR2,
1575: p_clev_tbl IN clev_tbl_type,
1579: ) IS
1580:
1581: l_api_name CONSTANT VARCHAR2(30) := 'DELETE_contract_top_line';
1582: l_api_version CONSTANT NUMBER := 1.0;
1583: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1584: l_overall_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1585: i NUMBER;
1586: l_klev_tbl klev_tbl_type := p_klev_tbl;
1587: l_cimv_tbl cimv_tbl_type := p_cimv_tbl;
1580:
1581: l_api_name CONSTANT VARCHAR2(30) := 'DELETE_contract_top_line';
1582: l_api_version CONSTANT NUMBER := 1.0;
1583: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1584: l_overall_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1585: i NUMBER;
1586: l_klev_tbl klev_tbl_type := p_klev_tbl;
1587: l_cimv_tbl cimv_tbl_type := p_cimv_tbl;
1588: l_cplv_tbl cplv_tbl_type := p_cplv_tbl;
1589: BEGIN
1590: /*
1591: -- call START_ACTIVITY to create savepoint, check compatibility
1592: -- and initialize message list
1593: l_return_status := OKC_API.START_ACTIVITY(
1594: p_api_name => l_api_name,
1595: p_pkg_name => g_pkg_name,
1596: p_init_msg_list => p_init_msg_list,
1597: l_api_version => l_api_version,
1599: p_api_type => g_api_type,
1600: x_return_status => x_return_status);
1601:
1602: -- check if activity started successfully
1603: If (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
1604: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1605: Elsif (l_return_status = OKC_API.G_RET_STS_ERROR) then
1606: raise OKC_API.G_EXCEPTION_ERROR;
1607: End If;
1600: x_return_status => x_return_status);
1601:
1602: -- check if activity started successfully
1603: If (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
1604: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1605: Elsif (l_return_status = OKC_API.G_RET_STS_ERROR) then
1606: raise OKC_API.G_EXCEPTION_ERROR;
1607: End If;
1608: */
1601:
1602: -- check if activity started successfully
1603: If (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
1604: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1605: Elsif (l_return_status = OKC_API.G_RET_STS_ERROR) then
1606: raise OKC_API.G_EXCEPTION_ERROR;
1607: End If;
1608: */
1609: If (p_clev_tbl.COUNT > 0) Then
1602: -- check if activity started successfully
1603: If (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
1604: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1605: Elsif (l_return_status = OKC_API.G_RET_STS_ERROR) then
1606: raise OKC_API.G_EXCEPTION_ERROR;
1607: End If;
1608: */
1609: If (p_clev_tbl.COUNT > 0) Then
1610: i := p_clev_tbl.FIRST;
1621: p_cimv_rec => l_cimv_tbl(i),
1622: p_cplv_rec => l_cplv_tbl(i)
1623: );
1624:
1625: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
1626: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1627: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
1628: raise OKC_API.G_EXCEPTION_ERROR;
1629: End If;
1622: p_cplv_rec => l_cplv_tbl(i)
1623: );
1624:
1625: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
1626: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1627: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
1628: raise OKC_API.G_EXCEPTION_ERROR;
1629: End If;
1630:
1623: );
1624:
1625: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
1626: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1627: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
1628: raise OKC_API.G_EXCEPTION_ERROR;
1629: End If;
1630:
1631: EXIT WHEN (i = p_clev_tbl.LAST);
1624:
1625: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
1626: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1627: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
1628: raise OKC_API.G_EXCEPTION_ERROR;
1629: End If;
1630:
1631: EXIT WHEN (i = p_clev_tbl.LAST);
1632: i := p_clev_tbl.NEXT(i);
1633: END LOOP;
1634:
1635: End If;
1636:
1637: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
1638: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1639: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
1640: raise OKC_API.G_EXCEPTION_ERROR;
1641: End If;
1634:
1635: End If;
1636:
1637: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
1638: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1639: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
1640: raise OKC_API.G_EXCEPTION_ERROR;
1641: End If;
1642: /*
1635: End If;
1636:
1637: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
1638: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1639: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
1640: raise OKC_API.G_EXCEPTION_ERROR;
1641: End If;
1642: /*
1643: OKC_API.END_ACTIVITY( x_msg_count => x_msg_count,
1636:
1637: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
1638: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1639: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
1640: raise OKC_API.G_EXCEPTION_ERROR;
1641: End If;
1642: /*
1643: OKC_API.END_ACTIVITY( x_msg_count => x_msg_count,
1644: x_msg_data => x_msg_data);
1639: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
1640: raise OKC_API.G_EXCEPTION_ERROR;
1641: End If;
1642: /*
1643: OKC_API.END_ACTIVITY( x_msg_count => x_msg_count,
1644: x_msg_data => x_msg_data);
1645: */
1646: EXCEPTION
1647: when OKC_API.G_EXCEPTION_ERROR then
1643: OKC_API.END_ACTIVITY( x_msg_count => x_msg_count,
1644: x_msg_data => x_msg_data);
1645: */
1646: EXCEPTION
1647: when OKC_API.G_EXCEPTION_ERROR then
1648: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
1649: p_api_name => l_api_name,
1650: p_pkg_name => g_pkg_name,
1651: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
1644: x_msg_data => x_msg_data);
1645: */
1646: EXCEPTION
1647: when OKC_API.G_EXCEPTION_ERROR then
1648: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
1649: p_api_name => l_api_name,
1650: p_pkg_name => g_pkg_name,
1651: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
1652: x_msg_count => x_msg_count,
1647: when OKC_API.G_EXCEPTION_ERROR then
1648: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
1649: p_api_name => l_api_name,
1650: p_pkg_name => g_pkg_name,
1651: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
1652: x_msg_count => x_msg_count,
1653: x_msg_data => x_msg_data,
1654: p_api_type => g_api_type);
1655:
1652: x_msg_count => x_msg_count,
1653: x_msg_data => x_msg_data,
1654: p_api_type => g_api_type);
1655:
1656: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
1657: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
1658: p_api_name => l_api_name,
1659: p_pkg_name => g_pkg_name,
1660: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
1653: x_msg_data => x_msg_data,
1654: p_api_type => g_api_type);
1655:
1656: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
1657: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
1658: p_api_name => l_api_name,
1659: p_pkg_name => g_pkg_name,
1660: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
1661: x_msg_count => x_msg_count,
1656: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
1657: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
1658: p_api_name => l_api_name,
1659: p_pkg_name => g_pkg_name,
1660: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
1661: x_msg_count => x_msg_count,
1662: x_msg_data => x_msg_data,
1663: p_api_type => g_api_type);
1664:
1662: x_msg_data => x_msg_data,
1663: p_api_type => g_api_type);
1664:
1665: when OTHERS then
1666: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
1667: p_api_name => l_api_name,
1668: p_pkg_name => g_pkg_name,
1669: p_exc_name => 'OTHERS',
1670: x_msg_count => x_msg_count,