|
DotICD9 - Perl extension for placing decimal points in ICD-9 Codes |
DotICD9 - Perl extension for placing decimal points in ICD-9 Codes
use DotICD9; $i = new DotICD9;
$dottedcode = $i->dot( 78830, 3 );
$dottedcode = $i->dot( 78830, D );
$dottedcode = $i->dot( 7830, O );
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.
David Martin, pengy@icx.net
perl(1).
|
DotICD9 - Perl extension for placing decimal points in ICD-9 Codes |