1 PACKAGE BODY HXT_HXT956D_XMLP_PKG AS
2 /* $Header: HXT956DB.pls 120.0 2007/12/03 11:09:35 amakrish noship $ */
3
4 function bhtformula(ELT_BASE_ID in number, arg_effective_start_date in date, arg_effective_end_date in date) return varchar2 is
5 bht VARCHAR2(240);
6 begin
7 bht := ' ';
8 DECLARE
9 CURSOR C IS
10 SELECT ELTT.ELEMENT_NAME
11 FROM PAY_ELEMENT_TYPES_F ELT
12 ,PAY_ELEMENT_TYPES_F_TL ELTT
13 ,HXT_PAY_ELEMENT_TYPES_F_DDF_V ELTV
14 WHERE ELTV.ELEMENT_TYPE_ID = ELT_BASE_ID
15 AND ELTV.EFFECTIVE_START_DATE <= arg_effective_start_date
16 AND ELTV.EFFECTIVE_END_DATE >= arg_effective_end_date
17 AND ELTV.ELEMENT_TYPE_ID = ELT.ELEMENT_TYPE_ID
18 AND ELT.EFFECTIVE_START_DATE <= arg_effective_start_date
19 AND ELT.EFFECTIVE_END_DATE >= arg_effective_end_date
20 AND ELT.element_type_id = eltv.element_type_id
21 AND ELTT.element_type_id = elt.element_type_id
22 AND ELTT.language = userenv('LANG')
23 AND ELTV.HXT_EARNING_CATEGORY IN ('REG', 'OVT', 'ABS');
24 BEGIN
25 if elt_base_id is not NULL then
26 OPEN C;
27 FETCH C
28 INTO bht;
29 IF C%NOTFOUND THEN
30 RAISE NO_DATA_FOUND;
31 END IF;
32 CLOSE C;
33 end if;
34 EXCEPTION
35 when no_data_found then
36 bht := ' ';
37 WHEN OTHERS THEN
38 /*srw.message(01,'Error '||bht);*/null;
39
40 END;
41 return bht;
42 end;
43
44 function premformula(ELT_PREMIUM_ID in number) return varchar2 is
45 prem VARCHAR2(80);
46 begin
47 prem := ' ';
48 DECLARE
49 CURSOR C IS
50 SELECT ELTT.ELEMENT_NAME
51 FROM PAY_ELEMENT_TYPES_F ELT1
52 ,pay_element_types_f_tl eltt
53 WHERE ELT1.ELEMENT_TYPE_ID = ELT_PREMIUM_ID
54 AND ELT1.element_type_id = eltt.element_type_id
55 AND eltt.language = userenv('LANG');
56 BEGIN
57 if elt_premium_id is not null then
58 OPEN C;
59 FETCH C
60 INTO prem;
61 IF C%NOTFOUND THEN
62 RAISE NO_DATA_FOUND;
63 END IF;
64 CLOSE C;
65 end if;
66 EXCEPTION
67 when no_data_found then
68 prem := ' ';
69 WHEN OTHERS THEN
70 /*srw.message(01,'Error '||prem);*/null;
71
72 END;
73
74
75
76
77 return prem;
78 end;
79
80 function BeforePForm return boolean is
81 begin
82
83 return (TRUE);
84 end;
85
86 function AfterPForm return boolean is
87 begin
88
89 return (TRUE);
90 end;
91
92 function BeforeReport return boolean is
93 begin
94 /*SRW.USER_EXIT('FND SRWINIT');*/null;
95
96 return (TRUE);
97 end;
98
99 function BetweenPage return boolean is
100 begin
101
102 return (TRUE);
103 end;
104
105 function AfterReport return boolean is
106 begin
107 /*SRW.USER_EXIT('FND SRWEXIT');*/null;
108
109 return (TRUE);
110 end;
111
112 --Functions to refer Oracle report placeholders--
113
114 END HXT_HXT956D_XMLP_PKG ;