201: -- End of Comments
202: ---------------------------------------------------------------------------
203: PROCEDURE crt_lseapp_thrdprt_ins(
204: p_api_version IN NUMBER,
205: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
206: x_return_status OUT NOCOPY VARCHAR2,
207: x_msg_count OUT NOCOPY NUMBER,
208: x_msg_data OUT NOCOPY VARCHAR2,
209: p_ipyv_rec IN ipyv_rec_type,
210: x_ipyv_rec OUT NOCOPY ipyv_rec_type)
211: IS
212: l_api_version CONSTANT NUMBER := 1;
213: l_api_name CONSTANT VARCHAR2(30) := 'crt_lseapp_thrdprt_ins';
214: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
215: CURSOR third_prty_exist(p_lapp_id IN NUMBER)IS
216: SELECT 'x'
217: FROM OKL_INS_POLICIES_B
218: WHERE lease_application_id = p_lapp_id
221: AND TRUNC(nvl(DATE_TO,SYSDATE)) > TRUNC(SYSDATE);
222:
223: l_dummy VARCHAR2(1) := '?';
224: BEGIN
225: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
226: G_PKG_NAME
227: ,p_init_msg_list
228: ,l_api_version
229: ,p_api_version
228: ,l_api_version
229: ,p_api_version
230: ,'_PROCESS'
231: ,l_return_status);
232: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)
233: THEN
234: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
235: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)
236: THEN
230: ,'_PROCESS'
231: ,l_return_status);
232: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)
233: THEN
234: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
235: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)
236: THEN
237: RAISE OKL_API.G_EXCEPTION_ERROR;
238: END IF;
231: ,l_return_status);
232: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)
233: THEN
234: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
235: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)
236: THEN
237: RAISE OKL_API.G_EXCEPTION_ERROR;
238: END IF;
239:
233: THEN
234: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
235: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)
236: THEN
237: RAISE OKL_API.G_EXCEPTION_ERROR;
238: END IF;
239:
240: -- check if lease application already has active third party policy
241: OPEN third_prty_exist(p_ipyv_rec.lease_application_id);
242: FETCH third_prty_exist INTO l_dummy;
243: CLOSE third_prty_exist;
244: IF ( l_dummy <> '?' )
245: THEN
246: OKL_API.set_message(g_app_name,'OKL_THIRD_PARTY_EXIST');
247: l_return_status := OKL_API.G_RET_STS_ERROR;
248: RAISE OKL_API.G_EXCEPTION_ERROR;
249: END IF;
250:
243: CLOSE third_prty_exist;
244: IF ( l_dummy <> '?' )
245: THEN
246: OKL_API.set_message(g_app_name,'OKL_THIRD_PARTY_EXIST');
247: l_return_status := OKL_API.G_RET_STS_ERROR;
248: RAISE OKL_API.G_EXCEPTION_ERROR;
249: END IF;
250:
251: -- Code for Debug Messages
244: IF ( l_dummy <> '?' )
245: THEN
246: OKL_API.set_message(g_app_name,'OKL_THIRD_PARTY_EXIST');
247: l_return_status := OKL_API.G_RET_STS_ERROR;
248: RAISE OKL_API.G_EXCEPTION_ERROR;
249: END IF;
250:
251: -- Code for Debug Messages
252: IF(L_DEBUG_ENABLED='Y')
264: END;
265: END IF;
266: Okl_Ins_Policies_Pub.insert_ins_policies(
267: p_api_version => l_api_version,
268: p_init_msg_list => OKL_API.G_FALSE,
269: x_return_status => l_return_status,
270: x_msg_count => x_msg_count,
271: x_msg_data => x_msg_data,
272: p_ipyv_rec => p_ipyv_rec,
279: ,L_MODULE
280: ,'End Debug OKLRINQB.pls call Okl_Ins_Policies_Pub.insert_ins_policies');
281: END;
282: END IF;
283: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)
284: THEN
285: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
286: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)
287: THEN
281: END;
282: END IF;
283: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)
284: THEN
285: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
286: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)
287: THEN
288: RAISE OKL_API.G_EXCEPTION_ERROR;
289: END IF;
282: END IF;
283: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)
284: THEN
285: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
286: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)
287: THEN
288: RAISE OKL_API.G_EXCEPTION_ERROR;
289: END IF;
290:
284: THEN
285: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
286: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)
287: THEN
288: RAISE OKL_API.G_EXCEPTION_ERROR;
289: END IF;
290:
291: x_return_status := l_return_status;
292: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
288: RAISE OKL_API.G_EXCEPTION_ERROR;
289: END IF;
290:
291: x_return_status := l_return_status;
292: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
293: EXCEPTION
294: WHEN OKL_API.G_EXCEPTION_ERROR
295: THEN
296: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
290:
291: x_return_status := l_return_status;
292: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
293: EXCEPTION
294: WHEN OKL_API.G_EXCEPTION_ERROR
295: THEN
296: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
297: l_api_name
298: ,G_PKG_NAME
292: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
293: EXCEPTION
294: WHEN OKL_API.G_EXCEPTION_ERROR
295: THEN
296: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
297: l_api_name
298: ,G_PKG_NAME
299: ,'OKL_API.G_RET_STS_ERROR'
300: ,x_msg_count
295: THEN
296: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
297: l_api_name
298: ,G_PKG_NAME
299: ,'OKL_API.G_RET_STS_ERROR'
300: ,x_msg_count
301: ,x_msg_data
302: ,'_PROCESS');
303: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR
299: ,'OKL_API.G_RET_STS_ERROR'
300: ,x_msg_count
301: ,x_msg_data
302: ,'_PROCESS');
303: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR
304: THEN
305: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
306: l_api_name
307: ,G_PKG_NAME
301: ,x_msg_data
302: ,'_PROCESS');
303: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR
304: THEN
305: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
306: l_api_name
307: ,G_PKG_NAME
308: ,'OKL_API.G_RET_STS_UNEXP_ERROR'
309: ,x_msg_count
304: THEN
305: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
306: l_api_name
307: ,G_PKG_NAME
308: ,'OKL_API.G_RET_STS_UNEXP_ERROR'
309: ,x_msg_count
310: ,x_msg_data
311: ,'_PROCESS');
312: WHEN OTHERS
310: ,x_msg_data
311: ,'_PROCESS');
312: WHEN OTHERS
313: THEN
314: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
315: l_api_name
316: ,G_PKG_NAME
317: ,'OTHERS'
318: ,x_msg_count
335: -- End of Comments
336: ---------------------------------------------------------------------------
337: PROCEDURE lseapp_thrdprty_to_ctrct(
338: p_api_version IN NUMBER,
339: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
340: x_return_status OUT NOCOPY VARCHAR2,
341: x_msg_count OUT NOCOPY NUMBER,
342: x_msg_data OUT NOCOPY VARCHAR2,
343: p_lakhr_id IN NUMBER,
344: x_ipyv_rec OUT NOCOPY ipyv_rec_type)
345: IS
346: l_api_version CONSTANT NUMBER := 1;
347: l_api_name CONSTANT VARCHAR2(30) := 'lsp_tp_con';
348: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
349: l_lease_application_id NUMBER;
350: l_third_party_ins_id NUMBER;
351: l_isu_id NUMBER;
352: l_ipyv_rec ipyv_rec_type;
385: and CPLB.JTOT_OBJECT1_CODE = 'OKX_PARTY'
386: and CPLB.RLE_CODE = 'EXTERNAL_PARTY';
387: l_dummy VARCHAR2(1) := '?';
388: BEGIN
389: l_return_status := OKL_API.START_ACTIVITY(
390: l_api_name
391: ,G_PKG_NAME
392: ,p_init_msg_list
393: ,l_api_version
393: ,l_api_version
394: ,p_api_version
395: ,'_PROCESS'
396: ,l_return_status);
397: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)
398: THEN
399: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
400: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)
401: THEN
395: ,'_PROCESS'
396: ,l_return_status);
397: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)
398: THEN
399: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
400: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)
401: THEN
402: RAISE OKL_API.G_EXCEPTION_ERROR;
403: END IF;
396: ,l_return_status);
397: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)
398: THEN
399: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
400: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)
401: THEN
402: RAISE OKL_API.G_EXCEPTION_ERROR;
403: END IF;
404: -- Check to see if there is existing active third party policy should be done
398: THEN
399: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
400: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)
401: THEN
402: RAISE OKL_API.G_EXCEPTION_ERROR;
403: END IF;
404: -- Check to see if there is existing active third party policy should be done
405: -- prior to call for this API in Authoring teams API.
406: -- Get Lease Application ID from which current contract is created
443: END IF;
444: -- gboomina 26-Oct-05 Bug#4558486 Start - Changed okl_okc_migration_pvt.create_k_party_role to okl_k_party_roles_pvt.create_k_party_role
445: okl_k_party_roles_pvt.create_k_party_role(
446: p_api_version => l_api_version,
447: p_init_msg_list => OKL_API.G_FALSE,
448: x_return_status => l_return_status,
449: x_msg_count => x_msg_count,
450: x_msg_data => x_msg_data ,
451: p_cplv_rec => l_cplv_rec_type,
463: ,'End Debug OKLRINQB.pls call okl_k_party_roles_pvt.create_k_party_role');
464: END;
465: END IF;
466: -- End of call to okl_k_party_roles_pvt.create_k_party_role
467: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)
468: THEN
469: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
470: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)
471: THEN
465: END IF;
466: -- End of call to okl_k_party_roles_pvt.create_k_party_role
467: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)
468: THEN
469: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
470: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)
471: THEN
472: RAISE OKL_API.G_EXCEPTION_ERROR;
473: END IF;
466: -- End of call to okl_k_party_roles_pvt.create_k_party_role
467: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)
468: THEN
469: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
470: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)
471: THEN
472: RAISE OKL_API.G_EXCEPTION_ERROR;
473: END IF;
474: END IF ;
468: THEN
469: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
470: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)
471: THEN
472: RAISE OKL_API.G_EXCEPTION_ERROR;
473: END IF;
474: END IF ;
475: --populate insurance policy record for updating with contract number
476: l_ipyv_rec.id := l_third_party_ins_id;
493: END IF;
494: IF l_ipyv_rec.id IS NOT NULL THEN
495: Okl_Ins_Policies_Pub.update_ins_policies(
496: p_api_version => l_api_version,
497: p_init_msg_list => OKL_API.G_FALSE,
498: x_return_status => l_return_status,
499: x_msg_count => x_msg_count,
500: x_msg_data => x_msg_data,
501: p_ipyv_rec => l_ipyv_rec,
508: ,L_MODULE
509: ,'End Debug OKLRINQB.pls call Okl_Ins_Policies_Pub.update_ins_policies');
510: END;
511: END IF;
512: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)
513: THEN
514: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
515: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)
516: THEN
510: END;
511: END IF;
512: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)
513: THEN
514: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
515: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)
516: THEN
517: RAISE OKL_API.G_EXCEPTION_ERROR;
518: END IF;
511: END IF;
512: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)
513: THEN
514: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
515: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)
516: THEN
517: RAISE OKL_API.G_EXCEPTION_ERROR;
518: END IF;
519: END IF;
513: THEN
514: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
515: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)
516: THEN
517: RAISE OKL_API.G_EXCEPTION_ERROR;
518: END IF;
519: END IF;
520: END IF;
521: x_return_status := l_return_status;
518: END IF;
519: END IF;
520: END IF;
521: x_return_status := l_return_status;
522: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
523: EXCEPTION
524: WHEN OKL_API.G_EXCEPTION_ERROR
525: THEN
526: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
520: END IF;
521: x_return_status := l_return_status;
522: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
523: EXCEPTION
524: WHEN OKL_API.G_EXCEPTION_ERROR
525: THEN
526: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
527: l_api_name
528: ,G_PKG_NAME
522: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
523: EXCEPTION
524: WHEN OKL_API.G_EXCEPTION_ERROR
525: THEN
526: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
527: l_api_name
528: ,G_PKG_NAME
529: ,'OKL_API.G_RET_STS_ERROR'
530: ,x_msg_count
525: THEN
526: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
527: l_api_name
528: ,G_PKG_NAME
529: ,'OKL_API.G_RET_STS_ERROR'
530: ,x_msg_count
531: ,x_msg_data
532: ,'_PROCESS');
533: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR
529: ,'OKL_API.G_RET_STS_ERROR'
530: ,x_msg_count
531: ,x_msg_data
532: ,'_PROCESS');
533: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR
534: THEN
535: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
536: l_api_name
537: ,G_PKG_NAME
531: ,x_msg_data
532: ,'_PROCESS');
533: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR
534: THEN
535: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
536: l_api_name
537: ,G_PKG_NAME
538: ,'OKL_API.G_RET_STS_UNEXP_ERROR'
539: ,x_msg_count
534: THEN
535: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
536: l_api_name
537: ,G_PKG_NAME
538: ,'OKL_API.G_RET_STS_UNEXP_ERROR'
539: ,x_msg_count
540: ,x_msg_data
541: ,'_PROCESS');
542: WHEN OTHERS
540: ,x_msg_data
541: ,'_PROCESS');
542: WHEN OTHERS
543: THEN
544: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
545: l_api_name
546: ,G_PKG_NAME
547: ,'OTHERS'
548: ,x_msg_count
576: OPEN okc_k_status_csr(p_khr_id);
577: FETCH okc_k_status_csr INTO x_contract_status ;
578: IF(okc_k_status_csr%NOTFOUND) THEN
579: -- store SQL error message on message stack for caller
580: OKL_API.set_message(G_APP_NAME,
581: G_INVALID_CONTRACT
582: );
583: CLOSE okc_k_status_csr ;
584: l_return_status := OKC_API.G_RET_STS_ERROR;
1263: END;
1264: END IF;
1265: OKL_SETUPPRODUCTS_PVT.Getpdt_parameters(
1266: l_api_version
1267: ,OKL_API.G_FALSE,
1268: x_return_status,
1269: x_no_data_found
1270: ,x_msg_count,
1271: x_msg_data
7858: end loop;
7859: if l_missing_streams is not null then
7860: l_missing_streams := substr(l_missing_streams,1,length(l_missing_streams)-2);
7861: -- message to display the missing streams in the stream generation template
7862: OKL_API.SET_MESSAGE(p_app_name => G_APP_NAME,
7863: p_msg_name => 'OKL_INS_STRM_PURPOSE_NOT_FOUND',
7864: p_token1 => 'STRM_TEM_NAME',
7865: p_token1_value => l_st_gen_tmpt_set,
7866: p_token2 => 'PURPOSES',