sp_medicinestockdecrease.sql

来自「一整套的源代码」· SQL 代码 · 共 17 行

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;
/