[Home] [Help]
PACKAGE BODY: APPS.CE_CEXINERR_XMLP_PKG
Source
1 PACKAGE BODY CE_CEXINERR_XMLP_PKG AS
2 /* $Header: CEXINERRB.pls 120.0 2007/12/28 07:55:00 abraghun noship $ */
3 FUNCTION BEFOREREPORT RETURN BOOLEAN IS
4 BEGIN
5 DECLARE
6 L_MESSAGE FND_NEW_MESSAGES.MESSAGE_TEXT%TYPE;
7 BEGIN
8 P_CONC_REQUEST_ID := FND_GLOBAL.CONC_REQUEST_ID;
9 INIT_SECURITY;
10 BEGIN
11 SELECT
12 L.MEANING
13 INTO C_ALL_TRANSLATION
14 FROM
15 GL_SETS_OF_BOOKS SOB,
16 CE_SYSTEM_PARAMETERS SP,
17 CE_LOOKUPS L
18 WHERE SOB.SET_OF_BOOKS_ID = SP.SET_OF_BOOKS_ID
19 AND L.LOOKUP_TYPE = 'LITERAL'
20 AND L.LOOKUP_CODE = 'ALL'
21 AND ROWNUM = 1;
22 EXCEPTION
23 WHEN OTHERS THEN
24 SET_NAME('CE'
25 ,'CE_PURGE_NO_SOB');
26 L_MESSAGE := GET;
27 RAISE_APPLICATION_ERROR(-20101
28 ,NULL);
29 END;
30 IF (P_BANK_BRANCH_ID IS NOT NULL) THEN
31 BEGIN
32 SELECT
33 ABB.BANK_NAME,
34 ABB.BANK_BRANCH_NAME
35 INTO C_BANK_NAME_DSP,C_BANK_BRANCH_NAME_DSP
36 FROM
37 CE_BANK_BRANCHES_V ABB
38 WHERE ABB.BRANCH_PARTY_ID = P_BANK_BRANCH_ID;
39 EXCEPTION
40 WHEN OTHERS THEN
41 SET_NAME('CE'
42 ,'CE_INVALID_BANK_BRANCH');
43 L_MESSAGE := GET;
44 RAISE_APPLICATION_ERROR(-20101
45 ,NULL);
46 END;
47 IF (P_BANK_ACCOUNT_ID IS NOT NULL) THEN
48 BEGIN
49 SELECT
50 ABA.BANK_ACCOUNT_NUM,
51 ABA.BANK_ACCOUNT_NAME,
52 ABA.CURRENCY_CODE
53 INTO C_BANK_ACCOUNT_NUM_DSP,C_BANK_ACCOUNT_NAME_DSP,C_BANK_CURRENCY_CODE_DSP
54 FROM
55 CE_BANK_ACCTS_GT_V ABA
56 WHERE ABA.BANK_ACCOUNT_ID = P_BANK_ACCOUNT_ID
57 AND ABA.ACCOUNT_CLASSIFICATION = 'INTERNAL';
58 EXCEPTION
59 WHEN OTHERS THEN
60 SET_NAME('CE'
61 ,'CE_INVALID_BANK_ACC');
62 L_MESSAGE := GET;
63 RAISE_APPLICATION_ERROR(-20101
64 ,NULL);
65 END;
66 ELSE
67 C_BANK_ACCOUNT_NUM_DSP := ' -';
68 C_BANK_ACCOUNT_NAME_DSP := ' -';
69 C_BANK_CURRENCY_CODE_DSP := ' -';
70 END IF;
71 ELSE
72 C_BANK_NAME_DSP := C_ALL_TRANSLATION;
73 C_BANK_BRANCH_NAME_DSP := C_ALL_TRANSLATION;
74 C_BANK_CURRENCY_CODE_DSP := C_ALL_TRANSLATION;
75 END IF;
76 IF (P_DEBUG_MODE = 'Y') THEN
77 NULL;
78 END IF;
79 END;
80 lP_STAT_DATE_TO := to_char(P_STAT_DATE_TO,'DD-MON-YY');
81 lP_STAT_DATE_FROM := to_char(P_STAT_DATE_FROM,'DD-MON-YY');
82 RETURN (TRUE);
83 END BEFOREREPORT;
84 FUNCTION AFTERREPORT RETURN BOOLEAN IS
85 BEGIN
86 BEGIN
87 NULL;
88 END;
89 RETURN (TRUE);
90 END AFTERREPORT;
91 FUNCTION C_PRT_MESSAGE_NAMEFORMULA(MESSAGE_NAME IN VARCHAR2) RETURN VARCHAR2 IS
92 BEGIN
93 DECLARE
94 L_MESSAGE FND_NEW_MESSAGES.MESSAGE_TEXT%TYPE;
95 BEGIN
96 SET_ENCODED(MESSAGE_NAME);
97 L_MESSAGE := GET;
98 IF L_MESSAGE IS NULL THEN
99 SET_NAME('CE'
100 ,MESSAGE_NAME);
101 L_MESSAGE := GET;
102 END IF;
103 RETURN (L_MESSAGE);
104 END;
105 RETURN NULL;
106 END C_PRT_MESSAGE_NAMEFORMULA;
107 FUNCTION G_INTERFACEGROUPFILTER(STATEMENT_DATE IN DATE) RETURN BOOLEAN IS
108 BEGIN
109 IF STATEMENT_DATE = '' THEN
110 C_THE_END := 'N';
111 ELSE
112 C_THE_END := 'Y';
113 END IF;
114 RETURN (TRUE);
115 RETURN (TRUE);
116 END G_INTERFACEGROUPFILTER;
117 FUNCTION C_DATEFORMATFORMULA RETURN VARCHAR2 IS
118 C_DATEFORMAT varchar2(50);
119 BEGIN
123 END IF;
120 select fnd_global.nls_date_format into C_DATEFORMAT from dual;
121 IF C_DATEFORMAT = '' THEN
122 C_DATEFORMAT := 'DD-MON-YYYY';
124 RETURN (C_DATEFORMAT);
125 END C_DATEFORMATFORMULA;
126 FUNCTION C_COMPANY_NAME_HEADER_P RETURN VARCHAR2 IS
127 BEGIN
128 RETURN C_COMPANY_NAME_HEADER;
129 END C_COMPANY_NAME_HEADER_P;
130 FUNCTION C_BASE_CURRENCY_CODE_P RETURN VARCHAR2 IS
131 BEGIN
132 RETURN C_BASE_CURRENCY_CODE;
133 END C_BASE_CURRENCY_CODE_P;
134 FUNCTION C_THE_END_P RETURN VARCHAR2 IS
135 BEGIN
136 RETURN C_THE_END;
137 END C_THE_END_P;
138 FUNCTION C_DATE_LINE_LEX_P RETURN VARCHAR2 IS
139 BEGIN
140 RETURN C_DATE_LINE_LEX;
141 END C_DATE_LINE_LEX_P;
142 FUNCTION C_DATE_HEAD_LEX_P RETURN VARCHAR2 IS
143 BEGIN
144 RETURN C_DATE_HEAD_LEX;
145 END C_DATE_HEAD_LEX_P;
146 FUNCTION C_DATE_RECON_LEX_P RETURN VARCHAR2 IS
147 BEGIN
148 RETURN C_DATE_RECON_LEX;
149 END C_DATE_RECON_LEX_P;
150 FUNCTION C_ALL_TRANSLATION_P RETURN VARCHAR2 IS
151 BEGIN
152 RETURN C_ALL_TRANSLATION;
153 END C_ALL_TRANSLATION_P;
154 FUNCTION C_BANK_ACCOUNT_NAME_DSP_P RETURN VARCHAR2 IS
155 BEGIN
156 RETURN C_BANK_ACCOUNT_NAME_DSP;
157 END C_BANK_ACCOUNT_NAME_DSP_P;
158 FUNCTION C_NUMBER_LINE_LEX_P RETURN VARCHAR2 IS
159 BEGIN
160 RETURN C_NUMBER_LINE_LEX;
161 END C_NUMBER_LINE_LEX_P;
162 FUNCTION C_NUMBER_HEAD_LEX_P RETURN VARCHAR2 IS
163 BEGIN
164 RETURN C_NUMBER_HEAD_LEX;
165 END C_NUMBER_HEAD_LEX_P;
166 FUNCTION C_NUMBER_RECON_LEX_P RETURN VARCHAR2 IS
167 BEGIN
168 RETURN C_NUMBER_RECON_LEX;
169 END C_NUMBER_RECON_LEX_P;
170 FUNCTION C_BANK_ACCOUNT_NUM_DSP_P RETURN VARCHAR2 IS
171 BEGIN
172 RETURN C_BANK_ACCOUNT_NUM_DSP;
173 END C_BANK_ACCOUNT_NUM_DSP_P;
174 FUNCTION C_BANK_CURRENCY_CODE_DSP_P RETURN VARCHAR2 IS
175 BEGIN
176 RETURN C_BANK_CURRENCY_CODE_DSP;
177 END C_BANK_CURRENCY_CODE_DSP_P;
178 FUNCTION C_BANK_BRANCH_NAME_DSP_P RETURN VARCHAR2 IS
179 BEGIN
180 RETURN C_BANK_BRANCH_NAME_DSP;
181 END C_BANK_BRANCH_NAME_DSP_P;
182 FUNCTION C_BANK_NAME_DSP_P RETURN VARCHAR2 IS
183 BEGIN
184 RETURN C_BANK_NAME_DSP;
185 END C_BANK_NAME_DSP_P;
186 PROCEDURE SET_NAME(APPLICATION IN VARCHAR2
187 ,NAME IN VARCHAR2) IS
188 BEGIN
189 /* STPROC.INIT('begin FND_MESSAGE.SET_NAME(:APPLICATION, :NAME); end;');
190 STPROC.BIND_I(APPLICATION);
191 STPROC.BIND_I(NAME);
192 STPROC.EXECUTE;*/
193 begin FND_MESSAGE.SET_NAME(APPLICATION, NAME); end;
194 END SET_NAME;
195 PROCEDURE SET_TOKEN(TOKEN IN VARCHAR2
196 ,VALUE IN VARCHAR2
197 ,TRANSLATE IN BOOLEAN) IS
198 V_TRANSLATE number;
199 BEGIN
200 /*STPROC.INIT('declare TRANSLATE BOOLEAN; begin TRANSLATE := sys.diutil.int_to_bool(:TRANSLATE); FND_MESSAGE.SET_TOKEN(:TOKEN, :VALUE, TRANSLATE); end;');
201 STPROC.BIND_I(TRANSLATE);
202 STPROC.BIND_I(TOKEN);
203 STPROC.BIND_I(VALUE);
204 STPROC.EXECUTE;*/
205 declare TRANSLATE BOOLEAN;
206 begin
207 TRANSLATE := sys.diutil.int_to_bool(V_TRANSLATE);
208 FND_MESSAGE.SET_TOKEN(TOKEN, VALUE, TRANSLATE);
209 end;
210 END SET_TOKEN;
211 PROCEDURE RETRIEVE(MSGOUT OUT NOCOPY VARCHAR2) IS
212 BEGIN
213 /*STPROC.INIT('begin FND_MESSAGE.RETRIEVE(:MSGOUT); end;');
214 STPROC.BIND_O(MSGOUT);
215 STPROC.EXECUTE;
216 STPROC.RETRIEVE(1
217 ,MSGOUT);*/
218 begin FND_MESSAGE.RETRIEVE(MSGOUT); end;
219 END RETRIEVE;
220 PROCEDURE CLEAR IS
221 BEGIN
222 /*STPROC.INIT('begin FND_MESSAGE.CLEAR; end;');
223 STPROC.EXECUTE;*/
224 begin FND_MESSAGE.CLEAR; end;
225 END CLEAR;
226 FUNCTION GET_STRING(APPIN IN VARCHAR2
227 ,NAMEIN IN VARCHAR2) RETURN VARCHAR2 IS
228 X0 VARCHAR2(2000);
229 BEGIN
230 /*STPROC.INIT('begin :X0 := FND_MESSAGE.GET_STRING(:APPIN, :NAMEIN); end;');
231 STPROC.BIND_O(X0);
232 STPROC.BIND_I(APPIN);
233 STPROC.BIND_I(NAMEIN);
234 STPROC.EXECUTE;
235 STPROC.RETRIEVE(1
236 ,X0);*/
237 begin
238 X0 := FND_MESSAGE.GET_STRING(APPIN, NAMEIN);
239 end;
240 RETURN X0;
241 END GET_STRING;
242 FUNCTION GET_NUMBER(APPIN IN VARCHAR2
243 ,NAMEIN IN VARCHAR2) RETURN NUMBER IS
244 X0 NUMBER;
245 BEGIN
246 /*STPROC.INIT('begin :X0 := FND_MESSAGE.GET_NUMBER(:APPIN, :NAMEIN); end;');
247 STPROC.BIND_O(X0);
248 STPROC.BIND_I(APPIN);
249 STPROC.BIND_I(NAMEIN);
250 STPROC.EXECUTE;
251 STPROC.RETRIEVE(1
252 ,X0);*/
253 begin
254 X0 := FND_MESSAGE.GET_NUMBER(APPIN, NAMEIN);
255 end;
256 RETURN X0;
257 END GET_NUMBER;
258 FUNCTION GET RETURN VARCHAR2 IS
259 X0 VARCHAR2(2000);
260 BEGIN
261 /*STPROC.INIT('begin :X0 := FND_MESSAGE.GET; end;');
262 STPROC.BIND_O(X0);
263 STPROC.EXECUTE;
264 STPROC.RETRIEVE(1
265 ,X0);*/
266 begin
267 X0 := FND_MESSAGE.GET;
268 end;
269 RETURN X0;
270 END GET;
271 FUNCTION GET_ENCODED RETURN VARCHAR2 IS
272 X0 VARCHAR2(2000);
273 BEGIN
274 /*STPROC.INIT('begin :X0 := FND_MESSAGE.GET_ENCODED; end;');
275 STPROC.BIND_O(X0);
276 STPROC.EXECUTE;
277 STPROC.RETRIEVE(1
278 ,X0);*/
279 begin X0 := FND_MESSAGE.GET_ENCODED; end;
280 RETURN X0;
281 END GET_ENCODED;
282 PROCEDURE PARSE_ENCODED(ENCODED_MESSAGE IN VARCHAR2
283 ,APP_SHORT_NAME OUT NOCOPY VARCHAR2
284 ,MESSAGE_NAME OUT NOCOPY VARCHAR2) IS
285 BEGIN
286 /*STPROC.INIT('begin FND_MESSAGE.PARSE_ENCODED(:ENCODED_MESSAGE, :APP_SHORT_NAME, :MESSAGE_NAME); end;');
287 STPROC.BIND_I(ENCODED_MESSAGE);
288 STPROC.BIND_O(APP_SHORT_NAME);
289 STPROC.BIND_O(MESSAGE_NAME);
290 STPROC.EXECUTE;
291 STPROC.RETRIEVE(2
292 ,APP_SHORT_NAME);
293 STPROC.RETRIEVE(3
294 ,MESSAGE_NAME);*/
295 begin FND_MESSAGE.PARSE_ENCODED(ENCODED_MESSAGE, APP_SHORT_NAME, MESSAGE_NAME); end;
296 END PARSE_ENCODED;
297 PROCEDURE SET_ENCODED(ENCODED_MESSAGE IN VARCHAR2) IS
298 BEGIN
299 /*STPROC.INIT('begin FND_MESSAGE.SET_ENCODED(:ENCODED_MESSAGE); end;');
300 STPROC.BIND_I(ENCODED_MESSAGE);
301 STPROC.EXECUTE;*/
302 begin FND_MESSAGE.SET_ENCODED(ENCODED_MESSAGE); end;
303 END SET_ENCODED;
304 PROCEDURE RAISE_ERROR IS
305 BEGIN
306 /*STPROC.INIT('begin FND_MESSAGE.RAISE_ERROR; end;');
307 STPROC.EXECUTE;*/
308 begin FND_MESSAGE.RAISE_ERROR; end;
309 END RAISE_ERROR;
310 PROCEDURE DEBUG(LINE IN VARCHAR2) IS
311 BEGIN
312 /*STPROC.INIT('begin CEP_STANDARD.DEBUG(:LINE); end;');
313 STPROC.BIND_I(LINE);
314 STPROC.EXECUTE;*/
315 begin CEP_STANDARD.DEBUG(LINE); end;
316 END DEBUG;
317 PROCEDURE ENABLE_DEBUG IS
318 BEGIN
319 /*STPROC.INIT('begin CEP_STANDARD.ENABLE_DEBUG; end;');
320 STPROC.EXECUTE;*/
321 --begin CEP_STANDARD.ENABLE_DEBUG; end;
322 null;
323 END ENABLE_DEBUG;
324 PROCEDURE DISABLE_DEBUG IS
325 BEGIN
326 /*STPROC.INIT('begin CEP_STANDARD.DISABLE_DEBUG; end;');
327 STPROC.EXECUTE;*/
328 --begin CEP_STANDARD.DISABLE_DEBUG; end;
329 null;
330 END DISABLE_DEBUG;
331 PROCEDURE INIT_SECURITY IS
332 BEGIN
333 /*STPROC.INIT(' begin CEP_STANDARD.init_security; end;');
334 STPROC.EXECUTE;*/
335 begin CEP_STANDARD.init_security; end;
336 END INIT_SECURITY;
337 FUNCTION GET_WINDOW_SESSION_TITLE RETURN VARCHAR2 IS
338 X0 VARCHAR2(2000);
339 BEGIN
340 /*STPROC.INIT('begin :X0 := CEP_STANDARD.GET_WINDOW_SESSION_TITLE; end;');
341 STPROC.BIND_O(X0);
342 STPROC.EXECUTE;
343 STPROC.RETRIEVE(1
344 ,X0);*/
345 begin X0 := CEP_STANDARD.GET_WINDOW_SESSION_TITLE; end;
346 RETURN X0;
347 END GET_WINDOW_SESSION_TITLE;
348 FUNCTION GET_EFFECTIVE_DATE(P_BANK_ACCOUNT_ID IN NUMBER
349 ,P_TRX_CODE IN VARCHAR2
350 ,P_RECEIPT_DATE IN DATE) RETURN DATE IS
351 X0 DATE;
352 BEGIN
353 /*STPROC.INIT('begin :X0 := CEP_STANDARD.GET_EFFECTIVE_DATE(:P_BANK_ACCOUNT_ID, :P_TRX_CODE, :P_RECEIPT_DATE); end;');
354 STPROC.BIND_O(X0);
355 STPROC.BIND_I(P_BANK_ACCOUNT_ID);
356 STPROC.BIND_I(P_TRX_CODE);
357 STPROC.BIND_I(P_RECEIPT_DATE);
358 STPROC.EXECUTE;
359 STPROC.RETRIEVE(1
360 ,X0);*/
361 begin X0 := CEP_STANDARD.GET_EFFECTIVE_DATE(P_BANK_ACCOUNT_ID, P_TRX_CODE, P_RECEIPT_DATE); end;
362 RETURN X0;
363 END GET_EFFECTIVE_DATE;
364 END CE_CEXINERR_XMLP_PKG;
365
366