มี Source code ของ
1.Export SSN
2.Import HCIS->HOSxP
3.Import HCIS->HOSxP_PCU
ให้ศึกษาบ้างมั๊ยครับ

ลองเอาสั่ง sql ไปประยุกต์ดูครับ
select a.hn,concat(pname,p.fname,' ',p.lname) as namept,a.order_date
,b.lab_items_code,c.lab_items_name
,count(a.hn) as amount,d.name as doctor
from lab_head a
left join lab_order b on b.lab_order_number=a.lab_order_number
left join lab_items c on c.lab_items_code=b.lab_items_code
left join doctor d on d.code=a.doctor_code
left join patient p on p.hn=a.hn
where a.order_date between '2008-1-1' and '2008-1-31'
group by a.hn,a.order_date,b.lab_items_code,a.doctor_code
having amount>1
order by a.hn,a.order_date,b.lab_items_code,a.doctor_code
น่าจะพอใช้ได้

หรือจะลองแบบนี้มั๊ง
select cm.hn,cm.last_vn,concat(p.pname,p.fname,' ',p.lname) as name
,concat(p.addrpart,ifnull(p.moopart,if(p.moopart=' ','',' ม.'+p.moopart)),' ',ifnull(t.full_name,'')) as address
,o.vstdate,o.bps,o.bpd,o.fbs,o.cholesterol,o.tg,o.hdl,o.ldl
from clinicmember cm
left join patient p on cm.hn=p.hn
left join thaiaddress t on t.addressid=concat(p.chwpart,p.amppart,p.tmbpart)
left join opdscreen o on cm.last_vn=o.vn
where cm.clinic=001
order by cm.hn

ลองปรับแต่งเอานะครับ โดยเอาผลจาก opdscreen

ของ อ.อ๊อด น่าจะ Connect ไม่ได้
น่าจะเป็น
กรณี 1
set talk off
close data
_server='192.168.1.1'
_user='sa'
_psw='sa'
_database='hos'ntoc(_database,0)
_connect = ;
"Driver={MySQL ODBC 3.51 Driver};" + ;
"Server=" + _server + ";" + ;
"UID=" + _user + ";" + ;
"PASSWORD=" + _psw + ";" + ;
"Database="+_database+";" +;
"Port=3306;" + ;
"Option= 0 ;"+;
"Stmt =set names tis620;"
_handle=sqlstringconnect(_connect)
if _handle>0
  ?'สามารถ Connect HOSxp ได้'
  =sqldisconect(_handle)
else
 =aerror(merror)
 ?'ไม่สามารถติดต่อ HOSxP ได้'
 ?merror(1,2)
endif
close data

ไม่ทำตัวตรวจสอบ cid ว่าถูกต้องหรือไม่ ก่อนนำเข้าหล่ะครับ
เห็นอ่านเข้าทุกอย่าง โดยไม่คำนึงถึงรูปแบบ กลัวข้อมูลจะเพี้ยนครับ

ผมว่าคุณใช้เงื่อนไขของวันนัด+วันมาตรวจ
ทำให้เกิดปัญหา ถ้านัดแล้วไม่มาตรวจหล่ะครับ
ผมว่าน่าจะเป็น
select vn.vn,oa.hn,oa.nextdate,concat(pt.pname,pt.fname,"   ",pt.lname) as pt_name,pt.addrpart,right(concat('0',pt.moopart),2) as moopart,ta.full_name,concat(vn.age_y," - ",vn.age_m," - ",vn.age_d) as pt_age,concat(os.bpd," / ",os.bps) as bpds

from oapp oa
left outer join vn_stat vn on vn.hn=oa.hn
left outer join patient pt  on pt.hn=oa.hn
left outer join thaiaddress ta on ta.addressid=concat(pt.chwpart,pt.amppart,pt.tmbpart)
left outer join opdscreen os on os.vn=vn.vn

where (oa.nextdate between '2007-10-24' or '2007-10-24' and vn.vstdate between '2007-10-24' )and '2007-10-24' and oa.clinic="002"

order by ta.addressid,moopart,pt.addrpart asc

ลองเปลี่ยนตรงช่วงสีแดงดูครับ น่าจะพอใช้ได้

ผมใช้โปรแกรม  HOSxP อยู่ ทำการย่อเพื่อใช้โปรแกรมอื่นแล้วกลับมาใช้
แต่ใช้ Num Pad ไม่ได้ ต้องเปิดแล้วเปิดใหม่
มีวิธีแก้ไขมั๊ยครับ

อ.ดึงข้อมูลจากฟิล์ด moid ใช่มั๊ยครับ
ฟิด์ลที่น่าจะได้
village=copy(moid,7,2)
tambon=copy(moid,5,2)
ampur=copy(moid,3,2)
changwat=copy(moid,1,2)
แบบนี้มั๊ยครับ (ผมลงย่อๆมาให้ดู)

รหัสมาตรฐาน (DID) หาจากที่ไหนครับ
หรือสามารถกำหนดเองได้เลย
หรือมีวิธีการกำหนดอย่างไรบ้าง

ผมใช้คำสั่งดึงข้อมูล แล้วเกิด error

Got error 134 from storage engine

หมายความว่าอย่างไรครับ

อ.MN ครับ ขอถามชื่อไฟล์ Source code หน่อยครับ
1.ลงทะเบียนผู้ป่วยใหม่
2.บันทึกส่งตรวจ
3.บันทึผลวินิจฉัย
*****
อ. มีไฟล์เสียง 21 กับ 101 บ้างมั๊ยครับ

ขอให้หายไวๆ นะครับ จะได้สู้ต่อไปอีกครับผม

การใช้งานของ OVST_DIAG_ID ทำงานอย่างไรครับ
ใช้ที่ max(ovst_diag_id)+1 ของ ovstdiag เลยรึปล่าวครับ
โดยตรวจสอบกับ seiral
*****
เห็น อ.ใช้ delete ovstdiag where vn=? แล้ว insert จาก getserialnumber()
ผมลองตรวจก้อไม่เห็นมี ovst_diag_id ข้ามครับ

ขอบคุณมากครับ
ที่จริงไม่น่าขึ้นอยู่กับ fixed_price เพราะราคาอยู่ที่หมอสั่ง หรือไม่ก้อห้องยา(ที่คิดเงิน)
เพราะห้อง X-Ray ก้อยังไม่ค่อยได้ใช้เท่าไร
แต่อย่างไรก้อได้ตามความต้องการของ รพ.ระดับหนึ่ง

ผมตรวจสอบ icode ของ xray_items ก้อมีใน nondrugitems
ก้อยังไม่ขึ้น ใช้ 3.50.6.17 อยู่ครับ
ต้องตรวจสอบตรงไหนอีกครับ

อ.ครับ จะ Click หรือไม่ ก้อทำงานครับ ในกรณีเป็นผู้ป่วยคลีนิคพิเศษ

ลองเป็น
select o.spclty,sp.name as spname,
sum(if(o.pttype between '61' and '96',1,0)) as countUC,
sum(if(o.pttype between '61' and '96',vn.income,0)) as sumUC,
sum(if(o.pttype between '34' and '35',1,0)) as countSSM,
sum(if(o.pttype between '34' and '35',vn.income,0)) as sumSSM,
sum(if(o.pttype='22',1,0)) as countA2,
sum(if(o.pttype='22',vn.income,0)) as sumA2,
from ovst o
left outer join spclty sp on sp.spclty=o.spclty
left outer join vn_stat vn on vn.vn=o.vn
where o.vstdate between "2007-01-01" and "2007-01-31" and o.an IS NULL
group by sp.spclty
order by sp.spclty,o.vstdate

ลองประยุกต์ตามสิทธิอื่นๆดูครับ

Error แบบนี้แก้ไขอย่างไรครับ
คือ เรยกผู้ป่วยจาก Modlue หร้องตรวจโรคขึ้นมา จะขึ้น error นี้ เป็นแค่บางรายครับ

1.การใส่ข้อมูลที่เป็น null ใน table ที่เรียกจาก sql โดย keyboard ทำอย่างไรครับ
พอดีลบข้อมูลแล้วเป็นช่องว่าง ยังไม่ได้ใช้คำสั่ง update
2.ค่าของ vsttime ที่ดึงข้อมูลด้วย vfp ออกมาไม่ถูกต้อง ที่ใช้ date_format(vsttime,'%T') แทน มีวิธีอื่นอีกมั๊ยครับ
3.Modile ของ บันทึกผลการตรวจรักษา มี bug ครับ คือถ้าแพทย์ไม่ลงโรคมา แล้วจะลงสถาพผลการรักษา
เป็น Admit หรือ Refer ต้องทำการบันทึกก่อน แล้วค่อยเปิดมาแก้ไข แล้วถ้าเป็น Refer จะไม่มีข้อมูลเก่าขึ้นมา

ถ้าเป็นแบบนี้หล่ะครับ
select a.hn,b.pname,b.fname,b.lname,c.vstdate,d.fbs,d.bps,d.bpd
from clinicmember a
left join patient b on a.hn=b.hn
left join ovst c on a.hn=c.hn
left join opdscreen d on c.vn=d.vn
where a.clinic=(select sys_value from sys_var where sys_name='dm_clinic_code') //บางที่ให้รหัสไม่เหมือนกัน
and c.vstdate='2007-3-29'
order by (b.chwpart+b.amppart+b.tmbpart)

อยากทราบรหัสผ่านของ User แต่ละราย
เพราะมี User ระดับ Admin หลายคน
ไม่ทราบใครไปเปลี่ยนแปลงอะไรบ้าง บางครั้งของๆผมก้อถูกเปลี่ยน
ทำให้เข้าโปรแกรมไม่ได้
*****
ผมเห็นมี func DeCrypttext,EnCrypttext อยู่ แต่ใช้ไม่เป็น
มีตัวอย่างบ้างมั๊ยครับ

ขอความหมายตัวแปรใน DataResyncVNU.PAS
FODrugAccountIncome := gethosvariable('non_drug_account_income');
หาค่าได้อย่างครับ

จากคำสั่ง Sql
select a.hn,concat(b.pname,b.fname,' ',b.lname) as name,b.addrpart,b.moopart,h.age_y,h.age_m,h.age_d,b.sex,b.marrystatus,g.icd10 as dx,e.name as pttype,
date_format(a.vsttime,'%T') as time,c.nextdate,concat(round(d.bps,0),'/',round(d.bpd,0)) as bp,d.cc,d.pe,d.fbs,d.bw,d.height,d.bmi,f.name as result
from ovst a
left join patient b on a.hn=b.hn
left join oapp c on a.vn=c.vn
left join opdscreen d on a.vn=d.vn
left join pttype e on a.pttype=e.pttype
left join ovstost f on a.ovstost=f.ovstost
left join ovstdiag g on a.vn=g.vn and g.diagtype=1
left join vn_stat h on a.vn=h.vn
where a.vstdate='2007-3-12'
and b.chwpart=62 and b.amppart=10 and b.tmbpart=02
group by a.hn
order by a.vsttime
ถ้า Run Sql สามารถอ่านได้ แต่ถ้า Excel Exopt ใน Column ของ CC กับ PE จะออกเป็น (MEMO)
ต้องทำอย่างไรบ้างครับ

มีวิธีโอนข้อมูลจาก ovst,ovstdiag ไป vn_stat
และ vn_stat ไป  ovst,ovstdiag บ้างมั๊ยครับ
เนื่องจากผมใช้คำสั่ง sql ลบข้อมูลบ้างตัวออกไป
แล้วตรวจสอบเห็นข้อมูลไม่เท่ากันครับ
*****
ขอของ an_stat ไป ipt,iptdiag
และ ipt,iptdiag ไป an_stat ด้วยนะครับ

ระบบผู้ป่วยนอก
->ลงทะเบียนเวชระเบียน
-->ตัวเลือกการพิมพ์
--->เปิดหน้าจอส่งตรวจหลังการบันทึก จะติ๊กหรือไม่ ก้อจะเปิดหน้าต่างส่งตรวจตลอดครับ