sp_medicinestockappend.sql

Delphi6开发的HIS程序

create or replace function sp_medicinestockappend
(
  l_medicineid in integer
)
return integer
is
  l_count integer;
  l_medicinestockid integer;
begin
  select medicinestock_id.nextval into l_medicinestockid from dual;
  insert into medicinestock
  (
    medicinestockid,
    amount,
    minamount,
    medicineid
  )
  values
  (
    l_medicinestockid,
    0,
    0,
    l_medicineid
  );
  return l_medicinestockid;
end;
/