อ.MN ครับ วิธีทำ ReSync VN ทำอย่างไรครับ
แบบกำหนดทั้งปี พ.ศ. ได้มั๊ยครับ

ขอให้โชคดี มีสุข มีเงินทองใช้ ปราศจากเรื่องเครียดๆหนักๆ ทุกท่านครับผม

ผู้ป่วยนอก น่าจะเป็น
select p.hn,p.pname,p.fname,p.lname,p.sex,p.birthday
,p.addrpart,p.moopart,p.tmbpart,p.amppart,p.chwpart,max(o.vstdate) as vstdate
from patient p
left join ovst o on p.hn=o.hn
left join ovstdiag o1 on o.vn=o1.vn
where o1.icd10 between 'b20' and 'b24'
and p.hn not in (select hn from death)
group by p.hn
having count(o.hn)>2
****
ผู้ป่วยใน น่าจะ
select p.hn,p.pname,p.fname,p.lname,p.sex,p.birthday
,p.addrpart,p.moopart,p.tmbpart,p.amppart,p.chwpart,max(o.regdate) as regdate
from patient p
left join ipt o on p.hn=o.hn
left join iptdiag o1 on o.an=o1.an
where o1.icd10 between 'b20' and 'b24'
and p.hn not in (select hn from death)
group by p.hn
having count(o.hn)>2

พอจะใช้ได้มั๊ยครับ

น่าจะมีบอกไว้เกี่ยวกับบางคำสั่ง เพราะใช้ต่าง version กัน
เช่น timestampdiff ใช้ใน MySQL 5 ขึ้นไป
เพราะของผมยังใช้ 4 อยู่เลยใช้ไม่ได้
*****
ผมไม่แน่ใจว่า from_days กับ to_days เป็น store procedures รึปล่าว
เห็นมีอยู่หลายตัวเหมือนกันใน HOSxP

แฟ้ม HOME ข้อมูล Changwat,Ampur,Tambon น่าจะผิดนะครับ
ใส่สลับตัวแปร

ผมใช้ mysql 4.1 อยู่ ใช้คำสั่งอะไรครับ

หรือจะลองแบบนี้มั๊ง
select ov.vstdate,count(op.hn) as hn
,sum(if(op.bpd>0,1,0)) as bpd
,sum(if(op.bps>0,1,0)) as pbs
,sum(if(op.bw>0,1,0)) as bw
,sum(if(op.pulse>0,1,0)) as pulse
,sum(if(op.temperature>0,1,0)) as temperature
from opdscreen op , ovst ov
where op.vstdate between "2007-08-01" and "2007-08-31" and op.vn = ov.vn
and ov.main_dep = "010"
group by ov.vstdate

ลองสั่ง update patient set drugallergy=null where drugallergy='""'

มีแบบแยกเป็น Module มั๊ยครับ

ลองตรวจตรง DRGs Income Group ดูซิครับ
ฟิลด์ DRG_Group ใน income

ถ้าเราจะทำให้ขึ้นอัตโนมัติได้มั๊ยครับ แบบการสั่ง Lab

อ.ครับ มี Er-Diagram ของห้องบัตรบ้างมั๊ยครับ
ขอแยกเป็น Module ได้มั๊ยครับ(บัตรใหม่,ลงทะเบียน,ลงโรค)

จาก Module บันทึกผลการตรวจรักษา
1.ไม่ต้องการลง Screen Data ต้องทำอย่างไรครับ กรณีผู้ป่วยคลีนิคพิเศษ
2.ไม่ให้ขึ้น Auto Dx ของผู้ป่วยคลีนิคพิเศษได้มั๊ยครับ
*****
อ. ยังไม่ได้แก้เกี่ยวกับสภาพผลการตรวจรักษาครับ
ในกรณีที่แพทย์ยังไม่ได้ลงโรคมา
เราจะแก้เป็นอย่างอื่นไม่ได้ ต้องบันทึกไปครั้งหนึ่งก่อน แล้วกลับมาแก้
กรณี Refer ข้อมูลเก่าจะไม่ขึ้นมา

ใน vn_stat เป็น SDx รึปล่าวครับ
จากคำสั่งแรก มันหาเฉพาะที่เป็น priciple dx นะครับ
ลองเป็น
select *
from vn_stat
where pdx='n63' or dx0='n63' or dx1='n63' or dx2='n63' or dx3='n63' or dx4='n63' or dx5='n63'
สิครับ

จากรูปที่ 1 ถ้าไม่มีการลง Dx.มาก่อน จะเปลี่ยนสถาพหลังการตรวจเป็นอย่างอื่นๆไม่ได้(01-12 หรือ 54)
จะได้เฉพาะ 99

จากรูปที่ 2 เมื่อมีการแก้ไข จะไม่มีข้อมูลเก่าที่เคยลงขึ้นมา

ขอรบกวนอาจารย์ หรือท่านผู้รู้
เกี่ยวกับวิธีใช้ DeCryptText หน่อยครับ

ถ้าคุณใช้ VFP ได้
ลองส่งแฟ้ม DBF มาให้สัก 10 records สิครับ
จะทำ code ให้ครับ
หรือที่ woravet@yahoo.com ก้อได้ครับ

ขอบคุณครับ
****
อ.MN ครับ ขอวิธีคำนวณ LASTVISIT,LASTVISIT_HOUR หน่อยได้มั๊ยครับ
ลองดูแล้วยังงงอยู่ครับ

คือผมจะให้คำสั่งนี้กับ User ที่จะใช้ เพราะยังไม่ได้ออกแบบ Report ให้
อยากให้ Export แบบง่ายๆ ไปก่อน เพื่อการใช้งานเบื้องต้น
*****
โดยปกติผม Export เป็น DBF เพราะยังใช้ VFP เป็นอยู่บ้าง

ผมใช้คำสั่ง sql
select vn,hn,vstdate from ovst where vn not in (select vn from vn_stat)
ซึ่งผลลัพธ์มีจำนวนมาก เมื่อเทียบกับ
select vn,hn,vstdate from vn_stat where vn not in (select vn from ovst)
ดังนั้นผมอยากได้ Script หรือวิธีที่จะโอนข้อมูลจาก ovst,ovstdiag--->vn_stat

Diagnosis has been locked
Diagnosis data not save

คือผมจะลงโรคเพิ่ม หรือแก้ไขรหัสโรคให้ถูกต้อง
จากระบบผู้ป่วยนอก->บันทึกผลการตรวจรักษา

ลองคำสั่งนี้ดูมั๊ยครับ ตรงกับความต้องการหรือไม่?
select a.xn,concat(b.pname,b.fname,' ',b.lname) as name,d.xray_items_code,e.xray_items_name
from xrayxn a left join patient b on a.hn=b.hn
left join xray_head c on a.xn=c.pt_xn
left join xray_report d on c.vn=d.vn
left join xray_items e on d.xray_items_code=e.xray_items_code
where a.xn=4901973

select a.hn,concat(b.pname,b.fname,' ',b.lname) as name,a.staff,c.groupname from ovst a,patient b,opduser c
where a.hn=b.hn and a.staff=c.loginname
and a.vstdate='2006-12-15'
order by c.loginname,a.hn
แบบนี้รึปล่าว เปลี่ยนวันที่เอาเองนะ

รูปแบบการส่งรายงาน 504/505 เป็นแบบไหนกันบ้างครับ
ที่ สสจ.กำแพงเพชร ยังรับแบบ DBF ไฟล์
*****
ส่วนประกอบของไฟล์
Hosp c(12)  ซึ่งเป็นรหัสหน่วยงานแบบเก่า ใน table hospcode ไม่มี
Date c(4)     =yymm
Case1....Case? n(5)
*****
ผมลองส่งตัวอย่างมาให้ดู

ตัวอย่างที่ผมลองทำครับ ดึงเฉพาะข้อมูล
unit RP504;

var
  MainForm: TForm;
  OKButton, SaveButton, PrintButton, ExitButton: TButton;
  ds1, ds2: TDateEdit;
  lds1, lds2, lcode, lid, lname,lpath: TLabel;
  tcode, tid, tname,tpath: TEdit;
  FAborting: boolean;
  yymm:string;
  rp:TTzDBF;
  rphosp:TStringField;
  rpdate:TStringField;
  rpcase1:TStringField;
  rpcase2:TStringField;
  rpcase3:TStringField;
  rpcase4:TStringField;
  rpcase5:TStringField;
  rpcase6:TStringField;
  rpcase7:TStringField;
  rpcase8:TStringField;
  rpcase9:TStringField;
  rpcase10:TStringField;
  rpcase11:TStringField;
  rpcase12:TStringField;
  rpcase13:TStringField;
  rpcase14:TStringField;
  rpcase15:TStringField;
  rpcase16:TStringField;
  rpcase17:TStringField;
  rpcase18:TStringField;
  rpcase19:TStringField;
  rpcase20:TStringField;
  rpcase21:TStringField;

implementation

procedure OKClick(Sender: TObject);
var
  sdate,edate:tdatetime;
  tc:Tclientdataset;
begin
  yymm:=formatdatetime('yymm',strtodate(ds2.text));
  sdate:=ds1.text;
  edate:=ds2.text;
  tc:=TClientDataset.create(nil);
  tc.data:=HOSxP_GetDataset('select a.*,ifnull(d.amount,0) as amount from rpt_504_name a left join '+
  ' (select b.id,count(b.id) as amount from rpt_504_code b,ovstdiag c '+
  ' where c.icd10 between b.code1 and b.code2 and c.icd10 is not null '+
  ' and c.vstdate between "'+formatdatetime('yyyy-mm-dd',sdate)+'" and "'+formatdatetime('yyyy-mm-dd',edate)+'"'+
  ' group by b.id) d on d.id=a.id'+
  ' order by a.id');
  while not tc.eof do
  begin
  showmessage(tc.fieldbyname('id').asstring+'=>'+tc.fieldbyname('amount').asstring);
  tc.next;
  end;
end;

procedure ExitClick(Sender: TObject);
begin
  mainform.close
end;

procedure Main;
begin
  MainForm := TForm.Create(nil);
  MainForm.top := 200;
  MainForm.left := 200;
  MainForm.Width := 400;
  MainForm.Height := 400;

  lcode := tlabel.create(mainform);
  lcode.parent := mainform;
  lcode.top := 10;
  lcode.left := 10;
  lcode.caption := 'Code';

  tcode := tedit.create(mainform);
  tcode.parent := mainform;
  tcode.top := 10;
  tcode.left := 70;
  tcode.width := 85;
  tcode.text := '110962100000';

  lid := tlabel.create(mainform);
  lid.parent := mainform;
  lid.top := 35;
  lid.left := 10;
  lid.caption := 'Off_ID';

  tid := tedit.create(mainform);
  tid.parent := mainform;
  tid.top := 35;
  tid.left := 70;
  tid.width := 40;
  tid.text := VarToStr(GetSQLData('select hospitalcode from opdconfig'));

  lname := tlabel.create(mainform);
  lname.parent := mainform;
  lname.top := 60;
  lname.left := 10;
  lname.caption := 'Name';

  tname := tedit.create(mainform);
  tname.parent := mainform;
  tname.top := 60;
  tname.left := 70;
  tname.width := 200;
  tname.text := VarToStr(GetSQLData('select hospitalname from opdconfig'));

  lds1 := tlabel.create(mainform);
  lds1.parent := mainform;
  lds1.top := 85;
  lds1.left := 10;
  lds1.caption := 'Begin Date';

  ds1 := TDateEdit.Create(MainForm);
  ds1.parent := mainForm;
  ds1.left := 70;
  ds1.top := 85;
  ds1.Width := 85;
  ds1.text := now-formatdatetime('dd',now)+1;

  lds2 := tlabel.create(mainform);
  lds2.parent := mainform;
  lds2.top := 85;
  lds2.left := 200;
  lds2.caption := 'End Date';

  ds2 := TDateEdit.Create(MainForm);
  ds2.parent := mainForm;
  ds2.left := 270;
  ds2.top := 85;
  ds2.Width := 85;
  ds2.text := now;

  lpath := tlabel.create(mainform);
  lpath.parent := mainform;
  lpath.top := 110;
  lpath.left := 10;
  lpath.caption := 'Send To';

  tpath := tedit.create(mainform);
  tpath.parent := mainform;
  tpath.top := 110;
  tpath.left := 70;
  tpath.width := 200;
  tpath.text := 'C:\TEMP';

  OKButton := TButton.Create(MainForm);
  OKButton.parent := mainForm;
  OKButton.left := 30;
  OKButton.top := 180;
  OKButton.Width := 60;
  OKButton.caption := 'OK';
  OKButton.OnClick := OKClick;

  ExitButton := TButton.Create(MainForm);
  ExitButton.parent := mainForm;
  ExitButton.left := 140;
  ExitButton.top := 180;
  ExitButton.Width := 60;
  ExitButton.caption := 'Exit';
  ExitButton.OnClick := ExitClick;

  MainForm.Caption := 'ÃÒ§ҹ 504';
  MainForm.Showmodal;
  MainForm.free;
end;

end.