[Home] [Help]
PACKAGE BODY: APPS.GL_RGXRSETD_XMLP_PKG
Source
1 PACKAGE BODY GL_RGXRSETD_XMLP_PKG AS
2 /* $Header: RGXRSETDB.pls 120.0 2007/12/27 15:42:07 vijranga noship $ */
3
4 function BeforeReport return boolean is
5 begin
6
7 DECLARE
8 COA_ID NUMBER;
9 FUNC_CURR VARCHAR2(15);
10 BEGIN
11 /*SRW.USER_EXIT('FND SRWINIT');*/null;
12
13
14 IF P_ACCESS_SET_ID IS NULL THEN
15 NULL;
16 ELSE
17
18 SELECT chart_of_accounts_id INTO COA_ID
19 FROM gl_access_sets WHERE access_set_id = P_ACCESS_SET_ID;
20
21 C_STRUCTURE_ID := COA_ID;
22 END IF;
23
24 C_ID_FLEX_CODE := 'GLLE';
25
26
27
28 /*SRW.USER_EXIT('FND GETPROFILE
29 INDUSTRY :C_INDUSTRY_TYPE');*/null;
30
31
32 IF C_INDUSTRY_TYPE = 'G' THEN
33
34
35 /*SRW.USER_EXIT('FND GETPROFILE
36 ATTRIBUTE_REPORTING :C_ATTRIBUTE_FLAG');*/null;
37
38
39 IF ( C_ATTRIBUTE_FLAG = 'Y' ) THEN
40 C_ID_FLEX_CODE := 'GLAT' ;
41 END IF;
42
43 END IF;
44
45 END;
46 P_DELIMITER := fnd_flex_ext.get_delimiter('SQLGL','GLLE',C_STRUCTURE_ID);
47 return (TRUE);
48 end;
49
50 function AfterReport return boolean is
51 begin
52
53 BEGIN
54 /*SRW.USER_EXIT('FND SRWEXIT');*/null;
55
56 END; return (TRUE);
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 return( Recinfo||substr (segment, instr(segment,P_DELIMITER,1,1), length(segment) ));
72 END;
73
74 function c_segment_overrideformula(segment_override1 in varchar2) return char is
75 begin
76 return(F_OVERRIDE_SEGMENT(segment_override1));
77 end;
78
79 --Functions to refer Oracle report placeholders--
80
81 Function C_ID_FLEX_CODE_p return varchar2 is
82 Begin
83 return C_ID_FLEX_CODE;
84 END;
85 Function C_STRUCTURE_ID_p return number is
86 Begin
87 return C_STRUCTURE_ID;
88 END;
89 Function C_INDUSTRY_TYPE_p return varchar2 is
90 Begin
91 return C_INDUSTRY_TYPE;
92 END;
93 Function C_ATTRIBUTE_FLAG_p return varchar2 is
94 Begin
95 return C_ATTRIBUTE_FLAG;
96 END;
97 END GL_RGXRSETD_XMLP_PKG ;
98