eTRM uses javascript that opens and focuses a separate window to display reports. Your browser does not appear to support javascript. This should not prevent you from using eTRM but it does mean the window focus feature will not work. Please check the contents of other windows on your desktop if you click on a link that does not appear to do anything.
PACKAGE BODY: APPS.CE_CEZBAERR_XMLP_PKG

Source


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