แสดงกระทู้

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 - Bond_007

หน้า: [1] 2 3 ... 8
1
การเขียน SQL Script / การเขียน checkbox
« เมื่อ: กุมภาพันธ์ 13, 2016, 15:54:17 PM »
ผมทำ ue ออกมาแบบนี้ครับ

2
เพิ่ม / แก้ไข รายการอาหารไม่ได้ครับ ขึ้นตามรูปครับ

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

4
1.อยากให้มีการเพิ่มระบบ DF ในห้องทันตกรรมด้วยครับ ทันตแพทย์เองก็ต้องมีการคิด DF ครับ
2.อยากให้มีการลงข้อมูล DF ในเมนู ER และระบบคัดกรองให้เหมือนกับ ระบบห้องตรวจแพทย์ครับ

5
HOSxP Inventory / ปํญหาระบบยาไม่ตัด Stock ครับ
« เมื่อ: มิถุนายน 07, 2015, 13:00:32 PM »
เช็คยอดคงเหลือในคลังย่อย พบว่ามีการจ่ายยาไป 15 เม็ด แต่เมื่อดูจาก แสดงรายการจ่่าย พบว่าจ่ายไปพันกว่าเม็ดแบบนีต้องแก้ยังไงครับ ขอบคุณครับ

6
HOSxP Inventory / error แบบนี้เกิดจากอะไรครับ
« เมื่อ: พฤษภาคม 29, 2015, 23:52:11 PM »
ตามรูปเลยครับ  ???

7
สวัสดีครับ พอดีได้โจทย์ห้อง lab มาว่าอยากให้พิมพ์รายงานผลแลป มีรูป เช่น เครื่องหมายตกใจ ในกรณ๊มีค่า lab ผิดปกติ ซึ่งผมลองมาดู ในตาราง lab_order มีฟิวหนึ่ง ชื่อ lab_result_status เมื่อดูจากตาราง lookup  พบว่ามีค่า 1- 5 แต่ตอนนี้ระบบยังเป็นค่าว่างอยู่ครับ

8
เป็นตัวเดียวกับที่ผมใช้ในโรงพยาบาลนะครับ ;D
เอาไว้ตรวจสอบข้อมูลก่อนส่งให้สปสช นะครับ ความรู้ในการขียนโปรแกรมผมมีเล็กน้อยอาจจะม่ีข้อผิดพลาด ต้องขออภัยมานะที่นี้ด้วยนะครับ เป็นโปรแกรมตรวจสอบเบื้องต้นเท่านั้นนะครับ ส่วนท่านที่ยังไม่รู้ว่าลงยังไงตามกระทู้ข้างล่างนะครับ
http://hosxp.net/smf/index.php?topic=32091.0


9
นอกเรื่อง / คู่มือการลง COPD ASHTMA ใน HOSXP
« เมื่อ: มกราคม 08, 2014, 10:05:45 AM »
หากมีข้อผิดพลาดอะไรก็ขออภัยตรงนี้ด้วยนะครับ  ;D

10
พอดีได้รับมอบหมายให้เขียนแบบคัดกรองผู้มีความเสี่ยง ต่อการเป็นวัณโรคตามรูปถ้าทำแบบเดิมมันไม่ตื่นเต้นเลยอยากหาแรงบันดาลใจแต่ปัญหาคือเขียนไม่ออก  ;D เลยมาสอบถามครับ
1.ในส่วน radiogroup ตามรูปสามารถกำหนดค่า default  =  ไม่ใข่   ได้ไหมครับ
2.หากมีผู้ใช้กดปุ่ม"ใช่" จะสามารถมีข้อความแจ้งได้ืไหมครับ  :o
ขอบคุณครับ

11
การเขียน SQL Script / มีคำถามการเขียน sql ครับ
« เมื่อ: ตุลาคม 21, 2013, 17:19:59 PM »
มีคำถามการเขียน sql ครับ
ถ้า select * from person ได้ 10000 reccord
ถ้า select * from person limit 1000 จะได้ 1000 reccord
คำถามคือ จะทำยังไง select * from person limit 1000 จำนวน 10 ครั้งโดยที่ข้อมูลเมื่อ select มาไม่ซ้ำกัน คือเมื่อมารวมกันแล้วจะเท่ากับ select * from person
ขอบคุณครับ

12
ได้รับแจ้งจากงานส่งเสิรมครับข้อมูลไม่ีตรงกันตามรูปครับ

13
เห็น สปสช เขียนด้วย visual studio แล้วผมก็คิดว่า delphi ก็ต้้องทำได้ซิ  ;D  แต่ติดที่ว่าจะนำ ไฟล์ .txt ใน listbox นำเข้าฐานข้อมูลได้ยังไง  ขอบคุณครับ

14
วันนี้ได้รับมอบหมายทำรายงาน โดยโจทย์มีว่าในข่วงเดือนมกราคม - มิถุนายน มีการเปลี่ยนแปลงของจำนวนผุ้ป่วยเบาหวานสีแดง มีจำนวนเพิ่มขึ้นเท่าไหร่ และมีจำนวนลดลงเท่าไหร่ แบบนีเขียนยังไงครับ ขอบคุณครับ  :)

15
เจอโดยบังเอิญ ถ้าไม่สังเกตุดีๆจะไม่เห็น
ขอเกริ่นก่อนนะครับ นิยามของ ฟิว SMKST คือ ระบุสถานะการสูบบุหรี่ที่ซักได้ในครั้งนี้   0, 1, 2 หรือ N
  0   = ไมเคยสูบ
  1   = เลิกสูบแล้วอย่างน้อย 1 เดือน   
  2   = ยังสูบอยู่ หรือเลิกสูบได้ยังไม่ถึง 1 เดือน   
  N   = ไมไดซัก

16
ได้ลองหัดเขียนครับ  แต่ปัญหาคือ ส่วนที่ผมเพิ่มใหม่ไม่ออกครับ ต้องไปแก้ที่ตรงไหนครับ
var
  fvn,fcomputername,fdepartment,fhn, scrcl, sgfr, sLastCrDate,fvn1,fcomputername1,fdepartment1,fhn1 : string;
  crcl, gfr, bw, LastCr, age_y, sex, a, factor : double;
  LastCrDate : date;
  cc:integer;

    total:integer;
begin

  fvn:= GetGlobalValue('VN');
  fdepartment := GetGlobalValue('CURRENT_DEPCODE');
  fhn:=getsqldata('select hn from ovst where vn = "'+fvn+'"');


  if getsqldata('select depcode from kskdepartment where depcode in ("001","002","003","004","005","006","007","008","103","022","014","112") and depcode="'+fdepartment+'"')=''+fdepartment+'' then

      bw:=getsqldata('select bw from opdscreen where hn="'+fhn+'" order by vn desc limit 1');

      LastCr:=getsqldata('select lo.lab_order_result from lab_head lh, lab_order lo '+
      ' where lh.lab_order_number=lo.lab_order_number and lo.lab_items_code="155" and lh.hn="'+fhn+'" '+
      ' order by lh.order_date desc, lh.order_time desc limit 1');

      LastCrDate:=getsqldata('select lh.order_date from lab_head lh, lab_order lo '+
      ' where lh.lab_order_number=lo.lab_order_number and lo.lab_items_code="155" and lh.hn="'+fhn+'" '+
      ' order by lh.order_date desc, lh.order_time desc limit 1');

      age_y:=getsqldata('select age_y from vn_stat where vn="'+fvn+'"');

      //factor:=getsqldata('select if(sex=1,1,0.85) as factor from patient where hn="'+fhn+'"');

      factor:=getsqldata('select if(sex=1,1,0.742) as factor from patient where hn="'+fhn+'"');

      //crcl:=(140-age_y)*bw*factor/(72*LastCr);

      gfr:=186*exp(-1.154*ln(LastCr))*exp(-0.203*ln(age_y))*factor;

      ///scrcl:=FormatFloat('#.##', crcl);

      sgfr:=FormatFloat('#.##', gfr);

      sLastCrDate:=FormatDatetime('d/mm/yyyy',LastCrDate);

       if getsqldata('select count(lo.lab_order_result) as cc from lab_head lh, lab_order lo '+
      ' where lh.lab_order_number=lo.lab_order_number and lo.lab_items_code="155" and lh.hn="'+fhn+'"')>0 then

       begin
       if gfr>=90 then
    showmessage('GFR ÅèÒÊØ´ (àÁ×èÍ '+sLastCrDate+') ¢Í¤¹ä¢éÃÒ¹Õé = '+FloatToStr(sgfr)+' (ÃÐÂзÕè 1 äµ»¡µÔ)')
       else if gfr>=60 then
    showmessage('GFR ÅèÒÊØ´ (àÁ×èÍ '+sLastCrDate+') ¢Í¤¹ä¢éÃÒ¹Õé = '+FloatToStr(sgfr)+' (ÃÐÂзÕè 2 äµ¼Ô´»¡µÔ GFR Å´ÅàÅ硹éÍÂ)')
       else if gfr>=30 then
    showmessage('GFR ÅèÒÊØ´ (àÁ×èÍ '+sLastCrDate+') ¢Í¤¹ä¢éÃÒ¹Õé = '+FloatToStr(sgfr)+' (ÃÐÂзÕè 3 äµ¼Ô´»¡µÔ GFR ŴŻҹ¡ÅÒ)')
       else if gfr>=15 then
    showmessage('GFR ÅèÒÊØ´ (àÁ×èÍ '+sLastCrDate+') ¢Í¤¹ä¢éÃÒ¹Õé = '+FloatToStr(sgfr)+' (ÃÐÂзÕè 4 äµ¼Ô´»¡µÔÁÒ¡ GFR Å´ÅÁÒ¡)')
       else if gfr<15 then
    showmessage('GFR ÅèÒÊØ´ (àÁ×èÍ '+sLastCrDate+') ¢Í¤¹ä¢éÃÒ¹Õé = '+FloatToStr(sgfr)+' (ÃÐÂзÕè 5 äµÇÒÂÃÐÂÐÊØ´·éÒ GFR Å´ÅÁÒ¡·ÕèÊØ´)');
       end;
  end;





//total : double;

//////////////////////////////////////////////////////////////ส่วนที่เขียนใหม่ครับ

 begin
     fvn1:= GetGlobalValue('VN');
  fdepartment1 := GetGlobalValue('CURRENT_DEPCODE');
  total := getsqldata('select sum(sum_price)as cc from opitemrece where pttype = "28" and vn = "'+fvn1+'" ');


     if  total > 250 then
       showmessage('¤èÒÂÒà¡Ô¹ 250');
   end;
        end;


end;

     end.



17
Report Exchange / สอบถามการเขียนรายงานแบบ group ครับ
« เมื่อ: กรกฎาคม 15, 2013, 17:14:38 PM »
อยากให้เรียงตามแผนกตามรูปครับ ตอนนี้มีแต่ห้องชำระเงินอย่างเดียว มันไม่เทห์ครับ ต้องไปกำหนดรายงานตรงไหนครับ

18
ถ้าจะกำหนดวาใครสามารกำหนดได้ แก้ไขข้อมูลได้ต้องทำยังไงครัับ ???

19
ไดโจทย์ว่าถ้าอยากให้ DF แพทย์แบบส่วนแบ่ง เช่น ค่าทำหัตถการ 100 บาท แพทย์ได้ 20 บาท ผมก็ไปเซตในรายการค่าใช้จ่ายตามรูป แต่เมื่อมาคีย์ในช่อง DF แพทย ปรากฎว่าได้เต็มเหมือนเดิม
แบบนี้แก้ไขยังไงครับ

20
Delphi / Pascal / application:Unknown browser type.
« เมื่อ: มิถุนายน 13, 2013, 15:18:52 PM »
ใช้ delphi xe ลงใน window 8 เปิด IE10 เจอรับน้องเลยครับ แต่ ถ้าเป็น chrome ไม่เป็นไรครับ  ???

21
Development / สอบถามเกี่ยวกับงาน TB ครับ
« เมื่อ: มิถุนายน 12, 2013, 09:03:39 AM »
ตอนนี้กำลังได้รับผิดชอบในการลงโปรแกรมเกี่ยวกับงานวัณโรคครับ ซึ่งในตัวโปรแกรม Hosxp เองก็มี คลีนิควัณโรคครับ แต่งานบางอย่าง ถ้าค้นในกระทู้เก่าๆเหมือนจะอยู่ในช่วงการพัฒนา แต่ดูแล้วเหมือนเงียบไปครับ ก็เลยอยากรู้ว่าสถานะตอนนี้เป็นยังไงบ้างครับ เพราะเห็นว่ามีประโยชน์ต่อทุกโรงพยาบาลจึงมาตั้งกระทู้ครับ :)

22
พอดีอยากทดสอบดูคิดว่ามีประโยชน์เลยอยากรู้ว่าทำงานอย่างไรครับ ต้อง set ตรงนี้และต้องไปตั้งค่าที่อื่นอีกหรือเปล่าครับ

23
Delphi / Pascal / สอบถามการเขียนแยกตัวอักษรครับ
« เมื่อ: มิถุนายน 06, 2013, 16:48:50 PM »
เช่น
MyQuery.FieldValues['master_code'] := 7440001
เมื่อกดปุ่ม button แล้วผมอยากให้ DBedit1.text ที่มีค่าว่างเปล่า  เก็บค่าเป็น 7440-001 แบบนี้ต้องเขียนยังไงครับขอบคุณครับ

24
ผมตั้งค่าสิทธิในการรักษาให้ออกเป้นแบบประกันสังคม แต่ทำไมถึงออกใบเสร็จรับเงินตามแบบฟอร์ม สกส ตามรูปครับ

25
วันนี้น้องห้องผ่าตัดได้รับแจ้ง จากห้องผ่าตัดว่า เวลาบันทึกยาขึ้นว่า กรุณา เลือก Sub Stock  แต่เมื่อเลือกแล้วก็ยังขึ้นครับตามรูปครับ ทดสอบกับ v 5.2.26-5.4.22 เป็นเหมือนกันหมดครับ  :D

26
ขึ้นแบบนี้ครับตามรุป ???

27
ห้องคลังลงข้อมูลราคาต่อหน่วยผิดครับทำให้ราคาซื้อผิด ครั้นจะลงไปแก้ไขก็แก้ไม่ได้ครับ แบบนี้ต้องทำยังไงครับ

28
วันนี้ได้รีโมทช่วยดูปัญหาให้น้อง admin โรงพยาบาลแห่งหนึ่งครับ เจอปัญหาดังรูปไม่รู้เป็นอะไร  จากรูปหมวดค่ารักษา ค่าบริการนอกเวลา01 เป็น 1.14.(1)

29
Delphi / Pascal / สอบถามการใช้งาน componant cxScheduler ครับ
« เมื่อ: เมษายน 04, 2013, 12:54:07 PM »
อยากออกแบบโปรแกรมที่มีลักษณะฟอร์มเป็นแบบปฎิทินใน delphi  เห็นใน Hosxp มีก็เลยไล่ดูก็เจอตัวหนึ่งชื่อ cxScheduler ตามรูปครับ ผมลองแปะคอมโพเน้นตามรูปครับ

30
ตามรูปเลยครับ

31
Download โปรแกรม Hosxp  ไม่ได้ครับขึ้นหน้าว่างเปล่าๆ  ??? ???

32
จากรูปวันที่ตรวจครั้งแรกวันที่ 11/01/2556 เป้นครั้งที่ 2 แต่มาตรวจวันที่ 8/2/2556 กลายเป้นครั้งที่1  ??? ???

33
หมายถึง ข้อมูลผู้ให้บริการของสถานพยาบาล ประกอบด้วย
1)  แพทย์และทันตแพทย์ผู้ตรวจรักษาผู้ป่วย
2)  บุคลากรสาธารณสุขที่ทำหน้าที่ตรวจรักษา หรือให้บริการด้านส่งเสริมสุขภาพป้องกันโรค
3)  บุคลากรด้านการแพทย์แผนไทยฯ ที่ให้บริการ
4)  บุคลากรสาขาอื่น (ที่กำหนด) ที่ทำหน้าที่ให้บริการ
5)  อาสาสมัครสาธารณสุข

ทดสอบส่งออกดู Version 56.2.26 ปรากฎว่าส่งออกที่ตาราง Doctor หมดเลยครับ น่าจะส่งออกเฉพาะ คนที่ Active่ Doctor ครับเพราะ เจ้าหน้าที่การเงิน หรือ เจ้าหน้าที่ฝ่ายบุคลากร ก็ไม่น่าจะส่งออกด้วยครับ เพราะไม่ได้ให้บริการผู้ป่วยอยู่แล้วครับ

34
ตอนนี้ผมใช้ version 56.2.26 ปรากฎว่าไม่มีระบบ HHC มีแต่ว่ากดแล้วเงียบกริบ ลองไล่หาดูเจอ version 56.1.30 กดแล้วมีแต่ว่าพอจะกดเมนูการใช้งานปรากฎว่าโปรแกรมฟ้องว่าไม่ม่ตารางบางตารางแบบนี้จะอับเกรด Structure  ได้ไหมครับ ??? ???

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

36
ตามรูปเลยครับ  :D

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

38
แจ้งปัญหา / ขอความช่วยเหลือ / Value out of bound
« เมื่อ: มีนาคม 08, 2013, 13:36:33 PM »
วันนี้ได้รับการแจั้งจาก น้องพยาบาล  ;D ;D แจ้ง่ว่าไม่สามารถลงค่าสามหลักได้ในหน้าการลงข้อมูล asthma  ในฃ่อ
ง PEFR  ซื่งลงค่าเลข 3 หลักไม่ได้จะเกิดค่า  Value  out of bound ตามรูปครับ ซึ่งผมดูโครงสร้าง Asthma DATA กำหนดว่าให้เป็นค่าจำนวนเต็ม 2-3 หลัก ครับ

39
กำลังลงข้อมูลการโอนสินค้าขึ้นแบบนี้ครับ ???

40
เมื่อกดปุ่มแถบแยกรายบุคคลยังพบชื่ออยู่ครับ ซึ่งที่จริงน่าจะชื่อปกปิดครับ  ;D

41
เมื่อกดปุ่มจิตเวช แล้วกดบางรายการพบ error ครับ
ฟ้องว่าไม่มี ฟอร์มแม่ active อยู่ตามรูปครับทดสอบกับ version 3.55.2.18 ครับ

42
นอกเรื่อง / IHOSXP จะไม่ได้เป็นของแถมในการ Activate
« เมื่อ: กุมภาพันธ์ 08, 2013, 10:33:38 AM »
วันนี้ผมได้ขอให้น้องการตลาดส่งใบเสนอราคามาเนื่องจากจะต้องอับเดทโปรแกรมเพื่อสามาถส่งออก 43 แฟ้มได้แต่มี
สองเรื่องที่มีการเปลี่ยนแปลงคือ
1.Package 6 เดือนไม่มีแล้ว ต้อง ACTIVE ปีต่อปี
2 ไม่สามารดาวโหลดโปรแกรม IHOSXP ได้ตับ
แต่ที่งงคือในหน้าเวปก็ยังไม่มีการเปลี่ยนแปลง ซึ่งผมมองว่ามันเป็นเรื่องใหญน่าจะมีการแจ้งอย่างเป็นทางการครับ



 

43
Delphi / Pascal / F1027 Unit not found: 'System.pas' or binary equivalents (.dcu)
« เมื่อ: มกราคม 21, 2013, 10:18:10 AM »
Error แบบนี้ต้องแก้ยังไครับผมก็ทุกทีคือต้องลง window ใหม่ครับพอจะมีวิธีอื่นอีกไหมครับขอบคุณครับ
F1027 Unit not found: 'System.pas' or binary equivalents (.dcu)

44
ผมลง mydac แต่เวลาลง sdac mydac จะหายไปพอไป componant เพิ้อติกถูกโปรแกรมจะ error ไม่ยอมให้ขึ้นครับ 8) ???

45
หลังจากลง ลงโปรแกรม Delphi  2007 ติดตั้งคอมโพเน้นเดิม โดยไม่มี error ใดๆปรากฎว่าตอนออกแบบโปรแกรมะจะเรียก componant mydac หาไม่เจอครับต้องแก้ยังไงครับ

46
Delphi / Pascal / Run โปรแกรม แล้วขึ้นแบบนี้ครับ
« เมื่อ: มกราคม 08, 2013, 15:56:56 PM »
พึ่งหัดทำ intraweb ครับโดนรับน้องเลยครับไมกล้ารันเลยครับ ทั้งทีเป็นฐานข้อมูลที่คนละตัวกะ Hosxp

47
ไม่ทราบว่าต้องเขียนยังไงครับเพราะ password มันเป็นรหัสลับครับ  ??? ???

48
Delphi / Pascal / Compile โปรแกรมแล้วขึ้นแบบนี้ครับ
« เมื่อ: มกราคม 07, 2013, 13:19:52 PM »
เป็นตั้งแต่ตอนลง window ใหม่ครับ ลงสามรอบก็เป็นทั้งสามรอบครับ แต่ก่อนไม่เป็นครับงงมากครับเป็นเฉพาะ Componanrt ท่ติดตั้งเพิ่ม Componanrt  ที่มาจากตัวโปรแกรมไม่เป็นครับ

49
Development / ขอเสนอ DF ทันตกรรมครับ
« เมื่อ: ธันวาคม 26, 2012, 12:16:02 PM »
อยากให้มีการช่องการลง DF ให้เมือนกับ ER หรือ OPD ครับเพราะปกติทันตแพทย์ก็มีการคิดค่า DF ให้ด้วยครับ ;D

50
นอกเรื่อง / Hosxp 43 แฟ้ม
« เมื่อ: ธันวาคม 14, 2012, 15:29:07 PM »
พอดีเห็นขึ้นมาครับในหน้าแรกครับเลยมีข้อสงสัยครับว่าเป็นโปรแกรมแยกต่างหาก หรือว่า จะมาพร้อมกับเวอร์ชั่นใหม่ครับ ;D

หน้า: [1] 2 3 ... 8