PACKAGE BODY: APPS.HXT_HXT957F_XMLP_PKG

Source

1 PACKAGE BODY HXT_HXT957F_XMLP_PKG AS
2 /* $Header: HXT957FB.pls 120.0 2007/12/03 11:27:15 amakrish noship $ */
3 
4 function var_type_desformula(VAR_TYPE in varchar2) return varchar2 is
5    Var_Type_Des  VARCHAR2(20);
6 begin
7 
8    if VAR_TYPE = 'EAR' then
9       Var_Type_Des := 'EARNING';
10    else if VAR_TYPE = 'ORG1' then
11          Var_Type_Des := 'ORGANIZATION';
12    else if VAR_TYPE = 'LOC1' then
13          Var_Type_Des := 'LOCATION';
14    else  Var_Type_Des := '';
15    end if;
16    end if;
17    end if;
18    return Var_Type_Des;
19 end;
20 
21 function Var_Type_NameFormula(VAR_TYPE in varchar2,VAR_TYPE_ID in number) return VARCHAR2 is
22   Var_Type_Name VARCHAR2(60); begin
23   Var_Type_Name := '';
24   if VAR_TYPE = 'ORG1' then
25      BEGIN
26         IF (VAR_TYPE_ID IS NOT NULL) THEN
27           DECLARE
28             CURSOR C IS
29               SELECT NAME
30               FROM
31               HR_ALL_ORGANIZATION_UNITS_TL
32               WHERE  ORGANIZATION_ID = VAR_TYPE_ID
33               AND language = userenv('LANG');
34           BEGIN
35             OPEN C;
36             FETCH C
37             INTO   Var_Type_Name;
38             IF C%NOTFOUND THEN
39               Var_Type_Name := '';
40             END IF;
41             CLOSE C;
42           EXCEPTION
43             WHEN OTHERS THEN
44               Var_Type_Name := '';
45           END;
46         END IF;
47      END;
48   else if VAR_TYPE = 'LOC1' then
49      BEGIN
50         IF (VAR_TYPE_ID IS NOT NULL) THEN
51           DECLARE
52             CURSOR C IS
53               SELECT LOCATION_CODE
54               FROM   HR_LOCATIONS_ALL_TL
55               WHERE  LOCATION_ID = VAR_TYPE_ID
56               AND  LANGUAGE = USERENV('LANG');
57           BEGIN
58             OPEN C;
59             FETCH C
60             INTO   Var_Type_Name;
61             IF C%NOTFOUND THEN
62               Var_Type_Name := '';
63             END IF;
64             CLOSE C;
65           EXCEPTION
66             WHEN OTHERS THEN
67               Var_Type_Name := '';
68           END;
69         END IF;
70      END;
71   else if VAR_TYPE = 'EAR' then
72      BEGIN
73         IF (VAR_TYPE_ID IS NOT NULL) THEN
74           DECLARE
75             CURSOR C IS
76               SELECT ELEMENT_NAME
77               FROM   PAY_ELEMENT_TYPES_F_TL
78               WHERE  ELEMENT_TYPE_ID = VAR_TYPE_ID
79 	      AND  LANGUAGE = USERENV('LANG');
80           BEGIN
81             OPEN C;
82             FETCH C
83             INTO   Var_Type_Name;
84             IF C%NOTFOUND THEN
85               Var_Type_Name := '';
86             END IF;
87             CLOSE C;
88           EXCEPTION
89             WHEN OTHERS THEN
90               Var_Type_Name := '';
91           END;
92         END IF;
93      END;
94   else
95      Var_Type_Name := '';
96   end if;
97   end if;
98   end if;
99   return Var_Type_Name;
100 
101 end;
102 
103 function BeforeReport return boolean is
104 begin
105   /*SRW.USER_EXIT('FND SRWINIT');*/null;
106 
107   return (TRUE);
108 end;
109 
110 function AfterReport return boolean is
111 begin
112   /*SRW.USER_EXIT('FND SRWEXIT');*/null;
113 
114   return (TRUE);
115 end;
116 
117 --Functions to refer Oracle report placeholders--
118 
119 END HXT_HXT957F_XMLP_PKG ;