Oracle Database 11g Release 1とOracle Multimediaのインストール。

PMユーザーのロックが解除されており、create any directory権限を持つことを確認します。 SQL*Plusセッションを開いて、次のコマンドを実行します。

sqlplus sys/<syspassword>@<sid> as sysdba
alter user PM identified by PM account unlock;
grant create any directory to PM;

次に、PMユーザーとしてディレクトリ・オブジェクトを作成します。 SQL*Plusセッションから、次のコマンドを実行します。

connect PM/PM@<Sid>
create or replace directory IMAGEDIR as '<file_directory>';

<file_directory>は、このチュートリアルに必要なすべてのスクリプトとファイルがある場所です。 たとえば、/home/oracle/dicomのようになります。 注： このディレクトリが存在しない場合は、作成する必要があります。

SQL*Plusセッションから、次のコマンドを実行します。

@create_dicom_table

create_dicom_table.sqlコードの内容は、次のとおりです。

set echo on;

drop table medical_image_table;

create table medical_image_table 
             (id          integer primary key, 
              dicom       ordsys.orddicom,
              imageThumb  ordsys.ordimage, 
              anonDicom   ordsys.orddicom);

SQL*Plusセッションから、次のコマンドを実行します。

@create_import_procedure

create_import_procedure.sqlコードの内容は、次のとおりです。

-- Set Data Model Repository
execute ordsys.ord_dicom.setDataModel();

create or replace procedure image_import(dest_id number, filename varchar2) is
  dcm ordsys.orddicom;
begin
   delete from medical_image_table where id = dest_id;
   insert into medical_image_table (id, dicom, imageThumb, anonDicom) 
   values (dest_id, ordsys.orddicom(‘file’, ‘IMAGEDIR’, filename, 0), 
           ordsys.ordimage.init(), ordsys.orddicom()) 
   returning dicom into dcm;
   dcm.import(1);

   update medical_image_table set dicom=dcm where id=dest_id;
   commit;
end;
/
show errors;

新たに作成したプロシージャを実行し、サンプルのDICOMファイルをインポートします。 SQL*Plusセッションから、次のコマンドを実行します。

execute image_import(1,'179.dcm');

この問合せでは、ORDDicomオブジェクト属性からService-Object Pair Instance UIDを取得します。 このデータは、setPropertiesメソッドの呼び出し時にDICOMバイナリ・データから抽出されています。SQL*Plusセッションから次のスクリプトを実行します。

@sop_instance_uid

sop_instance_uid.sqlコードの内容は、次のとおりです。

select id, 
       t.dicom.getSOPInstanceUID() as SOP_Instance_UID 
from medical_image_table t;

この問合せでは、ORDDicomオブジェクト属性からService-Object Pair Class UIDを取得します。 このデータは、setPropertiesメソッドの呼び出し時にDICOMバイナリ・データから抽出されています。 SQL*Plusセッションから次のスクリプトを実行します。

@sop_class_uid

sop_class_uid.sqlコードの内容は、次のとおりです。

select id, 
       t.dicom.getSOPClassUID() as SOP_Class_UID
from medical_image_table t;

この問合せでは、ORDDicomオブジェクト属性からStudy Instance UIDを取得します。このデータは、setPropertiesメソッドの呼び出し時にDICOMバイナリ・データから抽出されています。 SQL*Plusセッションから次のスクリプトを実行します。

@study_instance_uid

study_instance_uid.sqlコードの内容は、次のとおりです。

select id, 
       t.dicom.getStudyInstanceUID() as Study_Instance_UID 
from medical_image_table t;

この問合せでは、ORDDicomオブジェクト属性からSeries Instance UIDを取得します。 このデータは、setPropertiesメソッドの呼び出し時にDICOMバイナリ・データから抽出されています。 SQL*Plusセッションから次のスクリプトを実行します。

@series_instance_uid

series_instance_uid.sqlコードの内容は、次のとおりです。

select id, 
       t.dicom.getSeriesInstanceUID() as Series_Instance_UID
from medical_image_table t;

この問合せでは、ソース属性に格納されているDICOMバイナリ･データの長さを取得します。 SQL*Plusセッションから次のスクリプトを実行します。

@content_length

content_length.sqlコードの内容は、次のとおりです。

select id,
       t.dicom.getcontentlength() as content_Length 
from medical_image_table t;

この問合せでは、抽出されたXMLメタデータ・ドキュメントから情報を抽出する方法を示します。 SQL*Plusセッションから次のスクリプトを実行します。

@patient_info

patient_info.sqlコードの内容は、次のとおりです。

select id, 
        extractValue(t.dicom.metadata, 
        '/DICOM_OBJECT/*[@name="Patient''s Name"]/VALUE', 
        'xmlns=http://xmlns.oracle.com/ord/dicom/metadata_1_0') as "PATIENT_NAME", 
        extractValue(t.dicom.metadata, 
        '/DICOM_OBJECT/*[@name="Patient ID"]', 
        'xmlns=http://xmlns.oracle.com/ord/dicom/metadata_1_0') as "PATIENT_ID", 
        extractValue(t.dicom.metadata, 
        '/DICOM_OBJECT/*[@name="Modality"]', 
        'xmlns=http://xmlns.oracle.com/ord/dicom/metadata_1_0') as "MODALITY" 
from medical_image_table t;

generate_thumbプロシージャを作成するには、SQL*Plusセッションから次のスクリプトを実行します。

@create_thumbnail_procedure

create_thumbnail_procedure.sqlコードの内容は、次のとおりです。

-- Set Data Model Repository
execute ordsys.ord_dicom.setDataModel();

create or replace procedure generate_thumb(source_id number, verb varchar2) is
    dcmSrc    ordsys.orddicom;
    imgDst    ordsys.ordimage;
begin
  select dicom, imageThumb into dcmSrc, imgDst from medical_image_table 
         where id = source_id for update;
  dcmSrc.processCopy(verb, imgDst);

  update medical_image_table set imageThumb = imgDst where id = source_id;
  commit;
end;
/
show errors;

SQL*Plusセッションから次のスクリプトを実行します。

@create_thumbnail_image

create_thumbnail_image.sqlコードの内容は、次のとおりです。

-- Create a JPEG thumbnail image for our test DICOM
execute generate_thumb(1, 'fileformat=jfif fixedscale=75 100');

generate_anonプロシージャを作成するには、SQL*Plusセッションから次のスクリプトを実行します。

@create_anonimage_proc

create_anonimage_proc.sqlコードの内容は、次のとおりです。

-- Set Data Model Repository
execute ordsys.ord_dicom.setDataModel();

create or replace procedure generate_anon(source_id number) is
    dcmSrc    ordsys.orddicom;
    anonDst   ordsys.orddicom;
    dest_sop_inst_uid varchar2(128) := '1.2.3';

begin
  select dicom, anonDicom into dcmSrc, anonDst from medical_image_table 
         where id = source_id for update;
  dcmSrc.makeAnonymous(dest_sop_inst_uid, anonDst);
  update medical_image_table set anonDicom = anonDst where id = source_id;
  commit;
end;
/
show errors;

generate_anonプロシージャにおいて、dest_sop_instance_uid変数の一時UIDをグローバルに一意のUIDで置き換えてください。 UIDを置き換えない場合もプロシージャは実行されますが、結果の匿名DICOMイメージは破棄しなければならないことに注意してください。

テストの対象となるDICOMの匿名コピーを生成します。 SQL*Plusセッションから次のコマンドを実行します。

execute generate_anon(1);

次に、結果を確認します。 SQL*Plusセッションから次のスクリプトを実行します。

@select_anonimage

DICOMイメージが制約ルールに適合するかどうかを確認します。 SQL*Plusセッションから次のスクリプトを実行します。

@check_object_conform

check_object_conform.sqlコードの内容は、次のとおりです。

-- Set Data Model Repository
execute ordsys.ord_dicom.setDataModel();

select id, t.dicom.isconformanceValid('OracleOrdObject') as conformant 
from medical_image_table t;

DICOMイメージが制約定義に適合しない場合、表にメッセージが挿入されます。この表は、ORDDCM_CONFORMANCE_VLD_MSGSビューに問合せを行うと参照できます。 このビューは、制約の検証中に生成された制約メッセージを表示します。 SQL*Plusセッションから次のスクリプトを実行します。

@review_conform_msgs

review_conform_msgs.sqlコードの内容は、次のとおりです。

describe orddcm_conformance_vld_msgs;
select * from orddcm_conformance_vld_msgs;

IMAGEDIRディレクトリのファイルにDICOMデータをエクスポートするプロシージャを作成します。 SQL*Plusセッションから次のスクリプトを実行します。

@create_export_proc

create_export_proc.sqlコードの内容は、次のとおりです。

create or replace procedure dicom_export (source_id number, filename varchar2) as
  dcmSrc ordsys.orddicom;
begin
  select dicom into dcmSrc from medical_image_table where id = source_id;
  dcmSrc.export('FILE', 'IMAGEDIR', filename);
end;
/
show errors;

次に、このプロシージャを実行します。 SQL*Plusセッションから次のコマンドを実行します。

execute dicom_export(1, 'dicom_orig.dcm');

作成されたファイルを確認するには、別の端末ウィンドウを開いて、IMAGEDIRディレクトリから次のコマンドを実行します。

ls -al dicom_orig.dcm

SQL*PlusセッションからPMユーザーとして次のスクリプトを実行します。

@cleanup01

cleanup01.sqlコードの内容は、次のとおりです。

drop procedure image_import;
drop procedure generate_thumb;
drop procedure generate_anon;
drop procedure dicom_export;
drop table     medical_image_table;
    

SYSユーザーとしてSQL*Plusにログインします。

sqlplus sys/<syspassword>@<Sid> as sysdba

SQL*Plusセッションから、SYSユーザーとして次のスクリプトを実行します。

@cleanup02

cleanup02.sqlコードの内容は、次のとおりです。

drop directory imagedir;
revoke create any directory from PM;

次のコマンドを実行して、SQL*Plusセッションを終了します。

exit 

SQL*Plusセッションで作業ディレクトリに移動し、imagedirに作成されたエクスポート・ファイルdicom_orig.dcmを削除します。

rm dicom_orig.dcm

プロンプトが表示されたら、削除を確定してください。