ผู้เขียน หัวข้อ: รายละเอียดในฟิลด์ service_time ที่เหลือ  (อ่าน 26737 ครั้ง)

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

ออฟไลน์ eangikoe

  • Newbie
  • *
  • กระทู้: 37
  • Respect: 0
    • ดูรายละเอียด
รายละเอียดในฟิลด์ service_time ที่เหลือ
« เมื่อ: ตุลาคม 08, 2007, 14:30:16 PM »
0
แล้วที่เหลือล่ะคะ service 1 ,2, ,9, 10, 13, 14, 15
 

ออฟไลน์ ~ Red Indian ~

  • Hero Member
  • *****
  • กระทู้: 837
  • ~> Bangmod 17 <~
  • Respect: 0
    • ดูรายละเอียด
    • www.hosxp.net
Re: รายละเอียดในฟิลด์ service_time ที่เหลือ
« ตอบกลับ #1 เมื่อ: ตุลาคม 08, 2007, 15:31:41 PM »
0
  :o . . ??? ??? ???
~  N a L i e w  ~

doramon

  • บุคคลทั่วไป
Re: รายละเอียดในฟิลด์ service_time ที่เหลือ
« ตอบกลับ #2 เมื่อ: ตุลาคม 08, 2007, 16:39:15 PM »
0
service3 = เวลาพิมพ์ใบสั่งยา
service4 = เวลาที่ดึงผู้ป่วยมาซักประวัติ
service5 = เวลาที่แพทย์ดึงผู้ป่วยมาตรวจ (เริ่มตรวจ)
service6 = เวลาที่บันทึกรายการยา จากห้องจ่ายยา Mode 2
service7 = เวลาที่บันทึกออกใบเสร็จรับเงิน
service8 = เวลาที่บันทึก Admit ผู้ป่วย
service11 = เวลาที่บันทึกซักประวัติเสร็จ
service12 = เวลาที่แพทย์บันทึกสั่งยา (ตรวจเสร็จ)
service12 = เวลาที่ห้องฉุกเฉินบันทึกการให้บริการ
service16 = เวลาที่บันทึกจ่ายยาให้ผู้ป่วย (จากห้องจ่ายยา)

ออฟไลน์ SrWooD

  • Hero Member
  • *****
  • กระทู้: 1,024
  • Respect: +1
    • ดูรายละเอียด
Re: รายละเอียดในฟิลด์ service_time ที่เหลือ
« ตอบกลับ #3 เมื่อ: ตุลาคม 08, 2007, 16:49:59 PM »
0
แล้วที่เหลือล่ะคะ service 1 ,2, ,9, 10, 13, 14, 15
คงหมายถึงนอกเหนือจาก
service3 = เวลาพิมพ์ใบสั่งยา
service4 = เวลาที่ดึงผู้ป่วยมาซักประวัติ
service5 = เวลาที่แพทย์ดึงผู้ป่วยมาตรวจ (เริ่มตรวจ)
service6 = เวลาที่บันทึกรายการยา จากห้องจ่ายยา Mode 2
service7 = เวลาที่บันทึกออกใบเสร็จรับเงิน
service8 = เวลาที่บันทึก Admit ผู้ป่วย
service11 = เวลาที่บันทึกซักประวัติเสร็จ
service12 = เวลาที่แพทย์บันทึกสั่งยา (ตรวจเสร็จ)
service12 = เวลาที่ห้องฉุกเฉินบันทึกการให้บริการ
service16 = เวลาที่บันทึกจ่ายยาให้ผู้ป่วย (จากห้องจ่ายยา)
อยากทราบเหมือนกันครับ อ.อ๊อด
โรงพยาบาลโพธิ์ทอง จังหวัดอ่างทอง

ออฟไลน์ sayun

  • Hero Member
  • *****
  • กระทู้: 571
  • Respect: 0
    • ดูรายละเอียด
Re: รายละเอียดในฟิลด์ service_time ที่เหลือ
« ตอบกลับ #4 เมื่อ: ตุลาคม 08, 2007, 20:25:42 PM »
0
มีรพ. ไหนมีรายงานระยะเวลารอคอยเฉลี่ยแต่ละจุดบริการบ้างครับ
สายัญ ธุนันทา จพ.เภสัชกรรมชำนาญงาน
Maste :
HOSxP + HOSxP_PCU

doramon

  • บุคคลทั่วไป
Re: รายละเอียดในฟิลด์ service_time ที่เหลือ
« ตอบกลับ #5 เมื่อ: ตุลาคม 08, 2007, 21:08:21 PM »
0
unit OPDTimeCheckU;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, se_controls, KsSkinForms, dxCntner, dxEditor, dxExEdtr, dxEdLib,
  KsSkinPanels, StdCtrls, Buttons, JvFormPlacement, Provider, DB,
  DBClient, ppComm, ppRelatv, ppDB, ppDBPipe, ppBands, ppCache, ppClass,
  ppProd, ppReport, ppCtrls, ppPrnabl, JvComponent, ExtCtrls,cxButtons;

type
  TOPDTimeCheckForm = class(TForm)
    SeSkinPanel1: TSeSkinPanel;
    SeSkinPanel2: TSeSkinPanel;
    SeSkinButton1: TcxButton;
    SeSkinButton2: TcxButton;
    SeSkinButton3: TcxButton;
    SeSkinForm1: TSeSkinForm;
    Label1: TLabel;
    HnEdit: TdxEdit;
    SpeedButton1: TSpeedButton;
    Label4: TLabel;
    PtNameEdit: TdxEdit;
    VNEdit: TdxEdit;
    Label3: TLabel;
    AdmDateEdit: TdxEdit;
    Label6: TLabel;
    DisChargeDateEdit: TdxEdit;
    Label5: TLabel;
    PtTypeEdit: TdxEdit;
    dxTimeEdit1: TdxTimeEdit;
    Label2: TLabel;
    Label7: TLabel;
    dxTimeEdit2: TdxTimeEdit;
    Label8: TLabel;
    dxTimeEdit3: TdxTimeEdit;
    Label9: TLabel;
    dxTimeEdit4: TdxTimeEdit;
    Label10: TLabel;
    dxTimeEdit5: TdxTimeEdit;
    Label11: TLabel;
    dxTimeEdit6: TdxTimeEdit;
    Label12: TLabel;
    dxTimeEdit7: TdxTimeEdit;
    Label13: TLabel;
    dxTimeEdit8: TdxTimeEdit;
    Label14: TLabel;
    dxTimeEdit9: TdxTimeEdit;
    Label15: TLabel;
    dxTimeEdit10: TdxTimeEdit;
    JvFormStorage1: TJvFormStorage;
    SeSkinButton4: TcxButton;
    DataSource1: TDataSource;
    cds: TClientDataSet;
    DataSetProvider1: TDataSetProvider;
    ppReport1: TppReport;
    ppHeaderBand1: TppHeaderBand;
    ppDetailBand1: TppDetailBand;
    ppFooterBand1: TppFooterBand;
    ppLabel1: TppLabel;
    ppLabel2: TppLabel;
    ppTitleBand1: TppTitleBand;
    ppSummaryBand1: TppSummaryBand;
    ppLabel3: TppLabel;
    ppLabel4: TppLabel;
    ppLabel5: TppLabel;
    ppLabel6: TppLabel;
    ppLabel7: TppLabel;
    ppLabel8: TppLabel;
    ppLabel9: TppLabel;
    ppLabel10: TppLabel;
    ppLabel11: TppLabel;
    ppLabel12: TppLabel;
    ppLabel13: TppLabel;
    ppLabel14: TppLabel;
    ppLabel15: TppLabel;
    ppLabel16: TppLabel;
    ppDBCalc1: TppDBCalc;
    ppDBText1: TppDBText;
    ppDBPipeline2: TppDBPipeline;
    ppDBText2: TppDBText;
    ppDBText3: TppDBText;
    ppDBText4: TppDBText;
    ppDBText5: TppDBText;
    ppDBText6: TppDBText;
    ppDBText7: TppDBText;
    ppDBText8: TppDBText;
    ppDBText9: TppDBText;
    ppDBText10: TppDBText;
    ppDBText11: TppDBText;
    ppDBText12: TppDBText;
    ppDBText13: TppDBText;
    ppLabel17: TppLabel;
    ppLabel18: TppLabel;
    ppLabel19: TppLabel;
    ppLabel20: TppLabel;
    ppLabel21: TppLabel;
    ppLabel22: TppLabel;
    ppLabel23: TppLabel;
    ppLabel24: TppLabel;
    ppLabel25: TppLabel;
    ppLabel26: TppLabel;
    Bevel1: TBevel;
    Bevel2: TBevel;
    Label16: TLabel;
    dxTimeEdit11: TdxTimeEdit;
    Label17: TLabel;
    dxTimeEdit12: TdxTimeEdit;
    Label18: TLabel;
    Label19: TLabel;
    dxTimeEdit13: TdxTimeEdit;
    dxTimeEdit14: TdxTimeEdit;
    Label20: TLabel;
    dxTimeEdit15: TdxTimeEdit;
    Label21: TLabel;
    dxTimeEdit16: TdxTimeEdit;
    Label22: TLabel;
    dxTimeEdit17: TdxTimeEdit;
    Label23: TLabel;
    dxTimeEdit18: TdxTimeEdit;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure SpeedButton1Click(Sender: TObject);
    procedure HnEditChange(Sender: TObject);
    procedure SeSkinButton3Click(Sender: TObject);
    procedure SeSkinButton1Click(Sender: TObject);
    procedure dxTimeEdit1KeyUp(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure dxTimeEdit2KeyUp(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure dxTimeEdit3KeyUp(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure dxTimeEdit4KeyUp(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure dxTimeEdit5KeyUp(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure dxTimeEdit6KeyUp(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure dxTimeEdit7KeyUp(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure dxTimeEdit8KeyUp(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure dxTimeEdit9KeyUp(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure dxTimeEdit10KeyUp(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure SeSkinButton2Click(Sender: TObject);
    procedure SeSkinButton4Click(Sender: TObject);
    function DataSetProvider1DataRequest(Sender: TObject;
      Input: OleVariant): OleVariant;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  OPDTimeCheckForm: TOPDTimeCheckForm;

implementation
uses mainu,kskdmu,miscutil, VNSelectU, GetDateRangeInputU,
JvJCLUtils,thaidate;

{$R *.dfm}

procedure TOPDTimeCheckForm.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  action:=cafree;
end;

procedure TOPDTimeCheckForm.SpeedButton1Click(Sender: TObject);
begin
  showpatientfinddialog(hnedit);
end;

procedure TOPDTimeCheckForm.HnEditChange(Sender: TObject);
begin

  ptnameedit.clear;
  pttypeedit.clear;
  admdateedit.clear;
  dischargedateedit.clear;
  vnedit.clear;
  dxtimeedit1.text:='';
  dxtimeedit2.text:='';
  dxtimeedit3.text:='';
  dxtimeedit4.text:='';
  dxtimeedit5.text:='';
  dxtimeedit6.text:='';
  dxtimeedit7.text:='';
  dxtimeedit8.text:='';
  dxtimeedit9.text:='';
  dxtimeedit10.text:='';
  dxtimeedit11.text:='';
  dxtimeedit12.text:='';
  dxtimeedit13.text:='';
  dxtimeedit14.text:='';
  dxtimeedit15.text:='';
  dxtimeedit16.text:='';
  dxtimeedit17.text:='';
  dxtimeedit18.text:='';

  if not validhncode(hnedit.text) then
    exit;

  application.createform(TVNSelectForm, vnselectform);
  try
    vnselectform.fhn_ := hnedit.text;
    vnselectform.showmodal;
    vnedit.text := vnselectform.fvn_;
  finally
    freeandnil(vnselectform);
  end;

  if vnedit.text = '' then
    exit;

   

  ptnameedit.text :=
    vartostr(getsqldata('select concat(pname,fname,"  ",lname) as ptname from patient where hn="' +
    hnedit.text + '"'));
  pttypeedit.text := vartostr(getsqldata('select pttype from ovst where vn="' +
    vnedit.text + '"'));
  pttypeedit.text :=
    vartostr(getsqldata('select name from pttype where pttype="' +
    pttypeedit.text + '"')) + ' ' +
    vartostr(getsqldata('select pttypeno from ovst where vn="' + vnedit.text +
      '"'));
  admdateedit.text :=
    formatdatetime('d mmm ee',
    getsqldata('select vstdate from ovst where vn="' +
    vnedit.text + '"'));
  dischargedateedit.text :=
    formatdatetime('hh:nn:ss',
    getsqldata('select vsttime from ovst where vn="' +
    vnedit.text + '"'));

  with kskdm.fcds2 do
  begin
    close;
    datarequest('select * from service_time where vn="'+vnedit.text+'"');
    open;
    if recordcount>0 then
    begin
     dxtimeedit1.time:=fieldbyname('service1').asdatetime;
     dxtimeedit1.refresh;
     dxtimeedit2.time:=fieldbyname('service2').asdatetime;
     dxtimeedit2.refresh;
     dxtimeedit3.time:=fieldbyname('service3').asdatetime;
     dxtimeedit3.refresh;
     dxtimeedit4.time:=fieldbyname('service4').asdatetime;
     dxtimeedit4.refresh;
     dxtimeedit5.time:=fieldbyname('service5').asdatetime;
     dxtimeedit5.refresh;
     dxtimeedit6.time:=fieldbyname('service6').asdatetime;
     dxtimeedit6.refresh;
     dxtimeedit7.time:=fieldbyname('service7').asdatetime;
     dxtimeedit7.refresh;
     dxtimeedit8.time:=fieldbyname('service8').asdatetime;
     dxtimeedit8.refresh;
     dxtimeedit9.time:=fieldbyname('service9').asdatetime;
     dxtimeedit9.refresh;
     dxtimeedit10.time:=fieldbyname('service10').asdatetime;
     dxtimeedit10.refresh;
     dxtimeedit11.time:=fieldbyname('service11').asdatetime;
     dxtimeedit11.refresh;
     dxtimeedit12.time:=fieldbyname('service12').asdatetime;
     dxtimeedit12.refresh;
     dxtimeedit13.time:=fieldbyname('service13').asdatetime;
     dxtimeedit13.refresh;
     dxtimeedit14.time:=fieldbyname('service14').asdatetime;
     dxtimeedit14.refresh;
     dxtimeedit15.time:=fieldbyname('service15').asdatetime;
     dxtimeedit15.refresh;
     dxtimeedit16.time:=fieldbyname('service16').asdatetime;
     dxtimeedit16.refresh;

     dxtimeedit17.time:=fieldbyname('service17').asdatetime;
     dxtimeedit17.refresh;

     dxtimeedit18.time:=fieldbyname('service18').asdatetime;
     dxtimeedit18.refresh;

    end;
    close;

  end;

  activecontrol:=dxtimeedit1;   
end;

procedure TOPDTimeCheckForm.SeSkinButton3Click(Sender: TObject);
begin
  close;
end;

procedure TOPDTimeCheckForm.SeSkinButton1Click(Sender: TObject);
begin
  if messagedlg('Please confirm save ?',mtconfirmation,[mbyes,mbno],0)<>mryes then exit;

  with kskdm.bcds1 do
  begin
    close;
    datarequest('select * from service_time where vn="'+vnedit.text+'"');
    open;
    if recordcount>0 then edit else insert;
    fieldbyname('vn').asstring:=vnedit.text;
    fieldbyname('hn').asstring:=hnedit.text;
    fieldbyname('vstdate').asdatetime:=getsqldata('select vstdate from ovst where vn="'+vnedit.text+'"');
    fieldbyname('vsttime').asdatetime:=getsqldata('select vsttime from ovst where vn="'+vnedit.text+'"');
    fieldbyname('staff').asstring:=flgn;
    try fieldbyname('service1').asdatetime:=dxtimeedit1.time; except end;
    try fieldbyname('service2').asdatetime:=dxtimeedit2.time; except end;
    try fieldbyname('service3').asdatetime:=dxtimeedit3.time; except end;
    try fieldbyname('service4').asdatetime:=dxtimeedit4.time; except end;
    try fieldbyname('service5').asdatetime:=dxtimeedit5.time; except end;
    try fieldbyname('service6').asdatetime:=dxtimeedit6.time; except end;
    try fieldbyname('service7').asdatetime:=dxtimeedit7.time; except end;
    try fieldbyname('service8').asdatetime:=dxtimeedit8.time; except end;
    try fieldbyname('service9').asdatetime:=dxtimeedit9.time; except end;
    try fieldbyname('service10').asdatetime:=dxtimeedit10.time; except end;
    try fieldbyname('service11').asdatetime:=dxtimeedit11.time; except end;
    try fieldbyname('service12').asdatetime:=dxtimeedit12.time; except end;
    try fieldbyname('service13').asdatetime:=dxtimeedit13.time; except end;
    try fieldbyname('service14').asdatetime:=dxtimeedit14.time; except end;

    try fieldbyname('service15').asdatetime:=dxtimeedit15.time; except end;

    try fieldbyname('service16').asdatetime:=dxtimeedit16.time; except end;
    try fieldbyname('service17').asdatetime:=dxtimeedit17.time; except end;
    try fieldbyname('service18').asdatetime:=dxtimeedit18.time; except end;

    post;
    datarequest('select * from service_time where vn="'+vnedit.text+'"');
    applyupdates(-1);
    close;

  end;

  hnedit.clear;
  activecontrol:=hnedit;

end;

procedure TOPDTimeCheckForm.dxTimeEdit1KeyUp(Sender: TObject;
  var Key: Word; Shift: TShiftState);
begin
  if key=vk_return then activecontrol:=dxtimeedit2;
end;

procedure TOPDTimeCheckForm.dxTimeEdit2KeyUp(Sender: TObject;
  var Key: Word; Shift: TShiftState);
begin
  if key=vk_return then activecontrol:=dxtimeedit3;
end;

procedure TOPDTimeCheckForm.dxTimeEdit3KeyUp(Sender: TObject;
  var Key: Word; Shift: TShiftState);
begin
  if key=vk_return then activecontrol:=dxtimeedit4;
end;

procedure TOPDTimeCheckForm.dxTimeEdit4KeyUp(Sender: TObject;
  var Key: Word; Shift: TShiftState);
begin
  if key=vk_return then activecontrol:=dxtimeedit5;
end;

procedure TOPDTimeCheckForm.dxTimeEdit5KeyUp(Sender: TObject;
  var Key: Word; Shift: TShiftState);
begin
  if key=vk_return then activecontrol:=dxtimeedit6;
end;

procedure TOPDTimeCheckForm.dxTimeEdit6KeyUp(Sender: TObject;
  var Key: Word; Shift: TShiftState);
begin
  if key=vk_return then activecontrol:=dxtimeedit7;
end;

procedure TOPDTimeCheckForm.dxTimeEdit7KeyUp(Sender: TObject;
  var Key: Word; Shift: TShiftState);
begin
  if key=vk_return then activecontrol:=dxtimeedit8;
end;

procedure TOPDTimeCheckForm.dxTimeEdit8KeyUp(Sender: TObject;
  var Key: Word; Shift: TShiftState);
begin
  if key=vk_return then activecontrol:=dxtimeedit9;
end;

procedure TOPDTimeCheckForm.dxTimeEdit9KeyUp(Sender: TObject;
  var Key: Word; Shift: TShiftState);
begin
  if key=vk_return then activecontrol:=dxtimeedit10;
end;

procedure TOPDTimeCheckForm.dxTimeEdit10KeyUp(Sender: TObject;
  var Key: Word; Shift: TShiftState);
begin
  if key=vk_return then activecontrol:=seskinbutton1;
end;

procedure TOPDTimeCheckForm.SeSkinButton2Click(Sender: TObject);
begin

  if not validhncode(hnedit.text) then exit;

  if messagedlg('Please confirm delete ?',mtconfirmation,[mbyes,mbno],0)<>mryes then exit;

  kskdm.fcds.datarequest('EXEC delete from service_time where vn="'+vnedit.text+'"');
  hnedit.clear;
  activecontrol:=hnedit;


end;

procedure TOPDTimeCheckForm.SeSkinButton4Click(Sender: TObject);


var
  s, icd1, icd2: string;
  d1, d2: Tdatetime;
  i, rec: integer;

  function GetDiffServiceTime(i1,i2:integer):real;
  begin

    try
     result:=getsqldata('select avg(service'+inttostr(i2)+'-service'+inttostr(i1)+') as cc '+
       ' from service_time where vstdate  between "'+
      formatdatetime('yyyy-mm-dd',d1)+'" and "'+
      formatdatetime('yyyy-mm-dd',d2)+'" and service'+inttostr(i2)+'>=service'+inttostr(i1)+' '+
      ' and service'+inttostr(i2)+' is not null and service'+inttostr(i1)+' is not null '+
      ' and service'+inttostr(i2)+'<>"00:00:00" and service'+inttostr(i1)+'<>"00:00:00"') / 100;
     except
       result:=0;
     end;
  end;
begin

 // s := formatthaidate('mm/yy', date);
  application.createform(TGetDateRangeInputForm, GetDateRangeinputForm);
  with getdaterangeinputform do
  begin
    dxdateedit1.date := incday(date, -30);
    dxdateedit2.date := date;

    showmodal;
  end;
  if getdaterangeinputform.modalresult <> mrok then
  begin
    freeandnil(getdaterangeinputform);
    exit;
  end
  else
  begin
    d1 := getdaterangeinputform.dxdateedit1.date;
    d2 := getdaterangeinputform.dxdateedit2.date;
    freeandnil(getdaterangeinputform);
  end;

  if d2 < d1 then
    raise exception.create('Invalid Date Range')
  else
  begin
    screen.cursor:=crhourglass;
    cds.close;
    cds.datarequest('select * from service_time where vstdate between "'+
      formatdatetime('yyyy-mm-dd',d1)+'" and "'+
      formatdatetime('yyyy-mm-dd',d2)+'" order by vn ');
    cds.open;


    pplabel18.caption:=floattostrf(GetDiffServiceTime(1,2),ffcurrency,10,2);

    pplabel19.caption:=floattostrf(GetDiffServiceTime(2,3),ffcurrency,10,2);

    pplabel20.caption:=floattostrf(GetDiffServiceTime(3,4),ffcurrency,10,2);

    pplabel21.caption:=floattostrf(GetDiffServiceTime(4,5),ffcurrency,10,2);

    pplabel22.caption:=floattostrf(GetDiffServiceTime(5,6),ffcurrency,10,2);

    pplabel23.caption:=floattostrf(GetDiffServiceTime(6,7),ffcurrency,10,2);

    pplabel24.caption:=floattostrf(GetDiffServiceTime(7,8),ffcurrency,10,2);

    pplabel25.caption:=floattostrf(GetDiffServiceTime(8,9),ffcurrency,10,2);

    pplabel26.caption:=floattostrf(GetDiffServiceTime(9,10),ffcurrency,10,2);

    screen.cursor:=crdefault;
    pplabel2.caption:=formatdatetime('d mmmm eeee',d1)+' - '+
                      formatdatetime('d mmmm eeee',d2);
    ppreport1.print;
   
  end;

end;

function TOPDTimeCheckForm.DataSetProvider1DataRequest(Sender: TObject;
  Input: OleVariant): OleVariant;
begin
  result:=datasetprovider_datarequest(sender,input);
end;

procedure TOPDTimeCheckForm.FormCreate(Sender: TObject);
begin
  attachprovider(tform(sender));
end;

end.

doramon

  • บุคคลทั่วไป
Re: รายละเอียดในฟิลด์ service_time ที่เหลือ
« ตอบกลับ #6 เมื่อ: ตุลาคม 08, 2007, 21:23:29 PM »
0
อันนี้คือคำอธิบายทั้งหมดครับ


ออฟไลน์ Khuad

  • Hero Member
  • *****
  • กระทู้: 3,778
  • .. นางฟ้า ตัวไม่น้อยแล้ว ..
  • Respect: +10
    • ดูรายละเอียด
Re: รายละเอียดในฟิลด์ service_time ที่เหลือ
« ตอบกลับ #7 เมื่อ: ตุลาคม 09, 2007, 11:33:51 AM »
0
อันนี้คือคำอธิบายทั้งหมดครับ


..ขออนุญาต อ.อ๊อด  เพิ่มเติมคำอธิบายให้อีกนิดนะครับผม.... :D....
โรงพยาบาลวังน้อย   พระนครศรีอยุธยา ( รพช.30 เตียง )
Server : ProLiant DL120G6  Xeon X3450  RDIMM 12 Gb  2x256GB SSD Raid 1
OS : CentOS 6.3  DB : Percona 5.5.21

Slave : ProLiant ML110G6  Xeon X3430  UDIMM 8 Gb  2x300GB SAS Raid 1
OS : CentOS 6.3  DB : Percona 5.5.32

HOSxP version  3.57.xx.xx    เริ่มระบบ  เมษายน 2549

ออฟไลน์ SrWooD

  • Hero Member
  • *****
  • กระทู้: 1,024
  • Respect: +1
    • ดูรายละเอียด
Re: รายละเอียดในฟิลด์ service_time ที่เหลือ
« ตอบกลับ #8 เมื่อ: ตุลาคม 09, 2007, 12:05:46 PM »
0
ขอบคุณ อ.Khuad ครับ
โรงพยาบาลโพธิ์ทอง จังหวัดอ่างทอง

ออฟไลน์ panomm

  • Sr. Member
  • ****
  • กระทู้: 378
  • Respect: 0
    • ดูรายละเอียด
Re: รายละเอียดในฟิลด์ service_time ที่เหลือ
« ตอบกลับ #9 เมื่อ: ตุลาคม 09, 2007, 13:41:32 PM »
0
service 7 คืออะไรกันแน่ครับ
ของ อ.อ๊อด บอกอีกอย่าง ของคุณ Khuad  บอกอีกอย่าง (คนละอย่างกัน)
ขอบคุณครับ
Mr.Phanomrung Tiumyos   Song Hospital  Tel 089-4335673   E-Mail panomm@hotmaill.com  >>>>   MSN panomm@hotmail.com 
---------------------------------------------------------------------
Server Xeon  HDD SCSI 2 TB.  Ram 8 GB. Centos 6.4  MySQL Percona-Server-server-55-5.5.33-rel31.1.566.rhel6.x86_64  Hosxp อัพเดท เรื่อยๆ   เริ่ม  1 มิ.ย.  2549 โดย อ.ชัยพร และ คุณไพรัช (คุณบอย) ใช้เต็มระบบ

ออฟไลน์ Khuad

  • Hero Member
  • *****
  • กระทู้: 3,778
  • .. นางฟ้า ตัวไม่น้อยแล้ว ..
  • Respect: +10
    • ดูรายละเอียด
Re: รายละเอียดในฟิลด์ service_time ที่เหลือ
« ตอบกลับ #10 เมื่อ: ตุลาคม 09, 2007, 14:59:10 PM »
0
... :D....
« แก้ไขครั้งสุดท้าย: ตุลาคม 09, 2007, 15:01:32 PM โดย Khuad »
โรงพยาบาลวังน้อย   พระนครศรีอยุธยา ( รพช.30 เตียง )
Server : ProLiant DL120G6  Xeon X3450  RDIMM 12 Gb  2x256GB SSD Raid 1
OS : CentOS 6.3  DB : Percona 5.5.21

Slave : ProLiant ML110G6  Xeon X3430  UDIMM 8 Gb  2x300GB SAS Raid 1
OS : CentOS 6.3  DB : Percona 5.5.32

HOSxP version  3.57.xx.xx    เริ่มระบบ  เมษายน 2549

ออฟไลน์ Khuad

  • Hero Member
  • *****
  • กระทู้: 3,778
  • .. นางฟ้า ตัวไม่น้อยแล้ว ..
  • Respect: +10
    • ดูรายละเอียด
Re: รายละเอียดในฟิลด์ service_time ที่เหลือ
« ตอบกลับ #11 เมื่อ: ตุลาคม 09, 2007, 15:17:40 PM »
0
... :D....

...ใส่รูปผิด ขออนุญาตแนบรูปใหม่ครับ... :D.....
โรงพยาบาลวังน้อย   พระนครศรีอยุธยา ( รพช.30 เตียง )
Server : ProLiant DL120G6  Xeon X3450  RDIMM 12 Gb  2x256GB SSD Raid 1
OS : CentOS 6.3  DB : Percona 5.5.21

Slave : ProLiant ML110G6  Xeon X3430  UDIMM 8 Gb  2x300GB SAS Raid 1
OS : CentOS 6.3  DB : Percona 5.5.32

HOSxP version  3.57.xx.xx    เริ่มระบบ  เมษายน 2549

ออฟไลน์ Khuad

  • Hero Member
  • *****
  • กระทู้: 3,778
  • .. นางฟ้า ตัวไม่น้อยแล้ว ..
  • Respect: +10
    • ดูรายละเอียด
Re: รายละเอียดในฟิลด์ service_time ที่เหลือ
« ตอบกลับ #12 เมื่อ: ตุลาคม 09, 2007, 15:25:18 PM »
0
...ส่วนที่เห็นเวลาตรงวินาที  ที่ยืนยันการบันทึก กับ  ที่ SQL  ไม่เท่ากันนั้น..
...เป็นเพราะตอน Capture ภาพ ที่ ยืนยันการบันทึกข้อมูล ทำก่อนที่จะสั่งบันทึกเล็กน้อยครับ... :D..

...ตอบไว้ก่อน เผื่อมีใคร สง กะ สัย ครับ..อิ อิ.. ;D.....
โรงพยาบาลวังน้อย   พระนครศรีอยุธยา ( รพช.30 เตียง )
Server : ProLiant DL120G6  Xeon X3450  RDIMM 12 Gb  2x256GB SSD Raid 1
OS : CentOS 6.3  DB : Percona 5.5.21

Slave : ProLiant ML110G6  Xeon X3430  UDIMM 8 Gb  2x300GB SAS Raid 1
OS : CentOS 6.3  DB : Percona 5.5.32

HOSxP version  3.57.xx.xx    เริ่มระบบ  เมษายน 2549

ออฟไลน์ nahos

  • Hero Member
  • *****
  • กระทู้: 2,216
  • รพ.นาแห้ว
  • Respect: +7
    • ดูรายละเอียด
    • รพ.นาแห้ว
Re: รายละเอียดในฟิลด์ service_time ที่เหลือ
« ตอบกลับ #13 เมื่อ: พฤศจิกายน 14, 2008, 12:00:37 PM »
0
เรียน อาจารย์ชัยพรครับ
อยากให้เพิ่ม  เวลาที่ห้องฟันตรวจเสร็จให้หน่อยครับ
 service 9 ยังว่างอยู่

อยากให้อาจารย์ช่วยทำ service 9 เป็นเวลาที่ห้องฟันตรวจเสร็จหน่อยครับ


เพราะบางครั้งคนไข้มาตรวจโรค และรับบริการทันตกรรมด้วย
ถ้าใช้ service12 เหมือนกันจะทำให้แยกไม่ได้ครับ

ขอบคุณ อาจารย์ชัยพรไว้ ณ ที่นี้

และขอรบกวนอาจารย์ช่วยแก้ dtmain.begin_time และ dtmain.end_time ให้หน่อยครับ
ตอนนี้โปรแกรมบันทึกวันที่  30/12/2442 ลงไปด้วยครับ คิดว่าควรจะบันทึกเฉพาะเวลาครับ

ขอบคุณมาก ๆ ครับ


ถ้าำคำถามท่านได้คำตอบที่ต้องการจากอาจารย์ท่านใด กรุณากด Thank เบา ๆ ^ ถูกใจกด [applaud] ไม่ชอบใจกด[smite]
>> การโพสต์ขอรายงานที่ดี <<
อ่านซักนิด ถามยังไงให้ได้คำตอบ ? :)
วิธีแสดงตัวว่าเป็นใคร โดย อ.อ๊อด (ให้ข้อมูลว่าเป็นใคร ปฏิบัติงานที่ไหน ใช้ server อะไร OS อะไร HOsxp Vไหน)
ก่อนที่จะตั้งกระทู้ถาม ลองค้นจากกระทู้เก่าดูก่อนไหม จะได้คำตอบเร็วกว่าการรอคำตอบนะ
..........................................................................
เจษ จพ.เภสัชกรรมฯ user@ NAHAEO HOSPITAL LOEI. <br>  Supervise by DANSAI HOSPITAL LOEI. <br>
Start 01/03/2550
=> Server IBM X3200 Ram 6 Gb. OS:Cent OS 6.0  
=> Client 20 client  OS: SP2  => HosXP Version <b>3.56.11.19</b>
-----------------------------
น้ำเต็มแก้ว "การเรียนรู้ไม่มีที่สิ้นสุด"

ออฟไลน์ nahos

  • Hero Member
  • *****
  • กระทู้: 2,216
  • รพ.นาแห้ว
  • Respect: +7
    • ดูรายละเอียด
    • รพ.นาแห้ว
Re: รายละเอียดในฟิลด์ service_time ที่เหลือ
« ตอบกลับ #14 เมื่อ: พฤศจิกายน 14, 2008, 15:33:13 PM »
0
เกี่ยวกับ service 16 เวลาจ่ายยา
โปรแกรมน่าจะใช้ค่าจาก เวลาที่ป้อนในหน้าจอบันทึกการจ่ายยามาบันทึกครับ
(ตอนนี้ช่วงเช้าคนไข้จะเยอะห้องยาจะเขียนเวลาจ่ายยาลงในใบสั่งยา แล้วเอาใบสั่งยามาบันทึกเวลาการจ่ายยาย้อนหลังในช่วงบ่าย ถ้าโปรแกรมนำเวลาจริง(บ่าย) มาบันทึกจะทำให้เวลาจ่ายยาไม่ถูกต้องครับ )
service6  เป็นเวลาพิมพ์ sticker ได้จากหน้าจอการจ่ายยาโหมด2

และค่า default ของผู้จ่ายยาน่าจะใช้ doctorcode น่าจะสะดวกขึ้นครับ
ตอนนี้ดึงมาจาก loginname  ต้องมาป้อน code ใหม่ครับ

ขอรบกวนอาจารย์ 2 ข้อครับ
เป็น 4 ข้อกับ rep บน 2 ข้อ

ขอบคุณครับ 

ปล.วันนี้ยังไม่เห็นอาจารย์เข้าบอร์ดเลย สงสัยงานเข้า
ยังไงก็ขอรบกวนด้วยนะครับ
ขอบคุณครับ

« แก้ไขครั้งสุดท้าย: พฤศจิกายน 14, 2008, 15:42:26 PM โดย nahos »
ถ้าำคำถามท่านได้คำตอบที่ต้องการจากอาจารย์ท่านใด กรุณากด Thank เบา ๆ ^ ถูกใจกด [applaud] ไม่ชอบใจกด[smite]
>> การโพสต์ขอรายงานที่ดี <<
อ่านซักนิด ถามยังไงให้ได้คำตอบ ? :)
วิธีแสดงตัวว่าเป็นใคร โดย อ.อ๊อด (ให้ข้อมูลว่าเป็นใคร ปฏิบัติงานที่ไหน ใช้ server อะไร OS อะไร HOsxp Vไหน)
ก่อนที่จะตั้งกระทู้ถาม ลองค้นจากกระทู้เก่าดูก่อนไหม จะได้คำตอบเร็วกว่าการรอคำตอบนะ
..........................................................................
เจษ จพ.เภสัชกรรมฯ user@ NAHAEO HOSPITAL LOEI. <br>  Supervise by DANSAI HOSPITAL LOEI. <br>
Start 01/03/2550
=> Server IBM X3200 Ram 6 Gb. OS:Cent OS 6.0  
=> Client 20 client  OS: SP2  => HosXP Version <b>3.56.11.19</b>
-----------------------------
น้ำเต็มแก้ว "การเรียนรู้ไม่มีที่สิ้นสุด"

ออฟไลน์ nahos

  • Hero Member
  • *****
  • กระทู้: 2,216
  • รพ.นาแห้ว
  • Respect: +7
    • ดูรายละเอียด
    • รพ.นาแห้ว
Re: รายละเอียดในฟิลด์ service_time ที่เหลือ
« ตอบกลับ #15 เมื่อ: พฤศจิกายน 20, 2008, 14:07:40 PM »
0
ลองทดสอบใน V 3.51.11.19  service16 ยังนำเวลาจริงมาบันทึก
อยากให้อาจารย์ช่วยแก้ไขให้หน่อยครับ
โดยให้นำเวลาจาก เวลาที่ กรอกในช่อง  เวลาจ่ายยา  ในหน้าจอบันทึกการจ่ายยามาบันทึกลง service16 ครับ
รบกวนอาจารย์ด้วยครับ


 
คือทีมคุณภาพ อยากได้เวลารอรับยาครับ
โดยผมต้องการนำ service16 - service6   (เวลาจ่ายยา - เวลาพิมพ์ฉลากยา=เวลารอรับยา)

หรือ admin ท่านอื่น ๆ คิดว่าอย่างไรครับ

ถ้าำคำถามท่านได้คำตอบที่ต้องการจากอาจารย์ท่านใด กรุณากด Thank เบา ๆ ^ ถูกใจกด [applaud] ไม่ชอบใจกด[smite]
>> การโพสต์ขอรายงานที่ดี <<
อ่านซักนิด ถามยังไงให้ได้คำตอบ ? :)
วิธีแสดงตัวว่าเป็นใคร โดย อ.อ๊อด (ให้ข้อมูลว่าเป็นใคร ปฏิบัติงานที่ไหน ใช้ server อะไร OS อะไร HOsxp Vไหน)
ก่อนที่จะตั้งกระทู้ถาม ลองค้นจากกระทู้เก่าดูก่อนไหม จะได้คำตอบเร็วกว่าการรอคำตอบนะ
..........................................................................
เจษ จพ.เภสัชกรรมฯ user@ NAHAEO HOSPITAL LOEI. <br>  Supervise by DANSAI HOSPITAL LOEI. <br>
Start 01/03/2550
=> Server IBM X3200 Ram 6 Gb. OS:Cent OS 6.0  
=> Client 20 client  OS: SP2  => HosXP Version <b>3.56.11.19</b>
-----------------------------
น้ำเต็มแก้ว "การเรียนรู้ไม่มีที่สิ้นสุด"

ออฟไลน์ E-Hos

  • Hero Member
  • *****
  • กระทู้: 711
  • Respect: 0
    • ดูรายละเอียด
    • http://www.erawanhospital.com/index.php
Re: รายละเอียดในฟิลด์ service_time ที่เหลือ
« ตอบกลับ #16 เมื่อ: มีนาคม 14, 2010, 11:51:38 AM »
0
ลองทดสอบใน V 3.51.11.19  service16 ยังนำเวลาจริงมาบันทึก
อยากให้อาจารย์ช่วยแก้ไขให้หน่อยครับ
โดยให้นำเวลาจาก เวลาที่ กรอกในช่อง  เวลาจ่ายยา  ในหน้าจอบันทึกการจ่ายยามาบันทึกลง service16 ครับ
รบกวนอาจารย์ด้วยครับ


 
คือทีมคุณภาพ อยากได้เวลารอรับยาครับ
โดยผมต้องการนำ service16 - service6   (เวลาจ่ายยา - เวลาพิมพ์ฉลากยา=เวลารอรับยา)

หรือ admin ท่านอื่น ๆ คิดว่าอย่างไรครับ



อยากทราบเหมือนกันครับ
ACADEMIC COMPUTING.  Erawan_Hospital
>> Thanks ... DansaI HospitaL L-o-E-i
>> By อ. Decha, อ.Armds

=> NoW !! HosXP SERVER Version 3.58.1.1
=> Client 50 client  OS: SP2 >> 3.58.1.1
=> ER Room  NoW ! HosXP Version 3.57.7.25D
=> Doctor Room  NoW ! HosXP Version 3.58.1.1
=> HosXP Test  Version 3.58.1.xx
=> Coming Soon >>UP Version 3.58.1.xx
wait...
-----------------------------
Start  System  8 January 2009

ออฟไลน์ machai

  • Hero Member
  • *****
  • กระทู้: 1,049
  • PhunPhinHospital
  • Respect: +12
    • ดูรายละเอียด
    • http://www.pphhos.com
Re: รายละเอียดในฟิลด์ service_time ที่เหลือ
« ตอบกลับ #17 เมื่อ: มีนาคม 09, 2015, 10:48:05 AM »
0
สอบถามกระทู้เก่าหน่อยครับ
กดดูรายงานแล้ว  เวลาส่งตรวจ กับ เวลาตรวจเสร็จ ทำไมไม่ออกในรีพอส ครับ หรือต้องให้ sql ดึงเอาเองครับ
 งั้นคงต้องเขียนรายงานใหม่แยก ^ ^
ถามเอง ตอบเอง T_T
« แก้ไขครั้งสุดท้าย: มีนาคม 09, 2015, 11:04:06 AM โดย machai »
Name : ณัฐพร ประทุม (เอก) นวก.คอม รพ. 60 เตียง  รพ.พุนพิน จ. สุราษฎร์ธานี Tel.077-292144 ต่อ 132 fax:077-292135
Servers : CentOS 
Master :HP ProLiant DL360p Gen8 ram256G
คู่มือการติดตั้ง สำหรับ admin มือใหม่ Linux CentOS7+MySQL Percona 5.6 step by step
https://www.youtube.com/watch?v=7AckfkCp9cg&