Registriert seit: 28. Mär 2006
Ort: 32816 Schieder-Schwalenberg
397 Beiträge
Delphi 10.4 Sydney
|
Procedur erzeugen
18. Nov 2022, 17:17
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.
Walter Landwehr Mfg
Walter
|
|
Zitat
|