มาตั้งสมาคมกันดีไหมฮะ

ถ้าสมมุตินะ สมมุติ

เราทุกคนออกให้หมด พร้อมๆกัน

แล้วตั้ง บ.เอาท์ซอสต์ รับดูแลระบบในโรงพยาบาลโดยเฉพาะ

แล้วก็กำหนดเงินเดือนเอง

แบบนี้เค้าจะง้อเรามั้ยฮะ???  

... ปัญหานี้จริงๆ คงไม่ได้มาจากหน่วยงานหรือโรงพยาบาลของท่านหรอกนะครับ ต้องดูที่ระเบียบหรือข้อปฏิบัติที่ข้างบนเขาให้มาครับ ว่าจะเป็นอย่างไร

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

... เท่าทีฟังๆ เหมือนว่า ตอนนี้เขายังไม่ได้ปรับฐานอัตราเงินเดือนให้เป็นหมื่นห้า  แต่จะให้เป็น เงินเพิ่มการครองชีพชั่วคราว เพิ่มจากเงินเดือนให้ได้หมื่นห้า ซึ่งเงิน พ.ช.ค. นี่เป็นเงินงบประมาณ
  
    แบบนี้ลูกจ้างชั่วคราวที่ไม่ได้จ้างด้วยเงินงบประมาณ น่าจะลำบากครับ ...   ...

รอพี่ขวดครับ จะได้ศึกษาการใช้ ReplaceStr ด้วยคนครับ

... แต่ถ้าในเวอร์ชั่นเก่า ที่ไม่มีฟังชั่น ReplaceStr เราก็สามารถสร้างเองได้ครับ ตัวอย่างตามฟอร์มใบตรวจรักษาด้านล่างเลย กอล์ฟ

    ให้ดูที่ tab Calc ตรง Programs จะเห็นคำสั่งสร้างฟังชั่น ที่ชื่อ ReplaceStr1 อยู่  ส่วนการนำไปใช้ก็ดูที่คำสั่งของ Variable12 ได้เลยครับ

    อันนี้ ผมยกให้เป็นเครดิตของ อ.นาจ แห่งลุ่มน้ำนครชัยศรี เลยครับ อ.นาจ แกเคยสอนวิธีสร้างฟังชั่นตัวนี้ไว้นานแล้วครับ
    สอนอยู่ใน webboard นี้แหล่ะ แต่ผมจำกระทู้ไม่ได้แล้ว ...  ....

... หมวด
    มาตามจับใครใน webboard นี้ป่าวครับ ...      ....

... ยังงัย ถ้าท่าน k_toedkiets ยังไม่ต้องการปรับเวอร์ชั่นของ HOSxP ก็ลองตัด function นี้ออกไปจากคำสั่งก่อนแล้วกันครับ

   ใช้คำสั่งด้านล่างแทนนะครับ ...

-----------------------------------------------------------------------------------------------------------------
 
   if  GetSQLIntegerData('select count(*) as cc from opd_allergy where hn = "'+DBPipeline['hn']+'" '+
           'and report_date <= "'+FormatDateTime('yyyy-mm-dd',DBPipeline['vstdate'])+'" ') > 0 then
 
  Value := 'ประวัติการแพ้ยา : '
           +GetSQLSubQueryData('select agent from opd_allergy where hn = "'+DBPipeline['hn']+'" '+
           'and report_date <= "'+FormatDateTime('yyyy-mm-dd',DBPipeline['vstdate'])+'" ')
  else
  Value := '***ไม่มีประวัติการแพ้ยา';

-----------------------------------------------------------------------------------------------------------------

... แบบนี้คงจะไม่ error แล้วครับ ... ...

... ใช้

Value := GetSQLDoubleData('select sum(adjrw) from ipt where dchdate '+
' between "'+formatdatetime('yyyy-mm-dd',rxdate1)+'" and "'+formatdatetime('yyyy-mm-dd',rxdate2)+'" '+
' and drg like "05%" ');


  ครับ ...

ทดสอบแล้ว ขึ้นเหมือนพี่ขวดเลยคะ     อาจารย์รับทราบแล้วคะ
เอ!! ทำไมพี่มด Up ผ่านละ 

... เดี๋ยวรอ อ.mn เอาขึ้นให้ download ใหม่ ใช่ไหมครับ น้องตั๊ก ...  ...

... แล้วก็ยังไม่เคย up เป็น v.3.55.1.17 มาก่อน

   จาก  v.3.55.1.12 มาเป็น v.3.55.1.18 เลย ...  ...

อับดับแรก Call Center กำลังทดสอบว่า Upgrade Structure  ผ่านหรือไม่ 

... สงสัย จะไม่ผ่าน อิ อิ ... ....


   

... ให้เลือกใช้ ตัวที่ 2 -7 แทนครับ  ตัวไหนก็ได้ หมดปัญหา
    จะมีตัวที่ 1 ค่าเดียวครับ ที่ fix ค่าไม่ได้ ...  ...

ต่อเลยครับ

... นึกว่าแก้ได้แล้ว  ...

... ก็ พอเลือกไปที่แท็ป SubRepor1 แล้ว ก็จะเห็น varible ที่ใช้ดึงข้อมูลแล้วครับ ก็เข้าไปแก้คำสั่งของ varible นี้ได้เลยครับ
    อยู่แถวๆ มุมบนขวา ของแท็ป SubRepor1 ครับ ...  ....

... ในส่วนของ การแพ้ยา ที่อยู่ในซักประวัติทั่วไป ซึ่งเป็นการบันทึกข้อมูลตามราย visit ต้องไปแก้ไขคำสั่งใน variable ที่ดึงข้อมูล ในตัว form ใบตรวจรักษา โดยจะอยู่ที่ส่วนของ SubReport1 ครับ

    ให้เปลี่ยนไปใช้คำสั่งที่ไปเทียบนำเอาชื่อมาจาก found_allergy_type_name ของตาราง found_allergy_type ครับ

    copy คำสั่งข้างล่าง ไปวางแทนคำสั่งของ variable เดิมได้เลยครับ ...  ....

----------------------------------------------------------------------------------------------------------

    Value := GetSQLStringData('select f.found_allergy_type_name from opdscreen o '+
             'left outer join found_allergy_type f on f.found_allergy = o.found_allergy '+
             'where o.vn = "'+DBPipeline['vn']+'" ');


----------------------------------------------------------------------------------------------------------


   

... ตามที่ท่าน k_toedkiets บอกว่าพยาบาลเลือกเป็น มีประวัติการแพ้ยาแล้ว แต่ไม่แสดงในใบตรวจรักษา พอเข้าใจแล้วครับ
 
    เมื่อสักครู่ก็ได้ไปเปิดดู form คิดว่าเจอปัญหาแล้วครับ  ยังงัยเดี๋ยวช่วงดึกจะกลับมาดูให้นะครับ
 
   พอดีว่าวันนี้ ทาง รพ.เป็นเจ้าภาพงานสวดพระอภิธรรม ของครอบครัว จนท.โรงพยาบาลน่ะครับ ต้องไปร่วมงานก่อนครับ ...   ...

... ตรงประวัติการแพ้ยา อันบน ที่เห็นมีรายการยาที่แพ้อยู่ เป็นข้อมูลของยาที่แพ้ที่มีการบันทึกไว้ใน HOSxP ของผู้ป่วยรายนี้ครับ

    ส่วน การแพ้ยาที่อยู่ในส่วน ซักประวัติทั่วไป จะนำมาจาก หน้าต่างซักประวัติ จาก การแพ้ยา ตามรูปที่ 1 ที่แนบมานั่นแหละครับ  ซึ่งก็คือข้อมูลจาก found_allergy ในตาราง opdscreen นั่นแหล่ะครับ 
    อันนี้เป็นข้อมูลตาม visit ครับ ...  ...

ผมโอนเงินไปแล้ว  คุณ  Neo  ไม่ไปเหรอครับ  

... งานนี้ นะโม ตามไปคุมด้วยหรือเปล่าครับ อาร์ม ...  ...

... ตอนนี้ ที่จริงกำลังยุ่ง  อยู่ หลังจากหนีงานไปเที่ยวซะหลายวัน

    แต่.... พอเปิดอ่านผ่านมา  เห็นว่ามีรูปพิธีกรอยู่      เลยต้อง login เข้ามาดู 5555++++
 
    ไม่ login ไม่เห็นรูป ฮ่าๆๆๆๆๆๆ ...      ...

อ้าว......งั้นขอย้ายไปหลังห้องครับ

... ส่วนผม ไม่ต้องย้ายไปย้ายมา แบบ ป๋า JD หรอกนะคร้าบ

    ผมนั่งตรงไหน เดี๋ยวน้องๆ ก็มายืนถือป้ายบอกเวลาข้างๆ ผมเองแหล่ะ อิ อิ อิ ..    ...

... ดังนั้น สรุปว่า ป๋า นั่งข้างๆ ผมไว้ก็พอแล้ว ...      ......

... แบบไหนน่ะ ณัฐ ...  ...

... ผมช่วย ดันๆๆๆๆ อีกคนแล้วกันครับ ...  ....

อ้างจาก: nuttavut ที่ ตุลาคม 10, 2011, 17:11:21 PM

อ้างจาก: itim2101 ที่ ตุลาคม 15, 2010, 21:27:17 PM

ไม่ต้องทิ้ง mail ครับ ไปโหลดเอาที่หน้า 4 กับ 5 ครับ 

เห้อ! อ่านๆกันหน่อย เขาก็บอกกันแล้วนะว่าให้ไปโหลดที่ไหน   

ทิ้งเมลล์กันไว้ทำไมครับ....

  พี่เขาบอก อยู่ที่หน้า 5 ลองไปโหลดดูนะครับ

เลยไม่มีใครกล้าพิมพ์ต่อเลย อ.ขวด เล่นมุกนี้

... เดี๋ยวผมยกเว้น พี่นิพนธ์ ให้คนนึงครับ 

    เดี๋ยวปีหน้าน้ำท่วม กลัวพี่จะไม่เอาเรือมาช่วย ... อิ อิ ...      ...

อ.ขวดเดี๋ยวนี้ชอบของเก่าแล้วหรือครับ ว่าแต่ว่าเพศตรงข้ามเก่าๆชอบด้วยอะเปล่า

... ต้องดูเรื่อง คุณภาพ และ ประสิทธิภาพ เพื่อประกอบการพิจารณาด้วยครับพี่ ...      ...

...

เพิ่งได้ server มาใหม่วันนี้ครับ...........

..........เพิ่งมาถึงครับ ติดน้ำท่วม ฮ่าๆ

... ท่าน yord ถ้า ขอคำแนะนำ นะครับ
   
    ผมแนะนำว่าให้ยก server เก่า หรือ slave ก็ได้ให้ผมสักเครื่อง ... อิ อิ ...     ...

... ลอง clear งาน backup เดิมออกก่อน
    แล้วลองสร้างงาน backup ใหม่ด้วยเครื่อง HOSxP v.3.54.12.20

    แล้วลองทดสอบดูใหม่ครับ ...  ...

... ขอโทษทีนะครับ ช้าไปหน่อย     
    พอดีวันนี้ ที่ รพ. จัดงานเลี้ยงปีใหม่พอดีครับ เพิ่งเลิกงานเมื่อครู่เองครับ ...

... ที่แสดงบ้างไม่แสดงบ้าง เป็นเพราะไม่ได้แปลงรูปแบบวันที่ของ DBPipeline['vstdate'] น่ะครับ

    ท่าน grandbb ลอง copy คำสั่งข้างล่างไปแทนที่คำสั่งใน variable เดิมนะครับ ...

-----------------------------------------------------------------------------------------------------------------
 
   if  GetSQLIntegerData('select count(*) as cc from opd_allergy where hn = "'+DBPipeline['hn']+'" '+
           'and report_date <= "'+FormatDateTime('yyyy-mm-dd',DBPipeline['vstdate'])+'" ') > 0 then
 
  Value := 'ประวัติการแพ้ยา : '
           +ReplaceStr(GetSQLSubQueryData('select agent from opd_allergy where hn = "'+DBPipeline['hn']+'" '+
           'and report_date <= "'+FormatDateTime('yyyy-mm-dd',DBPipeline['vstdate'])+'" '),'''',' ')
  else
  Value := '***ไม่มีประวัติการแพ้ยา';

-----------------------------------------------------------------------------------------------------------------

   
... ก่อน copy คำสั่ง อย่าลืม switch ให้ภาษาของ keyboard เป็นภาษาไทยก่อนนะครับ แล้วค่อยสั่ง copy
   
    เวลาเอาไป paste ส่วนที่เป็นภาษาไทยจะได้ไม่เป็น ? ? ? ? ? ? ครับ ...  ....

...  ....

... ลองดูตาม link ข้างล่างเลยครับ ...  ....

http://hosxp.net/index.php?option=com_smf&Itemid=28&topic=15540.0