1 package body hr_ceridian as
2 /* $Header: pecerpkg.pkb 120.1 2005/06/24 05:50:47 kkoh noship $ */
3 --
4 --------------------------------------------------------------------
5 function fica_futa_exempt(medicare_tax_exempt in varchar2,
6 ss_tax_exempt in varchar2,
7 futa_tax_exempt in varchar2)
8 return varchar2 is exempt_id varchar2(10);
9 ---------------------------------------------------------------------
10 -- This function returns FICA/FUTA Exemption codes for a combination
11 -- of medicare_tax_exempt, ss_tax_exempt and futa_tax_exempt columns.
12 -- The default return value is NULL.
13 --
14 begin
15 IF (medicare_tax_exempt = 'N' and ss_tax_exempt = 'Y' and
16 futa_tax_exempt = 'N') then
17 exempt_id:= 'F';
18 ELSIF (medicare_tax_exempt = 'N' and ss_tax_exempt = 'N' and
19 futa_tax_exempt = 'Y') then
20 exempt_id:= 'U';
21 ELSIF (medicare_tax_exempt = 'N' and ss_tax_exempt = 'Y' and
22 futa_tax_exempt = 'Y') then
23 exempt_id:= 'E';
24 ELSE
25 exempt_id:='';
26 END IF;
27 RETURN exempt_id;
28 --
29 end fica_futa_exempt ;
30 --
31 ------------------------------------------------------------------------
32 procedure set_cer_extract_date (p_cer_extract_date date)
33 ------------------------------------------------------------------------
34 is
35 -- This procedure sets the g_cer_extract_date variable to the given date.
36 --
37 begin
38 g_cer_extract_date := p_cer_extract_date;
39 HR_PAY_INTERFACE_PKG.g_payroll_extract_date := p_cer_extract_date;
40 --
41 end set_cer_extract_date;
42 --
43 -----------------------------------------------------------------------
44 function get_cer_extract_date return date
45 ------------------------------------------------------------------------
46 is
47 -- This function returns the g_cer_extract_date set by the call to
48 -- set_cer_extract_date. If set_cer_extract_date is never called, it
49 -- returns the sysdate
50 --
51 begin
52 g_cer_extract_date := nvl(g_cer_extract_date, sysdate);
53 RETURN g_cer_extract_date;
54 --
55 end get_cer_extract_date;
56 --
57 end hr_ceridian;
[Home] [Help]