sp_medicinestockfindminsprice2.sql

Delphi6开发的HIS程序

create or replace function sp_medicinestockfindminsprice2
(
  l_pstockmedicineid in integer
)
return number
is
  l_medicinestockid integer;
begin
  select medicinestockid into l_medicinestockid from pstockmedicine where pstockmedicineid = l_pstockmedicineid;
  return sp_medicinestockfindminsprice(l_medicinestockid);
end;
/