PACKAGE BODY: APPS.XDO_DGF_TEST_RULES

Source

1 PACKAGE BODY xdo_dgf_test_rules AS
2 /* $Header: XDODGFTRB.pls 120.0 2008/01/19 00:14:21 bgkim noship $ */
3 
4 -------------------------------------
5 --is_enough_days
6 -------------------------------------
7 FUNCTION is_enough_days
8      ( p_start_date     IN  VARCHAR2,
9        p_end_date       IN  VARCHAR2,
10        p_format_mask    IN  VARCHAR2,
11        p_number_of_days IN  VARCHAR2 := '30')
12 RETURN  VARCHAR2
13 IS
14 
15  l_format_mask   VARCHAR2(20);
16 
17 BEGIN
18 
19  -- l_format_mast
20  l_format_mask := fnd_profile.value('ICX_DATE_FORMAT');
21 
22  IF l_format_mask  IS NULL THEN
23     l_format_mask := p_format_mask;
24  END IF;
25 
26  IF to_date(p_end_date, l_format_mask) - to_date(p_start_date, l_format_mask)
27      >= to_number(p_number_of_days) THEN
28     return 'Y';
29  ELSE
30    return 'N';
31  END IF;
32 END;
33 
34 -------------------------------------
35 --  get_days
36 -------------------------------------
37 FUNCTION get_days
38      ( p_start_date  in varchar2,
39        p_end_date    in varchar2,
40        p_format_mask in varchar2
41        )
42 RETURN  number
43 IS
44  l_format_mask   VARCHAR2(20);
45 BEGIN
46  -- l_format_mast
47  l_format_mask := fnd_profile.value('ICX_DATE_FORMAT');
48 
49  IF l_format_mask  IS NULL THEN
50     l_format_mask := p_format_mask;
51  END IF;
52 
53  RETURN to_date(p_end_date,l_format_mask) - to_date(p_start_date,l_format_mask);
54 END;
55 
56 
57 -------------------------------------
58 -- is_working_hours
59 -------------------------------------
60 function is_working_hours return varchar2
61 is
62 begin
63  if to_number(to_char(sysdate,'HH24')) between 8 and 16
64  then return 'Y';
65  else return 'N';
66  end if;
67 end;
68 
69 END xdo_dgf_test_rules;