1 PACKAGE BODY CE_CECLEXER_XMLP_PKG AS
2 /* $Header: CECLEXERB.pls 120.0 2007/12/28 07:48:30 abraghun noship $ */
3 FUNCTION C_DATEFORMATFORMULA(C_DATEFORMAT IN VARCHAR2) RETURN CHAR IS
4 BEGIN
5 --RETURN (C_DATEFORMAT);
6 RETURN ('DD-MON-YYYY');
7 END C_DATEFORMATFORMULA;
8
9 FUNCTION BEFOREREPORT RETURN BOOLEAN IS
10 BEGIN
11 P_CONC_REQUEST_ID := FND_GLOBAL.CONC_REQUEST_ID;
12 CEP_STANDARD.INIT_SECURITY;
13 CP_PROFILE := FND_PROFILE.VALUE('CE_BANK_ACCOUNT_TRANSFERS');
14 RETURN (TRUE);
15 END BEFOREREPORT;
16
17 FUNCTION AFTERREPORT RETURN BOOLEAN IS
18 BEGIN
19 DELETE FROM CE_LEVELING_MESSAGES
20 WHERE REQUEST_ID = P_REQUEST_ID;
21 RETURN (TRUE);
22 END AFTERREPORT;
23
24 FUNCTION G_SUB_ACCOUNTGROUPFILTER(SUB_ACCOUNT IN VARCHAR2) RETURN BOOLEAN IS
25 BEGIN
26 IF SUB_ACCOUNT = '' THEN
27 C_THE_END := 'N';
28 ELSE
29 C_THE_END := 'Y';
30 END IF;
31 RETURN (TRUE);
32 RETURN (TRUE);
33 END G_SUB_ACCOUNTGROUPFILTER;
34
35 FUNCTION C_PRT_MESSAGEFORMULA RETURN CHAR IS
36 BEGIN
37 DECLARE
38 L_MESSAGE FND_NEW_MESSAGES.MESSAGE_TEXT%TYPE;
39 BEGIN
40 RETURN NULL;
41 END;
42 END C_PRT_MESSAGEFORMULA;
43
44 FUNCTION G_SUB_ACCOUNT1GROUPFILTER(SUB_ACCOUNT1 IN VARCHAR2) RETURN BOOLEAN IS
45 BEGIN
46 IF SUB_ACCOUNT1 = '' THEN
47 C_THE_END1 := 'N';
48 ELSE
49 C_THE_END1 := 'Y';
50 END IF;
51 RETURN (TRUE);
52 END G_SUB_ACCOUNT1GROUPFILTER;
53
54 FUNCTION G_SUB_ACCOUNT2GROUPFILTER(SUB_ACCOUNT2 IN VARCHAR2) RETURN BOOLEAN IS
55 BEGIN
56 IF SUB_ACCOUNT2 = '' THEN
57 C_THE_END2 := 'N';
58 ELSE
59 C_THE_END2 := 'Y';
60 END IF;
61 RETURN (TRUE);
62 END G_SUB_ACCOUNT2GROUPFILTER;
63
64 FUNCTION C_THE_END_P RETURN VARCHAR2 IS
65 BEGIN
66 RETURN C_THE_END;
67 END C_THE_END_P;
68
69 FUNCTION C_THE_END1_P RETURN VARCHAR2 IS
70 BEGIN
71 RETURN C_THE_END1;
72 END C_THE_END1_P;
73
74 FUNCTION CP_PROFILE_P RETURN VARCHAR2 IS
75 BEGIN
76 RETURN CP_PROFILE;
77 END CP_PROFILE_P;
78
79 FUNCTION C_THE_END2_P RETURN VARCHAR2 IS
80 BEGIN
81 RETURN C_THE_END2;
82 END C_THE_END2_P;
83
84 END CE_CECLEXER_XMLP_PKG;
85