fetch_next_service.sql

  FUNCTION FETCH_NEXT_SERVICE
  RETURN BOOLEAN
  AS
    num_Rows                          NUMBER;
  BEGIN
    rc_ServiceRow := NULL;
    rc_OverlappingRow := NULL;

    OPEN c_NextService;

    FETCH c_NextService INTO rc_ServiceRow;
    FETCH c_NextService INTO rc_OverlappingRow;

    num_Rows := c_NextService%ROWCOUNT;

    CLOSE c_NextService;

    RETURN num_Rows > 0;
  END FETCH_NEXT_SERVICE;