创建存储过程，包及包体

--创建包
create or replace package PAK_ExecuteAttendingDoctor is
type cp_results is ref cursor;
procedure ExecuteAttendingDoctor(start_time  in varchar2,end_time in  varchar2,cp_results  out cp_results);
end PAK_ExecuteAttendingDoctor;

--创建包体
create or replace package body PAK_ExecuteAttendingDoctor is
procedure ExecuteAttendingDoctor(start_time in varchar2,
end_time   in varchar2,
cp_results out cp_results) is
begin
open cp_results for
select distinct *
from (select t.dept_code, t.dept_name
from dcp_sys_user t
where t.dept_code > 0
and t.dept_code is not null
group by t.dept_code, t.dept_name) mm,
(select a.execute_dept,
a.attending_doctor,
nvl(a.fhrs, 0) fhrs,
nvl(b.nrrs, 0) nrrs,
nvl(c.wcrs, 0) wcrs,
round(nvl(b.nrrs  / a.fhrs, 0), 4) nrl,
round(nvl(c.wcrs  / b.nrrs, 0), 4) wcl,
nvl(d.xdyzzs, 0) xdyzzs,
nvl(xdlcljyzs, 0) xdlcljyzs,
round(nvl(xdlcljyzs / d.xdyzzs, 0), 4) xdl
from --按医生统计符合人数
(select execute_dept, attending_doctor, count(patient_no) fhrs
from lcp_patient_visit v
where v.conform_master_id > 0
and v.admission_date >=
to_date(start_time, 'yyyy-mm-dd')
and v.admission_date <=
to_date(end_time, 'yyyy-mm-dd hh24:mi:ss')
group by v.execute_dept, v.attending_doctor) a,
----纳入人数---
(select execute_dept,
v1.attending_doctor,
count(patient_no) nrrs
from lcp_patient_visit v1
where v1.cp_master_id > 0
and v1.admission_date >=
to_date(start_time, 'yyyy-mm-dd')
and v1.admission_date <=
to_date(end_time, 'yyyy-mm-dd hh24:mi:ss')
group by v1.execute_dept, v1.attending_doctor) b,
----完成人数-----
(select execute_dept,
v2.attending_doctor,
count(patient_no) wcrs
from lcp_patient_visit v2
where v2.cp_master_id > 0
and v2.cp_state = 11
and v2.admission_date >=
to_date(start_time, 'yyyy-mm-dd')
and v2.admission_date <=
to_date(end_time, 'yyyy-mm-dd hh24:mi:ss')
group by v2.execute_dept, v2.attending_doctor) c,
----下达医嘱总数-----
(select count(*) xdyzzs, v.execute_dept, v.attending_doctor
from lcp_patient_log_order t, lcp_patient_visit v
where t.patient_no in
(select t.patient_no
from lcp_patient_visit t
where t.cp_state in (1, 11, 21)
and t.admission_date >=
to_date(start_time, 'yyyy-mm-dd')
and t.admission_date <=
to_date(end_time, 'yyyy-mm-dd hh24:mi:ss'))
and t.patient_no = v.patient_no
group by v.execute_dept, v.attending_doctor) d,
----下达临床路径医嘱数-----
(select count(*) xdlcljyzs, v.execute_dept, v.attending_doctor
from lcp_patient_log_order t, lcp_patient_visit v
where t.patient_no in
(select t.patient_no
from lcp_patient_visit t
where t.cp_state in (1, 11, 21)
and t.admission_date >=
to_date(start_time, 'yyyy-mm-dd')
and t.admission_date <=
to_date(end_time, 'yyyy-mm-dd hh24:mi:ss'))
and t.cp_node_order_item_id > 0
and t.patient_no = v.patient_no
group by v.execute_dept, v.attending_doctor) e

where a.execute_dept = b.execute_dept(+)
and a.attending_doctor = b.attending_doctor(+)
and a.execute_dept = c.execute_dept(+)
and a.attending_doctor = c.attending_doctor(+)
and a.execute_dept = d.execute_dept(+)
and a.attending_doctor = d.attending_doctor(+)
and a.execute_dept = e.execute_dept(+)
and a.attending_doctor = e.attending_doctor(+)) aa
where mm.dept_name = aa.execute_dept
order by aa.execute_dept, nrrs desc;
end ExecuteAttendingDoctor;

end PAK_ExecuteAttendingDoctor;