getistday

/* Formatted on 2013/06/10 17:41 (Formatter Plus v4.8.8) */
CREATE OR REPLACE FUNCTION getistday (DAY IN VARCHAR2, utctime VARCHAR2)
   RETURN VARCHAR2
IS
   RESULT   VARCHAR2 (20);
   p_day    VARCHAR2 (3)  := ' ';
BEGIN
   IF (utctime >= '1830' AND utctime <= '2359')
   THEN
      IF (DAY = 'MON')
      THEN
         p_day := 'TUE';
      END IF;

      IF (DAY = 'TUE')
      THEN
         p_day := 'WED';
      END IF;

      IF (DAY = 'WED')
      THEN
         p_day := 'THU';
      END IF;

      IF (DAY = 'THU')
      THEN
         p_day := 'FRI';
      END IF;

      IF (DAY = 'FRI')
      THEN
         p_day := 'SAT';
      END IF;

      IF (DAY = 'SAT')
      THEN
         p_day := 'SUN';
      END IF;

      IF (DAY = 'SUN')
      THEN
         p_day := 'MON';
      END IF;
   ELSE
      p_day := DAY;
   END IF;

   RESULT := p_day;
   RETURN (RESULT);
END getistday;
/