[Home] [Help]
PACKAGE BODY: APPS.GL_GLXRBCR_XMLP_PKG
Source
1 PACKAGE BODY GL_GLXRBCR_XMLP_PKG AS
2 /* $Header: GLXRBCRB.pls 120.0 2007/12/27 15:01:37 vijranga noship $ */
3
4 function AfterReport return boolean is
5 begin
6 /*srw.user_exit('FND SRWEXIT');*/null;
7
8 return (TRUE);
9 end;
10
11 function available_budgetformula(MASTER_BUDGET_BAL in number, TOTAL_DETAIL_BAL in number) return number is
12 begin
13 return (MASTER_BUDGET_BAL - TOTAL_DETAIL_BAL);
14 end;
15
16 function MASTER_BUDGET_NAMEFormula return VARCHAR2 is
17 name VARCHAR2(15);
18 errbuf VARCHAR2(132);
19 errbuf2 VARCHAR2(132);
20 begin
21 gl_info.gl_get_bud_or_enc_name('B', P_BUDGET_VERSION_ID,
22 name, errbuf);
23
24 if (errbuf is not null) then
25
26 errbuf2 := gl_message.get_message(
27 'GL_PLL_ROUTINE_ERROR', 'N',
28 'ROUTINE','gl_get_bud_or_enc_name'
29 );
30 /*srw.message('00', errbuf2);*/null;
31
32 /*srw.message('00', errbuf);*/null;
33
34 raise_application_error(-20101,null);/*srw.program_abort;*/null;
35
36 end if;
37
38 return (name);
39 end;
40
41 function BeforeReport return boolean is
42 out_ptd_ytd VARCHAR2(240);
43 errbuf VARCHAR2(132);
44 begin
45 /*srw.user_exit('FND SRWINIT');*/null;
46
47
48 begin
49 SELECT name, chart_of_accounts_id
50 INTO ACCESS_SET_NAME, CHART_OF_ACCOUNTS_ID
51 FROM gl_access_sets
52 WHERE access_set_id = P_ACCESS_SET_ID;
53
54 exception
55 WHEN NO_DATA_FOUND THEN
56 errbuf := gl_message.get_message('GL_PLL_INVALID_DATA_ACCESS_SET', 'Y',
57 'DASID', to_char(P_ACCESS_SET_ID));
58 /*srw.message('00', errbuf);*/null;
59
60 raise_application_error(-20101,null);/*srw.program_abort;*/null;
61
62
63 WHEN OTHERS THEN
64 errbuf := SQLERRM;
65 /*srw.message('00', errbuf);*/null;
66
67 raise_application_error(-20101,null);/*srw.program_abort;*/null;
68
69 end;
70
71 begin
72 SELECT name
73 INTO LEDGER_NAME
74 FROM gl_ledgers
75 WHERE ledger_id = P_LEDGER_ID;
76
77 exception
78 WHEN OTHERS THEN
79 errbuf := SQLERRM;
80 /*srw.message('00', errbuf);*/null;
81
82 raise_application_error(-20101,null);/*srw.program_abort;*/null;
83
84 end;
85
86 gl_info.gl_get_lookup_value('D',
87 P_PERIOD_TYPE,
88 'PTD_YTD',
89 out_ptd_ytd,
90 errbuf);
91 if (errbuf is not NULL) then
92 /*SRW.MESSAGE(0, errbuf);*/null;
93
94 raise_application_error(-20101,null);/*SRW.PROGRAM_ABORT;*/null;
95
96 else
97 PTD_YTD_DSP := out_ptd_ytd;
98 end if;
99
100 /*srw.reference(CHART_OF_ACCOUNTS_ID);*/null;
101
102
103 null;
104
105
106 null;
107
108 IF P_PERIOD_TYPE = 'PTD' THEN
109 SELECT_MASTER_BUDGET :=
110 'nvl(bm.period_net_dr, 0) - nvl(bm.period_net_cr, 0)';
111 SELECT_DETAIL_BUDGET :=
112 'nvl(bd.period_net_dr, 0) - nvl(bd.period_net_cr, 0)';
113
114 ELSIF P_PERIOD_TYPE = 'YTD' THEN
115 SELECT_MASTER_BUDGET :=
116 'nvl(bm.begin_balance_dr, 0) + nvl(bm.period_net_dr, 0) -
117 nvl(bm.begin_balance_cr, 0) - nvl(bm.period_net_cr, 0)';
118 SELECT_DETAIL_BUDGET :=
119 'nvl(bd.begin_balance_dr, 0) + nvl(bd.period_net_dr, 0) -
120 nvl(bd.begin_balance_cr, 0) - nvl(bd.period_net_cr, 0)';
121
122 ELSIF P_PERIOD_TYPE = 'QTD' THEN
123 SELECT_MASTER_BUDGET :=
124 'nvl(bm.quarter_to_date_dr, 0) + nvl(bm.period_net_dr, 0) -
125 nvl(bm.quarter_to_date_cr, 0) - nvl(bm.period_net_cr, 0)';
126 SELECT_DETAIL_BUDGET :=
127 'nvl(bd.quarter_to_date_dr, 0) + nvl(bd.period_net_dr, 0) -
128 nvl(bd.quarter_to_date_cr, 0) - nvl(bd.period_net_cr, 0)';
129
130 ELSE
131 SELECT_MASTER_BUDGET :=
132 'nvl(bm.project_to_date_dr, 0) + nvl(bm.period_net_dr, 0) -
133 nvl(bm.project_to_date_cr, 0) - nvl(bm.period_net_cr, 0)';
134 SELECT_DETAIL_BUDGET :=
135 'nvl(bd.project_to_date_dr, 0) + nvl(bd.period_net_dr, 0) -
136 nvl(bd.project_to_date_cr, 0) - nvl(bd.period_net_cr, 0)';
137
138 END IF;
139
140 WHERE_DAS := GL_ACCESS_SET_SECURITY_PKG.GET_SECURITY_CLAUSE(
141 P_ACCESS_SET_ID,
142 'R',
143 'LEDGER_ID',
144 P_LEDGER_ID,
145 null,
146 'SEG_COLUMN',
147 null,
148 'CC',
149 null);
150
151 if (WHERE_DAS is not null) then
152 WHERE_DAS := ' and ' || WHERE_DAS;
153 end if;
154 if (WHERE_DAS is null) then
155 WHERE_DAS := 'AND 1=1';
156 end if;
157
158 return (TRUE);
159 end;
160
161 --Functions to refer Oracle report placeholders--
162
163 Function CHART_OF_ACCOUNTS_ID_p return varchar2 is
164 Begin
165 return CHART_OF_ACCOUNTS_ID;
166 END;
167 Function ORDERBY_FLEX_p return varchar2 is
168 Begin
169 return ORDERBY_FLEX;
170 END;
171 Function SELECT_FLEX_p return varchar2 is
172 Begin
173 return SELECT_FLEX;
174 END;
175 Function LEDGER_NAME_p return varchar2 is
176 Begin
177 return LEDGER_NAME;
178 END;
179 Function SELECT_MASTER_BUDGET_p return varchar2 is
180 Begin
181 return SELECT_MASTER_BUDGET;
182 END;
183 Function SELECT_DETAIL_BUDGET_p return varchar2 is
184 Begin
185 return SELECT_DETAIL_BUDGET;
186 END;
187 Function ACCESS_SET_NAME_p return varchar2 is
188 Begin
189 return ACCESS_SET_NAME;
190 END;
191 Function WHERE_DAS_p return varchar2 is
192 Begin
193 return WHERE_DAS;
194 END;
195 Function PTD_YTD_DSP_p return varchar2 is
196 Begin
197 return PTD_YTD_DSP;
198 END;
199 END GL_GLXRBCR_XMLP_PKG ;
200