sp_sick_append.sql

Delphi6开发的HIS程序

create or replace procedure sp_sick_ai(l_createby in integer,
                                       l_sickid   in integer) is
l_count integer;
begin
  select count(*) into l_count from recipe where sickid = l_sickid;
  if l_count > 0 then 
    return;
  end if;
  insert into recipe
    (created,
     isactive,
     isvalid,
     isprinted,
     st,
     updated,
     doctorid,
     reckoningid,
     createby,
     updateby,
     sickid)
  values
    (sysdate, 1, 0, 0, 1, sysdate, null, null, l_createby, null, l_sickid);
end;
/