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_CEXCSHTR_XMLP_PKG

Source


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