view.sql

Delphi6开发的HIS程序

create or replace view v_notinhospitalsick as
select sick.* from sick, inpatient
where sick.sickid = inpatient.sickid (+) and
      inpatient.inpatientid is null and
      to_char(sick.created, 'yyyy-mm-dd') = to_char(sysdate, 'yyyy-mm-dd');

create or replace view v_notinhospitalsicktoll as
select sick.*, reckoning.reckoningid from sick, inpatient, reckoning
where sick.sickid = inpatient.sickid (+) and  reckoning.sickid = sick.sickid  and
      inpatient.inpatientid is null;