Anonymous

CREATE OR REPLACE PROCEDURE registerStove
(i_name IN VARCHAR2, i_phone IN VARCHAR2,
i_email IN VARCHAR2, i_serial IN NUMBER)
IS
  custID A5Customer.customerID%TYPE;
  stoveSerial A5Stove.serialNumber%TYPE;
BEGIN
  custID := getCustomerID(i_name, i_phone, i_email);
  stoveSerial := getStoveSerial(i_serial);
IF stoveSerial IS NULL THEN
  DBMS_OUTPUT.PUT_LINE('Stove Serial does not exist');
ELSIF custID IS NULL THEN
  createCustomer(i_name, i_phone, i_email);
  custID := getCustomerID(i_name, i_phone, i_email);
ELSE
  INSERT INTO A5Registration
  VALUES (custID, stoveSerial, CURRENT_DATE);
  COMMIT;
END IF;
END registerStove;