วันเสาร์ที่ 14 กันยายน พ.ศ. 2556

CUSTOM- รายชื่อผู้ป่วยในที่ Admit & Dischart & ผู้ป่วยนอนรวม(ณ ปัจจุบัน)รายวัน


CUSTOM- รายชื่อผู้ป่วยในที่ Admit & Dischart & ผู้ป่วยนอนรวม(ณ ปัจจุบัน)รายวัน

สวีดัด สวัสดี ครับ เพื่อนชาว Blog ทั้งหลาย และเพื่อนๆ admin ที่ใช้งาน HOSxP  เมื่อวันสองวันที่ผ่านมา มีพยาบาลจาก ward โทรมาถามว่า "พี่อยากดูยอดคนไข้ยกมาจากเวรที่แล้ว ใน HOSxP จะดูได้ไหม?" ผมนั่ง งง ไป 3 วินาที เลยบอกไปว่า "ขอผมศึกษาใน HOSxP ก่อนนะครับ แล้วจะโทรแจ้ง" เลยมานั่งนึกดูแล้ว ใน HOSxP มันไม่มีนี่หว่า สงสัยต้องมานั่งทำเป็นรายงานซะละ เลยจัดแจงเขียน Query SQL ซะเลย นั่งเขียนได้ครึ่งเช้า ก็เสร็จแล้ว แต่ยังเหลือนำ SQL Code ไปออกแบบหน้า Report Designer เฮ้อ...เสร็จสักที เป็นเล่นเน็ตได้แปปนึง มีบางสิ่งปิ้งขึ้นมาในหัวว่า เอ.. แล้วจำนวนคนที่จำหน่าย มันต้องตัดประเภทการจำหน่ายแบบไหนหว่า หรือจะเอาหมดทถกประเภทเลยดีหว่า??? ลองไปถามอากู๋(google) ซะหน่อยสิ เผื่ออากู๋จะให้คำตอบได้
สักพัก Search ไป ดันไปเห็นลิงค์นึงปลายทางคือ เวบ hosxp.net หุหุ เข้าทางโจร ฮ่าๆๆๆ เข้าไปเบิ่งก่อนน๊าาา อั๊ยย๊ะ!!! OMG มันเป็นรายงานที่เราต้องการจริงๆด้วย หึหึ นั่งเขียนเองตั้งนาน ลองโหลดมาเก็บแล้วเอาไปศึกษาหน่อยสิ ว่าแล้วก็จัดเลย ฮ่าๆๆ และผมได้นำรายงานดังกล่าวมาปรับแก้เพิ่มเติมด้วยครับ คือ สามารถเลือก ward ได้ครับ และได้ตรวจสอบ Code อีกนิดหน่อย เป็นอันใช้ได้ ^_^ เลยออกมาเป็นหน้าตาแบบนี้ครับ

ชื่อรายงาน CUSTOM- รายชื่อผู้ป่วยในที่ Admit & Dischart & ผู้ป่วยนอนรวม(ณ ปัจจุบัน)รายวัน


เลือกช่วงวันที่ ที่ท่านต้องการ


เลือกรหัส ward (แต่ละ โรงพยาบาลจะมีไม่เท่ากันนะครับ)


มันเลยออกมาหน้าตาเป็นแบบนี้ครับท่านผู้อ่านทั้งหลาย



หน้ารายงานจะแสดงดังนี้ครับ
1.รายชื่อผู้ป่วยที่ Admit ในวันนั้น
   จะแสดง | an | hn | ชื่อ-นามสกุล |
   จำนวนผู้ป่วยที่ admit

2.รายชื่อผู้ป่วยที่ D/C
   จะแสดง | an | hn | ชื่อ-นามสกุล |
    จำนวนผู้ป่วยที่ D/C

3.รายชื่อผู้ป่วย ณ วันเวลาที่พิมพ์รายงาน
   จะแสดง | an | hn | ชื่อ-นามสกุล |
    จำนวนผู้ป่วยที่คงค้างที่ ward

ประโยชน์ของรายงานตัวนี้ เอาไว้ส่งเวรกันก็ได้ครับ หรือจะเอาไว้รายงานจำนวนผู้ป่วยภายในวันก็ได้ครับ ตอนนี้กำลังจะทำแยกช่วงเวลา เอาไว้ส่งเวรกันระหว่างวันครับ ตัวนี้เป็น V.1 ครับ

Cr.niyomstd แห่งโรงพยาบาลแม่เมาะ ในบอร์ดของ hosxp.net ด้วยครับ ที่เป็นต้นแบบรายงานครับผม

$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$

สิ่งที่ขาดไม่ได้ คือ ลิงค์โหลดรายงานครับผม >>>คลิกเบาๆ<<<

จัดโค้ดให้พร้อมครับ

begin
  GetDateRangeDialog(d1, d2);
  ds1:=FormatDateTime('yyyy-mm-dd',d1);
  ds2:=FormatDateTime('yyyy-mm-dd',d2);

  w1:=GetPickupList('select * from ward order by ward');


   ChangeDBPipeLineLink1SQL(' select a.*,concat(p.pname,p.fname,"  ",p.lname) as ptname  '+
' from ipt i  '+
' left outer join an_stat a on a.an =i.an  '+
' left outer join ward w on w.ward =a.ward '+
' left outer join patient p on p.hn=a.hn '+
' where a.regdate between "'+ds1+'" and "'+ds2+'" and i.ward="'+w1+'"');

  ChangeDBPipeLineLink2SQL('select a.*,concat(p.pname,p.fname,"  ",p.lname) as ptname  '+
' from ipt i '+
' left outer join an_stat a on a.an =i.an  '+
' left outer join ward w on w.ward =a.ward '+
' left outer join patient p on p.hn=a.hn '+
' where a.dchdate between "'+ds1+'" and "'+ds2+'" and i.ward="'+w1+'" ');

 ChangeDBPipeLineLink3SQL('select i.* ,p.*,concat(p.pname,p.fname," ",p.lname) ptname '+
' from ipt i '+
' left outer join patient p on p.hn=i.hn                '+
' left outer join an_stat aa on aa.an=i.an                  '+
' left outer join ward w on w.ward = i.ward                 '+
' left outer join doctor di on di.code = i.incharge_doctor  '+
' left outer join pttype ptt on ptt.pttype=i.pttype         '+
' where i.ward="'+w1+'" and i.dchstts is null order by i.regdate,i.regtime ');
end;


0 ความคิดเห็น: