declare
  object_exists  exception;
  except_02275  exception;
  except_02270  exception;

  pragma exception_init (object_exists  , -01430);
  pragma exception_init (except_02275  , -02275);
  pragma exception_init (except_02270  , -02270);
begin
	execute immediate 'ALTER TABLE CAJA_DIVERSOS_PAGO
					   ADD CONSTRAINT FK_CAJA_DIVERSOS_PAGO_OCD FOREIGN KEY (OCD_ID)
					   REFERENCES OCD (OCD_ID)';
  
  exception 
    when object_exists  then null;
    when except_02275  then null;
    when except_02270  then null;
end;