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