รายงาน Hospital Profile

[bannok]

รบกวน nattavut ช่วยดูให่หนอยนะครับ ผมต้องใช้ด่วนมากเลย ครับ

[bannok]

อ.nuttavut คับ
รบกวนช่วยทำรายงานการทำหัตถการ (EKG)
แบบแยกสิทธิให้หน่อยนะครับ ผมลองทำหลายรอบแล้วครับ
มันไม่ขึ้นสงสัยจะผิดที่ sql นะครับ

[nuttavut]

อ.nuttavut คับ
รบกวนช่วยทำรายงานการทำหัตถการ (EKG)
แบบแยกสิทธิให้หน่อยนะครับ ผมลองทำหลายรอบแล้วครับ
มันไม่ขึ้นสงสัยจะผิดที่ sql นะครับ

รับทราบแล้วครับผม...เดี๋ยวจะดูให้นะครับ......

[Bond_007]

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

[nuttavut]

อ.nuttavut คับ
รบกวนช่วยทำรายงานการทำหัตถการ (EKG)
แบบแยกสิทธิให้หน่อยนะครับ ผมลองทำหลายรอบแล้วครับ
มันไม่ขึ้นสงสัยจะผิดที่ sql นะครับ

ลองเพิ่มให้แล้วครับ ลองทดสอบดูนะครับ...ว่า OK ไหม..

[udomchok]

ขอส่งประกวดบ้างครับ
รายงานสรุปบริการกลุ่มงานพยาธิวิทยาคลินิก แยกตามสิทธิการรักษา
crosstab จริง ๆ ครับ

[bannok]

อ.nuttavut คับ
รบกวนช่วยทำรายงานการทำหัตถการ (EKG)
แบบแยกสิทธิให้หน่อยนะครับ ผมลองทำหลายรอบแล้วครับ
มันไม่ขึ้นสงสัยจะผิดที่ sql นะครับ

ลองเพิ่มให้แล้วครับ ลองทดสอบดูนะครับ...ว่า OK ไหม..

รายการ EKG ยังไม่ขึ้นนะครับ ไม่ทราบว่าต้องแก้อะไรอีกหรือเปล่า คับ

[nuttavut]

อ.nuttavut คับ
รบกวนช่วยทำรายงานการทำหัตถการ (EKG)
แบบแยกสิทธิให้หน่อยนะครับ ผมลองทำหลายรอบแล้วครับ
มันไม่ขึ้นสงสัยจะผิดที่ sql นะครับ

ลองเพิ่มให้แล้วครับ ลองทดสอบดูนะครับ...ว่า OK ไหม..

รายการ EKG ยังไม่ขึ้นนะครับ ไม่ทราบว่าต้องแก้อะไรอีกหรือเปล่า คับ

ไม่ทราบว่า ค่ารักษาพยาบาล EKG ตั้งชื่อเป็นอะไร

ลองไปแก้ ตรงบรรทัดนี้ ekgicode :=getsqlsubquerydata('select icode from nondrugitems   where name like "%ekg%" ');

[bannok]

อ.nuttavut คับ
รบกวนช่วยทำรายงานการทำหัตถการ (EKG)
แบบแยกสิทธิให้หน่อยนะครับ ผมลองทำหลายรอบแล้วครับ
มันไม่ขึ้นสงสัยจะผิดที่ sql นะครับ

ลองเพิ่มให้แล้วครับ ลองทดสอบดูนะครับ...ว่า OK ไหม..

รายการ EKG ยังไม่ขึ้นนะครับ ไม่ทราบว่าต้องแก้อะไรอีกหรือเปล่า คับ

ไม่ทราบว่า ค่ารักษาพยาบาล EKG ตั้งชื่อเป็นอะไร

ลองไปแก้ ตรงบรรทัดนี้ ekgicode :=getsqlsubquerydata('select icode from nondrugitems   where name like "%ekg%" ');

ได้แล้วครับ ขอบคุณมากๆ

[bannok]

ขอส่งประกวดบ้างครับ
รายงานสรุปบริการกลุ่มงานพยาธิวิทยาคลินิก แยกตามสิทธิการรักษา
crosstab จริง ๆ ครับ

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

[mixer_79]

ขอคุณครับ

[siam(www.ronphibun.com)]

ขอบคุณครับ

[bannok]

แถมอีกอัน

รายงานแพทย์แผนไทย 

ตัวนี้ข้อมูลไม่ขึ้นครับ
ข้อมูลในตาราง health_med_list เป็นค่าว่างครับ ไม่มีข้อมูล

[nuttavut]

แถมอีกอัน

รายงานแพทย์แผนไทย 

ตัวนี้ข้อมูลไม่ขึ้นครับ
ข้อมูลในตาราง health_med_list เป็นค่าว่างครับ ไม่มีข้อมูล

ใช้กับระบบ งานแพทย์แผนไทย แบบ เก่าครับ หากใช้ระบบงานแพทย์แผนไทยแบบใหม่ก็ต้องแก้ไข
Script ใหม่ครับ โดยใช้ ตาราง health_med_service กับ health_med_service_medication แทนครับ

[udomchok]

แถมอีกอัน

รายงานแพทย์แผนไทย 

ตัวนี้ข้อมูลไม่ขึ้นครับ
ข้อมูลในตาราง health_med_list เป็นค่าว่างครับ ไม่มีข้อมูล

ใช้กับระบบ งานแพทย์แผนไทย แบบ เก่าครับ หากใช้ระบบงานแพทย์แผนไทยแบบใหม่ก็ต้องแก้ไข
Script ใหม่ครับ โดยใช้ ตาราง health_med_service กับ health_med_service_medication แทนครับ

ผมเคย Post รายงานใหม่ไว้แล้วนะครับ

[ประกอบ]

ขอบคุณครับ

[k_toedkiets]

ขอบคุณครับ...

[k_toedkiets]

ของผมห้องผ่าตัดเป็นแบบนี้ครับข้อมูลขึ้นไม่หมด ไม่รู้ว่าผิดตรงไหน
ตามรูปนะครับ

อย่าลืมครับรายงานทุกตัวที่เอาไปใช้ ต้องแก้ PCODE และ Fix Code ต่างๆ ให้ตรงกับที่ใช้งาน ของแต่ละที่ด้วย

Value :=GetSQLStringData('select count(v.hn) as chn '+
      ' from vn_stat v, ovst o, patient p  '+
      ' where  v.vn=o.vn and p.hn=v.hn and   '+
      ' v.vstdate  between "'+d1+'" and "'+d2+'" '+
      ' and v.spclty in("03","04","17")  and o.pttype  not in ('+ pc1+','+ pc2+','+ pc8+') ');
ถามเพิ่มเติมครับตรง
ข้อ 1 o.pttype  not in ('+ pc1+','+ pc2+','+ pc8+') ');
ข้อ 2 and v.pttype in ('+pc1+') ');
คือค่าตัวแปลอะไรครับ

[เกื้อกูล ครับ..]

แนว ๆ นี้ครับ.. ลองเข้าไปตรวจสอบและจับคู่ตามรหัสสิทธิของเราในตาราง pttype  ครับ


     
      pc1 := getsqlsubquerydata('select pttype from pttype where pcode in ("A2")');
  pc2 := getsqlsubquerydata('select pttype from pttype where pcode in ("A7")');
  pc3 :=
    getsqlsubquerydata('select pttype from pttype where pcode in ("UC","UA")');
  pc4 :=
    getsqlsubquerydata('select pttype from pttype where pcode in ("AA","AB","AC","AD","AE","AF","AG","AH","AI","AJ","AK","UB")');
 
  pc5 := getsqlsubquerydata('select pttype from pttype where pcode in ("AL")');
 
  pc6 := getsqlsubquerydata('select pttype from pttype where pcode in ("AM")');
 
  pc7 := getsqlsubquerydata('select pttype from pttype where pcode not in (' +
    '"A2","A7","UC","UA","UB","AA","AB","AC","AD","AE","AF","AG","AH","AI","AJ","AK",' +
    '"AL","AM" ) ');
   
  pc7:=pc7+','+getsqlsubquerydata('select pttype from pttype where pcode IS NULL');


ตรวจสอบสิ่งที่ค้นหาใน  TAB  Calc  หมวด Event ครับ..

[itbrh]

  ขอบคุณหลาย ๆ คร๊าบ