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.JE_JEPTAPER_XMLP_PKG

Source


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