DBA Data[Home] [Help]

PACKAGE BODY: APPS.HXT_HXT956C_XMLP_PKG

Source


1 PACKAGE BODY HXT_HXT956C_XMLP_PKG AS
2 /* $Header: HXT956CB.pls 120.0 2007/12/03 11:07:08 amakrish noship $ */
3 
4 function earn_typeformula(arg_ELEMENT_TYPE_ID in number, arg_EFFECTIVE_START_DATE in date, arg_EFFECTIVE_END_DATE in date) return varchar2 is
5    EARN_TYPE   VARCHAR2(80);
6 BEGIN
7    earn_type := ' ';
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  ELT.ELEMENT_TYPE_ID = arg_ELEMENT_TYPE_ID
15       AND elt.effective_start_date <= arg_EFFECTIVE_START_DATE
16       and elt.effective_end_date >= arg_EFFECTIVE_END_DATE
17       AND    HXT_EARNING_CATEGORY = 'SDF'
18       AND    ELT.element_type_id = eltt.element_type_id
19       AND    ELTV.element_type_id = elt.element_type_id
20       and    eltt.language = userenv('LANG');
21   BEGIN
22     earn_type := ' ';
23     IF arg_ELEMENT_TYPE_ID IS NULL THEN
24        EARN_TYPE := ' ';
25     ELSE
26     OPEN C;
27     FETCH C
28     INTO   EARN_TYPE;
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
36        THEN EARN_TYPE := ' ';
37     when others
38        then /*srw.message(01,'Error -Earn Type '||earn_type);*/null;
39 
40   END;
41 
42   RETURN EARN_TYPE;
43 end;
44 
45 function BeforePForm return boolean is
46 begin
47 
48   return (TRUE);
49 end;
50 
51 function AfterPForm return boolean is
52 begin
53 
54   return (TRUE);
55 end;
56 
57 function BeforeReport return boolean is
58 begin
59   /*SRW.USER_EXIT('FND SRWINIT');*/null;
60 
61   return (TRUE);
62 end;
63 
64 function BetweenPage return boolean is
65 begin
66 
67   return (TRUE);
68 end;
69 
70 function AfterReport return boolean is
71 begin
72   /*SRW.USER_EXIT('FND SRWEXIT');*/null;
73 
74   return (TRUE);
75 end;
76 
77 --Functions to refer Oracle report placeholders--
78 
79 END HXT_HXT956C_XMLP_PKG ;