1package Business::EDI::CodeList::DateAndTimeQualifier; 2 3use base 'Business::EDI::CodeList'; 4my $VERSION = 0.02; 5sub list_number {return "0517";} 6my $usage = 'B'; 7 8# 0517 Date and time qualifier 9# Desc: Specification of the type of date and time. 10# Repr: an..3 11 12my %code_hash = ( 13'1' => [ 'Security Timestamp', 14 'Security timestamp of the secured message.' ], 15'2' => [ 'Certificate generation date and time', 16 'Identifies the date and time of generation of the certificate by the Certification Authority.' ], 17'3' => [ 'Certificate start of validity period', 18 'Identifies the date and time from which the certificate must be considered valid.' ], 19'4' => [ 'Certificate end of validity period', 20 'Identifies the date and time until which the certificate must be considered valid.' ], 21'5' => [ 'EDIFACT structure generation date and time', 22 'Date and time of generation of the secured EDIFACT structure.' ], 23'6' => [ 'Certificate revocation date and time', 24 'Identifies the date and time of revocation of the certificate by the Certification Authority.' ], 25'7' => [ 'Key generation date and time', 26 'Identifies the date and time of generation of the key(s).' ], 27); 28sub get_codes { return \%code_hash; } 29 301; 31