[Home] [Help]
PACKAGE BODY: APPS.CE_CEFCERR_XMLP_PKG
Source
1 PACKAGE BODY CE_CEFCERR_XMLP_PKG AS
2 /* $Header: CEFCERRBB.pls 120.0 2007/12/28 10:33: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 BEGIN
10 SELECT
11 L.MEANING
12 INTO
13 C_ALL_TRANSLATION
14 FROM
15 CE_LOOKUPS L
16 WHERE L.LOOKUP_TYPE = 'LITERAL'
17 AND L.LOOKUP_CODE = 'ALL';
18 EXCEPTION
19 WHEN OTHERS THEN
20 NULL;
21 END;
22 IF (P_FORECAST_ID IS NOT NULL) THEN
23 BEGIN
24 SELECT
25 CFH.NAME,
26 CF.FORECAST_CURRENCY,
27 CF.NAME
28 INTO
29 C_TEMPLATE_NAME
30 ,C_FORECAST_CURRENCY
31 ,C_FORECAST_NAME
32 FROM
33 CE_FORECAST_HEADERS CFH,
34 CE_FORECASTS CF,
35 CE_LOOKUPS L
36 WHERE L.LOOKUP_TYPE = 'FORECAST_AGING_TYPE'
37 AND L.LOOKUP_CODE = CFH.AGING_TYPE
38 AND CFH.FORECAST_HEADER_ID = CF.FORECAST_HEADER_ID
39 AND CF.FORECAST_ID = P_FORECAST_ID;
40 EXCEPTION
41 WHEN OTHERS THEN
42 SET_NAME('CE'
43 ,'CE_FC_NO_HEADER');
44 FND_MESSAGE.SET_NAME('CE', 'CE_FC_NO_HEADER');
45 L_MESSAGE := GET;
46 RAISE_APPLICATION_ERROR(-20101
47 ,NULL);
48 END;
49 ELSE
50 C_TEMPLATE_NAME := C_ALL_TRANSLATION;
51 C_FORECAST_NAME := C_ALL_TRANSLATION;
52 END IF;
53 END;
54 RETURN (TRUE);
55 END BEFOREREPORT;
56
57 FUNCTION AFTERREPORT RETURN BOOLEAN IS
58 BEGIN
59 BEGIN
60 NULL;
61 END;
62 RETURN (TRUE);
63 END AFTERREPORT;
64
65 FUNCTION C_PRT_MESSAGE_NAMEFORMULA(APPLICATION_SHORT_NAME IN VARCHAR2
66 ,MESSAGE_NAME IN VARCHAR2) RETURN VARCHAR2 IS
67 BEGIN
68 DECLARE
69 L_MESSAGE FND_NEW_MESSAGES.MESSAGE_TEXT%TYPE;
70 BEGIN
71 SET_NAME(APPLICATION_SHORT_NAME
72 ,MESSAGE_NAME);
73 FND_MESSAGE.SET_NAME(APPLICATION_SHORT_NAME, MESSAGE_NAME);
74 L_MESSAGE := GET;
75 RETURN (L_MESSAGE);
76 END;
77 RETURN NULL;
78 END C_PRT_MESSAGE_NAMEFORMULA;
79
80 FUNCTION G_INTERFACEGROUPFILTER(FORECAST_NAME IN VARCHAR2) RETURN BOOLEAN IS
81 BEGIN
82 IF FORECAST_NAME = '' THEN
83 C_THE_END := 'N';
84 ELSE
85 C_THE_END := 'Y';
86 END IF;
87 RETURN (TRUE);
88 RETURN (TRUE);
89 END G_INTERFACEGROUPFILTER;
90
91 FUNCTION C_DATEFORMATFORMULA RETURN VARCHAR2 IS
92 BEGIN
93 RETURN null;
94 END C_DATEFORMATFORMULA;
95
96 FUNCTION C_THE_END_P RETURN VARCHAR2 IS
97 BEGIN
98 RETURN C_THE_END;
99 END C_THE_END_P;
100
101 FUNCTION C_ALL_TRANSLATION_P RETURN VARCHAR2 IS
102 BEGIN
103 RETURN C_ALL_TRANSLATION;
104 END C_ALL_TRANSLATION_P;
105
106 FUNCTION C_FORECAST_CURRENCY_P RETURN VARCHAR2 IS
107 BEGIN
108 RETURN C_FORECAST_CURRENCY;
109 END C_FORECAST_CURRENCY_P;
110
111 FUNCTION C_AGING_TYPE_DSP_P RETURN VARCHAR2 IS
112 BEGIN
113 RETURN C_AGING_TYPE_DSP;
114 END C_AGING_TYPE_DSP_P;
115
116 FUNCTION C_FORECAST_NAME_P RETURN VARCHAR2 IS
117 BEGIN
118 RETURN C_FORECAST_NAME;
119 END C_FORECAST_NAME_P;
120
121 FUNCTION C_TEMPLATE_NAME_P RETURN VARCHAR2 IS
122 BEGIN
123 RETURN C_TEMPLATE_NAME;
124 END C_TEMPLATE_NAME_P;
125
126 FUNCTION C_AGING_TYPE_P RETURN VARCHAR2 IS
127 BEGIN
128 RETURN C_AGING_TYPE;
129 END C_AGING_TYPE_P;
130
131 PROCEDURE SET_NAME(APPLICATION IN VARCHAR2
132 ,NAME IN VARCHAR2) IS
133 BEGIN
134 /* STPROC.INIT('begin FND_MESSAGE.SET_NAME(:APPLICATION, :NAME); end;');
135 STPROC.BIND_I(APPLICATION);
136 STPROC.BIND_I(NAME);
137 STPROC.EXECUTE;*/
138 FND_MESSAGE.SET_NAME(APPLICATION, NAME);
139 END SET_NAME;
140
141 PROCEDURE SET_TOKEN(TOKEN IN VARCHAR2
142 ,VALUE IN VARCHAR2
143 ,TRANSLATE IN number) IS
144
145 BEGIN
146 declare
147 TRANSLATE_1 boolean;
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 begin
154 TRANSLATE_1 := sys.diutil.int_to_bool(TRANSLATE);
155 end;
156 END SET_TOKEN;
157
158 PROCEDURE RETRIEVE(MSGOUT OUT NOCOPY VARCHAR2) IS
159 BEGIN
160 /* STPROC.INIT('begin FND_MESSAGE.RETRIEVE(:MSGOUT); end;');
161 STPROC.BIND_O(MSGOUT);
162 STPROC.EXECUTE;
163 STPROC.RETRIEVE(1
164 ,MSGOUT);*/
165 FND_MESSAGE.RETRIEVE(MSGOUT);
166 END RETRIEVE;
167
168 PROCEDURE CLEAR IS
169 BEGIN
170 /* STPROC.INIT('begin FND_MESSAGE.CLEAR; end;');
171 STPROC.EXECUTE;*/
172 FND_MESSAGE.CLEAR;
173 END CLEAR;
174
175 FUNCTION GET_STRING(APPIN IN VARCHAR2
176 ,NAMEIN IN VARCHAR2) RETURN VARCHAR2 IS
177 X0 VARCHAR2(2000);
178 BEGIN
179 /* STPROC.INIT('begin :X0 := FND_MESSAGE.GET_STRING(:APPIN, :NAMEIN); end;');
180 STPROC.BIND_O(X0);
181 STPROC.BIND_I(APPIN);
182 STPROC.BIND_I(NAMEIN);
183 STPROC.EXECUTE;
184 STPROC.RETRIEVE(1
185 ,X0);*/
186 X0 := FND_MESSAGE.GET_STRING(APPIN, NAMEIN);
187 RETURN X0;
188 END GET_STRING;
189
190 FUNCTION GET_NUMBER(APPIN IN VARCHAR2
191 ,NAMEIN IN VARCHAR2) RETURN NUMBER IS
192 X0 NUMBER;
193 BEGIN
194 /* STPROC.INIT('begin :X0 := FND_MESSAGE.GET_NUMBER(:APPIN, :NAMEIN); end;');
195 STPROC.BIND_O(X0);
196 STPROC.BIND_I(APPIN);
197 STPROC.BIND_I(NAMEIN);
198 STPROC.EXECUTE;
199 STPROC.RETRIEVE(1
200 ,X0);*/
201 X0 := FND_MESSAGE.GET_NUMBER(APPIN, NAMEIN);
202 RETURN X0;
203 END GET_NUMBER;
204
205 FUNCTION GET RETURN VARCHAR2 IS
206 X0 VARCHAR2(2000);
207 BEGIN
208 /* STPROC.INIT('begin :X0 := FND_MESSAGE.GET; end;');
209 STPROC.BIND_O(X0);
210 STPROC.EXECUTE;
211 STPROC.RETRIEVE(1
212 ,X0);*/
213 X0 := FND_MESSAGE.GET;
214 RETURN X0;
215 END GET;
216
217 FUNCTION GET_ENCODED RETURN VARCHAR2 IS
218 X0 VARCHAR2(2000);
219 BEGIN
220 /* STPROC.INIT('begin :X0 := FND_MESSAGE.GET_ENCODED; end;');
221 STPROC.BIND_O(X0);
222 STPROC.EXECUTE;
223 STPROC.RETRIEVE(1
224 ,X0);*/
225 X0 := FND_MESSAGE.GET_ENCODED;
226 RETURN X0;
227 END GET_ENCODED;
228
229 PROCEDURE PARSE_ENCODED(ENCODED_MESSAGE IN VARCHAR2
230 ,APP_SHORT_NAME OUT NOCOPY VARCHAR2
231 ,MESSAGE_NAME OUT NOCOPY VARCHAR2) IS
232 BEGIN
233 /* STPROC.INIT('begin FND_MESSAGE.PARSE_ENCODED(:ENCODED_MESSAGE, :APP_SHORT_NAME, :MESSAGE_NAME); end;');
234 STPROC.BIND_I(ENCODED_MESSAGE);
235 STPROC.BIND_O(APP_SHORT_NAME);
236 STPROC.BIND_O(MESSAGE_NAME);
237 STPROC.EXECUTE;
238 STPROC.RETRIEVE(2
239 ,APP_SHORT_NAME);
240 STPROC.RETRIEVE(3
241 ,MESSAGE_NAME);*/
242 FND_MESSAGE.PARSE_ENCODED(ENCODED_MESSAGE, APP_SHORT_NAME, MESSAGE_NAME);
243 END PARSE_ENCODED;
244
245 PROCEDURE SET_ENCODED(ENCODED_MESSAGE IN VARCHAR2) IS
246 BEGIN
247 /*STPROC.INIT('begin FND_MESSAGE.SET_ENCODED(:ENCODED_MESSAGE); end;');
248 STPROC.BIND_I(ENCODED_MESSAGE);
249 STPROC.EXECUTE;*/
250 FND_MESSAGE.SET_ENCODED(ENCODED_MESSAGE);
251 END SET_ENCODED;
252
253 PROCEDURE RAISE_ERROR IS
254 BEGIN
255 /* STPROC.INIT('begin FND_MESSAGE.RAISE_ERROR; end;');
256 STPROC.EXECUTE;*/
257 FND_MESSAGE.RAISE_ERROR;
258 END RAISE_ERROR;
259
260 END CE_CEFCERR_XMLP_PKG;
261