1 PACKAGE BODY HXT_HXT956A_XMLP_PKG AS
2 /* $Header: HXT956AB.pls 120.0 2007/12/03 10:59:37 amakrish noship $ */
3
4 function cf_pep_nameformula(pep_id in number) return varchar2 is
5 pep_name VARCHAR2(80);
6 begin
7
8 select name
9 into pep_name
10 from hxt_prem_eligblty_policies
11 where id = pep_id;
12
13 return (pep_name);
14
15 RETURN NULL; exception when no_data_found then return (null);
16 end;
17
18 function cf_pip_nameformula(pip_id in number) return varchar2 is
19 pip_name VARCHAR2(80);
20 begin
21
22 select name
23 into pip_name
24 from hxt_prem_interact_policies
25 where id = pip_id;
26
27 return (pip_name);
28
29 RETURN NULL; exception when no_data_found then return (null);
30 end;
31
32 function cf_egt_nameformula(egt_id in number) return varchar2 is
33 egt_type VARCHAR2(80);
34 begin
35
36 select name
37 into egt_type
38 from hxt_earn_group_types
39 where id = egt_id;
40
41 return (egt_type);
42
43 RETURN NULL; exception when no_data_found then return (null);
44 end;
45
46 function earn_typeformula(arg_ELEMENT_TYPE_ID in number, arg_EFFECTIVE_START_DATE in date, arg_EFFECTIVE_END_DATE in date) return varchar2 is
47 EARN_TYPE VARCHAR2(240);
48 BEGIN
49 earn_type := ' ';
50 DECLARE
51 CURSOR C IS
52 SELECT ELTT.ELEMENT_NAME
53 FROM PAY_ELEMENT_TYPES_F ELT
54 ,PAY_ELEMENT_TYPES_F_TL ELTT
55 ,HXT_PAY_ELEMENT_TYPES_F_DDF_V ELTV
56 WHERE ELT.ELEMENT_TYPE_ID = arg_ELEMENT_TYPE_ID
57 AND ELTT.ELEMENT_TYPE_ID = ELT.ELEMENT_TYPE_ID
58 AND ELTV.ELEMENT_TYPE_ID = ELT.ELEMENT_TYPE_ID
59 AND elt.effective_start_date <= arg_EFFECTIVE_START_DATE
60 and elt.effective_end_date >= arg_EFFECTIVE_END_DATE
61 AND eltt.language = userenv('LANG')
62 AND HXT_EARNING_CATEGORY IN ('OVT', 'REG');
63 BEGIN
64 earn_type := ' ';
65 IF arg_ELEMENT_TYPE_ID IS NULL THEN
66 EARN_TYPE := ' ';
67 ELSE
68 OPEN C;
69 FETCH C
70 INTO EARN_TYPE;
71 IF C%NOTFOUND THEN
72 RAISE NO_DATA_FOUND;
73 END IF;
74 CLOSE C;
75 END IF;
76 EXCEPTION
77 WHEN NO_DATA_FOUND
78 THEN EARN_TYPE := ' ';
79 when others
80 then /*srw.message(01,'Error -Earn Type '||earn_type);*/null;
81
82 END;
83
84 RETURN EARN_TYPE;
85
86 end;
87
88 function BeforePForm return boolean is
89 begin
90 /*SRW.USER_EXIT('FND SRWINIT');*/null;
91
92 return (TRUE);
93 end;
94
95 function BeforeReport return boolean is
96 begin
97 /*SRW.USER_EXIT('FND SRWEXIT');*/null;
98
99 return (TRUE);
100 end;
101
102 --Functions to refer Oracle report placeholders--
103
104 END HXT_HXT956A_XMLP_PKG ;