[Home] [Help]
PACKAGE BODY: APPS.GL_GLXRBJRN_XMLP_PKG
Source
1 PACKAGE BODY GL_GLXRBJRN_XMLP_PKG AS
2 /* $Header: GLXRBJRNB.pls 120.0 2007/12/27 15:04:04 vijranga noship $ */
3
4 function BeforeReport return boolean is
5 begin
6
7 declare
8 t_ledger_id NUMBER;
9 t_chart_of_accounts_id NUMBER;
10 t_ledger_name VARCHAR2(30);
11 t_func_curr VARCHAR2(15);
12 t_budget_version_id NUMBER(15);
13 t_budget_name VARCHAR2(15);
14 t_errorbuffer VARCHAR2(132);
15
16 begin
17
18 /*srw.user_exit('FND SRWINIT');*/null;
19
20
21 t_ledger_id := to_number(P_LEDGER_ID);
22 gl_info.gl_get_ledger_info (t_ledger_id,
23 t_chart_of_accounts_id,
24 t_ledger_name,
25 t_func_curr,
26 t_errorbuffer);
27 if (t_errorbuffer is not NULL) then
28 /*SRW.MESSAGE(0,t_errorbuffer);*/null;
29
30 raise_application_error(-20101,null);/*SRW.PROGRAM_ABORT;*/null;
31
32 else
33 STRUCT_NUM := to_char(t_chart_of_accounts_id);
34 LEDGER_NAME := t_ledger_name;
35 end if;
36
37 t_budget_version_id := P_BUDGET_VERSION_ID;
38
39 begin
40 select budget_name
41 INTO t_budget_name
42 from gl_budget_versions
43 where budget_version_id = t_budget_version_id;
44
45 BUDGET_NAME := t_budget_name;
46
47 EXCEPTION
48 WHEN OTHERS THEN
49 t_errorbuffer := SQLERRM;
50 /*SRW.MESSAGE(0,t_errorbuffer);*/null;
51
52 raise_application_error(-20101,null);/*SRW.PROGRAM_ABORT;*/null;
53
54 end;
55
56 begin
57 SELECT name
58 INTO DAS_NAME
59 FROM gl_access_sets
60 WHERE access_set_id = P_DAS_ID;
61
62 exception
63 WHEN NO_DATA_FOUND THEN
64 t_errorbuffer := gl_message.get_message('GL_PLL_INVALID_DATA_ACCESS_SET', 'Y',
65 'DASID', to_char(P_DAS_ID));
66 /*srw.message('00', t_errorbuffer);*/null;
67
68 raise_application_error(-20101,null);/*srw.program_abort;*/null;
69
70
71 WHEN OTHERS THEN
72 t_errorbuffer := SQLERRM;
73 /*srw.message('00', t_errorbuffer);*/null;
74
75 raise_application_error(-20101,null);/*srw.program_abort;*/null;
76
77 end;
78 /*SRW.REFERENCE(DAS_NAME);*/null;
79
80
81 /*SRW.REFERENCE(STRUCT_NUM);*/null;
82
83
84 null;
85
86 WHERE_DAS := GL_ACCESS_SET_SECURITY_PKG.GET_SECURITY_CLAUSE(
87 P_DAS_ID,
88 'R',
89 'LEDGER_ID',
90 to_char(P_LEDGER_ID),
91 null,
92 'SEG_COLUMN',
93 null,
94 'CC',
95 null);
96
97 if (WHERE_DAS is not null) then
98 WHERE_DAS := ' and ' || WHERE_DAS ;
99 else
100 where_das := ' ';
101 end if;
102
103
104 END;
105 return (TRUE);
106 end;
107
108 function AfterReport return boolean is
109 begin
110
111 /*SRW.USER_EXIT('FND SRWEXIT');*/null;
112 return (TRUE);
113 end;
114
115 --Functions to refer Oracle report placeholders--
116
117 Function STRUCT_NUM_p return number is
118 Begin
119 return STRUCT_NUM;
120 END;
121 Function LEDGER_NAME_p return varchar2 is
122 Begin
123 return LEDGER_NAME;
124 END;
125 Function FLEXDATA_p return varchar2 is
126 Begin
127 return FLEXDATA;
128 END;
129 Function BUDGET_NAME_p return varchar2 is
130 Begin
131 return BUDGET_NAME;
132 END;
133 Function DAS_NAME_p return varchar2 is
134 Begin
135 return DAS_NAME;
136 END;
137 Function WHERE_DAS_p return varchar2 is
138 Begin
139 return WHERE_DAS;
140 END;
141 END GL_GLXRBJRN_XMLP_PKG ;
142