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