4 BEGIN
1 PACKAGE BODY BOM_CSTRDJVA_XMLP_PKG AS
2 /* $Header: CSTRDJVAB.pls 120.0 2007/12/24 09:55:31 dwkrishn noship $ */
3 FUNCTION DISP_CURRENCYFORMULA RETURN VARCHAR2 IS
5 IF LP_EXCHANGE_RATE = 1 THEN
6 RETURN (REPORT_OPTION || ' (' || CURRENCY_CODE || ')');
7 ELSE
8 RETURN (REPORT_OPTION || ' (' || CURRENCY_CODE || '@' || TO_CHAR(LP_EXCHANGE_RATE) || ')');
9 END IF;
10 END DISP_CURRENCYFORMULA;
11
12 FUNCTION ORG_NAME_HDRFORMULA RETURN VARCHAR2 IS
13 BEGIN
14 RETURN (ORG_NAME);
15 END ORG_NAME_HDRFORMULA;
16
17 FUNCTION TOT_CST_INC_STD_CSTFORMULA(TOT_REQ_JOB_STD IN NUMBER
18 ,TOT_RES_STD_COST IN NUMBER
19 ,TOT_RES_OVR_STD_COST IN NUMBER) RETURN NUMBER IS
20 BEGIN
21 /*SRW.REFERENCE(TOT_REQ_JOB_STD)*/NULL;
22 /*SRW.REFERENCE(TOT_RES_STD_COST)*/NULL;
23 /*SRW.REFERENCE(TOT_RES_OVR_STD_COST)*/NULL;
24 RETURN (NVL(TOT_REQ_JOB_STD
25 ,0) + NVL(TOT_RES_STD_COST
26 ,0) + NVL(TOT_RES_OVR_STD_COST
27 ,0));
28 END TOT_CST_INC_STD_CSTFORMULA;
29
30 FUNCTION TOT_CST_INC_APP_CSTFORMULA(TOT_ACT_ISS_STD IN NUMBER
31 ,TOT_RES_APP_COST IN NUMBER
32 ,TOT_RES_OVR_APP_COST IN NUMBER) RETURN NUMBER IS
33 BEGIN
34 /*SRW.REFERENCE(TOT_ACT_ISS_STD)*/NULL;
35 /*SRW.REFERENCE(TOT_RES_APP_COST)*/NULL;
36 /*SRW.REFERENCE(TOT_RES_OVR_APP_COST)*/NULL;
37 RETURN (NVL(TOT_ACT_ISS_STD
38 ,0) + NVL(TOT_RES_APP_COST
39 ,0) + NVL(TOT_RES_OVR_APP_COST
40 ,0));
41 END TOT_CST_INC_APP_CSTFORMULA;
42
43 FUNCTION TOT_CST_INC_EFF_VARFORMULA(TOT_USG_VAR IN NUMBER
44 ,TOT_EFF_VAR IN NUMBER) RETURN NUMBER IS
45 BEGIN
46 /*SRW.REFERENCE(TOT_USG_VAR)*/NULL;
47 /*SRW.REFERENCE(TOT_EFF_VAR)*/NULL;
48 RETURN (NVL(TOT_USG_VAR
49 ,0) + NVL(TOT_EFF_VAR
50 ,0));
51 END TOT_CST_INC_EFF_VARFORMULA;
52
53 FUNCTION TOT_JOB_BALANCE_CSTFORMULA(TOT_CST_INC_APP_CST IN NUMBER
54 ,TOT_SCP_AND_COMP_CST IN NUMBER
55 ,TOT_CLOSE_TRX_CST IN NUMBER) RETURN NUMBER IS
56 BEGIN
57 /*SRW.REFERENCE(TOT_CST_INC_APP_CST)*/NULL;
58 /*SRW.REFERENCE(TOT_SCP_AND_COMP_CST)*/NULL;
59 /*SRW.REFERENCE(TOT_CLOSE_TRX_CST)*/NULL;
60 RETURN (NVL(TOT_CST_INC_APP_CST
61 ,0) + NVL(TOT_SCP_AND_COMP_CST
62 ,0) + NVL(TOT_CLOSE_TRX_CST
63 ,0));
64 END TOT_JOB_BALANCE_CSTFORMULA;
65
66 FUNCTION BEFOREREPORT RETURN BOOLEAN IS
67 BEGIN
68 DECLARE
69 AVG_ORG_COUNT NUMBER;
70 BEGIN
74 WHERE fifst.application_id = 401
71 SELECT fifst.id_flex_num
72 into p_item_flex_num
73 FROM fnd_id_flex_structures fifst
75 AND fifst.id_flex_code = 'MSTK'
76 AND fifst.enabled_flag = 'Y'
77 AND fifst.freeze_flex_definition_flag = 'Y'
78 and rownum<2;
79
80 LP_CURRENCY_CODE := P_CURRENCY_CODE;
81 LP_EXCHANGE_RATE := P_EXCHANGE_RATE;
82 SELECT
83 COUNT(*)
84 INTO AVG_ORG_COUNT
85 FROM
86 MTL_PARAMETERS
87 WHERE ORGANIZATION_ID = ORG_ID
88 AND PRIMARY_COST_METHOD IN ( 2 , 5 , 6 );
89 IF AVG_ORG_COUNT < 1 THEN
90 SET_NAME('BOM'
91 ,'CST_AVG_ORG_REPORT_ONLY');
92 /*SRW.MESSAGE(24200
93 ,GET)*/NULL;
94 /*RAISE SRW.PROGRAM_ABORT*/RAISE_APPLICATION_ERROR(-20101,null);
95 END IF;
96 IF P_JOB_SELECTION = 1 THEN
97 SELECT
98 COST_GROUP
99 INTO SELECTED_COST_GROUP
100 FROM
101 CST_COST_GROUPS
102 WHERE COST_GROUP_ID = P_COST_GROUP_ID;
103 END IF;
104 IF LP_CURRENCY_CODE IS NULL THEN
105 SELECT
106 OOD.ORGANIZATION_NAME,
107 SOB.CURRENCY_CODE,
108 FC.EXTENDED_PRECISION,
109 FC.PRECISION,
110 RPT_SORT_OPT.MEANING,
111 RPT_RUN_OPT.MEANING,
112 ML1.MEANING,
113 ML2.MEANING
114 INTO ORG_NAME,CURRENCY_CODE,EXT_PRECISION,PRECISION,REPORT_SORT,REPORT_OPTION,C_INCLUDE_BULK,C_INCLUDE_VENDOR
115 FROM
116 FND_CURRENCIES FC,
117 GL_SETS_OF_BOOKS SOB,
118 ORG_ORGANIZATION_DEFINITIONS OOD,
119 MFG_LOOKUPS RPT_SORT_OPT,
120 MFG_LOOKUPS RPT_RUN_OPT,
121 MFG_LOOKUPS ML1,
122 MFG_LOOKUPS ML2
123 WHERE OOD.ORGANIZATION_ID = ORG_ID
124 AND OOD.SET_OF_BOOKS_ID = SOB.SET_OF_BOOKS_ID
125 AND SOB.CURRENCY_CODE = FC.CURRENCY_CODE
126 AND RPT_SORT_OPT.LOOKUP_TYPE = 'CST_WIP_REPORT_SORT'
127 AND RPT_SORT_OPT.LOOKUP_CODE = REPORT_SORT_OPT
128 AND RPT_RUN_OPT.LOOKUP_TYPE = 'CST_WIP_VALUE_REPORT_TYPE'
129 AND RPT_RUN_OPT.LOOKUP_CODE = REPORT_RUN_OPT
130 AND ML1.LOOKUP_CODE = NVL(P_INCLUDE_BULK
131 ,2)
132 AND ML1.LOOKUP_TYPE = 'SYS_YES_NO'
133 AND ML2.LOOKUP_CODE = NVL(P_INCLUDE_VENDOR
134 ,2)
135 AND ML2.LOOKUP_TYPE = 'SYS_YES_NO';
136 LP_CURRENCY_CODE := CURRENCY_CODE;
137 LP_EXCHANGE_RATE := 1;
138 ELSE
139 SELECT
140 OOD.ORGANIZATION_NAME,
141 FC.CURRENCY_CODE,
142 FC.EXTENDED_PRECISION,
143 FC.PRECISION,
144 RPT_SORT_OPT.MEANING,
145 RPT_RUN_OPT.MEANING,
146 ML1.MEANING,
147 ML2.MEANING
148 INTO ORG_NAME,CURRENCY_CODE,EXT_PRECISION,PRECISION,REPORT_SORT,REPORT_OPTION,C_INCLUDE_BULK,C_INCLUDE_VENDOR
149 FROM
150 FND_CURRENCIES FC,
151 GL_SETS_OF_BOOKS SOB,
152 ORG_ORGANIZATION_DEFINITIONS OOD,
153 MFG_LOOKUPS RPT_SORT_OPT,
154 MFG_LOOKUPS RPT_RUN_OPT,
155 MFG_LOOKUPS ML1,
156 MFG_LOOKUPS ML2
157 WHERE OOD.ORGANIZATION_ID = ORG_ID
158 AND OOD.SET_OF_BOOKS_ID = SOB.SET_OF_BOOKS_ID
159 AND FC.CURRENCY_CODE = LP_CURRENCY_CODE
160 AND RPT_SORT_OPT.LOOKUP_TYPE = 'CST_WIP_REPORT_SORT'
161 AND RPT_SORT_OPT.LOOKUP_CODE = REPORT_SORT_OPT
162 AND RPT_RUN_OPT.LOOKUP_TYPE = 'CST_WIP_VALUE_REPORT_TYPE'
163 AND RPT_RUN_OPT.LOOKUP_CODE = REPORT_RUN_OPT
164 AND ML1.LOOKUP_CODE = NVL(P_INCLUDE_BULK
165 ,2)
166 AND ML1.LOOKUP_TYPE = 'SYS_YES_NO'
167 AND ML2.LOOKUP_CODE = NVL(P_INCLUDE_VENDOR
168 ,2)
172 ,'INVALID_EXCHANGE_RATE');
169 AND ML2.LOOKUP_TYPE = 'SYS_YES_NO';
170 IF LP_EXCHANGE_RATE IS NULL THEN
171 SET_NAME('AR'
173 SET_TOKEN('CC'
174 ,LP_CURRENCY_CODE
175 ,FALSE);
176 /*SRW.MESSAGE(100
177 ,GET)*/NULL;
178 /*RAISE SRW.PROGRAM_ABORT*/RAISE_APPLICATION_ERROR(-20101,null);
179 END IF;
180 END IF;
181 IF CLASS_TYPE IS NULL THEN
182 CLASS_TYPE_NAME := '';
183 ELSE
184 SELECT
185 CLS_TYPE.MEANING
186 INTO CLASS_TYPE_NAME
187 FROM
188 MFG_LOOKUPS CLS_TYPE
189 WHERE CLS_TYPE.LOOKUP_TYPE = 'WIP_CLASS_TYPE'
193 STATUS_TYPE_NAME := '';
190 AND CLS_TYPE.LOOKUP_CODE = CLASS_TYPE;
191 END IF;
192 IF STATUS_TYPE IS NULL THEN
194 ELSE
195 SELECT
196 STS_TYPE.MEANING
197 INTO STATUS_TYPE_NAME
198 FROM
199 MFG_LOOKUPS STS_TYPE
200 WHERE STS_TYPE.LOOKUP_TYPE = 'WIP_JOB_STATUS'
201 AND STS_TYPE.LOOKUP_CODE = STATUS_TYPE;
202 END IF;
203 IF (JOB_FROM IS NULL) AND (JOB_TO IS NULL) AND (P_COST_GROUP_ID IS NULL) THEN
204 WHERE_JOB := '1 = 1';
205 ELSIF (JOB_FROM IS NULL) AND (JOB_TO IS NULL) AND (P_COST_GROUP_ID IS NOT NULL) THEN
206 WHERE_JOB := 'CCG.COST_GROUP_ID = ' || TO_CHAR(P_COST_GROUP_ID) || ' ';
207 ELSIF (JOB_FROM IS NULL) AND (JOB_TO IS NOT NULL) AND (P_COST_GROUP_ID IS NULL) THEN
208 WHERE_JOB := 'wp.wip_entity_name <= ''' || JOB_TO || '''';
209 ELSIF (JOB_FROM IS NULL) AND (JOB_TO IS NOT NULL) AND (P_COST_GROUP_ID IS NOT NULL) THEN
210 WHERE_JOB := 'wp.wip_entity_name <= ''' || JOB_TO || ''' AND CCG.COST_GROUP_ID = ' || TO_CHAR(P_COST_GROUP_ID) || ' ';
211 ELSIF (JOB_FROM IS NOT NULL) AND (JOB_TO IS NULL) AND (P_COST_GROUP_ID IS NULL) THEN
212 WHERE_JOB := 'wp.wip_entity_name >= ''' || JOB_FROM || '''';
213 ELSIF (JOB_FROM IS NOT NULL) AND (JOB_TO IS NULL) AND (P_COST_GROUP_ID IS NOT NULL) THEN
214 WHERE_JOB := 'wp.wip_entity_name >= ''' || JOB_FROM || ''' AND CCG.COST_GROUP_ID = ' || TO_CHAR(P_COST_GROUP_ID) || ' ';
215 ELSE
216 WHERE_JOB := 'wp.wip_entity_name BETWEEN ''' || JOB_FROM || ''' AND ''' || JOB_TO || '''';
217 END IF;
218 IF (CLASS_FROM IS NULL) AND (CLASS_TO IS NULL) THEN
219 WHERE_CLASS := '1 = 1';
220 ELSIF (CLASS_FROM IS NULL) AND (CLASS_TO IS NOT NULL) THEN
221 WHERE_CLASS := 'wdj.class_code <= ''' || CLASS_TO || '''';
222 ELSIF (CLASS_FROM IS NOT NULL) AND (CLASS_TO IS NULL) THEN
223 WHERE_CLASS := 'wdj.class_code >= ''' || CLASS_FROM || '''';
224 ELSE
225 WHERE_CLASS := 'wdj.class_code BETWEEN ''' || CLASS_FROM || ''' AND ''' || CLASS_TO || '''';
226 END IF;
227 IF REPORT_SORT_OPT = 1 THEN
228 REPORT_SORT_BY_BEF := 'wp.wip_entity_name ';
229 REPORT_SORT_BY_AFT := ' ';
230 ELSIF REPORT_SORT_OPT = 2 THEN
231 REPORT_SORT_BY_BEF := ' ';
232 REPORT_SORT_BY_AFT := ', wp.wip_entity_name';
233 ELSIF REPORT_SORT_OPT = 3 THEN
234 REPORT_SORT_BY_BEF := 'wdj.class_code ';
235 REPORT_SORT_BY_AFT := ', wp.wip_entity_name';
236 END IF;
237 P_CONC_REQUEST_ID := FND_GLOBAL.CONC_REQUEST_ID;
238 /*SRW.USER_EXIT('FND SRWINIT')*/NULL;
239 /*SRW.USER_EXIT('FND FLEXSQL CODE="MSTK" SET=":ORG_ID"
240 APPL_SHORT_NAME="INV" OUTPUT=":P_FLEXDATA_ITEM"
241 MODE="SELECT" DISPLAY="ALL"
242 TABLEALIAS="MSI"')*/NULL;
243 IF (P_FROM_ITEM IS NOT NULL) THEN
244 IF (P_TO_ITEM IS NOT NULL) THEN
245 NULL;
246 ELSE
247 NULL;
248 END IF;
249 ELSE
250 IF (P_TO_ITEM IS NOT NULL) THEN
251 NULL;
252 ELSE
253 P_WHERE_ITEM := '1 = 1';
254 END IF;
255 END IF;
256 END;
257 RETURN (TRUE);
258 END BEFOREREPORT;
259
260 FUNCTION AFTERREPORT RETURN BOOLEAN IS
261 BEGIN
262 /*SRW.USER_EXIT('FND SRWEXIT')*/NULL;
263 RETURN (TRUE);
264 END AFTERREPORT;
265
266 FUNCTION AFTERPFORM RETURN BOOLEAN IS
267 BEGIN
268 IF P_TO_ITEM IS NOT NULL OR P_FROM_ITEM IS NOT NULL THEN
269 P_OUTER := ' ';
270 END IF;
271 IF SUBMITTED_BY = 'SRS' THEN
272 P_SUBMISSION_TYPE := 'and wac.class_type = :class_type';
273 ELSE
274 P_SUBMISSION_TYPE := 'and wac.class_type IN (1, 3, 6) and
275 wp.wip_entity_id in
276 (select wip_entity_id
277 from wip_dj_close_temp
278 where group_id = :GROUP_ID)';
279 END IF;
280 RETURN (TRUE);
281 END AFTERPFORM;
282
283 FUNCTION C_MAT_DISPFORMULA(WIP_SUPPLY_TYPE IN NUMBER
284 ,QTY_ISSUED IN NUMBER) RETURN NUMBER IS
285 BEGIN
286 IF (WIP_SUPPLY_TYPE <> 4 AND WIP_SUPPLY_TYPE <> 5) THEN
287 RETURN (1);
288 ELSE
289 IF (WIP_SUPPLY_TYPE = 4) THEN
290 IF (P_INCLUDE_BULK = 1) THEN
291 RETURN (1);
292 ELSE
293 IF (QTY_ISSUED <> 0) THEN
294 RETURN (1);
295 ELSE
296 RETURN (0);
297 END IF;
298 END IF;
299 ELSIF (WIP_SUPPLY_TYPE = 5) THEN
300 IF (P_INCLUDE_VENDOR = 1) THEN
301 RETURN (1);
302 ELSE
303 IF (QTY_ISSUED <> 0) THEN
304 RETURN (1);
305 ELSE
306 RETURN (0);
307 END IF;
308 END IF;
309 END IF;
310 END IF;
311 RETURN NULL;
312 END C_MAT_DISPFORMULA;
313
314 FUNCTION GROUP_IDVALIDTRIGGER RETURN BOOLEAN IS
315 BEGIN
316 RETURN (TRUE);
317 END GROUP_IDVALIDTRIGGER;
318
319 FUNCTION REPORT_SORT_P RETURN VARCHAR2 IS
320 BEGIN
321 RETURN REPORT_SORT;
322 END REPORT_SORT_P;
323
324 FUNCTION WHERE_CLASS_P RETURN VARCHAR2 IS
325 BEGIN
326 RETURN WHERE_CLASS;
327 END WHERE_CLASS_P;
328
332 END REPORT_SORT_BY_AFT_P;
329 FUNCTION REPORT_SORT_BY_AFT_P RETURN VARCHAR2 IS
330 BEGIN
331 RETURN REPORT_SORT_BY_AFT;
333
334 FUNCTION CLASS_TYPE_NAME_P RETURN VARCHAR2 IS
335 BEGIN
336 RETURN CLASS_TYPE_NAME;
337 END CLASS_TYPE_NAME_P;
338
339 FUNCTION REPORT_SORT_BY_BEF_P RETURN VARCHAR2 IS
340 BEGIN
341 RETURN REPORT_SORT_BY_BEF;
342 END REPORT_SORT_BY_BEF_P;
343
344 FUNCTION PRECISION_P RETURN NUMBER IS
345 BEGIN
346 RETURN PRECISION;
347 END PRECISION_P;
348
349 FUNCTION EXT_PRECISION_P RETURN NUMBER IS
350 BEGIN
351 RETURN EXT_PRECISION;
352 END EXT_PRECISION_P;
353
354 FUNCTION CURRENCY_CODE_P RETURN VARCHAR2 IS
355 BEGIN
356 RETURN CURRENCY_CODE;
357 END CURRENCY_CODE_P;
358
359 FUNCTION REPORT_OPTION_P RETURN VARCHAR2 IS
360 BEGIN
361 RETURN REPORT_OPTION;
362 END REPORT_OPTION_P;
363
364 FUNCTION STATUS_TYPE_NAME_P RETURN VARCHAR2 IS
365 BEGIN
366 RETURN STATUS_TYPE_NAME;
367 END STATUS_TYPE_NAME_P;
368
369 FUNCTION ORG_NAME_P RETURN VARCHAR2 IS
370 BEGIN
371 RETURN ORG_NAME;
372 END ORG_NAME_P;
373
374 FUNCTION C_INCLUDE_BULK_P RETURN VARCHAR2 IS
375 BEGIN
376 RETURN C_INCLUDE_BULK;
377 END C_INCLUDE_BULK_P;
378
379 FUNCTION C_INCLUDE_VENDOR_P RETURN VARCHAR2 IS
380 BEGIN
381 RETURN C_INCLUDE_VENDOR;
382 END C_INCLUDE_VENDOR_P;
383
384 FUNCTION WHERE_JOB_P RETURN VARCHAR2 IS
385 BEGIN
386 RETURN WHERE_JOB;
387 END WHERE_JOB_P;
388
389 FUNCTION SELECTED_COST_GROUP_P RETURN VARCHAR2 IS
390 BEGIN
391 RETURN SELECTED_COST_GROUP;
392 END SELECTED_COST_GROUP_P;
393
394 PROCEDURE SET_NAME(APPLICATION IN VARCHAR2
395 ,NAME IN VARCHAR2) IS
396 BEGIN
397 --STPROC.INIT('begin FND_MESSAGE.SET_NAME(:APPLICATION, :NAME); end;');
398 --STPROC.BIND_I(APPLICATION);
399 --STPROC.BIND_I(NAME);
400 --STPROC.EXECUTE;
401 null;
402 END SET_NAME;
403
404 PROCEDURE SET_TOKEN(TOKEN IN VARCHAR2
405 ,VALUE IN VARCHAR2
406 ,TRANSLATE IN BOOLEAN) IS
407 BEGIN
408 /*STPROC.INIT('declare TRANSLATE BOOLEAN; begin TRANSLATE := sys.diutil.int_to_bool(:TRANSLATE); FND_MESSAGE.SET_TOKEN(:TOKEN, :VALUE, TRANSLATE); end;');
409 STPROC.BIND_I(TRANSLATE);
410 STPROC.BIND_I(TOKEN);
411 STPROC.BIND_I(VALUE);
412 STPROC.EXECUTE;*/
413 null;
414 END SET_TOKEN;
415
416 PROCEDURE RETRIEVE(MSGOUT OUT NOCOPY VARCHAR2) IS
417 BEGIN
418 /*STPROC.INIT('begin FND_MESSAGE.RETRIEVE(:MSGOUT); end;');
419 STPROC.BIND_O(MSGOUT);
420 STPROC.EXECUTE;
421 STPROC.RETRIEVE(1
422 ,MSGOUT);*/
423 null;
424
425 END RETRIEVE;
426
427 PROCEDURE CLEAR IS
428 BEGIN
429 /* STPROC.INIT('begin FND_MESSAGE.CLEAR; end;');
430 STPROC.EXECUTE;*/ null;
431 END CLEAR;
432
433 FUNCTION GET_STRING(APPIN IN VARCHAR2
434 ,NAMEIN IN VARCHAR2) RETURN VARCHAR2 IS
435 X0 VARCHAR2(2000);
436 BEGIN
437 /* STPROC.INIT('begin :X0 := FND_MESSAGE.GET_STRING(:APPIN, :NAMEIN); end;');
438 STPROC.BIND_O(X0);
439 STPROC.BIND_I(APPIN);
440 STPROC.BIND_I(NAMEIN);
441 STPROC.EXECUTE;
442 STPROC.RETRIEVE(1
443 ,X0);*/ null;
444 RETURN X0;
445 END GET_STRING;
446
447 FUNCTION GET_NUMBER(APPIN IN VARCHAR2
448 ,NAMEIN IN VARCHAR2) RETURN NUMBER IS
449 X0 NUMBER;
450 BEGIN
451 /*STPROC.INIT('begin :X0 := FND_MESSAGE.GET_NUMBER(:APPIN, :NAMEIN); end;');
452 STPROC.BIND_O(X0);
453 STPROC.BIND_I(APPIN);
454 STPROC.BIND_I(NAMEIN);
455 STPROC.EXECUTE;
456 STPROC.RETRIEVE(1
457 ,X0);*/ null;
458 RETURN X0;
459 END GET_NUMBER;
460
461 FUNCTION GET RETURN VARCHAR2 IS
462 X0 VARCHAR2(2000);
463 BEGIN
464 /* STPROC.INIT('begin :X0 := FND_MESSAGE.GET; end;');
465 STPROC.BIND_O(X0);
466 STPROC.EXECUTE;
467 STPROC.RETRIEVE(1
468 ,X0);*/ null;
469 RETURN X0;
470 END GET;
471
472 FUNCTION GET_ENCODED RETURN VARCHAR2 IS
473 X0 VARCHAR2(2000);
474 BEGIN
475 /*STPROC.INIT('begin :X0 := FND_MESSAGE.GET_ENCODED; end;');
476 STPROC.BIND_O(X0);
477 STPROC.EXECUTE;
478 STPROC.RETRIEVE(1
479 ,X0);*/ null;
480 RETURN X0;
481 END GET_ENCODED;
482
483 PROCEDURE PARSE_ENCODED(ENCODED_MESSAGE IN VARCHAR2
484 ,APP_SHORT_NAME OUT NOCOPY VARCHAR2
485 ,MESSAGE_NAME OUT NOCOPY VARCHAR2) IS
486 BEGIN
487 /* STPROC.INIT('begin FND_MESSAGE.PARSE_ENCODED(:ENCODED_MESSAGE, :APP_SHORT_NAME, :MESSAGE_NAME); end;');
488 STPROC.BIND_I(ENCODED_MESSAGE);
489 STPROC.BIND_O(APP_SHORT_NAME);
490 STPROC.BIND_O(MESSAGE_NAME);
491 STPROC.EXECUTE;
492 STPROC.RETRIEVE(2
493 ,APP_SHORT_NAME);
494 STPROC.RETRIEVE(3
495 ,MESSAGE_NAME);*/ null;
496 END PARSE_ENCODED;
497
498 PROCEDURE SET_ENCODED(ENCODED_MESSAGE IN VARCHAR2) IS
499 BEGIN
500 /* STPROC.INIT('begin FND_MESSAGE.SET_ENCODED(:ENCODED_MESSAGE); end;');
501 STPROC.BIND_I(ENCODED_MESSAGE);
502 STPROC.EXECUTE;*/ null;
503 END SET_ENCODED;
504
505 PROCEDURE RAISE_ERROR IS
506 BEGIN
507 /* STPROC.INIT('begin FND_MESSAGE.RAISE_ERROR; end;');
508 STPROC.EXECUTE;*/ null;
509 END RAISE_ERROR;
510
511 END BOM_CSTRDJVA_XMLP_PKG;
512
513
514