1package Business::EDI::CodeList::ComputerEnvironmentDetailsCodeQualifier;
2
3use base 'Business::EDI::CodeList';
4my $VERSION     = 0.02;
5sub list_number {1501;}
6my $usage       = 'B';
7
8# 1501  Computer environment details code qualifier             [B]
9# Desc: Code qualifying computer environment details.
10# Repr: an..3
11
12my %code_hash = (
13'1' => [ 'Hardware platform',
14    'Code to identify the type of hardware installed in a computer environment e.g. PC, Mac, UNIX-Workstation, Mini, Mainframe.' ],
15'2' => [ 'Operating system',
16    'Code to identify the operating system, like DOS, VMS, etc. used in a computer environment.' ],
17'3' => [ 'Application software',
18    'Code to identify an application software, like AutoCad, WinWord, etc. used in a computer environment.' ],
19'4' => [ 'Network',
20    'Code to identify a network like Ethernet, Token Ring, etc. implemented in a computer environment.' ],
21'5' => [ 'Sending system',
22    'Code to identify the system, which acts as a sending system in an interchange.' ],
23'6' => [ 'File generating software',
24    'Software used to generate a file.' ],
25'7' => [ 'File compression software',
26    'Software used for the compression of a file.' ],
27'8' => [ 'File compression method',
28    'Method used for the compression of a file.' ],
29);
30sub get_codes { return \%code_hash; }
31
321;
33