มีแบบที่แยก คลินิกได้บ้างไหมครับ
อันนี้แหล่ะครับ..ไปแก้ใน variable ครับ..เพื่อ getpickuplist ครับ..จากตาราง clinic ก็ได้แล้วครับ.. เอา random ออกก็ได้..เอาช่วงเวลาออกก็ได้..อยู่ที่จะขอดูข้อมูลช่วงไหนของวันครับ...
s:=GetPickupList
('select "All" union select "OPD" union select "ER" union select "OTHER"');
if s='ALL' then
begin ChangeReportSQL('select a.vstdate,a.vn,a.hn,concat(pname,fname," ",lname) as ptname, '+
'a.vsttime ,a.service4 ,a.service11 ,a.service5 ,a.service12,a.service16, '+
'sec_to_time(time_to_sec(a.service11)-time_to_sec(a.vsttime)) as t1, '+
'sec_to_time(time_to_sec(a.service12)-time_to_sec(a.service11)) as t2 , '+
'sec_to_time(time_to_sec(a.service16)-time_to_sec(a.service12))as t3 , '+
'sec_to_time(time_to_sec(a.service16)-time_to_sec(a.vsttime)) as t4 '+
'from service_time a '+
'left outer join patient b on a.hn=b.hn '+
'left outer join ovst o on o.vn=a.vn '+
'where a.vstdate between "'+d1+'" and "'+d2+'" and a.vstdate not in (select holiday_date from holiday) '+
'and a.vn not in (select vn from lab_head) and a.vn not in (select vn from xray_head) '+
'and a.vsttime between "08:30:00" and "10:30:00" '+
'and a.service4>a.vsttime '+
'and a.service12>a.service5 order by rand()limit 300');