NAME
DotICD9 - Perl extension for placing decimal points in ICD-9 Codes
SYNOPSIS
use DotICD9;
$i = new DotICD9;
$dottedcode = $i->dot( 78830, 3 );
$dottedcode = $i->dot( 78830, D );
$dottedcode = $i->dot( 7830, O );
DESCRIPTION
Adds the dots to ICD9 codes. Diagnostic codes are assumed to have an integer width of 3, Procedure codes have integer width of 2. A 'D' or 'O' character can be used to distinguish between the two types of codes, or a case insensitive match with 'surg' or 'diag' can be used.
AUTHOR
David Martin, pengy@icx.net
SEE ALSO
perl(1).