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

Source


1 PACKAGE BODY PA_PAXAUGLT_XMLP_PKG AS
2 /* $Header: PAXAUGLTB.pls 120.1 2008/01/03 11:12:11 krreddy noship $ */
3   FUNCTION GET_COVER_PAGE_VALUES RETURN BOOLEAN IS
4   BEGIN
5     RETURN (TRUE);
6   EXCEPTION
7     WHEN OTHERS THEN
8       RETURN (FALSE);
9   END GET_COVER_PAGE_VALUES;
10 
11   FUNCTION GET_COMPANY_NAME RETURN BOOLEAN IS
12     L_NAME GL_SETS_OF_BOOKS.NAME%TYPE;
13   BEGIN
14     SELECT
15       GL.NAME
16     INTO L_NAME
17     FROM
18       GL_SETS_OF_BOOKS GL
19     WHERE GL.SET_OF_BOOKS_ID = P_CA_SET_OF_BOOKS_ID;
20     C_COMPANY_NAME_HEADER := L_NAME;
21     RETURN (TRUE);
22   EXCEPTION
23     WHEN OTHERS THEN
24       RETURN (FALSE);
25   END GET_COMPANY_NAME;
26 
27   FUNCTION ACCOUNT_IDFORMULA(CODE_COMBINATION_ID IN NUMBER) RETURN VARCHAR2 IS
28   BEGIN
29     RETURN GET_SEGS('SQLGL'
30                    ,'GL#'
31                    ,P_COA_ID
32                    ,CODE_COMBINATION_ID);
33   END ACCOUNT_IDFORMULA;
34 
35   FUNCTION CF_FROM_DATEFORMULA RETURN DATE IS
36   BEGIN
37     RETURN P_FROM_INTERFACE_DATE;
38   END CF_FROM_DATEFORMULA;
39 
40   FUNCTION CF_TO_DATEFORMULA RETURN DATE IS
41   BEGIN
42     RETURN P_TO_INTERFACE_DATE;
43   END CF_TO_DATEFORMULA;
44 
45   FUNCTION CF_ACCT_CURRENCY_CODEFORMULA RETURN VARCHAR2 IS
46     L_CURR_CODE VARCHAR2(30);
47   BEGIN
48     SELECT
49       CURRENCY_CODE
50     INTO L_CURR_CODE
51     FROM
52       GL_SETS_OF_BOOKS
53     WHERE SET_OF_BOOKS_ID = P_CA_SET_OF_BOOKS_ID;
54     RETURN (L_CURR_CODE);
55   END CF_ACCT_CURRENCY_CODEFORMULA;
56 
57   FUNCTION AFTERREPORT RETURN BOOLEAN IS
58   BEGIN
59     /*SRW.USER_EXIT('FND SRWEXIT')*/NULL;
60     RETURN (TRUE);
61   END AFTERREPORT;
62 
63   FUNCTION CR_ACCOUNT_IDFORMULA(CR_CODE_COMBINATION_ID IN NUMBER) RETURN CHAR IS
64   BEGIN
65     RETURN GET_SEGS('SQLGL'
66                    ,'GL#'
67                    ,P_COA_ID
68                    ,CR_CODE_COMBINATION_ID);
69   END CR_ACCOUNT_IDFORMULA;
70 
71   FUNCTION AFTERPFORM RETURN BOOLEAN IS
72   BEGIN
73     RETURN (TRUE);
74   END AFTERPFORM;
75 
76   FUNCTION C_COMPANY_NAME_HEADER_P RETURN VARCHAR2 IS
77   BEGIN
78     RETURN C_COMPANY_NAME_HEADER;
79   END C_COMPANY_NAME_HEADER_P;
80 
81   FUNCTION C_NO_DATA_FOUND_P RETURN VARCHAR2 IS
82   BEGIN
83     RETURN C_NO_DATA_FOUND;
84   END C_NO_DATA_FOUND_P;
85 
86   FUNCTION C_DUMMY_DATA_P RETURN NUMBER IS
87   BEGIN
88     RETURN C_DUMMY_DATA;
89   END C_DUMMY_DATA_P;
90 
91   FUNCTION C_WHERE_P RETURN VARCHAR2 IS
92   BEGIN
93     RETURN C_WHERE;
94   END C_WHERE_P;
95 
96   FUNCTION CP_USR_JE_SNAME_P RETURN VARCHAR2 IS
97   BEGIN
98     RETURN CP_USR_JE_SNAME;
99   END CP_USR_JE_SNAME_P;
100 
101   FUNCTION CP_GL_START_P RETURN DATE IS
102   BEGIN
103     RETURN CP_GL_START;
104   END CP_GL_START_P;
105 
106   FUNCTION CP_GL_END_P RETURN DATE IS
107   BEGIN
108     RETURN CP_GL_END;
109   END CP_GL_END_P;
110 
111   PROCEDURE SET_MODULE(MODULE_NAME IN VARCHAR2
112                       ,ACTION_NAME IN VARCHAR2) IS
113   BEGIN
114     /*STPROC.INIT('begin DBMS_APPLICATION_INFO.SET_MODULE(:MODULE_NAME, :ACTION_NAME); end;');
115     STPROC.BIND_I(MODULE_NAME);
116     STPROC.BIND_I(ACTION_NAME);
117     STPROC.EXECUTE;*/
118     DBMS_APPLICATION_INFO.SET_MODULE(MODULE_NAME, ACTION_NAME);
119   END SET_MODULE;
120 
121   PROCEDURE SET_ACTION(ACTION_NAME IN VARCHAR2) IS
122   BEGIN
123     /*STPROC.INIT('begin DBMS_APPLICATION_INFO.SET_ACTION(:ACTION_NAME); end;');
124     STPROC.BIND_I(ACTION_NAME);
125     STPROC.EXECUTE;*/
126     DBMS_APPLICATION_INFO.SET_ACTION(ACTION_NAME);
127   END SET_ACTION;
128 
129   PROCEDURE READ_MODULE(MODULE_NAME OUT NOCOPY VARCHAR2
130                        ,ACTION_NAME OUT NOCOPY VARCHAR2) IS
131   BEGIN
132     /*STPROC.INIT('begin DBMS_APPLICATION_INFO.READ_MODULE(:MODULE_NAME, :ACTION_NAME); end;');
133     STPROC.BIND_O(MODULE_NAME);
134     STPROC.BIND_O(ACTION_NAME);
135     STPROC.EXECUTE;
136     STPROC.RETRIEVE(1
137                    ,MODULE_NAME);
138     STPROC.RETRIEVE(2
139                    ,ACTION_NAME);*/
140     DBMS_APPLICATION_INFO.READ_MODULE(MODULE_NAME, ACTION_NAME);
141   END READ_MODULE;
142 
143   PROCEDURE SET_CLIENT_INFO(CLIENT_INFO IN VARCHAR2) IS
144   BEGIN
145     /*STPROC.INIT('begin DBMS_APPLICATION_INFO.SET_CLIENT_INFO(:CLIENT_INFO); end;');
146     STPROC.BIND_I(CLIENT_INFO);
147     STPROC.EXECUTE;*/
148     DBMS_APPLICATION_INFO.SET_CLIENT_INFO(CLIENT_INFO);
149   END SET_CLIENT_INFO;
150 
151   PROCEDURE READ_CLIENT_INFO(CLIENT_INFO OUT NOCOPY VARCHAR2) IS
152   BEGIN
153     /*STPROC.INIT('begin DBMS_APPLICATION_INFO.READ_CLIENT_INFO(:CLIENT_INFO); end;');
154     STPROC.BIND_O(CLIENT_INFO);
155     STPROC.EXECUTE;
156     STPROC.RETRIEVE(1
157                    ,CLIENT_INFO);*/
158     DBMS_APPLICATION_INFO.READ_CLIENT_INFO(CLIENT_INFO);
159   END READ_CLIENT_INFO;
160 
161   /*PROCEDURE SET_SESSION_LONGOPS(HINT IN OUT NOCOPY BINARY_INTEGER
162                                ,CONTEXT IN NUMBER
163                                ,STEPID IN NUMBER
164                                ,STEPSOFAR IN NUMBER
165                                ,STEPTOTAL IN NUMBER
166                                ,SOFAR IN NUMBER
167                                ,TOTALWORK IN NUMBER
168                                ,APPLICATION_DATA_1 IN NUMBER
169                                ,APPLICATION_DATA_2 IN NUMBER
170                                ,APPLICATION_DATA_3 IN NUMBER) IS
171   BEGIN
172     STPROC.INIT('begin DBMS_APPLICATION_INFO.SET_SESSION_LONGOPS(:HINT, :CONTEXT, :STEPID, :STEPSOFAR, :STEPTOTAL, :SOFAR, :TOTALWORK, :APPLICATION_DATA_1, :APPLICATION_DATA_2, :APPLICATION_DATA_3); end;');
173     STPROC.BIND_IO(HINT);
174     STPROC.BIND_I(CONTEXT);
175     STPROC.BIND_I(STEPID);
176     STPROC.BIND_I(STEPSOFAR);
177     STPROC.BIND_I(STEPTOTAL);
178     STPROC.BIND_I(SOFAR);
179     STPROC.BIND_I(TOTALWORK);
180     STPROC.BIND_I(APPLICATION_DATA_1);
181     STPROC.BIND_I(APPLICATION_DATA_2);
182     STPROC.BIND_I(APPLICATION_DATA_3);
183     STPROC.EXECUTE;
184     STPROC.RETRIEVE(1
185                    ,HINT);
186     DBMS_APPLICATION_INFO.SET_SESSION_LONGOPS(HINT, CONTEXT, STEPID, STEPSOFAR, STEPTOTAL, SOFAR, TOTALWORK, APPLICATION_DATA_1, APPLICATION_DATA_2, APPLICATION_DATA_3);
187   END SET_SESSION_LONGOPS;*/
188 
189   FUNCTION GET_CURRENCY_CODE RETURN VARCHAR2 IS
190     X0 VARCHAR2(2000);
191   BEGIN
192     /*STPROC.INIT('begin :X0 := PA_CURRENCY.GET_CURRENCY_CODE; end;');
193     STPROC.BIND_O(X0);
194     STPROC.EXECUTE;
195     STPROC.RETRIEVE(1
196                    ,X0);*/
197     X0 := PA_CURRENCY.GET_CURRENCY_CODE;
198     RETURN X0;
199   END GET_CURRENCY_CODE;
200 
201   FUNCTION ROUND_CURRENCY_AMT(X_AMOUNT IN NUMBER) RETURN NUMBER IS
202     X0 NUMBER;
203   BEGIN
204     /*STPROC.INIT('begin :X0 := PA_CURRENCY.ROUND_CURRENCY_AMT(:X_AMOUNT); end;');
205     STPROC.BIND_O(X0);
206     STPROC.BIND_I(X_AMOUNT);
207     STPROC.EXECUTE;
208     STPROC.RETRIEVE(1
209                    ,X0);*/
210     X0 := PA_CURRENCY.ROUND_CURRENCY_AMT(X_AMOUNT);
211     RETURN X0;
212   END ROUND_CURRENCY_AMT;
213 
214   FUNCTION CURRENCY_FMT_MASK(X_LENGTH IN NUMBER) RETURN VARCHAR2 IS
215     X0 VARCHAR2(2000);
216   BEGIN
217     /*STPROC.INIT('begin :X0 := PA_CURRENCY.CURRENCY_FMT_MASK(:X_LENGTH); end;');
218     STPROC.BIND_O(X0);
219     STPROC.BIND_I(X_LENGTH);
220     STPROC.EXECUTE;
221     STPROC.RETRIEVE(1
222                    ,X0);*/
223     X0 := PA_CURRENCY.CURRENCY_FMT_MASK(X_LENGTH);
224     RETURN X0;
225   END CURRENCY_FMT_MASK;
226 
227   FUNCTION RPT_CURRENCY_FMT_MASK(X_ORG_ID IN NUMBER
228                                 ,X_LENGTH IN NUMBER) RETURN VARCHAR2 IS
229     X0 VARCHAR2(2000);
230   BEGIN
231    /* STPROC.INIT('begin :X0 := PA_CURRENCY.RPT_CURRENCY_FMT_MASK(:X_ORG_ID, :X_LENGTH); end;');
232     STPROC.BIND_O(X0);
233     STPROC.BIND_I(X_ORG_ID);
234     STPROC.BIND_I(X_LENGTH);
235     STPROC.EXECUTE;
236     STPROC.RETRIEVE(1
237                    ,X0);*/
238     X0 := PA_CURRENCY.RPT_CURRENCY_FMT_MASK(X_ORG_ID, X_LENGTH);
239     RETURN X0;
240   END RPT_CURRENCY_FMT_MASK;
241 
242   FUNCTION GET_DELIMITER(APPLICATION_SHORT_NAME IN VARCHAR2
243                         ,KEY_FLEX_CODE IN VARCHAR2
244                         ,STRUCTURE_NUMBER IN NUMBER) RETURN VARCHAR2 IS
245     X0 VARCHAR2(2000);
246   BEGIN
247     /*STPROC.INIT('begin :X0 := FND_FLEX_EXT.GET_DELIMITER(:APPLICATION_SHORT_NAME, :KEY_FLEX_CODE, :STRUCTURE_NUMBER); end;');
248     STPROC.BIND_O(X0);
249     STPROC.BIND_I(APPLICATION_SHORT_NAME);
250     STPROC.BIND_I(KEY_FLEX_CODE);
251     STPROC.BIND_I(STRUCTURE_NUMBER);
252     STPROC.EXECUTE;
253     STPROC.RETRIEVE(1
254                    ,X0);*/
255     X0 := FND_FLEX_EXT.GET_DELIMITER(APPLICATION_SHORT_NAME, KEY_FLEX_CODE, STRUCTURE_NUMBER);
256     RETURN X0;
257   END GET_DELIMITER;
258 
259   FUNCTION GET_CCID(APPLICATION_SHORT_NAME IN VARCHAR2
260                    ,KEY_FLEX_CODE IN VARCHAR2
261                    ,STRUCTURE_NUMBER IN NUMBER
262                    ,VALIDATION_DATE IN VARCHAR2
263                    ,CONCATENATED_SEGMENTS IN VARCHAR2) RETURN NUMBER IS
264     X0 NUMBER;
265   BEGIN
266     /*STPROC.INIT('begin :X0 := FND_FLEX_EXT.GET_CCID(:APPLICATION_SHORT_NAME, :KEY_FLEX_CODE, :STRUCTURE_NUMBER, :VALIDATION_DATE, :CONCATENATED_SEGMENTS); end;');
267     STPROC.BIND_O(X0);
268     STPROC.BIND_I(APPLICATION_SHORT_NAME);
269     STPROC.BIND_I(KEY_FLEX_CODE);
270     STPROC.BIND_I(STRUCTURE_NUMBER);
271     STPROC.BIND_I(VALIDATION_DATE);
272     STPROC.BIND_I(CONCATENATED_SEGMENTS);
273     STPROC.EXECUTE;
274     STPROC.RETRIEVE(1
275                    ,X0);*/
276     X0 := FND_FLEX_EXT.GET_CCID(APPLICATION_SHORT_NAME, KEY_FLEX_CODE, STRUCTURE_NUMBER, VALIDATION_DATE, CONCATENATED_SEGMENTS);
277     RETURN X0;
278   END GET_CCID;
279 
280   FUNCTION GET_SEGS(APPLICATION_SHORT_NAME IN VARCHAR2
281                    ,KEY_FLEX_CODE IN VARCHAR2
282                    ,STRUCTURE_NUMBER IN NUMBER
283                    ,COMBINATION_ID IN NUMBER) RETURN VARCHAR2 IS
284     X0 VARCHAR2(2000);
285   BEGIN
286     /*STPROC.INIT('begin :X0 := FND_FLEX_EXT.GET_SEGS(:APPLICATION_SHORT_NAME, :KEY_FLEX_CODE, :STRUCTURE_NUMBER, :COMBINATION_ID); end;');
287     STPROC.BIND_O(X0);
288     STPROC.BIND_I(APPLICATION_SHORT_NAME);
289     STPROC.BIND_I(KEY_FLEX_CODE);
290     STPROC.BIND_I(STRUCTURE_NUMBER);
291     STPROC.BIND_I(COMBINATION_ID);
292     STPROC.EXECUTE;
293     STPROC.RETRIEVE(1
294                    ,X0);*/
295     X0 := FND_FLEX_EXT.GET_SEGS(APPLICATION_SHORT_NAME, KEY_FLEX_CODE, STRUCTURE_NUMBER, COMBINATION_ID);
296     RETURN X0;
297   END GET_SEGS;
298 
299 FUNCTION BEFOREREPORT RETURN BOOLEAN IS
300 BEGIN
301 
302  DECLARE
303 	 init_failure exception;
304 	 ndf VARCHAR2(80);
305 	 tmp_usr_je_sname VARCHAR2(25);
306 	 tmp_gl_start  DATE;
307 	 tmp_gl_end    DATE;
308 	 tmp_period_set   VARCHAR2(15);
309  BEGIN
310 
311 	/*srw.user_exit('FND SRWINIT');*/
312 
313 	/* R12 Changes : The code that used to set the currency context for
314 	reporting set of books is removed. */
315 
316 	/*srw.user_exit('FND GETPROFILE
317 	NAME="PA_DEBUG_MODE"
318 	FIELD=":p_debug_mode"
319 	PRINT_ERROR="N"');
320 
321 	srw.user_exit('FND GETPROFILE
322 	NAME="PA_RULE_BASED_OPTIMIZER"
323 	FIELD=":p_rule_optimizer"
324 	PRINT_ERROR="N"');*/
325 
326 	/* #3304393 commented alter session calls */
327 
328 	/* if rule-based optimization is desired */
329 	/*
330 	IF :p_rule_optimizer = 'Y' then
331 	   srw.do_sql('ALTER SESSION SET OPTIMIZER_GOAL = RULE');
332 	END IF;
333 	*/
334 
335 	/* #3304393 commented alter session calls */
336 
337 	/* if the debug mode is set, turn on trace mode */
338 	/*
339 	IF p_debug_mode = 'Y' then
340 	   execute_immidiate 'ALTER SESSION SET SQL_TRACE TRUE';
341 	END IF;
342 	*/
343 	  /* Get the organization name and SYSDATE from GL_SETS_OF_BOOKS */
344 	  IF (get_company_name <> TRUE) THEN  -- Call report level PL/SQL function
345 	     RAISE init_failure;
346 	  END IF;
347 
348 	   select meaning into ndf from pa_lookups where
349 	    lookup_code = 'NO_DATA_FOUND' and
350 	    lookup_type = 'MESSAGE';
351 	  c_no_data_found := ndf;
352 
353 	  SELECT user_je_source_name INTO tmp_usr_je_sname
354 	  FROM gl_je_sources WHERE
355 	  je_source_name = 'Project Accounting' ;
356 	  cp_usr_je_sname := tmp_usr_je_sname ;
357 
358 
359 	SELECT period_set_name INTO tmp_period_set
360 	FROM   gl_sets_of_books
361 	/*R12 Changes : As the parameter P_SOB_ID is removed , the parameter
362 	p_ca_set_of_books_id is used here. */
363 	WHERE  set_of_books_id = p_ca_set_of_books_id ;
364 
365 
366 	IF p_from_period IS NOT NULL THEN
367 		SELECT start_date INTO tmp_gl_start
368 		FROM   gl_periods
369 		WHERE  period_set_name = tmp_period_set
370 		AND    period_name = p_from_period ;
371 	END IF;
372 	cp_gl_start := tmp_gl_start ;
373 
374 	IF p_to_period IS NOT NULL THEN
375 		SELECT end_date INTO tmp_gl_end
376 		FROM   gl_periods
377 		WHERE  period_set_name = tmp_period_set
378 		AND    period_name = p_to_period ;
379 	END IF;
380 	cp_gl_end := tmp_gl_end ;
381 
382 
383 	/* srw.user_exit('FND FLEXSQL CODE="GL#" NUM=":P_COA_ID"
384 			APPL_SHORT_NAME="SQLGL"
385 			OUTPUT=":C_WHERE" TABLEALIAS="CC"
386 			MODE="WHERE" DISPLAY="ALL"
387 			OPERATOR="BETWEEN"
388 			OPERAND1=":P_FROM_ACCOUNT"
389 			OPERAND2=":P_TO_ACCOUNT"');*/
390 
391 	EXCEPTION
392 	  WHEN  NO_DATA_FOUND THEN
393 	   select meaning into ndf from pa_lookups where
394 	    lookup_code = 'NO_DATA_FOUND' and
395 	    lookup_type = 'MESSAGE';
396 	  c_no_data_found := ndf;
397 	   c_dummy_data := 1;
398 	  WHEN   OTHERS  THEN
399 	   /* RAISE SRW.PROGRAM_ABORT;*/null;
400 	END;  return (TRUE);
401 END;
402 
403 END PA_PAXAUGLT_XMLP_PKG;
404