PACKAGE BODY: APPS.GL_RGXRPTS_XMLP_PKG

Source

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