NAME

Dicom::UID::Generator - DICOM UID generator.

SYNOPSIS

use Dicom::UID::Generator;

my $obj = Dicom::UID::Generator->new(%params);
my $uid = $obj->create_series_instance_uid;
my $uid = $obj->create_sop_instance_uid;
my $uid = $obj->create_study_instance_uid;
my $uid = $obj->create_uid($prefix);

METHODS

new(%params)

Constructor.

• library_number

  DICOM library number.
  Default value is undef.

• model_number

  Device model number.
  Default value is undef.

• serial_number

  Device serial number.
  Default value is undef.

• timezone

  Time zone for time in UID..
  Default value is 'Europe/Prague'.

• uid_counter

  UID counter number for part of final UID.
  Default value is 0.

create_series_instance_uid()

Get DICOM Series Instance UID.
Returns string.

create_sop_instance_uid()

Get DICOM SOP Instance UID.
Returns string.

create_study_instance_uid()

Get DICOM Study Instance UID.
Returns string.

create_uid($prefix)

Get DICOM UID defined by prefix.
Returns string.

ERRORS

new():
        From Class::Utils::set_params():
                Unknown parameter '%s'.

EXAMPLE

use strict;
use warnings;

use Dicom::UID::Generator;

# Object.
my $obj = Dicom::UID::Generator->new(
      'library_number' => 999,
      'model_number' => '001',
      'serial_number' => 123,
);

# Get Series Instance UID.
my $series_instance_uid = $obj->create_series_instance_uid;

# Get Study Instance UID.
my $study_instance_uid = $obj->create_study_instance_uid;

# Get SOP Instance UID.
my $sop_instance_uid = $obj->create_sop_instance_uid;

# Print out.
print "Study Instance UID: $study_instance_uid\n";
print "Series Instance UID: $series_instance_uid\n";
print "SOP Instance UID: $sop_instance_uid\n";

# Output like:
# Study Instance UID: 999.001.123.1.2.976.20160825112022726.2
# Series Instance UID: 999.001.123.1.3.976.20160825112022647.1
# SOP Instance UID: 999.001.123.1.4.976.20160825112022727.3

# Comments:
# 999 is DICOM library number.
# 001 is device model number.
# 123 is device serial number.
# 1.2, 1.3, 1.4 are hardcoded resolutions of DICOM UID type.
# 976 is PID of process.
# 20160825112022726 is timestamp.
# last number is number of 'uid_counter' parameter.

DEPENDENCIES

Class::Utils, DateTime::HiRes, English, Readonly,

SEE ALSO

Task::Dicom

Install the Dicom modules.

REPOSITORY

https://github.com/michal-josef-spacek/Dicom-UID-Generator

AUTHOR

Michal Josef Špaček mailto:skim@cpan.org

http://skim.cz

LICENSE AND COPYRIGHT

© Michal Josef Špaček 2016

BSD 2-Clause License

VERSION

0.02