[Home] [Help]
PACKAGE BODY: APPS.JE_JEPTARER_XMLP_PKG
Source
1 PACKAGE BODY JE_JEPTARER_XMLP_PKG AS
2 /* $Header: JEPTARERB.pls 120.1 2007/12/25 16:59:07 dwkrishn noship $ */
3 FUNCTION BEFOREREPORT RETURN BOOLEAN IS
4 BEGIN
5 P_CONC_REQUEST_ID := FND_GLOBAL.CONC_REQUEST_ID;
6 /*SRW.USER_EXIT('FND SRWINIT')*/NULL;
7 DECLARE
8 COAID NUMBER;
9 NAME VARCHAR2(30);
10 FUNCTCURR VARCHAR2(15);
11 ERRBUF VARCHAR2(2000);
12 ERRBUF2 VARCHAR2(2000);
13 L_PRECISION NUMBER;
14 L_EXT_PRECISION NUMBER;
15 L_MIN_ACCT_UNIT NUMBER;
16 L_BOOLEAN BOOLEAN;
17 BEGIN
18 SELECT
19 CP.USER_CONCURRENT_PROGRAM_NAME
20 INTO PLACE_REP_TITLE
21 FROM
22 FND_CONCURRENT_PROGRAMS_VL CP,
23 FND_CONCURRENT_REQUESTS CR
24 WHERE CR.REQUEST_ID = P_CONC_REQUEST_ID
25 AND CP.APPLICATION_ID = CR.PROGRAM_APPLICATION_ID
26 AND CP.CONCURRENT_PROGRAM_ID = CR.CONCURRENT_PROGRAM_ID;
27 PLACE_REP_TITLE := substr(PLACE_REP_TITLE,1,instr(PLACE_REP_TITLE,' (XML)'));
28 IF P_SET_OF_BOOKS_ID IS NOT NULL THEN
29 GL_GET_LEDGER_INFO(P_SET_OF_BOOKS_ID
30 ,COAID
31 ,NAME
32 ,FUNCTCURR
33 ,ERRBUF);
34 IF (ERRBUF IS NOT NULL) THEN
35 SET_NAME('SQLGL'
36 ,'GL_PLL_ROUTINE_ERROR');
37 SET_TOKEN('ROUTINE'
38 ,'gl_get_set_of_books_info'
39 ,FALSE);
40 ERRBUF2 := GET;
41 /*SRW.MESSAGE('00'
42 ,ERRBUF2)*/NULL;
43 /*SRW.MESSAGE('00'
44 ,ERRBUF)*/NULL;
45 /*RAISE SRW.PROGRAM_ABORT*/RAISE_APPLICATION_ERROR(-20101,null);
46 END IF;
47 END IF;
48 PLACE_COA_ID := COAID;
49 PLACE_SOB_NAME := NAME;
50 PLACE_FUNCT_CURR := FUNCTCURR;
51 IF P_BALANCING_SEGMENT IS NOT NULL THEN
52 L_BOOLEAN := FND_FLEX_APIS.GET_SEGMENT_COLUMN(X_APPLICATION_ID => '101'
53 ,X_ID_FLEX_CODE => 'GL#'
54 ,X_ID_FLEX_NUM => P_CHART_OF_ACCT
55 ,X_SEG_ATTR_TYPE => 'GL_BALANCING'
56 ,X_APP_COLUMN_NAME => P_BAL_SEG_NAME);
57 P_BAL_SEG_NAME := P_BAL_SEG_NAME || '=' || P_BALANCING_SEGMENT;
58 IF NOT L_BOOLEAN THEN
59 ERRBUF := GET;
60 /*SRW.MESSAGE('00'
61 ,ERRBUF)*/NULL;
62 /*RAISE SRW.PROGRAM_ABORT*/RAISE_APPLICATION_ERROR(-20101,null);
63 END IF;
64 END IF;
65 EXCEPTION
66 WHEN NO_DATA_FOUND THEN
67 ERRBUF := GET;
68 /*SRW.MESSAGE('00'
69 ,ERRBUF)*/NULL;
70 /*RAISE SRW.PROGRAM_ABORT*/RAISE_APPLICATION_ERROR(-20101,null);
71 WHEN OTHERS THEN
72 ERRBUF := GET;
73 /*SRW.MESSAGE('00'
74 ,ERRBUF)*/NULL;
75 /*RAISE SRW.PROGRAM_ABORT*/RAISE_APPLICATION_ERROR(-20101,null);
76 END;
77 RETURN (TRUE);
78 END BEFOREREPORT;
79
80 FUNCTION AFTERREPORT RETURN BOOLEAN IS
81 BEGIN
82 /*SRW.USER_EXIT('FND SRWEXIT')*/NULL;
83 RETURN (TRUE);
84 END AFTERREPORT;
85
86 FUNCTION PLACE_REP_TITLE_P RETURN VARCHAR2 IS
87 BEGIN
88 RETURN PLACE_REP_TITLE;
89 END PLACE_REP_TITLE_P;
90
91 FUNCTION PLACE_COA_ID_P RETURN VARCHAR2 IS
92 BEGIN
93 RETURN PLACE_COA_ID;
94 END PLACE_COA_ID_P;
95
96 FUNCTION PLACE_SOB_NAME_P RETURN VARCHAR2 IS
97 BEGIN
98 RETURN PLACE_SOB_NAME;
99 END PLACE_SOB_NAME_P;
100
101 FUNCTION PLACE_FUNCT_CURR_P RETURN VARCHAR2 IS
102 BEGIN
103 RETURN PLACE_FUNCT_CURR;
104 END PLACE_FUNCT_CURR_P;
105
106 PROCEDURE GL_GET_PERIOD_DATES(TSET_OF_BOOKS_ID IN NUMBER
107 ,TPERIOD_NAME IN VARCHAR2
108 ,TSTART_DATE OUT NOCOPY DATE
109 ,TEND_DATE OUT NOCOPY DATE
110 ,ERRBUF OUT NOCOPY VARCHAR2) IS
111 BEGIN
112 /* STPROC.INIT('begin GL_INFO.GL_GET_PERIOD_DATES(:TSET_OF_BOOKS_ID, :TPERIOD_NAME, :TSTART_DATE, :TEND_DATE, :ERRBUF); end;');
113 STPROC.BIND_I(TSET_OF_BOOKS_ID);
114 STPROC.BIND_I(TPERIOD_NAME);
115 STPROC.BIND_O(TSTART_DATE);
116 STPROC.BIND_O(TEND_DATE);
117 STPROC.BIND_O(ERRBUF);
118 STPROC.EXECUTE;
119 STPROC.RETRIEVE(3
120 ,TSTART_DATE);
121 STPROC.RETRIEVE(4
122 ,TEND_DATE);
123 STPROC.RETRIEVE(5
124 ,ERRBUF);*/null;
125 END GL_GET_PERIOD_DATES;
126
127 PROCEDURE GL_GET_LEDGER_INFO(SOBID IN NUMBER
128 ,COAID OUT NOCOPY NUMBER
129 ,SOBNAME OUT NOCOPY VARCHAR2
130 ,FUNC_CURR OUT NOCOPY VARCHAR2
131 ,ERRBUF OUT NOCOPY VARCHAR2) IS
132 BEGIN
133 /* STPROC.INIT('begin GL_INFO.GL_GET_LEDGER_INFO(:SOBID, :COAID, :SOBNAME, :FUNC_CURR, :ERRBUF); end;');
134 STPROC.BIND_I(SOBID);
135 STPROC.BIND_O(COAID);
136 STPROC.BIND_O(SOBNAME);
137 STPROC.BIND_O(FUNC_CURR);
138 STPROC.BIND_O(ERRBUF);
139 STPROC.EXECUTE;
140 STPROC.RETRIEVE(2
141 ,COAID);
142 STPROC.RETRIEVE(3
143 ,SOBNAME);
144 STPROC.RETRIEVE(4
145 ,FUNC_CURR);
146 STPROC.RETRIEVE(5
147 ,ERRBUF);*/
148 GL_INFO.GL_GET_LEDGER_INFO(SOBID,COAID,SOBNAME,FUNC_CURR,ERRBUF);
149 END GL_GET_LEDGER_INFO;
150
151 PROCEDURE GL_GET_BUD_OR_ENC_NAME(ACTUAL_TYPE IN VARCHAR2
152 ,TYPE_ID IN NUMBER
153 ,NAME OUT NOCOPY VARCHAR2
154 ,ERRBUF OUT NOCOPY VARCHAR2) IS
155 BEGIN
156 /* STPROC.INIT('begin GL_INFO.GL_GET_BUD_OR_ENC_NAME(:ACTUAL_TYPE, :TYPE_ID, :NAME, :ERRBUF); end;');
157 STPROC.BIND_I(ACTUAL_TYPE);
158 STPROC.BIND_I(TYPE_ID);
159 STPROC.BIND_O(NAME);
160 STPROC.BIND_O(ERRBUF);
161 STPROC.EXECUTE;
162 STPROC.RETRIEVE(3
163 ,NAME);
164 STPROC.RETRIEVE(4
165 ,ERRBUF);*/null;
166 END GL_GET_BUD_OR_ENC_NAME;
167
168 PROCEDURE GL_GET_LOOKUP_VALUE(LMODE IN VARCHAR2
169 ,CODE IN VARCHAR2
170 ,TYPE IN VARCHAR2
171 ,VALUE OUT NOCOPY VARCHAR2
172 ,ERRBUF OUT NOCOPY VARCHAR2) IS
173 BEGIN
174 /* STPROC.INIT('begin GL_INFO.GL_GET_LOOKUP_VALUE(:LMODE, :CODE, :TYPE, :VALUE, :ERRBUF); end;');
175 STPROC.BIND_I(LMODE);
176 STPROC.BIND_I(CODE);
177 STPROC.BIND_I(TYPE);
178 STPROC.BIND_O(VALUE);
179 STPROC.BIND_O(ERRBUF);
180 STPROC.EXECUTE;
181 STPROC.RETRIEVE(4
182 ,VALUE);
183 STPROC.RETRIEVE(5
184 ,ERRBUF);*/null;
185 END GL_GET_LOOKUP_VALUE;
186
187 PROCEDURE GL_GET_FIRST_PERIOD(TSET_OF_BOOKS_ID IN NUMBER
188 ,TPERIOD_NAME IN VARCHAR2
189 ,TFIRST_PERIOD OUT NOCOPY VARCHAR2
190 ,ERRBUF OUT NOCOPY VARCHAR2) IS
191 BEGIN
192 /* STPROC.INIT('begin GL_INFO.GL_GET_FIRST_PERIOD(:TSET_OF_BOOKS_ID, :TPERIOD_NAME, :TFIRST_PERIOD, :ERRBUF); end;');
193 STPROC.BIND_I(TSET_OF_BOOKS_ID);
194 STPROC.BIND_I(TPERIOD_NAME);
195 STPROC.BIND_O(TFIRST_PERIOD);
196 STPROC.BIND_O(ERRBUF);
197 STPROC.EXECUTE;
198 STPROC.RETRIEVE(3
199 ,TFIRST_PERIOD);
200 STPROC.RETRIEVE(4
201 ,ERRBUF);*/null;
202 END GL_GET_FIRST_PERIOD;
203
204 PROCEDURE GL_GET_FIRST_PERIOD_OF_QUARTER(TSET_OF_BOOKS_ID IN NUMBER
205 ,TPERIOD_NAME IN VARCHAR2
206 ,TFIRST_PERIOD OUT NOCOPY VARCHAR2
207 ,ERRBUF OUT NOCOPY VARCHAR2) IS
208 BEGIN
209 /* STPROC.INIT('begin GL_INFO.GL_GET_FIRST_PERIOD_OF_QUARTER(:TSET_OF_BOOKS_ID, :TPERIOD_NAME, :TFIRST_PERIOD, :ERRBUF); end;');
210 STPROC.BIND_I(TSET_OF_BOOKS_ID);
211 STPROC.BIND_I(TPERIOD_NAME);
212 STPROC.BIND_O(TFIRST_PERIOD);
213 STPROC.BIND_O(ERRBUF);
214 STPROC.EXECUTE;
215 STPROC.RETRIEVE(3
216 ,TFIRST_PERIOD);
217 STPROC.RETRIEVE(4
218 ,ERRBUF);*/null;
219 END GL_GET_FIRST_PERIOD_OF_QUARTER;
220
221 PROCEDURE GL_GET_CONSOLIDATION_INFO(CONS_ID IN NUMBER
222 ,CONS_NAME OUT NOCOPY VARCHAR2
223 ,METHOD OUT NOCOPY VARCHAR2
224 ,CURR_CODE OUT NOCOPY VARCHAR2
225 ,FROM_SOBID OUT NOCOPY NUMBER
226 ,TO_SOBID OUT NOCOPY NUMBER
227 ,DESCRIPTION OUT NOCOPY VARCHAR2
228 ,START_DATE OUT NOCOPY DATE
229 ,END_DATE OUT NOCOPY DATE
230 ,ERRBUF OUT NOCOPY VARCHAR2) IS
231 BEGIN
232 /* STPROC.INIT('begin GL_INFO.GL_GET_CONSOLIDATION_INFO(:CONS_ID, :CONS_NAME, :METHOD, :CURR_CODE, :FROM_SOBID, :TO_SOBID, :DESCRIPTION, :START_DATE, :END_DATE, :ERRBUF); end;');
233 STPROC.BIND_I(CONS_ID);
234 STPROC.BIND_O(CONS_NAME);
235 STPROC.BIND_O(METHOD);
236 STPROC.BIND_O(CURR_CODE);
237 STPROC.BIND_O(FROM_SOBID);
238 STPROC.BIND_O(TO_SOBID);
239 STPROC.BIND_O(DESCRIPTION);
240 STPROC.BIND_O(START_DATE);
241 STPROC.BIND_O(END_DATE);
242 STPROC.BIND_O(ERRBUF);
243 STPROC.EXECUTE;
244 STPROC.RETRIEVE(2
245 ,CONS_NAME);
246 STPROC.RETRIEVE(3
247 ,METHOD);
248 STPROC.RETRIEVE(4
249 ,CURR_CODE);
250 STPROC.RETRIEVE(5
251 ,FROM_SOBID);
252 STPROC.RETRIEVE(6
253 ,TO_SOBID);
254 STPROC.RETRIEVE(7
255 ,DESCRIPTION);
256 STPROC.RETRIEVE(8
257 ,START_DATE);
258 STPROC.RETRIEVE(9
259 ,END_DATE);
260 STPROC.RETRIEVE(10
261 ,ERRBUF);*/null;
262 END GL_GET_CONSOLIDATION_INFO;
263
264 PROCEDURE SET_NAME(APPLICATION IN VARCHAR2
265 ,NAME IN VARCHAR2) IS
266 BEGIN
267 /* STPROC.INIT('begin FND_MESSAGE.SET_NAME(:APPLICATION, :NAME); end;');
268 STPROC.BIND_I(APPLICATION);
269 STPROC.BIND_I(NAME);
270 STPROC.EXECUTE;*/
271 FND_MESSAGE.SET_NAME(APPLICATION,NAME);
272 END SET_NAME;
273
274 PROCEDURE SET_TOKEN(TOKEN IN VARCHAR2
275 ,VALUE IN VARCHAR2
276 ,TRANSLATE IN BOOLEAN) IS
277 TRANSLATE1 BOOLEAN;
278 BEGIN
279 /* STPROC.INIT('declare TRANSLATE BOOLEAN; begin TRANSLATE := sys.diutil.int_to_bool(:TRANSLATE); FND_MESSAGE.SET_TOKEN(:TOKEN, :VALUE, TRANSLATE); end;');
280 STPROC.BIND_I(TRANSLATE);
281 STPROC.BIND_I(TOKEN);
282 STPROC.BIND_I(VALUE);
283 STPROC.EXECUTE;*/
284
285 -- TRANSLATE1 := sys.diutil.int_to_bool(TRANSLATE);
286 FND_MESSAGE.SET_TOKEN(TOKEN, VALUE, TRANSLATE1);
287 END SET_TOKEN;
288
289 PROCEDURE RETRIEVE(MSGOUT OUT NOCOPY VARCHAR2) IS
290 BEGIN
291 /* STPROC.INIT('begin FND_MESSAGE.RETRIEVE(:MSGOUT); end;');
292 STPROC.BIND_O(MSGOUT);
293 STPROC.EXECUTE;
294 STPROC.RETRIEVE(1
295 ,MSGOUT);*/null;
296 END RETRIEVE;
297
298 PROCEDURE CLEAR IS
299 BEGIN
300 /*STPROC.INIT('begin FND_MESSAGE.CLEAR; end;');
301 STPROC.EXECUTE;*/null;
302 END CLEAR;
303
304 FUNCTION GET_STRING(APPIN IN VARCHAR2
305 ,NAMEIN IN VARCHAR2) RETURN VARCHAR2 IS
306 X0 VARCHAR2(2000);
307 BEGIN
308 /* STPROC.INIT('begin :X0 := FND_MESSAGE.GET_STRING(:APPIN, :NAMEIN); end;');
309 STPROC.BIND_O(X0);
310 STPROC.BIND_I(APPIN);
311 STPROC.BIND_I(NAMEIN);
312 STPROC.EXECUTE;
313 STPROC.RETRIEVE(1
314 ,X0);*/null;
315 RETURN X0;
316 END GET_STRING;
317
318 FUNCTION GET RETURN VARCHAR2 IS
319 X0 VARCHAR2(2000);
320 BEGIN
321 /*STPROC.INIT('begin :X0 := FND_MESSAGE.GET; end;');
322 STPROC.BIND_O(X0);
323 STPROC.EXECUTE;
324 STPROC.RETRIEVE(1
325 ,X0);*/
326
327 X0 := FND_MESSAGE.GET;
328 RETURN X0;
329 END GET;
330
331 FUNCTION GET_ENCODED RETURN VARCHAR2 IS
332 X0 VARCHAR2(2000);
333 BEGIN
334 /* STPROC.INIT('begin :X0 := FND_MESSAGE.GET_ENCODED; end;');
335 STPROC.BIND_O(X0);
336 STPROC.EXECUTE;
337 STPROC.RETRIEVE(1
338 ,X0);*/
339 RETURN X0;
340 END GET_ENCODED;
341
342 PROCEDURE PARSE_ENCODED(ENCODED_MESSAGE IN VARCHAR2
343 ,APP_SHORT_NAME OUT NOCOPY VARCHAR2
344 ,MESSAGE_NAME OUT NOCOPY VARCHAR2) IS
345 BEGIN
346 /* STPROC.INIT('begin FND_MESSAGE.PARSE_ENCODED(:ENCODED_MESSAGE, :APP_SHORT_NAME, :MESSAGE_NAME); end;');
347 STPROC.BIND_I(ENCODED_MESSAGE);
348 STPROC.BIND_O(APP_SHORT_NAME);
349 STPROC.BIND_O(MESSAGE_NAME);
350 STPROC.EXECUTE;
351 STPROC.RETRIEVE(2
352 ,APP_SHORT_NAME);
353 STPROC.RETRIEVE(3
354 ,MESSAGE_NAME);*/null;
355 END PARSE_ENCODED;
356
357 PROCEDURE SET_ENCODED(ENCODED_MESSAGE IN VARCHAR2) IS
358 BEGIN
359 /* STPROC.INIT('begin FND_MESSAGE.SET_ENCODED(:ENCODED_MESSAGE); end;');
360 STPROC.BIND_I(ENCODED_MESSAGE);
361 STPROC.EXECUTE;*/null;
362 END SET_ENCODED;
363
364 PROCEDURE RAISE_ERROR IS
365 BEGIN
366 /* STPROC.INIT('begin FND_MESSAGE.RAISE_ERROR; end;');
367 STPROC.EXECUTE;*/null;
368 END RAISE_ERROR;
369
370 END JE_JEPTARER_XMLP_PKG;
371
372