... ลองทดสอบดูก่อนนะ พี่ทดสอบดูของพี่แล้วไม่ช้า
ตรง
and depcode in ("008","010","050") ก็ใส่แผนกของจุด screen
ตรง
form_name = "Lab Checkup (DM)" ก็ใส่ชื่อฟอร์ม lab ที่เราใช้ส่งตรวจ
...
....
var
fvn,fcomputername,fdepartment,fhn : string;
fdate_1,fdate_2,fdate_3 : string;
DM_HN,HT_HN : string;
tc : TClientDataset;
begin
fvn := GetGlobalValue('VN');
fcomputername := GetGlobalValue('CURRENT_COMPUTER');
fdepartment := GetGlobalValue('CURRENT_DEPCODE');
fhn := getsqldata('select hn from ovst where vn = "'+fvn+'" ');
{==================== Screen ====================}
if getsqldata('select depcode from kskdepartment where depcode = "'+fdepartment+'" '+
'
and depcode in ("008","010","050") ') = ''+fdepartment+'' then
begin
fdate_1 := formatdatetime('yyyy',getsqldata('select curdate()'));
if getsqldata('select count(vn) as cc from ovst where vn = "'+fvn+'" '+
'and month(vstdate) in ("10","11","12")') > 0 then
begin
fdate_2 := fdate_1+'-10-01" and "'+inttostr(strtoint(fdate_1) + 1)+'-09-30';
fdate_3 := inttostr(strtoint(fdate_1) + 544);
end
else
begin
fdate_2 := inttostr(strtoint(fdate_1) - 1)+'-10-01" and "'+fdate_1+'-09-30';
fdate_3 := inttostr(strtoint(fdate_1) + 543);
end;
DM_HN := getsqlsubquerydata('select hn from clinicmember where clinic = "001"');
HT_HN := getsqlsubquerydata('select hn from clinicmember where clinic = "002"');
{-------------------------------------------------------------------------------------------}
if getsqldata('select count(distinct hn) as cc from clinicmember '+
'where clinic = "001" and hn = "'+fhn+'" ') > 0 then
begin
if getsqldata('select count(*) as cc from lab_head '+
'where report_date between "'+fdate_2+'" '+
'and hn = "'+getsqldata('select hn from ovst where vn = "'+fvn+'"')+'" '+
'and hn in ('+DM_HN+') '+
'and
form_name = "Lab Checkup (DM)" ') > 0 then
showmessage(' <<< เป็นผู้ป่วยในคลีนิคเบาหวาน ได้รับการตรวจ Lab_Checkup(DM) ประจำปีงบประมาณ '+fdate_3+' นี้แล้ว >>> ')
else
showmessage(' <<< เป็นผู้ป่วยในคลีนิคเบาหวาน ยังไม่เคยได้รับการตรวจ Lab_Checkup(DM) ประจำปีงบประมาณ '+fdate_3+' >>> ');
end;
{-------------------------------------------------------------------------------------------}
if getsqldata('select count(*) as cc from ovstdiag where vn = "'+fvn+'" '+
'and hn not in ('+DM_HN+') '+
'and (icd10 between "E10" and "E1499")') > 0 then
begin
showmessage(' <<< ผู้ป่วยได้รับการ diag ว่าเป็นโรคเบาหวาน แต่ยังไม่ได้ขึ้นทะเบียนผู้ป่วยคลีนิคเบาหวาน >>> ');
end;
{-------------------------------------------------------------------------------------------}
if getsqldata('select count(*) as cc from ovstdiag where vn = "'+fvn+'" '+
'and hn not in ('+HT_HN+') '+
'and (icd10 between "I10" and "I1599")') > 0 then
begin
showmessage(' <<< ผู้ป่วยได้รับการ diag ว่าเป็นโรคความดันโลหิตสูง แต่ยังไม่ได้ขึ้นทะเบียนผู้ป่วยคลีนิคความดันโลหิตสูง >>> ');
end;
end;
end;
หัวข้อ: ฝาก script ให้ golf_win ครับ (อ่าน 7508 ครั้ง)