BMS-HOSxP Community

HOSxP => แจ้งปัญหา / ขอความช่วยเหลือ => ข้อความที่เริ่มโดย: mixer_79 ที่ พฤศจิกายน 13, 2010, 14:10:26 PM

หัวข้อ: อ.ทุกๆท่านช่วยดูรายงานการตายให้หน่อยครับ
เริ่มหัวข้อโดย: mixer_79 ที่ พฤศจิกายน 13, 2010, 14:10:26 PM

อ.ทุกๆท่านช่วยดูรายงานการตายให้หน่อยครับ
ผมทำทะเบียนการตามโดยแยกเป็น
1.ALL
2.IPD
3.OPD
4.DBA
ข้อมูล ALLออกได้ แต่ IPD,OPD,DBA ไม่ออก ช่วยดูให้หน่อยนะครับ

แนบ cds มาด้วยครับ

ขอบคุณครับ

หัวข้อ: Re: อ.ทุกๆท่านช่วยดูรายงานการตายให้หน่อยครับ
เริ่มหัวข้อโดย: smrmpo ที่ พฤศจิกายน 13, 2010, 14:55:50 PM

  depart := GetPickupList('select "ALL" union select "IPD" union select "OPD" union select "DBA" ');
  if depart='IPD' then
  begin
      ChangeReportSQL('SELECT pt.hn, Concat(pt.pname,pt.fname," ",pt.lname) as ptname, pt.birthday, '+
  ' pt.deathday, c1.name1 AS name504 ,pt.sex, i1.name AS icdname, d.*, pt.cid,d.death_date,d.an , '+
  ' dp.death_place_name,dp.death_place_id,s.name '+
  '   FROM death d LEFT OUTER JOIN '+
  ' patient pt ON pt.hn = d.hn LEFT OUTER JOIN '+
  ' rpt_504_name c1 ON c1.id = pt.death_code504 LEFT OUTER JOIN '+
  ' icd101 i1 ON i1.code = pt.death_diag   LEFT OUTER JOIN '+
  ' death_place dp ON dp.death_place_id = d.death_place LEFT OUTER JOIN '+
  ' sex s ON s.code = pt.sex '+
  '   WHERE d.death_date BETWEEN "'+ds1+'" and "'+ds2+'" AND d.an <> ""  ')
  end;
  if depart='OPD' then
  begin
     ChangeReportSQL('SELECT pt.hn, Concat(pt.pname, pt.fname, "  ", pt.lname) AS ptname, pt.birthday,'+
  ' pt.deathday, c1.name1 AS name504 ,pt.sex, i1.name AS icdname, d.*, pt.cid,d.death_date,d.an , '+
  ' dp.death_place_name,dp.death_place_id,s.name '+
  '   FROM death d LEFT OUTER JOIN'+
  ' patient pt ON pt.hn = d.hn LEFT OUTER JOIN'+
  ' rpt_504_name c1 ON c1.id = pt.death_code504 LEFT OUTER JOIN'+
  ' icd101 i1 ON i1.code = pt.death_diag   LEFT OUTER JOIN'+
  ' death_place dp ON dp.death_place_id = d.death_place LEFT OUTER JOIN '+
  ' sex s ON s.code = pt.sex'+
  '   WHERE d.death_date BETWEEN "'+ds1+'" and "'+ds2+'" AND d.an ="" and dp.death_place_id = "1" ')
  end;
  if depart='DBA' then
  begin
     ChangeReportSQL('   SELECT pt.hn, Concat(pt.pname, pt.fname, "  ", pt.lname) AS ptname, pt.birthday,'+
  ' pt.deathday, c1.name1 AS name504 ,pt.sex, i1.name AS icdname, d.*, pt.cid,d.death_date,d.an , '+
  ' dp.death_place_name,dp.death_place_id,s.name '+
  '   FROM death d LEFT OUTER JOIN'+
  ' patient pt ON pt.hn = d.hn LEFT OUTER JOIN'+
  ' rpt_504_name c1 ON c1.id = pt.death_code504 LEFT OUTER JOIN'+
  ' icd101 i1 ON i1.code = pt.death_diag   LEFT OUTER JOIN'+
  ' death_place dp ON dp.death_place_id = d.death_place LEFT OUTER JOIN '+
  ' sex s ON s.code = pt.sex'+
  '   WHERE d.death_date BETWEEN "'+ds1+'" and "'+ds2+'" AND d.an ="" and dp.death_place_id = "2" ')
  end;
  if depart='ALL' then
  begin
   ChangeReportSQL('   SELECT pt.hn, Concat(pt.pname, pt.fname, "  ", pt.lname) AS ptname, pt.birthday,'+
  ' pt.deathday, c1.name1 AS name504 ,pt.sex, i1.name AS icdname, d.*, pt.cid,d.death_date,d.an , '+
  ' dp.death_place_name,dp.death_place_id,s.name '+
  '   FROM death d LEFT OUTER JOIN'+
  ' patient pt ON pt.hn = d.hn LEFT OUTER JOIN'+
  ' rpt_504_name c1 ON c1.id = pt.death_code504 LEFT OUTER JOIN'+
  ' icd101 i1 ON i1.code = pt.death_diag   LEFT OUTER JOIN'+
  ' death_place dp ON dp.death_place_id = d.death_place LEFT OUTER JOIN '+
  ' sex s ON s.code = pt.sex'+
  '   WHERE d.death_date BETWEEN "'+ds1+'" and "'+ds2+'" ');


ผมทำสัญลักษณ์ให้ดูนะครับ น่าจะผิดตรงเครื่องหมาย ' '  ครับ ต้องใช้ ""

หัวข้อ: Re: อ.ทุกๆท่านช่วยดูรายงานการตายให้หน่อยครับ
เริ่มหัวข้อโดย: mixer_79 ที่ พฤศจิกายน 13, 2010, 15:24:08 PM

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

ทำเสร็จแล้วแจกเลยแล้วกัน..ลองใช้ดูนะครับ

หัวข้อ: Re: อ.ทุกๆท่านช่วยดูรายงานการตายให้หน่อยครับ
เริ่มหัวข้อโดย: phatipan2 ที่ พฤศจิกายน 13, 2010, 16:34:38 PM

  การใช้  GetPickupList เพื่อเลือกแผนก แล้วใช้ if เพื่อใช้เป็นตัวแสดงเงื่อนไข
ผมก็ใช้คำสั่ง อย่างนี้ในการเขียนรายงาน เหมือนกัน ครับ  แต่ไม่ทราบว่าท่านใดมีคำสั่งที่สั้นกว่านี้ใหม ครับ
เพราะเห็นเจ้าหน้าที่ IT ที่โรงพยาบาลปากน้ำชุมพร เคยมาคุยให้ผมฟังอยู่ว่าสามารถเขียนได้สั้นกว่านี้ ครับ
ผมก็ลองมาคิดดู ยังไงก็สั้นกว่านี้ไม่ได้แล้ว ถ้าไม่ให้ใช้   GetPickupList ,if แล้วจะมีคำสั่ง
แบบไหนที่พอจะช่วยให้การเขียนสั้นลงไหม ครับ

     ;D ;D ;D ขอคำแนะนำด้วย ครับ(คิดยังไงก็ไม่ออกสักกะที อิอิอิ) ;D ;D ;D

หัวข้อ: Re: อ.ทุกๆท่านช่วยดูรายงานการตายให้หน่อยครับ
เริ่มหัวข้อโดย: udomchok ที่ พฤศจิกายน 14, 2010, 00:14:43 AM

อ้างจาก: phatipan2 ที่ พฤศจิกายน 13, 2010, 16:34:38 PM

  การใช้  GetPickupList เพื่อเลือกแผนก แล้วใช้ if เพื่อใช้เป็นตัวแสดงเงื่อนไข
ผมก็ใช้คำสั่ง อย่างนี้ในการเขียนรายงาน เหมือนกัน ครับ  แต่ไม่ทราบว่าท่านใดมีคำสั่งที่สั้นกว่านี้ใหม ครับ
เพราะเห็นเจ้าหน้าที่ IT ที่โรงพยาบาลปากน้ำชุมพร เคยมาคุยให้ผมฟังอยู่ว่าสามารถเขียนได้สั้นกว่านี้ ครับ
ผมก็ลองมาคิดดู ยังไงก็สั้นกว่านี้ไม่ได้แล้ว ถ้าไม่ให้ใช้   GetPickupList ,if แล้วจะมีคำสั่ง
แบบไหนที่พอจะช่วยให้การเขียนสั้นลงไหม ครับ

     ;D ;D ;D ขอคำแนะนำด้วย ครับ(คิดยังไงก็ไม่ออกสักกะที อิอิอิ) ;D ;D ;D

ลองค้นดูรายงานเกี่ยวกับยาของผมครับ มีการแยกห้องจ่ายยาและรวมทุกห้อง ใช้ if เพื่อกำพหนดเงื่อนไขแบบสั้น ๆ ไม่ต้องเขียนยาวแบบนี้