[Update] Data warehouse Mini Server & Client Tools 53.3.0 :: เครื่องมือจัดการข้อมูล DW

[dusit]

หลังจากที่ได้ทดลองทำเล่น ๆ จาก Delphi XE2 ได้ออกมาเป็นผลงานเล็ก ๆ
สำหรับทำ Data Warehouse คลังข้อมูลเล็ก ๆ ไว้ให้ Admin ได้ใช้งาน แต่ยังไม่ได้ใช้งานจริง

ผมไม่มี Datacenter 4 Node ไว้ทดลองเลยอาศัยเก็บข้อมูลจาก Web นี้มาทำ

ตอนนี้มี 3 ระบบ
1. ระบบแม่ข่าย สำหรับจัดการควบคุมต่าง ๆ เช่น การสร้างฐานลูกข่าย, Initial Import
2. ระบบลูกข่าย สำหรับลูกข่ายที่นำไปใช้ เช่นการส่งข้อมูลเข้ามายัง DW ,DW Query Tool,
3. จะใช้ระบบร่วมกับ HOSxP เป็น Add On HOSxP สำหรับนำข้อมูลไปใช้งานที่ระบบ HOSxP เช่นการดูข้อมูล EMR ที่ DW โดยใส่ Script Custom Form Script ไว้ ใน HOSxP
4. Replicate Online สำหรับ Sync Data จาก HOSxP เข้าไปยัง DW

แต่ผมตั้งใจทำเพื่อในฐานะ Admin ลูกข่าย ผู้ที่ส่งข้อมูลเข้า DW  ได้ประมวลผลด้วย SQL ใน DW ได้บ้าง
เพราะบางครั้ง Admin ต้องการ Query รายงานได้เองในระบบ DW แต่ไม่ต้องรอให้ Admin ของ DW ทำให้
เพราะเชื่อว่าการสั่งคำสั่ง SQL คงไม่ได้สั่งไป ใ้ห้ Admin ของ DW แล้วจะตอบกลับมาได้ทันที
รวมทั้ง คำสั่งที่สั่งเข้าไป ก็บางทีก็ต้องแก้ไข ซึ่งรายงานที่ออกมาบางครั้งใช้ครั้งเดียว แล้วหยุดใช้จึงไม่จำเป็นต้องทำเป็นในรูปแบบของรายงานผ่าน Web ฺServive
--ผมเองไม่ได้มีโอกาศใช้ 4 Node เพราะเป็นจังหวัดที่ไม่ได้แจกตัว 4 Node ครับ เลยไม่รู้ว่าจะใช้ Menu ไหนเพื่อ
ให้ทางลูกข่ายเข้าไป Query ในเชิงของ Admin ได้เองบ้าง

ที่เหลือยังไม่ได้ทำต่อเพราะจริง  ๆ ผมไม่มี CUP จะลอง
ไฟล์ 74 MB เป็น Package รวม ทั้ง Server และ Client 

ดาวน์โหลด ทั้งหมด 4 ระบบ รกสักครู่...กำลัง UPload....ข้อมูล

ดาวน์โหลดแบบแยกระบบงาน

1.ระบบจัดการฝั่งแม่ข่าย :: DW Mini Server Control Ver 53.3.3.0 ==>คลิกที่นี่
2.ระบบจัดการฝั่งลูกข่าย :: DW Mini Client Control Ver 53.3.6.0 ==>คลิกที่นี่
3.ตัว Update ข้อมูลอัตโนมัติจากฝั่งลูกข่าย :: DW Client Replicator Ver 53.3.6.0 ==>คลิกที่นี่
4.ตัวอย่างตัวโปรแกรมดูข้อมูลผู้ป่วยติดตั้งเพิ่มใน HOSxP/PCU/E-Health :: DW Mini EMR Add-On Ver 53.3.3.0 ==>คลิกที่นี่

คลิปการติดตั้งแม่ข่าย
<a href="http://www.youtube.com/v/jj3oG-Tpl6M" target="_blank" class="new_win">http://www.youtube.com/v/jj3oG-Tpl6M</a>
คลิปการติดตั้งลูกข่าย
<a href="http://www.youtube.com/v/HCH-ZAZn0xQ" target="_blank" class="new_win">http://www.youtube.com/v/HCH-ZAZn0xQ</a>
คลิปการใช่รวมกับโปรแกรมรักษา
<a href="http://www.youtube.com/v/3lxxrnLgpuQ" target="_blank" class="new_win">http://www.youtube.com/v/3lxxrnLgpuQ</a>

[Knott]

เป็นแนวคิดที่ดีครับ บางครั้ง อยากได้ข้อมูลในภาพ CUP ซึ่งรายงานบางตัวในภาพจังหวัด รายละเอียดของ CUP อาจจะเจาะลึกกว่าภาพจังหวัด ทำให้ CUP อาจจะใช้ประโยชน์ได้ไม่เต็มที่ครับ

แจกให้ทดสอบมั้ยครับ อยากลองของ 

[Adeno Benzoate]

อยากลองดูเหมือนกันครับ

[dusit]

เป็นแนวคิดที่ดีครับ บางครั้ง อยากได้ข้อมูลในภาพ CUP ซึ่งรายงานบางตัวในภาพจังหวัด รายละเอียดของ CUP อาจจะเจาะลึกกว่าภาพจังหวัด ทำให้ CUP อาจจะใช้ประโยชน์ได้ไม่เต็มที่ครับ

แจกให้ทดสอบมั้ยครับ อยากลองของ 

กำลัง UP ครับ รอสักครู่ครับ

[dusit]

เวอร์ชั่นทดสอบนะครับ สังเกตุว่า ผมพิมพ์ WAREHOUSE ผิด 

[dusit]

ตัวอย่างการนำไปใช้กับ HOSxP Add-On หน้า Onstop Service ครับเพื่อแสดงข้อมูล
ผู้ป่วยจาก DW ครับ ตัวอย่างมีแค่ 1 สถานพยาบาล

[huwko]

สุดยอดเลยคับพี่ dusit

ผมก็กำลังลองเล่น Delphi XE2  อยู่พอดี  แต่หาคอมโพเนน ไม่มีคับ  พี่พอมีแบ่งให้ศึกษาใหมคับ  โดยเฉพาะ DevExpress


ขอบคุณคับ

[dusit]

สุดยอดเลยคับพี่ dusit

ผมก็กำลังลองเล่น Delphi XE2  อยู่พอดี  แต่หาคอมโพเนน ไม่มีคับ  พี่พอมีแบ่งให้ศึกษาใหมคับ  โดยเฉพาะ DevExpress


ขอบคุณคับ

ลองใ้ช้ตัวทดลองก่อนก็ได้ครับ delphi xe2 ผมใช้ตัวทดลอง 30 วันครับ
แล้วขอใช้งานไหม่ไปเรื่อย ๆ โปรเจ็คนี้ผมใช้ 30 วัน 2 ครั้ง

ในเว็บ อ.อ๊อด มี component บางตัวครับ ลองใช้ Search Engine ตัวอื่นหาบ้างครับ อาจจะพอหาได้ แต่อยากให้สนับสนุนของแท้บ้าง  ถ้าผมมีงบผมก็อยากได้ของแท้แต่ยังไม่มีงบขนาดนั้นครับ  เลยใช้แบบทดลองไปก่อน
component ที่ใช้ผมใช้ประมาณ 5 ตัวครับ
mydac
devexpress
jcl  jvlc
dcpcrypt2 แต่ผมมีปัญหากับ dcpcrypt ตัวเก่า(turbo-hosxp) ซึ่งมันแปลงค่าไปกลับ ไม่เหมือนเดิม ผมเลยไม่ได้ใช้แต่ลงไว้


แล้วปรับปรุงบรรจุฟังชั่น ให้ไกล้เคียงกับ Turbo Hosxp ครับ เช่น  Getdataset()
ก็น่าจะเพียงพอกับการสร้างผลงาน Add-onแล้วครับ

ตัวอย่างฟังชั่นที่ผมเอามาใส่ไว้ครับ

โค๊ด: [Select]

function HOSxP_GetDataSet(sql: string): OleVariant;
  function HOSxP_UpdateDelta(Delta: OleVariant;SQLText: string): Integer;
  function GetSQLData(sql: string): variant;
  function GetSQLSubQueryData(fsql: string): string;
  function GetSpecialFolderPath(folder: integer): string;
  function UUEncode(Intext: string; encode: boolean): string;
  function Hex2Dec(const S: string): Longint;
  function DecrypTText(Intext: string): string;
  function EncryptText(InText: string): string;
  function CanAccess(AccessName: string): boolean;
  procedure showaccessdenied;
  function FindShowForm(FormClass: TFormClass; const Caption: string): TForm;
  function InternalFindShowForm(FormClass: TFormClass;const Caption: string; Restore: Boolean): TForm;
  function GetSerialNumber(sn: string): integer;
  function ModifySQLString(fsql: string): string;
  procedure AssignRecordx(Source, Dest: TDataSet; ByName: Boolean);
  procedure AssignRecordxNoImage(Source, Dest: TDataSet; ByName: Boolean);
  function ReplaceStr(const S, Srch, Replace: string): string;
  function GetSQLCheckPrimaryKey(cTable:string):string;
  function GetSQLCheckNotNull(cTable:string):string;
  function GetHOSVariable(sn: string): string;
  procedure SetHOSVariable(sn, sv: string);
  function GetListFromTableEx4(sql: string): tstringlist;
  function GetZConnection: TMyConnection;
  function ValidHospcode(hc: string): boolean;
  function GetHospitalNamebyCode(hcode: string): string;



[chinaga]

ทดสอบแล้ว ตั้งค่าส่งข้อมูลจากhosxp_pcu อย่างไรครับ
ผมตั้งฐานข้อมูลไปที่ hosxp_pcu แล้วเข้ารหัสไม่ยอมให้ผ่าน ตั้งไปที่ datacenter_emr เข้าได้แต่เปิดตัวส่งข้อมูลไปไม่ได้ครับ

[dusit]

ที่ตัว DW ต้องเปิด Server mี่ตัว Server Control ก่อนครับ

ที่ลูกข่ายต้อง Setting ค่า HOST ไปที่ IP ของ เครื่องที่เปิด DW Server ครับ ในการทดลองอาจใช้ IP LAN ถ้าใช้งานจริง ใช้ IP ของอินเตอร์เน็ตครับ

เด่วจะ Capture การตั้งค่ามาให้ครับ

ตัวอย่าง
DW server   IP: 192.168.9.50

DW Client PCU ต้อง Set HOST เป็น    192.168.9.50  ตามที่กำหนดในเมนูของ DW Server Control
ในเมนูย่อย ตั้งค่า--->หน่วยงานครับ

สักครู่จะทำ Manual มาใ้หครับ 

[มนตรี บอยรักยุ้ยคนเดียว]

หาตารางไม่เจอ

[dusit]

หาตารางไม่เจอ

Run  Bat file ชื่อ Make_datacenter.bat ก่อนครับ

[chinaga]

เปิดตัวส่งข้อมูลไปยังserver ได้แล้วครับ ระบบมีการเชื่อมกันแต่ข้อมูลที่เกิดขึ้นใหม่ไม่ไปครับ
ส่งจาก โปรแกรม hosxp_pcu ครับ ของ สอ ครับ มันวิ่งวนอยู่แต่ทีี่เดิมครับ

[dusit]

เปิดตัวส่งข้อมูลไปยังserver ได้แล้วครับ ระบบมีการเชื่อมกันแต่ข้อมูลที่เกิดขึ้นใหม่ไม่ไปครับ
ส่งจาก โปรแกรม hosxp_pcu ครับ ของ สอ ครับ มันวิ่งวนอยู่แต่ทีี่เดิมครับ

ถ้าเป็น PCU ต้องใช้เมนู 2.2 ครับ
PCU ไม่สร้าง Replicat Log แบบ HOSxP ตัว Replication จึงใช้ไม่ได้ครับ
ใช้ เมนู 2 ครับ ส่งข้อมูล แทนครับ

[มนตรี บอยรักยุ้ยคนเดียว]

หาตารางไม่เจอ

Run  Bat file ชื่อ Make_datacenter.bat ก่อนครับ

ไม่มีครับ เห็นแค่ MyBatFile.bat แต่ว่างเปล่า
แต่ผมสร้างจาก datacenter_emr.sql

[chinaga]

การตั้งค่าแบบนี้ถูกหรือเปล่าครับ
ตั้งแบบนี้แล้วเข้า รหัสผ่านไม่ได้ครับ

[chinaga]

ผมลองลบตาราง opduser ทิ้ง สามารถเข้าโปรแกรมได้ครับ
ต้องกำหนดสิทธิอะไรเพิ่มเติมหรือเปล่าครับทีโปรแกรม hosxp_pcu

[dusit]

การตั้งค่าแบบนี้ถูกหรือเปล่าครับ
ตั้งแบบนี้แล้วเข้า รหัสผ่านไม่ได้ครับ

ถูกต้องครับ
แต่เนื่องจากที่รหัสผิดเนื่องจาก passweb ในตาราง opduser ไม่มีหรือไม่ได้ update ครับ
วิธีแก้ไคือเข้าไปอัพเดทอีกครั้ง แค่เข้าไปกดบันทึกซ้ำใน user ที่เราจะใช้งานครับ
ด้วย HOSxP ครับ โปรแกรมจะสร้างรหัส field passweb ให้ครับ ซึ่งจะสามารถใช้งานได้
ครับ

หาตารางไม่เจอ

Run  Bat file ชื่อ Make_datacenter.bat ก่อนครับ

ไม่มีครับ เห็นแค่ MyBatFile.bat แต่ว่างเปล่า
แต่ผมสร้างจาก datacenter_emr.sql

ไม่มีจริง ๆ ครับ  
แนบเพิ่มแล้วครับ

[chinaga]

ส่งข้อมูลได้แล้วแต่ติดที่ error Key violation

[dusit]

ส่งข้อมูลได้แล้วแต่ติดที่ error Key violation

ตารางนั้น มี primary Key ที่ซ้ำกันครับ
หรือ ค่าว่าง ที่ตารางกำหนดไว้ว่าห้ามว่างแต่มีการหลุดมาครับ
ลอง Query ดูครับว่ามีเหตุการณ์แบบนี้ไหมครับ

แต่ผมทำกันไว้แล้วไม่น่าจะมีอาการนี้ อยากเห็นตารางนี้ครับ

[chinaga]

การส่งข้อมูลของ pcu ต้องกดส่งทุกครั้งหรือส่งให้เองเพียงแค่เปิดโปรแกรมทิ้งไว้
หน้าตารางรางแบบนี้ครับ

[dusit]

การส่งข้อมูลของ pcu ต้องกดส่งทุกครั้งหรือส่งให้เองเพียงแค่เปิดโปรแกรมทิ้งไว้
หน้าตารางรางแบบนี้ครับ

ดูข้อมูลในตาราง dw_03xxx ว่ามีข้อมูลหรือยังครับ
ถ้ามีลองลบข้อมูลทั้งหมด(ที่ี Dw server นะครับ )ดู แล้วลอง tarnsferdata ตัวนี้อีกครั้งครับ

[chinaga]

ตอนสอบโดยการลบข้อมูลออกก็ส่งต่อได้ครับแต่ติดอีก 2 ตาราง
คือ provis_occupa
provis_religion

ลองลบข้อมูลออกก็ส่งได้ครับ

ขอบคุณครับ

[dusit]

ตอนสอบโดยการลบข้อมูลออกก็ส่งต่อได้ครับแต่ติดอีก 2 ตาราง
คือ provis_occupa
provis_religion

ลองลบข้อมูลออกก็ส่งได้ครับ

ขอบคุณครับ

แล้วผมจะปรับปรุงมาลงให้เรื่อย ๆ ครับ
ระบบที่ออกแบบไว้ เปิดทิ้งไว้ครับ จะทำงานเอง
แล้วจะทำงานอัพเดทตารางเอง
ตอนนี้ ถ้า ใช้ HOSxP ทั้งหมด จะได้ข้อมูล Realtime ครับ
แต่ถ้าตัว PCU จะต้องช้าไปสักคือต้องใช้เวลาการตรวจสอบว่าตารางไหนอัพเดท แล้วค่อยอัพเดท ซึ่งจะช้ากว่า
ซึ่งกำลังจะหาวิธีครับ ทำอย่างไรให้ Sync Realtime ได้แบบ HOSxP
ยังมี่ส่วน Web Service อีกที่ยังไม่ได้ทำครับ ผมว่าจะทำที่ทำงาน แต่ตอนนี้ ไม่ได้ใช้ จึงไม่มีที่จะลองครับ
ขอบคุณที่ช่วยทดลองให้ครับ แล้วจะมาอัพเดทอีกเป็นระยะครับ

*สำหรับใครที่ใช้ Datacenter แล้ว ก็สามารถเอาตัวนี้ไปใช้ร่วมได้ แต่ไม่ต้องสร้างตารางหรือดาต้าเบส
เพียงแอดชื่อหน่วยงานและเปิด DW Server Mini ตัว Client ก็เซ็ทตามปกติ แค่นี้ครับ เราก็จะ Query ข้อมูลที่ DW ได้แล้ว Admin ก็เข้าไป Query ได้ ไม่ต้องเป็นผู้ส่งเพียงฝ่ายเดียว เราก็สามารถนำข้อมูลมาใช้งานในภาพรวม ได้เหมือน Admin DW ส่วนการเข้าถึงข้อมูล ดาต้าเบสทั้งก้อนเราก็ไปอยู่ที่ DW แล้ว เราก็จะขอใช้ข้อมูลฝั่งเขาบ้างจะเป็นไรไป ใช่ไหมครับ

[chinaga]

ขอบคุณครับที่พ้ฒนาโปรแกรมมาให้ใช้งาน
หากต้องการที่ทดสอบระบบ ติดต่อผมได้ทางเมล์นี้นะครับ
chinaga13@hotmail.com

[มนตรี บอยรักยุ้ยคนเดียว]

ส่งข้อมูลได้แล้วแต่ติดที่ error Key violation

เกิดปัญหาจาก hos_guid เป็นค่าว่าง
ต้องใช้คำสั่ง
UPDATE provis_occupa  set hos_guid = upper(concat('{',uuid(),'}'))

เพราะตาราง ใน Datacenter ใช้ hos_guid เป็น คีย์หลัก

[huwko]

ขอบคุณพี่ dusit มากคับ สำหรับโปรแกรมดีดี 

หลักการส่งข้อมูลไปที่ Datacenter ของโปรแกรมพี่ ใช้หลักการแบบไหนคร๊าป  ช่วยอธิบายหน่อยคับผม..  อยากทราบหลักการทำงานนะคับผม..  ขอบคุณครับ

[dusit]

ขอบคุณพี่ dusit มากคับ สำหรับโปรแกรมดีดี 

หลักการส่งข้อมูลไปที่ Datacenter ของโปรแกรมพี่ ใช้หลักการแบบไหนคร๊าป  ช่วยอธิบายหน่อยคับผม..  อยากทราบหลักการทำงานนะคับผม..  ขอบคุณครับ

ใช้หลักการ copy ข้อมูลทุกอย่างไปยังอีกที่หนึ่งครับ ต่อมาก็คือทำอย่างไรให้ข้อมูลไกล้เคียงกันมากที่สุด
คล้ายกับ Replicate ครับ ซึ่งใน PCU ยังไม่ Replicate แบบ HOSxP
ส่วน PCU ถ้าจะใช้เทคนิคการสำเนาทั้งก้อน โดยใช้ระยะห่างระหว่างเวลาไว้ เช่นสำเนาทั้งหมดเลยก็ได้ แล้วทิ้งเวลาไว้สักพักก็ค่อยสำเนาใหม่ ก็คือการ Initial Import แบบตั้งเวลานั่นเอง แต่การทำแบบนี้ถ้าก้อนข้อมูลใหญ่ ก็จะนานครับ แต่ รพสต ผมไม่แน่ใจว่าเล็กหรือโตแค่ไหน หรืออาจจะใช้การสำเนาเฉพาะตารางที่ต้องใช้ และเอาตามเวลาก็ได้
เช่น ถ้ามีการ update icd10 from ovst where vn="5210010001" = แก้ไขข้อมูลปีเก่า ๆ
แล้วเราไม่ได้อัพกลับที่ตารางใน DW ด้วย ถ้าเราทำรายงาน ในสรุปรายปี อาจจะได้ข้อมูลที่ผิด

ถ้าเราเอาก้อน Backup ส่งไปทั้งก้อนน่าจะได้โดยแบ่ง zip หลาย ๆ ไฟล์ ก็คงจะคล้ายเป็น AUTO FTP ไป
ถ้าใน PCU มีการเก็บ Log file ว่าทำอะไรบ้าง ก็น่าจะทำ Replicate ไปยัง DW ที่ Server ได้ครับ
หลักการ เหมือนมีคนแจ้งไว้ในกระทู้นี้ ถ้าผมจำไม่ไม่ผิด อ.เจมส์ จะเคยพูดไว้
คือ การเอาข้อมูลไปกองรวมกัน ที่ สสจ เด่วผมจะหาลิ้งมาแปะ

เทคนิคใน HOSxP คือ replicate_log จะมีการเก็บชุดคำสั่ง ไ้ว้ครับ ว่าทำอะไร ๆ กับตารางไหน
ดังนั้นจะมีการนำ SQL นี้ไปรันที่ ฐานข้อมูลอีกก้อนได้ครับ แต่ PCU จะไม่มี หรือผมอาจไม่รู้

ปล*
- ผมก็ทำได้ในระดับเล็ก ๆ ของผมเท่านั้นครับ อาจารย์ท่านอื่นอาจมีวิธีที่ำดีกว่านี้ อาจจะไม่ได้มาแปะไว้หรืองานยุ่ง ๆ หน่ะครับ

[nutsuanplu]

ถ้ามาใช้ทีอำเภอแต่ละที่ได้ ผมว่าไม่ต้องไปขอข้อมูลที่จังหวัดเลย
สามารถ query ข้อมูลของอำเภอตัวเองได้
วางแผนเฝ้าระวังโรค หรือรายงานภาพรวมในอำเภอได้สบายๆ
ยิ่งถ้าทำเป็นรูปแบบ webreport สวยๆ
ท่านสาธารณสุขอำเภอ หรือผู้ที่เกี่ยวข้อง สามารถนั่งกดดูได้อย่างง่ายดาย  

ว่าแต่วันนี้ทำไมพี่ไม่มาทำงาน

[kiatthanapat]

ผมติดตรง user ครับ ผมทำตากระทู้ข้างบนที่ ลบ user ที่ตาราง opduser ออก สามารถ login เข้าไปได้ แต่ไม่สามารถส่งโครงสร้างตาราง online ได้ มันแจ้ง can not access ต้องแก้ไขอย่างไรครับ

[dusit]

ผมติดตรง user ครับ ผมทำตากระทู้ข้างบนที่ ลบ user ที่ตาราง opduser ออก สามารถ login เข้าไปได้ แต่ไม่สามารถส่งโครงสร้างตาราง online ได้ มันแจ้ง can not access ต้องแก้ไขอย่างไรครับ

ทำตามคลิป VDO แล้วใช่ไหมครับ
รอ อัพเวอร์ชั่นไหม่ สักครู่ครับ
ไม่ต้องลบ opd user แล้วครับ

[kiatthanapat]

ผมติดตรง user ครับ ผมทำตากระทู้ข้างบนที่ ลบ user ที่ตาราง opduser ออก สามารถ login เข้าไปได้ แต่ไม่สามารถส่งโครงสร้างตาราง online ได้ มันแจ้ง can not access ต้องแก้ไขอย่างไรครับ

ทำตามคลิป VDO แล้วใช่ไหมครับ
รอ อัพเวอร์ชั่นไหม่ สักครู่ครับ
ไม่ต้องลบ opd user แล้วครับ

ขอบคุณครับ  เดี๋ยวจะรอนะครับ

[dusit]

ผมติดตรง user ครับ ผมทำตากระทู้ข้างบนที่ ลบ user ที่ตาราง opduser ออก สามารถ login เข้าไปได้ แต่ไม่สามารถส่งโครงสร้างตาราง online ได้ มันแจ้ง can not access ต้องแก้ไขอย่างไรครับ

ทำตามคลิป VDO แล้วใช่ไหมครับ
รอ อัพเวอร์ชั่นไหม่ สักครู่ครับ
ไม่ต้องลบ opd user แล้วครับ

ขอบคุณครับ  เดี๋ยวจะรอนะครับ

เอา fix tools ตัวนี้ไปรันกับฐาน PCU ครับ
ตัวนี้จะสร้าง รหัสผ่าน md5 ใน field passweb ใน ตาราง opduser เท่านั้นครับ
ตอนนี้ มี Version ใหม่ Download ได้แล้วครับ ที่ลิ้งเดิมครับ

Custom Script 
SYS_ONESTOPSERVICE_FORM

โค๊ด: [Select]

var fonlineid,fvn,fhn,fdepartment,fcid,fdepartmentcode,exefile:string;
begin
   fonlineid:=get_onlineid;
   fvn:= GetGlobalValue('VN');
   fhn:=getsqldata('select hn from ovst where vn = "'+fvn+'"');
   fcid:=getsqldata('select cid from patient where hn="'+fhn+'"');
   //fcomputername := getsqldata('select servername from onlineuser where onlineid="'+fonlineid+'"');
   fdepartment := getsqldata('select department from onlineuser where onlineid="'+fonlineid+'"');
   //showmessage(fvn);
   fdepartmentcode:=copy(fdepartment,0,3);
   //showmessage(fdepartmentcode);
   //exefile:='c:\Program Files\HOSxP\DwEMRSend.exe '+fvn;
   //WinExec(exefile,nil);
   exefile:='c:\Program Files\HOSxP\DwEMRMiniViewer.exe '+fhn;
   WinExec(exefile,nil);

end
คลิปการทำ Add on บน HOSxP หน้า One Stop Service
<a href="http://www.youtube.com/v/3lxxrnLgpuQ" target="_blank" class="new_win">http://www.youtube.com/v/3lxxrnLgpuQ</a>

[มนตรี บอยรักยุ้ยคนเดียว]

 

[dusit]

ผมแก้ไขแล้วครับ รบกวนโหลดอีกครั้งที่ลิ้งเดิมครับ
copy DWEMRViewer ใส่ ใน Folder HOSxP อีกครั้งครับ


มีตารางแก้ไขนิดหน่อยครับที่ ฝั่ง Server

โค๊ด: [Select]

alter TABLE dw_emr_cup add COLUMN `lastsync` datetime DEFAULT NULL;
alter TABLE dw_emr_cup add COLUMN `server` varchar(200) DEFAULT NULL;
alter TABLE dw_emr_cup add COLUMN `pcu_dw_track_id` int(11) DEFAULT NULL;

ผมทำตัว Sync สำหรับ PCU มาให้ช่วยทดสอบด้วยครับ ใน Folder DW-Client-Control

[chinaga]

ผมแก้ไขแล้วครับ รบกวนโหลดอีกครั้งที่ลิ้งเดิมครับ
copy DWEMRViewer ใส่ ใน Folder HOSxP อีกครั้งครับ


มีตารางแก้ไขนิดหน่อยครับที่ ฝั่ง Server

โค๊ด: [Select]

alter TABLE dw_emr_cup add COLUMN `lastsync` datetime DEFAULT NULL;
alter TABLE dw_emr_cup add COLUMN `server` varchar(200) DEFAULT NULL;
alter TABLE dw_emr_cup add COLUMN `pcu_dw_track_id` int(11) DEFAULT NULL;

ผมทำตัว Sync สำหรับ PCU มาให้ช่วยทดสอบด้วยครับ ใน Folder DW-Client-Control

กำลังโหลดครับเดียวทดสอบครับ

[wauy]

เกิด ERROR

[มนตรี บอยรักยุ้ยคนเดียว]

ผมแก้ไขแล้วครับ รบกวนโหลดอีกครั้งที่ลิ้งเดิมครับ
copy DWEMRViewer ใส่ ใน Folder HOSxP อีกครั้งครับ


มีตารางแก้ไขนิดหน่อยครับที่ ฝั่ง Server

โค๊ด: [Select]

alter TABLE dw_emr_cup add COLUMN `lastsync` datetime DEFAULT NULL;
alter TABLE dw_emr_cup add COLUMN `server` varchar(200) DEFAULT NULL;
alter TABLE dw_emr_cup add COLUMN `pcu_dw_track_id` int(11) DEFAULT NULL;

ผมทำตัว Sync สำหรับ PCU มาให้ช่วยทดสอบด้วยครับ ใน Folder DW-Client-Control

มีปัญหาเมื่อใช้ DWEMRServer.exe ตัวใหม่ แต่ใช้ขอเดิมรันได้นะครับ

[chinaga]

ผมแก้ไขแล้วครับ รบกวนโหลดอีกครั้งที่ลิ้งเดิมครับ
copy DWEMRViewer ใส่ ใน Folder HOSxP อีกครั้งครับ


มีตารางแก้ไขนิดหน่อยครับที่ ฝั่ง Server

โค๊ด: [Select]

alter TABLE dw_emr_cup add COLUMN `lastsync` datetime DEFAULT NULL;
alter TABLE dw_emr_cup add COLUMN `server` varchar(200) DEFAULT NULL;
alter TABLE dw_emr_cup add COLUMN `pcu_dw_track_id` int(11) DEFAULT NULL;

ผมทำตัว Sync สำหรับ PCU มาให้ช่วยทดสอบด้วยครับ ใน Folder DW-Client-Control

มีปัญหาเมื่อใช้ DWEMRServer.exe ตัวใหม่ แต่ใช้ขอเดิมรันได้นะครับ

ส่งข้อมูลได้แล้วครับ มีส่วนให้ส่งข้อมูล auto ไหมครับ

[dusit]

ผมแก้ไขแล้วครับ รบกวนโหลดอีกครั้งที่ลิ้งเดิมครับ
copy DWEMRViewer ใส่ ใน Folder HOSxP อีกครั้งครับ


มีตารางแก้ไขนิดหน่อยครับที่ ฝั่ง Server

โค๊ด: [Select]

alter TABLE dw_emr_cup add COLUMN `lastsync` datetime DEFAULT NULL;
alter TABLE dw_emr_cup add COLUMN `server` varchar(200) DEFAULT NULL;
alter TABLE dw_emr_cup add COLUMN `pcu_dw_track_id` int(11) DEFAULT NULL;

ผมทำตัว Sync สำหรับ PCU มาให้ช่วยทดสอบด้วยครับ ใน Folder DW-Client-Control

มีปัญหาเมื่อใช้ DWEMRServer.exe ตัวใหม่ แต่ใช้ขอเดิมรันได้นะครับ

ส่งข้อมูลได้แล้วครับ มีส่วนให้ส่งข้อมูล auto ไหมครับ

ใช้ เปิดตัวนี้ทิ้งไว้ครับ ที่ลูกข่าย

กำลัง Up ตัวใหม่ครับ สักครู่นึงครับ

เกิด ERROR

ผมแก้ไขแล้วครับ รบกวนโหลดอีกครั้งที่ลิ้งเดิมครับ
copy DWEMRViewer ใส่ ใน Folder HOSxP อีกครั้งครับ


มีตารางแก้ไขนิดหน่อยครับที่ ฝั่ง Server

โค๊ด: [Select]

alter TABLE dw_emr_cup add COLUMN `lastsync` datetime DEFAULT NULL;
alter TABLE dw_emr_cup add COLUMN `server` varchar(200) DEFAULT NULL;
alter TABLE dw_emr_cup add COLUMN `pcu_dw_track_id` int(11) DEFAULT NULL;

ผมทำตัว Sync สำหรับ PCU มาให้ช่วยทดสอบด้วยครับ ใน Folder DW-Client-Control

มีปัญหาเมื่อใช้ DWEMRServer.exe ตัวใหม่ แต่ใช้ขอเดิมรันได้นะครับ

[dusit]

เกิด ERROR

นำ script นี้ ไปอัพโครงสร้างตารางครับ
alter TABLE dw_emr_cup add COLUMN `lastsync` datetime DEFAULT NULL;
alter TABLE dw_emr_cup add COLUMN `server` varchar(200) DEFAULT NULL;
alter TABLE dw_emr_cup add COLUMN `pcu_dw_track_id` int(11) DEFAULT NULL;

[chinaga]

เกิด ERROR

นำ script นี้ ไปอัพโครงสร้างตารางครับ
alter TABLE dw_emr_cup add COLUMN `lastsync` datetime DEFAULT NULL;
alter TABLE dw_emr_cup add COLUMN `server` varchar(200) DEFAULT NULL;
alter TABLE dw_emr_cup add COLUMN `pcu_dw_track_id` int(11) DEFAULT NULL;

ขอบคุณครับ เปิดทำงานได้แล้วครับ
แต่จาการทดสอบส่งข้อมูลจาก เครื่องลูกข่ายไปที่ datacenter ทดสอบดูที่ตาราง
Vn_stat -ข้อมูลในตารางไม่มาที่ datacenter แต่ตัวส่งทำงานครับ

[dusit]

เกิด ERROR

นำ script นี้ ไปอัพโครงสร้างตารางครับ
alter TABLE dw_emr_cup add COLUMN `lastsync` datetime DEFAULT NULL;
alter TABLE dw_emr_cup add COLUMN `server` varchar(200) DEFAULT NULL;
alter TABLE dw_emr_cup add COLUMN `pcu_dw_track_id` int(11) DEFAULT NULL;

ขอบคุณครับ เปิดทำงานได้แล้วครับ
แต่จาการทดสอบส่งข้อมูลจาก เครื่องลูกข่ายไปที่ datacenter ทดสอบดูที่ตาราง
Vn_stat -ข้อมูลในตารางไม่มาที่ datacenter แต่ตัวส่งทำงานครับ

ตอนก่อนการ sync ข้อมูล ต้อง นำข้อมูลทั้งหมด ไปใส่ใน datacenter ก่อนครับ
การ sync จึงจะมีผลครับ เพราะอาจเป็นการ update ข้อมูลในตาราง vn_stat ที่ยังไม่มี vn เดิมอยู่จึงไม่มีผลอะไรครับ ทดสอบลองส่งตรวจ 1 ราย ว่ามีข้อมูลการตรวจมาหรือเปล่าครับ
ถ้า มี vn ขึ้นใน ovst ก็น่าจะส่งไปได้ครับ ถ้าได้รบกวนแจ้งหน่อยครับ

[chinaga]

ทำตามขั้นตอนแล้วทดสอบดูส่งข้อมูลคนไข้
พบว่าตาราง OVST มีข้อมูลมาครับ แต่ตาราง vn_stat ไม่มาครับ

[dusit]

ทำตามขั้นตอนแล้วทดสอบดูส่งข้อมูลคนไข้
พบว่าตาราง OVST มีข้อมูลมาครับ แต่ตาราง vn_stat ไม่มาครับ

ในตาราง vn_stat ฝั่งลูกข่ายมีข้อมูล vn ที่ส่งตรวจ/ตรวจ ไหมครับ ที่ HOSxP PCU ในเครื่องที่บันทึกข้อมูลหน่ะครับ

[มนตรี บอยรักยุ้ยคนเดียว]

ของที่ ให้โหลด HOSXP PCU

คนละตัวกันหรือเปล่า

HOSXP PCU /E-Health

[มนตรี บอยรักยุ้ยคนเดียว]

ปัญหา

[chinaga]

ทำตามขั้นตอนแล้วทดสอบดูส่งข้อมูลคนไข้
พบว่าตาราง OVST มีข้อมูลมาครับ แต่ตาราง vn_stat ไม่มาครับ

ในตาราง vn_stat ฝั่งลูกข่ายมีข้อมูล vn ที่ส่งตรวจ/ตรวจ ไหมครับ ที่ HOSxP PCU ในเครื่องที่บันทึกข้อมูลหน่ะครับ

ในฝั่งhosxp_pcu ตางรางvn_stat มีข้อมูลครับแต่ไม่ถูกส่งมาที่ตารางในdatacenter

[dusit]

ทำตามขั้นตอนแล้วทดสอบดูส่งข้อมูลคนไข้
พบว่าตาราง OVST มีข้อมูลมาครับ แต่ตาราง vn_stat ไม่มาครับ

ในตาราง vn_stat ฝั่งลูกข่ายมีข้อมูล vn ที่ส่งตรวจ/ตรวจ ไหมครับ ที่ HOSxP PCU ในเครื่องที่บันทึกข้อมูลหน่ะครับ

vn อะไรครับ ใช่ vn ที่เพิ่งตรวจไปไหมครับ
ถ้าไม่ใช่ sync จะไม่มาที่ datacenter ครับ
เพราะเป็นข้อมูลเก่า
ผมลองแล้ว vn_stat ก็ไม่มีข้อมูลใน pcu หลังจากเราบันทึกคนไข้ไปครับ vn_stat น่าจะเกิดจากขั้นตอนการทำงานที่จุดอื่นหรือปล่าวครับ

การทำงานของการ sync จะทำ ณ เวลาที่เกิดการทำงาน ณ ขณะนั้นเท่านั้นครับ รบกวน หน้าจอ ตาราง vn hn ที่ ovst และ vn_stat ที่มี hn คนไข้คนที่ตรวจครับ

ก่อนหน้านี้ได้นำเข้าก้อนดาต้าเบสไหมครับ
หลักการจะเหมือน initial import ของ HOSxP ครับ
ต้องเอาทั้งก้อนลงไปที่ slave ก่อน แล้วค่อย Sync ตามครับ

ในฝั่งhosxp_pcu ตางรางvn_stat มีข้อมูลครับแต่ไม่ถูกส่งมาที่ตารางในdatacenter

ของที่ ให้โหลด HOSXP PCU

คนละตัวกันหรือเปล่า

HOSXP PCU /E-Health

คนละตัวกันครับ อ.บอย
ผมอัพเสร็จแล้ว รอทำลิ้งสักครู่ครับ

[chinaga]

ขอบคุณครับกำลังรอทดสอบครับ