sp_medicinesotckfind.sql

Delphi6开发的HIS程序

create or replace function sp_medicinesotckfind(l_medicineid in integer)
  return integer is
  l_medicinestockid integer;
begin
  select medicinestockid
  into   l_medicinestockid
  from   medicinestock
  where  medicineid = l_medicineid;
  return l_medicinestockid;
exception
  when others then
    return -1;
end;
/