1: package body HR_GENERAL as
2: /* $Header: hrgenral.pkb 120.3 2006/06/12 12:27:09 srenukun noship $ */
3: ------------------------------------------------------------------------------
4: /*
5: +==============================================================================+
236: -- ever be longer than 30 chars but the "meaning" column of the lookups table
237: -- is length 80, so the following substrb is included as a fail-safe.
238: --
239: c_pay_value constant varchar2(80)
240: := substrb(hr_general.decode_lookup ('NAME_TRANSLATIONS','PAY VALUE')
241: ,1,80);
242: c_money_unit constant varchar2(255)
243: := hr_general.decode_lookup ('UNITS','M');
244: g_dummy number (1); -- dummy variable for select statements
239: c_pay_value constant varchar2(80)
240: := substrb(hr_general.decode_lookup ('NAME_TRANSLATIONS','PAY VALUE')
241: ,1,80);
242: c_money_unit constant varchar2(255)
243: := hr_general.decode_lookup ('UNITS','M');
244: g_dummy number (1); -- dummy variable for select statements
245: g_calling_context varchar2(30); -- global variable used by get_calling_context
246: -- and set_calling_context
247: -- ---------------------------------------------------------------------------
658: v_location_valid boolean;
659: --
660: begin
661: --
662: hr_utility.set_location ('HR_GENERAL.LOCATION_VALID',1);
663: --
664: open csr_location;
665: fetch csr_location into g_dummy;
666: v_location_valid := csr_location%found;
742: --
743: v_default_currency varchar2(255) := null;
744: --
745: begin
746: hr_utility.set_location ('hr_general.default_currency_code',1);
747: --
748: -- Find the user-specified default currency
749: --
750: open csr_legislation;
1201: --
1202: BEGIN
1203:
1204: IF p_effective_date is null THEN
1205: l_effective_date := hr_general.effective_date;
1206: ELSE
1207: l_effective_date := p_effective_date;
1208: END IF;
1209: --
1243: nvl(phn.date_to,c_effective_date);
1244:
1245:
1246: begin
1247: l_effective_date := hr_general.effective_date;
1248: open csr_phones1(l_effective_date);
1249: fetch csr_phones1 into l_per_phones_phone;
1250: close csr_phones1;
1251: return l_per_phones_phone;
1527: commit ;
1528: end if;
1529:
1530: -- Bug no 581122 - Part of fix
1531: -- hr_general.set_calling_context(p_calling_context => 'FORMS');
1532:
1533: end init_forms;
1534: --------------------------------------------------------------------------------
1535: --
1536: function chk_geocodes_installed
1537: return varchar2
1538: is
1539: --
1540: l_proc varchar2(72) := 'hr_general.chk_geocodes_installed';
1541: --
1542: l_exists varchar2(1);
1543: --
1544: -- Declare cursor.
1582: function chk_maintain_tax_records
1583: return varchar2
1584: is
1585: --
1586: l_proc varchar2(72) := 'hr_general.chk_maintain_tax_records';
1587: --
1588: l_dtw4_profile_option_value VARCHAR2(3);
1589: begin
1590: hr_utility.set_location('Entering:'|| l_proc, 1);
1595: l_dtw4_profile_option_value);
1596: --
1597: IF hr_utility.chk_product_install(p_product =>'Oracle Payroll',
1598: p_legislation => 'US') OR
1599: (hr_general.chk_geocodes_installed ='Y' and
1600: NVL(l_dtw4_profile_option_value,'Y') = 'Y' ) THEN
1601: return 'Y';
1602: else
1603: return 'N';
1969: cursor csr_position is
1970: select position_definition_id
1971: from hr_all_positions_f
1972: where position_id = p_position_id
1973: and effective_end_date = hr_general.end_of_time;
1974: --
1975: v_position_definition_id number(20) := null;
1976: --
1977: begin
2170: end if;
2171:
2172: end get_xbg_profile;
2173: --------------------------------------------------------------
2174: end HR_GENERAL;