[Home] [Help]
1: PACKAGE BODY OKL_VALIDATION_SET_PVT AS
2: /* $Header: OKLRVLSB.pls 120.6 2006/07/07 10:37:17 adagur noship $ */
3:
4: FUNCTION validate_header(p_vlsv_rec IN vlsv_rec_type) RETURN varchar2 IS
5:
105: lx_vlsv_rec vlsv_rec_type;
106: lp_vldv_tbl vldv_tbl_type;
107: lx_vldv_tbl vldv_tbl_type;
108: i number;
109: l_module CONSTANT fnd_log_messages.module%TYPE := 'okl.plsql.OKL_VALIDATION_SET_PVT.create_vls';
110: l_debug_enabled varchar2(10);
111: is_debug_procedure_on boolean;
112: is_debug_statement_on boolean;
113: l_api_name CONSTANT varchar2(30) := 'create_vls';
237:
238: IF (l_debug_enabled = 'Y' AND is_debug_procedure_on) THEN
239: okl_debug_pub.log_debug(fnd_log.level_procedure
240: ,l_module
241: ,'end debug OKL_VALIDATION_SET_PVT.pls call create_vls');
242: END IF;
243:
244: EXCEPTION
245: WHEN okl_api.g_exception_error THEN
290: lx_vldv_tbl vldv_tbl_type;
291: i number;
292: j number;
293: l number;
294: l_module CONSTANT fnd_log_messages.module%TYPE := 'okl.plsql.OKL_VALIDATION_SET_PVT.update_vls';
295: l_debug_enabled varchar2(10);
296: is_debug_procedure_on boolean;
297: is_debug_statement_on boolean;
298: l_api_name CONSTANT varchar2(30) := 'update_vls';
306:
307: IF (l_debug_enabled = 'Y' AND is_debug_procedure_on) THEN
308: okl_debug_pub.log_debug(fnd_log.level_procedure
309: ,l_module
310: ,'begin debug OKL_VALIDATION_SET_PVT.pls call update_vls');
311: END IF; -- check for logging on STATEMENT level
312: is_debug_statement_on := okl_debug_pub.check_log_on(l_module
313: ,fnd_log.level_statement);
314:
518: lp_vlsv_rec vlsv_rec_type;
519: lx_vlsv_rec vlsv_rec_type;
520: lx_vldv_rec vldv_rec_type;
521: lx_vldv_tbl vldv_tbl_type;
522: l_module CONSTANT fnd_log_messages.module%TYPE := 'okl.plsql.OKL_VALIDATION_SET_PVT.delete_vls';
523: l_debug_enabled varchar2(10);
524: is_debug_procedure_on boolean;
525: is_debug_statement_on boolean;
526: l_api_name CONSTANT varchar2(30) := 'delete_vls';
534:
535: IF (l_debug_enabled = 'Y' AND is_debug_procedure_on) THEN
536: okl_debug_pub.log_debug(fnd_log.level_procedure
537: ,l_module
538: ,'begin debug OKL_VALIDATION_SET_PVT.pls call delete_vls');
539: END IF; -- check for logging on STATEMENT level
540: is_debug_statement_on := okl_debug_pub.check_log_on(l_module
541: ,fnd_log.level_statement);
542:
557: RAISE okl_api.g_exception_error;
558: END IF;
559: lp_vlsv_rec := p_vlsv_rec;
560:
561: l_return_status := OKL_VALIDATION_SET_PVT.validate_header(lp_vlsv_rec); -- write to log
562:
563: IF (nvl(l_debug_enabled, 'N') = 'Y' AND is_debug_statement_on) THEN
564: okl_debug_pub.log_debug(fnd_log.level_statement
565: ,l_module
629:
630: IF (l_debug_enabled = 'Y' AND is_debug_procedure_on) THEN
631: okl_debug_pub.log_debug(fnd_log.level_procedure
632: ,l_module
633: ,'end debug OKL_VALIDATION_SET_PVT.pls call delete_vls');
634: END IF;
635:
636:
637:
672: lx_vldv_rec vldv_rec_type;
673: i number;
674: j number;
675: l number;
676: l_module CONSTANT fnd_log_messages.module%TYPE := 'okl.plsql.OKL_VALIDATION_SET_PVT.delete_vld';
677: l_debug_enabled varchar2(10);
678: is_debug_procedure_on boolean;
679: is_debug_statement_on boolean;
680: l_api_name CONSTANT varchar2(30) := 'delete_vld';
687:
688: IF (l_debug_enabled = 'Y' AND is_debug_procedure_on) THEN
689: okl_debug_pub.log_debug(fnd_log.level_procedure
690: ,l_module
691: ,'begin debug OKL_VALIDATION_SET_PVT.pls call delete_vls');
692: END IF; -- check for logging on STATEMENT level
693: is_debug_statement_on := okl_debug_pub.check_log_on(l_module
694: ,fnd_log.level_statement);
695:
739:
740: IF (l_debug_enabled = 'Y' AND is_debug_procedure_on) THEN
741: okl_debug_pub.log_debug(fnd_log.level_procedure
742: ,l_module
743: ,'end debug OKL_VALIDATION_SET_PVT.pls call create_vls');
744: END IF;
745:
746: EXCEPTION
747: WHEN okl_api.g_exception_error THEN
771:
772: END delete_vld;
773:
774:
775: END OKL_VALIDATION_SET_PVT;