Help for this page

Select Code to Download


  1. or download this
    NTE||L|obr note
OBX|NM|aaA..^Haem^RD2|7.5|g/dL|13.0-18.0|OR|
NTE||L|obx note 1/1 for 3058
OBX|NM|dBf..^TWC^RD2|8.9|10*9/L|4.0-11.0||
  2. or download this
      if(m/(^OBX\|)([^\|]*\|){2}([^\^]*)(.*$)/){
    my $pre = $1 . $2;
...
    $read =~ s/[a-z]/L$&/g;
    $_ = $pre . $read . $post;
  }