File Coverage

blib/lib/Image/ExifTool/DICOM.pm

Criterion	Covered	Total	%
statement	81	150	54.0
branch	57	124	45.9
condition	14	77	18.1
subroutine	4	4	100.0
pod	0	1	0.0
total	156	356	43.8

line	stmt	sub	time	code
1				#------------------------------------------------------------------------------
2				# File: DICOM.pm
3				#
4				# Description: Read DICOM and ACR-NEMA medical images
5				#
6				# Revisions: 2005/11/09 - P. Harvey Created
7				# 2009/11/19 - P. Harvey Added private GE tags from ref 4
8				# 2009/12/11 - P. Harvey Updated to DICOM 2008 spec
9				# 2010/04/08 - P. Harvey Updated to DICOM 2009 spec
10				#
11				# References: 1) http://medical.nema.org/
12				# 2) http://www.sph.sc.edu/comd/rorden/dicom.html
13				# 3) http://www.dclunie.com/
14				# 4) http://www.gehealthcare.com/usen/interoperability/dicom/docs/2258357r3.pdf
15				#------------------------------------------------------------------------------
16
17				package Image::ExifTool::DICOM;
18
19	1	1	6614	use strict;
	1		1
	1		38
20	1	1	3	use vars qw($VERSION %uid);
	1		2
	1		42
21	1	1	3	use Image::ExifTool qw(:DataAccess :Utils);
	1		2
	1		32344
22
23				$VERSION = '1.25';
24
25				# DICOM VR (Value Representation) format conversions
26				my %dicomFormat = (
27				FD => 'double',
28				FL => 'float',
29				OB => 'int8u',
30				OF => 'float',
31				OW => 'int16u',
32				SL => 'int32s',
33				SS => 'int16s',
34				UL => 'int32u',
35				US => 'int16u',
36				);
37
38				# VR elements with 32-bit length in explicit VR syntax
39				my %vr32 = ( OB=>1, OW=>1, OF=>1, SQ=>1, UT=>1, UN=>1 );
40
41				# data elements with implicit VR regardless of syntax
42				my %implicitVR = (
43				'FFFE,E000' => 1,
44				'FFFE,E00D' => 1,
45				'FFFE,E0DD' => 1,
46				);
47
48				# DICOM tags
49				# Note: "XxxGroupLength" tags are generated automatically if they don't exist
50				%Image::ExifTool::DICOM::Main = (
51				GROUPS => { 2 => 'Image' },
52				VARS => { NO_LOOKUP => 1 }, # omit tags from lookup (way too many!)
53				NOTES => q{
54				The DICOM (Digital Imaging and Communications in Medicine) format is based
55				on the ACR-NEMA specification, but adds a file header and a number of new
56				tags. ExifTool will extract information from either type of file. The Tag
57				ID's in the following table are the tag group and element numbers in
58				hexadecimal, as given in the DICOM specification (see
59				L). The table below contains tags
60				from the DICOM 2026b and earlier specifications plus some vendor-specific
61				private tags.
62
63				Note that DICOM information may be saved in other file formats using the
64				L