แสดงกระทู้

This section allows you to view all posts made by this member. Note that you can only see posts made in areas you currently have access to.


Topics - apisak

หน้า: [1] 2 3
1
สอบถามเรื่อง การคิดค่าบริการส่วนเกิน
ขึ้นข้อความ สอบถามเรื่อง การคิดค่าบริการส่วนเกิน หมายความว่าอย่างไรครับ

2
System Message
SQL Error: Column 'staff' cannot be null
select * from history_list where history_list_name='ปวดหลัง' and history_section='HPI'

3
สอบถามครับหน้าจอห้องฉุกเฉิน
ส่งจากแผนก หมายถึงอะไรครับ

4
ช่อง Last SqL ขึ้นข้อความ Begin ไม่ทราบว่าต้องปรับแก้ตรงไหนครับ

5
แจ้งปัญหา / ขอความช่วยเหลือ / สอบถาม BMSHOSxPEClaimExport
« เมื่อ: มิถุนายน 28, 2017, 14:16:32 PM »
แจ้งเตือน ตรวจพบรหัสแพทย์ผู้วินิจฉัยไม่มีข้อมูล license No
ให้ตรวจสอบที่ไหนครับ

6
รายชื่อแพทย์ประจำห้องตรวจ ชื่อแผนก นำมาจากหน้าจอไหน ครับ

7
สถานะการรายงานผลแลปหน้าจอคัดกรอง
ผู้รับบริการมีกรายการแลป 2 ตัว รายงานผลไปแล้ว 1 ตัว ยังเหลืออีก 1 ตัว  แต่หน้าจอคัดกรองสถานะแลปเป็นสีเขียว

8
บัญชี1 บันทึกพิกัดบ้านแล้ว error

9
opd สั่งพิมพ์สติกเกอร์ยาไม่ออก สำหรับคนที่มีการแจ้งเตือน  มีรายการยาที่รอพิมพ์ sticker

10
คลินิกโรค TB  โรคนี้เป็นแล้วหายได้  แต่คนไข้กลับมาเป็นอีก ไม่สามารถขึ้นทะเบียนได้
ขอแนวทางการบันทึกข้อมูลด้วยครับ

11
พอย้อนกลับมาดูพบว่าข้อมูลหายครับ
ตอนอยู่หน้าจอ er บันทึกได้ปกติ  จากนั้นก็ส่งไปแผนก lab x-ray กลับมาแล้วข้อมูลในส่วนนี้หายไป(ถ้าหน่วยงานไม่บันทึก ไม่สามารถข้ามหน้าจอนี้ได้ ยืนยันว่าหน่วยงานบันทึกทุกคน)

12
ยังพบปัญหานี้อยู่ครับ   ในปัจจุบัน

13
สอบถามครับตอนนี้ผม up 3.58.7.10  ผู้ป่วย ipd แสดงเฉพาะที่ admit ในวันครับ

14
hosxp pcu บันทึกหน้าจอ one stop service ย้อนกลับมาดูแล้วข้อมูลหาย
Windows 7   เป็นบางคน ครับ  หรือ ลบออกแล้วส่งตรวจใหม่ ก็บันทึกได้
ช่องตามภาพที่แนบครับ

15
ไม่สามารถเลือก รพ ที่ส่งได้ ไม่ขึ้นให้เลือก

16
แจ้งปัญหา / ขอความช่วยเหลือ / สอบถามแฟ้ม Dental
« เมื่อ: พฤศจิกายน 25, 2014, 10:33:43 AM »
กรณีที่เจ้าหน้าที่ โรงพยาบาลออกไปให้บริการทัตกรรมเด็กนักเรียนที่ รพ.สต. แล้วนำข้อมูลมาบันทึก ถ้าป็นสิทธิต่างด้าว ไม่ทราบว่าท่านอื่นๆ มีแนวทางอย่างไรครับ

ขอบคุณครับ

17
ขอทราบวิธีการเพิ่มสิทธิ อนุมัติรายการ
ไม่ทราบว่าไปเพิ่มสิทธิที่หน้าจอไหครับ

18
บันทึกส่งต่อเยี่ยมบ้าน ของผู้ป่วยใน พอกดแล้ว error เมื่อกด ต่อไป ไม่สามารถพิมพ์ข้อมูลได้

19
ต้องการให้มีการแจ้งเตือนเมื่อสั่ง ไม้เท้า 1 ปุ่ม
ผมลองโดยการไปตั้งค่าในส่วนของ รายการค่ารักษาพยาบาล ตรง แทบ แสดงข้อความแจ้งเตือนเมื่อมีการใช้ แต่ไม่ทำงานครับ

20
เจ้าหน้าที่แจ้งว่า วิธีการจำหน่าย ผู้ป่วยใน
ถ้าส่งต่อผู้รับบริการทันทีกำหนดวิธีการจำหน่ายเป็น 01
ถ้าส่งต่อโดยให้ผู้รับบริการ ไปหลังจากที่ได้จำหน่ายแล้ว ให้กำหนดเป็น 05
ถ้าจำหน่ายด้วย type 05 จะไม่ขึ้นฟอร์มให้กรอกข้อมูล การส่งต่อ

รบกวนสอบถามรายละเอียดว่าเป็นมาอย่างไรครับ

21
เขียนด้วย delphi ครับ

ขอบคุณครับ

22
ต้องการหาอายุครับ ไม่ทราบว่าเขียนอย่างไร (ตัวอย่างค่าในตาราง 20070401)

23
Delphi / Pascal / delphi ต้องการเขียน Replicate MySQL
« เมื่อ: พฤษภาคม 09, 2013, 12:03:20 PM »
delphi ต้องการเขียน  Replicate MySQL
ไม่ทราบว่าใช้หลักการอย่างไร





24
Linux / สอบถามตัว pfsense captive portal local user หน้า login
« เมื่อ: เมษายน 11, 2013, 16:28:28 PM »
เวลาเข้าหน้าเว็บไม่เข้าหน้า login

แต่ถ้า เข้าด้วย http:xxxxx:8000
จะเข้าสู่หน้า login
(เห็นบางท่านว่าต้อง upgrad (ยังไม่หายครับ))

25
procedure TFimport43.SpeedButton1Click(Sender: TObject);
var
 txt:TextFile;
 quebra:TStringList;
 arq:string;
begin
  quebra := TStringList.Create;
  AssignFile(txt,RzEdit1.Text);
  Reset(txt);
  ProgressBar1.Position:=0;
  ProgressBar1.Max:=FileSize(txt);
  while not eoln(txt) do
  begin
    quebra.Clear;
    Readln(txt,arq);
    ExtractStrings([';'],[],pChar(arq),quebra);
      with q41service  do
      begin
        q41service.SQL.Clear;
        q41service.SQL.Add('insert into service(pcucode,pid,seq) values ('+
        #34+quebra.Strings[0] +#34+','+
        #34+quebra.Strings[1] +#34+','+
        #34+quebra.Strings[2] +#34+')');
        ExecSQL;
        end;
      ProgressBar1.Position:=ProgressBar1.Position+1;
      end;
      CloseFile(txt);
      ProgressBar1.Position:=0;
      quebra.Free;
      ShowMessage('ARQIO successo');

###
txt ที่ใช้โหลด

0000;01111;8888

ถ้าตัวหน้าเป็นเลขหลักเดียวโหลดได้

ขอคำแนะนำครับ

26
แฟ้ม ICF ข้อมูลการประเมินสภาวะสุขภาพ รพ.สต. ต้องบันทึกข้อมูลเปล่าครับ

นิยามแฟ้ม
 ผู้พิการที่มารับบริการที่โรงพยาบาล (ไม่รวมรพ.สต.) และบันทึกเฉพาะ รหัสมาตรฐาน 60 รหัส
ของ ICF ที่กำหนดโดยกระทรวงฯ   

27
ACCIDENT  กรอกข้อมูลหน้าไหน สำหรับ hos pcu

28
ใช่ตาราง ovst_community_service เปล่าครับ แล้วเอา รหัสมาตราฐานจาก สนย. 195.รหัสให้บริการในชุมชน(ระดับบุคคล)

29
หัตถการ สำหรับสถานีอนามัยต้องจับคุ่ icd10tm เปล่าครับ

30
เวอร์ชั่น 3.56.3.8c หัตถการ er หาย

31
ท่านใดมีตัวอย่างการโหลด text file เข้า mysql บ้างครับ หรือขอ url  ก็ดี ครับ จะลองโหลด 43 แฟ้มดูบ้างครับ

ขอบคุณครับ

32
Delphi / Pascal / From login MD5 เป็นค่าว่าง
« เมื่อ: กุมภาพันธ์ 26, 2013, 15:36:13 PM »
From login MD5 เป็นค่าว่าง (ไม่รับค่าจาก Rzedit2.text)

var
  Md5:TIdHashMessageDigest5;
  Str:string;
  Sai:string;
 begin
        Md5:=TIdHashMessageDigest5.Create;
        Sai:=md5.HashStringAsHex(Str);
        RzEdit2.Text := Sai;
        DataModule1.Qmember2.Open;
  while not  DataModule1.Qmember2.Eof do

     if(RzEdit1.Text = DataModule1.Qmember2['username']) and (Sai = DataModule1.Qmember2['password'])  then

           begin

              if Fmenu=nil then
              Application.CreateForm(TFmenu, Fmenu);
              Fmenu.Show;
              //Frlogin4.Hide;
              Frlogin4.Close;

              exit;
           end

        else
        begin
         DataModule1.Qmember2.Next;
              if(RzEdit1.Text = DataModule1.Qmember2['username']) and (Sai=DataModule1.Qmember2['password']) then
                     begin
                       Exit;

                     end

             else
                     begin
                         ShowMessage('กรุณาล็อกอินใหม่');
                         RzEdit1.Text:='';
                         RzEdit2.Text:='';
                         RzEdit1.SetFocus;
                         Exit;
                     end;
         end;


33
สอบถามเรื่องการส่งออกข้อมูล แฟ้ม service  ตอนส่งออกสังเกตเห็นว่า ส่งออกเลขที่สิทธิการรักษาเป็น 4 หลัก ไม่ทราบว่า
ไปดึงข้อมูลเลข 4 หลักนี้มาจากไหนครับ

34
สอบถามตัว report Build ของ Delphi Calculator  Variable ผมใช้งานไม่ได้ (Calculator system Variable ใช้งานได้ )
ไม่ทราบว่าต้องเขียน function ไว้ที่ ตัว unit ใช่เปล่าครับ
พอมีตัวอย่างบ้างเปล่าครับ

35
Delphi / Pascal / สอบถามวิธีการนับ จำนวน vn ใน dbgird
« เมื่อ: กุมภาพันธ์ 14, 2013, 11:38:17 AM »
select vn,hn,pname,lanme,cout(vn) as 'total vn'   from vn
เวลาเข้าหน้า From เพื่อเลือกวันที่ cxdateedit  มันจะไม่แสดง ฟิวส์ที่เป็นค่านับมา
ขอคำชี้แนะด้วยครับ

36
ต้องการทราบหลักการสร้าง ตารางรูปภาพ จะสร้างเมื่อใดครับ
ผมสังเกตเห็นที่
patient_image
fild width, height ว่างครับ
บาง fild ก็ไม่ว่าง
ช่วยอธิบายด้วยครับ

37
Delphi / Pascal / สอบถามเรื่อง component Menu Custom Report
« เมื่อ: กุมภาพันธ์ 10, 2013, 09:00:39 AM »
มีท่านใดทราบบ้างว่า component ตัวนี้ชื่ออะไร

38
error หน้าผู้ป่วยนอก > ลงทะเบียนผู้ป่วยใหม่ > แก้ไข
แก้ไขเวชระเบียนคนไข้

39
Delphi / Pascal / สั่ง close form แต่กลายเป็นย่อ form
« เมื่อ: มกราคม 24, 2013, 17:21:39 PM »
close;

แต่กลับ ย่อฟอร์มไว้ ขอคำแนะนำด้วยครับ

40
หน้าห้องทำงานแพทย์  ตอนบันทึก โปรแกรมให้เลือกว่าจะส่งไปที่ไหน 
ใครทราบว่า ข้อความนี้มีไว้ทำอะไรช่วยอธิบายด้วยครับ   (พยาบาลถามมาครับ)

ผมติก พิมพ์เวชระเบียน / ใบสั่งยาออกได้เปล่าครับ

41
ต้องการเพิ่มรายการนัด หน้าจอลงนัด ไม่ทราบว่าต้องไปที่ไหนครับ

42
ต้องการจำกัดสิทธิในการเข้าถึงเมนูใน Delphi componan dxRibbon เช่น user ไม่สิทธิเข้าถึง เมนู ผู้ดูแลระบบ
จะกำหนดอย่างไรได้บ้างครับ

43
ใน  delphi xe2 windows 7  64 bit ผมหา Provider Mysql ไม่พบ
เพื่อใช้ componan ADOConnection

44
unit Udate;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, cxGraphics, cxControls, cxLookAndFeels,
  cxLookAndFeelPainters, cxContainer, cxEdit, dxSkinsCore, dxSkinBlack,
  dxSkinBlue, dxSkinBlueprint, dxSkinCaramel, dxSkinCoffee, dxSkinDarkRoom,
  dxSkinDarkSide, dxSkinDevExpressDarkStyle, dxSkinDevExpressStyle, dxSkinFoggy,
  dxSkinGlassOceans, dxSkinHighContrast, dxSkiniMaginary, dxSkinLilian,
  dxSkinLiquidSky, dxSkinLondonLiquidSky, dxSkinMcSkin, dxSkinMoneyTwins,
  dxSkinOffice2007Black, dxSkinOffice2007Blue, dxSkinOffice2007Green,
  dxSkinOffice2007Pink, dxSkinOffice2007Silver, dxSkinOffice2010Black,
  dxSkinOffice2010Blue, dxSkinOffice2010Silver, dxSkinPumpkin, dxSkinSeven,
  dxSkinSevenClassic, dxSkinSharp, dxSkinSharpPlus, dxSkinSilver,
  dxSkinSpringTime, dxSkinStardust, dxSkinSummer2008, dxSkinTheAsphaltWorld,
  dxSkinsDefaultPainters, dxSkinValentine, dxSkinVS2010, dxSkinWhiteprint,
  dxSkinXmas2008Blue, cxTextEdit, cxMaskEdit, cxDropDownEdit, cxCalendar,
  cxDBEdit, Vcl.StdCtrls, Vcl.Grids, Vcl.DBGrids, Data.DB, DBAccess, MyAccess,
  MemDS;

type
  TForm1 = class(TForm)
    MyConnection1: TMyConnection;
    MyQuery1: TMyQuery;
    MyDataSource1: TMyDataSource;
    DBGrid1: TDBGrid;
    Button1: TButton;
    cxDBDateEdit1: TcxDBDateEdit;
    cxDBDateEdit2: TcxDBDateEdit;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
MyQuery1.sql.text:=' select vn_stat.vn,vn_stat.hn,vn_stat.pdx,vn_stat.vstdate from vn_stat where vstdate between "'+formatdatetime('yyyy-mm-dd',cxDBDateEdit1.date)+'" and "'+formatdatetime('yyyy-mm-dd',cxDBDateEdit1.date)+'" ';
MyQuery1.open;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin

end;

end.

45
ผมต้องการพิมพ์ barcode ที่ opd card ตอนนี้ผมใช้ยี่ห้อ  symbol
ผมยิงดูแล้วไม่อ่านครับ ผมติดตั้ง font 3of9 (font barcode)

แต่ลองยิง bar code สินค้าสามารถอ่านได้นะครับ

46
error ตอน scan ipd chart ใบที่ 3
ถ้ามีแค่ 2 ใบไม่ error แต่ขึ้นใบที่ 3 error ตามภาพ

47
ข้อมูลของสถานีอนามัยครับ  ผมดูในตัว txt file ก็มี cid นะครับ

48
เช่นผู้สูงอายุในเขต  เมื่อตรวจสอบผ่าน nhso แล้วกลายเป็น ผู้สูงอายุนอกเขต

49
ตรวจข้อมูลจากเว็บของ สปสช แจ้งว่า ข้อมูลซ้ำซ้อน
แฟ้ม Chronic  
ข้อมูลการเจ็บป่วยด้วยโรคเรื้อรัง
ผู้รับบริการ คนเดียวเป็น 2 โรค เว็บแจ้งการตรวจสอบว่าข้อมูลซ้ำซ้อน
ขอทราบเงื่อนไขการตรวจสอบด้วยครับ

50
error ตอนบันทึก
หน้า รับตัวผู้ป่วยก็ยังอยู่ แล้วดูในหน้าที่รักษาแล้ว ขึ้นชื่อครับ แต่ ไม่มีข้อมูลที่กรอกลงไป

แต่ถ้าไม่ใส่ diage หน้าแพทย์แผนไทยก็จะไม่ error

หน้า: [1] 2 3