1 PACKAGE BODY HXT_HXT957A_XMLP_PKG AS
2 /* $Header: HXT957AB.pls 120.1 2008/04/03 07:38:17 amakrish noship $ */
3
4 function ORG_NAMEFormula(ORGANIZATION_ID1 in number) return VARCHAR2 is
5 ORG_NAME VARCHAR2(60);
6 begin
7 ORG_NAME := '';
8 SELECT HR_ALL_ORGANIZATION_UNITS_TL.NAME INTO
9 ORG_NAME FROM HR_ALL_ORGANIZATION_UNITS_TL WHERE
10 (HR_ALL_ORGANIZATION_UNITS_TL.ORGANIZATION_ID=ORGANIZATION_ID1)
11 AND HR_ALL_ORGANIZATION_UNITS_TL.language = userenv('LANG');
12 RETURN ORG_NAME;
13 RETURN NULL; EXCEPTION
14 when NO_DATA_FOUND then
15 org_name := '';
16
17 RETURN NULL; end;
18
19 function earn_typeformula(P_ELEMENT_TYPE_ID in number, P_EFFECTIVE_START_DATE in date, P_EFFECTIVE_END_DATE in date) return varchar2 is
20 EARN_TYPE VARCHAR2(80);
21 begin
22 earn_type := ' ';
23 DECLARE
24 CURSOR C IS
25 SELECT ELTT.ELEMENT_NAME
26 FROM PAY_ELEMENT_TYPES_F ELT
27 ,PAY_ELEMENT_TYPES_F_TL ELTT
28 ,HXT_PAY_ELEMENT_TYPES_F_DDF_V ELTV
29 WHERE ELT.ELEMENT_TYPE_ID = P_ELEMENT_TYPE_ID
30 AND elt.effective_start_date <= P_EFFECTIVE_START_DATE
31 and elt.effective_end_date >= P_EFFECTIVE_END_DATE
32 AND eltv.effective_start_date <= P_EFFECTIVE_START_DATE
33 and eltv.effective_end_date >= P_EFFECTIVE_END_DATE
34 and eltt.element_type_id = elt.element_type_id
35 and eltv.element_type_id = elt.element_type_id
36 and eltt.language = userenv('LANG')
37 AND HXT_EARNING_CATEGORY = 'ABS';
38 BEGIN
39 earn_type := ' ';
40 IF P_ELEMENT_TYPE_ID IS NULL THEN
41 EARN_TYPE := ' ';
42 ELSE
43 OPEN C;
44 FETCH C
45 INTO EARN_TYPE;
46 IF C%NOTFOUND THEN
47 RAISE NO_DATA_FOUND;
48 END IF;
49 CLOSE C;
50 END IF;
51 EXCEPTION
52 WHEN NO_DATA_FOUND
53 THEN EARN_TYPE := ' ';
54 when others
55 then /*srw.message(01,'Error -Earn Type '||earn_type);*/null;
56
57 END;
58
59 RETURN EARN_TYPE;
60
61 end;
62
63 function BeforeReport return boolean is
64 begin
65 /*SRW.USER_EXIT('FND SRWINIT');*/null;
66
67 if start_date is null then
68 start_date := hr_general.start_of_time;
69 end if;
70 if end_date is null then
71 end_date := hr_general.end_of_time;
72 end if;
73 AP_START_DATE:=to_char(start_date,'DD-MON-YYYY');
74 AP_END_DATE:=to_char(end_date,'DD-MON-YYYY');
75 return (TRUE);
76 end;
77
78 function AfterReport return boolean is
79 begin
80 /*SRW.USER_EXIT('FND SRWEXIT');*/null;
81
82 return (TRUE);
83 end;
84
85 --Functions to refer Oracle report placeholders--
86
87 END HXT_HXT957A_XMLP_PKG ;