sp_medicinestockcheckout.sql

Delphi6开发的HIS程序

create or replace procedure sp_medicinestockcheckout
(
  l_stockoutorderid in integer
)
is
  cursor c is select * from soomedicinedetail where stockoutorderid = l_stockoutorderid;
  r soomedicinedetail%rowtype;
  l_medicineid integer;
  result integer;
begin
  for r in c loop
    result := sp_medicinestockdecrease(r.medicinestockid, r.soomedicinedetailid, r.amount);
  end loop;
end;
/