[Home] [Help]
PACKAGE BODY: APPS.HXT_HXT959A_XMLP_PKG
Source
1 PACKAGE BODY HXT_HXT959A_XMLP_PKG AS
2 /* $Header: HXT959AB.pls 120.0 2007/12/03 11:43:55 amakrish noship $ */
3
4 function cf_tot_varformula(STANDARD_START in number, TIME_IN in date) return varchar2 is
5
6
7 CF_RET VARCHAR2 (20);
8 CF_DATE_WORKED_TIME VARCHAR2(20);
9 CF_DATE1 DATE;
10 CF_DATE2 DATE;
11 CF_DATE3 DATE;
12
13
14 begin
15
16
17 IF (STANDARD_START is not null) AND (TIME_IN is not null) THEN
18 CF_DATE1 := to_date('01-01-1900 '||to_char(TIME_IN, 'HH24MI'), 'DD-MM-YYYY HH24MI');
19 CF_DATE2 := to_date('01-01-1900 '||to_char(STANDARD_START,'0009'), 'DD-MM-YYYY HH24MI');
20
21 CF_RET := reset_hours(CF_DATE1, CF_DATE2);
22 if (to_number(CF_RET) = 0) then
23 return (NULL);
24 else
25 return (CF_RET);
26 end if;
27 else
28 return (NULL);
29 end if;
30
31 RETURN NULL; end;
32
33 function cf_l_vlformula(STANDARD_START in number, TIME_IN in date) return varchar2 is
34
35 CF_RET VARCHAR2 (20);
36 CF_RET_NUM NUMBER;
37 CF_DATE_WORKED_TIME VARCHAR2(20);
38 CF_DATE1 DATE;
39 CF_DATE2 DATE;
40 CF_DATE3 DATE;
41
42
43 begin
44
45
46
47 IF (STANDARD_START is not null) AND (TIME_IN is not null) THEN
48 CF_DATE1 := to_date('01-01-1900 '||to_char(TIME_IN, 'HH24MI'), 'DD-MM-YYYY HH24MI');
49 CF_DATE2 := to_date('01-01-1900 '||to_char(STANDARD_START,'0009'), 'DD-MM-YYYY HH24MI');
50
51 CF_RET := reset_hours(CF_DATE1, CF_DATE2);
52 CF_RET_NUM := to_number (CF_RET);
53 if (CF_RET_NUM >= 0) then
54 return (NULL);
55 end if;
56 if (CF_RET_NUM < 0) and (CF_RET_NUM > -.25) then
57 return ('L');
58 end if;
59 if (CF_RET_NUM <= -.25) then
60 return ('VL');
61 end if;
62 else
63 return (NULL);
64 end if;
65
66 RETURN NULL; end;
67
68 FUNCTION Reset_Hours ( p_in DATE, p_out DATE) RETURN VARCHAR2 IS
69
70 l_diff NUMBER;
71
72
73 BEGIN
74
75 IF (p_in is not null) AND (p_out is not null) THEN
76
77 l_diff := (p_out - p_in) * 24;
78 return to_char(l_diff,'90.000');
79 else
80 return (NULL);
81
82 END IF;
83
84 RETURN NULL; END;
85
86 function CF_Payroll_typeFormula return VARCHAR2 is
87 payroll VARCHAR2(80);
88
89 begin
90 select pay.payroll_name
91 into payroll
92 from pay_payrolls_f pay
93 where pay.payroll_id = p_payroll_id;
94 return payroll;
95 /*exception
96 when no_data_found then
97 payroll:=null;
98
99 return payroll;
100 */
101 end;
102
103 function BeforeReport return boolean is
104 begin
105 /*SRW.USER_EXIT('FND SRWINIT');*/null;
106
107 if start_date is null then
108 start_date := hr_general.start_of_time;
109 end if;
110 if end_date is null then
111 end_date := hr_general.end_of_time;
112 end if;
113 return (TRUE);
114 end;
115
116 function AfterReport return boolean is
117 begin
118 /*SRW.USER_EXIT('FND SRWEXIT');*/null;
119
120 return (TRUE);
121 end;
122
123 --Functions to refer Oracle report placeholders--
124
125 END HXT_HXT959A_XMLP_PKG ;