[Home] [Help]
1: Package Body per_bil_shd as
2: /* $Header: pebilrhi.pkb 115.10 2003/04/10 09:19:39 jheer noship $ */
3: --
4: -- ----------------------------------------------------------------------------
5: -- | Private Global Definitions |
4: -- ----------------------------------------------------------------------------
5: -- | Private Global Definitions |
6: -- ----------------------------------------------------------------------------
7: --
8: g_package varchar2(33) := ' per_bil_shd.'; -- Global package name
9: --
10: -- ----------------------------------------------------------------------------
11: -- |------------------------< return_api_dml_status >-------------------------|
12: -- ----------------------------------------------------------------------------
333: --
334: -- ----------------------------------------------------------------------------
335: -- |---------------------------------< row_exist >----------------------------|
336: -- ----------------------------------------------------------------------------
337: Function row_exist (p_rec in per_bil_shd.g_rec_type) return boolean is
338:
339: cursor csr_exists is
340: select 'x'
341: from hr_summary
432: --
433: -- ----------------------------------------------------------------------------
434: -- |-----------------------------< sequence_exist >---------------------------|
435: -- ----------------------------------------------------------------------------
436: Function sequence_exist (p_rec in per_bil_shd.g_rec_type) return boolean is
437: --
438: cursor csr_exists is
439: select 'x'
440: from hr_summary_item_type_usage
539: end check_restriction_sql;
540: -- ----------------------------------------------------------------------------
541: -- |-----------------------------< valid_value >---------------------------|
542: -- ----------------------------------------------------------------------------
543: Procedure valid_value (p_rec in per_bil_shd.g_rec_type) is
544: --
545: cursor csr_lov_exists (p_ru_id number,
546: p_bus_grp_id number) is
547: select rt.restriction_sql,
575: close csr_lov_exists;
576: --
577: begin
578: --
579: per_bil_shd.check_restriction_sql (p_stmt => l_restriction_sql
580: ,p_business_group_id => p_rec.business_group_id);
581: --
582: open test_csr for l_restriction_sql;
583: loop
669: close csr_get_sql;
670: --
671: /* Call Check_restriction_sql to ensure that any occurrence of
672: :ctl_globals.business_group_id are replaced with the business group id value */
673: per_bil_shd.check_restriction_sql (p_stmt => l_stmt
674: ,p_business_group_id => l_business_group_id);
675: --
676: l_stmt := 'Select rs.meaning from (' || l_stmt || ') rs where rs.value = '''||p_value ||''' ';
677: hr_utility.set_location('About to open cursor',17);
691: --
692: -- ----------------------------------------------------------------------------
693: -- |-------------------------------< parent_found >----------------------------|
694: -- ----------------------------------------------------------------------------
695: Function parent_found (p_rec in per_bil_shd.g_rec_type) return boolean is
696: --
697: cursor csr_exists (p_value number) is
698: select 'x'
699: from hr_summary
746: return l_found;
747: --
748: End parent_found;
749: --
750: Function chk_date_valid (p_rec in per_bil_shd.g_rec_type) return boolean is
751: --
752: cursor csr_get_datatype IS
753: select rt.data_type
754: from hr_summary_restriction_type rt,
783: hr_utility.set_location('Leaving: chk_valid_date', 11);
784: return(false);
785: End chk_date_valid;
786: --
787: end per_bil_shd;