1 PACKAGE BODY WSH_WSHRDBSR_XMLP_PKG AS
2 /* $Header: WSHRDBSRB.pls 120.3 2008/02/20 07:31:51 dwkrishn noship $ */
3 FUNCTION BEFOREREPORT RETURN BOOLEAN IS
4 BEGIN
5 BEGIN
6 P_CONC_REQUEST_ID := FND_GLOBAL.CONC_REQUEST_ID;
7 /*SRW.USER_EXIT('FND SRWINIT')*/NULL;
8 EXCEPTION
9 WHEN /*SRW.USER_EXIT_FAILURE*/OTHERS THEN
10 /*SRW.MESSAGE(1
11 ,'Failed FND SRWINIT.')*/NULL;
12 /*RAISE SRW.PROGRAM_ABORT*/RAISE_APPLICATION_ERROR(-20101,null);
13 END;
14 BEGIN
15 DECLARE
16 L_REPORT_NAME VARCHAR2(240);
17 BEGIN
18 SELECT
19 CP.USER_CONCURRENT_PROGRAM_NAME
20 INTO L_REPORT_NAME
21 FROM
22 FND_CONCURRENT_PROGRAMS_VL CP,
23 FND_CONCURRENT_REQUESTS CR
24 WHERE CR.REQUEST_ID = P_CONC_REQUEST_ID
25 AND CP.APPLICATION_ID = CR.PROGRAM_APPLICATION_ID
26 AND CP.CONCURRENT_PROGRAM_ID = CR.CONCURRENT_PROGRAM_ID;
27 RP_REPORT_NAME := L_REPORT_NAME;
28 EXCEPTION
29 WHEN NO_DATA_FOUND THEN
30 RP_REPORT_NAME := 'Backorder Summary Report';
31 END;
32 END;
33 IF P_ORDER_NUM_HIGH IS NOT NULL THEN
34 RP_ORDER_NUM_HIGH := P_ORDER_NUM_HIGH;
35 END IF;
36 IF P_ORDER_NUM_LOW IS NOT NULL THEN
37 RP_ORDER_NUM_LOW := P_ORDER_NUM_LOW;
38 END IF;
39 RETURN (TRUE);
40 END BEFOREREPORT;
41
42 FUNCTION AFTERREPORT RETURN BOOLEAN IS
43 BEGIN
44 BEGIN
45 /*SRW.USER_EXIT('FND SRWEXIT')*/NULL;
46 EXCEPTION
47 WHEN /*SRW.USER_EXIT_FAILURE*/OTHERS THEN
48 /*SRW.MESSAGE(1
49 ,'Failed in SRWEXIT')*/NULL;
50 RAISE;
51 END;
52 RETURN (TRUE);
53 END AFTERREPORT;
54
55 FUNCTION P_ORGANIZATION_IDVALIDTRIGGER RETURN BOOLEAN IS
56 BEGIN
57 RETURN (TRUE);
58 END P_ORGANIZATION_IDVALIDTRIGGER;
59
60 FUNCTION P_ITEM_FLEX_CODEVALIDTRIGGER RETURN BOOLEAN IS
61 BEGIN
62 RETURN (TRUE);
63 END P_ITEM_FLEX_CODEVALIDTRIGGER;
64
65 FUNCTION AFTERPFORM RETURN BOOLEAN IS
66 BEGIN
67 DECLARE
68 CURSOR STRUCT_NUM(FLEX_CODE IN VARCHAR2) IS
69 SELECT
70 ID_FLEX_NUM
71 FROM
72 FND_ID_FLEX_STRUCTURES
73 WHERE ID_FLEX_CODE = FLEX_CODE;
74 STRUCT_NUMBER NUMBER;
75 BEGIN
76 BEGIN
77 P_CONC_REQUEST_ID := FND_GLOBAL.CONC_REQUEST_ID;
78 /*SRW.USER_EXIT('FND SRWINIT')*/NULL;
79 EXCEPTION
80 WHEN /*SRW.USER_EXIT_FAILURE*/OTHERS THEN
81 /*SRW.MESSAGE(1000
82 ,'Failed in After Form trigger')*/NULL;
83 RETURN (FALSE);
84 END;
85 IF P_ORGANIZATION_ID IS NOT NULL THEN
86 LP_ORGANIZATION_ID := ' and wdd.organization_id = :p_organization_id ';
87 END IF;
88 IF P_ORDER_NUM_HIGH IS NOT NULL AND P_ORDER_NUM_LOW IS NOT NULL THEN
89 LP_HEADER_NUMBER := ' AND to_number(wdd.source_header_number) between :p_order_num_low' || ' and :p_order_num_high ';
90 ELSIF (P_ORDER_NUM_LOW IS NOT NULL) THEN
91 LP_HEADER_NUMBER := ' and to_number(wdd.source_header_number) >= :p_order_num_low ';
92 ELSIF (P_ORDER_NUM_HIGH IS NOT NULL) THEN
93 LP_HEADER_NUMBER := ' and to_number(wdd.source_header_number) <= :p_order_num_high ';
94 END IF;
95 IF (P_TRANSACTION_TYPE_ID IS NOT NULL) THEN
96 BEGIN
97 SELECT
98 NAME
99 INTO RP_ORDER_TYPE_NAME
100 FROM
101 OE_TRXT_TYPES_NOORGS_VL
102 WHERE TRANSACTION_TYPE_ID = P_TRANSACTION_TYPE_ID;
103 LP_ORDER_TYPE := ' and wdd.source_header_type_id = :p_transaction_type_id ';
104 END;
105 END IF;
106 IF P_ITEM_DISPLAY = 'D' THEN
107 LP_ITEM_DISPLAY_VALUE := 'wdd.item_description';
108 ELSE
109 LP_ITEM_DISPLAY_VALUE := 'to_char(wdd.inventory_item_id)';
110 END IF;
111 OPEN STRUCT_NUM(P_ITEM_FLEX_CODE);
112 FETCH STRUCT_NUM
113 INTO STRUCT_NUMBER;
114 CLOSE STRUCT_NUM;
115 LP_STRUCTURE_NUM := STRUCT_NUMBER;
116 END;
117 RETURN (TRUE);
118 END AFTERPFORM;
119
120 FUNCTION C_SET_LBLFORMULA RETURN VARCHAR2 IS
121 BEGIN
122 DECLARE
123 L_DATE VARCHAR2(11);
124 H_DATE VARCHAR2(11);
125 BEGIN
126 IF P_HEADER_ID_LOW IS NOT NULL OR P_HEADER_ID_HIGH IS NOT NULL THEN
127 DECLARE
128 L_ORDER_NUM_LOW VARCHAR2(80);
129 L_ORDER_NUM_HIGH VARCHAR2(80);
130 BEGIN
131 IF P_HEADER_ID_LOW IS NOT NULL THEN
132 SELECT
133 ORDER_NUMBER
134 INTO L_ORDER_NUM_LOW
135 FROM
136 OE_ORDER_HEADERS_ALL
137 WHERE HEADER_ID = P_HEADER_ID_LOW;
138 END IF;
139 IF P_HEADER_ID_HIGH IS NOT NULL THEN
140 SELECT
141 ORDER_NUMBER
142 INTO L_ORDER_NUM_HIGH
143 FROM
144 OE_ORDER_HEADERS_ALL
145 WHERE HEADER_ID = P_HEADER_ID_HIGH;
146 END IF;
147 RP_ORDER_RANGE := 'From ' || NVL(L_ORDER_NUM_LOW
148 ,' ') || ' To ' || NVL(L_ORDER_NUM_HIGH
149 ,' ');
150 RP_ORDER_NUM_LOW := L_ORDER_NUM_LOW;
151 RP_ORDER_NUM_HIGH := L_ORDER_NUM_HIGH;
152 END;
153 END IF;
154 DECLARE
155 ITEM_DISPLAY_MEANING VARCHAR2(80);
156 BEGIN
157 SELECT
158 MEANING
159 INTO ITEM_DISPLAY_MEANING
160 FROM
161 SO_LOOKUPS
162 WHERE LOOKUP_TYPE = 'ITEM_DISPLAY'
163 AND LOOKUP_CODE = P_ITEM_DISPLAY;
164 RP_FLEX_OR_DESC := ITEM_DISPLAY_MEANING;
165 EXCEPTION
166 WHEN NO_DATA_FOUND THEN
167 RP_FLEX_OR_DESC := NULL;
168 END;
169 IF P_ORGANIZATION_ID IS NOT NULL THEN
170 DECLARE
171 WAREHOUSE_NAME HR_ORGANIZATION_UNITS.NAME%TYPE;
172 BEGIN
173 SELECT
174 NAME
175 INTO WAREHOUSE_NAME
176 FROM
177 HR_ORGANIZATION_UNITS
178 WHERE ORGANIZATION_ID = P_ORGANIZATION_ID;
179 RP_WAREHOUSE := WAREHOUSE_NAME;
180 EXCEPTION
181 WHEN NO_DATA_FOUND THEN
182 RP_WAREHOUSE := NULL;
183 END;
184 END IF;
185 RETURN (1);
186 END;
187 RETURN NULL;
188 END C_SET_LBLFORMULA;
189
190 FUNCTION CF_ITEM_DESCRIPTIONFORMULA(INVENTORY_ITEM_ID1 IN NUMBER
191 ,ORGANIZATION_ID IN NUMBER
192 ,ITEM_DESCRIPTION IN VARCHAR2) RETURN VARCHAR2 IS
193 BEGIN
194 DECLARE
195 CURSOR INVENTORY_LABEL(ID IN NUMBER,ORG_ID IN NUMBER) IS
196 SELECT
197 DESCRIPTION
198 FROM
199 MTL_SYSTEM_ITEMS_VL
200 WHERE INVENTORY_ITEM_ID = ID
201 AND ORGANIZATION_ID = ORG_ID;
202 NAME VARCHAR2(800);
203 BEGIN
204 IF P_ITEM_DISPLAY = 'D' THEN
205 IF INVENTORY_ITEM_ID1 IS NOT NULL THEN
206 OPEN INVENTORY_LABEL(INVENTORY_ITEM_ID1,ORGANIZATION_ID);
207 FETCH INVENTORY_LABEL
208 INTO NAME;
209 CLOSE INVENTORY_LABEL;
210 ELSE
211 NAME := ITEM_DESCRIPTION;
212 END IF;
213 ELSIF P_ITEM_DISPLAY = 'F' THEN
214 NAME := WSH_UTIL_CORE.GET_ITEM_NAME(INVENTORY_ITEM_ID1
215 ,ORGANIZATION_ID
216 ,P_ITEM_FLEX_CODE
217 ,LP_STRUCTURE_NUM);
218 ELSE
219 IF INVENTORY_ITEM_ID1 IS NOT NULL THEN
220 OPEN INVENTORY_LABEL(INVENTORY_ITEM_ID1,ORGANIZATION_ID);
221 FETCH INVENTORY_LABEL
222 INTO NAME;
223 CLOSE INVENTORY_LABEL;
224 ELSE
225 NAME := ITEM_DESCRIPTION;
226 END IF;
227 NAME := WSH_UTIL_CORE.GET_ITEM_NAME(INVENTORY_ITEM_ID1
228 ,ORGANIZATION_ID
229 ,P_ITEM_FLEX_CODE
230 ,LP_STRUCTURE_NUM) || ' ' || NAME;
231 END IF;
232 RETURN NAME;
233 END;
234 RETURN NULL;
235 END CF_ITEM_DESCRIPTIONFORMULA;
236
237 FUNCTION CF_BO_AMTFORMULA(BACKORDERED_QUANTITY IN NUMBER
238 ,UNIT_PRICE IN NUMBER) RETURN NUMBER IS
239 BO_AMT NUMBER;
240 BEGIN
241 BO_AMT := TRUNC((NVL(BACKORDERED_QUANTITY
242 ,0) * NVL(UNIT_PRICE
243 ,0))
244 ,4);
245 RETURN (BO_AMT);
246 END CF_BO_AMTFORMULA;
247
248 FUNCTION CF_SHIPPED_AMTFORMULA(CF_SHIPPED_QTY IN NUMBER
249 ,UNIT_PRICE IN NUMBER) RETURN NUMBER IS
250 SHIPPED_AMT NUMBER;
251 BEGIN
252 SHIPPED_AMT := TRUNC((NVL(CF_SHIPPED_QTY
253 ,0) * NVL(UNIT_PRICE
254 ,0))
255 ,4);
256 RETURN (SHIPPED_AMT);
257 END CF_SHIPPED_AMTFORMULA;
258
259 --FUNCTION CF_WAREHOUSEFORMULA(ORGANIZATION_ID IN NUMBER) RETURN CHAR IS
260 FUNCTION CF_WAREHOUSEFORMULA(ORGANIZATION_ID_V IN NUMBER) RETURN CHAR IS
261 WAREHOUSE_NAME HR_ORGANIZATION_UNITS.NAME%TYPE;
262 BEGIN
263 SELECT
264 NAME
265 INTO WAREHOUSE_NAME
266 FROM
267 HR_ORGANIZATION_UNITS
268 WHERE ORGANIZATION_ID = ORGANIZATION_ID_V;
269 RETURN (WAREHOUSE_NAME);
270 EXCEPTION
271 WHEN NO_DATA_FOUND THEN
272 RETURN (NULL);
273 END CF_WAREHOUSEFORMULA;
274
275 FUNCTION CF_SHIPPED_QTYFORMULA(CURRENCY_CODE_V IN VARCHAR2
276 ,ORGANIZATION_ID_V IN NUMBER
277 ,INVENTORY_ITEM_ID1 IN NUMBER
278 ,SOURCE_HEADER_NUMBER_V IN VARCHAR2
279 ,ORDER_TYPE IN VARCHAR2
280 ,REQUESTED_QUANTITY_UOM_V IN VARCHAR2
281 ,UNIT_PRICE_V IN NUMBER) RETURN NUMBER IS
282 SHP_QTY NUMBER;
283 BEGIN
284 IF CURRENCY_CODE_V IS NOT NULL THEN
285 SELECT
286 SUM(NVL(SHIPPED_QUANTITY
287 ,0))
288 INTO SHP_QTY
289 FROM
290 WSH_DELIVERY_DETAILS
291 WHERE ORGANIZATION_ID = ORGANIZATION_ID_V
292 AND INVENTORY_ITEM_ID = INVENTORY_ITEM_ID1
293 AND SOURCE_HEADER_NUMBER = SOURCE_HEADER_NUMBER_V
294 AND SOURCE_HEADER_TYPE_NAME = ORDER_TYPE
295 AND RELEASED_STATUS = 'C'
296 AND SOURCE_CODE = 'OE'
297 AND REQUESTED_QUANTITY_UOM = REQUESTED_QUANTITY_UOM_V
298 AND CURRENCY_CODE = CURRENCY_CODE_V
299 AND UNIT_PRICE = UNIT_PRICE_V;
300 RETURN (SHP_QTY);
301 ELSE
302 SELECT
303 SUM(NVL(SHIPPED_QUANTITY
304 ,0))
305 INTO SHP_QTY
306 FROM
307 WSH_DELIVERY_DETAILS
308 WHERE ORGANIZATION_ID = ORGANIZATION_ID_V
309 AND INVENTORY_ITEM_ID = INVENTORY_ITEM_ID1
310 AND SOURCE_HEADER_NUMBER = SOURCE_HEADER_NUMBER_V
311 AND SOURCE_HEADER_TYPE_NAME = ORDER_TYPE
312 AND RELEASED_STATUS = 'C'
313 AND SOURCE_CODE = 'OE'
314 AND REQUESTED_QUANTITY_UOM = REQUESTED_QUANTITY_UOM_V
315 AND UNIT_PRICE = UNIT_PRICE_V;
316 RETURN (SHP_QTY);
317 END IF;
318 EXCEPTION
319 WHEN NO_DATA_FOUND THEN
320 RETURN (0);
321 END CF_SHIPPED_QTYFORMULA;
322
323 FUNCTION CF_LAST_SHIPPED_DATEFORMULA(ORGANIZATION_ID IN NUMBER
324 ,SOURCE_HEADER_NUMBER IN VARCHAR2) RETURN DATE IS
325 CURSOR C_LAST_SHIPPED_DATE(P_ORGANIZATION_ID IN NUMBER,P_SOURCE_HEADER_NUMBER IN VARCHAR2) IS
326 SELECT
327 MAX(WTS.ACTUAL_DEPARTURE_DATE) LAST_SHIPPED_DATE
328 FROM
329 WSH_DELIVERY_DETAILS WDD,
330 WSH_DELIVERY_ASSIGNMENTS_V WDA,
331 WSH_DELIVERY_LEGS WDL,
332 WSH_TRIP_STOPS WTS
333 WHERE WDD.RELEASED_STATUS in ( 'C' , 'I' )
334 AND WDD.SOURCE_CODE = 'OE'
335 AND WDD.DELIVERY_DETAIL_ID = WDA.DELIVERY_DETAIL_ID
336 AND NVL(WDD.LINE_DIRECTION
337 ,'O') IN ( 'O' , 'IO' )
338 AND WDA.DELIVERY_ID = wdl.delivery_id (+)
339 AND WDL.PICK_UP_STOP_ID = wts.stop_id (+)
340 AND WDD.ORGANIZATION_ID = P_ORGANIZATION_ID
341 AND WDD.SOURCE_HEADER_NUMBER = P_SOURCE_HEADER_NUMBER;
342 L_LAST_SHIPPED_DATE DATE;
343 BEGIN
344 OPEN C_LAST_SHIPPED_DATE(ORGANIZATION_ID,SOURCE_HEADER_NUMBER);
345 FETCH C_LAST_SHIPPED_DATE
346 INTO L_LAST_SHIPPED_DATE;
347 CLOSE C_LAST_SHIPPED_DATE;
348 RETURN L_LAST_SHIPPED_DATE;
349 END CF_LAST_SHIPPED_DATEFORMULA;
350
351 FUNCTION RP_REPORT_NAME_P RETURN VARCHAR2 IS
352 BEGIN
353 RETURN RP_REPORT_NAME;
354 END RP_REPORT_NAME_P;
355
356 FUNCTION RP_SUB_TITLE_P RETURN VARCHAR2 IS
357 BEGIN
358 RETURN RP_SUB_TITLE;
359 END RP_SUB_TITLE_P;
360
361 FUNCTION RP_COMPANY_NAME_P RETURN VARCHAR2 IS
362 BEGIN
363 RETURN RP_COMPANY_NAME;
364 END RP_COMPANY_NAME_P;
365
366 FUNCTION RP_DATA_FOUND_P RETURN VARCHAR2 IS
367 BEGIN
368 RETURN RP_DATA_FOUND;
369 END RP_DATA_FOUND_P;
370
371 FUNCTION RP_ITEM_FLEX_ALL_SEG_P RETURN VARCHAR2 IS
372 BEGIN
373 RETURN RP_ITEM_FLEX_ALL_SEG;
374 END RP_ITEM_FLEX_ALL_SEG_P;
375
376 FUNCTION RP_ORDER_RANGE_P RETURN VARCHAR2 IS
377 BEGIN
378 RETURN RP_ORDER_RANGE;
379 END RP_ORDER_RANGE_P;
380
381 FUNCTION RP_ORDER_BY_P RETURN VARCHAR2 IS
382 BEGIN
383 RETURN RP_ORDER_BY;
384 END RP_ORDER_BY_P;
385
386 FUNCTION RP_FLEX_OR_DESC_P RETURN VARCHAR2 IS
387 BEGIN
388 RETURN RP_FLEX_OR_DESC;
389 END RP_FLEX_OR_DESC_P;
390
391 FUNCTION RP_WAREHOUSE_P RETURN VARCHAR2 IS
392 BEGIN
393 RETURN RP_WAREHOUSE;
394 END RP_WAREHOUSE_P;
395
396 FUNCTION RP_ORDER_NUM_LOW_P RETURN NUMBER IS
397 BEGIN
398 RETURN RP_ORDER_NUM_LOW;
399 END RP_ORDER_NUM_LOW_P;
400
401 FUNCTION RP_ORDER_NUM_HIGH_P RETURN NUMBER IS
402 BEGIN
403 RETURN RP_ORDER_NUM_HIGH;
404 END RP_ORDER_NUM_HIGH_P;
405
406 PROCEDURE SET_NAME(APPLICATION IN VARCHAR2
407 ,NAME IN VARCHAR2) IS
408 BEGIN
409 /* STPROC.INIT('begin FND_MESSAGE.SET_NAME(:APPLICATION, :NAME); end;');
410 STPROC.BIND_I(APPLICATION);
411 STPROC.BIND_I(NAME);
412 STPROC.EXECUTE;*/null;
413 END SET_NAME;
414
415 PROCEDURE SET_TOKEN(TOKEN IN VARCHAR2
416 ,VALUE IN VARCHAR2
417 ,TRANSLATE IN BOOLEAN) IS
418 BEGIN
419 /*STPROC.INIT('declare TRANSLATE BOOLEAN; begin TRANSLATE := sys.diutil.int_to_bool(:TRANSLATE); FND_MESSAGE.SET_TOKEN(:TOKEN, :VALUE, TRANSLATE); end;');
420 STPROC.BIND_I(TRANSLATE);
421 STPROC.BIND_I(TOKEN);
422 STPROC.BIND_I(VALUE);
423 STPROC.EXECUTE;*/null;
424 END SET_TOKEN;
425
426 PROCEDURE RETRIEVE(MSGOUT OUT NOCOPY VARCHAR2) IS
427 BEGIN
428 /*STPROC.INIT('begin FND_MESSAGE.RETRIEVE(:MSGOUT); end;');
429 STPROC.BIND_O(MSGOUT);
430 STPROC.EXECUTE;
431 STPROC.RETRIEVE(1
432 ,MSGOUT);*/null;
433 END RETRIEVE;
434
435 PROCEDURE CLEAR IS
436 BEGIN
437 /*STPROC.INIT('begin FND_MESSAGE.CLEAR; end;');
438 STPROC.EXECUTE;*/null;
439 END CLEAR;
440
441 FUNCTION GET_STRING(APPIN IN VARCHAR2
442 ,NAMEIN IN VARCHAR2) RETURN VARCHAR2 IS
443 X0 VARCHAR2(2000);
444 BEGIN
445 /* STPROC.INIT('begin :X0 := FND_MESSAGE.GET_STRING(:APPIN, :NAMEIN); end;');
446 STPROC.BIND_O(X0);
447 STPROC.BIND_I(APPIN);
448 STPROC.BIND_I(NAMEIN);
449 STPROC.EXECUTE;
450 STPROC.RETRIEVE(1
451 ,X0);*/null;
452 RETURN X0;
453 END GET_STRING;
454
455 FUNCTION GET_NUMBER(APPIN IN VARCHAR2
456 ,NAMEIN IN VARCHAR2) RETURN NUMBER IS
457 X0 NUMBER;
458 BEGIN
459 /*STPROC.INIT('begin :X0 := FND_MESSAGE.GET_NUMBER(:APPIN, :NAMEIN); end;');
460 STPROC.BIND_O(X0);
461 STPROC.BIND_I(APPIN);
462 STPROC.BIND_I(NAMEIN);
463 STPROC.EXECUTE;
464 STPROC.RETRIEVE(1
465 ,X0);*/null;
466 RETURN X0;
467 END GET_NUMBER;
468
469 FUNCTION GET RETURN VARCHAR2 IS
470 X0 VARCHAR2(2000);
471 BEGIN
472 /*STPROC.INIT('begin :X0 := FND_MESSAGE.GET; end;');
473 STPROC.BIND_O(X0);
474 STPROC.EXECUTE;
475 STPROC.RETRIEVE(1
476 ,X0);*/null;
477 RETURN X0;
478 END GET;
479
480 FUNCTION GET_ENCODED RETURN VARCHAR2 IS
481 X0 VARCHAR2(2000);
482 BEGIN
483 /*STPROC.INIT('begin :X0 := FND_MESSAGE.GET_ENCODED; end;');
484 STPROC.BIND_O(X0);
485 STPROC.EXECUTE;
486 STPROC.RETRIEVE(1
487 ,X0);*/null;
488 RETURN X0;
489 END GET_ENCODED;
490
491 PROCEDURE PARSE_ENCODED(ENCODED_MESSAGE IN VARCHAR2
492 ,APP_SHORT_NAME OUT NOCOPY VARCHAR2
493 ,MESSAGE_NAME OUT NOCOPY VARCHAR2) IS
494 BEGIN
495 /* STPROC.INIT('begin FND_MESSAGE.PARSE_ENCODED(:ENCODED_MESSAGE, :APP_SHORT_NAME, :MESSAGE_NAME); end;');
496 STPROC.BIND_I(ENCODED_MESSAGE);
497 STPROC.BIND_O(APP_SHORT_NAME);
498 STPROC.BIND_O(MESSAGE_NAME);
499 STPROC.EXECUTE;
500 STPROC.RETRIEVE(2
501 ,APP_SHORT_NAME);
502 STPROC.RETRIEVE(3
503 ,MESSAGE_NAME);*/null;
504 END PARSE_ENCODED;
505
506 PROCEDURE SET_ENCODED(ENCODED_MESSAGE IN VARCHAR2) IS
507 BEGIN
508 /*STPROC.INIT('begin FND_MESSAGE.SET_ENCODED(:ENCODED_MESSAGE); end;');
509 STPROC.BIND_I(ENCODED_MESSAGE);
510 STPROC.EXECUTE;*/null;
511 END SET_ENCODED;
512
513 PROCEDURE RAISE_ERROR IS
514 BEGIN
515 /*STPROC.INIT('begin FND_MESSAGE.RAISE_ERROR; end;');
516 STPROC.EXECUTE;*/null;
517 END RAISE_ERROR;
518
519 END WSH_WSHRDBSR_XMLP_PKG;
520