หมายถึงคิวรี่ใช่มั้ยครับ

หลักการคือ select คอลัมน์ ที่เกี่ยวข้องออกมาให้ครบถ้วนถูกต้องเสียก่อน แล้วจึงคำนวนด้วยใช้ฟังก์ชั่นคณิตศาสตร์เหล่านี้ได้เลยครับ เช่น

CASE WHEN q1.sex = "1" THEN
          CASE WHEN q1.cr > 0.9 THEN ROUND((141*(POW((q1.cr/0.9),(-1.209))))*(POW(0.993,TIMESTAMPDIFF(YEAR, q1.birthday, IF(q1.report_date, q1.report_date, s.vstdate)))), 2)
          ELSE ROUND((141*(POW((q1.cr/0.9),(-0.411))))*(POW(0.993,TIMESTAMPDIFF(YEAR, q1.birthday, IF(q1.report_date, q1.report_date, s.vstdate)))), 2) END
    ELSE CASE WHEN q1.cr > 0.7 THEN ROUND((144*(POW((q1.cr/0.7),(-1.209))))*(POW(0.993,TIMESTAMPDIFF(YEAR, q1.birthday, IF(q1.report_date, q1.report_date, s.vstdate)))), 2)
          ELSE ROUND((144*(POW((q1.cr/0.7),(-0.329))))*(POW(0.993,TIMESTAMPDIFF(YEAR, q1.birthday, IF(q1.report_date, q1.report_date, s.vstdate)))), 2) END
    END, ""), IF(s.height > 0 AND q1.cr > 0 , ROUND(0.413 * (s.height / q1.cr), 2), 0)) AS egfr


ไม่แน่ใจว่า script ของ XE หลักการเหมือน V3 หรือเปล่านะครับ....
ปกติ จะเขียนสคริปที่ Main Unit เพื่อให้เรียกใช้ Unit อื่นๆ ถ้าตรงเงื่อนไข
เพราะฉะนั้น Main unit จะไม่ใช่ form ส่วน unit อื่น จะเป็น form
ที่ Main unit จะเขียนตรวจสอบเงื่อนไขต่างๆ แล้วก็เปิด form ทั้งหมดที่ตรงเงื่อนไข ตามลำดับ

script ที่ใช้แสดงหลังจากคีย์ยา ยังไม่มีครับ ยังมีแค่ script ที่ระบบเป็นคนสร้างให้เราเท่านั้น

เงื่อนไข สามารถใส่ได้ 2 จุดคือก่อน form2.open กับ หลังจาก open แล้วให้เขียนเงื่อนไขที่ constructure ของ form ก็ได้

แต่ปกติ ผม จะทำ vnscript ขึ้นมาเป็น main ก่อน ที่จะไปเปิด form อื่น เพราะจะได้ตรวจสอบเงื่อนไข ก่อนที่จะ open form อื่นๆที่ต้องการ

ตอนนี้ หลายหน่วยบริการน่าจะใช้วิธีเขียนโปรแกรมเพื่อดึง authen code เองครับ เพราะยังไม่มีวิธีแบบรวดเดียวมาหมด แต่วิธีการนี้ก็อาจจะทำให้ สปสช เกิดอาการหน่วงของระบบโดยรวมได้... ทั้งนี้ก็ขึ้นอยู่กับว่า แต่ละหน่วยบริการจะ hard core แค่ไหนในการดึงข้อมูล

จาก error นี้เหมือนว่า user นี้ไม่มีสิทธิ์ในการทำงานส่วนนี้ เพราะฉะนั้นต้องเพิ่มสิทธิ์ให้ แต่ ถ้ามีสิทธิ์อยู่แล้วให้เข้าไปเปลี่ยน password

สถานการณ์ปัจจุบันคือ เราต้องเข้าไปเปลี่ยน password ทุกๆสัปดาห์ เพื่อความปลอดภัยครับ เพราะฉะนั้นถ้าเจอปัญหานี้ ให้เข้าไปเปลี่ยน password ใน Moph account แล้วอัพเดต password ใน hosxp

รบกวน BMS ช่วยแก้ไข query ตัวส่งออก 43 แฟ้ม ในหัวข้อ AIPN ตรงส่วนของ CareAs ด้วยครับ มันคิวรี่คอลัมน์ที่ไม่มีอยู่.... มันเลยส่งผลให้ CareAs ออกมาเป็น M ทุกกรณีเลย แต่ รพ ผม ต้องส่งด้วย B ครับ

สามารถทำได้ครับ แต่ควรระมัดระวัง เพราะสคริปจะทำงานทุกครั้งที่ตรงกับเงื่อนไข ซึ่งอาจจะเกิดการ update หรือ insert มากเกินความจำเป็นครับ

ROUND(sum( ov.income), 2)

ให้ลบรายการในตาราง hospcode ที่มีข้อมูลในฟิลดิ์ hospcode='2013-' ออกก่อนแล้วค่อยกด auto update
หรือใช้คิวรี่นี้ลบก็ได้ครับ

DELETE FROM hospcode WHERE hospcode = '2013-'

ขออภัยครับ ผมนึกว่ายังมี LIS แบบที่ไม่ต่อผ่าน Gateway ของ BMS ด้วย

ที่ให้มาเป็น code เลข 7 หลัก แล้วก็โจทย์บอกว่าต้องการหัตการ ก็เลยเดาว่าน่าจะเป็น nondrugitems มากกว่า
แล้วโจทย์บอกว่าเอาเด็กอายุ 12 เท่านั้น ตรง WHERE จะเป็น TIMESTAMPDIFF(YEAR, p.birthday, v.vstdate) = 12
หรือว่า เอาที่เท่ากับหรือต่ำกว่า 12 ตรง WHERE จะเป็น TIMESTAMPDIFF(YEAR, p.birthday, v.vstdate) <= 12
หรือว่า ตั้งแต่ 12 ขึ้นไป ตรง WHERE จะเป็น TIMESTAMPDIFF(YEAR, p.birthday, v.vstdate) >= 12

SELECT p.hn,p.pname,p.fname,p.lname,
TIMESTAMPDIFF(YEAR, p.birthday, v.vstdate) AS _age,
v.vstdate,i.icode,n.`name`
FROM
patient AS p
INNER JOIN ovst AS v ON p.hn = v.hn
INNER JOIN opitemrece AS i ON v.vn = i.vn
INNER JOIN nondrugitems AS n ON i.icode = n.icode
WHERE v.vstdate BETWEEN "2017-10-01" AND "2018-06-30" AND
i.icode IN ("2330011", "2338610") AND
TIMESTAMPDIFF(YEAR, p.birthday, v.vstdate) = 12
/*
แล้วโจทย์บอกว่าเอาเด็กอายุ 12 เท่านั้น ตรง WHERE จะเป็น TIMESTAMPDIFF(YEAR, p.birthday, v.vstdate) = 12
หรือว่า เอาที่เท่ากับหรือต่ำกว่า 12 ตรง WHERE จะเป็น TIMESTAMPDIFF(YEAR, p.birthday, v.vstdate) <= 12
หรือว่า ตั้งแต่ 12 ขึ้นไป ตรง WHERE จะเป็น TIMESTAMPDIFF(YEAR, p.birthday, v.vstdate) >= 12
หรือ ......
*/

จากคิวรี่เป็นการใช้อายุ ณ วันที่ visit ก็เลยสงสัยต่อว่า ถ้าเด็กทำหัตการมากกว่า 1 ครั้งในช่วงเวลาที่ต้องการ แต่ ครั้งหลังเด็กอายุ มากกว่า 12 ปีบริบูรณ์แล้วจะต้องเอามามั้ย แต่คิวรี่นี้ก็ยังไม่ได้คำนวนอายุแบบละเอียดครับ แค่เอามาใช้เป็นแนวทางเฉยๆ เพราะถ้าต้องคำนึงถึงอายุ เดือนที่เกินมา หรือวันที่เกินมาจากอายุบริบูรณ์จะต้องเอามั้ยด้วย

แก้เลข 319 ให้เป็นรหัส HBA1C ของโรงพยาบาลด้วยนะครับ

SELECT q2.vstdate, q2.hn, q2.lab_order_result FROM
(SELECT q1.*
, @rnk := IF(@prevn = q1.hn, @rnk + 1, 1) AS rnk
, (@prevn := q1.hn) AS prevn
FROM(SELECT v.vstdate,h.hn,o.lab_order_result
FROM ovst AS v
INNER JOIN lab_head AS h ON v.vn = h.vn
INNER JOIN lab_order AS o ON h.lab_order_number = o.lab_order_number
, (SELECT @prevn := "", @rnk := 0) AS var1
WHERE o.lab_items_code = "319" AND
v.vstdate BETWEEN "2017-10-01" AND "2018-09-30"
ORDER BY v.hn ASC, v.vstdate DESC) AS q1) AS q2
WHERE q2.rnk = 1



สร้างฐานข้อมูลขึ้นมา (ตั้งชื่ออย่างไรก็ได้ ให้รู้ว่านี่คือสำหรับ 43แฟ้ม) แล้วก็ ตั้งค่าในช่องต่างๆชี้ไปยังฐานข้อมูลที่สร้างขึ้น... แนะนำว่าให้สร้างฐานข้อมูลเอาไว้ที่ server ที่ RUN อยุ่จริง เผื่อว่าจะไปส่งออก 43 แฟ้ม ในเครื่องคอมพิวเตอร์เครื่องอื่นครับ

ถ้าคิวรี่ออกมาแค่ row เดียว field เดียว จะใช้แบบนี้ก็ได้ครับ
fhn := GetSQLdata('select hn from ovst where vn = "'+fvn+'"');

----------------------------------------------------------------------------------
แต่ถ้าต้องการคิวรี่ออกมา row เดียว แต่หลาย field ก็ใช้แบบนี้ครับ

procedure .........
var
   sql, f1, f2: string;
   tmp: TClientDataset;

begin
   sql := 'SELECT field1, field2, ... FROM ..............';
   tmp.data := HOSxP_GetDataSet(sql);

   //เวลาจะใช้งานก็แบบนี้ครับ
   f1 := tmp.FieldByName('field1').AsString;
   f2 := tmp.FieldByName('field2').AsString;
   //ก็เอา result ที่ได้มาใส่เข้าไปใน client dataset เลยก็ได้ ****************
end;
----------------------------------------------------------------------------------
ถ้า result คิวรี่ออกมามีหลาย row
ก็เอา result ที่ได้มาใส่เข้าไปใน client dataset เลยก็ได้ ****************
หรือใช้วิธีการ loop เอาข้อมูลมาใช้ หรืออาจจะคำนวนออะไรก่อนก็ได้ครับ

procedure .........
var
   sql, f1: string;
   tmp: TClientDataset;

begin
   sql := 'SELECT field1, field2, ... FROM ..............';
   try
      tmp.data := HOSxP_GetDataSet(sql);
      while not tmp.eof do begin

               f1 := tmp.FieldByName('field1').AsString;
               tmp.Next;
          end;
   except
      on E : Exception do Exit;
   end;
end;

----------------------------------------------------------------------------------
โดยคำนึงถึงการ except error เอาไว้ด้วยเพื่อป้องกันการผิดพลาดของโปรแกรม

จากโรงพยาบาลไหนครับ แสดงตัวด้วยครับ 

ผมขอเพิ่มเติมที่โพสเดิมนะครับ.... (ยังยืนยันเรื่อง commercial)
เรื่อง full backup มีแน่นอนครับ...
เรื่องตารางที่เพิ่ม mater table ที่เปลี่ยน ยังไม่เจอปัญหาอะไรร้ายแรงหรอกครับ (แต่ก็เจอบ้างพอเป็นพิธี)
เรื่อง app ที่เขียนเองแล้วกระทบ ผมก็ต้องปรับ app และ compile ใหม่เท่านั้นเอง (แต่ไม่ค่อยทันใจผู้ใช้สักเท่าไหร่)
web app ง่ายหน่อย...
พอเป็นระบบเปิด เชื่อมั้ยครับว่า app ที่สร้างขึ้นเองมีเยอะพอสมควรเลยนะครับ

แต่ที่เจอปัญหาใหญ่ ... ยกตัวอย่าง refer online นะครับ
พอ update structure มันเพิ่ม database ใหม่ขึ้นมาอีกตัว ตอนแรกผมไม่ได้ใช้สิทธิ์ admin หรอกนะครับ ในการ update มันจึง create database ไม่ได้ สอบถามเจ้าหน้าที่ bms ก็ยังไม่ได้คำตอบในตอนแรก จนต้องไปดูตัวอย่างของ ร.พ. อื่น จนได้รู้ว่ามันเป็นอย่างนี้นี่เอง
สิ่งที่เกิดขึ้นก็คือไม่สามารถใช้งาน refer online ได้ในตอนแรก....(หลายวันอยู่)

ตอนหลังผมก็เลย update ด้วยสิทธิ์ admin (เรื่องนโยบายของระบบจึงปรับเปลี่ยนไปบ้าง)

ผมเข้าใจว่าสิ่งเหล่านี้สามารถแก้ปัญหาได้ไม่ยากนัก แต่เพื่อความสะดวกต่อลูกค้า โดยเฉพาะ admin ของทาง ร.พ. ไม่ได้ดูและเรื่องระบบเพียงอย่างเดียวครับ งานหลักจะกลายเป็น support user ซะมากกว่าด้วยซ้ำ ร.พ. ใหญ่ๆ บางแห่งยัง update structure ไม่ได้เลยครับ เพราะฉะนั้นเรื่องการ update structure บ่อยๆคงเป็นไปได้ยาก

ในการ update แต่ละครั้ง จึงน่าจะมีตัวช่วยในการตัดสินใจแก่ ผู้ดูและระบบด้วยครับ....

ปัญหาและข้อเสนอแนะครับ...
ปัญหาที่เจอคือ เมื่อ Update structure ไม่อาจทราบได้ว่า update ส่วนใดบ้าง ทำให้ผู้ดูแลระบบไม่สามารถ config ระบบให้ถูกต้องได้ เช่น..
1. การเพิ่ม database ใหม่ ซึ่งมีผลกับการ config ค่า connection และสิทธิ์ในระบบ
2. การปรับหรือเปลี่ยนหรือเพิ่มโครงสร้างตาราง กระทบต่อ report ที่สร้างขึ้น โดยเฉพาะเงื่อนไขที่ซับซ้อนมากๆ....
3. การเพิ่มหรือลบหรือเปลี่ยนข้อมูลใน master table กระทบต่อ report
4. อันนี้ยังไม่เจอ แต่เผื่อไว้.. ในกรณีที่เขียน application แล้วเกิดปัญหาจาก 3 ข้อข้างบน

ข้อเสนอแนะ จึงอยากให้มีการทำ Change log ในส่วนของโครงสร้างที่จำเป็น เช่น การเพิ่ม database หรือการเปลี่ยนแปลงเงื่อนไขที่สำคัญๆของระบบ เพื่อลดความเสี่ยงต่อการสูญเสียของข้อมูลด้วยครับ

ขอบคุณมากครับสำหรับคำแนะนำ ตอนนี้สามารถใช้งานได้แล้วครับ ....
สรุปว่าต้องเปิดพร้อมกัน จึงใช้งานได้ครับ
แต่ผมสงสัยว่า...
เมื่อก่อนถ้าเปิดพร้อมกันกับ HosXP จะเขียน Report แล้ว error ครับ ผมเลยต้องเปิด HosXP ก่อนแล้วปิดมันลงไป จึงจะเขียน Report ได้

คิดว่าตอนนี้ยังต้อง Insert เข้าไปเองตรงๆก่อนครับ โดยใช้ Query (ผมก็ทำอยู่) 

HosXP version 3.54.10.6

ข้อ 1 สงสัยเรื่องเมนูที่คลิกเข้าเพื่อเข้าหน้าจอ รายการกลุ่มเสี่ยงที่ต้องคัดกรอง.... 
จากรูปนี้....


Thanks: Ro  ฝากรูป

มาเป็นรูปนี้.....


Thanks: Ro  ฝากรูป

ข้อ 2 ข้อมูลที่อยู่ในหน้านี้ Combobox ไม่สามารถแก้ไขได้ใช่มั้ยครับ


Thanks: Ro  ฝากรูป

ข้อ 3 ในคอลัมน์ "คัดกรองครั้งสุดท้าย" จะแสดงวันที่ตามในรูปครับ ซึ่งไม่ใช่ข้อมูลที่คัดกรองจริง แต่ในข้อมูลจริงจะเป็นไปตามความจริง


Thanks: Ro  ฝากรูป

ขอบคุณสำหรับคำแนะนำครับ....

ผมยังไม่ได้ลองเปลี่ยนเครื่องพิมพ์อื่นดูเลยครับ เพราะตอนนี้ยังไม่มีเครื่องว่างๆเลย...

แต่ผมพอจะเดาสาเหตุว่าเกิดจากการที่ session ของ winxp ที่มันเกิน 10 น่ะครับ... หาดูในเวบก็มีคนเจอปัญหานี้เหมือนกัน แต่ก็ยังไม่ได้คำตอบที่สามารถแก้ปัญหาได้ทั้งหมด... มีบางคนแนะนำให้ใช้ Win server ไปเลย (ผมก็มีพร้อม Licence  แท้ด้วย เหอๆๆ) แต่ยังไม่ได้นำมาใช้เพราะกำลังคิดว่าผู้ใช้งานอาจจะไม่คุ้นเคยกับมัน เลยคิดว่าเอาไว้เป็นไม้ตายสุดท้าย.....

แต่ผมก็ยังสงสัยอยู่เหมือนกันว่า .... แล้วทำไมตอนผมต่อแบบ network โดยที่เกือบทุกเครื่องจะมี driver เป็นของตัวเอง ก็ยังเจอปัญหานี้อยู่ดี ซึ่งตอนนั้นผมสันนิษฐานว่าเป็นเพราะ Memory ของ Printer ไม่พอ (16 mb).... เลยนำมาต่อแบบผ่าน PC ปัญหากลับน้อยลง

ข้อสงสัยอีกข้อนึงก็คือ เวลาที่ HosXP มองไม่เห็นเครื่องพิมพ์ หรือตั้งค่าเครื่องพิมพ์โดยที่ไม่มีเครื่องพิมพ์อยู่จริงมันไม่น่าจะสั่ง Restart windows เลยนี่นา (เป็นเฉพาะตรงใบสั่งยา)

สวัสดีครับ ผมชื่อ วิโรจน์ (หนุ่ม) จากโรงพยาบาลศรีประจันต์ จ.สุพรรณบุรี....
ทางโรงพยาบาลกำลังจะใช้งาน HosXP กำหนดการใช้งานประมาณ วันที่ 1 พ.ค. นี้ครับ

ผมเป็น Admin กำลังเซตอัพและทดสอบระบบครับ .....
ผมพบปัญหาและพยายามหาสาเหตุและแก้ไขไปบางส่วนแล้วครับ และพยายามทำความเข้าใจกับ HosXP ต่อไปนี้คือคำถามจากปัญหาที่ผมพบเจอและยังไม่ทราบสาเหตุครับ ปัจจุบันใช้เวอร์ชั่น 3.52.4.2b และพยายามอัพตามจากหน้าเวบเรื่อยๆครับ

1. ฟอร์มเซตอัพ หัตถการผู้ป่วยใน
   1.1 ไม่สามารถบันทึกรหัส ICD9 ได้... คือสามารถเลือกหัตถการ ICD9 จากกรอบการค้นหาได้แต่ พอบันทึกฟอร์มแล้วไม่เกิด event update ที่ SQL debug ครับ แต่ส่วนอื่นๆปกติ
   1.2 ไม่สามารถลบรายการหัตถการผู้ป่วยในได้จากปุ่ม "ลบรายการ" จากปุ่มด้านข้างฟอร์มหรือปุ่ม "ลบรายการ" จากฟอร์ม Edit IPD Operation Item  ... SQL debug ขึ้น event select ทุกครั้งที่ลบ (ผมจึงใช้ลบจาก database โดยตรง)
   เพิ่มเติม.... ถ้าสามารถดับเบิ้ลคลิกที่รายชื่อหัตถการแล้วเป็นการแสดงรายละเอียดได้จะสะดวกมากครับ ตอนนี้คือคลิกที่รายการหัตถการแล้วคลิกปุ่ม "Show Detail"
2. ฟอร์มเซตอัพ หัตถการ ER สามารถลงและบันทึก ICD9 ได้ แต่ไม่สามารถลบได้เหมือน 1.2
3. การเซตอัพเมนูสำหรับผู้ใช้งาน....
   3.1 หลังจากที่เลือกเมนูให้กับกลุ่มผู้ใช้งานแล้วต้องกด Grant ทุกครั้งจึงจะสามารถใช้งานได้... จึงอยากให้รวม event Grant เข้าไปในตอนเซพเลยครับ
   3.2 ปุ่ม Select menu หลังจากกดแล้วจะทำให้โปรแกรมไม่สามารถ Logout หรือ Exit ได้ ผมจึงต้องลบ Process ออกจึงจะปิดโปรแกรมได้
   3.3 หลังจากที่เซตอัพเมนูแล้ว กลุ่มเมนู "'งานส่งเสริมสุขภาพ" จะยังคงแสดงออกมาตลอดทั้งๆที่ไม่ได้ให้มันแสดง