PACKAGE BODY: APPS.GL_GLXRLVAT_XMLP_PKG

Source

1 PACKAGE BODY GL_GLXRLVAT_XMLP_PKG AS
2 /* $Header: GLXRLVATB.pls 120.1 2007/12/28 10:47:44 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 name, chart_of_accounts_id
12     INTO   ACCESS_SET_NAME, STRUCT_NUM
13     FROM   gl_access_sets
14     WHERE  access_set_id = P_ACCESS_SET_ID;
15 
16   exception
17     WHEN NO_DATA_FOUND THEN
18       errbuf := gl_message.get_message('GL_PLL_INVALID_DATA_ACCESS_SET', 'Y',
19                                        'DASID', to_char(P_ACCESS_SET_ID));
20       /*srw.message('00', errbuf);*/null;
21 
22       raise_application_error(-20101,null);/*srw.program_abort;*/null;
23 
24 
25     WHEN OTHERS THEN
26       errbuf := SQLERRM;
27       /*srw.message('00', errbuf);*/null;
28 
29       raise_application_error(-20101,null);/*srw.program_abort;*/null;
30 
31   end;
32 
33   WHERE_DAS := GL_ACCESS_SET_SECURITY_PKG.GET_SECURITY_CLAUSE(
34                   P_ACCESS_SET_ID,
35                   'R',
36                   'LEDGER_COLUMN',
37                   'LEDGER_ID',
38                   'GJL',
39                   'SEG_COLUMN',
40                   null,
41                   'GCC',
42                   null);
43 
44   if (WHERE_DAS is not null) then
45     WHERE_DAS := ' and ' || WHERE_DAS;
46   end if;
47 
48   begin
49     SELECT name
50     INTO   LEDGER_NAME
51     FROM   gl_ledgers
52     WHERE  ledger_id = P_LEDGER_ID;
53 
54   exception
55     WHEN OTHERS THEN
56       errbuf := SQLERRM;
57       /*srw.message('00', errbuf);*/null;
58 
59       raise_application_error(-20101,null);/*srw.program_abort;*/null;
60 
61   end;
62 
63   /*srw.reference( STRUCT_NUM );*/null;
64 
65 
66  null;
67 
68   /*srw.reference( STRUCT_NUM );*/null;
69 
70 
71  null;
72 
73   return (TRUE);
74 end;
75 
76 function AfterReport return boolean is
77 begin
78   /*srw.user_exit('FND SRWEXIT');*/null;
79 
80   return (TRUE);
81 end;
82 
83 --Functions to refer Oracle report placeholders--
84 
85  Function STRUCT_NUM_p return varchar2 is
86 	Begin
87 	 return STRUCT_NUM;
88 	 END;
89  Function LEDGER_NAME_p return varchar2 is
90 	Begin
91 	 return LEDGER_NAME;
92 	 END;
93  Function FLEX_SELECT_ALL_p return varchar2 is
94 	Begin
95 	 return FLEX_SELECT_ALL;
96 	 END;
97  Function FLEX_ORDERBY_ALL_p return varchar2 is
98 	Begin
99 	 return FLEX_ORDERBY_ALL;
100 	 END;
101  Function ACCESS_SET_NAME_p return varchar2 is
102 	Begin
103 	 return ACCESS_SET_NAME;
104 	 END;
105  Function WHERE_DAS_p return varchar2 is
106 	Begin
107 	 return WHERE_DAS;
108 	 END;
109 END GL_GLXRLVAT_XMLP_PKG ;
110