PACKAGE BODY: APPS.GL_GLXBCSD_XMLP_PKG

Source

1 PACKAGE BODY GL_GLXBCSD_XMLP_PKG AS
2 /* $Header: GLXBCSDB.pls 120.3 2008/01/07 20:08:28 vijranga noship $ */
3 function AfterReport return boolean is
4 begin
5   /*SRW.USER_EXIT('FND SRWEXIT');*/null;
6 
7   return (TRUE);
8 end;
9 
10 function BeforeReport return boolean is
11 errbuf             VARCHAR2(132);
12 begin
13   /*srw.user_exit('FND SRWINIT');*/null;
14 
15 
16   begin
17     SELECT name, chart_of_accounts_id
18     INTO   ACCESS_SET_NAME, STRUCT_NUM
19     FROM   gl_access_sets
20     WHERE  access_set_id = P_ACCESS_SET_ID;
21 
22   exception
23     WHEN NO_DATA_FOUND THEN
24       errbuf := gl_message.get_message('GL_PLL_INVALID_DATA_ACCESS_SET', 'Y',
25                                        'DASID', to_char(P_ACCESS_SET_ID));
26       /*srw.message('00', errbuf);*/null;
27 
28       raise_application_error(-20101,null);/*srw.program_abort;*/null;
29 
30 
31     WHEN OTHERS THEN
32       errbuf := SQLERRM;
33       /*srw.message('00', errbuf);*/null;
34 
35       raise_application_error(-20101,null);/*srw.program_abort;*/null;
36 
37   end;
38 
39   begin
40     select name, currency_code
41     INTO   LEDGER_NAME, FUNCT_CURR_CODE
42     from   gl_ledgers
43     where  ledger_id = P_LEDGER_ID;
44 
45     select budget_name
46     INTO   BUDGET_NAME
47     from   gl_budget_versions
48     where  budget_version_id = P_BUDGET_VERSION_ID;
49 
50   exception
51     WHEN OTHERS THEN
52       errbuf := SQLERRM;
53       /*SRW.MESSAGE(0,errbuf);*/null;
54 
55       raise_application_error(-20101,null);/*SRW.PROGRAM_ABORT;*/null;
56 
57   end;
58 
59   /*SRW.REFERENCE(STRUCT_NUM);*/null;
60 
61 
62  null;
63 
64   /*SRW.REFERENCE(STRUCT_NUM);*/null;
65 
66 
67  null;
68 
69   /*SRW.REFERENCE(STRUCT_NUM);*/null;
70 
71 
72  null;
73 
74   DAS_WHERE := GL_ACCESS_SET_SECURITY_PKG.GET_SECURITY_CLAUSE(
75                   P_ACCESS_SET_ID,
76                   'R',
77                   'LEDGER_ID',
78                   P_LEDGER_ID,
79                   null,
80                   'SEG_COLUMN',
81                   null,
82                   'CC',
83                   null);
84 
85   if (DAS_WHERE is not null) then
86     DAS_WHERE := ' and ' || DAS_WHERE;
87   else
88     DAS_WHERE := ' ';
89   end if;
90 
91   return (TRUE);
92 end;
93 
94 --Functions to refer Oracle report placeholders--
95 
96  Function STRUCT_NUM_p return number is
97 	Begin
98 	 return STRUCT_NUM;
99 	 END;
100  Function LEDGER_NAME_p return varchar2 is
101 	Begin
102 	 return LEDGER_NAME;
103 	 END;
104  Function BUDGET_NAME_p return varchar2 is
105 	Begin
106 	 return BUDGET_NAME;
107 	 END;
108  Function FLEXDATA_p return varchar2 is
109 	Begin
110 	 return FLEXDATA;
111 	 END;
112  Function FLEX_ORDERBY_p return varchar2 is
113 	Begin
114 	 return FLEX_ORDERBY;
115 	 END;
116  Function FLEX_WHERE_p return varchar2 is
117 	Begin
118 	 return FLEX_WHERE;
119 	 END;
120  Function ACCESS_SET_NAME_p return varchar2 is
121 	Begin
122 	 return ACCESS_SET_NAME;
123 	 END;
124  Function FUNCT_CURR_CODE_p return varchar2 is
125 	Begin
126 	 return FUNCT_CURR_CODE;
127 	 END;
128  Function DAS_WHERE_p return varchar2 is
129 	Begin
130 	 return DAS_WHERE;
131 	 END;
132 END GL_GLXBCSD_XMLP_PKG ;