CREATE OR REPLACE TYPE employee_obj AS OBJECT (
  -- Attributes (Variables)
  emp_id     NUMBER,
  first_name VARCHAR2(50),
  last_name  VARCHAR2(50),
  salary     NUMBER,
  
  -- Member Methods (Functions bound to this instance)
  MEMBER FUNCTION get_full_name RETURN VARCHAR2,
  MEMBER PROCEDURE give_raise(p_amount NUMBER)
)
NOT FINAL; -- NOT FINAL allows this object to be inherited from
/

CREATE OR REPLACE TYPE BODY employee_obj AS

  MEMBER FUNCTION get_full_name RETURN VARCHAR2 IS
  BEGIN
    -- SELF refers to this specific instance
    RETURN SELF.first_name || ' ' || SELF.last_name;
  END;
  
  MEMBER PROCEDURE give_raise(p_amount NUMBER) IS
  BEGIN
    SELF.salary := SELF.salary + p_amount;
  END;

END;
/

DECLARE
  -- Declare a variable of our custom type
  v_emp employee_obj;
BEGIN
  -- Instantiate it using the implicit constructor
  v_emp := employee_obj(101, 'John', 'Doe', 50000);
  
  -- Call a member method
  DBMS_OUTPUT.PUT_LINE('Employee: ' || v_emp.get_full_name());
  
  -- Modify the object's state
  v_emp.give_raise(5000);
  DBMS_OUTPUT.PUT_LINE('New Salary: ' || v_emp.salary);
END;
/

CREATE OR REPLACE TYPE manager_obj UNDER employee_obj (
  -- Additional attributes specific to a Manager
  department_name VARCHAR2(50),
  
  -- Overriding a parent method (Polymorphism)
  OVERRIDING MEMBER FUNCTION get_full_name RETURN VARCHAR2
);
/

CREATE OR REPLACE TYPE BODY manager_obj AS

  OVERRIDING MEMBER FUNCTION get_full_name RETURN VARCHAR2 IS
  BEGIN
    RETURN 'Manager: ' || SELF.first_name || ' ' || SELF.last_name;
  END;

END;
/