sp_daexecute.sql

来自「Delphi6开发的HIS程序」· SQL 代码 · 共 20 行

create or replace procedure sp_daexecute
(
  l_inpatientid in integer,
  l_createby    in integer
)
is
  l_reckoningid integer;
  l_stockoutorderid integer;
begin
  select reckoningid into l_reckoningid from inpatient where inpatientid = l_inpatientid;
  if l_reckoningid is null then
    l_reckoningid := sp_reckoningappend();
    update inpatient set reckoningid = l_reckoningid where inpatientid = l_inpatientid;
  end if;
  sp_damedicineexecute(l_inpatientid, l_stockoutorderid, l_reckoningid, l_createby);
  sp_daserviceexecute(l_inpatientid, l_stockoutorderid, l_reckoningid, l_createby);
end;
/