FORM-Doctor-OPDCARD ขนาด A5 ภาค2

[nuayny]

ถ้าlab ตัวใหนที่ไม่มีผลlab ไม่ต้องแสดงชื่อ labตัวนั้น จะต้องแก้ตรงใหนครับ....เวลาหมอดูผลlabจะได้ดูง่าย ๆ ครับ

ผมมีscript ตัวอย่าง(ไม่ทราบว่าของใคร) ทำไว้ครับ แต่ผมไม่รู้ว่าจะไปแก้ OPDCARD ของ อ.ขวด อันใหม่อย่างไรครับ   รบกวนช่วยชี้แนะด้วยครับ  ขอบพระคถุณครับ

 ChangeDBPipeLineLink4SQL('select concat("(",lsg.lab_items_sub_group_name,")") as group_name, '+
     'lo.lab_items_name_ref,lo.lab_order_result,li.lab_items_unit, '+
     'concat(if(lo.lab_items_name_ref is null,"",lo.lab_items_name_ref),"  =  ", '+
     'if((lo.lab_order_result = "" or lo.lab_order_result is null),"?",lo.lab_order_result)," ", '+
     'if(li.lab_items_unit is null,"",li.lab_items_unit)) as lab_report '+
     'from lab_head lh '+
     'left outer join lab_order lo on lo.lab_order_number = lh.lab_order_number '+
     'left outer join lab_items li on li.lab_items_code = lo.lab_items_code '+
     'left outer join lab_items_sub_group lsg on lsg.lab_items_sub_group_code = lo.lab_items_sub_group_code  where (lo.lab_order_result is not null and lo.lab_order_result <>"") '+
    ' and
     

**แต่แบบใหม่ คำสั่งหดเหลือแค่นี้เองครับ
hangeDBPipeLineLink4SQL('select vn,lab_order_number from lab_head '+
     'where vn = "'+DBPipeline['vn']+'" order by lab_order_number ');

ก็เลยไปต่อไม่ถูกครับ

 

[NtvHospital]

อยากให้ช่วยเพิ่ม เวลา ที่พบพยาบาลจุดซักประวัติด้วยครับดึงจากไหนได้มั่งคับ

[pop_hosxp]

อยากให้ช่วยเพิ่ม เวลา ที่พบพยาบาลจุดซักประวัติด้วยครับดึงจากไหนได้มั่งคับ

value:=getsqlstringdata('select service4 from service_time where vn="'+dbpipeline['vn']+'" ');

[NtvHospital]

ขอบคุณมากคับ  ;)คุณ pop_hosxp
แล้ว Server 1-19 นี้มันมีเป็นของจุดไหนบ้างครับ

[pop_hosxp]

ขอบคุณมากคับ  ;)คุณ pop_hosxp
แล้ว Server 1-19 นี้มันมีเป็นของจุดไหนบ้างครับ

ลองค้นคำว่า service_time ดูครับ จะได้คำตอบประมาณนี้



credit คุณ Nahos ด้วยครับ

[nuayny]

ถ้าlab ตัวใหนที่ไม่มีผลlab ไม่ต้องแสดงชื่อ labตัวนั้น จะต้องแก้ตรงใหนครับ....เวลาหมอดูผลlabจะได้ดูง่าย ๆ ครับ

ผมมีscript ตัวอย่าง(ไม่ทราบว่าของใคร) ทำไว้ครับ แต่ผมไม่รู้ว่าจะไปแก้ OPDCARD ของ อ.ขวด อันใหม่อย่างไรครับ   รบกวนช่วยชี้แนะด้วยครับ  ขอบพระคถุณครับ

 ChangeDBPipeLineLink4SQL('select concat("(",lsg.lab_items_sub_group_name,")") as group_name, '+
     'lo.lab_items_name_ref,lo.lab_order_result,li.lab_items_unit, '+
     'concat(if(lo.lab_items_name_ref is null,"",lo.lab_items_name_ref),"  =  ", '+
     'if((lo.lab_order_result = "" or lo.lab_order_result is null),"?",lo.lab_order_result)," ", '+
     'if(li.lab_items_unit is null,"",li.lab_items_unit)) as lab_report '+
     'from lab_head lh '+
     'left outer join lab_order lo on lo.lab_order_number = lh.lab_order_number '+
     'left outer join lab_items li on li.lab_items_code = lo.lab_items_code '+
     'left outer join lab_items_sub_group lsg on lsg.lab_items_sub_group_code = lo.lab_items_sub_group_code  where (lo.lab_order_result is not null and lo.lab_order_result <>"") '+
    ' and
     

**แต่แบบใหม่ คำสั่งหดเหลือแค่นี้เองครับ
hangeDBPipeLineLink4SQL('select vn,lab_order_number from lab_head '+
     'where vn = "'+DBPipeline['vn']+'" order by lab_order_number ');

ก็เลยไปต่อไม่ถูกครับ

 

...แล้วใครจะช่วยผมได้บ้างใหนหนอ...

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

ถ้าต้องการ [ ถ้าlab ตัวใหนที่ไม่มีผลlab ไม่ต้องแสดงชื่อ labตัวนั้น จะต้องแก้ตรงใหนครับ....]

ลองเพิ่มจากตรงนี้ด้วยได้ไหมครับ

select lh.vn,lh.lab_order_number from lab_head lh,lab_order lo  where lh.lab_order_number=lo.lab_order_number
and lo.lab_order_result is not null or lo.lab_order_result<>""
and lo.confirm ="Y"
and lh.vn = "'+DBPipeline['vn']+'"
order by lab_order_number

[admin_palian]

ถ้าต้องการ [ ถ้าlab ตัวใหนที่ไม่มีผลlab ไม่ต้องแสดงชื่อ labตัวนั้น จะต้องแก้ตรงใหนครับ....]

ลองเพิ่มจากตรงนี้ด้วยได้ไหมครับ

select lh.vn,lh.lab_order_number from lab_head lh,lab_order lo  where lh.lab_order_number=lo.lab_order_number
and lo.lab_order_result is not null or lo.lab_order_result<>""
and lo.confirm ="Y"
and lh.vn = "'+DBPipeline['vn']+'"
order by lab_order_number

ตรงหน้าจอรายงานผล LAB อะคับ ให้ติ๊กช่อง "ซ่อนรายการที่ไม่ได้แสดงผล" คับ 

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

ตรงหน้าจอรายงานผล LAB อะคับ ให้ติ๊กช่อง "ซ่อนรายการที่ไม่ได้แสดงผล" คับ 

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

[NtvHospital]

ขอบคุณ pop_hosxp และ Nahos มากๆครับ

[วีระวัฒน์ (เอก)]

ได้รับการร้องเรียนมาเหมือนกัน ในรายการแสดงผล Lab อยากให้แสดงเฉพาะรายการที่ลงข้อมูลเท่านั้น รายการที่ยืนยันแล้วแต่ไม่ลงข้อมูล ไม่น่าจะมาแสดงด้วย เพราะบางที จนท lab คลิกที่ยืนยันทั้งหมด แต่รายงานเป็นข้อมูล เพียง 1-2 รายการเท่านั้น ตัวอย่างเช่น CBC มีทั้งหมด 44 ตัว โดยมากจะลงข้อมูล 10-20 รายการย่อย
แต่ จนท.lab จะยืนยังการลงผลทั้งหมด เพื่อความรวดเร็วในการลงข้อมูล ถ้าเสียเวลามาคลิกทีละตัวคงไม่ดีแน่ตั้ง 20 รายการ

และอยากให้ รายการ lab แสดงแยกตามกลุ่มให้ชัดเจนด้วย

[Khuad]

...แล้วใครจะช่วยผมได้บ้างใหนหนอ...

... เรื่อง Lab นี่ พอดีว่าคนไข้คนนึ่ง อาจมีใบสั่ง Lab หลายใบได้  แล้วเวลาที่ให้แสดงในฟอร์มโดยแบ่ง column ด้วย เวลาที่เริ่มรายการใบสั่งใบใหม่มันจะแสดงผลไม่ค่อยสวย
    ผมเลยหาทางแก้ไขโดยการทำ sub report ซ้อน sub report ไว้ครับ คำสั่งที่ใช้ดึงข้อมูลเลยมีรูปแบบไม่เหมือนตรงส่วนอื่นๆ
    และข้อมูลการรายงานผลที่แสดงก็ไม่ได้มาจากตรง  ChangeDBPipeLineLink4SQL ครับ ...  ...



... ผมแก้ไขตามที่คุณ nuayny บอกไว้แล้วครับ ยังงัยลอง download ไปทดสอบดูนะครับ   แต่ตอนนี้คงยังไม่ขออธิบายจุดที่แก้นะครับ เพราะก็เหมือนกับสอนสร้างรายงานเลยครับ คงใช้เวลาเยอะ  ซึ่งตอนนี้งานของผมที่ รพ. ค่อนข้างเยอะครับ และตอนนี้ก็มีงานที่ต้องขึ้นระบบ HOSxP PCU ทั้งอำเภออีก(จะเริ่มใช้ 1 กค. นี้ครับ) ...          ...


-----------------------------------------------------------------------------------------------------------------
หมายเหตุ  ขออนุญาตแนบไฟล์ ตัวฟอร์ม OPD Card ใหม่นะครับ เนื่องจากมีข้อผิดพลาดเรื่องการตรวจร่างกาย ตามที่ท่าน machai แจ้งไว้  ที่กระทู้นี้ครับ
28 มิ.ย. 2553  16.43 น.
-----------------------------------------------------------------------------------------------------------------

[Khuad]

ได้รับการร้องเรียนมาเหมือนกัน ในรายการแสดงผล Lab อยากให้แสดงเฉพาะรายการที่ลงข้อมูลเท่านั้น รายการที่ยืนยันแล้วแต่ไม่ลงข้อมูล ไม่น่าจะมาแสดงด้วย เพราะบางที จนท lab คลิกที่ยืนยันทั้งหมด แต่รายงานเป็นข้อมูล เพียง 1-2 รายการเท่านั้น ตัวอย่างเช่น CBC มีทั้งหมด 44 ตัว โดยมากจะลงข้อมูล 10-20 รายการย่อย
แต่ จนท.lab จะยืนยังการลงผลทั้งหมด เพื่อความรวดเร็วในการลงข้อมูล ถ้าเสียเวลามาคลิกทีละตัวคงไม่ดีแน่ตั้ง 20 รายการ

และอยากให้ รายการ lab แสดงแยกตามกลุ่มให้ชัดเจนด้วย

... คงไม่ใช่การร้องเรียนฟอร์มใบตรวจรักษาที่ผมทำไว้นะครับพี่เอก 5555555 ...    ...

[A ROON CHAI]

ขอบคุณครับ

ติดตามผลงานอ.ขวดเสมอมาครับ

[Khuad]

   
... พอดีว่าพบข้อผิดพลาดเรื่องการตรวจร่างกาย ตามที่ท่าน machai แจ้งไว้  ที่กระทู้นี้ครับ  ...

... เนื่องจากผมได้ทำให้การแสดงผลของรูปภาพ PE Image กรณีมีรูปเดียว กับ ไม่มีรูปหรือมีหลายรูป แสดงไม่เหมือนกัน โดยใช้ SubReport คนละตัวกัน
    มันมีข้อผิดพลาดที่ SubReport5 ครับ  ตรงส่วนของ pe_heent_text  มันถูกกำหนดไว้ผิดเป็น pe_ab_text
    ต้องแก้ไขให้เป็น pe_heent_text (ตามรูปแนบครับ) แล้วก็ save ฟอร์มใหม่ ...

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



... พอดีตอนแก้ไข้ทดสอบอยู่แต่กับ SubReport6 แล้วคงมึน    เลยลืมแก้ไขที่ SubReport5 ให้เหมือนกันด้วยครับ ...      ...
   
   

[udomchok]

เอ้า...แก้ให้ถูกซะ แล้วเอามาให้ load ด้วย รออยู่ 

[nuttavut]

Report เทพ    ต้องยกให้เขาเลย .... รอเวอร์ชั่นเต็มของพี่ขวด รีบๆทำนะ ...

[poramat]

ไม่ค่อยได้ Print ก็เลยยังไม่เจอปัญหาครับ แต่ก็แก้ไขตามที่ พี่ขวดแนะนำไว้แล้วครับ 

[kee_seka]

ขอความช่วยเหลือ อ.ขวดเพิ่มรายการ ผลการอ่านฟิม x-ray ใน doctor OPDcard ด้วยได้มัยครับ จากรายละเอียดที่แพทย์ลงผลที่หน้าห้องแพทย์ ให้มีผลออกที่ opdcard ด้วย ปัจุบันออกแต่รายการที่สั่ง
ตามภาพที่ 1 ครับ  แพทย์ลงการอ่านผลฟิม x-ray  Form ที่บันทึกลง คือ xray_report ตาราง report_rtf  ครับ ขอความกรุณาให้ อ.ขวดเพิ่มให้ด้วยนะครับ     

[nahos]

นอกเรื่องครับ

อาจารย์.ขวด ใช้โปรแกรมอะไร ในการเขียนอธิบายภาพครับ

ลูกศรโยง ๆๆ ดูสวย และชัดเจน ครับ
ดูแล้วเข้าใจไดทันที

[Khuad]

เอ้า...แก้ให้ถูกซะ แล้วเอามาให้ load ด้วย รออยู่ 

... ผมแก้ไขแล้วแนบไฟล์ใหม่ แต่เอาไว้ตรงที่เดิม(ตอบ43 กับ ตอบ61)แล้วครับพี่โก้ ...   ...

ขอความช่วยเหลือ อ.ขวดเพิ่มรายการ ผลการอ่านฟิม x-ray ใน doctor OPDcard ด้วยได้มัยครับ จากรายละเอียดที่แพทย์ลงผลที่หน้าห้องแพทย์ ให้มีผลออกที่ opdcard ด้วย ปัจุบันออกแต่รายการที่สั่ง
ตามภาพที่ 1 ครับ  แพทย์ลงการอ่านผลฟิม x-ray  Form ที่บันทึกลง คือ xray_report ตาราง report_rtf  ครับ ขอความกรุณาให้ อ.ขวดเพิ่มให้ด้วยนะครับ     

... ที่ kee_seka แนบรูปมาให้ดูเหมือนเป็นตัวเก่าครับ  ลองทดสอบที่ตัวผมแนบไฟล์ไว้ที่กระทู้นี้(ตรงตอบ43 กับ ตอบ61) ดูนะครับ
    ผมทำไว้แล้วครับ  ตามรูป ....   ...

[Khuad]

นอกเรื่องครับ

อาจารย์.ขวด ใช้โปรแกรมอะไร ในการเขียนอธิบายภาพครับ

ลูกศรโยง ๆๆ ดูสวย และชัดเจน ครับ
ดูแล้วเข้าใจไดทันที

... SnagIt ครับ
    แต่ว่าผมจำไม่ได้แล้วครับว่าอาจารย์ท่านใดเป็นคนแนะนำไว้ที่นี่แหละครับ...  ....

[udomchok]

... ผมแก้ไขแล้วแนบไฟล์ใหม่ แต่เอาไว้ตรงที่เดิม(ตอบ43 กับ ตอบ61)แล้วครับพี่โก้ ...   ...

ขออภัย เมื่อคืนรีบไปหน่อย เลยอ่านแต่กระทู้ท้าย ๆ
หลังจากตอบไปแล้วจึงขึ้นไปอ่านท่อนบน เพิ่งจะเห็นหลังจาก post ไปแล้ว แต่ตอนนั้นไม่สามารถใช้เน็ต (free) ได้แล้ว (ไปประชุมน่ะ) เลยไม่ได้ post แจ้ง

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

snagIT  กินได้แบบ  เลย์ร๊อค เปล่าครับ  อ.ขวด...

[machai]

snagIT  กินได้แบบ  เลย์ร๊อค เปล่าครับ  อ.ขวด...

ไม่ใช่ สเน๊คแจ๊กน่ะครับ อิอิ

[bacho_hospital]

ตรงช่อง ปฏิเสธการแพ้ยาจะให้โชว์  ข้อความว่า "ปฏิเสธการแพ้ยา"  ในกรณีที่ไม่ได้แพ้ยา  ต้องเพิ่มคำสั่งอะไรใน variable นะคับ

[nuayny]

i1:=getsqlintegerdata('select count(hn) as dd from opd_allergy where hn="'+DBPipeline['hn']+'"');
 if i1>0
 then memo3.lines.text := 'á¾éÂÒ : ' +  GetSQLSubQueryData(' select agent,relation_level from opd_allergy   where hn='''+ DBPipeline['hn'] + ''' and char_length(relation_level)>0  ')
 else
  begin
    if DBPipeline['found_allergy']='N'
    then memo3.lines.text:='á¾éÂÒ : »¯Ôàʸ¡ÒÃá¾éÂÒ'
    else
      begin
         if DBPipeline['found_allergy']='Y'
         then memo3.lines.text:='á¾éÂÒ : ÁÕÍÒ¡ÒÃá¾éÂÒ'
         else memo3.lines.text:='á¾éÂÒ : äÁè·ÃÒº';
      end;
  end;

อย่าลืมประกาศตัวแปร i:integer ด้วยนะครับ

เดี๋ยวทันจะ error ว่าหา i ไม่เจอ

และก็พอดีผมใช้ variable แต่ส่งค่าไปให้ memo แสดงแทน

แต่ถ้าจะให้ varible แสดงเลยก็แก้ตรง

memo3.lines.text:= เป็น value:= แทนครับ

ส่วนข้อความที่จะให้มันแสดงก็แก้ไขได้เลยครับตามชอบ

ลองดูครับ


***อ้างอิง : อ.Srwood ครับ

[bacho_hospital]

i1:=getsqlintegerdata('select count(hn) as dd from opd_allergy where hn="'+DBPipeline['hn']+'"');
 if i1>0
 then memo3.lines.text := '&aacute;&frac34;&eacute;&Acirc;&Ograve; : ' +  GetSQLSubQueryData(' select agent,relation_level from opd_allergy   where hn='''+ DBPipeline['hn'] + ''' and char_length(relation_level)>0  ')
 else
  begin
    if DBPipeline['found_allergy']='N'
    then memo3.lines.text:='&aacute;&frac34;&eacute;&Acirc;&Ograve; : &raquo;&macr;&Ocirc;&agrave;&Ecirc;&cedil;&iexcl;&Ograve;&Atilde;&aacute;&frac34;&eacute;&Acirc;&Ograve;'
    else
      begin
         if DBPipeline['found_allergy']='Y'
         then memo3.lines.text:='&aacute;&frac34;&eacute;&Acirc;&Ograve; : &Aacute;&Otilde;&Iacute;&Ograve;&iexcl;&Ograve;&Atilde;&aacute;&frac34;&eacute;&Acirc;&Ograve;'
         else memo3.lines.text:='&aacute;&frac34;&eacute;&Acirc;&Ograve; : &auml;&Aacute;&egrave;&middot;&Atilde;&Ograve;&ordm;';
      end;
  end;

อย่าลืมประกาศตัวแปร i:integer ด้วยนะครับ

เดี๋ยวทันจะ error ว่าหา i ไม่เจอ

และก็พอดีผมใช้ variable แต่ส่งค่าไปให้ memo แสดงแทน

แต่ถ้าจะให้ varible แสดงเลยก็แก้ตรง

memo3.lines.text:= เป็น value:= แทนครับ

ส่วนข้อความที่จะให้มันแสดงก็แก้ไขได้เลยครับตามชอบ

ลองดูครับ


***อ้างอิง : อ.Srwood ครับ

ขอบคุณครับ 

Value := 'ประวัติการแพ้ยา : '+GetSQLStringData('select if(drugallergy is null or drugallergy = "","    ปฏิเสธการแพ้ยา    ",drugallergy) '+
      ' as cc from patient where hn = "'+DBPipeline['hn']+'" ');

ผมยก varialbe  ของ อ.ขวดมาเลยครับ

[Knott]

ตรง code นี้

ChangeDBPipeLineLink3SQL('select o.vn,concat(if((d.name is null or d.name = ""),"-",d.name),"  ", '+
     'if(d.strength is null,"",d.strength),"  #  ",if(o.qty is null,"",o.qty)) as drug_name, '+
     'concat(if((du.shortlist is null or du.shortlist = ""),"",du.shortlist), '+
     'if((su.name1 is null or su.name1 = ""),"",su.name1),if((su.name2 is null or '+
     'su.name2 = ""),"",su.name2),if((su.name3 is null or su.name3 = ""),"",su.name3)) as shortlist '+
     'from opitemrece o '+
     'left outer join drugitems d on d.icode = o.icode '+
     'left outer join drugusage du on du.drugusage = o.drugusage '+
     'left outer join sp_use su on su.sp_use = o.sp_use '+
     'where o.icode like "1%" and o.vn = "'+DBPipeline['vn']+'" '+
     'order by d.therapeuticgroup,d.name ');

จะทำอย่างไรให้ขึ้นวิธีการใช้แบบเต็ม แทน shortlist ครับ หมอขอมาครับ

[monchai]

ขอบคุณครับ  จะนำมาทดสอบดูครับ

[Kab_Moo]

รบกวน ด้วยครับ พอดีผมเพิ่มในส่วนของ visit note ต่อจาก PMH แต่ทำให้ขยายกลายเป็น 2 หน้าแทนในหน้าแรก หลังการนัด จะเหลือพื้นที่เยอะมากครับ จะประหยัดกระดาษนะครับ ตัว report ผมแนบด่านล่างนะครับ ขอบคุณครับ

[Kab_Moo]

อาจารย์ .ขวด คับ ผมไปต่อไม่ได้จริงๆ อาจารย์ท่านใดว่าง ดูให้ผมหน่อยครับ ตามกระทู้ด้านบนนี้อะครับ ต่อไม่ได้จริงๆ 

[atiwat24]

อาจารย์ คับ ผมจะนำ form นี้ไปใช้แต่ติดตรงที่ว่า รูปอยู่ใน server image ไม่ทราบว่าผมต้องแก้ตรงไหนบ้างครับ

[i-tester]

ขอบคุณมากนะคะ อ.ขวด เก่งจริงๆ