อยากเพิ่มรหัสโรคและชื่อโรคภาษาอังกฤษในใบเสร็จรับเงิน

[Red'A'rmY]

อยากเพิ่มรหัสโรคและชื่อโรคภาษาอังกฤษในใบเสร็จรับเงิน

[pop_hosxp]

ใส่ variable ตัวหนึ่งลงไป แล้วใช้คำสั่งนี้วางลงไปครับ

โค๊ด: Delphi

1. value:=GetSQLStringData('select concat(v.pdx," ",i.name) as pdx_name from vn_stat v, icd101 i where v.pdx=i.code and v.vn="'+dbpipeline['vn']+'" ');

[Red'A'rmY]

เดี๊ยวลองดูครับ เพราะมันเป็นรายงานตัว system เลยงงๆๆ นะ

[pop_hosxp]

ขอแก้ตัวใหม่ครับ  ลืมดูว่าเป็น system report ที่ใช้ tempreport

ต้องใช้คำสั่งตัวนี้แทนครับ

โค๊ด: Delphi

1. value:=GetSQLStringdata('select concat(v.pdx," ",i.name) as pdx_name from rcpt_print r'+
2. ' left outer join vn_stat v on v.vn=r.vn '+
3. ' left outer join icd101 i on i.code=v.pdx '+
4. ' where r.finance_number="'+dbpipeline['name10']+'" ');

[Red'A'rmY]

ขอบคุณมากครับ

[navyNP]

ขอสอบถามเพื่อประดับความรู้หน่อยคับว่าชื่อโรคในใบเสร็จนั้นสำคัญไฉน บ้างก็ชื่อไทย(โดยบอกว่าเจ้าหน้าที่ผู้ตรวจสอบเอกสารการเบิกเงินมิได้เป็นเจ้าหน้าที่สายแพทย์) บ้างก็เป็นชื่อภาษาอังกฤษ บ้างก็มีแค่รหัส ICD10 ตกลงที่ถูกต้อง มีระเบียบอะไรอ้างอิงบ้างไหมครับ ขอความกระจ่างหน่อย