[Home] [Help]
PACKAGE BODY: APPS.GL_GLXRBUDA_XMLP_PKG
Source
1 PACKAGE BODY GL_GLXRBUDA_XMLP_PKG AS
2 /* $Header: GLXRBUDAB.pls 120.0 2007/12/27 15:05:00 vijranga noship $ */
3 FUNCTION AFTERREPORT RETURN BOOLEAN IS
4 BEGIN
5 /*SRW.USER_EXIT('FND SRWEXIT')*/NULL;
6 RETURN (TRUE);
7 END AFTERREPORT;
8
9 FUNCTION BEFOREREPORT RETURN BOOLEAN IS
10 OUT_PTD_YTD VARCHAR2(240);
11 ERRBUF VARCHAR2(132);
12 BEGIN
13 P_CONC_REQUEST_ID := FND_GLOBAL.CONC_REQUEST_ID;
14 /*SRW.USER_EXIT('FND SRWINIT')*/NULL;
15 BEGIN
16 SELECT
17 NAME,
18 CHART_OF_ACCOUNTS_ID
19 INTO ACCESS_SET_NAME,STRUCT_NUM
20 FROM
21 GL_ACCESS_SETS
22 WHERE ACCESS_SET_ID = P_ACCESS_SET_ID;
23 EXCEPTION
24 WHEN NO_DATA_FOUND THEN
25 ERRBUF := GL_MESSAGE.GET_MESSAGE('GL_PLL_INVALID_DATA_ACCESS_SET'
26 ,'Y'
27 ,'DASID'
28 ,TO_CHAR(P_ACCESS_SET_ID));
29 /*SRW.MESSAGE('00'
30 ,ERRBUF)*/NULL;
31 /*RAISE SRW.PROGRAM_ABORT*/RAISE_APPLICATION_ERROR(-20101,null);
32 WHEN OTHERS THEN
33 ERRBUF := SQLERRM;
34 /*SRW.MESSAGE('00'
35 ,ERRBUF)*/NULL;
36 /*RAISE SRW.PROGRAM_ABORT*/RAISE_APPLICATION_ERROR(-20101,null);
37 END;
38 BEGIN
39 SELECT
40 NAME
41 INTO LEDGER_NAME
42 FROM
43 GL_LEDGERS
44 WHERE LEDGER_ID = P_LEDGER_ID;
45 SELECT
46 BUDGET_NAME
47 INTO BUDGET_NAME
48 FROM
49 GL_BUDGET_VERSIONS
50 WHERE BUDGET_VERSION_ID = P_BUDGET_VERSION_ID;
51 EXCEPTION
52 WHEN OTHERS THEN
53 ERRBUF := SQLERRM;
54 /*SRW.MESSAGE('00'
55 ,ERRBUF)*/NULL;
56 /*RAISE SRW.PROGRAM_ABORT*/RAISE_APPLICATION_ERROR(-20101,null);
57 END;
58 GL_GET_LOOKUP_VALUE('D'
59 ,P_PERIOD_TYPE
60 ,'PTD_YTD'
61 ,OUT_PTD_YTD
62 ,ERRBUF);
63 IF (ERRBUF IS NOT NULL) THEN
64 /*SRW.MESSAGE(0
65 ,ERRBUF)*/NULL;
66 /*RAISE SRW.PROGRAM_ABORT*/RAISE_APPLICATION_ERROR(-20101,null);
67 ELSE
68 PTD_YTD_DSP := OUT_PTD_YTD;
69 END IF;
70 IF (P_PERIOD_TYPE = 'PTD') THEN
71 PTD_YTD := '(glbd.period_net_dr - glbd.period_net_cr)';
72 ELSIF (P_PERIOD_TYPE = 'YTD') THEN
73 PTD_YTD := '(glbd.begin_balance_dr + glbd.period_net_dr - glbd.begin_balance_cr - glbd.period_net_cr)';
74 ELSIF (P_PERIOD_TYPE = 'QTD') THEN
75 PTD_YTD := '(glbd.period_net_dr + glbd.quarter_to_date_dr - glbd.period_net_cr - glbd.quarter_to_date_cr)';
76 ELSE
77 PTD_YTD := '(glbd.period_net_dr + glbd.project_to_date_dr - glbd.period_net_cr - glbd.project_to_date_cr)';
78 END IF;
79 /*SRW.REFERENCE(STRUCT_NUM)*/NULL;
80 /*SRW.REFERENCE(STRUCT_NUM)*/NULL;
81 /*SRW.REFERENCE(STRUCT_NUM)*/NULL;
82 WHERE_DAS := GL_ACCESS_SET_SECURITY_PKG.GET_SECURITY_CLAUSE(P_ACCESS_SET_ID
83 ,'R'
84 ,'LEDGER_ID'
85 ,P_LEDGER_ID
86 ,NULL
87 ,'SEG_COLUMN'
88 ,NULL
89 ,'CS'
90 ,NULL);
91 IF (WHERE_DAS IS NOT NULL) THEN
92 WHERE_DAS := ' and ' || WHERE_DAS;
93 ELSE
94 WHERE_DAS := ' ';
95 END IF;
96 RETURN (TRUE);
97 END BEFOREREPORT;
98
99 FUNCTION LEDGER_NAME_P RETURN VARCHAR2 IS
100 BEGIN
101 RETURN LEDGER_NAME;
102 END LEDGER_NAME_P;
103
104 FUNCTION BUDGET_NAME_P RETURN VARCHAR2 IS
105 BEGIN
106 RETURN BUDGET_NAME;
107 END BUDGET_NAME_P;
108
109 FUNCTION STRUCT_NUM_P RETURN NUMBER IS
110 BEGIN
111 RETURN STRUCT_NUM;
112 END STRUCT_NUM_P;
113
114 FUNCTION FLEXDATA_P RETURN VARCHAR2 IS
115 BEGIN
116 RETURN FLEXDATA;
117 END FLEXDATA_P;
118
119 FUNCTION ACCOUNT_SEG_P RETURN VARCHAR2 IS
120 BEGIN
121 RETURN ACCOUNT_SEG;
122 END ACCOUNT_SEG_P;
123
124 FUNCTION FLEX_ORDERBY_P RETURN VARCHAR2 IS
125 BEGIN
126 RETURN FLEX_ORDERBY;
127 END FLEX_ORDERBY_P;
128
129 FUNCTION PTD_YTD_P RETURN VARCHAR2 IS
130 BEGIN
131 RETURN PTD_YTD;
132 END PTD_YTD_P;
133
134 FUNCTION PTD_YTD_DSP_P RETURN VARCHAR2 IS
135 BEGIN
136 RETURN PTD_YTD_DSP;
137 END PTD_YTD_DSP_P;
138
139 FUNCTION ACCESS_SET_NAME_P RETURN VARCHAR2 IS
140 BEGIN
141 RETURN ACCESS_SET_NAME;
142 END ACCESS_SET_NAME_P;
143
144 FUNCTION WHERE_DAS_P RETURN VARCHAR2 IS
145 BEGIN
146 RETURN WHERE_DAS;
147 END WHERE_DAS_P;
148
149 PROCEDURE GL_GET_PERIOD_DATES(TLEDGER_ID IN NUMBER
150 ,TPERIOD_NAME IN VARCHAR2
151 ,TSTART_DATE OUT NOCOPY DATE
152 ,TEND_DATE OUT NOCOPY DATE
153 ,ERRBUF OUT NOCOPY VARCHAR2) IS
154 BEGIN
155 /* STPROC.INIT('begin GL_INFO.GL_GET_PERIOD_DATES(:TLEDGER_ID, :TPERIOD_NAME, :TSTART_DATE, :TEND_DATE, :ERRBUF); end;');
156 STPROC.BIND_I(TLEDGER_ID);
157 STPROC.BIND_I(TPERIOD_NAME);
158 STPROC.BIND_O(TSTART_DATE);
159 STPROC.BIND_O(TEND_DATE);
160 STPROC.BIND_O(ERRBUF);
161 STPROC.EXECUTE;
162 STPROC.RETRIEVE(3
163 ,TSTART_DATE);
164 STPROC.RETRIEVE(4
165 ,TEND_DATE);
166 STPROC.RETRIEVE(5
167 ,ERRBUF);*/null;
168 END GL_GET_PERIOD_DATES;
169
170 PROCEDURE GL_GET_LEDGER_INFO(LEDID IN NUMBER
171 ,COAID OUT NOCOPY NUMBER
172 ,LEDNAME OUT NOCOPY VARCHAR2
173 ,FUNC_CURR OUT NOCOPY VARCHAR2
174 ,ERRBUF OUT NOCOPY VARCHAR2) IS
175 BEGIN
176 /* STPROC.INIT('begin GL_INFO.GL_GET_LEDGER_INFO(:LEDID, :COAID, :LEDNAME, :FUNC_CURR, :ERRBUF); end;');
177 STPROC.BIND_I(LEDID);
178 STPROC.BIND_O(COAID);
179 STPROC.BIND_O(LEDNAME);
180 STPROC.BIND_O(FUNC_CURR);
181 STPROC.BIND_O(ERRBUF);
182 STPROC.EXECUTE;
183 STPROC.RETRIEVE(2
184 ,COAID);
185 STPROC.RETRIEVE(3
186 ,LEDNAME);
187 STPROC.RETRIEVE(4
188 ,FUNC_CURR);
189 STPROC.RETRIEVE(5
190 ,ERRBUF);*/null;
191 END GL_GET_LEDGER_INFO;
192
193 PROCEDURE GL_GET_BUD_OR_ENC_NAME(ACTUAL_TYPE IN VARCHAR2
194 ,TYPE_ID IN NUMBER
195 ,NAME OUT NOCOPY VARCHAR2
196 ,ERRBUF OUT NOCOPY VARCHAR2) IS
197 BEGIN
198 /* STPROC.INIT('begin GL_INFO.GL_GET_BUD_OR_ENC_NAME(:ACTUAL_TYPE, :TYPE_ID, :NAME, :ERRBUF); end;');
199 STPROC.BIND_I(ACTUAL_TYPE);
200 STPROC.BIND_I(TYPE_ID);
201 STPROC.BIND_O(NAME);
202 STPROC.BIND_O(ERRBUF);
203 STPROC.EXECUTE;
204 STPROC.RETRIEVE(3
205 ,NAME);
206 STPROC.RETRIEVE(4
207 ,ERRBUF);*/null;
208 END GL_GET_BUD_OR_ENC_NAME;
209
210 PROCEDURE GL_GET_LOOKUP_VALUE(LMODE IN VARCHAR2
211 ,CODE IN VARCHAR2
212 ,TYPE IN VARCHAR2
213 ,VALUE OUT NOCOPY VARCHAR2
214 ,ERRBUF OUT NOCOPY VARCHAR2) IS
215 BEGIN
216 /* STPROC.INIT('begin GL_INFO.GL_GET_LOOKUP_VALUE(:LMODE, :CODE, :TYPE, :VALUE, :ERRBUF); end;');
217 STPROC.BIND_I(LMODE);
218 STPROC.BIND_I(CODE);
219 STPROC.BIND_I(TYPE);
220 STPROC.BIND_O(VALUE);
221 STPROC.BIND_O(ERRBUF);
222 STPROC.EXECUTE;
223 STPROC.RETRIEVE(4
224 ,VALUE);
225 STPROC.RETRIEVE(5
226 ,ERRBUF);*/
227
228 GL_INFO.GL_GET_LOOKUP_VALUE(LMODE,CODE,TYPE,VALUE,ERRBUF);
229 END GL_GET_LOOKUP_VALUE;
230
231 PROCEDURE GL_GET_FIRST_PERIOD(TLEDGER_ID IN NUMBER
232 ,TPERIOD_NAME IN VARCHAR2
233 ,TFIRST_PERIOD OUT NOCOPY VARCHAR2
234 ,ERRBUF OUT NOCOPY VARCHAR2) IS
235 BEGIN
236 /* STPROC.INIT('begin GL_INFO.GL_GET_FIRST_PERIOD(:TLEDGER_ID, :TPERIOD_NAME, :TFIRST_PERIOD, :ERRBUF); end;');
237 STPROC.BIND_I(TLEDGER_ID);
238 STPROC.BIND_I(TPERIOD_NAME);
239 STPROC.BIND_O(TFIRST_PERIOD);
240 STPROC.BIND_O(ERRBUF);
241 STPROC.EXECUTE;
242 STPROC.RETRIEVE(3
243 ,TFIRST_PERIOD);
244 STPROC.RETRIEVE(4
245 ,ERRBUF);*/null;
246 END GL_GET_FIRST_PERIOD;
247
248 PROCEDURE GL_GET_FIRST_PERIOD_OF_QUARTER(TLEDGER_ID IN NUMBER
249 ,TPERIOD_NAME IN VARCHAR2
250 ,TFIRST_PERIOD OUT NOCOPY VARCHAR2
251 ,ERRBUF OUT NOCOPY VARCHAR2) IS
252 BEGIN
253 /* STPROC.INIT('begin GL_INFO.GL_GET_FIRST_PERIOD_OF_QUARTER(:TLEDGER_ID, :TPERIOD_NAME, :TFIRST_PERIOD, :ERRBUF); end;');
254 STPROC.BIND_I(TLEDGER_ID);
255 STPROC.BIND_I(TPERIOD_NAME);
256 STPROC.BIND_O(TFIRST_PERIOD);
257 STPROC.BIND_O(ERRBUF);
258 STPROC.EXECUTE;
259 STPROC.RETRIEVE(3
260 ,TFIRST_PERIOD);
261 STPROC.RETRIEVE(4
262 ,ERRBUF);*/null;
263 END GL_GET_FIRST_PERIOD_OF_QUARTER;
264
265 PROCEDURE GL_GET_CONSOLIDATION_INFO(CONS_ID IN NUMBER
266 ,CONS_NAME OUT NOCOPY VARCHAR2
267 ,METHOD OUT NOCOPY VARCHAR2
268 ,CURR_CODE OUT NOCOPY VARCHAR2
269 ,FROM_LEDID OUT NOCOPY NUMBER
270 ,TO_LEDID OUT NOCOPY NUMBER
271 ,DESCRIPTION OUT NOCOPY VARCHAR2
272 ,START_DATE OUT NOCOPY DATE
273 ,END_DATE OUT NOCOPY DATE
274 ,ERRBUF OUT NOCOPY VARCHAR2) IS
275 BEGIN
276 /* STPROC.INIT('begin GL_INFO.GL_GET_CONSOLIDATION_INFO(:CONS_ID, :CONS_NAME, :METHOD, :CURR_CODE, :FROM_LEDID, :TO_LEDID, :DESCRIPTION, :START_DATE, :END_DATE, :ERRBUF); end;');
277 STPROC.BIND_I(CONS_ID);
278 STPROC.BIND_O(CONS_NAME);
279 STPROC.BIND_O(METHOD);
280 STPROC.BIND_O(CURR_CODE);
281 STPROC.BIND_O(FROM_LEDID);
282 STPROC.BIND_O(TO_LEDID);
283 STPROC.BIND_O(DESCRIPTION);
284 STPROC.BIND_O(START_DATE);
285 STPROC.BIND_O(END_DATE);
286 STPROC.BIND_O(ERRBUF);
287 STPROC.EXECUTE;
288 STPROC.RETRIEVE(2
289 ,CONS_NAME);
290 STPROC.RETRIEVE(3
291 ,METHOD);
292 STPROC.RETRIEVE(4
293 ,CURR_CODE);
294 STPROC.RETRIEVE(5
295 ,FROM_LEDID);
296 STPROC.RETRIEVE(6
297 ,TO_LEDID);
298 STPROC.RETRIEVE(7
299 ,DESCRIPTION);
300 STPROC.RETRIEVE(8
301 ,START_DATE);
302 STPROC.RETRIEVE(9
303 ,END_DATE);
304 STPROC.RETRIEVE(10
305 ,ERRBUF);*/null;
306 END GL_GET_CONSOLIDATION_INFO;
307
308 END GL_GLXRBUDA_XMLP_PKG;
309