PACKAGE BODY: APPS.GL_GLXDFLST_XMLP_PKG

Source

1 PACKAGE BODY GL_GLXDFLST_XMLP_PKG AS
2 /* $Header: GLXDFLSTB.pls 120.0 2007/12/27 14:55:08 vijranga noship $ */
3 
4 function BeforeReport return boolean is
5 errbuf  VARCHAR2(132);
6 begin
7   /*srw.user_exit('FND SRWINIT');*/null;
8 
9 
10   begin
11     SELECT user_definition_access_set, description
12     INTO   DEFAS_NAME, DEFAS_DESCRIPTION
13     FROM   gl_defas_access_sets
14     WHERE  definition_access_set_id = P_DEFAS_ID;
15 
16   exception
17     WHEN OTHERS THEN
18       errbuf := SQLERRM;
19       /*srw.message('00', errbuf);*/null;
20 
21       raise_application_error(-20101,null);/*srw.program_abort;*/null;
22 
23   end;
24 
25   return (TRUE);
26 end;
27 
28 function AfterReport return boolean is
29 begin
30   /*srw.user_exit('FND SRWEXIT');*/null;
31 
32   return (TRUE);
33 end;
34 
35 --Functions to refer Oracle report placeholders--
36 
37  Function DEFAS_NAME_p return varchar2 is
38 	Begin
39 	 return DEFAS_NAME;
40 	 END;
41  Function DEFAS_DESCRIPTION_p return varchar2 is
42 	Begin
43 	 return DEFAS_DESCRIPTION;
44 	 END;
45 END GL_GLXDFLST_XMLP_PKG ;
46