ได้แล้วคะ มีผู้หวังดีไปเปลี่ยน house_id เป็น 0   แก้กลับเป็น house_id เดิม ก็เรียบร้อยคะ

เยี่ยมเลยค่ะ ใช้ได้ทั้ง hosxp และ hosxp_pcu ด้วยหรือเปล่าคะ

 

 

 

 

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

set @x:=-1;
select  an.an,an.hn,an.regdate,an.dchdate,DATE_ADD(regdate,interval AGE day) as curr_admit,DATE_FORMAT(DATE_ADD(regdate,interval AGE day),"%W") as as_day_name
,an.ward  as word ,w.name ,s.name as item_name
,if(meal=1,"brekfast",null)as brekfast
,if(meal=2,"lunch",null)as lunch
,if(meal=3,"dinner",null)as dinner
from  an_stat an
left outer join   ward w on w.ward=an.ward
left outer join ( select (@x:=@x+1) as AGE from person limit 100 )  as aa on AGE <=(datediff(dchdate,regdate))
left outer join ipt_food_menu  m on  an.an= m.an  and m.date_id = dayofweek(DATE_ADD(regdate,interval AGE day))
left outer join nutrition_items s on s.nutrition_items_id  =  m.nutrition_items_id
where   DATE_ADD(regdate,interval AGE day) between "2011-10-03"  and "2011-10-03"  and ( dchdate <>"" or dchdate is not null) and meal in ("1","2","3")
order by an.an,curr_admit,word ,meal

select d.outdate,d.intime,d.outtime,k1.department as from_department,k2.department as to_department,o.name as staff_name

from ptdepart d
left outer join kskdepartment k1 on k1.depcode = d.depcode
left outer join kskdepartment k2 on k2.depcode = d.outdepcode
left outer join opduser o on o.loginname = d.staff

where d.vn = '540922063916'  order by d.intime

ลองดูนะคะ เผื่อจะใช้ได้
 

โครงสร้างอาจจะเป็นเวอร์ชั่นที่ ใหม่กว่า โปรแกรม ค่ะ   
เคยเจอเหมือนกัน อัพฐานใว้ก่อน กลัวว่าถ้าอัพทีหลังจะนานกลายเป็นว่า ฐานข้อมูลมีฟิล์ห้ามว่าง 
 แต่โปรแกรมใช้เวอร์ชั่นเก่า ยังไม่มีหน้าตาบันทึกตรงส่วนนั้น  พอใช้ให้ตรงก็หาย

GetUserParameter( X );  ค่าที่ได้มาจะเป็น string อยู่แล้วค่ะ 
และถ้าตัวแปรเป็นวันที่ ก็จะได้string ที่มีรูปแบบเป็น  yyyy-mm-dd อยู่แล้วค่ะ ไม่ใช่ datetime
จึงไม่จำเป็นต้องใช้   ISO2Date(d, f);  ค่ะ

ส่วน  FormatDateTime(Format, aDateTime); แปลงค่าวันที่ให้อยู่รูปแบบ string ตามFormat ที่กำหนด
datetime  >  string

แต่ถ้าจะแปลงจาก string > datetime ก็ได้ 
ใช้  StrToDate( str ); แต่ว่ารูปแบบ str ที่เป็น 'yyyy-mm-dd' จะใช้ไม่ได้ ต้องเป็น 'dd/mm/yyyy'ค่ะ
ลองเอาไปทดสอบแบบนี้ดู
Value := formatdatetime('yyyy-mm-dd',StrToDate('01/02/2011'));

select * from vn_stat
where pttype
and paid_money>0
and rcpt_money="0"
and vstdate between "2011-06-01" and "2011-06-31"

ตัวอย่าง รายvisit ที่ยังไม่ชำระเงิน

เปลี่ยน จากเดิม
update patient join ovst on ovst.hn=patient.hn
set patient.firstday = ( select min(ovst.vstdate) from ovst where ovst.hn = patient.hn )
where  patient.firstday ="" or   patient.firstday is null

ตัด where  patient.firstday ="" or   patient.firstday is null ออกไป เป็น

update patient join ovst on ovst.hn=patient.hn
set patient.firstday = ( select min(ovst.vstdate) from ovst where ovst.hn = patient.hn )
ค่ะ  ลองดูกับฐานสำรองนะคะ

ถ้ามันเหมือนกันแล้วคงแก้ยาก
ลองไปเอา วันที่ที่มารับบริการวันแรก ใน  ovst  อัพเข้าไปแทนเลย ฮุฮุฮุ

แนะนำจากประสพการณ์ที่เคยเจอปัญหาแบบนี้มา ใช้โปรแกรมจับภาพหน้าจอเก็บข้อมูลการตั้งค่าที่ System Settings เก็บไว้เวลามีปัญหาเอามาเปิดเทียบกันดูว่ามีอะไรถูกแก้ไขเปลี่ยนแปลงไปบ้างก็แก้กลับคืนให้เหมือนเดิมครับ

ขอบคุณมากนะคะ สำหรับคำแนะนำ  เดียวจะปรึกษากับน้องคอมหาวิธีป้องกันต่อไปค่ะ 

ขอบคุณอาจารย์มากนะคะที่ช่วยเหลือ     

เดียวจะให้น้องคอมเค้าเช็คสิทธิ์แอดมิน ว่าได้ให้ใครไปบ้าง และหาทางป้องกันต่อไป ค่ะ

ช่วยด้วยค่ะ มันขึ้นฟ้องว่า กำลังทำงาน replicate mode  node E   ค่ะ

แล้ว HN ใหม่ที่เพิ่มขึ้น เป็น  9000001 ,900002,900003,900004,900005 
และข้อมูลเลขที่สิทธิ์การรักษาก็หายไปด้วย เกิดอะไรขึ้นคะ รบกวนทุกท่านช่วยเหลือด้วย  ด่วนเลยนะคะ

select vn.hn,concat(pt.pname,pt.fname,'  ',pt.lname)as name,vn.age_y,vn.vstdate, pt.informaddr,
lo.lab_items_code ,lo.lab_order_result,if(lab_order_result between '70' and '130'  ,'1','0') as lab_progess

from vn_stat vn
left outer join patient pt on vn.hn = pt.hn
left outer join   lab_head lh on vn.vn =lh.vn
left outer join lab_order lo on lh.lab_order_number = lo.lab_order_number

where vn.vstdate between '2011-02-01' and '2011-03-30'
and lo.lab_items_code  in ('89','88')

and department = 'OPD'
and vn.pdx in ('E10','E101','E102','E103','E104','E105','E106','E107','E108','E109'
,'E11','E110','E111','E112','E113','E114','E115','E116','E117','E118','E119','E162','R739')
น่าจะเป็นแบบข้างบน ลองดูนะ ว่าได้หรือป่าว

source
unit Unit2;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, JvExControls, JvNavigationPane, Buttons, ComCtrls;
type
  TForm2 = class(TForm)
    Button1: TButton;     JvNavPanelHeader1: TJvNavPanelHeader;
    Shape26: TShape;      ProgressBar1: TProgressBar;
    Label1: TLabel;       Label2: TLabel;
    Label3: TLabel;       Button2: TButton;
    procedure Label2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form2: TForm2;
  row_curr,row_all:integer;
  sconnection:string;      // variable for hold connection string
  st:string;               // variable for hold any string
  ImportFileName: String;  // variable for Access address file part


implementation

{$R *.dfm}

procedure TForm2.Button1Click(Sender: TObject);
begin
row_curr:=0;row_all:=0;
//-------------------------------------------------//|
  zquery.close;                                    //|
  zquery.sql.text:='delete from tempreport ';      //|
  zquery.execsql;                                  //|
  zquery.close;                                    //|
  zquery.sql.text:='select * from  tempreport ';   //|
  zquery.open;                                     //|
//------------------------------------------------ //|
//-----------------------------------------------------------------------------------------------------------//|
   ImportFileName :=  fileopendialog('Access|*.mdb');                                                        //|
   if not FileExists(ImportFileName) then raise exception.create('  &iexcl;&Atilde;&Oslash;&sup3;&Ograve;&micro;&Atilde;&Ccedil;&uml;&Ecirc;&Iacute;&ordm; &auml;&iquest;&Aring;&igrave; '+ImportFileName);     //|
   setcursorbusy(true);                                                                                      //|
//   showmessage('&sup1;&Oacute;&agrave;&cent;&eacute;&Ograve; '+ImportFileName);                                                                  //|
sconnection:=' Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;'+                                             //|
  'Data Source= ' + ImportFileName + ' ; '  +                                                                //|
  'Mode=Share Deny None;Extended Properties="";Jet OLEDB:System database="";'+                               //|
  'Jet OLEDB:Registry Path="";Jet OLEDB:Database Password="";Jet OLEDB:Engine Type=5;'+                      //|
  'Jet OLEDB:Database Locking Mode=1;Jet OLEDB:Global Partial Bulk Ops=2;'+                                  //|
  'Jet OLEDB:Global Bulk Transactions=1;Jet OLEDB:New Database Password="";'+                                //|
  'Jet OLEDB:Create System Database=False;Jet OLEDB:Encrypt Database=False;'+                                //|
  'Jet OLEDB:Don''t Copy Locale on Compact=False;'+                                                          //|
  'Jet OLEDB:Compact Without Replica Repair=False;Jet OLEDB:SFP=False; ';                                    //|
//---------------------------------------------------------------------------------------------------------- //|
//-------------------------------------------------------//|
  jconnection.connected:=false;                          //|
  jconnection.protocol:='ado';                           //|
  jconnection.database:=sconnection;                     //|
  jconnection.connected:=true;                           //|
  jquery.close;                                          //|
  jquery.sql.text:='select  * from UCdata ';             //|
  jquery.open;                                           //|
//-------------------------------------------------------//|



  while not jquery.eof do    //start loop for while
  begin
  row_curr:=row_curr+1;
  label1.caption:=inttostr(row_curr);
  label2.caption:=inttostr(row_curr);
  label3.caption:=inttostr(row_curr);
    setprogressbar(row_curr,row_curr+500);
     setstatuslabel('Progress ... '+inttostr(row_curr)+'/'+inttostr(200) );

   //------------------------------------------------------
 zquery.insert;
    zquery.fieldbyname('name1').asstring:=jquery.fieldbyname('HINDEX').asstring;  //    showmessage(jquery['hindex']);
    zquery.fieldbyname('name2').asstring:=jquery.fieldbyname('Pid').asstring;
    zquery.fieldbyname('name3').asstring:=jquery.fieldbyname('MASTERCUPID').asstring;
    zquery.fieldbyname('name4').asstring:=jquery.fieldbyname('TITLE').asstring;
    zquery.fieldbyname('name5').asstring:=jquery.fieldbyname('FNAME').asstring;
    zquery.fieldbyname('name6').asstring:=jquery.fieldbyname('LNAME').asstring;
    zquery.fieldbyname('name7').asstring:=jquery.fieldbyname('SEX').asstring;
    zquery.fieldbyname('date1').asstring:=jquery.fieldbyname('BIRTHDATE').asstring;
        zquery.fieldbyname('name8').asstring:=jquery.fieldbyname('AGE').asstring;
        zquery.fieldbyname('name9').asstring:=jquery.fieldbyname('SUBINSCL').asstring;
        zquery.fieldbyname('name10').asstring:=jquery.fieldbyname('HMAIN').asstring;
        zquery.fieldbyname('name11').asstring:=jquery.fieldbyname('HSUB').asstring;
        zquery.fieldbyname('name12').asstring:=jquery.fieldbyname('STATUS').asstring;
        zquery.fieldbyname('name13').asstring:=jquery.fieldbyname('CARDID').asstring;
        zquery.fieldbyname('date2').asstring:=jquery.fieldbyname('NOTEDATE').asstring;
        zquery.fieldbyname('date3').asstring:=jquery.fieldbyname('STARTDATE').asstring;
            zquery.fieldbyname('date4').asstring:=jquery.fieldbyname('EXPDATE').asstring;
            zquery.fieldbyname('name14').asstring:=jquery.fieldbyname('PROCODE').asstring;
            zquery.fieldbyname('name15').asstring:=jquery.fieldbyname('OWNERPURCHASE').asstring;
            zquery.fieldbyname('name16').asstring:=jquery.fieldbyname('MAININSCL').asstring;
            zquery.fieldbyname('name17').asstring:=jquery.fieldbyname('NOTE').asstring;
            zquery.fieldbyname('name18').asstring:=jquery.fieldbyname('NATION').asstring;
            zquery.fieldbyname('name19').asstring:=jquery.fieldbyname('OCCUPA').asstring;
            zquery.fieldbyname('name20').asstring:=jquery.fieldbyname('ADDRESS').asstring;
                    zquery.fieldbyname('name21').asstring:=jquery.fieldbyname('MOO').asstring;
                    zquery.fieldbyname('name22').asstring:=jquery.fieldbyname('ROAD').asstring;
                    zquery.fieldbyname('name23').asstring:=jquery.fieldbyname('TAMBON').asstring;
                    zquery.fieldbyname('name24').asstring:=jquery.fieldbyname('AMPHUR').asstring;
                    zquery.fieldbyname('x1').asstring:=jquery.fieldbyname('PROVINCE').asstring;
                    zquery.fieldbyname('x2').asstring:=jquery.fieldbyname('ZIPCODE').asstring;
                    zquery.fieldbyname('x3').asstring:=jquery.fieldbyname('RESULT_ID').asstring;
                    zquery.fieldbyname('x4').asstring:=jquery.fieldbyname('WelUC_ID').asstring;
                    zquery.fieldbyname('x5').asstring:=jquery.fieldbyname('Paid_Model').asstring;
                    zquery.fieldbyname('x6').asstring:=jquery.fieldbyname('RegisterID').asstring;
                    zquery.fieldbyname('x7').asstring:=jquery.fieldbyname('Flag').asstring;
                    zquery.fieldbyname('x8').asstring:=jquery.fieldbyname('Hmain_OP').asstring;
                    zquery.fieldbyname('x9').asstring:=jquery.fieldbyname('Type_Register').asstring;
                    zquery.fieldbyname('x10').asstring:=jquery.fieldbyname('Status_Frm').asstring;
                    zquery.fieldbyname('name').asstring:=jquery.fieldbyname('Status_Reg').asstring;
      zquery.post;
    //-------------------------------------------------------
      jquery.next;
  end;

  setprogressbar(row_curr,row_curr);
  showmessage('Import OK');

  jquery.close;
  zquery.close;
   setcursorbusy(false);
end;



procedure TForm2.Button2Click(Sender: TObject);
begin
end;



end.

ในกรณีจังหวัดสุรินทร์ ที่มีการรวมตัวแอดมินโรงพยาบาลในจังหวัดเอง  เพื่อสร้างทีมhosxp และมีการเชิญเป็นวิทยากรไปขึ้นระบบโรงพยาบาลในจังหวัด  และคอยดูแลเป็นพี่เลี้ยงโรงพยาบาลน้องใหม่ 
แบบนี้เข้าข่ายจะโดน black list ไหมค่ะ  ไม่ค่อยสบายใจเลย ...

รบกวนอาจารย์ชัยพรด้วยค่ะ  เพิ่ม Add text ในแทบการให้คำแนะนำหน้าการคัดกรองด้วยค่ะ
เหมือนว่าอาจารย์จะAdd text ได้  แต่ไม่ได้ค่ะ  สงสัยคงลืมหน้านี้ไป  รบกวนอาจารย์ชัยพรด้วยนะคะ
ขอให้หายป่วยไวๆนะคะ

ขอด้วยค่ะ dogmike.vip@hotmail.com
ขอขอบคุณล่วงหน้า

พักผ่อนบ้าง เป็นห่วงนะคะ 

ลองหาดูแล้ว มีเมนูการบันทึก แต่ไม่มีการส่งออก ( มีในhosxp pcuเท่านั้น ) 

ท่านไดมี Frm Depression Export ก็ขอด้วยนะคะ   

อยากให้เจ้าของงานส่งข้อมูลเองค่ะ

ขอบคุณมากค่ะ...

งั้นการอยู่จริงไม่อยู่จริงเนี่ย หมายถึงการอยู่ในเขตรับผิดชอบ ไม่ใช่อยู่ภายในบ้านใช่ไหมค่ะ

มีข้อสงสัยค่ะ  ถ้ากรณีที่บัญชี1  person1คนมี3บ้านในเขต  จำเป็นต้องไปเพิ่มบุคคลในบ้านทุกบ้านไหม 
ถ้าต้องเพิ่ม มีperson_id หลายอัน แต่มีcid เดียวกันจะเป็นปัญหาไหม

ถ้าไม่เพิ่ม แต่เค้าเป็นบุคคลที่มีชื่อในทะเบียนบ้าน จะเป็นปัญหาไหม

หรือว่าจะกำหนดให้ person_id สามารถมีชื่ออยู่ในหลายๆบ้านได้ แต่กำหนดสถานะการอยู่จริงของเค้า
หรือว่าจะกำหนดให้ person มีหลายๆ person_id และกระจายอยู่ตามบ้านแทน แล้วจะมีปัญหาหรือป่าวเพราะcid เดียวกัน