ผู้เขียน หัวข้อ: พิมพ์ใบนำส่งผู้ป่วยAdmitไม่ได้อ.MN ช่วยหน่อยครับ  (อ่าน 4677 ครั้ง)

0 สมาชิก และ 1 บุคคลทั่วไป กำลังดูหัวข้อนี้

ออฟไลน์ mixer_79

  • Hero Member
  • *****
  • กระทู้: 670
  • กำลังใจในการทำงาน
  • Respect: +1
    • ดูรายละเอียด
พิมพ์ใบนำส่งผู้ป่วยAdmitไม่ได้..ช่วยหน่อยครับ มันขึ้นข้อมูลตามภาพครับ
« แก้ไขครั้งสุดท้าย: มิถุนายน 10, 2010, 18:30:09 PM โดย mixer_79 »
นายทองคูณ พรมผักแว่น 0819550235
โรงพยาบาลสีคิ้ว อ.สีคิ้ว จ.นครราชสีมา 30140  
รพ.ขนาด 90 เตียง   thongkoon13@gmail.com
เริ่มใช้โปรแกรม 05 มีนาคม 2553
HOSxP V.3.56.2.15
______________________________________

doramon

  • บุคคลทั่วไป
Re: พิมพ์ใบนำส่งผู้ป่วยAdmitไม่ได้
« ตอบกลับ #1 เมื่อ: มิถุนายน 10, 2010, 17:22:39 PM »
0
ต้องส่งฟอร์มขึ้นมาแก้ครับ 

ออฟไลน์ mixer_79

  • Hero Member
  • *****
  • กระทู้: 670
  • กำลังใจในการทำงาน
  • Respect: +1
    • ดูรายละเอียด
Re: พิมพ์ใบนำส่งผู้ป่วยAdmitไม่ได้
« ตอบกลับ #2 เมื่อ: มิถุนายน 10, 2010, 17:56:46 PM »
0
อาจารย์ครับนี่รูปภาพและฟอร์มนะครับ...และข้อเพิ่มอีก2ข้อเล็กๆนะครับ  ขอบคุณครับ
1.เวลาที่อยู่ในใบนำส่งAdmit เป็นเวลาที่ผู้ป่วยลงทะเบียนเป็นผู้ป่วยนอก..แต่อยากให้เป็นเวลาที่ตึกรับผู้ป่วยเข้าตึก
2ข้อมูลCC เกิดเหตุการผู้ป่วยมา2 VISIT สมมุติว่าเป็นvisit A และB  , ผู้ป่วยมาVISIT A แล้วหมอให้กลับบ้าน และกลับมาโรงพยาบาลอีกครั้ง โดยVISIT B และทำการลงประวัติจนครบ แต่สุดท้ายหมอเผลอเอาVISIT A Admit เป็นผู้ป่วยใน และไปลบ AN นั้นทิ้งไป และนำ VISIT B มาAdmit แต่เมื่อพิมพ์ในนำส่งผู้ป่วยในใหม่กลับยังจำค่าของVISIT A อยู่
ช่วยแก้ไขให้หน่อยนะครับ..ข้อความอาจจะยาวไป ขอบคุณครับ
นายทองคูณ พรมผักแว่น 0819550235
โรงพยาบาลสีคิ้ว อ.สีคิ้ว จ.นครราชสีมา 30140  
รพ.ขนาด 90 เตียง   thongkoon13@gmail.com
เริ่มใช้โปรแกรม 05 มีนาคม 2553
HOSxP V.3.56.2.15
______________________________________

doramon

  • บุคคลทั่วไป
Re: พิมพ์ใบนำส่งผู้ป่วยAdmitไม่ได้อ.MN ช่วยหน่อยครับ
« ตอบกลับ #3 เมื่อ: มิถุนายน 10, 2010, 18:32:52 PM »
0
procedure GlobalOnCreate;
begin

     if GetSQLStringData('select * from opdscreen_bp  where vn="'+DBPipeline['vn']+'" order by screen_time')='' then
     ChangeDBPipeLineLink1SQL('select bps,bpd from opdscreen  where vn="'+DBPipeline['vn']+'"')
     else
     ChangeDBPipeLineLink1SQL('select * from opdscreen_bp  where vn="'+DBPipeline['vn']+'" order by screen_time');


     if GetSQLStringData('select vn from opitemrece where vn="'+DBPipeline['vn']+'"')='' then
          ChangeDBPipeLineLink3SQL('select concat(if((d.name is null or d.name = ""),"-",d.name)),"  ", '+
     'if(d.strength is null,"",d.strength),"  #  ",if(o.qty is null,"",o.qty)) '+
     'as drug_name,du.shortlist '+
     'from opitemrece o '+
     'left outer join drugitems d on d.icode = o.icode '+
     'left outer join drugusage du on du.drugusage = o.drugusage '+
     'where o.an="'+DBPipeline['an']+'" and o.sub_type="1"')
       else
          ChangeDBPipeLineLink3SQL('ChangeDBPipeLineLink7SQL(sql);elect concat(if((d.name is null or d.name = ""),"-",d.name),"  ", '+
     'if(d.strength is null,"",d.strength),"  #  ",if(o.qty is null,"",o.qty)) '+
     'as drug_name,du.shortlist '+
     'from opitemrece o '+
     'left outer join drugitems d on d.icode = o.icode '+
     'left outer join drugusage du on du.drugusage = o.drugusage '+
     'where o.vn="'+DBPipeline['vn']+'" and o.sub_type="1"');


       if GetSQLStringData('select vn from opitemrece where vn="'+DBPipeline['vn']+'"')='' then
       ChangeDBPipeLineLink4SQL('select concat("(",lsg.lab_items_sub_group_name,")") as group_name, '+
     'lo.lab_items_name_ref,lo.lab_order_result,li.lab_items_unit, '+
     'concat(if(lo.lab_items_name_ref is null,"",lo.lab_items_name_ref),"  =  ", '+
     'if((lo.lab_order_result = "" or lo.lab_order_result is null),"รอผล",lo.lab_order_result)," ", '+
     'if(li.lab_items_unit is null,"",li.lab_items_unit)) as lab_report  '+
     'from lab_head lh '+
     'left outer join lab_order lo on lo.lab_order_number = lh.lab_order_number '+
     'left outer join lab_items li on li.lab_items_code = lo.lab_items_code '+
     'left outer join lab_items_sub_group lsg on lsg.lab_items_sub_group_code = lo.lab_items_sub_group_code '+
     'where lh.vn="'+DBPipeline['an']+'" order by lo.lab_items_sub_group_code,li.display_order ')
     else
     ChangeDBPipeLineLink4SQL('select concat("(",lsg.lab_items_sub_group_name,")") as group_name, '+
     'lo.lab_items_name_ref,lo.lab_order_result,li.lab_items_unit, '+
     'concat(if(lo.lab_items_name_ref is null,"",lo.lab_items_name_ref),"  =  ", '+
     'if((lo.lab_order_result = "" or lo.lab_order_result is null),"รอผล",lo.lab_order_result)," ", '+
     'if(li.lab_items_unit is null,"",li.lab_items_unit)) as lab_report  '+
     'from lab_head lh '+
     'left outer join lab_order lo on lo.lab_order_number = lh.lab_order_number '+
     'left outer join lab_items li on li.lab_items_code = lo.lab_items_code '+
     'left outer join lab_items_sub_group lsg on lsg.lab_items_sub_group_code = lo.lab_items_sub_group_code '+
     'where lh.vn="'+DBPipeline['vn']+'" order by lo.lab_items_sub_group_code,li.display_order ');
     
     
     ChangeDBPipeLineLink2SQL('select a.*,b.name as dt_name,c.name as doc_name,concat(tcount," ซี่")as t_name,concat(scount," ด้าน")as s_name, '+
     'concat(rcount," ราก")as r_name,concat(qty_count," ชิ้น")as q_name,a.fee,a.ttcode,a.begin_time,a.end_time '+
     'from dtmain a '+
     'left outer join dttm b on a.tmcode=b.code '+
     'left outer join doctor c on a.doctor=c.code '+
     'where vn="'+DBPipeline['vn']+'"');


     ChangeDBPipeLineLink5SQL('select * from xray_head where  vn="'+DBPipeline['vn']+'"');
     
     ChangeDBPipeLineLink6SQL('select e1.vn as vn,e1.er_oper_code as code,e.name,e.icd9cm,e.price, '+
     'concat("[ ER ] ",if((e.name = "" or e.name is null)," - ",e.name),"  #  ", '+
     'if((e1.oper_qty = "" or e1.oper_qty is null),"",e1.oper_qty),"  #  ", '+
     'if((d.name = "" or d.name is null),"",d.name)) as o_name '+
     'from er_oper_code e '+
     'left outer join er_regist_oper e1 on e1.er_oper_code = e.er_oper_code '+
     'left outer join doctor d on d.code = e1.doctor '+
     'where e1.vn="'+DBPipeline['vn']+'" '+
     'union '+
     'select d1.vn as vn,d1.er_oper_code as code,e.name,e.icd9cm,e.price, '+
     'concat("[OPD] ",if((e.name = "" or e.name is null)," - ",e.name),"  #  ", '+
     'if((d.name = "" or d.name is null),"",d.name)) as o_name '+
     'from er_oper_code e '+
     'left outer join doctor_operation d1 on d1.er_oper_code = e.er_oper_code '+
     'left outer join doctor d on d.code = d1.doctor '+
     'where d1.vn="'+DBPipeline['vn']+'"  ');
     
     
        ChangeDBPipeLineLink7SQL('select a.*,b.name as ward_name,c.name as room_name from opd_observe a '+
      ' left outer join ward b on a.ward=b.ward '+
      ' left outer join roomno c on a.roomno=c.roomno '+
      ' where vn="'+DBPipeline['vn']+'"');

     
     
end;



หาเจอแล้วครับแก้เองก็ได้ครับ

« แก้ไขครั้งสุดท้าย: มิถุนายน 10, 2010, 18:35:32 PM โดย doraemon »

ออฟไลน์ mixer_79

  • Hero Member
  • *****
  • กระทู้: 670
  • กำลังใจในการทำงาน
  • Respect: +1
    • ดูรายละเอียด
Re: พิมพ์ใบนำส่งผู้ป่วยAdmitไม่ได้อ.MN ช่วยหน่อยครับ
« ตอบกลับ #4 เมื่อ: มิถุนายน 17, 2010, 12:19:19 PM »
0
ขอบคุณครับ..เจอแล้วครับ..ในคำสั่งSELECT ลืมตัวS
ChangeDBPipeLineLink3SQL('ChangeDBPipeLineLink7SQL(sql);select concat(if((d.name is null or d.name = ""),"-",d.name),"  ", '+
     'if(d.strength is null,"",d.strength),"  #  ",if(o.qty is null,"",o.qty)) '+
นายทองคูณ พรมผักแว่น 0819550235
โรงพยาบาลสีคิ้ว อ.สีคิ้ว จ.นครราชสีมา 30140  
รพ.ขนาด 90 เตียง   thongkoon13@gmail.com
เริ่มใช้โปรแกรม 05 มีนาคม 2553
HOSxP V.3.56.2.15
______________________________________

ออฟไลน์ wauy

  • Full Member
  • ***
  • กระทู้: 192
  • Respect: +3
    • ดูรายละเอียด
Re: พิมพ์ใบนำส่งผู้ป่วยAdmitไม่ได้อ.MN ช่วยหน่อยครับ
« ตอบกลับ #5 เมื่อ: เมษายน 06, 2012, 12:00:02 PM »
0
พี่ครับผมแก้ตามพี่แล้วยังไม่ได้ครับขอฟอร์มที่แก้เสร็จมาดูได้ไหมครับพี่
รพช.รัตนบุรี
จ.สุรินทร์  ขึ้นระบบ 5 มีนาคม 2549
ทีม อ.อ็อด,อ.สุชัย ,อ.บอย ไพรัตน์ และทีม BMS