การคัดกรองบุหรี่และสุรา

[naj]

กำลังทำให้กับ รพ  ใช้ ตามที่ สปสช กำหนดครับ โดยเอาของ arm มาปรับบางส่วน (ขอบคุณอาร์มมากครับ  )  ( http://hosxp.net/index.php?option=com_smf&Itemid=28&topic=1517.0)
โดยมีความสามารถดังนี้
1 แสดงประวัติการคัดกรองที่เคยบันทึกไปแล้ว
2 ตอนที่จะบันทึกให้ขึ้นวันเวลา และผู้บันทึก auto ตาม login
3 เน้นการใช้ keyboard ในการบันทึก
4 มีข้อความเตือน ถ้าผู้ป่วยยังไม่เคยคัดกรองมาก่อน (เฉพาะคนที่มีอายุ 13 ปีขึ้นไป)
หมายเหตุ
ยังขาด แบบประเมินของ นิโคติน วันนี้จะทำให้เสร็จแล้วจะ upload ให้พร้อมตารางที่เกี่ยวข้องครับ

[nayok]

อ.นาจ ครับ ขอเอามาทดสอบหน่อยได้มั๊ยครับ 

[admin30]

ขอมาทดสอบหน่อยครับ อ.

[naj]

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

[kookkaija]

ใช้ยังงัยอ.นาจ 

[chk]

 

[naj]

ใช้ยังงัยอ.นาจ 

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

[chk]

   ไม่เป็นไรขอรับ  รอได้จนถึงน้ำท่วมปีนี้นะขอรับ 

[7Up]

 

[naj]

ลืมแนบคำสั่งเอาข้อมูลการคัดกรองบุหรี่และสุราเดิมจากตาราง 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.

[nayok]

สุดยอดเลยครับ อ.naj 

[naj]

ใช้งานจริงเมื่อ  17/4/55 เวลา 10:00 น่าจะ OK 

[kookkaija]

รอครับอ.นาจ พ่อลูกอ่อน

[chk]

   ลองอัดตารางเข้าไปแล้ว  บางตารางมิเข้า ต้องลองอีกที  ขอรับ   

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

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

   ส่วนจะนัดคุยกันเมื่อไร  ว่า 8  ชั่วโมงทำการ  ทุกวัน  อิอิ   

[naj]

มี Version 2 ขอลองทดสอบก่อนนะครับว่าจะออกหัวหรือก้อย 

[chk]

   เอาแบบมาทั้งหัวและตัว ด้วยดีกว่านะขอรับ 

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

[เกื้อกูล ครับ..]

  เอาแบบมาทั้งหัวและตัว ด้วยดีกว่านะขอรับ 

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

หัว  ตัว  หาง  หรือครับ...ผมไม่เอานะ..กลัวเช่นกัน....ถ้าเต็มตัวจริง ค่อยเจอกัน...

[kungkung]

เต็มรูปแบบยังครับเนี่ย   ตอนนี้โดนเรียกร้องมาแล้วเหมือนกันครับ

[kookkaija]

ก๋วยเตี๋ยวเป็ด ชามะนาว เบียร์เย็นๆ เด็กๆขาวสวยหมวยเอ็กนมเล็กฟันเหล็ก ที่อ.นาจสั่งไว้พร้อมเสริฟแล้ว โทรนัดได้เลยครับ

[peenan]

ก๋วยเตี๋ยวเป็ด ชามะนาว เบียร์เย็นๆ เด็กๆขาวสวยหมวยเอ็กนมเล็กฟันเหล็ก ที่อ.นาจสั่งไว้พร้อมเสริฟแล้ว โทรนัดได้เลยครับ

ต้องการผู้ช่วยไหมครับ

[jdadmin1]

 
อย่าลืมผู้ติดตามผู้ช่วยด้วยอีกคนนะครับ แห่ะ ๆ ๆ ว่างตลอด 24
 

[เกื้อกูล ครับ..]

อย่าลืมผู้ติดตามผู้ช่วยด้วยอีกคนนะครับ แห่ะ ๆ ๆ ว่างตลอด 24
 

ผม สมัคร เป็นเด็กยกกระเป๋า ทั้งของผู้ช่วย และผู้ติดตามผู้ช่วยครับ..อีกคน..

[teerapun_top]

สนใจต้องการใช้ครับ  ต้องทำอย่างไรบ้างครับ ขอบคุณครับ