eTRM uses javascript that opens and focuses a separate window to display reports. Your browser does not appear to support javascript. This should not prevent you from using eTRM but it does mean the window focus feature will not work. Please check the contents of other windows on your desktop if you click on a link that does not appear to do anything.
PACKAGE BODY: APPS.GL_GLXRLTCL_XMLP_PKG

Source


1 PACKAGE BODY GL_GLXRLTCL_XMLP_PKG AS
2 /* $Header: GLXRLTCLB.pls 120.0 2007/12/27 15:21:48 vijranga noship $ */
3   FUNCTION BEFOREREPORT RETURN BOOLEAN IS
4   BEGIN
5     DECLARE
6       ERRBUF VARCHAR2(132);
7       ERRBUF2 VARCHAR2(132);
8       COLUMN_NAME VARCHAR2(50);
9       VSETID NUMBER;
10     BEGIN
11 
12       P_CONC_REQUEST_ID := FND_GLOBAL.CONC_REQUEST_ID;
13       /*SRW.USER_EXIT('FND SRWINIT')*/NULL;
14       DECLARE
15         SOBNAME VARCHAR2(30);
16         COAID NUMBER;
17         FUNC_CURR VARCHAR2(15);
18       BEGIN
19         GL_GET_LEDGER_INFO(P_SET_OF_BOOKS_ID
20                           ,COAID
21                           ,SOBNAME
22                           ,FUNC_CURR
23                           ,ERRBUF);
24         IF (ERRBUF IS NOT NULL) THEN
25           ERRBUF2 := GET_MESSAGE('GL_PLL_ROUTINE_ERROR'
26                                 ,'N'
27                                 ,'ROUTINE'
28                                 ,'gl_get_ledger_info');
29           /*SRW.MESSAGE('00'
30                      ,ERRBUF2)*/NULL;
31           /*SRW.MESSAGE('00'
32                      ,ERRBUF)*/NULL;
33           /*RAISE SRW.PROGRAM_ABORT*/
34 	  --RAISE_APPLICATION_ERROR(-20101,null);
35         END IF;
36         STRUCT_NUM := COAID;
37         SET_OF_BOOKS_NAME := SOBNAME;
38       END;
39       SELECT
40         APPLICATION_COLUMN_NAME
41       INTO COLUMN_NAME
42       FROM
43         FND_SEGMENT_ATTRIBUTE_VALUES
44       WHERE ID_FLEX_CODE = 'GL#'
45         AND ID_FLEX_NUM = STRUCT_NUM
46         AND SEGMENT_ATTRIBUTE_TYPE = 'GL_ACCOUNT'
47         AND ATTRIBUTE_VALUE = 'Y';
48       SELECT
49         FLEX_VALUE_SET_ID
50       INTO VSETID
51       FROM
52         FND_ID_FLEX_SEGMENTS
53       WHERE ID_FLEX_CODE = 'GL#'
54         AND ENABLED_FLAG = 'Y'
55         AND ID_FLEX_NUM = STRUCT_NUM
56         AND APPLICATION_COLUMN_NAME = COLUMN_NAME;
57       VALUE_SET_ID := VSETID;
58     EXCEPTION
59       WHEN NO_DATA_FOUND THEN
60         /*SRW.MESSAGE('00'
61                    ,SQLERRM)*/NULL;
62         /*RAISE SRW.PROGRAM_ABORT*/--RAISE_APPLICATION_ERROR(-20101,null);
63     END;
64     RETURN (TRUE);
65   END BEFOREREPORT;
66 
67   FUNCTION AFTERREPORT RETURN BOOLEAN IS
68   BEGIN
69     /*SRW.USER_EXIT('FND SRWEXIT')*/NULL;
70     RETURN (TRUE);
71   END AFTERREPORT;
72 
73   FUNCTION SET_OF_BOOKS_NAME_P RETURN VARCHAR2 IS
74   BEGIN
75     RETURN SET_OF_BOOKS_NAME;
76   END SET_OF_BOOKS_NAME_P;
77 
78   FUNCTION STRUCT_NUM_P RETURN NUMBER IS
79   BEGIN
80     RETURN STRUCT_NUM;
81   END STRUCT_NUM_P;
82 
83   FUNCTION VALUE_SET_ID_P RETURN NUMBER IS
84   BEGIN
85     RETURN VALUE_SET_ID;
86   END VALUE_SET_ID_P;
87 
88   FUNCTION PAGENO_P RETURN NUMBER IS
89   BEGIN
90     RETURN PAGENO;
91   END PAGENO_P;
92 
93   PROCEDURE GL_GET_PERIOD_DATES(TSET_OF_BOOKS_ID IN NUMBER
94                                ,TPERIOD_NAME IN VARCHAR2
95                                ,TSTART_DATE OUT NOCOPY DATE
96                                ,TEND_DATE OUT NOCOPY DATE
97                                ,ERRBUF OUT NOCOPY VARCHAR2) IS
98   BEGIN
99  /*   STPROC.INIT('begin GL_INFO.GL_GET_PERIOD_DATES(:TSET_OF_BOOKS_ID, :TPERIOD_NAME, :TSTART_DATE, :TEND_DATE, :ERRBUF); end;');
100     STPROC.BIND_I(TSET_OF_BOOKS_ID);
101     STPROC.BIND_I(TPERIOD_NAME);
102     STPROC.BIND_O(TSTART_DATE);
103     STPROC.BIND_O(TEND_DATE);
104     STPROC.BIND_O(ERRBUF);
105     STPROC.EXECUTE;
106     STPROC.RETRIEVE(3
107                    ,TSTART_DATE);
108     STPROC.RETRIEVE(4
109                    ,TEND_DATE);
110     STPROC.RETRIEVE(5
111                    ,ERRBUF);*/null;
112   END GL_GET_PERIOD_DATES;
113 
114   PROCEDURE GL_GET_LEDGER_INFO(SOBID IN NUMBER
115                               ,COAID OUT NOCOPY NUMBER
116                               ,SOBNAME OUT NOCOPY VARCHAR2
117                               ,FUNC_CURR OUT NOCOPY VARCHAR2
118                               ,ERRBUF OUT NOCOPY VARCHAR2) IS
119   BEGIN
120    /* STPROC.INIT('begin GL_INFO.GL_GET_LEDGER_INFO(:SOBID, :COAID, :SOBNAME, :FUNC_CURR, :ERRBUF); end;');
121     STPROC.BIND_I(SOBID);
122     STPROC.BIND_O(COAID);
123     STPROC.BIND_O(SOBNAME);
124     STPROC.BIND_O(FUNC_CURR);
125     STPROC.BIND_O(ERRBUF);
126     STPROC.EXECUTE;
127     STPROC.RETRIEVE(2
128                    ,COAID);
129     STPROC.RETRIEVE(3
130                    ,SOBNAME);
131     STPROC.RETRIEVE(4
132                    ,FUNC_CURR);
133     STPROC.RETRIEVE(5
134                    ,ERRBUF);*/
135 
136 		   GL_INFO.GL_GET_LEDGER_INFO(SOBID,COAID,SOBNAME,FUNC_CURR,ERRBUF);
137   END GL_GET_LEDGER_INFO;
138 
139   PROCEDURE GL_GET_BUD_OR_ENC_NAME(ACTUAL_TYPE IN VARCHAR2
140                                   ,TYPE_ID IN NUMBER
141                                   ,NAME OUT NOCOPY VARCHAR2
142                                   ,ERRBUF OUT NOCOPY VARCHAR2) IS
143   BEGIN
144   /*  STPROC.INIT('begin GL_INFO.GL_GET_BUD_OR_ENC_NAME(:ACTUAL_TYPE, :TYPE_ID, :NAME, :ERRBUF); end;');
145     STPROC.BIND_I(ACTUAL_TYPE);
146     STPROC.BIND_I(TYPE_ID);
147     STPROC.BIND_O(NAME);
148     STPROC.BIND_O(ERRBUF);
149     STPROC.EXECUTE;
150     STPROC.RETRIEVE(3
151                    ,NAME);
152     STPROC.RETRIEVE(4
153                    ,ERRBUF);*/null;
154   END GL_GET_BUD_OR_ENC_NAME;
155 
156   PROCEDURE GL_GET_LOOKUP_VALUE(LMODE IN VARCHAR2
157                                ,CODE IN VARCHAR2
158                                ,TYPE IN VARCHAR2
159                                ,VALUE OUT NOCOPY VARCHAR2
160                                ,ERRBUF OUT NOCOPY VARCHAR2) IS
161   BEGIN
162    /* STPROC.INIT('begin GL_INFO.GL_GET_LOOKUP_VALUE(:LMODE, :CODE, :TYPE, :VALUE, :ERRBUF); end;');
163     STPROC.BIND_I(LMODE);
164     STPROC.BIND_I(CODE);
165     STPROC.BIND_I(TYPE);
166     STPROC.BIND_O(VALUE);
167     STPROC.BIND_O(ERRBUF);
168     STPROC.EXECUTE;
169     STPROC.RETRIEVE(4
170                    ,VALUE);
171     STPROC.RETRIEVE(5
172                    ,ERRBUF);*/null;
173   END GL_GET_LOOKUP_VALUE;
174 
175   PROCEDURE GL_GET_FIRST_PERIOD(TSET_OF_BOOKS_ID IN NUMBER
176                                ,TPERIOD_NAME IN VARCHAR2
177                                ,TFIRST_PERIOD OUT NOCOPY VARCHAR2
178                                ,ERRBUF OUT NOCOPY VARCHAR2) IS
179   BEGIN
180    /* STPROC.INIT('begin GL_INFO.GL_GET_FIRST_PERIOD(:TSET_OF_BOOKS_ID, :TPERIOD_NAME, :TFIRST_PERIOD, :ERRBUF); end;');
181     STPROC.BIND_I(TSET_OF_BOOKS_ID);
182     STPROC.BIND_I(TPERIOD_NAME);
183     STPROC.BIND_O(TFIRST_PERIOD);
184     STPROC.BIND_O(ERRBUF);
185     STPROC.EXECUTE;
186     STPROC.RETRIEVE(3
187                    ,TFIRST_PERIOD);
188     STPROC.RETRIEVE(4
189                    ,ERRBUF);*/null;
190   END GL_GET_FIRST_PERIOD;
191 
192   PROCEDURE GL_GET_FIRST_PERIOD_OF_QUARTER(TSET_OF_BOOKS_ID IN NUMBER
193                                           ,TPERIOD_NAME IN VARCHAR2
194                                           ,TFIRST_PERIOD OUT NOCOPY VARCHAR2
195                                           ,ERRBUF OUT NOCOPY VARCHAR2) IS
196   BEGIN
197    /* STPROC.INIT('begin GL_INFO.GL_GET_FIRST_PERIOD_OF_QUARTER(:TSET_OF_BOOKS_ID, :TPERIOD_NAME, :TFIRST_PERIOD, :ERRBUF); end;');
198     STPROC.BIND_I(TSET_OF_BOOKS_ID);
199     STPROC.BIND_I(TPERIOD_NAME);
200     STPROC.BIND_O(TFIRST_PERIOD);
201     STPROC.BIND_O(ERRBUF);
202     STPROC.EXECUTE;
203     STPROC.RETRIEVE(3
204                    ,TFIRST_PERIOD);
205     STPROC.RETRIEVE(4
206                    ,ERRBUF);*/null;
207   END GL_GET_FIRST_PERIOD_OF_QUARTER;
208 
209   PROCEDURE GL_GET_CONSOLIDATION_INFO(CONS_ID IN NUMBER
210                                      ,CONS_NAME OUT NOCOPY VARCHAR2
211                                      ,METHOD OUT NOCOPY VARCHAR2
212                                      ,CURR_CODE OUT NOCOPY VARCHAR2
213                                      ,FROM_SOBID OUT NOCOPY NUMBER
214                                      ,TO_SOBID OUT NOCOPY NUMBER
215                                      ,DESCRIPTION OUT NOCOPY VARCHAR2
216                                      ,START_DATE OUT NOCOPY DATE
217                                      ,END_DATE OUT NOCOPY DATE
218                                      ,ERRBUF OUT NOCOPY VARCHAR2) IS
219   BEGIN
220  /*   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;');
221     STPROC.BIND_I(CONS_ID);
222     STPROC.BIND_O(CONS_NAME);
223     STPROC.BIND_O(METHOD);
224     STPROC.BIND_O(CURR_CODE);
225     STPROC.BIND_O(FROM_SOBID);
226     STPROC.BIND_O(TO_SOBID);
227     STPROC.BIND_O(DESCRIPTION);
228     STPROC.BIND_O(START_DATE);
229     STPROC.BIND_O(END_DATE);
230     STPROC.BIND_O(ERRBUF);
231     STPROC.EXECUTE;
232     STPROC.RETRIEVE(2
233                    ,CONS_NAME);
234     STPROC.RETRIEVE(3
235                    ,METHOD);
236     STPROC.RETRIEVE(4
237                    ,CURR_CODE);
238     STPROC.RETRIEVE(5
239                    ,FROM_SOBID);
240     STPROC.RETRIEVE(6
241                    ,TO_SOBID);
242     STPROC.RETRIEVE(7
243                    ,DESCRIPTION);
244     STPROC.RETRIEVE(8
245                    ,START_DATE);
246     STPROC.RETRIEVE(9
247                    ,END_DATE);
248     STPROC.RETRIEVE(10
249                    ,ERRBUF);*/null;
250   END GL_GET_CONSOLIDATION_INFO;
251 
252   PROCEDURE SET_LANGUAGE(LANG_ID IN NUMBER) IS
253   BEGIN
254    /* STPROC.INIT('begin GL_MESSAGE.SET_LANGUAGE(:LANG_ID); end;');
255     STPROC.BIND_I(LANG_ID);
256     STPROC.EXECUTE;*/null;
257   END SET_LANGUAGE;
258 
259   FUNCTION GET_MESSAGE(MSG_NAME IN VARCHAR2
260                       ,SHOW_NUM IN VARCHAR2) RETURN VARCHAR2 IS
261     X0 VARCHAR2(2000);
262   BEGIN
263    /* STPROC.INIT('begin :X0 := GL_MESSAGE.GET_MESSAGE(:MSG_NAME, :SHOW_NUM); end;');
264     STPROC.BIND_O(X0);
265     STPROC.BIND_I(MSG_NAME);
266     STPROC.BIND_I(SHOW_NUM);
267     STPROC.EXECUTE;
268     STPROC.RETRIEVE(1
269                    ,X0);*/
270 
271 		   X0 := GL_MESSAGE.GET_MESSAGE(MSG_NAME,SHOW_NUM);
272     RETURN X0;
273   END GET_MESSAGE;
274 
275   FUNCTION MSG_TKN_EXPAND(MSG IN VARCHAR2
276                          ,T1 IN VARCHAR2
277                          ,V1 IN VARCHAR2) RETURN VARCHAR2 IS
278     X0 VARCHAR2(2000);
279   BEGIN
280   /*  STPROC.INIT('begin :X0 := GL_MESSAGE.MSG_TKN_EXPAND(:MSG, :T1, :V1); end;');
281     STPROC.BIND_O(X0);
282     STPROC.BIND_I(MSG);
283     STPROC.BIND_I(T1);
284     STPROC.BIND_I(V1);
285     STPROC.EXECUTE;
286     STPROC.RETRIEVE(1
287                    ,X0);*/
288     RETURN X0;
289   END MSG_TKN_EXPAND;
290 
291   FUNCTION GET_MESSAGE(MSG_NAME IN VARCHAR2
292                       ,SHOW_NUM IN VARCHAR2
293                       ,T1 IN VARCHAR2
294                       ,V1 IN VARCHAR2) RETURN VARCHAR2 IS
295     X0 VARCHAR2(2000);
296   BEGIN
297   /*  STPROC.INIT('begin :X0 := GL_MESSAGE.GET_MESSAGE(:MSG_NAME, :SHOW_NUM, :T1, :V1); end;');
298     STPROC.BIND_O(X0);
299     STPROC.BIND_I(MSG_NAME);
300     STPROC.BIND_I(SHOW_NUM);
301     STPROC.BIND_I(T1);
302     STPROC.BIND_I(V1);
303     STPROC.EXECUTE;
304     STPROC.RETRIEVE(1
305                    ,X0);*/
306 
307 		   X0 := GL_MESSAGE.GET_MESSAGE(MSG_NAME,SHOW_NUM,T1,V1);
308     RETURN X0;
309   END GET_MESSAGE;
310 
311   FUNCTION GET_MESSAGE(MSG_NAME IN VARCHAR2
312                       ,SHOW_NUM IN VARCHAR2
313                       ,T1 IN VARCHAR2
314                       ,V1 IN VARCHAR2
315                       ,T2 IN VARCHAR2
316                       ,V2 IN VARCHAR2) RETURN VARCHAR2 IS
317     X0 VARCHAR2(2000);
318   BEGIN
319     /*STPROC.INIT('begin :X0 := GL_MESSAGE.GET_MESSAGE(:MSG_NAME, :SHOW_NUM, :T1, :V1, :T2, :V2); end;');
320     STPROC.BIND_O(X0);
321     STPROC.BIND_I(MSG_NAME);
322     STPROC.BIND_I(SHOW_NUM);
323     STPROC.BIND_I(T1);
324     STPROC.BIND_I(V1);
325     STPROC.BIND_I(T2);
326     STPROC.BIND_I(V2);
327     STPROC.EXECUTE;
328     STPROC.RETRIEVE(1
329                    ,X0);*/
330 
331 		   X0 := GL_MESSAGE.GET_MESSAGE(MSG_NAME,SHOW_NUM,T1,V1,T2,V2);
332     RETURN X0;
333   END GET_MESSAGE;
334 
335   FUNCTION GET_MESSAGE(MSG_NAME IN VARCHAR2
336                       ,SHOW_NUM IN VARCHAR2
337                       ,T1 IN VARCHAR2
338                       ,V1 IN VARCHAR2
339                       ,T2 IN VARCHAR2
340                       ,V2 IN VARCHAR2
341                       ,T3 IN VARCHAR2
345   /*  STPROC.INIT('begin :X0 := GL_MESSAGE.GET_MESSAGE(:MSG_NAME, :SHOW_NUM, :T1, :V1, :T2, :V2, :T3, :V3); end;');
342                       ,V3 IN VARCHAR2) RETURN VARCHAR2 IS
343     X0 VARCHAR2(2000);
344   BEGIN
346     STPROC.BIND_O(X0);
347     STPROC.BIND_I(MSG_NAME);
348     STPROC.BIND_I(SHOW_NUM);
349     STPROC.BIND_I(T1);
350     STPROC.BIND_I(V1);
351     STPROC.BIND_I(T2);
352     STPROC.BIND_I(V2);
353     STPROC.BIND_I(T3);
354     STPROC.BIND_I(V3);
355     STPROC.EXECUTE;
356     STPROC.RETRIEVE(1
357                    ,X0);*/
358 
359 		   X0 := GL_MESSAGE.GET_MESSAGE(MSG_NAME,SHOW_NUM,T1,V1,T2,V2,T3,V3);
360     RETURN X0;
361   END GET_MESSAGE;
362 
363   FUNCTION GET_MESSAGE(MSG_NAME IN VARCHAR2
364                       ,SHOW_NUM IN VARCHAR2
365                       ,T1 IN VARCHAR2
366                       ,V1 IN VARCHAR2
367                       ,T2 IN VARCHAR2
368                       ,V2 IN VARCHAR2
369                       ,T3 IN VARCHAR2
370                       ,V3 IN VARCHAR2
371                       ,T4 IN VARCHAR2
372                       ,V4 IN VARCHAR2) RETURN VARCHAR2 IS
373     X0 VARCHAR2(2000);
374   BEGIN
375   /*  STPROC.INIT('begin :X0 := GL_MESSAGE.GET_MESSAGE(:MSG_NAME, :SHOW_NUM, :T1, :V1, :T2, :V2, :T3, :V3, :T4, :V4); end;');
376     STPROC.BIND_O(X0);
377     STPROC.BIND_I(MSG_NAME);
378     STPROC.BIND_I(SHOW_NUM);
379     STPROC.BIND_I(T1);
380     STPROC.BIND_I(V1);
381     STPROC.BIND_I(T2);
382     STPROC.BIND_I(V2);
383     STPROC.BIND_I(T3);
384     STPROC.BIND_I(V3);
385     STPROC.BIND_I(T4);
386     STPROC.BIND_I(V4);
387     STPROC.EXECUTE;
388     STPROC.RETRIEVE(1
389                    ,X0);*/
390 
391 		   X0 := GL_MESSAGE.GET_MESSAGE(MSG_NAME,SHOW_NUM,T1,V1,T2,V2,T3,V3,T4,V4);
392     RETURN X0;
393   END GET_MESSAGE;
394 
395 END GL_GLXRLTCL_XMLP_PKG;
396