1 PACKAGE BODY INV_INVMVTEX_XMLP_PKG AS
2 /* $Header: INVMVTEXB.pls 120.1 2008/02/21 11:12:47 dwkrishn noship $ */
3 FUNCTION BEFOREREPORT RETURN BOOLEAN IS
4 BEGIN
5 P_CONC_REQUEST_ID := FND_GLOBAL.CONC_REQUEST_ID;
6 /*SRW.USER_EXIT('FND SRWINIT')*/NULL;
7 DECLARE
8 L_RETURN_STATUS VARCHAR2(100);
9 L_MSG_COUNT NUMBER;
10 L_MSG_DATA VARCHAR2(1000);
11 L_INIT_MSG_LIST VARCHAR2(100);
12 L_TP_TYPE VARCHAR2(200);
13 BEGIN
14 INV_MGD_MVT_VALIDATE_PROC.VALIDATE_TRANSACTION(P_API_VERSION_NUMBER => 1
15 ,P_INIT_MSG_LIST => L_INIT_MSG_LIST
16 ,P_LEGAL_ENTITY_ID => P_LEGAL_ENTITY_ID
17 ,P_ECONOMIC_ZONE_CODE => P_ECONOMIC_ZONE_CODE
18 ,P_USAGE_TYPE => P_USAGE_TYPE
19 ,P_STAT_TYPE => P_STAT_TYPE
20 ,P_PERIOD_NAME => P_PERIOD_NAME
21 ,P_DOCUMENT_SOURCE_TYPE => P_DOCUMENT_SOURCE_TYPE
22 ,X_RETURN_STATUS => L_RETURN_STATUS
23 ,X_MSG_COUNT => L_MSG_COUNT
24 ,X_MSG_DATA => L_MSG_DATA);
25 /*SRW.MESSAGE(200
26 ,' OUT INV_MGD_MVT_VALIDATE_PROC.Validate_transaction')*/NULL;
27 /*SRW.MESSAGE(300
28 ,' x_return_status=' || L_RETURN_STATUS)*/NULL;
29 EXCEPTION
30 WHEN OTHERS THEN
31 /*SRW.MESSAGE(1
32 ,'INV_MGD_MVT_VALIDATE_PROC.Validate_transaction Unexpected Failure. Failed in BEFORE REPORT TRIGGER')*/NULL;
33 RETURN (FALSE);
34 END;
35 RETURN (TRUE);
36 END BEFOREREPORT;
37
38 FUNCTION AFTERREPORT RETURN BOOLEAN IS
39 BEGIN
40 BEGIN
41 /*SRW.USER_EXIT('FND SRWEXIT')*/NULL;
42 EXCEPTION
43 WHEN /*SRW.USER_EXIT_FAILURE*/OTHERS THEN
44 /*SRW.MESSAGE(1
45 ,'Failed in AFTER REPORT TRIGGER')*/NULL;
46 RETURN (FALSE);
47 END;
48 RETURN (TRUE);
49 END AFTERREPORT;
50
51 FUNCTION AFTERPFORM RETURN BOOLEAN IS
52 BEGIN
53 RETURN (TRUE);
54 END AFTERPFORM;
55
56 FUNCTION CF_ACTION_TEXT1FORMULA(COLUMN_NAME1 IN VARCHAR2) RETURN NUMBER IS
57 BEGIN
58 IF COLUMN_NAME1 = 'COMMODITY_CODE' THEN
59 FND_MESSAGE.SET_NAME('INV'
60 ,'INV_MGD_MVT_EXCP_CC_ACTION');
61 ELSIF COLUMN_NAME1 = 'UNIT_WEIGHT' THEN
62 FND_MESSAGE.SET_NAME('INV'
63 ,'INV_MGD_MVT_EXCP_UNW_ACTION');
64 END IF;
65 CP_ACTION_TEXT1 := FND_MESSAGE.GET;
66 RETURN (0);
67 END CF_ACTION_TEXT1FORMULA;
68
69 FUNCTION CF_ACTION_TEXT2FORMULA RETURN NUMBER IS
70 BEGIN
71 FND_MESSAGE.SET_NAME('INV'
72 ,'INV_MGD_MVT_EXCP_EXR_ACTION');
73 CP_ACTION_TEXT3 := FND_MESSAGE.GET;
74 RETURN (0);
75 END CF_ACTION_TEXT2FORMULA;
76
77 FUNCTION CF_ACTION_TEXT4FORMULA RETURN NUMBER IS
78 BEGIN
79 FND_MESSAGE.SET_NAME('INV'
80 ,'INV_MGD_MVT_EXCP_VAT_ACTION');
81 CP_ACTION_TEXT4 := FND_MESSAGE.GET;
82 RETURN (0);
83 END CF_ACTION_TEXT4FORMULA;
84
85 --FUNCTION CF_ACTION_TEXT5FORMULA RETURN NUMBER IS
86 FUNCTION CF_ACTION_TEXT5FORMULA RETURN VARCHAR2 IS
87 BEGIN
88 FND_MESSAGE.SET_NAME('INV'
89 ,'INV_MGD_MVT_EXCP_GEN_ACTION');
90 CP_ACTION_TEXT5 := FND_MESSAGE.GET;
91 --RETURN (0);
92 RETURN (CP_ACTION_TEXT5);
93 END CF_ACTION_TEXT5FORMULA;
94
95 FUNCTION CF_ERROR_TEXT1FORMULA(ERROR_NAME IN VARCHAR2) RETURN NUMBER IS
96 BEGIN
97 IF ERROR_NAME = 'INV_MGD_MVT_MIS_COMC' THEN
98 FND_MESSAGE.SET_NAME('INV'
99 ,'INV_MGD_MVT_MIS_COMC');
100 ELSIF ERROR_NAME = 'INV_MGD_MVT_MIS_UNW' THEN
101 FND_MESSAGE.SET_NAME('INV'
102 ,'INV_MGD_MVT_MIS_UNW');
103 END IF;
104 CP_ERROR_TEXT1 := FND_MESSAGE.GET;
105 RETURN (0);
106 END CF_ERROR_TEXT1FORMULA;
107
108 FUNCTION CF_ERROR_TEXT2FORMULA RETURN NUMBER IS
109 BEGIN
110 FND_MESSAGE.SET_NAME('INV'
111 ,'INV_MGD_MVT_MIS_UOM');
112 CP_ERROR_TEXT2 := FND_MESSAGE.GET;
113 RETURN (0);
114 END CF_ERROR_TEXT2FORMULA;
115
116 FUNCTION CF_ERROR_TEXT3FORMULA RETURN NUMBER IS
117 BEGIN
118 FND_MESSAGE.SET_NAME('INV'
119 ,'INV_MGD_MVT_MIS_EXR');
120 CP_ERROR_TEXT3 := FND_MESSAGE.GET;
121 RETURN (0);
122 END CF_ERROR_TEXT3FORMULA;
123
124 FUNCTION CF_ERROR_TEXT4FORMULA RETURN NUMBER IS
125 BEGIN
126 FND_MESSAGE.SET_NAME('INV'
127 ,'INV_MGD_MVT_MIS_TP_VAT');
128 CP_ERROR_TEXT4 := FND_MESSAGE.GET;
129 RETURN (0);
130 END CF_ERROR_TEXT4FORMULA;
131
132 --FUNCTION CF_ERROR_TEXT5FORMULA RETURN NUMBER IS
133 FUNCTION CF_ERROR_TEXT5FORMULA RETURN VARCHAR2 IS
134 BEGIN
135 FND_MESSAGE.SET_NAME('INV'
136 ,'INV_MGD_MVT_INVAL_VAL');
137 CP_ERROR_TEXT5 := FND_MESSAGE.GET;
138 --RETURN (0);
139 RETURN (CP_ERROR_TEXT5);
140 END CF_ERROR_TEXT5FORMULA;
141
142 --FUNCTION CF_ERROR_TEXT6FORMULA RETURN NUMBER IS
143 FUNCTION CF_ERROR_TEXT6FORMULA RETURN VARCHAR2 IS
144 BEGIN
145 FND_MESSAGE.SET_NAME('INV'
146 ,'INV_MGD_MVT_MIS_INV');
147 CP_ERROR_TEXT7 := FND_MESSAGE.GET;
148 --RETURN (0);
149 RETURN (CP_ERROR_TEXT7);
150 END CF_ERROR_TEXT6FORMULA;
151
152 FUNCTION CF_ACTION_TEXT2FORMULA0014 RETURN NUMBER IS
153 BEGIN
154 FND_MESSAGE.SET_NAME('INV'
155 ,'INV_MGD_MVT_EXCP_UOM_ACTION');
156 CP_ACTION_TEXT2 := FND_MESSAGE.GET;
157 RETURN (0);
158 END CF_ACTION_TEXT2FORMULA0014;
159
160 FUNCTION CF_GET_ZONE_NAMEFORMULA RETURN NUMBER IS
161 BEGIN
162 SELECT
163 ZONE_DISPLAY_NAME
164 INTO CP_ZONE_DISPLAY_NAME
165 FROM
166 MTL_ECONOMIC_ZONES_VL
167 WHERE ZONE_CODE = P_ECONOMIC_ZONE_CODE;
168 RETURN (0);
169 EXCEPTION
170 WHEN OTHERS THEN
171 NULL;
172 END CF_GET_ZONE_NAMEFORMULA;
173
174 FUNCTION CF_ERROR_TEXT6FORMULA0006 RETURN NUMBER IS
175 BEGIN
176 FND_MESSAGE.SET_NAME('INV'
177 ,'INV_MGD_MVT_MIS_ITEM');
178 CP_ERROR_TEXT6 := FND_MESSAGE.GET;
179 RETURN (0);
180 END CF_ERROR_TEXT6FORMULA0006;
181
182 FUNCTION CF_ACTION_TEXT6FORMULA RETURN NUMBER IS
183 BEGIN
184 FND_MESSAGE.SET_NAME('INV'
185 ,'INV_MGD_MVT_EXCP_ITEM_ACTION');
186 CP_ACTION_TEXT6 := FND_MESSAGE.GET;
187 RETURN (0);
188 END CF_ACTION_TEXT6FORMULA;
189
190 FUNCTION CF_GET_USAGE_TYPEFORMULA RETURN NUMBER IS
191 BEGIN
192 SELECT
193 MEANING
194 INTO CP_USAGE_TYPE_NAME
195 FROM
196 FND_LOOKUPS
197 WHERE LOOKUP_TYPE = 'MVT_USAGE_TYPES'
198 AND LOOKUP_CODE = P_USAGE_TYPE;
199 RETURN (0);
200 END CF_GET_USAGE_TYPEFORMULA;
201
202 FUNCTION CF_GET_STAT_TYPEFORMULA RETURN NUMBER IS
203 BEGIN
204 SELECT
205 MEANING
206 INTO CP_STAT_TYPE_NAME
207 FROM
208 FND_LOOKUPS
209 WHERE LOOKUP_TYPE = 'MVT_STAT_TYPES'
210 AND LOOKUP_CODE = P_STAT_TYPE;
211 RETURN (0);
212 END CF_GET_STAT_TYPEFORMULA;
213
214 FUNCTION CF_GET_WARN_FLAGFORMULA RETURN NUMBER IS
215 BEGIN
216 SELECT
217 MEANING
218 INTO CP_DISPLAY_WARN_FLAG
219 FROM
220 FND_LOOKUPS
221 WHERE LOOKUP_TYPE = 'YES_NO'
222 AND LOOKUP_CODE = P_DISPLAY_WARN_FLAG;
223 RETURN (0);
224 END CF_GET_WARN_FLAGFORMULA;
225
226 FUNCTION CF_GET_DOCUMENT_SOURCE_TYPEFOR RETURN NUMBER IS
227 BEGIN
228 IF P_DOCUMENT_SOURCE_TYPE IS NOT NULL THEN
229 SELECT
230 MEANING
231 INTO CP_SOURCE_DOCUMENT_TYPE
232 FROM
233 FND_LOOKUPS
234 WHERE LOOKUP_TYPE = 'MVT_SOURCE_DOCUMENT_TYPES'
235 AND LOOKUP_CODE = P_DOCUMENT_SOURCE_TYPE;
236 ELSE
237 CP_SOURCE_DOCUMENT_TYPE := ' ';
238 END IF;
239 RETURN (0);
240 END CF_GET_DOCUMENT_SOURCE_TYPEFOR;
241
242 FUNCTION CP_ACTION_TEXT1_P RETURN VARCHAR2 IS
243 BEGIN
244 RETURN CP_ACTION_TEXT1;
245 END CP_ACTION_TEXT1_P;
246
247 FUNCTION CP_ERROR_TEXT1_P RETURN VARCHAR2 IS
248 BEGIN
249 RETURN CP_ERROR_TEXT1;
250 END CP_ERROR_TEXT1_P;
251
252 FUNCTION CP_ACTION_TEXT5_P RETURN VARCHAR2 IS
253 BEGIN
254 RETURN CP_ACTION_TEXT5;
255 END CP_ACTION_TEXT5_P;
256
257 FUNCTION CP_ERROR_TEXT5_P RETURN VARCHAR2 IS
258 BEGIN
259 RETURN CP_ERROR_TEXT5;
260 END CP_ERROR_TEXT5_P;
261
262 FUNCTION CP_ERROR_TEXT7_P RETURN VARCHAR2 IS
263 BEGIN
264 RETURN CP_ERROR_TEXT7;
265 END CP_ERROR_TEXT7_P;
266
267 FUNCTION CP_ACTION_TEXT3_P RETURN VARCHAR2 IS
268 BEGIN
269 RETURN CP_ACTION_TEXT3;
270 END CP_ACTION_TEXT3_P;
271
272 FUNCTION CP_ERROR_TEXT3_P RETURN VARCHAR2 IS
273 BEGIN
274 RETURN CP_ERROR_TEXT3;
275 END CP_ERROR_TEXT3_P;
276
277 FUNCTION CP_ACTION_TEXT2_P RETURN VARCHAR2 IS
278 BEGIN
279 RETURN CP_ACTION_TEXT2;
280 END CP_ACTION_TEXT2_P;
281
282 FUNCTION CP_ERROR_TEXT2_P RETURN VARCHAR2 IS
283 BEGIN
284 RETURN CP_ERROR_TEXT2;
285 END CP_ERROR_TEXT2_P;
286
287 FUNCTION CP_ACTION_TEXT4_P RETURN VARCHAR2 IS
288 BEGIN
289 RETURN CP_ACTION_TEXT4;
290 END CP_ACTION_TEXT4_P;
291
292 FUNCTION CP_ERROR_TEXT4_P RETURN VARCHAR2 IS
293 BEGIN
294 RETURN CP_ERROR_TEXT4;
295 END CP_ERROR_TEXT4_P;
296
297 FUNCTION CP_ERROR_TEXT6_P RETURN VARCHAR2 IS
298 BEGIN
299 RETURN CP_ERROR_TEXT6;
300 END CP_ERROR_TEXT6_P;
301
302 FUNCTION CP_ACTION_TEXT6_P RETURN VARCHAR2 IS
303 BEGIN
304 RETURN CP_ACTION_TEXT6;
305 END CP_ACTION_TEXT6_P;
306
307 FUNCTION CP_ZONE_DISPLAY_NAME_P RETURN VARCHAR2 IS
308 BEGIN
309 RETURN CP_ZONE_DISPLAY_NAME;
310 END CP_ZONE_DISPLAY_NAME_P;
311
312 FUNCTION CP_USAGE_TYPE_NAME_P RETURN VARCHAR2 IS
313 BEGIN
314 RETURN CP_USAGE_TYPE_NAME;
315 END CP_USAGE_TYPE_NAME_P;
316
317 FUNCTION CP_STAT_TYPE_NAME_P RETURN VARCHAR2 IS
318 BEGIN
319 RETURN CP_STAT_TYPE_NAME;
320 END CP_STAT_TYPE_NAME_P;
321
322 FUNCTION CP_DISPLAY_WARN_FLAG_P RETURN VARCHAR2 IS
323 BEGIN
324 RETURN CP_DISPLAY_WARN_FLAG;
325 END CP_DISPLAY_WARN_FLAG_P;
326
327 FUNCTION CP_SOURCE_DOCUMENT_TYPE_P RETURN VARCHAR2 IS
328 BEGIN
329 RETURN CP_SOURCE_DOCUMENT_TYPE;
330 END CP_SOURCE_DOCUMENT_TYPE_P;
331
332 END INV_INVMVTEX_XMLP_PKG;
333