?? sp_daexecute.sql
字號:
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;
/
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -