触发器无效错误

我有一个带有"tipo_quarto"的表"paciente"，我需要一个触发器，每次我在"tipo_quarto"中插入一些东西时，表"quarto"都会更新"tipo"。

这是功能/触发器

    CREATE OR REPLACE FUNCTION ADD_PACIENTE_QUARTO
  (CONT IN VARCHAR Default Null)
  RETURN VARCHAR
 IS 
  PAC VARCHAR; 
BEGIN 
  Select TIPO_QUARTO into PAC from PACIENTE
  Where PAC = CONT;
  return PAC;
END ADD_PACIENTE_QUARTO;
create or replace TRIGGER PACIENTE_TRIGGER
  AFTER 
  INSERT OR UPDATE  
  ON TIPO_QUARTO 
  FOR EACH ROW 
  Declare 
  PAC VARCHAR;
  BEGIN
  PAC:=ADD_PACIENTE_QUARTO(:new.TIPO_QUARTO);
  If :new.TIPO_QUARTO = 'UTI' then
   PAC := PAC - :new.TIPO;
   else
   PAC := PAC + :new.TIPO;
  End If;
  UPDATE TIPO_QUARTO SET TIPO = PAC
    WHERE TIPO = :new.TIPO;
  END;

这是表格的;

太平洋

  CREATE TABLE PACIENTE 
(
PRIMEIRO_NOME VARCHAR(100) NOT NULL,
SEGUNDO_NOME VARCHAR(100) NOT NULL,
CPF NUMBER(11) NOT NULL,
IDADE NUMBER(3)NOT NULL,
SEXO VARCHAR(1)NOT NULL,
TIPO_QUARTO VARCHAR(3) NOT NULL,
CONSTRAINT PACIENTE_PK PRIMARY KEY(CPF)
);

TIPO_QUARTO

CREATE TABLE TIPO_QUARTO
(TIPO VARCHAR(3)NOT NULL,
PACIENTE_CPF NUMBER(11)NOT NULL,
CONSTRAINT TIPO_QUARTO PRIMARY KEY (TIPO),
CONSTRAINT TIPO_QUARTO_FK FOREIGN KEY(PACIENTE_CPF) REFERENCES PACIENTE(CPF)
);