[Home] [Help]
55: | HISTORY: 20 March 2002 Created by Murthy |
56: *-------------------------------------------------------------------------- */
57: PROCEDURE create_header(
58: p_api_version IN NUMBER,
59: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
60: x_return_status OUT NOCOPY VARCHAR2,
61: x_msg_count OUT NOCOPY NUMBER,
62: x_msg_data OUT NOCOPY VARCHAR2,
63: p_hdr_rec IN program_header_rec_type,
105: l_api_version NUMBER := 1.0;
106:
107: l_api_name CONSTANT VARCHAR2(30) := 'create_header';
108:
109: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
110:
111: l_dummy VARCHAR2(1);
112: l_found BOOLEAN;
113:
149: l_access_level OKC_ROLE_SOURCES.access_level%TYPE;
150:
151: BEGIN
152:
153: /* l_return_status := OKL_API.START_ACTIVITY(p_api_name => l_api_name
154: ,p_init_msg_list => p_init_msg_list
155: ,p_api_type => '_PVT'
156: ,x_return_status => x_return_status
157: );
154: ,p_init_msg_list => p_init_msg_list
155: ,p_api_type => '_PVT'
156: ,x_return_status => x_return_status
157: );
158: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
159: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
160: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
161: RAISE OKL_API.G_EXCEPTION_ERROR;
162: END IF;
155: ,p_api_type => '_PVT'
156: ,x_return_status => x_return_status
157: );
158: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
159: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
160: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
161: RAISE OKL_API.G_EXCEPTION_ERROR;
162: END IF;
163: */
156: ,x_return_status => x_return_status
157: );
158: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
159: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
160: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
161: RAISE OKL_API.G_EXCEPTION_ERROR;
162: END IF;
163: */
164: -- setting the authoring org id and inv organization id
157: );
158: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
159: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
160: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
161: RAISE OKL_API.G_EXCEPTION_ERROR;
162: END IF;
163: */
164: -- setting the authoring org id and inv organization id
165:
243: -- call the create_contract_header
244: OKL_CONTRACT_PUB.create_contract_header(
245: p_api_version => l_api_version,
246: x_return_status => l_return_status,
247: p_init_msg_list => OKL_API.G_TRUE,
248: x_msg_count => l_msg_count,
249: x_msg_data => l_msg_data,
250: p_chrv_rec => l_header_rec,
251: p_khrv_rec => l_k_header_rec,
254: x_chrv_rec := x_header_rec;
255: x_khrv_rec := x_k_header_rec;
256: -- if the insert in the okc_k_headers_v is successful,then insert a record into okc_k_processes_v
257:
258: IF (l_return_status = OKL_API.G_RET_STS_SUCCESS) THEN
259:
260: IF (((p_hdr_rec.p_workflow_process) <> OKL_API.G_MISS_NUM) AND ((p_hdr_rec.p_workflow_process) IS NOT NULL))THEN
261:
262: l_contract_id :=x_header_rec.id;
256: -- if the insert in the okc_k_headers_v is successful,then insert a record into okc_k_processes_v
257:
258: IF (l_return_status = OKL_API.G_RET_STS_SUCCESS) THEN
259:
260: IF (((p_hdr_rec.p_workflow_process) <> OKL_API.G_MISS_NUM) AND ((p_hdr_rec.p_workflow_process) IS NOT NULL))THEN
261:
262: l_contract_id :=x_header_rec.id;
263: cpsv_rec_type1.chr_id :=l_contract_id;
264: cpsv_rec_type1.pdf_id :=p_hdr_rec.p_workflow_process;
264: cpsv_rec_type1.pdf_id :=p_hdr_rec.p_workflow_process;
265:
266: okc_contract_pub.create_contract_process(
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 => l_msg_count,
271: x_msg_data => l_msg_data,
272: p_cpsv_rec => cpsv_rec_type1,
271: x_msg_data => l_msg_data,
272: p_cpsv_rec => cpsv_rec_type1,
273: x_cpsv_rec => cpsv_rec_type2);
274:
275: IF (l_return_status = OKL_API.G_RET_STS_SUCCESS) THEN
276: NULL;
277: ELSE
278: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
279: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
274:
275: IF (l_return_status = OKL_API.G_RET_STS_SUCCESS) THEN
276: NULL;
277: ELSE
278: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
279: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
280: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
281: RAISE OKL_API.G_EXCEPTION_ERROR;
282: END IF;
275: IF (l_return_status = OKL_API.G_RET_STS_SUCCESS) THEN
276: NULL;
277: ELSE
278: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
279: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
280: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
281: RAISE OKL_API.G_EXCEPTION_ERROR;
282: END IF;
283: END IF;
276: NULL;
277: ELSE
278: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
279: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
280: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
281: RAISE OKL_API.G_EXCEPTION_ERROR;
282: END IF;
283: END IF;
284: END IF;
277: ELSE
278: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
279: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
280: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
281: RAISE OKL_API.G_EXCEPTION_ERROR;
282: END IF;
283: END IF;
284: END IF;
285:
283: END IF;
284: END IF;
285:
286: ELSE
287: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
288: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
289: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
290: RAISE OKL_API.G_EXCEPTION_ERROR;
291: END IF;
284: END IF;
285:
286: ELSE
287: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
288: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
289: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
290: RAISE OKL_API.G_EXCEPTION_ERROR;
291: END IF;
292:
285:
286: ELSE
287: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
288: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
289: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
290: RAISE OKL_API.G_EXCEPTION_ERROR;
291: END IF;
292:
293: END IF;
286: ELSE
287: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
288: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
289: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
290: RAISE OKL_API.G_EXCEPTION_ERROR;
291: END IF;
292:
293: END IF;
294:
300: CLOSE cur_jtot_object_code;
301: ELSE
302: CLOSE cur_jtot_object_code;
303: -- Murthy Set message to be registered
304: OKL_API.SET_MESSAGE(p_app_name => g_app_name,p_msg_name => 'OKL_JTOT_CODE_NOT_FOUND');
305: RAISE OKL_API.G_EXCEPTION_ERROR;
306: END IF;
307:
308: l_agreement_id := x_header_rec.id;
301: ELSE
302: CLOSE cur_jtot_object_code;
303: -- Murthy Set message to be registered
304: OKL_API.SET_MESSAGE(p_app_name => g_app_name,p_msg_name => 'OKL_JTOT_CODE_NOT_FOUND');
305: RAISE OKL_API.G_EXCEPTION_ERROR;
306: END IF;
307:
308: l_agreement_id := x_header_rec.id;
309: l_cplv_rec.chr_id := l_agreement_id;
332: p_object_name => l_cplv_rec.jtot_object1_code,
333: p_id1 => l_cplv_rec.object1_id1,
334: p_id2 => l_cplv_rec.object1_id2);
335:
336: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
337: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
338: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
339: RAISE OKL_API.G_EXCEPTION_ERROR;
340: END IF;
333: p_id1 => l_cplv_rec.object1_id1,
334: p_id2 => l_cplv_rec.object1_id2);
335:
336: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
337: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
338: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
339: RAISE OKL_API.G_EXCEPTION_ERROR;
340: END IF;
341:
334: p_id2 => l_cplv_rec.object1_id2);
335:
336: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
337: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
338: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
339: RAISE OKL_API.G_EXCEPTION_ERROR;
340: END IF;
341:
342: END IF;
335:
336: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
337: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
338: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
339: RAISE OKL_API.G_EXCEPTION_ERROR;
340: END IF;
341:
342: END IF;
343:
344: ---- Changes End
345:
346:
347: OKC_CONTRACT_PARTY_PUB.create_k_party_role(p_api_version => p_api_version,
348: p_init_msg_list => OKL_API.G_FALSE,
349: x_return_status => l_return_status,
350: x_msg_count => x_msg_count,
351: x_msg_data => x_msg_data,
352: p_cplv_rec => l_cplv_rec,
352: p_cplv_rec => l_cplv_rec,
353: x_cplv_rec => x_cplv_rec
354: );
355:
356: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
357: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
358: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
359: RAISE OKL_API.G_EXCEPTION_ERROR;
360: END IF;
353: x_cplv_rec => x_cplv_rec
354: );
355:
356: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
357: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
358: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
359: RAISE OKL_API.G_EXCEPTION_ERROR;
360: END IF;
361: -- End Creating Lessor
354: );
355:
356: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
357: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
358: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
359: RAISE OKL_API.G_EXCEPTION_ERROR;
360: END IF;
361: -- End Creating Lessor
362:
355:
356: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
357: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
358: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
359: RAISE OKL_API.G_EXCEPTION_ERROR;
360: END IF;
361: -- End Creating Lessor
362:
363: -- sjalasut, added creation of a rule group and rule for Lessor Residual Share percent. START
382: lv_rgr_tbl(2).warn_yn := 'N';
383: */
384:
385: okl_rgrp_rules_process_pub.process_rule_group_rules(p_api_version => p_api_version
386: ,p_init_msg_list => OKL_API.G_FALSE
387: ,x_return_status => x_return_status
388: ,x_msg_count => x_msg_count
389: ,x_msg_data => x_msg_data
390: ,p_chr_id => x_header_rec.id
401: END IF;
402:
403: -- sjalasut, added creation of a rule group and rule for Lessor Residual Share percent. END
404:
405: /* OKL_API.END_ACTIVITY(x_msg_count => x_msg_count
406: ,x_msg_data => x_msg_data
407: );
408: */
409: EXCEPTION
407: );
408: */
409: EXCEPTION
410:
411: WHEN OKL_API.G_EXCEPTION_ERROR THEN
412: x_return_status := OKL_API.G_RET_STS_ERROR;
413: /*x_return_status := OKL_API.HANDLE_EXCEPTIONS
414: (p_api_name => l_api_name
415: ,p_pkg_name => G_PKG_NAME
408: */
409: EXCEPTION
410:
411: WHEN OKL_API.G_EXCEPTION_ERROR THEN
412: x_return_status := OKL_API.G_RET_STS_ERROR;
413: /*x_return_status := OKL_API.HANDLE_EXCEPTIONS
414: (p_api_name => l_api_name
415: ,p_pkg_name => G_PKG_NAME
416: ,p_exc_name => 'OKL_API.G_RET_STS_ERROR'
409: EXCEPTION
410:
411: WHEN OKL_API.G_EXCEPTION_ERROR THEN
412: x_return_status := OKL_API.G_RET_STS_ERROR;
413: /*x_return_status := OKL_API.HANDLE_EXCEPTIONS
414: (p_api_name => l_api_name
415: ,p_pkg_name => G_PKG_NAME
416: ,p_exc_name => 'OKL_API.G_RET_STS_ERROR'
417: ,x_msg_count => x_msg_count
412: x_return_status := OKL_API.G_RET_STS_ERROR;
413: /*x_return_status := OKL_API.HANDLE_EXCEPTIONS
414: (p_api_name => l_api_name
415: ,p_pkg_name => G_PKG_NAME
416: ,p_exc_name => 'OKL_API.G_RET_STS_ERROR'
417: ,x_msg_count => x_msg_count
418: ,x_msg_data => x_msg_data
419: ,p_api_type => '_PVT'
420: );*/
418: ,x_msg_data => x_msg_data
419: ,p_api_type => '_PVT'
420: );*/
421:
422: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
423: x_return_status := OKL_API.G_RET_STS_ERROR;
424: /* x_return_status := OKL_API.HANDLE_EXCEPTIONS(
425: l_api_name
426: ,g_pkg_name
419: ,p_api_type => '_PVT'
420: );*/
421:
422: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
423: x_return_status := OKL_API.G_RET_STS_ERROR;
424: /* x_return_status := OKL_API.HANDLE_EXCEPTIONS(
425: l_api_name
426: ,g_pkg_name
427: ,'OKL_API.G_RET_STS_ERROR'
420: );*/
421:
422: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
423: x_return_status := OKL_API.G_RET_STS_ERROR;
424: /* x_return_status := OKL_API.HANDLE_EXCEPTIONS(
425: l_api_name
426: ,g_pkg_name
427: ,'OKL_API.G_RET_STS_ERROR'
428: ,x_msg_count
423: x_return_status := OKL_API.G_RET_STS_ERROR;
424: /* x_return_status := OKL_API.HANDLE_EXCEPTIONS(
425: l_api_name
426: ,g_pkg_name
427: ,'OKL_API.G_RET_STS_ERROR'
428: ,x_msg_count
429: ,x_msg_data
430: ,'_PVT'
431: );*/
430: ,'_PVT'
431: );*/
432:
433: WHEN OTHERS THEN
434: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
435: /* x_return_status := OKL_API.HANDLE_EXCEPTIONS(
436: l_api_name
437: ,g_pkg_name
438: ,'OTHERS'
431: );*/
432:
433: WHEN OTHERS THEN
434: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
435: /* x_return_status := OKL_API.HANDLE_EXCEPTIONS(
436: l_api_name
437: ,g_pkg_name
438: ,'OTHERS'
439: ,x_msg_count
449: | HISTORY: 20 March 2002 Created by Murthy |
450: *-------------------------------------------------------------------------- */
451: FUNCTION validate_attributes(p_hdr_rec program_header_rec_type,
452: p_parent_agreement_number IN okl_k_headers_full_v.contract_number%TYPE DEFAULT NULL) RETURN VARCHAR2 IS
453: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
454: l_dummy VARCHAR2(1);
455: l_found BOOLEAN;
456: BEGIN
457:
454: l_dummy VARCHAR2(1);
455: l_found BOOLEAN;
456: BEGIN
457:
458: IF ((p_hdr_rec.p_agreement_number = OKL_API.G_MISS_CHAR) OR (p_hdr_rec.p_agreement_number IS NULL)) THEN
459: OKL_API.SET_MESSAGE(p_app_name => g_app_name,p_msg_name => 'OKL_VP_AGREEMENT_NO_REQUIRED');
460: l_return_status :=okl_api.g_ret_sts_error;
461: return OKL_API.G_RET_STS_ERROR;
462: END IF;
455: l_found BOOLEAN;
456: BEGIN
457:
458: IF ((p_hdr_rec.p_agreement_number = OKL_API.G_MISS_CHAR) OR (p_hdr_rec.p_agreement_number IS NULL)) THEN
459: OKL_API.SET_MESSAGE(p_app_name => g_app_name,p_msg_name => 'OKL_VP_AGREEMENT_NO_REQUIRED');
460: l_return_status :=okl_api.g_ret_sts_error;
461: return OKL_API.G_RET_STS_ERROR;
462: END IF;
463:
456: BEGIN
457:
458: IF ((p_hdr_rec.p_agreement_number = OKL_API.G_MISS_CHAR) OR (p_hdr_rec.p_agreement_number IS NULL)) THEN
459: OKL_API.SET_MESSAGE(p_app_name => g_app_name,p_msg_name => 'OKL_VP_AGREEMENT_NO_REQUIRED');
460: l_return_status :=okl_api.g_ret_sts_error;
461: return OKL_API.G_RET_STS_ERROR;
462: END IF;
463:
464: -- check whether the contract already exists before calling the api.
457:
458: IF ((p_hdr_rec.p_agreement_number = OKL_API.G_MISS_CHAR) OR (p_hdr_rec.p_agreement_number IS NULL)) THEN
459: OKL_API.SET_MESSAGE(p_app_name => g_app_name,p_msg_name => 'OKL_VP_AGREEMENT_NO_REQUIRED');
460: l_return_status :=okl_api.g_ret_sts_error;
461: return OKL_API.G_RET_STS_ERROR;
462: END IF;
463:
464: -- check whether the contract already exists before calling the api.
465:
468: l_found := l_chr_csr2%FOUND;
469: CLOSE l_chr_csr2;
470:
471: IF (l_found) THEN
472: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
473: p_msg_name => 'OKL_VP_CONTRACT_EXISTS',
474: p_token1 => 'NUMBER',
475: p_token1_value => p_hdr_rec.p_agreement_number
476: );
473: p_msg_name => 'OKL_VP_CONTRACT_EXISTS',
474: p_token1 => 'NUMBER',
475: p_token1_value => p_hdr_rec.p_agreement_number
476: );
477: return OKL_API.G_RET_STS_ERROR;
478: END IF;
479:
480: IF ((p_hdr_rec.p_contract_category = OKL_API.G_MISS_CHAR) OR (p_hdr_rec.p_contract_category IS NULL)) THEN
481: OKL_API.SET_MESSAGE(p_app_name => g_app_name,p_msg_name => 'OKL_VP_CATEGORY_REQUIRED');
476: );
477: return OKL_API.G_RET_STS_ERROR;
478: END IF;
479:
480: IF ((p_hdr_rec.p_contract_category = OKL_API.G_MISS_CHAR) OR (p_hdr_rec.p_contract_category IS NULL)) THEN
481: OKL_API.SET_MESSAGE(p_app_name => g_app_name,p_msg_name => 'OKL_VP_CATEGORY_REQUIRED');
482: l_return_status :=okl_api.g_ret_sts_error;
483: return OKL_API.G_RET_STS_ERROR;
484: END IF;
477: return OKL_API.G_RET_STS_ERROR;
478: END IF;
479:
480: IF ((p_hdr_rec.p_contract_category = OKL_API.G_MISS_CHAR) OR (p_hdr_rec.p_contract_category IS NULL)) THEN
481: OKL_API.SET_MESSAGE(p_app_name => g_app_name,p_msg_name => 'OKL_VP_CATEGORY_REQUIRED');
482: l_return_status :=okl_api.g_ret_sts_error;
483: return OKL_API.G_RET_STS_ERROR;
484: END IF;
485:
478: END IF;
479:
480: IF ((p_hdr_rec.p_contract_category = OKL_API.G_MISS_CHAR) OR (p_hdr_rec.p_contract_category IS NULL)) THEN
481: OKL_API.SET_MESSAGE(p_app_name => g_app_name,p_msg_name => 'OKL_VP_CATEGORY_REQUIRED');
482: l_return_status :=okl_api.g_ret_sts_error;
483: return OKL_API.G_RET_STS_ERROR;
484: END IF;
485:
486:
479:
480: IF ((p_hdr_rec.p_contract_category = OKL_API.G_MISS_CHAR) OR (p_hdr_rec.p_contract_category IS NULL)) THEN
481: OKL_API.SET_MESSAGE(p_app_name => g_app_name,p_msg_name => 'OKL_VP_CATEGORY_REQUIRED');
482: l_return_status :=okl_api.g_ret_sts_error;
483: return OKL_API.G_RET_STS_ERROR;
484: END IF;
485:
486:
487:
488: -- Category is OPERATING
489: IF (p_hdr_rec.p_contract_category = 'OPERATING') THEN
490:
491: IF (p_hdr_rec.p_template_yn = 'Y') THEN
492: OKL_API.SET_MESSAGE(p_app_name => g_app_name,p_msg_name => 'OKL_OP_AGMT_NOT_SET_TMPL');
493: return OKL_API.G_RET_STS_ERROR;
494: END IF;
495:
496: IF(p_parent_agreement_number IS NOT NULL AND p_parent_agreement_number <> OKL_API.G_MISS_CHAR) THEN
489: IF (p_hdr_rec.p_contract_category = 'OPERATING') THEN
490:
491: IF (p_hdr_rec.p_template_yn = 'Y') THEN
492: OKL_API.SET_MESSAGE(p_app_name => g_app_name,p_msg_name => 'OKL_OP_AGMT_NOT_SET_TMPL');
493: return OKL_API.G_RET_STS_ERROR;
494: END IF;
495:
496: IF(p_parent_agreement_number IS NOT NULL AND p_parent_agreement_number <> OKL_API.G_MISS_CHAR) THEN
497: OKL_API.SET_MESSAGE(p_app_name => g_app_name,p_msg_name => 'OKL_OP_AGMT_NOT_HAVE_PRNT');
492: OKL_API.SET_MESSAGE(p_app_name => g_app_name,p_msg_name => 'OKL_OP_AGMT_NOT_SET_TMPL');
493: return OKL_API.G_RET_STS_ERROR;
494: END IF;
495:
496: IF(p_parent_agreement_number IS NOT NULL AND p_parent_agreement_number <> OKL_API.G_MISS_CHAR) THEN
497: OKL_API.SET_MESSAGE(p_app_name => g_app_name,p_msg_name => 'OKL_OP_AGMT_NOT_HAVE_PRNT');
498: return OKL_API.G_RET_STS_ERROR;
499: END IF;
500: /*--fmiao--
493: return OKL_API.G_RET_STS_ERROR;
494: END IF;
495:
496: IF(p_parent_agreement_number IS NOT NULL AND p_parent_agreement_number <> OKL_API.G_MISS_CHAR) THEN
497: OKL_API.SET_MESSAGE(p_app_name => g_app_name,p_msg_name => 'OKL_OP_AGMT_NOT_HAVE_PRNT');
498: return OKL_API.G_RET_STS_ERROR;
499: END IF;
500: /*--fmiao--
501: IF (p_hdr_rec.p_referred_id IS NOT NULL AND p_hdr_rec.p_referred_id <> OKL_API.G_MISS_NUM ) THEN
494: END IF;
495:
496: IF(p_parent_agreement_number IS NOT NULL AND p_parent_agreement_number <> OKL_API.G_MISS_CHAR) THEN
497: OKL_API.SET_MESSAGE(p_app_name => g_app_name,p_msg_name => 'OKL_OP_AGMT_NOT_HAVE_PRNT');
498: return OKL_API.G_RET_STS_ERROR;
499: END IF;
500: /*--fmiao--
501: IF (p_hdr_rec.p_referred_id IS NOT NULL AND p_hdr_rec.p_referred_id <> OKL_API.G_MISS_NUM ) THEN
502: OKL_API.SET_MESSAGE(p_app_name => g_app_name,p_msg_name => 'OKL_OP_AGMT_NOT_BE_REFRD');
497: OKL_API.SET_MESSAGE(p_app_name => g_app_name,p_msg_name => 'OKL_OP_AGMT_NOT_HAVE_PRNT');
498: return OKL_API.G_RET_STS_ERROR;
499: END IF;
500: /*--fmiao--
501: IF (p_hdr_rec.p_referred_id IS NOT NULL AND p_hdr_rec.p_referred_id <> OKL_API.G_MISS_NUM ) THEN
502: OKL_API.SET_MESSAGE(p_app_name => g_app_name,p_msg_name => 'OKL_OP_AGMT_NOT_BE_REFRD');
503: return OKL_API.G_RET_STS_ERROR;
504: END IF; --fmiao*/
505: /* IF (p_hdr_rec.p_object1_id1 <> OKL_API.G_MISS_CHAR AND p_hdr_rec.p_object1_id1 IS NOT NULL AND
498: return OKL_API.G_RET_STS_ERROR;
499: END IF;
500: /*--fmiao--
501: IF (p_hdr_rec.p_referred_id IS NOT NULL AND p_hdr_rec.p_referred_id <> OKL_API.G_MISS_NUM ) THEN
502: OKL_API.SET_MESSAGE(p_app_name => g_app_name,p_msg_name => 'OKL_OP_AGMT_NOT_BE_REFRD');
503: return OKL_API.G_RET_STS_ERROR;
504: END IF; --fmiao*/
505: /* IF (p_hdr_rec.p_object1_id1 <> OKL_API.G_MISS_CHAR AND p_hdr_rec.p_object1_id1 IS NOT NULL AND
506: p_hdr_rec.p_object1_id2 <> OKL_API.G_MISS_CHAR AND p_hdr_rec.p_object1_id2 IS NOT NULL) OR
499: END IF;
500: /*--fmiao--
501: IF (p_hdr_rec.p_referred_id IS NOT NULL AND p_hdr_rec.p_referred_id <> OKL_API.G_MISS_NUM ) THEN
502: OKL_API.SET_MESSAGE(p_app_name => g_app_name,p_msg_name => 'OKL_OP_AGMT_NOT_BE_REFRD');
503: return OKL_API.G_RET_STS_ERROR;
504: END IF; --fmiao*/
505: /* IF (p_hdr_rec.p_object1_id1 <> OKL_API.G_MISS_CHAR AND p_hdr_rec.p_object1_id1 IS NOT NULL AND
506: p_hdr_rec.p_object1_id2 <> OKL_API.G_MISS_CHAR AND p_hdr_rec.p_object1_id2 IS NOT NULL) OR
507: ( p_hdr_rec.p_template_yn <> 'N' AND p_hdr_rec.p_template_yn <> OKL_API.G_MISS_CHAR ) THEN
501: IF (p_hdr_rec.p_referred_id IS NOT NULL AND p_hdr_rec.p_referred_id <> OKL_API.G_MISS_NUM ) THEN
502: OKL_API.SET_MESSAGE(p_app_name => g_app_name,p_msg_name => 'OKL_OP_AGMT_NOT_BE_REFRD');
503: return OKL_API.G_RET_STS_ERROR;
504: END IF; --fmiao*/
505: /* IF (p_hdr_rec.p_object1_id1 <> OKL_API.G_MISS_CHAR AND p_hdr_rec.p_object1_id1 IS NOT NULL AND
506: p_hdr_rec.p_object1_id2 <> OKL_API.G_MISS_CHAR AND p_hdr_rec.p_object1_id2 IS NOT NULL) OR
507: ( p_hdr_rec.p_template_yn <> 'N' AND p_hdr_rec.p_template_yn <> OKL_API.G_MISS_CHAR ) THEN
508: NULL;
509: ELSE
502: OKL_API.SET_MESSAGE(p_app_name => g_app_name,p_msg_name => 'OKL_OP_AGMT_NOT_BE_REFRD');
503: return OKL_API.G_RET_STS_ERROR;
504: END IF; --fmiao*/
505: /* IF (p_hdr_rec.p_object1_id1 <> OKL_API.G_MISS_CHAR AND p_hdr_rec.p_object1_id1 IS NOT NULL AND
506: p_hdr_rec.p_object1_id2 <> OKL_API.G_MISS_CHAR AND p_hdr_rec.p_object1_id2 IS NOT NULL) OR
507: ( p_hdr_rec.p_template_yn <> 'N' AND p_hdr_rec.p_template_yn <> OKL_API.G_MISS_CHAR ) THEN
508: NULL;
509: ELSE
510: OKL_API.SET_MESSAGE(p_app_name => g_app_name,p_msg_name => 'OKL_VP_VENDOR_REQUIRED');
503: return OKL_API.G_RET_STS_ERROR;
504: END IF; --fmiao*/
505: /* IF (p_hdr_rec.p_object1_id1 <> OKL_API.G_MISS_CHAR AND p_hdr_rec.p_object1_id1 IS NOT NULL AND
506: p_hdr_rec.p_object1_id2 <> OKL_API.G_MISS_CHAR AND p_hdr_rec.p_object1_id2 IS NOT NULL) OR
507: ( p_hdr_rec.p_template_yn <> 'N' AND p_hdr_rec.p_template_yn <> OKL_API.G_MISS_CHAR ) THEN
508: NULL;
509: ELSE
510: OKL_API.SET_MESSAGE(p_app_name => g_app_name,p_msg_name => 'OKL_VP_VENDOR_REQUIRED');
511: return OKL_API.G_RET_STS_ERROR;
506: p_hdr_rec.p_object1_id2 <> OKL_API.G_MISS_CHAR AND p_hdr_rec.p_object1_id2 IS NOT NULL) OR
507: ( p_hdr_rec.p_template_yn <> 'N' AND p_hdr_rec.p_template_yn <> OKL_API.G_MISS_CHAR ) THEN
508: NULL;
509: ELSE
510: OKL_API.SET_MESSAGE(p_app_name => g_app_name,p_msg_name => 'OKL_VP_VENDOR_REQUIRED');
511: return OKL_API.G_RET_STS_ERROR;
512: END IF;
513: */
514: IF ((p_hdr_rec.p_object1_id1 = OKL_API.G_MISS_CHAR) OR (p_hdr_rec.p_object1_id1 IS NULL) OR
507: ( p_hdr_rec.p_template_yn <> 'N' AND p_hdr_rec.p_template_yn <> OKL_API.G_MISS_CHAR ) THEN
508: NULL;
509: ELSE
510: OKL_API.SET_MESSAGE(p_app_name => g_app_name,p_msg_name => 'OKL_VP_VENDOR_REQUIRED');
511: return OKL_API.G_RET_STS_ERROR;
512: END IF;
513: */
514: IF ((p_hdr_rec.p_object1_id1 = OKL_API.G_MISS_CHAR) OR (p_hdr_rec.p_object1_id1 IS NULL) OR
515: (p_hdr_rec.p_object1_id2 = OKL_API.G_MISS_CHAR) OR (p_hdr_rec.p_object1_id2 IS NULL)) AND
510: OKL_API.SET_MESSAGE(p_app_name => g_app_name,p_msg_name => 'OKL_VP_VENDOR_REQUIRED');
511: return OKL_API.G_RET_STS_ERROR;
512: END IF;
513: */
514: IF ((p_hdr_rec.p_object1_id1 = OKL_API.G_MISS_CHAR) OR (p_hdr_rec.p_object1_id1 IS NULL) OR
515: (p_hdr_rec.p_object1_id2 = OKL_API.G_MISS_CHAR) OR (p_hdr_rec.p_object1_id2 IS NULL)) AND
516: (p_hdr_rec.p_template_yn = 'N' OR p_hdr_rec.p_template_yn = OKL_API.G_MISS_CHAR ) THEN
517: OKL_API.SET_MESSAGE(p_app_name => g_app_name,p_msg_name => 'OKL_VP_VENDOR_REQUIRED');
518: return OKL_API.G_RET_STS_ERROR;
511: return OKL_API.G_RET_STS_ERROR;
512: END IF;
513: */
514: IF ((p_hdr_rec.p_object1_id1 = OKL_API.G_MISS_CHAR) OR (p_hdr_rec.p_object1_id1 IS NULL) OR
515: (p_hdr_rec.p_object1_id2 = OKL_API.G_MISS_CHAR) OR (p_hdr_rec.p_object1_id2 IS NULL)) AND
516: (p_hdr_rec.p_template_yn = 'N' OR p_hdr_rec.p_template_yn = OKL_API.G_MISS_CHAR ) THEN
517: OKL_API.SET_MESSAGE(p_app_name => g_app_name,p_msg_name => 'OKL_VP_VENDOR_REQUIRED');
518: return OKL_API.G_RET_STS_ERROR;
519: END IF;
512: END IF;
513: */
514: IF ((p_hdr_rec.p_object1_id1 = OKL_API.G_MISS_CHAR) OR (p_hdr_rec.p_object1_id1 IS NULL) OR
515: (p_hdr_rec.p_object1_id2 = OKL_API.G_MISS_CHAR) OR (p_hdr_rec.p_object1_id2 IS NULL)) AND
516: (p_hdr_rec.p_template_yn = 'N' OR p_hdr_rec.p_template_yn = OKL_API.G_MISS_CHAR ) THEN
517: OKL_API.SET_MESSAGE(p_app_name => g_app_name,p_msg_name => 'OKL_VP_VENDOR_REQUIRED');
518: return OKL_API.G_RET_STS_ERROR;
519: END IF;
520: -- Category is PROGRAM
513: */
514: IF ((p_hdr_rec.p_object1_id1 = OKL_API.G_MISS_CHAR) OR (p_hdr_rec.p_object1_id1 IS NULL) OR
515: (p_hdr_rec.p_object1_id2 = OKL_API.G_MISS_CHAR) OR (p_hdr_rec.p_object1_id2 IS NULL)) AND
516: (p_hdr_rec.p_template_yn = 'N' OR p_hdr_rec.p_template_yn = OKL_API.G_MISS_CHAR ) THEN
517: OKL_API.SET_MESSAGE(p_app_name => g_app_name,p_msg_name => 'OKL_VP_VENDOR_REQUIRED');
518: return OKL_API.G_RET_STS_ERROR;
519: END IF;
520: -- Category is PROGRAM
521: ELSIF (p_hdr_rec.p_contract_category = 'PROGRAM') THEN
514: IF ((p_hdr_rec.p_object1_id1 = OKL_API.G_MISS_CHAR) OR (p_hdr_rec.p_object1_id1 IS NULL) OR
515: (p_hdr_rec.p_object1_id2 = OKL_API.G_MISS_CHAR) OR (p_hdr_rec.p_object1_id2 IS NULL)) AND
516: (p_hdr_rec.p_template_yn = 'N' OR p_hdr_rec.p_template_yn = OKL_API.G_MISS_CHAR ) THEN
517: OKL_API.SET_MESSAGE(p_app_name => g_app_name,p_msg_name => 'OKL_VP_VENDOR_REQUIRED');
518: return OKL_API.G_RET_STS_ERROR;
519: END IF;
520: -- Category is PROGRAM
521: ELSIF (p_hdr_rec.p_contract_category = 'PROGRAM') THEN
522:
521: ELSIF (p_hdr_rec.p_contract_category = 'PROGRAM') THEN
522:
523: -- IF(p_hdr_rec.p_template_yn = 'N') THEN
524: /*--fmiao--
525: IF (p_parent_agreement_number IS NOT NULL AND p_parent_agreement_number <> OKL_API.G_MISS_CHAR AND
526: p_hdr_rec.p_referred_id IS NOT NULL AND p_hdr_rec.p_referred_id <> OKL_API.G_MISS_NUM ) THEN
527: OKL_API.SET_MESSAGE(p_app_name => g_app_name,p_msg_name => 'OKL_PRG_NOT_HAVE_BOTH_OP_PRG');
528: return OKL_API.G_RET_STS_ERROR;
529: ELSIF ( (p_parent_agreement_number IS NULL OR p_parent_agreement_number = OKL_API.G_MISS_CHAR) AND
522:
523: -- IF(p_hdr_rec.p_template_yn = 'N') THEN
524: /*--fmiao--
525: IF (p_parent_agreement_number IS NOT NULL AND p_parent_agreement_number <> OKL_API.G_MISS_CHAR AND
526: p_hdr_rec.p_referred_id IS NOT NULL AND p_hdr_rec.p_referred_id <> OKL_API.G_MISS_NUM ) THEN
527: OKL_API.SET_MESSAGE(p_app_name => g_app_name,p_msg_name => 'OKL_PRG_NOT_HAVE_BOTH_OP_PRG');
528: return OKL_API.G_RET_STS_ERROR;
529: ELSIF ( (p_parent_agreement_number IS NULL OR p_parent_agreement_number = OKL_API.G_MISS_CHAR) AND
530: (p_hdr_rec.p_referred_id IS NULL OR p_hdr_rec.p_referred_id = OKL_API.G_MISS_NUM) ) THEN
523: -- IF(p_hdr_rec.p_template_yn = 'N') THEN
524: /*--fmiao--
525: IF (p_parent_agreement_number IS NOT NULL AND p_parent_agreement_number <> OKL_API.G_MISS_CHAR AND
526: p_hdr_rec.p_referred_id IS NOT NULL AND p_hdr_rec.p_referred_id <> OKL_API.G_MISS_NUM ) THEN
527: OKL_API.SET_MESSAGE(p_app_name => g_app_name,p_msg_name => 'OKL_PRG_NOT_HAVE_BOTH_OP_PRG');
528: return OKL_API.G_RET_STS_ERROR;
529: ELSIF ( (p_parent_agreement_number IS NULL OR p_parent_agreement_number = OKL_API.G_MISS_CHAR) AND
530: (p_hdr_rec.p_referred_id IS NULL OR p_hdr_rec.p_referred_id = OKL_API.G_MISS_NUM) ) THEN
531: IF(p_hdr_rec.p_template_yn = 'Y') THEN
524: /*--fmiao--
525: IF (p_parent_agreement_number IS NOT NULL AND p_parent_agreement_number <> OKL_API.G_MISS_CHAR AND
526: p_hdr_rec.p_referred_id IS NOT NULL AND p_hdr_rec.p_referred_id <> OKL_API.G_MISS_NUM ) THEN
527: OKL_API.SET_MESSAGE(p_app_name => g_app_name,p_msg_name => 'OKL_PRG_NOT_HAVE_BOTH_OP_PRG');
528: return OKL_API.G_RET_STS_ERROR;
529: ELSIF ( (p_parent_agreement_number IS NULL OR p_parent_agreement_number = OKL_API.G_MISS_CHAR) AND
530: (p_hdr_rec.p_referred_id IS NULL OR p_hdr_rec.p_referred_id = OKL_API.G_MISS_NUM) ) THEN
531: IF(p_hdr_rec.p_template_yn = 'Y') THEN
532: OKL_API.SET_MESSAGE(p_app_name => g_app_name,p_msg_name => 'OKL_EITHER_PRNT_OR_REF');
525: IF (p_parent_agreement_number IS NOT NULL AND p_parent_agreement_number <> OKL_API.G_MISS_CHAR AND
526: p_hdr_rec.p_referred_id IS NOT NULL AND p_hdr_rec.p_referred_id <> OKL_API.G_MISS_NUM ) THEN
527: OKL_API.SET_MESSAGE(p_app_name => g_app_name,p_msg_name => 'OKL_PRG_NOT_HAVE_BOTH_OP_PRG');
528: return OKL_API.G_RET_STS_ERROR;
529: ELSIF ( (p_parent_agreement_number IS NULL OR p_parent_agreement_number = OKL_API.G_MISS_CHAR) AND
530: (p_hdr_rec.p_referred_id IS NULL OR p_hdr_rec.p_referred_id = OKL_API.G_MISS_NUM) ) THEN
531: IF(p_hdr_rec.p_template_yn = 'Y') THEN
532: OKL_API.SET_MESSAGE(p_app_name => g_app_name,p_msg_name => 'OKL_EITHER_PRNT_OR_REF');
533: return OKL_API.G_RET_STS_ERROR;
526: p_hdr_rec.p_referred_id IS NOT NULL AND p_hdr_rec.p_referred_id <> OKL_API.G_MISS_NUM ) THEN
527: OKL_API.SET_MESSAGE(p_app_name => g_app_name,p_msg_name => 'OKL_PRG_NOT_HAVE_BOTH_OP_PRG');
528: return OKL_API.G_RET_STS_ERROR;
529: ELSIF ( (p_parent_agreement_number IS NULL OR p_parent_agreement_number = OKL_API.G_MISS_CHAR) AND
530: (p_hdr_rec.p_referred_id IS NULL OR p_hdr_rec.p_referred_id = OKL_API.G_MISS_NUM) ) THEN
531: IF(p_hdr_rec.p_template_yn = 'Y') THEN
532: OKL_API.SET_MESSAGE(p_app_name => g_app_name,p_msg_name => 'OKL_EITHER_PRNT_OR_REF');
533: return OKL_API.G_RET_STS_ERROR;
534: END IF;
528: return OKL_API.G_RET_STS_ERROR;
529: ELSIF ( (p_parent_agreement_number IS NULL OR p_parent_agreement_number = OKL_API.G_MISS_CHAR) AND
530: (p_hdr_rec.p_referred_id IS NULL OR p_hdr_rec.p_referred_id = OKL_API.G_MISS_NUM) ) THEN
531: IF(p_hdr_rec.p_template_yn = 'Y') THEN
532: OKL_API.SET_MESSAGE(p_app_name => g_app_name,p_msg_name => 'OKL_EITHER_PRNT_OR_REF');
533: return OKL_API.G_RET_STS_ERROR;
534: END IF;
535: END IF; --fmiao--*/
536: IF ((p_hdr_rec.p_object1_id1 = OKL_API.G_MISS_CHAR) OR (p_hdr_rec.p_object1_id1 IS NULL) OR
529: ELSIF ( (p_parent_agreement_number IS NULL OR p_parent_agreement_number = OKL_API.G_MISS_CHAR) AND
530: (p_hdr_rec.p_referred_id IS NULL OR p_hdr_rec.p_referred_id = OKL_API.G_MISS_NUM) ) THEN
531: IF(p_hdr_rec.p_template_yn = 'Y') THEN
532: OKL_API.SET_MESSAGE(p_app_name => g_app_name,p_msg_name => 'OKL_EITHER_PRNT_OR_REF');
533: return OKL_API.G_RET_STS_ERROR;
534: END IF;
535: END IF; --fmiao--*/
536: IF ((p_hdr_rec.p_object1_id1 = OKL_API.G_MISS_CHAR) OR (p_hdr_rec.p_object1_id1 IS NULL) OR
537: (p_hdr_rec.p_object1_id2 = OKL_API.G_MISS_CHAR) OR (p_hdr_rec.p_object1_id2 IS NULL)) AND
532: OKL_API.SET_MESSAGE(p_app_name => g_app_name,p_msg_name => 'OKL_EITHER_PRNT_OR_REF');
533: return OKL_API.G_RET_STS_ERROR;
534: END IF;
535: END IF; --fmiao--*/
536: IF ((p_hdr_rec.p_object1_id1 = OKL_API.G_MISS_CHAR) OR (p_hdr_rec.p_object1_id1 IS NULL) OR
537: (p_hdr_rec.p_object1_id2 = OKL_API.G_MISS_CHAR) OR (p_hdr_rec.p_object1_id2 IS NULL)) AND
538: (p_hdr_rec.p_template_yn = 'N' OR p_hdr_rec.p_template_yn = OKL_API.G_MISS_CHAR ) THEN
539: OKL_API.SET_MESSAGE(p_app_name => g_app_name,p_msg_name => 'OKL_VP_VENDOR_REQUIRED');
540: return OKL_API.G_RET_STS_ERROR;
533: return OKL_API.G_RET_STS_ERROR;
534: END IF;
535: END IF; --fmiao--*/
536: IF ((p_hdr_rec.p_object1_id1 = OKL_API.G_MISS_CHAR) OR (p_hdr_rec.p_object1_id1 IS NULL) OR
537: (p_hdr_rec.p_object1_id2 = OKL_API.G_MISS_CHAR) OR (p_hdr_rec.p_object1_id2 IS NULL)) AND
538: (p_hdr_rec.p_template_yn = 'N' OR p_hdr_rec.p_template_yn = OKL_API.G_MISS_CHAR ) THEN
539: OKL_API.SET_MESSAGE(p_app_name => g_app_name,p_msg_name => 'OKL_VP_VENDOR_REQUIRED');
540: return OKL_API.G_RET_STS_ERROR;
541: END IF;
534: END IF;
535: END IF; --fmiao--*/
536: IF ((p_hdr_rec.p_object1_id1 = OKL_API.G_MISS_CHAR) OR (p_hdr_rec.p_object1_id1 IS NULL) OR
537: (p_hdr_rec.p_object1_id2 = OKL_API.G_MISS_CHAR) OR (p_hdr_rec.p_object1_id2 IS NULL)) AND
538: (p_hdr_rec.p_template_yn = 'N' OR p_hdr_rec.p_template_yn = OKL_API.G_MISS_CHAR ) THEN
539: OKL_API.SET_MESSAGE(p_app_name => g_app_name,p_msg_name => 'OKL_VP_VENDOR_REQUIRED');
540: return OKL_API.G_RET_STS_ERROR;
541: END IF;
542: END IF;
535: END IF; --fmiao--*/
536: IF ((p_hdr_rec.p_object1_id1 = OKL_API.G_MISS_CHAR) OR (p_hdr_rec.p_object1_id1 IS NULL) OR
537: (p_hdr_rec.p_object1_id2 = OKL_API.G_MISS_CHAR) OR (p_hdr_rec.p_object1_id2 IS NULL)) AND
538: (p_hdr_rec.p_template_yn = 'N' OR p_hdr_rec.p_template_yn = OKL_API.G_MISS_CHAR ) THEN
539: OKL_API.SET_MESSAGE(p_app_name => g_app_name,p_msg_name => 'OKL_VP_VENDOR_REQUIRED');
540: return OKL_API.G_RET_STS_ERROR;
541: END IF;
542: END IF;
543:
536: IF ((p_hdr_rec.p_object1_id1 = OKL_API.G_MISS_CHAR) OR (p_hdr_rec.p_object1_id1 IS NULL) OR
537: (p_hdr_rec.p_object1_id2 = OKL_API.G_MISS_CHAR) OR (p_hdr_rec.p_object1_id2 IS NULL)) AND
538: (p_hdr_rec.p_template_yn = 'N' OR p_hdr_rec.p_template_yn = OKL_API.G_MISS_CHAR ) THEN
539: OKL_API.SET_MESSAGE(p_app_name => g_app_name,p_msg_name => 'OKL_VP_VENDOR_REQUIRED');
540: return OKL_API.G_RET_STS_ERROR;
541: END IF;
542: END IF;
543:
544: -- Start and End Date Validations
541: END IF;
542: END IF;
543:
544: -- Start and End Date Validations
545: IF ((p_hdr_rec.p_start_date = OKL_API.G_MISS_DATE) OR (p_hdr_rec.p_start_date IS NULL)) THEN
546: OKL_API.SET_MESSAGE(p_app_name => g_app_name,p_msg_name => 'OKL_VP_START_DATE_REQUIRED');
547: l_return_status :=okl_api.g_ret_sts_error;
548: return OKL_API.G_RET_STS_ERROR;
549: END IF;
542: END IF;
543:
544: -- Start and End Date Validations
545: IF ((p_hdr_rec.p_start_date = OKL_API.G_MISS_DATE) OR (p_hdr_rec.p_start_date IS NULL)) THEN
546: OKL_API.SET_MESSAGE(p_app_name => g_app_name,p_msg_name => 'OKL_VP_START_DATE_REQUIRED');
547: l_return_status :=okl_api.g_ret_sts_error;
548: return OKL_API.G_RET_STS_ERROR;
549: END IF;
550:
543:
544: -- Start and End Date Validations
545: IF ((p_hdr_rec.p_start_date = OKL_API.G_MISS_DATE) OR (p_hdr_rec.p_start_date IS NULL)) THEN
546: OKL_API.SET_MESSAGE(p_app_name => g_app_name,p_msg_name => 'OKL_VP_START_DATE_REQUIRED');
547: l_return_status :=okl_api.g_ret_sts_error;
548: return OKL_API.G_RET_STS_ERROR;
549: END IF;
550:
551: IF ((p_hdr_rec.p_end_date = OKL_API.G_MISS_DATE) OR (p_hdr_rec.p_end_date IS NULL)) THEN
544: -- Start and End Date Validations
545: IF ((p_hdr_rec.p_start_date = OKL_API.G_MISS_DATE) OR (p_hdr_rec.p_start_date IS NULL)) THEN
546: OKL_API.SET_MESSAGE(p_app_name => g_app_name,p_msg_name => 'OKL_VP_START_DATE_REQUIRED');
547: l_return_status :=okl_api.g_ret_sts_error;
548: return OKL_API.G_RET_STS_ERROR;
549: END IF;
550:
551: IF ((p_hdr_rec.p_end_date = OKL_API.G_MISS_DATE) OR (p_hdr_rec.p_end_date IS NULL)) THEN
552: NULL;
547: l_return_status :=okl_api.g_ret_sts_error;
548: return OKL_API.G_RET_STS_ERROR;
549: END IF;
550:
551: IF ((p_hdr_rec.p_end_date = OKL_API.G_MISS_DATE) OR (p_hdr_rec.p_end_date IS NULL)) THEN
552: NULL;
553: ELSIF (p_hdr_rec.p_end_date < p_hdr_rec.p_start_date)THEN
554: OKL_API.SET_MESSAGE(p_app_name => G_APP_NAME,
555: p_msg_name => 'OKL_INVALID_TO_DATE');
550:
551: IF ((p_hdr_rec.p_end_date = OKL_API.G_MISS_DATE) OR (p_hdr_rec.p_end_date IS NULL)) THEN
552: NULL;
553: ELSIF (p_hdr_rec.p_end_date < p_hdr_rec.p_start_date)THEN
554: OKL_API.SET_MESSAGE(p_app_name => G_APP_NAME,
555: p_msg_name => 'OKL_INVALID_TO_DATE');
556: return OKL_API.G_RET_STS_ERROR;
557: -- sjalasut, added trunc on both sides
558: ELSIF (TRUNC(p_hdr_rec.p_end_date) < TRUNC(SYSDATE)) THEN
552: NULL;
553: ELSIF (p_hdr_rec.p_end_date < p_hdr_rec.p_start_date)THEN
554: OKL_API.SET_MESSAGE(p_app_name => G_APP_NAME,
555: p_msg_name => 'OKL_INVALID_TO_DATE');
556: return OKL_API.G_RET_STS_ERROR;
557: -- sjalasut, added trunc on both sides
558: ELSIF (TRUNC(p_hdr_rec.p_end_date) < TRUNC(SYSDATE)) THEN
559: OKL_API.SET_MESSAGE(p_app_name => G_APP_NAME,
560: p_msg_name => 'OKL_INVALID_EFF_TO_DATE');
555: p_msg_name => 'OKL_INVALID_TO_DATE');
556: return OKL_API.G_RET_STS_ERROR;
557: -- sjalasut, added trunc on both sides
558: ELSIF (TRUNC(p_hdr_rec.p_end_date) < TRUNC(SYSDATE)) THEN
559: OKL_API.SET_MESSAGE(p_app_name => G_APP_NAME,
560: p_msg_name => 'OKL_INVALID_EFF_TO_DATE');
561: return OKL_API.G_RET_STS_ERROR;
562: END IF;
563:
557: -- sjalasut, added trunc on both sides
558: ELSIF (TRUNC(p_hdr_rec.p_end_date) < TRUNC(SYSDATE)) THEN
559: OKL_API.SET_MESSAGE(p_app_name => G_APP_NAME,
560: p_msg_name => 'OKL_INVALID_EFF_TO_DATE');
561: return OKL_API.G_RET_STS_ERROR;
562: END IF;
563:
564: --bug#2460595
565: -- QA Check List Validation
563:
564: --bug#2460595
565: -- QA Check List Validation
566: /* --fmiao qa chechlist not needed for the new oa page --
567: IF ((p_hdr_rec.p_qcl_id = OKL_API.G_MISS_NUM) OR (p_hdr_rec.p_qcl_id IS NULL)) THEN
568: OKL_API.SET_MESSAGE(p_app_name => g_app_name,p_msg_name => 'OKL_VP_QACHECK_REQUIRED');
569: l_return_status :=okl_api.g_ret_sts_error;
570: return OKL_API.G_RET_STS_ERROR;
571: END IF;
564: --bug#2460595
565: -- QA Check List Validation
566: /* --fmiao qa chechlist not needed for the new oa page --
567: IF ((p_hdr_rec.p_qcl_id = OKL_API.G_MISS_NUM) OR (p_hdr_rec.p_qcl_id IS NULL)) THEN
568: OKL_API.SET_MESSAGE(p_app_name => g_app_name,p_msg_name => 'OKL_VP_QACHECK_REQUIRED');
569: l_return_status :=okl_api.g_ret_sts_error;
570: return OKL_API.G_RET_STS_ERROR;
571: END IF;
572: */
565: -- QA Check List Validation
566: /* --fmiao qa chechlist not needed for the new oa page --
567: IF ((p_hdr_rec.p_qcl_id = OKL_API.G_MISS_NUM) OR (p_hdr_rec.p_qcl_id IS NULL)) THEN
568: OKL_API.SET_MESSAGE(p_app_name => g_app_name,p_msg_name => 'OKL_VP_QACHECK_REQUIRED');
569: l_return_status :=okl_api.g_ret_sts_error;
570: return OKL_API.G_RET_STS_ERROR;
571: END IF;
572: */
573: return l_return_status;
566: /* --fmiao qa chechlist not needed for the new oa page --
567: IF ((p_hdr_rec.p_qcl_id = OKL_API.G_MISS_NUM) OR (p_hdr_rec.p_qcl_id IS NULL)) THEN
568: OKL_API.SET_MESSAGE(p_app_name => g_app_name,p_msg_name => 'OKL_VP_QACHECK_REQUIRED');
569: l_return_status :=okl_api.g_ret_sts_error;
570: return OKL_API.G_RET_STS_ERROR;
571: END IF;
572: */
573: return l_return_status;
574: EXCEPTION
572: */
573: return l_return_status;
574: EXCEPTION
575: WHEN OTHERS THEN
576: /* OKL_API.SET_MESSAGE(p_app_name => g_app_name,
577: p_msg_name => g_unexpected_error,
578: p_token1 => g_sqlcode_token,
579: p_token1_value => sqlcode,
580: p_token2 => g_sqlerrm_token,
579: p_token1_value => sqlcode,
580: p_token2 => g_sqlerrm_token,
581: p_token2_value => sqlerrm
582: );*/
583: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
584: return l_return_status;
585: END;
586:
587: /*---------------------------------------------------------------------------+
590: | DESC : Program Creation |
591: | HISTORY: 20 March 2002 Created by Murthy |
592: *-------------------------------------------------------------------------- */
593: PROCEDURE create_program(p_api_version IN NUMBER,
594: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
595: x_return_status OUT NOCOPY VARCHAR2,
596: x_msg_count OUT NOCOPY NUMBER,
597: x_msg_data OUT NOCOPY VARCHAR2,
598: p_hdr_rec IN program_header_rec_type,
601: x_k_header_rec OUT NOCOPY khrv_rec_type)
602: IS
603: l_api_version NUMBER := 1.0;
604: l_api_name CONSTANT VARCHAR2(30) := 'create_program';
605: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
606: parent_is_not_null BOOLEAN;
607: --fmiao--referred_is_not_null BOOLEAN;
608: l_jtot_object_code VARCHAR(200);
609: l_object1_id1 VARCHAR(200);
681: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
682: RAISE OKC_API.G_EXCEPTION_ERROR;
683: END IF;
684:
685: parent_is_not_null := p_parent_agreement_number IS NOT NULL AND p_parent_agreement_number <> OKL_API.G_MISS_CHAR;
686: --fmiao--referred_is_not_null := p_hdr_rec.p_referred_id IS NOT NULL AND p_hdr_rec.p_referred_id <> OKL_API.G_MISS_NUM;
687:
688: l_return_status := validate_attributes(p_hdr_rec => p_hdr_rec,
689: p_parent_agreement_number =>p_parent_agreement_number);
682: RAISE OKC_API.G_EXCEPTION_ERROR;
683: END IF;
684:
685: parent_is_not_null := p_parent_agreement_number IS NOT NULL AND p_parent_agreement_number <> OKL_API.G_MISS_CHAR;
686: --fmiao--referred_is_not_null := p_hdr_rec.p_referred_id IS NOT NULL AND p_hdr_rec.p_referred_id <> OKL_API.G_MISS_NUM;
687:
688: l_return_status := validate_attributes(p_hdr_rec => p_hdr_rec,
689: p_parent_agreement_number =>p_parent_agreement_number);
690:
689: p_parent_agreement_number =>p_parent_agreement_number);
690:
691: l_hdr_rec := p_hdr_rec;
692:
693: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
694: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
695: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
696: RAISE OKL_API.G_EXCEPTION_ERROR;
697: END IF;
690:
691: l_hdr_rec := p_hdr_rec;
692:
693: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
694: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
695: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
696: RAISE OKL_API.G_EXCEPTION_ERROR;
697: END IF;
698:
691: l_hdr_rec := p_hdr_rec;
692:
693: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
694: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
695: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
696: RAISE OKL_API.G_EXCEPTION_ERROR;
697: END IF;
698:
699: /* fmiao --
692:
693: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
694: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
695: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
696: RAISE OKL_API.G_EXCEPTION_ERROR;
697: END IF;
698:
699: /* fmiao --
700: --The following call is not needed. If creating template, template_yn = 'Y'--
700: --The following call is not needed. If creating template, template_yn = 'Y'--
701: IF (p_hdr_rec.p_template_yn = 'Y') THEN
702: create_header(p_api_version => l_api_version,
703: x_return_status => l_return_status,
704: p_init_msg_list => OKL_API.G_TRUE,
705: x_msg_count => l_msg_count,
706: x_msg_data => l_msg_data,
707: p_hdr_rec => p_hdr_rec,
708: p_parent_agreement_number => p_parent_agreement_number,
709: p_chrv_rec => l_header_rec,
710: p_khrv_rec => l_k_header_rec,
711: x_chrv_rec => x_header_rec,
712: x_khrv_rec => x_k_header_rec);
713: IF (l_return_status = OKL_API.G_RET_STS_SUCCESS) THEN
714: NULL;
715: ELSE
716: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
717: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
712: x_khrv_rec => x_k_header_rec);
713: IF (l_return_status = OKL_API.G_RET_STS_SUCCESS) THEN
714: NULL;
715: ELSE
716: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
717: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
718: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
719: RAISE OKL_API.G_EXCEPTION_ERROR;
720: END IF;
713: IF (l_return_status = OKL_API.G_RET_STS_SUCCESS) THEN
714: NULL;
715: ELSE
716: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
717: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
718: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
719: RAISE OKL_API.G_EXCEPTION_ERROR;
720: END IF;
721: END IF;
714: NULL;
715: ELSE
716: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
717: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
718: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
719: RAISE OKL_API.G_EXCEPTION_ERROR;
720: END IF;
721: END IF;
722:
715: ELSE
716: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
717: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
718: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
719: RAISE OKL_API.G_EXCEPTION_ERROR;
720: END IF;
721: END IF;
722:
723: IF (parent_is_not_null) THEN
726: IF(cur_k_header%found) THEN
727: CLOSE cur_k_header;
728: ELSE
729: CLOSE cur_k_header;
730: OKL_API.SET_MESSAGE(p_app_name => g_app_name,p_msg_name => 'OKL_VP_INVALID_PARENT_AGRMNT');
731: RAISE OKL_API.G_EXCEPTION_ERROR;
732: END IF;
733: l_new_contract_id := x_header_rec.id;
734: l_agreement_id := x_header_rec.id;
727: CLOSE cur_k_header;
728: ELSE
729: CLOSE cur_k_header;
730: OKL_API.SET_MESSAGE(p_app_name => g_app_name,p_msg_name => 'OKL_VP_INVALID_PARENT_AGRMNT');
731: RAISE OKL_API.G_EXCEPTION_ERROR;
732: END IF;
733: l_new_contract_id := x_header_rec.id;
734: l_agreement_id := x_header_rec.id;
735: l_gvev_rec.chr_id := l_new_contract_id;
736: l_gvev_rec.dnz_chr_id := l_new_contract_id;
737: --fmiao--l_gvev_rec.chr_id_referred := l_parent_id;
738: l_gvev_rec.copied_only_yn := 'N';
739: OKC_CONTRACT_PUB.create_governance( p_api_version => l_api_version,
740: p_init_msg_list => OKL_API.G_TRUE,
741: x_return_status => l_return_status,
742: x_msg_count => l_msg_count,
743: x_msg_data => l_msg_data,
744: p_gvev_rec => l_gvev_rec,
742: x_msg_count => l_msg_count,
743: x_msg_data => l_msg_data,
744: p_gvev_rec => l_gvev_rec,
745: x_gvev_rec => x_gvev_rec );
746: IF (l_return_status = OKL_API.G_RET_STS_SUCCESS) THEN
747: NULL;
748: ELSE
749: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
750: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
745: x_gvev_rec => x_gvev_rec );
746: IF (l_return_status = OKL_API.G_RET_STS_SUCCESS) THEN
747: NULL;
748: ELSE
749: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
750: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
751: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
752: RAISE OKL_API.G_EXCEPTION_ERROR;
753: END IF;
746: IF (l_return_status = OKL_API.G_RET_STS_SUCCESS) THEN
747: NULL;
748: ELSE
749: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
750: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
751: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
752: RAISE OKL_API.G_EXCEPTION_ERROR;
753: END IF;
754: END IF;
747: NULL;
748: ELSE
749: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
750: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
751: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
752: RAISE OKL_API.G_EXCEPTION_ERROR;
753: END IF;
754: END IF;
755:
748: ELSE
749: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
750: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
751: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
752: RAISE OKL_API.G_EXCEPTION_ERROR;
753: END IF;
754: END IF;
755:
756: -- Setting jtot stuff and party info.
761: CLOSE cur_jtot_object_code;
762: ELSE
763: CLOSE cur_jtot_object_code;
764: -- Murthy Set message to be registered
765: OKL_API.SET_MESSAGE(p_app_name => g_app_name,p_msg_name => 'OKL_JTOT_CODE_NOT_FOUND');
766: RAISE OKL_API.G_EXCEPTION_ERROR;
767: END IF;
768:
769: -- set jtot stuff
762: ELSE
763: CLOSE cur_jtot_object_code;
764: -- Murthy Set message to be registered
765: OKL_API.SET_MESSAGE(p_app_name => g_app_name,p_msg_name => 'OKL_JTOT_CODE_NOT_FOUND');
766: RAISE OKL_API.G_EXCEPTION_ERROR;
767: END IF;
768:
769: -- set jtot stuff
770: OPEN cur_object_id(l_parent_id);
773: CLOSE cur_object_id;
774: ELSE
775: CLOSE cur_object_id;
776: -- Murthy Set message to be registered
777: OKL_API.SET_MESSAGE(p_app_name => g_app_name,p_msg_name => 'OKL_JTOT_CODE_NOT_FOUND');
778: RAISE OKL_API.G_EXCEPTION_ERROR;
779: END IF;
780: -- Setting jtot stuff and party info.
781: l_agreement_id := x_header_rec.id;
774: ELSE
775: CLOSE cur_object_id;
776: -- Murthy Set message to be registered
777: OKL_API.SET_MESSAGE(p_app_name => g_app_name,p_msg_name => 'OKL_JTOT_CODE_NOT_FOUND');
778: RAISE OKL_API.G_EXCEPTION_ERROR;
779: END IF;
780: -- Setting jtot stuff and party info.
781: l_agreement_id := x_header_rec.id;
782: l_cplv_rec.chr_id := l_agreement_id;
796: CLOSE cur_object_id;
797: ELSE
798: CLOSE cur_object_id;
799: -- Murthy Set message to be registered
800: OKL_API.SET_MESSAGE(p_app_name => g_app_name,p_msg_name => 'OKL_JTOT_CODE_NOT_FOUND');
801: RAISE OKL_API.G_EXCEPTION_ERROR;
802: END IF;
803: -- Setting jtot stuff and party info.
804: l_agreement_id := x_header_rec.id;
797: ELSE
798: CLOSE cur_object_id;
799: -- Murthy Set message to be registered
800: OKL_API.SET_MESSAGE(p_app_name => g_app_name,p_msg_name => 'OKL_JTOT_CODE_NOT_FOUND');
801: RAISE OKL_API.G_EXCEPTION_ERROR;
802: END IF;
803: -- Setting jtot stuff and party info.
804: l_agreement_id := x_header_rec.id;
805: l_cplv_rec.chr_id := l_agreement_id;
814: l_hdr_rec.p_template_yn := 'N';
815: END IF;
816: create_header(p_api_version => l_api_version,
817: x_return_status => l_return_status,
818: p_init_msg_list => OKL_API.G_TRUE,
819: x_msg_count => l_msg_count,
820: x_msg_data => l_msg_data,
821: p_hdr_rec => l_hdr_rec,
822: p_parent_agreement_number => p_parent_agreement_number,
823: p_chrv_rec => l_header_rec,
824: p_khrv_rec => l_k_header_rec,
825: x_chrv_rec => x_header_rec,
826: x_khrv_rec => x_k_header_rec);
827: IF (l_return_status = OKL_API.G_RET_STS_SUCCESS) THEN
828: NULL;
829: ELSE
830: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
831: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
826: x_khrv_rec => x_k_header_rec);
827: IF (l_return_status = OKL_API.G_RET_STS_SUCCESS) THEN
828: NULL;
829: ELSE
830: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
831: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
832: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
833: RAISE OKL_API.G_EXCEPTION_ERROR;
834: END IF;
827: IF (l_return_status = OKL_API.G_RET_STS_SUCCESS) THEN
828: NULL;
829: ELSE
830: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
831: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
832: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
833: RAISE OKL_API.G_EXCEPTION_ERROR;
834: END IF;
835: END IF;
828: NULL;
829: ELSE
830: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
831: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
832: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
833: RAISE OKL_API.G_EXCEPTION_ERROR;
834: END IF;
835: END IF;
836: -- Setting jtot stuff and party info.
829: ELSE
830: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
831: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
832: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
833: RAISE OKL_API.G_EXCEPTION_ERROR;
834: END IF;
835: END IF;
836: -- Setting jtot stuff and party info.
837: -- call for insert into vendor party role
841: CLOSE cur_jtot_object_code;
842: ELSE
843: CLOSE cur_jtot_object_code;
844: -- Murthy Set message to be registered
845: OKL_API.SET_MESSAGE(p_app_name => g_app_name,p_msg_name => 'OKL_JTOT_CODE_NOT_FOUND');
846: RAISE OKL_API.G_EXCEPTION_ERROR;
847: END IF;
848: l_agreement_id := x_header_rec.id;
849: l_cplv_rec.chr_id := l_agreement_id;
842: ELSE
843: CLOSE cur_jtot_object_code;
844: -- Murthy Set message to be registered
845: OKL_API.SET_MESSAGE(p_app_name => g_app_name,p_msg_name => 'OKL_JTOT_CODE_NOT_FOUND');
846: RAISE OKL_API.G_EXCEPTION_ERROR;
847: END IF;
848: l_agreement_id := x_header_rec.id;
849: l_cplv_rec.chr_id := l_agreement_id;
850: l_cplv_rec.dnz_chr_id := l_agreement_id;
858: IF(cur_k_header%found) THEN
859: CLOSE cur_k_header;
860: ELSE
861: CLOSE cur_k_header;
862: OKL_API.SET_MESSAGE(p_app_name => g_app_name,p_msg_name => 'OKL_VP_INVALID_PARENT_AGRMNT');
863: RAISE OKL_API.G_EXCEPTION_ERROR;
864: END IF;
865: l_agreement_id := x_header_rec.id;
866: l_gvev_rec.chr_id := l_agreement_id;
859: CLOSE cur_k_header;
860: ELSE
861: CLOSE cur_k_header;
862: OKL_API.SET_MESSAGE(p_app_name => g_app_name,p_msg_name => 'OKL_VP_INVALID_PARENT_AGRMNT');
863: RAISE OKL_API.G_EXCEPTION_ERROR;
864: END IF;
865: l_agreement_id := x_header_rec.id;
866: l_gvev_rec.chr_id := l_agreement_id;
867: l_gvev_rec.dnz_chr_id := l_agreement_id;
867: l_gvev_rec.dnz_chr_id := l_agreement_id;
868: l_gvev_rec.chr_id_referred := l_parent_id;
869: l_gvev_rec.copied_only_yn := 'N';
870: OKC_CONTRACT_PUB.create_governance( p_api_version => l_api_version,
871: p_init_msg_list => OKL_API.G_TRUE,
872: x_return_status => l_return_status,
873: x_msg_count => l_msg_count,
874: x_msg_data => l_msg_data,
875: p_gvev_rec => l_gvev_rec,
873: x_msg_count => l_msg_count,
874: x_msg_data => l_msg_data,
875: p_gvev_rec => l_gvev_rec,
876: x_gvev_rec => x_gvev_rec );
877: IF (l_return_status = OKL_API.G_RET_STS_SUCCESS) THEN
878: NULL;
879: ELSE
880: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
881: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
876: x_gvev_rec => x_gvev_rec );
877: IF (l_return_status = OKL_API.G_RET_STS_SUCCESS) THEN
878: NULL;
879: ELSE
880: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
881: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
882: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
883: RAISE OKL_API.G_EXCEPTION_ERROR;
884: END IF;
877: IF (l_return_status = OKL_API.G_RET_STS_SUCCESS) THEN
878: NULL;
879: ELSE
880: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
881: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
882: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
883: RAISE OKL_API.G_EXCEPTION_ERROR;
884: END IF;
885: END IF;
878: NULL;
879: ELSE
880: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
881: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
882: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
883: RAISE OKL_API.G_EXCEPTION_ERROR;
884: END IF;
885: END IF;
886:
879: ELSE
880: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
881: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
882: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
883: RAISE OKL_API.G_EXCEPTION_ERROR;
884: END IF;
885: END IF;
886:
887: END IF;
894: IF(cur_vendor_name%found) THEN
895: CLOSE cur_vendor_name;
896: ELSE
897: CLOSE cur_vendor_name;
898: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
899: p_msg_name => 'OKL_PRNT_AGMT_MATCH_VENDOR',
900: p_token1 => 'token1',
901: p_token1_value => l_vendor_name
902: );
899: p_msg_name => 'OKL_PRNT_AGMT_MATCH_VENDOR',
900: p_token1 => 'token1',
901: p_token1_value => l_vendor_name
902: );
903: RAISE OKL_API.G_EXCEPTION_ERROR;
904: END IF;
905: OPEN cur_parent_object_id(l_parent_id);
906: FETCH cur_parent_object_id INTO l_prnt_object1_id1, l_prnt_object1_id2;
907: IF(cur_parent_object_id%found) THEN
907: IF(cur_parent_object_id%found) THEN
908: CLOSE cur_parent_object_id;
909: ELSE
910: CLOSE cur_parent_object_id;
911: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
912: p_msg_name => 'OKL_PRNT_AGMT_MATCH_VENDOR',
913: p_token1 => 'token1',
914: p_token1_value => l_vendor_name
915: );
912: p_msg_name => 'OKL_PRNT_AGMT_MATCH_VENDOR',
913: p_token1 => 'token1',
914: p_token1_value => l_vendor_name
915: );
916: RAISE OKL_API.G_EXCEPTION_ERROR;
917: END IF;
918: IF (l_prnt_object1_id1 <> p_hdr_rec.p_object1_id1 OR l_prnt_object1_id2 <>
919: p_hdr_rec.p_object1_id2) THEN
920: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
916: RAISE OKL_API.G_EXCEPTION_ERROR;
917: END IF;
918: IF (l_prnt_object1_id1 <> p_hdr_rec.p_object1_id1 OR l_prnt_object1_id2 <>
919: p_hdr_rec.p_object1_id2) THEN
920: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
921: p_msg_name => 'OKL_PRNT_AGMT_MATCH_VENDOR',
922: p_token1 => 'token1',
923: p_token1_value => l_vendor_name
924: );
921: p_msg_name => 'OKL_PRNT_AGMT_MATCH_VENDOR',
922: p_token1 => 'token1',
923: p_token1_value => l_vendor_name
924: );
925: RAISE OKL_API.G_EXCEPTION_ERROR;
926:
927: END IF;
928: END IF;
929: END IF; --fmiao--*/
945: x_msg_data => x_msg_data,
946: p_object_name => l_cplv_rec.jtot_object1_code,
947: p_id1 => l_cplv_rec.object1_id1,
948: p_id2 => l_cplv_rec.object1_id2);
949: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
950: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
951: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
952: RAISE OKL_API.G_EXCEPTION_ERROR;
953: END IF;
946: p_object_name => l_cplv_rec.jtot_object1_code,
947: p_id1 => l_cplv_rec.object1_id1,
948: p_id2 => l_cplv_rec.object1_id2);
949: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
950: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
951: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
952: RAISE OKL_API.G_EXCEPTION_ERROR;
953: END IF;
954:
947: p_id1 => l_cplv_rec.object1_id1,
948: p_id2 => l_cplv_rec.object1_id2);
949: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
950: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
951: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
952: RAISE OKL_API.G_EXCEPTION_ERROR;
953: END IF;
954:
955: END IF;
948: p_id2 => l_cplv_rec.object1_id2);
949: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
950: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
951: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
952: RAISE OKL_API.G_EXCEPTION_ERROR;
953: END IF;
954:
955: END IF;
956:
958: ---- Changes End
959:
960:
961: OKC_CONTRACT_PARTY_PUB.create_k_party_role(p_api_version => l_api_version,
962: p_init_msg_list => OKL_API.G_TRUE,
963: x_return_status => l_return_status,
964: x_msg_count => l_msg_count,
965: x_msg_data => l_msg_data,
966: p_cplv_rec => l_cplv_rec,
964: x_msg_count => l_msg_count,
965: x_msg_data => l_msg_data,
966: p_cplv_rec => l_cplv_rec,
967: x_cplv_rec => x_cplv_rec );
968: IF (l_return_status = OKL_API.G_RET_STS_SUCCESS) THEN
969: NULL;
970: ELSE
971: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
972: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
967: x_cplv_rec => x_cplv_rec );
968: IF (l_return_status = OKL_API.G_RET_STS_SUCCESS) THEN
969: NULL;
970: ELSE
971: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
972: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
973: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
974: RAISE OKL_API.G_EXCEPTION_ERROR;
975: END IF;
968: IF (l_return_status = OKL_API.G_RET_STS_SUCCESS) THEN
969: NULL;
970: ELSE
971: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
972: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
973: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
974: RAISE OKL_API.G_EXCEPTION_ERROR;
975: END IF;
976: END IF;
969: NULL;
970: ELSE
971: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
972: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
973: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
974: RAISE OKL_API.G_EXCEPTION_ERROR;
975: END IF;
976: END IF;
977:
970: ELSE
971: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
972: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
973: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
974: RAISE OKL_API.G_EXCEPTION_ERROR;
975: END IF;
976: END IF;
977:
978: --Added by abhsxen for bug 6487870
986: x_msg_data => x_msg_data,
987: p_kplv_rec => l_kplv_rec,
988: x_kplv_rec => x_kplv_rec);
989:
990: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
991: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
992: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
993: RAISE OKL_API.G_EXCEPTION_ERROR;
994: END IF;
987: p_kplv_rec => l_kplv_rec,
988: x_kplv_rec => x_kplv_rec);
989:
990: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
991: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
992: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
993: RAISE OKL_API.G_EXCEPTION_ERROR;
994: END IF;
995: --end abhsxen
988: x_kplv_rec => x_kplv_rec);
989:
990: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
991: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
992: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
993: RAISE OKL_API.G_EXCEPTION_ERROR;
994: END IF;
995: --end abhsxen
996:
989:
990: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
991: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
992: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
993: RAISE OKL_API.G_EXCEPTION_ERROR;
994: END IF;
995: --end abhsxen
996:
997: -- Call end_activity
999: x_msg_data );
1000:
1001: EXCEPTION
1002:
1003: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1004: x_return_status := OKL_API.G_RET_STS_ERROR;
1005: /*
1006: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1007: (p_api_name => l_api_name
1000:
1001: EXCEPTION
1002:
1003: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1004: x_return_status := OKL_API.G_RET_STS_ERROR;
1005: /*
1006: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1007: (p_api_name => l_api_name
1008: ,p_pkg_name => G_PKG_NAME
1002:
1003: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1004: x_return_status := OKL_API.G_RET_STS_ERROR;
1005: /*
1006: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1007: (p_api_name => l_api_name
1008: ,p_pkg_name => G_PKG_NAME
1009: ,p_exc_name => 'OKL_API.G_RET_STS_ERROR'
1010: ,x_msg_count => x_msg_count
1005: /*
1006: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1007: (p_api_name => l_api_name
1008: ,p_pkg_name => G_PKG_NAME
1009: ,p_exc_name => 'OKL_API.G_RET_STS_ERROR'
1010: ,x_msg_count => x_msg_count
1011: ,x_msg_data => x_msg_data
1012: ,p_api_type => '_PVT'
1013: );
1012: ,p_api_type => '_PVT'
1013: );
1014:
1015: */
1016: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1017: x_return_status := OKL_API.G_RET_STS_ERROR;
1018: /* x_return_status := OKL_API.HANDLE_EXCEPTIONS(l_api_name
1019: ,g_pkg_name
1020: ,'OKL_API.G_RET_STS_ERROR'
1013: );
1014:
1015: */
1016: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1017: x_return_status := OKL_API.G_RET_STS_ERROR;
1018: /* x_return_status := OKL_API.HANDLE_EXCEPTIONS(l_api_name
1019: ,g_pkg_name
1020: ,'OKL_API.G_RET_STS_ERROR'
1021: ,x_msg_count
1014:
1015: */
1016: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1017: x_return_status := OKL_API.G_RET_STS_ERROR;
1018: /* x_return_status := OKL_API.HANDLE_EXCEPTIONS(l_api_name
1019: ,g_pkg_name
1020: ,'OKL_API.G_RET_STS_ERROR'
1021: ,x_msg_count
1022: ,x_msg_data
1016: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1017: x_return_status := OKL_API.G_RET_STS_ERROR;
1018: /* x_return_status := OKL_API.HANDLE_EXCEPTIONS(l_api_name
1019: ,g_pkg_name
1020: ,'OKL_API.G_RET_STS_ERROR'
1021: ,x_msg_count
1022: ,x_msg_data
1023: ,'_PVT'
1024: );
1024: );
1025:
1026: */
1027: WHEN OTHERS THEN
1028: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
1029: /* x_return_status := OKL_API.HANDLE_EXCEPTIONS(l_api_name
1030: ,g_pkg_name
1031: ,'OTHERS'
1032: ,x_msg_count
1025:
1026: */
1027: WHEN OTHERS THEN
1028: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
1029: /* x_return_status := OKL_API.HANDLE_EXCEPTIONS(l_api_name
1030: ,g_pkg_name
1031: ,'OTHERS'
1032: ,x_msg_count
1033: ,x_msg_data
1040:
1041: /*NEW CODE END*/
1042:
1043: PROCEDURE update_program(p_api_version IN NUMBER,
1044: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
1045: x_return_status OUT NOCOPY VARCHAR2,
1046: x_msg_count OUT NOCOPY NUMBER,
1047: x_msg_data OUT NOCOPY VARCHAR2,
1048: p_hdr_rec IN program_header_rec_type,
1055: -- depending on these,call the update_contract_header
1056: -- not clear on p_restrict_update parameter in the update_contract_header api ?????????
1057: -- templates are not updateable
1058:
1059: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1060:
1061: l_msg_count NUMBER;
1062: l_msg_data VARCHAR2(2000);
1063: l_api_version NUMBER := 1.0;
1126: x_kplv_rec okl_kpl_pvt.kplv_rec_type;
1127: --end abhsxen
1128: BEGIN
1129:
1130: l_return_status := OKL_API.START_ACTIVITY(p_api_name => l_api_name
1131: ,p_init_msg_list => p_init_msg_list
1132: ,p_api_type => '_PVT'
1133: ,x_return_status => x_return_status
1134: );
1132: ,p_api_type => '_PVT'
1133: ,x_return_status => x_return_status
1134: );
1135:
1136: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
1137: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1138: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
1139: RAISE OKL_API.G_EXCEPTION_ERROR;
1140: END IF;
1133: ,x_return_status => x_return_status
1134: );
1135:
1136: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
1137: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1138: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
1139: RAISE OKL_API.G_EXCEPTION_ERROR;
1140: END IF;
1141:
1134: );
1135:
1136: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
1137: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1138: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
1139: RAISE OKL_API.G_EXCEPTION_ERROR;
1140: END IF;
1141:
1142: x_return_status := OKL_API.G_RET_STS_SUCCESS;
1135:
1136: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
1137: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1138: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
1139: RAISE OKL_API.G_EXCEPTION_ERROR;
1140: END IF;
1141:
1142: x_return_status := OKL_API.G_RET_STS_SUCCESS;
1143:
1138: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
1139: RAISE OKL_API.G_EXCEPTION_ERROR;
1140: END IF;
1141:
1142: x_return_status := OKL_API.G_RET_STS_SUCCESS;
1143:
1144: IF ((p_hdr_rec.p_agreement_number = OKL_API.G_MISS_CHAR) OR (p_hdr_rec.p_agreement_number IS NULL)) THEN
1145: OKL_API.SET_MESSAGE(p_app_name => g_app_name,p_msg_name => 'OKL_VP_AGREEMENT_NO_REQUIRED');
1146: RAISE OKL_API.G_EXCEPTION_ERROR;
1140: END IF;
1141:
1142: x_return_status := OKL_API.G_RET_STS_SUCCESS;
1143:
1144: IF ((p_hdr_rec.p_agreement_number = OKL_API.G_MISS_CHAR) OR (p_hdr_rec.p_agreement_number IS NULL)) THEN
1145: OKL_API.SET_MESSAGE(p_app_name => g_app_name,p_msg_name => 'OKL_VP_AGREEMENT_NO_REQUIRED');
1146: RAISE OKL_API.G_EXCEPTION_ERROR;
1147: END IF;
1148:
1141:
1142: x_return_status := OKL_API.G_RET_STS_SUCCESS;
1143:
1144: IF ((p_hdr_rec.p_agreement_number = OKL_API.G_MISS_CHAR) OR (p_hdr_rec.p_agreement_number IS NULL)) THEN
1145: OKL_API.SET_MESSAGE(p_app_name => g_app_name,p_msg_name => 'OKL_VP_AGREEMENT_NO_REQUIRED');
1146: RAISE OKL_API.G_EXCEPTION_ERROR;
1147: END IF;
1148:
1149: -- check whether the contract already exists before calling the api.
1142: x_return_status := OKL_API.G_RET_STS_SUCCESS;
1143:
1144: IF ((p_hdr_rec.p_agreement_number = OKL_API.G_MISS_CHAR) OR (p_hdr_rec.p_agreement_number IS NULL)) THEN
1145: OKL_API.SET_MESSAGE(p_app_name => g_app_name,p_msg_name => 'OKL_VP_AGREEMENT_NO_REQUIRED');
1146: RAISE OKL_API.G_EXCEPTION_ERROR;
1147: END IF;
1148:
1149: -- check whether the contract already exists before calling the api.
1150:
1153: l_found := l_chr_csr1%FOUND;
1154: CLOSE l_chr_csr1;
1155:
1156: IF (l_found) THEN
1157: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
1158: p_msg_name => 'OKL_VP_CONTRACT_EXISTS',
1159: p_token1 => 'NUMBER',
1160: p_token1_value => p_hdr_rec.p_agreement_number
1161: );
1158: p_msg_name => 'OKL_VP_CONTRACT_EXISTS',
1159: p_token1 => 'NUMBER',
1160: p_token1_value => p_hdr_rec.p_agreement_number
1161: );
1162: RAISE OKL_API.G_EXCEPTION_ERROR;
1163: END IF;
1164:
1165: IF ((p_hdr_rec.p_start_date = OKL_API.G_MISS_DATE) OR (p_hdr_rec.p_start_date IS NULL)) THEN
1166: OKL_API.SET_MESSAGE(p_app_name => g_app_name,p_msg_name => 'OKL_VP_START_DATE_REQUIRED');
1161: );
1162: RAISE OKL_API.G_EXCEPTION_ERROR;
1163: END IF;
1164:
1165: IF ((p_hdr_rec.p_start_date = OKL_API.G_MISS_DATE) OR (p_hdr_rec.p_start_date IS NULL)) THEN
1166: OKL_API.SET_MESSAGE(p_app_name => g_app_name,p_msg_name => 'OKL_VP_START_DATE_REQUIRED');
1167: RAISE OKL_API.G_EXCEPTION_ERROR;
1168: END IF;
1169:
1162: RAISE OKL_API.G_EXCEPTION_ERROR;
1163: END IF;
1164:
1165: IF ((p_hdr_rec.p_start_date = OKL_API.G_MISS_DATE) OR (p_hdr_rec.p_start_date IS NULL)) THEN
1166: OKL_API.SET_MESSAGE(p_app_name => g_app_name,p_msg_name => 'OKL_VP_START_DATE_REQUIRED');
1167: RAISE OKL_API.G_EXCEPTION_ERROR;
1168: END IF;
1169:
1170: IF ((p_hdr_rec.p_end_date = OKL_API.G_MISS_DATE) OR (p_hdr_rec.p_end_date IS NULL)) THEN
1163: END IF;
1164:
1165: IF ((p_hdr_rec.p_start_date = OKL_API.G_MISS_DATE) OR (p_hdr_rec.p_start_date IS NULL)) THEN
1166: OKL_API.SET_MESSAGE(p_app_name => g_app_name,p_msg_name => 'OKL_VP_START_DATE_REQUIRED');
1167: RAISE OKL_API.G_EXCEPTION_ERROR;
1168: END IF;
1169:
1170: IF ((p_hdr_rec.p_end_date = OKL_API.G_MISS_DATE) OR (p_hdr_rec.p_end_date IS NULL)) THEN
1171: NULL;
1166: OKL_API.SET_MESSAGE(p_app_name => g_app_name,p_msg_name => 'OKL_VP_START_DATE_REQUIRED');
1167: RAISE OKL_API.G_EXCEPTION_ERROR;
1168: END IF;
1169:
1170: IF ((p_hdr_rec.p_end_date = OKL_API.G_MISS_DATE) OR (p_hdr_rec.p_end_date IS NULL)) THEN
1171: NULL;
1172: ELSIF (trunc(p_hdr_rec.p_end_date) < trunc(p_hdr_rec.p_start_date))THEN
1173: OKL_API.SET_MESSAGE(p_app_name => G_APP_NAME,
1174: p_msg_name => 'OKL_INVALID_TO_DATE');
1169:
1170: IF ((p_hdr_rec.p_end_date = OKL_API.G_MISS_DATE) OR (p_hdr_rec.p_end_date IS NULL)) THEN
1171: NULL;
1172: ELSIF (trunc(p_hdr_rec.p_end_date) < trunc(p_hdr_rec.p_start_date))THEN
1173: OKL_API.SET_MESSAGE(p_app_name => G_APP_NAME,
1174: p_msg_name => 'OKL_INVALID_TO_DATE');
1175: RAISE OKL_API.G_EXCEPTION_ERROR;
1176: ELSIF (trunc(p_hdr_rec.p_end_date) < trunc(sysdate)) THEN
1177: OKL_API.SET_MESSAGE(p_app_name => G_APP_NAME,
1171: NULL;
1172: ELSIF (trunc(p_hdr_rec.p_end_date) < trunc(p_hdr_rec.p_start_date))THEN
1173: OKL_API.SET_MESSAGE(p_app_name => G_APP_NAME,
1174: p_msg_name => 'OKL_INVALID_TO_DATE');
1175: RAISE OKL_API.G_EXCEPTION_ERROR;
1176: ELSIF (trunc(p_hdr_rec.p_end_date) < trunc(sysdate)) THEN
1177: OKL_API.SET_MESSAGE(p_app_name => G_APP_NAME,
1178: p_msg_name => 'OKL_INVALID_EFF_TO_DATE');
1179: RAISE OKL_API.G_EXCEPTION_ERROR;
1173: OKL_API.SET_MESSAGE(p_app_name => G_APP_NAME,
1174: p_msg_name => 'OKL_INVALID_TO_DATE');
1175: RAISE OKL_API.G_EXCEPTION_ERROR;
1176: ELSIF (trunc(p_hdr_rec.p_end_date) < trunc(sysdate)) THEN
1177: OKL_API.SET_MESSAGE(p_app_name => G_APP_NAME,
1178: p_msg_name => 'OKL_INVALID_EFF_TO_DATE');
1179: RAISE OKL_API.G_EXCEPTION_ERROR;
1180: END IF;
1181:
1175: RAISE OKL_API.G_EXCEPTION_ERROR;
1176: ELSIF (trunc(p_hdr_rec.p_end_date) < trunc(sysdate)) THEN
1177: OKL_API.SET_MESSAGE(p_app_name => G_APP_NAME,
1178: p_msg_name => 'OKL_INVALID_EFF_TO_DATE');
1179: RAISE OKL_API.G_EXCEPTION_ERROR;
1180: END IF;
1181:
1182: IF ((p_program_id = OKL_API.G_MISS_NUM) OR (p_program_id IS NULL)) THEN
1183: OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'ID');
1178: p_msg_name => 'OKL_INVALID_EFF_TO_DATE');
1179: RAISE OKL_API.G_EXCEPTION_ERROR;
1180: END IF;
1181:
1182: IF ((p_program_id = OKL_API.G_MISS_NUM) OR (p_program_id IS NULL)) THEN
1183: OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'ID');
1184: RAISE OKL_API.G_EXCEPTION_ERROR;
1185: END IF;
1186:
1179: RAISE OKL_API.G_EXCEPTION_ERROR;
1180: END IF;
1181:
1182: IF ((p_program_id = OKL_API.G_MISS_NUM) OR (p_program_id IS NULL)) THEN
1183: OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'ID');
1184: RAISE OKL_API.G_EXCEPTION_ERROR;
1185: END IF;
1186:
1187: -- to get the contract_number for the given program_id
1180: END IF;
1181:
1182: IF ((p_program_id = OKL_API.G_MISS_NUM) OR (p_program_id IS NULL)) THEN
1183: OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'ID');
1184: RAISE OKL_API.G_EXCEPTION_ERROR;
1185: END IF;
1186:
1187: -- to get the contract_number for the given program_id
1188:
1233: --must have category of PROGRAM only. Setting intent to BUY_OR_SELL
1234: l1_header_rec.buy_or_sell := g_buy_or_sell;
1235: l1_header_rec.scs_code := p_hdr_rec.p_contract_category;
1236: IF (OKC_CONTRACT_PUB.Update_Allowed(p_program_id) <> 'Y') THEN
1237: l_return_status :=OKL_API.G_RET_STS_ERROR;
1238: OKL_API.set_message(p_app_name => g_app_name,
1239: p_msg_name => 'OKL_VP_UPDATE_NOT_ALLOWED'
1240: );
1241: RAISE OKL_API.G_EXCEPTION_ERROR;
1234: l1_header_rec.buy_or_sell := g_buy_or_sell;
1235: l1_header_rec.scs_code := p_hdr_rec.p_contract_category;
1236: IF (OKC_CONTRACT_PUB.Update_Allowed(p_program_id) <> 'Y') THEN
1237: l_return_status :=OKL_API.G_RET_STS_ERROR;
1238: OKL_API.set_message(p_app_name => g_app_name,
1239: p_msg_name => 'OKL_VP_UPDATE_NOT_ALLOWED'
1240: );
1241: RAISE OKL_API.G_EXCEPTION_ERROR;
1242: END IF;
1237: l_return_status :=OKL_API.G_RET_STS_ERROR;
1238: OKL_API.set_message(p_app_name => g_app_name,
1239: p_msg_name => 'OKL_VP_UPDATE_NOT_ALLOWED'
1240: );
1241: RAISE OKL_API.G_EXCEPTION_ERROR;
1242: END IF;
1243:
1244: IF (is_process_active(p_program_id) <> 'N') THEN
1245: l_return_status :=OKL_API.G_RET_STS_ERROR;
1241: RAISE OKL_API.G_EXCEPTION_ERROR;
1242: END IF;
1243:
1244: IF (is_process_active(p_program_id) <> 'N') THEN
1245: l_return_status :=OKL_API.G_RET_STS_ERROR;
1246: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
1247: p_msg_name => 'OKL_VP_APPROVAL_PROCESS_ACTV'
1248: );
1249: RAISE OKL_API.G_EXCEPTION_ERROR;
1242: END IF;
1243:
1244: IF (is_process_active(p_program_id) <> 'N') THEN
1245: l_return_status :=OKL_API.G_RET_STS_ERROR;
1246: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
1247: p_msg_name => 'OKL_VP_APPROVAL_PROCESS_ACTV'
1248: );
1249: RAISE OKL_API.G_EXCEPTION_ERROR;
1250: END IF;
1245: l_return_status :=OKL_API.G_RET_STS_ERROR;
1246: OKL_API.SET_MESSAGE(p_app_name => g_app_name,
1247: p_msg_name => 'OKL_VP_APPROVAL_PROCESS_ACTV'
1248: );
1249: RAISE OKL_API.G_EXCEPTION_ERROR;
1250: END IF;
1251:
1252: OKL_CONTRACT_PUB.update_contract_header(
1253: p_api_version => l_api_version,
1251:
1252: OKL_CONTRACT_PUB.update_contract_header(
1253: p_api_version => l_api_version,
1254: x_return_status => l_return_status,
1255: p_init_msg_list => OKL_API.G_TRUE,
1256: x_msg_count => l_msg_count,
1257: x_msg_data => l_msg_data,
1258: p_restricted_update => OKL_API.G_FALSE,
1259: p_chrv_rec => l1_header_rec,
1254: x_return_status => l_return_status,
1255: p_init_msg_list => OKL_API.G_TRUE,
1256: x_msg_count => l_msg_count,
1257: x_msg_data => l_msg_data,
1258: p_restricted_update => OKL_API.G_FALSE,
1259: p_chrv_rec => l1_header_rec,
1260: p_khrv_rec => l_k_header_rec,
1261: x_chrv_rec => l2_header_rec,
1262: x_khrv_rec => x_k_header_rec);
1261: x_chrv_rec => l2_header_rec,
1262: x_khrv_rec => x_k_header_rec);
1263:
1264:
1265: IF (l_return_status = OKL_API.G_RET_STS_SUCCESS) THEN
1266: /* Manu 29-Jun-2005 Begin */
1267: passed_to_incomplete(p_api_version => p_api_version
1268: ,p_init_msg_list => p_init_msg_list
1269: ,x_return_status => x_return_status
1286: ****/
1287: /* Manu 29-Jun-2005 End */
1288:
1289: /* Manu Bug #4671978 27-Oct-2005 Begin */
1290: parent_is_not_null := p_parent_agreement_id IS NOT NULL AND p_parent_agreement_id <> OKL_API.G_MISS_NUM;
1291:
1292: OPEN cl_get_gov_id(p_program_id);
1293: FETCH cl_get_gov_id INTO l_gov_id;
1294: CLOSE cl_get_gov_id;
1307: x_msg_count => l_msg_count,
1308: x_msg_data => l_msg_data,
1309: p_gvev_rec => l_gvev_rec,
1310: x_gvev_rec => x_gvev_rec );
1311: IF (l_return_status = OKL_API.G_RET_STS_SUCCESS) THEN
1312: NULL;
1313: ELSE
1314: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
1315: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1310: x_gvev_rec => x_gvev_rec );
1311: IF (l_return_status = OKL_API.G_RET_STS_SUCCESS) THEN
1312: NULL;
1313: ELSE
1314: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
1315: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1316: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
1317: RAISE OKL_API.G_EXCEPTION_ERROR;
1318: END IF;
1311: IF (l_return_status = OKL_API.G_RET_STS_SUCCESS) THEN
1312: NULL;
1313: ELSE
1314: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
1315: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1316: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
1317: RAISE OKL_API.G_EXCEPTION_ERROR;
1318: END IF;
1319: END IF;
1312: NULL;
1313: ELSE
1314: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
1315: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1316: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
1317: RAISE OKL_API.G_EXCEPTION_ERROR;
1318: END IF;
1319: END IF;
1320: ELSE
1313: ELSE
1314: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
1315: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1316: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
1317: RAISE OKL_API.G_EXCEPTION_ERROR;
1318: END IF;
1319: END IF;
1320: ELSE
1321: -- Parent Agreement does not already exists create a new record.
1329: x_msg_count => l_msg_count,
1330: x_msg_data => l_msg_data,
1331: p_gvev_rec => l_gvev_rec,
1332: x_gvev_rec => x_gvev_rec );
1333: IF (l_return_status = OKL_API.G_RET_STS_SUCCESS) THEN
1334: NULL;
1335: ELSE
1336: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
1337: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1332: x_gvev_rec => x_gvev_rec );
1333: IF (l_return_status = OKL_API.G_RET_STS_SUCCESS) THEN
1334: NULL;
1335: ELSE
1336: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
1337: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1338: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
1339: RAISE OKL_API.G_EXCEPTION_ERROR;
1340: END IF;
1333: IF (l_return_status = OKL_API.G_RET_STS_SUCCESS) THEN
1334: NULL;
1335: ELSE
1336: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
1337: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1338: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
1339: RAISE OKL_API.G_EXCEPTION_ERROR;
1340: END IF;
1341: END IF;
1334: NULL;
1335: ELSE
1336: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
1337: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1338: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
1339: RAISE OKL_API.G_EXCEPTION_ERROR;
1340: END IF;
1341: END IF;
1342: END IF;
1335: ELSE
1336: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
1337: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1338: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
1339: RAISE OKL_API.G_EXCEPTION_ERROR;
1340: END IF;
1341: END IF;
1342: END IF;
1343: ELSE
1350: x_return_status => l_return_status,
1351: x_msg_count => l_msg_count,
1352: x_msg_data => l_msg_data,
1353: p_gvev_rec => l_gvev_rec);
1354: IF (l_return_status = OKL_API.G_RET_STS_SUCCESS) THEN
1355: NULL;
1356: ELSE
1357: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
1358: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1353: p_gvev_rec => l_gvev_rec);
1354: IF (l_return_status = OKL_API.G_RET_STS_SUCCESS) THEN
1355: NULL;
1356: ELSE
1357: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
1358: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1359: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
1360: RAISE OKL_API.G_EXCEPTION_ERROR;
1361: END IF;
1354: IF (l_return_status = OKL_API.G_RET_STS_SUCCESS) THEN
1355: NULL;
1356: ELSE
1357: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
1358: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1359: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
1360: RAISE OKL_API.G_EXCEPTION_ERROR;
1361: END IF;
1362: END IF;
1355: NULL;
1356: ELSE
1357: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
1358: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1359: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
1360: RAISE OKL_API.G_EXCEPTION_ERROR;
1361: END IF;
1362: END IF;
1363: END IF;
1356: ELSE
1357: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
1358: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1359: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
1360: RAISE OKL_API.G_EXCEPTION_ERROR;
1361: END IF;
1362: END IF;
1363: END IF;
1364: END IF;
1364: END IF;
1365: /* Manu Bug #4671978 27-Oct-2005 End */
1366:
1367:
1368: IF (((p_hdr_rec.p_workflow_process) <> OKL_API.G_MISS_NUM) AND ((p_hdr_rec.p_workflow_process) IS NOT NULL)) THEN
1369:
1370: -- update the okc_processes_v with the new values
1371: OPEN cur_k_process_id(p_program_id);
1372: FETCH cur_k_process_id INTO l_process_id;
1379:
1380: okc_contract_pub.update_contract_process(
1381: p_api_version => l_api_version,
1382: x_return_status => l_return_status,
1383: p_init_msg_list => OKL_API.G_FALSE,
1384: x_msg_count => l_msg_count,
1385: x_msg_data => l_msg_data,
1386: p_cpsv_rec => cpsv_rec_type3,
1387: x_cpsv_rec => cpsv_rec_type4);
1385: x_msg_data => l_msg_data,
1386: p_cpsv_rec => cpsv_rec_type3,
1387: x_cpsv_rec => cpsv_rec_type4);
1388:
1389: IF (l_return_status = OKL_API.G_RET_STS_SUCCESS) THEN
1390: NULL;
1391: ELSE
1392: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
1393: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1388:
1389: IF (l_return_status = OKL_API.G_RET_STS_SUCCESS) THEN
1390: NULL;
1391: ELSE
1392: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
1393: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1394: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
1395: RAISE OKL_API.G_EXCEPTION_ERROR;
1396: END IF;
1389: IF (l_return_status = OKL_API.G_RET_STS_SUCCESS) THEN
1390: NULL;
1391: ELSE
1392: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
1393: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1394: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
1395: RAISE OKL_API.G_EXCEPTION_ERROR;
1396: END IF;
1397: END IF;
1390: NULL;
1391: ELSE
1392: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
1393: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1394: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
1395: RAISE OKL_API.G_EXCEPTION_ERROR;
1396: END IF;
1397: END IF;
1398:
1391: ELSE
1392: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
1393: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1394: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
1395: RAISE OKL_API.G_EXCEPTION_ERROR;
1396: END IF;
1397: END IF;
1398:
1399: ELSE
1403: cpsv_rec_type3.pdf_id :=p_hdr_rec.p_workflow_process;
1404:
1405: okc_contract_pub.create_contract_process(
1406: p_api_version => l_api_version,
1407: p_init_msg_list => OKL_API.G_FALSE,
1408: x_return_status => l_return_status,
1409: x_msg_count => l_msg_count,
1410: x_msg_data => l_msg_data,
1411: p_cpsv_rec => cpsv_rec_type3,
1410: x_msg_data => l_msg_data,
1411: p_cpsv_rec => cpsv_rec_type3,
1412: x_cpsv_rec => cpsv_rec_type4);
1413:
1414: IF (l_return_status = OKL_API.G_RET_STS_SUCCESS) THEN
1415: NULL;
1416: ELSE
1417: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
1418: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1413:
1414: IF (l_return_status = OKL_API.G_RET_STS_SUCCESS) THEN
1415: NULL;
1416: ELSE
1417: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
1418: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1419: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
1420: RAISE OKL_API.G_EXCEPTION_ERROR;
1421: END IF;
1414: IF (l_return_status = OKL_API.G_RET_STS_SUCCESS) THEN
1415: NULL;
1416: ELSE
1417: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
1418: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1419: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
1420: RAISE OKL_API.G_EXCEPTION_ERROR;
1421: END IF;
1422: END IF;
1415: NULL;
1416: ELSE
1417: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
1418: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1419: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
1420: RAISE OKL_API.G_EXCEPTION_ERROR;
1421: END IF;
1422: END IF;
1423:
1416: ELSE
1417: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
1418: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1419: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
1420: RAISE OKL_API.G_EXCEPTION_ERROR;
1421: END IF;
1422: END IF;
1423:
1424: END IF; -- cursor cur_k_process end if
1428: END IF;
1429:
1430: ELSE
1431:
1432: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
1433: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1434: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
1435: RAISE OKL_API.G_EXCEPTION_ERROR;
1436: END IF;
1429:
1430: ELSE
1431:
1432: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
1433: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1434: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
1435: RAISE OKL_API.G_EXCEPTION_ERROR;
1436: END IF;
1437:
1430: ELSE
1431:
1432: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
1433: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1434: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
1435: RAISE OKL_API.G_EXCEPTION_ERROR;
1436: END IF;
1437:
1438: END IF;
1431:
1432: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
1433: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1434: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
1435: RAISE OKL_API.G_EXCEPTION_ERROR;
1436: END IF;
1437:
1438: END IF;
1439:
1442: FETCH cur_k_party_roles INTO l_party_id;
1443: IF (cur_k_party_roles%NOTFOUND) THEN
1444: CLOSE cur_k_party_roles;
1445: -- Murthy Set message to be registered
1446: OKL_API.set_message(p_app_name => g_app_name,
1447: p_msg_name => 'OKL_JTOT_CODE_NOT_FOUND'
1448: );
1449: RAISE OKL_API.G_EXCEPTION_ERROR;
1450: END IF;
1445: -- Murthy Set message to be registered
1446: OKL_API.set_message(p_app_name => g_app_name,
1447: p_msg_name => 'OKL_JTOT_CODE_NOT_FOUND'
1448: );
1449: RAISE OKL_API.G_EXCEPTION_ERROR;
1450: END IF;
1451: CLOSE cur_k_party_roles;
1452:
1453: l1_cplv_rec.id := l_party_id;
1450: END IF;
1451: CLOSE cur_k_party_roles;
1452:
1453: l1_cplv_rec.id := l_party_id;
1454: IF (p_hdr_rec.p_object1_id1 IS NULL OR p_hdr_rec.p_object1_id1 = OKL_API.G_MISS_CHAR) OR
1455: (p_hdr_rec.p_object1_id2 IS NULL OR p_hdr_rec.p_object1_id2 = OKL_API.G_MISS_CHAR) THEN
1456: NULL;
1457: ELSE
1458: l1_cplv_rec.object1_id1 := p_hdr_rec.p_object1_id1;
1451: CLOSE cur_k_party_roles;
1452:
1453: l1_cplv_rec.id := l_party_id;
1454: IF (p_hdr_rec.p_object1_id1 IS NULL OR p_hdr_rec.p_object1_id1 = OKL_API.G_MISS_CHAR) OR
1455: (p_hdr_rec.p_object1_id2 IS NULL OR p_hdr_rec.p_object1_id2 = OKL_API.G_MISS_CHAR) THEN
1456: NULL;
1457: ELSE
1458: l1_cplv_rec.object1_id1 := p_hdr_rec.p_object1_id1;
1459: l1_cplv_rec.object1_id2 := p_hdr_rec.p_object1_id2;
1478: x_msg_data => x_msg_data,
1479: p_object_name => l1_cplv_rec.jtot_object1_code,
1480: p_id1 => l1_cplv_rec.object1_id1,
1481: p_id2 => l1_cplv_rec.object1_id2);
1482: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1483: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1484: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1485: RAISE OKL_API.G_EXCEPTION_ERROR;
1486: END IF;
1479: p_object_name => l1_cplv_rec.jtot_object1_code,
1480: p_id1 => l1_cplv_rec.object1_id1,
1481: p_id2 => l1_cplv_rec.object1_id2);
1482: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1483: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1484: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1485: RAISE OKL_API.G_EXCEPTION_ERROR;
1486: END IF;
1487:
1480: p_id1 => l1_cplv_rec.object1_id1,
1481: p_id2 => l1_cplv_rec.object1_id2);
1482: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1483: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1484: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1485: RAISE OKL_API.G_EXCEPTION_ERROR;
1486: END IF;
1487:
1488: END IF;
1481: p_id2 => l1_cplv_rec.object1_id2);
1482: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1483: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1484: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1485: RAISE OKL_API.G_EXCEPTION_ERROR;
1486: END IF;
1487:
1488: END IF;
1489:
1491: ---- Changes End
1492:
1493:
1494: OKC_CONTRACT_PARTY_PUB.update_k_party_role(p_api_version => p_api_version,
1495: p_init_msg_list => OKL_API.G_FALSE,
1496: x_return_status => l_return_status,
1497: x_msg_count => x_msg_count,
1498: x_msg_data => x_msg_data,
1499: p_cplv_rec => l1_cplv_rec,
1499: p_cplv_rec => l1_cplv_rec,
1500: x_cplv_rec => l2_cplv_rec
1501: );
1502:
1503: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
1504: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1505: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
1506: RAISE OKL_API.G_EXCEPTION_ERROR;
1507: END IF;
1500: x_cplv_rec => l2_cplv_rec
1501: );
1502:
1503: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
1504: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1505: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
1506: RAISE OKL_API.G_EXCEPTION_ERROR;
1507: END IF;
1508:
1501: );
1502:
1503: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
1504: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1505: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
1506: RAISE OKL_API.G_EXCEPTION_ERROR;
1507: END IF;
1508:
1509: --Added by abhsxen for bug 6487870
1502:
1503: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
1504: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1505: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
1506: RAISE OKL_API.G_EXCEPTION_ERROR;
1507: END IF;
1508:
1509: --Added by abhsxen for bug 6487870
1510: l_kplv_rec.ID := l2_cplv_rec.ID;
1517: x_msg_data => x_msg_data,
1518: p_kplv_rec => l_kplv_rec,
1519: x_kplv_rec => x_kplv_rec);
1520:
1521: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
1522: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1523: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
1524: RAISE OKL_API.G_EXCEPTION_ERROR;
1525: END IF;
1518: p_kplv_rec => l_kplv_rec,
1519: x_kplv_rec => x_kplv_rec);
1520:
1521: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
1522: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1523: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
1524: RAISE OKL_API.G_EXCEPTION_ERROR;
1525: END IF;
1526: --end abhsxen
1519: x_kplv_rec => x_kplv_rec);
1520:
1521: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
1522: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1523: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
1524: RAISE OKL_API.G_EXCEPTION_ERROR;
1525: END IF;
1526: --end abhsxen
1527:
1520:
1521: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
1522: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1523: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
1524: RAISE OKL_API.G_EXCEPTION_ERROR;
1525: END IF;
1526: --end abhsxen
1527:
1528: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count
1524: RAISE OKL_API.G_EXCEPTION_ERROR;
1525: END IF;
1526: --end abhsxen
1527:
1528: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count
1529: ,x_msg_data => x_msg_data
1530: );
1531:
1532: EXCEPTION
1530: );
1531:
1532: EXCEPTION
1533:
1534: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1535:
1536: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1537: (p_api_name => l_api_name
1538: ,p_pkg_name => G_PKG_NAME
1532: EXCEPTION
1533:
1534: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1535:
1536: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1537: (p_api_name => l_api_name
1538: ,p_pkg_name => G_PKG_NAME
1539: ,p_exc_name => 'OKL_API.G_RET_STS_ERROR'
1540: ,x_msg_count => x_msg_count
1535:
1536: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1537: (p_api_name => l_api_name
1538: ,p_pkg_name => G_PKG_NAME
1539: ,p_exc_name => 'OKL_API.G_RET_STS_ERROR'
1540: ,x_msg_count => x_msg_count
1541: ,x_msg_data => x_msg_data
1542: ,p_api_type => '_PVT'
1543: );
1541: ,x_msg_data => x_msg_data
1542: ,p_api_type => '_PVT'
1543: );
1544:
1545: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1546:
1547: x_return_status := OKL_API.HANDLE_EXCEPTIONS(l_api_name
1548: ,g_pkg_name
1549: ,'OKL_API.G_RET_STS_ERROR'
1543: );
1544:
1545: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1546:
1547: x_return_status := OKL_API.HANDLE_EXCEPTIONS(l_api_name
1548: ,g_pkg_name
1549: ,'OKL_API.G_RET_STS_ERROR'
1550: ,x_msg_count
1551: ,x_msg_data
1545: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1546:
1547: x_return_status := OKL_API.HANDLE_EXCEPTIONS(l_api_name
1548: ,g_pkg_name
1549: ,'OKL_API.G_RET_STS_ERROR'
1550: ,x_msg_count
1551: ,x_msg_data
1552: ,'_PVT'
1553: );
1553: );
1554:
1555: WHEN OTHERS THEN
1556:
1557: x_return_status := OKL_API.HANDLE_EXCEPTIONS(l_api_name
1558: ,g_pkg_name
1559: ,'OTHERS'
1560: ,x_msg_count
1561: ,x_msg_data
1628: -- Ignores if the status of the given agreement(contract) is in any other statys
1629: -- other than status PASSED.
1630:
1631: PROCEDURE passed_to_incomplete(p_api_version IN NUMBER,
1632: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
1633: x_return_status OUT NOCOPY VARCHAR2,
1634: x_msg_count OUT NOCOPY NUMBER,
1635: x_msg_data OUT NOCOPY VARCHAR2,
1636: p_program_id IN OKC_K_HEADERS_V.ID%TYPE) IS
1641: l_cr_status_code okl_vp_change_requests.status_code%TYPE := NULL;
1642: l_cr_type okl_vp_change_requests.change_type_code%TYPE := NULL;
1643: l_incomplete_status_code OKC_K_HEADERS_V.STS_CODE%TYPE := 'INCOMPLETE';
1644:
1645: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1646:
1647: l_msg_count NUMBER;
1648: l_msg_data VARCHAR2(2000);
1649: l_api_version NUMBER := 1.0;
1663: WHERE id = (SELECT crs_id FROM okl_k_headers WHERE id = p_chr_id);
1664:
1665: BEGIN
1666:
1667: l_return_status := OKL_API.START_ACTIVITY(p_api_name => l_api_name
1668: ,p_init_msg_list => p_init_msg_list
1669: ,p_api_type => '_PVT'
1670: ,x_return_status => x_return_status
1671: );
1669: ,p_api_type => '_PVT'
1670: ,x_return_status => x_return_status
1671: );
1672:
1673: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
1674: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1675: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
1676: RAISE OKL_API.G_EXCEPTION_ERROR;
1677: END IF;
1670: ,x_return_status => x_return_status
1671: );
1672:
1673: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
1674: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1675: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
1676: RAISE OKL_API.G_EXCEPTION_ERROR;
1677: END IF;
1678:
1671: );
1672:
1673: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
1674: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1675: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
1676: RAISE OKL_API.G_EXCEPTION_ERROR;
1677: END IF;
1678:
1679: x_return_status := OKL_API.G_RET_STS_SUCCESS;
1672:
1673: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
1674: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1675: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
1676: RAISE OKL_API.G_EXCEPTION_ERROR;
1677: END IF;
1678:
1679: x_return_status := OKL_API.G_RET_STS_SUCCESS;
1680:
1675: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
1676: RAISE OKL_API.G_EXCEPTION_ERROR;
1677: END IF;
1678:
1679: x_return_status := OKL_API.G_RET_STS_SUCCESS;
1680:
1681: --
1682: IF (p_program_id <> OKL_API.G_MISS_NUM OR p_program_id IS NOT NULL) THEN
1683: -- Get the agreement Status
1678:
1679: x_return_status := OKL_API.G_RET_STS_SUCCESS;
1680:
1681: --
1682: IF (p_program_id <> OKL_API.G_MISS_NUM OR p_program_id IS NOT NULL) THEN
1683: -- Get the agreement Status
1684: OPEN l_sts_code_csr(p_chr_id => p_program_id);
1685: FETCH l_sts_code_csr INTO l_sts_code;
1686: -- IF (l_sts_code_csr%NOTFOUND OR l_sts_code IS NULL) THEN
1729: );
1730: END IF;
1731: END IF;
1732:
1733: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
1734: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1735: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
1736: RAISE OKL_API.G_EXCEPTION_ERROR;
1737: END IF;
1730: END IF;
1731: END IF;
1732:
1733: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
1734: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1735: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
1736: RAISE OKL_API.G_EXCEPTION_ERROR;
1737: END IF;
1738:
1731: END IF;
1732:
1733: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
1734: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1735: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
1736: RAISE OKL_API.G_EXCEPTION_ERROR;
1737: END IF;
1738:
1739: -- Call end_activity
1732:
1733: IF l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
1734: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1735: ELSIF l_return_status = OKL_API.G_RET_STS_ERROR THEN
1736: RAISE OKL_API.G_EXCEPTION_ERROR;
1737: END IF;
1738:
1739: -- Call end_activity
1740: OKC_API.END_ACTIVITY (x_msg_count,
1742:
1743:
1744: EXCEPTION
1745:
1746: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1747: x_return_status := OKL_API.G_RET_STS_ERROR;
1748: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1749: (p_api_name => l_api_name
1750: ,p_pkg_name => G_PKG_NAME
1743:
1744: EXCEPTION
1745:
1746: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1747: x_return_status := OKL_API.G_RET_STS_ERROR;
1748: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1749: (p_api_name => l_api_name
1750: ,p_pkg_name => G_PKG_NAME
1751: ,p_exc_name => 'OKL_API.G_RET_STS_ERROR'
1744: EXCEPTION
1745:
1746: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1747: x_return_status := OKL_API.G_RET_STS_ERROR;
1748: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1749: (p_api_name => l_api_name
1750: ,p_pkg_name => G_PKG_NAME
1751: ,p_exc_name => 'OKL_API.G_RET_STS_ERROR'
1752: ,x_msg_count => x_msg_count
1747: x_return_status := OKL_API.G_RET_STS_ERROR;
1748: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1749: (p_api_name => l_api_name
1750: ,p_pkg_name => G_PKG_NAME
1751: ,p_exc_name => 'OKL_API.G_RET_STS_ERROR'
1752: ,x_msg_count => x_msg_count
1753: ,x_msg_data => x_msg_data
1754: ,p_api_type => '_PVT'
1755: );
1753: ,x_msg_data => x_msg_data
1754: ,p_api_type => '_PVT'
1755: );
1756:
1757: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1758: x_return_status := OKL_API.G_RET_STS_ERROR;
1759: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1760: l_api_name
1761: ,g_pkg_name
1754: ,p_api_type => '_PVT'
1755: );
1756:
1757: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1758: x_return_status := OKL_API.G_RET_STS_ERROR;
1759: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1760: l_api_name
1761: ,g_pkg_name
1762: ,'OKL_API.G_RET_STS_ERROR'
1755: );
1756:
1757: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1758: x_return_status := OKL_API.G_RET_STS_ERROR;
1759: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1760: l_api_name
1761: ,g_pkg_name
1762: ,'OKL_API.G_RET_STS_ERROR'
1763: ,x_msg_count
1758: x_return_status := OKL_API.G_RET_STS_ERROR;
1759: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1760: l_api_name
1761: ,g_pkg_name
1762: ,'OKL_API.G_RET_STS_ERROR'
1763: ,x_msg_count
1764: ,x_msg_data
1765: ,'_PVT'
1766: );
1765: ,'_PVT'
1766: );
1767:
1768: WHEN OTHERS THEN
1769: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
1770: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1771: l_api_name
1772: ,g_pkg_name
1773: ,'OTHERS'
1766: );
1767:
1768: WHEN OTHERS THEN
1769: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
1770: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
1771: l_api_name
1772: ,g_pkg_name
1773: ,'OTHERS'
1774: ,x_msg_count