แสดงกระทู้
This section allows you to view all posts made by this member. Note that you can only see posts made in areas you currently have access to.
thank ครับ ผมลองก่อนนะครับ
ลองแล้ว ดั่งภาพอ่ะครับ เฮ้อๆ เหนื่อยแล้ว มันเป็นที่ Data base หรือเปล่าครับ
ช่วยแจ้ง mysql ด้วยครับว่าใช้ตัวไหนอยู่
พร้อมสองตัว ก็ใช้งานได้นี้ครับ
if gl1='OPD' then
begin
Value := GetSQLIntegerData('select count(distinct(vn)) as c_an from vn_stat'+
' where vstdate between "'+ds1+'" and "'+ds2+'"'+
' and lastvisit <=28 and substring(pdx,1,3) between "E10" and "E14"');
end else
if gl1='IPD' then
Value := GetSQLIntegerData('select count(distinct(an)) as c_an from an_stat'+
' where regdate between "'+ds1+'" and "'+ds2+'"'+
' and lastvisit <=28 and substring(pdx,1,3) between "E10" and "E14"');
end;
end;
Value := GetSQLStringData('select count(*) from vn_stat where vstdate="'+FormatDatetime('yyyy-mm-dd',DBPipeline['vstdate'])+'"');
ผมมีแนวคิดว่าจะทำเหมือนกันครับ แต่จะใช้ความสามารถของ router แทนการทำ server ครับ
เดี๋ยวรอไปทำงานจะ capture mysql monitor มาให้ดูอีกทีครับ
ช่วง 8.00-9.00 กราฟค่อนข้างสูง
แต่เรื่องกราฟไม่ค่อยติดใจเท่าไหร่
ปัญหาคือหลังจากที่ config my.cnf ไปใหม่แล้วพบว่าที่ห้อง ER มีอาการค้างบ่อยครับ
คือใช้งานได้สักพัก ก็จะเป็นนาฬิกาทรายค้างไปเลยช่วงบันทึกข้อมูล หรือดึงข้อมูลครับ
ก็เลยสงสัยว่า my.cnf ไปตั้งค่าตัวไหนไม่ดีหรือเปล่าครับ
ถึงกราฟจะเตี้ยก็จริงแต่ไม่ใช่ว่าระบบจะดี ตามกราฟนะครับ
ของผม ไม่เตี้ยแต่ก็ไม่สูง ถ้าให้ดี
เอาไปเจอที่ประชุม ที่เขาใหญ่เดี๋ยวจะทำให้แบบเฉพาะ รพ.ของท่านเลย
เห็นด้วยครับ...พอจะมี tool ตัวไหนไหมครับในการโอนจาก patient มาเป็น person ในกรณีนอกเขตครับ แล้วตอนนี้พอมีท่านใดทราบไหมครับ ว่า สปสช.รับข้อมูลแต่ยังไม่แจ้งผลมาตั้งแต่วันที่ 1 ธันวาคม 2552 นี่เกิดจากปัญหาของสปสช.เขาหรือว่าปัญหาของเรา แต่ว่าไฟล์ 4 แฟ้มก่อนหน้านี้ ส่งได้แล้วก็ได้รับผลตลอดน่ะครับ ท่ายใดพอรู้บ้างครับอ้างถึง3. ของผมเป็นการส่งข้อมูล โรงพยาบาลมีผลกระทบต่อการส่งข้อมุล เนื่องจาก อ.ชัยพร เอาฟิวส์ของ Person ซึ่งคนไข้ของผมอยู่นอกเขตพื้นที่สะส่วนใหญ่ ทำให้ขขึ้น error ตามรูปข้างบน จำเป็นไหนจะต้องลงข้อมูลคนไข้ทั้งหมดใน person ผมยังมิกล้าทำอะไร
ตก desc ไปอันนึง และเพิ่ม o.vsttime ให้ด้วย เสร็จแล้ว น่าจะเป็นแบบนี้ครับ
select o.vstdate, o.vsttime, o.hn,p.pname,p.fname,p.lname,o.bw,o.height,o.bmi,o.waist
from opdscreen o
left outer join patient p on p.hn=o.hn
where o.hn ="0012876"
order by vstdate desc,vsttime desc
limit 1
ตกจนได้ อิอิ
ใครเคยเจอปัญหาแบบนี้บ้างครับ
ผมลงเวอร์ชันอัพเกรดใน windows 7 ไปแล้ว ตอนลงคลิ๊กขวาแล้วเลือก Run as Administrator
พอเปิดโปรแกรมจะไม่มีหน้าต่าง login พอปิดโปรแกรมแล้วเปิดใหม่ จะกลายเป็นเวอร์ชัน Full_Setup ตอนแรกครับ
ก็ใช้ได้แต่ต้องแก้นิดหนึ่ง
จะรู้ได้ยังไงครับ
title bar ด้านบนโปรแกรม น่าจะมีแจ้งไว้นะครับ
เอ่อ ไม่ใช่ในโปรแกรมที่ใช้งาน ครับ
ใน Server Linux เราเลยครับ
แล้วพอจะมีวิธีให้คนไข้ใน patient เข้าไปอยู่ใน person เยอะเท่าที่จะเยอะได้ไหมครับ มี tool หรือคำสั่ง ตัวไหนแนะนำบ้างครับTool ตัวที่พี่ให้ผมอ่ะครับ TurboHOSxP ลองใช้ดูแล้ว
unit hn2hn;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ComCtrls;
type
TForm1 = class(TForm)
Edit1: TEdit;
Edit2: TEdit;
Label1: TLabel;
Label2: TLabel;
Button1: TButton;
Edit3: TEdit;
Label3: TLabel;
pg: TProgressBar;
Label4: TLabel;
logmemo: TMemo;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var tc,ts:tclientdataset; i:integer;
begin
tc:=tclientdataset.create(nil);
ts:=tclientdataset.create(nil);
tc.data:=hosxp_getdataset('select * from hosxp_ddl_field where field_name ="vn"');
pg.position:=0;
pg.max:=tc.recordcount;
while not tc.eof do
begin
label4.caption:=tc.fields[0].asstring;
if tc.fields[1].asstring ='vn' then
begin
logmemo.lines.add('Change...'+tc.fields[0].asstring);
try
hosxp_getdataset('update '+tc.fields[0].asstring+' set hn="'+edit3.text+'" where vn="'+edit2.text+'" and hn="'+edit1.text+'" ');
except end;
end;
logmemo.lines.add('Change...'+'update '+tc.fields[0].asstring+' set hn="'+edit3.text+'" where vn="'+edit2.text+'" and hn="'+edit1.text+'" ');
pg.position:=pg.position+1;
application.processmessages;
tc.next;
end;
tc.free;
ts.free;
showmessage('Done.');
end;
end.
object Form1: TForm1
Left = 0
Top = 0
Caption = 'Hosxp VN2VN by Doraemon saiyok'
ClientHeight = 492
ClientWidth = 567
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
OldCreateOrder = False
PixelsPerInch = 96
TextHeight = 13
object Label1: TLabel
Left = 32
Top = 35
Width = 45
Height = 22
Caption = 'HN (OLD)'
end
object Label2: TLabel
Left = 32
Top = 91
Width = 50
Height = 18
Caption = 'VN'
end
object Label3: TLabel
Left = 32
Top = 147
Width = 48
Height = 13
Caption = 'HN (NEW)'
end
object Label4: TLabel
Left = 80
Top = 224
Width = 31
Height = 13
Caption = 'Label4'
end
object Edit1: TEdit
Left = 96
Top = 32
Width = 153
Height = 41
TabOrder = 0
Text = '0062411'
end
object Edit2: TEdit
Left = 96
Top = 79
Width = 153
Height = 41
TabOrder = 1
Text = '510807210208'
end
object Button1: TButton
Left = 80
Top = 256
Width = 393
Height = 73
Caption = 'Button1'
TabOrder = 2
OnClick = Button1Click
end
object Edit3: TEdit
Left = 96
Top = 144
Width = 153
Height = 41
TabOrder = 3
Text = '0023900'
end
object pg: TProgressBar
Left = 80
Top = 344
Width = 393
Height = 17
TabOrder = 4
end
object logmemo: TMemo
Left = 80
Top = 384
Width = 393
Height = 89
Lines.Strings = (
'logmemo')
TabOrder = 5
end
end
ไม่ใช้เทพ..นะครับ..แต่ขอแชร์ประสบการณ์คำตอบโดนใจมากครับ
..........
รพ.ผม ส่งมาตั้งแต่วันที่ 1 พ.ย
ใช้ Ver 3.52.10.30-->11.11 ปัญหา D_update,และ ชื่อไม่แสดง เคยเจอมาบ้าง..ครับ
ผมก็พยายามปรับปรุง...มาเรื่อยๆ จนปัจจุบันเหลือ Error เฉพาะ รหัสยา 24 หลัก ที่เป็นยาสมุนไพร,diag รหัส U
..............
D_update ใน Person ตามที่สังเกต หาก ผู้มารับบริการ OPD ไม่มี ใน Person จะไม่มี D_update ส่งออก
..............
และจะไม่มี TAMBON,AMPUR,CHANGWAT หากไม่ลงที่อยู่นอกเขต(ในกรณีหมู่ 0)=>Person_address
..............
ส่วน ชื่อไม่มา ลองตรวจสอบ cid ใน Person ว่ามี ซ้ำหรือเปล่า,ใน Patient ด้วย.. ตัว 1111111111111 ตัวดี เลย ผมเจอครั้งหนึ่ง ส่งออกมาตั้งเยอะ..(คนเดียว 40 กว่า Record)ตองตามลบ..ก่อนส่ง 4 แฟ้ม
ลองดูครับ...ผมทำได้คุณก็ทำได้..เป็นกำลังใจให้ครับ....
ทำไมถึงใช้ Variable ดึงอ่ะครับเพราะ variable จะใช้ดึงค่า ๆ เดียว (ไม่เคยทำแบบหลายฟิล์สักทีแม้แต่ดึงทีละหลาย reccord ก็ยังไม่เคยทำเลยครับ คิดว่าไม่น่าจะทำได้)