PACKAGE BODY: APPS.GL_GLXRLSUS_XMLP_PKG

Source

1 PACKAGE BODY GL_GLXRLSUS_XMLP_PKG AS
2 /* $Header: GLXRLSUSB.pls 120.2 2008/01/07 20:09:59 vijranga noship $ */
3 
4 function BeforeReport return boolean is
5 coa_id       NUMBER;
6   led_name     VARCHAR2(30);
7   func_curr    VARCHAR2(15);
8   errbuf       VARCHAR2(132);
9   errbuf2      VARCHAR2(132);
10 begin
11   /*srw.user_exit('FND SRWINIT');*/null;
12 
13 
14 
15   gl_info.gl_get_ledger_info(P_LEDGER_ID,
16                              coa_id,
17                              led_name,
18                              func_curr,
19                              errbuf);
20 
21 
22   if (errbuf is not null) then
23     errbuf2 := gl_message.get_message(
24                  'GL_PLL_ROUTINE_ERROR',
25                  'N',
26                  'ROUTINE',
27                  'gl_info.gl_get_ledger_info' );
28     /*srw.message('00', errbuf2);*/null;
29 
30     /*srw.message('00', errbuf);*/null;
31 
32     raise_application_error(-20101,null);/*srw.program_abort;*/null;
33 
34   end if;
35 
36   STRUCT_NUM := coa_id;
37   LEDGER_NAME := led_name;
38 
39   /*srw.reference( STRUCT_NUM );*/null;
40 
41 
42  null;
43 
44   return (TRUE);
45 end;
46 
47 function AfterReport return boolean is
48 begin
49   /*srw.user_exit('FND SRWEXIT');*/null;
50 
51   return (TRUE);
52 end;
53 
54 --Functions to refer Oracle report placeholders--
55 
56  Function STRUCT_NUM_p return varchar2 is
57 	Begin
58 	 return STRUCT_NUM;
59 	 END;
60  Function LEDGER_NAME_p return varchar2 is
61 	Begin
62 	 return LEDGER_NAME;
63 	 END;
64  Function FLEX_SELECT_ALL_p return varchar2 is
65 	Begin
66 	 return FLEX_SELECT_ALL;
67 	 END;
68 END GL_GLXRLSUS_XMLP_PKG ;
69