เนื่องจากปี 2560 ทาง สนย. เปลี่ยนแปลงรหัส LABTEST เดิม 2 หลัก เป็น ICD-10-TM ซึ่งไม่ทราบว่าสถานบริการต้องดำเนินการยังไงให้แฟ้ม LABFU ออกรหัส LABTEST จำนวน 7 หลัก อย่างที่ สนย. ต้องการครับ 

DATE_FORMAT(birthdate,"%Y%m%d")

ขอบ่นหน่อย
สปสช.เค้าเห็นว่าอนามัยงานน้อยไปหรืองัยเนี้ย
คิดได้ไงให้คีย์ชั่งน้ำหนัก ส่วนสูง เด็ก 0-5 ปีภายในเดือนเดียว

ลองดู ถ้าไม่ใช่คำตอบก็มองผ่านไปละกัน

select c.hn,concat(p.pname,p.fname," ",p.lname) as patient_name ,count(c.clinic) as cc,
    YEAR( FROM_DAYS( DATEDIFF( NOW( ) , p.birthday ))) as age,
    concat("บ้านเลขที่ " ,p.addrpart," หมู่ที่ ", p.moopart," ต. ", d.district ," อ. ", d.amphur," จ. ", d.province) as address, c.lastvisit AS date_visit
from clinicmember c,patient p, dbaddress d
where c.hn = p.hn and (c.clinic in (select sys_value from sys_var where sys_name = "ht_clinic_code")
  or c.clinic in (select sys_value from sys_var where sys_name = "dm_clinic_code") )
   and CONCAT(p.chwpart,p.amppart,p.tmbpart) = d.iddistrict
   AND CONCAT(p.chwpart,p.amppart) = d.idamphur
   AND p.chwpart = d.idprovince
group by c.hn ,p.pname,p.fname,p.lname
having count(c.clinic)>1

ลองดูว่าใช่ข้อมูลที่ต้องการหรือเปล่า (ปรับเปลี่ยนเอา variable มาแทนวันที่ละกัน)

SELECT pvl.person_id, pvl.person_vaccine_id, pvl.vaccine_date, pv.vaccine_name, o1.nextdate
FROM `person_vaccine_list` pvl
INNER JOIN person_vaccine pv ON pv.person_vaccine_id = pvl.person_vaccine_id
LEFT JOIN (SELECT * FROM oapp o WHERE o.nextdate BETWEEN "2012-01-01" and "2012-01-31") o1 ON o1.person_vaccine_id = pvl.person_vaccine_id
WHERE vaccine_date BETWEEN "2012-01-01" and "2012-01-31"
   AND ISNULL(o1.person_vaccine_id)
ORDER BY pvl.vaccine_date

ที่ รพสต.ผมเปิดตัว sync ไว้ตลอดเวลาไม่ปิดเครื่องเลย
ตัว sync มันอับเดตเอง
ปัญหาคือส่งไม่สมบูรณ์ซักที มันเริ่มที่ตัว 10.3  พออับเดต 10.4 ก็ยังไม่ผ่านคับ
และ ข้อมูลของ รพสต. หรือสถานีอนามัย ส่วนใหญ่จะมีขนาดไม่เยอะมาก

ช่วยด้วยคับ ข้อมูล Refer ไม่บันทึกลงตาราง

INSERT INTO referout (vn,rfrcs,refer_date,hospcode,refer_type,refer_cause,refer_number,doctor,clinic,refer_point,refercheck1,refercheck2,refercheck3,refercheck4,refercheck2_date,refercheck3_text,refercheck4_text,department,refer_time,hn,pttype,pre_diagnosis,pmh,hpi,lab_text,treatment_text,other_text,pdx,docno,depcode,confirm_date,confirm_text,confirm_diagnosis,dest_hospital_department,spclty,with_nurse,with_ambulance,due_date,referout_status_id,referout_transfer_hospcode,hos_guid,refer_begin_time,refer_end_time,refer_process_time_hour,refer_process_time_minute,refer_response_type_id,senttonet,rfo_sent,refer_hospcode,expire_date,dest_hospcode_instruction_text,refer_write_staff,referout_id) VALUES ('550217122132','1','2012-02-17','10721',0,1,'215','0002',NULL,'ER',NULL,NULL,NULL,NULL,NULL,NULL,NULL,'OPD','13:40:50','0001872','82','e11',NULL,NULL,NULL,0x43686C6F727068656E6972616D696E6520546162202843504D292034206D672E20323020E0C1E7B42031337074283120E0C1E7B4202A203320504320290D50415241434554414D4F4C20353030206D672E20323020E0C1E7B420317072742070636D20283120E0C1E7B42070726E2920C3D1BABBC3D0B7D2B920A4C3D1E9A7C5D02020312020E0C1E7B40DA4E8D2BAC3D4A1D2C3BCD9E9BBE8C7C2B9CDA120E3B9E0C7C5D2C3D2AAA1D2C3202031200D,NULL,'J069',NULL,'015',NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL)

ลองดูแถว ตาราง
person_wbc
person_wbc_nutrition
person_wbc_service
person_wbc_vaccine
person_wbc_vaccine_detail

 
สอบถามเรื่องการนำไฟล์ CDS เข้าในฐานข้อมูล ใน Tool >systemsettin>cds merge utility
ผมลอง save mysql เป็น ไฟล์ CDS โดย
with ClientDataSet1 do
  begin
     Close;     
     CommandText := 'select * from person limit 100' ;
     Open;
     SaveToFile('c:\person.cds');
  end;
พอได้ไฟล์ CDS มาแล้ว เอามาดูใน DBGRID โดยไปกำหนด
with ClientDataSet2 do
  begin
    Close;
    FileName := 'c:\person.cds';
    Open;
  end;
แล้วถ้าผมจะเอาข้อมูลในไฟล์ CDS  เข้ามาเพิ่มในฐานข้อมูลทำอย่างไรคับ ช่วยบอกหน่อยได้มัยคับ 
ต้องอาศัย component อะไรเพิ่มหรือเป่าคับ
ขอบคุณล่วงหน้าสำหรับคำตอบ หรือ source code ง่ายๆ แนบมาให้ด้วย ถ้าจะกรุณานะคับ

hosxp pcu
ลอง check serial พร้อม boot เครื่องใหม่แล้ว
เป็นเหมือนเดิม

ไม่แน่ใจว่าตาราง opitemrece_finance_log  หายหรือเปล่า
ไปที่ tool เข้าไปที่ MySQL Query พิมพ์ หรือ copy คำสั่งข้างล่างไปวาง  แล้วกดปุ่ม Exec

CREATE TABLE opitemrece_finance_log (
  opitemrece_finance_log_id int(11) NOT NULL,
  vn varchar(13) NOT NULL,
  log_datetime datetime DEFAULT NULL,
  staff varchar(50) DEFAULT NULL,
  log_data longtext,
  department char(3) DEFAULT NULL,
  PRIMARY KEY (opitemrece_finance_log_id),
  KEY ix_vn (vn))

เรื่องของเรื่อง คือ อยากรู้ว่าต้องแก้ไขยังไงบ้างนะคับ
เพื่อเอาไปเป็นแนวทางในการเขียนรายงานของหน่วยงานเองนะคับ

ส่วน variables ประกาศ
var
    clinic_hn,clinic,clinicname,ward:string;
   rxdate1,rxdate2:tdatetime;
   date1,date2:tdatetime;
   income : string;
   fbs1,fbs2,ix2:string;
   bps1,bps2,bpd1,bpd2 : string;

ส่วน Events

procedure GlobalOnCreate;
begin
   GetDateRangeDialog(date1, date2);
   rxdate1:=date1;
   rxdate2:=date2;
   bps1 := inputquery('BP ªèǺ¹àÃÔèÁµé¹','BPs1')    ;
   bps2 := inputquery('BP ªèǺ¹ÊÔé¹ÊØ´','BPs2')    ;
   bpd1 := inputquery('BP ªèÇÅèÒàÃÔèÁµé¹','BPd1')    ;
   bpd2 := inputquery('BP ªèÇÅèÒÊÔé¹ÊØ´','BPd2')    ;
  clinicname:= getpickuplist('select name from clinic where chronic="Y" order by name');
  clinic:=getsqlstringdata('select clinic from clinic where name="'+clinicname+'"');
   clinic_hn := getsqlsubquerydata('select hn from clinicmember where clinic="'+clinic+'"');
   clinic_hn := getsqlsubquerydata('select hn from ovst where vstdate between  "'+formatdatetime('yyyy-mm-dd',rxdate1)+'"  and "'+formatdatetime('yyyy-mm-dd',rxdate2)+'" and hn in ('+clinic_hn+') ');   
   
ChangeReportSQL('SELECT o.bpd,o.bps,CONCAT(FORMAT(o.bps,000),"/",FORMAT(o.bpd,000)) AS BP, o.fbs,v.pdx, v.vstdate,     '+
'v.hn,v.pdx,i.name,v.age_y,v.age_m,aid,v.moopart,       '+
'concat(p.pname,p.fname," ",p.lname)as ptname ,t.full_name          '+
'FROM opdscreen o             '+
'INNER JOIN vn_stat v ON v.vn = o.vn         '+
'INNER JOIN icd101 i ON i.`code` = v.main_pdx        '+
'INNER JOIN patient p ON p.hn = o.hn         '+
'INNER JOIN thaiaddress t ON t.addressid = v.aid        '+
'INNER JOIN clinicmember c ON c.hn = o.hn          '+
'WHERE (o.vstdate BETWEEN "'+formatdatetime('yyyy-mm-dd',rxdate1)+'"  and "'+formatdatetime('yyyy-mm-dd',rxdate2)+'" )    '+
'AND v.main_pdx <> "" AND (o.bps BETWEEN "'+ bps1 +'" AND "'+ bps2 +'") AND (o.bpd BETWEEN "'+ bpd1 +'" AND "'+ bpd2 +'") and o.hn in ('+clinic_hn+') ');

 end;

concat(FORMAT(o.bps,000) ,"/",FORMAT(o.bpd,000))