อ่านโจทย์ไม่ค่อยเข้าใจเท่าไหร่ครับแต่คิดว่าการตั้งค่าแบบนี้น่าจะช่วยได้ครับ

ใช้เป็น variable กำหนดตัวแปรมารับค่า แล้วค่อยเอามาบวกกัน ไม่รู้ว่าจะชอบวิธีการนี้หรือป่าวครับ แต่ผมว่าง่ายดีนะ

ลองใช้ GetSQLStringData ครับ

 

แบบนี้มั้ยครับ

อ้างจาก: golf_win ที่ มิถุนายน 09, 2014, 20:38:28 PM

อ้างจาก: usa0823 ที่ มิถุนายน 09, 2014, 10:48:28 AM

อ้างจาก: golf_win ที่ มิถุนายน 05, 2014, 16:25:37 PM

แบบนี้มั้ยครับ

มี cerebrax ,arcoxia  อิอิ แอบอิจฉานิครับ
ของที่โรงพยาบาลโหด ผมเขียนเป็น script ขึ้น popup เฉพาะแพทย์ 
รายการยานี้ก็lock ให้เฉพาะแพทย์สั่งได้เท่านั้น
มีแต่ปุ่มบันทึกและต้องเลือกเหตุผล กลับไม่ได้ ไม่เลือกเหตุผลก็บันทึกไม่ได้ คล้ายยา NED
แต่ก็แค่ให้เลือกเหตุผลง่ายๆ

เทพแต้ๆ

อย่าคิดว่าเทพเลยครับ
แค่อยากแชร์และแบ่งปัน 
ผมก็ได้คำแนะนำดีๆจากท่าน golf_win เยอะเหมือนกันครับ

ยอกันเองไม่มีอะไรให้นะครับ มีแต่จะรบกวนให้ช่วยเยอะขึ้นเรื่อยๆ อิอิ

อ้างจาก: golf_win ที่ มิถุนายน 05, 2014, 16:25:37 PM

แบบนี้มั้ยครับ

มี cerebrax ,arcoxia  อิอิ แอบอิจฉานิครับ
ของที่โรงพยาบาลโหด ผมเขียนเป็น script ขึ้น popup เฉพาะแพทย์ 
รายการยานี้ก็lock ให้เฉพาะแพทย์สั่งได้เท่านั้น
มีแต่ปุ่มบันทึกและต้องเลือกเหตุผล กลับไม่ได้ ไม่เลือกเหตุผลก็บันทึกไม่ได้ คล้ายยา NED
แต่ก็แค่ให้เลือกเหตุผลง่ายๆ

เทพแต้ๆ

แบบนี้มั้ยครับ

ลองแบบนี้ครับ

select d.icode,d.name,sum(o.qty) as total from drugitems d
left outer join opitemrece o on o.icode=d.icode
where o.icode like "1%" and o.rxdate between "2008-01-19" and "2014-05-31"
group by d.icode
having total=0
order by d.name

เป็นแบบนี้มานานแล้วครับ join hn จากตาราง ipt ใช้ ipt.an=universal_head.vn

 

สติ๊กเกอร์ยา เปลี่ยนแนวกระดาษเอง หลัง Update แก้ไขยังไงดีครับ มีใครเคยเจอแบบนี้บ้างครับ ตั้งค่ายังไงก็เหมือนเดิมครับ
(กลับไปใช้เวอร์ชั่นเดิม พิมพ์ออกเป็นปกติครับ)

เปลี่ยน driver หายครับ

รายงานยอดไม่ทราบว่าตัดเงื่อนไขเด็กที่ถูกจำหน่ายออกไปแล้วหรือยังครับ

นิยามการนับละครับ 

อยู่ใน link ข้างบนแล้วครับ

http://csmhos.thaiddns.com/webboard/index.php?topic=376.0
 

ตรวจสอบ serial
select * from serial where name="iptoprt"

http://group.wunjun.com/hospital/topic/420313-13595

ทำได้ครับ จะเอาเตือนตอนเวลาแพทย์เรียกใช้ vn คนไข้หรือตอนบันทึกก็ได้ครับ

เรื่องแลกรายงานแซวเล่นๆนะครับ อยากให้รายงานที่อ. หลายๆคน ที่เขียนในหัวข้อเดียวกันมารวมๆกันครับ จะได้เป็นประโยชน์กับสมาชิกท่านอื่น เพราะช่วงนี้บอร์ด HOSxP.net ช่างเงียบเหงาซะเหลือเกินครับ อีกอย่าง post รายงานใน FB ใช้ google ค้นหาแทบไม่เจอเลยครับ

ครับผม ขอบคุณมากครับ

อยากให้ปรับหน้าจอของ IW_mederror ให้สวยเหมือน IW_Risk คร้าบบ

สุดยอดครับ

เสียดายไม่ได้เข้าฟัง

ผมโหลด มาดูแล้ว สนใจเรื่อง ASU ในโรค Diarrhea และ URI

จะต้องทำอย่างไรให้มี Pop-up ขึ้นมาเตือนเหมือนในตัวอย่างครับ

Script เตือน ASU ในระบบ HOSxP กลุ่มโรค URI, Acute diarrhea
การใช้งาน
1.นำ files ที่แนบมาเข้าตาราง doraemon
**หากท่านเคยใช้งาน sys_vn_script ต้องต่อ script เองนะครับ**
2.ตรวจสอบชื่อห้องตรวจที่ต้องการให้ script ทำงานให้ตรงกับของโรงพยาบาล
3.ตรวจสอบรายการยาในทะเบียนเวชภัณฑ์ยาที่เป็น antibiotic ว่าได้ติ๊กว่าเป็น antibiotic แล้วหรือยัง

**สามารถปรับปรุงแก้ไข เพิ่มเติมและแจกจ่ายได้เต็มที่ครับ

download doraemon : http://www.mediafire.com/download/adgjjhcuaaj25ai/doraemon.cds

download report ASU : http://www.mediafire.com/download/jhwc7wx2tcg1ick/Report-ASU.rar

How to script import by hosxp.net : http://www.mediafire.com/download/gfbmd80ujw89eum/How+to+script+import.rar

link กลุ่ม https://www.facebook.com/groups/314977558566635/permalink/614823045248750/

ลองไล่คำสั่งตามตัวอย่างนี้นะครับ

var
fan,fdepartment,fonlineid : string;
tc:tclientdataset;

begin
  //showmessage('SYS_AN_Script');
  tc:=tclientdataset.create(nil);

  fonlineid:=get_onlineid;
  fan:= GetGlobalValue('AN');
  fdepartment := getsqldata('select department from onlineuser where onlineid="'+fonlineid+'"');

  {======================check refer cost=======================}
  if (fdepartment='ËéͪÓÃÐàÔ¹') or (fdepartment='ËéͨèÒÂÂÒ') then
  begin
  if getsqldata('select count(r.vn) as cc from ipt i '+
                'left outer join referout r on r.vn=i.an  '+
                'where r.vn="'+fan+'" and r.department="IPD" ')>0 then
       begin
       showmessage('¼Ùé»èÇÂÃÒ¹Õéà»ç¹ case refer ¡ÃسҵÃǨÊͺ¤èÒà refer 500 ºÒ·´éǤÃѺ');
       end;
  end

end;

ไม่มั่นใจ replicate agent หรือครับ