ผู้เขียน หัวข้อ: วานใครเก่งเขียน script Query format นี้ได้ครับช่วยที Dicom+HOSxP (อ่าน 12299 ครั้ง)

chronoX · « **เมื่อ:** มกราคม 17, 2008, 17:24:48 PM »

--- เนื่องจากทางรพ.สมเด็จพระยุพราชท่าบ่อ ได้ทำการลงระบบ Computed Radiography System เข้ามาใช้
โดยมีหลักการคือ การแปลงภาพสแกน ที่จากเดิมที่เป็นฟิมล์ เป็น cassette แล้วนำไปแปลงเป็นภาพ Digital ที่เป็น ภาพของ dicom หรือ jpeg ได้ ขณะนี้ได้ทำระบบเข้าใช้จริง แต่ ยังติดปัญหาอีกนิดหน่อย คือ ต้องการจะใช้งานร่วมกับทางโปรแกรม HOSxp โดยจะต้องทำการเขียน script เพื่อสั่งให้เครื่องคอมพิวเตอรืที่ห้อง x-ray ทำการ query ไฟล์ ซึ่งมีรูปแบบตามไฟล์ที่แนบ

--- หลักการ คือ เมื่อมีการสั่ง xray คนไข้ กี่รายก็ตาม หรือกี่ครั้ง เมื่อบันทึกสั่ง จะมีการสร้างสคิป ดังกล่าวไว้ เมื่อทาง x-ray ได้ทำการ x-ray คนไข้แล้ว ทางเครื่อง CR ก็จะดึงข้อมูล ชื่อ -สกุล , hn , ชื่อแพทย์ที่สั่ง , วันเดือนปี ,อายุ ,ฟิมล์ที่ทำ เป็นต้น เพื่อลดระยะเวลาการกรอกข้อมูลที่ซ้ำซ้อน จากนั้น เมื่อแปลงรูปเสร็จ ก็เจ้าหน้าที่จะทำการยืนยันข้อมุลใน HOSxpว่าได้ทำเสร็จแล้ว จากนั้น เมื่อมีการสั่ง x-ray ใหม่ ก็จะมีการ query ไฟลืทับตัวเดิม ......

ปัญหาคือ ผมไม่รู้จะเริ่มยังงัย หรือเขียนยังงัย ไม่ทราบว่า มีผู้รู้ท่านใด เป็นเซียนเรื่องนี้บ้างครับ

doramon

สุดยอดเลยครับ
เดียวเก็บเงิน ซื้อเครื่องก่อนครับ

anukul

น่าสนใจมากเลยครับ

รบกวนขอข้อมูลเพิ่มเติม เกี่ยวกับ เจ้าเครื่อง iCR1000 ได้มั๊ยครับ ว่าทางรพร.ท่าบ่อ เลือกใช้รุ่นไหนครับ dual หรือเปล่า ใช้แล้วเป็นอย่างไรบ้างครับ คุณภาพเป็นยังไง ต้องใช้จอ monitor พิเศษหรือ ใช้จอ LCD ธรรมดาก็ดูได้ครับ แล้วการ scan film เก่า ได้ลองหรือยังครับ

ไม่กล้าถามราคา แต่อยากทราบว่า ประมาณกี่หลักครับ

doramon

อ้างจาก: chronoX ที่ มกราคม 17, 2008, 17:24:48 PM

--- เนื่องจากทางรพ.สมเด็จพระยุพราชท่าบ่อ ได้ทำการลงระบบ Computed Radiography System เข้ามาใช้
โดยมีหลักการคือ การแปลงภาพสแกน ที่จากเดิมที่เป็นฟิมล์ เป็น cassette แล้วนำไปแปลงเป็นภาพ Digital ที่เป็น ภาพของ dicom หรือ jpeg ได้ ขณะนี้ได้ทำระบบเข้าใช้จริง แต่ ยังติดปัญหาอีกนิดหน่อย คือ ต้องการจะใช้งานร่วมกับทางโปรแกรม HOSxp โดยจะต้องทำการเขียน script เพื่อสั่งให้เครื่องคอมพิวเตอรืที่ห้อง x-ray ทำการ query ไฟล์ ซึ่งมีรูปแบบตามไฟล์ที่แนบ

--- หลักการ คือ เมื่อมีการสั่ง xray คนไข้ กี่รายก็ตาม หรือกี่ครั้ง เมื่อบันทึกสั่ง จะมีการสร้างสคิป ดังกล่าวไว้ เมื่อทาง x-ray ได้ทำการ x-ray คนไข้แล้ว ทางเครื่อง CR ก็จะดึงข้อมูล ชื่อ -สกุล , hn , ชื่อแพทย์ที่สั่ง , วันเดือนปี ,อายุ ,ฟิมล์ที่ทำ เป็นต้น เพื่อลดระยะเวลาการกรอกข้อมูลที่ซ้ำซ้อน จากนั้น เมื่อแปลงรูปเสร็จ ก็เจ้าหน้าที่จะทำการยืนยันข้อมุลใน HOSxpว่าได้ทำเสร็จแล้ว จากนั้น เมื่อมีการสั่ง x-ray ใหม่ ก็จะมีการ query ไฟลืทับตัวเดิม ......

ปัญหาคือ ผมไม่รู้จะเริ่มยังงัย หรือเขียนยังงัย ไม่ทราบว่า มีผู้รู้ท่านใด เป็นเซียนเรื่องนี้บ้างครับ

ต้อง พา อ.ชัยพร ไปเที่ยว รพ ครับแบบนี้

Noppadol

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

chronoX

ตอบ พี่หนุ่ยครับ ... คงเป็นเร็วๆนี้น่ะ ครับ แล้วยังงัยจะแจ้งให้ทราบครับ
------------------------------------------------------------------------------------------------------
รบกวนขอข้อมูลเพิ่มเติม เกี่ยวกับ เจ้าเครื่อง iCR1000 ได้มั๊ยครับ ว่าทางรพร.ท่าบ่อ เลือกใช้รุ่นไหนครับ dual หรือเปล่า ใช้แล้วเป็นอย่างไรบ้างครับ คุณภาพเป็นยังไง ต้องใช้จอ monitor พิเศษหรือ ใช้จอ LCD ธรรมดาก็ดูได้ครับ แล้วการ scan film เก่า ได้ลองหรือยังครับ

ไม่กล้าถามราคา แต่อยากทราบว่า ประมาณกี่หลักครับ
------------------------------------------------------------------------------------------------------
เครื่อง iCR1000 ไม่ใช่รุ่น dual ครับ ตอนนี้กำลังทดสอบการดูภาพใช้ดูจาก software ของทางบริษัทโดยผ่าน browser ครับ การเปรียบเทียบภาพ ต่าง หรือภาพก็ค่อนข้างโอเคครับ
ส่วนผู้ใช้คือ แพทย์ และเจ้าหน้าที่เอ็กซเรย์ ก้กำลังปรับตัว ส่วนจอที่ใช้โดยส่วนมากที่ห้องตรวจจะเป็นจอ LCD ซึ่งทางแพทย์ก็บอกว่าดูได้ชัดเจนดี แต่เพียงว่าจอมันเล็กไปนิดนึง (เป็นจอ LCD 15 และ 17 นิ้วครับ ) ส่วนถ้าจะดูรูปใหญ่และที่ชัดเจนจริงก็จะมีเครื่องและจอของทางบริษัทที่ลงระบบอยู่ที่ห้องเอ็กซเรย์ ส่วนค่าใช้จ่ายคิดเป็นรายเดือนครับ ส่วนราคาน่าจะเดือนละ 6 หลักนี่ล่ะครับ
ส่วนฟิลม์เก่า ยังไม่ได้ลองสักเท่าไหร่ครับ เพราะตอนนี้ทดสอบคนไข้ปัจจุบันให้ลงตัวก่อน
ถ้ามีความคืบหน้าหรือปัญหาอะไรจะแจ้งให้ชาว HOSxP ทราบอีกทีครับ

anukul

รบกวนคุณ chronoX ไม่ทราบว่า ขอเบอร์ติดต่อทางบริษัทได้มั๊ยครับ ค้นหาไม่เจอ บ. transtek co.

chronoX

เผอิญหยุดกลับบ้านที่ ขอนแก่น เสาร์-อาทิตย์ เลยไม่ได้ตอบ
ติดต่อที่
----- คุณ กิตติพล แพงไพจิตรกุล
บริษัท ทรานสเทค จำกัด
โทร. 0 2883 5815 มือถือ 086 5708240
หรือ คุณตี๋ มือถือ - 089 5591686

anukul

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

doramon

มาตราฐานที่ต้องมี

1. IHE

http://www.ihe.net/

2. HL7

3. DICOM3

chronoX

ไม่ทราบว่าจะพอมีคนช่วยมั้ยครับ

?
หมดปัญญาจริงๆ

naikorn

สวัสดีครับขอ ตอบคำถามให้ครับ
- การจะทำให้เครื่อง Modality ต่างๆ สามารพทำการ query data ข้อมูลของคนไข้ได้นั้น ต้องมีโปรแกรมหรือเครื่องคอมพิวเตอร์
ตัวหนึ่งที่ทำหน้าที่เป็น DMWL หรือ Dicom Modality Work List ซึ่งไอ้เจ้าตัวนี้จะทำการ รับข้อมูลคนไข้ที่ถูกส่งมาจาก HIS หรือ RIS โดยจะต้องรับข้อมูลเป็นในรูปแบบ HL7
- แล้วถ้าตัวส่งข้อมูล (HIS หรือ RIS) ที่มันไม่ส่งเป็นแบบ HL7 เราจะทำอย่างไร
เราก็สามารถทำได้ โดยเราเขียนโปรแกรมตัวหนึ่งให้ทำการ Query ข้อมูลชื่อคนไข้ขึ้นมา แล้วส่งเข้า DMWL
หรือเราเขียน DMWL แล้วส่งข้อมูลเข้า Modality ............................. ทำได้หลายแบบ..... (ทำ Broker) ..จบ

doramon

อ้างจาก: chronoX ที่ มกราคม 22, 2008, 09:07:34 AM

ไม่ทราบว่าจะพอมีคนช่วยมั้ยครับ ?
หมดปัญญาจริงๆ

ติดต่อกลับผมด้วยครับ

manoi

ต้องใช้ 3.51.1.29b ครับ

เมื่อ check ตรงตัวเลือก ris export แล้วกดปุ่มบันทึกโปรแกรมจะไปเรียก script ของระบบชื่อ SYS_RIS_EXPORT มาทำงานครับ

ที่ต้องทำคือไปออกแบบ script ตัวนี้ให้รับค่า GlobalVariable ชื่อ XN แล้วนำไปหาค่าในตาราง xray_report แล้วส่งข้อมูลออกมาครับ

doramon

อ้างจาก: manoi ที่ มกราคม 29, 2008, 11:36:54 AM

ต้องใช้ 3.51.1.29b ครับ

เมื่อ check ตรงตัวเลือก ris export แล้วกดปุ่มบันทึกโปรแกรมจะไปเรียก script ของระบบชื่อ SYS_RIS_EXPORT มาทำงานครับ

ที่ต้องทำคือไปออกแบบ script ตัวนี้ให้รับค่า GlobalVariable ชื่อ XN แล้วนำไปหาค่าในตาราง xray_report แล้วส่งข้อมูลออกมาครับ

เรื่องการแสดงภาพ xray จากเครื่อง icr1000 ต้องรบกวนทำแบบ เรียกผ่าน browser เหมือน webmayo
ที่ห้องตรวจ ครับ

anukul

...ออกแบบ script ตัวนี้ให้รับค่า GlobalVariable ชื่อ XN แล้วนำไปหาค่าในตาราง xray_report ...

ทำยังไงครับ แฮ่ๆๆ ช่วยแสดงวิธีทำหน่อยได้มั๊ยครับ

doramon

ผมจำ รูปแบบของที่จะนำเข้า โปรแกรม icr1000 ไม่ได้แล้ว

ช่วยส่งมาให้ด้วย เลยไม่รู้ว่าจะทำให้แบบไหน

unit SYS_SCREEN_FORM;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls, Mask, DBCtrls, DB, DBClient, Grids, DBGrids;

type
TForm29 = class(TForm)
Panel1: TPanel;
Panel2: TPanel;
Button1: TButton;
Panel3: TPanel;
ScreenCDS: TClientDataSet;
ScreenDS: TDataSource;
Label1: TLabel;
DBEdit1: TDBEdit;
Label2: TLabel;
DBEdit2: TDBEdit;
Label3: TLabel;
DBMemo1: TDBMemo;
Button2: TButton;
Button3: TButton;
Button4: TButton;
CM1DS: TDataSource;
CM1CDS: TClientDataSet;
Button5: TButton;
Button6: TButton;
Button7: TButton;
Button8: TButton;
Button9: TButton;
Button10: TButton;
DBGrid1: TDBGrid;
procedure Button1Click(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure Button5Click(Sender: TObject);
procedure Button6Click(Sender: TObject);
procedure Button7Click(Sender: TObject);
procedure Button8Click(Sender: TObject);
procedure Button9Click(Sender: TObject);
procedure Button10Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form29: TForm29;
vn,hn:string;

implementation

{$R *.dfm}

procedure TForm29.Button10Click(Sender: TObject);
begin
cm1cds.insert;
cm1cds.fieldbyname('hn').asstring:=hn;
cm1cds.fieldbyname('clinic').asstring:='011';
try cm1cds.post; except end;

if cm1cds.changecount>0 then
hosxp_updatedelta(cm1cds.delta,'select * from clinicmember where hn = "'+hn+'"');
// close;
end;

procedure TForm29.Button1Click(Sender: TObject);
begin
close;
end;

procedure TForm29.Button2Click(Sender: TObject);
begin
try screencds.post; except end;

if screencds.changecount>0 then
hosxp_updatedelta(screencds.delta,'select * from opdscreen where vn = "'+vn+'"');
close;
end;

procedure TForm29.Button3Click(Sender: TObject);
begin
RunHOSxP_ScriptProgram('SYS_SCREEN_FORM');
end;

procedure TForm29.Button4Click(Sender: TObject);
begin
PrintReportWithParam('DRUG LIST-1','','','','','','','','','','');

//PrintReportToPrinterWithParam
end;

procedure TForm29.Button5Click(Sender: TObject);
begin
cm1cds.insert;
cm1cds.fieldbyname('hn').asstring:=hn;
cm1cds.fieldbyname('clinic').asstring:='001';
try cm1cds.post; except end;

if cm1cds.changecount>0 then
hosxp_updatedelta(cm1cds.delta,'select * from clinicmember where hn = "'+hn+'"');
// close;
end;

procedure TForm29.Button6Click(Sender: TObject);
begin
cm1cds.insert;
cm1cds.fieldbyname('hn').asstring:=hn;
cm1cds.fieldbyname('clinic').asstring:='002';
try cm1cds.post; except end;

if cm1cds.changecount>0 then
hosxp_updatedelta(cm1cds.delta,'select * from clinicmember where hn = "'+hn+'"');
// close;
end;

procedure TForm29.Button7Click(Sender: TObject);
begin
cm1cds.insert;
cm1cds.fieldbyname('hn').asstring:=hn;
cm1cds.fieldbyname('clinic').asstring:='009';
try cm1cds.post; except end;

if cm1cds.changecount>0 then
hosxp_updatedelta(cm1cds.delta,'select * from clinicmember where hn = "'+hn+'"');
// close;
end;

procedure TForm29.Button8Click(Sender: TObject);
begin
cm1cds.insert;
cm1cds.fieldbyname('hn').asstring:=hn;
cm1cds.fieldbyname('clinic').asstring:='003';
try cm1cds.post; except end;

if cm1cds.changecount>0 then
hosxp_updatedelta(cm1cds.delta,'select * from clinicmember where hn = "'+hn+'"');
// close;
end;

procedure TForm29.Button9Click(Sender: TObject);
begin
cm1cds.insert;
cm1cds.fieldbyname('hn').asstring:=hn;
cm1cds.fieldbyname('clinic').asstring:='012';
try cm1cds.post; except end;

if cm1cds.changecount>0 then
hosxp_updatedelta(cm1cds.delta,'select * from clinicmember where hn = "'+hn+'"');
// close;
end;

procedure TForm29.FormShow(Sender: TObject);
begin
vn:= GetGlobalValue('VN');
hn:= vartostr(getsqldata('select hn from ovst where vn = "'+
vn+'"'));
panel3.caption:='VN : '+vn+ ' HN : '+
vartostr(getsqldata('select concat(pname,fname," ",lname) as ptname from patient where hn = "'+
hn+'"' ))+'-->'+vartostr(GetSQLSubQueryData('select c.name from clinicmember cm left outer join clinic c on c.clinic=cm.clinic where cm.hn= "'+
hn+'"' ));

screencds.data:=hosxp_getdataset('select * from opdscreen where vn = "'+vn+'"');
CM1cds.data:=hosxp_getdataset('select * from clinicmember where hn = "'+hn+'"')
end;

end.

chronoX

อ้างจาก: doraemon(saiyok) ที่ มกราคม 29, 2008, 11:42:27 AM

อ้างจาก: manoi ที่ มกราคม 29, 2008, 11:36:54 AM
ต้องใช้ 3.51.1.29b ครับ

เมื่อ check ตรงตัวเลือก ris export แล้วกดปุ่มบันทึกโปรแกรมจะไปเรียก script ของระบบชื่อ SYS_RIS_EXPORT มาทำงานครับ

ที่ต้องทำคือไปออกแบบ script ตัวนี้ให้รับค่า GlobalVariable ชื่อ XN แล้วนำไปหาค่าในตาราง xray_report แล้วส่งข้อมูลออกมาครับ

เรื่องการแสดงภาพ xray จากเครื่อง icr1000 ต้องรบกวนทำแบบ เรียกผ่าน browser เหมือน webmayo
ที่ห้องตรวจ ครับ

บ.จะมีโปรแกรมที่ดูภาพ โดยผ่าน browser อยู่แล้วครับ ถ้า set url ให้ตรงแล้วกดปุ่มลิงค์ก็สามารถทำได้ อีกอย่างระบบจะมีการเก็บภาพอยุ่ที่ server ที่ห้องเอ็กซเรย์ โดยไม่ต้องนำเข้าในฐานข้อมูลของ HOSxP เลย ทำให้ประหยัดพื้นที่ไปได้เยอะเลยครับ เพราะไฟล์dicom 1 ไฟล์ ขนาด 8-12 MB เลยที่เดียว

chronoX

ผมจำ รูปแบบของที่จะนำเข้า โปรแกรม icr1000 ไม่ได้แล้ว

ช่วยส่งมาให้ด้วย เลยไม่รู้ว่าจะทำให้แบบไหน

ตอบ -----> อ.อ๊อด นะครับ ไฟล์ตามที่ผมแนบให้ในกระทู้แรกครับ ชื่อว่า $$dcmWLQuery.nrs
ใช้ editer หรือ notepad เปิดนะครับ หรือ ถ้าอ.อ๊อดสงสัย โทร 086-5802848 ในเวลาราชการนะครับ

doramon

New Record
"(0008,0050),SH,0,AccessionNumber"
"(0008,0090),PN,0,ReferringPhysician’sName"
"(0010,0010),PN,8,Patient’sName"   mr test
"(0010,0020),LO,4,PatientID"   8888
"(0010,0030),DA,0,Patient'sBirthDate"
"(0010,0040),CS,0,Patient'sSex"
"(0032,1033),LO,0,RequestingService"
"(0032,1060),LO,0,RequestedProcedureDescription"
"(0040,0100),SQ,-1,ScheduledProcedureStepSequence"   (null)
"<(0008,0060),CS,2,Modality"   CR
"<(0040,0001),AE,0,ScheduledStationAETitle"
"<(0040,0002),DA,0,ScheduledProcedureStepStartDate"
"<(0040,0003),TM,0,ScheduledProcedureStepStartTime"
"<(0040,0009),SH,0,ScheduledProcedureStepID"
"(0040,1001),SH,0,RequestedProcedureID"
New Record
"(0008,0050),SH,8,AccessionNumber"   2002-37
"(0008,0090),PN,10,ReferringPhysician’sName"   Elke Jauch
"(0010,0010),PN,12,Patient’sName"   Hoerer^Emmet
"(0010,0020),LO,4,PatientID"   1670
"(0010,0030),DA,8,Patient'sBirthDate"   19760223
"(0010,0040),CS,2,Patient'sSex"   F
"(0032,1033),LO,24,RequestingService"   US-DRAINAGE GUIDE LIVER
"(0032,1060),LO,24,RequestedProcedureDescription"   US-DRAINAGE GUIDE LIVER
"(0040,0100),SQ,-1,ScheduledProcedureStepSequence"   (null)
"<(0008,0060),CS,2,Modality"   US
"<(0040,0001),AE,10,ScheduledStationAETitle"   AE_NETRIS
"<(0040,0002),DA,8,ScheduledProcedureStepStartDate"   20021202
"<(0040,0003),TM,6,ScheduledProcedureStepStartTime"   112107
"<(0040,0009),SH,8,ScheduledProcedureStepID"   2002-37
"(0040,1001),SH,6,RequestedProcedureID"   70003
New Record
"(0008,0050),SH,8,AccessionNumber"   2002-36
"(0008,0090),PN,12,ReferringPhysician’sName"   Ardra Vieser
"(0010,0010),PN,14,Patient’sName"   Goedecke^Arndt
"(0010,0020),LO,4,PatientID"   1667
"(0010,0030),DA,8,Patient'sBirthDate"   19450811
"(0010,0040),CS,2,Patient'sSex"   F
"(0032,1033),LO,24,RequestingService"   US-DRAINAGE GUIDE LIVER
"(0032,1060),LO,24,RequestedProcedureDescription"   US-DRAINAGE GUIDE LIVER
"(0040,0100),SQ,-1,ScheduledProcedureStepSequence"   (null)
"<(0008,0060),CS,2,Modality"   US
"<(0040,0001),AE,10,ScheduledStationAETitle"   AE_NETRIS
"<(0040,0002),DA,8,ScheduledProcedureStepStartDate"   20021130
"<(0040,0003),TM,6,ScheduledProcedureStepStartTime"   85140
"<(0040,0009),SH,8,ScheduledProcedureStepID"   2002-36
"(0040,1001),SH,6,RequestedProcedureID"   70003
New Record
"(0008,0050),SH,8,AccessionNumber"   2002-35
"(0008,0090),PN,10,ReferringPhysician’sName"   Elke Jauch
"(0010,0010),PN,12,Patient’sName"   Corbet^Jenny
"(0010,0020),LO,4,PatientID"   1674
"(0010,0030),DA,8,Patient'sBirthDate"   19781125
"(0010,0040),CS,2,Patient'sSex"   F
"(0032,1033),LO,30,RequestingService"   US-ASPIRAT GUIDE/ABD/PELVI NN
"(0032,1060),LO,30,RequestedProcedureDescription"   US-ASPIRAT GUIDE/ABD/PELVI NN
"(0040,0100),SQ,-1,ScheduledProcedureStepSequence"   (null)
"<(0008,0060),CS,2,Modality"   US
"<(0040,0001),AE,10,ScheduledStationAETitle"   AE_NETRIS
"<(0040,0002),DA,8,ScheduledProcedureStepStartDate"   20021130
"<(0040,0003),TM,6,ScheduledProcedureStepStartTime"   84043
"<(0040,0009),SH,8,ScheduledProcedureStepID"   2002-35
"(0040,1001),SH,6,RequestedProcedureID"   70006
New Record
"(0008,0050),SH,8,AccessionNumber"   2002-34
"(0008,0090),PN,10,ReferringPhysician’sName"   Elke Jauch
"(0010,0010),PN,18,Patient’sName"   Morweiser^Cassidy
"(0010,0020),LO,4,PatientID"   1673
"(0010,0030),DA,8,Patient'sBirthDate"   19441005
"(0010,0040),CS,2,Patient'sSex"   M
"(0032,1033),LO,6,RequestingService"   MAMMO
"(0032,1060),LO,6,RequestedProcedureDescription"   MAMMO
"(0040,0100),SQ,-1,ScheduledProcedureStepSequence"   (null)
"<(0008,0060),CS,2,Modality"   CT
"<(0040,0001),AE,10,ScheduledStationAETitle"   AE_NETRIS
"<(0040,0002),DA,8,ScheduledProcedureStepStartDate"   20021130
"<(0040,0003),TM,6,ScheduledProcedureStepStartTime"   84008
"<(0040,0009),SH,8,ScheduledProcedureStepID"   2002-34
"(0040,1001),SH,4,RequestedProcedureID"   1234
New Record
"(0008,0050),SH,8,AccessionNumber"   2002-33
"(0008,0090),PN,12,ReferringPhysician’sName"   Hedwig Baal
"(0010,0010),PN,16,Patient’sName"   Edinger^Wolfgang
"(0010,0020),LO,4,PatientID"   1672
"(0010,0030),DA,8,Patient'sBirthDate"   19320721
"(0010,0040),CS,2,Patient'sSex"   M
"(0032,1033),LO,6,RequestingService"   MAMMO
"(0032,1060),LO,6,RequestedProcedureDescription"   MAMMO
"(0040,0100),SQ,-1,ScheduledProcedureStepSequence"   (null)
"<(0008,0060),CS,2,Modality"   CT
"<(0040,0001),AE,10,ScheduledStationAETitle"   AE_NETRIS
"<(0040,0002),DA,8,ScheduledProcedureStepStartDate"   20021130
"<(0040,0003),TM,6,ScheduledProcedureStepStartTime"   83940
"<(0040,0009),SH,8,ScheduledProcedureStepID"   2002-33
"(0040,1001),SH,4,RequestedProcedureID"   1234
New Record
"(0008,0050),SH,8,AccessionNumber"   2002-32
"(0008,0090),PN,10,ReferringPhysician’sName"   Elke Jauch
"(0010,0010),PN,12,Patient’sName"   Hoerer^Emmet
"(0010,0020),LO,4,PatientID"   1670
"(0010,0030),DA,8,Patient'sBirthDate"   19760223
"(0010,0040),CS,2,Patient'sSex"   F
"(0032,1033),LO,18,RequestingService"   MRI-CERVICAL SPINE
"(0032,1060),LO,18,RequestedProcedureDescription"   MRI-CERVICAL SPINE
"(0040,0100),SQ,-1,ScheduledProcedureStepSequence"   (null)
"<(0008,0060),CS,2,Modality"   MR
"<(0040,0001),AE,10,ScheduledStationAETitle"   AE_NETRIS
"<(0040,0002),DA,8,ScheduledProcedureStepStartDate"   20021128
"<(0040,0003),TM,6,ScheduledProcedureStepStartTime"   92025
"<(0040,0009),SH,8,ScheduledProcedureStepID"   2002-32
"(0040,1001),SH,6,RequestedProcedureID"   70803
New Record
"(0008,0050),SH,8,AccessionNumber"   2002-26
"(0008,0090),PN,10,ReferringPhysician’sName"   Monica Hey
"(0010,0010),PN,10,Patient’sName"   Giro^Adolf
"(0010,0020),LO,4,PatientID"   1675
"(0010,0030),DA,8,Patient'sBirthDate"   19800911
"(0010,0040),CS,2,Patient'sSex"   F
"(0032,1033),LO,26,RequestingService"   MRI-BRAIN W/ W/O CONTRAST
"(0032,1060),LO,26,RequestedProcedureDescription"   MRI-BRAIN W/ W/O CONTRAST
"(0040,0100),SQ,-1,ScheduledProcedureStepSequence"   (null)
"<(0008,0060),CS,2,Modality"   MR
"<(0040,0001),AE,10,ScheduledStationAETitle"   AE_NETRIS
"<(0040,0002),DA,8,ScheduledProcedureStepStartDate"   20021128
"<(0040,0003),TM,6,ScheduledProcedureStepStartTime"   70427
"<(0040,0009),SH,8,ScheduledProcedureStepID"   2002-26
"(0040,1001),SH,6,RequestedProcedureID"   70802
New Record
"(0008,0050),SH,8,AccessionNumber"   2002-25
"(0008,0090),PN,12,ReferringPhysician’sName"   Hedwig Baal
"(0010,0010),PN,12,Patient’sName"   Denzer^Eric
"(0010,0020),LO,4,PatientID"   1677
"(0010,0030),DA,8,Patient'sBirthDate"   19401027
"(0010,0040),CS,2,Patient'sSex"   M
"(0032,1033),LO,22,RequestingService"   MRI-BRAIN W/ CONTRAST
"(0032,1060),LO,22,RequestedProcedureDescription"   MRI-BRAIN W/ CONTRAST
"(0040,0100),SQ,-1,ScheduledProcedureStepSequence"   (null)
"<(0008,0060),CS,2,Modality"   MR
"<(0040,0001),AE,10,ScheduledStationAETitle"   AE_NETRIS
"<(0040,0002),DA,8,ScheduledProcedureStepStartDate"   20021126
"<(0040,0003),TM,6,ScheduledProcedureStepStartTime"   84737
"<(0040,0009),SH,8,ScheduledProcedureStepID"   2002-25
"(0040,1001),SH,6,RequestedProcedureID"   70801
New Record
"(0008,0050),SH,8,AccessionNumber"   2002-24
"(0008,0090),PN,10,ReferringPhysician’sName"   Elke Jauch
"(0010,0010),PN,16,Patient’sName"   Ehrlich^Natascha
"(0010,0020),LO,4,PatientID"   1681
"(0010,0030),DA,8,Patient'sBirthDate"   19780929
"(0010,0040),CS,2,Patient'sSex"   F
"(0032,1033),LO,18,RequestingService"   MRI-CERVICAL SPINE
"(0032,1060),LO,18,RequestedProcedureDescription"   MRI-CERVICAL SPINE
"(0040,0100),SQ,-1,ScheduledProcedureStepSequence"   (null)
"<(0008,0060),CS,2,Modality"   MR
"<(0040,0001),AE,10,ScheduledStationAETitle"   AE_NETRIS
"<(0040,0002),DA,8,ScheduledProcedureStepStartDate"   20021126
"<(0040,0003),TM,6,ScheduledProcedureStepStartTime"   84723
"<(0040,0009),SH,8,ScheduledProcedureStepID"   2002-24
"(0040,1001),SH,6,RequestedProcedureID"   70803
New Record
"(0008,0050),SH,8,AccessionNumber"   2002-19
"(0008,0090),PN,10,ReferringPhysician’sName"   Elke Jauch
"(0010,0010),PN,18,Patient’sName"   Morweiser^Cassidy
"(0010,0020),LO,4,PatientID"   1673
"(0010,0030),DA,8,Patient'sBirthDate"   19441005
"(0010,0040),CS,2,Patient'sSex"   M
"(0032,1033),LO,26,RequestingService"   MRI-BRAIN W/ W/O CONTRAST
"(0032,1060),LO,26,RequestedProcedureDescription"   MRI-BRAIN W/ W/O CONTRAST
"(0040,0100),SQ,-1,ScheduledProcedureStepSequence"   (null)
"<(0008,0060),CS,2,Modality"   MR
"<(0040,0001),AE,10,ScheduledStationAETitle"   AE_NETRIS
"<(0040,0002),DA,8,ScheduledProcedureStepStartDate"   20021111
"<(0040,0003),TM,6,ScheduledProcedureStepStartTime"   210443
"<(0040,0009),SH,8,ScheduledProcedureStepID"   2002-19
"(0040,1001),SH,6,RequestedProcedureID"   70802
New Record
"(0008,0050),SH,8,AccessionNumber"   2002-18
"(0008,0090),PN,12,ReferringPhysician’sName"   Hedwig Baal
"(0010,0010),PN,12,Patient’sName"   Denzer^Eric
"(0010,0020),LO,4,PatientID"   1677
"(0010,0030),DA,8,Patient'sBirthDate"   19401027
"(0010,0040),CS,2,Patient'sSex"   M
"(0032,1033),LO,24,RequestingService"   US-DRAINAGE GUIDE BREAST
"(0032,1060),LO,24,RequestedProcedureDescription"   US-DRAINAGE GUIDE BREAST
"(0040,0100),SQ,-1,ScheduledProcedureStepSequence"   (null)
"<(0008,0060),CS,2,Modality"   US
"<(0040,0001),AE,10,ScheduledStationAETitle"   AE_NETRIS
"<(0040,0002),DA,8,ScheduledProcedureStepStartDate"   20021105
"<(0040,0003),TM,6,ScheduledProcedureStepStartTime"   112128
"<(0040,0009),SH,8,ScheduledProcedureStepID"   2002-18
"(0040,1001),SH,6,RequestedProcedureID"   70002
New Record
"(0008,0050),SH,8,AccessionNumber"   2002-17
"(0008,0090),PN,12,ReferringPhysician’sName"   Hedwig Baal
"(0010,0010),PN,14,Patient’sName"   Kutsche^Tanja
"(0010,0020),LO,4,PatientID"   1678
"(0010,0030),DA,8,Patient'sBirthDate"   19630704
"(0010,0040),CS,2,Patient'sSex"   M
"(0032,1033),LO,26,RequestingService"   MRI-C SPINE W/W/O CONTRAST
"(0032,1060),LO,26,RequestedProcedureDescription"   MRI-C SPINE W/W/O CONTRAST
"(0040,0100),SQ,-1,ScheduledProcedureStepSequence"   (null)
"<(0008,0060),CS,2,Modality"   MR
"<(0040,0001),AE,10,ScheduledStationAETitle"   AE_NETRIS
"<(0040,0002),DA,8,ScheduledProcedureStepStartDate"   20021105
"<(0040,0003),TM,6,ScheduledProcedureStepStartTime"   112042
"<(0040,0009),SH,8,ScheduledProcedureStepID"   2002-17
"(0040,1001),SH,6,RequestedProcedureID"   70805
New Record
"(0008,0050),SH,8,AccessionNumber"   2002-16
"(0008,0090),PN,12,ReferringPhysician’sName"   Ardra Vieser
"(0010,0010),PN,10,Patient’sName"   Giro^Adolf
"(0010,0020),LO,4,PatientID"   1675
"(0010,0030),DA,8,Patient'sBirthDate"   19800911
"(0010,0040),CS,2,Patient'sSex"   F
"(0032,1033),LO,24,RequestingService"   US-DRAINAGE GUIDE RENAL
"(0032,1060),LO,24,RequestedProcedureDescription"   US-DRAINAGE GUIDE RENAL
"(0040,0100),SQ,-1,ScheduledProcedureStepSequence"   (null)
"<(0008,0060),CS,2,Modality"   US
"<(0040,0001),AE,10,ScheduledStationAETitle"   AE_NETRIS
"<(0040,0002),DA,8,ScheduledProcedureStepStartDate"   20021105
"<(0040,0003),TM,6,ScheduledProcedureStepStartTime"   111534
"<(0040,0009),SH,8,ScheduledProcedureStepID"   2002-16
"(0040,1001),SH,6,RequestedProcedureID"   70005
New Record
"(0008,0050),SH,8,AccessionNumber"   2002-15
"(0008,0090),PN,0,ReferringPhysician’sName"
"(0010,0010),PN,16,Patient’sName"   Jentsch^Raymond
"(0010,0020),LO,4,PatientID"   1682
"(0010,0030),DA,8,Patient'sBirthDate"   19860618
"(0010,0040),CS,2,Patient'sSex"   M
"(0032,1033),LO,24,RequestingService"   MRI-C SPINE W/ CONTRAST
"(0032,1060),LO,24,RequestedProcedureDescription"   MRI-C SPINE W/ CONTRAST
"(0040,0100),SQ,-1,ScheduledProcedureStepSequence"   (null)
"<(0008,0060),CS,2,Modality"   MR
"<(0040,0001),AE,10,ScheduledStationAETitle"   AE_NETRIS
"<(0040,0002),DA,8,ScheduledProcedureStepStartDate"   20021103
"<(0040,0003),TM,6,ScheduledProcedureStepStartTime"   5852
"<(0040,0009),SH,8,ScheduledProcedureStepID"   2002-15
"(0040,1001),SH,6,RequestedProcedureID"   70804
New Record
"(0008,0050),SH,6,AccessionNumber"   2002-6
"(0008,0090),PN,12,ReferringPhysician’sName"   Hedwig Baal
"(0010,0010),PN,18,Patient’sName"   Herzberg^Swetlana
"(0010,0020),LO,4,PatientID"   1668
"(0010,0030),DA,8,Patient'sBirthDate"   19340802
"(0010,0040),CS,2,Patient'sSex"   M
"(0032,1033),LO,26,RequestingService"   US-DRAINAGE GUIDE/ABD/PELV
"(0032,1060),LO,26,RequestedProcedureDescription"   US-DRAINAGE GUIDE/ABD/PELV
"(0040,0100),SQ,-1,ScheduledProcedureStepSequence"   (null)
"<(0008,0060),CS,2,Modality"   US
"<(0040,0001),AE,10,ScheduledStationAETitle"   AE_NETRIS
"<(0040,0002),DA,8,ScheduledProcedureStepStartDate"   20021021
"<(0040,0003),TM,6,ScheduledProcedureStepStartTime"   83029
"<(0040,0009),SH,6,ScheduledProcedureStepID"   2002-6
"(0040,1001),SH,6,RequestedProcedureID"   70000
number of records :16

ไม่คำอธิบายส่งสัยจะลำบากครับ

chronoX

ในการสั่ง 1 ครั้ง จะมีการ query ดังนี้ แล้วต่อกันไปเรื่อยๆครับ

New Record
"(0008,0050),SH,8,AccessionNumber" 2002-37 <--- serial ที่รันไปเรื่อยๆครับ หรือลำดับการสั่ง ก็ได้"(0008,0090),PN,10,ReferringPhysician’sName" Elke Jauch < ----- ชื่อผู้สั่งx-ray
"(0010,0010),PN,12,Patient’sName" Hoerer^Emmet < ------ชื่อผู้ป่วย"(0010,0020),LO,4,PatientID" 1670 < ------- HN
"(0010,0030),DA,8,Patient'sBirthDate" 19760223 < -------- ปี เดือน วัน ที่เกิด"(0010,0040),CS,2,Patient'sSex" F < --------- เพศ"(0032,1033),LO,24,RequestingService" US-DRAINAGE GUIDE LIVER < --------- ชื่อฟิลม์ที่สั่ง"(0032,1060),LO,24,RequestedProcedureDescription" US-DRAINAGE GUIDE LIVER
"(0040,0100),SQ,-1,ScheduledProcedureStepSequence" (null)
"<(0008,0060),CS,2,Modality" US
"<(0040,0001),AE,10,ScheduledStationAETitle" AE_NETRIS
"<(0040,0002),DA,8,ScheduledProcedureStepStartDate" 20021202
"<(0040,0003),TM,6,ScheduledProcedureStepStartTime" 112107
"<(0040,0009),SH,8,ScheduledProcedureStepID" 2002-37
"(0040,1001),SH,6,RequestedProcedureID" 70003

ส่วนที่เหลืออื่นๆไม่จำเป้นต้อง query ก็ได้ครับ

ผู้เขียน หัวข้อ: วานใครเก่งเขียน script Query format นี้ได้ครับช่วยที Dicom+HOSxP (อ่าน 12299 ครั้ง)

doramon

doramon

doramon

doramon

doramon

doramon

doramon