ผู้เขียน หัวข้อ: ถึงคุณ asawincyberและ อ.ทุกท่าน เรื่อง OPD card ไม่ให้แสดง รายการเวชภัณฑ์ (อ่าน 15105 ครั้ง)

pa_net · « **เมื่อ:** สิงหาคม 21, 2008, 12:39:13 PM »

อย่างแรกขอขอบคุณ asawincybe เรื่องรายงาน ที่ให้มานะครับ ผมนำมาแก้ไขเป็นของผมเรียบร้อยแล้วครับ

ปัญหาครับ คือรายงานจะมีตรงรายงาน RX มี Blob text ครับ ผมอยากให้ออกแต่รายการยาอย่างเดียวครับไม่ให้แสดงเวชภัณฑ์และค่ารักษาพยาบาลที่ต้องมี 50 บาท(ของผม)ครับ ผมลองดูแล้วแต่มันแก้ไม่ออกเลยอยากรบกวนช่วยแก้ให้นิดหนึ่งได้ไหมครับ จะเป็นพระคุณอย่างสูงครับผม

พี่เป้ครับ ผมรู้สึกว่า ตรงฝั่งซ้าย
มันจะเป็น Scrip ที่อาจารย์เขียนไว้ในโปรแกรม
ครับถ้าจะแก้ไขต้องเขียนใหม่ครับ

Khuad

....อย่างที่ ไม่เสียสละ ชัยชนะไม่เกิด บอกครับ...

....แต่เดี๋ยวผมจะลองแก้ไขที่ฟอร์มให้นะครับ ....

.....

Khuad

....ลองทดสอบดูนะครับ ....

....ใช้ subreport ช่วย แต่ว่าแสดงผลแค่แนวเดียว แสดงรายการยาได้ 16 รายการ คิดว่าน่าจะพอใช้เพราะให้แสดงแค่รายการยาอย่างเดียว....

....ส่วน blobtext ที่แสดงรายการยาและค่ารักษาพยาบาลของเดิมทั้ง 2 ตัวยังอยู่นะครับ ถูกยกเลิก visible เฉยๆ อยู่หลัง region กับ subreport ครับ เผื่อว่าอยากใช้แบบเดิมก็แค่ลบ region กับ subreport ออกไป แล้วสั่ง visible เจ้า blobtext ทั้ง 2 ตัวก้ใช้ได้แล้วครับ .....

....ยังงัยก่อนทดสอบก็อย่าลืม save ตัวรายงานเก่าเก็บไว้ก่อนนะครับ.....

....

pa_net

Khuad มาขอบคุณครับ พอดีช่วงนี้ป่วย Admin เลย ต้อง Admit รพ. ทำได้แล้วและแก้ไขตรง RX เป็น 2 คอลัมครับ แต่มีปัญหาตรงที่ติ๊กว่า นั่งวัด BP ซ้ำน่ะครับ มันขึ้น X ตลอด ทำไงให้ถ้านั่งวัดซ้ำก็ให้ขึ้นมาน่ะครับ

doramon

อ้างจาก: pa_net ที่ สิงหาคม 26, 2008, 21:09:39 PM

Khuad มาขอบคุณครับ พอดีช่วงนี้ป่วย Admin เลย ต้อง Admit รพ. ทำได้แล้วและแก้ไขตรง RX เป็น 2 คอลัมครับ แต่มีปัญหาตรงที่ติ๊กว่า นั่งวัด BP ซ้ำน่ะครับ มันขึ้น X ตลอด ทำไงให้ถ้านั่งวัดซ้ำก็ให้ขึ้นมาน่ะครับ

ส่งตำแหน่ง มาให้ดูได้หรือเปล่าครับ

Khuad

....คงต้องใช้คำสั่งบังคับอีกทีน่ะครับ เหมือนกับตรงให้คำแนะนำครับ...

....ยังงัยลองส่ง ฟอร์มที่คุณ pa_net แก้ไขแล้วมาอีกครั้งก็ได้ครับ เดี๋ยวจะลองดูให้อีกทีครับ...

pa_net

นี่ครับอาจารย์อ๊อด และคุณ Khuad ในส่วนของช่วยเหลือและบรรเทาอาการจากมีกากบาทขึ้นทุกตัวตลอดทั้งที่ผู้ป่วยส่วนใหญ่ไม่ได้นั่ง BP ซ้ำเลยครับ
รูปที่ 2 เป็นรายงานเต็มทั้งใบ
ส่วนไฟล์ 3 คือรายงานครับผม

Khuad

...ตรง ช่วยเหลือบรรเทาอาการ ไม่มีคำสั่งคุมน่ะครับ X เลยแสดงตลอดเวลา ....

...เดี๋ยวดูให้ครับ...
...คุณ pa_net ไว้ลองทดสอบตอนช่วงเช้าแล้วกันนะครับ...

pa_net

ขอบคุณล่วงหน้าครับคุณ Khuad

เข้ม · **Phichit Hospital** HOSxP 3.61.10.31 on FreeBSD 9.2 By BMS - Dec 26, 2007

ขอแจมหน่อยจะได้ไม่เครียด

Admin ป่วย เลยต้อง Admit

ขอให้หายเร็ว ๆครับ
คนบ้านใกล้เรือนเคียง วันหน้าถ้าไปนครสวรรค์ ขอแวะไปล้มทับได้มั๊ยครับ จะพาตั๊กไปด้วย

Khuad

อ้างจาก: carbopolnph ที่ สิงหาคม 26, 2008, 23:13:37 PM

คนบ้านใกล้เรือนเคียง วันหน้าถ้าไปนครสวรรค์ ขอแวะไปล้มทับได้มั๊ยครับ จะพาตั๊กไปด้วย

...ถ้าจะคิดหนักตรงพาตั๊กไปด้วยนี่แหละครับ...

....

เข้ม · **Phichit Hospital** HOSxP 3.61.10.31 on FreeBSD 9.2 By BMS - Dec 26, 2007

อ้างจาก: Khuad ที่ สิงหาคม 26, 2008, 23:34:47 PM

...ถ้าจะคิดหนักตรงพาตั๊กไปด้วยนี่แหละครับ... ....

อะ อ๊ะ แสดงว่าตกข่าว

ยังไม่เคยเห็น new tak ซะแล้ว
หลังจากที่เธอ พยายามทำตัวเหมือนคนอกหัก

เธอเปลี๊ยนไป ครับ....พี่น้อง
หาโอกาสไปเที่ยวพิจิตรซิครับ เราจะพาตะลอนทัวร์ครับ แต่ถ้ามาช่วงนี้คงติด พันธมิตร ครับ

โอ๊ย อีกแล้ว ผมมาเปลี่ยนหัวข้อกระทู้เขาอีกแล้ว ...ไปอยู่เวรดีกว่า

Khuad

...แก้ไขให้ 2 จุด ตรง ช่วยเหลือบรรเทาอาการ กับ Physical exam. ครับ

...ลองทดสอบดูนะครับ..

....

ขอบคุณครับพี่ Khuad พอดีผมขอยืมก่อนนะ
ไว้ค่อยคืนอันใหม่ เพราะเจอที่นี่ใช้พอดี

pa_net

เร็วจังเลยนะ ไม่เสียสละ ชัยชนะไม่เกิด

อย่างไง Report เสร็จมาแบ่งกันบ้างนะครับ
ขอบคุณคุณ Khuad ที่รบกวนช่วยทำให้นะครับ
ขอบคุณอ.อ๊อดหลายเรื่องที่ผ่ายคงได้รบกวนอีกหลายรอบนะครับ
คุณ carbopolnph ขอบคุณมากครับ และอยากไปดูงานที่ พิจิตรเหมือนกันครับ ผ่านไปมาก็แวะหาได้ครับผม เรื่องต่างๆก็พอได้ครับแต่ส่วนใหญ่จะถามซะมากกว่า $:-\$ เพราะงานมันยุ่งคิดอะไรก็ช้า จนเขาบ่นว่างานเหมือนเต่าคลาน......

white

ถึงอาจารย์ขวด และท่านผู้รู้
ผมพบปัญหาจากการนำไปใช้พบว่า
code ของอาจารย์ขวด

     ChangeDBPipeLineLink1SQL('select concat(sd.name,"  ",sd.strength,"  #  ",o.qty) '+
     'as drug_name,du.shortlist '+
     'from opitemrece o '+
     'left outer join s_drugitems sd on sd.icode = o.icode '+
     'left outer join drugusage du on du.drugusage = o.drugusage '+
     'where o.icode like "1%" and o.vn = "'+DBPipeline['vn']+'" ');

จะมีปัญหาไม่แสดงวิธีใช้ เวลาที่ใช้ special usage ครับ
คิดว่าคงต้องเอามาจาก sp_use.nameX มาแทน
แต่เขียน code เองไม่ถูกจริงๆครับ

white

กระทู้ตกเร็วเกิน
ขอดันขึ้นมาถามอาจารย์ผู้รู้ครับ
ประมาณว่า

if o.sp_use มีค่า ให้ join เอา
concat sp_use.name1, sp_use.name2
มาเป็นวิธีใช้แทนครับ

white

ผมลองเอง สามารถขึ้น วิธีใช้ sp_use ได้
แต่พบปัญหาว่า บางrow ใน opitemence
มีข้อมูลทั้งใน drugusage.shortlist และ sp_use ครับ
โดยบางครั้ง shortlist กับ sp_use ไม่ได้เหมือนกันเลย
คงเกิดจากการสั่ง sp_use แต่ยังจำค่า drugusage เดิมก่อนกำหนด sp_use

ยังหาวิธีซ่อน shortlist ถ้ามีค่า sp_use ไม่ได้ครับ
(ถ้ามี sp_use จะเป็นค่าที่ถูกต้องกว่า shortlist)

โค๊ด: SQL

PROCEDURE TitleBeforeGenerate;
BEGIN
     ChangeDBPipeLineLink1SQL('select concat(sd.name,"  ",sd.strength,"  #  ",o.qty) '+
     'as drug_name,du.shortlist, concat(su.name1," ",su.name2) as sp_use_name '+
     'from opitemrece o '+
     'left outer join s_drugitems sd on sd.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']+'" ');
 
END;

ไม่รู้ blob text ใน OPD card เดิมของอาจารย์ MN ใช้ SQL ยังไง
ขอบคุณคับ

manoi

ต้องใช้ variable มาช่วยตรวจสอบค่าครับ หากมีรหัสใน field sp_use ให้นำวิธีใช้ที่ link มาจากตาราง sp_use มาแสดง แต่หากค่าใน field sp_use เป็นค่าว่าง จึงนำวิธีใช้ที่ link มาจาก ตาราง drugusage ครับ

SrWooD

ลองแบบนี้ดูครับ อีกทางเลือกหนึ่งครับ

ไม่รู้จะตรงใจหรือป่าวครับ

โค๊ด: SQL

     SELECT concat(sd.name,"  ",sd.strength,"  #  ",o.qty)
     AS drug_name,du.shortlist, concat(su.name1," ",su.name2) AS sp_use_name,
     IF(concat(su.name1," ",su.name2)<>"",concat(su.name1," ",su.name2),du.shortlist) AS wd_name
     FROM opitemrece o
     LEFT OUTER JOIN s_drugitems sd ON sd.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']+'"
 

หรือจะใช้ pascal script ก็ได้ครับ ผมใช้อยู่้

white

อ้างจาก: SrWoOd ที่ ตุลาคม 10, 2008, 10:57:04 AM

ลองแบบนี้ดูครับ อีกทางเลือกหนึ่งครับ

ไม่รู้จะตรงใจหรือป่าวครับ

ผมลองแล้วได้ตามต้องการแล้วครับ
เพียงแต่ไม่เข้าใจส่วน if ครับ
ถ้าเป็นไปได้ช่วยอธิบายนิดนึงนะครับ
select concat(sd.name," ",sd.strength," # ",o.qty)
as drug_name,du.shortlist, concat(su.name1," ",su.name2) as sp_use_name,
if(concat(su.name1," ",su.name2)<>"",concat(su.name1," ",su.name2),du.shortlist) as wd_name
from opitemrece o

แปลว่า wd_name เอาข้อมูลจาก concat(su.name1," ",su.name2)
ถ้า concat(su.name1," ",su.name2) <>"" จะใช้ค่า concat(su.name1," ",su.name2)
แต่ถ้าไม่ใช่ จะใช้ค่า du.shortlist ใช่ไหมครับ

white

ด้านบน ผมว่าเข้าใจแล้วล่ะครับ
แต่อยากถามเพิ่ม (อีกแล้ว)
ตอนนี้ผมจะแก้ให้จำกัดรายการยาจาก income แทน
(แอบยึดกระทู้เก่าคนอื่น)

procedure TitleBeforeGenerate;
begin
ChangeDBPipeLineLink1SQL('select concat(sd.name," ",sd.strength," # ",o.qty) '+
'as drug_name,du.shortlist, concat(su.name1," ",su.name2) as sp_use_name,'+
'if(concat(su.name1," ",su.name2)<>"",concat(su.name1," ",su.name2),du.shortlist) as use_name '+
'from opitemrece o '+
'left outer join s_drugitems sd on sd.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.income NOT IN ('1','6','7','10','12') and o.vn = "'+DBPipeline['vn']+'" ');

end;

code ตามนี้ run ไม่ผ่านครับ
หรือว่าใช้ function NOT IN ไม่ได้ครับ

Khuad

อ้างจาก: white ที่ ตุลาคม 12, 2008, 15:42:12 PM

code ตามนี้ run ไม่ผ่านครับ
หรือว่าใช้ function NOT IN ไม่ได้ครับ

...คุณหมอลองเปลี่ยน NOT IN ('1','6','7','10','12') เป็น NOT IN ("1","6","7","10","12") ก็น่าจะได้นะครับ..

...

white

อ้างจาก: Khuad ที่ ตุลาคม 12, 2008, 16:54:39 PM

อ้างจาก: white ที่ ตุลาคม 12, 2008, 15:42:12 PM

code ตามนี้ run ไม่ผ่านครับ
หรือว่าใช้ function NOT IN ไม่ได้ครับ

...คุณหมอลองเปลี่ยน NOT IN ('1','6','7','10','12') เป็น NOT IN ("1","6","7","10","12") ก็น่าจะได้นะครับ.. ...

ขอบคุณครับ
run ผ่านแล้ว
ก็ว่า งมอยู่ตั้งนาน

white

อ้างจาก: white ที่ ตุลาคม 12, 2008, 15:42:12 PM

procedure TitleBeforeGenerate;
begin
ChangeDBPipeLineLink1SQL('select concat(sd.name," ",sd.strength," # ",o.qty) '+
'as drug_name,du.shortlist, concat(su.name1," ",su.name2) as sp_use_name,'+
'if(concat(su.name1," ",su.name2)<>"",concat(su.name1," ",su.name2),du.shortlist) as use_name '+
'from opitemrece o '+
'left outer join s_drugitems sd on sd.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.income NOT IN ('1','6','7','10','12') and o.vn = "'+DBPipeline['vn']+'" ');

end;

รบกวนอาจารย์ทั้งหลายเพิ่มอีกครับ
พบปัญหาว่า o.income ที่อยู่ใน NOT IN ยังแสดงอยู่
เข้าใจว่า คำสั่งมีผลต่อรายการแรกเท่านั้น
เช่นรายการแรกเป็นค่าบริการ ซึ่ง income = 12 รายการนี้จะไม่แสดง
แต่รายการต่อๆจากนั้น เช่นค่าตรวจ Glucose ซึ่ง income = 7 จะแสดงอยู่ทั้งหมด

คำถาม
1.ทำยังไงให้คำสั่งมีผลต่อรายการทั้งหมด
2.ต้องย้ายทำสั่งไปอยู่ส่วนไหนครับ
ตอนนี้ใช้ subreport ลักษณะเดียวกับที่อาจารย์ขวดโพสต์ในกระทู้นี้ครับ
3.procedure TitleBeforeGenerate แปลว่าอะไรครับ

ขอบคุณมากครับ
(ทำreportเสร็จอันนึง ได้ความรู้เพิ่มขึ้นเยอะเลย)

white

หรือว่าต้องให้ subreport ไปอยู่ band detail แทน
แล้วเปลี่ยนเป็น procedure DetailBeforeGenerate;

ไม่รู้จะจัด subreport ให้ไปอยู่ band detail ยังไงดี เพราะมันแบ่งเป็น 2 column
ถ้าต้องทำแบบนี้จริง ขอคำแนะนำครับ

SrWooD

ตอบข้อ 1. ครับ

o.income มีค่าเป็น string ลักษะที่เก็บเป็น 2 หลักครับ

เพราะฉะนั้นจึงมีผลกับ income = 12 แต่ไม่มีผลกับ income = 7 ครับ

คุณหมอลองเปลี่ยนเป็น

o.income not in ("01","06","07","10,"12")

ตอบข้อ 2. ครับ

ลองทำข้อ 1. ก่อนครับ ยังไม่ต้องย้ายน่าจะเป็นคำสั่ง sql ที่มีปัญหาครับ

ตอบข้อ 3. ครับ

เดาว่าคุณหมอคงวาง subreport ไว้ีที่ title ของ report

procedure TitleBeforeGenerate จึงน่าจะเป็นการประมวลผลที่ส่วนของ title ก่อนการแสดงข้อมูลครับ

น่าจะเป็นโครงสร้างการทำงานของโปรแกรมครับ (เดาครับ)

เดี๋ยวรอ อ.ท่านอื่นตอบบ้างครับ

ลองดูครับ

Khuad

อ้างจาก: SrWoOd ที่ ตุลาคม 15, 2008, 08:38:07 AM

คุณหมอลองเปลี่ยนเป็น

o.income not in ("01","06","07","10,"12")

....ขอบคุณ อ.SrWoOd ครับ..

....ตอนที่ผมตอบคุณหมอ white ไป ลืมดูครับ ขออภัยคุณหมอด้วย..

....

SrWooD

ไม่รู้้คุณหมอ White ทำได้หรือยัง เงียบไปเลยครับ

ถ้าทำได้แล้วก็ post report ไว้ให้ท่านอื่นใช้บ้างก็ได้ครับ

white

อ้างจาก: SrWoOd ที่ ตุลาคม 15, 2008, 20:18:52 PM

ไม่รู้้คุณหมอ White ทำได้หรือยัง เงียบไปเลยครับ

ถ้าทำได้แล้วก็ post report ไว้ให้ท่านอื่นใช้บ้างก็ได้ครับ

ขอบคุณท่าน SrWood และท่านขวดมากครับ
ผมพลาดไม่ดูให้ดีเอง
จะตอบตั้งหลายทีแต่ ไม่ได้ log in ใช้คอมอื่น ก็เลยไม่ได้ตอบตั้งแต่แรก

ยังจัด OPD card ยังไม่เสร็จเลยยังไม่ได้โพสต์ครับ
พอดี รพ.ผมเดิมใช้ OPD card แบบ preprint ข้อมูลบางส่วน
แล้วมา print อักษรเพิ่มเอา
ผมกำลังจะปรับให้เป็นแบบท่านอื่นๆ ให้พิมพ์จากกระดาษเปล่าเลย

ผู้เขียน หัวข้อ: ถึงคุณ asawincyberและ อ.ทุกท่าน เรื่อง OPD card ไม่ให้แสดง รายการเวชภัณฑ์ (อ่าน 15105 ครั้ง)

doramon