BMS-HOSxP Community

HOSxP => Report Exchange => ข้อความที่เริ่มโดย: เด็กหลังเขา ที่ มิถุนายน 22, 2012, 13:18:52 PM

หัวข้อ: ช่วยดูให้หน่อยคับ ใช้ function : SearchOPDPtient ไม่เป็น
เริ่มหัวข้อโดย: เด็กหลังเขา ที่ มิถุนายน 22, 2012, 13:18:52 PM

ผมจะเขียนรายงาน ตัวหนึ่ง ค้นจะค้นหาจากวันที่และ HN ของผู้ป่วย  แต่ใช้ function : SearchOPDPtient  ไม่เป็นคับ
ช่วยแนะนำให้หน่อยคับ
 
procedure GlobalOnCreate;
begin

              GetDateRangeDialog(d1, d2);
             
     SearchOPDPtient: hn;
             
              ds1:=  FormatDateTime('YYYY-MM-DD', d1);
              ds2:=  FormatDateTime('YYYY-MM-DD', d2);

     ChangeReportSQL('SELECT Concat(p.pname, p.fname,"  ", p.lname) AS name, o.vstdate, o.pe, o.cc, '+
' o.bw, Concat(o.bps, "/", o.bpd) AS bp, o.pulse, o.hr, phm.service_text, '+
' phm.plan_text, phm.progress_text, phm.problem_text  '+
' FROM opdscreen o LEFT OUTER JOIN      '+
' patient p ON o.hn = p.hn LEFT OUTER JOISearchOPDPatient;  '+
' physic_main phm ON o.vn = phm.vn     '+
' WHERE o.hn = "'+hn+'" and o.vstdate BETWEEN "'+ds1+'" AND "'+ds2+'"      '+
' order by o.vstdate' );

end;

ผมอยู๋จังหวัดกาญจนบุรีคับ รพ.บารมี จพ.เครื่องคอมพิวเตอร์

หัวข้อ: Re: ช่วยดูให้หน่อยคับ ใช้ function : SearchOPDPtient ไม่เป็น
เริ่มหัวข้อโดย: golf_win ที่ มิถุนายน 22, 2012, 13:32:25 PM

1. ประกาศตัวแปร 1 ตัวที่ tab declarations เช่น fHN : String ;
2. แก้ไขคำสั่งที่ event

procedure GlobalOnCreate;
begin

              fHN := SearchOPDPatient;

              GetDateRangeDialog(d1, d2);             
              ds1:=  FormatDateTime('YYYY-MM-DD', d1);
              ds2:=  FormatDateTime('YYYY-MM-DD', d2);

 ChangeReportSQL('SELECT Concat(p.pname, p.fname,"  ", p.lname) AS name, o.vstdate, o.pe, o.cc,  '+
' o.bw, Concat(o.bps, "/", o.bpd) AS bp, o.pulse, o.hr, phm.service_text, '+
' phm.plan_text, phm.progress_text, phm.problem_text  '+
' FROM opdscreen o '+
' LEFT OUTER JOIN patient p ON o.hn = p.hn '+
' LEFT OUTER JOIN physic_main phm ON o.vn = phm.vn     '+
' WHERE o.hn = '''+fHN+''' and o.vstdate BETWEEN "'+ds1+'" AND "'+ds2+'"      '+
' order by o.vstdate ');