382: IF length <> -99 AND width <> -99 AND height <> -99 THEN
383: --Find max, med, and min of the three dimensions
384: IF length > width AND length > height THEN
385: maxDimV := length;
386: SELECT GREATEST(width, height) INTO midDimV FROM dual;
387: SELECT LEAST(width, height) INTO minDimV FROM dual;
388: ELSE
389: IF width > height THEN
390: maxDimV := width;
383: --Find max, med, and min of the three dimensions
384: IF length > width AND length > height THEN
385: maxDimV := length;
386: SELECT GREATEST(width, height) INTO midDimV FROM dual;
387: SELECT LEAST(width, height) INTO minDimV FROM dual;
388: ELSE
389: IF width > height THEN
390: maxDimV := width;
391: SELECT GREATEST(length, height) INTO midDimV FROM dual;
387: SELECT LEAST(width, height) INTO minDimV FROM dual;
388: ELSE
389: IF width > height THEN
390: maxDimV := width;
391: SELECT GREATEST(length, height) INTO midDimV FROM dual;
392: SELECT LEAST(length, height) INTO minDimV FROM dual;
393: ELSE
394: maxDimV := height;
395: SELECT GREATEST(width, length) INTO midDimV FROM dual;
388: ELSE
389: IF width > height THEN
390: maxDimV := width;
391: SELECT GREATEST(length, height) INTO midDimV FROM dual;
392: SELECT LEAST(length, height) INTO minDimV FROM dual;
393: ELSE
394: maxDimV := height;
395: SELECT GREATEST(width, length) INTO midDimV FROM dual;
396: SELECT LEAST(width, length) INTO minDimV FROM dual;
391: SELECT GREATEST(length, height) INTO midDimV FROM dual;
392: SELECT LEAST(length, height) INTO minDimV FROM dual;
393: ELSE
394: maxDimV := height;
395: SELECT GREATEST(width, length) INTO midDimV FROM dual;
396: SELECT LEAST(width, length) INTO minDimV FROM dual;
397: END IF;
398: END IF;
399:
392: SELECT LEAST(length, height) INTO minDimV FROM dual;
393: ELSE
394: maxDimV := height;
395: SELECT GREATEST(width, length) INTO midDimV FROM dual;
396: SELECT LEAST(width, length) INTO minDimV FROM dual;
397: END IF;
398: END IF;
399:
400: debug_output('maxDimV='||maxDimV || ', midDimV=' || midDimV || ', minDimV=' || minDimV );
415:
416: --Find max, med, and min of the three dimensions
417: IF c1rec.UNIT_LENGTH > c1rec.UNIT_WIDTH AND c1rec.UNIT_LENGTH > c1rec.UNIT_HEIGHT THEN
418: maxDimP := c1rec.UNIT_LENGTH;
419: SELECT GREATEST(c1rec.UNIT_WIDTH, c1rec.UNIT_HEIGHT) INTO midDimP FROM dual;
420: SELECT LEAST(c1rec.UNIT_WIDTH, c1rec.UNIT_HEIGHT) INTO minDimP FROM dual;
421: ELSE
422: IF c1rec.UNIT_WIDTH > c1rec.UNIT_HEIGHT THEN
423: maxDimP := c1rec.UNIT_WIDTH;
416: --Find max, med, and min of the three dimensions
417: IF c1rec.UNIT_LENGTH > c1rec.UNIT_WIDTH AND c1rec.UNIT_LENGTH > c1rec.UNIT_HEIGHT THEN
418: maxDimP := c1rec.UNIT_LENGTH;
419: SELECT GREATEST(c1rec.UNIT_WIDTH, c1rec.UNIT_HEIGHT) INTO midDimP FROM dual;
420: SELECT LEAST(c1rec.UNIT_WIDTH, c1rec.UNIT_HEIGHT) INTO minDimP FROM dual;
421: ELSE
422: IF c1rec.UNIT_WIDTH > c1rec.UNIT_HEIGHT THEN
423: maxDimP := c1rec.UNIT_WIDTH;
424: SELECT GREATEST(c1rec.UNIT_LENGTH, c1rec.UNIT_HEIGHT) INTO midDimP FROM dual;
420: SELECT LEAST(c1rec.UNIT_WIDTH, c1rec.UNIT_HEIGHT) INTO minDimP FROM dual;
421: ELSE
422: IF c1rec.UNIT_WIDTH > c1rec.UNIT_HEIGHT THEN
423: maxDimP := c1rec.UNIT_WIDTH;
424: SELECT GREATEST(c1rec.UNIT_LENGTH, c1rec.UNIT_HEIGHT) INTO midDimP FROM dual;
425: SELECT LEAST(c1rec.UNIT_LENGTH, c1rec.UNIT_HEIGHT) INTO minDimP FROM dual;
426: ELSE
427: maxDimP := c1rec.UNIT_HEIGHT;
428: SELECT GREATEST(c1rec.UNIT_WIDTH, c1rec.UNIT_LENGTH) INTO midDimP FROM dual;
421: ELSE
422: IF c1rec.UNIT_WIDTH > c1rec.UNIT_HEIGHT THEN
423: maxDimP := c1rec.UNIT_WIDTH;
424: SELECT GREATEST(c1rec.UNIT_LENGTH, c1rec.UNIT_HEIGHT) INTO midDimP FROM dual;
425: SELECT LEAST(c1rec.UNIT_LENGTH, c1rec.UNIT_HEIGHT) INTO minDimP FROM dual;
426: ELSE
427: maxDimP := c1rec.UNIT_HEIGHT;
428: SELECT GREATEST(c1rec.UNIT_WIDTH, c1rec.UNIT_LENGTH) INTO midDimP FROM dual;
429: SELECT LEAST(c1rec.UNIT_WIDTH, c1rec.UNIT_LENGTH) INTO minDimP FROM dual;
424: SELECT GREATEST(c1rec.UNIT_LENGTH, c1rec.UNIT_HEIGHT) INTO midDimP FROM dual;
425: SELECT LEAST(c1rec.UNIT_LENGTH, c1rec.UNIT_HEIGHT) INTO minDimP FROM dual;
426: ELSE
427: maxDimP := c1rec.UNIT_HEIGHT;
428: SELECT GREATEST(c1rec.UNIT_WIDTH, c1rec.UNIT_LENGTH) INTO midDimP FROM dual;
429: SELECT LEAST(c1rec.UNIT_WIDTH, c1rec.UNIT_LENGTH) INTO minDimP FROM dual;
430: END IF;
431: END IF;
432:
425: SELECT LEAST(c1rec.UNIT_LENGTH, c1rec.UNIT_HEIGHT) INTO minDimP FROM dual;
426: ELSE
427: maxDimP := c1rec.UNIT_HEIGHT;
428: SELECT GREATEST(c1rec.UNIT_WIDTH, c1rec.UNIT_LENGTH) INTO midDimP FROM dual;
429: SELECT LEAST(c1rec.UNIT_WIDTH, c1rec.UNIT_LENGTH) INTO minDimP FROM dual;
430: END IF;
431: END IF;
432:
433: GET_UOM_CONVERSION_RATES(c1rec.dimension_uom_code,
1464: --This query allows access to the expanded windows of activity of the origin facility
1465: --Query based on what is currently being used in snapshot to populate calendars flat-file (6/6/2003)
1466: BEGIN
1467: SELECT 2 INTO exceptionFlag --SYS_NO (no exception since there is at least one overlapping shift)
1468: FROM DUAL
1469: WHERE EXISTS
1470: ( SELECT caldates.CALENDAR_DATE
1471: FROM BOM_CALENDAR_DATES caldates,
1472: BOM_SHIFT_DATES sdates,
1663: --This query allows access to the expanded windows of activity of the origin facility
1664: --Query based on what is currently being used in snapshot to populate calendars flat-file (6/6/2003)
1665: BEGIN
1666: SELECT 2 INTO exceptionFlag --SYS_NO (no exception since there is at least one overlapping shift)
1667: FROM DUAL
1668: WHERE EXISTS
1669: ( SELECT caldates.CALENDAR_DATE
1670: FROM BOM_CALENDAR_DATES caldates,
1671: BOM_SHIFT_DATES sdates,
1992:
1993: IF planRows <> 1 THEN
1994: SELECT 'no entry or too many entries in mst plans for plan ' || TO_CHAR(plan_idIn)
1995: INTO errbuf
1996: FROM dual;
1997: retcode := 2;
1998: RETURN;
1999: END IF;
2000:
2024: IF mst_state IS NULL THEN
2025: debug_output('Data needs to be snapshoted before running audit report');
2026: SELECT 'Data needs to be snapshoted before running audit report'
2027: INTO errbuf
2028: FROM dual;
2029: retcode := 3;
2030: RETURN;
2031: END IF;
2032: ELSE
2039: IF mst_state <> 1 AND mst_state <> 2 THEN
2040: debug_output('Audit report cannot be run in current state, state = ' || TO_CHAR(mst_state));
2041: SELECT 'Audit report cannot be run in current state, state = ' || TO_CHAR(mst_state)
2042: INTO errbuf
2043: FROM dual;
2044: retcode := 3;
2045: RETURN;
2046: END IF;
2047: ELSE