7: --------------------------------------------------------
8:
9: PROCEDURE create_evgrn_party_roles(
10: p_api_version IN NUMBER,
11: p_init_msg_list IN VARCHAR2 DEFAULT Okc_Api.G_FALSE,
12: x_return_status OUT NOCOPY VARCHAR2,
13: x_msg_count OUT NOCOPY NUMBER,
14: x_msg_data OUT NOCOPY VARCHAR2,
15: p_chr_id IN NUMBER,
16: p_vendor_id IN NUMBER,
17: x_cpl_id OUT NOCOPY NUMBER
18: ) IS
19: l_api_name CONSTANT VARCHAR2(30) := 'CREATE_EVGRN_PARTY_ROLES';
20: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
21: l_overall_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
22:
23: CURSOR chr_party_role_csr (p_chr_id IN NUMBER, p_vendor_id IN NUMBER) IS
24: SELECT '1'
84: END IF;
85: x_cpl_id := x_cplv_rec.id;
86:
87: EXCEPTION
88: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
89:
90: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
91: (l_api_name,
92: G_PKG_NAME,
86:
87: EXCEPTION
88: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
89:
90: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
91: (l_api_name,
92: G_PKG_NAME,
93: 'OKC_API.G_RET_STS_ERROR',
94: x_msg_count,
89:
90: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
91: (l_api_name,
92: G_PKG_NAME,
93: 'OKC_API.G_RET_STS_ERROR',
94: x_msg_count,
95: x_msg_data,
96: '_PVT');
97: WHEN Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
93: 'OKC_API.G_RET_STS_ERROR',
94: x_msg_count,
95: x_msg_data,
96: '_PVT');
97: WHEN Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
98: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
99: (l_api_name,
100: G_PKG_NAME,
101: 'OKC_API.G_RET_STS_UNEXP_ERROR',
94: x_msg_count,
95: x_msg_data,
96: '_PVT');
97: WHEN Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
98: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
99: (l_api_name,
100: G_PKG_NAME,
101: 'OKC_API.G_RET_STS_UNEXP_ERROR',
102: x_msg_count,
97: WHEN Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
98: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
99: (l_api_name,
100: G_PKG_NAME,
101: 'OKC_API.G_RET_STS_UNEXP_ERROR',
102: x_msg_count,
103: x_msg_data,
104: '_PVT');
105: WHEN OTHERS THEN
102: x_msg_count,
103: x_msg_data,
104: '_PVT');
105: WHEN OTHERS THEN
106: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
107: (l_api_name,
108: G_PKG_NAME,
109: 'OTHERS',
110: x_msg_count,
117: --------------------------------------------------------
118:
119: PROCEDURE create_evgrn_party_roles(
120: p_api_version IN NUMBER,
121: p_init_msg_list IN VARCHAR2 DEFAULT Okc_Api.G_FALSE,
122: x_return_status OUT NOCOPY VARCHAR2,
123: x_msg_count OUT NOCOPY NUMBER,
124: x_msg_data OUT NOCOPY VARCHAR2,
125: p_chr_id IN NUMBER,
126: p_vendor_id IN NUMBER,
127: x_cle_tbl OUT NOCOPY evg_cle_tbl_type
128: ) IS
129: l_api_name CONSTANT VARCHAR2(30) := 'CREATE_EVGRN_PARTY_ROLES';
130: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
131: l_overall_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
132: i NUMBER := 0;
133: lx_cle_tbl evg_cle_tbl_type;
134:
295: END LOOP;
296: END IF;
297:
298: EXCEPTION
299: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
300:
301: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
302: (l_api_name,
303: G_PKG_NAME,
297:
298: EXCEPTION
299: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
300:
301: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
302: (l_api_name,
303: G_PKG_NAME,
304: 'OKC_API.G_RET_STS_ERROR',
305: x_msg_count,
300:
301: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
302: (l_api_name,
303: G_PKG_NAME,
304: 'OKC_API.G_RET_STS_ERROR',
305: x_msg_count,
306: x_msg_data,
307: '_PVT');
308: WHEN Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
304: 'OKC_API.G_RET_STS_ERROR',
305: x_msg_count,
306: x_msg_data,
307: '_PVT');
308: WHEN Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
309: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
310: (l_api_name,
311: G_PKG_NAME,
312: 'OKC_API.G_RET_STS_UNEXP_ERROR',
305: x_msg_count,
306: x_msg_data,
307: '_PVT');
308: WHEN Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
309: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
310: (l_api_name,
311: G_PKG_NAME,
312: 'OKC_API.G_RET_STS_UNEXP_ERROR',
313: x_msg_count,
308: WHEN Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
309: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
310: (l_api_name,
311: G_PKG_NAME,
312: 'OKC_API.G_RET_STS_UNEXP_ERROR',
313: x_msg_count,
314: x_msg_data,
315: '_PVT');
316: WHEN OTHERS THEN
313: x_msg_count,
314: x_msg_data,
315: '_PVT');
316: WHEN OTHERS THEN
317: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
318: (l_api_name,
319: G_PKG_NAME,
320: 'OTHERS',
321: x_msg_count,
332: x_return_status OUT NOCOPY VARCHAR2,
333: p_pphv_rec IN pphv_rec_type
334: ) IS
335: l_api_name VARCHAR2(30) := 'VALIDATE_HDR_RECORD';
336: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
337:
338: BEGIN
339: x_return_status := l_return_status;
340: IF (p_pphv_rec.passthru_term = 'BASE' ) THEN
391: END validate_hdr_record;
392:
393: PROCEDURE create_party_payment_hdr(
394: p_api_version IN NUMBER,
395: p_init_msg_list IN VARCHAR2 DEFAULT Okc_Api.G_FALSE,
396: x_return_status OUT NOCOPY VARCHAR2,
397: x_msg_count OUT NOCOPY NUMBER,
398: x_msg_data OUT NOCOPY VARCHAR2,
399: p_pphv_rec IN pphv_rec_type,
399: p_pphv_rec IN pphv_rec_type,
400: x_pphv_rec OUT NOCOPY pphv_rec_type
401: ) IS
402: l_api_name CONSTANT VARCHAR2(30) := 'CREATE_PARTY_PAYMENT_HDR';
403: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
404:
405: CURSOR get_start_date_csr (p_chr_id NUMBER)IS
406: SELECT start_date
407: FROM okc_k_headers_b
425: x_return_status := l_return_status;
426:
427: -- Call start_activity to create savepoint, check compatibility
428: -- and initialize message list
429: l_return_status := Okc_Api.START_ACTIVITY (l_api_name
430: ,p_init_msg_list
431: ,'_PVT'
432: ,x_return_status);
433:
431: ,'_PVT'
432: ,x_return_status);
433:
434: -- Check if activity started successfully
435: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
436: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
437: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
438: RAISE Okc_Api.G_EXCEPTION_ERROR;
439: END IF;
432: ,x_return_status);
433:
434: -- Check if activity started successfully
435: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
436: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
437: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
438: RAISE Okc_Api.G_EXCEPTION_ERROR;
439: END IF;
440:
433:
434: -- Check if activity started successfully
435: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
436: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
437: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
438: RAISE Okc_Api.G_EXCEPTION_ERROR;
439: END IF;
440:
441: --Bug# 4959361
434: -- Check if activity started successfully
435: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
436: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
437: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
438: RAISE Okc_Api.G_EXCEPTION_ERROR;
439: END IF;
440:
441: --Bug# 4959361
442: IF p_pphv_rec.cle_id IS NOT NULL THEN
462: p_pphv_rec.passthru_term);
463: FETCH check_duplicate_csr INTO l_exist;
464: CLOSE check_duplicate_csr;
465: IF (l_exist IS NOT NULL) THEN
466: Okc_Api.SET_MESSAGE( p_app_name => g_app_name,
467: p_msg_name => 'OKL_PPM_PASSTHRU_TERM_EXISTS'
468: );
469: x_return_status := Okl_Api.G_RET_STS_ERROR;
470: RAISE G_EXCEPTION_HALT_VALIDATION;
495: validate_hdr_record(x_return_status, x_pphv_rec);
496:
497: IF (x_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
498: l_return_status := x_return_status;
499: RAISE Okc_Api.G_EXCEPTION_ERROR;
500: END IF;
501: x_return_status := l_return_status;
502:
503: -- Bug 4917691: fmiao start
517: raise OKL_API.G_EXCEPTION_ERROR;
518: End If;
519: -- Bug 4917691: fmiao end
520:
521: Okc_Api.END_ACTIVITY (x_msg_count
522: ,x_msg_data );
523:
524: EXCEPTION
525: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
521: Okc_Api.END_ACTIVITY (x_msg_count
522: ,x_msg_data );
523:
524: EXCEPTION
525: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
526: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
527: (l_api_name,
528: G_PKG_NAME,
529: 'OKC_API.G_RET_STS_ERROR',
522: ,x_msg_data );
523:
524: EXCEPTION
525: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
526: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
527: (l_api_name,
528: G_PKG_NAME,
529: 'OKC_API.G_RET_STS_ERROR',
530: x_msg_count,
525: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
526: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
527: (l_api_name,
528: G_PKG_NAME,
529: 'OKC_API.G_RET_STS_ERROR',
530: x_msg_count,
531: x_msg_data,
532: '_PVT');
533: WHEN Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
529: 'OKC_API.G_RET_STS_ERROR',
530: x_msg_count,
531: x_msg_data,
532: '_PVT');
533: WHEN Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
534: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
535: (l_api_name,
536: G_PKG_NAME,
537: 'OKC_API.G_RET_STS_UNEXP_ERROR',
530: x_msg_count,
531: x_msg_data,
532: '_PVT');
533: WHEN Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
534: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
535: (l_api_name,
536: G_PKG_NAME,
537: 'OKC_API.G_RET_STS_UNEXP_ERROR',
538: x_msg_count,
533: WHEN Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
534: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
535: (l_api_name,
536: G_PKG_NAME,
537: 'OKC_API.G_RET_STS_UNEXP_ERROR',
538: x_msg_count,
539: x_msg_data,
540: '_PVT');
541: WHEN OTHERS THEN
538: x_msg_count,
539: x_msg_data,
540: '_PVT');
541: WHEN OTHERS THEN
542: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
543: (l_api_name,
544: G_PKG_NAME,
545: 'OTHERS',
546: x_msg_count,
549: END create_party_payment_hdr;
550:
551: PROCEDURE create_party_payment_hdr(
552: p_api_version IN NUMBER,
553: p_init_msg_list IN VARCHAR2 DEFAULT Okc_Api.G_FALSE,
554: x_return_status OUT NOCOPY VARCHAR2,
555: x_msg_count OUT NOCOPY NUMBER,
556: x_msg_data OUT NOCOPY VARCHAR2,
557: p_pphv_tbl IN pphv_tbl_type,
557: p_pphv_tbl IN pphv_tbl_type,
558: x_pphv_tbl OUT NOCOPY pphv_tbl_type
559: ) IS
560: l_api_name CONSTANT VARCHAR2(30) := 'CREATE_PARTY_PAYMENT_HDR';
561: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
562: l_overall_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
563: i NUMBER;
564: BEGIN
565:
594: RAISE Okl_Api.G_EXCEPTION_ERROR;
595: END IF;
596:
597: EXCEPTION
598: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
599: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
600: (l_api_name,
601: G_PKG_NAME,
602: 'OKC_API.G_RET_STS_ERROR',
595: END IF;
596:
597: EXCEPTION
598: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
599: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
600: (l_api_name,
601: G_PKG_NAME,
602: 'OKC_API.G_RET_STS_ERROR',
603: x_msg_count,
598: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
599: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
600: (l_api_name,
601: G_PKG_NAME,
602: 'OKC_API.G_RET_STS_ERROR',
603: x_msg_count,
604: x_msg_data,
605: '_PVT');
606: WHEN Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
602: 'OKC_API.G_RET_STS_ERROR',
603: x_msg_count,
604: x_msg_data,
605: '_PVT');
606: WHEN Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
607: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
608: (l_api_name,
609: G_PKG_NAME,
610: 'OKC_API.G_RET_STS_UNEXP_ERROR',
603: x_msg_count,
604: x_msg_data,
605: '_PVT');
606: WHEN Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
607: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
608: (l_api_name,
609: G_PKG_NAME,
610: 'OKC_API.G_RET_STS_UNEXP_ERROR',
611: x_msg_count,
606: WHEN Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
607: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
608: (l_api_name,
609: G_PKG_NAME,
610: 'OKC_API.G_RET_STS_UNEXP_ERROR',
611: x_msg_count,
612: x_msg_data,
613: '_PVT');
614: WHEN OTHERS THEN
611: x_msg_count,
612: x_msg_data,
613: '_PVT');
614: WHEN OTHERS THEN
615: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
616: (l_api_name,
617: G_PKG_NAME,
618: 'OTHERS',
619: x_msg_count,
622: END create_party_payment_hdr;
623:
624: PROCEDURE lock_party_payment_hdr(
625: p_api_version IN NUMBER,
626: p_init_msg_list IN VARCHAR2 DEFAULT Okc_Api.G_FALSE,
627: x_return_status OUT NOCOPY VARCHAR2,
628: x_msg_count OUT NOCOPY NUMBER,
629: x_msg_data OUT NOCOPY VARCHAR2,
630: p_pphv_rec IN pphv_rec_type
629: x_msg_data OUT NOCOPY VARCHAR2,
630: p_pphv_rec IN pphv_rec_type
631: ) IS
632: l_api_name CONSTANT VARCHAR2(30) := 'LOCK_PARTY_PAYMENT_HDR';
633: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
634: BEGIN
635: x_return_status := l_return_status;
636: -- Call start_activity to create savepoint, check compatibility
637: -- and initialize message list
634: BEGIN
635: x_return_status := l_return_status;
636: -- Call start_activity to create savepoint, check compatibility
637: -- and initialize message list
638: l_return_status := Okc_Api.START_ACTIVITY (l_api_name
639: ,p_init_msg_list
640: ,'_PVT'
641: ,x_return_status);
642: -- Check if activity started successfully
639: ,p_init_msg_list
640: ,'_PVT'
641: ,x_return_status);
642: -- Check if activity started successfully
643: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
644: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
645: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
646: RAISE Okc_Api.G_EXCEPTION_ERROR;
647: END IF;
640: ,'_PVT'
641: ,x_return_status);
642: -- Check if activity started successfully
643: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
644: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
645: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
646: RAISE Okc_Api.G_EXCEPTION_ERROR;
647: END IF;
648:
641: ,x_return_status);
642: -- Check if activity started successfully
643: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
644: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
645: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
646: RAISE Okc_Api.G_EXCEPTION_ERROR;
647: END IF;
648:
649: Okl_Ldb_Pvt.lock_row(p_api_version,
642: -- Check if activity started successfully
643: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
644: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
645: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
646: RAISE Okc_Api.G_EXCEPTION_ERROR;
647: END IF;
648:
649: Okl_Ldb_Pvt.lock_row(p_api_version,
650: p_init_msg_list,
658: ELSIF x_return_status = Okl_Api.G_RET_STS_ERROR THEN
659: RAISE Okl_Api.G_EXCEPTION_ERROR;
660: END IF;
661:
662: Okc_Api.END_ACTIVITY (x_msg_count
663: ,x_msg_data );
664:
665: EXCEPTION
666: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
662: Okc_Api.END_ACTIVITY (x_msg_count
663: ,x_msg_data );
664:
665: EXCEPTION
666: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
667: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
668: (l_api_name,
669: G_PKG_NAME,
670: 'OKC_API.G_RET_STS_ERROR',
663: ,x_msg_data );
664:
665: EXCEPTION
666: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
667: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
668: (l_api_name,
669: G_PKG_NAME,
670: 'OKC_API.G_RET_STS_ERROR',
671: x_msg_count,
666: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
667: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
668: (l_api_name,
669: G_PKG_NAME,
670: 'OKC_API.G_RET_STS_ERROR',
671: x_msg_count,
672: x_msg_data,
673: '_PVT');
674: WHEN Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
670: 'OKC_API.G_RET_STS_ERROR',
671: x_msg_count,
672: x_msg_data,
673: '_PVT');
674: WHEN Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
675: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
676: (l_api_name,
677: G_PKG_NAME,
678: 'OKC_API.G_RET_STS_UNEXP_ERROR',
671: x_msg_count,
672: x_msg_data,
673: '_PVT');
674: WHEN Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
675: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
676: (l_api_name,
677: G_PKG_NAME,
678: 'OKC_API.G_RET_STS_UNEXP_ERROR',
679: x_msg_count,
674: WHEN Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
675: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
676: (l_api_name,
677: G_PKG_NAME,
678: 'OKC_API.G_RET_STS_UNEXP_ERROR',
679: x_msg_count,
680: x_msg_data,
681: '_PVT');
682: WHEN OTHERS THEN
679: x_msg_count,
680: x_msg_data,
681: '_PVT');
682: WHEN OTHERS THEN
683: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
684: (l_api_name,
685: G_PKG_NAME,
686: 'OTHERS',
687: x_msg_count,
690: END lock_party_payment_hdr;
691:
692: PROCEDURE lock_party_payment_hdr(
693: p_api_version IN NUMBER,
694: p_init_msg_list IN VARCHAR2 DEFAULT Okc_Api.G_FALSE,
695: x_return_status OUT NOCOPY VARCHAR2,
696: x_msg_count OUT NOCOPY NUMBER,
697: x_msg_data OUT NOCOPY VARCHAR2,
698: p_pphv_tbl IN pphv_tbl_type
697: x_msg_data OUT NOCOPY VARCHAR2,
698: p_pphv_tbl IN pphv_tbl_type
699: ) IS
700: l_api_name CONSTANT VARCHAR2(30) := 'LOCK_PARTY_PAYMENT_HDR';
701: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
702: l_overall_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
703: i NUMBER;
704: BEGIN
705:
733: RAISE Okl_Api.G_EXCEPTION_ERROR;
734: END IF;
735:
736: EXCEPTION
737: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
738: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
739: (l_api_name,
740: G_PKG_NAME,
741: 'OKC_API.G_RET_STS_ERROR',
734: END IF;
735:
736: EXCEPTION
737: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
738: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
739: (l_api_name,
740: G_PKG_NAME,
741: 'OKC_API.G_RET_STS_ERROR',
742: x_msg_count,
737: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
738: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
739: (l_api_name,
740: G_PKG_NAME,
741: 'OKC_API.G_RET_STS_ERROR',
742: x_msg_count,
743: x_msg_data,
744: '_PVT');
745: WHEN Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
741: 'OKC_API.G_RET_STS_ERROR',
742: x_msg_count,
743: x_msg_data,
744: '_PVT');
745: WHEN Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
746: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
747: (l_api_name,
748: G_PKG_NAME,
749: 'OKC_API.G_RET_STS_UNEXP_ERROR',
742: x_msg_count,
743: x_msg_data,
744: '_PVT');
745: WHEN Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
746: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
747: (l_api_name,
748: G_PKG_NAME,
749: 'OKC_API.G_RET_STS_UNEXP_ERROR',
750: x_msg_count,
745: WHEN Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
746: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
747: (l_api_name,
748: G_PKG_NAME,
749: 'OKC_API.G_RET_STS_UNEXP_ERROR',
750: x_msg_count,
751: x_msg_data,
752: '_PVT');
753: WHEN OTHERS THEN
750: x_msg_count,
751: x_msg_data,
752: '_PVT');
753: WHEN OTHERS THEN
754: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
755: (l_api_name,
756: G_PKG_NAME,
757: 'OTHERS',
758: x_msg_count,
761: END lock_party_payment_hdr;
762:
763: PROCEDURE delete_party_payment_hdr(
764: p_api_version IN NUMBER,
765: p_init_msg_list IN VARCHAR2 DEFAULT Okc_Api.G_FALSE,
766: x_return_status OUT NOCOPY VARCHAR2,
767: x_msg_count OUT NOCOPY NUMBER,
768: x_msg_data OUT NOCOPY VARCHAR2,
769: p_pphv_rec IN pphv_rec_type
768: x_msg_data OUT NOCOPY VARCHAR2,
769: p_pphv_rec IN pphv_rec_type
770: ) IS
771: l_api_name CONSTANT VARCHAR2(30) := 'DELETE_PARTY_PAYMENT_HDR';
772: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
773:
774: --Bug# 4959361
775: CURSOR l_pph_csr(p_pph_id IN NUMBER) IS
776: SELECT cle_id
783: BEGIN
784: x_return_status := l_return_status;
785: -- Call start_activity to create savepoint, check compatibility
786: -- and initialize message list
787: l_return_status := Okc_Api.START_ACTIVITY (l_api_name
788: ,p_init_msg_list
789: ,'_PVT'
790: ,x_return_status);
791: -- Check if activity started successfully
788: ,p_init_msg_list
789: ,'_PVT'
790: ,x_return_status);
791: -- Check if activity started successfully
792: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
793: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
794: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
795: RAISE Okc_Api.G_EXCEPTION_ERROR;
796: END IF;
789: ,'_PVT'
790: ,x_return_status);
791: -- Check if activity started successfully
792: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
793: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
794: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
795: RAISE Okc_Api.G_EXCEPTION_ERROR;
796: END IF;
797:
790: ,x_return_status);
791: -- Check if activity started successfully
792: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
793: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
794: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
795: RAISE Okc_Api.G_EXCEPTION_ERROR;
796: END IF;
797:
798: --Bug# 4959361
791: -- Check if activity started successfully
792: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
793: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
794: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
795: RAISE Okc_Api.G_EXCEPTION_ERROR;
796: END IF;
797:
798: --Bug# 4959361
799: OPEN l_pph_csr(p_pph_id => p_pphv_rec.id);
829: ELSIF x_return_status = Okl_Api.G_RET_STS_ERROR THEN
830: RAISE Okl_Api.G_EXCEPTION_ERROR;
831: END IF;
832:
833: Okc_Api.END_ACTIVITY (x_msg_count
834: ,x_msg_data );
835:
836: EXCEPTION
837: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
833: Okc_Api.END_ACTIVITY (x_msg_count
834: ,x_msg_data );
835:
836: EXCEPTION
837: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
838: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
839: (l_api_name,
840: G_PKG_NAME,
841: 'OKC_API.G_RET_STS_ERROR',
834: ,x_msg_data );
835:
836: EXCEPTION
837: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
838: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
839: (l_api_name,
840: G_PKG_NAME,
841: 'OKC_API.G_RET_STS_ERROR',
842: x_msg_count,
837: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
838: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
839: (l_api_name,
840: G_PKG_NAME,
841: 'OKC_API.G_RET_STS_ERROR',
842: x_msg_count,
843: x_msg_data,
844: '_PVT');
845: WHEN Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
841: 'OKC_API.G_RET_STS_ERROR',
842: x_msg_count,
843: x_msg_data,
844: '_PVT');
845: WHEN Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
846: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
847: (l_api_name,
848: G_PKG_NAME,
849: 'OKC_API.G_RET_STS_UNEXP_ERROR',
842: x_msg_count,
843: x_msg_data,
844: '_PVT');
845: WHEN Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
846: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
847: (l_api_name,
848: G_PKG_NAME,
849: 'OKC_API.G_RET_STS_UNEXP_ERROR',
850: x_msg_count,
845: WHEN Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
846: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
847: (l_api_name,
848: G_PKG_NAME,
849: 'OKC_API.G_RET_STS_UNEXP_ERROR',
850: x_msg_count,
851: x_msg_data,
852: '_PVT');
853: WHEN OTHERS THEN
850: x_msg_count,
851: x_msg_data,
852: '_PVT');
853: WHEN OTHERS THEN
854: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
855: (l_api_name,
856: G_PKG_NAME,
857: 'OTHERS',
858: x_msg_count,
861: END delete_party_payment_hdr;
862:
863: PROCEDURE delete_party_payment_hdr(
864: p_api_version IN NUMBER,
865: p_init_msg_list IN VARCHAR2 DEFAULT Okc_Api.G_FALSE,
866: x_return_status OUT NOCOPY VARCHAR2,
867: x_msg_count OUT NOCOPY NUMBER,
868: x_msg_data OUT NOCOPY VARCHAR2,
869: p_pphv_tbl IN pphv_tbl_type
868: x_msg_data OUT NOCOPY VARCHAR2,
869: p_pphv_tbl IN pphv_tbl_type
870: ) IS
871: l_api_name CONSTANT VARCHAR2(30) := 'DELETE_PARTY_PAYMENT_HDR';
872: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
873: l_overall_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
874: i NUMBER;
875: BEGIN
876:
904: RAISE Okl_Api.G_EXCEPTION_ERROR;
905: END IF;
906:
907: EXCEPTION
908: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
909: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
910: (l_api_name,
911: G_PKG_NAME,
912: 'OKC_API.G_RET_STS_ERROR',
905: END IF;
906:
907: EXCEPTION
908: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
909: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
910: (l_api_name,
911: G_PKG_NAME,
912: 'OKC_API.G_RET_STS_ERROR',
913: x_msg_count,
908: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
909: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
910: (l_api_name,
911: G_PKG_NAME,
912: 'OKC_API.G_RET_STS_ERROR',
913: x_msg_count,
914: x_msg_data,
915: '_PVT');
916: WHEN Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
912: 'OKC_API.G_RET_STS_ERROR',
913: x_msg_count,
914: x_msg_data,
915: '_PVT');
916: WHEN Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
917: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
918: (l_api_name,
919: G_PKG_NAME,
920: 'OKC_API.G_RET_STS_UNEXP_ERROR',
913: x_msg_count,
914: x_msg_data,
915: '_PVT');
916: WHEN Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
917: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
918: (l_api_name,
919: G_PKG_NAME,
920: 'OKC_API.G_RET_STS_UNEXP_ERROR',
921: x_msg_count,
916: WHEN Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
917: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
918: (l_api_name,
919: G_PKG_NAME,
920: 'OKC_API.G_RET_STS_UNEXP_ERROR',
921: x_msg_count,
922: x_msg_data,
923: '_PVT');
924: WHEN OTHERS THEN
921: x_msg_count,
922: x_msg_data,
923: '_PVT');
924: WHEN OTHERS THEN
925: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
926: (l_api_name,
927: G_PKG_NAME,
928: 'OTHERS',
929: x_msg_count,
932: END delete_party_payment_hdr;
933:
934: PROCEDURE update_party_payment_hdr(
935: p_api_version IN NUMBER,
936: p_init_msg_list IN VARCHAR2 DEFAULT Okc_Api.G_FALSE,
937: x_return_status OUT NOCOPY VARCHAR2,
938: x_msg_count OUT NOCOPY NUMBER,
939: x_msg_data OUT NOCOPY VARCHAR2,
940: p_pphv_rec IN pphv_rec_type,
940: p_pphv_rec IN pphv_rec_type,
941: x_pphv_rec OUT NOCOPY pphv_rec_type
942: ) IS
943: l_api_name CONSTANT VARCHAR2(30) := 'UPDATE_PARTY_PAYMENT_HDR';
944: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
945:
946: --Bug# 4959361
947: CURSOR l_pph_csr(p_pph_id IN NUMBER) IS
948: SELECT cle_id
955: BEGIN
956: x_return_status := l_return_status;
957: -- Call start_activity to create savepoint, check compatibility
958: -- and initialize message list
959: l_return_status := Okc_Api.START_ACTIVITY (l_api_name
960: ,p_init_msg_list
961: ,'_PVT'
962: ,x_return_status);
963: -- Check if activity started successfully
960: ,p_init_msg_list
961: ,'_PVT'
962: ,x_return_status);
963: -- Check if activity started successfully
964: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
965: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
966: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
967: RAISE Okc_Api.G_EXCEPTION_ERROR;
968: END IF;
961: ,'_PVT'
962: ,x_return_status);
963: -- Check if activity started successfully
964: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
965: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
966: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
967: RAISE Okc_Api.G_EXCEPTION_ERROR;
968: END IF;
969:
962: ,x_return_status);
963: -- Check if activity started successfully
964: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
965: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
966: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
967: RAISE Okc_Api.G_EXCEPTION_ERROR;
968: END IF;
969:
970: --Bug# 4959361
963: -- Check if activity started successfully
964: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
965: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
966: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
967: RAISE Okc_Api.G_EXCEPTION_ERROR;
968: END IF;
969:
970: --Bug# 4959361
971: OPEN l_pph_csr(p_pph_id => p_pphv_rec.id);
1006: validate_hdr_record(x_return_status, x_pphv_rec);
1007:
1008: IF (x_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
1009: l_return_status := x_return_status;
1010: RAISE Okc_Api.G_EXCEPTION_ERROR;
1011: END IF;
1012:
1013: -- Bug 4917691: fmiao start
1014: -- Need to change contract status to INCOMPLETE when create/update ppy
1027: raise OKL_API.G_EXCEPTION_ERROR;
1028: End If;
1029: -- Bug 4917691: fmiao end
1030:
1031: Okc_Api.END_ACTIVITY (x_msg_count
1032: ,x_msg_data );
1033:
1034: EXCEPTION
1035: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
1031: Okc_Api.END_ACTIVITY (x_msg_count
1032: ,x_msg_data );
1033:
1034: EXCEPTION
1035: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
1036: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
1037: (l_api_name,
1038: G_PKG_NAME,
1039: 'OKC_API.G_RET_STS_ERROR',
1032: ,x_msg_data );
1033:
1034: EXCEPTION
1035: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
1036: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
1037: (l_api_name,
1038: G_PKG_NAME,
1039: 'OKC_API.G_RET_STS_ERROR',
1040: x_msg_count,
1035: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
1036: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
1037: (l_api_name,
1038: G_PKG_NAME,
1039: 'OKC_API.G_RET_STS_ERROR',
1040: x_msg_count,
1041: x_msg_data,
1042: '_PVT');
1043: WHEN Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
1039: 'OKC_API.G_RET_STS_ERROR',
1040: x_msg_count,
1041: x_msg_data,
1042: '_PVT');
1043: WHEN Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
1044: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
1045: (l_api_name,
1046: G_PKG_NAME,
1047: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1040: x_msg_count,
1041: x_msg_data,
1042: '_PVT');
1043: WHEN Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
1044: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
1045: (l_api_name,
1046: G_PKG_NAME,
1047: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1048: x_msg_count,
1043: WHEN Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
1044: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
1045: (l_api_name,
1046: G_PKG_NAME,
1047: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1048: x_msg_count,
1049: x_msg_data,
1050: '_PVT');
1051: WHEN OTHERS THEN
1048: x_msg_count,
1049: x_msg_data,
1050: '_PVT');
1051: WHEN OTHERS THEN
1052: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
1053: (l_api_name,
1054: G_PKG_NAME,
1055: 'OTHERS',
1056: x_msg_count,
1059: END update_party_payment_hdr;
1060:
1061: PROCEDURE update_party_payment_hdr(
1062: p_api_version IN NUMBER,
1063: p_init_msg_list IN VARCHAR2 DEFAULT Okc_Api.G_FALSE,
1064: x_return_status OUT NOCOPY VARCHAR2,
1065: x_msg_count OUT NOCOPY NUMBER,
1066: x_msg_data OUT NOCOPY VARCHAR2,
1067: p_pphv_tbl IN pphv_tbl_type,
1067: p_pphv_tbl IN pphv_tbl_type,
1068: x_pphv_tbl OUT NOCOPY pphv_tbl_type
1069: ) IS
1070: l_api_name CONSTANT VARCHAR2(30) := 'UPDATE_PARTY_PAYMENT_HDR';
1071: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
1072: l_overall_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
1073: i NUMBER;
1074:
1075: BEGIN
1105: RAISE Okl_Api.G_EXCEPTION_ERROR;
1106: END IF;
1107:
1108: EXCEPTION
1109: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
1110: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
1111: (l_api_name,
1112: G_PKG_NAME,
1113: 'OKC_API.G_RET_STS_ERROR',
1106: END IF;
1107:
1108: EXCEPTION
1109: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
1110: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
1111: (l_api_name,
1112: G_PKG_NAME,
1113: 'OKC_API.G_RET_STS_ERROR',
1114: x_msg_count,
1109: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
1110: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
1111: (l_api_name,
1112: G_PKG_NAME,
1113: 'OKC_API.G_RET_STS_ERROR',
1114: x_msg_count,
1115: x_msg_data,
1116: '_PVT');
1117: WHEN Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
1113: 'OKC_API.G_RET_STS_ERROR',
1114: x_msg_count,
1115: x_msg_data,
1116: '_PVT');
1117: WHEN Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
1118: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
1119: (l_api_name,
1120: G_PKG_NAME,
1121: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1114: x_msg_count,
1115: x_msg_data,
1116: '_PVT');
1117: WHEN Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
1118: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
1119: (l_api_name,
1120: G_PKG_NAME,
1121: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1122: x_msg_count,
1117: WHEN Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
1118: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
1119: (l_api_name,
1120: G_PKG_NAME,
1121: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1122: x_msg_count,
1123: x_msg_data,
1124: '_PVT');
1125: WHEN OTHERS THEN
1122: x_msg_count,
1123: x_msg_data,
1124: '_PVT');
1125: WHEN OTHERS THEN
1126: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
1127: (l_api_name,
1128: G_PKG_NAME,
1129: 'OTHERS',
1130: x_msg_count,
1133: END update_party_payment_hdr;
1134:
1135: PROCEDURE validate_party_payment_hdr(
1136: p_api_version IN NUMBER,
1137: p_init_msg_list IN VARCHAR2 DEFAULT Okc_Api.G_FALSE,
1138: x_return_status OUT NOCOPY VARCHAR2,
1139: x_msg_count OUT NOCOPY NUMBER,
1140: x_msg_data OUT NOCOPY VARCHAR2,
1141: p_pphv_rec IN pphv_rec_type
1140: x_msg_data OUT NOCOPY VARCHAR2,
1141: p_pphv_rec IN pphv_rec_type
1142: ) IS
1143: l_api_name CONSTANT VARCHAR2(30) := 'VALIDATE_PARTY_PAYMENT_HDR';
1144: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
1145: BEGIN
1146: x_return_status := l_return_status;
1147: -- Call start_activity to create savepoint, check compatibility
1148: -- and initialize message list
1145: BEGIN
1146: x_return_status := l_return_status;
1147: -- Call start_activity to create savepoint, check compatibility
1148: -- and initialize message list
1149: l_return_status := Okc_Api.START_ACTIVITY (l_api_name
1150: ,p_init_msg_list
1151: ,'_PVT'
1152: ,x_return_status);
1153: -- Check if activity started successfully
1150: ,p_init_msg_list
1151: ,'_PVT'
1152: ,x_return_status);
1153: -- Check if activity started successfully
1154: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1155: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1156: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
1157: RAISE Okc_Api.G_EXCEPTION_ERROR;
1158: END IF;
1151: ,'_PVT'
1152: ,x_return_status);
1153: -- Check if activity started successfully
1154: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1155: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1156: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
1157: RAISE Okc_Api.G_EXCEPTION_ERROR;
1158: END IF;
1159:
1152: ,x_return_status);
1153: -- Check if activity started successfully
1154: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1155: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1156: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
1157: RAISE Okc_Api.G_EXCEPTION_ERROR;
1158: END IF;
1159:
1160: Okl_Ldb_Pvt.validate_row(p_api_version,
1153: -- Check if activity started successfully
1154: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1155: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1156: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
1157: RAISE Okc_Api.G_EXCEPTION_ERROR;
1158: END IF;
1159:
1160: Okl_Ldb_Pvt.validate_row(p_api_version,
1161: p_init_msg_list,
1169: ELSIF x_return_status = Okl_Api.G_RET_STS_ERROR THEN
1170: RAISE Okl_Api.G_EXCEPTION_ERROR;
1171: END IF;
1172:
1173: Okc_Api.END_ACTIVITY (x_msg_count
1174: ,x_msg_data );
1175:
1176: EXCEPTION
1177: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
1173: Okc_Api.END_ACTIVITY (x_msg_count
1174: ,x_msg_data );
1175:
1176: EXCEPTION
1177: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
1178: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
1179: (l_api_name,
1180: G_PKG_NAME,
1181: 'OKC_API.G_RET_STS_ERROR',
1174: ,x_msg_data );
1175:
1176: EXCEPTION
1177: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
1178: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
1179: (l_api_name,
1180: G_PKG_NAME,
1181: 'OKC_API.G_RET_STS_ERROR',
1182: x_msg_count,
1177: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
1178: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
1179: (l_api_name,
1180: G_PKG_NAME,
1181: 'OKC_API.G_RET_STS_ERROR',
1182: x_msg_count,
1183: x_msg_data,
1184: '_PVT');
1185: WHEN Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
1181: 'OKC_API.G_RET_STS_ERROR',
1182: x_msg_count,
1183: x_msg_data,
1184: '_PVT');
1185: WHEN Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
1186: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
1187: (l_api_name,
1188: G_PKG_NAME,
1189: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1182: x_msg_count,
1183: x_msg_data,
1184: '_PVT');
1185: WHEN Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
1186: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
1187: (l_api_name,
1188: G_PKG_NAME,
1189: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1190: x_msg_count,
1185: WHEN Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
1186: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
1187: (l_api_name,
1188: G_PKG_NAME,
1189: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1190: x_msg_count,
1191: x_msg_data,
1192: '_PVT');
1193: WHEN OTHERS THEN
1190: x_msg_count,
1191: x_msg_data,
1192: '_PVT');
1193: WHEN OTHERS THEN
1194: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
1195: (l_api_name,
1196: G_PKG_NAME,
1197: 'OTHERS',
1198: x_msg_count,
1201: END validate_party_payment_hdr;
1202:
1203: PROCEDURE validate_party_payment_hdr(
1204: p_api_version IN NUMBER,
1205: p_init_msg_list IN VARCHAR2 DEFAULT Okc_Api.G_FALSE,
1206: x_return_status OUT NOCOPY VARCHAR2,
1207: x_msg_count OUT NOCOPY NUMBER,
1208: x_msg_data OUT NOCOPY VARCHAR2,
1209: p_pphv_tbl IN pphv_tbl_type
1208: x_msg_data OUT NOCOPY VARCHAR2,
1209: p_pphv_tbl IN pphv_tbl_type
1210: ) IS
1211: l_api_name CONSTANT VARCHAR2(30) := 'VALIDATE_PARTY_PAYMENT_HDR';
1212: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
1213: l_overall_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
1214: i NUMBER;
1215: BEGIN
1216:
1244: RAISE Okl_Api.G_EXCEPTION_ERROR;
1245: END IF;
1246:
1247: EXCEPTION
1248: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
1249: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
1250: (l_api_name,
1251: G_PKG_NAME,
1252: 'OKC_API.G_RET_STS_ERROR',
1245: END IF;
1246:
1247: EXCEPTION
1248: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
1249: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
1250: (l_api_name,
1251: G_PKG_NAME,
1252: 'OKC_API.G_RET_STS_ERROR',
1253: x_msg_count,
1248: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
1249: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
1250: (l_api_name,
1251: G_PKG_NAME,
1252: 'OKC_API.G_RET_STS_ERROR',
1253: x_msg_count,
1254: x_msg_data,
1255: '_PVT');
1256: WHEN Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
1252: 'OKC_API.G_RET_STS_ERROR',
1253: x_msg_count,
1254: x_msg_data,
1255: '_PVT');
1256: WHEN Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
1257: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
1258: (l_api_name,
1259: G_PKG_NAME,
1260: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1253: x_msg_count,
1254: x_msg_data,
1255: '_PVT');
1256: WHEN Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
1257: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
1258: (l_api_name,
1259: G_PKG_NAME,
1260: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1261: x_msg_count,
1256: WHEN Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
1257: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
1258: (l_api_name,
1259: G_PKG_NAME,
1260: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1261: x_msg_count,
1262: x_msg_data,
1263: '_PVT');
1264: WHEN OTHERS THEN
1261: x_msg_count,
1262: x_msg_data,
1263: '_PVT');
1264: WHEN OTHERS THEN
1265: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
1266: (l_api_name,
1267: G_PKG_NAME,
1268: 'OTHERS',
1269: x_msg_count,
1276: --not used currently --
1277: --NOTES: handle cle_id optional when use this procedure --
1278: ------------------------------------------------------------------
1279: PROCEDURE validate_passthru_qa (p_api_version IN NUMBER,
1280: p_init_msg_list IN VARCHAR2 DEFAULT Okc_Api.G_FALSE,
1281: x_return_status OUT NOCOPY VARCHAR2,
1282: x_msg_count OUT NOCOPY NUMBER,
1283: x_msg_data OUT NOCOPY VARCHAR2,
1284: p_chr_id IN NUMBER
1386: IF Okl_Context.get_okc_org_id IS NULL THEN
1387: Okl_Context.set_okc_org_context(p_chr_id => l_chr_id );
1388: END IF;
1389:
1390: x_return_status := Okc_Api.START_ACTIVITY(
1391: p_api_name => l_api_name,
1392: p_pkg_name => g_pkg_name,
1393: p_init_msg_list => p_init_msg_list,
1394: l_api_version => l_api_version,
1396: p_api_type => g_api_type,
1397: x_return_status => x_return_status);
1398:
1399: -- check if activity started successfully
1400: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1401: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1402: ELSIF (x_return_status = Okc_Api.G_RET_STS_ERROR) THEN
1403: RAISE Okc_Api.G_EXCEPTION_ERROR;
1404: END IF;
1397: x_return_status => x_return_status);
1398:
1399: -- check if activity started successfully
1400: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1401: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1402: ELSIF (x_return_status = Okc_Api.G_RET_STS_ERROR) THEN
1403: RAISE Okc_Api.G_EXCEPTION_ERROR;
1404: END IF;
1405: x_return_status := Okc_Api.G_RET_STS_SUCCESS;
1398:
1399: -- check if activity started successfully
1400: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1401: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1402: ELSIF (x_return_status = Okc_Api.G_RET_STS_ERROR) THEN
1403: RAISE Okc_Api.G_EXCEPTION_ERROR;
1404: END IF;
1405: x_return_status := Okc_Api.G_RET_STS_SUCCESS;
1406:
1399: -- check if activity started successfully
1400: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1401: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1402: ELSIF (x_return_status = Okc_Api.G_RET_STS_ERROR) THEN
1403: RAISE Okc_Api.G_EXCEPTION_ERROR;
1404: END IF;
1405: x_return_status := Okc_Api.G_RET_STS_SUCCESS;
1406:
1407: -- Sum of the vendors amounts for one cle id should match line amount--
1401: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1402: ELSIF (x_return_status = Okc_Api.G_RET_STS_ERROR) THEN
1403: RAISE Okc_Api.G_EXCEPTION_ERROR;
1404: END IF;
1405: x_return_status := Okc_Api.G_RET_STS_SUCCESS;
1406:
1407: -- Sum of the vendors amounts for one cle id should match line amount--
1408: FOR line_amount_rec IN line_amount_csr (p_chr_id => l_chr_id)
1409: LOOP
1427: END LOOP;
1428: --dbms_output.put_line('l_vendor_total_amt: '||l_vendor_total_amt||
1429: -- ' l_kle_amount: '||l_kle_amount);
1430: IF (l_vendor_total_amt <> 0 AND l_vendor_total_amt <> l_kle_amount) THEN
1431: x_return_status := Okc_Api.G_RET_STS_ERROR;
1432: Okc_Api.SET_MESSAGE( p_app_name => g_app_name
1433: , p_msg_name => 'OKL_PPM_AMT_NOT_MATCH'
1434: );
1435: RAISE Okc_Api.G_EXCEPTION_ERROR;
1428: --dbms_output.put_line('l_vendor_total_amt: '||l_vendor_total_amt||
1429: -- ' l_kle_amount: '||l_kle_amount);
1430: IF (l_vendor_total_amt <> 0 AND l_vendor_total_amt <> l_kle_amount) THEN
1431: x_return_status := Okc_Api.G_RET_STS_ERROR;
1432: Okc_Api.SET_MESSAGE( p_app_name => g_app_name
1433: , p_msg_name => 'OKL_PPM_AMT_NOT_MATCH'
1434: );
1435: RAISE Okc_Api.G_EXCEPTION_ERROR;
1436: END IF;
1431: x_return_status := Okc_Api.G_RET_STS_ERROR;
1432: Okc_Api.SET_MESSAGE( p_app_name => g_app_name
1433: , p_msg_name => 'OKL_PPM_AMT_NOT_MATCH'
1434: );
1435: RAISE Okc_Api.G_EXCEPTION_ERROR;
1436: END IF;
1437: END LOOP;
1438:
1439: --Disbursement amount (line amount) should not exceed fee payemnt amount
1457: --dbms_output.put_line('l_fee_line_amt: '||l_fee_line_amt||
1458: -- ' l_payment_amt: '||l_payment_amt);
1459: IF (l_payment_amt <> 0) THEN
1460: IF (l_fee_line_amt > l_payment_amt) THEN
1461: x_return_status := Okc_Api.G_RET_STS_ERROR;
1462: Okc_Api.SET_MESSAGE( p_app_name => g_app_name
1463: , p_msg_name => 'OKL_PPM_LINE_GT_PMNT'
1464: );
1465: RAISE Okc_Api.G_EXCEPTION_ERROR;
1458: -- ' l_payment_amt: '||l_payment_amt);
1459: IF (l_payment_amt <> 0) THEN
1460: IF (l_fee_line_amt > l_payment_amt) THEN
1461: x_return_status := Okc_Api.G_RET_STS_ERROR;
1462: Okc_Api.SET_MESSAGE( p_app_name => g_app_name
1463: , p_msg_name => 'OKL_PPM_LINE_GT_PMNT'
1464: );
1465: RAISE Okc_Api.G_EXCEPTION_ERROR;
1466: END IF;
1461: x_return_status := Okc_Api.G_RET_STS_ERROR;
1462: Okc_Api.SET_MESSAGE( p_app_name => g_app_name
1463: , p_msg_name => 'OKL_PPM_LINE_GT_PMNT'
1464: );
1465: RAISE Okc_Api.G_EXCEPTION_ERROR;
1466: END IF;
1467: END IF;
1468:
1469: -- payment required if payout basis in the folling values
1469: -- payment required if payout basis in the folling values
1470: IF (line_type_rec.payout_basis IN ('DUE_DATE','BILLING',
1471: 'FULL_RECEIPT','PARTIAL_RECEIPT') AND
1472: NVL(l_amount,0) = 0) THEN
1473: x_return_status := Okc_Api.G_RET_STS_ERROR;
1474: Okc_Api.SET_MESSAGE( p_app_name => g_app_name
1475: , p_msg_name => 'OKL_PPM_PMNT_REQ'
1476: );
1477: RAISE Okc_Api.G_EXCEPTION_ERROR;
1470: IF (line_type_rec.payout_basis IN ('DUE_DATE','BILLING',
1471: 'FULL_RECEIPT','PARTIAL_RECEIPT') AND
1472: NVL(l_amount,0) = 0) THEN
1473: x_return_status := Okc_Api.G_RET_STS_ERROR;
1474: Okc_Api.SET_MESSAGE( p_app_name => g_app_name
1475: , p_msg_name => 'OKL_PPM_PMNT_REQ'
1476: );
1477: RAISE Okc_Api.G_EXCEPTION_ERROR;
1478: END IF;
1473: x_return_status := Okc_Api.G_RET_STS_ERROR;
1474: Okc_Api.SET_MESSAGE( p_app_name => g_app_name
1475: , p_msg_name => 'OKL_PPM_PMNT_REQ'
1476: );
1477: RAISE Okc_Api.G_EXCEPTION_ERROR;
1478: END IF;
1479: END LOOP;
1480:
1481: l_amount := 0;
1490: -- ' l_amount: '||l_amount);
1491: IF (s_line_type_rec.payout_basis NOT IN ('DUE_DATE','BILLING',
1492: 'PARTIAL_RECEIPT','FULL_RECEIPT') AND
1493: l_amount <> 0) THEN
1494: x_return_status := Okc_Api.G_RET_STS_ERROR;
1495: Okc_Api.SET_MESSAGE( p_app_name => g_app_name
1496: , p_msg_name => 'OKL_PPM_PAYOUT_NO_PMNT'
1497: );
1498: RAISE Okc_Api.G_EXCEPTION_ERROR;
1491: IF (s_line_type_rec.payout_basis NOT IN ('DUE_DATE','BILLING',
1492: 'PARTIAL_RECEIPT','FULL_RECEIPT') AND
1493: l_amount <> 0) THEN
1494: x_return_status := Okc_Api.G_RET_STS_ERROR;
1495: Okc_Api.SET_MESSAGE( p_app_name => g_app_name
1496: , p_msg_name => 'OKL_PPM_PAYOUT_NO_PMNT'
1497: );
1498: RAISE Okc_Api.G_EXCEPTION_ERROR;
1499: END IF;
1494: x_return_status := Okc_Api.G_RET_STS_ERROR;
1495: Okc_Api.SET_MESSAGE( p_app_name => g_app_name
1496: , p_msg_name => 'OKL_PPM_PAYOUT_NO_PMNT'
1497: );
1498: RAISE Okc_Api.G_EXCEPTION_ERROR;
1499: END IF;
1500: END LOOP;
1501:
1502: Okc_Api.END_ACTIVITY(x_msg_count => x_msg_count,
1498: RAISE Okc_Api.G_EXCEPTION_ERROR;
1499: END IF;
1500: END LOOP;
1501:
1502: Okc_Api.END_ACTIVITY(x_msg_count => x_msg_count,
1503: x_msg_data => x_msg_data);
1504: EXCEPTION
1505: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
1506: x_return_status := Okc_Api.HANDLE_EXCEPTIONS(
1501:
1502: Okc_Api.END_ACTIVITY(x_msg_count => x_msg_count,
1503: x_msg_data => x_msg_data);
1504: EXCEPTION
1505: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
1506: x_return_status := Okc_Api.HANDLE_EXCEPTIONS(
1507: p_api_name => l_api_name,
1508: p_pkg_name => g_pkg_name,
1509: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
1502: Okc_Api.END_ACTIVITY(x_msg_count => x_msg_count,
1503: x_msg_data => x_msg_data);
1504: EXCEPTION
1505: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
1506: x_return_status := Okc_Api.HANDLE_EXCEPTIONS(
1507: p_api_name => l_api_name,
1508: p_pkg_name => g_pkg_name,
1509: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
1510: x_msg_count => x_msg_count,
1505: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
1506: x_return_status := Okc_Api.HANDLE_EXCEPTIONS(
1507: p_api_name => l_api_name,
1508: p_pkg_name => g_pkg_name,
1509: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
1510: x_msg_count => x_msg_count,
1511: x_msg_data => x_msg_data,
1512: p_api_type => g_api_type);
1513:
1510: x_msg_count => x_msg_count,
1511: x_msg_data => x_msg_data,
1512: p_api_type => g_api_type);
1513:
1514: WHEN Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
1515: x_return_status := Okc_Api.HANDLE_EXCEPTIONS(
1516: p_api_name => l_api_name,
1517: p_pkg_name => g_pkg_name,
1518: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
1511: x_msg_data => x_msg_data,
1512: p_api_type => g_api_type);
1513:
1514: WHEN Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
1515: x_return_status := Okc_Api.HANDLE_EXCEPTIONS(
1516: p_api_name => l_api_name,
1517: p_pkg_name => g_pkg_name,
1518: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
1519: x_msg_count => x_msg_count,
1514: WHEN Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
1515: x_return_status := Okc_Api.HANDLE_EXCEPTIONS(
1516: p_api_name => l_api_name,
1517: p_pkg_name => g_pkg_name,
1518: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
1519: x_msg_count => x_msg_count,
1520: x_msg_data => x_msg_data,
1521: p_api_type => g_api_type);
1522:
1520: x_msg_data => x_msg_data,
1521: p_api_type => g_api_type);
1522:
1523: WHEN OTHERS THEN
1524: x_return_status := Okc_Api.HANDLE_EXCEPTIONS(
1525: p_api_name => l_api_name,
1526: p_pkg_name => g_pkg_name,
1527: p_exc_name => 'OTHERS',
1528: x_msg_count => x_msg_count,
1536: --Get passthru parameters --
1537: ------------------------------------------------------------------
1538: PROCEDURE get_passthru_parameters(
1539: p_api_version IN NUMBER,
1540: p_init_msg_list IN VARCHAR2 DEFAULT Okc_Api.G_FALSE,
1541: x_return_status OUT NOCOPY VARCHAR2,
1542: x_msg_count OUT NOCOPY NUMBER,
1543: x_msg_data OUT NOCOPY VARCHAR2,
1544: p_chr_id IN NUMBER,
1546: p_vendor_id IN NUMBER,
1547: x_passthru_param_tbl OUT NOCOPY passthru_param_tbl_type
1548: ) IS
1549: l_api_name CONSTANT VARCHAR2(30) := 'GET_PASSTHRU_PARAMETERS';
1550: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
1551:
1552: CURSOR get_passthru_param_csr (p_chr_id NUMBER) IS
1553: SELECT pph.dnz_chr_id,
1554: pph.cle_id,
1685: x_return_status OUT NOCOPY VARCHAR2,
1686: p_ppydv_rec IN ppydv_rec_type
1687: ) IS
1688: l_api_name CONSTANT VARCHAR2(30) := 'VALIDATE_DTLS_RECORD';
1689: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
1690:
1691: --cursor to find if vendor id is proper party --
1692: CURSOR l_cplb_csr(p_vendor_id IN NUMBER,
1693: p_cpl_id IN NUMBER) IS
1745: NULL;
1746: END IF;
1747: CLOSE l_hdr_csr;
1748: IF l_exists = 'N' THEN
1749: Okc_Api.SET_MESSAGE( p_app_name => g_app_name
1750: , p_msg_name => 'OKL_PPM_HEADER_MISSING'
1751: );
1752: x_return_status := Okl_Api.G_RET_STS_ERROR;
1753: RAISE G_EXCEPTION_HALT_VALIDATION;
1769: --can be done from UI--
1770: -- Remittance Days required if basis is 'PROCESSINGDATE'--
1771: IF (p_ppydv_rec.payment_basis = 'PROCESS_DATE' AND
1772: p_ppydv_rec.REMIT_DAYS IS NULL) THEN
1773: Okc_Api.SET_MESSAGE(p_app_name => G_APP_NAME,
1774: p_msg_name => 'OKL_PPM_REMIT_DAYS_REQED'
1775: );
1776: x_return_status := Okc_Api.g_ret_sts_error;
1777: RAISE G_EXCEPTION_HALT_VALIDATION;
1772: p_ppydv_rec.REMIT_DAYS IS NULL) THEN
1773: Okc_Api.SET_MESSAGE(p_app_name => G_APP_NAME,
1774: p_msg_name => 'OKL_PPM_REMIT_DAYS_REQED'
1775: );
1776: x_return_status := Okc_Api.g_ret_sts_error;
1777: RAISE G_EXCEPTION_HALT_VALIDATION;
1778: END IF;
1779: --Validate Disbursement Fixed Amount
1780: IF (p_ppydv_rec.disbursement_basis = 'AMOUNT' AND
1839: -- Start date and frequency are mandatory if basis is 'SCHEDULED'
1840: IF (p_ppydv_rec.payment_basis = 'SCHEDULED') AND
1841: (p_ppydv_rec.payment_start_date IS NULL OR
1842: p_ppydv_rec.payment_frequency IS NULL) THEN
1843: Okc_Api.SET_MESSAGE(p_app_name => G_APP_NAME,
1844: p_msg_name => 'OKL_PPM_DF_REQED'
1845: );
1846: x_return_status := Okc_Api.g_ret_sts_error;
1847: RAISE G_EXCEPTION_HALT_VALIDATION;
1842: p_ppydv_rec.payment_frequency IS NULL) THEN
1843: Okc_Api.SET_MESSAGE(p_app_name => G_APP_NAME,
1844: p_msg_name => 'OKL_PPM_DF_REQED'
1845: );
1846: x_return_status := Okc_Api.g_ret_sts_error;
1847: RAISE G_EXCEPTION_HALT_VALIDATION;
1848: END IF;
1849:
1850: -- Processing fee basis not 'FORMULA' for 'BASE' --
1849:
1850: -- Processing fee basis not 'FORMULA' for 'BASE' --
1851: /*
1852: IF (p_ppydv_rec.processing_fee_basis = 'FORMULA') THEN
1853: OKC_API.SET_MESSAGE(p_app_name => G_APP_NAME,
1854: p_msg_name => 'OKL_PPM_INV_PROC_FEE_BASIS'
1855: );
1856: x_return_status := OKC_API.g_ret_sts_error;
1857: RAISE G_EXCEPTION_HALT_VALIDATION;
1852: IF (p_ppydv_rec.processing_fee_basis = 'FORMULA') THEN
1853: OKC_API.SET_MESSAGE(p_app_name => G_APP_NAME,
1854: p_msg_name => 'OKL_PPM_INV_PROC_FEE_BASIS'
1855: );
1856: x_return_status := OKC_API.g_ret_sts_error;
1857: RAISE G_EXCEPTION_HALT_VALIDATION;
1858: END IF;
1859:
1860: -- disbursment basis should not have 'FORMULA' value
1858: END IF;
1859:
1860: -- disbursment basis should not have 'FORMULA' value
1861: IF (p_ppydv_rec.disbursement_basis = 'FORMULA') THEN
1862: OKC_API.SET_MESSAGE(p_app_name => G_APP_NAME,
1863: p_msg_name => 'OKL_PPM_INV_DISB_BASIS'
1864: );
1865: x_return_status := OKC_API.g_ret_sts_error;
1866: RAISE G_EXCEPTION_HALT_VALIDATION;
1861: IF (p_ppydv_rec.disbursement_basis = 'FORMULA') THEN
1862: OKC_API.SET_MESSAGE(p_app_name => G_APP_NAME,
1863: p_msg_name => 'OKL_PPM_INV_DISB_BASIS'
1864: );
1865: x_return_status := OKC_API.g_ret_sts_error;
1866: RAISE G_EXCEPTION_HALT_VALIDATION;
1867: END IF; */
1868: -- Processing fee basis not 'FORMULA' for 'BASE' if INCLUDE_IN_YIELD_FLAG = 'Y'--
1869: /*IF (p_ppydv_rec.include_in_yield_flag = 'Y' AND
1867: END IF; */
1868: -- Processing fee basis not 'FORMULA' for 'BASE' if INCLUDE_IN_YIELD_FLAG = 'Y'--
1869: /*IF (p_ppydv_rec.include_in_yield_flag = 'Y' AND
1870: p_ppydv_rec.PROCESSING_FEE_BASIS = 'FORMULA') THEN
1871: OKC_API.SET_MESSAGE(p_app_name => G_APP_NAME,
1872: p_msg_name => 'OKL_PPM_INV_PRO_FEE_BASIS'
1873: );
1874: x_return_status := OKC_API.g_ret_sts_error;
1875: RAISE G_EXCEPTION_HALT_VALIDATION;
1870: p_ppydv_rec.PROCESSING_FEE_BASIS = 'FORMULA') THEN
1871: OKC_API.SET_MESSAGE(p_app_name => G_APP_NAME,
1872: p_msg_name => 'OKL_PPM_INV_PRO_FEE_BASIS'
1873: );
1874: x_return_status := OKC_API.g_ret_sts_error;
1875: RAISE G_EXCEPTION_HALT_VALIDATION;
1876: END IF; */
1877: ELSE
1878: -- payment basis has processing days only
1876: END IF; */
1877: ELSE
1878: -- payment basis has processing days only
1879: IF (p_ppydv_rec.payment_basis = 'SCHEDULED') THEN
1880: Okc_Api.SET_MESSAGE(p_app_name => G_APP_NAME,
1881: p_msg_name => 'OKL_PPM_INV_PMNT_BASIS'
1882: );
1883: x_return_status := Okc_Api.g_ret_sts_error;
1884: RAISE G_EXCEPTION_HALT_VALIDATION;
1879: IF (p_ppydv_rec.payment_basis = 'SCHEDULED') THEN
1880: Okc_Api.SET_MESSAGE(p_app_name => G_APP_NAME,
1881: p_msg_name => 'OKL_PPM_INV_PMNT_BASIS'
1882: );
1883: x_return_status := Okc_Api.g_ret_sts_error;
1884: RAISE G_EXCEPTION_HALT_VALIDATION;
1885: END IF;
1886: END IF;
1887:
1905: END validate_dtls_record;
1906:
1907: PROCEDURE create_party_payment_dtls(
1908: p_api_version IN NUMBER,
1909: p_init_msg_list IN VARCHAR2 DEFAULT Okc_Api.G_FALSE,
1910: x_return_status OUT NOCOPY VARCHAR2,
1911: x_msg_count OUT NOCOPY NUMBER,
1912: x_msg_data OUT NOCOPY VARCHAR2,
1913: p_ppydv_rec IN ppydv_rec_type,
1913: p_ppydv_rec IN ppydv_rec_type,
1914: x_ppydv_rec OUT NOCOPY ppydv_rec_type
1915: ) IS
1916: l_api_name CONSTANT VARCHAR2(30) := 'CREATE_PARTY_PAYMENT_DTLS';
1917: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
1918:
1919: CURSOR check_duplicate_csr (p_payment_hdr_id NUMBER,
1920: p_vendor_id NUMBER) IS
1921: SELECT '1'
1945: BEGIN
1946: x_return_status := l_return_status;
1947: -- Call start_activity to create savepoint, check compatibility
1948: -- and initialize message list
1949: l_return_status := Okc_Api.START_ACTIVITY (l_api_name
1950: ,p_init_msg_list
1951: ,'_PVT'
1952: ,x_return_status);
1953: -- Check if activity started successfully
1950: ,p_init_msg_list
1951: ,'_PVT'
1952: ,x_return_status);
1953: -- Check if activity started successfully
1954: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1955: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1956: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
1957: RAISE Okc_Api.G_EXCEPTION_ERROR;
1958: END IF;
1951: ,'_PVT'
1952: ,x_return_status);
1953: -- Check if activity started successfully
1954: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1955: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1956: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
1957: RAISE Okc_Api.G_EXCEPTION_ERROR;
1958: END IF;
1959:
1952: ,x_return_status);
1953: -- Check if activity started successfully
1954: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1955: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1956: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
1957: RAISE Okc_Api.G_EXCEPTION_ERROR;
1958: END IF;
1959:
1960: --Bug# 4959361
1953: -- Check if activity started successfully
1954: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1955: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1956: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
1957: RAISE Okc_Api.G_EXCEPTION_ERROR;
1958: END IF;
1959:
1960: --Bug# 4959361
1961: OPEN l_pph_csr(p_pph_id => p_ppydv_rec.payment_hdr_id);
1984: p_ppydv_rec.vendor_id);
1985: FETCH check_duplicate_csr INTO l_exist;
1986: CLOSE check_duplicate_csr;
1987: IF (l_exist IS NOT NULL) THEN
1988: Okc_Api.SET_MESSAGE( p_app_name => g_app_name,
1989: p_msg_name => 'OKL_PPM_VENDOR_EXISTS'
1990: );
1991: x_return_status := Okl_Api.G_RET_STS_ERROR;
1992: RAISE G_EXCEPTION_HALT_VALIDATION;
2009: validate_dtls_record(x_return_status, x_ppydv_rec);
2010:
2011: IF (x_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
2012: l_return_status := x_return_status;
2013: RAISE Okc_Api.G_EXCEPTION_ERROR;
2014: END IF;
2015: x_return_status := l_return_status;
2016:
2017: -- Bug 4917691: fmiao start
2037: End If;
2038: END IF;
2039: -- Bug 4917691: fmiao end
2040:
2041: Okc_Api.END_ACTIVITY (x_msg_count
2042: ,x_msg_data );
2043:
2044: EXCEPTION
2045: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
2041: Okc_Api.END_ACTIVITY (x_msg_count
2042: ,x_msg_data );
2043:
2044: EXCEPTION
2045: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
2046: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
2047: (l_api_name,
2048: G_PKG_NAME,
2049: 'OKC_API.G_RET_STS_ERROR',
2042: ,x_msg_data );
2043:
2044: EXCEPTION
2045: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
2046: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
2047: (l_api_name,
2048: G_PKG_NAME,
2049: 'OKC_API.G_RET_STS_ERROR',
2050: x_msg_count,
2045: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
2046: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
2047: (l_api_name,
2048: G_PKG_NAME,
2049: 'OKC_API.G_RET_STS_ERROR',
2050: x_msg_count,
2051: x_msg_data,
2052: '_PVT');
2053: WHEN Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
2049: 'OKC_API.G_RET_STS_ERROR',
2050: x_msg_count,
2051: x_msg_data,
2052: '_PVT');
2053: WHEN Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
2054: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
2055: (l_api_name,
2056: G_PKG_NAME,
2057: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2050: x_msg_count,
2051: x_msg_data,
2052: '_PVT');
2053: WHEN Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
2054: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
2055: (l_api_name,
2056: G_PKG_NAME,
2057: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2058: x_msg_count,
2053: WHEN Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
2054: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
2055: (l_api_name,
2056: G_PKG_NAME,
2057: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2058: x_msg_count,
2059: x_msg_data,
2060: '_PVT');
2061: WHEN OTHERS THEN
2058: x_msg_count,
2059: x_msg_data,
2060: '_PVT');
2061: WHEN OTHERS THEN
2062: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
2063: (l_api_name,
2064: G_PKG_NAME,
2065: 'OTHERS',
2066: x_msg_count,
2069: END create_party_payment_dtls;
2070:
2071: PROCEDURE create_party_payment_dtls(
2072: p_api_version IN NUMBER,
2073: p_init_msg_list IN VARCHAR2 DEFAULT Okc_Api.G_FALSE,
2074: x_return_status OUT NOCOPY VARCHAR2,
2075: x_msg_count OUT NOCOPY NUMBER,
2076: x_msg_data OUT NOCOPY VARCHAR2,
2077: p_ppydv_tbl IN ppydv_tbl_type,
2077: p_ppydv_tbl IN ppydv_tbl_type,
2078: x_ppydv_tbl OUT NOCOPY ppydv_tbl_type
2079: ) IS
2080: l_api_name CONSTANT VARCHAR2(30) := 'CREATE_PARTY_PAYMENT_DTLS';
2081: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
2082: l_overall_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
2083: i NUMBER;
2084: BEGIN
2085:
2114: RAISE Okl_Api.G_EXCEPTION_ERROR;
2115: END IF;
2116:
2117: EXCEPTION
2118: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
2119: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
2120: (l_api_name,
2121: G_PKG_NAME,
2122: 'OKC_API.G_RET_STS_ERROR',
2115: END IF;
2116:
2117: EXCEPTION
2118: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
2119: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
2120: (l_api_name,
2121: G_PKG_NAME,
2122: 'OKC_API.G_RET_STS_ERROR',
2123: x_msg_count,
2118: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
2119: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
2120: (l_api_name,
2121: G_PKG_NAME,
2122: 'OKC_API.G_RET_STS_ERROR',
2123: x_msg_count,
2124: x_msg_data,
2125: '_PVT');
2126: WHEN Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
2122: 'OKC_API.G_RET_STS_ERROR',
2123: x_msg_count,
2124: x_msg_data,
2125: '_PVT');
2126: WHEN Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
2127: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
2128: (l_api_name,
2129: G_PKG_NAME,
2130: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2123: x_msg_count,
2124: x_msg_data,
2125: '_PVT');
2126: WHEN Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
2127: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
2128: (l_api_name,
2129: G_PKG_NAME,
2130: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2131: x_msg_count,
2126: WHEN Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
2127: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
2128: (l_api_name,
2129: G_PKG_NAME,
2130: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2131: x_msg_count,
2132: x_msg_data,
2133: '_PVT');
2134: WHEN OTHERS THEN
2131: x_msg_count,
2132: x_msg_data,
2133: '_PVT');
2134: WHEN OTHERS THEN
2135: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
2136: (l_api_name,
2137: G_PKG_NAME,
2138: 'OTHERS',
2139: x_msg_count,
2142: END create_party_payment_dtls;
2143:
2144: PROCEDURE lock_party_payment_dtls(
2145: p_api_version IN NUMBER,
2146: p_init_msg_list IN VARCHAR2 DEFAULT Okc_Api.G_FALSE,
2147: x_return_status OUT NOCOPY VARCHAR2,
2148: x_msg_count OUT NOCOPY NUMBER,
2149: x_msg_data OUT NOCOPY VARCHAR2,
2150: p_ppydv_rec IN ppydv_rec_type
2149: x_msg_data OUT NOCOPY VARCHAR2,
2150: p_ppydv_rec IN ppydv_rec_type
2151: ) IS
2152: l_api_name CONSTANT VARCHAR2(30) := 'LOCK_PARTY_PAYMENT_DTLS';
2153: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
2154: BEGIN
2155: x_return_status := l_return_status;
2156: -- Call start_activity to create savepoint, check compatibility
2157: -- and initialize message list
2154: BEGIN
2155: x_return_status := l_return_status;
2156: -- Call start_activity to create savepoint, check compatibility
2157: -- and initialize message list
2158: l_return_status := Okc_Api.START_ACTIVITY (l_api_name
2159: ,p_init_msg_list
2160: ,'_PVT'
2161: ,x_return_status);
2162: -- Check if activity started successfully
2159: ,p_init_msg_list
2160: ,'_PVT'
2161: ,x_return_status);
2162: -- Check if activity started successfully
2163: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
2164: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2165: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
2166: RAISE Okc_Api.G_EXCEPTION_ERROR;
2167: END IF;
2160: ,'_PVT'
2161: ,x_return_status);
2162: -- Check if activity started successfully
2163: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
2164: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2165: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
2166: RAISE Okc_Api.G_EXCEPTION_ERROR;
2167: END IF;
2168:
2161: ,x_return_status);
2162: -- Check if activity started successfully
2163: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
2164: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2165: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
2166: RAISE Okc_Api.G_EXCEPTION_ERROR;
2167: END IF;
2168:
2169: Okl_Pyd_Pvt.lock_row (p_api_version,
2162: -- Check if activity started successfully
2163: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
2164: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2165: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
2166: RAISE Okc_Api.G_EXCEPTION_ERROR;
2167: END IF;
2168:
2169: Okl_Pyd_Pvt.lock_row (p_api_version,
2170: p_init_msg_list,
2178: ELSIF x_return_status = Okl_Api.G_RET_STS_ERROR THEN
2179: RAISE Okl_Api.G_EXCEPTION_ERROR;
2180: END IF;
2181:
2182: Okc_Api.END_ACTIVITY (x_msg_count
2183: ,x_msg_data );
2184:
2185: EXCEPTION
2186: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
2182: Okc_Api.END_ACTIVITY (x_msg_count
2183: ,x_msg_data );
2184:
2185: EXCEPTION
2186: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
2187: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
2188: (l_api_name,
2189: G_PKG_NAME,
2190: 'OKC_API.G_RET_STS_ERROR',
2183: ,x_msg_data );
2184:
2185: EXCEPTION
2186: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
2187: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
2188: (l_api_name,
2189: G_PKG_NAME,
2190: 'OKC_API.G_RET_STS_ERROR',
2191: x_msg_count,
2186: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
2187: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
2188: (l_api_name,
2189: G_PKG_NAME,
2190: 'OKC_API.G_RET_STS_ERROR',
2191: x_msg_count,
2192: x_msg_data,
2193: '_PVT');
2194: WHEN Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
2190: 'OKC_API.G_RET_STS_ERROR',
2191: x_msg_count,
2192: x_msg_data,
2193: '_PVT');
2194: WHEN Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
2195: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
2196: (l_api_name,
2197: G_PKG_NAME,
2198: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2191: x_msg_count,
2192: x_msg_data,
2193: '_PVT');
2194: WHEN Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
2195: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
2196: (l_api_name,
2197: G_PKG_NAME,
2198: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2199: x_msg_count,
2194: WHEN Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
2195: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
2196: (l_api_name,
2197: G_PKG_NAME,
2198: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2199: x_msg_count,
2200: x_msg_data,
2201: '_PVT');
2202: WHEN OTHERS THEN
2199: x_msg_count,
2200: x_msg_data,
2201: '_PVT');
2202: WHEN OTHERS THEN
2203: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
2204: (l_api_name,
2205: G_PKG_NAME,
2206: 'OTHERS',
2207: x_msg_count,
2210: END lock_party_payment_dtls;
2211:
2212: PROCEDURE lock_party_payment_dtls(
2213: p_api_version IN NUMBER,
2214: p_init_msg_list IN VARCHAR2 DEFAULT Okc_Api.G_FALSE,
2215: x_return_status OUT NOCOPY VARCHAR2,
2216: x_msg_count OUT NOCOPY NUMBER,
2217: x_msg_data OUT NOCOPY VARCHAR2,
2218: p_ppydv_tbl IN ppydv_tbl_type
2217: x_msg_data OUT NOCOPY VARCHAR2,
2218: p_ppydv_tbl IN ppydv_tbl_type
2219: ) IS
2220: l_api_name CONSTANT VARCHAR2(30) := 'LOCK_PARTY_PAYMENT_DTLS';
2221: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
2222: l_overall_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
2223: i NUMBER;
2224: BEGIN
2225:
2253: RAISE Okl_Api.G_EXCEPTION_ERROR;
2254: END IF;
2255:
2256: EXCEPTION
2257: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
2258: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
2259: (l_api_name,
2260: G_PKG_NAME,
2261: 'OKC_API.G_RET_STS_ERROR',
2254: END IF;
2255:
2256: EXCEPTION
2257: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
2258: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
2259: (l_api_name,
2260: G_PKG_NAME,
2261: 'OKC_API.G_RET_STS_ERROR',
2262: x_msg_count,
2257: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
2258: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
2259: (l_api_name,
2260: G_PKG_NAME,
2261: 'OKC_API.G_RET_STS_ERROR',
2262: x_msg_count,
2263: x_msg_data,
2264: '_PVT');
2265: WHEN Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
2261: 'OKC_API.G_RET_STS_ERROR',
2262: x_msg_count,
2263: x_msg_data,
2264: '_PVT');
2265: WHEN Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
2266: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
2267: (l_api_name,
2268: G_PKG_NAME,
2269: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2262: x_msg_count,
2263: x_msg_data,
2264: '_PVT');
2265: WHEN Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
2266: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
2267: (l_api_name,
2268: G_PKG_NAME,
2269: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2270: x_msg_count,
2265: WHEN Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
2266: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
2267: (l_api_name,
2268: G_PKG_NAME,
2269: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2270: x_msg_count,
2271: x_msg_data,
2272: '_PVT');
2273: WHEN OTHERS THEN
2270: x_msg_count,
2271: x_msg_data,
2272: '_PVT');
2273: WHEN OTHERS THEN
2274: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
2275: (l_api_name,
2276: G_PKG_NAME,
2277: 'OTHERS',
2278: x_msg_count,
2281: END lock_party_payment_dtls;
2282:
2283: PROCEDURE delete_party_payment_dtls(
2284: p_api_version IN NUMBER,
2285: p_init_msg_list IN VARCHAR2 DEFAULT Okc_Api.G_FALSE,
2286: x_return_status OUT NOCOPY VARCHAR2,
2287: x_msg_count OUT NOCOPY NUMBER,
2288: x_msg_data OUT NOCOPY VARCHAR2,
2289: p_ppydv_rec IN ppydv_rec_type
2288: x_msg_data OUT NOCOPY VARCHAR2,
2289: p_ppydv_rec IN ppydv_rec_type
2290: ) IS
2291: l_api_name CONSTANT VARCHAR2(30) := 'DELETE_PARTY_PAYMENT_DTLS';
2292: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
2293:
2294: --Bug# 4959361
2295: CURSOR l_pyd_csr(p_pyd_id IN NUMBER) IS
2296: SELECT pph.cle_id
2305: BEGIN
2306: x_return_status := l_return_status;
2307: -- Call start_activity to create savepoint, check compatibility
2308: -- and initialize message list
2309: l_return_status := Okc_Api.START_ACTIVITY (l_api_name
2310: ,p_init_msg_list
2311: ,'_PVT'
2312: ,x_return_status);
2313: -- Check if activity started successfully
2310: ,p_init_msg_list
2311: ,'_PVT'
2312: ,x_return_status);
2313: -- Check if activity started successfully
2314: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
2315: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2316: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
2317: RAISE Okc_Api.G_EXCEPTION_ERROR;
2318: END IF;
2311: ,'_PVT'
2312: ,x_return_status);
2313: -- Check if activity started successfully
2314: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
2315: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2316: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
2317: RAISE Okc_Api.G_EXCEPTION_ERROR;
2318: END IF;
2319:
2312: ,x_return_status);
2313: -- Check if activity started successfully
2314: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
2315: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2316: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
2317: RAISE Okc_Api.G_EXCEPTION_ERROR;
2318: END IF;
2319:
2320: --Bug# 4959361
2313: -- Check if activity started successfully
2314: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
2315: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2316: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
2317: RAISE Okc_Api.G_EXCEPTION_ERROR;
2318: END IF;
2319:
2320: --Bug# 4959361
2321: OPEN l_pyd_csr(p_pyd_id => p_ppydv_rec.id);
2351: ELSIF x_return_status = Okl_Api.G_RET_STS_ERROR THEN
2352: RAISE Okl_Api.G_EXCEPTION_ERROR;
2353: END IF;
2354:
2355: Okc_Api.END_ACTIVITY (x_msg_count
2356: ,x_msg_data );
2357:
2358: EXCEPTION
2359: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
2355: Okc_Api.END_ACTIVITY (x_msg_count
2356: ,x_msg_data );
2357:
2358: EXCEPTION
2359: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
2360: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
2361: (l_api_name,
2362: G_PKG_NAME,
2363: 'OKC_API.G_RET_STS_ERROR',
2356: ,x_msg_data );
2357:
2358: EXCEPTION
2359: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
2360: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
2361: (l_api_name,
2362: G_PKG_NAME,
2363: 'OKC_API.G_RET_STS_ERROR',
2364: x_msg_count,
2359: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
2360: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
2361: (l_api_name,
2362: G_PKG_NAME,
2363: 'OKC_API.G_RET_STS_ERROR',
2364: x_msg_count,
2365: x_msg_data,
2366: '_PVT');
2367: WHEN Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
2363: 'OKC_API.G_RET_STS_ERROR',
2364: x_msg_count,
2365: x_msg_data,
2366: '_PVT');
2367: WHEN Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
2368: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
2369: (l_api_name,
2370: G_PKG_NAME,
2371: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2364: x_msg_count,
2365: x_msg_data,
2366: '_PVT');
2367: WHEN Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
2368: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
2369: (l_api_name,
2370: G_PKG_NAME,
2371: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2372: x_msg_count,
2367: WHEN Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
2368: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
2369: (l_api_name,
2370: G_PKG_NAME,
2371: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2372: x_msg_count,
2373: x_msg_data,
2374: '_PVT');
2375: WHEN OTHERS THEN
2372: x_msg_count,
2373: x_msg_data,
2374: '_PVT');
2375: WHEN OTHERS THEN
2376: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
2377: (l_api_name,
2378: G_PKG_NAME,
2379: 'OTHERS',
2380: x_msg_count,
2383: END delete_party_payment_dtls;
2384:
2385: PROCEDURE delete_party_payment_dtls(
2386: p_api_version IN NUMBER,
2387: p_init_msg_list IN VARCHAR2 DEFAULT Okc_Api.G_FALSE,
2388: x_return_status OUT NOCOPY VARCHAR2,
2389: x_msg_count OUT NOCOPY NUMBER,
2390: x_msg_data OUT NOCOPY VARCHAR2,
2391: p_ppydv_tbl IN ppydv_tbl_type
2390: x_msg_data OUT NOCOPY VARCHAR2,
2391: p_ppydv_tbl IN ppydv_tbl_type
2392: ) IS
2393: l_api_name CONSTANT VARCHAR2(30) := 'DELETE_PARTY_PAYMENT_DTLS';
2394: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
2395: l_overall_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
2396: i NUMBER;
2397: BEGIN
2398:
2426: RAISE Okl_Api.G_EXCEPTION_ERROR;
2427: END IF;
2428:
2429: EXCEPTION
2430: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
2431: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
2432: (l_api_name,
2433: G_PKG_NAME,
2434: 'OKC_API.G_RET_STS_ERROR',
2427: END IF;
2428:
2429: EXCEPTION
2430: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
2431: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
2432: (l_api_name,
2433: G_PKG_NAME,
2434: 'OKC_API.G_RET_STS_ERROR',
2435: x_msg_count,
2430: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
2431: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
2432: (l_api_name,
2433: G_PKG_NAME,
2434: 'OKC_API.G_RET_STS_ERROR',
2435: x_msg_count,
2436: x_msg_data,
2437: '_PVT');
2438: WHEN Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
2434: 'OKC_API.G_RET_STS_ERROR',
2435: x_msg_count,
2436: x_msg_data,
2437: '_PVT');
2438: WHEN Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
2439: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
2440: (l_api_name,
2441: G_PKG_NAME,
2442: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2435: x_msg_count,
2436: x_msg_data,
2437: '_PVT');
2438: WHEN Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
2439: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
2440: (l_api_name,
2441: G_PKG_NAME,
2442: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2443: x_msg_count,
2438: WHEN Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
2439: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
2440: (l_api_name,
2441: G_PKG_NAME,
2442: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2443: x_msg_count,
2444: x_msg_data,
2445: '_PVT');
2446: WHEN OTHERS THEN
2443: x_msg_count,
2444: x_msg_data,
2445: '_PVT');
2446: WHEN OTHERS THEN
2447: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
2448: (l_api_name,
2449: G_PKG_NAME,
2450: 'OTHERS',
2451: x_msg_count,
2454: END delete_party_payment_dtls;
2455:
2456: PROCEDURE update_party_payment_dtls(
2457: p_api_version IN NUMBER,
2458: p_init_msg_list IN VARCHAR2 DEFAULT Okc_Api.G_FALSE,
2459: x_return_status OUT NOCOPY VARCHAR2,
2460: x_msg_count OUT NOCOPY NUMBER,
2461: x_msg_data OUT NOCOPY VARCHAR2,
2462: p_ppydv_rec IN ppydv_rec_type,
2462: p_ppydv_rec IN ppydv_rec_type,
2463: x_ppydv_rec OUT NOCOPY ppydv_rec_type
2464: ) IS
2465: l_api_name CONSTANT VARCHAR2(30) := 'UPDATE_PARTY_PAYMENT_DTLS';
2466: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
2467:
2468:
2469: -- Bug 4917691: fmiao start
2470: CURSOR chr_id_csr (p_payment_hdr_id NUMBER) IS
2489: BEGIN
2490: x_return_status := l_return_status;
2491: -- Call start_activity to create savepoint, check compatibility
2492: -- and initialize message list
2493: l_return_status := Okc_Api.START_ACTIVITY (l_api_name
2494: ,p_init_msg_list
2495: ,'_PVT'
2496: ,x_return_status);
2497: -- Check if activity started successfully
2494: ,p_init_msg_list
2495: ,'_PVT'
2496: ,x_return_status);
2497: -- Check if activity started successfully
2498: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
2499: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2500: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
2501: RAISE Okc_Api.G_EXCEPTION_ERROR;
2502: END IF;
2495: ,'_PVT'
2496: ,x_return_status);
2497: -- Check if activity started successfully
2498: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
2499: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2500: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
2501: RAISE Okc_Api.G_EXCEPTION_ERROR;
2502: END IF;
2503:
2496: ,x_return_status);
2497: -- Check if activity started successfully
2498: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
2499: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2500: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
2501: RAISE Okc_Api.G_EXCEPTION_ERROR;
2502: END IF;
2503:
2504: --Bug# 4959361
2497: -- Check if activity started successfully
2498: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
2499: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2500: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
2501: RAISE Okc_Api.G_EXCEPTION_ERROR;
2502: END IF;
2503:
2504: --Bug# 4959361
2505: OPEN l_pyd_csr(p_pyd_id => p_ppydv_rec.id);
2539:
2540: validate_dtls_record(x_return_status, x_ppydv_rec);
2541: IF (x_return_status <> Okl_Api.G_RET_STS_SUCCESS) THEN
2542: l_return_status := x_return_status;
2543: RAISE Okc_Api.G_EXCEPTION_ERROR;
2544: END IF;
2545:
2546: -- Bug 4917691: fmiao start
2547: -- Need to change contract status to INCOMPLETE when create/update ppy
2567: END IF;
2568: -- Bug 4917691: fmiao end
2569:
2570:
2571: Okc_Api.END_ACTIVITY (x_msg_count
2572: ,x_msg_data );
2573:
2574: EXCEPTION
2575: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
2571: Okc_Api.END_ACTIVITY (x_msg_count
2572: ,x_msg_data );
2573:
2574: EXCEPTION
2575: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
2576: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
2577: (l_api_name,
2578: G_PKG_NAME,
2579: 'OKC_API.G_RET_STS_ERROR',
2572: ,x_msg_data );
2573:
2574: EXCEPTION
2575: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
2576: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
2577: (l_api_name,
2578: G_PKG_NAME,
2579: 'OKC_API.G_RET_STS_ERROR',
2580: x_msg_count,
2575: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
2576: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
2577: (l_api_name,
2578: G_PKG_NAME,
2579: 'OKC_API.G_RET_STS_ERROR',
2580: x_msg_count,
2581: x_msg_data,
2582: '_PVT');
2583: WHEN Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
2579: 'OKC_API.G_RET_STS_ERROR',
2580: x_msg_count,
2581: x_msg_data,
2582: '_PVT');
2583: WHEN Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
2584: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
2585: (l_api_name,
2586: G_PKG_NAME,
2587: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2580: x_msg_count,
2581: x_msg_data,
2582: '_PVT');
2583: WHEN Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
2584: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
2585: (l_api_name,
2586: G_PKG_NAME,
2587: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2588: x_msg_count,
2583: WHEN Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
2584: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
2585: (l_api_name,
2586: G_PKG_NAME,
2587: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2588: x_msg_count,
2589: x_msg_data,
2590: '_PVT');
2591: WHEN OTHERS THEN
2588: x_msg_count,
2589: x_msg_data,
2590: '_PVT');
2591: WHEN OTHERS THEN
2592: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
2593: (l_api_name,
2594: G_PKG_NAME,
2595: 'OTHERS',
2596: x_msg_count,
2599: END update_party_payment_dtls;
2600:
2601: PROCEDURE update_party_payment_dtls(
2602: p_api_version IN NUMBER,
2603: p_init_msg_list IN VARCHAR2 DEFAULT Okc_Api.G_FALSE,
2604: x_return_status OUT NOCOPY VARCHAR2,
2605: x_msg_count OUT NOCOPY NUMBER,
2606: x_msg_data OUT NOCOPY VARCHAR2,
2607: p_ppydv_tbl IN ppydv_tbl_type,
2607: p_ppydv_tbl IN ppydv_tbl_type,
2608: x_ppydv_tbl OUT NOCOPY ppydv_tbl_type
2609: ) IS
2610: l_api_name CONSTANT VARCHAR2(30) := 'UPDATE_PARTY_PAYMENT_DTLS';
2611: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
2612: l_overall_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
2613: i NUMBER;
2614:
2615: BEGIN
2645: RAISE Okl_Api.G_EXCEPTION_ERROR;
2646: END IF;
2647:
2648: EXCEPTION
2649: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
2650: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
2651: (l_api_name,
2652: G_PKG_NAME,
2653: 'OKC_API.G_RET_STS_ERROR',
2646: END IF;
2647:
2648: EXCEPTION
2649: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
2650: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
2651: (l_api_name,
2652: G_PKG_NAME,
2653: 'OKC_API.G_RET_STS_ERROR',
2654: x_msg_count,
2649: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
2650: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
2651: (l_api_name,
2652: G_PKG_NAME,
2653: 'OKC_API.G_RET_STS_ERROR',
2654: x_msg_count,
2655: x_msg_data,
2656: '_PVT');
2657: WHEN Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
2653: 'OKC_API.G_RET_STS_ERROR',
2654: x_msg_count,
2655: x_msg_data,
2656: '_PVT');
2657: WHEN Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
2658: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
2659: (l_api_name,
2660: G_PKG_NAME,
2661: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2654: x_msg_count,
2655: x_msg_data,
2656: '_PVT');
2657: WHEN Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
2658: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
2659: (l_api_name,
2660: G_PKG_NAME,
2661: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2662: x_msg_count,
2657: WHEN Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
2658: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
2659: (l_api_name,
2660: G_PKG_NAME,
2661: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2662: x_msg_count,
2663: x_msg_data,
2664: '_PVT');
2665: WHEN OTHERS THEN
2662: x_msg_count,
2663: x_msg_data,
2664: '_PVT');
2665: WHEN OTHERS THEN
2666: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
2667: (l_api_name,
2668: G_PKG_NAME,
2669: 'OTHERS',
2670: x_msg_count,
2673: END update_party_payment_dtls;
2674:
2675: PROCEDURE validate_party_payment_dtls(
2676: p_api_version IN NUMBER,
2677: p_init_msg_list IN VARCHAR2 DEFAULT Okc_Api.G_FALSE,
2678: x_return_status OUT NOCOPY VARCHAR2,
2679: x_msg_count OUT NOCOPY NUMBER,
2680: x_msg_data OUT NOCOPY VARCHAR2,
2681: p_ppydv_rec IN ppydv_rec_type
2680: x_msg_data OUT NOCOPY VARCHAR2,
2681: p_ppydv_rec IN ppydv_rec_type
2682: ) IS
2683: l_api_name CONSTANT VARCHAR2(30) := 'VALIDATE_PARTY_PAYMENT_DTLS';
2684: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
2685: BEGIN
2686: x_return_status := l_return_status;
2687: -- Call start_activity to create savepoint, check compatibility
2688: -- and initialize message list
2685: BEGIN
2686: x_return_status := l_return_status;
2687: -- Call start_activity to create savepoint, check compatibility
2688: -- and initialize message list
2689: l_return_status := Okc_Api.START_ACTIVITY (l_api_name
2690: ,p_init_msg_list
2691: ,'_PVT'
2692: ,x_return_status);
2693: -- Check if activity started successfully
2690: ,p_init_msg_list
2691: ,'_PVT'
2692: ,x_return_status);
2693: -- Check if activity started successfully
2694: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
2695: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2696: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
2697: RAISE Okc_Api.G_EXCEPTION_ERROR;
2698: END IF;
2691: ,'_PVT'
2692: ,x_return_status);
2693: -- Check if activity started successfully
2694: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
2695: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2696: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
2697: RAISE Okc_Api.G_EXCEPTION_ERROR;
2698: END IF;
2699:
2692: ,x_return_status);
2693: -- Check if activity started successfully
2694: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
2695: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2696: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
2697: RAISE Okc_Api.G_EXCEPTION_ERROR;
2698: END IF;
2699:
2700: Okl_Pyd_Pvt.validate_row(p_api_version,
2693: -- Check if activity started successfully
2694: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
2695: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2696: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
2697: RAISE Okc_Api.G_EXCEPTION_ERROR;
2698: END IF;
2699:
2700: Okl_Pyd_Pvt.validate_row(p_api_version,
2701: p_init_msg_list,
2709: ELSIF x_return_status = Okl_Api.G_RET_STS_ERROR THEN
2710: RAISE Okl_Api.G_EXCEPTION_ERROR;
2711: END IF;
2712:
2713: Okc_Api.END_ACTIVITY (x_msg_count
2714: ,x_msg_data );
2715:
2716: EXCEPTION
2717: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
2713: Okc_Api.END_ACTIVITY (x_msg_count
2714: ,x_msg_data );
2715:
2716: EXCEPTION
2717: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
2718: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
2719: (l_api_name,
2720: G_PKG_NAME,
2721: 'OKC_API.G_RET_STS_ERROR',
2714: ,x_msg_data );
2715:
2716: EXCEPTION
2717: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
2718: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
2719: (l_api_name,
2720: G_PKG_NAME,
2721: 'OKC_API.G_RET_STS_ERROR',
2722: x_msg_count,
2717: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
2718: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
2719: (l_api_name,
2720: G_PKG_NAME,
2721: 'OKC_API.G_RET_STS_ERROR',
2722: x_msg_count,
2723: x_msg_data,
2724: '_PVT');
2725: WHEN Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
2721: 'OKC_API.G_RET_STS_ERROR',
2722: x_msg_count,
2723: x_msg_data,
2724: '_PVT');
2725: WHEN Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
2726: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
2727: (l_api_name,
2728: G_PKG_NAME,
2729: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2722: x_msg_count,
2723: x_msg_data,
2724: '_PVT');
2725: WHEN Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
2726: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
2727: (l_api_name,
2728: G_PKG_NAME,
2729: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2730: x_msg_count,
2725: WHEN Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
2726: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
2727: (l_api_name,
2728: G_PKG_NAME,
2729: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2730: x_msg_count,
2731: x_msg_data,
2732: '_PVT');
2733: WHEN OTHERS THEN
2730: x_msg_count,
2731: x_msg_data,
2732: '_PVT');
2733: WHEN OTHERS THEN
2734: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
2735: (l_api_name,
2736: G_PKG_NAME,
2737: 'OTHERS',
2738: x_msg_count,
2741: END validate_party_payment_dtls;
2742:
2743: PROCEDURE validate_party_payment_dtls(
2744: p_api_version IN NUMBER,
2745: p_init_msg_list IN VARCHAR2 DEFAULT Okc_Api.G_FALSE,
2746: x_return_status OUT NOCOPY VARCHAR2,
2747: x_msg_count OUT NOCOPY NUMBER,
2748: x_msg_data OUT NOCOPY VARCHAR2,
2749: p_ppydv_tbl IN ppydv_tbl_type
2748: x_msg_data OUT NOCOPY VARCHAR2,
2749: p_ppydv_tbl IN ppydv_tbl_type
2750: ) IS
2751: l_api_name CONSTANT VARCHAR2(30) := 'VALIDATE_PARTY_PAYMENT_DTLS';
2752: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
2753: l_overall_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
2754: i NUMBER;
2755: BEGIN
2756:
2784: RAISE Okl_Api.G_EXCEPTION_ERROR;
2785: END IF;
2786:
2787: EXCEPTION
2788: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
2789: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
2790: (l_api_name,
2791: G_PKG_NAME,
2792: 'OKC_API.G_RET_STS_ERROR',
2785: END IF;
2786:
2787: EXCEPTION
2788: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
2789: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
2790: (l_api_name,
2791: G_PKG_NAME,
2792: 'OKC_API.G_RET_STS_ERROR',
2793: x_msg_count,
2788: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
2789: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
2790: (l_api_name,
2791: G_PKG_NAME,
2792: 'OKC_API.G_RET_STS_ERROR',
2793: x_msg_count,
2794: x_msg_data,
2795: '_PVT');
2796: WHEN Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
2792: 'OKC_API.G_RET_STS_ERROR',
2793: x_msg_count,
2794: x_msg_data,
2795: '_PVT');
2796: WHEN Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
2797: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
2798: (l_api_name,
2799: G_PKG_NAME,
2800: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2793: x_msg_count,
2794: x_msg_data,
2795: '_PVT');
2796: WHEN Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
2797: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
2798: (l_api_name,
2799: G_PKG_NAME,
2800: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2801: x_msg_count,
2796: WHEN Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
2797: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
2798: (l_api_name,
2799: G_PKG_NAME,
2800: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2801: x_msg_count,
2802: x_msg_data,
2803: '_PVT');
2804: WHEN OTHERS THEN
2801: x_msg_count,
2802: x_msg_data,
2803: '_PVT');
2804: WHEN OTHERS THEN
2805: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
2806: (l_api_name,
2807: G_PKG_NAME,
2808: 'OTHERS',
2809: x_msg_count,