sp_rmedicinesetactive.sql

Delphi6开发的HIS程序

create or replace procedure sp_rmedicinesetactive
(
  l_reckoningid in integer
)
is
  cursor c is select * from rmedicine where reckoningid = l_reckoningid;
  r rmedicine%rowtype;
begin
  for r in c loop
    if r.isactive = 0 then
      if sp_pstockcheckout(r.pstockmedicineid, r.amount) = 0 then
        update rmedicine set isactive = 1 where rmedicineid = r.rmedicineid;
      end if;
    end if;
  end loop;
end;
/