ถาม อ.manoi ไม่ทราบจะมีระบบ offline สำหรับ HOSxP  ไหมครับ เพราะตอนนี้ก็มีให้เฉพาะ HOSxP PCU เท่านั้น  เพราะที่  รพร.  ก็ได้ดัดแปลง เอา HOSxP  PCU  ใช้ในการออกคลินิก  ออกหน่วย (เฉลี่ย เดือนละครั้งครับ ออกไปตรวจตาม สอ. ภายใน อำเภอด่านซ้าย ก็จะนัดคนไข้ไว้ล่วงหน้า เฉลี่ย 70-90 คน) โดยใช้ HOSxP PCU ในการส่งตรวจ แต่ให้พยาบาลและแพทย์ใช้ หน้าจอ ของ HOSxP  ตรวจเหมือนที่ รพร. ใช้ตรวจปกติ  เวลานำกลับมา ก็ ใช้ระบบ  offline ส่งเข้าไป ฐาน ของ รพร. (ก็ไปแก้ไข ตาราง ovst ฟิวล์ pt_subtype=2  เพราะจากเดิมมันจะเป็น 1 ต้องเปลี่ยนเป็น 2 จะได้ประเภทคนไข้  ออกหน่วย  แทน)  ก็ได้เฉพาะบางตาราง เช่น  ovst , vn_stat ฯลฯ  แต่ตารางที่ไม่ได้นำเข้าไป ผมก็เขียน script pascal  ส่งเข้าเอง เช่น  ovstdiag (ตารางนี้ต้องปรับปรุง ovst_diag_id ใหม่ เพราะเดี่ยวจะไปชนกับในฐาน จริง) opitem...  และ  opitem..._summary  ( 2 ตารางหลังนี้ นำเข้าได้เลย เพราะไม่ซ้ำอยู่แล้ว)  เสร็จแล้ว ผมก็ทำการ check Serial  และ repiar Serial

ถามว่า ต่อไปจะมีระบบ  offline สำหรับ HOSxP  ไหมครับ และ ขั้นตอนที่ผมทำไป จะมีผลอะไรกับระบบไหมครับ

โทษทีไม่ได้ตาม โหลดเอาไปก่อนนะ  วิธีใช้จะตามไปทีหลังครับ

ขอคำแนะนำการใช้งาน  Turbo Hosxp ตัวที่ให้โหลดในกระทู้เก่า
http://hosxp.net/index.php?option=com_smf&Itemid=28&topic=459.0
Database development with Turbo Delphi Part I

ไม่ทราบว่าตอนนี้  Hosxp  ใช้ ฟังชันใหม่ในการเข้า Login  หรือเปล่าครับ  ผมเข้าใช้งาน  Turbo_HOSxP ตัวเก่าใส่รหัสผ่าน ถูกต้อง แต่ก็ยังเข้าไม่ได้อยู่ดี  แจ้งว่ารหัสไม่ถูกต้องอะครับ
ก่อนหน้านี้ใช้ได้ดีๆ อยู่

รบบวนชี้แนะด้วยครับ

หน้าจอแพทย์เวลาสั่ง  xray  แล้วหน้าจอจะค้างเป็น  นาฬิกาทราบ ครับ  แต่จะเห็นรายการสั่งไว้อยู่ครับ  แต่ถ้าไปดูที่หน้าจอของห้อง xray  จะไม่มีรายการที่สั่งเลยครับ   ผมได้ตรวจสอบจากหน้าจอจุดซักประวัติ  สามารถสั่ง xray  ได้ปกติ  และหน้าจอห้องฉุกเฉิน  ก็สั่งได้ปกติ   เป็นเฉพาะหน้าจอแพทย์ตรวจ   ครับ  ที่ไม่สามารถสั่ง  xray ได้ครับ  ส่วนค่าใช้จ่ายจะขึ้นอยู่ครับ  เป็นทุกราย  เท่าที่สุ่มมาดูครับ   รบกวนอ.  ตรวจสอบให้ด้วยครับ

ปัจจุบันใช้ Linux  Centos 5
จากรูปมีการใช้  Memory ไป  99%  ก็เลยส่งสัยว่ามีโอกาศที่จะ server ดาว  ได้ไหมครับ  และมีวิธีแก้ไขไหมครับ  ตรวจสอบแล้วพบว่ามีตัวที่ใช้ memory 8.2  น่าจะเกี่ยวไหมครับ  รบกวนผู้เชี่ยวชาญ แนะนำด้วยครับ

ผมอัพเกรด v 5.30.11.30(31)  ใช้เวลานานมาก ( แต่ไม่มี  Error  อะไรนะครับ ) เสร็จใช้เวลา  7 ชัวโมง กว่า  เพราะเวอร์ชันก่อน ๆ ก็ใช้เวลาไม่เกิน  1-2  ชั่วโมง นะครับ 
ตรวจสอบแล้วพบว่าจะใช้เวลา   เช็ค  Pimary key แต่ละตาราง  นานมาก และ  Alter table  นานเหมือนกัน 
รบกวน อ. หรือท่านที่มีประสบการณ์เรื่องนี้แนะนำด้วยครับ

ผมใช้เวอร์ชัน  3.50.10++  มาตลอดมี   Error occurred  มาตลอด  ไม่ทราบวิธีแก้ไข  รบกวนอ.  ช่วยแนะนำด้วยครับ 

error  Ovst: Field 'er_time' on found   

อาจารย์ครับ  สามารถใช้  ภาษา  html  เพื่อเปิด  script pascal  ที่อยู่ใน  sys_app_script  ได้ไหมครับ  เพื่อสะดวกในการขอใช้งาน ครับ  รบกวนอาจารย์พิจารณาด้วยครับ

     ฝากให้อาจารย์อ๊อดครับ  ตามคำขอครับ  เป็น PHP ครับ เป็นตัวกรอกข้อมูลในฐาน Hosxp แล้วส่งออกไปยังโปรแกรม PapReg2006 build10  นะครับ  แต่ตอนนี้กำลังปรับปรุงโครงสร้างให้เข้ากับ PapReg2006 build 11.1  อยู่นะครับ  เสร็จแล้วจะส่งไปให้ใหม่ครับ 
     ตอนนี้ก็รออาจารย์ชัยพร  จะบอก script pascal  คำสั่งส่งออก  dbf  , txt ,  mdb  หรืออื่น ๆ (เห็นบอกว่าจะมาโพสไว้ให้  ตอนนี้ก็รออยู่นะครับ)  เพื่อจะเอาไปปรับใช้การส่งรายงาน ต่าง ๆ ที่จำเป็นต้องส่งให้กับหน่วยงานภายนอก สสอ. สอ.ต่าง ๆ เทศบาล ก็มีมาข้อเหมือนกัน และหน่วยงานอื่นๆ อีก  รบกวนอาจารย์ช่วยโพสเร็วๆ ด้วยนะครับ 
     ตั้งแต่ผมแจก โปรแกรมเรียกคิวไป(นานแล้ว) ตอนนี้ก็ปรับปรุงใหม่ ใช้ vb ติดต่อกับ mysql  สามารถเรียกจากจุดไหนก็ได้  เดี่ยวว่างๆ จะมาโพส ครับ

ขอคำแนะนำ script export DBF  หน่อยครับ  ทำตาม script export DBF  ของอาจารย์ให้มาแล้ว
(อ้างอิงจาก  Link    http://hosxp.net/index.php?option=com_smf&Itemid=28&topic=1065.0    )  
มี error มีข้อความว่า  'unit' expected but '1.' found.   

1.  unit Unit1;
2.   
3.  interface
4.   
5.  uses
6.    Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
7.    Dialogs, ExtCtrls, StdCtrls, DB, DBClient, Grids, DBGrids, ComCtrls;
8.   
9.  type
10.    TForm1 = class(TForm)
11.      Panel1: TPanel;
12.      Panel2: TPanel;
13.      Panel3: TPanel;
14.      DBGrid1: TDBGrid;
15.      cds: TClientDataSet;
16.      ds: TDataSource;
17.      Button1: TButton;
18.      Button2: TButton;
19.      Button3: TButton;
20.      Label1: TLabel;
21.      cxDateEdit1: TcxDateEdit;
22.      procedure Button1Click(Sender: TObject);
23.      procedure Button2Click(Sender: TObject);
24.      procedure Button3Click(Sender: TObject);
25.    private
26.      { Private declarations }
27.    public
28.      { Public declarations }
29.    end;
30.   
31.  var
32.    Form1: TForm1;
33.   
34.  implementation
35.   
36.  {$R *.dfm}
37.   
38.  function IMin(Val1, Val2: Integer): Integer;
39.  begin
40.    Result := Val1;
41.    if Val2 < Val1 then
42.      Result := Val2;
43.  end;
44.   
45.  procedure AssignRecordx(Source, Dest: TDataSet; ByName: Boolean);
46.   
47.  var
48.    I: Integer;
49.    F, FSrc: TField;
50.  begin
51.   
52.    if ByName then
53.    begin
54.      for I := 0 to Source.FieldCount - 1 do
55.      begin
56.        F := Dest.FindField(Source.Fields[I].FieldName);
57.        if F <> nil then
58.        begin
59.          try
60.            F.Value := Source.Fields[I].Value;
61.          except
62.          end;
63.        end;
64.      end;
65.    end
66.    else
67.    begin
68.      for I := 0 to iMin(Source.FieldDefs.Count - 1, Dest.FieldDefs.Count - 1) do
69.      begin
70.        F := Dest.FindField(Dest.FieldDefs[I].Name);
71.        FSrc := Source.FindField(Source.FieldDefs[I].Name);
72.        if (F <> nil) and (FSrc <> nil) then
73.        begin
74.          try
75.            F.Value := FSrc.Value;
76.          except
77.          end;
78.        end;
79.      end;
80.    end;
81.  end;
82.   
83.  procedure TForm1.Button1Click(Sender: TObject);
84.  begin
85.    cds.data := hosxp_getdataset('select o.hn,o.vstdate,o.vsttime,p.pname,p.fname,p.lname ' +
86.      ' from ovst o ' +
87.      ' left outer join patient p on p.hn = o.hn ' +
88.      ' where o.vstdate = "' + formatdatetime('yyyy-mm-dd', cxdateedit1.date) + '"');
89.  end;
90.   
91.  procedure TForm1.Button2Click(Sender: TObject);
92.  var dbf1: tdbf;
93.    i: integer;
94.    nf: boolean;
95.  begin
96.    dbf1 := tdbf.create(nil);
97.    dbf1.close;
98.    dbf1.tablelevel := 4;
99.    dbf1.fielddefs.assign(cds.fielddefs);
100.    repeat
101.      nf := false;
102.      for i := 0 to (dbf1.fielddefs.count - 1) do
103.      begin
104.        if not nf then
105.          if (dbf1.fielddefs.items[i].datatype = ftTime) then
106.          begin
107.            dbf1.fielddefs.items[i].datatype := ftstring;
108.            dbf1.fielddefs.items[i].size := 8;
109.            nf := true;
110.          end;
111.      end;
112.   
113.    until not nf;
114.   
115.    dbf1.tablename := 'c:\dbase.dbf';
116.    dbf1.createtable;
117.    dbf1.open;
118.    cds.first;
119.    while not cds.eof do
120.    begin
121.   
122.   
123.      dbf1.append;
124.      assignrecordx(cds, dbf1, true);
125.      dbf1.post;
126.      cds.next;
127.    end;
128.    dbf1.close;
129.    dbf1.free;
130.   
131.    showmessage('Done.');
132.   
133.   
134.  end;
135.   
136.  procedure TForm1.Button3Click(Sender: TObject);
137.  begin
138.    fcds.data := cds.data;
139.    CreateDatasetReport('HOSxP Report');
140.   
141.  end;
142.   
143.  end.

ด้วยว่ามีวิธี ทำ link  จาก Html ใส่ค่าชื่อ report  ให้เปิดรายงานใน Custom report  ได้ไหมครับ  เช่นเหมือนกันกับ  ไฟล์ welcome1.htm (ที่อยู่ใน c:\program files\Hosxp\welcome\welcome1.htm)  จะมีให้กด  "ตรวจสอบข้อมูลส่วนตัว"  กดแล้วก็จะ  link  ไปหน้า  userinfo  ได้ประมาณนี้นะครับ  จะได้ไหมครับ

อาจารย์ช่วยเพิ่มเก็บข้อมูลรายการ  ของ  ชนิดแผลผ่าตัด  ในระบบห้องผ่าตัด  ในส่วนของ"รายการผ่าตัด" หรือตรงไหนที่เห็นว่าเหมาะสมครับ  จะมีรายละเอียดของ  ชนิดแผลผ่าตัด ดังนี้  1.Clean (แผลสะอาด) 2.Clean contaminate  3. Conteminate 4. Dertirty    ประโยชน์เอาไว้สำหรับรายงาน IC  ขอบคุณครับ

ระบบรายงานและระบบรายงาน custom report 
อยากรบกวนอาจารย์  เก็บข้อมูลผู้เข้าไปใช้ได้ไหมครับ  แบบว่าจะเก็บเป็นสถิติการดึงรายงาน  ว่ารายงานตัวนี้มีใครใช้บาง  ใช้ไปแล้วกีครั้ง  เพื่อประเมินประสิทธิภาพ  และความถูกต้องของรายงาน   คือหน่วยงานที่ร้องขอมา  ทาง IT  ก็จัดทำให้  ในรูปแบบของรายงาน custom report  ไปแล้วจะตรวจสอบว่าได้นำไปใช้แล้วหรือยัง(จะเก็บตัวชี้วัด)  ขอบคุณครับ

กรณีที่คนไข้สั่ง lab  จากผู้ป่วยนอกแล้ว  แล้วพอไป  admit  แล้วจะทำไงให้สามารถส่งไปยัง  IPD เพื่อให้พยาบาลผู้ป่วยใน สามารถดูได้  ไม่ต้องเข้ามาดู เมนู  lab  ใน ระบบผู้ป่วยนอก  รบกวนอาจารย์ด้วยครับ  หรือว่ามีวิธีอื่นครับ