sp_medicinestockdecrease.sql

Delphi6开发的HIS程序

create or replace function sp_medicinestockdecrease(l_medicinestockid in integer,
                                                    l_soomedicinedetailid in integer,
                                                    l_amount          in out soomedicinedetail.amount%type)
return integer 
is
  result integer; 
begin
  result := sp_medicinestockdecrease2(l_medicinestockid, l_amount);
  if result = 0 then
    update soomedicinedetail set isapprove = 1 where soomedicinedetailid = l_soomedicinedetailid;
  end if;
  
  return result;
end;
/