1 PACKAGE BODY GMD_QCR02USR_XMLP_PKG AS
2 /* $Header: QCR02USRB.pls 120.0 2007/12/24 13:07:13 krreddy noship $ */
3 FUNCTION TEXTCFFORMULA(TEXT_SPEC IN VARCHAR2) RETURN VARCHAR2 IS
4 BEGIN
5 IF TEXT_SPEC IS NOT NULL THEN
6 RETURN (TEXT_SPEC);
7 ELSE
8 RETURN (NULL);
9 END IF;
10 END TEXTCFFORMULA;
11
12 FUNCTION TARGETSPECFORMULA(TARGET_SPEC IN NUMBER
13 ,TEST_TYPE IN VARCHAR2
14 ,PRECISION IN NUMBER) RETURN CHAR IS
15 L_PRECISION VARCHAR2(25);
16 L_NUMBER NUMBER;
17 L_TARGET_SPEC VARCHAR2(25);
18 BEGIN
19 IF TARGET_SPEC IS NOT NULL THEN
20 IF TEST_TYPE in ('N','L','E') THEN
21 L_PRECISION := '999999999999999D' || TO_CHAR(POWER(10
22 ,PRECISION) - 1);
23 L_NUMBER := TARGET_SPEC;
24 L_TARGET_SPEC := LTRIM(TO_CHAR(TO_NUMBER(TO_CHAR(L_NUMBER))
25 ,L_PRECISION));
26 RETURN (L_TARGET_SPEC);
27 ELSE
28 L_NUMBER := TARGET_SPEC;
29 RETURN TO_CHAR(L_NUMBER);
30 END IF;
31 ELSE
32 RETURN (NULL);
33 END IF;
34 END TARGETSPECFORMULA;
35
36 FUNCTION DATECFFORMULA RETURN VARCHAR2 IS
37 BEGIN
38 /*SRW.REFERENCE(DATECP)*/NULL;
39 IF FROM_RESULT_DATE IS NOT NULL AND TO_RESULT_DATE IS NOT NULL THEN
40 DATECP := ' and trunc(gr1.result_date) >= FND_DATE.CHARDATE_TO_DATE(''' || FROM_RSLT_DTCP || ''') and trunc(gr1.result_date) <= FND_DATE.CHARDATE_TO_DATE(''' || TO_RSLT_DTCP || '''' || ')';
41 ELSIF FROM_RESULT_DATE IS NULL AND TO_RESULT_DATE IS NULL THEN
42 --DATECP := NULL;
43 DATECP := ' ';
44 ELSIF FROM_RESULT_DATE IS NOT NULL AND TO_RESULT_DATE IS NULL THEN
45 DATECP := ' and trunc(gr1.result_date) >= FND_DATE.CHARDATE_TO_DATE(''' || FROM_RSLT_DTCP || '''' || ')';
46 ELSIF FROM_RESULT_DATE IS NULL AND TO_RESULT_DATE IS NOT NULL THEN
47 DATECP := ' and trunc(gr1.result_date) <= FND_DATE.CHARDATE_TO_DATE(''' || TO_RSLT_DTCP || '''' || ')';
48 END IF;
49 RETURN NULL;
50 END DATECFFORMULA;
51
52 FUNCTION ASSAY_DESCCFFORMULA(ASSAY_CODE IN VARCHAR2) RETURN VARCHAR2 IS
53 ASSAYDESC VARCHAR2(40);
54 BEGIN
55 SELECT
56 '[' || TEST_DESC || ']'
57 INTO ASSAYDESC
58 FROM
59 GMD_QC_TESTS
60 WHERE TEST_CODE = ASSAY_CODE;
61 RETURN (ASSAYDESC);
62 EXCEPTION
63 WHEN OTHERS THEN
64 RETURN NULL;
65 END ASSAY_DESCCFFORMULA;
66
67 FUNCTION TEXTARRAYCFFORMULA(TEXT_CODECF IN NUMBER) RETURN VARCHAR2 IS
68 TEXT1 VARCHAR2(116);
69 TEXT2 VARCHAR2(2000);
70 CURSOR GET_TEXT1 IS
71 SELECT
72 TEXT
73 FROM
74 QC_TEXT_TBL
75 WHERE TEXT_CODE = TEXT_CODECF
76 AND LINE_NO <> - 1
77 AND LANG_CODE = USERENV('LANG');
78 BEGIN
79 OPEN GET_TEXT1;
80 LOOP
81 FETCH GET_TEXT1
82 INTO TEXT1;
83 EXIT WHEN GET_TEXT1%NOTFOUND;
84 TEXT2 := TEXT2 || TEXT1;
85 END LOOP;
86 CLOSE GET_TEXT1;
87 IF SQL%NOTFOUND THEN
88 RETURN (NULL);
89 END IF;
90 RETURN (TEXT2);
91 RETURN NULL;
92 EXCEPTION
93 WHEN NO_DATA_FOUND THEN
94 RETURN (NULL);
95 END TEXTARRAYCFFORMULA;
96
97 FUNCTION SAMPLECFFORMULA RETURN VARCHAR2 IS
98 BEGIN
99 /*SRW.REFERENCE(SAMPLECP)*/NULL;
100 IF FROM_SAMPLE IS NOT NULL AND TO_SAMPLE IS NOT NULL THEN
101 SAMPLECP := ' and sample_no >= ''' || FROM_SAMPLE || ''' and sample_no <= ''' || TO_SAMPLE || '''';
102 ELSIF FROM_SAMPLE IS NULL AND TO_SAMPLE IS NULL THEN
103 --SAMPLECP := NULL;
104 SAMPLECP := ' ';
105 ELSIF FROM_SAMPLE IS NOT NULL AND TO_SAMPLE IS NULL THEN
106 SAMPLECP := ' and sample_no >= ''' || FROM_SAMPLE || '''';
107 ELSIF FROM_SAMPLE IS NULL AND TO_SAMPLE IS NOT NULL THEN
108 SAMPLECP := ' and sample_no <= ''' || TO_SAMPLE || '''';
109 END IF;
110 RETURN NULL;
111 END SAMPLECFFORMULA;
112
113 FUNCTION ITEMCFFORMULA RETURN VARCHAR2 IS
114 BEGIN
115 /*SRW.REFERENCE(ITEMCP)*/NULL;
116 IF FROM_ITEM IS NOT NULL AND TO_ITEM IS NOT NULL THEN
117 ITEMCP := ' and msi.concatenated_segments >= ''' || FROM_ITEMCP || ''' and msi.concatenated_segments <= ''' || TO_ITEMCP || '''';
118 ELSIF FROM_ITEM IS NULL AND TO_ITEM IS NULL THEN
119 --ITEMCP := NULL;
120 ITEMCP := ' ';
121 ELSIF FROM_ITEM IS NOT NULL AND TO_ITEM IS NULL THEN
122 ITEMCP := ' and msi.concatenated_segments >= ''' || FROM_ITEMCP || '''';
123 ELSIF FROM_ITEM IS NULL AND TO_ITEM IS NOT NULL THEN
124 ITEMCP := ' and msi.concatenated_segments <= ''' || TO_ITEMCP || '''';
125 END IF;
126 RETURN NULL;
127 /*SRW.MESSAGE(1000
128 ,':ItemCP ' || ITEMCP)*/NULL;
129 END ITEMCFFORMULA;
130
131 FUNCTION LOTCFFORMULA RETURN VARCHAR2 IS
132 BEGIN
133 /*SRW.REFERENCE(LOTNOCP)*/NULL;
134 IF FROM_LOTNO IS NOT NULL AND TO_LOTNO IS NOT NULL THEN
135 LOTNOCP := ' and gs.lot_number >= ''' || FROM_LOTNO || ''' and gs.lot_number <= ''' || TO_LOTNO || '''';
136 ELSIF FROM_LOTNO IS NULL AND TO_LOTNO IS NULL THEN
137 --LOTNOCP := NULL;
138 LOTNOCP := ' ';
139 ELSIF FROM_LOTNO IS NOT NULL AND TO_LOTNO IS NULL THEN
140 LOTNOCP := ' and gs.lot_number >= ''' || FROM_LOTNO || '''';
141 ELSIF FROM_LOTNO IS NULL AND TO_LOTNO IS NOT NULL THEN
142 LOTNOCP := ' and gs.lot_number <= ''' || TO_LOTNO || '''';
143 END IF;
144 /*SRW.MESSAGE(1000
145 ,':LotnoCP ' || LOTNOCP)*/NULL;
146 RETURN NULL;
147 END LOTCFFORMULA;
148
149 FUNCTION SUBINVENTORYCFFORMULA RETURN VARCHAR2 IS
150 BEGIN
151 /*SRW.REFERENCE(SUBINVENTORYCP)*/NULL;
152 /*SRW.MESSAGE(1000
153 ,'SubinventoryCF Begin')*/NULL;
154 /*SRW.MESSAGE(1000
155 ,' :from_subinventory ' || FROM_SUBINVENTORY)*/NULL;
156 /*SRW.MESSAGE(1000
157 ,' :to_subinventory ' || TO_SUBINVENTORY)*/NULL;
158 IF FROM_SUBINVENTORY IS NOT NULL AND TO_SUBINVENTORY IS NOT NULL THEN
159 SUBINVENTORYCP := ' and gs.subinventory >= ''' || FROM_SUBINVENTORY || ''' and gs.subinventory <= ''' || TO_SUBINVENTORY || '''';
160 ELSIF FROM_SUBINVENTORY IS NULL AND TO_SUBINVENTORY IS NULL THEN
161 --SUBINVENTORYCP := NULL;
162 SUBINVENTORYCP := ' ';
163 ELSIF FROM_SUBINVENTORY IS NOT NULL AND TO_SUBINVENTORY IS NULL THEN
164 SUBINVENTORYCP := ' and gs.subinventory >= ''' || FROM_SUBINVENTORY || '''';
165 ELSIF FROM_SUBINVENTORY IS NULL AND TO_SUBINVENTORY IS NOT NULL THEN
166 SUBINVENTORYCP := ' and gs.subinventory <= ''' || TO_SUBINVENTORY || '''';
167 END IF;
168 RETURN NULL;
169 /*SRW.MESSAGE(1000
170 ,':SubinventoryCP ' || SUBINVENTORYCP)*/NULL;
171 END SUBINVENTORYCFFORMULA;
172
173 FUNCTION LOCATORCFFORMULA RETURN VARCHAR2 IS
174 BEGIN
175 /*SRW.REFERENCE(LOCATORCP)*/NULL;
176 IF FROM_LOCATOR IS NOT NULL AND TO_LOCATOR IS NOT NULL THEN
177 LOCATORCP := ' and gs.locator_id >= ''' || FROM_LOCATOR || ''' and gs.locator_id <= ''' || TO_LOCATOR || '''';
178 ELSIF FROM_LOCATOR IS NULL AND TO_LOCATOR IS NULL THEN
179 --LOCATORCP := NULL;
180 LOCATORCP := ' ';
181 ELSIF FROM_LOCATOR IS NOT NULL AND TO_LOCATOR IS NULL THEN
182 LOCATORCP := ' and gs.locator_id >= ''' || FROM_LOCATOR || '''';
183 ELSIF FROM_LOCATOR IS NULL AND TO_LOCATOR IS NOT NULL THEN
184 LOCATORCP := ' and gs.locator_id <= ''' || TO_LOCATOR || '''';
185 END IF;
186 /*SRW.MESSAGE(1000
187 ,'LocatorCP ' || LOCATORCP)*/NULL;
188 RETURN NULL;
189 END LOCATORCFFORMULA;
190
191 FUNCTION INCLUDECFFORMULA RETURN VARCHAR2 IS
192 BEGIN
193 /*SRW.REFERENCE(INCLUDECP)*/NULL;
194 IF INCLUDE = '0' THEN
195 --INCLUDECP := NULL;
196 INCLUDECP := ' ';
197 ELSIF INCLUDE = '1' THEN
198 INCLUDECP := ' and decode(gr1.ad_hoc_print_on_coa_ind, ''Y'', decode( gsr.evaluation_ind,''0A'',''Y'',''1V'',''Y'',''2R'',''Y'',''N''),''N'') =''Y''';
199 END IF;
200 RETURN NULL;
201 END INCLUDECFFORMULA;
202
203 FUNCTION SAMPLECPFORMULA(SAMPLECF IN VARCHAR2) RETURN VARCHAR2 IS
204 BEGIN
205 /*SRW.REFERENCE(SAMPLECF)*/NULL;
206 RETURN NULL;
207 END SAMPLECPFORMULA;
208
209 FUNCTION ITEMCPFORMULA(ITEMCF IN VARCHAR2) RETURN VARCHAR2 IS
210 BEGIN
211 /*SRW.REFERENCE(ITEMCF)*/NULL;
212 RETURN NULL;
213 END ITEMCPFORMULA;
214
215 FUNCTION LOTNOCPFORMULA(LOTNOCF IN VARCHAR2) RETURN VARCHAR2 IS
216 BEGIN
217 /*SRW.REFERENCE(LOTNOCF)*/NULL;
218 RETURN NULL;
219 END LOTNOCPFORMULA;
220
221 FUNCTION DATECPFORMULA(DATECF IN VARCHAR2) RETURN VARCHAR2 IS
222 BEGIN
223 /*SRW.REFERENCE(DATECF)*/NULL;
224 RETURN NULL;
225 END DATECPFORMULA;
226
227 FUNCTION INCLUDECPFORMULA(INCLUDECF IN VARCHAR2) RETURN VARCHAR2 IS
228 BEGIN
229 /*SRW.REFERENCE(INCLUDECF)*/NULL;
230 RETURN NULL;
231 END INCLUDECPFORMULA;
232
233 FUNCTION WAREHOUSECPFORMULA RETURN VARCHAR2 IS
234 BEGIN
235 RETURN NULL;
236 END WAREHOUSECPFORMULA;
237
238 FUNCTION LOCATIONCPFORMULA RETURN VARCHAR2 IS
239 BEGIN
240 RETURN NULL;
241 END LOCATIONCPFORMULA;
242
243 FUNCTION QCUNIT_CODECFFORMULA(SPEC IN NUMBER
244 ,QCASSY_TYP_ID IN NUMBER) RETURN VARCHAR2 IS
245 UNITCODE VARCHAR2(4);
246 ORGCODE VARCHAR2(4);
247 BEGIN
248 IF SPEC IS NOT NULL THEN
249 BEGIN
250 SELECT
251 TEST_UOM
252 INTO UNITCODE
253 FROM
254 GMD_SPEC_TESTS_B
255 WHERE SPEC_ID = SPEC
256 AND TEST_ID = QCASSY_TYP_ID;
257 EXCEPTION
258 WHEN OTHERS THEN
259 RETURN (NULL);
260 END;
261 RETURN (UNITCODE);
262 END IF;
263 RETURN NULL;
264 END QCUNIT_CODECFFORMULA;
265
266 --FUNCTION TEXTARRAY2CFFORMULA(TEXT_CODE IN NUMBER) RETURN VARCHAR2 IS
267 FUNCTION TEXTARRAY2CFFORMULA(TEXT_CODE_V IN NUMBER) RETURN VARCHAR2 IS
268 TEXT2 VARCHAR2(116);
269 TEXT3 VARCHAR2(2000);
270 CURSOR GET_TEXT IS
271 SELECT
272 TEXT
273 FROM
274 QC_TEXT_TBL
275 WHERE TEXT_CODE = TEXT_CODE_V
276 AND LINE_NO <> - 1
277 AND LANG_CODE = 'US';
278 BEGIN
279 OPEN GET_TEXT;
280 LOOP
281 FETCH GET_TEXT
282 INTO TEXT2;
283 EXIT WHEN GET_TEXT%NOTFOUND;
284 TEXT3 := TEXT3 || TEXT2;
285 END LOOP;
286 CLOSE GET_TEXT;
287 IF SQL%NOTFOUND THEN
288 RETURN (NULL);
289 END IF;
290 RETURN (TEXT3);
291 RETURN NULL;
292 EXCEPTION
293 WHEN NO_DATA_FOUND THEN
294 RETURN (NULL);
295 END TEXTARRAY2CFFORMULA;
296
297 --FUNCTION EFFECTIVITYCFFORMULA(SAMPLE_NO IN VARCHAR2) RETURN DATE IS
298 FUNCTION EFFECTIVITYCFFORMULA(SAMPLE_NO_V IN VARCHAR2) RETURN DATE IS
299 FROMDATE DATE;
300 BEGIN
301 SELECT
302 DISTINCT
303 GISV.START_DATE
304 INTO FROMDATE
305 FROM
306 GMD_SAMPLES GS,
307 GMD_SAMPLING_EVENTS GSE,
308 GMD_INVENTORY_SPEC_VRS GISV,
309 GMD_EVENT_SPEC_DISP GES
310 WHERE SAMPLE_NO = SAMPLE_NO_V
311 AND GS.SAMPLING_EVENT_ID = GSE.SAMPLING_EVENT_ID
312 AND GSE.SAMPLING_EVENT_ID = GES.SAMPLING_EVENT_ID
313 AND GES.SPEC_USED_FOR_LOT_ATTRIB_IND = 'Y'
314 AND GES.SPEC_VR_ID = GISV.SPEC_VR_ID;
315 RETURN (FROMDATE);
316 EXCEPTION
317 WHEN OTHERS THEN
318 RETURN (NULL);
319 END EFFECTIVITYCFFORMULA;
320
321 FUNCTION EFFECTIVITYCFFORMULACHR(SAMPLE_NO_V IN VARCHAR2) RETURN VARCHAR2 IS
322 FROMDATE DATE;
323 BEGIN
324 SELECT
325 DISTINCT
326 GISV.START_DATE
327 INTO FROMDATE
328 FROM
329 GMD_SAMPLES GS,
330 GMD_SAMPLING_EVENTS GSE,
331 GMD_INVENTORY_SPEC_VRS GISV,
332 GMD_EVENT_SPEC_DISP GES
333 WHERE SAMPLE_NO = SAMPLE_NO_V
334 AND GS.SAMPLING_EVENT_ID = GSE.SAMPLING_EVENT_ID
335 AND GSE.SAMPLING_EVENT_ID = GES.SAMPLING_EVENT_ID
336 AND GES.SPEC_USED_FOR_LOT_ATTRIB_IND = 'Y'
337 AND GES.SPEC_VR_ID = GISV.SPEC_VR_ID;
338 RETURN (to_Char(FROMDATE,'DD-MON-YYYY'));
339 EXCEPTION
340 WHEN OTHERS THEN
341 RETURN (NULL);
342 END EFFECTIVITYCFFORMULACHR;
343
344 FUNCTION RESULTCFFORMULA(TEXT_RESULT IN VARCHAR2
345 ,NUM_RESULT IN NUMBER) RETURN VARCHAR2 IS
346 RESULT VARCHAR2(240);
347 BEGIN
348 IF TEXT_RESULT IS NOT NULL THEN
349 RESULT := TEXT_RESULT;
350 ELSE
351 RESULT := TO_CHAR(NUM_RESULT);
352 END IF;
353 RETURN (RESULT);
354 END RESULTCFFORMULA;
355
356 FUNCTION MIN_SPECCFFORMULA(MIN_CHAR IN VARCHAR2
357 ,MIN_SPEC IN NUMBER) RETURN NUMBER IS
358 BEGIN
359 IF MIN_CHAR IS NULL THEN
360 RETURN (MIN_SPEC);
361 ELSE
362 RETURN (NULL);
363 END IF;
364 END MIN_SPECCFFORMULA;
365
366 FUNCTION MAX_SPECCFFORMULA(MAX_CHAR IN VARCHAR2
367 ,MAX_SPEC IN NUMBER) RETURN NUMBER IS
368 MAXSPEC NUMBER;
369 BEGIN
370 IF MAX_CHAR IS NULL THEN
371 RETURN (MAX_SPEC);
372 ELSE
373 RETURN (NULL);
374 END IF;
375 END MAX_SPECCFFORMULA;
376
377 FUNCTION MIN_VAILDCFFORMULA(ASSAY_CODE IN VARCHAR2) RETURN NUMBER IS
378 MINVAILD NUMBER;
379 BEGIN
380 SELECT
381 MIN_VALUE_NUM
382 INTO MINVAILD
383 FROM
384 GMD_QC_TESTS_B
385 WHERE TEST_CODE = ASSAY_CODE;
386 RETURN (MINVAILD);
387 RETURN NULL;
388 EXCEPTION
389 WHEN OTHERS THEN
390 RETURN (NULL);
391 END MIN_VAILDCFFORMULA;
392
393 FUNCTION MAX_VAILDCFFORMULA(ASSAY_CODE IN VARCHAR2) RETURN NUMBER IS
394 MAXVAILD NUMBER;
395 BEGIN
396 SELECT
397 MAX_VALUE_NUM
398 INTO MAXVAILD
399 FROM
400 GMD_QC_TESTS_B
401 WHERE TEST_CODE = ASSAY_CODE;
402 RETURN (MAXVAILD);
403 RETURN NULL;
404 EXCEPTION
405 WHEN OTHERS THEN
406 RETURN (NULL);
407 END MAX_VAILDCFFORMULA;
408
409 FUNCTION MINIMUMCFFORMULA(MIN_SPEC IN NUMBER
410 ,TEST_TYPE IN VARCHAR2
411 ,PRECISION IN NUMBER
412 ,MIN_CHAR IN VARCHAR2) RETURN CHAR IS
413 L_PRECISION VARCHAR2(25);
414 L_NUMBER NUMBER;
415 L_MIN_SPEC VARCHAR2(25);
416 BEGIN
417 IF ASSAY_TYPECP = 'T' THEN
418 RETURN NULL;
419 ELSE
420 IF MIN_SPEC IS NOT NULL THEN
421 IF TEST_TYPE in ('N','L','E') THEN
422 L_PRECISION := '999999999999999D' || TO_CHAR(POWER(10
423 ,PRECISION) - 1);
424 L_NUMBER := MIN_SPEC;
425 L_MIN_SPEC := LTRIM(TO_CHAR(TO_NUMBER(TO_CHAR(L_NUMBER))
426 ,L_PRECISION));
427 RETURN (L_MIN_SPEC);
428 ELSE
429 L_NUMBER := MIN_CHAR;
430 RETURN (L_NUMBER);
431 END IF;
432 ELSE
433 RETURN NULL;
434 END IF;
435 END IF;
436 END MINIMUMCFFORMULA;
437
438 FUNCTION MAXIMUMCFFORMULA(MAX_SPEC IN NUMBER
439 ,TEST_TYPE IN VARCHAR2
440 ,PRECISION IN NUMBER
441 ,MAX_CHAR IN VARCHAR2) RETURN CHAR IS
442 L_PRECISION VARCHAR2(25);
443 L_NUMBER NUMBER;
444 L_MAX_SPEC VARCHAR2(25);
445 BEGIN
446 IF ASSAY_TYPECP = 'T' THEN
447 RETURN NULL;
448 ELSE
449 IF MAX_SPEC IS NOT NULL THEN
450 IF TEST_TYPE in ('N','L','E') THEN
451 L_PRECISION := '999999999999999D' || TO_CHAR(POWER(10
452 ,PRECISION) - 1);
453 L_NUMBER := MAX_SPEC;
454 L_MAX_SPEC := LTRIM(TO_CHAR(TO_NUMBER(TO_CHAR(L_NUMBER))
455 ,L_PRECISION));
456 RETURN (L_MAX_SPEC);
457 ELSE
458 L_NUMBER := MAX_CHAR;
459 RETURN (L_NUMBER);
460 END IF;
461 ELSE
462 RETURN NULL;
463 END IF;
464 END IF;
465 END MAXIMUMCFFORMULA;
466
467 --FUNCTION EFFECTIVITYCF1FORMULA(SAMPLE_NO IN VARCHAR2) RETURN DATE IS
468 FUNCTION EFFECTIVITYCF1FORMULA(SAMPLE_NO_V IN VARCHAR2) RETURN DATE IS
469 TODATE DATE;
470 BEGIN
471 SELECT
472 DISTINCT
473 GISV.END_DATE
474 INTO TODATE
475 FROM
476 GMD_SAMPLES GS,
477 GMD_SAMPLING_EVENTS GSE,
478 GMD_INVENTORY_SPEC_VRS GISV,
479 GMD_EVENT_SPEC_DISP GES
480 WHERE SAMPLE_NO = SAMPLE_NO_V
481 AND GS.SAMPLING_EVENT_ID = GSE.SAMPLING_EVENT_ID
482 AND GSE.SAMPLING_EVENT_ID = GES.SAMPLING_EVENT_ID
483 AND GES.SPEC_USED_FOR_LOT_ATTRIB_IND = 'Y'
484 AND GES.SPEC_VR_ID = GISV.SPEC_VR_ID;
485 RETURN (TODATE);
486 EXCEPTION
487 WHEN OTHERS THEN
488 RETURN (NULL);
489 END EFFECTIVITYCF1FORMULA;
490
491 FUNCTION FROM_ITEMCFFORMULA RETURN VARCHAR2 IS
492 L_FROM_ITEM VARCHAR2(240);
493 BEGIN
494 IF FROM_ITEM IS NULL THEN
495 FROM_ITEMCP := SY_ALL;
496 ELSE
497 SELECT
498 DISTINCT
499 CONCATENATED_SEGMENTS
500 INTO L_FROM_ITEM
501 FROM
502 MTL_SYSTEM_ITEMS_KFV
503 WHERE INVENTORY_ITEM_ID = FROM_ITEM;
504 FROM_ITEMCP := L_FROM_ITEM;
505 END IF;
506 /*SRW.MESSAGE(1000
507 ,':FROM_ITEMCP ' || FROM_ITEMCP)*/NULL;
508 RETURN (FROM_ITEMCP);
509 END FROM_ITEMCFFORMULA;
510
511 FUNCTION TO_ITEMCFFORMULA RETURN VARCHAR2 IS
512 L_TO_ITEM VARCHAR2(240);
513 BEGIN
514 IF TO_ITEM IS NULL THEN
515 TO_ITEMCP := SY_ALL;
516 ELSE
517 SELECT
518 DISTINCT
519 CONCATENATED_SEGMENTS
520 INTO L_TO_ITEM
521 FROM
522 MTL_SYSTEM_ITEMS_KFV
523 WHERE INVENTORY_ITEM_ID = TO_ITEM;
524 TO_ITEMCP := L_TO_ITEM;
525 END IF;
526 /*SRW.MESSAGE(1000
527 ,':TO_ITEMCP ' || TO_ITEMCP)*/NULL;
528 RETURN (TO_ITEMCP);
529 END TO_ITEMCFFORMULA;
530
531 FUNCTION FROM_SAMPLECFFORMULA RETURN VARCHAR2 IS
532 BEGIN
533 IF FROM_SAMPLE IS NULL THEN
534 FROM_SAMPLECP := SY_ALL;
535 ELSE
536 FROM_SAMPLECP := FROM_SAMPLE;
537 END IF;
538 RETURN (FROM_SAMPLECP);
539 END FROM_SAMPLECFFORMULA;
540
541 FUNCTION TO_SAMPLECFFORMULA RETURN VARCHAR2 IS
542 BEGIN
543 IF TO_SAMPLE IS NULL THEN
544 TO_SAMPLECP := SY_ALL;
545 ELSE
546 TO_SAMPLECP := TO_SAMPLE;
547 END IF;
548 RETURN (TO_SAMPLECP);
549 END TO_SAMPLECFFORMULA;
550
551 FUNCTION FROM_RSLT_DTCFFORMULA RETURN VARCHAR2 IS
552 BEGIN
553 IF FROM_RESULT_DATE IS NULL THEN
554 FROM_RSLT_DTCP := SY_ALL;
555 ELSE
556 FROM_RSLT_DTCP := TO_CHAR(FROM_RESULT_DATE
557 ,'DD-MON-YYYY');
558 END IF;
559 RETURN (FROM_RSLT_DTCP);
560 END FROM_RSLT_DTCFFORMULA;
561
562 FUNCTION TO_RSLT_DTCFFORMULA RETURN VARCHAR2 IS
563 BEGIN
564 IF TO_RESULT_DATE IS NULL THEN
565 TO_RSLT_DTCP := SY_ALL;
566 ELSE
567 TO_RSLT_DTCP := TO_CHAR(TO_RESULT_DATE
568 ,'DD-MON-YYYY');
569 END IF;
570 RETURN (TO_RSLT_DTCP);
571 END TO_RSLT_DTCFFORMULA;
572
573 FUNCTION FROM_LOCATORCFFORMULA RETURN VARCHAR2 IS
574 LOCATOR VARCHAR2(240);
575 BEGIN
576 IF FROM_LOCATOR IS NULL THEN
577 FROM_LOCATORCP := SY_ALL;
578 ELSE
579 SELECT
580 CONCATENATED_SEGMENTS
581 INTO LOCATOR
582 FROM
583 MTL_ITEM_LOCATIONS_KFV
584 WHERE INVENTORY_LOCATION_ID = FROM_LOCATOR;
585 FROM_LOCATORCP := LOCATOR;
586 END IF;
587 /*SRW.MESSAGE(1000
588 ,':FROM_LOCATORCP ' || FROM_LOCATORCP)*/NULL;
589 RETURN (FROM_LOCATORCP);
590 END FROM_LOCATORCFFORMULA;
591
592 FUNCTION TO_LOCATORCFFORMULA RETURN VARCHAR2 IS
593 LOCATOR VARCHAR2(240);
594 BEGIN
595 IF TO_LOCATOR IS NULL THEN
596 TO_LOCATORCP := SY_ALL;
597 ELSE
598 SELECT
599 CONCATENATED_SEGMENTS
600 INTO LOCATOR
601 FROM
602 MTL_ITEM_LOCATIONS_KFV
603 WHERE INVENTORY_LOCATION_ID = TO_LOCATOR;
604 TO_LOCATORCP := LOCATOR;
605 END IF;
606 /*SRW.MESSAGE(1000
607 ,':TO_LOCATORCP ' || TO_LOCATORCP)*/NULL;
608 RETURN (TO_LOCATORCP);
609 END TO_LOCATORCFFORMULA;
610
611 FUNCTION FROM_LOTNOCFFORMULA RETURN VARCHAR2 IS
612 BEGIN
613 IF FROM_LOTNO IS NULL THEN
614 FROM_LOTNOCP := SY_ALL;
615 ELSE
616 FROM_LOTNOCP := FROM_LOTNO;
617 END IF;
618 /*SRW.MESSAGE(1000
619 ,':FROM_LOTNOCP ' || FROM_LOTNOCP)*/NULL;
620 RETURN (FROM_LOTNOCP);
621 END FROM_LOTNOCFFORMULA;
622
623 FUNCTION TO_LOTNOCFFORMULA RETURN VARCHAR2 IS
624 BEGIN
625 IF TO_LOTNO IS NULL THEN
626 TO_LOTNOCP := SY_ALL;
627 ELSE
628 TO_LOTNOCP := TO_LOTNO;
629 END IF;
630 /*SRW.MESSAGE(1000
631 ,':TO_LOTNOCP ' || TO_LOTNOCP)*/NULL;
632 RETURN (TO_LOTNOCP);
633 END TO_LOTNOCFFORMULA;
634
635 FUNCTION FROM_SUBINVENTORYCFFORMULA RETURN VARCHAR2 IS
636 BEGIN
637 IF FROM_SUBINVENTORY IS NULL THEN
638 FROM_SUBINVENTORYCP := SY_ALL;
639 ELSE
640 FROM_SUBINVENTORYCP := FROM_SUBINVENTORY;
641 END IF;
642 /*SRW.MESSAGE(1000
643 ,':FROM_SUBINVENTORYCP ' || FROM_SUBINVENTORYCP)*/NULL;
644 RETURN (FROM_SUBINVENTORYCP);
645 END FROM_SUBINVENTORYCFFORMULA;
646
647 FUNCTION TO_SUBINVENTORYCFFORMULA RETURN VARCHAR2 IS
648 BEGIN
649 IF TO_SUBINVENTORY IS NULL THEN
650 TO_SUBINVENTORYCP := SY_ALL;
651 ELSE
652 TO_SUBINVENTORYCP := TO_SUBINVENTORY;
653 END IF;
654 /*SRW.MESSAGE(1000
655 ,':TO_SUBINVENTORYCP ' || TO_SUBINVENTORYCP)*/NULL;
656 RETURN (TO_SUBINVENTORYCP);
657 END TO_SUBINVENTORYCFFORMULA;
658
659 FUNCTION INCLUDECFFORMULA0052 RETURN VARCHAR2 IS
660 INCLUDE1 VARCHAR2(80);
661 BEGIN
662 IF INCLUDE = '0' THEN
663 SELECT
664 MEANING
665 INTO INCLUDE1
666 FROM
667 GEM_LOOKUPS
668 WHERE LOOKUP_CODE = '0'
669 AND LOOKUP_TYPE = 'QC_INCLUDE';
670 ELSIF INCLUDE = '1' THEN
671 SELECT
672 MEANING
673 INTO INCLUDE1
674 FROM
675 GEM_LOOKUPS
676 WHERE LOOKUP_CODE = '1'
677 AND LOOKUP_TYPE = 'QC_INCLUDE';
678 END IF;
679 RETURN (INCLUDE1);
680 END INCLUDECFFORMULA0052;
681
682 FUNCTION PRINT_TEXTCFFORMULA RETURN VARCHAR2 IS
683 PRINT1 VARCHAR2(80);
684 BEGIN
685 IF PRINT_CONDITION = '0' THEN
686 SELECT
687 MEANING
688 INTO PRINT1
689 FROM
690 GEM_LOOKUPS
691 WHERE LOOKUP_CODE = '0'
692 AND LOOKUP_TYPE = 'QC_PRINT';
693 ELSIF PRINT_CONDITION = '1' THEN
694 SELECT
695 MEANING
696 INTO PRINT1
697 FROM
698 GEM_LOOKUPS
699 WHERE LOOKUP_CODE = '1'
700 AND LOOKUP_TYPE = 'QC_PRINT';
701 ELSIF PRINT_CONDITION = '2' THEN
702 SELECT
703 MEANING
704 INTO PRINT1
705 FROM
706 GEM_LOOKUPS
707 WHERE LOOKUP_CODE = '2'
708 AND LOOKUP_TYPE = 'QC_PRINT';
709 ELSIF PRINT_CONDITION = '3' THEN
710 SELECT
711 MEANING
712 INTO PRINT1
713 FROM
714 GEM_LOOKUPS
715 WHERE LOOKUP_CODE = '3'
716 AND LOOKUP_TYPE = 'QC_PRINT';
717 END IF;
718 RETURN (PRINT1);
719 END PRINT_TEXTCFFORMULA;
720
721 FUNCTION BEFOREREPORT RETURN BOOLEAN IS
722 BEGIN
723 P_CONC_REQUEST_ID := FND_GLOBAL.CONC_REQUEST_ID;
724 /*SRW.USER_EXIT('FND SRWINIT')*/NULL;
725 RETURN (TRUE);
726 END BEFOREREPORT;
727
728 FUNCTION ACCEPTCFFORMULA(ACCEPT_ANYWAY IN VARCHAR2
729 ,FINAL_MARK IN VARCHAR2
730 ,IN_SPEC_IND IN VARCHAR2) RETURN VARCHAR2 IS
731 TEMP1 VARCHAR2(80);
732 TEMP2 VARCHAR2(80);
733 TEMP3 VARCHAR2(80);
734 BEGIN
735 SELECT
736 MEANING
737 INTO TEMP1
738 FROM
739 FND_LOOKUP_VALUES
740 WHERE LOOKUP_TYPE = 'GMD_QC_YES_NO'
741 AND LOOKUP_CODE = NVL(ACCEPT_ANYWAY
742 ,'N')
743 AND LANGUAGE = USERENV('LANG');
744 ACCEPT_CP := TEMP1;
745 SELECT
746 MEANING
747 INTO TEMP2
748 FROM
749 FND_LOOKUP_VALUES
750 WHERE LOOKUP_TYPE = 'GMD_QC_YES_NO'
751 AND LOOKUP_CODE = NVL(FINAL_MARK
752 ,'N')
753 AND LANGUAGE = USERENV('LANG');
754 FINAL_CP := TEMP2;
755 SELECT
756 MEANING
757 INTO TEMP3
758 FROM
759 FND_LOOKUP_VALUES
760 WHERE LOOKUP_TYPE = 'GMD_QC_YES_NO'
761 AND LOOKUP_CODE = NVL(IN_SPEC_IND
762 ,'N')
763 AND LANGUAGE = USERENV('LANG');
764 SPEC_CP := TEMP3;
765 RETURN NULL;
766 EXCEPTION
767 WHEN NO_DATA_FOUND THEN
768 NULL;
769 END ACCEPTCFFORMULA;
770
771 PROCEDURE GMD_QCR02USR_XMLP_PKG_HEADER IS
772 BEGIN
773 NULL;
774 END GMD_QCR02USR_XMLP_PKG_HEADER;
775
776 FUNCTION RESULT_DISPCFFORMULA(QCASSY_TYP_ID IN NUMBER
777 ,NUM_RESULT IN NUMBER) RETURN CHAR IS
778 ASSAYVALUE VARCHAR2(240);
779 BEGIN
780 IF ASSAY_TYPECP = 'L' THEN
781 BEGIN
782 SELECT
783 DISPLAY_LABEL_NUMERIC_RANGE
784 INTO ASSAYVALUE
785 FROM
786 GMD_QC_TEST_VALUES
787 WHERE TEST_ID = QCASSY_TYP_ID
788 AND ( MIN_NUM <= NUM_RESULT
789 OR MIN_NUM IS NULL )
790 AND ( MAX_NUM >= NUM_RESULT
791 OR MAX_NUM IS NULL );
792 EXCEPTION
793 WHEN NO_DATA_FOUND THEN
794 ASSAYVALUE := ' ';
795 END;
796 END IF;
797 RETURN (ASSAYVALUE);
798 END RESULT_DISPCFFORMULA;
799
800 FUNCTION ASSAY_DISPCFFORMULA(ASSAY_CODE IN VARCHAR2
801 ,QCASSY_TYP_ID IN NUMBER
802 ,TARGETSPECCF IN VARCHAR2) RETURN CHAR IS
803 ASSAYVALUE VARCHAR2(240);
804 ASSAYTYPE VARCHAR2(1);
805 BEGIN
806 BEGIN
807 SELECT
808 DISTINCT
809 TEST_TYPE
810 INTO ASSAYTYPE
811 FROM
812 GMD_QC_TESTS_B
813 WHERE TEST_CODE = ASSAY_CODE;
814 EXCEPTION
815 WHEN NO_DATA_FOUND THEN
816 NULL;
817 END;
818 IF ASSAYTYPE = 'L' THEN
819 BEGIN
820 SELECT
821 DISPLAY_LABEL_NUMERIC_RANGE
822 INTO ASSAYVALUE
823 FROM
824 GMD_QC_TEST_VALUES
825 WHERE TEST_ID = QCASSY_TYP_ID
826 AND ( MIN_NUM <= TARGETSPECCF
827 OR MIN_NUM IS NULL )
828 AND ( MAX_NUM >= TARGETSPECCF
829 OR MAX_NUM IS NULL );
830 EXCEPTION
831 WHEN NO_DATA_FOUND THEN
832 NULL;
833 END;
834 END IF;
835 ASSAY_TYPECP := ASSAYTYPE;
836 RETURN (ASSAYVALUE);
837 END ASSAY_DISPCFFORMULA;
838
839 FUNCTION ASSAYMIN_DISPCFFORMULA(QCASSY_TYP_ID IN NUMBER
840 ,MIN_SPECCF IN NUMBER) RETURN CHAR IS
841 ASSAYVALUE VARCHAR2(240);
842 ASSAYTYPE VARCHAR2(1);
843 BEGIN
844 IF ASSAY_TYPECP = 'L' THEN
845 BEGIN
846 SELECT
847 DISPLAY_LABEL_NUMERIC_RANGE
848 INTO ASSAYVALUE
849 FROM
850 GMD_QC_TEST_VALUES
851 WHERE TEST_ID = QCASSY_TYP_ID
852 AND ( MIN_NUM <= MIN_SPECCF
853 OR MIN_NUM IS NULL )
854 AND ( MAX_NUM >= MIN_SPECCF
855 OR MAX_NUM IS NULL );
856 EXCEPTION
857 WHEN NO_DATA_FOUND THEN
858 ASSAYVALUE := ' ';
859 END;
860 END IF;
861 RETURN (ASSAYVALUE);
862 END ASSAYMIN_DISPCFFORMULA;
863
864 FUNCTION ASSAYMAX_DISPCFFORMULA(QCASSY_TYP_ID IN NUMBER
865 ,MAX_SPECCF IN NUMBER) RETURN CHAR IS
866 ASSAYVALUE VARCHAR2(240);
867 BEGIN
868 IF ASSAY_TYPECP = 'L' THEN
869 BEGIN
870 SELECT
871 DISPLAY_LABEL_NUMERIC_RANGE
872 INTO ASSAYVALUE
873 FROM
874 GMD_QC_TEST_VALUES
875 WHERE TEST_ID = QCASSY_TYP_ID
876 AND ( MIN_NUM <= MAX_SPECCF
877 OR MIN_NUM IS NULL )
878 AND ( MAX_NUM >= MAX_SPECCF
879 OR MAX_NUM IS NULL );
880 EXCEPTION
881 WHEN NO_DATA_FOUND THEN
882 ASSAYVALUE := ' ';
883 END;
884 END IF;
885 RETURN (ASSAYVALUE);
886 END ASSAYMAX_DISPCFFORMULA;
887
888 FUNCTION MIN_CHARCFFORMULA(MIN_CHAR IN VARCHAR2) RETURN CHAR IS
889 TEXTSPEC VARCHAR2(16);
890 BEGIN
891 IF MIN_CHAR IS NULL THEN
892 RETURN (NULL);
893 ELSE
894 RETURN (MIN_CHAR);
895 END IF;
896 END MIN_CHARCFFORMULA;
897
898 FUNCTION MAX_CHARCFFORMULA(MAX_CHAR IN VARCHAR2) RETURN CHAR IS
899 TEXTSPEC VARCHAR2(16);
900 BEGIN
901 IF MAX_CHAR IS NULL THEN
902 TEXTSPEC := ' ';
903 ELSE
904 TEXTSPEC := MAX_CHAR;
905 END IF;
906 RETURN (TEXTSPEC);
907 END MAX_CHARCFFORMULA;
908
909 FUNCTION NUM_RESULTCFFORMULA(TEXT_RESULT IN VARCHAR2
910 ,NUM_RESULT IN NUMBER
911 ,TEST_TYPE IN VARCHAR2
912 ,PRECISION IN NUMBER) RETURN CHAR IS
913 L_PRECISION VARCHAR2(25);
914 L_NUMBER NUMBER;
915 L_NUM_RESULT VARCHAR2(25);
916 BEGIN
917 IF TEXT_RESULT IS NOT NULL THEN
918 RETURN (NULL);
919 ELSE
920 IF NUM_RESULT IS NOT NULL THEN
921 IF TEST_TYPE in ('N','L','E') THEN
922 L_PRECISION := '999999999999999D' || TO_CHAR(POWER(10
923 ,PRECISION) - 1);
924 L_NUMBER := NUM_RESULT;
925 L_NUM_RESULT := LTRIM(TO_CHAR(TO_NUMBER(TO_CHAR(L_NUMBER))
926 ,L_PRECISION));
927 RETURN (L_NUM_RESULT);
928 ELSE
929 L_NUMBER := TEXT_RESULT;
930 RETURN (L_NUMBER);
931 END IF;
932 ELSE
933 RETURN NULL;
934 END IF;
935 END IF;
936 END NUM_RESULTCFFORMULA;
937
938 FUNCTION TEXT_CODECFFORMULA(SPEC IN NUMBER) RETURN NUMBER IS
939 TEXTCODE NUMBER(10);
940 BEGIN
941 SELECT
942 TEXT_CODE
943 INTO TEXTCODE
944 FROM
945 GMD_SPECIFICATIONS_B
946 WHERE SPEC_ID = SPEC
947 AND DELETE_MARK = 0;
948 RETURN (TEXTCODE);
949 EXCEPTION
950 WHEN OTHERS THEN
951 RETURN (NULL);
952 END TEXT_CODECFFORMULA;
953
954 FUNCTION ORGCFFORMULA RETURN CHAR IS
955 ORG_CODE VARCHAR2(3);
956 BEGIN
957 SELECT
958 DISTINCT
959 ORGANIZATION_CODE
960 INTO ORG_CODE
961 FROM
962 MTL_PARAMETERS
963 WHERE ORGANIZATION_ID = P_ORGANIZATION_ID;
964 ORGCP := ORG_CODE;
965 /*SRW.MESSAGE(1000
966 ,':OrgCP ' || ORGCP)*/NULL;
967 RETURN (ORGCP);
968 END ORGCFFORMULA;
969
970 FUNCTION LOCATOR_NAMECFFORMULA(LOCATOR_ID IN NUMBER) RETURN CHAR IS
971 LOCATOR VARCHAR2(240);
972 BEGIN
973 SELECT
974 CONCATENATED_SEGMENTS
975 INTO LOCATOR
976 FROM
977 MTL_ITEM_LOCATIONS_KFV
978 WHERE INVENTORY_LOCATION_ID = LOCATOR_ID;
979 RETURN (LOCATOR);
980 EXCEPTION
981 WHEN OTHERS THEN
982 RETURN (NULL);
983 END LOCATOR_NAMECFFORMULA;
984
985 FUNCTION AFTERREPORT RETURN BOOLEAN IS
986 BEGIN
987 /*SRW.USER_EXIT('FND SRWEXIT')*/NULL;
988 RETURN (TRUE);
989 END AFTERREPORT;
990
991 FUNCTION ASSAY_TYPECP_P RETURN VARCHAR2 IS
992 BEGIN
993 RETURN ASSAY_TYPECP;
994 END ASSAY_TYPECP_P;
995
996 FUNCTION SPEC_CP_P RETURN VARCHAR2 IS
997 BEGIN
998 RETURN SPEC_CP;
999 END SPEC_CP_P;
1000
1001 FUNCTION ACCEPT_CP_P RETURN VARCHAR2 IS
1002 BEGIN
1003 RETURN ACCEPT_CP;
1004 END ACCEPT_CP_P;
1005
1006 FUNCTION FINAL_CP_P RETURN VARCHAR2 IS
1007 BEGIN
1008 RETURN FINAL_CP;
1009 END FINAL_CP_P;
1010
1011 FUNCTION DATECP_P RETURN VARCHAR2 IS
1012 BEGIN
1013 RETURN DATECP;
1014 END DATECP_P;
1015
1016 FUNCTION INCLUDECP_P RETURN VARCHAR2 IS
1017 BEGIN
1018 RETURN INCLUDECP;
1019 END INCLUDECP_P;
1020
1021 FUNCTION SAMPLECP_P RETURN VARCHAR2 IS
1022 BEGIN
1023 RETURN SAMPLECP;
1024 END SAMPLECP_P;
1025
1026 FUNCTION ITEMCP_P RETURN VARCHAR2 IS
1027 BEGIN
1028 RETURN ITEMCP;
1029 END ITEMCP_P;
1030
1031 FUNCTION LOTNOCP_P RETURN VARCHAR2 IS
1032 BEGIN
1033 RETURN LOTNOCP;
1034 END LOTNOCP_P;
1035
1036 FUNCTION LOCATORCP_P RETURN VARCHAR2 IS
1037 BEGIN
1038 RETURN LOCATORCP;
1039 END LOCATORCP_P;
1040
1041 FUNCTION SUBINVENTORYCP_P RETURN VARCHAR2 IS
1042 BEGIN
1043 RETURN SUBINVENTORYCP;
1044 END SUBINVENTORYCP_P;
1045
1046 FUNCTION FROM_ITEMCP_P RETURN VARCHAR2 IS
1047 BEGIN
1048 RETURN FROM_ITEMCP;
1049 END FROM_ITEMCP_P;
1050
1051 FUNCTION TO_ITEMCP_P RETURN VARCHAR2 IS
1052 BEGIN
1053 RETURN TO_ITEMCP;
1054 END TO_ITEMCP_P;
1055
1056 FUNCTION FROM_SAMPLECP_P RETURN VARCHAR2 IS
1057 BEGIN
1058 RETURN FROM_SAMPLECP;
1059 END FROM_SAMPLECP_P;
1060
1061 FUNCTION TO_SAMPLECP_P RETURN VARCHAR2 IS
1062 BEGIN
1063 RETURN TO_SAMPLECP;
1067 BEGIN
1064 END TO_SAMPLECP_P;
1065
1066 FUNCTION FROM_RSLT_DTCP_P RETURN VARCHAR2 IS
1068 RETURN FROM_RSLT_DTCP;
1069 END FROM_RSLT_DTCP_P;
1070
1071 FUNCTION TO_RSLT_DTCP_P RETURN VARCHAR2 IS
1072 BEGIN
1073 RETURN TO_RSLT_DTCP;
1074 END TO_RSLT_DTCP_P;
1075
1076 FUNCTION FROM_LOCATORCP_P RETURN VARCHAR2 IS
1077 BEGIN
1078 RETURN FROM_LOCATORCP;
1079 END FROM_LOCATORCP_P;
1080
1081 FUNCTION TO_LOCATORCP_P RETURN VARCHAR2 IS
1082 BEGIN
1083 RETURN TO_LOCATORCP;
1084 END TO_LOCATORCP_P;
1085
1086 FUNCTION FROM_LOTNOCP_P RETURN VARCHAR2 IS
1087 BEGIN
1088 RETURN FROM_LOTNOCP;
1089 END FROM_LOTNOCP_P;
1090
1091 FUNCTION TO_LOTNOCP_P RETURN VARCHAR2 IS
1092 BEGIN
1093 RETURN TO_LOTNOCP;
1094 END TO_LOTNOCP_P;
1095
1096 FUNCTION FROM_SUBINVENTORYCP_P RETURN VARCHAR2 IS
1097 BEGIN
1098 RETURN FROM_SUBINVENTORYCP;
1099 END FROM_SUBINVENTORYCP_P;
1100
1101 FUNCTION TO_SUBINVENTORYCP_P RETURN VARCHAR2 IS
1102 BEGIN
1103 RETURN TO_SUBINVENTORYCP;
1104 END TO_SUBINVENTORYCP_P;
1105
1106 FUNCTION ORGCP_P RETURN VARCHAR2 IS
1107 BEGIN
1108 RETURN ORGCP;
1109 END ORGCP_P;
1110
1111 END GMD_QCR02USR_XMLP_PKG;
1112
1113