[Home] [Help]
PACKAGE BODY: APPS.GL_GLXCOCRR_XMLP_PKG
Source
1 PACKAGE BODY GL_GLXCOCRR_XMLP_PKG AS
2 /* $Header: GLXCOCRRB.pls 120.0 2007/12/27 14:51:41 vijranga noship $ */
3
4 function from_flexfield_lowformula(FROM_FLEXFIELD_LOW in varchar2) return varchar2 is
5 begin
6
7 /*srw.reference(FROM_CHART_OF_ACCOUNTS_ID);*/null;
8
9 /*srw.reference(FROM_FLEXDATA_LOW);*/null;
10
11 /*srw.user_exit('FND FLEXRIDVAL CODE="GL#"
12 NUM=":FROM_CHART_OF_ACCOUNTS_ID"
13 APPL_SHORT_NAME="SQLGL"
14 DATA=":FROM_FLEXDATA_LOW"
15 VALUE=":FROM_FLEXFIELD_LOW"');*/null;
16
17 RETURN(FROM_FLEXFIELD_LOW);
18
19 end;
20
21 function AfterReport return boolean is
22 begin
23
24 /*srw.user_exit('FND SRWEXIT');*/null;
25 return (TRUE);
26 end;
27
28 function from_flexfield_highformula(FROM_FLEXFIELD_HIGH in varchar2) return varchar2 is
29 begin
30
31 /*srw.reference(FROM_CHART_OF_ACCOUNTS_ID);*/null;
32
33 /*srw.reference(FROM_FLEXDATA_HIGH);*/null;
34
35 /*srw.user_exit('FND FLEXRIDVAL CODE="GL#"
36 NUM=":FROM_CHART_OF_ACCOUNTS_ID"
37 APPL_SHORT_NAME="SQLGL"
38 DATA=":FROM_FLEXDATA_HIGH"
39 VALUE=":FROM_FLEXFIELD_HIGH"');*/null;
40
41 RETURN(FROM_FLEXFIELD_HIGH);
42
43 end;
44
45 function BeforeReport return boolean is
46 begin
47
48 /*srw.user_exit('FND SRWINIT');*/null;
49
50
51 declare
52 to_coa_id NUMBER;
53 from_coa_id NUMBER;
54 coaid NUMBER;
55 start_date DATE;
56 end_date DATE;
57 tmpname VARCHAR2(100);
58 description VARCHAR2(240);
59 errbuf VARCHAR2(132);
60 errbuf2 VARCHAR2(132);
61 begin
62
63 SELECT average_balances_flag
64 INTO ADB_USED
65 FROM GL_SYSTEM_USAGES;
66
67 gl_get_mapping_info(P_COA_MAPPING_ID, tmpname,
68 from_coa_id,to_coa_id, description,start_date,end_date,
69 errbuf);
70
71 if (errbuf is not null) then
72
73
74 errbuf2 := gl_message.get_message(
75 'GL_PLL_ROUTINE_ERROR', 'N',
76 'ROUTINE','gl_get_coa_mapping_info'
77 );
78 /*srw.message('00', errbuf2);*/null;
79
80
81 /*srw.message('00', errbuf);*/null;
82
83
84 raise_application_error(-20101,null);/*srw.program_abort;*/null;
85
86 end if;
87
88
89 COA_MAP_NAME := tmpname;
90 COA_MAP_DESCRIPTION := description;
91 TO_CHART_OF_ACCOUNTS_ID := to_coa_id;
92 FROM_CHART_OF_ACCOUNTS_ID := from_coa_id;
93 FROM_COA_NAME :=B_COA_NAME(FROM_CHART_OF_ACCOUNTS_ID);
94 TO_COA_NAME :=B_COA_NAME(TO_CHART_OF_ACCOUNTS_ID);
95 START_DATE :=start_date;
96 END_DATE :=end_date;
97 end;
98 /*srw.reference(TO_CHART_OF_ACCOUNTS_ID);*/null;
99
100
101 null;
102
103
104 null;
105
106 /*srw.reference(FROM_CHART_OF_ACCOUNTS_ID);*/null;
107
108 /*srw.user_exit('FND FLEXRSQL CODE="GL#" NUM=":FROM_CHART_OF_ACCOUNTS_ID"
109 APPL_SHORT_NAME="SQLGL"
110 OUTPUT=":SELECT_FROM_FLEX" TABLEALIAS="CFM"');*/null;
111
112
113 /*srw.reference(FROM_CHART_OF_ACCOUNTS_ID);*/null;
114
115 /*srw.user_exit('FND FLEXRSQL CODE="GL#"
116 NUM=":FROM_CHART_OF_ACCOUNTS_ID"
117 APPL_SHORT_NAME="SQLGL"
118 OUTPUT=":ORDERBY_FROM_FLEX" TABLEALIAS="CFM"');*/null;
119
120 return (TRUE);
121 end;
122
123 procedure gl_get_mapping_info(
124 map_id number, map_name out NOCOPY varchar2,
125 from_coa_id out NOCOPY number, to_coa_id out NOCOPY number,
126 description out NOCOPY varchar2,start_date_active out NOCOPY date,
127 end_date_active out NOCOPY date,
128 errbuf out NOCOPY varchar2) is
129
130
131 CURSOR MAP is
132 Select name,from_coa_id, to_coa_id,
133 description,start_date_active,end_date_active
134 from gl_coa_mappings
135 where coa_mapping_id = map_id;
136
137 begin
138
139 OPEN MAP;
140 FETCH MAP into map_name,
141 from_coa_id,
142 to_coa_id,
143 description,
144 start_date_active,
145 end_date_active;
146
147 CLOSE MAP;
148
149 end;
150
151 --function b_coa_name(x_segment number)(x_segment NUMBER) return varchar is
152 function b_coa_name(x_segment NUMBER) return varchar is
153 CURSOR SEGMENT IS
154 SELECT ID_FLEX_STRUCTURE_NAME
155 FROM FND_ID_FLEX_STRUCTURES_V
156 WHERE APPLICATION_ID = 101
157 AND ID_FLEX_CODE = 'GL#'
158 AND ID_FLEX_NUM = x_segment;
159 recinfo VARCHAR2(30);
160 BEGIN
161
162 OPEN SEGMENT;
163 FETCH SEGMENT INTO recinfo;
164 CLOSE SEGMENT;
165 RETURN(recinfo);
166
167 END;
168
169 --Functions to refer Oracle report placeholders--
170
171 Function TO_CHART_OF_ACCOUNTS_ID_p return varchar2 is
172 Begin
173 return TO_CHART_OF_ACCOUNTS_ID;
174 END;
175 Function SELECT_FROM_FLEX_LOW_p return varchar2 is
176 Begin
177 return SELECT_FROM_FLEX_LOW;
178 END;
179 Function ORDERBY_FROM_FLEX_LOW_p return varchar2 is
180 Begin
181 return ORDERBY_FROM_FLEX_LOW;
182 END;
183 Function SELECT_TO_FLEX_p return varchar2 is
184 Begin
185 return SELECT_TO_FLEX;
186 END;
187 Function ORDERBY_TO_FLEX_p return varchar2 is
188 Begin
189 return ORDERBY_TO_FLEX;
190 END;
191 Function FROM_CHART_OF_ACCOUNTS_ID_p return varchar2 is
192 Begin
193 return FROM_CHART_OF_ACCOUNTS_ID;
194 END;
195 Function COA_MAP_NAME_p return varchar2 is
196 Begin
197 return COA_MAP_NAME;
198 END;
199 Function COA_MAP_DESCRIPTION_p return varchar2 is
200 Begin
201 return COA_MAP_DESCRIPTION;
202 END;
203 Function START_DATE_p return date is
204 Begin
205 return START_DATE;
206 END;
207 Function END_DATE_p return date is
208 Begin
209 return END_DATE;
210 END;
211 Function SELECT_FROM_FLEX_HIGH_p return varchar2 is
212 Begin
213 return SELECT_FROM_FLEX_HIGH;
214 END;
215 Function ORDERBY_FROM_FLEX_HIGH_p return varchar2 is
216 Begin
217 return ORDERBY_FROM_FLEX_HIGH;
218 END;
219 Function ADB_USED_p return varchar2 is
220 Begin
221 return ADB_USED;
222 END;
223 Function TO_COA_NAME_p return varchar2 is
224 Begin
225 return TO_COA_NAME;
226 END;
227 Function FROM_COA_NAME_p return varchar2 is
228 Begin
229 return FROM_COA_NAME;
230 END;
231 END GL_GLXCOCRR_XMLP_PKG ;
232
233