BMS-HOSxP Community

HOSxP => ยินดีต้อนรับ => ข้อความที่เริ่มโดย: naj ที่ เมษายน 15, 2012, 06:57:24 AM

หัวข้อ: การคัดกรองบุหรี่และสุรา
เริ่มหัวข้อโดย: naj ที่ เมษายน 15, 2012, 06:57:24 AM
กำลังทำให้กับ รพ  ใช้ ตามที่ สปสช กำหนดครับ โดยเอาของ arm มาปรับบางส่วน (ขอบคุณอาร์มมากครับ  :D :D :D :D)  ( http://hosxp.net/index.php?option=com_smf&Itemid=28&topic=1517.0)
โดยมีความสามารถดังนี้
1 แสดงประวัติการคัดกรองที่เคยบันทึกไปแล้ว
2 ตอนที่จะบันทึกให้ขึ้นวันเวลา และผู้บันทึก auto ตาม login
3 เน้นการใช้ keyboard ในการบันทึก
4 มีข้อความเตือน ถ้าผู้ป่วยยังไม่เคยคัดกรองมาก่อน (เฉพาะคนที่มีอายุ 13 ปีขึ้นไป)
หมายเหตุ
ยังขาด แบบประเมินของ นิโคติน วันนี้จะทำให้เสร็จแล้วจะ upload ให้พร้อมตารางที่เกี่ยวข้องครับ
หัวข้อ: Re: การคัดกรองบุหรี่และสุรา
เริ่มหัวข้อโดย: nayok ที่ เมษายน 15, 2012, 10:28:51 AM
อ.นาจ ครับ ขอเอามาทดสอบหน่อยได้มั๊ยครับ  ;D ;D
หัวข้อ: Re: การคัดกรองบุหรี่และสุรา
เริ่มหัวข้อโดย: admin30 ที่ เมษายน 16, 2012, 20:07:04 PM
ขอมาทดสอบหน่อยครับ อ.
หัวข้อ: Re: การคัดกรองบุหรี่และสุรา
เริ่มหัวข้อโดย: naj ที่ เมษายน 17, 2012, 04:00:31 AM
ขอโทษที่ล่าช้า เนื่องนั่งมองหาแรงบันดาลใจ นานไปหน่อยครับ  :) :) :) ผมแนบตารางและคำสั่งที่เกี่ยวข้องมาให้แล้วนะครับ ลองทดสอบดู
หัวข้อ: Re: การคัดกรองบุหรี่และสุรา
เริ่มหัวข้อโดย: kookkaija ที่ เมษายน 17, 2012, 08:36:58 AM
ใช้ยังงัยอ.นาจ  ;D :D
หัวข้อ: Re: การคัดกรองบุหรี่และสุรา
เริ่มหัวข้อโดย: chk ที่ เมษายน 17, 2012, 08:41:15 AM
 ;D
หัวข้อ: Re: การคัดกรองบุหรี่และสุรา
เริ่มหัวข้อโดย: naj ที่ เมษายน 17, 2012, 08:47:19 AM
ใช้ยังงัยอ.นาจ  ;D :D
เดี๋ยวทางพี่ที่รับผิดชอบงานนี้จะประสานกับ รพ ในจังหวัดที่สนใจให้มาคุยกันเรื่องการใช้งานและติดตั้งครับ
หมายเหตุ
ขอทดสอบกับระบบจริงก่อนนะครับ เพิ่งจะทำเสร็จ พี่เขาขอมาตั้งแต่ก่อนน้ำท่วมปลายปีที่แล้ว  :D :D :D :D :D
หัวข้อ: Re: การคัดกรองบุหรี่และสุรา
เริ่มหัวข้อโดย: chk ที่ เมษายน 17, 2012, 08:57:02 AM
 ;D  ไม่เป็นไรขอรับ  รอได้จนถึงน้ำท่วมปีนี้นะขอรับ  ;D
หัวข้อ: Re: การคัดกรองบุหรี่และสุรา
เริ่มหัวข้อโดย: 7Up ที่ เมษายน 17, 2012, 09:10:48 AM
 ;D ;D
หัวข้อ: Re: การคัดกรองบุหรี่และสุรา
เริ่มหัวข้อโดย: naj ที่ เมษายน 17, 2012, 09:37:26 AM
ลืมแนบคำสั่งเอาข้อมูลการคัดกรองบุหรี่และสุราเดิมจากตาราง opdscreen (drinking_type_id,smoking_type_id) เข้าตาราง smoke_screen
โค๊ด: Delphi
  1. unit YINDEETAN;
  2. procedure main;
  3. var
  4.  tc,tc1:tclientdataset;
  5.  i:integer;
  6. begin
  7. i:=0;
  8. tc:=Tclientdataset.create(nil);
  9. tc1:=Tclientdataset.create(nil);
  10. tc.data:=Hosxp_Getdataset('select vn,hn,vstdate,smoking_type_id,drinking_type_id  '+
  11.  'from opdscreen '+
  12.  'where  ((smoking_type_id is not null) or  (drinking_type_id is not null)) '+
  13.  'order by vstdate');
  14.  ShowDebugText('Found Data import  '+inttostr(tc.recordcount)+' Records.');
  15.  tc1.data:=Hosxp_Getdataset('select * from smoke_screen');
  16.  tc1.open;
  17.  while not tc.eof do
  18.  begin
  19.   i:=i+1;
  20.  tc1.insert;
  21.  tc1['smoke_screen_id']:=getserialnumber('smoke_screen_id');
  22.  tc1['hn']:=tc['hn'];
  23.  tc1['drinking_type_id']:=tc['drinking_type_id'];
  24.  tc1['smoking_type_id']:=tc['smoking_type_id'];
  25.  tc1['date_screen']:=tc['vstdate'];
  26.  tc1['vn']:=tc['vn'];
  27.  tc1.post;
  28.  ShowDebugText('no.'+inttostr(i)+'  vn='+tc['vn']+' hn='+ tc['hn']+' vstdate='+datetostr(tc['vstdate'])+'...Data Insert OK');
  29. tc.next;
  30.  end;
  31.  if tc1.ChangeCount > 0 then
  32.     HOSxP_UpdateDelta(tc1.Delta,'select * from smoke_screen ');
  33.     ShowDebugText('Import Data '+inttostr(tc.recordcount)+' Records Complete');
  34.  ShowDebugText('Process Done;');
  35.  tc.free;
  36.  tc1.free;
  37. end;
  38. end.
หัวข้อ: Re: การคัดกรองบุหรี่และสุรา
เริ่มหัวข้อโดย: nayok ที่ เมษายน 17, 2012, 09:47:59 AM
สุดยอดเลยครับ อ.naj  ;D ;D
หัวข้อ: Re: การคัดกรองบุหรี่และสุรา
เริ่มหัวข้อโดย: naj ที่ เมษายน 17, 2012, 10:45:07 AM
ใช้งานจริงเมื่อ  17/4/55 เวลา 10:00 น่าจะ OK  :D :D :D :D :D
หัวข้อ: Re: การคัดกรองบุหรี่และสุรา
เริ่มหัวข้อโดย: kookkaija ที่ เมษายน 17, 2012, 10:56:02 AM
รอครับอ.นาจ พ่อลูกอ่อน ;D :D
หัวข้อ: Re: การคัดกรองบุหรี่และสุรา
เริ่มหัวข้อโดย: chk ที่ เมษายน 17, 2012, 13:16:49 PM
 ;D  ลองอัดตารางเข้าไปแล้ว  บางตารางมิเข้า ต้องลองอีกที  ขอรับ   ;D

 ;D  กำลังจะอัพเปลี่ยน server  ตัวใหม่  ของเก่าครบอายุการใช้งาน  2 ปีแล้ว   ;D

 ;D  เดียวลองใช้ centos 6.2  + mysql 5.5  นะขอรับ   ;D

 ;D  ส่วนจะนัดคุยกันเมื่อไร  ว่า 8  ชั่วโมงทำการ  ทุกวัน  อิอิ   ;D
หัวข้อ: Re: การคัดกรองบุหรี่และสุรา
เริ่มหัวข้อโดย: naj ที่ เมษายน 17, 2012, 19:42:02 PM
มี Version 2 ขอลองทดสอบก่อนนะครับว่าจะออกหัวหรือก้อย  :D :D :D :D :D
หัวข้อ: Re: การคัดกรองบุหรี่และสุรา
เริ่มหัวข้อโดย: chk ที่ เมษายน 18, 2012, 08:57:20 AM
 ;D  เอาแบบมาทั้งหัวและตัว ด้วยดีกว่านะขอรับ  ;D

 ;D  มาเป็นบางส่วน  น่ากลัวอะ ...!   ;D
หัวข้อ: Re: การคัดกรองบุหรี่และสุรา
เริ่มหัวข้อโดย: เกื้อกูล ครับ.. ที่ เมษายน 18, 2012, 09:21:09 AM
;D  เอาแบบมาทั้งหัวและตัว ด้วยดีกว่านะขอรับ  ;D

 ;D  มาเป็นบางส่วน  น่ากลัวอะ ...!   ;D

หัว  ตัว  หาง  หรือครับ...ผมไม่เอานะ..กลัวเช่นกัน....ถ้าเต็มตัวจริง ค่อยเจอกัน... :D :D :D
หัวข้อ: Re: การคัดกรองบุหรี่และสุรา
เริ่มหัวข้อโดย: kungkung ที่ เมษายน 27, 2012, 14:50:20 PM
เต็มรูปแบบยังครับเนี่ย   ตอนนี้โดนเรียกร้องมาแล้วเหมือนกันครับ
หัวข้อ: Re: การคัดกรองบุหรี่และสุรา
เริ่มหัวข้อโดย: kookkaija ที่ เมษายน 27, 2012, 18:55:44 PM
ก๋วยเตี๋ยวเป็ด ชามะนาว เบียร์เย็นๆ เด็กๆขาวสวยหมวยเอ็กนมเล็กฟันเหล็ก ที่อ.นาจสั่งไว้พร้อมเสริฟแล้ว โทรนัดได้เลยครับ ;D ;D ;D
หัวข้อ: Re: การคัดกรองบุหรี่และสุรา
เริ่มหัวข้อโดย: peenan ที่ เมษายน 28, 2012, 16:12:32 PM
ก๋วยเตี๋ยวเป็ด ชามะนาว เบียร์เย็นๆ เด็กๆขาวสวยหมวยเอ็กนมเล็กฟันเหล็ก ที่อ.นาจสั่งไว้พร้อมเสริฟแล้ว โทรนัดได้เลยครับ ;D ;D ;D
ต้องการผู้ช่วยไหมครับ
หัวข้อ: Re: การคัดกรองบุหรี่และสุรา
เริ่มหัวข้อโดย: jdadmin1 ที่ เมษายน 28, 2012, 18:45:54 PM
 ;D ;D ;D
อย่าลืมผู้ติดตามผู้ช่วยด้วยอีกคนนะครับ แห่ะ ๆ ๆ ว่างตลอด 24
 ;D ;D ;D
หัวข้อ: Re: การคัดกรองบุหรี่และสุรา
เริ่มหัวข้อโดย: เกื้อกูล ครับ.. ที่ เมษายน 29, 2012, 09:23:13 AM
;D ;D ;D
อย่าลืมผู้ติดตามผู้ช่วยด้วยอีกคนนะครับ แห่ะ ๆ ๆ ว่างตลอด 24
 ;D ;D ;D

ผม สมัคร เป็นเด็กยกกระเป๋า ทั้งของผู้ช่วย และผู้ติดตามผู้ช่วยครับ..อีกคน.. ;D ;D
หัวข้อ: Re: การคัดกรองบุหรี่และสุรา
เริ่มหัวข้อโดย: teerapun_top ที่ ธันวาคม 07, 2017, 06:51:53 AM
สนใจต้องการใช้ครับ  ต้องทำอย่างไรบ้างครับ ขอบคุณครับ