แสดงกระทู้

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.


Messages - jam10

หน้า: 1 [2] 3 4
51
นอกเรื่อง / Re: รพ. ไหนได้ 15,000 แล้วยกมือขึ้น
« เมื่อ: กรกฎาคม 03, 2012, 10:25:02 AM »
15000 คงจะยาก แต่ 700 เหมือนจะได้ข่าวว่าจะปรับให้ ลจ.ชั่วคราว น่ะครับ มีผลย้อนหลัง ม.ค คับ

52
ยินดีต้อนรับ / Re: คำชี้แจงจาก BMS ครับ
« เมื่อ: มิถุนายน 26, 2012, 14:00:30 PM »
ขอเป็นกำลังใจให้ อ.ชัยพร และ ชาวบริษัท BMS ทุกคนครับ   :D

 
 

 

53
นอกเรื่อง / Re: รพ. ไหนได้ 15,000 แล้วยกมือขึ้น
« เมื่อ: มิถุนายน 19, 2012, 09:42:36 AM »
700 ก็ยังโอเคคับ ดีกว่าไม่ได้ขึ้นเลย แบบนี้ต้องรีบเอาหนังสือไปให้เขาดูแล้ว.... ;D
สรุปไม่ได้ 15000 แต่ได้ปรับขึ้น 700 บาท ใช่มั้ยครับ ??? ??? ???

54
Networking / Re: ใครมีโปรแกรมประเภท LAN schoolบ้างครับ
« เมื่อ: มิถุนายน 14, 2012, 13:09:57 PM »
ผมขอด้วยคนครับ
jj_com@hotmail.com      ;D

55
นอกเรื่อง / Re: รพ. ไหนได้ 15,000 แล้วยกมือขึ้น
« เมื่อ: มิถุนายน 13, 2012, 09:15:37 AM »
อ่านแล้วมีความหวังขึ้นมาเล็กๆ และก็ทำงานของเราให้ดีที่สุดคับ.. :D

56
นอกเรื่อง / Re: ผมขอลาบวช 1 เดือนนะครับ
« เมื่อ: พฤษภาคม 08, 2012, 14:34:32 PM »
ขออนุโมทนา สาธุ ด้วยครับอาจารย์  :D

57
ขอแสดงความเสียใจด้วยครับ

58
ขอแสดงความเสียใจด้วยครับ

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

select o.vn,o.hn,c.number,concat(p.pname,p.fname," ",p.lname) as ptname
,o.vstdate,o.vsttime,s.bw,s.height,s.bmi,s.bps,s.bpd
,if(s.bps between 140 and 159 or s.bpd between 90 and 99,'1'
,if(s.bps between 160 and 179 or s.bpd between 100 and 109,'2'
,if(s.bps>=180 or s.bpd>=110,'3'
,if(s.bps is null or s.bpd is null,'Error',' ')))) 'BP_Grade'
,if(s.bps between 140 and 159 or s.bpd between 90 and 99,1,0) 'BP_Grade1'
,if(s.bps between 160 and 179 or s.bpd between 100 and 109,1,0) 'BP_Grade2'
,if(s.bps>=180 or s.bpd>=110,1,0) 'BP_Grade3'
,s.tg,s.ldl,s.hdl,s.hbA1c,s.creatinine,s.ua
,s.fbs
,if(s.fbs is null,'Error'
,if(s.fbs<=125,'Normal',if(s.fbs<=154,'1',if(s.fbs<=182,'2','3')))) 'FBS_Grade'
,if(s.fbs between 126 and 154,1,0) 'FBS_Grade1'
,if(s.fbs between 155 and 182,1,0) 'FBS_Grade2'
,if(s.fbs>=183,1,0) 'FBS_Grade3'
from ovst o
left join patient p on p.hn=o.hn
left join opdscreen s on o.vn=s.vn
left join clinicmember c on c.hn=o.hn
where o.vstdate between '2012-01-01' and '2012-06-30'
and c.clinic ="001"
order by o.hn,o.vn



60
ดันหน่อยครับ... ;D
รบกวนด้วยครับ ใส่ variable ไปแล้วผลตรงเกรดออกมาเพี้ยนๆไม่ตรงครับ ทั้ง bps และ fbs เลยคับ  :'(

61
รบกวนด้วยครับ ใส่ variable ไปแล้วผลตรงเกรดออกมาเพี้ยนๆไม่ตรงครับ ทั้ง bps และ fbs เลยคับ  :'(

62
ขอบคุณค้าบ คุณ pasin ขอลองก่อนน่ะคับ  :D


ลองดูนะครับ ไม่รู้ว่าจะถูกใจหรือเปล่าครับ

procedure Variable4OnCalc(var Value: Variant);
begin
  if  (DBPipeline['bps']>= 140) and (DBPipeline['bps']<=159)
      and (DBPipeline['bpd']>=90) and  (DBPipeline['bpd']<=99) then
      Value := 'Grade 1'
  else if  (DBPipeline['bps']>= 160) and (DBPipeline['bps']<=179)
            and (DBPipeline['bpd']>=100) and  (DBPipeline['bpd']<=109) then
            Value := 'Grade 2'
  else if  (DBPipeline['bps']>= 180) and   (DBPipeline['bpd']>=110) then
            Value := 'Grade 3';
end;

63
คลาดเคลื่อนอยู่คับ 163/88  ปกติ ตามจริงต้องเป็น เกรด 2 ถ้าตัวหน้าหรือตัวหลังมีค่าสูงตามที่กำหนด จะต้องเลือกค่าใดค่าหนึ่ง แล้วแปลผลออกมาเป็นเกรดอ่ะคับ

64
ขอบคุณคับ ขอลองดูก่อนคับ  :D
ไม่รู้ว่าตรงตามความต้องการหรือเปล่านะครับ ลองๆดู
สำหรับตัวบน ---- Value:=GetSQLDoubleData('select bps from opdscreen where hn="'+DBPipeline['hn']+'" and '+
' vstdate between "'+ds1+'" and "'+ds2+'"');
if Value < 140 then
  Value := ' &raquo;&iexcl;&micro;&Ocirc;'
else if (Value >= 140) and (Value <= 159) then
  Value := 'Grade1'
else if (Value >= 170) and (Value <= 179) then
  Value := 'Grade2'
else if Value >= 183 then
  Value := 'Grade3';
สำหรับตัวล่าง
Value:=GetSQLDoubleData('select bpd from opdscreen where hn="'+DBPipeline['hn']+'" and '+
' vstdate between "'+ds1+'" and "'+ds2+'"');
if Value < 90 then
  Value := ' &raquo;&iexcl;&micro;&Ocirc;'
else if (Value >= 90) and (Value <= 99) then
  Value := 'G1'
else if (Value >= 100) and (Value <= 109) then
  Value := 'G2'
else if Value >= 110 then
  Value := 'G3';

65
พอจะเขียนให้ดูได้ไหมคับ ผมมึนไปหมดแล้วคับ.. ???
ได้ลองแยก bps กับ bpd กันคนลง variable หรือยังครับ อาจจะพอได้นะครับ

66
ถ้าเงื่อนไขเขาต้องการแบบนี้ครับ
bps                  bpd
140-159            90-99             = grade 1
160-179            100-109          = grade 2
>= 180            >=110            = grade 3
แบบนี้ครับ ผมเขียนไม่ถูกครับ


เออคือ จะนับบนหรือล่างอ่าครับ  :) :) :)

67
ดันคับ ใกล้จะตกแล้ว... ;D

68
ใช้ Valiable คับ เกี่ยวกับระดับเกรดของ bps,bpd แต่มันผลออกมาคลาดเคลื่อนคับ ขอคำแนะนำด้วยคับ
Valiable ( bps,bpd )
   Value :=GetSQLSubQueryData('select concat(FORMAT(o.bps,000) ,"/",FORMAT(o.bpd,000))from opdscreen  o '+
  'where hn="'+DBPipeline['name3']+'"  order by vstdate desc limit 1');
*****************************************************************
ส่วนการแบ่งระดับเกรดของ ( bps,bpd )
 ใช้คำสั่งแบบนี้ครับ
Value:=GetSQLDoubleData('select bps,bpd from opdscreen where hn="'+DBPipeline['name3']+'" and '+
' vstdate between "'+ds1+'" and "'+ds2+'"');
if Value < 140 then
  Value := ' &raquo;&iexcl;&micro;&Ocirc;'
else if (Value >= 140) and (Value <= 159) then
  Value := '1'
else if (Value >= 160) and (Value <= 179) then
  Value := '2'
else if Value >= 183 then
  Value := '3';

รบกวนอาจาร์ยแนะนำด้วยครับ.. :D :D

69
ยินดีต้อนรับ / Re: HOSxP Version 3.55.4.20
« เมื่อ: เมษายน 20, 2012, 09:58:09 AM »
รอทดสอบ.. :D

70
นอกเรื่อง / Re: ข่าวดีสำหรับ admin ป.ตรี
« เมื่อ: เมษายน 18, 2012, 11:42:58 AM »
ป.ตรี ลูกจ้างชั่วคราว ที่กินเงินบำรุงของ รพ หรือป่าวครับ..แต่ก็ยินดีด้วยครับ  :D
ข่าวดีโรงพยาบาลผมได้ปรับ  15,000  แล้วแต่สงสัยเงินเดือนใหม่มาพร้อมภาระอันใหญ่ยิ่งชัวร์

71
ได้แล้วครับ ขอบคุณ ท่านอาจาร์ย niyomstd มากๆครับ  :D

Value:=GetSQLDoubleData('select fbs from opdscreen where hn="'+DBPipeline['hn']+'" and '+
' vstdate between "'+ds1+'" and "'+ds2+'"');
if Value < 125 then
  Value := ' &raquo;&iexcl;&micro;&Ocirc;'
else if (Value >= 126) and (Value <= 154) then
  Value := 'G1'
else if (Value >= 155) and (Value <= 182) then
  Value := 'G2'
else if Value >= 183 then
  Value := 'G3';

72
clinicmember ครับ เอาเฉพาะผู้ป่วยที่เป็นความดัน ครับ
where hn="'+DBPipeline['name3']+'"
เชื่อมจากตารางไหนครับ
จะให้ง่าย ส่ง ตัวรายงานมาให้ทดสอบครับ :) :) :)

73
มันขึ้นเป็น ปกติ ทั้งหมดเลยครับ  ???
ผมต้องการเงื่อนไขแบบนี้ครับ
FBS   126-154   = Grade 1
        155-182   = Grade 2
        >= 183   = Grade 3

แล้วผมเขียนคำสั่งแบบนี้ แต่มันแปลผลออกมาเป็น ปกติ หมดครับ ต้องแก้ตรงไหนคับ รบกวนท่านอาจาร์ยทั้งหลายด้วยครับ เพื่อเป็นแนวทางในการเขียนครั้งต่อไปครับ  :D

Value:=GetSQLDoubleData('select fbs from opdscreen where hn="'+DBPipeline['name3']+'"');
if Value < 125 then
  Value := '- ปกติ'
else if (Value >= 126) and (Value <= 154) then
  Value := '- 1'
else if (Value >= 155) and (Value <= 182) then
  Value := '- 2'
else if Value >= 183 then
  Value := '- 3';

ลองใช้  case of  เอาครับ ทำเป็นช่วง ๆ ก็ได้
ตัวอย่างครับ

Case Value of
    1..125     : Value :='ปกติ';
    126..154 : Value :='1';
    155..182 : Value :='2';
  else Value :='3';
  end;

74
ผมต้องการเงื่อนไขแบบนี้ครับ
FBS   126-154   = Grade 1
        155-182   = Grade 2
        >= 183   = Grade 3

แล้วผมเขียนคำสั่งแบบนี้ แต่มันแปลผลออกมาเป็น ปกติ หมดครับ ต้องแก้ตรงไหนคับ รบกวนท่านอาจาร์ยทั้งหลายด้วยครับ เพื่อเป็นแนวทางในการเขียนครั้งต่อไปครับ  :D

Value:=GetSQLDoubleData('select fbs from opdscreen where hn="'+DBPipeline['name3']+'"');
if Value < 125 then
  Value := '- ปกติ'
else if (Value >= 126) and (Value <= 154) then
  Value := '- 1'
else if (Value >= 155) and (Value <= 182) then
  Value := '- 2'
else if Value >= 183 then
  Value := '- 3';

75
อ.เกื้อกูล ครับ แล้วในโปรแกรมใช้สูตรแรก เริ่มตั้งแต่เวอร์ชั่นไหนครับ พอดีกำลังต้องการให้คำนวณออกมาแบบสูตร GFR1 ครับ.  :D

กรอกน้ำหนักและส่วนสูงหรือยังครับ...


อ้างถึง : manoi
ตอนนี้ในโปรแกรมใช้สูตรแรกครับ


GFR1
สูตร ผู้ชาย (140-อายุ(y))* BMI / 72*serum creatinine
สูตร ผู้หญิง {(140-อายุ(y))* BMI / 72*serum creatinine}*0.85


76
ผมว่าอยู่ที่เป็นดุลพินิจของโรงพยาบาลแต่ละแห่งมั้งค้าบ..ว่าจะมีตังส์จ่ายให้เราไหม แต่ก็ขอให้ได้ทีเถอะ..สาธุ  :D

77
ยินดีต้อนรับ / Re: เตรียมพักร้อน.....
« เมื่อ: มีนาคม 29, 2012, 08:47:50 AM »
สาธุ...17 เม.ย. หยุดทีเถอะ  ;D

78
แจ้งปัญหา / ขอความช่วยเหลือ / Re: สูตรค่า GFR
« เมื่อ: มีนาคม 27, 2012, 11:53:14 AM »
ขอบคุณครับ งั้นผมขอลองดูก่อนครับ  :D

(140-age_y)*bw*if(sex=1,1,0.85)/(72*serum creatinine) as GFR


79
ตารางนี้คับ  oapp

80
แจ้งปัญหา / ขอความช่วยเหลือ / สูตรค่า GFR
« เมื่อ: มีนาคม 27, 2012, 11:24:54 AM »
ขอความช่วยเหลือครับ พอดีจะใส่สูตร ใน scrip แต่ งง ๆ ครับ ใส่ไม่ถูก ต้องการสูตรนี้ใส่ลงไปครับ
สูตร ผู้ชาย (140-อายุ(y))* BMI / 72*serum creatinine
สูตร ผู้หญิง {(140-อายุ(y))* BMI / 72*serum creatinine}*0.85

เริ่มลายตาอ่ะครับ รบกวนอาจาร์ยทุกท่านด้วยครับ  ???  (ผมแนบไฟล์ไม่ได้ค้าบบบ)

81
เหมือนกันเลยครับ อ้างเรื่องระเบียบเหมือนกัน... ???
ของผมได้ข่าวแว่วๆว่าจะได้ 15000 บาทครับ  ;) ;) ;)

หัวหน้าพยาบาลช่วยดันสุดฤทธิ์   ;D ;D ;D

แต่ดูท่าทางงานจะหนักขึ้นตามเงินเดือนที่เพิ่มขึ้นด้วย :D :D :D




ได้เรื่องยังไงส่งข่าวด้วยนะครับ จ.เดียวกันจะได้เอาเรื่องไปให้หัวหน้า ของ รพ ผมหัวหน้าก็ดัน แต่ธุรการอ้างเรื่องระเบียบอย่างเดียวเลย


82
ที่นี่ก็เงียบครับ ไม่มีอะไรเกิดขึ้น.. ;D

83
รพ.หนองม่วง กระผมถึงบ้าน 18.00 น. พอดิบพอดีครับ ได้เห็นเทพแต่ละท่านตัวจริงๆ และอาจาร์ยโก้
คุ้มยิ่งกว่าคุ้มครับงานนี้.. ;D ;D

84

คงต้องดูกันต่อไปครับ :-\
มีกรอบอัตรากำลัง นวก.คอม ที่ สสจ. , รพศ,รพท.,รพช.
อันนี้ ไม่รู้ว่าเป็น พนักงานราชการ  หรือ กำหนดให้เป็น ข้าราชการเลย
ยังไง ท่านๆ  ลองเอาหนังสือฉบับนี้ ไปคุยกับ งานทรัพยากรบุคคล ของหน่วยงานท่านดู
ใน รพช. ไม่มีตำแหน่งสำหรับ นวก.คอมพิวเตอร์ที่เป็น พนักงานราชการ  หรือ  ข้าราชการ มีแต่ลูกจ้างชั่วคราว เพราะไม่มีกรอบจาก กพ.

85
ข่าวล่าสุด มีที่พักแล้วคับท่าน  jdadmin1 .. แหมเลยอดชมบรรยากาศกับท่าน  jdadmin1 และน้านาญเลย
ไว้โอกาสหน้าน่ะครับ.. ;D ;D
อ้างถึง
ที่พักเต็มแล้ว จะได้ที่ใหม่ใกล้ๆกับที่ประชุมหรือป่าวครับ กรุณาแจ้งกลับด้วยครับ
จะได้โอนเงินค่าที่พักจองไว้ครับ .. กลัวได้นอนกางเต๊นท์ตามชายหาด  Grin Grin
;D ;D ;D
อย่าไปกลัวครับ บรรยากาศดี อย่างน้อย ๆ ก็มีผมกับน้านาญล่ะที่นอนชายหาดแต่ไม่กางเต๊นท์
 ;D ;D ;D

86
ที่พักเต็มแล้ว จะได้ที่ใหม่ใกล้ๆกับที่ประชุมหรือป่าวครับ กรุณาแจ้งกลับด้วยครับ
จะได้โอนเงินค่าที่พักจองไว้ครับ .. กลัวได้นอนกางเต๊นท์ตามชายหาด  ;D ;D


87
ส่งใบสมัครไปให้ทางเมล์เรียบร้อยแล้วครับ ถ้าได้รับตอบกลับด้วยครับ  :D

ผอ.อนุมัติแล้วครับ..
โรงพยาบาลหนองม่วง จ.ลพบุรี จำนวน 2 คนครับ
จะส่งใบสมัครตามไปให้ครับ.. ;D ;D

88
ผอ.อนุมัติแล้วครับ..
โรงพยาบาลหนองม่วง จ.ลพบุรี จำนวน 2 คนครับ
จะส่งใบสมัครตามไปให้ครับ.. ;D ;D

89
ลูกจ้างชั่วคราวเงินนอกงบประมาณ ใช่เงินบำรุงของ รพ. หรือป่าวครับ  ???

90
อยากไปครับ ไปเอาความรู้เพิ่ม แต่ว่ากำลังรอ ผอ. อนุมัติ ไม่รู้ว่าจะทันอ่ะป่าว.. ;D

92
ยินดีต้อนรับ / Re: HOSxP 3.55.1.11 มาแล้วนะครับ
« เมื่อ: มกราคม 11, 2012, 13:48:20 PM »
โหลดไม่ได้ครับ  ???

93
นอกเรื่อง / Re: วันๆไม่ทำอะไรเลย
« เมื่อ: มกราคม 09, 2012, 09:48:13 AM »
อันนี้โดนใจดีแท้ท่าน.. ;D ;D
ก็ทำงานของเราไป  ใครไม่เห็นชั่งมัน    เราทำตามภาระงานของเราให้ดีเป็นพอ  

ถึงจะไม่ดีเด่น แต่  องค์กร เคลื่อนที่ก้เป็นพอ  งานทุกงานเขาหวังให้เราตอบสนองให้มากที่สุด เพื่อนที่เขาจะได้เป็นง้อย มากเพิ่มขึ้นเรื่อยๆ   คิดเองอะไรเองไม่เป็น เอ่ะอ่ะ ไร เรียกแต่ IT  ศักยภาพเริ่มต่ำลงในเรื่องงาน  IT เฉพาะงาน  รพ   แต่ว่า  IT ส่วนตัว เช่น  สมัคร FB   ,สมัคร youtube  ,เอา clip ลง Youtube   ไม่ต้องถาม ทำเป็นหมด   ทีเครื่องปริ้น ไม่ทำงาน เรียกให้ไปเปิด  power   งี้ แหละ กรรม ของ   IT  


ปล  เขายังแซวอีกว่า โต๊ะทำงานผม เนตเร็ว มากโหลดอะไร ก็แปป เด๋ว แต่โตีะทำงานเขาก็ อืดๆๆๆ มาก  ผมก็บอกไปว่า  เครื่องผมต่อตรง  ---->ซะใจ ดี   (เครื่องผม ไม่มีโปรแกรมไรมา   ลบขยะออกตลอด แต่เครื่องเขาโปรแกรมไรไม่รู้เพียบเลย บอกวาอย่าโหลดมาลง  ๆๆ ก็ไม่เชื่อ  จนเยอะ อ่ะ เวลา Antivirus ทำงานที ก็อื่ด นานๆ อ่ะ )

พวกเราไม่ได้ กาก  นะ  แต่เรายังเรียนรู้ไม่พอ ครับ  อย่าว่าตัวเองเลย  อย่าพัฒนาก็ ต้อง เร่งๆ ตัวเองหน่อยครับ  
มึเพียงแค่ ประโยคนึ่งฝากไว้    "สู้ๆ ครับ  พร้อมเก็บเกี่ยวประสบการณ์ให้มากที่สุด และเตรียมตัวเองให้พร้อมเพื่อ เตรียมสอบไปอย่างอื่นที่ดีกว่า"

94
แจ้งปัญหา / ขอความช่วยเหลือ / Re: SERV_PER
« เมื่อ: ธันวาคม 29, 2011, 22:14:10 PM »
ลองทำตามทุกอย่างแล้วครับก็ไม่ออกครับ ไม่รู้ว่าจะต้องไปตั้งตรงไหนบ้างครับ  ???

95
งั้นลองแบบนี้ดูครับ
บุหรี่
Value := GetSQLStringData('select smoking_type_name from opdscreen o left outer join smoking_type s on s.smoking_type_id=o.smoking_type_id where vn="'+DBPipeline['vn'] +'"');

สุรา
Value :=GetSQLStringData('select drinking_type_name from  drinking_type  where drinking_type_id="'+DBPipeline['drinking_type_id'] +'"');

นั่งทำไปทำมา ตอนนี้แก้ได้แล้วครับ.......แต่ปรากฏว่ามันพิมพ์ออกมาผิดคือ คนที่ไม่ดื่มสุรา มันก็พิมพ์ว่า "ดื่ม" คนที่ไม่สูบบุหรี่ มันก็พิมพ์ว่า "สูบ" อันนี้มึนตึ๊บเลยครับ..............

96
ก็ต้องลงทะเบียนคนไข้ก่อนครับ
คลินิกพิเศษ- ทะเบียนผู้ป่วยเบาหวาน/ความดัน หลังจากนั้นต้องเลือก ลงทะเบียนใหม่
เลือกคนไข้ที่จะลงทะเบียนในคลินิก ถ้าไม่ถูกต้องต้องขออภัยน่ะครับ รอให้อาจาร์ยท่านอื่นมาตอบอีกทีครับ

ครับต้องลงข้อมูลในคลินิกพิเศษด้วยครับ
แล้วต้องลงข้อมูลในคลินิกโรคเรื้อรังด้วยไหมครับ

ในที่นี้หมายถึงคลินิกโรคเรื้อรังสูงอายุ ?

97
ครับต้องลงข้อมูลในคลินิกพิเศษด้วยครับ
แล้วต้องลงข้อมูลในคลินิกโรคเรื้อรังด้วยไหมครับ

98
ลองใช้ Variable ตามนี้ดูครับ
Value := GetThaiAge(GetSQLDateData('select birthday from patient where hn ="'+DBPipeline['hn']+'"'),CurrentDate);

ช่วยหน่อยครับ

99
แจ้งปัญหา / ขอความช่วยเหลือ / Re: HOSxP_Upgrade_3.54.12.20
« เมื่อ: ธันวาคม 28, 2011, 11:27:40 AM »
ผ่านไป 3 วันแล้วครับเหตุการณ์ยังปกติครับ

100
ขอบคุณอาจาร์ยเกื้อกูลมากครับ  :D
ลบของเดิมในตาราง icd10_nhso  ออกก่อนครับ..แล้วค่อยนำเข้า.cds ไฟล์  แล้วก็อย่าลืม  update excute ล่ะครับ 
เสร็จแล้ว logout  ก่อน เข้าใช้งานใหม่ จะได้ข้อมูลตามต้องการมาตรฐาน  สปสช  OP+PP Package

หน้า: 1 [2] 3 4