BMS-HOSxP Community

HOSxP => Report Exchange => ข้อความที่เริ่มโดย: yokyai ที่ มีนาคม 07, 2013, 11:32:32 AM

หัวข้อ: รบกวนช่วยดู Scripts ด้วยครับ
เริ่มหัวข้อโดย: yokyai ที่ มีนาคม 07, 2013, 11:32:32 AM

  i1:=getsqlstringdata('select icd10 from ovstdiag '+
  ' where vn="'+DBPipeline['vn']+'" '+
  ' and icd10 in ("b200","b201","b202","b203","b204","b205","b206","b207","b208","b209" '+
  ' ,"b21","b210","b211","b212","b213","b217","b218","b219" '+
  ' ,"b22","b221","b222","b227","b213","b23","b230","b231","b233","b238","b24")');

  if Value=i1 then
  Value:='---'
  else
  Value:=DBPipeline['diagnosis_name'];
  end;

ถ้าเป็นรหัสทีกำหนดไม่ให้แสดงชื่อ แต่ถ้ารหัสอื่นๆนอกเหนือจากนี้ให้แสดงชื่อตามปกติครับ ลองมาหลายแบบแล้วครับ เลยย้อนกลับมาแบบ basic สุดๆ ก็ยังไม่ได้อีกครับ ขอบคุณครับ

หัวข้อ: Re: รบกวนช่วยดู Scripts ด้วยครับ
เริ่มหัวข้อโดย: เกื้อกูล ครับ.. ที่ มีนาคม 07, 2013, 11:39:03 AM

 i1:=getsqlstringdata('select icd10 from ovstdiag '+
  ' where vn="'+DBPipeline['vn']+'" '+
  ' and icd10 like "B2%"');

  if Value=i1 then
  Value:='---'
  else
  Value:=DBPipeline['diagnosis_name'];
  end;


ได้ไหมครับ

หัวข้อ: Re: รบกวนช่วยดู Scripts ด้วยครับ
เริ่มหัวข้อโดย: yokyai ที่ มีนาคม 07, 2013, 11:45:31 AM

  Value:=DBPipeline['pdx'];

  if Value='B24' then
  begin
  Value:='---'
  end else
  Value:=DBPipeline['diagnosis_name'];
  end;
 แบบนี้ได้ครับ สงสัย ต้องใส่ว่า or ..... or ..... หรือเปล่าครับ

หัวข้อ: Re: รบกวนช่วยดู Scripts ด้วยครับ
เริ่มหัวข้อโดย: yokyai ที่ มีนาคม 07, 2013, 11:47:10 AM

อ้างจาก: เกื้อกูล ครับ.. ที่ มีนาคม 07, 2013, 11:39:03 AM

i1:=getsqlstringdata('select icd10 from ovstdiag '+
  ' where vn="'+DBPipeline['vn']+'" '+
  ' and icd10 like "B2%"');

  if Value=i1 then
  Value:='---'
  else
  Value:=DBPipeline['diagnosis_name'];
  end;


ได้ไหมครับ

จะทดลองดูครับ แต่ B2% ทั้งหมดไม่ได้เป็น HIV ครับผม

หัวข้อ: Re: รบกวนช่วยดู Scripts ด้วยครับ
เริ่มหัวข้อโดย: yokyai ที่ มีนาคม 07, 2013, 11:50:29 AM

  Value:=DBPipeline['pdx'];
  if (Value='B24') or (Value='B238') or (Value='B237') or (Value='B233') then
  begin
  Value:='---'
  end else
  Value:=DBPipeline['diagnosis_name'];
  end;

หัวข้อ: Re: รบกวนช่วยดู Scripts ด้วยครับ
เริ่มหัวข้อโดย: yokyai ที่ มีนาคม 07, 2013, 15:12:07 PM

  Value:=DBPipeline['pdx'];
  if (Value='B20') or (Value='B200') or (Value='B201') or (Value='B202') or (Value='B203') or (Value='B204') or (Value='B205') or (Value='B206') or (Value='B207') or (Value='B208') or (Value='B209')
  or (Value='B21') or (Value='B210') or (Value='B211') or (Value='B212') or (Value='B213') or (Value='B217') or (Value='B218') or (Value='B219')
  or (Value='B22') or (Value='B220') or (Value='B221') or (Value='B222') or (Value='B227')
  or (Value='B23') or (Value='B230') or (Value='B231') or (Value='B232') or (Value='B233') or (Value='B238') or (Value='B24')
  or (Value='F024') or (Value='F0240') or (Value='F0241') or (Value='F0242') or (Value='F0243') or (Value='F0244')
  or (Value='O987') or (Value='R75') or (Value='Z114') or (Value='Z206') or (Value='Z21') or (Value='Z717') or (Value='Z830')
  then
  begin
  Value:='---'
  end else
  Value:=DBPipeline['diagnosis_name'];
  end;

ตามนี้ได้นะครับ แต่พอทำไปทำมา ได้บ้างไม่ได้บ้าง โชว์บ้างไม่โชว์บ้าง งงเลยครับ

หัวข้อ: Re: รบกวนช่วยดู Scripts ด้วยครับ
เริ่มหัวข้อโดย: เกื้อกูล ครับ.. ที่ มีนาคม 07, 2013, 18:42:10 PM

อ้างจาก: yokyai ที่ มีนาคม 07, 2013, 15:12:07 PM

  Value:=DBPipeline['pdx'];
  if (Value='B20') or (Value='B200') or (Value='B201') or (Value='B202') or (Value='B203') or (Value='B204') or (Value='B205') or (Value='B206') or (Value='B207') or (Value='B208') or (Value='B209')
  or (Value='B21') or (Value='B210') or (Value='B211') or (Value='B212') or (Value='B213') or (Value='B217') or (Value='B218') or (Value='B219')
  or (Value='B22') or (Value='B220') or (Value='B221') or (Value='B222') or (Value='B227')
  or (Value='B23') or (Value='B230') or (Value='B231') or (Value='B232') or (Value='B233') or (Value='B238') or (Value='B24')
  or (Value='F024') or (Value='F0240') or (Value='F0241') or (Value='F0242') or (Value='F0243') or (Value='F0244')
  or (Value='O987') or (Value='R75') or (Value='Z114') or (Value='Z206') or (Value='Z21') or (Value='Z717') or (Value='Z830')
  then
  begin
  Value:='---'
  end else
  Value:=DBPipeline['diagnosis_name'];
  end;

ตามนี้ได้นะครับ แต่พอทำไปทำมา ได้บ้างไม่ได้บ้าง โชว์บ้างไม่โชว์บ้าง งงเลยครับ

งั้นลองเปลี่ยนเป็น ทำคอลัมน์ tname ของ B%   กลุ่มที่ใช่ HIV      เป็นคำว่า  HIV  แล้วปิดการแสดงผลได้แน่นอน ด้วย where tname="HIV"  ไม่ต้องแสดงชื่อโรคและรหัส..ครับ...

หัวข้อ: Re: รบกวนช่วยดู Scripts ด้วยครับ
เริ่มหัวข้อโดย: BBT Hospital ที่ มีนาคม 12, 2013, 18:46:00 PM

อ้างจาก: yokyai ที่ มีนาคม 07, 2013, 15:12:07 PM

  Value:=DBPipeline['pdx'];
  if (Value='B20') or (Value='B200') or (Value='B201') or (Value='B202') or (Value='B203') or (Value='B204') or (Value='B205') or (Value='B206') or (Value='B207') or (Value='B208') or (Value='B209')
  or (Value='B21') or (Value='B210') or (Value='B211') or (Value='B212') or (Value='B213') or (Value='B217') or (Value='B218') or (Value='B219')
  or (Value='B22') or (Value='B220') or (Value='B221') or (Value='B222') or (Value='B227')
  or (Value='B23') or (Value='B230') or (Value='B231') or (Value='B232') or (Value='B233') or (Value='B238') or (Value='B24')
  or (Value='F024') or (Value='F0240') or (Value='F0241') or (Value='F0242') or (Value='F0243') or (Value='F0244')
  or (Value='O987') or (Value='R75') or (Value='Z114') or (Value='Z206') or (Value='Z21') or (Value='Z717') or (Value='Z830')
  then
  begin
  Value:='---'
  end else
  Value:=DBPipeline['diagnosis_name'];
  end;

ตามนี้ได้นะครับ แต่พอทำไปทำมา ได้บ้างไม่ได้บ้าง โชว์บ้างไม่โชว์บ้าง งงเลยครับ

ขอลองดูตัวรายงานหน่อยได้ไหมครับ

หัวข้อ: Re: รบกวนช่วยดู Scripts ด้วยครับ
เริ่มหัวข้อโดย: C H O K E ที่ มีนาคม 12, 2013, 21:23:19 PM

ผมใช้วิธีคล้ายๆ พี่เกื้อครับ แต่ผมใช้เติมตัวอักษร H ในคอลัมน์ code5 แทน(ตอนนี้ไม่รู้ว่า code5 เอาไว้ทำอะไร) อย่างในรูป แล้วเอาคอมลัมน์นี้มาใช้เป็นเงื่อนไขใน script ครับ

ปล.เป็นวิธีแบบบ้านๆ แต่ได้ผลมานานแล้ว