PACKAGE BODY: APPS.GL_RGXRPTD_XMLP_PKG

Source

1 PACKAGE BODY GL_RGXRPTD_XMLP_PKG AS
2 /* $Header: RGXRPTDB.pls 120.0 2007/12/27 15:38:44 vijranga noship $ */
3 
4 function BeforeReport return boolean is
5   COA_ID    NUMBER;
6   FUNC_CURR VARCHAR2(15);
7 begin
8   /*SRW.USER_EXIT('FND SRWINIT');*/null;
9 
10 
11   IF P_ACCESS_SET_ID IS NULL THEN
12     NULL;
13   ELSE
14 
15     SELECT chart_of_accounts_id INTO COA_ID
16     FROM gl_access_sets WHERE access_set_id = P_ACCESS_SET_ID;
17 
18     C_STRUCTURE_ID := COA_ID;
19   END IF;
20 
21   C_ID_FLEX_CODE := 'GLLE';
22 
23 
24 
25   /*SRW.USER_EXIT('FND GETPROFILE
26                  INDUSTRY :C_INDUSTRY_TYPE');*/null;
27 
28 
29   IF C_INDUSTRY_TYPE = 'G' THEN
30 
31 
32     /*SRW.USER_EXIT('FND GETPROFILE
33                   ATTRIBUTE_REPORTING :C_ATTRIBUTE_FLAG');*/null;
34 
35 
36     IF ( C_ATTRIBUTE_FLAG = 'Y' ) THEN
37       C_ID_FLEX_CODE := 'GLAT' ;
38     END IF;
39 
40   END IF;
41 
42   P_DELIMITER := fnd_flex_ext.get_delimiter('SQLGL','GLLE',C_STRUCTURE_ID);
43 
44   return (TRUE);
45 end;
46 
47 function AfterReport return boolean is
48 begin
49   /*SRW.USER_EXIT('FND SRWEXIT');*/null;
50 
51   return (TRUE);
52 end;
53 
54 function c_segment_overirdeformula(segment_override in varchar2) return char is
55 begin
56   return(F_OVERRIDE_SEGMENT(segment_override));
57 end;
58 
59 --function f_override_segment(segment varchar )(segment  varchar ) return varchar is
60 function f_override_segment(segment varchar ) return varchar is
61   CURSOR C is
62     select short_name
63       from gl_ledgers
64      where gl_ledgers.ledger_id (+) = to_number(substr(segment,0, instr(segment,P_DELIMITER,1,1) -1));
65 
66   recinfo varchar2(240);
67 BEGIN
68   OPEN C;
69   FETCH C INTO Recinfo;
70   CLOSE C;
71 
72   return (Recinfo || substr(segment, instr(segment,P_DELIMITER,1,1), length(segment)) );
73 END;
74 
75 --Functions to refer Oracle report placeholders--
76 
77  Function C_STRUCTURE_ID_p return number is
78 	Begin
79 	 return C_STRUCTURE_ID;
80 	 END;
81  Function C_ID_FLEX_CODE_p return varchar2 is
82 	Begin
83 	 return C_ID_FLEX_CODE;
84 	 END;
85  Function C_INDUSTRY_TYPE_p return varchar2 is
86 	Begin
87 	 return C_INDUSTRY_TYPE;
88 	 END;
89  Function C_ATTRIBUTE_FLAG_p return varchar2 is
90 	Begin
91 	 return C_ATTRIBUTE_FLAG;
92 	 END;
93 END GL_RGXRPTD_XMLP_PKG ;
94