[Home] [Help]
PACKAGE BODY: APPS.CE_CEXTRXCD_XMLP_PKG
Source
1 PACKAGE BODY CE_CEXTRXCD_XMLP_PKG AS
2 /* $Header: CEXTRXCDB.pls 120.0 2007/12/28 07:58: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 C_COMPANY_NAME_HEADER := NULL;
12 EXCEPTION
13 WHEN OTHERS THEN
14 SET_NAME('CE'
15 ,'CE_LOOKUP_ERR');
16 L_MESSAGE := GET;
17 RAISE_APPLICATION_ERROR(-20101
18 ,NULL);
19 END;
20 BEGIN
21 IF (P_BANK_ACCOUNT_ID IS NULL) THEN
22 SELECT
23 MEANING,
24 MEANING,
25 MEANING,
26 MEANING,
27 MEANING
28 INTO
29 C_BANK_ACCOUNT_NAME
30 ,C_BANK_ACCOUNT_NUM
31 ,C_BANK_NAME
32 ,C_BANK_BRANCH_NAME
33 ,C_BANK_CURRENCY_CODE
34 FROM
35 CE_LOOKUPS
36 WHERE LOOKUP_TYPE = 'LITERAL'
37 AND LOOKUP_CODE = 'ALL';
38 ELSE
39 SELECT
40 A.BANK_ACCOUNT_NAME,
41 A.BANK_ACCOUNT_NUM,
42 B.BANK_NAME,
43 B.BANK_BRANCH_NAME,
44 A.CURRENCY_CODE
45 INTO
46 C_BANK_ACCOUNT_NAME
47 ,C_BANK_ACCOUNT_NUM
48 ,C_BANK_NAME
49 ,C_BANK_BRANCH_NAME
50 ,C_BANK_CURRENCY_CODE
51 FROM
52 CE_BANK_BRANCHES_V B,
53 CE_BANK_ACCTS_GT_V A
54 WHERE B.BRANCH_PARTY_ID = A.BANK_BRANCH_ID
55 AND A.BANK_ACCOUNT_ID = P_BANK_ACCOUNT_ID;
56 END IF;
57 EXCEPTION
58 WHEN OTHERS THEN
59 SET_NAME('CE'
60 ,'CE_INVALID_BANK_ACC');
61 L_MESSAGE := GET;
62 RAISE_APPLICATION_ERROR(-20101
63 ,NULL);
64 END;
65 IF (P_DEBUG_MODE = 'Y') THEN
66 NULL;
67 END IF;
68 END;
69 RETURN (TRUE);
70 END BEFOREREPORT;
71 FUNCTION AFTERREPORT RETURN BOOLEAN IS
72 BEGIN
73 BEGIN
74 NULL;
75 END;
76 RETURN (TRUE);
77 END AFTERREPORT;
78 FUNCTION G_BANK_ACCOUNTGROUPFILTER(TYPE_DSP IN VARCHAR2) RETURN BOOLEAN IS
79 BEGIN
80 IF (TYPE_DSP = '') THEN
81 C_THE_END := 'N';
82 ELSE
83 C_THE_END := 'Y';
84 END IF;
85 RETURN (TRUE);
86 RETURN (TRUE);
87 END G_BANK_ACCOUNTGROUPFILTER;
88 FUNCTION C_DATEFORMATFORMULA(C_DATEFORMAT IN VARCHAR2) RETURN VARCHAR2 IS
89 BEGIN
90 RETURN (C_DATEFORMAT);
91 END C_DATEFORMATFORMULA;
92 FUNCTION C_THE_END_P RETURN VARCHAR2 IS
93 BEGIN
94 RETURN C_THE_END;
95 END C_THE_END_P;
96 FUNCTION C_BANK_ACCOUNT_NAME_P RETURN VARCHAR2 IS
97 BEGIN
98 RETURN C_BANK_ACCOUNT_NAME;
99 END C_BANK_ACCOUNT_NAME_P;
100 FUNCTION C_BANK_ACCOUNT_NUM_P RETURN VARCHAR2 IS
101 BEGIN
102 RETURN C_BANK_ACCOUNT_NUM;
103 END C_BANK_ACCOUNT_NUM_P;
104 FUNCTION C_BANK_NAME_P RETURN VARCHAR2 IS
105 BEGIN
106 RETURN C_BANK_NAME;
107 END C_BANK_NAME_P;
108 FUNCTION C_BANK_BRANCH_NAME_P RETURN VARCHAR2 IS
109 BEGIN
110 RETURN C_BANK_BRANCH_NAME;
111 END C_BANK_BRANCH_NAME_P;
112 FUNCTION C_BANK_CURRENCY_CODE_P RETURN VARCHAR2 IS
113 BEGIN
114 RETURN C_BANK_CURRENCY_CODE;
115 END C_BANK_CURRENCY_CODE_P;
116 FUNCTION C_COMPANY_NAME_HEADER_P RETURN VARCHAR2 IS
117 BEGIN
118 RETURN C_COMPANY_NAME_HEADER;
119 END C_COMPANY_NAME_HEADER_P;
120 PROCEDURE SET_NAME(APPLICATION IN VARCHAR2
121 ,NAME IN VARCHAR2) IS
122 BEGIN
123 begin FND_MESSAGE.SET_NAME(APPLICATION, NAME); end;
124 -- STPROC.BIND_I(APPLICATION);
125 -- STPROC.BIND_I(NAME);
126 -- STPROC.EXECUTE;
127 END SET_NAME;
128 PROCEDURE INIT_SECURITY IS
129 BEGIN
130 begin cep_standard.init_security; end;
131 -- STPROC.EXECUTE;
132 END INIT_SECURITY;
133 FUNCTION GET RETURN VARCHAR2 IS
134 X0 VARCHAR2(2000);
135 BEGIN
136 begin
137 X0 := FND_MESSAGE.GET; end;
138 -- STPROC.BIND_O(X0);
139 --STPROC.EXECUTE;
140 --STPROC.RETRIEVE(1 ,X0);
141 RETURN X0;
142 END GET;
143 /*
144 PROCEDURE SET_TOKEN(TOKEN IN VARCHAR2
145 ,VALUE IN VARCHAR2
146 ,TRANSLATE IN BOOLEAN) IS
147 BEGIN
148 STPROC.INIT('declare TRANSLATE BOOLEAN; begin TRANSLATE := sys.diutil.int_to_bool(:TRANSLATE); FND_MESSAGE.SET_TOKEN(:TOKEN, :VALUE, TRANSLATE); end;');
149 STPROC.BIND_I(TRANSLATE);
150 STPROC.BIND_I(TOKEN);
151 STPROC.BIND_I(VALUE);
152 STPROC.EXECUTE;
153 END SET_TOKEN;
154 PROCEDURE RETRIEVE(MSGOUT OUT NOCOPY VARCHAR2) IS
155 BEGIN
156 STPROC.INIT('begin FND_MESSAGE.RETRIEVE(:MSGOUT); end;');
157 STPROC.BIND_O(MSGOUT);
158 STPROC.EXECUTE;
159 STPROC.RETRIEVE(1
160 ,MSGOUT);
161 END RETRIEVE;
162 PROCEDURE CLEAR IS
163 BEGIN
164 STPROC.INIT('begin FND_MESSAGE.CLEAR; end;');
165 STPROC.EXECUTE;
166 END CLEAR;
167 FUNCTION GET_STRING(APPIN IN VARCHAR2
168 ,NAMEIN IN VARCHAR2) RETURN VARCHAR2 IS
169 X0 VARCHAR2(2000);
170 BEGIN
171 STPROC.INIT('begin :X0 := FND_MESSAGE.GET_STRING(:APPIN, :NAMEIN); end;');
172 STPROC.BIND_O(X0);
173 STPROC.BIND_I(APPIN);
174 STPROC.BIND_I(NAMEIN);
175 STPROC.EXECUTE;
176 STPROC.RETRIEVE(1
177 ,X0);
178 RETURN X0;
179 END GET_STRING;
180 FUNCTION GET_ENCODED RETURN VARCHAR2 IS
181 X0 VARCHAR2(2000);
182 BEGIN
183 STPROC.INIT('begin :X0 := FND_MESSAGE.GET_ENCODED; end;');
184 STPROC.BIND_O(X0);
185 STPROC.EXECUTE;
186 STPROC.RETRIEVE(1
187 ,X0);
188 RETURN X0;
189 END GET_ENCODED;
190 PROCEDURE PARSE_ENCODED(ENCODED_MESSAGE IN VARCHAR2
191 ,APP_SHORT_NAME OUT NOCOPY VARCHAR2
192 ,MESSAGE_NAME OUT NOCOPY VARCHAR2) IS
193 BEGIN
194 STPROC.INIT('begin FND_MESSAGE.PARSE_ENCODED(:ENCODED_MESSAGE, :APP_SHORT_NAME, :MESSAGE_NAME); end;');
195 STPROC.BIND_I(ENCODED_MESSAGE);
196 STPROC.BIND_O(APP_SHORT_NAME);
197 STPROC.BIND_O(MESSAGE_NAME);
198 STPROC.EXECUTE;
199 STPROC.RETRIEVE(2
200 ,APP_SHORT_NAME);
201 STPROC.RETRIEVE(3
202 ,MESSAGE_NAME);
203 END PARSE_ENCODED;
204 PROCEDURE SET_ENCODED(ENCODED_MESSAGE IN VARCHAR2) IS
205 BEGIN
206 STPROC.INIT('begin FND_MESSAGE.SET_ENCODED(:ENCODED_MESSAGE); end;');
207 STPROC.BIND_I(ENCODED_MESSAGE);
208 STPROC.EXECUTE;
209 END SET_ENCODED;
210 PROCEDURE RAISE_ERROR IS
211 BEGIN
212 STPROC.INIT('begin FND_MESSAGE.RAISE_ERROR; end;');
213 STPROC.EXECUTE;
214 END RAISE_ERROR;
215 PROCEDURE DEBUG(LINE IN VARCHAR2) IS
216 BEGIN
217 STPROC.INIT('begin CEP_STANDARD.DEBUG(:LINE); end;');
218 STPROC.BIND_I(LINE);
219 STPROC.EXECUTE;
220 END DEBUG;
221 PROCEDURE ENABLE_DEBUG IS
222 BEGIN
223 STPROC.INIT('begin CEP_STANDARD.ENABLE_DEBUG; end;');
224 STPROC.EXECUTE;
225 END ENABLE_DEBUG;
226 PROCEDURE DISABLE_DEBUG IS
227 BEGIN
228 STPROC.INIT('begin CEP_STANDARD.DISABLE_DEBUG; end;');
229 STPROC.EXECUTE;
230 END DISABLE_DEBUG;
231 FUNCTION GET_WINDOW_SESSION_TITLE RETURN VARCHAR2 IS
232 X0 VARCHAR2(2000);
233 BEGIN
234 STPROC.INIT('begin :X0 := CEP_STANDARD.GET_WINDOW_SESSION_TITLE; end;');
235 STPROC.BIND_O(X0);
236 STPROC.EXECUTE;
237 STPROC.RETRIEVE(1
238 ,X0);
239 RETURN X0;
240 END GET_WINDOW_SESSION_TITLE;
241 FUNCTION GET_EFFECTIVE_DATE(P_BANK_ACCOUNT_ID IN NUMBER
242 ,P_TRX_CODE IN VARCHAR2
243 ,P_RECEIPT_DATE IN DATE) RETURN DATE IS
244 X0 DATE;
245 BEGIN
246 STPROC.INIT('begin :X0 := CEP_STANDARD.GET_EFFECTIVE_DATE(:P_BANK_ACCOUNT_ID, :P_TRX_CODE, :P_RECEIPT_DATE); end;');
247 STPROC.BIND_O(X0);
248 STPROC.BIND_I(P_BANK_ACCOUNT_ID);
249 STPROC.BIND_I(P_TRX_CODE);
250 STPROC.BIND_I(P_RECEIPT_DATE);
251 STPROC.EXECUTE;
252 STPROC.RETRIEVE(1
253 ,X0);
254 RETURN X0;
255 END GET_EFFECTIVE_DATE;
256 */
257 END CE_CEXTRXCD_XMLP_PKG;
258