[Home] [Help]
PACKAGE BODY: APPS.CE_CEJEEXER_XMLP_PKG
Source
1 PACKAGE BODY CE_CEJEEXER_XMLP_PKG AS
2 /* $Header: CEJEEXERB.pls 120.0 2007/12/28 07:51:32 abraghun noship $ */
3 FUNCTION BEFOREREPORT RETURN BOOLEAN IS
4 L_MESSAGE FND_NEW_MESSAGES.MESSAGE_TEXT%TYPE;
5 BEGIN
6 P_CONC_REQUEST_ID := FND_GLOBAL.CONC_REQUEST_ID;
7 CEP_STANDARD.INIT_SECURITY;
8 BEGIN
9 P_CONC_REQUEST_ID := FND_GLOBAL.CONC_REQUEST_ID;
10
11 select SUBSTR(argument1,INSTR(argument1,'=',1)+1,LENGTH(argument1)),
12 SUBSTR(argument2,INSTR(argument2,'=',1)+1,LENGTH(argument2)),
13 SUBSTR(argument3,INSTR(argument3,'=',1)+1,LENGTH(argument3)),
14 SUBSTR(argument4,INSTR(argument4,'=',1)+1,LENGTH(argument4)),
15 SUBSTR(argument5,INSTR(argument5,'=',1)+1,LENGTH(argument5)),
16 SUBSTR(argument6,INSTR(argument6,'=',1)+1,LENGTH(argument6)),
17 SUBSTR(argument7,INSTR(argument7,'=',1)+1,LENGTH(argument7))
18 into
19 P_REQUEST_ID,
20 P_BANK_BRANCH_ID,
21 P_BANK_ACCOUNT_ID,
22 P_STAT_NUMBER_FROM,
23 P_STAT_NUMBER_TO,
24 P_STAT_DATE_FROM,
25 P_STAT_DATE_TO
26 from FND_CONCURRENT_REQUESTS
27 where request_id=P_CONC_REQUEST_ID;
28
29 ZP_STAT_DATE_FROM := to_char(P_STAT_DATE_FROM,'DD-MON-YYYY');
30 ZP_STAT_DATE_TO := to_char(P_STAT_DATE_TO,'DD-MON-YYYY');
31
32
33
34 /*
35 'P_REQUEST_ID=' || g_request_id,
36 'P_BANK_BRANCH_ID=' || g_p_bank_branch_id,
37 'P_BANK_ACCOUNT_ID=' || g_p_bank_account_id,
38 'P_STAT_NUMBER_FROM=' || g_p_statement_number_from,
39 'P_STAT_NUMBER_TO='||g_p_statement_number_to,
40 'P_STAT_DATE_FROM=' || g_p_statement_date_from,
41 'P_STAT_DATE_TO=
42
43 */
44
45
46 SELECT
47 L.MEANING
48 INTO C_ALL_TRANSLATION
49 FROM
50 CE_LOOKUPS L
51 WHERE L.LOOKUP_TYPE = 'LITERAL'
52 AND L.LOOKUP_CODE = 'ALL';
53 C_COMPANY_NAME_HEADER := SUBSTR(CEP_STANDARD.GET_WINDOW_SESSION_TITLE
54 ,1
55 ,80);
56 EXCEPTION
57 WHEN OTHERS THEN
58 FND_MESSAGE.SET_NAME('CE'
59 ,'CE_PURGE_NO_SOB');
60 L_MESSAGE := FND_MESSAGE.GET;
61 RAISE_APPLICATION_ERROR(-20101
62 ,NULL);
63 END;
64 IF (P_BANK_BRANCH_ID IS NOT NULL) THEN
65 BEGIN
66 SELECT
67 ABB.BANK_BRANCH_NAME
68 INTO C_BANK_BRANCH_NAME_DSP
69 FROM
70 CE_BANK_BRANCHES_V ABB
71 WHERE ABB.BRANCH_PARTY_ID = P_BANK_BRANCH_ID;
72 EXCEPTION
73 WHEN OTHERS THEN
74 FND_MESSAGE.SET_NAME('CE'
75 ,'CE_INVALID_BANK_BRANCH');
76 L_MESSAGE := FND_MESSAGE.GET;
77 RAISE_APPLICATION_ERROR(-20101
78 ,NULL);
79 END;
80 IF (P_BANK_ACCOUNT_ID IS NOT NULL) THEN
81 BEGIN
82 SELECT
83 ABA.BANK_ACCOUNT_NUM,
84 ABA.CURRENCY_CODE
85 INTO C_BANK_ACCOUNT_NUM_DSP,C_BANK_CURRENCY_CODE_DSP
86 FROM
87 CE_BANK_ACCTS_GT_V ABA
88 WHERE ABA.BANK_ACCOUNT_ID = P_BANK_ACCOUNT_ID
89 AND ABA.ACCOUNT_CLASSIFICATION = 'INTERNAL';
90 EXCEPTION
91 WHEN OTHERS THEN
92 FND_MESSAGE.SET_NAME('CE'
93 ,'CE_INVALID_BANK_ACC');
94 L_MESSAGE := FND_MESSAGE.GET;
95 RAISE_APPLICATION_ERROR(-20101
96 ,NULL);
97 END;
98 ELSE
99 C_BANK_ACCOUNT_NUM_DSP := ' -';
100 C_BANK_CURRENCY_CODE_DSP := ' -';
101 END IF;
102 ELSE
103 C_BANK_BRANCH_NAME_DSP := C_ALL_TRANSLATION;
104 C_BANK_CURRENCY_CODE_DSP := C_ALL_TRANSLATION;
105 END IF;
106 RETURN (TRUE);
107 END BEFOREREPORT;
108
109 FUNCTION AFTERREPORT RETURN BOOLEAN IS
110 BEGIN
111 DELETE FROM CE_JE_MESSAGES
112 WHERE REQUEST_ID = P_REQUEST_ID;
113 COMMIT;
114 RETURN (TRUE);
115 END AFTERREPORT;
116
117 FUNCTION C_DATEFORMATFORMULA(C_DATEFORMAT IN VARCHAR2) RETURN CHAR IS
118 BEGIN
119 RETURN (C_DATEFORMAT);
120 END C_DATEFORMATFORMULA;
121
122 FUNCTION C_MESSAGE_DSPFORMULA(ERROR IN VARCHAR2) RETURN CHAR IS
123 L_MESSAGE FND_NEW_MESSAGES.MESSAGE_TEXT%TYPE;
124 BEGIN
125 FND_MESSAGE.SET_ENCODED(ERROR);
126 L_MESSAGE := FND_MESSAGE.GET;
127 IF L_MESSAGE IS NULL THEN
128 FND_MESSAGE.SET_NAME('CE'
129 ,ERROR);
130 L_MESSAGE := FND_MESSAGE.GET;
131 END IF;
132 RETURN (L_MESSAGE);
133 RETURN NULL;
134 END C_MESSAGE_DSPFORMULA;
135
136 FUNCTION C_ALL_TRANSLATION_P RETURN VARCHAR2 IS
137 BEGIN
138 RETURN C_ALL_TRANSLATION;
139 END C_ALL_TRANSLATION_P;
140
141 FUNCTION C_BANK_BRANCH_NAME_DSP_P RETURN VARCHAR2 IS
142 BEGIN
143 RETURN C_BANK_BRANCH_NAME_DSP;
144 END C_BANK_BRANCH_NAME_DSP_P;
145
146 FUNCTION C_BANK_CURRENCY_CODE_DSP_P RETURN VARCHAR2 IS
147 BEGIN
148 RETURN C_BANK_CURRENCY_CODE_DSP;
149 END C_BANK_CURRENCY_CODE_DSP_P;
150
151 FUNCTION C_COMPANY_NAME_HEADER_P RETURN VARCHAR2 IS
152 BEGIN
153 RETURN C_COMPANY_NAME_HEADER;
154 END C_COMPANY_NAME_HEADER_P;
155
156 FUNCTION C_BASE_CURRENCY_CODE_DSP_P RETURN VARCHAR2 IS
157 BEGIN
158 RETURN C_BASE_CURRENCY_CODE_DSP;
159 END C_BASE_CURRENCY_CODE_DSP_P;
160
161 FUNCTION C_BANK_ACCOUNT_NUM_DSP_P RETURN VARCHAR2 IS
162 BEGIN
163 RETURN C_BANK_ACCOUNT_NUM_DSP;
164 END C_BANK_ACCOUNT_NUM_DSP_P;
165
166 END CE_CEJEEXER_XMLP_PKG;
167