Procedur erzeugen

[Walter Landwehr]

Hallo,

ich möchte eine Stored Procedur erzeugen bekomme aber einen Fehler in Zeile 14 Spalte 104. Was ist da falsch?

Delphi-Quellcode:

SET TERM ^ ;

create or alter procedure SP_PATBLATT (
    PATIENTNR integer,
    DIAGNOSE integer,
    DATUM date,
    SUCHWORT varchar(60),
    ANLAGE timestamp,
    ANLAGEBENUTZER varchar(35),
    DIAGNOSENR integer,
    REFERENZTABELLE varchar(2),
    REFERENZNR integer,
    ICD varchar(15))
as
begin
  if (not exits ('Select * from tbl_patdiagnose where suchwort = :SUCHWORT and patientnr = :PATIENTNR')) then
  begin
    INSERT INTO TBL_PATDIAGNOSE(PATDIAGNOSENR, PATIENTNR, DATUM, DAUERDIAGNOSE, DIAGNOSE,
                 ANLAGE, ANLAGEBENUTZER, DIAGNOSENR, Suchwort, ReferenzTabelle, ReferenzNr,ICD)
          VALUES (Gen_ID(GEN_TBL_PATDIAGNOSE,1), :PATIENTNR, :DATUM, 'N', :Diagnose,
                 :Anlage, :ANLAGEBENUTZER, :DIAGNOSENR, :Suchwort, 'PB', :ReferenzNr,:ICD);

  end
  suspend;
end^

SET TERM ; ^

Bitte um Hilfe.