The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.

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).