PACKAGE BODY: APPS.GL_GLXDFUSR_XMLP_PKG

Source

1 PACKAGE BODY GL_GLXDFUSR_XMLP_PKG AS
2 /* $Header: GLXDFUSRB.pls 120.0 2007/12/27 14:57:00 vijranga noship $ */
3 
4 function BeforeReport return boolean is
5 desc_col    VARCHAR2(30);
6   errbuf      VARCHAR2(132);
7 begin
8   /*srw.user_exit('FND SRWINIT');*/null;
9 
10 
11   begin
12     SELECT display_name
13     INTO   DEFINITION_TYPE
14     FROM   fnd_objects_vl
15     WHERE  obj_name = P_DEFINITION_TYPE;
16 
17     gl_defas_access_details_pkg.get_query_component(
18         P_DEFINITION_TYPE,
19         ID_COLUMNS,
20         NAME_COLUMN,
21         desc_col,
22         WHERE_DEFAS,
23         TABLE_NAME);
24 
25   exception
26     WHEN OTHERS THEN
27       errbuf := SQLERRM;
28       /*srw.message('00', errbuf);*/null;
29 
30       raise_application_error(-20101,null);/*srw.program_abort;*/null;
31 
32   end;
33 
34   NAME_COLUMN := 'DEF.'||NAME_COLUMN;
35   ID_COLUMN1 := '-1';
36 
37   IF (LENGTH(ID_COLUMNS) <> 0 AND INSTR(ID_COLUMNS, ',', 1, 1) = 0) THEN
38     IF(INSTR(LOWER(ID_COLUMNS), 'to_char', 1, 1) = 0) THEN
39       ID_COLUMNS := REPLACE(ID_COLUMNS,' ');
40       ID_COLUMN1 := 'DEF.' ||ID_COLUMNS;
41     ELSE
42       ID_COLUMNS := REPLACE(ID_COLUMNS,' ');
43       ID_COLUMN1 := REPLACE(ID_COLUMNS,'to_char(', 'to_char(DEF.');
44     END IF;
45   END IF;
46   ROW_COUNT := 0;
47 
48   return (TRUE);
49 end;
50 
51 function AfterReport return boolean is
52 begin
53   /*srw.user_exit('FND SRWEXIT');*/null;
54 
55   return (TRUE);
56 end;
57 
58 PROCEDURE GL_INCREMENT_COUNT IS
59 BEGIN
60   ROW_COUNT := ROW_COUNT + 1;
61 END;
62 
63 --Functions to refer Oracle report placeholders--
64 
65  Function ID_COLUMNS_p return varchar2 is
66 	Begin
67 	 return ID_COLUMNS;
68 	 END;
69  Function NAME_COLUMN_p return varchar2 is
70 	Begin
71 	 return NAME_COLUMN;
72 	 END;
73  Function TABLE_NAME_p return varchar2 is
74 	Begin
75 	 return TABLE_NAME;
76 	 END;
77  Function WHERE_DEFAS_p return varchar2 is
78 	Begin
79 	 return WHERE_DEFAS;
80 	 END;
81  Function DEFINITION_TYPE_p return varchar2 is
82 	Begin
83 	 return DEFINITION_TYPE;
84 	 END;
85  Function ROW_COUNT_p return number is
86 	Begin
87 	 return ROW_COUNT;
88 	 END;
89  Function ID_COLUMN1_p return varchar2 is
90 	Begin
91 	 return ID_COLUMN1;
92 	 END;
93 END GL_GLXDFUSR_XMLP_PKG ;
94