1package Business::EDI::CodeList::RevocationReasonCoded; 2 3use base 'Business::EDI::CodeList'; 4my $VERSION = 0.02; 5sub list_number {return "0569";} 6my $usage = 'B'; 7 8# 0569 Revocation reason, coded 9# Desc: Identification of the reason why the certificate has been 10# revoked. 11# Repr: an..3 12 13my %code_hash = ( 14'1' => [ 'Owner key compromised', 15 'The owner key linked to this certificate has been compromised.' ], 16'2' => [ 'Issuer key compromised', 17 'The issuer key used to generate this certificate has been compromised.' ], 18'3' => [ 'Owner changed affiliation', 19 'The identification details of the certificate are no longer valid.' ], 20'4' => [ 'Certificate superseded', 21 'This certificate has been renewed and is superseded by another certificate.' ], 22'5' => [ 'Certificate terminated', 23 'This certificate has reached the end of its validity period and has not been renewed.' ], 24'6' => [ 'No information available', 25 'This certificate is revoked but the reason is not explicit stated.' ], 26'ZZZ' => [ 'Mutually agreed', 27 'Mutually agreed between trading partners.' ], 28); 29sub get_codes { return \%code_hash; } 30 311; 32