PACKAGE BODY: APPS.GL_GLXRBDHR_XMLP_PKG

Source

1 PACKAGE BODY GL_GLXRBDHR_XMLP_PKG AS
2 /* $Header: GLXRBDHRB.pls 120.0 2007/12/27 15:02:33 vijranga noship $ */
3 
4 function BeforeReport return boolean is
5 errbuf  VARCHAR2(132);
6 begin
7 
8   /*srw.user_exit('FND SRWINIT');*/null;
9 
10 
11 
12   begin
13     SELECT name, chart_of_accounts_id
14     INTO   ACCESS_SET_NAME, STRUCT_NUM
15     FROM   gl_access_sets
16     WHERE  access_set_id = P_ACCESS_SET_ID;
17 
18   exception
19     WHEN NO_DATA_FOUND THEN
20       errbuf := gl_message.get_message('GL_PLL_INVALID_DATA_ACCESS_SET', 'Y',
21                                        'DASID', to_char(P_ACCESS_SET_ID));
22       /*srw.message('00', errbuf);*/null;
23 
24       raise_application_error(-20101,null);/*srw.program_abort;*/null;
25 
26 
27     WHEN OTHERS THEN
28       errbuf := SQLERRM;
29       /*srw.message('00', errbuf);*/null;
30 
31       raise_application_error(-20101,null);/*srw.program_abort;*/null;
32 
33   end;
34 
35 
36   begin
37     SELECT name
38     INTO   LEDGER_NAME
39     FROM   gl_ledgers
40     WHERE  ledger_id = P_LEDGER_ID;
41 
42   exception
43     WHEN OTHERS THEN
44       errbuf := SQLERRM;
45       /*srw.message('00', errbuf);*/null;
46 
47       raise_application_error(-20101,null);/*srw.program_abort;*/null;
48 
49   end;
50 
51   return (TRUE);
52 end;
53 
54 function AfterReport return boolean is
55 begin
56   /*srw.user_exit('FND SRWEXIT');*/null;
57 
58   return (TRUE);
59 end;
60 
61 --Functions to refer Oracle report placeholders--
62 
63  Function LEDGER_NAME_p return varchar2 is
64 	Begin
65 	 return LEDGER_NAME;
66 	 END;
67  Function STRUCT_NUM_p return number is
68 	Begin
69 	 return STRUCT_NUM;
70 	 END;
71  Function ACCESS_SET_NAME_p return varchar2 is
72 	Begin
73 	 return ACCESS_SET_NAME;
74 	 END;
75 END GL_GLXRBDHR_XMLP_PKG ;
76