Delphi Tip
[HOSxP Tip] บันทึก Vaccine แบบ Offline
ต้องบอกก่อนว่าจัดทำขึ้นเพื่อ อำนวยความสะดวกให้กับเจ้าหน้าที่
– หากท่านไหน นำไปใช้แล้วมีข้อเสนอแนะ ติดชม ก็แจ้งมาได้นะครับ
– เริ่มกันเลย
– จุดประสงค์คือ เอาไว้บันทึกเฉพาะหน้าไปก่อน แล้วค่อยส่งเข้า Moph ic อีกทีภายหลังจากหน้างาน ฉีดวัคซีนเรียบร้อยแล้ว
– ถ้า Moph ic ทำงานปกติ ก็ไม่จำเป็นต้องใช้งานระบบนี้นะครับ
– หลักการทำงานก็ทำงานแบบ vn script ที่หน้าจอ ซักประวัติ นั้นเอง
- หลังเลือกคนไข้แล้ว ก็จะแสดง หน้าจอเล็ก ๆ ว่าจะเลือกบันทึก ฉีดวัคซีน ( offline ) แบบคีย์แล้วยังไม่ต้องส่งเข้า moph ic
- หน้าจอจะแสดงแค่บันทึกให้เลือก หรือ ดูว่ามีการบันทึกไปแล้วหรือไม่ ที่ ประวัติการฉีดวัคซีน Covid-19
- หน้าจอที่แรกที่จะต้องบันทึก
- หลังจากกดบันทึก ระบบจะเก็บข้อมูลตาราง ovst_vaccine , ovst_vaccine_screen , oapp , ovst_treatment_plan , treatment_plan_type_schedule และ vaccine_inventory_label เท่านั้นนะครับ
- จะใช้ ชื่อ vn script ชื่อ Fovst_vaccine_edit_f นะครับ มีหน้าที่คือเอาไว้ กดปุ่ม บันทึก วันซีน (offline) นะครับ
- ดาวโหลดได้ที่นี้ครับ
ANTVaccineCovid_for_HOSxP_update_640920 *new
– เพิ่มเวลานัดถัดไป และ เวลาสิ้นสุด ให้แล้ว
*** ANTVaccineCovid_for_HOSxP_update_640920 (315 downloads ) ***
ANTVaccineCovid_for_HOSxP_update_640910
– เพิ่มตัวเลือกพิมพ์ใบนัด
*** ANTVaccineCovid_for_HOSxP_update_640910 (5 downloads ) ***
**** ANTVaccineCovid_for_HOSxP_update_640908 (13 downloads ) ****
และตัว vn script by Fovst_vaccine_edit_f นำเข้าไปในตาราง doraemon ก่อนนะครับ
*** vn script by Fovst_vaccine_edit_f (31 downloads ) ***
- และ อีกฟอร์มคือ vn script ชื่อ SYS_VN_PRE_SCRIPT เพื่อเช็คว่ามารับบริการ งานวัคซีนใช่หรือไม่
- เอา script นี้ไปวาง ใน SYS_VN_PRE_SCRIPT ตรงตำแหน่งที่ว่างๆ นะครับ เพื่อเอาไว้เช็ค ที่หน้าจอ คัดกรอง ว่าเงื่อนไขตรงหรือไม่
if getsqldata(‘select count(*)as cc from ovst ‘+
‘ where vn=”‘+fvn+'” ‘+
‘ and hn in(select hn from oapp where nextdate=curdate() and clinic=”‘+fclinic_vaccine+'”) ‘) > 0 then
begin
//showmessage(‘start key vaccine’);
RunHOSxP_ScriptProgram(‘Fovst_vaccine_edit_f’);
end;
- เพิ่มปุ่มพิมพ์ใบนัด กรณีมาฉีดเข็ม 1 นะครับ
- ประมาณนี้ครับ ลองทดสอบในฐานสำรองดูก่อนนะครับ ติดปัญหาอะไรก็แจ้งมาได้นะครับ
- ขอบคุณที่ติดตามแล้วพบกันใหม่ครับ
admin
0