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